From 8523fe3bc29c8a6157608a6f61d00630a77862b8 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 21 Mar 1987 15:52:23 +0000 Subject: [PATCH] entered into RCS --- lib-src/digest-doc.c | 47 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 lib-src/digest-doc.c diff --git a/lib-src/digest-doc.c b/lib-src/digest-doc.c new file mode 100644 index 00000000000..d7764c08a65 --- /dev/null +++ b/lib-src/digest-doc.c @@ -0,0 +1,47 @@ +/* Give this program DOCSTR.mm.nn as standard input + and it outputs to standard output + a file of nroff output containing the doc strings. + + See also sorted-doc.c, which produces similar output + but in texinfo format and sorted by function/variable name. */ + +#include +main () +{ + register int ch; + register int notfirst = 0; + + printf (".TL\n"); + printf ("Command Summary for GNU Emacs\n"); + printf (".AU\nRichard M. Stallman\n"); + while ((ch = getchar ()) != EOF) + { + if (ch == '\037') + { + if (notfirst) + printf ("\n.DE"); + else + notfirst = 1; + + printf ("\n.SH\n"); + + ch = getchar (); + printf (ch == 'F' ? "Function " : "Variable "); + + while ((ch = getchar ()) != '\n') /* Changed this line */ + { + if (ch != EOF) + putchar (ch); + else + { + ungetc (ch, stdin); + break; + } + } + printf ("\n.DS L\n"); + } + else + putchar (ch); + } + return 0; +} -- 2.39.5