$
$ 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 = ""
$ P = F$EDIT(P1,"TRIM,LOWERCASE")
$ IF P .EQS. "-h"
$ THEN
-$ TEST = 1
+$ dryrun = 1
$ P = ""
$ TYPE SYS$INPUT
$ DECK
-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.
$ 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"
$ 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: