/* $Id$ */
/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */
/*  I N P U T   R O U T I N E S */

extern	FILE	*curinp;		/* current input file */
block_id lastbid;		/* block identifying number */
lab_id	 lastlabid;		/* last label identifier */

#define getbyte()	getc(curinp)
short	getshort(); /*
					 * Read a short from curinp
					 */
offset	getoff();   /*
					 * Read an offset from curinp
					 */
line_p read_line(proc_p *p_out);
					/* Read a line of EM code (i.e. one 
					 * instruction)  and its arguments 
					 * (if any). If the instruction is a
					 * 'pro' pseudo, set p_out.
					 */

line_p getlines(FILE *lf, int n, proc_p *p_out, bool collect_mes);
					/*   bool collect_mes)
					 * Read n lines of EM text and doubly
					 * link them.  Also process messages
					 * if required.
					 */

bblock_p freshblock();
					/* Allocate a bblock struct and assign
					 * it a brand new block_id.
					 */
lab_id freshlabel();
					/* Get a brand new lab_id.
					 */
dblock_p getdtable(char *dname);
					/* Read the data block table from
					 * the file with the given name.
					 */
proc_p	getptable(char *pname);
					/* Read the proc table from
					 * the file with the given name.
					 */
bool	 getunit(FILE *gf, FILE *lf, short *kind_out, bblock_p *g_out, line_p *l_out, proc_p *p_out, bool collect_mes);
					/* Read the control flow graph
					 * (from file gf) and the EM text
					 * (from lf). If collect_mes is TRUE,
					 * all register messages will be
					 * collected and put in the global
					 * variable 'mesregs'. The proc read
					 * is returned in p_out.
					 */
void		message(line_p lnp);
					/* See if  lnp is some useful message.
	 				 * (e.g. a message telling that a
					 * certain local variable will never be
					 * referenced indirectly, so it may be
					 * put in a register.
					 * If so, add it to the mesregs set.)
	 				 */