Posted to tcl by hypnotoad at Mon Dec 08 21:07:58 GMT 2014view pretty

root@blade:/opt/odie/sandbox/odie/src/odielib# valgrind /opt/odie/bin/tclsh8.6 clevel-logicset.tcl 
==6572== Memcheck, a memory error detector
==6572== Copyright (C) 2002-2011, and GNU GPL'd, by Julian Seward et al.
==6572== Using Valgrind-3.7.0 and LibVEX; rerun with -h for copyright info
==6572== Command: /opt/odie/bin/tclsh8.6 clevel-logicset.tcl
==6572== 

{foo 1 b 2 xf 24a a} {1 2 24a a b foo xf}
done
a
a b
Adding value to known
Adding value to unknown
Adding null to known
Adding null to empty
Adding null to unknown
a b c d e k y z
{logicset empty {}} 1
{logicset empty $result} 0
{logicset contains $result c} 1
{logicset contains $result c d} 1
{logicset contains $result c d m} 0
{logicset contains $result} 1
{logicset contains $result k} 1
{logicset remove result c} {a b d e k y z}
{logicset add result a b c d e f g} {a b c d e f g k y z}
{logicset remove result a b f e a} {c d g k y z}
c d g k y z
==6572== 
==6572== HEAP SUMMARY:
==6572==     in use at exit: 1,520,279 bytes in 75 blocks
==6572==   total heap usage: 195 allocs, 120 frees, 1,869,118 bytes allocated
==6572== 
==6572== LEAK SUMMARY:
==6572==    definitely lost: 0 bytes in 0 blocks
==6572==    indirectly lost: 0 bytes in 0 blocks
==6572==      possibly lost: 1,502,216 bytes in 52 blocks
==6572==    still reachable: 18,063 bytes in 23 blocks
==6572==         suppressed: 0 bytes in 0 blocks
==6572== Rerun with --leak-check=full to see details of leaked memory
==6572== 
==6572== For counts of detected and suppressed errors, rerun with: -v
==6572== ERROR SUMMARY: 0 errors from 0 contexts (suppressed: 35 from 10)
root@blade:/opt/odie/sandbox/odie/src/odielib#