27 lines
		
	
	
	
		
			430 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			27 lines
		
	
	
	
		
			430 B
		
	
	
	
		
			C
		
	
	
	
	
	
| /* I N S T A N T I A T I O N   O F   I N P U T   P A C K A G E */
 | |
| 
 | |
| #include	"f_info.h"
 | |
| struct f_info	file_info;
 | |
| #include	"input.h"
 | |
| #include	<em_arith.h>
 | |
| #include	<em_label.h>
 | |
| #include	"def.h"
 | |
| #include	"idf.h"
 | |
| #include	"scope.h"
 | |
| #include	<inp_pkg.body>
 | |
| 
 | |
| 
 | |
| AtEoIF()
 | |
| {
 | |
| 	/*	Make the unstacking of input streams noticable to the
 | |
| 	   	lexical analyzer
 | |
| 	*/
 | |
| 	return 1;
 | |
| }
 | |
| 
 | |
| AtEoIT()
 | |
| {
 | |
| 	/*	Make the end of the text noticable
 | |
| 	*/
 | |
| 	return 1;
 | |
| }
 |