utimers returns nothing?

[desired]

utimers when called with .tcl partyline it shows a list with all utimers.

But when I call utimers from another proc which gets invoked by a bind it returns always nothing. Even when there are still utimers (which I see, I tested to type .tcl utimers on partyline again).

Why is that?

I also testet set utimers [uplevel #0 { utimers }], still didn't work.

How can I get them?

[willyw]

Can you post your script so we can see it?

[willyw]

...
I also testet set utimers [uplevel #0 { utimers }], still didn't work.
...

Have you tried it with square brackets?
i.e. [utimers]

[nml375]

desired,
this sounds like a bug to me. However, I am not able to reproduce it myself. What kind of binding did you use?

As for uplevel, the context of where utimers is invoked should not matter, as timers are always stored and accessed on a global scope.

willyw,
For that piece of code to work as expected, one should NOT use square brackets. The idea is for the code block to be evaluated at a different context than the current - which is why we do not want any command substitutions done in the current context.

[willyw]

...
For that piece of code to work as expected, one should NOT use square brackets.
...

Ok.

[desired]

Thanks for all your help.

Ok, I was able to reproduce it. Here is a script which I wrote to show you the error. It has been tested and hopefully I did not mess up and you can reproduce it.

Code: Select all

proc isutimer_ { id } {
	foreach utimer [utimers] {
		set isid [lindex $utimer 2]
		if { $id == $isid } {
			return 1
		}
	}
	return 0
}

bind dcc nm|- test test_dcc

proc test_dcc { args } {
	putlog "test_dcc::: utimers: [utimers]"
	putlog "test_dcc::: isutimer $::re_utimer: [isutimer_ $::re_utimer]"
	utimer 1 [list test_dcc_show]
}

proc test_dcc_show { } {
	putlog "test_dcc_show::: utimers: [utimers]"
	putlog "test_dcc_show::: isutimer $::re_utimer: [isutimer_ $::re_utimer]"
}

proc test_re { } {
	putlog "test_re ..."
	set ::re_utimer [utimer 10 [list test_re]]
}

if { ! [info exists ::re_started] } {
	set ::re_started 1
	test_re
}

Results:
test_dcc will show everything correctly but test_dcc_how will not know anything about utimers anymore...

[nml375]

Unfortunately, that code will not cause the described behavior on a 1.6.21 eggdrop I just tested it on.

[desired]

EDIT:
I am on 1.8.

[speechles]

I am on 1.9.

Really??!
Did you miss the memo??!

1.9 is dead. Has a fork sticking out of it. Why are you using it?

Try 1.6.21 or 1.8 .. These at least are still in development.

[desired]

I mean 1.8. Sorry!

(used this: http://www.eggheads.org/devel/)