When making tm.h from config/vax/vms.h, change

any #include "vax/*.h" directives to use native VMS file syntax.

From-SVN: r3813

diff --git a/gcc/vmsconfig.com b/gcc/vmsconfig.com
index 6d3128e2be13f6a8d58261ca5326de8e2289d0b7..4fe4e5ea669ac756b554e233ba33afcd363e2231 100644 (file)
--- a/gcc/vmsconfig.com
+++ b/gcc/vmsconfig.com
@@ -30,8 +30,31 @@ $EOD
 $ echo "Created `hconfig.h'.
 $ !
 $ if f$search("tm.h") .nes. "" then delete tm.h.*
-$ copy [.config.vax]vms.h []tm.h
-$ echo "Linked `tm.h' to `[.config.vax]vms.h'.
+$!! copy [.config.vax]vms.h []tm.h
+$ edit/tpu/nojournal/nosection/nodisplay/command=sys$input -
+        [.config.vax]vms.h /output=[]tm.h
+$DECK
+!
+!  Copy file, changing lines of the form
+!      #include "vax/*"
+!  into
+!      #include "[.config.vax]*"
+!
+   file := CREATE_BUFFER("file", GET_INFO(COMMAND_LINE, "file_name"));
+   targ := LINE_BEGIN & '#include' & SPAN(ASCII(32)+ASCII(9)) & '"vax/';
+   rang := CREATE_RANGE(BEGINNING_OF(file), END_OF(file));
+   LOOP
+      incl := SEARCH_QUIETLY(targ, FORWARD, EXACT, rang);
+      EXITIF incl = 0;
+      POSITION(BEGINNING_OF(incl));
+      ERASE(incl);
+      COPY_TEXT('#include "[.config.vax]');
+      rang := CREATE_RANGE(END_OF(incl), END_OF(file));
+   ENDLOOP;
+   WRITE_FILE(file, GET_INFO(COMMAND_LINE, "output_file"));
+   QUIT
+$EOD
+$ echo "Generated `tm.h' from `[.config.vax]vms.h'.
 $ !
 $ if f$search("md.") .nes. "" then delete md..*
 $ copy [.config.vax]vax.md []md.