1 /*- 2 * Copyright (c) 1979 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)READC.c 1.4 (Berkeley) 04/09/90"; 10 #endif /* not lint */ 11 12 #include "h00vars.h" 13 14 char 15 READC(curfile) 16 17 register struct iorec *curfile; 18 { 19 char data; 20 21 if (curfile->funit & FWRITE) { 22 ERROR("%s: Attempt to read, but open for writing\n", 23 curfile->pfname); 24 } 25 IOSYNC(curfile); 26 if (curfile->funit & EOFF) { 27 ERROR("%s: Tried to read past end of file\n", curfile->pfname); 28 } 29 curfile->funit |= SYNC; 30 return *curfile->fileptr; 31 } 32