1 files changed, 71 insertions, 0 deletions
diff --git a/bin/ed/test/mkscripts.sh b/bin/ed/test/mkscripts.sh
new file mode 100644
index 0000000..724db0c
--- /dev/null
+++ b/bin/ed/test/mkscripts.sh
@@ -0,0 +1,71 @@
+#!/bin/sh -
+# This script generates ed test scripts (.ed) from .t files
+
+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
+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
+done