tests/config_flags_pm.com

   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-2022 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 <https://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 $!