1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-22 13:34:15 +03:00

s4: Remove unused pkg-config replacement in perl.

This commit is contained in:
Jelmer Vernooij 2010-04-07 22:15:27 +02:00
parent 0473926a5b
commit 36474e5867

View File

@ -1,145 +0,0 @@
#!/usr/bin/perl
# Simple pkg-config implementation in perl
# jelmer@samba.org, November 2006
use strict;
use Getopt::Long;
my @dirs = split(/:/, $ENV{PKG_CONFIG_PATH});
my $opt_help = 0;
my $opt_libs = 0;
my $opt_cflags = 0;
my $opt_static = 0;
my $result = GetOptions (
'help|h|?' => \$opt_help,
'static' => \$opt_static,
'libs' => \$opt_libs,
'cflags' => \$opt_cflags
);
if (not $result) {
exit(1);
}
if ($opt_help) {
print "pkg-config replacement in perl\n";
print "Copyright (C) 2006 Jelmer Vernooij <jelmer\@samba.org>\n";
print "\n";
print "Usage: pkg-config [OPTIONS] PACKAGE...\n";
print " --help Print this help message\n";
print " --static Print flags for static libraries\n";
print " --libs Print linker flags\n";
print " --cflags Print C compiler flags\n";
print "\n";
exit(0);
}
sub find_path($)
{
my $name = shift;
foreach my $dir (@dirs) {
if (-f "$dir/$name-uninstalled.pc") {
return "$dir/$name-uninstalled.pc";
}
}
foreach my $dir (@dirs) {
if (-f "$dir/$name.pc" ) {
return "$dir/$name.pc";
}
}
die("No such package `$name'");
}
sub ReplaceVars($$)
{
my ($expr, $vars) = @_;
$_ = $expr;
while (/(.*)\${([^}]+)}(.*)/) {
$_ = "$1$vars->{$2}$3";
}
return $_;
}
sub Parse($)
{
my $name = shift;
my $path = find_path($name);
my %variables = ();
my %fields = ();
my $lineno = 0;
open(IN, "<$path") or die("Unable to open $path: $!");
foreach (<IN>) {
$lineno+=1;
next if (/^#.*/);
if (/^([A-Za-z.]+): (.*)$/) {
$fields{$1} = ReplaceVars($2, \%variables);
} elsif (/^([A-Za-z_]+)=(.*)$/) {
$variables{$1} = ReplaceVars($2, \%variables);
} elsif (/^[ \t]*$/) {
} else {
warn("$path:$lineno: parse error");
}
}
close(IN);
return \%fields;
}
sub Cflags($)
{
my $name = shift;
my $fields = Parse($name);
my @cflags = split(/ /, $fields->{Cflags});
foreach (split(/[, ]/, $fields->{Requires})) {
push (@cflags, Cflags($_));
}
return @cflags;
}
sub Libs($)
{
my $name = shift;
my $fields = Parse($name);
my @libs = split(/ /, $fields->{Libs});
foreach (split(/[, ]/, $fields->{Requires})) {
push (@libs, Libs($_));
}
if ($opt_static) {
foreach (split(/[ ,]/, $fields->{"Requires.private"})) {
push (@libs, Libs($_));
}
}
return @libs;
}
my @out = ();
foreach my $pkg (@ARGV)
{
push (@out, Libs($pkg)) if ($opt_libs);
push (@out, Cflags($pkg)) if ($opt_cflags);
}
sub nub
{
my @list = @_;
my @ret = ();
my %seen = ();
foreach (@list) {
next if (defined($seen{$_}));
push (@ret, $_);
$seen{$_} = 1;
}
return @ret;
}
if ($#out >= 0) {
@out = nub(@out);
print join(' ', @out) . "\n";
}
exit 0;