# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 543340343 0
# Node ID bba832d91c66422821645696559ccea61c6433a7
# Parent  5d413eb93b56e4cdab1ad0948fe11ffcd30dfa95
entered into RCS

diff -r 5d413eb93b56 -r bba832d91c66 lib-src/digest-doc.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib-src/digest-doc.c	Sat Mar 21 15:52:23 1987 +0000
@@ -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;
+}