gtksourceview3 2.2.4-x64-mingw32

data/vendor/local/share/gtksourceview-3.0/language-specs/fcl.lang

@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+
+ This file is part of GtkSourceView
+
+ Author: Søren Hauberg
+ Copyright (C) 2009 Søren Hauberg <soren@hauberg.org>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser 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
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, see <http://www.gnu.org/licenses/>.
+
+-->
+<language id="fcl" _name="FCL" version="2.0" _section="Scientific">
+  <metadata>
+    <property name="globs">*.fcl</property>
+    <property name="line-comment-start">//</property>
+  </metadata>
+
+  <styles>
+    <style id="comment"           _name="Comment"           map-to="def:comment"/>
+    <style id="floating-point"    _name="Floating Point"    map-to="def:floating-point"/>
+    <style id="keyword"           _name="Keyword"           map-to="def:keyword"/>
+    <style id="block"             _name="Block"             map-to="def:function"/>
+    <style id="decimal"           _name="Decimal"           map-to="def:decimal"/>
+    <style id="reserved-constant" _name="Reserved Constant" map-to="def:special-constant"/>
+  </styles>
+
+  <definitions>
+    <context id="line-comment" style-ref="comment" end-at-line-end="true" class="comment" class-disabled="no-spell-check">
+      <start>//</start>
+      <include>
+        <context ref="def:in-comment"/>
+      </include>
+    </context>
+
+    <context id="keyword" style-ref="keyword">
+      <keyword>ACCU</keyword>
+      <keyword>ACT</keyword>
+      <keyword>AND</keyword>
+      <keyword>ASUM</keyword>
+      <keyword>BDIF</keyword>
+      <keyword>BSUM</keyword>
+      <keyword>COA</keyword>
+      <keyword>COG</keyword>
+      <keyword>COGS</keyword>
+      <keyword>DEFAULT</keyword>
+      <keyword>IF</keyword>
+      <keyword>IS</keyword>
+      <keyword>LM</keyword>
+      <keyword>MAX</keyword>
+      <keyword>METHOD</keyword>
+      <keyword>MIN</keyword>
+      <keyword>NC</keyword>
+      <keyword>NOT</keyword>
+      <keyword>NSUM</keyword>
+      <keyword>OR</keyword>
+      <keyword>PROD</keyword>
+      <keyword>RANGE</keyword>
+      <keyword>RM</keyword>
+      <keyword>RULE</keyword>
+      <keyword>TERM</keyword>
+      <keyword>THEN</keyword>
+      <keyword>WITH</keyword>
+    </context>
+
+    <context id="block" style-ref="block">
+      <keyword>DEFUZZIFY</keyword>
+      <keyword>END_DEFUZZIFY</keyword>
+      <keyword>END_FUNCTION_BLOCK</keyword>
+      <keyword>END_FUZZIFY</keyword>
+      <keyword>END_OPTIONS</keyword>
+      <keyword>END_RULEBLOCK</keyword>
+      <keyword>END_VAR</keyword>
+      <keyword>FUNCTION_BLOCK</keyword>
+      <keyword>FUZZIFY</keyword>
+      <keyword>OPTIONS</keyword>
+      <keyword>RULEBLOCK</keyword>
+      <keyword>VAR</keyword>
+      <keyword>VAR_INPUT</keyword>
+      <keyword>VAR_OUTPUT</keyword>
+    </context>
+
+    <context id="decimal" style-ref="decimal">
+      <match>\b([1-9][0-9]*|0)([Uu]([Ll]|LL|ll)?|([Ll]|LL|ll)[Uu]?)?\b</match>
+    </context>
+
+    <context id="floating-point-number" style-ref="floating-point">
+      <match>\b([0-9]+[Ee][-]?[0-9]+|([0-9]*\.[0-9]+|[0-9]+\.)([Ee][-]?[0-9]+)?)[fFlL]?</match>
+    </context>
+
+    <context id="fcl" class="no-spell-check">
+      <include>
+        <context ref="line-comment"/>
+        <context ref="keyword"/>
+        <context ref="block"/>
+        <context ref="decimal"/>
+        <context ref="floating-point-number"/>
+      </include>
+    </context>
+  </definitions>
+</language>
+
+

data/vendor/local/share/gtksourceview-3.0/language-specs/forth.lang

