From 900c223ed40e36ffedce95e9a987d9a3c0309271 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Wed, 12 Apr 2017 16:47:45 +0200
Subject: Implementent conditional primitive

---
 src/primitives.d | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'src')

diff --git a/src/primitives.d b/src/primitives.d
index 0be6836..f577713 100644
--- a/src/primitives.d
+++ b/src/primitives.d
@@ -6,8 +6,21 @@ import src.stack;
 import src.definition;
 
 int[string] variables;
+bool        drop_mode;
+
+bool evaluate(int value) {
+	return drop_mode;
+}
 
 bool evaluate(string word) {
+	if ( drop_mode ) {
+		if ( word == "then" ) {
+			drop_mode = false;
+		}
+
+		return true;
+	}
+
 	switch ( word ) {
 		case "§":
 			src.definition.start;
@@ -25,6 +38,20 @@ bool evaluate(string word) {
 				stack.push(variables[name]);
 			}
 			return true;
+		case "if":
+			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");
+			}
+		case "then":
+			drop_mode = false;
+			return true;
 		case "+":
 			int b = stack.pop.get!int;
 			int a = stack.pop.get!int;
-- 
cgit v1.2.3