debug_check_log.sh [plain text]
#!/bin/sh
usage ()
{
echo "\
usage: $0 [-afh] [file...]
-a process alternate pattern
-f process first pattern (default)
-h print this text
file files to process (default = check.log)"
}
expr_line_by_line ()
{
dcl_line=0
dcl_wrong=
while test $dcl_line -lt `wc -l <$1` -a $dcl_line -lt `wc -l <$2`; do
dcl_line=`expr $dcl_line + 1`
if test `sed -ne${dcl_line}p <$1 |wc -c` -eq 1 \
-a `sed -ne${dcl_line}p <$2 |wc -c` -eq 1; then
:
elif expr "`sed -ne${dcl_line}p <$1`" : \
"`sed -ne${dcl_line}p <$2`\$" >/dev/null; then
:
else
echo "$dcl_line: `sed -ne${dcl_line}p <$1`"
echo "$dcl_line: `sed -ne${dcl_line}p <$2`\$"
dcl_wrong="$dcl_wrong $dcl_line"
fi
done
if test `wc -l <$1` -ne `wc -l <$2`; then
echo "output & pattern contain differing number of lines"
elif test -z "$dcl_wrong"; then
echo "no mismatched lines"
else
echo "mismatched lines: $dcl_wrong"
fi
}
process_check_log ()
{
if grep '^\*\* got: $' <$1 >/dev/null; then
:
else
echo "WARNING: No expressions in file: $1" >&2
echo " Either not a check.log or sanity.sh exited for some other reason," >&2
echo " like bad exit status. Try tail." >&2
return
fi
dcl_exprfiles=""
if grep '^\*\* or: $' <$1 >/dev/null; then
if test $dcl_dofirst -eq 1; then
sed -ne '/^\*\* expected: $/,/^\*\* or: $/p' <$1 >/tmp/dcle$$
dcl_exprfiles="$dcl_exprfiles /tmp/dcle$$"
fi
if test $dcl_doalternate -eq 1; then
sed -ne '/^\*\* or: $/,/^\*\* got: $/p' <$1 >/tmp/dclo$$
dcl_exprfiles="$dcl_exprfiles /tmp/dclo$$"
else
echo "WARNING: Ignoring alternate pattern in file: $1" >&2
fi
else
if test $dcl_dofirst = 1; then
sed -ne '/^\*\* expected: $/,/^\*\* got: $/p' <$1 >/tmp/dcle$$
dcl_exprfiles="$dcl_exprfiles /tmp/dcle$$"
fi
if test $dcl_doalternate -eq 1; then
echo "WARNING: No alternate pattern in file: $1" >&2
fi
fi
sed -ne '/^\*\* got: $/,$p' <$1 >/tmp/dclg$$
sed -ne '1D
$D
p' </tmp/dclg$$ >/tmp/dclh$$
mv /tmp/dclh$$ /tmp/dclg$$
for dcl_f in $dcl_exprfiles; do
sed -ne '1D
$D
p' <$dcl_f >/tmp/dclp$$
mv /tmp/dclp$$ $dcl_f
case $dcl_f in
/tmp/dcle*)
echo "********** $1 : Primary **********"
;;
/tmp/dclo*)
echo "********** $1 : Alternate **********"
;;
esac
expr_line_by_line /tmp/dclg$$ $dcl_f
rm $dcl_f
done
rm /tmp/dclg$$
}
dcl_doalternate=0
dcl_dofirst=0
while getopts afh arg; do
case $arg in
a)
dcl_doalternate=1
;;
f)
dcl_dofirst=1
;;
\?|h)
usage
exit 1
;;
esac
done
shift `expr $OPTIND - 1`
OPTIND=1
if test $dcl_doalternate -eq 0; then
dcl_dofirst=1
fi
if test $ if test -f src/check.log && test -r src/check.log; then
set src/check.log
else
set check.log
fi
fi
for file in "$@"; do
process_check_log $file;
done
exit 0