entered into RCS

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