head	1.2;
access;
symbols
	RELEASE_7_2_0:1.1
	RELEASE_7_1_0:1.1
	RELEASE_6_4_0:1.1
	RELEASE_5_EOL:1.1
	RELEASE_7_0_0:1.1
	RELEASE_6_3_0:1.1
	PRE_XORG_7:1.1
	RELEASE_4_EOL:1.1
	RELEASE_6_2_0:1.1
	RELEASE_6_1_0:1.1
	RELEASE_5_5_0:1.1
	RELEASE_6_0_0:1.1
	RELEASE_5_4_0:1.1
	RELEASE_4_11_0:1.1
	RELEASE_5_3_0:1.1
	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
	RELEASE_4_4_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2009.06.15.14.42.13;	author erwin;	state dead;
branches;
next	1.1;

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


desc
@@


1.2
log
@Remove pm3-* and friends as it hasn't been able to build for
over a year.

2008-09-19 lang/pm3-base: Has been broken for more than 6 months
2009-01-19 lang/pm3-forms: depends on broken, expired port
2009-01-19 lang/pm3-gui: depends on broken, expired port
2009-01-19 lang/pm3-m3tk: depends on broken, expired port
2009-01-19 lang/pm3-net: depends on broken, expired port
2009-01-19 lang/pm3-netobj: depends on broken, expired port
graphics/juno-2
@
text
@--- 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;
@


1.1
log
@Fix a bug which (among other things) caused the installation of some
M3 packages to fail if "." was at the beginning of $PATH.
@
text
@@

