$	! OpenSSL config: determine the architecture and run Configure
$	! Copyright 2016-2020 The OpenSSL Project Authors. All Rights Reserved.
$	!
$	! Licensed under the Apache License 2.0 (the "License"). You may not use
$	! this file except in compliance with the License. You can obtain a
$	! copy in the file LICENSE in the source distribution or at
$	! https://www.openssl.org/source/license.html
$	!
$	! 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 = ""
$	dryrun = 0
$	verbose = 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
$ dryrun = 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.
 -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.
See INSTALL.md for instructions.

$ EOD
$ ENDIF
$	 IF P .EQS. "-t"
$	 THEN
$		dryrun = 1
$		verbose = 1
$		P = ""
$	 ENDIF
$	 IF P .EQS. "-v"
$	 THEN
$		verbose = 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 verbose THEN -
 WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""",collected_args
$ IF .not. dryrun THEN -
 PERL 'here'Configure "''target'"'collected_args'
$ EXIT $STATUS