diff options
author | 2002-06-24 09:24:09 +0000 | |
---|---|---|
committer | 2002-06-24 09:24:09 +0000 | |
commit | fd6ec073875a92aa2687cb8ca697f87ec358e9dc (patch) | |
tree | 7b04cadf24e51395e5477552cf2166c345a589a4 /generic | |
parent | 3e903c0da887b13dda7652b8f9b806191762f5e5 (diff) |
use-old-parser setting replaces use-new-parser setting [WARNING: big change]
Diffstat (limited to 'generic')
-rw-r--r-- | generic/proof-config.el | 9 | ||||
-rw-r--r-- | generic/proof-script.el | 75 |
2 files changed, 38 insertions, 46 deletions
diff --git a/generic/proof-config.el b/generic/proof-config.el index e35ef0a9..c8dac4ac 100644 --- a/generic/proof-config.el +++ b/generic/proof-config.el @@ -844,15 +844,6 @@ or `proof-script-parse-function'." :group 'prover-config) -(defcustom proof-script-use-new-parser nil - "Whether to use the new parsing mechanism, based on `proof-script-parse-function'. -This is a stop-gap option in Proof General 3.2 added because -the parsing functions went through several iterations and the final -(but best) iteration was little tested." - :type 'boolean - :group 'prover-config) - - (defcustom proof-script-integral-proofs nil "Whether the complete text after a goal confines the actual proof. diff --git a/generic/proof-script.el b/generic/proof-script.el index 38408e6b..a527ed3d 100644 --- a/generic/proof-script.el +++ b/generic/proof-script.el @@ -2649,43 +2649,44 @@ finish setup which depends on specific proof assistant configuration." ;; Choose parsing mechanism according to different kinds of script syntax. ;; Choice of function depends on configuration setting. (unless (fboundp 'proof-segment-up-to) - (if (or proof-script-use-new-parser - proof-script-sexp-commands) - ;; 3.3 and later mechanism here - (progn - (defalias 'proof-segment-up-to 'proof-segment-up-to-parser) - (cond - (proof-script-parse-function - ;; already set, nothing to do - ) - (proof-script-sexp-commands - (setq proof-script-parse-function 'proof-script-generic-parse-sexp)) - (proof-script-command-start-regexp - (setq proof-script-parse-function 'proof-script-generic-parse-cmdstart)) - ((or proof-script-command-end-regexp proof-terminal-char) - (setq proof-script-parse-function 'proof-script-generic-parse-cmdend) - (unless proof-script-command-end-regexp - (proof-warn-if-unset "proof-config-done" 'proof-terminal-char) - (setq proof-script-command-end-regexp - (if proof-terminal-char - (regexp-quote (char-to-string proof-terminal-char)) - "$")))) - (t - (error "Configuration error: must set `proof-terminal-char' or one of its friends.")))) - (cond - (proof-script-parse-function ;; still allowed to override in 3.2 - (defalias 'proof-segment-up-to 'proof-segment-up-to-parser)) - ;; 3.2 mechanism here - (proof-script-command-start-regexp - (defalias 'proof-segment-up-to 'proof-segment-up-to-cmdstart)) - (t - (defalias 'proof-segment-up-to 'proof-segment-up-to-cmdend) - (unless proof-script-command-end-regexp - (proof-warn-if-unset "proof-config-done" 'proof-terminal-char) - (setq proof-script-command-end-regexp - (if proof-terminal-char - (regexp-quote (char-to-string proof-terminal-char)) - "$"))))))) ; default if nothing set is EOL. + (if proof-script-use-old-parser + ;; Configuration for using old parsing mechanism. + (cond + (proof-script-parse-function ;; still allowed to override in 3.2 + (defalias 'proof-segment-up-to 'proof-segment-up-to-parser)) + ;; 3.2 mechanism here + (proof-script-command-start-regexp + (defalias 'proof-segment-up-to 'proof-segment-up-to-cmdstart)) + (t + (defalias 'proof-segment-up-to 'proof-segment-up-to-cmdend) + (unless proof-script-command-end-regexp + (proof-warn-if-unset "proof-config-done" 'proof-terminal-char) + (setq proof-script-command-end-regexp + (if proof-terminal-char + (regexp-quote (char-to-string proof-terminal-char)) + "$"))))) + ;; Configuration for using new parsing (3.3 and later) + (progn + (defalias 'proof-segment-up-to 'proof-segment-up-to-parser) + (cond + (proof-script-parse-function + ;; already set, nothing to do + ) + (proof-script-sexp-commands + (setq proof-script-parse-function 'proof-script-generic-parse-sexp)) + (proof-script-command-start-regexp + (setq proof-script-parse-function 'proof-script-generic-parse-cmdstart)) + ((or proof-script-command-end-regexp proof-terminal-char) + (setq proof-script-parse-function 'proof-script-generic-parse-cmdend) + (unless proof-script-command-end-regexp + (proof-warn-if-unset "probof-config-done" 'proof-terminal-char) + (setq proof-script-command-end-regexp + (if proof-terminal-char + (regexp-quote (char-to-string proof-terminal-char)) + "$")))) + (t + (error "Configuration error: must set `proof-terminal-char' or one of its friends.")))) + )) ; default if nothing set is EOL. ;; Make sure func menu is configured. (NB: Ideal place for this and ;; similar stuff would be in something evaluated at top level after |