egghelp/eggheads community

Two questions: namespaces and arrays

2010-11-16T17:52:26-04:00

Thanks a lot nml375.

Concerning my "array trouble", have you any alternative idea to solve my trouble ? Using dict seems peharps the solution ?

Statistics: Posted by CrazyCat — Tue Nov 16, 2010 5:52 pm

Two questions: namespaces and arrays

2010-11-16T15:16:35-04:00

First part:
I'd just use the variable command in a similar manner to the global command:

Code:

namespace eval wowa {  variable wchans "test"  variable chars  proc init { args } {    variable wchans    variable chars    set chars $wchans  }}

As for the second part, I'm having a hard time following what you intend to achieve, and what the actual/expected results are. However, I do notice that you try to use multi-dimensional arrays. This is not supported by tcl, which will flatten the array index to whatever is between the outer (). Thus, array size ::wowa::chars([lindex $char 0]) will not produce the result you expect, but most likely always 0.

Statistics: Posted by nml375 — Tue Nov 16, 2010 3:16 pm

Two questions: namespaces and arrays

2010-11-16T08:04:34-04:00

Hello there,
I've two small questions, I hope you can help me:

First, not really important
I've a code like this

Code:

namespace eval wowa {   variable wchans "test"   variable chars   proc init { args } {      set [namespace current]::chars $::wowa::wchans   }}

Is there a way to replace $::wowa::wchans by an expression as ${[namespace current]}::wchans ?

Second question, about arrays (in a namespace)
I'm trying to get a structure of datas like:
chars(me)(0) { "item1" "bla" "item2" "bee" }
chars(me)(1) { "item1" "bla" "item2" "bee" }
chars(him)(0) { "item1" "bla" "item2" "bee" }
chars(him)(1) { "item1" "bla" "item2" "bee" }

So, I've created this small proc:

Code:

foreach line [split $wdata "\n"] {   set char [split $line "|"]   if { [array exists [namespace current]::chars([lindex $char 0])]} {      putlog "Info exists"      set val [array size [namespace current]::chars([lindex $char 0])]      putlog "Setted"   } else {      set val 0   }   putlog "Val is $val"   set  [namespace current]::chars([lindex $char 0])($val)(nick) [lindex $char 1]   putlog "Setted: $::wowa::chars([lindex $char 0])($val)(item1)"   set [namespace current]::chars([lindex $char 0])($val)(item2) [lindex $char 2]   putlog "Gives: [array size [namespace current]::chars([lindex $char 0])]"}

Statistics: Posted by CrazyCat — Tue Nov 16, 2010 8:04 am