mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-12-26 05:57:16 +00:00
60 lines
1.8 KiB
Text
60 lines
1.8 KiB
Text
|
$!
|
||
|
|
$! 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"
|