From c1b100e93044469de30c634107bc645361cc1a73 Mon Sep 17 00:00:00 2001
From: rsc <rsc>
Date: Tue, 28 Aug 2007 18:23:48 +0000
Subject: nits

---
 runoff | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

(limited to 'runoff')

diff --git a/runoff b/runoff
index 3869391..37ca014 100755
--- a/runoff
+++ b/runoff
@@ -134,7 +134,19 @@ perl -e '
 	}
 ' $files >defs
 
-perl -n -e 'print if s/^([0-9]+ [a-zA-Z0-9_]+)\(.*$/\1/;' $files |
+(for i in $files
+do
+	case "$i" in
+	*.S)
+		cat $i | sed 's;#.*;;; s;//.*;;;'
+		;;
+	*)
+		cat $i | sed 's;//.*;;; s;"([^"\\]|\\.)*";;;'
+	esac
+done
+) >alltext
+
+perl -n -e 'print if s/^([0-9]+ [a-zA-Z0-9_]+)\(.*$/\1/;' alltext |
 	egrep -v ' (usage|main|if|for)$' >>defs
 (
 >s.defs
@@ -144,9 +156,11 @@ for i in `awk '{print $2}' defs | sort -fu`
 do
 	defs=`egrep '^[0-9]+ '$i'( |$)' defs | awk '{print $1}'`
 	echo $i $defs >>s.defs
-	uses=`egrep -h '([^a-zA-Z_0-9])'$i'($|[^a-zA-Z_0-9])' $files | awk '{print $1}'`
-	echo $i $defs
-	echo $uses |fmt -24 | sed 's/^/    /'
+	uses=`egrep -h '([^a-zA-Z_0-9])'$i'($|[^a-zA-Z_0-9])' alltext | awk '{print $1}'`
+	if [ "x$defs" != "x$uses" ]; then
+		echo $i $defs
+		echo $uses |fmt -24 | sed 's/^/    /'
+	fi
 done
 ) >refs
 
-- 
cgit v1.2.3