bin/ed/test/mkscripts.sh

#!/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