[tcltk-perl] Re: Access to Tcl main loop in Perl

[vadim <va...@vk...>]

> my question is purely about Tcl and not about Tk, that's why I'm writing to 
> you directly instead of using the tcltk list.

Still, writing to tcltk developers list is good idea, and may be asking
your question on pure-tcl lists will also be good.

> In our project we need a main loop and we have found that the Tcl main loop 
> is fine for us. However, whereas calling all the main loop routines 
> (Tcl_DoOneEvent, Tcl_CreateChannelHandler and the likes) is easy in C++, it 
> demands a special library in Perl.

...

> However, to my understanding the module just provides access to 
> Tcl_DoOneEvent, and not to the other main loop functions. Can you confirm 
> that? Is there any particular reason for that?

Probably other functions were not required earlier. Adding other
function to Tcl.xs is possible.

In most cases, when required library function is accessible from Tcl,
you can do $int->Eval("Tcl code to access").

>  Do you have ideas in mind 
> about how to access the main loop?

I have no deep knowledge of Tcl internals, but if you follow Tcl
documentation closely, things should work perfectly.

>  I am asking because I have started making 
> additions to Tcl.xs for that, and I'd like to make sure that it is a good 
> approach before going further.

Any additions that improve code are welcomed! Share your ideas in more
details, and probably other developers will help. 


Best regards,
Vadim.