From 26fa0559b0689a4647c38a2275c5880148248718 Mon Sep 17 00:00:00 2001
From: Syndamia <kamen@syndamia.com>
Date: Sat, 1 Nov 2025 18:13:33 +0200
Subject: feat(src/StringConsumer): Add higher order consumers, integer, binary
 operation and if keywords consumers

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.
---
 .../BaseConsumers/BinaryOperatorConsumer.cl         | 18 ++++++++++++++++++
 src/StringConsumer/BaseConsumers/IntegerConsumer.cl | 21 +++++++++++++++++++++
 .../BaseConsumers/KeywordsIfConsumer.cl             | 15 +++++++++++++++
 .../BaseConsumers/WhitespaceConsumer.cl             | 13 +++++++++++++
 4 files changed, 67 insertions(+)
 create mode 100644 src/StringConsumer/BaseConsumers/BinaryOperatorConsumer.cl
 create mode 100644 src/StringConsumer/BaseConsumers/IntegerConsumer.cl
 create mode 100644 src/StringConsumer/BaseConsumers/KeywordsIfConsumer.cl
 create mode 100644 src/StringConsumer/BaseConsumers/WhitespaceConsumer.cl

(limited to 'src/StringConsumer/BaseConsumers')

diff --git a/src/StringConsumer/BaseConsumers/BinaryOperatorConsumer.cl b/src/StringConsumer/BaseConsumers/BinaryOperatorConsumer.cl
new file mode 100644
index 0000000..8e7288c
--- /dev/null
+++ b/src/StringConsumer/BaseConsumers/BinaryOperatorConsumer.cl
@@ -0,0 +1,18 @@
+class BinaryOperatorConsumer inherits IWordsConsumer {
+	init() : IStringConsumer {{
+		matched_words <- matched_words
+			.push("+")
+			.push("-")
+			.push("*")
+			.push("/")
+			.push("<")
+			.push("<=")
+			.push("=")
+			;
+		self;
+	}};
+
+	token() : IToken {
+		new BinaryOperatorToken
+	};
+};
diff --git a/src/StringConsumer/BaseConsumers/IntegerConsumer.cl b/src/StringConsumer/BaseConsumers/IntegerConsumer.cl
new file mode 100644
index 0000000..5b4cd82
--- /dev/null
+++ b/src/StringConsumer/BaseConsumers/IntegerConsumer.cl
@@ -0,0 +1,21 @@
+class IntegerConsumer inherits IWordsConsumer {
+	init() : IStringConsumer {{
+		matched_words <- matched_words
+			.push("0")
+			.push("1")
+			.push("2")
+			.push("3")
+			.push("4")
+			.push("5")
+			.push("6")
+			.push("7")
+			.push("8")
+			.push("9")
+			;
+		self;
+	}};
+
+	token() : IToken {
+		new IntegerToken
+	};
+};
diff --git a/src/StringConsumer/BaseConsumers/KeywordsIfConsumer.cl b/src/StringConsumer/BaseConsumers/KeywordsIfConsumer.cl
new file mode 100644
index 0000000..9bd76e9
--- /dev/null
+++ b/src/StringConsumer/BaseConsumers/KeywordsIfConsumer.cl
@@ -0,0 +1,15 @@
+class KeywordsIfConsumer inherits IWordsConsumer {
+	init() : IStringConsumer {{
+		matched_words <- matched_words
+			.push("if")
+			.push("then")
+			.push("else")
+			.push("fi")
+			;
+		self;
+	}};
+
+	token() : IToken {
+		new KeywordToken
+	};
+};
diff --git a/src/StringConsumer/BaseConsumers/WhitespaceConsumer.cl b/src/StringConsumer/BaseConsumers/WhitespaceConsumer.cl
new file mode 100644
index 0000000..3a8c4dc
--- /dev/null
+++ b/src/StringConsumer/BaseConsumers/WhitespaceConsumer.cl
@@ -0,0 +1,13 @@
+class WhitespaceConsumer inherits IWordsConsumer {
+	init() : IStringConsumer {{
+		matched_words <- matched_words
+			.push(" ")
+			.push("\t")
+			;
+		self;
+	}};
+
+	token() : IToken {
+		new WhitespaceToken
+	};
+};
-- 
cgit v1.3.1-26-gb76a