Re: Win32/MingW SetupAPI usage woes with Inline::C

undefined reference to `__imp_SetupDiGetClassDevsA'

I think the problem is the line:

libs => '-LC:\\MinGW\\lib -lSetupAPI',
[download]

I think it might be finding the wrong libsetupapi.a.
Try replacing that line with:

libs => '-lsetupapi',
[download]

The correct 'libsetupapi.a' is in a location that should be found by default - so there should be no need to specify a location for it.
At least, for me, when I made that change to your script, it built just fine. Prior to that I was getting the same error as you.

Cheers,
Rob

Comment on Re: Win32/MingW SetupAPI usage woes with Inline::C Select or Download Code

Replies are listed 'Best First'.
Re^2: A workaround, but not really a fix by tlhackque (Beadle) on May 31, 2018 at 01:35 UTC
Thanks. Sorry I didn't see this sooner. I tried that first. So, after reading your note I searched the entire C: drive (where MinGW is installed). I found another libsetupapi.a in C:\Perl-5.22.1-64\site\lib\auto\MinGW\x86_64-w64-mingw32\lib And specifying that does compile. Apparently Inline::C installs it there. But hardcoding a path makes this very unportable to another system. So, the new question is: how do I get that path portably? I can use Config; $Config{sitelibexp} for part of the way: 'C:\Perl-5.22.1-64\site\lib' (which also appears in @INC) But this is magic: "\auto\MinGW\x86_64-w64-mingw32\lib" There some pkg-config -like method for Perl... For now, I use this expensive hack `use File::Find; my $libpath; my $incpath; BEGIN { find( { wanted => sub { /^libsetupapi\.a$/i && ($libpath \|\|= $File::Find::dir); /^setupapi\.h$/i && ($incpath \|\|= $File::Find::dir); }, follow => 1, follow_skip => 2 }, @INC ); die( "No MinGW libsetupapi $libpath $incpath\n" ) unless( $libpath && $incpath ); } use Inline( C => Config => libs => "-L$libpath -lSetupAPI", INC => "-I$incpath", );` [download] There must be a better way. Meantime, on to figuring out the mysteries of the Windoze APIs.	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: A workaround, but not really a fix
by tlhackque (Beadle) on May 31, 2018 at 01:35 UTC

Thanks. Sorry I didn't see this sooner.

I found another libsetupapi.a in C:\Perl-5.22.1-64\site\lib\auto\MinGW\x86_64-w64-mingw32\lib

And specifying that does compile. Apparently Inline::C installs it there. But hardcoding a path makes this very unportable to another system.

So, the new question is: how do I get that path portably?

I can use Config; $Config{sitelibexp} for part of the way: 'C:\Perl-5.22.1-64\site\lib' (which also appears in @INC)

But this is magic: "\auto\MinGW\x86_64-w64-mingw32\lib" There some pkg-config -like method for Perl...

For now, I use this expensive hack

use File::Find;
my $libpath;
my $incpath;

BEGIN {
    find( { wanted => sub { /^libsetupapi\.a$/i &&
                              ($libpath ||= $File::Find::dir);
                            /^setupapi\.h$/i &&
                              ($incpath ||= $File::Find::dir); },
            follow => 1, follow_skip => 2 }, @INC );
    die( "No MinGW libsetupapi $libpath $incpath\n" )
       unless( $libpath && $incpath );
}

use Inline( C => Config =>
            libs => "-L$libpath -lSetupAPI",
            INC => "-I$incpath",
);
[download]

There must be a better way. Meantime, on to figuring out the mysteries of the Windoze APIs.

[reply]
[d/l]