From 560378aaca1784ba19806a0414a32b20c744de39 Mon Sep 17 00:00:00 2001
From: tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Mon, 3 Jan 2011 04:12:51 +0000
Subject: Automated conversion for enhanced compatibility with TQt for Qt4
 3.4.0 TP1 NOTE: This will not compile with Qt4 (yet), however it does compile
 with Qt3

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1211081 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 kate/data/fortran.xml | 74 +++++++++++++++++++++++++--------------------------
 1 file changed, 37 insertions(+), 37 deletions(-)

(limited to 'kate/data/fortran.xml')

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"/>
-- 
cgit v1.2.1