commit 35a24c8318dd784b62c57b1933ded6e880faaa55
parent 2e51e12f0917229ff2bc8dfca22c9b35172e9445
Author: rsc <rsc>
Date: Wed, 8 Aug 2007 09:29:18 +0000
fix index bug
Diffstat:
M | BUGS | | | 3 | --- |
M | runoff | | | 26 | ++++++++++++++------------ |
2 files changed, 14 insertions(+), 15 deletions(-)
diff --git a/BUGS b/BUGS
@@ -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
diff --git a/runoff b/runoff
@@ -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,20 +63,11 @@ perl -e '
if (/^[0-9]+ struct [a-zA-Z0-9_]+;/) {
next;
}
- if (/\(/) {
- next;
- }
-
- if (/^([0-9]+) (((static|struct|extern|union|enum) +)*([A-Za-z0-9_]+))( .*)? +([A-Za-z_][A-Za-z0-9_]*)[,;]/) {
-
- print "$1 $7\n"
- }
-
- elsif (/^([0-9]+) #define +([A-za-z0-9_]+) +?\(.*/) {
+ if (/^([0-9]+) #define +([A-za-z0-9_]+) +?\(.*/) {
print "$1 $2\n"
}
- elsif (/^([0-9]+) #define +([A-Za-z0-9_]+) +([^ ]+)$/) {
+ elsif (/^([0-9]+) #define +([A-Za-z0-9_]+) +([^ ]+)/) {
print "$1 $2 $3\n";
}
@@ -82,6 +75,15 @@ perl -e '
print "$1 $2\n";
}
+ if (/\(/) {
+ next;
+ }
+
+ if (/^([0-9]+) (((static|struct|extern|union|enum) +)*([A-Za-z0-9_]+))( .*)? +([A-Za-z_][A-Za-z0-9_]*)[,;]/) {
+
+ print "$1 $7\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