Mercurial > emacs
annotate lib-src/digest-doc.c @ 41488:a93b6b418d0e
*** empty log message ***
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sun, 25 Nov 2001 11:35:13 +0000 |
parents | c8fb06423da0 |
children | c9f9c2f9d025 |
rev | line source |
---|---|
36226 | 1 /* Give this program DOCSTR.mm.nn as standard input and it outputs to |
2 standard output a file of nroff output containing the doc strings. | |
3 | |
4 Copyright (C) 1987, 1994, 2001 Free Software Foundation Inc. | |
5 | |
6 This file is part of GNU Emacs. | |
9 | 7 |
36226 | 8 GNU Emacs is free software; you can redistribute it and/or modify |
9 it under the terms of the GNU General Public License as published by | |
10 the Free Software Foundation; either version 2, or (at your option) | |
11 any later version. | |
12 | |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
19 along with GNU Emacs; see the file COPYING. If not, write to | |
20 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
21 | |
9 | 22 See also sorted-doc.c, which produces similar output |
23 but in texinfo format and sorted by function/variable name. */ | |
24 | |
25 #include <stdio.h> | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
9
diff
changeset
|
26 |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
9
diff
changeset
|
27 int |
9 | 28 main () |
29 { | |
30 register int ch; | |
31 register int notfirst = 0; | |
32 | |
33 printf (".TL\n"); | |
34 printf ("Command Summary for GNU Emacs\n"); | |
35 printf (".AU\nRichard M. Stallman\n"); | |
36 while ((ch = getchar ()) != EOF) | |
37 { | |
38 if (ch == '\037') | |
39 { | |
40 if (notfirst) | |
41 printf ("\n.DE"); | |
42 else | |
43 notfirst = 1; | |
44 | |
45 printf ("\n.SH\n"); | |
46 | |
47 ch = getchar (); | |
48 printf (ch == 'F' ? "Function " : "Variable "); | |
49 | |
50 while ((ch = getchar ()) != '\n') /* Changed this line */ | |
51 { | |
52 if (ch != EOF) | |
53 putchar (ch); | |
54 else | |
55 { | |
56 ungetc (ch, stdin); | |
57 break; | |
58 } | |
59 } | |
60 printf ("\n.DS L\n"); | |
61 } | |
62 else | |
63 putchar (ch); | |
64 } | |
65 return 0; | |
66 } |