@@ -0,0 +1,235 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+
+ This file is part of GtkSourceView
+
+ Author: Jens-Hanno Schwalm  <hanno@schwalm-bremen.de>
+ Copyright (C) 2007 Jens-Hanno Schwalm; <hanno@schwalm-bremen.de>
+
+ GtkSourceView is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ GtkSourceView 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
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+-->
+<language id="forth" _name="Forth" version="2.0" _section="Source">
+  <metadata>
+    <property name="mimetypes">text/x-forth</property>
+    <property name="globs">*.frt;*.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="string"        _name="String"             map-to="def:string"/>
+    <style id="preprocessor"  _name="Preprocessor"       map-to="def:preprocessor"/>
+    <style id="keyword"       _name="Keyword"            map-to="def:statement"/>
+    <style id="type"          _name="Data Type"          map-to="def:type"/>
+    <style id="number"        _name="Number"             map-to="def:decimal"/>
+    <style id="debugs"        _name="Debug Code"         map-to="def:comment"/>
+    <style id="error"         _name="Error Text"         map-to="def:error"/>
+    <style id="compiler"      _name="Compiler Directive" map-to="def:identifier"/>
+  </styles>
+
+  <default-regex-options case-sensitive="false"/>
+
+  <definitions>
+    <context id="forth" class="no-spell-check">
+      <include>
+        <!--        single line comments                        \        \G        -->
+        <context id="comment" style-ref="comment" end-at-line-end="true" class="comment" class-disabled="no-spell-check">
+          <start>(?&lt;![^\s])(\\|--|\\G)(?![^\s])</start>
+          <include>
+            <context ref="def:in-line-comment"/>
+          </include>
+        </context>
+
+        <!--        multiline comments ending with ")"        (        (S        (F        -->
+        <context id="comment-multiline" style-ref="comment" class="comment" class-disabled="no-spell-check">
+          <start>(?&lt;![^\s])(\(|\(S|\(F)(?![^\s])</start>
+          <end>\)</end>
+          <include>
+            <context ref="def:in-comment"/>
+          </include>
+        </context>
+
+        <!--        multiline comment (* ....*)        -->
+        <context id="comment-multiline2" style-ref="comment" class="comment" class-disabled="no-spell-check">
+          <start>(?&lt;![^\s])\(\*(?![^\s])</start>
+          <end>\*\)(?![^\s])</end>
+          <include>
+            <context ref="def:in-comment"/>
+          </include>
+        </context>
+
+        <!--        multiline comment DOC ... ENDDOC        -->
+        <context id="comment-multiline3" style-ref="comment" class="comment" class-disabled="no-spell-check">
+          <start>(?&lt;![^\s])DOC(?![^\s])</start>
+          <end>(?&lt;![^\s])ENDDOC(?![^\s])</end>
+          <include>
+            <context ref="def:in-comment"/>
+          </include>
+        </context>
+
+        <!--        preprocessor instructions followed by a string        -->
+        <context id="preproc1" style-ref="preprocessor">
+          <match extended="true">
+            (?&lt;![^\s])
+            (NEEDS|INCLUDE|IN|MARKER)\s+[^\s]*
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        REVISION instruction is followed by a filename plus a string between "..."        -->
+        <context id="preproc2" style-ref="preprocessor">
+          <match extended="true">
+            (?&lt;![^\s])
+            (REVISION)\s+[^\s]*\s*".*"
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        preprocessor instructions        -->
+        <context id="preproc3" style-ref="preprocessor">
+          <match extended="true">
+            (?&lt;![^\s])
+            (INCLUDED|INCLUDE-FILE)
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        all defining or compiler extension words are followed by another whitespace delinited word        -->
+        <context id="definers" style-ref="type">
+          <match extended="true">
+            (?&lt;![^\s])
+            (POSTPONE|\[COMPILE\]|\[CHAR\]|\['\]|COMPILE|CHAR|[DFT]?VALUE|[2FT]?VARIABLE|[DS]?FVARIABLE|[T]?USER|[T]?CODE|[DZFT]?LOCAL|
+            [2FT]?CONSTANT|TCONSTANT-|TSUB|=\:|==\:|DEFER|HC\:|[VHTM]?\:)\s+[^\s]+
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        the grouped local words like LOCALS| read words until a last |        -->
+        <context id="locals" style-ref="type">
+          <match extended="true">
+            (?&lt;![^\s])
+            ([DFZ]?LOCALS)\|\s+[^\|]+[\|]
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        strings ended by a "                S"        ."        EVAL"        C"        Z"        -->
+        <context id="string" style-ref="string" end-at-line-end="true" class="string" class-disabled="no-spell-check">
+          <start>(?&lt;![^\s])(S|[.]|EVAL|C|Z|,)"\s</start>
+          <end>"</end>
+         </context>
+
+        <!--        strings ended by a ~ character when " is inside a string:        .~        -->
+        <context id="string2" style-ref="string" end-at-line-end="true" class="string" class-disabled="no-spell-check">
+          <start>(?&lt;![^\s])(.~)\s</start>
+          <end>~</end>
+         </context>
+
+        <!--        comment string  .( ..)        -->
+        <context id="string3" style-ref="string" end-at-line-end="true" class="string" class-disabled="no-spell-check">
+          <start>(?&lt;![^\s])[.]\(\s</start>
+          <end>\)</end>
+         </context>
+
+        <!--        error strings ending with "                ABORT"        ?ERROR"        -->
+        <context id="errorstring" style-ref="error" end-at-line-end="true" class="string" class-disabled="no-spell-check">
+          <start>(?&lt;![^\s])(ABORT|\?ERROR)"\s</start>
+          <end>"</end>
+         </context>
+
+        <!--        represent numbers including the hex, decimal and binary prefixes, also short characters        -->
+        <context id="number" style-ref="number">
+          <match extended="true">
+            (?&lt;![^\s])
+            ([$][-+]?[A-F0-9.]+ |
+             [#][-+]?[0-9.]+ |
+             [%][-+]?[0-1.]+ |
+             [-+]?[0-9.]+ |
+             [-+]?[0-9]+[.]?[0-9]*[eE][0-9]* |
+             '[^\s]' |
+             [\^][A-Za-z] |
+             TRUE |
+             FALSE)
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        Control flow Keywords -->
+        <context id="keywords" style-ref="keyword">
+          <match extended="true">
+            (?&lt;![^\s])
+            (\[IF\]|\[ELSE\]|\[THEN\]|\[DEFINED\]|\[UNDEFINED\]|\?DEF|\?UNDEF|THROW|CASE|ENDCASE|OF|ENDOF|FOR|NEXT|
+                    IF[,]?|ELSE[,]?|THEN[,]?|ENDIF[,]?|BEGIN[,]?|WHILE[,]?|REPEAT[,]?|UNTIL[,]?|AGAIN[,]?|DO|LOOP|\?DO|\+LOOP|LEAVE|\?LEAVE|UNLOOP|EXIT|\?EXIT|
+                    PAR|ENDPAR|STARTP|ENDP)
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        Compiler modifications -->
+        <context id="keywords2" style-ref="compiler">
+          <match extended="true">
+            (?&lt;![^\s])
+            (PRIVATE|PRIVATES|DEPRIVE|FORGET|IMMEDIATE|ALSO|ONLY|FORTH|DEFINITIONS|HEADERLESS)
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        Defining keywords without displaying the following word        -->
+        <context id="keywords3" style-ref="type">
+          <match extended="true">
+            (?&lt;![^\s])
+            (\:ABOUT|DOES>|FORGET>|CREATE|\:NONAME)
+            (?![^\s])
+          </match>
+        </context>
+
+        <!--        <<DEBUG        ..... DEBUG>> -->
+        <context id="comment-debug" extend-parent="false" style-ref="debugs">
+          <start>(?&lt;![^\s])(&lt;&lt;DEBUG)(?![^\s])</start>
+          <end>(?&lt;![^\s])(DEBUG>>)(?![^\s])</end>
+          <include>
+            <context ref="keywords"/>
+            <context ref="keywords2"/>
+            <context ref="keywords3"/>
+            <context ref="number"/>
+            <context ref="comment"/>
+            <context ref="string" />
+            <context ref="string2" />
+            <context ref="string3" />
+            <context ref="errorstring" />
+            <context ref="locals" />
+            <context ref="definers" />
+            <context ref="comment-multiline"/>
+          </include>
+        </context>
+
+        <!--        [ ... ] is displayed as a preprocessor structure        -->
+        <context id="preproc4" extend-parent="true" style-ref="preprocessor">
+          <start>(?&lt;![^\s])(\[)(?![^\s])</start>
+          <end>(?&lt;![^\s])(\])(?![^\s])</end>
+          <include>
+            <context ref="keywords"/>
+            <context ref="number"/>
+            <context ref="comment"/>
+            <context ref="comment-multiline"/>
+          </include>
+        </context>
+      </include>
+    </context>
+  </definitions>
+</language>

data/vendor/local/share/gtksourceview-3.0/language-specs/fortran.lang

@@ -0,0 +1,591 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+
+ This file is part of GtkSourceView
+
+ Author: John Spray <jcspray@icculus.org>
+ Copyright (C) 2004, 2005, 2006 John Spray <jcs116@york.ac.uk>
+ Copyright (C) 2005 Jerry DeLisle <jvdelisle@verizon.net>
+
+ GtkSourceView is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ GtkSourceView 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
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+-->
+<language id="fortran" _name="Fortran 95" version="2.0" _section="Source">
+  <metadata>
+    <property name="mimetypes">text/x-fortran</property>
+    <property name="globs">*.f;*.f90;*.f95;*.for;*.F;*.F90</property>
+    <property name="line-comment-start">!</property>
+  </metadata>
+
+  <styles>
+    <style id="comment" _name="Comment" map-to="def:comment"/>
+    <style id="string" _name="String" map-to="def:string"/>
+    <style id="floating-point" _name="Floating Point" map-to="def:floating-point"/>
+    <style id="keyword" _name="Keyword" map-to="def:keyword"/>
+    <style id="intrinsic" _name="Intrinsic function" map-to="def:builtin"/>
+    <style id="boz-literal" _name="BOZ Literal" map-to="def:base-n-integer"/>
+    <style id="decimal" _name="Decimal" map-to="def:decimal"/>
+    <style id="type" _name="Data Type" map-to="def:type"/>
+    <style id="preprocessor" _name="Preprocessor" map-to="def:preprocessor"/>
+    <style id="openmp-directives" _name="OpenMP directives" map-to="def:preprocessor"/>
+    <style id="included-file" _name="Included File" map-to="def:string"/>
+    <style id="escaped-character" _name="Escaped Character" map-to="def:special-char"/>
+  </styles>
+
+  <default-regex-options case-sensitive="false"/>
+
+  <definitions>
+    <!-- regexs -->
+    <define-regex id="preproc-start">^#</define-regex>
+    <define-regex id="escaped-character" extended="true">
+      \\(                   # leading backslash
+      [\\\"\'nrbtfav\?] |   # escaped character
+      [0-7]{1,3} |          # one, two, or three octal digits
+      x[0-9A-Fa-f]+         # 'x' followed by hex digits
+      )
+    </define-regex>
+
+    <!-- Preprocessor -->
+    <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="include" style-ref="preprocessor">
+      <match extended="true">
+        \%{preproc-start}
+        (include|import)\s*
+        (".*?"|&lt;.*&gt;)
+      </match>
+      <include>
+        <context id="included-file" sub-pattern="2" style-ref="included-file"/>
+      </include>
+    </context>
+
+    <context id="preprocessor" style-ref="preprocessor" end-at-line-end="true">
+      <start extended="true">
+        \%{preproc-start}
+        (define|undef|error|pragma|ident|if(n?def)?|else|elif|endif|line|warning)
+        \b
+      </start>
+    </context>
+
+    <context id="openmp-directives" style-ref="openmp-directives" end-at-line-end="true">
+      <start extended="true">
+        ((^[Cc])|^\s*!)\$
+      </start>
+    </context>
+
+    <!--
+    <context id="string" style-ref="string" end-at-line-end="true" class="string" class-disabled="no-spell-check">
+      <match>(L?'[^']*')|(L?"[^"]*")</match>
+    </context>
+    -->
+    <context id="string" style-ref="string" end-at-line-end="true" class="string" class-disabled="no-spell-check">
+      <start>L?"</start>
+      <end>"</end>
+      <include>
+        <context id="escaped-character" style-ref="escaped-character">
+          <match>\%{escaped-character}</match>
+        </context>
+        <context ref="def:line-continue"/>
+      </include>
+    </context>
+
+    <!-- Note: contains an hack to avoid considering ^COMMON or ^CHARACTER a comment -->
+    <context id="line-comment" style-ref="comment" end-at-line-end="true" class="comment" class-disabled="no-spell-check">
+      <start>(![^$])|(^[Cc](\s|[^$OoAaYyHh]))|(^[Cc]$)</start>
+      <include>
+        <context ref="def:escape"/>
+        <context ref="def:in-line-comment"/>
+      </include>
+    </context>
+
+    <context id="operators" style-ref="keyword">
+      <prefix>\.</prefix>
+      <suffix>\.</suffix>
+      <keyword>true</keyword>
+      <keyword>false</keyword>
+      <keyword>not</keyword>
+      <keyword>and</keyword>
+      <keyword>or</keyword>
+      <keyword>xor</keyword>
+      <keyword>eqv</keyword>
+      <keyword>neqv</keyword>
+      <keyword>eq</keyword>
+      <keyword>ne</keyword>
+      <keyword>gt</keyword>
+      <keyword>ge</keyword>
+      <keyword>lt</keyword>
+      <keyword>le</keyword>
+    </context>
+
+    <context id="keywords" style-ref="keyword">
+      <keyword>abstract interface</keyword>
+      <keyword>allocate</keyword>
+      <keyword>assign</keyword>
+      <keyword>assignment</keyword>
+      <keyword>block data</keyword>
+      <keyword>call</keyword>
+      <keyword>case</keyword>
+      <keyword>class</keyword>
+      <keyword>common</keyword>
+      <keyword>contains</keyword>
+      <keyword>continue</keyword>
+      <keyword>cycle</keyword>
+      <keyword>data</keyword>
+      <keyword>deallocate</keyword>
+      <keyword>default</keyword>
+      <keyword>do</keyword>
+      <keyword>do concurrent</keyword>
+      <keyword>elemental</keyword>
+      <keyword>elseif</keyword>
+      <keyword>else</keyword>
+      <keyword>elsewhere</keyword>
+      <keyword>enddo</keyword>
+      <keyword>endif</keyword>
+      <keyword>endselect</keyword>
+      <keyword>end</keyword>
+      <keyword>entry</keyword>
+      <keyword>equivalence</keyword>
+      <keyword>exit</keyword>
+      <keyword>external</keyword>
+      <keyword>forall</keyword>
+      <keyword>function</keyword>
+      <keyword>go to</keyword>
+      <keyword>goto</keyword>
+      <keyword>if</keyword>
+      <keyword>implicit none</keyword>
+      <keyword>in</keyword>
+      <keyword>[^#]include</keyword>
+      <keyword>inout</keyword>
+      <keyword>interface</keyword>
+      <keyword>intrinsic</keyword>
+      <keyword>kind</keyword>
+      <keyword>len</keyword>
+      <keyword>module</keyword>
+      <keyword>namelist</keyword>
+      <keyword>nullify</keyword>
+      <keyword>only</keyword>
+      <keyword>operator</keyword>
+      <keyword>out</keyword>
+      <keyword>pause</keyword>
+      <keyword>private</keyword>
+      <keyword>program</keyword>
+      <keyword>public</keyword>
+      <keyword>pure</keyword>
+      <keyword>recursive</keyword>
+      <keyword>result</keyword>
+      <keyword>return</keyword>
+      <keyword>save</keyword>
+      <keyword>select</keyword>
+      <keyword>stop</keyword>
+      <keyword>subroutine</keyword>
+      <keyword>then</keyword>
+      <keyword>type</keyword>
+      <keyword>use</keyword>
+      <keyword>where</keyword>
+      <keyword>while</keyword>
+    </context>
+
+    <context id="read-write" style-ref="keyword">
+      <keyword>backspace</keyword>
+      <keyword>close</keyword>
+      <keyword>endfile</keyword>
+      <keyword>format</keyword>
+      <keyword>inquire</keyword>
+      <keyword>open</keyword>
+      <keyword>print</keyword>
+      <keyword>read</keyword>
+      <keyword>rewind</keyword>
+      <keyword>write</keyword>
+    </context>
+
+    <context id="input-output" style-ref="keyword">
+      <keyword>access</keyword>
+      <keyword>action</keyword>
+      <keyword>advance</keyword>
+      <keyword>blank</keyword>
+      <keyword>delim</keyword>
+      <keyword>direct</keyword>
+      <keyword>end</keyword>
+      <keyword>eor</keyword>
+      <keyword>err</keyword>
+      <keyword>exist</keyword>
+      <keyword>file</keyword>
+      <keyword>fmt</keyword>
+      <keyword>form</keyword>
+      <keyword>formatted</keyword>
+      <keyword>iolength</keyword>
+      <keyword>iostat</keyword>
+      <keyword>name</keyword>
+      <keyword>named</keyword>
+      <keyword>nextrec</keyword>
+      <keyword>nml</keyword>
+      <keyword>number</keyword>
+      <keyword>opened</keyword>
+      <keyword>pad</keyword>
+      <keyword>position</keyword>
+      <keyword>readwrite</keyword>
+      <keyword>rec</keyword>
+      <keyword>recl</keyword>
+      <keyword>sequential</keyword>
+      <keyword>status</keyword>
+      <keyword>unformatted</keyword>
+      <keyword>unit</keyword>
+      <keyword>write</keyword>
+    </context>
+
+    <context id="intrinsics" style-ref="intrinsic">
+      <keyword>abs</keyword>
+      <keyword>achar</keyword>
+      <keyword>acos</keyword>
+      <keyword>adjustl</keyword>
+      <keyword>adjustr</keyword>
+      <keyword>aimag</keyword>
+      <keyword>aint</keyword>
+      <keyword>algama</keyword>
+      <keyword>allocated</keyword>
+      <keyword>all</keyword>
+      <keyword>alog10</keyword>
+      <keyword>alog</keyword>
+      <keyword>amax0</keyword>
+      <keyword>amax1</keyword>
+      <keyword>amin0</keyword>
+      <keyword>amin1</keyword>
+      <keyword>amod</keyword>
+      <keyword>anint</keyword>
+      <keyword>any</keyword>
+      <keyword>asin</keyword>
+      <keyword>associated</keyword>
+      <keyword>atan2</keyword>
+      <keyword>atan</keyword>
+      <keyword>bit_size</keyword>
+      <keyword>btest</keyword>
+      <keyword>c_associated</keyword>
+      <keyword>c_loc</keyword>
+      <keyword>c_funloc</keyword>
+      <keyword>c_f_pointer</keyword>
+      <keyword>c_f_procpointer</keyword>
+      <keyword>cabs</keyword>
+      <keyword>ccos</keyword>
+      <keyword>cdabs</keyword>
+      <keyword>cdcos</keyword>
+      <keyword>cdexp</keyword>
+      <keyword>cdlog</keyword>
+      <keyword>cdsin</keyword>
+      <keyword>cdsqrt</keyword>
+      <keyword>ceiling</keyword>
+      <keyword>cexp</keyword>
+      <keyword>char</keyword>
+      <keyword>clog</keyword>
+      <keyword>cmplx</keyword>
+      <keyword>command_argument_count</keyword>
+      <keyword>conjg</keyword>
+      <keyword>cosh</keyword>
+      <keyword>cos</keyword>
+      <keyword>count</keyword>
+      <keyword>cpu_time</keyword>
+      <keyword>cqabs</keyword>
+      <keyword>cqcos</keyword>
+      <keyword>cqexp</keyword>
+      <keyword>cqlog</keyword>
+      <keyword>cqsin</keyword>
+      <keyword>cqsqrt</keyword>
+      <keyword>cshift</keyword>
+      <keyword>csin</keyword>
+      <keyword>csqrt</keyword>
+      <keyword>dabs</keyword>
+      <keyword>dacos</keyword>
+      <keyword>dasin</keyword>
+      <keyword>datan2</keyword>
+      <keyword>datan</keyword>
+      <keyword>date_and_time</keyword>
+      <keyword>dble</keyword>
+      <keyword>dcmplx</keyword>
+      <keyword>dconjg</keyword>
+      <keyword>dcosh</keyword>
+      <keyword>dcos</keyword>
+      <keyword>ddim</keyword>
+      <keyword>derf</keyword>
+      <keyword>derfc</keyword>
+      <keyword>dexp</keyword>
+      <keyword>dfloat</keyword>
+      <keyword>dgamma</keyword>
+      <keyword>digits</keyword>
+      <keyword>dim</keyword>
+      <keyword>dimag</keyword>
+      <keyword>dint</keyword>
+      <keyword>dlgama</keyword>
+      <keyword>dlog10</keyword>
+      <keyword>dlog</keyword>
+      <keyword>dmax1</keyword>
+      <keyword>dmin1</keyword>
+      <keyword>dmod</keyword>
+      <keyword>dnint</keyword>
+      <keyword>dot_product</keyword>
+      <keyword>dprod</keyword>
+      <keyword>dsign</keyword>
+      <keyword>dsinh</keyword>
+      <keyword>dsin</keyword>
+      <keyword>dsqrt</keyword>
+      <keyword>dtanh</keyword>
+      <keyword>dtan</keyword>
+      <keyword>eoshift</keyword>
+      <keyword>epsilon</keyword>
+      <keyword>erfc</keyword>
+      <keyword>erf</keyword>
+      <keyword>exp</keyword>
+      <keyword>exponent</keyword>
+      <keyword>float</keyword>
+      <keyword>floor</keyword>
+      <keyword>fraction</keyword>
+      <keyword>gamma</keyword>
+      <keyword>getarg</keyword>
+      <keyword>get_command</keyword>
+      <keyword>get_command_argument</keyword>
+      <keyword>get_environment_variable</keyword>
+      <keyword>huge</keyword>
+      <keyword>iabs</keyword>
+      <keyword>iachar</keyword>
+      <keyword>iand</keyword>
+      <keyword>iargc</keyword>
+      <keyword>ibclr</keyword>
+      <keyword>ibits</keyword>
+      <keyword>ibset</keyword>
+      <keyword>ichar</keyword>
+      <keyword>idim</keyword>
+      <keyword>idint</keyword>
+      <keyword>idnint</keyword>
+      <keyword>ieor</keyword>
+      <keyword>ifix</keyword>
+      <keyword>index</keyword>
+      <keyword>int</keyword>
+      <keyword>ior</keyword>
+      <keyword>iqint</keyword>
+      <keyword>is_iostat_end</keyword>
+      <keyword>is_iostat_eor</keyword>
+      <keyword>ishftc</keyword>
+      <keyword>ishft</keyword>
+      <keyword>isign</keyword>
+      <keyword>kind</keyword>
+      <keyword>lbound</keyword>
+      <keyword>len_trim</keyword>
+      <keyword>len</keyword>
+      <keyword>lge</keyword>
+      <keyword>lgt</keyword>
+      <keyword>lle</keyword>
+      <keyword>llt</keyword>
+      <keyword>loc</keyword>
+      <keyword>log10</keyword>
+      <keyword>log</keyword>
+      <keyword>logical</keyword>
+      <keyword>matmul</keyword>
+      <keyword>max0</keyword>
+      <keyword>max1</keyword>
+      <keyword>maxexponent</keyword>
+      <keyword>maxloc</keyword>
+      <keyword>maxval</keyword>
+      <keyword>max</keyword>
+      <keyword>merge</keyword>
+      <keyword>min0</keyword>
+      <keyword>min1</keyword>
+      <keyword>minexponent</keyword>
+      <keyword>minloc</keyword>
+      <keyword>minval</keyword>
+      <keyword>min</keyword>
+      <keyword>mod</keyword>
+      <keyword>modulo</keyword>
+      <keyword>move_alloc</keyword>
+      <keyword>mvbits</keyword>
+      <keyword>nearest</keyword>
+      <keyword>new_line</keyword>
+      <keyword>nint</keyword>
+      <keyword>norm2</keyword>
+      <keyword>not</keyword>
+      <keyword>null</keyword>
+      <keyword>or</keyword>
+      <keyword>pack</keyword>
+      <keyword>precision</keyword>
+      <keyword>present</keyword>
+      <keyword>product</keyword>
+      <keyword>qabs</keyword>
+      <keyword>qacos</keyword>
+      <keyword>qasin</keyword>
+      <keyword>qatan2</keyword>
+      <keyword>qatan</keyword>
+      <keyword>qcmplx</keyword>
+      <keyword>qconjg</keyword>
+      <keyword>qcosh</keyword>
+      <keyword>qcos</keyword>
+      <keyword>qdim</keyword>
+      <keyword>qerf</keyword>
+      <keyword>qerfc</keyword>
+      <keyword>qexp</keyword>
+      <keyword>qgamma</keyword>
+      <keyword>qimag</keyword>
+      <keyword>qlgama</keyword>
+      <keyword>qlog10</keyword>
+      <keyword>qlog</keyword>
+      <keyword>qmax1</keyword>
+      <keyword>qmin1</keyword>
+      <keyword>qmod</keyword>
+      <keyword>qnint</keyword>
+      <keyword>qsign</keyword>
+      <keyword>qsinh</keyword>
+      <keyword>qsin</keyword>
+      <keyword>qsqrt</keyword>
+      <keyword>qtanh</keyword>
+      <keyword>qtan</keyword>
+      <keyword>radix</keyword>
+      <keyword>random_number</keyword>
+      <keyword>random_seed</keyword>
+      <keyword>range</keyword>
+      <keyword>real</keyword>
+      <keyword>repeat</keyword>
+      <keyword>reshape</keyword>
+      <keyword>rrspacing</keyword>
+      <keyword>scale</keyword>
+      <keyword>scan</keyword>
+      <keyword>selected_char_kind</keyword>
+      <keyword>selected_int_kind</keyword>
+      <keyword>selected_real_kind</keyword>
+      <keyword>set_exponent</keyword>
+      <keyword>shape</keyword>
+      <keyword>sign</keyword>
+      <keyword>sinh</keyword>
+      <keyword>sin</keyword>
+      <keyword>size</keyword>
+      <keyword>sngl</keyword>
+      <keyword>spacing</keyword>
+      <keyword>spread</keyword>
+      <keyword>sqrt</keyword>
+      <keyword>sum</keyword>
+      <keyword>system_clock</keyword>
+      <keyword>tanh</keyword>
+      <keyword>tan</keyword>
+      <keyword>tiny</keyword>
+      <keyword>transfer</keyword>
+      <keyword>transpose</keyword>
+      <keyword>trim</keyword>
+      <keyword>ubound</keyword>
+      <keyword>unpack</keyword>
+      <keyword>verify</keyword>
+      <keyword>zabs</keyword>
+      <keyword>zcos</keyword>
+      <keyword>zexp</keyword>
+      <keyword>zlog</keyword>
+      <keyword>zsin</keyword>
+      <keyword>zsqrt</keyword>
+    </context>
+
+    <context id="types" style-ref="type">
+      <keyword>byte</keyword>
+      <keyword>character</keyword>
+      <keyword>complex</keyword>
+      <keyword>double complex</keyword>
+      <keyword>double precision</keyword>
+      <keyword>integer</keyword>
+      <keyword>logical</keyword>
+      <keyword>procedure</keyword>
+      <keyword>real</keyword>
+    </context>
+
+    <context id="type-attributes" style-ref="type">
+      <keyword>allocatable</keyword>
+      <keyword>dimension</keyword>
+      <keyword>external</keyword>
+      <keyword>intent</keyword>
+      <keyword>intrinsic</keyword>
+      <keyword>optional</keyword>
+      <keyword>parameter</keyword>
+      <keyword>pointer</keyword>
+      <keyword>private</keyword>
+      <keyword>public</keyword>
+      <keyword>save</keyword>
+      <keyword>target</keyword>
+    </context>
+
+    <context id="attributes">
+      <start>,\s*\%[</start>
+      <end>\%[</end>
+      <include>
+        <context ref="type-attributes"/>
+      </include>
+    </context>
+
+    <context id="floating-point-number" style-ref="floating-point">
+      <match extended="true">
+        (?&lt;![\w\.])
+        [+-]?
+        ((\.[0-9]+ | [0-9]+\.[0-9]*) ([ed][+-]?[0-9]*)? |
+         ([0-9]+[ed][+-]?[0-9]*))
+         ([_]([0-9]+|[a-z][\w_]*))?
+        (?![\w\.])
+      </match>
+    </context>
+
+    <context id="decimal" style-ref="decimal">
+      <match extended="true">
+        (?&lt;![\w\.])
+        [+-]? ([1-9][0-9]*|0)
+        ([_]([0-9]+|[a-z][\w_]*))?
+        (?![\w\.])
+      </match>
+    </context>
+
+    <context id="boz-literal" style-ref="boz-literal">
+      <match extended="true">
+        \bb'[01]+'|\bb"[01]+"|
+        \bo'[0-7]+'|\bo"[0-7]+"|
+        \bz'[0-9a-f]+'|\bz"[0-9a-f]+"
+      </match>
+    </context>
+
+    <context id="fortran" class="no-spell-check">
+      <include>
+        <context ref="floating-point-number"/>
+        <context ref="decimal"/>
+        <context ref="boz-literal"/>
+        <context ref="def:string"/>
+        <context ref="def:single-quoted-string"/>
+        <context ref="line-comment"/>
+        <context ref="types"/>
+        <context ref="attributes"/>
+        <context ref="operators"/>
+        <context ref="keywords"/>
+        <context ref="read-write"/>
+        <context ref="input-output"/>
+        <context ref="intrinsics"/>
+        <context ref="if0-comment"/>
+        <context ref="include"/>
+        <context ref="preprocessor"/>
+        <context ref="openmp-directives"/>
+      </include>
+    </context>
+
+  </definitions>
+</language>