mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-11-25 04:35:44 +00:00
e44d6a12bb
* config_flags_pm.com, test_make.com: set up and run the regression test environment on VMS. * tests/run_make_tests.pl [VMS]: Use an alternate rmdir() implementation on VMS. (run_make_with_options) [VMS]: Provide VMS-specific quoting and shell invocations. (set_more_defaults) [VMS]: Set default values when running on VMS. * tests/test_driver.pl (vms_get_process_logicals) [VMS]: Retrieve the proper values from %ENV on VMS. (resetENV) [VMS]: Use it. (toplevel) [VMS]: Fix a bug with opendir() on some logical_devices. (compare_output) [VMS]: Convert VMS test output to a "standard" format. (_run_command) [VMS]: Handle signals and exit codes the VMS way. (remove_directory_tree_inner) [VMS]: Unlink all versions of the file.
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 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 [.tests]config-flags.pm.in
|
|
$!
|
|
$ outfile = "sys$disk:[.tests]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
|
|
$!
|