From a6a5f54f2850da3d8840cc77c8892b2ce520cf63 Mon Sep 17 00:00:00 2001 From: Ulrich Drepper Date: Wed, 5 Mar 1997 20:59:58 +0000 Subject: *** empty log message *** --- manual/xtract-typefun.awk | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 manual/xtract-typefun.awk diff --git a/manual/xtract-typefun.awk b/manual/xtract-typefun.awk new file mode 100644 index 0000000000..6450ac10eb --- /dev/null +++ b/manual/xtract-typefun.awk @@ -0,0 +1,26 @@ +#! /usr/local/bin/gawk -f +BEGIN { + last_node=""; +} + +/^@node/ { + last_node = gensub (/@node +([^@,]+).*/, "\\1", 1); +} + +/^@deftypefun/ { + printf ("* %s: (libc)%s.\n", + gensub (/@deftypefun +([^{ ]+|\{[^}]+\}) +([[:alpha:]_][[:alnum:]_]+).*/, "\\2", 1), + last_node); +} + +/^@deftypevr/ { + printf ("* %s: (libc)%s.\n", + gensub (/@deftypevr +([^{ ]+|\{[^}]+\}) +([^{ ]+|\{[^}]+\}) +([[:alpha:]_][[:alnum:]_]+).*/, "\\3", 1), + last_node); +} + +/^@deftypefn/ { + printf ("* %s: (libc)%s.\n", + gensub (/@deftypefn +([^{ ]+|\{[^}]+\}) +[^{ ]*(\{[^}]+\})? +([[:alpha:]_][[:alnum:]_]+).*/, "\\3", 1), + last_node); +} -- cgit v1.2.3