Shell Programming and Scripting

scptArr[1]='chcksfrd.bash' 
scptArr[2]='compute-misfit.bash' 
scptArr[3]='compute-travel-times.bash' 
scptArr[4]='create-data-tinv.bash' 
scptArr[5]='create-docs.bash' 
scptArr[6]='create-model.bash' 
scptArr[7]='darwin-ga.bash' 
scptArr[8]='listdir.bash' 
scptArr[9]='plot-misfit.bash' 
scptArr[10]='plot-model.bash' 

darwin-ga.bash -h

scptArr[$inum] -h

2,5-7,10,12,15-19,20,22,25

input="n,n-n,n-,-n,n-n-n,the-endisnear"

remaining_line=input

while( remaining_line != "" )
     token=get_next_token(remaining_line)
     remaining_line=remaining_line - token
     case token in
          <number>)
               if( number within array bounds )
                    exec ${array[$number]}
               else
                    ERROR: number entered not within bounds
               end if
               ;;

          <number>-<number>)
               PASS=OK
               if( NOT num1 within array bounds )
                    ERROR: num1 not within bounds
                    PASS=not_OK
               end if
               if( NOT num2 within array bounds )
                    ERROR: num2 not within bounds
                    PASS=not_OK
               end if
               if( PASS == OK )
                    for( i=num1,i=num2,i++ )
                         exec ${array[$number]}
                    next
               end if
               ;;

          <number>-)
               ERROR: range clause not properly closed
               // you might want to change this to mean "from num to the end"
               ;;

          -<number>)
               ERROR: range clause not properly opened
               // you might want to change this to mean "from 1 to num"
               ;;

          all others)
               ERROR: cannot understand <token>
               ;;

     end case
end while

str="2,4,6,10-15,21,25"
tags=`echo $str | awk '{gsub(/,/," ")}; {print}'`
echo "tags = $tags"
i=0
for t in $tags
do
  i=$((i+1))
  echo "$i: $t"
done

str="2,4,6,10-15,21,25"
tags=`echo $str | awk '{gsub(/,/," ")}; {print}'`
echo "tags = $tags"
i=0
for t in $tags
do
  i=$((i+1))
  echo "$i: $t"
  match=`echo $t | grep "-"`
  if [ ${#match} -gt 0 ]; then
      ia=`echo $match | awk 'BEGIN {FS="-"} {print $1}'`
      ib=`echo $match | awk 'BEGIN {FS="-"} {print $2}'`
      echo "match = $match, ia = $ia, ib = $ib"
  fi
done