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.
 | |
| 			 */
 |