From 20602e2c1e759fcaf3fa4f642b05be62f21bf9f1 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Mon, 23 Aug 1999 15:11:24 +0000
Subject: Improved syntax by copying from isar-syntax.el. Begun on section for
 Isabelle output syntax.

---
 isa/isa-syntax.el | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 50 insertions(+), 2 deletions(-)

diff --git a/isa/isa-syntax.el b/isa/isa-syntax.el
index 36f36cc9..e79b9a7e 100644
--- a/isa/isa-syntax.el
+++ b/isa/isa-syntax.el
@@ -2,10 +2,14 @@
 ;; Copyright (C) 1994-1998 LFCS Edinburgh. 
 ;;
 ;; Author:      David Aspinall <da@dcs.ed.ac.uk>
-;; Maintainer:  Isabelle maintainer <isabelle@dcs.ed.ac.uk>
+;; Maintainer:  David Aspinall <da@dcs.ed.ac.uk>
 ;;
 ;; $Id$
 ;;
+;;
+;; FIXME: the syntax needs checking carefully, and splitting
+;; into output vs input syntax.
+;;
 
 (require 'proof-syntax)
 
@@ -126,11 +130,14 @@
 
 ;; ----- regular expressions
 
-(defconst isa-id proof-id)
+(defconst isa-id "\\([A-Za-z][A-Za-z0-9'_]*\\)")
+(defconst isa-idx (concat isa-id "\\(\\.[0-9]+\\)?"))
 
 (defconst isa-ids (proof-ids isa-id "[ \t]*")
   "Matches a sequence of identifiers separated by whitespace.")
 
+(defconst isar-string "\"\\(\\([^\\\"]\\|\\\\\"\\)*\\)\"")
+
 (defun isa-binder-regexp (binder dot)
     (concat binder "\\s-*\\(" isa-ids "\\)\\s-*" dot))
 
@@ -181,4 +188,45 @@
      (list isa-goal-with-hole-regexp 2 'font-lock-function-name-face)
      (list isa-save-with-hole-regexp 2 'font-lock-function-name-face))))
 
+
+;;
+;; Configuration for output from Isabelle process
+;;
+
+(defun isa-init-output-syntax-table ()
+  "Set appropriate values for syntax table for Isabelle output."
+  ;; copied from above
+  (modify-syntax-entry ?\$ ".")
+  (modify-syntax-entry ?\/ ".")
+  (modify-syntax-entry ?\\ ".")
+  (modify-syntax-entry ?+  ".")
+  (modify-syntax-entry ?-  ".")
+  (modify-syntax-entry ?=  ".")
+  (modify-syntax-entry ?%  ".")
+  (modify-syntax-entry ?<  ".")
+  (modify-syntax-entry ?>  ".")
+  (modify-syntax-entry ?\& ".")
+  (modify-syntax-entry ?.  "w")
+  (modify-syntax-entry ?_  "w")
+  (modify-syntax-entry ?\' "w")
+  (modify-syntax-entry ?\| ".")
+  (modify-syntax-entry ?\* ". 23")
+  (modify-syntax-entry ?\( "()1")
+  (modify-syntax-entry ?\) ")(4")
+  ;; ignore strings so font-locking works
+  ;; inside them
+  (modify-syntax-entry ?\" " "))
+
+(defvar isa-output-font-lock-terms
+  (list
+   (cons (concat "\351" isa-id "\350") 'proof-declaration-name-face)    ; class
+   (cons (concat "\352'" isa-id "\350") 'proof-tacticals-name-face)     ; tfree
+   (cons (concat "\353\\?'" isa-idx "\350") 'font-lock-type-face)       ; tvar
+   (cons (concat "\354" isa-id "\350") 'font-lock-keyword-face)         ; free
+   (cons (concat "\355" isa-id "\350") 'font-lock-keyword-face)         ; bound
+   (cons (concat "\356" isa-idx "\350") 'font-lock-function-name-face)  ; var
+   )
+  "*Font-lock table for output from the Isabelle process.")
+
+
 (provide 'isa-syntax)
-- 
cgit v1.2.3