fix: when two names only differed in case, crossrefs only included one of them.

thanks to greg price.
This commit is contained in:
kolya 2008-10-12 18:33:14 +00:00
parent 2ce40d7088
commit 6186836d28

2
runoff
View file

@ -157,7 +157,7 @@ perl -n -e 'print if s/^([0-9]+ [a-zA-Z0-9_]+)\(.*$/\1/;' alltext |
>s.defs >s.defs
# make reference list # make reference list
for i in `awk '{print $2}' defs | sort -fu` for i in `awk '{print $2}' defs | sort -f | uniq`
do do
defs=`egrep '^[0-9]+ '$i'( |$)' defs | awk '{print $1}'` defs=`egrep '^[0-9]+ '$i'( |$)' defs | awk '{print $1}'`
echo $i $defs >>s.defs echo $i $defs >>s.defs