egghelp/eggheads community

i really need ur help... tcl list

2008-07-31T18:28:43-04:00

Code:

while {[string match \{*\} $mbxmsg] && [llength $mbxmsg]==1} {set list [lindex $mbxmsg 0]}return [list $mbxmsg]

It appears this part uses a while (why not an if?) to check to see if there are curly braces in the string, then checks the llength against a string?! which basically returns the 1 so of course =='s it. Then it sets the lindex to 0 to remove the curly bracings? Did it assume it was a list incorrectly? But wait, lower down it returns a list of one element consisting of the contents of $mbxmsg. This is an obvious horribly written kludge to turn a string into a list.

Code:

set a [lindex $mbxmsg 0]set b [llength $mbxmsg]

Then lower down we have this code which treats it as list? then the rest of it makes no sense to me. And really none of the above does either, I can just tell why it was written. As nml375 said, to get more help you have to show more code. What is posted goes all over the place and leaves too much out.

Statistics: Posted by speechles — Thu Jul 31, 2008 6:28 pm

i really need ur help... tcl list

2008-07-31T14:19:50-04:00

First off, you'll have to explain what you wish to achieve...
Do you simply wish to dump the lists to stdout? If so, the code posted will do just that.
If you wish to do something more, explain it, because I have no clue what further processing you'd like to do...

Statistics: Posted by nml375 — Thu Jul 31, 2008 2:19 pm

i still not get it

2008-07-31T12:19:44-04:00

yes im using DMH Mailbox messaging... so what shud i do to perform the code that u gave it to me juz now?

Statistics: Posted by myWorldTCL — Thu Jul 31, 2008 12:19 pm

i really need ur help... tcl list

2008-07-31T11:13:17-04:00

I find it very hard to figure out what the "real thing" would be. The code you posted is not only confusing, but riddled with bugs. All I've gathered is that you are trying to use "DMH Mailbox messaging"?

First off, you have a while-loop that will run as long as $a (the first list item of the recieved message) is smaller than $b, which is increased for each iteration of the loop. Hence you have a possible infinite loop.

Next, you use linsert with $a as list, and $b as index, yet you fail to supply an entity to add, causing a fatal error.

Finally, assuming those two items were fixed, you'd still end up writing the same line over and over, or possibly with added content for each iteration of the loop.

If you are working with a tcl-shell (tclsh or similar), use something like this to simply print the contents of the list:

Code:

foreach sublist $mbxmsg {  puts $sublist}

(With eggdrop, you'd simply replace puts with putlog to send the output to the log, or puthelp to build a command to send to the irc-server...)

Statistics: Posted by nml375 — Thu Jul 31, 2008 11:13 am

i still not get it

2008-07-31T10:32:14-04:00

can u show me the real thing?

Statistics: Posted by myWorldTCL — Thu Jul 31, 2008 10:32 am

Re: i want to display both of list

2008-07-31T10:18:17-04:00

Sorry for the delay... we had a power failure at work.

Code:

foreach sublist $listOfLists {# do something to $sublist}

...and you probably want to replace 'puts' with 'putlog' if you're running this script in an eggdrop.

Statistics: Posted by user — Thu Jul 31, 2008 10:18 am

i want to display both of list

2008-07-31T10:06:09-04:00

regarding to my question, i want to display both of list: {{1 2 3} {4 5 6}}
the coding is same as above... i have post before this.. then i execute the source file... and execute both of list {{1 2 3} {4 5 6}}, but there has no result display for both of list....

my question is, how to display more than one list??? let say if i execute three list like this: {{1 2 3} {4 5 6} {7 8 9}}?? maybe you can help me to correct my coding... im new of using this tcl..

Statistics: Posted by myWorldTCL — Thu Jul 31, 2008 10:06 am

i really need ur help... tcl list

2008-07-31T05:48:19-04:00

There's no need to double-post.
'return' returns (the lines below are never executed) ...also, your code doesn't make much sense to me. It would be easier to help you if you explain exactly what you are trying to do.

Statistics: Posted by user — Thu Jul 31, 2008 5:48 am

i really need ur help... tcl list

2008-07-31T05:24:46-04:00

i run this code in dmh console...

Code:

while {[string match \{*\} $mbxmsg] && [llength $mbxmsg]==1} {set list [lindex $mbxmsg 0]}return [list $mbxmsg]set a [lindex $mbxmsg 0]set b [llength $mbxmsg]while {$a < $b} {set x [linsert $a $b]puts "[localtime 9], $x"incr b mbx whenmsg again }

then insert the list {{1 2 3} {4 5 6}}.. there has no output display.. whats the problem???

Statistics: Posted by myWorldTCL — Thu Jul 31, 2008 5:24 am