#!/bin/csh -f
#
# Andrew Trevorrow, October 1988
# This shell script runs one of the dv-* programs based on
# the value of the -v option (or TERM if not given).
# Search for SYSDEP to locate site-specific values that you may want to change.
#
set dvdir = (/usr/users/applied/staff/atrevorr/dv)           # SYSDEP
set vdu   = $TERM                                            # changed by -v
set res   = 300                                              # SYSDEP
set tfm   = (-t /usr/local/lib/tex/fonts/)                   # SYSDEP
set ps    = (-p ps-)                                         # SYSDEP
set pk    = (-f /usr/local/bin/dvitovdu/pk/)                 # SYSDEP
set dummy = (-d cmr10.300pk)                                 # SYSDEP
set help  = (-h /usr/users/applied/staff/atrevorr/dv/help)   # SYSDEP
set xsize = (-x 210mm)                                       # SYSDEP
set ysize = (-x 210mm)                                       # SYSDEP
set mag                                                      # changed by -m
set hoff                                                     # changed by -ho
set voff                                                     # changed by -vo
set land                                                     # changed by -1
set file
#
# Parse command line and set various parameters.
#
@ i = 1
while ($i <= $#argv)
   set arg = "$argv[$i]"
   if ("$arg" =~ -*) then        # arg must be an option
      if ("$arg" == '-v') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing value after -v\!'
            exit(1)
         endif
         set vdu = "$argv[$i]"
      else if ("$arg" == '-r') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing integer after -r\!'
            exit(1)
         endif
         set res = (-r "$argv[$i]")
      else if ("$arg" == '-m') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing integer after -m\!'
            exit(1)
         endif
         set mag = (-m "$argv[$i]")
      else if ("$arg" == '-ho') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing dimension after -ho\!'
            exit(1)
         endif
         set hoff = (-H "$argv[$i]")               # options.p uses -H
      else if ("$arg" == '-vo') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing dimension after -vo\!'
            exit(1)
         endif
         set voff = (-V "$argv[$i]")               # options.p uses -V
      else if ("$arg" == '-x') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing dimension after -x\!'
            exit(1)
         endif
         set xsize = (-x "$argv[$i]")
      else if ("$arg" == '-y') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing dimension after -y\!'
            exit(1)
         endif
         set ysize = (-y "$argv[$i]")
      else if ("$arg" == '-l') then
         set land = -l
      else if ("$arg" == '-t') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing directory after -t\!'
            exit(1)
         endif
         set tfm = (-t "$argv[$i]")
      else if ("$arg" == '-p') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing string after -p\!'
            exit(1)
         endif
         set ps = (-p "$argv[$i]")
      else if ("$arg" == '-f') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing directory after -f\!'
            exit(1)
         endif
         set pk = (-f "$argv[$i]")
      else if ("$arg" == '-d') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing filename after -d\!'
            exit(1)
         endif
         set dummy = (-d "$argv[$i]")
      else if ("$arg" == '-h') then
         @ i++
         if ($i > $#argv) then
            echo 'Missing filename after -h\!'
            exit(1)
         endif
         set help = (-h "$argv[$i]")
      else
         echo 'Unknown option:' $arg
         exit(1)
      endif
   else
      # arg does not start with '-' so assume it is file
      set file = "$arg"
   endif
   @ i++
end
if ($file == '') then
   echo 'File not given\!'
   exit(1)
endif
#
if ("$vdu" == 'aed512') then
   $dvdir/dv-aed512 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'regis' | "$vdu" == 'vt240' | "$vdu" == 'gigi' | \
         "$vdu" == 'vk100' | "$vdu" == 'vt125') then
   $dvdir/dv-regis -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vis240' | "$vdu" == 'vis241') then
   $dvdir/dv-vis240 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vis500') then
   $dvdir/dv-vis500 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vis550') then
   $dvdir/dv-vis550 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vt100' | "$vdu" == 'vis102') then
   $dvdir/dv-vt100 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vt100132') then
   $dvdir/dv-vt100132 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vt220' | "$vdu" == 'vt200') then
   $dvdir/dv-vt220 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vt640') then
   $dvdir/dv-vt640 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vis603') then
   $dvdir/dv-vis603 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else if ("$vdu" == 'vis630') then
   $dvdir/dv-vis630 -v $vdu $res $mag \
   $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
else
   echo 'Bad -v value:' "$vdu"
   echo 'Specify one of the following:'
   echo '   aed512'
   echo '   regis      (or gigi, vk100, vt125, vt240)'
   echo '   vis240     (or vis241)'
   echo '   vis500'
   echo '   vis550'
   echo '   vis603'
   echo '   vis630'
   echo '   vt100      (or vis102)'
   echo '   vt100132'
   echo '   vt220      (or vt200)'
   echo '   vt640'
   exit(1)
endif
