... Generalized tcl examples in the sandbox. author . ... line diff . 1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/ sandbox /common.tcl Thu Jun 10 14:24:08 2010 +0400 1.3 @@ -0,0 +1,45 @@ 1.4 +proc generate_ lines {} { 1.5 + global lines 1.6 + 1.7 + set f [open /dev/urandom ] 1.8 + 1.9 + proc rand {class} { 1.10 + global f 1.11 + while {1} { 1.12 + set c [read $f 1] 1.13 + if {[string is $class $c]} { return $c } 1.14 + } 1.15 + } 1.16 + 1.17 + set lines {} 1.18 + for { ...