diff options
author | rsc <rsc> | 2007-08-28 18:23:48 +0000 |
---|---|---|
committer | rsc <rsc> | 2007-08-28 18:23:48 +0000 |
commit | c1b100e93044469de30c634107bc645361cc1a73 (patch) | |
tree | e5e1ead7fa029917abdde9ed0fa9bdb45597d085 /runoff | |
parent | 3e1eaf226d501fc4f57592e1c75c885f8b2e5d99 (diff) | |
download | xv6-labs-c1b100e93044469de30c634107bc645361cc1a73.tar.gz xv6-labs-c1b100e93044469de30c634107bc645361cc1a73.tar.bz2 xv6-labs-c1b100e93044469de30c634107bc645361cc1a73.zip |
nits
Diffstat (limited to 'runoff')
-rwxr-xr-x | runoff | 22 |
1 files changed, 18 insertions, 4 deletions
@@ -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 |