This patch modifies m3browser to use the new "m3configvars" package. =================================================================== --- m3/m3browser/src/Main.m3.orig Mon Feb 5 10:49:57 1996 +++ m3/m3browser/src/Main.m3 Tue Sep 24 15:39:45 1996 @@ -13,13 +13,12 @@ IMPORT Text, Rd, Wr, TextRd, Thread, Time, Fmt, IntRefTbl, IntList; IMPORT Process, Params, Lex, OS, FloatMode, Word, IntIntTbl, TextIntTbl; -IMPORT FileWr, OSError, Atom, FmtTime, M3Config, RTParams, RTCollector; +IMPORT FileWr, OSError, Atom, FmtTime, M3ConfigVars, RTParams, RTCollector; IMPORT FS, RefList, IntSeq, XFormat, RefSeq, TextRefTbl, CharMap, IP; IMPORT Buf, ID, Wx, MarkUp, CMarkUp, TCPServer, ErrLog, RTutils, RTHeapStats; CONST Title_page = "m3browser.html"; - SLASH = M3Config.PATH_SEP; StartPage = "\n\n"; StartTitle = ""; Body = "<BODY BGCOLOR=\"#ffffff\" VLINK=\"#006633\">\n"; @@ -28,10 +27,11 @@ EndPage = "</BODY>\n</HTML>\n"; VAR (* configuration *) - package_root := M3Config.PKG_USE; + SLASH := M3ConfigVars.PATH_SEP; + package_root := M3ConfigVars.PKG_USE; server_machine : TEXT; (* initialized in "ParseOptions" *) server_socket := 3829; - derived_dirs := IntList.List1 (ID.Add (M3Config.BUILD_DIR)); + derived_dirs := IntList.List1 (ID.Add (M3ConfigVars.BUILD_DIR)); n_workers := 3; refresh_interval := 30.0d0; (* minutes *) start_time := Time.Now (); =================================================================== RCS file: /home/jdp/m3-cvs/m3/m3browser/src/m3makefile,v retrieving revision 1.1.1.1 diff -u -r1.1.1.1 m3makefile --- m3/m3browser/src/m3makefile.orig 1996/09/24 05:21:56 1.1.1.1 +++ m3/m3browser/src/m3makefile 1996/09/24 05:32:39 @@ -6,6 +6,7 @@ m3_option ("-times") +import ("m3configvars") import ("libm3") import ("tcp") import ("m3tools")