ack/lang/m2/comp/enter.c

/* H I G H   L E V E L   S Y M B O L   E N T R Y */

#ifndef NORCSID
static char *RcsId = "$Header$";
#endif

#include	"debug.h"

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

#include	"idf.h"
#include	"def.h"
#include	"type.h"
#include	"scope.h"
#include	"LLlex.h"
#include	"node.h"
#include	"main.h"

struct def *
Enter(name, kind, type, pnam)
	char *name;
	struct type *type;
{
	/*	Enter a definition for "name" with kind "kind" and type
		"type" in the Current Scope. If it is a standard name, also
		put its number in the definition structure.
	*/
	register struct def *df;

	df = define(str2idf(name, 0), CurrentScope, kind);
	df->df_type = type;
	if (pnam) df->df_value.df_stdname = pnam;
	return df;
}

EnterEnumList(Idlist, type)
	struct node *Idlist;
	register struct type *type;
{
	/*	Put a list of enumeration literals in the symbol table.
		They all have type "type".
		Also assign numbers to them, and link them together.
		We must link them together because an enumeration type may
		be exported, in which case its literals must also be exported.
		Thus, we need an easy way to get to them.
	*/
	register struct def *df;
	register struct node *idlist = Idlist;

	type->enm_ncst = 0;
	for (; idlist; idlist = idlist->next) {
		df = define(idlist->nd_IDF, CurrentScope, D_ENUM);
		df->df_type = type;
		df->enm_val = (type->enm_ncst)++;
		df->enm_next = type->enm_enums;
		type->enm_enums = df;
	}
	FreeNode(Idlist);
}

EnterFieldList(Idlist, type, scope, addr)
	struct node *Idlist;
	register struct type *type;
	struct scope *scope;
	arith *addr;
{
	/*	Put a list of fields in the symbol table.
		They all have type "type", and are put in scope "scope".
		Mark them as QUALIFIED EXPORT, because that's exactly what
		fields are, you can get to them by qualifying them.
	*/
	register struct def *df;
	register struct node *idlist = Idlist;

	for (; idlist; idlist = idlist->next) {
		df = define(idlist->nd_IDF, scope, D_FIELD);
		df->df_type = type;
		df->df_flags |= D_QEXPORTED;
		df->fld_off = align(*addr, type->tp_align);
		*addr = df->fld_off + type->tp_size;
	}
	FreeNode(Idlist);
}

EnterVarList(Idlist, type, local)
	struct node *Idlist;
	struct type *type;
{
	/*	Enter a list of identifiers representing variables into the
		name list. "type" represents the type of the variables.
		"local" is set if the variables are declared local to a
		procedure.
	*/
	register struct def *df;
	register struct node *idlist = Idlist;
	register struct scopelist *sc;
	char buf[256];
	extern char *sprint();

	sc = CurrVis;

	if (local) {
		/* Find the closest enclosing open scope. This
		   is the procedure that we are dealing with
		*/
		while (sc->sc_scope->sc_scopeclosed) sc = enclosing(sc);
	}

	for (; idlist; idlist = idlist->nd_right) {
		df = define(idlist->nd_IDF, CurrentScope, D_VARIABLE);
		df->df_type = type;
		if (idlist->nd_left) {
			/* An address was supplied
			*/
			df->var_addrgiven = 1;
			df->df_flags |= D_NOREG;
			if (idlist->nd_left->nd_type != card_type) {
node_error(idlist->nd_left,"Illegal type for address");
			}
			df->var_off = idlist->nd_left->nd_INT;
		}
		else if (local) {
			/* subtract aligned size of variable to the offset,
			   as the variable list exists only local to a
			   procedure
			*/
			sc->sc_scope->sc_off =
				-WA(align(type->tp_size - sc->sc_scope->sc_off,
						type->tp_align));
			df->var_off = sc->sc_scope->sc_off;
		}
		else {
			/* Global name, possibly external
			*/
			sprint(buf,"%s_%s", sc->sc_scope->sc_name,
					    df->df_idf->id_text);
			df->var_name = Salloc(buf, (unsigned)(strlen(buf)+1));
			df->df_flags |= D_NOREG;

 			if (DefinitionModule) {
				if (sc == Defined->mod_vis) {
					C_exa_dnam(df->var_name);
				}
			}
			else {
				C_ina_dnam(df->var_name);
			}
		}
	}
	FreeNode(Idlist);
}

