1 files changed, 47 insertions, 0 deletions

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 <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;
+}