home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s2 / tee.c < prev    next >
Encoding:
C/C++ Source or Header  |  1975-05-13  |  696 b   |  51 lines
  1. int open[9] { 1 };
  2. int n 1;
  3. int t 0;
  4.  
  5. char in[512];
  6.  
  7. char out[512];
  8.  
  9. main(argc,argv)
  10. char **argv;
  11. {
  12.     int register r,w,p;
  13.     struct { int x1[2], type, x2[15]; } buf;
  14.     fstat(1,&buf);
  15.     t = (buf.type&060000)==020000;
  16.     while(argc-->1) {
  17.         open[n++] = creat(argv[1],0666);
  18.         if(stat(argv[1],&buf)>=0)
  19.             if((buf.type&060000)==020000)
  20.                 t++;
  21.         argv++;
  22.     }
  23.     r = w = 0;
  24.     for(;;) {
  25.         for(p=0;p<512;) {
  26.             if(r>=w) {
  27.                 if(t>0&&p>0) break;
  28.                 w = read(0,in,512);
  29.                 r = 0;
  30.                 if(w<=0) {
  31.                     stash(p);
  32.                     return;
  33.                 }
  34.             }
  35.             out[p++] = in[r++];
  36.         }
  37.         stash(p);
  38.     }
  39. }
  40.  
  41. stash(p)
  42. {
  43.     int k;
  44.     int i;
  45.     int d;
  46.     d = t ? 10 : p;
  47.     for(i=0; i<p; i=+d)
  48.         for(k=0;k<n;k++)
  49.             write(open[k], out+i, d<p-i?d:p-i);
  50. }
  51.