[tcltk-perl] Code for Tcl mainloop routines

[Stephane C. <ch...@in...>]

My colleagues and I needed a good customisable mainloop that is usable fr=
om=20
both Perl and C, and we found that the Tcl mainloop serves our needs. But=
=20
perl-tcl did not provide access to the necessary functions.

Consequently, after talking with Vadim, I added a few routines to Tcl.xs,=
 with=20
the corresponding documentation in Tcl.pm and a test named t/mainloop.t. =
The=20
routines provided are DoOneEvent, CreateChannelHandler, DeleteChannelHand=
ler,=20
MakeFileHandler, CreateTimerHandler and DeleteTimerHandler.

From that point, I have a proposal and a question:

- the proposal: IntuiLab is willing to share that code under the same lic=
ense=20
terms as perl-Tcl. I have prepared a patch based on Tcl-0.87 that I can s=
end=20
upon request.

- the question: our next step was to integrate perl-Tk with that mainloop=
=20
(yes, I know. But our code relies on perl-Tk and we can't change that eas=
ily).=20
And we discovered that perl-Tk and Tcl *cannot* be used at the same time:=
 they=20
implement functions with the same name that do different things. Conseque=
ntly,=20
we have had to build our own versions of Tcl and perl-Tcl with all identi=
fiers=20
changed :-( Any suggestion for a better solution? We are willing to share=
 the=20
bridge code (implemented as a Tcl notifier), but in the present circumsta=
nces=20
it is pretty useless to anyone outside us.

Cheers,

St=E9phane