[CMcC] 20050301 - [jyl] was trying to track down what seemed to be a leak in a tcl program, which reminded me of a component of [tclhttpd] which tries to measure the size of variables and procs in an interpreter.

I've packaged that up here, may it be of use.

 namespace eval tclsize {}
 
 # DataSize --
 #
 #	return the data size for the interpreter or for a particular namespace.
 #
 # Arguments:
 #	ns	(optional) if given, show the data size for this namespace
 #
 # Results:
 #	Returns {size namecount varcount}
 proc tclsize::DataSize {{ns "::"} {interp ""}} {
     set ng 0
     set nv 0
     set size 0
 
     foreach g [interp eval $interp info vars ${ns}::*] {
 	incr ng
 	if {[interp eval $interp array exists $g]} {
 	    foreach {name value} [interp eval $interp array get $g] {
 		incr size [string length $name]
 		incr size [string length $value]
 		incr nv
 	    }
 	} elseif {[interp eval $interp info exists $g]} {
 	    # info vars returns declared but undefined namespace vars
 	    incr size [string length $g]
 	    incr size [string length [interp eval $interp set $g]]
 	}
 	incr nv
     }
 
     foreach child [namespace children $ns] {
 	foreach {csize cnv cng} [DataSize $child $interp] break
 	incr size $csize
 	incr nv $cnv
 	incr ng $cng
     }
     
     return [list $size $nv $ng]
 }
 
 # CodeSize --
 #
 #	return the code size for the interpreter or for a particular namespace.
 #
 # Arguments:
 #	ns	(optional) if given, show the code size for this namespace
 #
 # Results:
 #	Returns {size proc_count}
 
 proc tclsize::CodeSize {{ns ::} {interp ""}} {
     set np 0
     set size 0
 
     foreach g [interp eval $interp info procs ${ns}::*] {
 	incr np
 	incr size [string length $g]
 	incr size [string length [interp eval $interp info args $g]]
 	incr size [string length [interp eval $interp info body $g]]
     }
     
     foreach child [interp eval $interp namespace children $ns] {
 	foreach {csize cnp} [CodeSize $child $interp] break
 	incr size $csize
 	incr np $cnp
     }
     
     return [list $size $np]
 }
 
 # InterpSize --
 #
 #	return the data and code size for an interpreter
 #
 # Arguments:
 #	ns	(optional) if given, show the data size for this namespace
 #
 # Results:
 #	Returns {total datasize namecount varcount codesize proccount}
 proc tclsize::InterpSize {{interp ""} {recurse 1}} {
     foreach {data names vars} [DataSize] break
     foreach {code procs} [CodeSize] break
 
     if {$recurse} {
 	foreach child [interp slaves $interp] {
 	    foreach {cdata cnames cvars} [DataSize $child] break
 	    incr data $cdata
 	    incr names $cnames
 	    incr cvars $cvars
 	    
 	    foreach {ccode cprocs} [CodeSize $child] break
 	    incr code $ccode
 	    incr procs $cprocs
 	}
     }
 
     return [list [expr {$data + $code}] $data $names $vars $code $procs]
 }
 
 if {[info script] eq $argv0} {
     foreach {total data names vars code procs} [tclsize::InterpSize] break
     puts [subst {
 	Total accounted: $total bytes.
 	Data size: $data bytes in $vars variables ($names names.)
 	Code size: $code bytes in $procs procs.
     }]
 }