*** empty log message ***
[emacs.git] / lib-src / digest-doc.c
blob9bea55849d0f632ccdc027fcc330de301ff2702e
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.
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
20 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
22 See also sorted-doc.c, which produces similar output
23 but in texinfo format and sorted by function/variable name. */
25 #include <stdio.h>
27 int
28 main ()
30 register int ch;
31 register int notfirst = 0;
33 printf (".TL\n");
34 printf ("Command Summary for GNU Emacs\n");
35 printf (".AU\nRichard M. Stallman\n");
36 while ((ch = getchar ()) != EOF)
38 if (ch == '\037')
40 if (notfirst)
41 printf ("\n.DE");
42 else
43 notfirst = 1;
45 printf ("\n.SH\n");
47 ch = getchar ();
48 printf (ch == 'F' ? "Function " : "Variable ");
50 while ((ch = getchar ()) != '\n') /* Changed this line */
52 if (ch != EOF)
53 putchar (ch);
54 else
56 ungetc (ch, stdin);
57 break;
60 printf ("\n.DS L\n");
62 else
63 putchar (ch);
65 return 0;