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.
45 lines
545 B
45 lines
545 B
2 years ago
|
|
||
|
|
set data1 d1
|
||
|
|
set data2 [list a b c]
|
||
|
|
|
||
|
|
x.=list "
|
||
|
|
item1
|
||
|
|
[list $data1]
|
||
|
|
[list $data2]
|
||
|
|
[pwd]
|
||
|
|
"
|
||
|
|
puts stdout "4 element list built with x.=list \" (multiline) \" syntax"
|
||
|
|
puts stdout $x
|
||
|
|
|
||
|
|
|
||
|
|
x.=list "
|
||
|
|
{[set x aaa]}
|
||
|
|
{$x}
|
||
|
|
blah
|
||
|
|
"
|
||
|
|
puts stdout "strange but possibly useful"
|
||
|
|
puts stdout $x
|
||
|
|
|
||
|
|
puts stdout "building a dict"
|
||
|
|
|
||
|
|
d@0="list "
|
||
|
|
k1
|
||
|
|
{[pwd]}
|
||
|
|
k2
|
||
|
|
{[info patchlevel]}
|
||
|
|
|
||
|
|
k3
|
||
|
|
{something}
|
||
|
|
"
|
||
|
|
puts stdout "dict: $d"
|
||
|
|
|
||
|
|
puts stdout "comment test"
|
||
|
|
x="# "
|
||
|
|
testing
|
||
|
|
comments
|
||
|
|
here
|
||
|
|
"
|
||
|
|
puts stdout "x:$x"
|
||
|
|
|
||
|
|
puts stdout -done-
|