feat(src/StringConsumer): Add higher order consumers, integer, binary operation and if keywords consumers HEAD main

Higher order consumers are called that way because they use other (base)
consumers in their logic. In a sense, the other consumers are parameters
to the higher order consumers.

1 files changed, 19 insertions, 0 deletions

diff --git a/src/StringConsumer/HigherOrderConsumers/ExpressionConsumer.cl b/src/StringConsumer/HigherOrderConsumers/ExpressionConsumer.cl
new file mode 100644
index 0000000..592611e
--- /dev/null
+++ b/src/StringConsumer/HigherOrderConsumers/ExpressionConsumer.cl
@@ -0,0 +1,19 @@
+class ExpressionConsumer inherits IHigherOrderConsumer {
+	integerc: IStringConsumer <- (new IntegerConsumer).init();
+	binaryopc: IStringConsumer <- (new BinaryOperatorConsumer).init();
+
+	consume(s: String) : Int {{
+		consumed_length <- 0;
+		if did(integerc.consume(s))
+		then
+			token <- integerc.token()
+		else if did(binaryopc.consume(s))
+		then
+			token <- binaryopc.token()
+		else
+			void
+		fi
+		fi;
+		consumed_length;
+	}};
+};