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