36 lines
1,013 B
C
36 lines
1,013 B
C
/* 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) */
|
|
|
|
#define SC_CHKFORW 1 /* Check for forward definitions when closing
|
|
a scope
|
|
*/
|
|
#define SC_CHKPROC 2 /* Check for forward procedure definitions
|
|
when closing a scope
|
|
*/
|
|
#define SC_REVERSE 4 /* Reverse list of definitions, to get it
|
|
back into original order
|
|
*/
|
|
|
|
struct scope {
|
|
struct scope *next;
|
|
struct forwards *sc_forw;
|
|
char *sc_name; /* name of this scope */
|
|
struct def *sc_def; /* list of definitions in this scope */
|
|
arith sc_off; /* offsets of variables in this scope */
|
|
char sc_scopeclosed; /* flag indicating closed or open scope */
|
|
int sc_level; /* level of this scope */
|
|
};
|
|
|
|
extern struct scope
|
|
*CurrentScope,
|
|
*PervasiveScope,
|
|
*GlobalScope;
|
|
|
|
#define enclosing(x) ((x)->next)
|
|
#define scopeclosed(x) ((x)->sc_scopeclosed)
|
|
#define nextvisible(x) (scopeclosed(x) ? PervasiveScope : enclosing(x))
|