Return to digest-doc.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / etc

Annotation of 43BSDReno/contrib/emacs-18.55/etc/digest-doc.c, revision 1.1

1.1     ! root        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: main ()
        !            10: {
        !            11:   register int ch;
        !            12:   register int notfirst = 0;
        !            13: 
        !            14:   printf (".TL\n");
        !            15:   printf ("Command Summary for GNU Emacs\n");
        !            16:   printf (".AU\nRichard M. Stallman\n");
        !            17:   while ((ch = getchar ()) != EOF)
        !            18:     {
        !            19:       if (ch == '\037')
        !            20:        {
        !            21:          if (notfirst)
        !            22:            printf ("\n.DE");
        !            23:          else
        !            24:            notfirst = 1;
        !            25: 
        !            26:          printf ("\n.SH\n");
        !            27: 
        !            28:          ch = getchar ();
        !            29:          printf (ch == 'F' ? "Function " : "Variable ");
        !            30: 
        !            31:          while ((ch = getchar ()) != '\n')  /* Changed this line */
        !            32:            {
        !            33:              if (ch != EOF)
        !            34:                  putchar (ch);
        !            35:              else
        !            36:                {
        !            37:                  ungetc (ch, stdin);
        !            38:                  break;
        !            39:                }
        !            40:            }
        !            41:          printf ("\n.DS L\n");
        !            42:        }
        !            43:       else
        !            44:        putchar (ch);
        !            45:     }
        !            46:   return 0;
        !            47: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.