Initial revision

util/ego/cs/cs_stack.h

@@ -0,0 +1,18 @@
+extern	Push();		/* (token_p tkp)
+			 * Push the token in tkp on the fake-stack.
+			 */
+
+extern	Pop();		/* (token_p tkp; offset size)
+			 * Pop a token of size bytes from the fake-stack
+			 * into tkp. If such a token is not there
+			 * we put a dummy in tkp and adjust the fake-stack.
+			 */
+
+extern	Dup();		/* (line_p lnp)
+			 * Reflect the changes made by the dup-instruction
+			 * in lnp to the EM-stack into the fake-stack.
+			 */
+
+extern	clr_stack();	/* ()
+			 * Clear the fake-stack.
+			 */