blob: 0c9a013bf81a276798912afdb9778ef9c1bb92db (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
;; 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
(require 'proof-syntax) ; functions for making regexps
(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 "ccc \".*\";"
proof-save-command-regexp "^qeccc"
proof-goal-with-hole-regexp "ccc \"\\(\\(.*\\)\\)\""
proof-save-with-hole-regexp "qeccc \"\\(\\(.*\\)\\)\""
proof-non-undoables-regexp nil ;; "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 nil
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" ;;; ???
proof-count-undos-fn 'ccc-count-undos
;;
;; Some basic fontlocking, as taken from the hol98 instance.
;;
ccc-keywords '("use" "ap" "holcasl" "ccc" "load_lib" "qeccc")
ccc-tactics '("compose" "compose'" "prove" "prove_free_type")
ccc-tacticals '("Repeat" "Orelse" "Then" "ThenList" "OrelseList")
proof-script-font-lock-keywords
(list
(cons (proof-ids-to-regexp ccc-keywords) 'font-lock-keyword-face)
(cons (proof-ids-to-regexp ccc-tactics) 'font-lock-keyword-face)
; (cons (proof-ids-to-regexp hol98-rules) 'font-lock-keyword-face)
(cons (proof-ids-to-regexp ccc-tacticals) 'proof-tacticals-name-face))
)
;; da: example of a possible count undos function -- replace upper case
;; strings by real stuff
;; cxl: TBD: to undo "holcasl", we need to issue "holcasl_abort()"
(defun ccc-count-undos (span)
"Count number of undos in a span, return the command needed to undo that far."
(let
((count-ccc 0)
(count-casl 0)
casl)
(while span
(setq str (span-property span 'cmd))
(if (proof-string-match "^holcasl .*" str)
(setq casl t))
(cond ((eq (span-property span 'type) 'vanilla)
(unless (proof-string-match proof-non-undoables-regexp str)
(if casl
(setq count-casl (+ 1 count-casl))
(setq count-ccc (+ 1 count-ccc))))))
(setq span (next-span span 'type)))
(format
"funpow (%s) (Goals.undo) (); undo_steps (%s);"
count-casl count-ccc)
))
(provide 'ccc)
|
