Posted to tcl by aspect at Mon Sep 30 11:02:02 GMT 2019view pretty
namespace eval myNum { set num "0" proc myNum {} { variable num for {set i 0} {$i < 10} {incr i} { if {[info exists num]} { set num [expr 1 + $num] } else { set num 1 } } puts $num } namespace export myNum } namespace import myNum::* myNum puts "num exists? [info exists num]" puts "But it does exist as $myNum::num"