Tcl.xs 0.89 change

[Konovalov, Vadim Vladimirovich (Vadim)** CTR **]

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.