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"