Implement Phrase

1 files changed, 13 insertions, 1 deletions

diff --git a/src/parcom.cr b/src/parcom.cr
index 8d1d47b..4d49a97 100644
--- a/src/parcom.cr
+++ b/src/parcom.cr
@@ -166,7 +166,19 @@ module Parcom
     end
   end
 
-  class Phrase
+  class Phrase(T, V)
+    def initialize(@p : Parser(T, V))
+    end
+
+    def parse(tokens : TokenStream(T)) : Result(T, V)
+      r = @p.parse(tokens)
+
+      unless r.tokens.empty?
+        raise ParserException.new("Phrase: some of the input was not parsed")
+      end
+
+      r
+    end
   end
 
   class Plus(T, V, U) < Parser(T, {V, U})