Mini-Unix/usr/source/m6/m67.c

#define PSIZE 1000
#define GSIZE 2000
#define DSIZE 5000

int pmax PSIZE;
char p0[PSIZE];

int gmax GSIZE;
char g0[GSIZE];

int dmax DSIZE;
char d0[DSIZE] {
	0,0,
	8,0,  0,0,  6,0,  0,0,	/*null*/
	12,0, 35,0, 11,0, 't','r','a','c','e',0,
	12,0, 23,0, 10,0, 'w','a','r','n',0,0,
	12,0, 22,0, 10,0, 'c','o','p','y',0,0,
	12,0, 32,0, 11,0, 'q','u','o','t','e',0,
	14,0, 33,0, 12,0, 's','e','r','i','a','l',0,0,
	12,0, 34,0, 10,0, 'l','i','s','t',0,0,
	12,0, 24,0, 10,0, 's','i','z','e',0,0,
	14,0, 25,0, 12,0, 's','u','b','s','t','r',0,0,
	10,0, 26,0, 8,0,  'g','o',0,0,
	12,0, 27,0, 10,0, 'g','o','b','k',0,0,
	10,0, 28,0, 9,0,  'd','e','l',0,
	10,0, 29,0, 9,0,  'd','n','l',0,
	10,0, 7,0,  9,0,  's','e','q',0,
	10,0, 8,0,  9,0,  's','n','e',0,
	10,0, 9,0,  9,0,  'a','d','d',0,
	10,0, 10,0, 9,0,  's','u','b',0,
	10,0, 11,0, 9,0,  'm','p','y',0,
	10,0, 12,0, 9,0,  'd','i','v',0,
	10,0, 13,0, 9,0,  'e','x','p',0,
	10,0, 1,0,  8,0,  'g','t',0,0,
	10,0, 2,0,  8,0,  'e','q',0,0,
	10,0, 3,0,  8,0,  'g','e',0,0,
	10,0, 4,0,  8,0,  'l','t',0,0,
	10,0, 5,0,  8,0,  'n','e',0,0,
	10,0, 6,0,  8,0,  'l', 'e',0,0,
	10,0, 21,0, 9,0,  'd','e','f',0,
	10,0, 20,0, 8,0,  'i','f',0,
	0,0
};

int dummy[] {
	0,
	0,
	6,
	'$0',
	0
};
char metas[] {
	'<',
	'>',
	'#',
	':',
	';',
	',',
	'$'
};

int rescan 1;
int traceflag 0;
int trashflag 0;
char one[] { 
	'1',0 };