78 static ssize_t		 cs(const char *);
221 				$$ = cs("");
233 				$$ = cs("");
251 				$$ = cs("");
258 				$$ = node($1, cs("ps."), END_NODE);
263 					$$ = node($3, cs($2), $1.store,
266 					$$ = node($1.load, $3, cs($2), $1.store,
271 				$$ = node(cs("["), as($1),
272 				    cs("]P"), END_NODE);
283 					    cs("Q"), END_NODE);
295 					    cs("J"), END_NODE);
325 					n = node($10, cs("M"), $8, cs("s."),
328 					n = node($10, $8, cs("s."), $6, $3,
332 				$$ = node($4, cs("s."), $6, $3, cs(" "),
339 				$$ = node($5, $3, cs(" "), END_NODE);
346 				$$ = node($5, $3, cs("e"), $9, cs(" "),
355 					n = node($6, cs("M"), $4, $3, END_NODE);
359 				$$ = node($4, $3, cs(" "), END_NODE);
373 				$$ = cs(str_table[macro_char]);
402 				    cs("0"), numnode(nesting),
403 				    cs("Q"), END_NODE);
415 				prologue = cs("");
416 				epilogue = cs("");
490 				$$ = cs("");
503 				$$ = node($1, cs("l"), array_node($3),
512 				$$ = cs(" 0 0=");
520 				$$ = node($1, $3, cs("="), END_NODE);
524 				$$ = node($1, $3, cs("!="), END_NODE);
528 				$$ = node($1, $3, cs(">"), END_NODE);
532 				$$ = node($1, $3, cs("!<"), END_NODE);
536 				$$ = node($1, $3, cs("<"), END_NODE);
540 				$$ = node($1, $3, cs("!>"), END_NODE);
544 				$$ = node($1, cs(" 0!="), END_NODE);
552 				$$ = node(cs("0"), epilogue,
553 				    numnode(nesting), cs("Q"), END_NODE);
558 				    numnode(nesting), cs("Q"), END_NODE);
562 				$$ = node(cs("0"), epilogue,
563 				    numnode(nesting), cs("Q"), END_NODE);
570 				$$ = cs(" 0");
580 				$$ = node(cs("l."), END_NODE);
584 				$$ = node(cs(" "), as($1), END_NODE);
592 				$$ = node($3, cs("l"),
593 				    function_node($1), cs("x"),
599 				$$ = node(cs(" 0"), $2, cs("-"),
604 				$$ = node($1, $3, cs("+"), END_NODE);
608 				$$ = node($1, $3, cs("-"), END_NODE);
612 				$$ = node($1, $3, cs("*"), END_NODE);
616 				$$ = node($1, $3, cs("/"), END_NODE);
620 				$$ = node($1, $3, cs("%"), END_NODE);
624 				$$ = node($1, $3, cs("^"), END_NODE);
628 				$$ = node($2.load, cs("1+d"), $2.store,
633 				$$ = node($2.load, cs("1-d"),
638 				$$ = node($1.load, cs("d1+"),
643 				$$ = node($1.load, cs("d1-"),
649 					$$ = node($3, cs($2), cs("d"), $1.store,
652 					$$ = node($1.load, $3, cs($2), cs("d"),
657 				$$ = node($3, cs("Z"), END_NODE);
661 				$$ = node($3, cs("v"), END_NODE);
665 				$$ = node($3, cs("X"), END_NODE);
669 				$$ = node($2, cs("N"), END_NODE);
673 				ssize_t n = node(cs("R"), $5, END_NODE);
675 				$$ = node($1, cs("d0!="), $3, END_NODE);
679 				ssize_t n = node(cs("R"), $5, END_NODE);
681 				$$ = node($1, cs("d0="), $3, END_NODE);
685 				$$ = node($1, $3, cs("G"), END_NODE);
689 				$$ = node($1, $3, cs("GN"), END_NODE);
693 				$$ = node($3, $1, cs("("), END_NODE);
697 				$$ = node($3, $1, cs("{"), END_NODE);
701 				$$ = node($1, $3, cs("("), END_NODE);
705 				$$ = node($1, $3, cs("{"), END_NODE);
712 				$$.load = node(cs("l"), letter_node($1),
714 				$$.store = node(cs("s"), letter_node($1),
720 				$$.load = node($3, cs(";"),
722 				$$.store = node($3, cs(":"),
728 				$$.load = cs("K");
729 				$$.store = cs("k");
733 				$$.load = cs("I");
734 				$$.store = cs("i");
738 				$$.load = cs("O");
739 				$$.store = cs("o");
753 				$$ = node($1, cs("ds.n"), END_NODE);
758 				$$ = node(cs("["), as(p), cs("]n"), END_NODE);
783 cs(const char *str)  in cs()  function
874 	return (node(cs(" "), cs(p), END_NODE));  in numnode()
912 	return (cs(found->data));  in lookup()
922 		return (cs(str_table[(int)str[0]]));  in letter_node()
934 		return (cs(str_table[(int)str[0] - 'a' + ARRAY_CHAR]));  in array_node()
946 		return (cs(str_table[(int)str[0] - 'a' + FUNC_CHAR]));  in function_node()
955 	prologue = node(cs("S"), n, prologue, END_NODE);  in add_par()
956 	epilogue = node(epilogue, cs("L"), n, cs("s."), END_NODE);  in add_par()
963 	prologue = node(cs("0S"), n, prologue, END_NODE);  in add_local()
964 	epilogue = node(epilogue, cs("L"), n, cs("s."), END_NODE);  in add_local()