*** empty log message ***
[emacs.git] / lib-src / digest-doc.c
blob24d1348b0ee16b57ba4691fadd3da5e2f0ad34f2
1 /* Give this program DOC-mm.nn.oo as standard input and it outputs to
2 standard output a file of nroff output containing the doc strings.
4 Copyright (C) 1987, 1994, 2001 Free Software Foundation Inc.
6 This file is part of GNU Emacs.
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.
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.
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 the
20 Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA.
23 See also sorted-doc.c, which produces similar output
24 but in texinfo format and sorted by function/variable name. */
26 #include <stdio.h>
28 int
29 main ()
31 register int ch;
32 register int notfirst = 0;
34 printf (".TL\n");
35 printf ("Command Summary for GNU Emacs\n");
36 printf (".AU\nRichard M. Stallman\n");
37 while ((ch = getchar ()) != EOF)
39 if (ch == '\037')
41 if (notfirst)
42 printf ("\n.DE");
43 else
44 notfirst = 1;
46 printf ("\n.SH\n");
48 ch = getchar ();
49 printf (ch == 'F' ? "Function " : "Variable ");
51 while ((ch = getchar ()) != '\n') /* Changed this line */
53 if (ch != EOF)
54 putchar (ch);
55 else
57 ungetc (ch, stdin);
58 break;
61 printf ("\n.DS L\n");
63 else
64 putchar (ch);
66 return 0;