Adding upstream version 44.2.upstream/44.2upstream

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

1 files changed, 55 insertions, 0 deletions

diff --git a/plugins/snippets/data/tcl.xml b/plugins/snippets/data/tcl.xml
new file mode 100644
index 0000000..73a50c0
--- /dev/null
+++ b/plugins/snippets/data/tcl.xml
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<snippets language="Tcl">
+  <snippet id="foreach">
+    <text><![CDATA[foreach ${1:var} ${2:$list} {
+	${3}
+}
+]]></text>
+    <description>foreach...</description>
+    <tag>foreach</tag>
+  </snippet>
+  <snippet id="for">
+    <text><![CDATA[for {${1:set i 0}} {${2:$i < $n}} {${3:incr i}} {
+	${4}
+}
+]]></text>
+    <description>for...</description>
+    <tag>for</tag>
+  </snippet>
+  <snippet id="if">
+    <text><![CDATA[if {${1:condition}} {
+	${2}
+}
+]]></text>
+    <description>if...</description>
+    <tag>if</tag>
+  </snippet>
+  <snippet id="proc">
+    <text><![CDATA[proc ${1:name} {${2:args}} \
+{
+	${3}
+}
+]]></text>
+    <description>proc...</description>
+    <tag>proc</tag>
+  </snippet>
+  <snippet id="switch">
+    <text><![CDATA[switch ${1:-exact} -- ${2:$var} {
+	${3:match} {
+		${4}
+	}
+	default {${5}}
+}
+]]></text>
+    <description>switch...</description>
+    <tag>switch</tag>
+  </snippet>
+  <snippet id="while">
+    <text><![CDATA[while {${1:condition}} {
+	${2}
+}
+]]></text>
+    <description>while...</description>
+    <tag>while</tag>
+  </snippet>
+</snippets>