From 35a24c8318dd784b62c57b1933ded6e880faaa55 Mon Sep 17 00:00:00 2001 From: rsc Date: Wed, 8 Aug 2007 09:29:18 +0000 Subject: [PATCH] fix index bug --- BUGS | 3 --- runoff | 28 +++++++++++++++------------- 2 files changed, 15 insertions(+), 16 deletions(-) diff --git a/BUGS b/BUGS index 331d1d2..6d859e7 100644 --- 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 index 46c63d1..919d837 100755 --- 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,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