configure.com

   1 $ sav_ver = 'F$VERIFY(0)'
   2 $! SET VERIFY
   3 $!
   4 $! Installation and usage: COPY this file into you perl source tree - at or
   5 $! below where the main MANIFEST. file is located.
   6 $!
   7 $! For example, if you unpacked perl into: [USER.PERL5_00n...] then you will
   8 $! want to:
   9 $!
  10 $! $ COPY Configure.com [USER.PERL5_00n.VMS]
  11 $!
  12 $! Now cd into the tree and execute Configure:
  13 $!
  14 $! $ SET DEFAULT [USER.PERL5_00n]
  15 $! $ @[.vms]Configure
  16 $!
  17 $! or
  18 $!
  19 $! $ SET DEFAULT [USER.PERL5_00n]
  20 $! $ @[.vms]Configure "-des"
  21 $!
  22 $! That's it. If you get into a bind trying to build perl on VMS then
  23 $! definitely read through the README.VMS file.
  24 $! Beyond that send email to VMSPerl@cor.newman.upenn.edu
  25 $!
  26 $! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  27 $!
  28 $! send suggestions to:
  29 $!  Dan Sugalski <sugalskd@ous.edu>
  30 $! Thank you!!!!
  31 $!
  32 $! Adapted and converted from Larry Wall & Andy Dougherty's
  33 $! "Configure generated by metaconfig 3.0 PL60." by Peter Prymmer
  34 $! (a Bourne sh[ell] script for configuring the installation of perl on VMS)
  35 $! in the perl5.002|3 epoch (spring/summer 1996)
  36 $! with much valuable help from Charles Bailey &
  37 $! the whole VMSPerl crew.
  38 $! Extended and messed about with by Dan Sugalski
  39 $!
  40 $! SET NOVERIFY
  41 $ sav_ver = F$VERIFY(sav_ver)
  42 $!
  43 $! VMS-isms we will need:
  44 $ echo = "write sys$output "
  45 $ cat  = "type"
  46 $ gcc_symbol = "gcc"
  47 $ ans = ""
  48 $ macros = ""
  49 $ use_debugging_perl = "Y"
  50 $ C_Compiler_Replace = "CC="
  51 $ Thread_Live_Dangerously = "MT="
  52 $ use_two_pot_malloc = "N"
  53 $ use_pack_malloc = "N"
  54 $ use_debugmalloc = "N"
  55 $ preload_env = "N"
  56 $ vms_default_directory_name = F$ENVIRONMENT("DEFAULT")
  57 $! max_allowed_dir_depth = 3  ! e.g. [A.B.PERL5_00n] not [A.B.C.PERL5_00n]
  58 $ max_allowed_dir_depth = 2  ! e.g. [FOO.PERL5_00n] not [FOO.BAR.PERL5_00n]
  59 $!
  60 $ vms_filcnt = F$GETJPI ("","FILCNT")
  61 $!
  62 $!: compute my invocation name
  63 $ me = F$ENVIRONMENT("PROCEDURE")
  64 $!
  65 $! Many null statements (begin with colon ':') in the Bourne shell version of
  66 $! this script serve as comments/placeholders. I have retained some of the ones
  67 $! that will help you compare this .COM file to the sh version - as well as
  68 $! leave placeholders for future improvements to this .COM file.
  69 $! sfn = VMS "skipped for now"
  70 $!
  71 $!: Proper PATH separator                              !sfn
  72 $!: Proper PATH setting                                !sfn
  73 $!: Sanity checks                                      !sfn "Say '@''$me''"
  74 $!: On HP-UX, large Configure scripts may exercise a bug in /bin/sh !sfn
  75 $!: Configure runs within the UU subdirectory          !->after find MANIFEST
  76 $!   <big long list of default values (mostly null)>
  77 $!: We must find out about Eunice early                !(?)
  78 $!: list of known cpp symbols, sorted alphabetically   !sfn
  79 $!   al = al + "..."
  80 $!: default library list                               !sfn
  81 $!   <no hints files in use (yet?)>
  82 $!: Extra object files, if any, needed on this platform. !sfn
  83 $!: Possible local include directories to search.      !sfn
  84 $!: Set locincpth to "" in a hint file to defeat local include searches. !sfn
  85 $!locincpth="/usr/local/include /opt/local/include /usr/gnu/include" !sfn
  86 $!locincpth="$locincpth /opt/gnu/include /usr/GNU/include /opt/GNU/include"
  87 $!: no include file wanted by default                  !sfn
  88 $!inclwanted=''                                        !sfn
  89 $!: Possible local library directories to search.      !sfn
  90 $!loclibpth="/usr/local/lib /opt/local/lib /usr/gnu/lib" !sfn
  91 $!loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib" !sfn
  92 $!: general looking path for locating libraries        !sfn
  93 $!glibpth="/lib/pa1.1 /usr/shlib /usr/lib/large /lib /usr/lib" !sfn
  94 $!glibpth="$glibpth $xlibpth /lib/large /usr/lib/small /lib/small" !sfn
  95 $!glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/shlib" !sfn
  96 $!: Private path used by Configure to find libraries.  Its value !sfn
  97 $!: is prepended to libpth. This variable takes care of special !sfn
  98 $!: machines, like the mips.  Usually, it should be empty. !sfn
  99 $!plibpth=''                                           !sfn
 100 $!: full support for void wanted by default            !sfn
 101 $!defvoidused=15                                       !sfn
 102 $!: List of libraries we want.                         !sfn
 103 $!libswanted='net socket inet nsl nm ndbm gdbm dbm db malloc dl' !sfn
 104 $!libswanted="$libswanted dld ld sun m c cposix posix ndir dir crypt" !sfn
 105 $!libswanted="$libswanted ucb bsd BSD PW x"            !sfn
 106 $!: We probably want to search /usr/shlib before most other libraries. !sfn
 107 $!: This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist. !sfn
 108 $!glibpth=`echo " $glibpth " | sed -e 's! /usr/shlib ! !'` !sfn
 109 $!glibpth="/usr/shlib $glibpth"                        !sfn
 110 $!: Do not use vfork unless overridden by a hint file. !sfn
 111 $!usevfork=false                                       !sfn
 112 $!: script used to extract .SH files with variable substitutions !sfn
 113 $!: produce awk script to parse command line options   !sfn
 114 $!sfn (assume no sed awk) see below
 115 $!: process the command line options
 116 $!
 117 $!: set up default values
 118 $ fastread=""
 119 $ reuseval="false"
 120 $ config_sh=""
 121 $ alldone=""
 122 $ error=""
 123 $ silent=""
 124 $ extractsh=""
 125 $ override=""
 126 $ knowitall=""
 127 $ Using_Dec_C = ""
 128 $ Using_Vax_C = ""
 129 $ Using_Gnu_C = ""
 130 $ Dec_C_Version = ""
 131 $ use_threads = "F"
 132 $!
 133 $!: option parsing
 134 $ IF (P1 .NES. "")
 135 $ THEN            !one or more switches was thrown
 136 $   i = 1
 137 $   bang = 0
 138 $Param_loop:
 139 $   IF (P'i'.NES."") THEN bang = bang + 1
 140 $   i = i + 1
 141 $   IF (i.LT.9) THEN GOTO Param_loop !DCL allows P1..P8
 142 $!
 143 $   i = 1
 144 $Opt_loop:
 145 $   IF (F$EXTRACT(0,1,P'i') .EQS. "-") THEN P'i' = P'i' - "-"
 146 $   IF (F$EXTRACT(0,1,P'i') .EQS. "/") THEN P'i' = P'i' - "/"
 147 $Remove_quotation_mark:
 148 $   P'i' = P'i' - """"
 149 $   IF F$LOCATE("""",P'i') .LT. F$LENGTH(P'i') THEN GOTO Remove_quotation_mark
 150 $   gotopt      = "f" !"alse"
 151 $   gotshortopt = "f" !"alse"
 152 $   IF (F$EXTRACT(0,1,P'i') .EQS. "d")
 153 $   THEN
 154 $     fastread    = "yes"
 155 $     gotopt      = "t" !"rue"
 156 $     P'i'        = P'i' - "d"
 157 $     gotshortopt = "t" !"rue"
 158 $   ENDIF
 159 $   IF (F$EXTRACT(0,1,P'i') .EQS. "e")
 160 $   THEN
 161 $     alldone = "cont"
 162 $     gotopt = "t"
 163 $     P'i' = P'i' - "e"
 164 $     gotshortopt = "t"
 165 $   ENDIF
 166 $   IF (F$EXTRACT(0,1,P'i') .EQS. "f") !"-f")
 167 $   THEN
 168 $     P'i' = P'i' - "f"
 169 $     config_sh = P'i'
 170 $     IF (F$SEARCH(config_sh).NES."")
 171 $     THEN
 172 $       test = F$FILE_ATTRIBUTES(config_sh,"PRO")
 173 $       IF (F$LOCATE("R",test).NE.F$LENGTH(test))
 174 $       THEN
 175 $         CONTINUE !at this point check UIC && if test allows...
 176 $                  !to be continued ?
 177 $       ELSE
 178 $         echo "''me': cannot read config file ''config_sh'."
 179 $         error="true"
 180 $       ENDIF
 181 $     ELSE
 182 $       echo "''me': cannot read config file ''config_sh'."
 183 $       error="true"
 184 $     ENDIF
 185 $     gotopt = "t"
 186 $   ENDIF
 187 $   IF (F$EXTRACT(0,1,P'i') .EQS. "h")
 188 $   THEN
 189 $     error = "true"
 190 $     gotopt = "t"
 191 $     P'i' = P'i' - "h"
 192 $     gotshortopt = "t"
 193 $   ENDIF
 194 $   IF (F$EXTRACT(0,1,P'i') .EQS. "r")
 195 $   THEN
 196 $     reuseval = "true"
 197 $     gotopt = "t"
 198 $     P'i' = P'i' - "r"
 199 $     gotshortopt = "t"
 200 $   ENDIF
 201 $   IF (F$EXTRACT(0,1,P'i') .EQS. "s")
 202 $   THEN
 203 $     silent = "true"
 204 $     gotopt = "t"
 205 $     P'i' = P'i' - "s"
 206 $     gotshortopt = "t"
 207 $   ENDIF
 208 $   IF (F$EXTRACT(0,1,P'i') .EQS. "E") !"-E")
 209 $   THEN
 210 $     alldone = "exit"
 211 $     gotopt = "t"
 212 $   ENDIF
 213 $   IF (F$EXTRACT(0,1,P'i') .EQS. "K") !"-K")
 214 $   THEN
 215 $     knowitall = "true"
 216 $     gotopt = "t"
 217 $     P'i' = P'i' - "K"
 218 $     gotshortopt = "t"
 219 $   ENDIF
 220 $   IF (F$EXTRACT(0,1,P'i') .EQS. "O")
 221 $   THEN
 222 $     override = "true"
 223 $     gotopt = "t"
 224 $     P'i' = P'i' - "O"
 225 $     gotshortopt = "t"
 226 $   ENDIF
 227 $   IF (F$EXTRACT(0,1,P'i') .EQS. "S") !"-S")
 228 $   THEN
 229 $     extractsh = "true" !VMS?
 230 $     gotopt = "t"
 231 $     P'i' = P'i' - "S"
 232 $     gotshortopt = "t"
 233 $   ENDIF
 234 $   IF (F$EXTRACT(0,1,P'i') .EQS. "D") !"-D")
 235 $   THEN
 236 $     P'i' = P'i' - "D"
 237 $!Hmm.. this part needs work
 238 $!       P'i'
 239 $     IF (F$LOCATE("=",P'i') .EQ. F$LENGTH(P'i'))
 240 $     THEN
 241 $       P'i' = "define"
 242 $     ELSE
 243 $       IF (F$LOCATE("=",P'i') .EQ. (F$LENGTH(P'i') - 1))
 244 $       THEN
 245 $         me = F$PARSE(me,,,"NAME") + F$PARSE(me,,,"TYPE")
 246 $         echo "''me': use '-Usymbol=val' not '-Dsymbol='."
 247 $         echo "''me': ignoring -D",P'i'
 248 $       ELSE
 249 $!Hmm.. this part needs work
 250 $!           'F$EXTRACT(0,F$LOCATE("=",P'i'),P'i')' = -
 251 $! 'F$EXTRACT(F$LOCATE("=",P'i'),P'i'),F$LENGTH(P'i'),P'i')'
 252 $       ENDIF
 253 $     ENDIF
 254 $     ECHO "P''i' =>",P'i',"<="  !Diag
 255 $     gotopt = "t"
 256 $   ENDIF
 257 $   IF (F$EXTRACT(0,1,P'i') .EQS. "U") !"-U")
 258 $   THEN
 259 $     P'i' = P'i' - "U"
 260 $     IF (F$LOCATE("=",P'i') .EQ. F$LENGTH(P'i'))
 261 $     THEN
 262 $       P'i' = ""
 263 $     ELSE
 264 $       IF (F$LOCATE("=",P'i') .LT. (F$LENGTH(P'i') - 1))
 265 $       THEN
 266 $         me = F$PARSE(me,,,"NAME") + F$PARSE(me,,,"TYPE")
 267 $         echo "''me': use '-Dsymbol=val' not '-Usymbol=val'."
 268 $         echo "''me': ignoring -U",P'i'
 269 $       ELSE
 270 $         P'i' = "undef"
 271 $       ENDIF
 272 $     ENDIF
 273 $     ECHO "P''i' =>",P'i',"<="  !Diag
 274 $     gotopt = "t"
 275 $   ENDIF
 276 $   IF (F$EXTRACT(0,1,P'i') .EQS. "V")
 277 $   THEN
 278 $     me = F$PARSE(me,,,"NAME") + F$PARSE(me,,,"TYPE")
 279 $     echo "''me' generated by an unknown version of EDT."
 280 $     STOP
 281 $     EXIT !0
 282 $   ENDIF
 283 $   IF .NOT.gotopt
 284 $   THEN
 285 $     echo "''me': unknown option ",P'i'
 286 $     error = "true"
 287 $   ENDIF
 288 $   IF (F$LENGTH(P'i').GT.0).AND.(gotshortopt) THEN i = i - 1 !clustered switch
 289 $   i = i + 1
 290 $   IF (i .LT. (bang + 1)) THEN GOTO Opt_loop
 291 $!
 292 $ ENDIF  ! (P1 .NES. "")
 293 $!
 294 $ IF (error)
 295 $ THEN
 296 $   me = F$PARSE(me,,,"DIRECTORY")+ F$PARSE(me,,,"NAME")
 297 $   echo "Usage: @''me' [-dehrEKOSV] [-fconfig.sh] [-Dsymbol] [-Dsymbol=value]"
 298 $   echo "                [-Usymbol] [-Usymbol=]"
 299 $   TYPE SYS$INPUT
 300  "-d" : use defaults for all answers.
 301  "-e" : go on without questioning past the production of config.sh.    *
 302  "-f" : specify an alternate default configuration file.
 303  "-h" : print this help message and exit (with an error status).
 304  "-r" : reuse C symbols value if possible (skips costly nm extraction).*
 305  "-s" : silent mode, only echoes questions and essential information.
 306  -"D" : define symbol to have some value:                              *
 307          -"Dsymbol"         symbol gets the value 'define'
 308          -"Dsymbol=value"   symbol gets the value 'value'
 309   -E  : stop at the end of questions, after having produced config.sh. *
 310   -K  : do not use unless you know what you are doing.
 311   -O  : let -D and -U override definitions from loaded configuration file. *
 312   -S  : perform variable substitutions on all .SH files (can mix with -f) *
 313  -"U" : undefine symbol:                                               *
 314          -"Usymbol"    symbol gets the value 'undef'
 315          -"Usymbol="   symbol gets completely empty
 316   -V  : print version number and exit (with a zero status).
 317 $   echo "%Config-I-VMS, lower case switches must be enclosed"
 318 $   echo "-Config-I-VMS, in double quotation marks, e.g.:"
 319 $   echo "-Config-I-VMS,   @Configure ""-des"""
 320 $   echo "-Config-I-VMS, * indicates switch may not be fully implemented for VMS."
 321 $   SET DEFAULT 'vms_default_directory_name' !be kind rewind
 322 $   STOP
 323 $   EXIT 3 ! $STATUS = "%X00000003" (informational)
 324 $ ENDIF
 325 $!
 326 $ GOTO Check_silence
 327 $!
 328 $Shut_up:
 329 $ STDOUT = F$TRNLNM("SYS$OUTPUT")
 330 $ DEFINE SYS$OUTPUT "_NLA0:"
 331 $ echo4 = "write STDOUT "
 332 $ cat4 = "TYPE/OUTPUT=''STDOUT'"
 333 $ open/write STDOUT 'STDOUT'
 334 $ RETURN
 335 $!
 336 $Check_silence:
 337 $ IF (silent)
 338 $ THEN
 339 $   GOSUB Shut_up
 340 $ ELSE
 341 $   echo4 = "write SYS$OUTPUT "
 342 $   cat4 = "TYPE"
 343 $ ENDIF
 344 $!
 345 $!: run the defines and the undefines, if any, but leave the file out there...
 346 $! Unfortunately Configure.COM in DCL is not yet set up to do this -
 347 $! maybe someday
 348 $!
 349 $!: set package name
 350 $ package = "perl5"
 351 $!
 352 $!: Eunice requires " " instead of "", can you believe it
 353 $ echo ""
 354 $!: Here we go...
 355 $ echo "Beginning of configuration questions for ''package'."
 356 $ echo ""
 357 $!
 358 $!: Some greps do not return status, grrr.
 359 $ contains = "SEARCH"
 360 $!
 361 $!: first determine how to suppress newline on echo command !cant DCL is record oriented
 362 $! echo "Checking ''echo' to see how to suppress newlines..."
 363 $! echo "giving up..."
 364 $! echo "The star should be here-->*"
 365 $!
 366 $!: Now test for existence of everything in MANIFEST
 367 $ echo ""
 368 $ echo4 "First let's make sure your kit is complete.  Checking..."
 369 $ manifestfound = ""
 370 $ miss_list = ""
 371 $! Here I assume we are in the [foo.PERL5xxx.VMS...] tree
 372 $! because the search routine simply does set def [-] if necessary.
 373 $ file_2_find = "MANIFEST" !I hope this one is not in [foo.PERL5xxx.VMS...]
 374 $Research_manifest:
 375 $ manifestfound = F$SEARCH(file_2_find)
 376 $ IF (manifestfound .EQS. "")
 377 $ THEN
 378 $   IF F$PARSE(F$ENVIRONMENT("DEFAULT"),,,"DIRECTORY",).NES."[000000]"
 379 $   THEN
 380 $     SET DEFAULT [-]
 381 $     GOTO Research_manifest
 382 $   ELSE
 383 $     echo ""
 384 $     echo "There is no MANIFEST file.  I hope your kit is complete !"
 385 $     miss_list = ""
 386 $     GOTO Beyond_manifest
 387 $   ENDIF
 388 $ ELSE
 389 $! MANIFEST. has been found and we have set def'ed there -
 390 $! time to bail out before it's too late.
 391 $   IF (F$ELEMENT(max_allowed_dir_depth,".",F$ENVIRONMENT("Default")).nes.".")
 392 $   THEN
 393 $     TYPE SYS$INPUT:
 394 %Config-E-VMS, ERROR:
 395  Sorry! It apears as though your perl build sub-directory is already too
 396  deep into the VMS file system. Please try moving stuff into a shallower
 397  directory (or altering the "max_allowed_dir_depth" parameter).
 398 $     echo4 "ABORTING..."
 399 $     SET DEFAULT 'vms_default_directory_name' !be kind rewind
 400 $     STOP
 401 $     EXIT !2 !$STATUS = "%X00000002" (error)
 402 $   ENDIF
 403 $!
 404 $! after finding MANIFEST let's create (but not yet enter) the UU subdirectory
 405 $!
 406 $   IF (manifestfound .NES. "")
 407 $   THEN
 408 $     IF ( F$SEARCH("UU.DIR").EQS."" )
 409 $     THEN
 410 $       CREATE/DIRECTORY [.UU]
 411 $     ELSE
 412 $       IF ( F$SEARCH("[.UU]*.*").NES."" ) THEN DELETE/NOLOG [.UU]*.*;*
 413 $     ENDIF
 414 $!: Configure runs within the UU subdirectory
 415 $     SET DEFAULT [.UU]
 416 $!
 417 $! a little redundancy never hurt anybody?
 418 $     file_2_find = "[-]" + file_2_find
 419 $     manifestfound = F$SEARCH(file_2_find)
 420 $!
 421 $     OPEN/WRITE MISSING MISSING.
 422 $!change to "FALSE" if you wish to skip the manifest search
 423 $!(which after all is rather slow in DCL :-)
 424 $     IF ("TRUE")
 425 $     THEN
 426 $       OPEN/READ CONFIG 'manifestfound'
 427 $Read_loop_manifest:
 428 $       READ/END_OF_FILE = Done_manifest CONFIG line
 429 $! This algorithm turns "foo/bar/baz.c" into "[.foo.bar]baz.c"
 430 $! pvhp@lns62.lns.cornell.edu 10-JUN-1996 20:31:46
 431 $! 2-MAR-1998 15:46:11 Improved to turn "foo/bar/baz.c.buz"
 432 $! into "[.foo.bar]baz.c_buz as happens with vmstar and unzip
 433 $       line = F$EDIT(line,"TRIM, COMPRESS")
 434 $       file_2_find = F$EXTRACT(0,F$LOCATE(" ",line),line)
 435 $       IF F$LOCATE("/",file_2_find) .NE. F$LENGTH(file_2_find)
 436 $       THEN
 437 $Re_strip_line_manifest:
 438 $         loca = F$LOCATE("/",file_2_find)
 439 $         ante = F$EXTRACT(0,loca,file_2_find)
 440 $         post = F$EXTRACT(loca,F$LENGTH(file_2_find),file_2_find)
 441 $         test_this = ante + "." + (post - "/")
 442 $         IF F$LOCATE("/",test_this) .NE. F$LENGTH(test_this)
 443 $         THEN
 444 $           file_2_find = ante + "." + (post - "/")
 445 $           GOTO Re_strip_line_manifest
 446 $         ELSE
 447 $           file_2_find = ante + "]" + (post - "/")
 448 $         ENDIF
 449 $           file_2_find = "[-."+file_2_find
 450 $       ELSE
 451 $         file_2_find = "[-]" + file_2_find
 452 $       ENDIF
 453 $!
 454 $       dirname = F$EXTRACT(0,F$LOCATE("]",file_2_find),file_2_find) + "]"
 455 $       file_2_find = file_2_find - dirname
 456 $       dots = 0
 457 $Dot_loop:
 458 $       dot_ele = F$ELEMENT(dots,".",file_2_find)
 459 $       IF dot_ele .EQS. "." THEN GOTO Eo_dot_loop
 460 $       IF dots .eq. 0
 461 $       THEN basename = f$extract(0,f$locate(".",file_2_find),file_2_find) + "."
 462 $       ELSE basename = basename + dot_ele + "_"
 463 $       ENDIF
 464 $       dots = dots + 1
 465 $       GOTO dot_loop
 466 $Eo_dot_loop:
 467 $       IF (((f$length(file_2_find)+1) .eq. f$length(basename)) .and. -
 468              (f$extract(f$length(basename)-1,1,basename) .eqs. "_")) THEN -
 469           basename = f$extract(0,f$length(basename)-1,basename)
 470 $       file_2_find = dirname + basename
 471 $!
 472 $       found = F$SEARCH(file_2_find)
 473 $       IF (found .EQS. "")
 474 $       THEN
 475 $         WRITE MISSING file_2_find
 476 $         IF ((F$LENGTH(miss_list)+F$LENGTH(file_2_find)).LT.250)
 477 $         THEN
 478 $           miss_list = miss_list + "," + file_2_find
 479 $         ENDIF
 480 $       ENDIF
 481 $       GOTO Read_loop_manifest
 482 $Done_manifest:
 483 $       CLOSE CONFIG
 484 $     ENDIF  !"TRUE"
 485 $     CLOSE MISSING
 486 $   ENDIF ! (manifestfound .NES. "")
 487 $Beyond_manifest:
 488 $   IF (miss_list .NES. "")
 489 $   THEN
 490 $     echo "Some of the files not found include:"
 491 $     cat4 MISSING.
 492 $   ENDIF
 493 $   IF ((miss_list .NES. "").OR.(manifestfound .EQS. ""))
 494 $   THEN
 495 $     TYPE SYS$INPUT:
 496
 497 THIS PACKAGE SEEMS TO BE INCOMPLETE.
 498
 499 You have the option of continuing the configuration process, despite the
 500 distinct possibility that your kit is damaged, by typing 'y'es.  If you
 501 do, don't blame me if something goes wrong.  I advise you to type 'n'o
 502 and contact the author (sugalskd@ous.edu).
 503
 504 $     READ SYS$COMMAND/PROMPT="Continue? [n] " ans
 505 $     IF ans
 506 $     THEN
 507 $       echo4 "Continuing..."
 508 $     ELSE
 509 $       echo4 "ABORTING..."
 510 $       GOTO Clean_up
 511 $     ENDIF
 512 $   ELSE
 513 $     echo4 "Looks good..."
 514 $     DELETE/NOLOG MISSING.;
 515 $   ENDIF ! (miss_list .NES. "")
 516 $ ENDIF   ! (manifestfound .EQS. "") ELSE
 517 $!
 518 $! after finding MANIFEST (see above)
 519 $!: Configure runs within the UU subdirectory
 520 $!
 521 $!: compute the number of columns on the terminal for proper question formatting
 522 $! (sfn, will assume 80-ish)
 523 $!
 524 $!: set up the echo used in my read              !sfn
 525 $!: now set up to do reads with possible shell escape and default assignment !sfn
 526 $ GOTO Beyond_myread
 527 $!
 528 $myread:
 529 $ ans = ""
 530 $ If (fastread)
 531 $ Then
 532 $   echo4 "''rp'"
 533 $ Else
 534 $   If (silent)
 535 $   Then
 536 $     READ SYS$COMMAND/PROMPT="''rp'" ans
 537 $   Else
 538 $     echo ""
 539 $     READ SYS$COMMAND/PROMPT="''rp'" ans
 540 $   Endif
 541 $ Endif
 542 $ RETURN
 543 $!
 544 $Beyond_myread:
 545 $!
 546 $!: create .config dir to save info across Configure sessions
 547 $ IF ( F$SEARCH("[-]CONFIG.DIR").EQS."" )
 548 $ THEN
 549 $   CREATE/DIRECTORY [-.CONFIG]
 550 $   OPEN/WRITE CONFIG [-.CONFIG]README.
 551 $   WRITE CONFIG -
 552       "This directory created by Configure to save information that should"
 553 $   WRITE CONFIG -
 554       "persist across sessions."
 555 $   WRITE CONFIG ""
 556 $   WRITE CONFIG -
 557       "You may safely delete it if you wish."
 558 $   CLOSE CONFIG
 559 $ ENDIF
 560 $!
 561 $!: general instructions
 562 $ needman = "true"
 563 $ firsttime = "true"
 564 $ user = F$EDIT(F$GETJPI("","USERNAME"),"TRIM,COLLAPSE")
 565 $ IF .NOT.(F$SEARCH("[-.CONFIG]INSTRUCT.").EQS."")
 566 $ THEN
 567 $   messages = F$ENVIRONMENT("MESSAGE")
 568 $   SET MESSAGE/NOFAC/NOSEV/NOIDENT/NOTEXT !sorry :-(
 569 $   contains /NOOUTPUT [-.CONFIG]INSTRUCT. 'user'
 570 $   IF .NOT.($status.EQ.%X08D78053)
 571 $   THEN
 572 $     firsttime=""
 573 $     dflt = "n"
 574 $     rp = "Would you like to see the instructions? [''dflt'] "
 575 $     GOSUB myread
 576 $     if .NOT.ans THEN needman=""
 577 $   ENDIF
 578 $   SET MESSAGE 'messages'                 !hope you made it here :-)
 579 $ ENDIF
 580 $ if (fastread.AND.silent.AND.(alldone.eqs."cont")) THEN needman=""
 581 $!
 582 $ IF (needman)
 583 $ THEN
 584 $   TYPE SYS$INPUT:
 585
 586 This installation shell script will examine your system and ask you questions
 587 to determine how the perl5 package should be installed. If you get
 588 stuck on a question, you may use a ^C or ^Y shell escape to STOP this
 589 process, edit something, then restart this process as you just did.
 590 Many of the questions will have default answers in square
 591 brackets; typing carriage return will give you the default.
 592
 593 $   READ SYS$COMMAND/PROMPT="Type carriage return to continue " ans
 594 $   TYPE SYS$INPUT:
 595
 596 In a hurry? You may run '@Configure -d'.  This will bypass nearly all
 597 the questions and use the computed defaults (or the previous answers provided
 598 there was already a config.sh file). Type '@Configure -h' for a list of
 599 options.
 600
 601 $   READ SYS$COMMAND/PROMPT="Type carriage return to continue " ans
 602 $   TYPE SYS$INPUT:
 603
 604 Much effort has been expended to ensure that this shell script will
 605 run on any VMS system.  If despite that it blows up on yours, your
 606 best bet is to edit Configure.com and @ it again.  Whatever problems
 607 you have with Configure.com, let me (sugalskd@ous.edu) know how I blew
 608 it.
 609
 610 $!This installation script affects things in two ways:
 611 $!
 612 $!1) it may do direct variable substitutions on some of the files included
 613 $!   in this kit.
 614 $!2) it builds a config.h file for inclusion in C programs.  You may edit
 615 $!   any of these files as the need arises after running this script.
 616 $!
 617 $!If you make a mistake on a question, there is no easy way to back up to it
 618 $!currently.
 619 $!
 620 $   READ SYS$COMMAND/PROMPT="Type carriage return to continue " ans
 621 $   IF (F$SEARCH("[-.CONFIG]INSTRUCT.").EQS."")
 622 $   THEN
 623 $     OPEN/WRITE CONFIG [-.CONFIG]INSTRUCT.
 624 $     WRITE CONFIG user
 625 $     CLOSE CONFIG
 626 $   ENDIF
 627 $ ENDIF  !(needman .EQS. "true")
 628 $!
 629 $!: see if sh knows # comments             !sfn
 630 $ sharpbang = "$ "
 631 $!: figure out how to guarantee sh startup !sfn
 632 $!: find out where common programs are     !sfn
 633 $!loclist="awk/cat/comm/cp/echo/expr/find/grep/ln/ls/mkdir/rm/sed/sort/touch/tr/uniq"
 634 $!trylist="Mcc/byacc/cpp/csh/date/egrep/less/line/more/nroff/perl/pg/sendmail/test/uname"
 635 $! echo "I don't know where '$file' is, and my life depends on it."
 636 $! echo "Go find a public domain implementation or fix your PATH setting!"
 637 $! echo ""
 638 $! echo "Don't worry if any of the following aren't found..."
 639 $!: determine whether symbolic links are supported !sfn
 640 $!: see whether [:lower:] and [:upper:] are supported character classes !sfn
 641 $!: set up the translation script tr, must be called with ./tr of course !sfn
 642 $!
 643 $!: Try to determine whether config.sh was made on this system
 644 $!: Get old answers from old config file if Configure was run on the
 645 $!: same system, otherwise use the hints.
 646 $ config_sh_es = "''config_sh'/[-]config.sh/[-.vms]config.vms/"
 647 $ i = 0
 648 $ max = 3
 649 $Config_sh_look:
 650 $ config_sh = F$ELEMENT(i,"/",config_sh_es)
 651 $ i = i + 1
 652 $ IF (config_sh.NES."/").AND.(config_sh.NES."")
 653 $ THEN
 654 $   configshfound = F$SEARCH(config_sh)
 655 $   IF (configshfound.NES."") THEN GOTO Config_sh_found
 656 $ ENDIF
 657 $ IF (i.LT.max) THEN GOTO Config_sh_look
 658 $ IF (configshfound.EQS."") THEN GOTO Beyond_config_sh
 659 $Config_sh_found:
 660 $ echo ""
 661 $ echo "Fetching default answers from ''config_sh'..."
 662 $!we actually do not have "hints/" for VMS
 663 $!     TYPE SYS$INPUT:
 664 $!
 665 $!First time through, eh?  I have some defaults handy for the following systems:
 666 $!
 667 $!     echo "     ","VMS_VAX"
 668 $!     echo "     ","VMS_AXP"
 669 $!        : Now look for a hint file osname_osvers, unless one has been
 670 $!        : specified already.
 671 $!     TYPE SYS$INPUT:
 672 $!
 673 $!You may give one or more space-separated answers, or "none" if appropriate.
 674 $!If your OS version has no hints, DO NOT give a wrong version -- say "none".
 675 $!
 676 $!     READ SYS$COMMAND/PROMPT="Which of these apply, if any? " ans
 677 $!
 678 $Beyond_config_sh:
 679 $!
 680 $!: Restore computed paths          !sfn
 681 $!
 682 $! genconfig.pl has "osname='VMS'"
 683 $ osname = F$EDIT(F$GETSYI("NODE_SWTYPE"),"COLLAPSE")
 684 $! %Config-I-VMS, a necessary error trap (could be PC running VCL)
 685 $!
 686 $ IF (osname .NES. "VMS")
 687 $ THEN
 688 $   echo4 "Hmm.. I wonder what ''osname' is (?)"
 689 $   TYPE SYS$INPUT:
 690
 691 %Config-E-VMS, ERROR:
 692
 693            Err, you do not appear to be running VMS!
 694  This package is intended to Configure the building of Perl for VMS.
 695
 696 $   READ SYS$COMMAND/PROMPT="Continue anyway? [n] " ans
 697 $   IF ans
 698 $   THEN
 699 $     echo4 "Continuing..."
 700 $   ELSE
 701 $     echo4 "ABORTING..."
 702 $     SET DEFAULT 'vms_default_directory_name' !be kind rewind
 703 $     STOP
 704 $     EXIT 2 !$STATUS = "%X00000002" (error)
 705 $   ENDIF
 706 $ ELSE           !we are on VMS huzzah!
 707 $   IF .NOT.silent
 708 $   THEN TYPE SYS$INPUT:
 709
 710 Configure uses the operating system name and version to set some defaults.
 711 The default value is probably right if the name rings a bell. Otherwise,
 712 since spelling matters for me, either accept the default or answer "none"
 713 to leave it blank.
 714 $   ENDIF
 715 $   rp = "Operating system name? [''osname'] "
 716 $   GOSUB myread
 717 $   IF ans.nes.""
 718 $   THEN
 719 $     IF (ans.NES.osname) !.AND.knowitall
 720 $     THEN
 721 $       echo4 "I'll go with ''osname' anyway..."
 722 $     ENDIF
 723 $   ENDIF
 724 $ ENDIF !(osname .NES./.EQS. "VMS")
 725 $!
 726 $!: who configured the system
 727 $! see 'user' above.
 728 $ cf_by = F$EDIT(user,"LOWERCASE")
 729 $! cf_time = F$CVTIME()                 !superceded by procedure below
 730 $ osvers = F$GETSYI("VERSION")
 731 $!
 732 $! Peter Prymmer has seen:
 733 $!  "SYS$TIMEZONE_DIFFERENTIAL" = "-46800"  (sic)
 734 $!  "SYS$TIME_ZONE" = "EDT"
 735 $!
 736 $! Charles Lane recommended:
 737 $!  "SYS$TIMEZONE_DIFFERENTIAL" = "-14400"
 738 $!  "NEWS_TIMEZONE" = "-0500"
 739 $!  "ST_TIMEZONE" = "EDT"
 740 $!  "JAN_TIME_ZONE" = "EST  "
 741 $!  "MULTINET_TIMEZONE" = "EST"
 742 $!  "DAYLIGHT_SAVINGS"  = "1"
 743 $!
 744 $! Charles Bailey recommends (in ANU NEWS Doc Jan 1995):
 745 $!   "PMDF_Timezone"
 746 $!   "Multinet_Timezone"
 747 $!   "TCPware_Timezone"
 748 $!   "WIN$Time_Zone"
 749 $!
 750 $! This snippet o' DCL returns a string in default Unix `date` format,
 751 $! and it will prompt to set SYS$TIMEZONE_DIFFERENTIAL.
 752 $! Peter Prymmer pvhp@lns62.lns.cornell.edu
 753 $!
 754 $ MIN_TZO = -840  !units are minutes here
 755 $ MAX_TZO =  840
 756 $!
 757 $ wkday  = F$EXTRACT(0,3,F$CVTIME(,,"WEEKDAY"))
 758 $ monn   = F$CVTIME(,,"MONTH")
 759 $ mday   = F$EXTRACT(8,2,F$CVTIME(,,"DATE"))
 760 $ hour   = F$CVTIME(,,"HOUR")
 761 $ min    = F$CVTIME(,,"MINUTE")
 762 $ sec    = F$CVTIME(,,"SECOND")
 763 $ year   = F$CVTIME(,,"YEAR")
 764 $!
 765 $ months = "/Jan/Feb/Mar/Apr/May/Jun/Jul/Aug/Sep/Oct/Nov/Dec/"
 766 $ i = 0
 767 $Mon_loop:
 768 $ i = i + 1
 769 $ mon = F$ELEMENT(i,"/",months)
 770 $ IF i.LT.monn THEN GOTO Mon_loop
 771 $!
 772 $ tzneedset = "t"
 773 $ systz = F$TRNLNM("SYS$TIMEZONE_DIFFERENTIAL")
 774 $ IF systz.NES.""
 775 $ THEN
 776 $   tzhour = F$INTEGER(systz)/3600
 777 $   tzmins = F$INTEGER(systz)/60
 778 $   tzminrem = tzmins - tzhour*60
 779 $   IF tzminrem.lt.0 THEN tzminrem = -1*tzminrem  !keeps !2ZL happy
 780 $   IF tzhour.ge.0
 781 $   THEN signothetime = "+"
 782 $     IF tzhour.EQ.0.AND.tzminrem.EQ.0
 783 $     THEN direction = "on GMT/"
 784 $     ELSE direction = "east of "
 785 $     ENDIF
 786 $   ELSE signothetime = "-"
 787 $     tzhour = -1*tzhour                          !keeps !UL happy
 788 $     direction = "west of "
 789 $   ENDIF
 790 $   echo ""
 791 $   echo "%Config-I-VMS,"
 792 $   echo "According to the setting of your ""SYS$TIMEZONE_DIFFERENTIAL"" (= ''systz')"
 793 $   IF tzminrem.ne.0
 794 $   THEN
 795 $     tzspan = "''tzhour' hours & ''tzminrem' minutes"
 796 $   ELSE
 797 $     tzspan = "''tzhour' hours"
 798 $   ENDIF
 799 $   dflt = "y"
 800 $   echo "Your system is ''tzspan' ''direction'UTC in England."
 801 $   rp = "%Config-I-VMS, (''systz') Is this UTC Time Zone Offset correct? [''dflt'] "
 802 $   GOSUB myread
 803 $   IF ans.OR.(ans.EQS."")
 804 $   THEN
 805 $     tzneedset = "f"
 806 $     tzd = systz
 807 $     GOTO Beyond_TimeZone
 808 $   ENDIF
 809 $ ELSE
 810 $   echo ""
 811 $   echo4 "%Config-I-VMS,"
 812 $   echo4 """SYS$TIMEZONE_DIFFERENTIAL"" does not appear to be DEFINEd on your system"
 813 $ ENDIF
 814 $!
 815 $TZSet:
 816 $ echo ""
 817 $ echo "Please tell me in hh:mm form what time offset from GMT/UTC in England"
 818 $ echo "you are. As an example Eastern (US) Standard Time is -5:00 offset, but"
 819 $ echo "Eastern Daylight Time (summer) is -4:00 offset."
 820 $ dflt = "0:00"
 821 $ rp = "Enter the Time Zone offset: [''dflt'] "
 822 $ GOSUB myread
 823 $ ans = F$Edit(ans,"collapse,trim,uncomment,upcase")
 824 $ IF ans.EQS."" THEN ans = dflt
 825 $ tzhour   = F$ELEMENT(0,":","''ans'") !first
 826 $ IF tzhour.EQS."" THEN tzhour = 0
 827 $ tzhour   = F$INTEGER(tzhour)
 828 $ tzminrem = F$ELEMENT(1,":","''ans'") !second
 829 $ IF tzminrem.NES.""
 830 $ THEN
 831 $   tzminrem = F$INTEGER(tzminrem)
 832 $   IF F$EXTRACT(0,1,"''ans'") .EQS. "-" THEN tzminrem = tzminrem * -1
 833 $ ELSE
 834 $   tzminrem = 0
 835 $ ENDIF
 836 $ tzmins = tzhour*60 + tzminrem
 837 $ tzd = F$STRING(tzmins*60)
 838 $ IF tzhour .GE. 0
 839 $ THEN
 840 $   signothetime = "+"
 841 $ ELSE
 842 $   tzhour = -1*tzhour       !keeps !UL happy
 843 $   signothetime = "-"
 844 $ ENDIF
 845 $ IF (tzmins.GT.MAX_TZO).OR.(tzmins.LT.MIN_TZO)
 846 $ THEN
 847 $   echo ""
 848 $   echo "%Config-W-VMS-TIMERANGE, Response must be in the range -14:00 to 14:00."
 849 $   goto TZSet
 850 $ ENDIF
 851 $!
 852 $Beyond_TimeZone:
 853 $ tz = f$fao("UTC!AS!UL:!2ZL",signothetime,tzhour,tzminrem)
 854 $ cf_time = "''wkday' ''mon' ''mday' ''hour':''min':''sec' ''tz' ''year'"
 855 $!
 856 $!: determine the architecture name
 857 $! genconfig.pl has either archname='VMS_AXP' or 'VMS_VAX'
 858 $!
 859 $ IF (F$GETSYI("HW_MODEL") .LT. 1024)
 860 $ THEN
 861 $   archname = "VMS_VAX"
 862 $ ELSE
 863 $   archname = "VMS_AXP"
 864 $ ENDIF
 865 $ rp = "What is your architecture name? [''archname'] "
 866 $ GOSUB myread
 867 $ IF ans.NES.""
 868 $ THEN
 869 $   ans = F$EDIT(ans,"COLLAPSE, UPCASE")
 870 $   IF (ans.NES.archname) !.AND.knowitall
 871 $   THEN
 872 $     echo4 "I'll go with ''archname' anyway..."
 873 $   ENDIF
 874 $ ENDIF
 875 $ IF (archname.EQS."VMS_AXP")
 876 $ THEN
 877 $   dflt = "N"
 878 $   rp = "Are you sharing your PERL_ROOT with a VAX? [''dflt'] "
 879 $   GOSUB myread
 880 $   if ans.NES.""
 881 $   THEN
 882 $     ans = F$EDIT(ans,"COLLAPSE, UPCASE")
 883 $   ENDIF
 884 $   IF (ans.NES."Y")
 885 $   THEN
 886 $     sharedperl = "N"
 887 $   ELSE
 888 $     sharedperl = "Y"
 889 $     macros = macros + """AXE=1"","
 890 $   ENDIF
 891 $ ELSE
 892 $   sharedperl = "N"
 893 $ ENDIF
 894 $!
 895 $!: is AFS running?                       !sfn
 896 $!: decide how portable to be.  Allow command line overrides. !sfn
 897 $!: set up shell script to do ~ expansion !sfn
 898 $!: expand filename                       !sfn
 899 $!: now set up to get a file name         !sfn
 900 $!
 901 $ vms_skip_install = "true"
 902 $ dflt = "y"
 903 $! echo ""
 904 $ rp = "%Config-I-VMS, Do you wish to skip the """"where install"""" questions? [''dflt'] "
 905 $ GOSUB myread
 906 $ IF (.NOT.ans).AND.(ans.NES."") THEN vms_skip_install = "false"
 907 $ prefix = F$ENVIRONMENT("DEFAULT") - ".UU]" + "]"
 908 $ prefix = f$parse(prefix,,,,"NO_CONCEAL") - "][" - ".;"
 909 $ prefix = prefix - "]" + ".]"
 910 $ IF (.NOT.vms_skip_install)
 911 $ THEN
 912 $!: determine root of directory hierarchy where package will be installed.
 913 $   dflt = "default"
 914 $   IF .NOT.silent
 915 $   THEN
 916 $     echo ""
 917 $     echo "By default, ''package' will be installed in ''dflt'/bin, manual"
 918 $     echo "pages under ''dflt'/man, etc..., i.e. with ''dflt' as prefix for"
 919 $     echo "all installation directories. Typically set to /usr/local, but you"
 920 $     echo "may choose /usr if you wish to install ''package' among your system
 921 $   ENDIF
 922 $   IF .NOT.silent
 923 $   THEN TYPE SYS$INPUT:
 924 binaries. If you wish to have binaries under /bin but manual pages
 925 under /usr/local/man, that's ok: you will be prompted separately
 926 for each of the installation directories, the prefix being only used
 927 to set the defaults.
 928 $   ENDIF
 929 $   dflt = prefix
 930 $   rp = "Installation prefix to use? [ ''dflt' ] "
 931 $   GOSUB myread
 932 $   IF ans.NES.""
 933 $   THEN
 934 $     prefix = ans
 935 $     IF F$LOCATE(".]",ans) .EQ. F$LENGTH(ans) THEN prefix = prefix - "]" + ".]"
 936 $   ELSE
 937 $     prefix = dflt
 938 $   ENDIF
 939 $!
 940 $!: set the prefixit variable, to compute a suitable default value
 941 $!
 942 $!: determine where private library files go
 943 $!: Usual default is /usr/local/lib/perl5.  Also allow things like
 944 $!: /opt/perl/lib, since /opt/perl/lib/perl5 would be redundant.
 945 $   IF .NOT.silent
 946 $   THEN TYPE SYS$INPUT:
 947
 948 There are some auxiliary files for perl5 that need to be put into a
 949 private library directory that is accessible by everyone.
 950 $   ENDIF
 951 $   dflt = prefix - ".]" + ".LIB]"
 952 $   rp = "Pathname where the private library files will reside? "
 953 $   rp = F$FAO("!AS!/!AS",rp,"[ ''dflt' ] ")
 954 $   GOSUB myread
 955 $   IF ans.NES.""
 956 $   THEN privlib = ans
 957 $   ELSE privlib = dflt
 958 $   ENDIF
 959 $!
 960 $ ENDIF !%Config-I-VMS, skip "where install" questions
 961 $!
 962 $!: set the base revision
 963 $ baserev="5.0"
 964 $!: get the patchlevel
 965 $ echo ""
 966 $ echo4 "Getting the current patchlevel..." !>&4
 967 $ patchlevel_h = F$SEARCH("[-]patchlevel.h")
 968 $ IF (patchlevel_h.NES."")
 969 $ THEN
 970 $   got_patch = "false"
 971 $   got_sub   = "false"
 972 $   OPEN/READONLY CONFIG 'patchlevel_h'
 973 $Patchlevel_h_loop:
 974 $   READ/END_Of_File=Close_patch CONFIG line
 975 $   IF ((F$LOCATE("#define PATCHLEVEL",line).NE.F$LENGTH(line)).AND.(.NOT.got_patch))
 976 $   THEN
 977 $     line = F$EDIT(line,"COMPRESS, TRIM")
 978 $     patchlevel = F$EXTRACT(18,F$LENGTH(line)-18,line)
 979 $     got_patch = "true"
 980 $   ENDIF
 981 $   IF ((F$LOCATE("SUBVERSION",line).NE.F$LENGTH(line)).AND.(.NOT.got_sub))
 982 $   THEN
 983 $     line = F$EDIT(line,"COMPRESS, TRIM")
 984 $     subversion = F$EXTRACT(18,F$LENGTH(line)-18,line)
 985 $     got_sub = "true"
 986 $   ENDIF
 987 $   IF (.NOT.got_patch).OR.(.NOT.got_sub) THEN GOTO Patchlevel_h_loop
 988 $Close_patch:
 989 $   CLOSE CONFIG
 990 $   ELSE
 991 $     patchlevel="0"
 992 $     subversion="0"
 993 $ ENDIF
 994 $ echo "(You have ''package' ''baserev' PL''patchlevel' sub''subversion'.)"
 995 $! This whole thing needs replacing w/ F$FAO() calls:
 996 $ patchlevel = F$INTEGER(patchlevel)
 997 $ IF patchlevel.LT.10
 998 $ THEN patchlevel = "00" + F$STRING(patchlevel)
 999 $ ELSE patchlevel = "0" + F$STRING(patchlevel)
