diff options
author | Adrian Kummerlaender | 2017-04-12 16:58:18 +0200 |
---|---|---|
committer | Adrian Kummerlaender | 2017-04-12 17:24:09 +0200 |
commit | 4804893a6616a312ac8028e42d2aa990018ffbe6 (patch) | |
tree | 7eabf5638dd29580dae9c0197804b739301885a9 /src/primitives/impl.d | |
parent | 900c223ed40e36ffedce95e9a987d9a3c0309271 (diff) | |
download | slang-4804893a6616a312ac8028e42d2aa990018ffbe6.tar slang-4804893a6616a312ac8028e42d2aa990018ffbe6.tar.gz slang-4804893a6616a312ac8028e42d2aa990018ffbe6.tar.bz2 slang-4804893a6616a312ac8028e42d2aa990018ffbe6.tar.lz slang-4804893a6616a312ac8028e42d2aa990018ffbe6.tar.xz slang-4804893a6616a312ac8028e42d2aa990018ffbe6.tar.zst slang-4804893a6616a312ac8028e42d2aa990018ffbe6.zip |
Modularize primitives implementation, add stack manipulators
Diffstat (limited to 'src/primitives/impl.d')
-rw-r--r-- | src/primitives/impl.d | 119 |
1 files changed, 119 insertions, 0 deletions
diff --git a/src/primitives/impl.d b/src/primitives/impl.d new file mode 100644 index 0000000..4ec9019 --- /dev/null +++ b/src/primitives/impl.d @@ -0,0 +1,119 @@ +module src.primitives.impl; + +import std.stdio; + +import src.stack; +import src.definition; + +int[string] variables; +bool drop_mode; + +bool definition_start() { + src.definition.start; + return true; +} + +bool binary_op_variable_bind() { + string name = stack.pop.get!string; + int value = stack.pop.get!int; + + variables[name] = value; + return true; +} + +bool unary_op_variable_resolve() { + string name = stack.pop.get!string; + + if ( name in variables ) { + stack.push(variables[name]); + } + + return true; +} + +bool conditional_start() { + switch ( stack.pop.get!int ) { + case 0: + drop_mode = true; + return true; + case 1: + drop_mode = false; + return true; + default: + throw new Exception("invalid logic value"); + } +} + +bool conditional_end() { + drop_mode = false; + return true; +} + +bool binary_op_add() { + int b = stack.pop.get!int; + int a = stack.pop.get!int; + + stack.push(a + b); + + return true; +} + +bool binary_op_multiply() { + int b = stack.pop.get!int; + int a = stack.pop.get!int; + + stack.push(a * b); + + return true; +} + +bool 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); + } + + return true; +} + +bool 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); + } + + return true; +} + +bool unary_op_io_print() { + writeln(stack.top); + return true; +} + +bool unary_op_stack_pop() { + stack.pop; + return true; +} + +bool unary_op_stack_dup() { + stack.push(stack.top); + return true; +} + +bool binary_op_stack_swp() { + auto b = stack.pop; + auto a = stack.pop; + + stack.push(b); + stack.push(a); + + return true; +} |