mirror of
https://github.com/openssl/openssl.git
synced 2024-11-23 10:03:32 +08:00
e84193e43d
As part of this, change util/mkdef.pl to stop adding libraries to
depend on in its output. mkdef.pl should ONLY output a symbol
vector.
Because symbol names can't be longer than 31 characters, we use the
compiler to shorten those that are longer down to 23 characters plus
an 8 character CRC. To make sure users of our header files will pick
up on that automatically, add the DEC C supported extra headers files
__decc_include_prologue.h and __decc_include_epilogue.h.
Furthermore, we add a config.com, so VMS people can configure just as
comfortably as any Unix folks, thusly:
@config
Reviewed-by: Rich Salz <rsalz@openssl.org>
66 lines
1.4 KiB
Plaintext
66 lines
1.4 KiB
Plaintext
$ ! OpenSSL config: determine the architecture and run Configure
|
|
$ !
|
|
$ ! Very simple for the moment, it will take the following arguments:
|
|
$ !
|
|
$ ! 32 sets /POINTER_SIZE=32
|
|
$ ! 64 sets /POINTER_SIZE=64
|
|
$ ! DEBUG sets debugging
|
|
$ ! HELP prints a usage and exits
|
|
$
|
|
$ arch == f$edit( f$getsyi( "arch_name"), "lowercase")
|
|
$ pointer_size = ""
|
|
$ debug = ""
|
|
$ here = F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"),,,"SYNTAX_ONLY") - "A.;"
|
|
$
|
|
$ collected_args = ""
|
|
$ P_index = 0
|
|
$ LOOP1:
|
|
$ P_index = P_index + 1
|
|
$ IF P_index .GT. 8 THEN GOTO ENDLOOP1
|
|
$ P1 = F$EDIT(P1,"TRIM")
|
|
$ IF P1 .EQS. "HELP" THEN GOTO USAGE
|
|
$ IF P1 .EQS. "32"
|
|
$ THEN
|
|
$ pointer_size = "-P32"
|
|
$ P1 = ""
|
|
$ ENDIF
|
|
$ IF P1 .EQS. "64"
|
|
$ THEN
|
|
$ pointer_size = "-P64"
|
|
$ P1 = ""
|
|
$ ENDIF
|
|
$ IF P1 .EQS. "DEBUG"
|
|
$ THEN
|
|
$ debug = "--debug"
|
|
$ P1 = ""
|
|
$ ENDIF
|
|
$ IF P1 .NES. "" THEN -
|
|
collected_args = collected_args + " " + P1
|
|
$ P1 = P2
|
|
$ P2 = P3
|
|
$ P3 = P4
|
|
$ P4 = P5
|
|
$ P5 = P6
|
|
$ P6 = P7
|
|
$ P7 = P8
|
|
$ P8 = ""
|
|
$ GOTO LOOP1
|
|
$ ENDLOOP1:
|
|
$
|
|
$ target = "vms-''arch'''pointer_size'"
|
|
$ PERL 'here'Configure "''target'" 'debug' 'collected_args'
|
|
$ EXIT $STATUS
|
|
$
|
|
$ USAGE:
|
|
$ TYPE SYS$INPUT
|
|
$ DECK
|
|
usage: @config [options]
|
|
|
|
32 build with 32-bit pointer size
|
|
64 build with 64-bit pointer size
|
|
DEBUG build with debugging
|
|
HELP this text
|
|
|
|
Any other option is simply passed to Configure.
|
|
$ EOD
|