vitalif
/
lime
mirror of https://github.com/vitalif/lime
1
0
Fork 0
Code Issues Releases Wiki Activity

Example stil needed some extra showing off

master
Richard van Velzen 2011-12-29 14:22:03 +01:00
parent 41598e9840
commit cd0fcae035
2 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
examples/calc.class
View File

@ -260,7 +260,7 @@ class calc extends lime_parser {
function reduce_0_stmt_1($tokens, &$result) {
// (0) stmt := exp
$result = reset($tokens);
echo " -> "; echo $tokens[0]; echo "\n";
echo " -> "; echo $tokens[0][0] . ' = ' . $tokens[0][1]; echo "\n";
}
function reduce_1_stmt_2($tokens, &$result) {
@ -276,60 +276,61 @@ class calc extends lime_parser {
function reduce_2_exp_1($tokens, &$result) {
// (2) exp := num
$result = reset($tokens);
$result = array($tokens[0], $tokens[0]);
}
function reduce_3_exp_2($tokens, &$result) {
// (3) exp := var
$result = reset($tokens);
$result = get_variable($tokens[0]);
$result = array($tokens[0], get_variable($tokens[0]));
}
function reduce_4_exp_3($tokens, &$result) {
// (4) exp := exp '+' exp
$result = reset($tokens);
$result = '(' . $tokens[0] . ' + ' . $tokens[2] . ')';
$result = array('(' . $tokens[0][0] . ' + ' . $tokens[2][0] . ')', $tokens[0][1] + $tokens[2][1]);
}
function reduce_5_exp_4($tokens, &$result) {
// (5) exp := exp '-' exp
$result = reset($tokens);
$result = '(' . $tokens[0] . ' - ' . $tokens[2] . ')';
$result = array('(' . $tokens[0][0] . ' - ' . $tokens[2][0] . ')', $tokens[0][1] - $tokens[2][1]);
}
function reduce_6_exp_5($tokens, &$result) {
// (6) exp := exp '*' exp
$result = reset($tokens);
$result = '(' . $tokens[0] . ' * ' . $tokens[2] . ')';
$result = array('(' . $tokens[0][0] . ' * ' . $tokens[2][0] . ')', $tokens[0][1] * $tokens[2][1]);
}
function reduce_7_exp_6($tokens, &$result) {
// (7) exp := exp '/' exp
$result = reset($tokens);
$result = '(' . $tokens[0] . ' / ' . $tokens[2] . ')';
$result = array('(' . $tokens[0][0] . ' / ' . $tokens[2][0] . ')', $tokens[0][1] / $tokens[2][1]);
}
function reduce_8_exp_7($tokens, &$result) {
// (8) exp := exp '^' exp
$result = reset($tokens);
$result = '(' . $tokens[0] . ' ^ ' . $tokens[2] . ')';
$result = array('(' . $tokens[0][0] . ' ^ ' . $tokens[2][0] . ')', pow($tokens[0][1], $tokens[2][1]));
}
function reduce_9_exp_8($tokens, &$result) {
// (9) exp := exp '%' exp
$result = reset($tokens);
$result = '(' . $tokens[0] . ' % ' . $tokens[2] . ')';
$result = array('(' . $tokens[0][0] . ' % ' . $tokens[2][0] . ')', $tokens[0][1] % $tokens[2][1]);
}
function reduce_10_exp_9($tokens, &$result) {
// (10) exp := '+' exp
$result = reset($tokens);
$result = '(+ ' . $tokens[1] . ')';
$result = array('(+ ' . $tokens[1][0] . ')', +($tokens[1][1]));
}
function reduce_11_exp_10($tokens, &$result) {
// (11) exp := '-' exp
$result = reset($tokens);
$result = '(- ' . $tokens[1] . ')';
$result = array('(- ' . $tokens[1][0] . ')', -($tokens[1][1]));
}
function reduce_12_exp_11($tokens, &$result) {

22
examples/calc.lime
View File

@ -6,7 +6,7 @@
%right '^'
%right T_INC
stmt = exp { echo " -> "; echo $1; echo "\n"; }
stmt = exp { echo " -> "; echo $1[0] . ' = ' . $1[1]; echo "\n"; }
| var/v '=' exp/e {
echo "$v = $e\n";
set_variable($v, $e);
@ -14,15 +14,15 @@ stmt = exp { echo " -> "; echo $1; echo "\n"; }
.
exp = num
| var { $$ = get_variable($1); }
| exp '+' exp { $$ = '(' . $1 . ' + ' . $3 . ')'; }
| exp '-' exp { $$ = '(' . $1 . ' - ' . $3 . ')'; }
| exp '*' exp { $$ = '(' . $1 . ' * ' . $3 . ')'; }
| exp '/' exp { $$ = '(' . $1 . ' / ' . $3 . ')'; }
| exp '^' exp { $$ = '(' . $1 . ' ^ ' . $3 . ')'; }
| exp '%' exp { $$ = '(' . $1 . ' % ' . $3 . ')'; }
| '+' exp %prec T_INC { $$ = '(+ ' . $2 . ')'; }
| '-' exp %prec T_INC { $$ = '(- ' . $2 . ')'; }
exp = num { $$ = array($1, $1); }
| var { $$ = array($1, get_variable($1)); }
| exp '+' exp { $$ = array('(' . $1[0] . ' + ' . $3[0] . ')', $1[1] + $3[1]); }
| exp '-' exp { $$ = array('(' . $1[0] . ' - ' . $3[0] . ')', $1[1] - $3[1]); }
| exp '*' exp { $$ = array('(' . $1[0] . ' * ' . $3[0] . ')', $1[1] * $3[1]); }
| exp '/' exp { $$ = array('(' . $1[0] . ' / ' . $3[0] . ')', $1[1] / $3[1]); }
| exp '^' exp { $$ = array('(' . $1[0] . ' ^ ' . $3[0] . ')', pow($1[1], $3[1])); }
| exp '%' exp { $$ = array('(' . $1[0] . ' % ' . $3[0] . ')', $1[1] % $3[1]); }
| '+' exp %prec T_INC { $$ = array('(+ ' . $2[0] . ')', +($2[1])); }
| '-' exp %prec T_INC { $$ = array('(- ' . $2[0] . ')', -($2[1])); }
| '(' exp/$ ')'
.