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