Mercurial > emacs
annotate lib-src/sorted-doc.c @ 109111:52b76722152a
Convert function definitions to standard C.
* lib-src/update-game-score.c: Convert function definitions to standard C.
* lib-src/sorted-doc.c:
* lib-src/profile.c:
* lib-src/pop.c:
* lib-src/movemail.c:
* lib-src/make-docfile.c:
* lib-src/hexl.c:
* lib-src/fakemail.c:
* lib-src/etags.c:
* lib-src/ebrowse.c:
* lib-src/digest-doc.c:
* lib-src/b2m.c: Likewise.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 02 Jul 2010 17:50:23 -0700 |
parents | 1d1d5d9bd884 |
children | 71150397fb59 |
rev | line source |
---|---|
42260 | 1 /* Give this program DOC-mm.nn.oo as standard input and it outputs to |
36226 | 2 standard output a file of texinfo input containing the doc strings. |
42439
d8a417105504
Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents:
42412
diff
changeset
|
3 |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
4 Copyright (C) 1989, 1992, 1994, 1996, 1999, 2000, 2001, 2002, 2003, |
106815 | 5 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
36226 | 6 |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
7 This file is part of GNU Emacs. |
36226 | 8 |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
9 GNU Emacs is free software: you can redistribute it and/or modify |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
10 it under the terms of the GNU General Public License as published by |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
11 the Free Software Foundation, either version 3 of the License, or |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
12 (at your option) any later version. |
36226 | 13 |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
14 GNU Emacs is distributed in the hope that it will be useful, |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
15 but WITHOUT ANY WARRANTY; without even the implied warranty of |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
17 GNU General Public License for more details. |
36226 | 18 |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
19 You should have received a copy of the GNU General Public License |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
42258 | 21 |
94828
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
22 |
3a4bc081639c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79748
diff
changeset
|
23 /* This version sorts the output by function name. */ |
29 | 24 |
42412 | 25 #ifdef HAVE_CONFIG_H |
26 #include <config.h> | |
27 #endif | |
28 | |
29 | 29 #include <stdio.h> |
30 #include <ctype.h> | |
71192
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
31 #ifdef DOS_NT |
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
32 #include <fcntl.h> /* for O_BINARY */ |
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
33 #include <io.h> /* for setmode */ |
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
34 #endif |
31884 | 35 #ifndef HAVE_STDLIB_H /* config.h includes stdlib. */ |
71192
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
36 #ifndef WINDOWSNT /* src/s/ms-w32.h includes stdlib.h */ |
29 | 37 extern char *malloc (); |
31884 | 38 #endif |
71192
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
39 #endif |
29 | 40 |
41 #define NUL '\0' | |
42 #define MARKER '\037' | |
43 | |
44 #define DEBUG 0 | |
45 | |
46 typedef struct line LINE; | |
47 | |
48 struct line | |
49 { | |
50 LINE *next; /* ptr to next or NULL */ | |
51 char *line; /* text of the line */ | |
52 }; | |
53 | |
54 typedef struct docstr DOCSTR; | |
55 | |
56 struct docstr /* Allocated thing for an entry. */ | |
57 { | |
58 DOCSTR *next; /* next in the chain */ | |
59 char *name; /* name of the function or var */ | |
60 LINE *first; /* first line of doc text. */ | |
61 char type; /* 'F' for function, 'V' for variable */ | |
62 }; | |
63 | |
64 | |
65 /* Print error message. `s1' is printf control string, `s2' is arg for it. */ | |
66 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
67 void |
109111
52b76722152a
Convert function definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
106815
diff
changeset
|
68 error (char *s1, char *s2) |
29 | 69 { |
70 fprintf (stderr, "sorted-doc: "); | |
71 fprintf (stderr, s1, s2); | |
72 fprintf (stderr, "\n"); | |
73 } | |
74 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
75 /* Print error message and exit. */ |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
76 |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
77 void |
109111
52b76722152a
Convert function definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
106815
diff
changeset
|
78 fatal (char *s1, char *s2) |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
79 { |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
80 error (s1, s2); |
55442
a47704955f8d
Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
81 exit (EXIT_FAILURE); |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
82 } |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
83 |
29 | 84 /* Like malloc but get fatal error if memory is exhausted. */ |
85 | |
86 char * | |
109111
52b76722152a
Convert function definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
106815
diff
changeset
|
87 xmalloc (int size) |
29 | 88 { |
89 char *result = malloc ((unsigned)size); | |
90 if (result == NULL) | |
91 fatal ("%s", "virtual memory exhausted"); | |
92 return result; | |
93 } | |
94 | |
95 char * | |
109111
52b76722152a
Convert function definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
106815
diff
changeset
|
96 xstrdup (char *str) |
29 | 97 { |
98 char *buf = xmalloc (strlen (str) + 1); | |
99 (void) strcpy (buf, str); | |
100 return (buf); | |
101 } | |
102 | |
103 /* Comparison function for qsort to call. */ | |
104 | |
105 int | |
109111
52b76722152a
Convert function definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
106815
diff
changeset
|
106 cmpdoc (DOCSTR **a, DOCSTR **b) |
29 | 107 { |
108 register int val = strcmp ((*a)->name, (*b)->name); | |
109 if (val) return val; | |
110 return (*a)->type - (*b)->type; | |
111 } | |
112 | |
113 | |
114 enum state | |
115 { | |
116 WAITING, BEG_NAME, NAME_GET, BEG_DESC, DESC_GET | |
117 }; | |
118 | |
119 char *states[] = | |
120 { | |
121 "WAITING", "BEG_NAME", "NAME_GET", "BEG_DESC", "DESC_GET" | |
122 }; | |
42439
d8a417105504
Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents:
42412
diff
changeset
|
123 |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
124 int |
109111
52b76722152a
Convert function definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
106815
diff
changeset
|
125 main (void) |
29 | 126 { |
127 register DOCSTR *dp = NULL; /* allocated DOCSTR */ | |
128 register LINE *lp = NULL; /* allocated line */ | |
129 register char *bp; /* ptr inside line buffer */ | |
130 register enum state state = WAITING; /* state at start */ | |
131 int cnt = 0; /* number of DOCSTRs read */ | |
132 | |
70285
0f15a453179c
(main): Initialize docs to NULL.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
68647
diff
changeset
|
133 DOCSTR *docs = NULL; /* chain of allocated DOCSTRS */ |
29 | 134 char buf[512]; /* line buffer */ |
42439
d8a417105504
Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents:
42412
diff
changeset
|
135 |
71192
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
136 #ifdef DOS_NT |
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
137 /* DOC is a binary file. */ |
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
138 if (!isatty (fileno (stdin))) |
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
139 setmode (fileno (stdin), O_BINARY); |
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
140 #endif |
fa429804cb96
[DOS_NT] <top level>: Include fcntl.h and io.h.
Eli Zaretskii <eliz@gnu.org>
parents:
70285
diff
changeset
|
141 |
71194
036770549c03
(main): Initialize bp, to avoid compiler warnings
Eli Zaretskii <eliz@gnu.org>
parents:
71192
diff
changeset
|
142 bp = buf; |
036770549c03
(main): Initialize bp, to avoid compiler warnings
Eli Zaretskii <eliz@gnu.org>
parents:
71192
diff
changeset
|
143 |
29 | 144 while (1) /* process one char at a time */ |
145 { | |
146 /* this char from the DOCSTR file */ | |
147 register int ch = getchar (); | |
148 | |
149 /* Beginnings */ | |
150 | |
151 if (state == WAITING) | |
152 { | |
153 if (ch == MARKER) | |
154 state = BEG_NAME; | |
155 } | |
156 else if (state == BEG_NAME) | |
157 { | |
158 cnt++; | |
159 if (dp == NULL) /* first dp allocated */ | |
160 { | |
161 docs = dp = (DOCSTR*) xmalloc (sizeof (DOCSTR)); | |
162 } | |
163 else /* all the rest */ | |
164 { | |
165 dp->next = (DOCSTR*) xmalloc (sizeof (DOCSTR)); | |
166 dp = dp->next; | |
167 } | |
168 lp = NULL; | |
169 dp->next = NULL; | |
170 bp = buf; | |
171 state = NAME_GET; | |
172 /* Record whether function or variable. */ | |
173 dp->type = ch; | |
174 ch = getchar (); | |
175 } | |
176 else if (state == BEG_DESC) | |
177 { | |
178 if (lp == NULL) /* first line for dp */ | |
179 { | |
180 dp->first = lp = (LINE*)xmalloc (sizeof (LINE)); | |
181 } | |
182 else /* continuing lines */ | |
183 { | |
184 lp->next = (LINE*)xmalloc (sizeof (LINE)); | |
185 lp = lp->next; | |
186 } | |
187 lp->next = NULL; | |
188 bp = buf; | |
189 state = DESC_GET; | |
190 } | |
42439
d8a417105504
Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents:
42412
diff
changeset
|
191 |
29 | 192 /* process gets */ |
193 | |
194 if (state == NAME_GET || state == DESC_GET) | |
195 { | |
196 if (ch != MARKER && ch != '\n' && ch != EOF) | |
197 { | |
198 *bp++ = ch; | |
199 } | |
200 else /* saving and changing state */ | |
201 { | |
202 *bp = NUL; | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
1175
diff
changeset
|
203 bp = xstrdup (buf); |
29 | 204 |
205 if (state == NAME_GET) | |
206 dp->name = bp; | |
207 else | |
208 lp->line = bp; | |
209 | |
210 bp = buf; | |
211 state = (ch == MARKER) ? BEG_NAME : BEG_DESC; | |
212 } | |
213 } /* NAME_GET || DESC_GET */ | |
214 if (ch == EOF) | |
215 break; | |
216 } | |
217 | |
218 { | |
219 DOCSTR **array; | |
220 register int i; /* counter */ | |
221 | |
222 /* build array of ptrs to DOCSTRs */ | |
223 | |
224 array = (DOCSTR**)xmalloc (cnt * sizeof (*array)); | |
225 for (dp = docs, i = 0; dp != NULL ; dp = dp->next) | |
226 array[i++] = dp; | |
227 | |
228 /* sort the array by name; within each name, by type */ | |
229 | |
230 qsort ((char*)array, cnt, sizeof (DOCSTR*), cmpdoc); | |
231 | |
232 /* write the output header */ | |
233 | |
234 printf ("\\input texinfo @c -*-texinfo-*-\n"); | |
235 printf ("@setfilename ../info/summary\n"); | |
236 printf ("@settitle Command Summary for GNU Emacs\n"); | |
24533
32a7344ac2e7
(main): Split up tables. Modify the preamble
Dave Love <fx@gnu.org>
parents:
15719
diff
changeset
|
237 printf ("@finalout\n"); |
29 | 238 printf ("@unnumbered Command Summary for GNU Emacs\n"); |
239 printf ("@table @asis\n"); | |
1175 | 240 printf ("\n"); |
24533
32a7344ac2e7
(main): Split up tables. Modify the preamble
Dave Love <fx@gnu.org>
parents:
15719
diff
changeset
|
241 printf ("@iftex\n"); |
32a7344ac2e7
(main): Split up tables. Modify the preamble
Dave Love <fx@gnu.org>
parents:
15719
diff
changeset
|
242 printf ("@global@let@ITEM@item\n"); |
1175 | 243 printf ("@def@item{@filbreak@vskip5pt@ITEM}\n"); |
244 printf ("@font@tensy cmsy10 scaled @magstephalf\n"); | |
245 printf ("@font@teni cmmi10 scaled @magstephalf\n"); | |
246 printf ("@def\\{{@tensy@char110}}\n"); /* this backslash goes with cmr10 */ | |
247 printf ("@def|{{@tensy@char106}}\n"); | |
248 printf ("@def@{{{@tensy@char102}}\n"); | |
249 printf ("@def@}{{@tensy@char103}}\n"); | |
250 printf ("@def<{{@teni@char62}}\n"); | |
251 printf ("@def>{{@teni@char60}}\n"); | |
252 printf ("@chardef@@64\n"); | |
253 printf ("@catcode43=12\n"); | |
254 printf ("@tableindent-0.2in\n"); | |
24533
32a7344ac2e7
(main): Split up tables. Modify the preamble
Dave Love <fx@gnu.org>
parents:
15719
diff
changeset
|
255 printf ("@end iftex\n"); |
29 | 256 |
257 /* print each function from the array */ | |
258 | |
259 for (i = 0; i < cnt; i++) | |
260 { | |
261 printf ("\n@item %s @code{%s}\n@display\n", | |
262 array[i]->type == 'F' ? "Function" : "Variable", | |
263 array[i]->name); | |
264 | |
265 for (lp = array[i]->first; lp != NULL ; lp = lp->next) | |
266 { | |
267 for (bp = lp->line; *bp; bp++) | |
268 { | |
269 /* the characters "@{}" need special treatment */ | |
270 if (*bp == '@' || *bp == '{' || *bp == '}') | |
271 { | |
272 putchar('@'); | |
273 } | |
274 putchar(*bp); | |
275 } | |
276 putchar ('\n'); | |
277 } | |
278 printf("@end display\n"); | |
24533
32a7344ac2e7
(main): Split up tables. Modify the preamble
Dave Love <fx@gnu.org>
parents:
15719
diff
changeset
|
279 /* Try to avoid a save size overflow in the TeX output |
32a7344ac2e7
(main): Split up tables. Modify the preamble
Dave Love <fx@gnu.org>
parents:
15719
diff
changeset
|
280 routine. */ |
32a7344ac2e7
(main): Split up tables. Modify the preamble
Dave Love <fx@gnu.org>
parents:
15719
diff
changeset
|
281 if (i%100 == 0 && i > 0 && i != cnt) |
32a7344ac2e7
(main): Split up tables. Modify the preamble
Dave Love <fx@gnu.org>
parents:
15719
diff
changeset
|
282 printf("\n@end table\n@table @asis\n"); |
29 | 283 } |
284 | |
285 printf ("@end table\n"); | |
286 printf ("@bye\n"); | |
287 } | |
288 | |
55442
a47704955f8d
Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
289 return EXIT_SUCCESS; |
29 | 290 } |
52401 | 291 |
292 /* arch-tag: ce28f204-1e70-4b34-8210-3d54a5662071 | |
293 (do not change this comment) */ | |
55442
a47704955f8d
Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
294 |
a47704955f8d
Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
295 /* sorted-doc.c ends here */ |