X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=config.com;h=5b549955d0907f4b55b262d0f9e857598d1180f8;hp=ed4df15e0b81e3aae15b174cfbe6a297b5a1ab93;hb=6f553edba88f7f35452bffd2bf49eac806190cf6;hpb=5aa8096fd002590f8a6a2dd05a7853c482b4677c;ds=sidebyside diff --git a/config.com b/config.com index ed4df15e0b..5b549955d0 100644 --- a/config.com +++ b/config.com @@ -16,7 +16,8 @@ $ ! -t test mode, doesn't run Configure $ $ arch = f$edit( f$getsyi( "arch_name"), "lowercase") $ pointer_size = "" -$ test = 0 +$ dryrun = 0 +$ verbose = 0 $ here = F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"),,,"SYNTAX_ONLY") - "A.;" $ $ collected_args = "" @@ -27,7 +28,7 @@ $ IF P_index .GT. 8 THEN GOTO ENDLOOP1 $ P = F$EDIT(P1,"TRIM,LOWERCASE") $ IF P .EQS. "-h" $ THEN -$ TEST = 1 +$ dryrun = 1 $ P = "" $ TYPE SYS$INPUT $ DECK @@ -37,6 +38,7 @@ Usage: @config [options] -64 or 64 Build with 64-bit pointer size. -d Build with debugging. -t Test mode, do not run the Configure perl script. + -v Verbose mode, show the exact Configure call that is being made. -h This help. Any other text will be passed to the Configure perl script. @@ -46,7 +48,13 @@ $ EOD $ ENDIF $ IF P .EQS. "-t" $ THEN -$ test = 1 +$ dryrun = 1 +$ verbose = 1 +$ P = "" +$ ENDIF +$ IF P .EQS. "-v" +$ THEN +$ verbose = 1 $ P = "" $ ENDIF $ IF P .EQS. "-32" .OR. P .EQS. "32" @@ -78,12 +86,8 @@ $ 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 +$ IF verbose THEN - + WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""''collected_args'" +$ IF .not. dryrun THEN - + PERL 'here'Configure "''target'" 'debug' 'collected_args' $ EXIT $STATUS -$ -$ USAGE: