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.
22 lines
437 B
22 lines
437 B
2 years ago
|
|
||
|
|
#source this file..
|
||
|
|
# get value is a list with a refcount of 4 .. no string representation
|
||
|
|
interp alias "" rep "" tcl::unsupported::representation
|
||
|
|
set j [list a];list
|
||
|
|
rep $j
|
||
|
|
set command {set j [list a];list}
|
||
|
|
uplevel #0 $command\n
|
||
|
|
rep $j
|
||
|
|
set j [list a];list
|
||
|
|
rep $j
|
||
|
|
|
||
|
|
#then type following line in shell:
|
||
|
|
#$rep j
|
||
|
|
|
||
|
|
#value is a list with a refcount of 3 string representation "a"
|
||
|
|
|
||
|
|
|
||
|
|
set x [rep $j];list
|
||
|
|
puts stdout $x
|
||
|
|
|