| 1 | $!
|
|---|
| 2 | $! prepare_vms.com - Build config.h-vms from master on VMS.
|
|---|
| 3 | $!
|
|---|
| 4 | $! This is used for building off the master instead of a release tarball.
|
|---|
| 5 | $!
|
|---|
| 6 | $!
|
|---|
| 7 | $!
|
|---|
| 8 | $! First try ODS-5, Pathworks V6 or UNZIP name.
|
|---|
| 9 | $!
|
|---|
| 10 | $ config_template = f$search("sys$disk:[]config*h-vms.template")
|
|---|
| 11 | $ if config_template .eqs. ""
|
|---|
| 12 | $ then
|
|---|
| 13 | $!
|
|---|
| 14 | $! Try NFS, VMStar, or Pathworks V5 ODS-2 encoded name.
|
|---|
| 15 | $!
|
|---|
| 16 | $ config_template = f$search("sys$disk:[]config.h-vms*template")
|
|---|
| 17 | $ if config_template .eqs. ""
|
|---|
| 18 | $ then
|
|---|
| 19 | $ write sys$output "Could not find config.h-vms*template!"
|
|---|
| 20 | $ exit 44
|
|---|
| 21 | $ endif
|
|---|
| 22 | $ endif
|
|---|
| 23 | $ config_template_file = f$parse(config_template,,,"name")
|
|---|
| 24 | $ config_template_type = f$parse(config_template,,,"type")
|
|---|
| 25 | $ config_template = "sys$disk:[]" + config_template_file + config_template_type
|
|---|
| 26 | $!
|
|---|
| 27 | $!
|
|---|
| 28 | $! Pull the package and version from configure.ac
|
|---|
| 29 | $!
|
|---|
| 30 | $ open/read ac_file sys$disk:[]configure.ac
|
|---|
| 31 | $ac_read_loop:
|
|---|
| 32 | $ read ac_file/end=ac_read_loop_end line_in
|
|---|
| 33 | $ key = f$extract(0, 7, line_in)
|
|---|
| 34 | $ if key .nes. "AC_INIT" then goto ac_read_loop
|
|---|
| 35 | $ package = f$element (1,"[",line_in)
|
|---|
| 36 | $ package = f$element (0,"]",package)
|
|---|
| 37 | $ version = f$element (2,"[",line_in)
|
|---|
| 38 | $ version = f$element (0,"]",version)
|
|---|
| 39 | $ac_read_loop_end:
|
|---|
| 40 | $ close ac_file
|
|---|
| 41 | $!
|
|---|
| 42 | $ if (package .eqs. "") .or. (version .eqs. "")
|
|---|
| 43 | $ then
|
|---|
| 44 | $ write sys$output "Unable to determine package and/or version!"
|
|---|
| 45 | $ exit 44
|
|---|
| 46 | $ endif
|
|---|
| 47 | $!
|
|---|
| 48 | $!
|
|---|
| 49 | $ outfile = "sys$disk:[]config.h-vms"
|
|---|
| 50 | $!
|
|---|
| 51 | $! Note the pipe command is close to the length of 255, which is the
|
|---|
| 52 | $! maximum token length prior to VMS V8.2:
|
|---|
| 53 | $! %DCL-W-TKNOVF, command element is too long - shorten
|
|---|
| 54 | $ pipe (write sys$output "sub/%PACKAGE%/''package'/WHOLE/NOTYPE" ;-
|
|---|
| 55 | write sys$output "sub/%VERSION%/''version'/WHOLE/NOTYPE" ;-
|
|---|
| 56 | write sys$output "exit") |-
|
|---|
| 57 | edit/edt 'config_template'/out='outfile'/command=sys$pipe >nla0:
|
|---|
| 58 | $!
|
|---|
| 59 | $ write sys$output package, ", version: ", version, " prepared for VMS"
|
|---|
