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 }