mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-12-27 23:06:53 +00:00
53 lines
1.7 KiB
Text
Executable file
53 lines
1.7 KiB
Text
Executable file
$!
|
|
$! 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
|
|
$!
|