#
##############################################
# look in FILE between tags AFTER and BEFORE #
# with TOKEN in a line, and take COLUMNS out.#
# usage:  "% speed", "% speed speed",        #
# or "% speed speed r".                      #
##############################################

# touch .FILE .AFTER .BEFORE .TOKEN .COLUMNS
setenv FILE `cat .FILE`
echo \\nStudy file \(default=\"$FILE\"\):
set a = $<
if ("$a" != '') then 
 setenv FILE "$a"
endif
echo $FILE > .FILE

setenv AFTER `cat .AFTER`
echo \\nafter \(default=\"$AFTER\"\):
set a = $<
if ("$a" != '') then 
 setenv AFTER "$a"
endif
echo $AFTER > .AFTER

setenv BEFORE `cat .BEFORE`
echo \\nbefore \(default=\"$BEFORE\"\):
set a = $<
if ("$a" != '') then 
 setenv BEFORE "$a"
endif
echo $BEFORE > .BEFORE

setenv TOKEN `cat .TOKEN`
echo \\nwith token \(default=\"$TOKEN\"\):
set a = $<
if ("$a" != '') then 
 setenv TOKEN "$a"
endif
echo $TOKEN  > .TOKEN

setenv COLUMNS `cat .COLUMNS`
echo \\nand column numbers \(default=\"$COLUMNS\"\):
set a = $<
if ("$a" != '') then 
 setenv COLUMNS "$a"
endif
echo $COLUMNS > .COLUMNS

cat $FILE | after $AFTER | before $BEFORE | grep "$TOKEN" > .1
setenv result `take .1 $COLUMNS | tr -d '\n'`

echo \\nword_count=`echo $result | wc -w`
echo $result

if ($#argv == 1) then 
 echo \\nafter=\"$AFTER\" before=\"$BEFORE\" token=\"$TOKEN\"\
 columns=\"$COLUMNS\" >> $FILE.$1
 echo $result >> $FILE.$1
 echo \\nsaved statistics in \"$FILE.$1\".
else if ($#argv == 2) then 
 echo \\nafter=\"$AFTER\" before=\"$BEFORE\" token=\"$TOKEN\"\
 columns=\"$COLUMNS\" > $FILE.$1
 echo $result >> $FILE.$1
 echo \\n\(overwrite\) saved statistics in \"$FILE.$1\".
endif