fix index bug

This commit is contained in:
rsc 2007-08-08 09:29:18 +00:00
parent 2e51e12f09
commit 35a24c8318
2 changed files with 15 additions and 16 deletions

3
BUGS
View file

@ -1,6 +1,3 @@
index:
SEG_NULL, SEG_ASM not in the index
proc.c:
as a consequence of the implementation of proc_kill,
any loop calling sleep should check for p->killed

28
runoff
View file

@ -2,6 +2,8 @@
echo This script takes a minute to run. Be patient. 1>&2
LC_CTYPE=C export LC_CTYPE
# pad stdin to multiple of 120 lines
pad()
{
@ -61,6 +63,18 @@ perl -e '
if (/^[0-9]+ struct [a-zA-Z0-9_]+;/) {
next;
}
if (/^([0-9]+) #define +([A-za-z0-9_]+) +?\(.*/) {
print "$1 $2\n"
}
elsif (/^([0-9]+) #define +([A-Za-z0-9_]+) +([^ ]+)/) {
print "$1 $2 $3\n";
}
elsif (/^([0-9]+) #define +([A-Za-z0-9_]+)/) {
print "$1 $2\n";
}
if (/\(/) {
next;
}
@ -70,18 +84,6 @@ perl -e '
print "$1 $7\n"
}
elsif (/^([0-9]+) #define +([A-za-z0-9_]+) +?\(.*/) {
print "$1 $2\n"
}
elsif (/^([0-9]+) #define +([A-Za-z0-9_]+) +([^ ]+)$/) {
print "$1 $2 $3\n";
}
elsif (/^([0-9]+) #define +([A-Za-z0-9_]+)/) {
print "$1 $2\n";
}
elsif(/^([0-9]+) (enum|struct|union) +([A-Za-z0-9_]+) +{/){
print "$1 $3\n";
}
@ -130,7 +132,7 @@ awk '
grep Pages: all.ps
# if we have the nice font, use it
nicefont=~rsc/plan9/sys/lib/postscript/font/LucidaSans-Typewriter83
nicefont=~rsc/lib/postscript/LucidaSans-Typewriter83
if [ -f $nicefont ]
then
(sed 1q all.ps; cat $nicefont; sed '1d; s/Courier/LucidaSans-Typewriter83/' all.ps) >allf.ps