adding new stuff

plugins/bundle/xptemplate/ftplugin/tcl/tcl.xpt.vim

@@ -0,0 +1,93 @@
+XPTemplate priority=lang mark=~^
+
+let s:f = g:XPTfuncs()
+
+XPTvar $TRUE          1
+XPTvar $FALSE         0
+XPTvar $NULL          NULL
+XPTvar $UNDEFINED     NULL
+XPTvar $VOID_LINE     /* void */;
+XPTvar $CURSOR_PH
+
+XPTvar $BRif \n
+
+XPTinclude
+      \ _common/common
+
+
+" ========================= Function and Variables =============================
+
+
+" ================================= Snippets ===================================
+
+
+
+XPT shebang " #!/bin/sh .. exec tclsh..
+#!/bin/sh
+#\
+exec tclsh "$0" "$@""
+
+..XPT
+
+XPT sb alias=shebang
+
+
+XPT for " for {...}
+for {set ~i^ ~x^} {$~i^ <= ~len^} {incr ~i^} {
+    ~cursor^
+}
+
+
+XPT foreach " foreach i var {...
+foreach ~i^ ~var^ {
+    ~cursor^
+}
+
+
+XPT while " while {i <= ?} {...
+while {~i^ <= ~len^} {
+    ~cursor^
+}
+
+
+XPT if " if { ... } { ...
+if {~a^} {
+     ~cursor^
+}
+
+
+XPT elseif " elseif {...
+elseif {~a^} {
+     ~cursor^
+}
+
+
+XPT else " else {...
+else {
+     ~cursor^
+}
+
+
+XPT switch " switch ... {...
+switch ~var^ {
+    ~1^     { ~body1^ }
+    ~2^     { ~body2^ }
+    ~3^     { ~body3^ }
+    default { ~body4^ }
+}
+
+
+XPT proc " proc *** {...
+proc ~name^ {~args^} {
+     ~cursor^
+}
+
+
+XPT regexp " regexp ... match
+regexp ~r^ ~str^ match ~vars^
+
+
+XPT regsub " regsub ...
+regsub ~in^ ~str^ ~out^
+
+