ack/lang/m2/comp/defmodule.c

/* D E F I N I T I O N   M O D U L E S */

#include	"debug.h"

#include	<assert.h>
#include	<em_arith.h>
#include	<em_label.h>

#include	"idf.h"
#include	"input.h"
#include	"scope.h"
#include	"def.h"
#include	"LLlex.h"
#include	"Lpars.h"
#include	"f_info.h"
#include	"main.h"
#include	"node.h"

#ifdef DEBUG
long	sys_filesize();
#endif

struct idf *	CurrentId;

GetFile(name)
	char *name;
{
	/*	Try to find a file with basename "name" and extension ".def",
		in the directories mentioned in "DEFPATH".
	*/
	char buf[15];
	char *strcpy(), *strcat();

	strncpy(buf, name, 10);
	buf[10] = '\0';			/* maximum length */
	strcat(buf, ".def");
	if (! InsertFile(buf, DEFPATH, &(FileName))) {
		fatal("Could'nt find a DEFINITION MODULE for \"%s\"", name);
	}
	LineNumber = 1;
	DO_DEBUG(options['F'], debug("File %s : %ld characters", FileName, sys_filesize(FileName)));
}

struct def *
GetDefinitionModule(id, incr)
	register struct idf *id;
{
	/*	Return a pointer to the "def" structure of the definition
		module indicated by "id".
		We may have to read the definition module itself.
		Also increment level by "incr".
	*/
	struct def *df;
	static int level;

	level += incr;
	df = lookup(id, GlobalScope);
	if (!df) {
		/* Read definition module. Make an exception for SYSTEM.
		*/
		if (!strcmp(id->id_text, "SYSTEM")) {
			do_SYSTEM();
		}
		else {
			GetFile(id->id_text);
			CurrentId = id;
			open_scope(CLOSEDSCOPE);
			DefModule();
			if (level == 1) {
				/* The module is directly imported by the
				   currently defined module, so we have to
				   remember its name because we have to call
				   its initialization routine
				*/
				static struct node *nd_end; /* end of list */
				register struct node *n;
				extern struct node *Modules;

				n = MkLeaf(Name, &dot);
				n->nd_IDF = id;
				n->nd_symb = IDENT;
				if (nd_end) nd_end->next = n;
				else Modules = n;
				nd_end = n;
			}
			close_scope(SC_CHKFORW);
		}
		df = lookup(id, GlobalScope);
	}
	CurrentId = 0;
	assert(df && df->df_kind == D_MODULE);
	level -= incr;
	return df;
}