27 lines
		
	
	
	
		
			693 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			27 lines
		
	
	
	
		
			693 B
		
	
	
	
		
			C
		
	
	
	
	
	
/* $Id$ */
 | 
						|
/*
 | 
						|
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 | 
						|
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 | 
						|
 */
 | 
						|
extern void Push(token_p tkp);
 | 
						|
			/*
 | 
						|
			 * Push the token in tkp on the fake-stack.
 | 
						|
			 */
 | 
						|
 | 
						|
extern void 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 void Dup(line_p lnp);
 | 
						|
			/*
 | 
						|
			 * Reflect the changes made by the dup-instruction
 | 
						|
			 * in lnp to the EM-stack into the fake-stack.
 | 
						|
			 */
 | 
						|
 | 
						|
extern void clr_stack(void);
 | 
						|
			/*
 | 
						|
			 * Clear the fake-stack.
 | 
						|
			 */
 |