entered into RCS

diff --git a/lib-src/digest-doc.c b/lib-src/digest-doc.c
new file mode 100644 (file)
index 0000000..d7764c0
--- /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 <stdio.h>
+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;
+}