Posted to tcl by evilotto at Sat Feb 04 00:31:37 GMT 2017view raw

  1. $ cat /tmp/x.tcl
  2. puts [tcl::unsupported::representation {foo}]
  3. puts [tcl::unsupported::representation {foo}]
  4. puts [tcl::unsupported::representation {foo}]
  5. puts [tcl::unsupported::representation {foo}]
  6. $ tclsh /tmp/x.tcl
  7. value is a pure string with a refcount of 1, object pointer at 0x1c9f6c0, string representation "foo"
  8. value is a pure string with a refcount of 1, object pointer at 0x1ca0080, string representation "foo"
  9. value is a pure string with a refcount of 1, object pointer at 0x1c9f6c0, string representation "foo"
  10. value is a pure string with a refcount of 1, object pointer at 0x1ca0080, string representation "foo"
  11. $ tclsh < /tmp/x.tcl
  12. value is a pure string with a refcount of 3, object pointer at 0xcca690, string representation "foo"
  13. value is a pure string with a refcount of 4, object pointer at 0xcca690, string representation "foo"
  14. value is a pure string with a refcount of 5, object pointer at 0xcca690, string representation "foo"
  15. value is a pure string with a refcount of 6, object pointer at 0xcca690, string representation "foo"
  16.