2 # This script generates ed test scripts (.ed) from .t files
4 # $FreeBSD: src/bin/ed/test/mkscripts.sh,v 1.6 1999/08/27 23:14:20 peter Exp $
5 # $DragonFly: src/bin/ed/test/mkscripts.sh,v 1.2 2003/06/17 04:22:50 dillon Exp $
7 PATH
="/bin:/usr/bin:/usr/local/bin/:."
9 [ ! -x $ED ] && { echo "$ED: cannot execute"; exit 1; }
13 # base=`echo $i | sed 's/\..*//'`
14 # base=`expr $i : '\([^.]*\)'`
24 # The following is pretty ugly way of doing the above, and not appropriate
25 # use of ed but the point is that it can be done...
26 base
=`$ED - \!"echo $i" <<-EOF
46 # base=`echo $i | sed 's/\..*//'`
47 # base=`expr $i : '\([^.]*\)'`
57 # chmod +x $base-err.ed
58 # The following is pretty ugly way of doing the above, and not appropriate
59 # use of ed but the point is that it can be done...
60 base
=`$ED - \!"echo $i" <<-EOF