Fix typo.
[kopensolaris-gnu/glibc.git] / manual / xtract-typefun.awk
1 #! /usr/local/bin/gawk -f
2 BEGIN {
3   last_node="";
4 }
5
6 /^@node/ {
7   name = $0;
8   sub(/^@node +/, "", name);
9   sub(/[@,].*$/, "", name);
10   last_node = name;
11 }
12
13 /^@deftype(fn|vr)/ {
14 # The string we want is $4, except that if there were brace blocks
15 # before that point then it gets shifted to the right, since awk
16 # doesn't know from brace blocks.
17   id = 4; check = 2; squig = 0;
18   while(check < id)
19   {
20     if($check ~ /{/) squig++;
21     if($check ~ /}/) squig--;
22     if(squig) id++;
23     check++;
24   }
25
26   printf ("* %s: (libc)%s.\n", $id, last_node);
27 }
28
29 /^@deftypefun/ {
30 # Likewise, except it's $3 theoretically.
31   id = 3; check = 2; squig = 0;
32   while(check < id)
33   {
34     if($check ~ /{/) squig++;
35     if($check ~ /}/) squig--;
36     if(squig) id++;
37     check++;
38   }
39
40   printf ("* %s: (libc)%s.\n", $id, last_node);
41 }