1$!
2$! config_flags_pm.com  - Build config-flags.pm on VMS.
3$!
4$! Just good enough to run the self tests for now.
5$!
6$! Copyright (C) 2014-2020 Free Software Foundation, Inc.
7$! This file is part of GNU Make.
8$!
9$! GNU Make is free software; you can redistribute it and/or modify it under
10$! the terms of the GNU General Public License as published by the Free Software
11$! Foundation; either version 3 of the License, or (at your option) any later
12$! version.
13$!
14$! GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
15$! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
16$! FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
17$! details.
18$!
19$! You should have received a copy of the GNU General Public License along with
20$! this program.  If not, see <http://www.gnu.org/licenses/>.
21$!
22$!
23$ open/read cfpm_in config-flags.pm.in
24$!
25$ outfile = "sys$disk:[]config-flags.pm"
26$!
27$ cflags = "/include=([],[.lib]"
28$!
29$ create 'outfile'
30$ open/append cfpm 'outfile'
31$!
32$cfpm_read_loop:
33$   read cfpm_in/end=cfpm_read_loop_end line_in
34$   line_in_len = f$length(line_in)
35$   if f$locate("@", line_in) .lt. line_in_len
36$   then
37$       part1 = f$element(0, "@", line_in)
38$       key = f$element(1, "@", line_in)
39$       part2 = f$element(2, "@", line_in)
40$       value = ""
41$       if key .eqs. "CC" then value = "CC"
42$       if key .eqs. "CPP" then value = "CPP"
43$       if key .eqs. "CFLAGS" then value = cflags
44$       if key .eqs. "GUILE_CFLAGS" then value = cflags
45$       if key .eqs. "USE_SYSTEM_GLOB" then value = "no"
46$       write cfpm part1, value, part2
47$       goto cfpm_read_loop
48$   endif
49$   write cfpm line_in
50$   goto cfpm_read_loop
51$cfpm_read_loop_end:
52$ close cfpm_in
53$ close cfpm
54$!
55