Shell Programming and Scripting

  alias MATH 'set \!:1 = `echo "\!:3-$" | bc -l`'

  set narg = $#argv
  while ($iarg < $narg)
   MATH iarg = $iarg + 1
   set arg = $argv[$iarg]
   set opt = ` echo $arg | awk 'BEGIN { FS="=" } { print $1 }'  \
                         | tr "[A-Z]" "[a-z]" `
   set par = ` echo $arg | awk 'BEGIN { FS="=" } { print $2 }' `

   switch ($opt)

    case "-j":
        set Asize = $par
        set widthbase = `echo $Asize | awk '{split($1,a,"/"); print a[1]}'`
        set heightbase = `echo $Asize | awk '{split($1,a,"/"); print a[2]}'`
        set optsize = 1
        breaksw

   default:
      set file = `echo $arg | awk 'BEGIN {FS="."} {print $1}'`
      set fext = `echo $arg | awk 'BEGIN {FS="."} {print $2}'`
      set fnames = "$fnames $arg"   # Store the file names
      set fexten = "$fexten $fext"   # Store the file extensions
      MATH nf = $nf + 1
    endsw

  end   # while

% set files="one two three"
% set file_array = ( $files )
% echo $file_array[2]
two