1 $ ! OpenSSL config: determine the architecture and run Configure
2 $ ! Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
4 $ ! Licensed under the OpenSSL license (the "License"). You may not use
5 $ ! this file except in compliance with the License. You can obtain a
6 $ ! copy in the file LICENSE in the source distribution or at
7 $ ! https://www.openssl.org/source/license.html
9 $ ! Very simple for the moment, it will take the following arguments:
11 $ ! -32 or 32 sets /POINTER_SIZE=32
12 $ ! -64 or 64 sets /POINTER_SIZE=64
14 $ ! -h prints a usage and exits
15 $ ! -t test mode, doesn't run Configure
17 $ arch = f$edit( f$getsyi( "arch_name"), "lowercase")
20 $ here = F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"),,,"SYNTAX_ONLY") - "A.;"
25 $ P_index = P_index + 1
26 $ IF P_index .GT. 8 THEN GOTO ENDLOOP1
27 $ P = F$EDIT(P1,"TRIM,LOWERCASE")
34 Usage: @config [options]
36 -32 or 32 Build with 32-bit pointer size.
37 -64 or 64 Build with 64-bit pointer size.
38 -d Build with debugging.
39 -t Test mode, do not run the Configure perl script.
42 Any other text will be passed to the Configure perl script.
43 See INSTALL for instructions.
52 $ IF P .EQS. "-32" .OR. P .EQS. "32"
54 $ pointer_size = "-P32"
57 $ IF P .EQS. "-64" .OR. P .EQS. "64"
59 $ pointer_size = "-P64"
64 $ collected_args = collected_args + " --debug"
67 $ IF P .NES. "" THEN -
68 collected_args = collected_args + " " + P1
80 $ target = "vms-''arch'''pointer_size'"
83 $ WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""''collected_args'"
85 $ PERL 'here'Configure "''target'" 'debug' 'collected_args'