mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-14 23:46:10 +00:00
d5a92ea924
"modula-3-lib". It installs only the shared libraries needed for executing Modula-3 programs. This saves a lot of disk space for people who need to run Modula-3 programs but don't need to build them. The original "modula-3" port now depends on this one, and uses it to install the compiler and the rest of the development system. Also, everything is now built with optimization. I have been testing this for at least a month, and haven't seen any problems from it. It makes the libraries and executables substantially smaller. This new port also includes some hooks that will make SOCKS support possible in the near future.
71 lines
2.3 KiB
Plaintext
71 lines
2.3 KiB
Plaintext
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")
|
|
|