Fixed range address bug: 1,2, == 2,2 not 2,.

Overhauled the name space,  reworked some modules and removed the
obsolescent Addison-Wesley copyright.

1 files changed, 57 insertions, 55 deletions

diff --git a/bin/ed/test/mkscripts.sh b/bin/ed/test/mkscripts.sh
index 724db0c..fa3147f 100644
--- a/bin/ed/test/mkscripts.sh
+++ b/bin/ed/test/mkscripts.sh
@@ -3,69 +3,71 @@
 
 PATH="/bin:/usr/bin:/usr/local/bin/:."
 ED=$1
-[ X"$ED" = X -o ! -x $ED ] && ED="../ed"
 [ ! -x $ED ] && { echo "$ED: cannot execute"; exit 1; }
 
 for i in *.t; do
 #	base=${i%.*}
 #	base=`echo $i | sed 's/\..*//'`
-	base=`expr $i : '\([^.]*\)'`
-	(
-	echo "#!/bin/sh -"
-	echo "$ED - <<\EOT"
-	echo "r \\$base.d"
-	cat $i
-	echo "w \\$base.o"
-	echo EOT
-	) >$base.ed
-	chmod +x $base.ed
-# The following is pretty ugly and not appropriate use of ed
-# but the point is that it can be done...
-#	base=`$ED - \!"echo \\\\$i" <<-EOF
-#		s/\..*
-#	EOF`
-#	$ED - <<-EOF
-#		a
-#		#!/bin/sh -
-#		$ED - <<\EOT
-#		r \\$base.d
-#		w \\$base.o
-#		EOT
-#		.
-#		-2r \\$i
-#		w \\$base.ed
-#		!chmod +x \\$base.ed
-#	EOF
+#	base=`expr $i : '\([^.]*\)'`
+#	(
+#	echo "#!/bin/sh -"
+#	echo "$ED - <<\EOT"
+#	echo "r $base.d"
+#	cat $i
+#	echo "w $base.o"
+#	echo EOT
+#	) >$base.ed
+#	chmod +x $base.ed
+# The following is pretty ugly way of doing the above, and not appropriate 
+# use of ed  but the point is that it can be done...
+	base=`$ED - \!"echo $i" <<-EOF
+		s/\..*
+	EOF`
+	$ED - <<-EOF
+		a
+		#!/bin/sh -
+		$ED - <<\EOT
+		H
+		r $base.d
+		w $base.o
+		EOT
+		.
+		-2r $i
+		w $base.ed
+		!chmod +x $base.ed
+	EOF
 done
 
 for i in *.err; do
 #	base=${i%.*}
 #	base=`echo $i | sed 's/\..*//'`
-	base=`expr $i : '\([^.]*\)'`
-	(
-	echo "#!/bin/sh -"
-	echo "$ED - <<\EOT"
-	echo H
-	echo "r \\$base.err"
-	cat $i
-	echo "w \\$base.o"
-	echo EOT
-	) >$base-err.ed
-	chmod +x $base-err.ed
-#	base=`$ED - \!"echo \\\\$i" <<-EOF
-#		s/\..*
-#	EOF`
-#	$ED - <<-EOF
-#		a
-#		#!/bin/sh -
-#		$ED - <<\EOT
-#		H
-#		r \\$base.err
-#		w \\$base.o
-#		EOT
-#		.
-#		-2r \\$i
-#		w \\${base}-err.ed
-#		!chmod +x ${base}-err.ed
-#	EOF
+#	base=`expr $i : '\([^.]*\)'`
+#	(
+#	echo "#!/bin/sh -"
+#	echo "$ED - <<\EOT"
+#	echo H
+#	echo "r $base.err"
+#	cat $i
+#	echo "w $base.o"
+#	echo EOT
+#	) >$base-err.ed
+#	chmod +x $base-err.ed
+# The following is pretty ugly way of doing the above, and not appropriate 
+# use of ed  but the point is that it can be done...
+	base=`$ED - \!"echo $i" <<-EOF
+		s/\..*
+	EOF`
+	$ED - <<-EOF
+		a
+		#!/bin/sh -
+		$ED - <<\EOT
+		H
+		r $base.err
+		w $base.o
+		EOT
+		.
+		-2r $i
+		w ${base}.red
+		!chmod +x ${base}.red
+	EOF
 done