Home | History | Annotate | Line # | Download | only in test
mkscripts.sh revision 1.3 
      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 - \!"echo \\\\$i" <<-EOF
     22 #		s/\..*
     23 #	EOF`
     24 #	$ED - <<-EOF
     25 #		a
     26 #		#!/bin/sh -
     27 #		$ED - <<\EOT
     28 #		r \\$base.d
     29 #		w \\$base.o
     30 #		EOT
     31 #		.
     32 #		-2r \\$i
     33 #		w \\$base.ed
     34 #		!chmod +x \\$base.ed
     35 #	EOF
     36 done
     37 
     38 for i in *.err; do
     39 #	base=${i%.*}
     40 	base=`echo $i | sed 's/\..*//'`
     41 	(
     42 	echo "#!/bin/sh -" 
     43 	echo "$ED - <<\EOT" 
     44 	echo "r \\$base.err" 
     45 	cat $i 
     46 	echo "w \\$base.o" 
     47 	echo EOT
     48 	) >$base-err.ed
     49 	chmod +x $base-err.ed
     50 #	base=`$ED - <<-EOF
     51 #	r !echo "$i"
     52 #	s/\..*
     53 #	EOF`
     54 #	$ED - <<-EOF
     55 #	a
     56 #	#!/bin/sh -
     57 #	$ED - <<\EOT
     58 #	H
     59 #	r \\$base.err
     60 #	w \\$base.o
     61 #	EOT
     62 #	.
     63 #	-2r \\$i
     64 #	w \\${base}-err.ed
     65 #	!chmod +x ${base}-err.ed
     66 #	EOF
     67 done
     68