version 1.65, 2011/06/16 08:33:54 |
version 1.66, 2011/06/16 08:38:30 |
|
|
my @PKGPATH = qw(/usr/lib/pkgconfig /usr/local/lib/pkgconfig /usr/X11R6/lib/pkgconfig); |
my @PKGPATH = qw(/usr/lib/pkgconfig /usr/local/lib/pkgconfig /usr/X11R6/lib/pkgconfig); |
|
|
if (defined($ENV{PKG_CONFIG_LIBDIR}) && $ENV{PKG_CONFIG_LIBDIR}) { |
if (defined($ENV{PKG_CONFIG_LIBDIR}) && $ENV{PKG_CONFIG_LIBDIR}) { |
@PKGPATH = split /:/, $ENV{PKG_CONFIG_LIBDIR}; |
@PKGPATH = split(/:/, $ENV{PKG_CONFIG_LIBDIR}); |
} elsif (defined($ENV{PKG_CONFIG_PATH}) && $ENV{PKG_CONFIG_PATH}) { |
} elsif (defined($ENV{PKG_CONFIG_PATH}) && $ENV{PKG_CONFIG_PATH}) { |
unshift(@PKGPATH, split /:/, $ENV{PKG_CONFIG_PATH}); |
unshift(@PKGPATH, split(/:/, $ENV{PKG_CONFIG_PATH})); |
} |
} |
|
|
my $logfile = ''; |
my $logfile = ''; |
|
|
{ |
{ |
my $p = join(' ', @ARGV); |
my $p = join(' ', @ARGV); |
$p =~ s/^\s+//; |
$p =~ s/^\s+//; |
@ARGV = split /\,?\s+/, $p; |
@ARGV = split(/\,?\s+/, $p); |
} |
} |
|
|
if ($mode{myminvers}) { |
if ($mode{myminvers}) { |
|
|
my $dep_cfg_list = simplify_and_reverse($cfg_full_list); |
my $dep_cfg_list = simplify_and_reverse($cfg_full_list); |
|
|
if ($mode{cflags} || $mode{libs} || $mode{variable}) { |
if ($mode{cflags} || $mode{libs} || $mode{variable}) { |
push @vlist, do_cflags($dep_cfg_list) if $mode{cflags}; |
push @vlist, do_cflags($dep_cfg_list) if $mode{cflags}; |
push @vlist, do_libs($dep_cfg_list) if $mode{libs}; |
push @vlist, do_libs($dep_cfg_list) if $mode{libs}; |
print join(' ', @vlist), "\n" if $rc == 0; |
print join(' ', @vlist), "\n" if $rc == 0; |
} |
} |
|
|
exit $rc; |
exit $rc; |
|
|
} |
} |
}; |
}; |
|
|
if (defined $mode{cflags} or $mode{static} or $mode{printrequiresprivate}) { |
if (defined $mode{cflags} |
|
or ($mode{static} && $mode{libs}) |
|
or $mode{printrequiresprivate}) { |
&$get_props("Requires.private"); |
&$get_props("Requires.private"); |
} |
} |
&$get_props("Requires"); |
&$get_props("Requires"); |
|
|
my $l = $configs{$pkg}->get_property('Libs', $variables); |
my $l = $configs{$pkg}->get_property('Libs', $variables); |
push(@$libs, @$l) if defined $l; |
push(@$libs, @$l) if defined $l; |
} |
} |
|
|
|
# Get the linker path directives (-L). |
my $a = OpenBSD::PkgConfig->compress($libs, |
my $a = OpenBSD::PkgConfig->compress($libs, |
sub { |
sub { |
local $_ = shift; |
local $_ = shift; |
|
|
|
|
if ($mode{libs} & 1) { |
if ($mode{libs} & 1) { |
my $b = OpenBSD::PkgConfig->rcompress($libs, |
my $b = OpenBSD::PkgConfig->rcompress($libs, |
sub { shift =~ m/^-l/; }); |
sub { shift =~ m/^-l/; }); |
return ($a, $b); |
return ($a, $b); |
} else { |
} else { |
return $a; |
return $a; |
|
|
--print-provides - print all the modules the given package provides |
--print-provides - print all the modules the given package provides |
--print-requires - print all the modules the given package requires |
--print-requires - print all the modules the given package requires |
--print-requires-private - print all the private modules the given package requires |
--print-requires-private - print all the private modules the given package requires |
--silence-errors - don't print error messages in case of error |
--silence-errors - don\'t print error messages in case of error |
--atleast-pkgconfig-version [version] - require a certain version of pkgconfig |
--atleast-pkgconfig-version [version] - require a certain version of pkgconfig |
--cflags package [versionspec] [package [versionspec]] |
--cflags package [versionspec] [package [versionspec]] |
--cflags-only-I - only output -Iincludepath flags |
--cflags-only-I - only output -Iincludepath flags |
|
|
my ($v) = @_; |
my ($v) = @_; |
my (@a, @b); |
my (@a, @b); |
|
|
@a = split /\./, $v; |
@a = split(/\./, $v); |
@b = split /\./, $version; |
@b = split(/\./, $version); |
|
|
if (($b[0] >= $a[0]) && ($b[1] >= $a[1])) { |
if (($b[0] >= $a[0]) && ($b[1] >= $a[1])) { |
return 0; |
return 0; |
|
|
$suffix_b[1] = $2; |
$suffix_b[1] = $2; |
} |
} |
|
|
my @a = split /\./, $a; |
my @a = split(/\./, $a); |
my @b = split /\./, $b; |
my @b = split(/\./, $b); |
|
|
while (@a && @b) { #so long as both lists have something |
while (@a && @b) { #so long as both lists have something |
if (!(@suffix_a || @suffix_b)) { |
if (!(@suffix_a || @suffix_b)) { |