usr.bin/bc/bc.y

82 static ssize_t		 cs(const char *);
225 				$$ = cs("");
237 				$$ = cs("");
255 				$$ = cs("");
262 				$$ = node($1, cs("ps."), END_NODE);
267 					$$ = node($3, cs($2), $1.store,
270 					$$ = node($1.load, $3, cs($2), $1.store,
275 				$$ = node(cs("["), as($1),
276 				    cs("]P"), END_NODE);
287 					    cs("Q"), END_NODE);
299 					    cs("J"), END_NODE);
329 					n = node($10, cs("M"), $8, cs("s."),
332 					n = node($10, $8, cs("s."), $6, $3,
336 				$$ = node($4, cs("s."), $6, $3, cs(" "),
343 				$$ = node($5, $3, cs(" "), END_NODE);
350 				$$ = node($5, $3, cs("e"), $9, cs(" "),
359 					n = node($6, cs("M"), $4, $3, END_NODE);
363 				$$ = node($4, $3, cs(" "), END_NODE);
377 				$$ = cs(str_table[macro_char]);
406 				    cs("0"), numnode(nesting),
407 				    cs("Q"), END_NODE);
419 				prologue = cs("");
420 				epilogue = cs("");
494 				$$ = cs("");
507 				$$ = node($1, cs("l"), array_node($3),
516 				$$ = cs(" 0 0=");
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, $3, cs("!>"), END_NODE);
548 				$$ = node($1, cs(" 0!="), END_NODE);
556 				$$ = node(cs("0"), epilogue,
557 				    numnode(nesting), cs("Q"), END_NODE);
562 				    numnode(nesting), cs("Q"), END_NODE);
566 				$$ = node(cs("0"), epilogue,
567 				    numnode(nesting), cs("Q"), END_NODE);
574 				$$ = cs(" 0");
584 				$$ = node(cs("l."), END_NODE);
588 				$$ = node(cs(" "), as($1), END_NODE);
596 				$$ = node($3, cs("l"),
597 				    function_node($1), cs("x"),
603 				$$ = node(cs(" 0"), $2, cs("-"),
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($1, $3, cs("^"), END_NODE);
632 				$$ = node($2.load, cs("1+d"), $2.store,
637 				$$ = node($2.load, cs("1-d"),
642 				$$ = node($1.load, cs("d1+"),
647 				$$ = node($1.load, cs("d1-"),
653 					$$ = node($3, cs($2), cs("d"), $1.store,
656 					$$ = node($1.load, $3, cs($2), cs("d"),
661 				$$ = node($3, cs("Z"), END_NODE);
665 				$$ = node($3, cs("v"), END_NODE);
669 				$$ = node($3, cs("X"), END_NODE);
673 				$$ = node($2, cs("N"), END_NODE);
677 				ssize_t n = node(cs("R"), $5, END_NODE);
679 				$$ = node($1, cs("d0!="), $3, END_NODE);
683 				ssize_t n = node(cs("R"), $5, END_NODE);
685 				$$ = node($1, cs("d0="), $3, END_NODE);
689 				$$ = node($1, $3, cs("G"), END_NODE);
693 				$$ = node($1, $3, cs("GN"), END_NODE);
697 				$$ = node($3, $1, cs("("), END_NODE);
701 				$$ = node($3, $1, cs("{"), END_NODE);
705 				$$ = node($1, $3, cs("("), END_NODE);
709 				$$ = node($1, $3, cs("{"), END_NODE);
716 				$$.load = node(cs("l"), letter_node($1),
718 				$$.store = node(cs("s"), letter_node($1),
724 				$$.load = node($3, cs(";"),
726 				$$.store = node($3, cs(":"),
732 				$$.load = cs("K");
733 				$$.store = cs("k");
737 				$$.load = cs("I");
738 				$$.store = cs("i");
742 				$$.load = cs("O");
743 				$$.store = cs("o");
757 				$$ = node($1, cs("ds.n"), END_NODE);
762 				$$ = node(cs("["), as(p), cs("]n"), END_NODE);
787 cs(const char *str)
873 	return (node(cs(" "), cs(p), END_NODE));
911 	return (cs(found->data));
921 		return (cs(str_table[(int)str[0]]));
933 		return (cs(str_table[(int)str[0] - 'a' + ARRAY_CHAR]));
945 		return (cs(str_table[(int)str[0] - 'a' + FUNC_CHAR]));
954 	prologue = node(cs("S"), n, prologue, END_NODE);
955 	epilogue = node(epilogue, cs("L"), n, cs("s."), END_NODE);
962 	prologue = node(cs("0S"), n, prologue, END_NODE);
963 	epilogue = node(epilogue, cs("L"), n, cs("s."), END_NODE);