Home | History | Annotate | Line # | Download | only in test
mkscripts.sh revision 1.1
      1  1.1  cgd #!/bin/sh -
      2  1.1  cgd # This script generates ed test scripts (.ed) from .t files
      3  1.1  cgd 
      4  1.1  cgd PATH="/bin:/usr/bin:/usr/local/bin/:."
      5  1.1  cgd [ X"$ED" = X ] && ED="../ed"
      6  1.1  cgd 
      7  1.1  cgd for i in *.t; do
      8  1.1  cgd #	base=${i%.*}
      9  1.1  cgd 	base=`echo $i | sed 's/\..*/'`
     10  1.1  cgd 	(
     11  1.1  cgd 	echo "#!/bin/sh -" 
     12  1.1  cgd 	echo "$ED - <<\EOT" 
     13  1.1  cgd 	echo "r \\$base.d" 
     14  1.1  cgd 	cat $i 
     15  1.1  cgd 	echo "w \\$base.o" 
     16  1.1  cgd 	echo EOT
     17  1.1  cgd 	) >$base.ed
     18  1.1  cgd 	chmod +x $base.ed
     19  1.1  cgd # The following is pretty ugly and not appropriate use of ed
     20  1.1  cgd # but the point is that it can be done...
     21  1.1  cgd #	base=`$ED - <<-EOF
     22  1.1  cgd #	r !echo $i
     23  1.1  cgd #	s/\..*
     24  1.1  cgd #	EOF`
     25  1.1  cgd #	$ED - <<-EOF
     26  1.1  cgd #	a
     27  1.1  cgd #	#!/bin/sh -
     28  1.1  cgd #	$ED - <<\EOT
     29  1.1  cgd #	r \\$base.d
     30  1.1  cgd #	w \\$base.o
     31  1.1  cgd #	EOT
     32  1.1  cgd #	.
     33  1.1  cgd #	-2r \\$i
     34  1.1  cgd #	w \\$base.ed
     35  1.1  cgd #	!chmod +x $base.ed
     36  1.1  cgd #	EOF
     37  1.1  cgd done
     38