reading command_decls from 'new' protocol
authorimmler@in.tum.de
Tue, 21 Oct 2008 16:21:13 +0200
changeset 34330 0b846b3ccc32
parent 34329 8622e3a0274e
child 34331 2cb3369f0634
reading command_decls from 'new' protocol
src/Tools/jEdit/src/prover/Prover.scala
--- a/src/Tools/jEdit/src/prover/Prover.scala	Mon Oct 20 20:25:54 2008 +0200
+++ b/src/Tools/jEdit/src/prover/Prover.scala	Tue Oct 21 16:21:13 2008 +0200
@@ -57,12 +57,21 @@
         else {
           val tree = parse_failsafe(converter.decode(r.result))
           tree match {
-            case Elem("message", _, List(Elem("command_decl", List(("name", name), 
-                                                                   ("kind", _)), _))) =>
-              commandKeywords.addEntry(name)
+            case Elem("message", List(("class","status")), decls) =>
+              decls map (decl => decl match{
+                  case Elem("command_decl", List(("name", name), ("kind", _)), _) =>
+                    commandKeywords.addEntry(name)
+                  case Elem("keyword_decl", List(("name", keyw)), _) => 
+                    () //TODO: with these keywords simplify the token-regex in ProofDocument
+                  case _ => 
+                    //TODO
+                    if (st != null)
+                    handleResult(st, r, tree)
+                }) 
             case _ =>
+              //TODO
               if (st != null)
-                handleResult(st, r, tree)
+              handleResult(st, r, tree)
           }
         }