home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / shortnames / dups.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-09-04  |  857 b   |  63 lines
  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. }
  63.