Home | History | Annotate | Line # | Download | only in test
mkscripts.sh revision 1.2 
      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 	(
     11 	echo "#!/bin/sh -" 
     12 	echo "$ED - <<\EOT" 
     13 	echo "r \\$base.d" 
     14 	cat $i 
     15 	echo "w \\$base.o" 
     16 	echo EOT
     17 	) >$base.ed
     18 	chmod +x $base.ed
     19 # The following is pretty ugly and not appropriate use of ed
     20 # but the point is that it can be done...
     21 #	base=`$ED - <<-EOF
     22 #	r !echo "$i"
     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 	(
     43 	echo "#!/bin/sh -" 
     44 	echo "$ED - <<\EOT" 
     45 	echo "r \\$base.err" 
     46 	cat $i 
     47 	echo "w \\$base.o" 
     48 	echo EOT
     49 	) >$base-err.ed
     50 	chmod +x $base-err.ed
     51 #	base=`$ED - <<-EOF
     52 #	r !echo "$i"
     53 #	s/\..*
     54 #	EOF`
     55 #	$ED - <<-EOF
     56 #	a
     57 #	#!/bin/sh -
     58 #	$ED - <<\EOT
     59 #	H
     60 #	r \\$base.err
     61 #	w \\$base.o
     62 #	EOT
     63 #	.
     64 #	-2r \\$i
     65 #	w \\${base}-err.ed
     66 #	!chmod +x ${base}-err.ed
     67 #	EOF
     68 done
     69