aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Aspinall1999-09-21 17:20:13 +0000
committerDavid Aspinall1999-09-21 17:20:13 +0000
commitc8e63e5d3d953540a4459272cf13a26935c23c28 (patch)
treee847b9fb07d218474c5bbea1075b91b1e884a9a8
parente8beaf4989ca81c61af0ede150e3b2942debe3e2 (diff)
Adjusted proof-shell-proof-completed-regexp to match against whole of
proofstate output including "No subgoals!" message. Now PG can correctly set the proof-shell-proof-completed flag.
-rw-r--r--isa/isa.el12
1 files changed, 9 insertions, 3 deletions
diff --git a/isa/isa.el b/isa/isa.el
index c919f3e2..84dff6c5 100644
--- a/isa/isa.el
+++ b/isa/isa.el
@@ -161,14 +161,11 @@ no regular or easily discernable structure."
;; for issuing command, not used to track cwd in any way.
proof-shell-cd "cd \"%s\";"
- proof-shell-proof-completed-regexp "$^" ; "No subgoals!" deactivated
;; FIXME: the next two are probably only good for NJ/SML
proof-shell-error-regexp "^.*Error:\\|^\364\\*\\*\\*"
proof-shell-interrupt-regexp "Interrupt"
- ;; nothing appropriate for: proof-shell-abort-goal-regexp
-
;; matches names of assumptions
proof-shell-assumption-regexp isa-id
;; matches subgoal name
@@ -180,6 +177,15 @@ no regular or easily discernable structure."
proof-shell-start-goals-regexp "\366\n"
proof-shell-end-goals-regexp "\367"
proof-shell-goal-char ?\370
+
+ proof-shell-proof-completed-regexp (concat
+ proof-shell-start-goals-regexp
+ ;; FIXME: next regexp is horrible,
+ ;; but seems only reliable way
+ ;; of matching a string with n/ls.
+ "[^\0]*"
+ "No subgoals!")
+
;; initial command configures Isabelle by hacking print functions.
proof-shell-init-cmd "ProofGeneral.init false;"
proof-shell-restart-cmd "ProofGeneral.isa_restart();"