%{	#include	<u.h>	#include	<libc.h>	#include	<bio.h> 	#define	bsp_max	5000 	Biobuf	*in;	Biobuf	stdin;	Biobuf	stdout;	char	cary[1000];	char*	cp = { cary };	char	string[1000];	char*	str = { string };	int	crs = '0';	int	rcrs = '0';	/* reset crs */	int	bindx = 0;	int	lev = 0;	int	ln;	int*	ttp;	char*	ss = "";	int	bstack[10] = { 0 };	char*	numb[15] =	{		" 0", " 1", " 2", " 3", " 4", " 5",		" 6", " 7", " 8", " 9", " 10", " 11",		" 12", " 13", " 14"	};	int*	pre;	int*	post; 	long	peekc = -1;	int	sargc;	int	ifile;	char**	sargv; 	char	funtab[52] =	{		1,0,2,0,3,0,4,0,5,0,		6,0,7,0,8,0,9,0,10,0,		013,0,014,0,015,0,016,0,017,0,		020,0,021,0,022,0,023,0,024,0,		025,0,026,0,027,0,030,0,031,0,		032,0	};	char	atab[52] =	{		0241,0,0242,0,0243,0,0244,0,0245,0,		0246,0,0247,0,0250,0,0251,0,0252,0,0253,0,		0254,0,0255,0,0256,0,0257,0,0260,0,		0261,0,0262,0,0263,0,0264,0,0265,0,0266,0,		0267,0,0270,0,0271,0,0272,0	};	char*	letr[26] =	{		"a","b","c","d","e","f","g","h","i","j",		"k","l","m","n","o","p","q","r","s","t",		"u","v","w","x","y","z"	};	char*	dot = { "." };	int	bspace[bsp_max];	int*	bsp_nxt = { bspace };	int	bdebug = 0; 	int*	bundle(int, ...);	void	conout(int*, char*);	int	cpeek(int, int, int);	int	getch(void);	int*	geta(char*);	int*	getf(char*);	void	getout(void);	void	output(int*);	void	pp(char*);	void	routput(int*);	void	tp(char*);	void	yyerror(char*, ...);	int	yyparse(void);%}%union{	int*	iptr;	char*	cptr;	int	cc;} %type	<iptr>	pstat stat stat1 def slist dlets e ase nase%type	<iptr>	slist re fprefix cargs eora cons constant lora%type	<cptr>	crs %token	<cptr>	LETTER EQOP _AUTO DOT%token	<cc>	DIGIT SQRT LENGTH _IF FFF EQ%token	<cc>	_PRINT _WHILE _FOR NE LE GE INCR DECR%token	<cc>	_RETURN _BREAK _DEFINE BASE OBASE SCALE%token	<cc>	QSTR ERROR %right	'=' EQOP%left	'+' '-'%left	'*' '/' '%'%right	'^'%left	UMINUS %%start:	start stuff|	stuff stuff:	pstat tail =	{		output($1);	}|	def dargs ')' '{' dlist slist '}' =	{		ttp = bundle(6, pre, $6, post , "0", numb[lev], "Q");		conout(ttp, (char*)$1);		rcrs = crs;		output((int*)"");	/* this is horse puk!! */		lev = bindx = 0;	} dlist:	tail|	dlist _AUTO dlets tail stat:	stat1|	nase pstat:	stat1|	nase =	{		bundle(2, $1, "ps.");	} stat1:	=	{		bundle(1, "");	}|	ase =	{		bundle(2, $1, "s.");	}|	SCALE '=' e =	{		bundle(2, $3, "k");	}|	SCALE EQOP e =	{		bundle(4, "K", $3, $2, "k");	}|	BASE '=' e =	{		bundle(2, $3, "i");	}|	BASE EQOP e =	{		bundle(4, "I", $3, $2, "i");	}|	OBASE '=' e =	{		bundle(2, $3, "o");	}|	OBASE EQOP e =	{		bundle(4, "O", $3, $2, "o");	}|	QSTR =	{		bundle(3, "[", $1, "]P");	}|	_BREAK =	{		bundle(2, numb[lev-bstack[bindx-1]], "Q");	}|	_PRINT e =	{		bundle(2, $2, "ps.");	}|	_RETURN e =	{		bundle(4, $2, post, numb[lev], "Q");	}|	_RETURN =	{		bundle(4, "0", post, numb[lev], "Q");	}|	'{' slist '}' =	{		$$ = $2;	}|	FFF =	{		bundle(1, "fY");	}|	_IF crs BLEV '(' re ')' stat =	{		conout($7, $2);		bundle(3, $5, $2, " ");	}|	_WHILE crs '(' re ')' stat BLEV =	{		bundle(3, $6, $4, $2);		conout($$, $2);		bundle(3, $4, $2, " ");	}|	fprefix crs re ';' e ')' stat BLEV =	{		bundle(5, $7, $5, "s.", $3, $2);		conout($$, $2);		bundle(5, $1, "s.", $3, $2, " ");	}|	'~' LETTER '=' e =	{		bundle(3, $4, "S", $2);	} fprefix:	_FOR '(' e ';' =	{		$$ = $3;	} BLEV:	=	{		--bindx;	} slist:	stat|	slist tail stat =	{		bundle(2, $1, $3);	} tail:	'\n' =	{		ln++;	}|	';' re:	e EQ e =	{		$$ = bundle(3, $1, $3, "=");	}|	e '<' e =	{		bundle(3, $1, $3, ">");	}|	e '>' e =	{		bundle(3, $1, $3, "<");	}|	e NE e =	{		bundle(3, $1, $3, "!=");	}|	e GE e =	{		bundle(3, $1, $3, "!>");	}|	e LE e =	{		bundle(3, $1, $3, "!<");	}|	e =	{		bundle(2, $1, " 0!=");	} nase:	'(' e ')' =	{		$$ = $2;	}|	cons =	{		bundle(3, " ", $1, " ");	}|	DOT cons =	{		bundle(3, " .", $2, " ");	}|	cons DOT cons =	{		bundle(5, " ", $1, ".", $3, " ");	}|	cons DOT =	{		bundle(4, " ", $1, ".", " ");	}|	DOT =	{		$<cptr>$ = "l.";	}|	LETTER '[' e ']' =	{		bundle(3, $3, ";", geta($1));	}|	LETTER INCR =	{		bundle(4, "l", $1, "d1+s", $1);	}|	INCR LETTER =	{		bundle(4, "l", $2, "1+ds", $2);	}|	DECR LETTER =	{		bundle(4, "l", $2, "1-ds", $2);	}|	LETTER DECR =	{		bundle(4, "l", $1, "d1-s", $1);	}|	LETTER '[' e ']' INCR =	{		bundle(7, $3, ";", geta($1), "d1+" ,$3, ":" ,geta($1));	}|	INCR LETTER '[' e ']' =	{		bundle(7, $4, ";", geta($2), "1+d", $4, ":", geta($2));	}|	LETTER '[' e ']' DECR =	{		bundle(7, $3, ";", geta($1), "d1-", $3, ":", geta($1));	}|	DECR LETTER '[' e ']' =	{		bundle(7, $4, ";", geta($2), "1-d", $4, ":" ,geta($2));	}|	SCALE INCR =	{		bundle(1, "Kd1+k");	}|	INCR SCALE =	{		bundle(1, "K1+dk");	}|	SCALE DECR =	{		bundle(1, "Kd1-k");	}|	DECR SCALE =	{		bundle(1, "K1-dk");	}|	BASE INCR =	{		bundle(1, "Id1+i");	}|	INCR BASE =	{		bundle(1, "I1+di");	}|	BASE DECR =	{		bundle(1, "Id1-i");	}|	DECR BASE =	{		bundle(1, "I1-di");	}|	OBASE INCR =	{		bundle(1, "Od1+o");	}|	INCR OBASE =	{		bundle(1, "O1+do");	}|	OBASE DECR =	{		bundle(1, "Od1-o");	}|	DECR OBASE =	{		bundle(1, "O1-do");	}|	LETTER '(' cargs ')' =	{		bundle(4, $3, "l", getf($1), "x");	}|	LETTER '(' ')' =	{		bundle(3, "l", getf($1), "x");	}|	LETTER = {		bundle(2, "l", $1);	}|	LENGTH '(' e ')' =	{		bundle(2, $3, "Z");	}|	SCALE '(' e ')' =	{		bundle(2, $3, "X");	}|	'?' =	{		bundle(1, "?");	}|	SQRT '(' e ')' =	{		bundle(2, $3, "v");	}|	'~' LETTER =	{		bundle(2, "L", $2);	}|	SCALE =	{		bundle(1, "K");	}|	BASE =	{		bundle(1, "I");	}|	OBASE =	{		bundle(1, "O");	}|	'-' e =	{		bundle(3, " 0", $2, "-");	}|	e '+' e =	{		bundle(3, $1, $3, "+");	}|	e '-' e =	{		bundle(3, $1, $3, "-");	}|	e '*' e =	{		bundle(3, $1, $3, "*");	}|	e '/' e =	{		bundle(3, $1, $3, "/");	}|	e '%' e =	{		bundle(3, $1, $3, "%%");	}|	e '^' e =	{		bundle(3, $1, $3, "^");	} ase:	LETTER '=' e =	{		bundle(3, $3, "ds", $1);	}|	LETTER '[' e ']' '=' e =	{		bundle(5, $6, "d", $3, ":", geta($1));	}|	LETTER EQOP e =	{		bundle(6, "l", $1, $3, $2, "ds", $1);	}|	LETTER '[' e ']' EQOP e =	{		bundle(9, $3, ";", geta($1), $6, $5, "d", $3, ":", geta($1));	} e:	ase|	nase cargs:	eora|	cargs ',' eora =	{		bundle(2, $1, $3);	} eora:	e|	LETTER '[' ']' =	{		bundle(2, "l", geta($1));	} cons:	constant =	{		*cp++ = 0;	} constant:	'_' =	{

Lines 1–500 of 947. Load more