home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s2 / split.c < prev    next >
Encoding:
C/C++ Source or Header  |  1975-05-13  |  1.2 KB  |  89 lines
  1. int    count    1000;
  2. int    fnumber;
  3. int    ibuf[259];
  4. int    obuf[259];
  5. char    fname[100];
  6. char    *ifil;
  7. char    *ofil;
  8.  
  9. main(argc, argv)
  10. char *argv[];
  11. {
  12.     register i, c, f;
  13.  
  14.     for(i=1; i<argc; i++)
  15.     if(argv[i][0] == '-')
  16.     switch(argv[i][1]) {
  17.  
  18.     case '\0':
  19.         ifil = 1;
  20.         continue;
  21.  
  22.     case '0':
  23.     case '1':
  24.     case '2':
  25.     case '3':
  26.     case '4':
  27.     case '5':
  28.     case '6':
  29.     case '7':
  30.     case '8':
  31.     case '9':
  32.         count = number(argv[i]+1);
  33.         continue;
  34.  
  35.     } else
  36.     if(ifil)
  37.         ofil = argv[i]; else
  38.         ifil = argv[i];
  39.     if(ifil != 0 && ifil != 1)
  40.         if(fopen(ifil, ibuf) < 0) {
  41.             write(2, "cannot open input\n", 18);
  42.             exit();
  43.         }
  44.     if(ofil == 0)
  45.         ofil = "x";
  46.  
  47. loop:
  48.     f = 1;
  49.     for(i=0; i<count; i++)
  50.     do {
  51.         c = getc(ibuf);
  52.         if(c < 0) {
  53.             if(f == 0)
  54.                 fflush(obuf);
  55.             exit();
  56.         }
  57.         if(f) {
  58.             for(f=0; ofil[f]; f++)
  59.                 fname[f] = ofil[f];
  60.             fname[f++] = fnumber/26 + 'a';
  61.             fname[f++] = fnumber%26 + 'a';
  62.             fname[f] = '\0';
  63.             fnumber++;
  64.             if(fcreat(fname, obuf) < 0) {
  65.                 write(2, "Cannot create output\n", 20);
  66.                 exit();
  67.             }
  68.             f = 0;
  69.         }
  70.         putc(c, obuf);
  71.     } while(c != '\n');
  72.     fflush(obuf);
  73.     close(obuf[0]);
  74.     goto loop;
  75. }
  76.  
  77. number(str)
  78. char *str;
  79. {
  80.     register n;
  81.     register char *s;
  82.  
  83.     n = 0;
  84.     for(s = str; *s; s++)
  85.         if(*s>='0' && *s<='9')
  86.             n = n*10 + *s-'0';
  87.     return(n);
  88. }
  89.