Re: Fun with ExtUtils::MakeMaker and Windows import libraries

[Ari Jolma <ari jolma tkk fi>]

Torsten Schoenfeld kirjoitti:
> Elegance shouldn't be the primary concern.  If you have a patch that makes
> linking work on MinGW, just post it.
>
>   
> > Somehow this detection should be propagated to EU::LibList::Kid to look for
> > import libraries "lib<library>.dll.a" -- or the Makefile.PL's may also alter
> > the liblist by adding ".dll.a" before calling set_libs().
> >     
>
> I'd prefer a solution that doesn't involve changing every Makefile.PL.
>   

ok, almost there

1. Patch lib/ExtUtils/Liblist/Kid.pm with the attached patch (the patch 
needs to be offered to guys maintaining ExtUtils::MakeMaker I guess)

2. When building Glib and Cairo, there are the extra steps before make 
install:

using spicy jack's method:

dlltool --input-def Glib.def --dllname Glib.dll --output-lib Glib.dll.a
copy Glib.dll.a blib/arch/auto/Glib

and

dlltool --input-def Cairo.def --dllname Cairo.dll --output-lib Cairo.dll.a
copy Cairo.dll.a blib/arch/auto/Cairo

Brian, you wrote that you have been able to abstract the above and add 
it to the Makefile.PL. How exactly? However, I think this should/could 
be corrected somewhere in lib/ExtUtils/ and not change the Makefile.PL

3. Now the patch for ExtUtils/Depends.pm - that's attached

4. Gtk2 installs without problems - at least in my test just now with 
everything freshly built.

These same steps

dlltool --input-def Gtk2.def --dllname Gtk2.dll --output-lib Gtk2.dll.a
copy Gtk2.dll.a blib/arch/auto/Gtk2

need to be run for Gtk2::GladeXML

Ari


--
Prof. Ari Jolma
Environmental Management Information Technology
Teknillinen korkeakoulu / Helsinki University of Technology
tel: +358 9 451 3812 address: POBox 5300, 02015 TKK, Finland
Email: ari.jolma at tkk.fi 
http://geoinformatics.tkk.fi/twiki/bin/view/Main/AriJolmaHomePage

308,315c308,311
<       # handle possible library arguments
<       if (s/^-l// and $GC and !/^lib/i) {
<           $_ = "lib$_";
<       }
<       $_ .= $libext if !/\Q$libext\E$/i;
< 
<       my $secondpass = 0;
<     LOOKAGAIN:
---
>     # try $_$libext, lib$_$libext, $_.dll$libext, lib$_.dll$libext
>     s/^-l//;
>     my $found_lib = 0;
>     for my $libname ($_.$libext, 'lib'.$_.$libext, $_.'.dll'.$libext, 'lib'.$_.'.dll'.$libext) {
318,319c314,315
<       if (-f) {
<           warn "'$thislib' found as '$_'\n" if $verbose;
---
>       if (-f $libname) {
>           warn "'$thislib' found as '$libname'\n" if $verbose;
321,322c317,319
<           push(@extralibs, $_);
<           next;
---
>           $found_lib++;
>           push(@extralibs, $libname);
>           last;
325d321
<       my $found_lib = 0;
327c323
<           unless (-f ($fullname="$thispth\\$_")) {
---
>           unless (-f ($fullname="$thispth\\$libname")) {
338,347d333
< 
<       # do another pass with (or without) leading 'lib' if they used -l
<       if (!$found_lib and $thislib =~ /^-l/ and !$secondpass++) {
<           if ($GC) {
<               goto LOOKAGAIN if s/^lib//i;
<           }
<           elsif (!/^lib/i) {
<               $_ = "lib$_";
<               goto LOOKAGAIN;
<           }
350c336
<       # give up
---
>       # express frustration
304,305c304,305
<               MSWin32 => sub { $_[0] . '.lib' },
<               cygwin  => sub { $_[0] . '.dll'},
---
>               MSWin32 => sub { ($_[0] . '.lib', $_[0] . '.dll.a') },
>               cygwin  => sub { ($_[0] . '.dll') },
313c313
<               my $lib = $mapper->($stem);
---
>               for my $lib ($mapper->($stem)) {
319c319,320
<                       if ((not $matching_file) && /$pattern/) {;
---
>                       if ((not $matching_file) && /$pattern/) 
>                       {;
327a329
>                   }