|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: ! 3: static char sccsid[] = "@(#)PAGE.c 1.2 6/10/81"; ! 4: ! 5: #include "h00vars.h" ! 6: ! 7: PAGE(curfile) ! 8: ! 9: register struct iorec *curfile; ! 10: { ! 11: if (curfile->funit & FREAD) { ! 12: ERROR("%s: Attempt to write, but open for reading\n", ! 13: curfile->pfname); ! 14: return; ! 15: } ! 16: fputc('', curfile->fbuf); ! 17: if (ferror(curfile->fbuf)) { ! 18: PERROR("Could not write to ", curfile->pfname); ! 19: return; ! 20: } ! 21: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.