Tcl Source Code

Artifact 856019412ecbef025b89cc8888c06cc69384c2d3:

Attachment "safeinterp.tcl" to ticket [2930115fff] added by cwjolly 2010-01-12 04:39:16.

---

set main_interp [lsort [info commands ]]
# create interp
interp create -safe -- slave

set slave_interp [slave eval {lsort [info commands ] } ]

foreach cmd $main_interp { 
    if { $cmd ni $slave_interp } {
	puts "Slave interp does not have: $cmd"
    }
}