[gtksourceview] Added fsharp language file and test case.

From: Ignacio Casal Quinteiro <icq src gnome org>
To: svn-commits-list gnome org
Cc:
Subject: [gtksourceview] Added fsharp language file and test case.
Date: Sat, 31 Oct 2009 14:00:36 +0000 (UTC)
commit 5c2f30ff1620cf376fa405bf948ffbe54531dca7
Author: Alexandr Kuleshov <sterh live ru>
Date:   Sat Oct 31 15:00:09 2009 +0100

    Added fsharp language file and test case.

 gtksourceview/language-specs/Makefile.am  |    1 +
 gtksourceview/language-specs/fsharp.lang  |  293 +++++++++++++++++++++++++++++
 gtksourceview/language-specs/testfiles.sh |   13 ++-
 3 files changed, 306 insertions(+), 1 deletions(-)
---
diff --git a/gtksourceview/language-specs/Makefile.am b/gtksourceview/language-specs/Makefile.am
index be28f3e..7404a65 100644
--- a/gtksourceview/language-specs/Makefile.am
+++ b/gtksourceview/language-specs/Makefile.am
@@ -26,6 +26,7 @@ LANGUAGES =			\
 	erlang.lang		\
 	forth.lang		\
 	fortran.lang		\
+	fsharp.lang		\
 	gap.lang		\
 	glsl.lang		\
 	gtk-doc.lang		\
