From 54d44b70d0b45c7323f286ee1369132a32cf51db Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Mon, 13 Jun 2005 12:30:08 +0000
Subject: [PATCH] added syntax hilight for temperino

---
 helm/matita/temperino.lang                 | 147 +++++++++++++++++++++
 helm/matita/tests/interactive/temperino.ma |  38 ++++++
 2 files changed, 185 insertions(+)
 create mode 100644 helm/matita/temperino.lang
 create mode 100644 helm/matita/tests/interactive/temperino.ma

diff --git a/helm/matita/temperino.lang b/helm/matita/temperino.lang
new file mode 100644
index 000000000..b62d2c43d
--- /dev/null
+++ b/helm/matita/temperino.lang
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE language SYSTEM "language.dtd">
+<language _name="temperino" version="1.0" _section="Sources" mimetypes="text/x-matita">
+
+  <escape-char>\</escape-char>
+
+  <line-comment _name = "Line Comment" style= "Comment">
+    <start-regex>%%</start-regex>
+  </line-comment> 
+
+  <block-comment _name = "Block Comment" style = "Comment">
+    <start-regex>\(\*</start-regex>
+    <end-regex>\*\)</end-regex>
+  </block-comment>
+  
+  <block-comment _name = "Commented Code" style = "Comment">
+    <start-regex>\(\*\*</start-regex>
+    <end-regex>\*\*\)</end-regex>
+  </block-comment>
+
+  <keyword-list _name = "Theorem Kinds" style = "Keyword" case-sensitive="TRUE">
+    <keyword>theorem</keyword>
+    <keyword>definition</keyword>
+    <keyword>lemma</keyword>
+    <keyword>fact</keyword>
+    <keyword>remark</keyword>
+  </keyword-list>
+    
+  <keyword-list _name = "Commands" style = "Keyword" case-sensitive="TRUE">
+    <keyword>alias</keyword>
+    <keyword>coercion</keyword>
+    <keyword>coinductive</keyword>
+    <keyword>corec</keyword>
+    <keyword>in</keyword>
+    <keyword>inductive</keyword>
+    <keyword>let</keyword>
+    <keyword>match</keyword>
+    <keyword>qed</keyword>
+    <keyword>rec</keyword>
+    <keyword>record</keyword>
+    <keyword>with</keyword>
+<!--    <keyword>using</keyword>-->
+<!--    <keyword>at</keyword>-->
+  </keyword-list>
+
+  <pattern-item _name = "Command [" style = "Keyword">
+    <regex>\[</regex>
+  </pattern-item>
+  <pattern-item _name = "Command |" style = "Keyword">
+    <regex>\|</regex>
+  </pattern-item>
+  <pattern-item _name = "Command ]" style = "Keyword">
+    <regex>\]</regex>
+  </pattern-item>
+  <pattern-item _name = "Command {" style = "Keyword">
+    <regex>\{</regex>
+  </pattern-item>
+  <pattern-item _name = "Command }" style = "Keyword">
+    <regex>\}</regex>
+  </pattern-item>
+
+  <keyword-list _name = "Sorts" style = "Data Type" case-sensitive="TRUE">
+    <keyword>Set</keyword>
+    <keyword>Prop</keyword>
+    <keyword>Type</keyword>
+  </keyword-list>
+
+  <keyword-list _name = "Tactics" style = "Others 2" case-sensitive="TRUE">
+    <keyword>absurd</keyword>
+    <keyword>apply</keyword>
+    <keyword>assumption</keyword>
+    <keyword>auto</keyword>
+    <keyword>change</keyword>
+    <keyword>contradiction</keyword>
+    <keyword>cut</keyword>
+    <keyword>decompose</keyword>
+    <keyword>discriminate</keyword>
+    <keyword>elim</keyword>
+    <keyword>elimType</keyword>
+    <keyword>exact</keyword>
+    <keyword>exists</keyword>
+    <keyword>fold</keyword>
+    <keyword>fourier</keyword>
+    <keyword>goal</keyword>
+    <keyword>injection</keyword>
+    <keyword>intro</keyword>
+    <keyword>intros</keyword>
+    <keyword>left</keyword>
+    <keyword>letin</keyword>
+    <keyword>normalize</keyword>
+    <keyword>reduce</keyword>
+    <keyword>reflexivity</keyword>
+    <keyword>replace</keyword>
+    <keyword>rewrite</keyword>
+    <keyword>right</keyword>
+    <keyword>ring</keyword>
+    <keyword>simmetry</keyword>
+    <keyword>simplify</keyword>
+    <keyword>split</keyword>
+    <keyword>transitivity</keyword>
+    <keyword>whd</keyword>
+  </keyword-list>
+
+
+  <keyword-list _name = "Matita Macro" style = "Others 3" case-sensitive="TRUE">
+    <keyword>print</keyword>
+    <keyword>check</keyword>
+    <keyword>hint</keyword>
+    <keyword>quit</keyword>
+    <keyword>set</keyword>
+  </keyword-list>
+  
+  <keyword-list _name = "Whelp Macro" style = "Others 3"
+    case-sensitive="TRUE" 
+    beginning-regex="whelp *" 
+    match-empty-string-at-beginning="FALSE"
+    match-empty-string-at-end="FALSE" >
+    <keyword>elim</keyword>
+    <keyword>hint</keyword>
+    <keyword>instance</keyword>
+    <keyword>locate</keyword>
+    <keyword>match</keyword>
+  </keyword-list>
+    
+  <keyword-list _name = "TeX Macro" style = "Preprocessor" 
+    case-sensitive="TRUE" 
+    beginning-regex="\\" 
+    match-empty-string-at-beginning="FALSE"
+    match-empty-string-at-end="FALSE" >
+     <keyword>def</keyword>
+     <keyword>forall</keyword>
+     <keyword>lambda</keyword>
+     <keyword>to</keyword>
+     <keyword>exists</keyword>
+     <keyword>Rightarrow</keyword>
+     <keyword>land</keyword>
+     <keyword>lor</keyword>
+     <keyword>subst</keyword>
+  </keyword-list>
+
+  <string _name = "String" style = "String" >
+    <start-regex>&quot;</start-regex>
+    <end-regex>&quot;</end-regex>
+  </string>
+ 
+</language>
+
diff --git a/helm/matita/tests/interactive/temperino.ma b/helm/matita/tests/interactive/temperino.ma
new file mode 100644
index 000000000..70e9f4141
--- /dev/null
+++ b/helm/matita/tests/interactive/temperino.ma
@@ -0,0 +1,38 @@
+%% test per temperino.lang
+
+%% commento
+(* commento *)
+(** hint. **)
+
+inductive pippo : Type \def
+  | a : Type \to pippo
+  | b : Prop \to pippo
+  | c : Set \to pippo.
+
+definition pollo : Set \to Set \def
+  \lambda a:Set.a.
+
+inductive paolo : Prop \def t:paolo.
+
+theorem comeno : \forall p:pippo.pippo.
+intros.assumption.
+qed.
+
+definition f : pippo \to paolo \def
+  \lambda x:pippo.
+  match x with 
+  [ (a z) \Rightarrow t
+  | (b z) \Rightarrow t
+  | (c z) \Rightarrow t ].
+
+record w : Type \def {
+  mario : Prop;
+  pippo : Set
+}.
+
+whelp locate pippo.
+
+print "coercions".
+
+
+
-- 
2.39.2