Mercurial > emacs
annotate lib-src/digest-doc.c @ 25976:8565fbac98d7
Use "pop3" as the POP service name on all platforms,
instead of using "pop" on Unix and "pop3" on Windows NT. "pop3"
has been the standard service name since RFC 1340 was published in
July 1992, so I think it's safe to start using it by default.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sun, 10 Oct 1999 23:07:36 +0000 |
parents | dd3b83e4ceb0 |
children | c8fb06423da0 |
rev | line source |
---|---|
9 | 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> | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
9
diff
changeset
|
9 |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
9
diff
changeset
|
10 int |
9 | 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 } |