1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283 |
- $ ! OpenSSL config: determine the architecture and run Configure
- $ !
- $ ! Very simple for the moment, it will take the following arguments:
- $ !
- $ ! -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
- $
- $ arch == f$edit( f$getsyi( "arch_name"), "lowercase")
- $ pointer_size = ""
- $ test = 0
- $ 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
- $ P = F$EDIT(P1,"TRIM,LOWERCASE")
- $ 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"
- $ THEN
- $ pointer_size = "-P32"
- $ P = ""
- $ ENDIF
- $ IF P .EQS. "-64" .OR. P .EQS. "64"
- $ THEN
- $ pointer_size = "-P64"
- $ P = ""
- $ ENDIF
- $ IF P .EQS. "-d"
- $ THEN
- $ collected_args = collected_args + " --debug"
- $ P = ""
- $ ENDIF
- $ IF P .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'"
- $ IF test
- $ THEN
- $ WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""''collected_args'"
- $ ELSE
- $ PERL 'here'Configure "''target'" 'debug' 'collected_args'
- $ ENDIF
- $ EXIT $STATUS
- $
- $ USAGE:
|