Home | History | Annotate | Line # | Download | only in test
mkscripts.sh revision 1.5 
      1 #!/bin/sh -
      2 # This script generates ed test scripts (.ed) from .t files
      3 
      4 PATH="/bin:/usr/bin:/usr/local/bin/:."
      5 [ X"$ED" = X ] && ED="../ed"
      6 
      7 for i in *.t; do
      8 #	base=${i%.*}
      9 #	base=`echo $i | sed 's/\..*//'`
     10 	base=`expr $i : '\([^.]*\)'`
     11 	(
     12 	echo "#!/bin/sh -"
     13 	echo "$ED - <<\EOT"
     14 	echo "r \\$base.d"
     15 	cat $i
     16 	echo "w \\$base.o"
     17 	echo EOT
     18 	) >$base.ed
     19 	chmod +x $base.ed
     20 # The following is pretty ugly and not appropriate use of ed
     21 # but the point is that it can be done...
     22 #	base=`$ED - \!"echo \\\\$i" <<-EOF
     23 #		s/\..*
     24 #	EOF`
     25 #	$ED - <<-EOF
     26 #		a
     27 #		#!/bin/sh -
     28 #		$ED - <<\EOT
     29 #		r \\$base.d
     30 #		w \\$base.o
     31 #		EOT
     32 #		.
     33 #		-2r \\$i
     34 #		w \\$base.ed
     35 #		!chmod +x \\$base.ed
     36 #	EOF
     37 done
     38 
     39 for i in *.err; do
     40 #	base=${i%.*}
     41 #	base=`echo $i | sed 's/\..*//'`
     42 	base=`expr $i : '\([^.]*\)'`
     43 	(
     44 	echo "#!/bin/sh -"
     45 	echo "$ED - <<\EOT"
     46 	echo H
     47 	echo "r \\$base.err"
     48 	cat $i
     49 	echo "w \\$base.o"
     50 	echo EOT
     51 	) >$base-err.ed
     52 	chmod +x $base-err.ed
     53 #	base=`$ED - \!"echo \\\\$i" <<-EOF
     54 #		s/\..*
     55 #	EOF`
     56 #	$ED - <<-EOF
     57 #		a
     58 #		#!/bin/sh -
     59 #		$ED - <<\EOT
     60 #		H
     61 #		r \\$base.err
     62 #		w \\$base.o
     63 #		EOT
     64 #		.
     65 #		-2r \\$i
     66 #		w \\${base}-err.ed
     67 #		!chmod +x ${base}-err.ed
     68 #	EOF
     69 done
     70