regress/shlib

   1 # -*- shell -*-
   2
   3 playback_prepare () {
   4         case="$srcdir/case-$casename"
   5         ocase="output-$casename"
   6
   7         exec 4<"$case.sys"
   8         read <&4 program initfile initflags
   9         read <&4 queryargs
  10
  11         initstring="`cat $srcdir/init-$initfile.text`"
  12         xinitflagsf=$srcdir/$program-xinitflags.text
  13         if test -f $xinitflagsf
  14         then
  15                 initflags="$initflags `cat $xinitflagsf`";
  16         else
  17                 initflags="$initflags /"
  18         fi
  19
  20         playback=./${program}_playback
  21 }
  22
  23 playback_execute () {
  24         playback_execute_callback $initflags"$initstring" $queryargs
  25 }