]>
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 | $ ! | |
5 | $ ! 32 sets /POINTER_SIZE=32 | |
6 | $ ! 64 sets /POINTER_SIZE=64 | |
7 | $ ! DEBUG sets debugging | |
8 | $ ! HELP prints a usage and exits | |
9 | $ | |
10 | $ arch == f$edit( f$getsyi( "arch_name"), "lowercase") | |
11 | $ pointer_size = "" | |
12 | $ debug = "" | |
13 | $ here = F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"),,,"SYNTAX_ONLY") - "A.;" | |
14 | $ | |
15 | $ collected_args = "" | |
16 | $ P_index = 0 | |
17 | $ LOOP1: | |
18 | $ P_index = P_index + 1 | |
19 | $ IF P_index .GT. 8 THEN GOTO ENDLOOP1 | |
7c55e22c RL |
20 | $ P = F$EDIT(P1,"TRIM,LOWERCASE") |
21 | $ IF P .EQS. "help" THEN GOTO USAGE | |
22 | $ IF P .EQS. "32" | |
e84193e4 RL |
23 | $ THEN |
24 | $ pointer_size = "-P32" | |
7c55e22c | 25 | $ P = "" |
e84193e4 | 26 | $ ENDIF |
7c55e22c | 27 | $ IF P .EQS. "64" |
e84193e4 RL |
28 | $ THEN |
29 | $ pointer_size = "-P64" | |
7c55e22c | 30 | $ P = "" |
e84193e4 | 31 | $ ENDIF |
7c55e22c | 32 | $ IF P .EQS. "debug" |
e84193e4 RL |
33 | $ THEN |
34 | $ debug = "--debug" | |
7c55e22c | 35 | $ P = "" |
e84193e4 | 36 | $ ENDIF |
7c55e22c | 37 | $ IF P .NES. "" THEN - |
e84193e4 RL |
38 | collected_args = collected_args + " " + P1 |
39 | $ P1 = P2 | |
40 | $ P2 = P3 | |
41 | $ P3 = P4 | |
42 | $ P4 = P5 | |
43 | $ P5 = P6 | |
44 | $ P6 = P7 | |
45 | $ P7 = P8 | |
46 | $ P8 = "" | |
47 | $ GOTO LOOP1 | |
48 | $ ENDLOOP1: | |
49 | $ | |
50 | $ target = "vms-''arch'''pointer_size'" | |
51 | $ PERL 'here'Configure "''target'" 'debug' 'collected_args' | |
52 | $ EXIT $STATUS | |
53 | $ | |
54 | $ USAGE: | |
55 | $ TYPE SYS$INPUT | |
56 | $ DECK | |
57 | usage: @config [options] | |
58 | ||
59 | 32 build with 32-bit pointer size | |
60 | 64 build with 64-bit pointer size | |
61 | DEBUG build with debugging | |
62 | HELP this text | |
63 | ||
64 | Any other option is simply passed to Configure. | |
65 | $ EOD |