Return to globals.c CVS log

Up to [MW Coherent from dump] / coherent / d / bin / bc

coherent

#include <stdio.h>
#include "bc.h"


int	allok	    = TRUE;	/* True iff no outstanding errors */
int	scale	    = 0;	/* scale register */
extern	int	ibase;		/* input base from libmp/min.c */
dicent	*dictionary = NULL;	/* root of string table */
code	cstream[MAXCODE];	/* code stream */
code	*loc = cstream;		/* where next item of code stream goes */
mint	ten;			/* constant ten */
mint	maxsobase;		/* max small output base (16) */
mint	outbase;		/* output base */
rvalue	dot;			/* last number printed */
rvalue	zero;			/* constant zero */
FILE	*infile = stdin;	/* current input file */
int	inline = 0;		/* current line number */
char	*infnam = NULL;		/* current file name */

init()
{
	mitom(10, &ten);
	mcopy(&ten, &outbase);
	mitom(16, &maxsobase);
	mitom(0, &dot.mantissa);
	dot.scale = 0;
	mitom(0, &zero.mantissa);
	zero.scale = 0;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.