#
# Filter to modify a line in the gcl script , is called in the 
# following way :  cat /usr/local/bin/gcl | filter /usr/local/lib/gcl-2.2.2 > ...
#

while read -r line
   do
     case $line in
	*exec*) i=1
                 newline=""
                 for word in $line
                     do
                       if [ $i -eq 2 ]; 
                          then 
                              newline=$newline" $1/saved-debug "
			  else
                              newline=$newline" $word "
                       fi
		       i=`expr $i + 1`
                     done
                 echo $newline ;;
	*) echo $line ;;
      esac
   done


