DataMuseum.dk

top - download

    Length: 2498 (0x9c2)
    Types: TextFile
    Notes: UNIX file
    Names: »bc.h«

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »cmd/bc/bc.h« 

TextFile

/*
 *	Secondary inclusions.
 */

#include <mprec.h>	/* multi-precision integer declarations */
#include "bcmch.h"	/* bc-machine definitions */
#include "bcsymtbl.h"	/* symbol table definitions */


/*
 *	Manifest constants.
 */

#define	TRUE		(0 == 0)
#define	FALSE		(0 != 0)
#define	MAXWORD		80		/* maximum token length */
#define	MAXSTRING	250		/* maximum quoted-string length */
#define	MAXSTACK	200		/* max pseudo-machine run-time stack */
#define	MAXCODE		500		/* maximum function code size */
#define	ABUMP		8		/* array growth quantum */
#define	LINELEN		72		/* maximum output line length */
#define NOSHELL		127		/* system return if no shell */


/*
 *	The nel macro returns the number of elements in the array
 *	"array".  It will be a compile time constant.
 */

#define nel(array)	((sizeof (array)) / (sizeof *(array)))


/*
 *	The following macros are used to place items in the code
 *	stream of the bc-machine.
 */

#define	emitop(op)		(incloc()->opcode = (op))
#define	emitzap			(incloc()->address = -1, loc - 1)
#define	emitaddr(addr)		(loc->address = (addr) - loc, incloc())
#define	emitnum(num)		(incloc()->lvalue = (num))
#define emitarry(arry)		(incloc()->alvalue = (arry))
#define emitstr(str)		(incloc()->svalue = (str))
#define emitcnt(cnt)		(incloc()->ivalue = (cnt))
#define emitid(ident)		(incloc()->dvalue = (ident))
#define patch(target, addr)	((target)->address = (addr) - (target))


/*
 *	Global functions that return non-ints.
 */

rvalue		*getnum(),		/* read number from stdin */
		*select();		/* select an array element */
code		*incloc();		/* return next slot and advance loc */
mint		*pow10();		/* return 10 to a power */
opcode		negate();		/* negate condition of branch */
stkent		*pauto();		/* initialize autos used in a bc fnc.*/
stkent		*newframe();		/* frame value after a function call */

/*
 *	Global variables.
 */

extern int	allok,			/* True iff no syntax errors */
		scale,			/* scale register */
		ibase;			/* input base */
extern dicent	*dictionary;		/* root of string table */
extern code	cstream[],		/* code stream */
		*loc;			/* where next code item goes */
extern mint	ten,			/* constant ten */
		maxsobase,		/* max small output base (16) */
		outbase;		/* output base */
extern rvalue	dot,			/* last number printed */
		zero;			/* constant zero */
extern FILE	*infile;			/* current input file */
stkent	*newframe();		/* function in bcmutil.c */
stkent	*pauto();		/* function in bcmutil.c */

char	*realloc();		/* call in dc.c and bcmutil.c */