Adding upstream version 3.38.1.upstream/3.38.1upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 164 insertions, 0 deletions

diff --git a/plugins/snippets/data/fortran.xml b/plugins/snippets/data/fortran.xml
new file mode 100644
index 0000000..205abe6
--- /dev/null
+++ b/plugins/snippets/data/fortran.xml
@@ -0,0 +1,164 @@
+<?xml version='1.0' encoding='utf-8'?>
+<snippets language="fortran">
+  <snippet id="c">
+    <text><![CDATA[character(len=${1:10}) :: $0]]></text>
+    <tag>c</tag>
+    <description>character</description>
+  </snippet>
+  <snippet id="cl">
+    <text><![CDATA[close(${1:unit}, status='${2:keep}')]]></text>
+    <tag>cl</tag>
+    <description>close</description>
+  </snippet>
+  <snippet id="do">
+    <text><![CDATA[do ${1:i}=$2, $3, ${4:1}
+	${0:source}
+end do]]></text>
+    <tag>do</tag>
+    <description>do ... end do</description>
+  </snippet>
+  <snippet id="func">
+    <text><![CDATA[function ${1:name}( ${2:parameter} )
+	${3:integer/real ::} $1
+	${4:integer/real ::} $2
+
+	${0:source}
+
+	$1 = 	!result
+end function]]></text>
+    <tag>func</tag>
+    <description>function</description>
+  </snippet>
+  <snippet id="ifel">
+    <text><![CDATA[if( $1 ) then
+	${2:source}
+else
+	${0:source}
+end if]]></text>
+    <tag>ifel</tag>
+    <description>if ... else ... end if</description>
+  </snippet>
+  <snippet id="if">
+    <text><![CDATA[if( $1 ) then
+	${0:source}
+end if]]></text>
+    <tag>if</tag>
+    <description>if ... end if</description>
+  </snippet>
+  <snippet id="i">
+    <text><![CDATA[integer(kind=${1:4}) :: $0]]></text>
+    <tag>i</tag>
+    <description>integer</description>
+  </snippet>
+  <snippet id="ida">
+    <text><![CDATA[integer(kind=${1:4}), dimension(${2::}), allocatable :: $0]]></text>
+    <tag>ida</tag>
+    <description>integerdimalloc</description>
+  </snippet>
+  <snippet id="id">
+    <text><![CDATA[integer(kind=${1:4}), dimension(${2::}) :: $0]]></text>
+    <tag>id</tag>
+    <description>integerdim</description>
+  </snippet>
+  <snippet id="l">
+    <text><![CDATA[logical(kind=${1:1}) :: $0]]></text>
+    <tag>l</tag>
+    <description>logical</description>
+  </snippet>
+  <snippet id="mod">
+    <text><![CDATA[module ${1:name}
+	implicit none
+	${2:integer/real ::} $3
+
+	${4:contains}
+
+	${0:source}
+end module]]></text>
+    <tag>mod</tag>
+    <description>module</description>
+  </snippet>
+  <snippet id="op">
+    <text><![CDATA[open(${1:unit}, file='${2:name}', status='${3:new}')]]></text>
+    <tag>op</tag>
+    <description>open</description>
+  </snippet>
+  <snippet id="prog">
+    <text><![CDATA[program ${1:name}
+	implicit none
+
+	${0:source}
+end program]]></text>
+    <tag>prog</tag>
+    <description>program</description>
+  </snippet>
+  <snippet id="re">
+    <text><![CDATA[read(unit=${1:*},fmt=${2:*}) $0]]></text>
+    <tag>re</tag>
+    <description>read</description>
+  </snippet>
+  <snippet id="r">
+    <text><![CDATA[real(kind=${1:8}) :: $0]]></text>
+    <tag>r</tag>
+    <description>real</description>
+  </snippet>
+  <snippet id="rda">
+    <text><![CDATA[real(kind=${1:8}), dimension(${2::}), allocatable :: $0]]></text>
+    <tag>rda</tag>
+    <description>realdimalloc</description>
+  </snippet>
+  <snippet id="rd">
+    <text><![CDATA[real(kind=${1:8}), dimension(${2::}) :: $0]]></text>
+    <tag>rd</tag>
+    <description>realdim</description>
+  </snippet>
+  <snippet id="rec">
+    <text><![CDATA[recursive function ${1:name}( ${2:parameter} ) result( ${3:res} )
+	${4:integer/real ::} $3
+	${5:integer/real ::} $2
+
+	${0:source}
+
+	$3 = 	!result
+end function]]></text>
+    <tag>rec</tag>
+    <description>recursivfunc</description>
+  </snippet>
+  <snippet id="sel">
+    <text><![CDATA[select case( $1 )
+	case( $2 )
+		${3:source}
+	case default
+		${0:source}
+end select]]></text>
+    <tag>sel</tag>
+    <description>select</description>
+  </snippet>
+  <snippet id="sub">
+    <text><![CDATA[subroutine ${1:name}( ${2:parameter} )
+	${3:integer/real ::} $2
+
+	${0:source}
+end subroutine]]></text>
+    <tag>sub</tag>
+    <description>subroutine</description>
+  </snippet>
+  <snippet id="t">
+    <text><![CDATA[type :: ${1:name}
+	${2:integer/real ::} $0
+end type $1]]></text>
+    <tag>t</tag>
+    <description>type</description>
+  </snippet>
+  <snippet id="dow">
+    <text><![CDATA[do while( ${1} )
+	${0:source}
+end do]]></text>
+    <tag>dow</tag>
+    <description>while</description>
+  </snippet>
+  <snippet id="wr">
+    <text><![CDATA[write(unit=${1:*},fmt=${2:*}) "$3", $0]]></text>
+    <tag>wr</tag>
+    <description>write</description>
+  </snippet>
+</snippets>