Another day, another prover:

added support for the Casl Consistency Checker (file name extension: .ccc).

1 files changed, 46 insertions, 0 deletions

diff --git a/ccc/ccc.el b/ccc/ccc.el
new file mode 100644
index 00000000..e1398adb
--- /dev/null
+++ b/ccc/ccc.el
@@ -0,0 +1,46 @@
+;; ccc.el - Proof General for the Casl Consistency Checker
+;; 
+;; Author: Christoph Lüth <cxl@informatik.uni-bremen.de>
+;;        
+;; This is a fairly straightforward instantiation of Proof General for
+;; the Casl Consistency Checker, CCC. 
+;;
+;; CASL is the standard algebraic specification language, and CCC is a
+;; tool to check consistency of CASL specifications.
+;; 
+;; For more information, hasten thee browser yonder:
+;;   http://www.informatik.uni-bremen.de/cofi/ccc
+
+(require 'proof-easy-config)            ; nice and easy does it
+
+(proof-easy-config  'ccc "CASL Consistency Checker" 
+ proof-prog-name		 "ccc" ;; must be in your path.
+ proof-terminal-char             ?\;
+ proof-script-comment-start      "(*"
+ proof-script-comment-end        "*)"
+ proof-goal-command-regexp       "^"
+ proof-save-command-regexp       "^qeccc"
+ proof-goal-with-hole-regexp     "ccc \"\\(\\(.*\\)\\)\"" 
+ proof-save-with-hole-regexp     "qeccc \"\\(\\(.*\\)\\)\""
+ proof-non-undoables-regexp      "undo\\|back"
+ proof-goal-command              "ccc \"%s\";"
+ proof-save-command              "qeccc \"%s\";"
+ proof-kill-goal-command         "abort ();"
+ proof-showproof-command         "prt()"
+ proof-undo-n-times-cmd          "undo_steps %s;"
+ proof-auto-multiple-files       t
+ proof-shell-cd-cmd              "cd \"%s\""
+ proof-shell-prompt-pattern      "^\\(CCC\\|^HOL-CASL\\) > "
+ proof-shell-interrupt-regexp    "Interrupt"
+ proof-shell-start-goals-regexp  "^No subgoals\\|^[0-9]* subgoals\\|^Wts:"
+ proof-shell-end-goals-regexp    "val it"
+ proof-shell-quit-cmd            "quit();"
+ proof-assistant-home-page       "http://www.informatik.uni-bremen.de/cofi/tools/ccc"
+ proof-shell-annotated-prompt-regexp  "^\\(val it = () : unit\n\\)?\\(CCC\\|^HOL-CASL\\)> " ;; "^\\(val it = () : unit\n\\)?ML>? "
+ proof-shell-error-regexp        "\\*\\*\\*\\|^.*Error:\\|^uncaught exception \\|^Exception- "
+ proof-shell-init-cmd            ""
+ proof-shell-proof-completed-regexp "^Consistency proof successfully finished."
+ proof-shell-eager-annotation-start "^\\[opening \\|^###\\|^Reading" ;;; ???
+)
+
+(provide 'ccc)