projects / thirdparty / openssl.git / blame
| Commit | Line | Data |
|---|---|---|
| e84193e4 | 1 | $ ! OpenSSL config: determine the architecture and run Configure |
| 44c8a5e2 RS |
2 | $ ! Copyright 2016 The OpenSSL Project Authors. All Rights Reserved. |
| 3 | $ ! | |
| 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 | |
| e84193e4 RL |
8 | $ ! |
| 9 | $ ! Very simple for the moment, it will take the following arguments: | |
| 10 | $ ! | |
| b33c5ffe RL |
11 | $ ! -32 or 32 sets /POINTER_SIZE=32 |
| 12 | $ ! -64 or 64 sets /POINTER_SIZE=64 | |
| 13 | $ ! -d sets debugging | |
| 14 | $ ! -h prints a usage and exits | |
| 15 | $ ! -t test mode, doesn't run Configure | |
| e84193e4 | 16 | $ |
| 5aa8096f | 17 | $ arch = f$edit( f$getsyi( "arch_name"), "lowercase") |
| e84193e4 | 18 | $ pointer_size = "" |
| b33c5ffe | 19 | $ test = 0 |
| e84193e4 RL |
20 | $ here = F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"),,,"SYNTAX_ONLY") - "A.;" |
| 21 | $ | |
| 22 | $ collected_args = "" | |
| 23 | $ P_index = 0 | |
| 24 | $ LOOP1: | |
| 25 | $ P_index = P_index + 1 | |
| 26 | $ IF P_index .GT. 8 THEN GOTO ENDLOOP1 | |
| 7c55e22c | 27 | $ P = F$EDIT(P1,"TRIM,LOWERCASE") |
| b33c5ffe RL |
28 | $ IF P .EQS. "-h" |
| 29 | $ THEN | |
| 30 | $ TEST = 1 | |
| 31 | $ P = "" | |
| 32 | $ TYPE SYS$INPUT | |
| 33 | $ DECK | |
| 34 | Usage: @config [options] | |
| 35 | ||
| 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. | |
| 40 | -h This help. | |
| 41 | ||
| 42 | Any other text will be passed to the Configure perl script. | |
| 43 | See INSTALL for instructions. | |
| 44 | ||
| 45 | $ EOD | |
| 46 | $ ENDIF | |
| 47 | $ IF P .EQS. "-t" | |
| 48 | $ THEN | |
| 49 | $ test = 1 | |
| 50 | $ P = "" | |
| 51 | $ ENDIF | |
| 52 | $ IF P .EQS. "-32" .OR. P .EQS. "32" | |
| e84193e4 RL |
53 | $ THEN |
| 54 | $ pointer_size = "-P32" | |
| 7c55e22c | 55 | $ P = "" |
| e84193e4 | 56 | $ ENDIF |
| b33c5ffe | 57 | $ IF P .EQS. "-64" .OR. P .EQS. "64" |
| e84193e4 RL |
58 | $ THEN |
| 59 | $ pointer_size = "-P64" | |
| 7c55e22c | 60 | $ P = "" |
| e84193e4 | 61 | $ ENDIF |
| b33c5ffe | 62 | $ IF P .EQS. "-d" |
| e84193e4 | 63 | $ THEN |
| b33c5ffe | 64 | $ collected_args = collected_args + " --debug" |
| 7c55e22c | 65 | $ P = "" |
| e84193e4 | 66 | $ ENDIF |
| 7c55e22c | 67 | $ IF P .NES. "" THEN - |
| e84193e4 RL |
68 | collected_args = collected_args + " " + P1 |
| 69 | $ P1 = P2 | |
| 70 | $ P2 = P3 | |
| 71 | $ P3 = P4 | |
| 72 | $ P4 = P5 | |
| 73 | $ P5 = P6 | |
| 74 | $ P6 = P7 | |
| 75 | $ P7 = P8 | |
| 76 | $ P8 = "" | |
| 77 | $ GOTO LOOP1 | |
| 78 | $ ENDLOOP1: | |
| 79 | $ | |
| 80 | $ target = "vms-''arch'''pointer_size'" | |
| b33c5ffe RL |
81 | $ IF test |
| 82 | $ THEN | |
| 83 | $ WRITE SYS$OUTPUT "PERL ''here'Configure ""''target'""''collected_args'" | |
| 84 | $ ELSE | |
| 85 | $ PERL 'here'Configure "''target'" 'debug' 'collected_args' | |
| 86 | $ ENDIF | |
| 87 | $ EXIT $STATUS | |
| e84193e4 RL |
88 | $ |
| 89 | $ USAGE: |