$ ! 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