Return to glob.c CVS log

Up to [Research Unix] / researchv9 / cmd / eqn

researchv9-SUN3(old)

#include "e.h"

int	dbg;		/* debugging print if non-zero */
int	lp[200];		/* stack for things like piles and matrices */
int	ct;		/* pointer to lp */
int	used[100];	/* available registers */
int	ps;		/* default init point size */
int	deltaps	= 3;	/* default change in ps */
int	dps_set = 0;	/* 1 => -p option used */
int	gsize	= 10;	/* default initial point size */
int	ft	= '2';
Font	ftstack[10] = { '2', "2" };	/* bottom is global font */
Font	*ftp	= ftstack;
int	szstack[10];	/* non-zero if absolute size set at this level */
int	nszstack = 0;
int	display	= 0;	/* 1=>display, 0=>.EQ/.EN */

#ifdef	APS
	char	*typesetter = "aps";	/* name for -T */
	int	ttype	= DEVAPS;	/* type of typesetter today */
	int	minsize	= 5;		/* min size it can handle; ditto */
#else
	char	*typesetter = "202";
	int	ttype	= DEV202;	/* type of typesetter today */
	int	minsize	= 5;		/* min size it can handle; ditto */
#endif

int	synerr;		/* 1 if syntax err in this eqn */
float	eht[100];	/* height in ems at gsize */
float	ebase[100];	/* base: where one enters above bottom */
int	eps[100];	/* unused right now */
int	lfont[100];
int	rfont[100];
int	eqnreg;		/* register where final string appears */
float	eqnht;		/* final height of equation */
int	lefteq	= '\0';	/* left in-line delimiter */
int	righteq	= '\0';	/* right in-line delimiter */
int	markline = 0;	/* 1 if this EQ/EN contains mark; 2 if lineup */

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