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

[rahed <raherh gmail com>]

Ari Jolma <ari jolma tkk fi> writes:

> EU::Depends::find_extra_libs assumes now that when OS is MSWin32, the
> (import) library extension is ".lib". When MinGW is used, the
> extension is usually .dll.a (MinGW could also happily use the actual
> .dll, but EU::LibList::Kid does not allow that currently). Thus a
> (partial) solution would be to change find_extra_libs to search for
> files with .dll.a extension too. I don't have a very elegant solution
> how to allow both extensions.
>
> ActiveState seems to support MinGW and automatically detect MinGW
> (this is old news
> http://www.issociate.de/board/post/274396/ActivePerl_5.8.7.815_released.html).
> 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 also follow your approach on Windows with perl 5.10 built with MinGW.
To find .dll.a libraries I trimmed EU::Liblist::Kid with the patch
below. Changes are only in _win32_ext procedure. Am not sure if cygwin
builts are then ok.

Still, I have to add one line to the $(INST_DYNAMIC) Makefile section
(an example for Glib, similar for Cairo and Gtk2).

$(NOECHO) $(LD) -o Glib.dll $(LDDLFLAGS) $(LDFROM)
-Wl,-out-implib,blib/arch/auto/Glib/Glib.lib $(EXPORT_LIST)
$(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp

Probably some changes in EU::MM_Win32 are needed to produce correct
Makefile without the necessity to add an additional line.


--- Kidorig.pm  2008-08-26 19:41:38.669502800 +0000
+++ Kid.pm      2008-08-26 19:54:56.446856800 +0000
@@ -308,12 +308,27 @@
        if (s/^-l// and $GC and !/^lib/i) {
            $_ = "lib$_";
        }
-       $_ .= $libext if !/\Q$libext\E$/i;
+       my ($libext2,$lib1,$lib2);
+       $libext2 = '.dll'.$libext;
+       $lib1 = $_.$libext if !/\Q$libext\E$/i; # .a
+       $lib2 = $_.$libext2 if !/\Q$libext2\E$/i; # .dll.a
 
        my $secondpass = 0;
     LOOKAGAIN:
 
         # look for the file itself
+       if (-f $lib1) {
+           warn "'$thislib' found as '$lib1'\n" if $verbose;
+           $found++;
+           push(@extralibs, $lib1);
+           next;
+       }
+       if (-f $lib2) {
+           warn "'$thislib' found as '$lib2'\n" if $verbose;
+           $found++;
+           push(@extralibs, $lib2);
+           next;
+       }
        if (-f) {
            warn "'$thislib' found as '$_'\n" if $verbose;
            $found++;
@@ -323,7 +338,7 @@
 
        my $found_lib = 0;
        foreach my $thispth (@searchpath, @libpath){
-         unless (-f ($fullname="$thispth\\$_")) {
+         unless (-f ($fullname="$thispth\\$lib1") or (-f ($fullname="$thispth\\$lib2"))) {
            warn "'$thislib' not found as '$fullname'\n" if $verbose;
            next;
          }
@@ -341,7 +356,8 @@
                goto LOOKAGAIN if s/^lib//i;
            }
            elsif (!/^lib/i) {
-               $_ = "lib$_";
+               $lib1 = "lib$lib1";
+               $lib2 = "lib$lib2";
                goto LOOKAGAIN;
            }
        }


-- 
Radek