1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)READ8.c 1.3 01/28/81"; 4 5 #include "h00vars.h" 6 #include "h01errs.h" 7 8 double 9 READ8(curfile) 10 11 register struct iorec *curfile; 12 { 13 double data; 14 int retval; 15 16 if (curfile->funit & FWRITE) { 17 ERROR(EREADIT, curfile->pfname); 18 return; 19 } 20 UNSYNC(curfile); 21 retval = fscanf(curfile->fbuf, "%lf", &data); 22 if (retval == EOF) { 23 ERROR(EPASTEOF, curfile->pfname); 24 return; 25 } 26 if (retval == 0) { 27 ERROR(EBADFNUM, curfile->pfname); 28 return; 29 } 30 curfile->funit &= ~EOLN; 31 curfile->funit |= SYNC; 32 return data; 33 } 34