home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / tr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  2.1 KB  |  133 lines
  1. #include <stdio.h>
  2.  
  3. /* tr - transliterate data stream */
  4. int    dflag    = 0;
  5. int    sflag    = 0;
  6. int    cflag = 0;
  7. int    save    = 0;
  8. char    code[256];
  9. char    squeez[256];
  10. char    vect[256];
  11. struct string { int last, max; char *p; } string1, string2;
  12.  
  13. main(argc,argv)
  14. char **argv;
  15. {
  16.     register i;
  17.     int j;
  18.     register c, d;
  19.     char *compl;
  20.     int lastd;
  21.  
  22.     string1.last = string2.last = 0;
  23.     string1.max = string2.max = 0;
  24.     string1.p = string2.p = "";
  25.  
  26.     if(--argc>0) {
  27.         argv++;
  28.         if(*argv[0]=='-'&&argv[0][1]!=0) {
  29.             while(*++argv[0])
  30.                 switch(*argv[0]) {
  31.                 case 'c':
  32.                     cflag++;
  33.                     continue;
  34.                 case 'd':
  35.                     dflag++;
  36.                     continue;
  37.                 case 's':
  38.                     sflag++;
  39.                     continue;
  40.                 }
  41.             argc--;
  42.             argv++;
  43.         }
  44.     }
  45.     if(argc>0) string1.p = argv[0];
  46.     if(argc>1) string2.p = argv[1];
  47.     for(i=0; i<256; i++)
  48.         code[i] = vect[i] = 0;
  49.     if(cflag) {
  50.         while(c = next(&string1))
  51.             vect[c&0377] = 1;
  52.         j = 0;
  53.         for(i=1; i<256; i++)
  54.             if(vect[i]==0) vect[j++] = i;
  55.         vect[j] = 0;
  56.         compl = vect;
  57.     }
  58.     for(i=0; i<256; i++)
  59.         squeez[i] = 0;
  60.     lastd = 0;
  61.     for(;;){
  62.         if(cflag) c = *compl++;
  63.         else c = next(&string1);
  64.         if(c==0) break;
  65.         d = next(&string2);
  66.         if(d==0) d = lastd;
  67.         else lastd = d;
  68.         squeez[d&0377] = 1;
  69.         code[c&0377] = dflag?1:d;
  70.     }
  71.     while(d = next(&string2))
  72.         squeez[d&0377] = 1;
  73.     squeez[0] = 1;
  74.     for(i=0;i<256;i++) {
  75.         if(code[i]==0) code[i] = i;
  76.         else if(dflag) code[i] = 0;
  77.     }
  78.  
  79.     while((c=getc(stdin)) != EOF ) {
  80.         if(c == 0) continue;
  81.         if(c = code[c&0377]&0377)
  82.             if(!sflag || c!=save || !squeez[c&0377])
  83.                 putchar(save = c);
  84.     }
  85.     exit(0);
  86. }
  87.  
  88. next(s)
  89. struct string *s;
  90. {
  91.  
  92. again:
  93.     if(s->max) {
  94.         if(s->last++ < s->max)
  95.             return(s->last);
  96.         s->max = s->last = 0;
  97.     }
  98.     if(s->last && *s->p=='-') {
  99.         nextc(s);
  100.         s->max = nextc(s);
  101.         if(s->max==0) {
  102.             s->p--;
  103.             return('-');
  104.         }
  105.         if(s->max < s->last)  {
  106.             s->last = s->max-1;
  107.             return('-');
  108.         }
  109.         goto again;
  110.     }
  111.     return(s->last = nextc(s));
  112. }
  113.  
  114. nextc(s)
  115. struct string *s;
  116. {
  117.     register c, i, n;
  118.  
  119.     c = *s->p++;
  120.     if(c=='\\') {
  121.         i = n = 0;
  122.         while(i<3 && (c = *s->p)>='0' && c<='7') {
  123.             n = n*8 + c - '0';
  124.             i++;
  125.             s->p++;
  126.         }
  127.         if(i>0) c = n;
  128.         else c = *s->p++;
  129.     }
  130.     if(c==0) *--s->p = 0;
  131.     return(c&0377);
  132. }
  133.