Accessing a [namespace current] variable

[CrazyCat]

Hi there,

I've a little trouble with a script I'm writing. I'm trying to do it really modular with the minimum of hardcoded things.

The code looks like (just an example):

Code: Select all

namespace eval myns {

   variable v 

   proc doit {} {
      # This works
      incr [namespace current]::v 1
   }

   proc readit {} {
      # this fails
      putlog "v is now $[namespace current]::v"
   }
}

The proc readit doesn't work, I can't figure out how to access $::myns::v using [namespace current]. All ideas are welcome

[caesar]

Code: Select all

namespace eval myns {
	variable v
	proc doit {} {
		incr [namespace current]::v
	}
	proc readit {} {
		variable v
		putlog "v is now $v"
   }
}

Or you can use upvar:

Code: Select all

namespace eval myns {
	variable v
	proc doit {} {
		incr [namespace current]::v 1
	}
	proc readit {} {
		upvar 1 [namespace current]::v v
		putlog "v is now $v"
   }
}

Btw, there's no need for the '1' in the incr line as by default it increments with one.

[SpiKe^^]

The common method using [variable] similar to [global]....

Code: Select all

    proc readit {} {   ;# common method 
       variable v
       putlog "v is now $v" 
    } 

Another method I find handy....

Code: Select all

    proc readit {} { 
       # another method
       putlog "v is now [set [namespace current]::v]" 
    } 

[CrazyCat]

Thanks guys.

I'll probably use the last method from SpiKe^^ as I'll have to use [namespace parent] sometimes.

Using upvar is a way I'd looked, but it's less flexible imho