Shell Programming and Scripting

./script.csh -r=10/20.30/40 -xyz=2/3/4

  set ierr = 0
  set iarg = 0
  set opt_jbase = 0
  set opt_range = 0
  set opt_annot = 0
  set opt_fout = 0
  set opt_vrb = 0
  set opt_usage = 0
  set opt_examples = 0
  set opt_help = 0

  set fullnames_list = ""
  set fnames_list = ""
  set fext_list = ""
  set nf = 0

  set Version = "V04"
  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}'`
    set par = `echo $arg | awk 'BEGIN {FS="="} {print $2}'`

    switch ($opt)
    case "-jb":
        set Ajbase = $par
        set bwidth = `echo $Ajbase | awk '{split($1,a,"/"); print a[1]}'`
        set bheight = `echo $Ajbase | awk '{split($1,a,"/"); print a[2]}'`
        set opt_jbase = 1
        breaksw
    case "-r":
        set Arange = $par
        set xmin = `echo $Arange | awk '{split($1,a,"/"); print a[1]}'`
        set xmax = `echo $Arange | awk '{split($1,a,"/"); print a[2]}'`
        set ymin = `echo $Arange | awk '{split($1,a,"/"); print a[3]}'`
        set ymax = `echo $Arange | awk '{split($1,a,"/"); print a[4]}'`
        set opt_range = 1
        breaksw
    case "-a":
        set Aannot = $par
        set adx = `echo $Aannot | awk '{split($1,a,"/"); print a[1]}'`
        set ady = `echo $Aannot | awk '{split($1,a,"/"); print a[2]}'`
        set afx = `echo $adx | awk '{print $1/2}'`
        set afy = `echo $ady | awk '{print $1/2}'`
        set ax = "a"$adx"f"$afx
        set ay = "a"$ady"f"$afy
        set opt_annot = 1
        breaksw
    case "-fout":
        set Afout = $par
        set fout = `echo $Afout | awk 'BEGIN { FS=".ps" } { print $1 }'`
        set opt_fout = 1
        breaksw
    case "-v":
        set opt_vrb = 1
        breaksw
    case "-usg":
        set opt_usage = 1
        breaksw
    case "-eg":
        set opt_examples = 1
        breaksw
    case "-h":
        set opt_help = 1
        breaksw
    default:
        set filename = `echo $arg | awk 'BEGIN {FS="."} {print $1}'`
        set filextension = `echo $arg | awk 'BEGIN {FS="."} {print $2}'`
        set fullnames_list = "$fullnames_list $arg"
        set fnames_list = "$fnames_list $filename"
        set fext_list = "$fext_list $filextension"
        MATH nf = $nf + 1
    endsw

  end   # while

./script.csh -r 10/20.30/40 -xyz 2/3/4

#!/bin/csh
set done=0
set opt_vrb
set ajbase
while ( $#argv != 0 && $done == 0 )
    switch ($1)
        case -jb:
            if ( $2 == "") then
                echo "option -jb requires argument"
                exit 2
            endif
            set ajbase=$2
            shift
            breaksw
        case --:
            set done=1
            breaksw
        case -v:
            set opt_vrb=1
            breaksw
        default:
            set F=`expr substr $1 1 1`
            if ( "$F" == "-" ) then
               echo "Invalid argument $1"
               exit 2
            endif
            set done=1
            breaksw
    endsw
    if ( $done == 0 ) then
        shift
    endif
end
if ( $opt_vrb == 1) then
   echo -v option set
endif
if ( "$ajbase" != "" ) then
   echo ajbase=$ajbase
endif
echo File Arguments left: $argv