1*1676Smckusick /* Copyright (c) 1979 Regents of the University of California */ 2*1676Smckusick 3*1676Smckusick static char sccsid[] = "@(#)PUT.c 1.1 10/30/80"; 4*1676Smckusick 5*1676Smckusick #include "h00vars.h" 6*1676Smckusick #include "h01errs.h" 7*1676Smckusick 8*1676Smckusick PUT(curfile) 9*1676Smckusick 10*1676Smckusick register struct iorec *curfile; 11*1676Smckusick { 12*1676Smckusick if (curfile->funit & FREAD) { 13*1676Smckusick ERROR(EWRITEIT, curfile->pfname); 14*1676Smckusick return; 15*1676Smckusick } 16*1676Smckusick fwrite(curfile->fileptr, curfile->fsize, 1, curfile->fbuf); 17*1676Smckusick if (ferror(curfile->fbuf)) { 18*1676Smckusick ERROR(EWRITE, curfile->pfname); 19*1676Smckusick return; 20*1676Smckusick } 21*1676Smckusick } 22