1
2
3
4
5
6
7
8
9
grid [canvas .c -width 200 -height 200]
 set halfpi 1.570796
 set piover6 0.5235987
 set twopi 6.283185
 
 .c create oval 2 2 198 198 -fill white -outline black
 for { set h 1 } { $h <= 12 } { incr h } {
    set angle [expr { $halfpi - $piover6 * $h }]
    set x [expr { 100 + 90 * cos($angle) }]
 ...

1
2
3
4
5
6
set a 1;
set b 2;
 
puts $a;
set c=[$a+$b];
puts c;

1
2
3
4
5
6
set a 1;
set b 2;
 
puts $a;
set c=[a+$b];
puts c;

1
2
3
4
5
set a 1;
set b 2;
 
puts $a;
puts [a+$b];

1
2
3
4
set a 1;
set b 2;
 
puts $a;

1
2
3
4
set a 1;
set b 2;
set $a;
puts(a);

1
2
3
4
set a 1;
set b 2;
set $a;
puts("a");

1
2
3
4
set a 1;
set b 2;
set $a;
puts("$a");

1
2
3
4
set a 1;
set b 2;
set c $b;
set d $a;

1
2
3
4
5
6
7
8
9
set ns [namespace current]
        ${ns}::set normalCode 0
        ${ns}::set abortCode 6
        ${ns}::set datetime [clock seconds]
                ${ns}::set buffersize [expr 1024 * 1000]
puts $ns
puts $normalCode
puts $abortCode
puts $datetime

1
2
3
4
5
6
set ns [namespace current]
        ${ns}::set normalCode 0
        ${ns}::set abortCode 6
        ${ns}::set datetime [clock seconds]
                ${ns}::set buffersize [expr 1024 * 1000]
puts $ns

1
2
3
4
5
6
7
set ns [namespace current]
        ${ns}::set normalCode 0
        ${ns}::set abortCode 6
        ${ns}::set datetime [clock seconds]
        ${ns}::set year [clock format [${ns}::get datetime] -format "%Y"]
        ${ns}::set buffersize [expr 1024 * 1000]
puts $ns

1
2
3
4
5
6
7
set ns [namespace current]
        ${ns}::set normalCode 0
        ${ns}::set abortCode 6
        ${ns}::set datetime [clock seconds]
        ${ns}::set year [clock format [${ns}::Get datetime] -format "%Y"]
        ${ns}::set buffersize [expr 1024 * 1000]
puts $ns

1
2
3
4
5
6
7
8
9
proc rswitch {value body} {
  set go 0
  foreach {cond script} $body {
     if {[regexp {(.+)\.\.(.+)} $cond -> from to]} {
          if {$value >= $from && $value <= $to} {incr go}
     } else {
         if {$value == $cond} {incr go}
     }
     if {$go && $script ne "-"} { #(2)
 ...

1
2
3
4
5
6
7
8
9
v################################################
v################################################
>###8995*\9-13\##>-p55:2**3$#!+59*:!3$9$$2+2p6v##
v############################################$<##
v##########################?#####################
1################################################
4#####?##########>v##############################
8##########>##v##$ ##############################
*###########>v#########################v-<#######
 ...

1
2
3
4
5
6
7
8
9
Er ist’s 
        
                   
        
        Frühling läßt sein blaues Band       
        
        wieder flattern durch die Lüfte;               
        
        süße, wohlbekannte Düfte     
 ...

1
2
3
4
5
6
7
8
9
class Foo {
  public variable x 0 {
  puts "original implementation"
       }
      }
 
    configbody Foo::x {
        puts "redefined"
    }

1
2
3
4
5
6
7
8
9
class Foo {
        public variable x 0 {
            puts "original implementation"
        }
    }
 
    configbody Foo::x {
        puts "redefined"
    }

1
2
puts   [clock clicks]
 

1
2
3
4
5
set message "|||||aa|bb"
if [catch {exec echo $message >> abc.txt} message] {
     puts "ERROR: $message"
   
}

1
2
3
4
5
set message "|||||aa|bb"
if [catch {exec echo $message >> abc.txt} message] {
     puts "ERROR: $message"
   
}

1
2
3
4
5
set message {|||||aa|bb}
if [catch {exec echo $message >> abc.txt} message] {
     puts "ERROR: $message"
   
}

1
exec echo ^||| >>abc.txt

1
exec echo ^|||

1
exec echo ^||

1
echo ^||

1
exec echo "^|||"

1
exec echo ^|||

1
exec echo \||||

1
exec echo "||"