EnterParamList(ppr, Idlist, type, VARp, off)
	struct node *Idlist;
	struct paramlist **ppr;
	struct type *type;
	int VARp;
	arith *off;
{
	/*	Create (part of) a parameterlist of a procedure.
		"ids" indicates the list of identifiers, "tp" their type, and
		"VARp" indicates D_VARPAR or D_VALPAR.
	*/
	register struct paramlist *pr;
	register struct def *df;
	register struct node *idlist = Idlist;
	static struct paramlist *last;

	for ( ; idlist; idlist = idlist->next) {
		pr = new_paramlist();
		pr->next = 0;
		if (!*ppr) {
			*ppr = pr;
		}
		else	last->next = pr;
		last = pr;
		df = define(idlist->nd_IDF, CurrentScope, D_VARIABLE);
		pr->par_def = df;
		df->df_type = type;
		df->var_off = *off;
		df->df_flags = VARp;
		if (IsConformantArray(type)) {
			/* we need room for the base address and a descriptor
			*/
			*off += pointer_size + 3 * word_size;
		}
		else if (VARp == D_VARPAR) {
			*off += pointer_size;
		}
		else {
			*off += WA(type->tp_size);
		}
	}
	FreeNode(Idlist);
}

STATIC
DoImport(df, scope)
	register struct def *df;
	struct scope *scope;
{
	/*	Definition "df" is imported to scope "scope".
		Handle the case that it is an enumeration type or a module.
	*/

	define(df->df_idf, scope, D_IMPORT)->imp_def = df;

	if (df->df_kind == D_TYPE && df->df_type->tp_fund == T_ENUMERATION) {
		/* Also import all enumeration literals
		*/
		df = df->df_type->enm_enums;
		while (df) {
			define(df->df_idf, scope, D_IMPORT)->imp_def = df;
			df = df->enm_next;
		}
	}
	else if (df->df_kind == D_MODULE) {
		/* Also import all definitions that are exported from this
		   module
		*/
		df = df->mod_vis->sc_scope->sc_def;
		while (df) {
			if (df->df_flags & D_EXPORTED) {
				define(df->df_idf,scope,D_IMPORT)->imp_def = df;
			}
			df = df->df_nextinscope;
		}
	}
}

STATIC struct scopelist *
ForwModule(df, idn)
	register struct def *df;
	struct node *idn;
{
	/*	An import is done from a not yet defined module "idn".
		Create a declaration and a scope for this module.
	*/
	struct scopelist *vis;

	df->df_scope = enclosing(CurrVis)->sc_scope;
	df->df_kind = D_FORWMODULE;
	open_scope(CLOSEDSCOPE);
	vis = CurrVis;		/* The new scope, but watch out, it's "sc_encl"
				   field is not set right. It must indicate the
				   enclosing scope, but this must be done AFTER
				   closing this one
				*/
	df->for_vis = vis;
	df->for_node = MkLeaf(Name, &(idn->nd_token));
	close_scope(0);	
	vis->sc_encl = enclosing(CurrVis);
				/* Here ! */
	return vis;
}

STATIC struct def *
ForwDef(ids, scope)
	register struct node *ids;
	struct scope *scope;
{
	/*	Enter a forward definition of "ids" in scope "scope",
		if it is not already defined.
	*/
	register struct def *df;

	if (!(df = lookup(ids->nd_IDF, scope))) {
		df = define(ids->nd_IDF, scope, D_FORWARD);
		df->for_node = MkLeaf(Name, &(ids->nd_token));
	}
	return df;
}

EnterExportList(Idlist, qualified)
	struct node *Idlist;
{
	/*	From the current scope, the list of identifiers "ids" is
		exported. Note this fact. If the export is not qualified, make
		all the "ids" visible in the enclosing scope by defining them
		in this scope as "imported".
	*/
	register struct node *idlist = Idlist;
	register struct def *df, *df1;
	register struct def *impmod;

