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()15 DEFAULT 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