Jeff Hobbs wrote: > Hi Vadim, > > I have nothing in particular against this patch, but I think that we > are working on something similar in ActivePerl that will be available > "real soon now".
Good; that change is quite neutral. BTW if you're interesting I'll demonstrate my entire approach tomorrow, when I'll be in the office. > It will ship with a stardll that has Tcl/Tk plus several interesting > extensions for Perl-Tcl/Tk users to take advantage of. I remember stardll was mentioned, and I beleive it will be convenient to use. BTW will it allow to "hide"/pack some perl modules (.pm files) into stardll? Is my understanding correct, that TCL will see its stardll-files within "vfs" but placing Perl files inside it quite useless? > > Regards, > > Jeff > > Konovalov, Vadim Vladimirovich (Vadim)** CTR ** wrote: > >> Dear all, >> >> I hope no-one will be against following addition, which will go into >> CVS soon: >> >> --- Tcl.xs.orig 2006-05-23 13:31:19.000000000 +0400 >> +++ Tcl.xs 2006-07-14 20:01:05.273768000 +0400 >> @@ -1315,6 +1315,46 @@ >> Tcl_CreateObjCommand(interp, "::perl::Eval", Tcl_EvalInPerl, >> (ClientData) NULL, NULL); >> >> +#ifdef HAVE_TKINIT >> + >> +void >> +Tk_Init(interp) >> + Tcl interp >> + CODE: >> + Tk_Init(interp); >> + >> +#endif >> + >> +#ifdef HAVE_MEMCHANINIT >> + >> +void >> +Memchan_Init(interp) >> + Tcl interp >> + CODE: >> + Memchan_Init(interp); >> + >> +#endif >> + >> +#ifdef HAVE_TRFINIT >> + >> +void >> +Trf_Init(interp) >> + Tcl interp >> + CODE: >> + Trf_Init(interp); >> + >> +#endif >> + >> +#ifdef HAVE_VFSINIT >> + >> +void >> +Vfs_Init(interp) >> + Tcl interp >> + CODE: >> + Vfs_Init(interp); >> + >> +#endif >> + >> int >> Tcl_DoOneEvent(interp, flags) >> Tcl interp >> >> This allows for any person (me, for example :) to pass parameters to >> Makefile.PL , and this allows for creating Perl+Tcl/Tk extension with >> all Tcl and Tk etc C code built into perl extension. >> >> So I have 1.6 Mbyte DLL and with a help of a little trick all TCL >> scripts inside some ZIP archive, which much easier to be PPM-ed... >> >> All helper scripts will be available soon. >> >> BR, >> Vadim. > > > > > >
