Skip to main content
  • Home
  • login
  • Browse the archive

    swh mirror partner logo
swh logo
SoftwareHeritage
Software
Heritage
Mirror
Features
  • Search

  • Downloads

  • Save code now

  • Add forge now

  • Help

  • c7b1687
  • /
  • crypto
  • /
  • libvms.com
Raw File
Permalinks

To reference or cite the objects present in the Software Heritage archive, permalinks based on SoftWare Hash IDentifiers (SWHIDs) must be used.
Select below a type of object currently browsed in order to display its associated SWHID and permalink.

  • content
  • directory
content badge Iframe embedding
swh:1:cnt:44f90c65b050401d2fff196dfd81618012c9fb49
directory badge Iframe embedding
swh:1:dir:6d02db397288f04720797cfa516e344f6651b8da
libvms.com
$!
$! Compile crypto.c as several subset modules and insert in crypto-xxx.olb.
$! If P1 is specifed, it specifies alternate list of subsets to compile.
$!
$ libname = "CRYPTO-AXP.OLB"
$ subset_list = "LIB,ASN1,BN,BUFFER,CONF,DES,DH,DSA,ERROR,EVP,IDEA,LHASH,MD," + -
	"METH,OBJECTS,PEM,RAND,RC,RSA,SHA,STACK,TXT_DB,X509"
$ if p1 .nes. "" then subset_list = p1
$!
$ if f$getsyi("CPU") .lt. 128 then libname = "CRYPTO-VAX.OLB"
$ if f$search(libname) .eqs. "" then library/create/object/log 'libname'
$!
$ cc = "cc/include=[-.include]/prefix=all" + P2
$!
$ i = 0
$ next_subset:
$    subset = f$element(i,",",subset_list)
$    if subset .eqs. "," then goto done
$    i = i + 1
$    create crypto_'subset'.subset
#include "crypto.c"
$    ofile = "sys$disk:[]crypto_" + subset + ".obj"
$    on warning then goto next_subset
$    write sys$output "Compiling ", ofile
$    cc /object='ofile' crypto_'subset'.subset -
	/define=(CRYPTO_SUBSET,CRYPTO_'subset'_SUBSET)
$    library/replace/log 'libname'/module=CRYPTO_'subset' 'ofile'
$    goto next_subset
$!
$ done:
$ exit

ENEA — Copyright (C), ENEA. License: GNU AGPLv3+.
Legal notes  ::  JavaScript license information ::  Web API

back to top