Initial revision

lang/pc/comp/scope.H

@@ -0,0 +1,31 @@
+/* S C O P E   M E C H A N I S M */
+
+struct scope {
+	struct scope *next;
+	struct def *sc_def;	/* list of definitions in this scope */
+	int sc_level;		/* level of this scope */
+	arith sc_off;		/* offsets of variables in this scope */
+	struct node *sc_lablist;/* list of labels in this scope, to speed
+				   up label handling
+				*/
+};
+
+/* ALLOCDEF "scope" 10 */
+
+struct scopelist {
+	struct scopelist *next;
+	struct scope *sc_scope;
+};
+
+/* ALLOCDEF "scopelist" 10 */
+
+extern struct scope
+	*GlobalScope,
+	*PervasiveScope,
+	*BlockScope;
+
+extern struct scopelist
+	*CurrVis;
+
+#define	CurrentScope	(CurrVis->sc_scope)
+#define	nextvisible(x)	((x)->next)		/* use with scopelists */