diff options
feat(StringConsumer)!: Rename IWordConsumer to IWordsConsumer
1 files changed, 0 insertions, 63 deletions
| -rw-r--r-- | src/StringConsumer/IWordConsumer.cl | 63 |
diff --git a/src/StringConsumer/IWordConsumer.cl b/src/StringConsumer/IWordConsumer.cl deleted file mode 100644 index 1146710..0000000 --- a/src/StringConsumer/IWordConsumer.cl +++ /dev/null @@ -1,63 +0,0 @@ -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; - }}; -}; |
