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