diff options
Diffstat (limited to 'src/primitives/core.d')
-rw-r--r-- | src/primitives/core.d | 101 |
1 files changed, 101 insertions, 0 deletions
diff --git a/src/primitives/core.d b/src/primitives/core.d new file mode 100644 index 0000000..5b3d43d --- /dev/null +++ b/src/primitives/core.d @@ -0,0 +1,101 @@ +module src.primitives.core; + +import std.stdio; + +import src.stack; +import src.definition; + +Token[string] variables; + +void definition_start() { + src.definition.start; +} + +void binary_op_variable_bind() { + string name = stack.pop.get!string; + Token value = stack.pop; + variables[name] = value; +} + +void unary_op_variable_resolve() { + string name = stack.pop.get!string; + + if ( name in variables ) { + stack.push(variables[name]); + } +} + +void binary_op_add() { + int b = stack.pop.get!int; + int a = stack.pop.get!int; + + stack.push(a + b); +} + +void binary_op_multiply() { + int b = stack.pop.get!int; + int a = stack.pop.get!int; + + stack.push(a * b); +} + +void binary_op_divide() { + int b = stack.pop.get!int; + int a = stack.pop.get!int; + + if ( b == 0 ) { + throw new Exception("division by 0 undefined"); + } else { + stack.push(a / b); + } +} + +void binary_op_modulo() { + int b = stack.pop.get!int; + int a = stack.pop.get!int; + + if ( b == 0 ) { + throw new Exception("modulo 0 undefined"); + } else { + stack.push(a % b); + } +} + +void unary_op_io_print() { + writeln(stack.top); +} + +void unary_op_stack_pop() { + stack.pop; +} + +void unary_op_stack_dup() { + stack.push(stack.top); +} + +void binary_op_stack_swp() { + auto b = stack.pop; + auto a = stack.pop; + + stack.push(b); + stack.push(a); + +} + +void binary_cond_lt() { + int b = stack.pop.get!int; + int a = stack.pop.get!int; + + stack.push(a < b); +} + +void binary_cond_eq() { + auto b = stack.pop; + auto a = stack.pop; + + stack.push(a == b); +} + +void integral_value_bool(bool value) { + stack.push(Token(value)); +} |