2016-01-30 06:14:58 +00:00
|
|
|
$ ! OpenSSL config: determine the architecture and run Configure
|
|
|
|
$ !
|
|
|
|
$ ! Very simple for the moment, it will take the following arguments:
|
|
|
|
$ !
|
2016-03-10 13:20:50 +00:00
|
|
|
$ ! -32 or 32 sets /POINTER_SIZE=32
|
|
|
|
$ ! -64 or 64 sets /POINTER_SIZE=64
|
|
|
|
$ ! -d sets debugging
|
|
|
|
$ ! -h prints a usage and exits
|
|
|
|
$ ! -t test mode, doesn't run Configure
|
2016-01-30 06:14:58 +00:00
|
|
|
$
|
|
|
|
$ arch == f$edit( f$getsyi( "arch_name"), "lowercase")
|
|
|
|
$ pointer_size = ""
|
2016-03-10 13:20:50 +00:00
|
|
|
$ test = 0
|
2016-01-30 06:14:58 +00:00
|
|
|
$ 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
|
2016-02-16 15:07:05 +00:00
|
|
|
$ P = F$EDIT(P1,"TRIM,LOWERCASE")
|
2016-03-10 13:20:50 +00:00
|
|
|
$ IF P .EQS. "-h"
|
|
|
|
$ THEN
|
|
|
|
$ TEST = 1
|
|
|
|
$ P = ""
|
|
|
|
$ TYPE SYS$INPUT
|
|
|
|
$ DECK
|
|
|
|
Usage: @config [options]
|
|
|
|
|
|
|
|
-32 or 32 Build with 32-bit pointer size.
|
|
|
|
-64 or 64 Build with 64-bit pointer size.
|
|
|
|
-d Build with debugging.
|
|
|
|
-t Test mode, do not run the Configure perl script.
|
|
|
|
-h This help.
|
|
|
|
|
|
|
|
Any other text will be passed to the Configure perl script.
|
|
|
|
See INSTALL for instructions.
|
|
|
|
|
|
|
|
$ EOD
|
|
|
|
$ ENDIF
|
|
|
|
$ IF P .EQS. "-t"
|
|
|
|
$ THEN
|
|
|
|
$ test = 1
|
|
|
|
$ P = ""
|
|
|
|
$ ENDIF
|
|
|
|
$ IF P .EQS. "-32" .OR. P .EQS. "32"
|
2016-01-30 06:14:58 +00:00
|
|
|
$ THEN
|
|
|
|
$ pointer_size = "-P32"
|
2016-02-16 15:07:05 +00:00
|
|
|
$ P = ""
|
2016-01-30 06:14:58 +00:00
|
|
|
$ ENDIF
|
2016-03-10 13:20:50 +00:00
|
|
|
$ IF P .EQS. "-64" .OR. P .EQS. "64"
|
2016-01-30 06:14:58 +00:00
|
|
|
$ THEN
|
|
|
|
$ pointer_size = "-P64"
|
2016-02-16 15:07:05 +00:00
|
|
|
$ P = ""
|
2016-01-30 06:14:58 +00:00
|
|
|
$ ENDIF
|
2016-03-10 13:20:50 +00:00
|
|
|
$ IF P .EQS. "-d"
|
2016-01-30 06:14:58 +00:00
|
|
|
$ THEN
|
2016-03-10 13:20:50 +00:00
|
|
|
$ collected_args = collected_args + " --debug"
|
2016-02-16 15:07:05 +00:00
|
|
|
$ P = ""
|
2016-01-30 06:14:58 +00:00
|
|
|
$ ENDIF
|
2016-02-16 15:07:05 +00:00
|
|
|
$ IF P .NES. "" THEN -
|
2016-01-30 06:14:58 +00:00
|
|
|
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'"
|
2016-03-10 13:20:50 +00:00
|
|
|
$ IF test
|
|
|
|
$ THEN
|
|
|
|
$ WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""''collected_args'"
|
|
|
|
$ ELSE
|
|
|
|
$ PERL 'here'Configure "''target'" 'debug' 'collected_args'
|
|
|
|
$ ENDIF
|
|
|
|
$ EXIT $STATUS
|
2016-01-30 06:14:58 +00:00
|
|
|
$
|
|
|
|
$ USAGE:
|