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   A N D   L O O K U P */

static char *RcsId = "$Header$";

#include	<alloc.h>
#include	<em_arith.h>
#include	<em_label.h>
#include	"idf.h"
#include	"def.h"
#include	"type.h"
#include	"scope.h"
#include	"misc.h"

extern struct idf *str2idf();
extern struct def *define();

struct def *
Enter(name, kind, type, pnam)
	char *name;
	struct type *type;
{
	struct idf *id;
	struct def *df;

	id = str2idf(name, 0);
	if (!id) fatal("Out of core");
	df = define(id, CurrentScope, kind);
	df->df_type = type;
	if (kind == D_STDPROC || kind == D_STDFUNC) {
		df->df_value.df_stdname = pnam;
	}
	return df;
}

EnterIdList(idlist, kind, flags, type, scope)
	register struct id_list *idlist;
	struct type *type;
{
	register struct def *df;
	struct def *first = 0, *last = 0;
	int assval = 0;

	while (idlist) {
		df = define(idlist->id_ptr, scope, kind);
		df->df_type = type;
		df->df_flags = flags;
		if (kind == D_ENUM) {
			if (!first) first = df;
			df->df_value.df_enum.en_val = assval++;
			if (last) last->df_value.df_enum.en_next = df;
			last = df;
		}
		idlist = idlist->next;
	}
	if (last) {
		/* Also meaning : enumeration */
		last->df_value.df_enum.en_next = 0;
		type->tp_value.tp_enum.en_enums = first;
		type->tp_value.tp_enum.en_ncst = assval;
	}
}

/*	Look for an identifier in the current visibility range.
	If it is not defined, give an error message, and
	create a dummy definition.
*/
struct def *
lookfor(id, give_error)
	struct idf *id;
{
	register struct scope *sc = currscope;
	struct def *df;

	while (sc) {
		df = lookup(id, sc->sc_scope);
		if (df) return df;
		sc = nextvisible(sc);
	}
	if (give_error) error("Identifier \"%s\" not declared", id->id_text);
	return define(id, CurrentScope, D_ERROR);
}