tcltk-perl

RE: [tcltk-perl] packaging Tcl::Tk and Tcl/Tk files within Perl installation

[Konovalov, V. <vko...@sp...>]

......

> >  - after Tcl, Tk, trf, memchan, vfs built, they could be linked with
> >    Tcl.xs we get single Tcl.dll, (otherwise Perl's Tcl.dll calls
> >    Tcl/Tk's tcl84.dll and tk84.dll)
> >  - "tcl-scripts.zip" created during build
> >  - all related *.tcl scripts being used from 
> "tcl-scripts.zip" archive
> >    directly using Tcl's vfs::zip vrtual FS.
> 
> This is interesting.  We (ActiveState) have done something
> similar for our own purposes.  We did this by basing the

I did not finalized my initial idea at previous weekend, unfortunately, as I
was stuck in helping friends with their hardware problems.
However I am planning to finalize it really soon.
I will name modules as Tcl-packaged and Tcl-zpackaged, if no better name
will be suggested ot come into my mind.

It would be highly beneficial for fully feature-enabled module to be placed
in 4-5 library files and zip-archived file with scripts...

> work on starpacks as dlls.  You will see some of the code
> that I commited to Tcl.xs to support this.

That's very good, and few questions though.

Your code mostly refers to __hpux, which I am not familiar.

Did I understood correctly that "sl" in  "libtcl8.4.sl" stands for "starpack
library"?

Why only __hpux then, why not any linux system also involved?

Best regards,
Vadim.

RE: [tcltk-perl] packaging Tcl::Tk and Tcl/Tk files within Perl installation

[Konovalov, V. <vko...@sp...>]

> > > Did I understood correctly that "sl" in "libtcl8.4.sl" stands for 
> > > "starpack library"?
> > 
> > No, it stands for "shared library".  It is the HP-UX 
> > equivalent of a .so or .dll.

indeed.

> 
> To follow up on this, the code for handling the starpack as
> dll has nothing to do with the recent HP-UX support commits
> (those are purely for HP-UX).  The code has been in the CVS
> for a while now.  If you compile with -DUSE_TCL_STUBS (which
> should probably be the default), then when it loads the Tcl
> library, we make 2 extra sym checks for TclKit_AppInit, which
> would replace Tcl_Init on the interp, and TclKit_SetKitPath.
> These are used to indicate the shared library is the starkit
> source, and all is contained within it.

Yes, I noticed that some time ago.
I understood general idea with stubs, also I noticed TclKit_AppInit.
As I understood, all those are in line with general Tcl TEA.
I find those changes very useful, but I did not used -DUSE_TCL_STUBS yet.

Best regards,
Vadim.

RE: [tcltk-perl] packaging Tcl::Tk and Tcl/Tk files within Perl installation

[Jan D. <ja...@Ac...>]

On Sun, 14 Nov 2004, Konovalov, Vadim wrote:
> Your code mostly refers to __hpux, which I am not familiar.
>
> Did I understood correctly that "sl" in "libtcl8.4.sl" stands for
> "starpack library"?

No, it stands for "shared library".  It is the HP-UX equivalent of
a .so or .dll.

> Why only __hpux then, why not any linux system also involved?

Older versions of HP-UX don't have dlopen() support and the emulation of
dlopen() inside DynaLoader is not easily accessible from XS code.

Cheers,
-Jan

RE: [tcltk-perl] packaging Tcl::Tk and Tcl/Tk files within Perl installation

[Jeff H. <je...@Ac...>]

Jan Dubois wrote:
> On Sun, 14 Nov 2004, Konovalov, Vadim wrote:
> > Your code mostly refers to __hpux, which I am not familiar.
> >
> > Did I understood correctly that "sl" in "libtcl8.4.sl" stands for 
> > "starpack library"?
> 
> No, it stands for "shared library".  It is the HP-UX 
> equivalent of a .so or .dll.

To follow up on this, the code for handling the starpack as
dll has nothing to do with the recent HP-UX support commits
(those are purely for HP-UX).  The code has been in the CVS
for a while now.  If you compile with -DUSE_TCL_STUBS (which
should probably be the default), then when it loads the Tcl
library, we make 2 extra sym checks for TclKit_AppInit, which
would replace Tcl_Init on the interp, and TclKit_SetKitPath.
These are used to indicate the shared library is the starkit
source, and all is contained within it.

Jeff