Rethink the uplink / applink story
[openssl.git] / config.com
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
20 $           P = F$EDIT(P1,"TRIM,LOWERCASE")
21 $           IF P .EQS. "help" THEN GOTO USAGE
22 $           IF P .EQS. "32"
23 $           THEN
24 $               pointer_size = "-P32"
25 $               P = ""
26 $           ENDIF
27 $           IF P .EQS. "64"
28 $           THEN
29 $               pointer_size = "-P64"
30 $               P = ""
31 $           ENDIF
32 $           IF P .EQS. "debug"
33 $           THEN
34 $               debug = "--debug"
35 $               P = ""
36 $           ENDIF
37 $           IF P .NES. "" THEN -
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