PageRenderTime 29ms CodeModel.GetById 18ms app.highlight 8ms RepoModel.GetById 1ms app.codeStats 0ms

/contrib/cvs/contrib/debug_check_log.sh

https://bitbucket.org/freebsd/freebsd-head/
Shell | 201 lines | 121 code | 26 blank | 54 comment | 17 complexity | 41586ca08b11dc1e0bbbe6534e6e4ecd MD5 | raw file
  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