mirror of
https://github.com/rn10950/RetroZilla.git
synced 2024-11-10 18:00:15 +01:00
108 lines
2.3 KiB
Perl
108 lines
2.3 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
#
|
||
|
|
# Create a mapping from symbolic component name to directory name(s).
|
||
|
|
#
|
||
|
|
# Tue Oct 16 16:48:36 PDT 2001
|
||
|
|
# <mcafee@netscape.com>
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
# For --option1, --option2, ...
|
||
|
|
use Getopt::Long;
|
||
|
|
Getopt::Long::Configure("bundling_override");
|
||
|
|
Getopt::Long::Configure("auto_abbrev");
|
||
|
|
|
||
|
|
# Globals
|
||
|
|
my $list_only_mode = 0;
|
||
|
|
my $opt_list_only;
|
||
|
|
my $mapfile = "";
|
||
|
|
my %map;
|
||
|
|
|
||
|
|
sub PrintUsage {
|
||
|
|
die <<END_USAGE
|
||
|
|
Prints out directories needed for a given list of components.
|
||
|
|
usage: module2dir.pl [--list-only] [--mapfile mapfile] <component-name1> <component-name2> ...
|
||
|
|
END_USAGE
|
||
|
|
}
|
||
|
|
|
||
|
|
sub parse_map_file($) {
|
||
|
|
my ($mapfile) = @_;
|
||
|
|
my (%mod_map, $tmp, $dir, $mod, @mod_list);
|
||
|
|
|
||
|
|
undef %mod_map;
|
||
|
|
open (MAPFILE, "$mapfile") || die ("$mapfile: $!\n");
|
||
|
|
while ($tmp=<MAPFILE>) {
|
||
|
|
chomp ($tmp);
|
||
|
|
($dir, $mod, @mod_list) = split(/:/, $tmp, 3);
|
||
|
|
$mod =~ s/[\s]*(\S+)[\s]*/$1/;
|
||
|
|
$mod_map{$mod} .= "$dir ";
|
||
|
|
}
|
||
|
|
close(MAPFILE);
|
||
|
|
foreach $mod (sort(keys %mod_map)) {
|
||
|
|
my (@dirlist, @trimlist, $found, $tdir);
|
||
|
|
@dirlist = split(/\s+/, $mod_map{$mod});
|
||
|
|
$mod_map{$mod} = "";
|
||
|
|
foreach $dir (@dirlist) {
|
||
|
|
$found = 0;
|
||
|
|
foreach $tdir (@trimlist) {
|
||
|
|
$found++, last if ($dir =~ m/^$tdir\// || $dir eq $tdir);
|
||
|
|
}
|
||
|
|
push @trimlist, $dir if (!$found);
|
||
|
|
}
|
||
|
|
$map{$mod} = join(" ", @trimlist);
|
||
|
|
#print "$mod: $map{$mod}\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub dir_for_required_component {
|
||
|
|
my ($component) = @_;
|
||
|
|
my $rv;
|
||
|
|
my $dir;
|
||
|
|
|
||
|
|
$dir = $map{$component};
|
||
|
|
if($dir) {
|
||
|
|
# prepend "mozilla/" in front of directory names.
|
||
|
|
$rv = "mozilla/$dir";
|
||
|
|
$rv =~ s/\s+/ mozilla\//g; # Hack for 2 or more directories.
|
||
|
|
} else {
|
||
|
|
$rv = 0;
|
||
|
|
}
|
||
|
|
return $rv;
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
|
||
|
|
# Add stdin to the commandline. This makes commandline-only mode hang,
|
||
|
|
# call it a bug. Not sure how to get around this.
|
||
|
|
push (@ARGV, split(' ',<STDIN>));
|
||
|
|
|
||
|
|
PrintUsage() if !GetOptions('list-only' => \$opt_list_only,
|
||
|
|
'mapfile=s' => \$mapfile);
|
||
|
|
|
||
|
|
# Pick up arguments, if any.
|
||
|
|
if($opt_list_only) {
|
||
|
|
$list_only_mode = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
&parse_map_file($mapfile);
|
||
|
|
|
||
|
|
my $arg;
|
||
|
|
my $dir;
|
||
|
|
while ($arg = shift @ARGV) {
|
||
|
|
$dir = dir_for_required_component($arg);
|
||
|
|
if($dir) {
|
||
|
|
if($list_only_mode) {
|
||
|
|
print $dir, " ";
|
||
|
|
} else {
|
||
|
|
print "$arg: ", $dir, "\n";
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
# do nothing
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if($dir && $list_only_mode) {
|
||
|
|
print "\n";
|
||
|
|
}
|
||
|
|
}
|