home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / CUG / SOFTT-8.LBR / TEE.RAT < prev    next >
Text File  |  2000-06-30  |  1KB  |  35 lines
  1. #-h-  tee.r                       718  local   12/24/80  15:08:32
  2. # tee - copy standard input to named files and to standard output
  3.  
  4.  # include ratdef
  5. define(MAXFILES,16)
  6. define(MAXNAME,FILENAMESIZE)
  7.  
  8. DRIVER(tee)
  9.    character c, getc, name(MAXNAME)
  10.    integer getarg, create, fdo(MAXFILES), i, nfiles
  11.  
  12.    call query ("usage:  tee files.")
  13.    for (i = 1; getarg(i, name, MAXNAME) ^= EOF; i = i + 1) {
  14.       if (i > MAXFILES)
  15.          call error("too many files.")
  16.       fdo(i) = create(name, WRITE)
  17.       if (fdo(i) == ERR)
  18.          call cant(name)
  19.       }
  20.    nfiles = i - 1
  21.    while (getc(c) ^= EOF) {
  22.       for (i = 1; i <= nfiles; i = i + 1)
  23.          call putch(c, fdo(i))
  24.       call putc(c)
  25.       }
  26.    for (i = 1; i <= nfiles; i = i + 1)
  27.       call close(fdo(i))
  28.    DRETURN
  29.    end
  30. #-t-  tee.r                       718  local   12/24/80  15:08:32
  31. #-t-  tee                        1725  local   12/24/80  15:54:41
  32.                   743  local   12/24/80  15:08:31
  33. d), STDOUT) 
  34.    384  
  35.