1
2
3
4
5
6
7
set a 2
 
for {set val 0} {val <10} {incr val} {
set nn [a$**$val]
puts $nn
 
}

1
2
3
4
5
6
7
set a 2
 
fore {set val 0} {val <10} {incr val} {
set nn [a$**$val]
puts $nn
 
}

1
2
3
4
5
6
7
set a 2
 
foreach val [0-10] {
set nn [a$**$val]
puts $nn
incr val
}

1
2
3
4
set a 1
set aa${a}_b 10
puts "$a"
puts "$aa1_b"

1
2
3
4
set a 1
set aa{${a}}_b 10
puts "$a"
puts "$aa1_b"

1
2
3
4
set a 1
set aa$a._b 10
puts "$a"
puts "$aa1_b"

1
2
3
4
set a 1
set aa$a_b 10
puts "$a"
puts "$aa1_b"

1
2
3
4
set a 1
set aa{$a}_b 10
puts "$a"
puts "$aa1_b"

1
2
3
4
set a 1
set aa$a 10
puts "$a"
puts "$aa1"

1
2
3
4
set a 1
set aa($a) 10
puts "$a"
puts "$aa(1)"

1
2
3
4
set a 1
set aa($a) 10
puts "$a"
puts "$aa"

1
2
3
set a 1
set aa($a) 10
puts "$a"

1
2
3
set a 1
set aa($a) 10
echo "va; $a"

1
2
3
4
set a 1
set aa($a) 10
echo "$a"
echo "$aa"

1
2
3
4
set elemName "msg"
set anAry($elemName) "Hello, World!"
 
echo "$anAry(msg)"

1
2
3
4
set elemName "msg"
set anAry($elemName) "Hello, World!"
 
echo "$anAry"

1
2
set elemName "msg"
set anAry($elemName) "Hello, World!"

1
2
3
4
5
6
7
8
9
proc parsedict {args} {
 
if {[catch {dict size $args} result]} {
    puts "err $result"
} else {
    puts "size=$result"
    set n 0
    foreach key [dict keys $args] {
        puts key$n=$key
 ...

1
2
3
4
5
6
7
8
9
proc parsedict {args} {
set d [join $args]
if {[catch {dict size $d} result]} {
    puts "err $result"
} else {
    puts "size=$result"
    set n 0
    foreach key [dict keys $d] {
        puts key$n=$key
 ...

1
2
3
4
5
6
7
8
9
proc parsedict {argv} {
#set d [join $argv]
if {[catch {dict size {*}$argv} result]} {
    puts "err $result"
} else {
    puts "size=$result"
    set n 0
    foreach key [dict keys {*}$argv] {
        puts key$n=$key
 ...

1
2
3
4
5
6
7
8
9
#!/bin/env tclsh
 
#set d [join $argv]
if {[catch {dict size {*}$argv} result]} {
    puts "err $result"
} else {
    puts "size=$result"
    set n 0
    foreach key [dict keys {*}$argv] {
 ...

1
puts [list a b c]

1
 

1
puts hello

1
2
3
4
5
6
7
8
9
 
# TCL FTW
 
set x WAT; set y WAT???; puts "$x $y"; # Basic syntax.
 
set # no comment...
set    
set :) :(
set (O_o),|..   -_-
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...