Return to dups.c CVS log

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

Annotation of 43BSD/contrib/emacs/shortnames/dups.c, revision 1.1

1.1     ! root        1: /*
        !             2:  *     Quick and dirty program to select adjacent records that are common
        !             3:  *     in the first <arg> character positions.
        !             4:  *
        !             5:  */
        !             6:  
        !             7: #include <stdio.h>
        !             8: 
        !             9: #define MAXSIZE 512
        !            10: 
        !            11: char ping[MAXSIZE];
        !            12: char pong[MAXSIZE];
        !            13: 
        !            14: int flipflop = 0;
        !            15: int size = MAXSIZE-1;
        !            16: 
        !            17: main (argc, argv)
        !            18:      int argc;
        !            19:      char *argv[];
        !            20: {
        !            21:     register int index;
        !            22:     char *newbuf();
        !            23:     
        !            24:     if (argc == 2)
        !            25:       {
        !            26:        size = atoi (argv[1]);
        !            27:       }
        !            28:     while (newbuf() != NULL)
        !            29:       {
        !            30:        for (index=0; index < size; index++)
        !            31:          {
        !            32:            if (ping[index] != pong[index])
        !            33:              {
        !            34:                break;
        !            35:              }
        !            36:          }
        !            37:        if (index == size)
        !            38:          {
        !            39:            printf ("%s\n", ping);
        !            40:            printf ("%s\n", pong);
        !            41:          }
        !            42:       }
        !            43:     return (0);
        !            44: }
        !            45: 
        !            46: char *
        !            47: newbuf ()
        !            48: {
        !            49:   char *bufp;
        !            50: 
        !            51:   if (flipflop)
        !            52:     {
        !            53:       bufp = ping;
        !            54:       flipflop = 0;
        !            55:     }
        !            56:   else
        !            57:     {
        !            58:       bufp = pong;
        !            59:       flipflop = 1;
        !            60:     }
        !            61:   return (gets (bufp));
        !            62: }

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