From c6d2b259a4f253403929f6f1104395a6a71b1be6 Mon Sep 17 00:00:00 2001 From: Adrian Kummerlaender Date: Fri, 14 Apr 2017 23:21:51 +0200 Subject: Convert structure to _dub_ build system --- src/primitives/eval.d | 53 --------------------------------------------------- 1 file changed, 53 deletions(-) delete mode 100644 src/primitives/eval.d (limited to 'src/primitives/eval.d') diff --git a/src/primitives/eval.d b/src/primitives/eval.d deleted file mode 100644 index 08d8fb9..0000000 --- a/src/primitives/eval.d +++ /dev/null @@ -1,53 +0,0 @@ -module src.primitives.eval; - -import std.variant; - -import src.stack; -import src.primitives.core; -import conditional = src.primitives.conditional; - -bool evaluate_primitive(string word) { - switch ( word ) { - case "ยง" : definition_start; break; - case "$" : binary_op_variable_bind; break; - case "@" : unary_op_variable_resolve; break; - case "if" : conditional.eval_if; break; - case "then" : conditional.eval_then; break; - case "else" : conditional.eval_else; break; - case "+" : binary_op_add; break; - case "*" : binary_op_multiply; break; - case "/" : binary_op_divide; break; - case "%" : binary_op_modulo; break; - case "." : unary_op_io_print; break; - case "pop" : unary_op_stack_pop; break; - case "dup" : unary_op_stack_dup; break; - case "swp" : binary_op_stack_swp; break; - case "true" : integral_value_bool(true); break; - case "false" : integral_value_bool(false); break; - case "<" : binary_cond_lt; break; - case "=" : binary_cond_eq; break; - default : return false; - } - - return true; -} - -bool evaluate(Token token) { - if ( conditional.drop(token) ) { - return true; - } else { - return token.visit!( - (int value) => false, - (bool value) => false, - (string word ) => evaluate_primitive(word) - ); - } -} - -Stack!Token result() { - if ( conditional.dischargeable ) { - return conditional.discharge; - } else { - return Stack!Token(); - } -} -- cgit v1.2.3