1 $ ! OpenSSL config: determine the architecture and run Configure
3 $ ! Very simple for the moment, it will take the following arguments:
5 $ ! 32 sets /POINTER_SIZE=32
6 $ ! 64 sets /POINTER_SIZE=64
7 $ ! DEBUG sets debugging
8 $ ! HELP prints a usage and exits
10 $ arch == f$edit( f$getsyi( "arch_name"), "lowercase")
13 $ here = F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"),,,"SYNTAX_ONLY") - "A.;"
18 $ P_index = P_index + 1
19 $ IF P_index .GT. 8 THEN GOTO ENDLOOP1
20 $ P = F$EDIT(P1,"TRIM,LOWERCASE")
21 $ IF P .EQS. "help" THEN GOTO USAGE
24 $ pointer_size = "-P32"
29 $ pointer_size = "-P64"
37 $ IF P .NES. "" THEN -
38 collected_args = collected_args + " " + P1
50 $ target = "vms-''arch'''pointer_size'"
51 $ PERL 'here'Configure "''target'" 'debug' 'collected_args'
57 usage: @config [options]
59 32 build with 32-bit pointer size
60 64 build with 64-bit pointer size
61 DEBUG build with debugging
64 Any other option is simply passed to Configure.