diff options
Diffstat (limited to 'prepare_vms.com')
| -rw-r--r-- | prepare_vms.com | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/prepare_vms.com b/prepare_vms.com new file mode 100644 index 0000000..04f581f --- /dev/null +++ b/prepare_vms.com @@ -0,0 +1,59 @@ +$! +$! prepare_vms.com - Build config.h-vms from master on VMS. +$! +$! This is used for building off the master instead of a release tarball. +$! +$! +$! +$! First try ODS-5, Pathworks V6 or UNZIP name. +$! +$ config_template = f$search("sys$disk:[]config*h-vms.template") +$ if config_template .eqs. "" +$ then +$! +$! Try NFS, VMStar, or Pathworks V5 ODS-2 encoded name. +$! +$ config_template = f$search("sys$disk:[]config.h-vms*template") +$ if config_template .eqs. "" +$ then +$ write sys$output "Could not find config.h-vms*template!" +$ exit 44 +$ endif +$ endif +$ config_template_file = f$parse(config_template,,,"name") +$ config_template_type = f$parse(config_template,,,"type") +$ config_template = "sys$disk:[]" + config_template_file + config_template_type +$! +$! +$! Pull the package and version from configure.ac +$! +$ open/read ac_file sys$disk:[]configure.ac +$ac_read_loop: +$ read ac_file/end=ac_read_loop_end line_in +$ key = f$extract(0, 7, line_in) +$ if key .nes. "AC_INIT" then goto ac_read_loop +$ package = f$element (1,"[",line_in) +$ package = f$element (0,"]",package) +$ version = f$element (2,"[",line_in) +$ version = f$element (0,"]",version) +$ac_read_loop_end: +$ close ac_file +$! +$ if (package .eqs. "") .or. (version .eqs. "") +$ then +$ write sys$output "Unable to determine package and/or version!" +$ exit 44 +$ endif +$! +$! +$ outfile = "sys$disk:[]config.h-vms" +$! +$! Note the pipe command is close to the length of 255, which is the +$! maximum token length prior to VMS V8.2: +$! %DCL-W-TKNOVF, command element is too long - shorten +$ pipe (write sys$output "sub/%PACKAGE%/''package'/WHOLE/NOTYPE" ;- + write sys$output "sub/%VERSION%/''version'/WHOLE/NOTYPE" ;- + write sys$output "exit") |- + edit/edt 'config_template'/out='outfile'/command=sys$pipe >nla0: +$! +$ write sys$output package, ", version: ", version, " prepared for VMS" |