You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
97 lines
1.2 KiB
97 lines
1.2 KiB
snippet tcl |
|
#!/bin/env tclsh |
|
|
|
snippet proc |
|
#****f* ${1:module}/$2 |
|
# |
|
# NAME |
|
# $1::$2 - |
|
# |
|
# DESCRIPTION |
|
# |
|
# USAGE |
|
# $1::$2 $3 |
|
# |
|
# ARGUMENTS |
|
# * $3 |
|
# |
|
# RESULT |
|
# |
|
# EXAMPLE |
|
# $1::$2 |
|
# |
|
# SOURCE |
|
# |
|
proc ${2} {${3}} { |
|
${4} |
|
} |
|
#***** |
|
|
|
snippet if |
|
if {${1}} { |
|
${2} |
|
} |
|
|
|
snippet else |
|
else { |
|
${1} |
|
} |
|
|
|
snippet ife |
|
if {${1}} { |
|
${2} |
|
} else { |
|
${3} |
|
} |
|
|
|
snippet ifee |
|
if {${1}} { |
|
${2} |
|
} elseif {${3}} { |
|
${4} |
|
} else { |
|
${5} |
|
} |
|
|
|
snippet while |
|
while {${1}} { |
|
${2:} |
|
} |
|
|
|
snippet for |
|
for {set ${1:i} ${2:0}} {$$1 < ${3}} {incr $1} { |
|
${4} |
|
} |
|
|
|
snippet foreach |
|
foreach ${1} ${2} { |
|
${3} |
|
} |
|
|
|
snippet switch |
|
switch ${1} { |
|
${2} {${3}} |
|
${4} {${5}} |
|
default {${6}} |
|
} |
|
|
|
snippet regexp |
|
regexp ${1} ${2} ${3} |
|
|
|
snippet regsub |
|
regsub ${1} ${2} ${3} |
|
|
|
snippet openfile |
|
if {[catch {open ${1:filename} ${2:r}} ${3:ERROR}]} { |
|
error $$3 |
|
} |
|
|
|
${4} |
|
|
|
close $$3 |
|
|
|
snippet namespace |
|
namespace ${1:eval} ${2} { |
|
${3} |
|
} |
|
|
|
|