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