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