2.9BSD - /usr/src/cmd/uniq.c

   1: /*
   2:  * Deal with duplicated lines in a file
   3:  */
   4: #include <stdio.h>
   5: #include <ctype.h>
   6: int fields;
   7: int letters;
   8: int linec;
   9: char    mode;
  10: int uniq;
  11: char    *skip();
  12: 
  13: main(argc, argv)
  14: int argc;
  15: char *argv[];
  16: {
  17:     static char b1[1000], b2[1000];
  18: 
  19:     while(argc > 1) {
  20:         if(*argv[1] == '-') {
  21:             if (isdigit(argv[1][1]))
  22:                 fields = atoi(&argv[1][1]);
  23:             else mode = argv[1][1];
  24:             argc--;
  25:             argv++;
  26:             continue;
  27:         }
  28:         if(*argv[1] == '+') {
  29:             letters = atoi(&argv[1][1]);
  30:             argc--;
  31:             argv++;
  32:             continue;
  33:         }
  34:         if (freopen(argv[1], "r", stdin) == NULL)
  35:             printe("cannot open %s\n", argv[1]);
  36:         break;
  37:     }
  38:     if(argc > 2 && freopen(argv[2], "w", stdout) == NULL)
  39:         printe("cannot create %s\n", argv[2]);
  40: 
  41:     if(gline(b1))
  42:         exit(0);
  43:     for(;;) {
  44:         linec++;
  45:         if(gline(b2)) {
  46:             pline(b1);
  47:             exit(0);
  48:         }
  49:         if(!equal(b1, b2)) {
  50:             pline(b1);
  51:             linec = 0;
  52:             do {
  53:                 linec++;
  54:                 if(gline(b1)) {
  55:                     pline(b2);
  56:                     exit(0);
  57:                 }
  58:             } while(equal(b1, b2));
  59:             pline(b2);
  60:             linec = 0;
  61:         }
  62:     }
  63: }
  64: 
  65: gline(buf)
  66: register char buf[];
  67: {
  68:     register c;
  69: 
  70:     while((c = getchar()) != '\n') {
  71:         if(c == EOF)
  72:             return(1);
  73:         *buf++ = c;
  74:     }
  75:     *buf = 0;
  76:     return(0);
  77: }
  78: 
  79: pline(buf)
  80: register char buf[];
  81: {
  82: 
  83:     switch(mode) {
  84: 
  85:     case 'u':
  86:         if(uniq) {
  87:             uniq = 0;
  88:             return;
  89:         }
  90:         break;
  91: 
  92:     case 'd':
  93:         if(uniq) break;
  94:         return;
  95: 
  96:     case 'c':
  97:         printf("%4d ", linec);
  98:     }
  99:     uniq = 0;
 100:     fputs(buf, stdout);
 101:     putchar('\n');
 102: }
 103: 
 104: equal(b1, b2)
 105: register char b1[], b2[];
 106: {
 107:     register char c;
 108: 
 109:     b1 = skip(b1);
 110:     b2 = skip(b2);
 111:     while((c = *b1++) != 0)
 112:         if(c != *b2++) return(0);
 113:     if(*b2 != 0)
 114:         return(0);
 115:     uniq++;
 116:     return(1);
 117: }
 118: 
 119: char *
 120: skip(s)
 121: register char *s;
 122: {
 123:     register nf, nl;
 124: 
 125:     nf = nl = 0;
 126:     while(nf++ < fields) {
 127:         while(*s == ' ' || *s == '\t')
 128:             s++;
 129:         while( !(*s == ' ' || *s == '\t' || *s == 0) )
 130:             s++;
 131:     }
 132:     while(nl++ < letters && *s != 0)
 133:             s++;
 134:     return(s);
 135: }
 136: 
 137: printe(p,s)
 138: char *p,*s;
 139: {
 140:     fprintf(stderr, p, s);
 141:     exit(1);
 142: }

Defined functions

Defined variables