Interdata_v6/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,
	0,8,  0,0,  0,6,  0,0,	/*null*/
	0,12, 0,35, 0,11, 't','r','a','c','e',0,
	0,12, 0,23, 0,10, 'w','a','r','n',0,0,
	0,12, 0,22, 0,10, 'c','o','p','y',0,0,
	0,12, 0,32, 0,11, 'q','u','o','t','e',0,
	0,14, 0,33, 0,12, 's','e','r','i','a','l',0,0,
	0,12, 0,34, 0,10, 'l','i','s','t',0,0,
	0,12, 0,24, 0,10, 's','i','z','e',0,0,
	0,14, 0,25, 0,12, 's','u','b','s','t','r',0,0,
	0,10, 0,26, 0,8,  'g','o',0,0,
	0,12, 0,27, 0,10, 'g','o','b','k',0,0,
	0,10, 0,28, 0,9,  'd','e','l',0,
	0,10, 0,29, 0,9,  'd','n','l',0,
	0,10, 0,7,  0,9,  's','e','q',0,
	0,10, 0,8,  0,9,  's','n','e',0,
	0,10, 0,9,  0,9,  'a','d','d',0,
	0,10, 0,10, 0,9,  's','u','b',0,
	0,10, 0,11, 0,9,  'm','p','y',0,
	0,10, 0,12, 0,9,  'd','i','v',0,
	0,10, 0,13, 0,9,  'e','x','p',0,
	0,10, 0,1,  0,8,  'g','t',0,0,
	0,10, 0,2,  0,8,  'e','q',0,0,
	0,10, 0,3,  0,8,  'g','e',0,0,
	0,10, 0,4,  0,8,  'l','t',0,0,
	0,10, 0,5,  0,8,  'n','e',0,0,
	0,10, 0,6,  0,8,  'l', 'e',0,0,
	0,10, 0,21, 0,9,  'd','e','f',0,
	0,10, 0,20, 0,8,  'i','f',0,
	0,0
};

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

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