1000 $ ENDIF
1001 $ subversion = F$INTEGER(subversion)
1002 $ IF subversion.GT.0
1003 $ THEN
1004 $   IF subversion.LT.10
1005 $   THEN subversion = "0" + F$STRING(subversion)
1006 $   ELSE subversion = F$STRING(subversion)
1007 $   ENDIF
1008 $ ELSE subversion = ""
1009 $ ENDIF
1010 $!
1011 $ version = F$EXTRACT(0,1,baserev) + "_" + patchlevel + subversion
1012 $!
1013 $ IF (.NOT.vms_skip_install)
1014 $ THEN
1015 $!: set the prefixup variable, to restore leading tilda escape !sfn
1016 $!: set the prefixup variable, to restore leading tilde escape !sfn
1017 $!
1018 $!: determine where public architecture dependent libraries go
1019 $   IF (.NOT.silent)
1020 $   THEN
1021 $     echo ""
1022 $     echo "''package' contains architecture-dependent library files.  If you are"
1023 $   ENDIF
1024 $   IF (.NOT.silent)
1025 $   THEN TYPE SYS$INPUT:
1026 sharing libraries in a heterogeneous environment, you might store
1027 these files in a separate location.  Otherwise, you can just include
1028 them with the rest of the public library files.
1029 $   ENDIF
1030 $   dflt = privlib - "]" + "." + archname + "." + version + "]"
1031 $   rp = "Where do you want to put the public architecture-dependent libraries? "
1032 $   rp = F$FAO("!AS!/!AS",rp,"[ ''dflt' ] ")
1033 $   GOSUB myread
1034 $   IF ans.NES.""
1035 $   THEN archlib = ans
1036 $   ELSE archlib = dflt
1037 $   ENDIF
1038 $!
1039 $!: set up the script used to warn in case of inconsistency !sfn
1040 $!: function used to set $1 to $val                         !sfn
1041 $!
1042 $ ENDIF !%Config-I-VMS, skip "where install" questions
1043 $! This quotation from Configure has to be included on VMS:
1044 $ TYPE SYS$INPUT:
1045
1046 There is, however, a strange, musty smell in the air that reminds me of
1047 something...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
1048 $ CONTINUE
1049 $ IF (.NOT.vms_skip_install)
1050 $ THEN
1051 $!: it so happens the Eunice I know will not run shell scripts in Unix format
1052 $!
1053 $!: see if setuid scripts can be secure           !sfn
1054 $!: now see if they want to do setuid emulation   !sfn
1055 $!
1056 $!: determine where site specific libraries go.
1057 $   IF .NOT.silent
1058 $   THEN TYPE SYS$INPUT:
1059
1060 The installation process will also create a directory for
1061 site-specific extensions and modules.  Some users find it convenient
1062 to place all local files in this directory rather than in the main
1063 distribution directory.
1064 $   ENDIF
1065 $   dflt = privlib - "]" + ".SITE_PERL]"
1066 $   rp = "Pathname for the site-specific library files? "
1067 $   rp = F$FAO("!AS!/!AS",rp,"[ ''dflt' ] ")
1068 $   GOSUB myread
1069 $   IF ans.NES.""
1070 $   THEN sitelib = ans
1071 $   ELSE sitelib = dflt
1072 $   ENDIF
1073 $!
1074 $!: determine where site specific architecture-dependent libraries go.
1075 $   IF .NOT.silent
1076 $   THEN TYPE SYS$INPUT:
1077
1078 The installation process will also create a directory for
1079 architecture-dependent site-specific extensions and modules.
1080 $   ENDIF
1081 $   dflt = sitelib - "]" + "." + archname + "]"
1082 $   rp = "Pathname for the site-specific architecture-dependent library files? "
1083 $   rp = F$FAO("!AS!/!AS",rp,"[ ''dflt' ] ")
1084 $   GOSUB myread
1085 $   IF ans.NES.""
1086 $   THEN sitearch = ans
1087 $   ELSE sitearch = dflt
1088 $   ENDIF
1089 $!
1090 $!: determine where old public architecture dependent libraries might be
1091 $!
1092 $!: determine where public executables go
1093 $   dflt = prefix - ".]" + ".BIN]"
1094 $   rp = "Pathname where the public executables will reside? "
1095 $   rp = F$FAO("!AS!/!AS",rp,"[ ''dflt' ] ")
1096 $   GOSUB myread
1097 $   IF ans.NES.""
1098 $   THEN bin = ans
1099 $   ELSE bin = dflt
1100 $   ENDIF
1101 $!
1102 $!: determine where manual pages are on this system
1103 $!: What suffix to use on installed man pages
1104 $!: see if we can have long filenames
1105 $!: determine where library module manual pages go
1106 $!: What suffix to use on installed man pages
1107 $!: see what memory models we can support
1108 $!
1109 $ ENDIF !%Config-I-VMS, skip "where install" questions
1110 $!
1111 $!: see if we need a special compiler
1112 $! cc_list = "cc/vaxc|cc/decc|gcc" !%Config-I-VMS, compiler symbols/commands
1113 $!
1114 $ nocc = "f"
1115 $ vms_cc_dflt = ""
1116 $ vms_cc_available = ""
1117 $!
1118 $ OPEN/WRITE CONFIG ccvms.c
1119 $ WRITE CONFIG "#include <stdlib.h>"  !DECC is sooo picky
1120 $ WRITE CONFIG "#include <stdio.h>"
1121 $ WRITE CONFIG "int main() {"
1122 $ WRITE CONFIG "#ifdef __DECC"
1123 $ WRITE CONFIG "        printf(""/DECC\n"");"
1124 $ WRITE CONFIG "#else"
1125 $ WRITE CONFIG "        printf(""/VAXC\n"");"
1126 $ WRITE CONFIG "#endif"
1127 $ WRITE CONFIG "        exit(0);"
1128 $ WRITE CONFIG "}"
1129 $ CLOSE CONFIG
1130 $!
1131 $ DEFINE SYS$ERROR _NLA0:
1132 $ DEFINE SYS$OUTPUT _NLA0:
1133 $ cc/NoObj/list=ccvms.lis ccvms.c
1134 $ tmp = $status
1135 $ DEASSIGN SYS$OUTPUT
1136 $ DEASSIGN SYS$ERROR
1137 $ IF (silent) THEN GOSUB Shut_up
1138 $! echo "%Config-I-VMS, After cc compile $status = >''tmp'<" !diagnostic
1139 $!
1140 $ IF tmp.NE.%X10B90001
1141 $ THEN
1142 $  IF tmp.NE.%X10000001
1143 $  THEN
1144 $    nocc = "t"  !%X10000001 is return from gcc
1145 $    GOTO Gcc_initial_check
1146 $  ENDIF
1147 $ ENDIF
1148 $!
1149 $ GOSUB List_Parse
1150 $ IF .NOT.silent THEN echo ""
1151 $ echo "%Config-I-VMS, Default ""cc"" is ''line' ''archsufx' ''F$GETSYI("VERSION")'"
1152 $ IF F$LOCATE("VAX",line).NE.F$LENGTH(line)
1153 $ THEN
1154 $   vms_cc_dflt = "/vaxc"
1155 $   vms_cc_available = vms_cc_available + "cc/vaxc "
1156 $   IF .NOT.silent
1157 $   THEN
1158 $     echo "%Config-I-VMS, Will try cc/decc..."
1159 $   ENDIF
1160 $   DEFINE SYS$ERROR _NLA0:
1161 $   DEFINE SYS$OUTPUT _NLA0:
1162 $   SET NOON
1163 $   cc/decc/NoObj/list=ccvms.lis ccvms.c
1164 $   tmp = $status
1165 $   DEASSIGN SYS$OUTPUT
1166 $   DEASSIGN SYS$ERROR
1167 $   SET ON
1168 $   IF (silent) THEN GOSUB Shut_up
1169 $   IF tmp.NE.%X10B90001
1170 $   THEN
1171 $     echo "%Config-I-VMS, Apparently you don't have that one."
1172 $   ELSE
1173 $     GOSUB List_parse
1174 $     echo "%Config-I-VMS, You also have: ''line' ''archsufx' ''F$GETSYI("VERSION")'"
1175 $     vms_cc_available = vms_cc_available + "cc/decc "
1176 $   ENDIF
1177 $ ELSE
1178 $   IF F$LOCATE("DEC",line).NE.F$LENGTH(line)
1179 $   THEN
1180 $     vms_cc_dflt = "/decc"
1181 $     vms_cc_available = vms_cc_available + "cc/decc "
1182 $     echo "%Config-I-VMS, Will try cc/vaxc..."
1183 $     DEFINE SYS$ERROR _NLA0:
1184 $     DEFINE SYS$OUTPUT _NLA0:
1185 $     SET NOON
1186 $     cc/vaxc/NoObj/list=ccvms.lis ccvms.c
1187 $     tmp = $status
1188 $     DEASSIGN SYS$OUTPUT
1189 $     DEASSIGN SYS$ERROR
1190 $     SET ON
1191 $     IF (silent) THEN GOSUB Shut_up
1192 $     IF tmp.NE.%X10B90001
1193 $     THEN
1194 $       echo "%Config-I-VMS, Apparently you don't have that one."
1195 $     ELSE
1196 $       GOSUB List_parse
1197 $       echo "%Config-I-VMS, You also have: ''line' ''archsufx' ''F$GETSYI("VERSION")'"
1198 $       vms_cc_available = vms_cc_available + "cc/vaxc "
1199 $     ENDIF
1200 $   ENDIF
1201 $ ENDIF
1202 $!
1203 $Gcc_initial_check:
1204 $ echo "%Config-I-VMS, Checking for Gcc"
1205 $ OPEN/WRITE CONFIG gccvers.lis
1206 $ DEFINE SYS$ERROR CONFIG
1207 $ DEFINE SYS$OUTPUT CONFIG
1208 $ 'gcc_symbol'/noobj/version _nla0:
1209 $ tmp = $status
1210 $ DEASSIGN SYS$OUTPUT
1211 $ DEASSIGN SYS$ERROR
1212 $ IF (silent) THEN GOSUB Shut_up
1213 $ CLOSE CONFIG
1214 $ IF (tmp.NE.%X10000001).and.(tmp.ne.%X00030001)
1215 $ THEN
1216 $   echo "%Config-I-VMS, Symbol ""''gcc_symbol'"" is not defined. I guess you don't have it."
1217 $   goto cc_cleanup
1218 $ ENDIF
1219 $ OPEN/READ CONFIG gccvers.lis
1220 $GCC_List_Read:
1221 $ READ/END_OF_FILE=GCC_List_End CONFIG line
1222 $ GOTO GCC_List_Read
1223 $GCC_List_End:
1224 $ CLOSE CONFIG
1225 $ echo line
1226 $ vms_cc_available = vms_cc_available + "''gcc_symbol' "
1227 $ DELETE/NOLOG/NOCONFIRM gccvers.lis;
1228 $!
1229 $CC_Cleanup:
1230 $ DELETE/NOLOG/NOCONFIRM ccvms.*;
1231 $CC_Desired:
1232 $!: see if we need a special compiler
1233 $! echo ""
1234 $ echo "%Config-I-VMS, available compiler(s):"
1235 $ echo "( ''vms_cc_available')"
1236 $ IF .NOT.nocc
1237 $ THEN
1238 $   dflt = "cc''vms_cc_dflt'"  !-> "cc" in case first compile went OK
1239 $ ELSE
1240 $   dflt = gcc_symbol
1241 $ ENDIF
1242 $ rp = "Use which C compiler? [''dflt'] "
1243 $ GOSUB myread
1244 $ IF ans.NES.""
1245 $ THEN
1246 $   ans = F$EDIT(ans,"TRIM, COMPRESS, LOWERCASE")
1247 $   Mcc = ans
1248 $   IF F$LOCATE("dec",ans).NE.F$LENGTH(ans)
1249 $   THEN
1250 $     Mcc = "cc/decc"
1251 $     Using_Dec_C = "Yes"
1252 $     C_COMPILER_Replace = "CC=cc=''Mcc'"
1253 $   ENDIF
1254 $   IF F$LOCATE("vax",ans).NE.F$LENGTH(ans)
1255 $   THEN
1256 $     Mcc = "cc/vaxc"
1257 $     Using_Vax_C = "Yes"
1258 $     C_COMPILER_Replace = "CC=cc=''Mcc'"
1259 $   ENDIF
1260 $   IF Mcc.NES.dflt
1261 $   THEN
1262 $     IF F$LOCATE("dec",dflt).NE.F$LENGTH(dflt)
1263 $     THEN
1264 $       C_COMPILER_Replace = "CC=cc=''Mcc'"
1265 $     ELSE
1266 $       Using_Dec_C = "Yes"
1267 $       IF F$LOCATE("vax",dflt).NE.F$LENGTH(dflt)
1268 $       THEN
1269 $         C_COMPILER_Replace = "CC=cc=''Mcc'"
1270 $       ENDIF
1271 $     ENDIF
1272 $   ELSE
1273 $     IF Mcc .EQS. "cc/decc"
1274 $     THEN
1275 $       Using_Dec_C = "Yes"
1276 $       C_COMPILER_Replace = "CC=cc=''Mcc'"
1277 $     ENDIF
1278 $   ENDIF
1279 $ ELSE
1280 $   Mcc = dflt
1281 $   IF Mcc .EQS. "cc/decc"
1282 $   THEN
1283 $     Using_Dec_C = "Yes"
1284 $     C_COMPILER_Replace = "CC=cc=''Mcc'"
1285 $   ENDIF
1286 $   IF Mcc .EQS. "cc/vaxc"
1287 $   THEN
1288 $     Using_Vax_C = "Yes"
1289 $     C_COMPILER_Replace = "CC=cc=''Mcc'"
1290 $   ENDIF
1291 $   IF Mcc .EQS. "gcc"
1292 $   THEN
1293 $     Using_Gnu_C = "Yes"
1294 $     C_COMPILER_Replace = "CC=cc=''Mcc'"
1295 $   ENDIF
1296 $ ENDIF
1297 $Decc_Version_check:
1298 $ IF "''Using_Dec_C'".EQS."Yes"
1299 $ THEN
1300 $   echo ""
1301 $   echo4 "Checking for Dec C's version number..." !>&4
1302 $   OPEN/WRITE CONFIG deccvers.c
1303 $   WRITE CONFIG "#include <stdlib.h>"  !DECC is sooo picky
1304 $   WRITE CONFIG "#include <stdio.h>"
1305 $   WRITE CONFIG "int main() {"
1306 $   WRITE CONFIG "#ifdef __DECC"
1307 $   WRITE CONFIG "#ifdef __DECC_VER"
1308 $   WRITE CONFIG "        printf(""%i\n"", __DECC_VER);"
1309 $   WRITE CONFIG "#else"
1310 $   WRITE CONFIG "        printf(""%i\n"", ""1"");"
1311 $   WRITE CONFIG "#endif"
1312 $   WRITE CONFIG "#endif"
1313 $   WRITE CONFIG "        exit(0);"
1314 $   WRITE CONFIG "}"
1315 $   CLOSE CONFIG
1316 $   DEFINE SYS$ERROR _NLA0:
1317 $   DEFINE SYS$OUTPUT _NLA0:
1318 $   'Mcc' deccvers.c
1319 $   tmp = $status
1320 $   DEASSIGN SYS$ERROR _NLA0:
1321 $   DEASSIGN SYS$OUTPUT _NLA0:
1322 $   IF (silent) THEN GOSUB Shut_up
1323 $   DEFINE SYS$ERROR _NLA0:
1324 $   DEFINE SYS$OUTPUT _NLA0:
1325 $   link deccvers.obj
1326 $   tmp = $status
1327 $   DEASSIGN SYS$ERROR
1328 $   DEASSIGN SYS$OUTPUT
1329 $   IF (silent) THEN GOSUB Shut_up
1330 $   OPEN/WRITE CONFIG deccvers.out
1331 $   DEFINE SYS$ERROR CONFIG
1332 $   DEFINE SYS$OUTPUT CONFIG
1333 $   mcr []deccvers.exe
1334 $   tmp = $status
1335 $   CLOSE CONFIG
1336 $   DEASSIGN SYS$OUTPUT
1337 $   DEASSIGN SYS$ERROR
1338 $   IF (silent) THEN GOSUB Shut_up
1339 $   OPEN/READ CONFIG deccvers.out
1340 $   READ/END_OF_FILE=Dec_c_cleanup CONFIG line
1341 $Dec_c_cleanup:
1342 $   CLOSE CONFIG
1343 $!   DELETE/NOLOG/NOCONFIRM deccvers.*;
1344 $   echo "You are using Dec C ''line'"
1345 $   Dec_C_Version = line
1346 $ ENDIF
1347 $Vaxc_Invoke_check:
1348 $ IF "''Using_Vax_C'".EQS."Yes"
1349 $ THEN
1350 $   echo ""
1351 $   echo4 "Checking to see how to invoke Vax C..."
1352 $   OPEN/WRITE CONFIG vaxcchk.c
1353 $   WRITE CONFIG "#include <stdio.h>"
1354 $   WRITE CONFIG "int main() {"
1355 $   WRITE CONFIG "        printf(""%i\n"", ""1"");"
1356 $   WRITE CONFIG "        exit(0);"
1357 $   WRITE CONFIG "}"
1358 $   CLOSE CONFIG
1359 $   DEFINE SYS$ERROR _NLA0:
1360 $   DEFINE SYS$OUTPUT _NLA0:
1361 $   SET NOON
1362 $   cc/vaxc/NoObj vaxcchk.c
1363 $   tmp = $status
1364 $   DEASSIGN SYS$OUTPUT
1365 $   DEASSIGN SYS$ERROR
1366 $   SET ON
1367 $   IF (silent) THEN GOSUB Shut_up
1368 $   IF tmp.NE.%X10B90001
1369 $   THEN
1370 $     Mcc = "cc"
1371 $   ELSE
1372 $     Mcc = "cc/vaxc"
1373 $   ENDIF
1374 $Vax_c_cleanup:
1375 $   DELETE/NOLOG/NOCONFIRM vaxcchk.*;
1376 $ ENDIF
1377 $Gcc_check:
1378 $ if "''using_gnu_c'" .eqs. "Yes"
1379 $ THEN
1380 $ vaxcrtl_olb = F$SEARCH("SYS$LIBRARY:VAXCRTL.OLB")
1381 $ vaxcrtl_exe = F$SEARCH("SYS$SHARE:VAXCRTL.EXE")
1382 $ gcclib_olb  = F$SEARCH("GNU_CC:[000000]GCCLIB.OLB")
1383 $ IF gcclib_olb .EQS. ""
1384 $ THEN
1385 $! These objects/libs come w/ gcc 2.7.2 for AXP:
1386 $   tmp = F$SEARCH("GNU_CC:[000000]libgcc2.olb")
1387 $   IF tmp .NES. "" then gcclib_olb = tmp
1388 $   tmp = F$SEARCH("GNU_CC:[000000]libgcclib.olb")
1389 $   IF tmp .NES. ""
1390 $   THEN
1391 $     IF gcclib_olb .EQS. ""
1392 $     THEN gcclib_olb = tmp
1393 $     ELSE gcclib_olb = gcclib_olb + "/lib," + tmp
1394 $     ENDIF
1395 $   ENDIF
1396 $   tmp = F$SEARCH("SYS$LIBRARY:VAXCRTL.OLB")
1397 $   IF tmp .NES. ""
1398 $   THEN
1399 $     IF gcclib_olb .EQS. ""
1400 $     THEN gcclib_olb = tmp
1401 $     ELSE gcclib_olb = gcclib_olb + "/lib," + tmp
1402 $     ENDIF
1403 $   ENDIF
1404 $   tmp = F$SEARCH("GNU_CC:[000000]crt0.obj")
1405 $   IF tmp .NES. ""
1406 $   THEN
1407 $     IF gcclib_olb .EQS. ""
1408 $     THEN gcclib_olb = tmp
1409 $     ELSE gcclib_olb = gcclib_olb + "/lib," + tmp
1410 $     ENDIF
1411 $   ENDIF
1412 $   IF gcclib_olb .EQS. vaxcrtl_olb THEN gcclib_olb = "" !goofy order of axplibs
1413 $ ELSE
1414 $   gcclib_olb = gcclib_olb + "/lib"
1415 $ ENDIF
1416 $ IF   gcclib_olb .NES. "" .AND. -
1417      (vaxcrtl_olb .NES. "" .OR. -
1418       vaxcrtl_exe .NES. "" )
1419 $ THEN
1420 $   echo ""
1421 $   echo4 "Checking for GNU cc in disguise and/or its version number..." !>&4
1422 $   OPEN/WRITE CONFIG gccvers.c
1423 $   WRITE CONFIG "#include <stdlib.h>"  !DECC is sooo picky
1424 $   WRITE CONFIG "#include <stdio.h>"
1425 $   WRITE CONFIG "int main() {"
1426 $   WRITE CONFIG "#ifdef __GNUC__"
1427 $   WRITE CONFIG "#ifdef __VERSION__"
1428 $   WRITE CONFIG "        printf(""%s\n"", __VERSION__);"
1429 $   WRITE CONFIG "#else"
1430 $   WRITE CONFIG "        printf(""%s\n"", ""1"");"
1431 $   WRITE CONFIG "#endif"
1432 $   WRITE CONFIG "#endif"
1433 $   WRITE CONFIG "        exit(0);"
1434 $   WRITE CONFIG "}"
1435 $   CLOSE CONFIG
1436 $   DEFINE SYS$ERROR _NLA0:
1437 $   DEFINE SYS$OUTPUT _NLA0:
1438 $   'Mcc' gccvers.c
1439 $   tmp = $status
1440 $   DEASSIGN SYS$ERROR _NLA0:
1441 $   DEASSIGN SYS$OUTPUT _NLA0:
1442 $   IF (silent) THEN GOSUB Shut_up
1443 $   DEFINE SYS$ERROR _NLA0:
1444 $   DEFINE SYS$OUTPUT _NLA0:
1445 $   IF vaxcrtl_exe .EQS. ""
1446 $   THEN
1447 $     IF F$LOCATE("VAXCRTL",gcclib_olb).NE.F$LENGTH(gcclib_olb)
1448 $     THEN
1449 $       link gccvers.obj,'gcclib_olb',SYS$LIBRARY:VAXCRTL/Library
1450 $       tmp = $status
1451 $     ELSE
1452 $       link gccvers.obj,'gcclib_olb'
1453 $       tmp = $status
1454 $     ENDIF
1455 $   ELSE
1456 $     OPEN/WRITE CONFIG GCCVERS.OPT
1457 $     WRITE CONFIG "SYS$SHARE:VAXCRTL/SHARE"
1458 $     CLOSE CONFIG
1459 $     link gccvers.obj,GCCVERS.OPT/OPT,'gcclib_olb'
1460 $     tmp = $status
1461 $   ENDIF
1462 $   DEASSIGN SYS$ERROR
1463 $   DEASSIGN SYS$OUTPUT
1464 $   IF (silent) THEN GOSUB Shut_up
1465 $   OPEN/WRITE CONFIG gccvers.out
1466 $   DEFINE SYS$ERROR CONFIG
1467 $   DEFINE SYS$OUTPUT CONFIG
1468 $   mcr []gccvers.exe
1469 $   tmp = $status
1470 $   CLOSE CONFIG
1471 $   DEASSIGN SYS$OUTPUT
1472 $   DEASSIGN SYS$ERROR
1473 $   IF (silent) THEN GOSUB Shut_up
1474 $   OPEN/READ CONFIG gccvers.out
1475 $   READ/END_OF_FILE=Gcc_cleanup CONFIG line
1476 $Gcc_cleanup:
1477 $   CLOSE CONFIG
1478 $   DELETE/NOLOG/NOCONFIRM gccvers.*;
1479 $   IF F$LOCATE("GNU C version ",line).NE.F$LENGTH(line)
1480 $   THEN
1481 $     echo "You are not using GNU cc."
1482 $     GOTO Host_name
1483 $   ELSE
1484 $     echo "You are using GNU cc ''line'"
1485 $     Using_Gnu_C = "Yes"
1486 $     C_COMPILER_Replace = "CC=cc=''Mcc'"
1487 $     GOTO Include_dirs
1488 $   ENDIF
1489 $ ENDIF
1490 $endif
1491 $ GOTO Host_name
1492 $!
1493 $List_Parse:
1494 $ OPEN/READ CONFIG ccvms.lis
1495 $ READ CONFIG line
1496 $ IF (F$GETSYI("HW_MODEL") .LT. 1024)
1497 $ THEN
1498 $   read CONFIG line
1499 $   archsufx = "VAX"
1500 $ ELSE
1501 $   archsufx = "AXP"
1502 $ ENDIF
1503 $ CLOSE CONFIG
1504 $ line = F$EDIT(line,"TRIM,COMPRESS")
1505 $ line = line - "Page 1"           ! occurs at end all compilers
1506 $ line = line - "CCVMS "           ! filename appears w/ VAXC
1507 $ line = line - "Source Listing "  ! Seen w/ AXP DECC
1508 $ tmp = F$EXTRACT(0,20,line)       !timestamp, e.g. "30-JUL-1996 21:12:54 "
1509 $ line = line - tmp
1510 $ line = F$EDIT(line,"TRIM")       !bit redundant but we're in no big hurry
1511 $ DELETE/NOLOG/NOCONFIRM ccvms.lis;
1512 $ RETURN
1513 $!
1514 $Include_dirs:
1515 $!: What should the include directory be ?
1516 $ dflt = gcclib_olb
1517 $ rp = "Where are the include files you want to use? "
1518 $ IF f$length( rp + "[''dflt'] " ).gt.76
1519 $ THEN rp = F$FAO("!AS!/!AS",rp,"[''dflt'] ")
1520 $ ELSE rp = rp + "[''dflt'] "
1521 $ ENDIF
1522 $ GOSUB myread
1523 $ usrinc = ans
1524 $!
1525 $!: see if we have to deal with yellow pages, now NIS.
1526 $!: now get the host name
1527 $Host_name:
1528 $ echo ""
1529 $ echo4 "Figuring out host name..." !>&4
1530 $ myhostname = ""
1531 $  IF myhostname.eqs."" THEN myhostname = F$TRNLNM("ARPANET_HOST_NAME")
1532 $  IF myhostname.eqs."" THEN myhostname = F$TRNLNM("INTERNET_HOST_NAME")
1533 $  IF myhostname.eqs."" THEN myhostname = F$TRNLNM("MULTINET_HOST_NAME")
1534 $  IF myhostname.eqs."" THEN myhostname = F$TRNLNM("UCX$INET_HOST_NAME")
1535 $  IF myhostname.eqs."".and. -
1536       F$TRNLNM("UCX$INET_HOST") .nes. "" .and. -
1537       F$TRNLNM("UCX$INET_DOMAIN") .nes. "" THEN -
1538      myhostname = F$TRNLNM("UCX$INET_HOST") + "." + F$TRNLNM("UCX$INET_DOMAIN")
1539 $  IF myhostname.eqs."" THEN myhostname = F$TRNLNM("TCPWARE_DOMAINNAME")
1540 $  IF myhostname.eqs."" THEN myhostname = F$TRNLNM("NEWS_ADDRESS")
1541 $  IF myhostname.eqs."" THEN myhostname = F$TRNLNM("SYS$NODE") - "::"
1542 $  IF myhostname.eqs."" THEN myhostname = F$EDIT(F$GETSYI("SCSNODE"),"TRIM")
1543 $!: you do not want to know about this
1544 $!: verify guess
1545 $ rp = "Your host name appears to be """"''myhostname'"""". Right? "
1546 $ GOSUB myread
1547 $ IF (.not.ans).and.(ans.NES."")
1548 $   THEN
1549 $     READ SYS$COMMAND/PROMPT= -
1550  "Please type the (one word) name of your host: " ans
1551 $     myhostname = ans
1552 $ ENDIF
1553 $!: translate upper to lower if necessary
1554 $ myhostname = F$EDIT(myhostname,"COLLAPSE")
1555 $ mylowhostname = F$EDIT(myhostname," LOWERCASE")
1556 $ IF mylowhostname.NES.myhostname
1557 $ THEN
1558 $   echo "(Normalizing case in your host name)"
1559 $   myhostname = mylowhostname
1560 $ ENDIF
1561 $!
1562 $ fp = F$LOCATE(".",myhostname)
1563 $ mydomain = F$EXTRACT(fp,(F$LENGTH(myhostname)-fp)+1,myhostname)
1564 $ IF mydomain.NES.""  !no periods in DECnet names like "MYDECNODE::"
1565 $ THEN
1566 $   rp = "What is your domain name? [''mydomain'] "
1567 $   GOSUB myread
1568 $   IF ans THEN mydomain = ans
1569 $!: translate upper to lower if necessary
1570 $   mydomain = F$EDIT(mydomain,"COLLAPSE")
1571 $   mylowdomain = F$EDIT(mydomain," LOWERCASE")
1572 $   IF mylowdomain.NES.mydomain
1573 $   THEN
1574 $     echo "(Normalizing case in your domain name)"
1575 $     mydomain = mylowdomain
1576 $   ENDIF
1577 $ ENDIF
1578 $ myhostname = myhostname - mydomain
1579 $ echo "(Trimming domain name from host name--host name is now ''myhostname')"
1580 $ IF .NOT.silent
1581 $ THEN TYPE SYS$INPUT:
1582
1583 I need to get your e-mail address in Internet format if possible, i.e.
1584 something like user@host.domain. Please answer accurately since I have
1585 no easy means to double check it. The default value provided below
1586 is most probably close to the reality but may not be valid from outside
1587 your organization...
1588 $ ENDIF
1589 $ dflt = "''cf_by@''myhostname'"+"''mydomain'"
1590 $ rp = "What is your e-mail address? [''dflt'] "
1591 $ GOSUB myread
1592 $ IF ans
1593 $ THEN cf_email = ans
1594 $ ELSE cf_email = dflt
1595 $ ENDIF
1596 $!
1597 $ IF .NOT.silent
1598 $ THEN TYPE SYS$INPUT:
1599
1600 If you or somebody else will be maintaining perl at your site, please
1601 fill in the correct e-mail address here so that they may be contacted
1602 if necessary. Currently, the "perlbug" program included with perl
1603 will send mail to this address in addition to perlbug@perl.com. You may
1604 enter "none" for no administrator.
1605 $ ENDIF
1606 $ dflt = "''cf_email'"
1607 $ rp = "Perl administrator e-mail address [''dflt'] "
1608 $ GOSUB myread
1609 $ IF ans
1610 $ THEN perladmin = ans
1611 $ ELSE perladmin = dflt
1612 $ ENDIF
1613 $!
1614 $!: determine where public executable scripts go
1615 $!: determine perl absolute location
1616 $!: figure out how to guarantee perl startup
1617 $!
1618 $!: see how we invoke the C preprocessor
1619 $! echo ""
1620 $! echo4 "Now, how can we feed standard input to your C preprocessor..." !>&4
1621 $!: Set private lib path
1622 $!: Now check and see which directories actually exist, avoiding duplicates
1623 $!: determine optimize, if desired, or use for debug flag also
1624 $!: We will not override a previous value, but we might want to
1625 $!: augment a hint file
1626 $!: the following weeds options from ccflags that are of no interest to cpp
1627 $!: flags used in final linking phase
1628 $!: Try to guess additional flags to pick up local libraries.
1629 $!: coherency check
1630 $! echo ""
1631 $! echo4 "Checking your choice of C compiler and flags for coherency..." !>&4
1632 $!: compute shared library extension
1633 $!: Looking for optional libraries
1634 $!: see if nm is to be used to determine whether a symbol is defined or not
1635 $!: get list of predefined functions in a handy place
1636 $!: see if we have sigaction
1637 $!: see whether socketshr exists
1638 $ IF (F$SEARCH(F$PARSE("SocketShr","Sys$Share:.Exe")).NES."")
1639 $ THEN
1640 $   has_socketshr     = "T"
1641 $   echo ""
1642 $   echo4 "Hmm... Looks like you have SOCKETSHR's Berkeley networking support."
1643 $ endif
1644 $ if (Dec_C_Version .ge. 50200000)
1645 $ THEN
1646 $   Has_Dec_C_Sockets = "T"
1647 $   echo ""
1648 $   echo4 "Hmm... Looks like you've got Dec C's Berkeley networking support."
1649 $ ENDIF
1650 $ ! Hey, we've got both. Default to Dec C, then, since it's better
1651 $ if ("''Has_socketshr'".eq."T") .or.("''has_dec_c_sockets'".eq."T")
1652 $ THEN
1653 $   echo ""
1654 $   echo "You've got sockets available. Which socket stack do you want to"
1655 $   echo "build into perl?"
1656 $   if "''has_dec_c_sockets'".eqs."T"
1657 $   THEN
1658 $     dflt = "DECC"
1659 $   else
1660 $     dlft = "SOCKETSHR"
1661 $   endif
1662 $   rp = "Choose socket stack (NONE"
1663 $   if "''has_socketshr'".eqs."T" THEN rp = rp + ",SOCKETSHR"
1664 $   if "''has_dec_c_sockets'".eqs."T" THEN rp = rp + ",DECC"
1665 $   rp = rp + ") [''dflt'] "
1666 $   GOSUB myread
1667 $   IF "''ans'".eqs."" THEN ans = "''dflt'"
1668 $   has_dec_c_sockets = "F"
1669 $   has_socketshr = "F"
1670 $   ans = F$EDIT(ans,"TRIM,COMPRESS,LOWERCASE")
1671 $   IF ans.eqs."decc" then has_dec_c_sockets = "T"
1672 $   IF ans.eqs."socketshr" then has_socketshr = "T"
1673 $ endif
1674 $!
1675 $!
1676 $! Ask about threads, if appropriate
1677 $ if (Using_Dec_C.eqs."Yes")
1678 $ THEN
1679 $   echo "This version of Perl can be built with threads. While really nifty,
1680 $   echo "they are a beta feature, and there is a speed penalty for perl
1681 $   echo "programs if you build with threads *even if you don't use them*
1682 $   echo ""
1683 $   dflt = "n"
1684 $   rp = "Build with threads? [''dflt'] "
1685 $   GOSUB myread
1686 $   if ans.eqs."" then ans = dflt
1687 $   if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
1688 $   THEN
1689 $     use_threads="T"
1690 $     ! Are they on VMS 7.1 on an alpha?
1691 $     if (Archname.eqs."VMS_AXP").and.("''f$extract(1,3, f$getsyi(""version""))'".ges."7.1")
1692 $     THEN
1693 $       echo ""
1694 $       echo "Threaded perl can be linked to use multiple kernel threads
1695 $       echo "and system upcalls on VMS 7.1+ on Alpha systems. This feature
1696 $       echo "allows multiple threads to execute simultaneously on an SMP
1697 $       echo "system as well as preventing a single thread from blocking
1698 $       echo "all the threads in a program, even on a single-processor
1699 $       echo "machine. Unfortunately this feature isn't safe on an
1700 $       echo "unpatched 7.1 system. (Several OS patches were required when
1701 $       echo "this procedure was written)
1702 $       echo ""
1703 $       dflt = "N"
1704 $       rp = "Enable multiple kernel threads and upcalls? [''dflt'] "
1705 $       gosub myread
1706 $       if ans.eqs."" then ans="''dflt'"
1707 $       if f$extract(0, 1, f$edit(ans,"TRIM,COMPRESS,UPCASE")).eqs."Y"
1708 $       THEN
1709 $         Thread_Live_Dangerously = "MT=MT=1"
1710 $       ENDIF
1711 $     ENDIF
1712 $   ENDIF
1713 $ ENDIF
1714 $!
1715 $! Pre-load %ENV?
1716 $ echo ""
1717 $ echo "Because of the way perl fetches the list of logical names
1718 $ echo "for the %ENV hash (we spawn a subprocess that does a
1719 $ echo "SHOW LOGICALS *, which is expensive), we defer fetching it
1720 $ echo "until the first time a program iterates over the %ENV hash.
1721 $ echo "This means things like 'exists($ENV{'SYS$MANAGER'})' will
1722 $ echo "return false unless you've already accessed $ENV{SYS$MANAGER}
1723 $ echo "or done something like a keys %ENV."
1724 $ echo ""
1725 $ echo "If you choose, perl can populate the %ENV hash at startup.
1726 $ echo "This will exact both a memory penalty (to store the keys) and
1727 $ echo "a time penalty (to spawn the subprocess) every time you invoke
1728 $ echo "perl. Depending on your system, this might not be a big deal.
1729 $ echo ""
1730 $ dflt = "N"
1731 $ rp = "Populate %ENV at startup time? [''dflt'] "
1732 $ GOSUB myread
1733 $ if ans.eqs."" then ans="''dflt'"
1734 $ preload_env = f$extract(0, 1, f$edit(ans,"TRIM,COMPRESS,UPCASE"))
1735 $!
1736 $! Ask if they want to use perl's memory allocator
1737 $ echo ""
1738 $ echo "Perl has a built-in memory allocator that's tuned for perl's
1739 $ echo "normal memory usage. It's oftentimes better than the standard
1740 $ echo "system memory allocator. It also has the advantage of providing
1741 $ echo "memory allocation statistics, if you choose to enable them.
1742 $ echo ""
1743 $ dflt = "N"
1744 $ rp = "Build with perl's memory allocator? [''dflt'] "
1745 $ GOSUB myread
1746 $ if ans.eqs."" then ans="''dflt'"
1747 $ mymalloc = f$extract(0, 1, f$edit(ans,"TRIM,COMPRESS,UPCASE"))
1748 $ if mymalloc.eqs."Y"
1749 $ THEN
1750 $   if use_debugging_perl.eqs."Y"
1751 $   THEN
1752 $     echo ""
1753 $     echo "Perl can keep statistics on memory usage if you choose to use
1754 $     echo "them. This is useful for debugging, but does have some
1755 $     echo "performance overhead.
1756 $     echo ""
1757 $     dflt = "N"
1758 $     rp = "Do you want the debugging memory allocator? [''dflt'] "
1759 $     gosub myread
1760 $     if ans.eqs."" then ans="''dflt'"
1761 $     use_debugmalloc = f$extract(0, 1, f$edit(ans, "TRIM,COMPRESS,UPCASE"))
1762 $   ENDIF
1763 $   ! Check which memory allocator we want
1764 $   echo ""
1765 $   echo "There are currently three different memory allocators: the
1766 $   echo "default (which is a pretty good general-purpose memory manager),
1767 $   echo "the TWO_POT allocator (which is optimized to save memory for
1768 $   echo "larger allocations), and PACK_MALLOC (which is optimized to save
1769 $   echo "memory for smaller allocations). They're all good, but if your
1770 $   echo "usage tends towards larger chunks use TWO_POT, otherwise use
1771 $   echo "PACK_MALLOC."
1772 $   echo ""
1773 $   dflt = "DEFAULT"
1774 $   rp = "Memory allocator (DEFAULT, TWO_POT, PACK_MALLOC) [''dflt'] "
1775 $   GOSUB myread
1776 $   if ans.eqs."" then ans = "''dflt'"
1777 $   if ans.eqs."TWO_POT" then use_two_pot_malloc = "Y"
1778 $   if ans.eqs."PACK_MALLOC" then use_pack_malloc = "Y"
1779 $ ENDIF
1780 $!
1781 $! Ask for their default list of extensions to build
1782 $ echo ""
1783 $ echo "It's time to specify which modules you want to build into
1784 $ echo "perl. Most of these are standard and should be chosen, though
1785 $ echo "you might, for example, want to build GDBM_File instead of
1786 $ echo "SDBM_File if you have the GDBM library built on your machine
1787 $ echo "
1788 $ echo "Which modules do you want to build into perl?"
1789 $ dflt = "Fcntl Errno IO Opcode Dumper attrs re Stdio DCLsym B SDBM_File"
1790 $ if Using_Dec_C.eqs."Yes"
1791 $ THEN
1792 $   dflt = dflt + " POSIX"
1793 $   if Use_Threads.eqs."T"
1794 $   THEN
1795 $     dflt = dflt + " Thread"
1796 $   ENDIF
1797 $ ENDIF
1798 $ rp = "[''dflt'] "
1799 $ GOSUB myread
1800 $ if ans.eqs."" then ans = "''dflt'"
1801 $ extensions = "''ans'"
1802 $!
1803 $! %Config-I-VMS, determine build/make utility here (make gmake mmk mms)
1804 $ echo ""
1805 $ echo "%Config-I-VMS, Checking your ""make"" utilities..."
1806 $! If the 'build' that you use is not here add it and it's test
1807 $! switch to the _END_ of these strings (and increment max_build)
1808 $! (e.g. builders = builders + "/FOOMAKE"
1809 $!       probers  = probers + " -fooVersionSwitch"
1810 $! ) & please let me know about it.
1811 $ builders = "IMAKE/GNUMAKE/MGMAKE/GMAKE/MAKE/MMS/MMK"
1812 $ probers  = "-f Makefile. -v!-f Makefile. -v!-f Makefile. -v!-f Makefile. -v!-f Makefile. -v!/IDENT!/IDENT"
1813 $ max_build = 7
1814 $!
1815 $ orig_dflt = "MMK"
1816 $ default_set = ""
1817 $ ok_builders = ""
1818 $ OPEN/WRITE/ERROR=Open_error CONFIG Makefile.
1819 $ WRITE CONFIG "dont_make_anything_yet:"
1820 $ WRITE CONFIG F$FAO("!_")
1821 $ CLOSE CONFIG
1822 $ n = 0
1823 $ messages = F$ENVIRONMENT("MESSAGE")
1824 $Build_probe:
1825 $ build = F$ELEMENT(n,"/",builders)
1826 $ probe  = F$ELEMENT(n,"!",probers)
1827 $ echo "Testing whether you have ''build' on your system..."
1828 $ SET NOON                                        !sorry :-(
1829 $ ON CONTROL_Y THEN GOTO Reenable_messages_build  !sorry :-(
1830 $ SET MESSAGE/NOFAC/NOSEV/NOIDENT/NOTEXT          !sorry :-(
1831 $ 'build' 'probe'
1832 $ IF ($SEVERITY .EQ. 1)
1833 $ THEN
1834 $   echo "OK."
1835 $   IF (build .EQS. orig_dflt)
1836 $   THEN
1837 $     default_set = "TRUE"
1838 $     dflt = build
1839 $   ENDIF
1840 $   ok_builders = ok_builders + " " + build
1841 $   IF (.NOT. default_set) THEN dflt = build
1842 $ ELSE
1843 $   echo "Nope."
1844 $ ENDIF
1845 $Reenable_messages_build:                         !hope you made it here :-)
1846 $ SET MESSAGE 'messages'                          !hope you made it here :-)
1847 $ SET ON                                          !hope you made it here :-)
1848 $ n = n + 1
1849 $ IF (n .LT. max_build) THEN GOTO Build_probe
1850 $!
1851 $ echo ""
1852 $ IF (ok_builders .NES. "")
1853 $ THEN
1854 $   echo "Here is the list of builders you can apparently use:"
1855 $   echo "(",ok_builders," )"
1856 $   rp = "Which """"make"""" utility do you wish to use [''dflt']? "
1857 $   GOSUB myread
1858 $   ans = F$EDIT(ans,"TRIM, COMPRESS")
1859 $   ans = F$EXTRACT(0,F$LOCATE(" ",ans),ans) !throw out "-f Makefile." here
1860 $   IF (ans .EQS. "")
1861 $   THEN build = dflt
1862 $   ELSE build = ans
1863 $   ENDIF
1864 $ ELSE
1865 $   TYPE SYS$INPUT:
1866
1867 %Config-E-VMS, ERROR:
1868  Well this looks pretty serious. Perl5 cannot be compiled without a "make"
1869  utility of some sort and after checking my "builders" list I cannot find
1870  the symbol or command you use on your system to compile programs.
1871
1872 $   READ SYS$COMMAND/PROMPT="%Config-I-VMS, Which ""MMS"" do you use? " ans
1873 $   ans = F$EDIT(ans,"TRIM, COMPRESS")
1874 $   ans = F$EXTRACT(0,F$LOCATE(" ",ans),ans) !throw out "-f Makefile." here
1875 $   IF (ans .EQS. "")
1876 $   THEN build = dflt
1877 $     echo "I don't know where 'make' is, and my life depends on it."
1878 $     echo "Go find a make program or fix your DCL$PATH setting!"
1879 $     echo "ABORTING..."
1880 $     SET DEFAULT 'vms_default_directory_name' !be kind rewind
1881 $     STOP
1882 $     EXIT 2 !$STATUS = "%X00000002" (error)
1883 $   ELSE
1884 $     build = ans
1885 $   ENDIF
1886 $ ENDIF
1887 $!
1888 $ DELETE/NOLOG Makefile.;
1889 $ GOTO Beyond_open
1890 $Open_error:
1891 $ TYPE SYS$INPUT:
1892
1893  There seems to be trouble. I just tried to create a file in
1894 $ echo4 'F$ENVIRONMENT("DEFAULT")'
1895 $ TYPE SYS$INPUT:
1896  but was unsuccessful. I am stopping now. Please check that directories'
1897  PROTECTION bits. I will leave you in the directory where you started
1898  Configure.com
1899 $ echo4 "ABORTING..."
1900 $ GOTO Clean_up
1901 $ STOP
1902 $ EXIT
1903 $!
1904 $Beyond_open:
1905 $! echo " Very well I will proceed with ""''build'"""
1906 $ make = F$EDIT(build,"UPCASE")
1907 $!
1908 $!: locate the preferred pager for this system
1909 $!pagers = "most|more|less|type/page"
1910 $!rp='What pager is used on your system?'
1911 $!
1912 $! update [.vms]config.vms here
1913 $!
1914 $! update makefile here
1915 $! echo4 "Updating makefile..."
1916 $!
1917 $ IF (make .EQS. "MMS").OR.(make .EQS. "MMK")
1918 $ THEN
1919 $   makefile    = ""             !wrt MANIFEST dir
1920 $   UUmakefile  = "DESCRIP.MMS"  !wrt CWD dir
1921 $   DEFmakefile = "DESCRIP.MMS"  !wrt DEF dir (?)
1922 $ ELSE
1923 $   makefile    = " -f [.VMS]Makefile." !wrt MANIFEST dir
1924 $   UUmakefile  = "[-.VMS]Makefile."    !wrt CWD dir
1925 $   DEFmakefile = "[-.VMS]Makefile."    !wrt DEF dir (?)
1926 $ ENDIF
1927 $!
1928 $ IF macros.NES.""
1929 $ THEN
1930 $   tmp = F$LENGTH(macros)
1931 $   macros = F$EXTRACT(0,(tmp-1),macros) !miss trailing comma
1932 $   macros = "/macro=(" + macros  + ")"
1933 $ ENDIF
1934 $!
1935 $! Invoke the subconfig piece
1936 $!
1937 $ echo ""
1938 $ echo4 "Generating config.h"
1939 $ dflt = F$ENVIRONMENT("DEFAULT")
1940 $ SET DEFAULT [-.vms]
1941 $ @subconfigure
1942 $ SET DEFAULT 'dflt
1943 $!
1944 $! %Config-I-VMS, write perl_setup.com here
1945 $!
1946 $ echo ""
1947 $ echo4 "%Config-I-VMS, The perl_setup.com file is now being written..."
1948 $ file_2_find = "[-.vms]perl_setup.com"
1949 $ OPEN/WRITE CONFIG 'file_2_find'
1950 $ WRITE CONFIG "$!"
1951 $ WRITE CONFIG "$! Perl_Setup.com    ''cf_time'"
1952 $ IF cf_email.NES.perladmin
1953 $ THEN
1954 $ WRITE CONFIG "$! perl configured by ''cf_email'"
1955 $ ELSE
1956 $ WRITE CONFIG "$! This perl configured & administered by ''perladmin'"
1957 $ ENDIF
1958 $ WRITE CONFIG "$!"
1959 $ IF F$LOCATE(".]",prefix) .EQ. F$LENGTH(prefix) THEN -
1960     prefix = prefix - "]" + ".]"
1961 $ WRITE CONFIG "$ define/translation=concealed Perl_Root ''prefix'"
1962 $ WRITE CONFIG "$ perl :== $Perl_Root:[000000]Perl"
1963 $ WRITE CONFIG "$ define PerlShr Perl_Root:[000000]PerlShr.Exe"
1964 $ IF (tzneedset)
1965 $ THEN
1966 $ WRITE CONFIG "$ define SYS$TIMEZONE_DIFFERENTIAL ''tzd'"
1967 $ ELSE    !leave in but commented out (in case setting was from perl :-)
1968 $ WRITE CONFIG "$! define SYS$TIMEZONE_DIFFERENTIAL ''tzd'"
1969 $ ENDIF
1970 $ WRITE CONFIG "$!"
1971 $ WRITE CONFIG "$! Symbols for commonly used scripts:"
1972 $ WRITE CONFIG "$!"
1973 $ WRITE CONFIG "$ Perldoc == ""'"+"'Perl' Perl_Root:[lib.pod]Perldoc.com -t"""
1974 $ CLOSE CONFIG
1975 $!
1976 $ echo  ""
1977 $ echo  "%Config-I-VMS, The file can be found at:"
1978 $ echo4 "-Config-I-VMS, ''F$SEARCH(file_2_find)'"
1979 $ echo  "-Config-I-VMS, Add that file (or an @ call to it) to your [SY]LOGIN.COM"
1980 $ echo  "-Config-I-VMS, when you are satisfied with a successful compilation,"
1981 $ echo  "-Config-I-VMS, testing, and installation of your perl."
1982 $ echo  ""
1983 $!
1984 $!figure out where we "are" by parsing 'vms_default_directory_name'
1985 $!
1986 $ set_def_command = ""
1987 $ dflt = F$ENVIRONMENT("DEFAULT") - ".UU]"
1988 $ tmp = vms_default_directory_name - dflt - "]"
1989 $ i = 0
1990 $ IF tmp .EQS. "" THEN GOTO Beyond_set_def_loop
1991 $Set_def_loop:
1992 $ tmp1 = F$ELEMENT(i,".",tmp)
1993 $ IF tmp1 .EQS. "." THEN GOTO Beyond_set_def_loop
1994 $ IF i .EQ. 0
1995 $ THEN set_def_command = "set default [-"
1996 $ ELSE set_def_command = set_def_command + "-"
1997 $ ENDIF
1998 $ i = i + 1
1999 $ GOTO Set_def_loop
2000 $Beyond_set_def_loop:
2001 $ IF set_def_command.NES.""
2002 $ THEN
2003 $   set_def_command = set_def_command - "-" + "]"
2004 $   echo4 ""
2005 $   echo4 "In order to build ''package' you must now issue the commands:"
2006 $   echo4 ""
2007 $   echo4 " ''set_def_command'"
2008 $ ELSE
2009 $   echo4 ""
2010 $   echo4 "In order to build ''package' you must now issue the command:"
2011 $   echo4 ""
2012 $ ENDIF
2013 $ echo4 " ''make'''makefile'", macros
2014 $ echo4 ""
2015 $!
2016 $Clean_up:
2017 $ IF (silent)
2018 $ THEN
2019 $   DEASSIGN SYS$OUTPUT
2020 $!   DEASSIGN SYS$ERROR
2021 $ ENDIF
2022 $ IF F$GETJPI("","FILCNT").NE.vms_filcnt THEN CLOSE CONFIG
2023 $ IF F$GETJPI("","FILCNT").NE.vms_filcnt
2024 $ THEN WRITE SYS$ERROR "%Config-W-VMS, WARNING: There is a file still open"
2025 $ ENDIF
2026 $ dflt = F$ENVIRONMENT("DEFAULT")
2027 $ IF F$LOCATE("UU]",dflt).EQS.(F$LENGTH(dflt)-3)
2028 $ THEN
2029 $   IF ( F$SEARCH("[]*.*").NES."" ) THEN DELETE/NOLOG/NOCONFIRM []*.*;*
2030 $   SET DEFAULT [-]
2031 $   SET PROTECTION=(SYSTEM:RWED,OWNER:RWED) UU.DIR
2032 $   DELETE/NOLOG/NOCONFIRM UU.DIR;
2033 $ ENDIF
2034 $ SET DEFAULT 'vms_default_directory_name' !be kind rewind
2035 $ STOP
2036 $ EXIT
2037 $!: End of Configure