diff --git a/gtksourceview/language-specs/fsharp.lang b/gtksourceview/language-specs/fsharp.lang
new file mode 100644
index 0000000..678c82f
--- /dev/null
+++ b/gtksourceview/language-specs/fsharp.lang
@@ -0,0 +1,293 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--
+ Author: Alexandr Kuleshov <sterh live ru>
+ Copyright (C) 2009 Alexandr Kuleshov <sterh live ru>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public
+ License as published by the Free Software Foundation; either
+ version 2 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with this library; if not, write to the
+ Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA.
+
+-->
+
+<language id="fsharp" _name="F#" version="2.0" _section="Sources">
+  <metadata>
+    <property name="mimetypes">text/x-fsharp</property>
+    <property name="globs">*.fs;</property>
+    <property name="line-comment-start">//</property>
+    <property name="block-comment-start">(*</property>
+    <property name="block-comment-end">*)</property>
+  </metadata>
+  <styles>
+    <style id="comment" _name="Comment" map-to="def:comment"/>
+    <style id="base-n-integer" _name="Base-N Integer" map-to="def:base-n-integer"/>
+    <style id="floating-point" _name="Floating Point number" map-to="def:floating-point"/>
+    <style id="decimal" _name="Decimal number" map-to="def:decimal"/>
+    <style id="string" _name="String" map-to="def:string"/>
+    <style id="keyword" _name="Keyword" map-to="def:keyword"/>
+    <style id="meta-keyword" _name="Type, module or object keyword" map-to="def:keyword"/>
+    <style id="fun-keyword" _name="Builtin-function keyword" map-to="def:keyword"/>
+    <style id="type" _name="Data Type" map-to="def:type"/>
+    <style id="label" _name="Labeled argument" map-to="def:type"/>
+    <style id="poly-variant" _name="Polymorphic Variant" map-to="def:type"/>
+    <style id="variant" _name="Variant Constructor" map-to="def:type"/>
+    <style id="type-var" _name="Type Variable" map-to="def:type"/>
+    <style id="module" _name="Module Path" map-to="def:type"/>
+    <style id="escape" _name="Escaped Character" map-to="def:special-char"/>
+    <style id="boolean" _name="Boolean value" map-to="def:boolean"/>
+    <style id="preprocessor" _name="Preprocessor" map-to="def:preprocessor"/>
+    <style id="null-value" _name="Null Value" map-to="def:special-constant"/>
+  </styles>
+  
+  <definitions>
+    <define-regex id="cap-ident">\b[A-Z][A-Za-z0-9_']*</define-regex>
+    <define-regex id="low-ident">\b[a-z][A-Za-z0-9_']*</define-regex>
+    <define-regex id="char-esc">\\((\\|"|'|n|t|b|r)|[0-9]{3}|x[0-9a-fA-F]{2})</define-regex>
+    <define-regex id="preproc-start">^\s*#\s*</define-regex>
+    <define-regex id="symbolchar">[!#$%&amp;*+./&gt;=&lt;?@:\\^|~-]</define-regex>
+  
+    <context id="escape-seq" style-ref="escape">
+      <match>\%{char-esc}</match>
+    </context>
+       
+    <context id="line-comment" style-ref="comment" end-at-line-end="true">
+      <start>//</start>
+        <include>
+          <context ref="def:in-line-comment"/>
+        </include>
+    </context>
+    
+    <context id="multiline-comment" style-ref="comment">
+      <start>\(\*</start>
+      <end>\*\)</end>
+        <include>
+          <context ref="string"/>
+          <context ref="def:in-comment:*"/>
+        </include>
+    </context>
+    
+    <context id="if0-comment" style-ref="comment">
+      <start>\%{preproc-start}if\b\s*0\b</start>
+      <end>\%{preproc-start}(endif|else|elif)\b</end>
+      <include>
+        <context id="if-in-if0">
+          <start>\%{preproc-start}if(n?def)?\b</start>
+          <end>\%{preproc-start}endif\b</end>
+          <include>
+            <context ref="if-in-if0"/>
+            <context ref="def:in-comment"/>
+          </include>
+        </context>
+        <context ref="def:in-comment"/>
+      </include>
+    </context>
+    
+    <context id="preprocessor" style-ref="preprocessor" end-at-line-end="true">
+      <start extended="true">
+        \%{preproc-start}
+        (if(n?def)?|else|endif|light|region|endregion)\b
+      </start>
+      <include>
+        <context ref="def:line-continue" ignore-style="true"/>
+        <context ref="string" ignore-style="true"/>
+        <context ref="line-comment"/>
+        <context ref="multiline-comment"/>
+      </include>
+    </context>
+    
+    <context id="hex-number" style-ref="base-n-integer">
+      <match>[-]?0[xX][0-9A-Fa-f][0-9A-Fa-f_]*[lL]?</match>
+    </context>
+    
+    <context id="octal-number" style-ref="base-n-integer">
+      <match>[-]?0[oO][0-7][0-7_]*[lL]?</match>
+    </context>
+    
+    <context id="binary-number" style-ref="base-n-integer"> 
+      <match>[-]?0[bB][01][01_]*[lL]?</match>
+    </context>
+    
+    <context id="label" style-ref="label">
+      <match>[~?]\%{low-ident}</match>
+    </context>
+    
+    <context id="if-false-comment" style-ref="comment">
+      <start>\%{preproc-start}if\s*false\b</start>
+      <end>\%{preproc-start}(endif|else|elif)\b</end>
+        <include>
+          <context id="if-in-if-false">
+            <start>\%{preproc-start}if(n?def)?\b</start>
+            <end>\%{preproc-start}endif\b</end>
+              <include>
+                <context ref="if-in-if-false"/>
+                <context ref="def:in-comment"/>
+              </include>
+          </context>
+          <context ref="def:in-comment"/>
+      </include>
+    </context>
+    
+    <context id="poly-variant" style-ref="poly-variant">
+      <match>`\%{cap-ident}</match>
+    </context>
+    
+    <context id="modpath" style-ref="module">
+      <match>\%{cap-ident}(\.\%{cap-ident})*(?=\.)</match>
+    </context>
+    
+    <context id="variant" style-ref="variant">
+      <match>\%{cap-ident}</match>
+    </context>
+    
+    <context id="string" style-ref="string">
+      <start>"</start>
+      <end>"</end>
+      <include>
+        <context ref="escape-seq"/>
+      </include>
+    </context>
+    
+    <context id="character-constant" style-ref="string">
+      <match>('\%{char-esc}')|('[^\\']')</match>
+    </context>
+    
+    <context id="type-var" style-ref="type-var">
+      <match>'\%{low-ident}</match>
+    </context>
+    
+    <context id="arraylit">
+      <start>\[\|</start>
+      <end>\|\]</end>
+    </context>
+    
+    <context id="decimal" style-ref="decimal">
+      <match extended="true">
+        (?&lt;![\w\.])
+        [0-9]+[uUlL]*
+        (?![\w\.])
+      </match>
+    </context>
+    
+    <context id="boolean-constant" style-ref="boolean">
+      <keyword>true</keyword>
+      <keyword>false</keyword>
+    </context>
+    
+    <context id="keysymbol" style-ref="keyword">
+      <prefix>(?&lt;!\%{symbolchar})</prefix>
+      <suffix>(?!\%{symbolchar})</suffix>
+        <keyword>\.\.</keyword>
+        <keyword>::</keyword>
+        <keyword>=</keyword>
+        <keyword>@</keyword>
+        <keyword>~</keyword>
+        <keyword>-></keyword>
+        <keyword>|</keyword>
+        <keyword>:?</keyword>
+        <keyword>:?></keyword>
+        <keyword>^</keyword>
+        <keyword>&lt;-</keyword>
+        <keyword>&amp;&amp;</keyword>
+        <keyword>&amp;</keyword>
+    </context>
+    
+    <context id="keywords" style-ref="keyword">
+      <keyword>abstract</keyword>
+      <keyword>and</keyword>
+      <keyword>as</keyword>
+      <keyword>assert</keyword>
+      <keyword>asr</keyword>
+      <keyword>begin</keyword>
+      <keyword>class</keyword>
+      <keyword>default</keyword>
+      <keyword>delegate</keyword>
+      <keyword>do</keyword>
+      <keyword>done</keyword>
+      <keyword>downcast</keyword>
+      <keyword>downto</keyword>
+      <keyword>else</keyword>
+      <keyword>end</keyword>
+      <keyword>enum</keyword>
+      <keyword>exception</keyword>
+      <keyword>false</keyword>
+      <keyword>finaly</keyword>
+      <keyword>for</keyword>
+      <keyword>fun</keyword>
+      <keyword>function</keyword>
+      <keyword>if</keyword>
+      <keyword>in</keyword>
+      <keyword>iherit</keyword>
+      <keyword>interface</keyword>
+      <keyword>land</keyword>
+      <keyword>lazy</keyword>
+      <keyword>let</keyword>
+      <keyword>lor</keyword>
+      <keyword>lsl</keyword>
+      <keyword>lsr</keyword>
+      <keyword>lxor</keyword>
+      <keyword>match</keyword>
+      <keyword>member</keyword>
+      <keyword>mod</keyword>
+      <keyword>module</keyword>
+      <keyword>mutable</keyword>
+      <keyword>namespace</keyword>
+      <keyword>new</keyword>
+      <keyword>null</keyword>
+      <keyword>of</keyword>
+      <keyword>open</keyword>
+      <keyword>or</keyword>
+      <keyword>override</keyword>
+      <keyword>sig</keyword>
+      <keyword>static</keyword>
+      <keyword>struct</keyword>
+      <keyword>then</keyword>
+      <keyword>to</keyword>
+      <keyword>true</keyword>
+      <keyword>try</keyword>
+      <keyword>type</keyword>
+      <keyword>val</keyword>
+      <keyword>when</keyword>
+      <keyword>inline</keyword>
+      <keyword>upcast</keyword>
+      <keyword>while</keyword>
+      <keyword>with</keyword>
+    </context>
+
+    <!-- main context -->
+    <context id="fsharp">
+      <include>
+        <context ref="keywords"/>
+        <context ref="keysymbol"/>
+        <context ref="boolean-constant"/>
+        <context ref="arraylit"/>
+        <context ref="character-constant"/>
+        <context ref="string"/>
+        <context ref="variant"/>
+        <context ref="modpath"/>
+        <context ref="poly-variant"/>
+        <context ref="label"/> 
+        <context ref="binary-number"/>
+        <context ref="octal-number"/> 
+        <context ref="hex-number"/>
+        <context ref="line-comment"/>
+        <context ref="multiline-comment"/>
+        <context ref="type-var"/>
+        <context ref="if-false-comment"/>
+        <context ref="preprocessor"/>
+        <context ref="if0-comment"/>
+        <context ref="decimal"/>
+      </include>
+    </context>
+    <!-- main context -->
+  </definitions>
+</language>
diff --git a/gtksourceview/language-specs/testfiles.sh b/gtksourceview/language-specs/testfiles.sh
index df7b7b7..17d8b39 100755
--- a/gtksourceview/language-specs/testfiles.sh
+++ b/gtksourceview/language-specs/testfiles.sh
@@ -6,7 +6,7 @@
 
 # Langs covered here:
 # asp.lang changelog.lang c.lang cpp.lang desktop.lang diff.lang dtd.lang
-# gap.lang gtkrc.lang html.lang ini.lang latex.lang m4.lang
+# fsharp.lang gap.lang glsl.lang gtkrc.lang html.lang ini.lang latex.lang m4.lang
 # makefile.lang ms.lang perl.lang po.lang prolog.lang python.lang sh.lang
 # texinfo.lang xml.lang yacc.lang libtool.lang pkgconfig.lang
 # objc.lang chdr.lang testv1.lang t2t.lang fortran.lang forth.lang
@@ -15,6 +15,17 @@
 dir="testdir"
 mkdir -p $dir/
 
+cat > $dir/file.fs << EOFEOF
+(* Simple F# sample *)
+let rec map func lst =
+    match lst with
+       | [] -> []
+       | head :: tail -> func head :: map func tail
+ 
+let myList = [1;3;5]
+let newList = map (fun x -> x + 1) myList
+EOFEOF
+
 cat > $dir/file.glslf << EOFEOF
 #version 140
 varying vec4 color_out;
[Date Prev][Date Next] [Thread Prev][Thread Next] [Thread Index] [Date Index] [Author Index]