93 lines
1.4 KiB
Plaintext
93 lines
1.4 KiB
Plaintext
# #!/usr/bin/tclsh
|
|
snippet #!
|
|
#!/usr/bin/tclsh
|
|
|
|
# Process
|
|
snippet pro
|
|
proc ${1:function_name} {${2:args}} {
|
|
${3:#body ...}
|
|
}
|
|
#xif
|
|
snippet xif
|
|
${1:expr}? ${2:true} : ${3:false}
|
|
# Conditional
|
|
snippet if
|
|
if {${1}} {
|
|
${2:# body...}
|
|
}
|
|
# Conditional if..else
|
|
snippet ife
|
|
if {${1}} {
|
|
${2:# body...}
|
|
} else {
|
|
${3:# else...}
|
|
}
|
|
# Conditional if..elsif..else
|
|
snippet ifee
|
|
if {${1}} {
|
|
${2:# body...}
|
|
} elseif {${3}} {
|
|
${4:# elsif...}
|
|
} else {
|
|
${5:# else...}
|
|
}
|
|
# If catch then
|
|
snippet ifc
|
|
if { [catch {${1:#do something...}} ${2:err}] } {
|
|
${3:# handle failure...}
|
|
}
|
|
# Catch
|
|
snippet catch
|
|
catch {${1}} ${2:err} ${3:options}
|
|
# While Loop
|
|
snippet wh
|
|
while {${1}} {
|
|
${2:# body...}
|
|
}
|
|
# For Loop
|
|
snippet for
|
|
for {set ${2:var} 0} {$$2 < ${1:count}} {${3:incr} $2} {
|
|
${4:# body...}
|
|
}
|
|
# Foreach Loop
|
|
snippet fore
|
|
foreach ${1:x} {${2:#list}} {
|
|
${3:# body...}
|
|
}
|
|
# after ms script...
|
|
snippet af
|
|
after ${1:ms} ${2:#do something}
|
|
# after cancel id
|
|
snippet afc
|
|
after cancel ${1:id or script}
|
|
# after idle
|
|
snippet afi
|
|
after idle ${1:script}
|
|
# after info id
|
|
snippet afin
|
|
after info ${1:id}
|
|
# Expr
|
|
snippet exp
|
|
expr {${1:#expression here}}
|
|
# Switch
|
|
snippet sw
|
|
switch ${1:var} {
|
|
${3:pattern 1} {
|
|
${4:#do something}
|
|
}
|
|
default {
|
|
${2:#do something}
|
|
}
|
|
}
|
|
# Case
|
|
snippet ca
|
|
${1:pattern} {
|
|
${2:#do something}
|
|
}${3}
|
|
# Namespace eval
|
|
snippet ns
|
|
namespace eval ${1:path} {${2:#script...}}
|
|
# Namespace current
|
|
snippet nsc
|
|
namespace current
|