1 #! /usr/local/bin/gawk -f
8 sub(/^@node +/, "", name);
9 sub(/[@,].*$/, "", name);
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;
20 if($check ~ /{/) squig++;
21 if($check ~ /}/) squig--;
26 gsub(/[(){}*]/, "", $id);
27 printf ("* %s: (libc)%s.\n", $id, last_node);
31 # Likewise, except it's $3 theoretically.
32 id = 3; check = 2; squig = 0;
35 if($check ~ /{/) squig++;
36 if($check ~ /}/) squig--;
41 gsub(/[(){}*]/, "", $id);
42 printf ("* %s: (libc)%s.\n", $id, last_node);