ack/lang/m2/comp/scope.h

/* S C O P E   M E C H A N I S M */

/* $Header$ */

#define OPENSCOPE	0	/* Indicating an open scope */
#define CLOSEDSCOPE	1	/* Indicating a closed scope (module) */

struct scope {
	struct scope *next;
	struct forwards *sc_forw;
	struct def *sc_def;	/* list of definitions in this scope */
	int sc_scope;		/* The scope number. Scope number 0 indicates
				   both the pervasive scope and the end of a
				   visibility range
				*/
};

extern struct scope
	*CurrentScope,
	*GlobalScope;

#define nextvisible(x)	((x)->sc_scope ? (x)->next : (struct scope *) 0)
#define scopeclosed(x)	((x)->next->sc_scope == 0)
#define enclosing(x)	(scopeclosed(x) ? (x)->next->next : (x)->next)