VirtualBox

source: kBuild/trunk/src/kmk/prepare_vms.com@ 3387

Last change on this file since 3387 was 3140, checked in by bird, 7 years ago

kmk: Merged in changes from GNU make 4.2.1 (2e55f5e4abdc0e38c1d64be703b446695e70b3b6 / https://git.savannah.gnu.org/git/make.git).

  • Property svn:eol-style set to LF
File size: 1.8 KB
RevLine 
[3138]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"
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette