godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

newer version

Browse Source
This commit is contained in:
ceriel
1986-04-28 18:06:58 +00:00
parent dd5b8dfabf
commit 53e3cd60d0
16 changed files with 379 additions and 228 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lang/m2/comp/scope.h
View File

@@ -25,11 +25,20 @@ struct scope {
int sc_level; /* level of this scope */
};
struct scopelist {
struct scopelist *next;
struct scopelist *sc_encl;
struct scope *sc_scope;
};
extern struct scope
*CurrentScope,
*PervasiveScope,
*GlobalScope;
#define enclosing(x) ((x)->next)
extern struct scopelist
*CurrVis;
#define CurrentScope (CurrVis->sc_scope)
#define enclosing(x) ((x)->sc_encl)
#define scopeclosed(x) ((x)->sc_scopeclosed)
#define nextvisible(x) (scopeclosed(x) ? PervasiveScope : enclosing(x))
#define nextvisible(x) ((x)->next) /* use with scopelists */