Formerly ../hurd/alloc-fd.c.~6~
[kopensolaris-gnu/glibc.git] / hurd / hurdintr.awk
1 BEGIN { intr=0; wantcall=0; calls=""; }
2  
3 $1 == "/*" && $2 == "INTR" && $3 == "*/" { intr=1; }
4
5 NF == 1 && $1 == "routine"      { wantcall=1; next; }
6
7 intr != 0 && wantcall == 0 && NF >= 2 && $1 == "routine" \
8   {
9     if (substr($2, length($2)-2, 1) == "(")
10       calls = calls " " substr($2, 0, length($2)-1);
11     else calls = calls " " $2;
12     intr=0;
13   }
14
15 wantcall != 0 && NF >= 1 \
16   {
17     if (substr($1, length($1)-2, 1) == "(")
18       calls = calls " " substr($1, 0, length($1)-1);
19     else calls = calls " " $1;
20     intr=0;
21   }
22
23 { wantcall=0; }
24
25 END { print varname " :=" calls; }