lib-src/digest-doc.c

   1 /* Give this program DOCSTR.mm.nn as standard input
   2    and it outputs to standard output
   3    a file of nroff output containing the doc strings.
   4
   5    See also sorted-doc.c, which produces similar output
   6    but in texinfo format and sorted by function/variable name.  */
   7
   8 #include <stdio.h>
   9
  10 int
  11 main ()
  12 {
  13   register int ch;
  14   register int notfirst = 0;
  15
  16   printf (".TL\n");
  17   printf ("Command Summary for GNU Emacs\n");
  18   printf (".AU\nRichard M. Stallman\n");
  19   while ((ch = getchar ()) != EOF)
  20     {
  21       if (ch == '\037')
  22         {
  23           if (notfirst)
  24             printf ("\n.DE");
  25           else
  26             notfirst = 1;
  27
  28           printf ("\n.SH\n");
  29
  30           ch = getchar ();
  31           printf (ch == 'F' ? "Function " : "Variable ");
  32
  33           while ((ch = getchar ()) != '\n')  /* Changed this line */
  34             {
  35               if (ch != EOF)
  36                   putchar (ch);
  37               else
  38                 {
  39                   ungetc (ch, stdin);
  40                   break;
  41                 }
  42             }
  43           printf ("\n.DS L\n");
  44         }
  45       else
  46         putchar (ch);
  47     }
  48   return 0;
  49 }