REPL checkpoint

src/better_parser/SimpleReplParser.kt

@@ -0,0 +1,27 @@
+package better_parser
+
+import com.github.h0tk3y.betterParse.combinators.times
+import com.github.h0tk3y.betterParse.combinators.unaryMinus
+import com.github.h0tk3y.betterParse.combinators.use
+import com.github.h0tk3y.betterParse.grammar.parseToEnd
+import com.github.h0tk3y.betterParse.parser.Parser
+import prolog.ast.logic.LogicOperand
+import prolog.builtins.Query
+
+class SimpleReplParser(val debug: Boolean = false) : SimpleSourceParser() {
+    override val rootParser: Parser<Query> by (body * -dot) use { Query(this as LogicOperand) }
+
+    fun parse(input: String): Query {
+        if (debug) {
+            println("Parsing input: $input")
+        }
+
+        val query = parseToEnd(input) as Query
+
+        if (debug) {
+            println("Parsed query: $query")
+        }
+
+        return query
+    }
+}