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". It will ship with a stardll that has Tcl/Tk plus several
interesting extensions for Perl-Tcl/Tk users to take advantage of.
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.