	for (;idlist; idlist = idlist->next) {
		df = lookup(idlist->nd_IDF, CurrentScope);

		if (!df) {
			/* undefined item in export list
			*/
node_error(idlist, "identifier \"%s\" not defined", idlist->nd_IDF->id_text);
			continue;
		}

		if (df->df_flags & (D_EXPORTED|D_QEXPORTED)) {
node_error(idlist, "identifier \"%s\" occurs more than once in export list",
idlist->nd_IDF->id_text);
		}

		df->df_flags |= qualified;
		if (qualified == D_EXPORTED) {
			/* Export, but not qualified.
			   Find all imports of the module in which this export
			   occurs, and export the current definition to it
			*/
			impmod = CurrentScope->sc_definedby->df_idf->id_def;
			while (impmod) {
				if (impmod->df_kind == D_IMPORT &&
				    impmod->imp_def == CurrentScope->sc_definedby) {
					DoImport(df, impmod->df_scope);
				}
				impmod = impmod->next;
			}

			/* Also handle the definition as if the enclosing
			   scope imports it.
			*/
			df1 = lookup(idlist->nd_IDF,
				     enclosing(CurrVis)->sc_scope);
			if (df1) {
				/* It was already defined in the enclosing
				   scope. There are two legal possibilities,
				   which are examined below.
				*/
				if ((df1->df_kind == D_PROCHEAD &&
				     df->df_kind == D_PROCEDURE) ||
				    (df1->df_kind == D_HIDDEN &&
				     df->df_kind == D_TYPE)) {
					if (df->df_kind == D_TYPE &&
					    df->df_type->tp_fund != T_POINTER) {
node_error(idlist, "opaque type \"%s\" is not a pointer type", df->df_idf->id_text);
					}
					df1->df_kind = D_IMPORT;
					df1->imp_def = df;
					continue;
				}
			}

			DoImport(df, enclosing(CurrVis)->sc_scope);
		}
	}
	FreeNode(Idlist);
}

EnterFromImportList(Idlist, Fromid, local)
	struct node *Idlist;
	register struct node *Fromid;
{
	/*	Import the list Idlist from the module indicated by Fromid.
		An exception must be made for imports of the Compilation Unit,
		because in this case the definition module for Fromid must
		be read.
		This case is indicated by  the value 0 of the flag "local".
	*/
	register struct node *idlist = Idlist;
	register struct def *df;
	struct scopelist *vis = enclosing(CurrVis);
	int forwflag = 0;
	extern struct def *GetDefinitionModule();

	if (local) {
		df = lookfor(Fromid, vis, 0);
		switch(df->df_kind) {
		case D_ERROR:
			/* The module from which the import was done
			   is not yet declared. I'm not sure if I must
			   accept this, but for the time being I will.
			   ???
			*/
			vis = ForwModule(df, Fromid);
			forwflag = 1;
			break;
		case D_FORWMODULE:
			vis = df->for_vis;
			break;
		case D_MODULE:
			vis = df->mod_vis;
			break;
		default:
node_error(Fromid, "identifier \"%s\" does not represent a module",
Fromid->nd_IDF->id_text);
			break;
		}
	}
	else	vis = GetDefinitionModule(Fromid->nd_IDF)->mod_vis;

	FreeNode(Fromid);

	for (; idlist; idlist = idlist->next) {
		if (forwflag) {
			df = ForwDef(idlist, vis->sc_scope);
		}
		else if (!(df = lookup(idlist->nd_IDF, vis->sc_scope))) {
node_error(idlist, "identifier \"%s\" not declared in qualifying module",
idlist->nd_IDF->id_text);
			df = define(idlist->nd_IDF,vis->sc_scope,D_ERROR);
		}
		else if (!(df->df_flags&(D_EXPORTED|D_QEXPORTED))) {
node_error(idlist,"identifier \"%s\" not exported from qualifying module",
idlist->nd_IDF->id_text);
			df->df_flags |= D_QEXPORTED;
		}
		DoImport(df, CurrentScope);
	}

	FreeNode(Idlist);
}

EnterImportList(Idlist, local)
	struct node *Idlist;
{
	/*	Import "Idlist" from the enclosing scope.
		An exception must be made for imports of the compilation unit.
		In this case, definition modules must be read for "Idlist".
		This case is indicated by the value 0 of the "local" flag.
	*/
	register struct node *idlist = Idlist;
	register struct def *df;
	struct scopelist *vis = enclosing(CurrVis);
	extern struct def *GetDefinitionModule();

	for (; idlist; idlist = idlist->next) {
		if (local) df = ForwDef(idlist, vis->sc_scope);
		else	df = GetDefinitionModule(idlist->nd_IDF);
		DoImport(df, CurrentScope);
	}
	FreeNode(Idlist);
}