I am wondering how I can save the file names (stored in $file or $fnames) in array which I can access with an index.
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