feat(StringConsumer): Move most whitespace consumer logic into a more generic class

1 files changed, 63 insertions, 0 deletions

diff --git a/src/StringConsumer/IWordConsumer.cl b/src/StringConsumer/IWordConsumer.cl
new file mode 100644
index 0000000..1146710
--- /dev/null
+++ b/src/StringConsumer/IWordConsumer.cl
@@ -0,0 +1,63 @@
+class WordList inherits System {
+	word: String;
+	next: WordList;
+
+	init(value: String, tail: Object) : WordList {{
+		assert(not (isvoid value), "init", "value argument cannot be void!");
+		assert(isvoid word, "init", "List has already been initialised!");
+
+		word <- value;
+		if isvoid tail then
+			void
+		else
+			case tail of
+				wl: WordList => next <- wl;
+				o: Object => assert(false, "init", "tail argument can be either a ConsumerList or void!");
+			esac
+		fi;
+
+		self;
+	}};
+
+	push(value: String) : WordList {{
+		assert(not (isvoid value), "push", "value argument cannot be void!");
+
+		if isvoid word
+		then
+			word <- value
+		else if isvoid next
+		then
+			next <- (new WordList).init(value, void)
+		else
+			next.push(value)
+		fi
+		fi;
+		self;
+	}};
+
+	any_starts(s: String, start: Int) : Bool {
+		if isvoid word
+		then false
+		else if s.substr(start, word.length()) = word
+		then true
+		else if isvoid next
+		then false
+		else next.any_starts(s, start)
+		fi
+		fi
+		fi
+	};
+};
+
+class IWordConsumer inherits IStringConsumer {
+	matched_words: WordList <- new WordList;
+
+	consume(s: String) : Int {{
+		consumed_length <- 0;
+		while matched_words.any_starts(s, consumed_length)
+		loop
+			consumed_length <- consumed_length + 1
+		pool;
+		consumed_length;
+	}};
+};