$	! OpenSSL config: determine the architecture and run Configure

$	! Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.

$	!

$	! Licensed under the OpenSSL license (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 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