32 lines
869 B
C
32 lines
869 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
|
|
*/
|
|
|
|
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)
|