From 60d7a20328d9e3a2b34f3761f2b2a8e82dff9238 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Sun, 3 Aug 2008 20:45:48 +0000
Subject: Updated.

---
 etc/isar/TokensAcid.thy     | 48 +++++++++++++++++++++++++++++++++++++++++++++
 isar/isar-unicode-tokens.el |  5 +----
 2 files changed, 49 insertions(+), 4 deletions(-)

diff --git a/etc/isar/TokensAcid.thy b/etc/isar/TokensAcid.thy
index a6f80cf7..21a0699a 100644
--- a/etc/isar/TokensAcid.thy
+++ b/etc/isar/TokensAcid.thy
@@ -41,5 +41,53 @@ begin
 \<U>	\<V>	\<W>	\<X>	\<Y>	\<Z>	
 *)
 
+(* Demonstrating variants on token names: different token names,
+   same appearance.   Simulated overloading.
+   Let's take back \<And> from the meta-level.
+*)
+
+consts 
+   andprops :: "bool set \<Rightarrow> bool"	   
+   andpreds :: "('a \<Rightarrow> bool) set \<Rightarrow> bool"   
+
+notation (xsymbols)
+   andprops ("\<And1>") and   (* token <And1>, hover to see this *)
+   andpreds ("\<And2>")       (* token <And2>, hover to see this *)
+
+term "\<And1> {True, False}"		  
+term "\<And2> {\<lambda> x. True, \<lambda> y. False}"
+
+(* Note: of course, copy and paste will produce wrong result
+   for above: default token <And> without variant is produced! *)
+
+(* Tokens for layout control: next char *)
+(* NB: below here cannot be processed: just in terms to check with 
+   string font for terms *)
+term "a\<^sub>b"
+term "a\<^sup>b"
+term "a\<^isub>b"
+term "a\<^isup>b"
+term "\<^loc>a"
+term "\<^bold>b"
+term "\<^italic>b"
+
+(* Tokens for layout control: regions *)
+
+term "a\<^bsub>long\<^esub>"
+term "b\<^bsup>long\<^esup>"
+term "\<^bbold>Bold text \<alpha>\<beta>\<gamma>\<delta> \<in> \<forall>\<^ebold>"
+term "\<^bitalic>Italic text \<alpha>\<beta>\<gamma>\<delta> \<in>\<forall>\<^eitalic>"  
+term "\<^bscript>Script \<alpha>\<beta>\<gamma>\<delta>\<in>\<forall>\<^escript>"
+term "\<^bfrakt>Frakt \<alpha>\<beta>\<gamma>\<delta> \<in>\<forall>\<^efrakt>"
+term "\<^bserif>Roman \<alpha>\<beta>\<gamma>\<delta> \<in>\<forall>\<^eserif>"
+
+(* Note: nesting regions not reliable; merging properties flaw? *)
+term "\<^bbold>Bold and \<^bitalic>italic\<^eitalic>\<^ebold>"
+term "\<^bitalic>Italic and \<^bbold>bold\<^ebold>\<^eitalic>"
+
+(* Font changes work, though *)
+term "\<^bbold>Bold and \<^bscript>script\<^escript>\<^ebold>"
+term "\<^bserif>Roman and \<^bitalic>italic\<^eitalic> and \<^bbold>bold\<^ebold> \<^eserif>"
+term "\<^bfrakt>Frakt and \<^bitalic>italic\<^eitalic> and \<^bbold>bold\<^ebold> \<^efrakt>"
 
 end
diff --git a/isar/isar-unicode-tokens.el b/isar/isar-unicode-tokens.el
index 18e75727..e896267e 100644
--- a/isar/isar-unicode-tokens.el
+++ b/isar/isar-unicode-tokens.el
@@ -23,11 +23,8 @@
 (defconst isar-control-char-format-regexp 
   "\\(\\\\<\\^%s>\\)\\([^\\]\\|\\\\<[A-Za-z]+>\\)")
 
-(defconst isar-control-region-format-beg "\\<^%s>")
-(defconst isar-control-region-format-end "\\<^%s>")
 (defconst isar-control-char-format "\\<^%s>")
 
-
 (defconst isar-control-characters
   '(("Subscript" "sub" sub) 
     ("Id subscript" "isub" sub)
@@ -68,7 +65,7 @@
 ;(defconst isar-token-variant-format-regexp 
 ;  "\\\\<\\(%s\\)\\([:][a-zA-Z0-9]+\\)?>") ; syntax change required
 (defconst isar-token-variant-format-regexp 
-  "\\\\<\\(%s\\)\\([0-9]+\\)?>") ; unofficial interpretation of usual syntax
+  "\\\\<\\(%s\\)[0-9]*>") ; unofficial interpretation of usual syntax
 
 (defconst isar-greek-letters-tokens
   '(("alpha" "α")
-- 
cgit v1.2.3