bin/ed/test/mkscripts.sh

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