23 lines
660 B
C
23 lines
660 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) */
|
|
|
|
struct scope {
|
|
struct scope *next;
|
|
struct forwards *sc_forw;
|
|
int sc_scope; /* The scope number. Scope number 0 indicates
|
|
both the pervasive scope and the end of a
|
|
visibility range
|
|
*/
|
|
};
|
|
|
|
extern struct scope
|
|
*currscope;
|
|
|
|
#define nextvisible(x) ((x)->sc_scope ? (x)->next : (struct scope *) 0)
|
|
#define scopeclosed(x) ((x)->next->sc_scope == 0)
|
|
#define enclosing(x) ((x)->next->scope != 0 ? (struct scope *) 0 : (x)->next->next)
|
|
#define CurrentScope (currscope->sc_scope)
|