Tcl Source Code

Artifact 212a52589584dc83d70e7e609fa7b3adce1c22d1:

Attachment "interp.tcl" to ticket [1626518fff] added by pcmacdon 2007-01-03 06:03:06.

---

namespace eval bar {

   proc flag {n} {
     return $n
   }
}


interp alias {} localias {} bar::flag

set i [interp create]
$i eval { namespace eval bar {} }
$i alias bar::flag bar::flag
$i eval {
   bar::flag 99
}
bar::flag 99
localias 99
puts "TCL='$tcl_patchLevel'"
puts "PROC      : [time {bar::flag 99} 1000]"
puts "LOCALALIAS: [time {localias 99} 1000]"
$i eval {
puts "SUBINTERP : [time {bar::flag 99} 1000]"
}