#! /bin/csh -f

echo "run_all: Script to run command for a list v1.0 7-Feb-2012 uw"
echo " "
if ($#argv < 2 )then
  echo "usage: run_all <list> <command>"
  echo "       list     (input) list file (ascii)"
  echo "       command  command to use"
  echo "                    (example 1: 'ls -l "'$1'".slc')"
  echo "                    (example 2: 'JERS_PROC JERS-1_720.par "'$1'" 2 6 . . . 8192'"
  exit
endif

#command line parameters
set list=$1
set definition="$2"

#determine number of rows of list file
set tmp=`echo "$list"  | awk '(NR>=1){print NF}' $1 `
set nrows=`echo "$tmp" | awk '(NR==1){print NF}'`
echo "nrows: $nrows"

#determine number of colums of list file
set ncols=`echo "$list"  | awk '(NR==1){print NF}' $1`
echo "ncols: $ncols"

#display definition
echo "definition:" $definition

#search parameters used in definition
set j="1"
while ( "$j" <= "$ncols" )
  set b = `echo "$definition" | grep '$'"$j" | awk '{print $0}'`
  #echo "$j $b"
  if ( "$b" != "" ) then
    #echo "$j exists"
    set jmax = "$j"
  endif
  set j = `echo "$j" | awk '{printf "%d", $1+1}'`
end
echo "jmax: $jmax"
echo ""

set i="1"
while ( "$i" <= "$nrows" )
  set row = "$i"
  set col = "1"

  #extract from list file the value for row 3 col 1
  #set command='set x = `awk'" '"'(NR=='"$row"'){print $'"$col"'}'"'"" $list"'`'
  set command='set x = `awk'" '"'(NR=='"$row"'){print $0}'"'"" $list"'`'
  echo "command: $command"
  echo "#! /bin/csh -fe" >! command_file;\
  echo '#echo "test command"' >> command_file;\
  echo "$command" >> command_file;\
  echo 'echo "$x"' >> command_file;\
  echo 'exit' >> command_file;\
  chmod 777 command_file;\
  ./command_file !> value_file;\
  #set value=`awk '(NR==1){print $1}' value_file`;\
  set value=`awk '(NR==1){print $0}' value_file`;\
  /bin/rm command_file value_file

  echo "$i $value"

  #define and run command
  set command="$definition"
  #echo "command: $command"
  
  echo "#! /bin/csh -fe" >! command_file;\
  echo "$command" >> command_file;\
  echo 'exit' >> command_file;\
  chmod 777 command_file;\
  ./command_file $value
  /bin/rm command_file

  set i = `echo "$i" | awk '{printf "%d", $1+1}'`
end

exit