Posted to tcl by evilotto at Sat Feb 04 00:31:37 GMT 2017view raw
- $ cat /tmp/x.tcl
- puts [tcl::unsupported::representation {foo}]
- puts [tcl::unsupported::representation {foo}]
- puts [tcl::unsupported::representation {foo}]
- puts [tcl::unsupported::representation {foo}]
- $ tclsh /tmp/x.tcl
- value is a pure string with a refcount of 1, object pointer at 0x1c9f6c0, string representation "foo"
- value is a pure string with a refcount of 1, object pointer at 0x1ca0080, string representation "foo"
- value is a pure string with a refcount of 1, object pointer at 0x1c9f6c0, string representation "foo"
- value is a pure string with a refcount of 1, object pointer at 0x1ca0080, string representation "foo"
- $ tclsh < /tmp/x.tcl
- value is a pure string with a refcount of 3, object pointer at 0xcca690, string representation "foo"
- value is a pure string with a refcount of 4, object pointer at 0xcca690, string representation "foo"
- value is a pure string with a refcount of 5, object pointer at 0xcca690, string representation "foo"
- value is a pure string with a refcount of 6, object pointer at 0xcca690, string representation "foo"