aboutsummaryrefslogtreecommitdiff
path: root/src/primitives/eval.d
diff options
context:
space:
mode:
Diffstat (limited to 'src/primitives/eval.d')
-rw-r--r--src/primitives/eval.d53
1 files changed, 0 insertions, 53 deletions
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();
- }
-}