Commit | Line | Data |
---|---|---|
8523fe3b JB |
1 | /* Give this program DOCSTR.mm.nn as standard input |
2 | and it outputs to standard output | |
3 | a file of nroff output containing the doc strings. | |
4 | ||
5 | See also sorted-doc.c, which produces similar output | |
6 | but in texinfo format and sorted by function/variable name. */ | |
7 | ||
8 | #include <stdio.h> | |
340ff9de DM |
9 | |
10 | int | |
8523fe3b JB |
11 | main () |
12 | { | |
13 | register int ch; | |
14 | register int notfirst = 0; | |
15 | ||
16 | printf (".TL\n"); | |
17 | printf ("Command Summary for GNU Emacs\n"); | |
18 | printf (".AU\nRichard M. Stallman\n"); | |
19 | while ((ch = getchar ()) != EOF) | |
20 | { | |
21 | if (ch == '\037') | |
22 | { | |
23 | if (notfirst) | |
24 | printf ("\n.DE"); | |
25 | else | |
26 | notfirst = 1; | |
27 | ||
28 | printf ("\n.SH\n"); | |
29 | ||
30 | ch = getchar (); | |
31 | printf (ch == 'F' ? "Function " : "Variable "); | |
32 | ||
33 | while ((ch = getchar ()) != '\n') /* Changed this line */ | |
34 | { | |
35 | if (ch != EOF) | |
36 | putchar (ch); | |
37 | else | |
38 | { | |
39 | ungetc (ch, stdin); | |
40 | break; | |
41 | } | |
42 | } | |
43 | printf ("\n.DS L\n"); | |
44 | } | |
45 | else | |
46 | putchar (ch); | |
47 | } | |
48 | return 0; | |
49 | } |