308 lines
17 KiB
XML
308 lines
17 KiB
XML
<?xml version="1.0" encoding="UTF-8"?>
|
|
<!DOCTYPE language>
|
|
<language name="Fortran (Free Format)" version="5" kateversion="5.53" section="Sources" extensions="*.f90;*.F90;*.f95;*.F95;*.f03;*.F03;*.f08;*.F08;" mimetype="text/x-fortran-src" casesensitive="0" author="Franchin Matteo (fnch@libero.it), Janus Weil" license="MIT" priority="10">
|
|
<!-- Original author: Franchin Matteo (fnch@libero.it).
|
|
Adaptation to free & fixed format: Janus Weil.
|
|
-->
|
|
<!-- NOTE: Keep in sync with the "Fortran (Fixed Format)" highlighter! (fortran-fixed.xml) -->
|
|
<highlighting>
|
|
|
|
<!-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -->
|
|
<!-- * L I S T S * -->
|
|
<!-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -->
|
|
<list name="keywords">
|
|
<include>keywords##Fortran (Fixed Format)</include>
|
|
<item>associate</item>
|
|
<item>import</item>
|
|
<item>impure</item>
|
|
</list>
|
|
<list name="io_functions">
|
|
<include>io_functions##Fortran (Fixed Format)</include>
|
|
</list>
|
|
<!-- Keywords inside read(...), write(...), backspace(...),
|
|
rewind(...), endfile(...), close(...) -->
|
|
<list name="io_keywords">
|
|
<include>io_keywords##Fortran (Fixed Format)</include>
|
|
</list>
|
|
<!-- Keywords inside open(...) -->
|
|
<list name="open_keywords">
|
|
<include>open_keywords##Fortran (Fixed Format)</include>
|
|
</list>
|
|
<!-- Keywords inside inquire(...) -->
|
|
<list name="inquire_keywords">
|
|
<include>inquire_keywords##Fortran (Fixed Format)</include>
|
|
</list>
|
|
<list name="types">
|
|
<include>types##Fortran (Fixed Format)</include>
|
|
<item>abstract</item>
|
|
<item>asynchronous</item>
|
|
<item>bind</item>
|
|
<item>contiguous</item>
|
|
<item>deferred</item>
|
|
<item>enum</item>
|
|
<item>enumerator</item>
|
|
<item>final</item>
|
|
<item>generic</item>
|
|
<item>nopass</item>
|
|
<item>non_overridable</item>
|
|
<item>protected</item>
|
|
<item>value</item>
|
|
<item>volatile</item>
|
|
</list>
|
|
|
|
<!-- There are 4 types of intrinsic procedures in Fortran 90:
|
|
1) Elemental procedures (elemental_procs);
|
|
2) Inquiry functions (inquiry_fn);
|
|
3) Transformational functions (transform_fn);
|
|
4) Non elemental subroutines (non_elem_subr);
|
|
Often mathematical functions have one generic form and many specific names!
|
|
If you use the generic form, the compiler will select the right function
|
|
to use depending on the type of the arguments.
|
|
But you can use also the specific names!
|
|
-->
|
|
|
|
<!-- E L E M E N T A L P R O C E D U R E S -->
|
|
<list name="elemental_procs">
|
|
<include>elemental_procs##Fortran (Fixed Format)</include>
|
|
<!-- Elemental mathematical functions -->
|
|
<item>acosh</item>
|
|
<item>asinh</item>
|
|
<item>atanh</item>
|
|
<item>bessel_j0</item>
|
|
<item>bessel_j1</item>
|
|
<item>bessel_jn</item>
|
|
<item>bessel_y0</item>
|
|
<item>bessel_y1</item>
|
|
<item>bessel_yn</item>
|
|
<item>erf</item>
|
|
<item>erfc</item>
|
|
<item>erfc_scaled</item>
|
|
<item>gamma</item>
|
|
<item>log_gamma</item>
|
|
<item>hypot</item>
|
|
</list>
|
|
|
|
<!-- I N Q U I R Y F U N C T I O N S -->
|
|
<list name="inquiry_fn">
|
|
<include>inquiry_fn##Fortran (Fixed Format)</include>
|
|
<!-- Inquiry functions for any type -->
|
|
<item>extends_type_of</item>
|
|
<item>same_type_as</item>
|
|
<item>storage_size</item>
|
|
<!-- Coarray inquiry functions -->
|
|
<item>lcobound</item>
|
|
<item>ucobound</item>
|
|
<item>image_index</item>
|
|
</list>
|
|
|
|
<!-- T R A N S F O R M A T I O N A L F U N C T I O N S -->
|
|
<list name="transform_fn">
|
|
<include>transform_fn##Fortran (Fixed Format)</include>
|
|
<!-- Transformational functions for kind values -->
|
|
<item>selected_char_kind</item>
|
|
<!-- Transformational functions that reduce arrays -->
|
|
<item>parity</item>
|
|
<item>iall</item>
|
|
<item>iany</item>
|
|
<item>iparity</item>
|
|
<!-- Coarray transformational functions -->
|
|
<item>num_images</item>
|
|
<item>this_image</item>
|
|
</list>
|
|
|
|
<!-- N O N E L E M E N T A L S U B R O U T I N E S -->
|
|
<list name="non_elem_subr">
|
|
<include>non_elem_subr##Fortran (Fixed Format)</include>
|
|
<!-- Real time clock -->
|
|
<item>cpu_time</item>
|
|
<!-- System commands -->
|
|
<item>execute_command_line</item>
|
|
<item>get_environment_variable</item>
|
|
</list>
|
|
|
|
<!-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -->
|
|
<!-- * C O N T E X T S * -->
|
|
<!-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -->
|
|
<contexts>
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="default" >
|
|
<IncludeRules context="find_strings" />
|
|
<IncludeRules context="find_io_stmnts" />
|
|
<IncludeRules context="find_op_and_log##Fortran (Fixed Format)" />
|
|
<IncludeRules context="find_numbers##Fortran (Fixed Format)" />
|
|
<IncludeRules context="find_preprocessor##Fortran (Fixed Format)" />
|
|
<IncludeRules context="find_comments" />
|
|
<IncludeRules context="find_symbols##Fortran (Fixed Format)" />
|
|
<IncludeRules context="find_begin_stmnts" />
|
|
<IncludeRules context="find_mid_stmnts" />
|
|
<IncludeRules context="find_end_stmnts" />
|
|
<IncludeRules context="find_decls" />
|
|
<IncludeRules context="find_intrinsics" />
|
|
</context>
|
|
<!--************************END OF THE MAIN CONTEXT*************************-->
|
|
|
|
|
|
<!-- IMPORTANT: If you modify something, do it also in "fortran-fixed.xml"! -->
|
|
|
|
<!-- This context highlights comments -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="find_comments">
|
|
<DetectChar attribute="Comment" context="comment" char="!"/>
|
|
</context>
|
|
<context attribute="Comment" lineEndContext="#pop" name="comment">
|
|
<IncludeRules context="##Comments"/>
|
|
</context>
|
|
|
|
<!-- This context highlights items inside the parentesis of a function -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="inside_func_paren">
|
|
<!-- inside_func_paren##Fortran (Fixed Format) -->
|
|
<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##Fortran (Fixed Format)" />
|
|
</context>
|
|
|
|
<!-- The following two contexts match input/output statements -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="find_io_stmnts">
|
|
<!-- find_io_stmnts##Fortran (Fixed Format) -->
|
|
<RegExpr attribute="IO Function" context="find_io_paren" String="\b(?:flush|wait|read|write|backspace|rewind|end\s*file|close|open|inquire)\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">
|
|
<!-- find_io_paren##Fortran (Fixed Format) -->
|
|
<DetectChar attribute="IO Function" context="#stay" char="*"/>
|
|
<DetectChar attribute="Normal Text" context="inside_func_paren" char="("/>
|
|
<DetectChar attribute="IO Function" context="#pop" char=")"/>
|
|
<keyword attribute="IO Function" context="#stay" String="io_keywords"/>
|
|
<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##Fortran (Fixed Format)" />
|
|
<IncludeRules context="find_symbols##Fortran (Fixed Format)" />
|
|
</context>
|
|
<!-- This context highlights the text inside the parenthesis of fortran statement -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="format_stmnt">
|
|
<DetectChar attribute="IO Function" context="format_stmnt" char="("/>
|
|
<DetectChar attribute="IO Function" context="#pop" char=")"/>
|
|
<IncludeRules context="find_strings" />
|
|
<IncludeRules context="format_stmnt##Fortran (Fixed Format)" />
|
|
</context>
|
|
|
|
<!-- FIXME: beginRegion/endRegion don't work well with IncludeRules. When this is corrected, use IncludeRules instead of replicating rules. -->
|
|
<!-- The following context matches the begin of program units -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="find_begin_stmnts">
|
|
<WordDetect attribute="Keyword" context="#stay" String="submodule" insensitive="true" beginRegion="Routine"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\b(?:do\s*[,\s]\s*concurrent|select\s+type|block|critical)\b" insensitive="true" beginRegion="Block"/>
|
|
<!-- Here IncludeRules: find_begin_stmnts##Fortran (Fixed Format) -->
|
|
<RegExpr attribute="Keyword" context="#stay" String="\bmodule\s+procedure\b" insensitive="true"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\b(?:subroutine|function|block\s*data|program|module)\b" insensitive="true" beginRegion="Routine"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\b(?:then|do|select\s+case)\b" insensitive="true" beginRegion="Block"/>
|
|
</context>
|
|
<!-- The following context matches the end of program units -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="find_end_stmnts">
|
|
<RegExpr attribute="Keyword" context="#stay" String="\bend\s*(?:procedure|submodule)\b" insensitive="true" endRegion="Routine"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\bend\s*(?:block|critical)\b" insensitive="true" endRegion="Block"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\bend\s*(?:associate)\b" insensitive="true"/>
|
|
<RegExpr attribute="Data Type" context="#stay" String="\bend\s*(?:type|enum)\b" insensitive="true"/>
|
|
<!-- Here IncludeRules: find_end_stmnts##Fortran (Fixed Format) -->
|
|
<RegExpr attribute="Keyword" context="#stay" String="\bend\s*(?:subroutine|function|block\s*data|program|module)\b" insensitive="true" endRegion="Routine"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\bend\s*(?:do|if)\b" insensitive="true" endRegion="Block"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\bend\s*(?:select|where|forall|interface)\b" insensitive="true"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\belse\s*if\b" insensitive="true" endRegion="Block"/>
|
|
<WordDetect attribute="Keyword" context="#stay" String="end" insensitive="true" endRegion="Routine"/>
|
|
</context>
|
|
<!-- The following context matches the mid of program units -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="find_mid_stmnts">
|
|
<RegExpr attribute="Keyword" context="#stay" String="\b(?:type\s+is|class\s+(?:is|default))\b" insensitive="true" endRegion="Block" beginRegion="Block"/>
|
|
<!-- Here IncludeRules: find_mid_stmnts##Fortran (Fixed Format) -->
|
|
<WordDetect attribute="Keyword" context="#stay" String="else" insensitive="true" endRegion="Block" beginRegion="Block"/>
|
|
<RegExpr attribute="Keyword" context="#stay" String="\bcase(?:\s+default)?\b" insensitive="true" endRegion="Block" beginRegion="Block"/>
|
|
<WordDetect attribute="Keyword" context="#stay" String="contains" insensitive="true" endRegion="Routine" beginRegion="Routine"/>
|
|
</context>
|
|
|
|
<!-- The following two contexts match declarations -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="find_decls">
|
|
<RegExpr attribute="Data Type" context="find_paren" String="\b(?:class|extends|procedure|pass|codimension)\s*[(]" insensitive="true"/>
|
|
<WordDetect attribute="Data Type" context="#stay" String="codimension" insensitive="true"/>
|
|
<WordDetect attribute="Data Type" context="#stay" String="procedure" insensitive="true"/>
|
|
<WordDetect attribute="Data Type" context="#stay" String="pass" insensitive="true"/>
|
|
<!-- find_decls##Fortran (Fixed Format) -->
|
|
<keyword attribute="Data Type" context="#stay" String="types"/>
|
|
<!--<RegExpr attribute="Data Type" context="find_paren" String="real\s*[(]" firstNonSpace="true" insensitive="true"/>-->
|
|
<RegExpr attribute="Data Type" context="find_paren" String="\b(?:type|integer|real|complex|character|logical|intent|dimension)\s*[(]" insensitive="true"/>
|
|
<IncludeRules context="find_decls##Fortran (Fixed Format)"/>
|
|
</context>
|
|
<!-- This context matches parenthesis in data type declarations, such as in 'real(...)'-->
|
|
<context attribute="Data Type" lineEndContext="#pop" name="find_paren">
|
|
<!-- find_paren##Fortran (Fixed Format) -->
|
|
<AnyChar attribute="Data Type" context="find_paren" String="(["/>
|
|
<AnyChar attribute="Data Type" context="#pop" String=")]"/>
|
|
</context>
|
|
|
|
<!-- The following context matches intrinsic procedures -->
|
|
<context attribute="Normal Text" lineEndContext="#stay" name="find_intrinsics">
|
|
<!-- find_intrinsics##Fortran (Fixed Format) -->
|
|
<keyword attribute="Keyword" context="#stay" String="keywords"/>
|
|
<!-- INTRINSIC PROCEDURES -->
|
|
<keyword attribute="Elemental Procedure" context="#stay" String="elemental_procs"/>
|
|
<keyword attribute="Inquiry Function" context="#stay" String="inquiry_fn"/>
|
|
<keyword attribute="Transformational Function" context="#stay" String="transform_fn"/>
|
|
<keyword attribute="Non elemental subroutine" context="#stay" String="non_elem_subr"/>
|
|
</context>
|
|
|
|
<!-- The following four contexts implement the complex string multi-line declarations -->
|
|
<!-- NOTE: Contexts replicated from "Fortran (Fixed Format)" -->
|
|
<!-- Matches STRINGS (there are 2 types of strings: '...' and "...") -->
|
|
<context attribute="String" lineEndContext="#stay" name="find_strings">
|
|
<DetectChar attribute="String" context="string_1" char="'"/>
|
|
<DetectChar attribute="String" context="string_2" char="""/>
|
|
</context>
|
|
|
|
<context attribute="String" lineEndContext="#stay" name="string_1" fallthrough="true" fallthroughContext="#pop">
|
|
<RegExpr attribute="String" context="#pop" String="[^']*'"/>
|
|
<RegExpr attribute="Keyword" context="end_of_string" String="&\s*$"/>
|
|
<RegExpr attribute="String" context="end_of_string" String=".*(?=&\s*$)"/>
|
|
</context>
|
|
|
|
<context attribute="String" lineEndContext="#stay" name="string_2" fallthrough="true" fallthroughContext="#pop">
|
|
<RegExpr attribute="String" context="#pop" String="[^"]*""/>
|
|
<RegExpr attribute="Keyword" context="end_of_string" String="&\s*$"/>
|
|
<RegExpr attribute="String" context="end_of_string" String=".*(?=&\s*$)"/>
|
|
</context>
|
|
|
|
<context attribute="String" lineEndContext="#stay" name="end_of_string" fallthrough="true" fallthroughContext="#pop#pop">
|
|
<DetectSpaces />
|
|
<RegExpr attribute="Keyword" context="#stay" String="&\s*$"/>
|
|
<DetectChar attribute="Keyword" context="#pop" char="&" firstNonSpace="true"/>
|
|
<DetectChar attribute="Comment" context="comment" char="!" firstNonSpace="true"/>
|
|
</context>
|
|
</contexts>
|
|
|
|
<!-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -->
|
|
<!-- * S T Y L E I T E M D E F I N I T I O N S * -->
|
|
<!-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -->
|
|
<itemDatas>
|
|
<itemData name="Normal Text" defStyleNum="dsNormal"/>
|
|
<itemData name="Keyword" defStyleNum="dsKeyword"/>
|
|
<itemData name="Data Type" defStyleNum="dsDataType"/>
|
|
<itemData name="String" defStyleNum="dsString"/>
|
|
<itemData name="Comment" defStyleNum="dsComment"/>
|
|
<itemData name="IO Function" defStyleNum="dsFunction" bold="0" italic="0"/>
|
|
<itemData name="Elemental Procedure" defStyleNum="dsBuiltIn" bold="1" italic="0"/>
|
|
<itemData name="Inquiry Function" defStyleNum="dsFunction" bold="1" italic="1"/>
|
|
<itemData name="Transformational Function" defStyleNum="dsFunction" bold="1" italic="0"/>
|
|
<itemData name="Non elemental subroutine" defStyleNum="dsFunction" bold="1" italic="0"/>
|
|
</itemDatas>
|
|
</highlighting>
|
|
<general>
|
|
<comments>
|
|
<comment name="singleLine" start="!"/>
|
|
</comments>
|
|
<keywords casesensitive="0"/>
|
|
</general>
|
|
</language>
|
|
<!-- kate: replace-tabs on; tab-width 2; indent-width 2; -->
|