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