1#!/bin/sh
2
3# Copyright (C) 2000-2005 The Free Software Foundation, Inc.
4
5# This program is free software; you can redistribute it and/or modify
6# it under the terms of the GNU General Public License as published by
7# the Free Software Foundation; either version 2, or (at your option)
8# any later version.
9#
10# This program is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13# GNU General Public License for more details.
14
15#
16# This program is intended to take a check.log file generated by a failed run of
17# sanity.sh as input and run expr line by line on it.  It seems a much easier
18# way of spotting a single failed line in a 100 line test result.
19#
20
21#
22# Contributed by Derek R. Price <derek.price@openavenue.com>
23#
24
25
26
27usage ()
28{
29	echo "\
30usage: $0 [-afh] [file...]
31
32       -a          process alternate pattern
33       -f          process first pattern (default)
34       -h          print this text
35
36     file          files to process (default = check.log)"
37}
38
39# Do a line by line match with expr
40#
41# INPUTS
42#    $1 = text file name
43#    $2 = pattern file name
44expr_line_by_line ()
45{
46	dcl_line=0
47	dcl_wrong=
48	# We are assuming a newline at the end of the file.  The way sanity.sh
49	# uses echo to create the log message guarantees this newline and since
50	# expr ignores the last newline when the anchor is present anyhow, no
51	# information is being lost in the transition
52	while test $dcl_line -lt `wc -l <$1` -a $dcl_line -lt `wc -l <$2`; do
53		dcl_line=`expr $dcl_line + 1`
54		if test `sed -ne${dcl_line}p <$1 |wc -c` -eq 1 \
55				-a `sed -ne${dcl_line}p <$2 |wc -c` -eq 1; then
56			# This is a workaround for what I am calling a bug in GNU
57			# expr - it won't match the empty string to the empty
58			# string.  In this case the assumption is that a single
59			# character is always a newline.  Since we already checked
60			# for the end of the file, we know sed will echo the
61			# newline.
62			: 
63		elif expr "`sed -ne${dcl_line}p <$1`" : \
64				"`sed -ne${dcl_line}p <$2`\$" >/dev/null; then
65			:
66		else
67			echo "$dcl_line: `sed -ne${dcl_line}p <$1`"
68			echo "$dcl_line: `sed -ne${dcl_line}p <$2`\$"
69			dcl_wrong="$dcl_wrong $dcl_line"
70		fi
71	done
72	if test `wc -l <$1` -ne `wc -l <$2`; then
73		echo "output & pattern contain differing number of lines"
74	elif test -z "$dcl_wrong"; then
75		echo "no mismatched lines"
76	else
77		echo "mismatched lines: $dcl_wrong"
78	fi
79}
80
81# Process a single check.log file
82#
83# INPUTS
84#    $1 = filename
85process_check_log ()
86{
87	# abort if we can't find any expressions
88	if grep '^\*\* got: $' <$1 >/dev/null; then
89		:
90	else
91		echo "WARNING:  No expressions in file: $1" >&2
92		echo "          Either not a check.log or sanity.sh exited for some other reason," >&2
93		echo "          like bad exit status.  Try tail." >&2
94		return
95	fi
96
97	dcl_exprfiles=""
98	if grep '^\*\* or: $' <$1 >/dev/null; then
99		# file contains a second regex
100		if test $dcl_dofirst -eq 1; then
101			# get the first pattern
102			sed -ne '/^\*\* expected: $/,/^\*\* or: $/p' <$1 >/tmp/dcle$$
103			dcl_exprfiles="$dcl_exprfiles /tmp/dcle$$"
104		fi
105		if test $dcl_doalternate -eq 1; then
106			# get the alternate pattern
107			sed -ne '/^\*\* or: $/,/^\*\* got: $/p' <$1 >/tmp/dclo$$
108			dcl_exprfiles="$dcl_exprfiles /tmp/dclo$$"
109		else
110			echo "WARNING:  Ignoring alternate pattern in file: $1" >&2
111		fi
112	else
113		# file doesn't contain a second regex
114		if test $dcl_dofirst = 1; then
115			# get the only pattern
116			sed -ne '/^\*\* expected: $/,/^\*\* got: $/p' <$1 >/tmp/dcle$$
117			dcl_exprfiles="$dcl_exprfiles /tmp/dcle$$"
118		fi
119		if test $dcl_doalternate -eq 1; then
120			echo "WARNING:  No alternate pattern in file:  $1" >&2
121		fi
122	fi
123
124	# and get the actual output
125	sed -ne '/^\*\* got: $/,$p' <$1 >/tmp/dclg$$
126	sed -ne '1D
127$D
128p' </tmp/dclg$$ >/tmp/dclh$$
129	mv /tmp/dclh$$ /tmp/dclg$$
130
131	# compare the output against each pattern requested
132	for dcl_f in $dcl_exprfiles; do
133		sed -ne '1D
134$D
135p' <$dcl_f >/tmp/dclp$$
136		mv /tmp/dclp$$ $dcl_f
137
138		case $dcl_f in
139			/tmp/dcle*)
140				echo "********** $1 : Primary **********"
141				;;
142			/tmp/dclo*)
143				echo "********** $1 : Alternate **********"
144				;;
145		esac
146
147		expr_line_by_line /tmp/dclg$$ $dcl_f
148
149		rm $dcl_f
150	done
151
152	rm /tmp/dclg$$
153}
154
155###
156### MAIN
157###
158
159# set up defaults
160dcl_doalternate=0
161dcl_dofirst=0
162
163# process options
164while getopts afh arg; do
165	case $arg in
166		a)
167			dcl_doalternate=1
168			;;
169		f)
170			dcl_dofirst=1
171			;;
172		\?|h)
173			usage
174			exit 1
175			;;
176	esac
177done
178
179# dispose of processed args
180shift `expr $OPTIND - 1`
181OPTIND=1
182
183# set the default mode
184if test $dcl_doalternate -eq 0; then
185	dcl_dofirst=1
186fi
187
188# set default arg
189if test $# -eq 0; then
190	if test -f src/check.log && test -r src/check.log; then
191		set src/check.log
192	else
193		set check.log
194	fi
195fi
196
197for file in "$@"; do
198	process_check_log $file;
199done
200
201exit 0
202