1 files changed, 70 insertions, 0 deletions
diff --git a/lang/modula-3-lib/files/patch-at b/lang/modula-3-lib/files/patch-at
new file mode 100644
index 000000000000..b17d1961a162
--- /dev/null
+++ b/lang/modula-3-lib/files/patch-at
@@ -0,0 +1,70 @@
+Changes to "m3tohtml" to use the new "m3configvars" package.
+
+Index: m3/m3tohtml/src/Main.m3
+===================================================================
+RCS file: /home/jdp/m3-cvs/m3/m3tohtml/src/Main.m3,v
+retrieving revision 1.1.1.1
+diff -u -r1.1.1.1 Main.m3
+--- Main.m3	1996/09/24 05:22:00	1.1.1.1
++++ Main.m3	1996/09/24 05:32:40
+@@ -7,7 +7,7 @@
+ MODULE Main;
+ 
+ IMPORT Text, Rd, Wr, Stdio, Thread, Fmt, Time;
+-IMPORT OSError, FileRd, FileWr, Pathname, FS, M3Config;
++IMPORT OSError, FileRd, FileWr, Pathname, FS, M3ConfigVars;
+ IMPORT MarkUp, M3DB, HTMLDir, FilePath, Process;
+ <*FATAL Thread.Alerted*>
+ 
+@@ -31,8 +31,8 @@
+     WHILE NOT Rd.EOF (rd) DO
+       file := Rd.GetLine (rd);
+       IF Text.GetChar (file, 0) = '$' THEN
+-        pkg := Text.Sub (file, 1) & M3Config.PATH_SEP;
+-        proj_pkg := M3Config.PKG_USE & M3Config.PATH_SEP & pkg;
++        pkg := Text.Sub (file, 1) & M3ConfigVars.PATH_SEP;
++        proj_pkg := M3ConfigVars.PKG_USE & M3ConfigVars.PATH_SEP & pkg;
+       ELSE
+         INC (n_sources);
+         sources := NEW (Source, next := sources,
+@@ -53,7 +53,7 @@
+     sources := b;
+   END ReadFileList;
+ 
+-VAR(*CONST*) Build_dir_len := Text.Length (M3Config.BUILD_DIR);
++VAR(*CONST*) Build_dir_len := Text.Length (M3ConfigVars.BUILD_DIR);
+ 
+ PROCEDURE FixDerived (filename: TEXT): TEXT =
+   VAR i: INTEGER;
+@@ -64,13 +64,14 @@
+ 
+     i := 0;
+     WHILE (i < Build_dir_len) DO
+-      IF Text.GetChar (filename, i) # Text.GetChar (M3Config.BUILD_DIR, i) THEN
++      IF Text.GetChar (filename, i) # Text.GetChar (M3ConfigVars.BUILD_DIR, i)
++      THEN
+         RETURN filename;
+       END;
+       INC (i);
+     END;
+ 
+-    IF Text.GetChar (filename, i) = Text.GetChar (M3Config.PATH_SEP, 0) THEN
++    IF Text.GetChar (filename, i) = Text.GetChar (M3ConfigVars.PATH_SEP, 0) THEN
+       filename := "derived" & Text.Sub (filename, i);
+     END;
+     RETURN filename;
+Index: m3/m3tohtml/src/m3makefile
+===================================================================
+RCS file: /home/jdp/m3-cvs/m3/m3tohtml/src/m3makefile,v
+retrieving revision 1.1.1.2
+diff -u -r1.1.1.2 m3makefile
+--- m3makefile	1996/09/24 05:29:00	1.1.1.2
++++ m3makefile	1996/09/24 05:35:10
+@@ -10,6 +10,7 @@
+ % m3_option ("-Y0@/udir/kalsow/pkg/m3/compiler/DS/m3c@-tDS3100@")
+ % override (m3tools, "/udir/kalsow/pkgs")
+ 
++import ("m3configvars")
+ import ("libm3")
+ import ("m3tools")
+