home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 200_01 / copy.sci < prev    next >
Text File  |  1979-12-31  |  512b  |  23 lines
  1. #
  2. # Sample file copy program for SCI (version 1.4)
  3. #
  4. copy(f,t)
  5. char *f, *t;
  6. {
  7.    int infd, outfd;
  8.    char buf[128],len;
  9.    
  10.    if ( (infd=fopen(f,"r")) < 0 )
  11.       return err(f);
  12.    if ( (outfd=fopen(t,"w")) < 0 )
  13.       return err(t);
  14.    while( (len=fread(buf,128,infd))>0 )
  15.       fwrite(buf,len,outfd);
  16.    fclose(outfd);
  17.    fclose(infd);
  18. }
  19. err(f)
  20. {
  21.    printf("can't open <%s>\n",f);
  22. }
  23.