#! /bin/csh -f
# $Header: srec,v 1.7 95/04/14 13:17:57 k2mm Exp $

if ( $#argv ) goto $1

echo "usage: $0 { allnon | allsub | rec call [ call ... ] }"
exit

allnon:
set calls = `$0 nons`
echo $calls
$0 rec $calls
foreach x ( $calls )
    set nlines = `wc -l yr/$x`
    if ( $nlines[1] <= 1 ) rm yr/$x
end
exit

nons:
sed -n 's/qth: //p' rqth \
    | sort +1.3nr \
    | sed -e 's/	.*//'
exit

allsub:
set calls = `$0 subs`
echo $calls
$0 rec $calls
exit

subs:
cat rcalls
exit

rec:
shift
set subs = `cat rcalls`
if ( ! -d yr ) mkdir yr
foreach x ( $argv:q )
    echo --$x
    ( cd rlogs ; grep $x $subs ) \
    | grep -v "^${x}:" \
    | grep ' -[oN][kG]-' \
    | sed -e 's/^[^:]*://' -e 's/ -[oN][kG]-.*//' \
    | sort +7n \
    > yr/$x
end
exit