tests/config_flags_pm.com

$!
$! config_flags_pm.com  - Build config-flags.pm on VMS.
$!
$! Just good enough to run the self tests for now.
$!
$! Copyright (C) 2014-2016 Free Software Foundation, Inc.
$! This file is part of GNU Make.
$!
$! GNU Make is free software; you can redistribute it and/or modify it under
$! the terms of the GNU General Public License as published by the Free Software
$! Foundation; either version 3 of the License, or (at your option) any later
$! version.
$!
$! GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
$! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
$! FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
$! details.
$!
$! You should have received a copy of the GNU General Public License along with
$! this program.  If not, see <http://www.gnu.org/licenses/>.
$!
$!
$ open/read cfpm_in config-flags.pm.in
$!
$ outfile = "sys$disk:[]config-flags.pm"
$!
$ cflags = "/include=([],[.glob]"
$!
$ create 'outfile'
$ open/append cfpm 'outfile'
$!
$cfpm_read_loop:
$   read cfpm_in/end=cfpm_read_loop_end line_in
$   line_in_len = f$length(line_in)
$   if f$locate("@", line_in) .lt. line_in_len
$   then
$       part1 = f$element(0, "@", line_in)
$       key = f$element(1, "@", line_in)
$       part2 = f$element(2, "@", line_in)
$       value = ""
$       if key .eqs. "CC" then value = "CC"
$       if key .eqs. "CPP" then value = "CPP"
$       if key .eqs. "CFLAGS" then value = cflags
$       if key .eqs. "GUILE_CFLAGS" then value = cflags
$       write cfpm part1, value, part2
$       goto cfpm_read_loop
$   endif
$   write cfpm line_in
$   goto cfpm_read_loop
$cfpm_read_loop_end:
$ close cfpm_in
$ close cfpm
$!