diff options
| author | John Polstra <jdp@FreeBSD.org> | 2001-09-09 01:31:20 +0000 |
|---|---|---|
| committer | John Polstra <jdp@FreeBSD.org> | 2001-09-09 01:31:20 +0000 |
| commit | 10374f2a80f457db4a24ac58c8bcd12cdef94841 (patch) | |
| tree | 7f63bbf4cd17e870eb7a0070139c0025dd69fc8e /lang/pm3-base | |
| parent | 60032d4ed757d713b448d48056a9a09308af99cf (diff) | |
| download | ports-10374f2a80f457db4a24ac58c8bcd12cdef94841.tar.gz ports-10374f2a80f457db4a24ac58c8bcd12cdef94841.zip | |
Notes
Diffstat (limited to 'lang/pm3-base')
| -rw-r--r-- | lang/pm3-base/files/patch-ea | 38 | ||||
| -rw-r--r-- | lang/pm3-base/files/patch-eb | 38 |
2 files changed, 76 insertions, 0 deletions
diff --git a/lang/pm3-base/files/patch-ea b/lang/pm3-base/files/patch-ea new file mode 100644 index 000000000000..98daf0ed8dfc --- /dev/null +++ b/lang/pm3-base/files/patch-ea @@ -0,0 +1,38 @@ +--- language/modula3/m3compiler/m3ship/src/Main.m3.orig Mon Jun 7 10:11:49 1999 ++++ language/modula3/m3compiler/m3ship/src/Main.m3 Sat Sep 8 14:46:14 2001 +@@ -303,9 +303,10 @@ + m3_template := Env.Get("M3_TEMPLATE_DIR"); + path : TEXT; + subpath : TEXT; +- nextsep : INTEGER := 0; +- prevsep : INTEGER := 0; ++ nextsep : INTEGER; ++ prevsep : INTEGER := -1; + sep : CHAR; ++ filename : TEXT; + BEGIN + IF m3_template # NIL THEN + template_dir := m3_template; +@@ -322,13 +323,17 @@ + REPEAT + nextsep := Text.FindChar(path, sep, prevsep + 1); + IF nextsep # -1 THEN +- subpath := Text.Sub(path, prevsep, nextsep - prevsep - 1); ++ subpath := Text.Sub(path, prevsep + 1, nextsep - prevsep - 1); + ELSE +- subpath := Text.Sub(path, prevsep); ++ subpath := Text.Sub(path, prevsep + 1); + END; +- IF M3File.IsReadable(subpath & template) THEN +- template_dir := subpath; +- RETURN; ++ IF Text.Length(subpath) > 0 THEN ++ filename := subpath & SL & template; ++ IF M3File.IsReadable(filename) AND ++ NOT M3File.IsDirectory(filename) THEN ++ template_dir := subpath; ++ RETURN; ++ END; + END; + prevsep := nextsep; + UNTIL prevsep = -1; diff --git a/lang/pm3-base/files/patch-eb b/lang/pm3-base/files/patch-eb new file mode 100644 index 000000000000..e06a6cab9c6c --- /dev/null +++ b/lang/pm3-base/files/patch-eb @@ -0,0 +1,38 @@ +--- language/modula3/m3compiler/m3where/src/Main.m3.orig Mon Jun 7 10:12:38 1999 ++++ language/modula3/m3compiler/m3where/src/Main.m3 Sat Sep 8 14:48:05 2001 +@@ -302,9 +302,10 @@ + m3_template := Env.Get("M3_TEMPLATE_DIR"); + path : TEXT; + subpath : TEXT; +- nextsep : INTEGER := 0; +- prevsep : INTEGER := 0; ++ nextsep : INTEGER; ++ prevsep : INTEGER := -1; + sep : CHAR; ++ filename : TEXT; + BEGIN + IF m3_template # NIL THEN + template_dir := m3_template; +@@ -321,13 +322,17 @@ + REPEAT + nextsep := Text.FindChar(path, sep, prevsep + 1); + IF nextsep # -1 THEN +- subpath := Text.Sub(path, prevsep, nextsep - prevsep - 1); ++ subpath := Text.Sub(path, prevsep + 1, nextsep - prevsep - 1); + ELSE +- subpath := Text.Sub(path, prevsep); ++ subpath := Text.Sub(path, prevsep + 1); + END; +- IF M3File.IsReadable(subpath & template) THEN +- template_dir := subpath; +- RETURN; ++ IF Text.Length(subpath) > 0 THEN ++ filename := subpath & SL & template; ++ IF M3File.IsReadable(filename) AND ++ NOT M3File.IsDirectory(filename) THEN ++ template_dir := subpath; ++ RETURN; ++ END; + END; + prevsep := nextsep; + UNTIL prevsep = -1; |