1
# awk script to create summary.texinfo from the library texinfo files.
2
# Copyright (C) 1992, 1993, 1997, 2001 Free Software Foundation, Inc.
3
# This file is part of the GNU C Library.
5
# The GNU C Library is free software; you can redistribute it and/or
6
# modify it under the terms of the GNU Lesser General Public
7
# License as published by the Free Software Foundation; either
8
# version 2.1 of the License, or (at your option) any later version.
10
# The GNU C Library is distributed in the hope that it will be useful,
11
# but WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13
# Lesser General Public License for more details.
15
# You should have received a copy of the GNU Lesser General Public
16
# License along with the GNU C Library; if not, write to the Free
17
# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
20
# This script recognizes sequences that look like:
23
# @def... ITEM | @item ITEM | @vindex ITEM
29
nameword["@defmacx"]=1
30
nameword["@defspec"]=1
31
nameword["@defspecx"]=1
33
nameword["@defvarx"]=1
35
nameword["@defoptx"]=1
42
nameword["@deftypefun"]=2
43
nameword["@deftypefunx"]=2
44
nameword["@deftypevar"]=2
45
nameword["@deftypevarx"]=2
46
nameword["@deftypefn"]=3
47
nameword["@deftypefnx"]=3
48
nameword["@deftypevr"]=3
49
nameword["@deftypevrx"]=3
51
firstword["@defunx"]=1
52
firstword["@defmac"]=1
53
firstword["@defmacx"]=1
54
firstword["@defspec"]=1
55
firstword["@defspecx"]=1
56
firstword["@defvar"]=1
57
firstword["@defvarx"]=1
58
firstword["@defopt"]=1
59
firstword["@defoptx"]=1
61
firstword["@deffnx"]=2
63
firstword["@defvrx"]=2
65
firstword["@deftpx"]=2
66
firstword["@deftypefun"]=1
67
firstword["@deftypefunx"]=1
68
firstword["@deftypevar"]=1
69
firstword["@deftypevarx"]=1
70
firstword["@deftypefn"]=2
71
firstword["@deftypefnx"]=2
72
firstword["@deftypevr"]=2
73
firstword["@deftypevrx"]=2
79
firstword["@vindex"]=1
81
print "@c DO NOT EDIT THIS FILE!"
82
print "@c This file is generated by summary.awk from the Texinfo sources."
85
$1 == "@node" { node=$2;
86
for (i = 3; i <= NF; ++i)
87
{ node=node " " $i; if ( $i ~ /,/ ) break; }
88
sub (/,[, ]*$/, "", node);
91
$1 == "@comment" && $2 ~ /\.h$/ { header="@file{" $2 "}";
92
for (i = 3; i <= NF; ++i)
93
header=header ", @file{" $i "}"
96
$1 == "@comment" && $2 == "(none)" { header = -1; }
98
$1 == "@comment" && header != 0 { std=$2;
99
for (i=3;i<=NF;++i) std=std " " $i }
101
header != 0 && $1 ~ /@def|@item|@vindex/ \
102
{ defn=""; name=""; curly=0; n=1;
103
for (i = 2; i <= NF; ++i) {
104
if ($i ~ /^{/ && $i !~ /}/) {
106
word=substr ($i, 2, length ($i))
112
word=word " " substr ($i, 1, length ($i) - 1)
116
# Handle a single word in braces.
117
else if ($i ~ /^{.*}$/)
118
word=substr ($i, 2, length ($i) - 2)
122
if (n >= firstword[$1])
124
if (n == nameword[$1])
130
printf "@comment %s%c", name, 12 # FF
131
printf "@item%s%c%c", defn, 12, 12
132
if (header != -1) printf "%s ", header;
133
printf "(%s): @ref{%s}.%c\n", std, node, 12;