ack/lang/m2/comp/input.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>

extern struct idf *CurrentId;

AtEoIF()
{
	/*	Make the unstacking of input streams noticable to the
	   	lexical analyzer
	*/
	if (CurrentId && ! lookup(CurrentId, GlobalScope)) {
fatal("No definition module read for \"%s\"", CurrentId->id_text);
	}
	return 1;
}

AtEoIT()
{
	/*	Make the end of the text noticable
	*/
	return 1;
}