head	1.2;
access;
symbols
	RELEASE_4_10_0:1.1
	RELEASE_5_2_1:1.1
	RELEASE_5_2_0:1.1
	RELEASE_4_9_0:1.1
	RELEASE_5_1_0:1.1
	RELEASE_4_8_0:1.1
	RELEASE_5_0_0:1.1
	RELEASE_4_7_0:1.1
	RELEASE_4_6_2:1.1
	RELEASE_4_6_1:1.1
	RELEASE_4_6_0:1.1
	RELEASE_5_0_DP1:1.1
	RELEASE_4_5_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2004.08.02.20.14.08;	author jdp;	state dead;
branches;
next	1.1;

1.1
date	2002.01.01.22.23.50;	author jdp;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Update to ezm3-1.2.
@
text
@--- 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;
@


1.1
log
@Add a port for ezm3, a smaller, more portable distribution of the
Modula-3 compiler and runtime system for people who just want to
build CVSup.  Smaller distfiles!  Faster builds!  No runtime
dependencies!  Less memory usage!  No more RTHeapDepC.c problems!
Smoother skin and glossier fur!  (Well, most of those things.)
@
text
@@

