Return to digest-doc.c CVS log

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

Annotation of 43BSD/contrib/emacs/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: # include <stdio.h>
        !             6: main()
        !             7: {
        !             8:   register int ch;
        !             9:   register int notfirst = 0;
        !            10: 
        !            11:   printf (".TL\n");
        !            12:   printf ("Command Summary for GNU Emacs\n");
        !            13:   printf (".AU\nRichard M. Stallman\n");
        !            14:   while ((ch = getchar()) != EOF)
        !            15:     {
        !            16:       if (ch == '\037')
        !            17:        {
        !            18:          if (notfirst)
        !            19:            printf("\n.DE");
        !            20:          else
        !            21:            notfirst = 1;
        !            22: 
        !            23:          printf("\n.SH\n");
        !            24: 
        !            25:          while ((ch = getchar()) != '\n')  /* Changed this line */
        !            26:            {
        !            27:              if (ch != EOF)
        !            28:                  putchar(ch);
        !            29:              else
        !            30:                {
        !            31:                  ungetc(ch);
        !            32:                  break;
        !            33:                }
        !            34:            }
        !            35:          printf("\n.DS L\n");
        !            36:        }
        !            37:       else
        !            38:        putchar(ch);
        !            39:     }
        !            40:   exit(0);
        !            41: }

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