1 /***************************************************************************** 2 3 RdPage() 4 5 This function reads a page from the current input file into the 6 edit buffer. 7 8 *****************************************************************************/ 9 10 #include "zport.h" /* define portability identifiers */ 11 #include "tecoc.h" /* define general identifiers */ 12 #include "defext.h" /* define external global variables */ 13 #include "deferr.h" /* define identifiers for error messages */ 14 RdPage()15DEFAULT RdPage() /* read a page */ 16 { 17 BOOLEAN EBfFul; 18 19 DBGFEN(2,"RdPage",NULL); 20 21 /* 22 * loop, reading until end-of-file or a form feed is encountered, or the 23 * edit buffer fills up 24 */ 25 26 EBfFul = FALSE; 27 do { 28 if (RdLine(&EBfFul) == FAILURE) { 29 DBGFEX(2,DbgFNm,"FAILURE"); 30 return FAILURE; 31 } 32 } while (!IsEofI[CurInp] && !FFPage && !EBfFul); 33 34 DBGFEX(2,DbgFNm,"SUCCESS"); 35 36 return SUCCESS; 37 } 38