summaryrefslogtreecommitdiffstats
path: root/kate/data/fortran.xml
diff options
context:
space:
mode:
Diffstat (limited to 'kate/data/fortran.xml')
-rw-r--r--kate/data/fortran.xml74
1 files changed, 37 insertions, 37 deletions
diff --git a/kate/data/fortran.xml b/kate/data/fortran.xml
index 948267fc9..2b0915df5 100644
--- a/kate/data/fortran.xml
+++ b/kate/data/fortran.xml
@@ -13,7 +13,7 @@
<item> call </item>
<item> case </item>
<item> common </item>
- <item> contains </item>
+ <item> tqcontains </item>
<item> continue </item>
<item> cycle </item>
<item> deallocate </item>
@@ -314,7 +314,7 @@
<item> allocated </item>
<item> lbound </item>
<item> ubound </item>
- <item> shape </item>
+ <item> tqshape </item>
<item> size </item>
</list>
@@ -343,7 +343,7 @@
<item> pack </item>
<item> unpack </item>
<!-- Transformational function for reshaping an array -->
- <item> reshape </item>
+ <item> retqshape </item>
<!-- Transformational function for replication -->
<item> spread </item>
<!-- Array shifting functions -->
@@ -372,41 +372,41 @@
<contexts>
<context attribute="Normal Text" lineEndContext="#stay" name="default" >
<IncludeRules context="find_strings" />
- <IncludeRules context="find_decls" />
- <IncludeRules context="find_intrinsics" />
- <IncludeRules context="find_io_stmnts" />
- <IncludeRules context="find_op_and_log" />
- <IncludeRules context="find_numbers" />
- <IncludeRules context="find_preprocessor" />
- <IncludeRules context="find_comments" />
- <IncludeRules context="find_symbols" />
- <IncludeRules context="find_end_stmnts" />
- <IncludeRules context="find_begin_stmnts" />
+ <IncludeRules context="tqfind_decls" />
+ <IncludeRules context="tqfind_intrinsics" />
+ <IncludeRules context="tqfind_io_stmnts" />
+ <IncludeRules context="tqfind_op_and_log" />
+ <IncludeRules context="tqfind_numbers" />
+ <IncludeRules context="tqfind_preprocessor" />
+ <IncludeRules context="tqfind_comments" />
+ <IncludeRules context="tqfind_symbols" />
+ <IncludeRules context="tqfind_end_stmnts" />
+ <IncludeRules context="tqfind_begin_stmnts" />
</context>
<!--************************END OF THE MAIN CONTEXT*************************-->
<!-- This context highlights preprocessor lines -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_preprocessor">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_preprocessor">
<RegExpr attribute="Preprocessor" context="#stay" String="(#|cDEC\$|CDEC\$).*$" column="0"/>
</context>
<!-- This context highlights operators and the logical values .true. .false. -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_op_and_log">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_op_and_log">
<RegExpr attribute="Logical" context="#stay" String="\.(true|false)\." insensitive="TRUE"/>
<RegExpr attribute="Operator" context="#stay" String="\.[A-Za-z]+\."/>
<RegExpr attribute="Operator" context="#stay" String="(==|/=|&lt;|&lt;=|&gt;|&gt;=)"/>
</context>
<!-- This context highlights comments -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_comments">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_comments">
<RegExpr attribute="Comment" context="#stay" String="[cC\*].*$" column="0"/>
<RegExpr attribute="Comment" context="#stay" String="!.*$"/>
</context>
<!-- This context highlights symbols -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_symbols">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_symbols">
<Detect2Chars attribute="Keyword" context="#stay" char="*" char1="*"/>
<Detect2Chars attribute="Keyword" context="#stay" char="(" char1="/"/>
<Detect2Chars attribute="Keyword" context="#stay" char="/" char1=")"/>
@@ -419,21 +419,21 @@
<DetectChar attribute="Normal Text" context="inside_func_paren" char="("/>
<DetectChar attribute="Normal Text" context="#pop" char=")"/>
<IncludeRules context="find_strings" />
- <IncludeRules context="find_intrinsics" />
- <IncludeRules context="find_numbers" />
+ <IncludeRules context="tqfind_intrinsics" />
+ <IncludeRules context="tqfind_numbers" />
</context>
<!-- The following two contexts match input/output statements -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_io_stmnts">
- <RegExpr attribute="IO Function" context="find_io_paren" String="\b(read|write|backspace|rewind|end\s*file|close)\s*[(]" insensitive="TRUE"/>
- <RegExpr attribute="IO Function" context="find_io_paren" String="\bopen\s*[(]" insensitive="TRUE"/>
- <RegExpr attribute="IO Function" context="find_io_paren" String="\binquire\s*[(]" insensitive="TRUE"/>
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_io_stmnts">
+ <RegExpr attribute="IO Function" context="tqfind_io_paren" String="\b(read|write|backspace|rewind|end\s*file|close)\s*[(]" insensitive="TRUE"/>
+ <RegExpr attribute="IO Function" context="tqfind_io_paren" String="\bopen\s*[(]" insensitive="TRUE"/>
+ <RegExpr attribute="IO Function" context="tqfind_io_paren" String="\binquire\s*[(]" insensitive="TRUE"/>
<RegExpr attribute="IO Function" context="format_stmnt" String="\bformat\s*[(]" insensitive="TRUE"/>
<RegExpr attribute="IO Function" context="#stay" String="\bend\s*file\b" insensitive="TRUE"/>
<keyword attribute="IO Function" context="#stay" String="io_functions"/>
</context>
<!-- This context matches parenthesis for the read, write, ... statements -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_io_paren">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_io_paren">
<DetectChar attribute="IO Function" context="#stay" char="*"/>
<DetectChar attribute="Normal Text" context="inside_func_paren" char="("/>
<DetectChar attribute="IO Function" context="#pop" char=")"/>
@@ -441,9 +441,9 @@
<keyword attribute="IO Function" context="#stay" String="inquire_keywords"/>
<keyword attribute="IO Function" context="#stay" String="open_keywords"/>
<IncludeRules context="find_strings" />
- <IncludeRules context="find_intrinsics" />
- <IncludeRules context="find_numbers" />
- <IncludeRules context="find_symbols" />
+ <IncludeRules context="tqfind_intrinsics" />
+ <IncludeRules context="tqfind_numbers" />
+ <IncludeRules context="tqfind_symbols" />
</context>
<!-- This context highlights the text inside the parenthesis of fortran statement -->
<context attribute="Normal Text" lineEndContext="#stay" name="format_stmnt">
@@ -452,44 +452,44 @@
<RegExpr attribute="IO Function" context="#stay" String="[0-9]*/" insensitive="TRUE"/>
<AnyChar attribute="IO Function" context="#stay" String=":"/>
<IncludeRules context="find_strings" />
- <IncludeRules context="find_symbols" />
+ <IncludeRules context="tqfind_symbols" />
</context>
<!-- The following context matches the begin of program units -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_begin_stmnts">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_begin_stmnts">
<RegExpr attribute="Keyword" context="#stay" String="\bmodule\s+procedure\b" insensitive="TRUE"/>
<RegExpr attribute="Keyword" context="#stay" String="\b(program|subroutine|function|module|block\s*data)\b" insensitive="TRUE" beginRegion="Unit"/>
</context>
<!-- The following context matches the end of program units -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_end_stmnts">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_end_stmnts">
<RegExpr attribute="Keyword" context="#stay" String="\bend\s*(program|subroutine|function|module|block\s*data)\b" insensitive="TRUE" endRegion="Unit"/>
<RegExpr attribute="Keyword" context="#stay" String="\bend\s*(do|if|select|where|forall|interface)\b" insensitive="TRUE"/>
<RegExpr attribute="Keyword" context="#stay" String="\bend\b" insensitive="TRUE" endRegion="Unit"/>
</context>
<!-- The following two contexts match declarations -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_decls">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_decls">
<RegExpr attribute="Data Type" context="#stay" String="\binteger[\*]\d{1,2}" insensitive="TRUE"/>
<RegExpr attribute="Data Type" context="#stay" String="\breal[\*]\d{1,2}" insensitive="TRUE"/>
<RegExpr attribute="Data Type" context="#stay" String="\bcomplex[\*]\d{1,2}" insensitive="TRUE"/>
<RegExpr attribute="Data Type" context="#stay" String="\bend\s*type\b" insensitive="TRUE"/>
<keyword attribute="Data Type" context="#stay" String="types"/>
<RegExpr attribute="Data Type" context="#stay" String="^\s*data\b" insensitive="TRUE"/>
- <RegExpr attribute="Data Type" context="find_paren" String="^\s*real\s*[(]" insensitive="TRUE"/>
+ <RegExpr attribute="Data Type" context="tqfind_paren" String="^\s*real\s*[(]" insensitive="TRUE"/>
<RegExpr attribute="Data Type" context="#stay" String="^\s*real(?![\w\*])" insensitive="TRUE"/>
<RegExpr attribute="Data Type" context="#stay" String="\bcharacter[*][0-9]+\b" insensitive="TRUE"/>
- <RegExpr attribute="Data Type" context="find_paren" String="\b(type|integer|complex|character|logical|intent|dimension)\b\s*[(]" insensitive="TRUE"/>
+ <RegExpr attribute="Data Type" context="tqfind_paren" String="\b(type|integer|complex|character|logical|intent|dimension)\b\s*[(]" insensitive="TRUE"/>
<RegExpr attribute="Data Type" context="#stay" String="\b(type|integer|complex|character|logical|intent|dimension)\b" insensitive="TRUE"/>
<Detect2Chars attribute="Data Type" context="#stay" char=":" char1=":"/>
</context>
<!-- This context matches parenthesis in data type declarations, such as in 'real(...)'-->
- <context attribute="Data Type" lineEndContext="#pop" name="find_paren">
- <DetectChar attribute="Data Type" context="find_paren" char="("/>
+ <context attribute="Data Type" lineEndContext="#pop" name="tqfind_paren">
+ <DetectChar attribute="Data Type" context="tqfind_paren" char="("/>
<DetectChar attribute="Data Type" context="#pop" char=")"/>
</context>
<!-- The following context matches intrinsic procedures -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_intrinsics">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_intrinsics">
<keyword attribute="Keyword" context="#stay" String="keywords"/>
<!-- INTRINSIC PROCEDURES -->
<keyword attribute="Elemental Procedure" context="#stay" String="elemental_procs"/>
@@ -499,7 +499,7 @@
</context>
<!-- The following context matches integer and real numbers -->
- <context attribute="Normal Text" lineEndContext="#stay" name="find_numbers">
+ <context attribute="Normal Text" lineEndContext="#stay" name="tqfind_numbers">
<!-- Floating-point numbers with optional kind -->
<RegExpr attribute="Float" context="#stay" String="[0-9]*\.[0-9]+([de][+-]?[0-9]+)?([_]([0-9]+|[a-z][\w_]*))?" insensitive="TRUE"/>
<RegExpr attribute="Float" context="#stay" String="\b[0-9]+\.[0-9]*([de][+-]?[0-9]+)?([_]([0-9]+|[a-z][\w_]*))?(?![a-z])" insensitive="TRUE"/>