in reply to Re^5: Tcl for Strawberry Perl on Windows 64bit
in thread Tcl for Strawberry Perl on Windows 64bit

Thanks for this guidance. Made a little progress, but still could use your help. The commands you suggested worked without error.... 

C:\Tcl\lib>move tcl86.lib  original-tcl86.lib
        1 file(s) moved.

C:\Tcl\lib>gendef  C:\Tcl\bin\tcl86.dll
 * [C:\Tcl\bin\tcl86.dll] Found PE+ image

C:\Tcl\lib>dlltool --kill-at --input-def tcl86.def --output-lib tcl86.
+lib

C:\Tcl\lib>

[download]

I was able to dmake the Tcl package without error. However when I tried to test I got the following for each test (including just one to save your eyes). 

C:\STRAWB~1\cpan\build\Tcl-1.02-DZAeQs>dmake test
"C:\Strawberry\perl\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::H
+arness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib\l
+ib', 'blib\arch')" t/
*.t
t/call.t ........... Can't load 'C:\STRAWB~1\cpan\build\Tcl-1.02-DZAeQ
+s\blib\arch/auto/Tcl/Tcl.xs.dll' for module Tcl: load_file:The specif
+ied procedure could not be found at C:/Strawberry/perl/lib/DynaLoader
+.pm line 193.
  at t/call.t line 6.
Compilation failed in require at t/call.t line 6.
BEGIN failed--compilation aborted at t/call.t line 6.
t/call.t ........... Dubious, test returned 255 (wstat 65280, 0xff00)
No subtests run

[download]

In addition I was presented with the windows error message "The procedure entry point inflateGetHeader could not be located in the dynamic link library zlib1.dll"

zlib1.dll is included in c:\Tcl\bin, but without a corresponding library in c:\Tcl\lib

I ran the following code to create the symbol list from zlib1.dll, and indeed the symmbol inflateGetHeader is included in zlib1.def. I also created libzlib1.a

C:\Tcl\lib>gendef  C:\Tcl\bin\zlib1.dll
 * [C:\Tcl\bin\zlib1.dll] Found PE+ image

C:\Tcl\lib>dlltool --kill-at --input-def zlib1.def --output-lib zlib1.
+lib

C:\Tcl\lib>

[download]

I then went through dmake clean, perl Malefile.PL, dmake and dmake test again. Same result.

I also tried adding libzlib1.a as an additional library in the makefile so that the output from perl Makefile.pl is

tclsh=C:/Tcl/bin/tclsh.exe
tclConfig.sh=C:/Tcl/lib/tclConfig.sh
tcl_library=C:/Tcl/lib/tcl8.6
tcl_version=8.6
LIBS   = -LC:/Tcl/lib -ltcl86 -lzlib1
INC    = -IC:/Tcl/include
DEFINE =
Checking if your kit is complete...
Looks good
Generating a dmake-style Makefile
Writing Makefile for Tcl
Writing MYMETA.yml and MYMETA.json

[download]

I repeated the dmake and test again, but with same results. Any recommendations on my next steps?

Replies are listed 'Best First'.
Re^7: Tcl for Strawberry Perl on Windows 64bit
by syphilis (Archbishop) on Jul 24, 2015 at 00:54 UTC
    I ran the following code to create the symbol list from zlib1.dll, and indeed the symmbol inflateGetHeader is included in zlib1.def. I also created libzlib1.a

    I can only think that a different zlib1.dll (one that doesn't export that function, and is elsewhere in your PATH) has been loaded.

    Try renaming the zlib1.dll in C:/Tcl/bin to (eg) zlib1.dll_hide, and see if that makes any difference to the errors you're getting.
    If it does make a difference, then that means that the C:/Tcl/bin/zlib1.dll is probably the dll that was being loaded. But if it makes no difference, then there's probably another zlib1.dll that's being loaded.

    The import lib you subsequently created is not needed as the build (dmake) stage did not contain any code that directly referenced any zlib functions, and the Tcl dll will automatically load the zlib functions (if they're present in the zlib dll).
    If that import lib had been needed then the 'dmake' stage would have failed initially.

    Cheers,
    Rob
[reply]

      Try renaming ...

      Simply putting Tcl\bin first in %PATH% ought to suffice

[reply]
        Simply putting Tcl\bin first in %PATH% ought to suffice

        I think that would mean that everything that wants to load zlib1.dll will then load the one that's in Tcl/bin.
        What if there's something that needs to load the other (different) zlib1.dll ? It may now break - a somewhat unlikely scenario, admittedly :-)

        If you want to ensure that Tcl/bin/Tcl.dll (and nothing else) loads that C:/Tcl/bin/zlib1.dll you can:
        1) Copy C:/Tcl/bin/zlib1.dll to, say, C:/Tcl/bin/zxxxx.dll;
        2) In C:/Tcl/bin/Tcl.dll, change every occurrence of "zlib1.dll" to "zxxxx.dll". It's best to do this second step programmatically, and to keep a backup copy of the original Tcl.dll in case something goes awry.

        This hack (which I've used many times, though not with Tcl) ensures that the Tcl.dll will load zxxxx.dll instead of zlib1.dll - so it doesn't matter how many zlib1.dll files are in the path.

        However, you can't just pick *any* arbitrary name for the zlib1.dll copy - the name of the copy must contain the same number of characters as the original.
        That is, for this particular dll, the name you choose must consist of exactly 5 characters - it doesn't matter what those characters are, so long as they are valid filename characters.

        Update: I probably should give some sort of indication of the program I would use to effect this hack. This is untested: 
        use strict;
use warnings;
use File::Copy;

File::Copy::copy('Tcl.dll', 'Tcl.dll_bak') or die $!;
open my $infh, '<', 'Tcl.dll' or die $!;
open my $outfh, '>', 'Tcl.dll_new' or die $!;
binmode($infh);
binmode($outfh);
while(<$infh>) {
  $_ =~ s/zlib1\.dll/zxxxx.dll/g;
  print $outfh, $_;
}

        [download]
        Then check that Tcl.dll, Tcl.dll_bak and Tcl.dll_new all exist.
        If they do, remove Tcl.dll and rename Tcl.dll_new to Tcl.dll.
        If they don't exist .... freak !!

        The actual code that I would be using does all of the removing and renaming, too.
        And it does some stuff with permissions - though I'm not sure whether that's generally necessary: 
        close $infh;
close $outfh;
my $mode = (stat('Tcl.dll'))[2];
my $newmode = $mode | 0220;
chmod($newmode, 'Tcl.dll');
unlink 'Tcl.dll';
File::Copy::copy( 'Tcl.dll_new', 'Tcl.dll') or die $!;
chmod($mode, 'Tcl.dll');
unlink('Tcl.dll_new');

        [download]


        Cheers,
        Rob
[reply]
[d/l]
[select]
Re^7: Tcl for Strawberry Perl on Windows 64bit
by Anonymous Monk on Jul 23, 2015 at 22:19 UTC
    But is C:\Tcl\bin\ in your %PATH%?
[reply]

In Section Seekers of Perl Wisdom