Kaydet (Commit) 4ecfc231 authored tarafından Stephan Bergmann's avatar Stephan Bergmann

Show all available distro configs

Change-Id: Ibecd89bb12b3e488a4cf25766bd6ffe5a097f135
üst 273da4e3
......@@ -102,20 +102,32 @@ sub read_args($)
return @lst;
}
sub invalid_distro($$)
sub show_distro_configs($$)
{
my ($config, $distro) = @_;
print STDERR "Can't find distro option set: $config\nThis is not necessarily a problem.\n";
print STDERR "Distros with distro option sets are:\n";
my ($prefix, $path) = @_;
my $dirh;
opendir ($dirh, "$src_path/distro-configs");
opendir ($dirh, "$path");
while (($_ = readdir ($dirh))) {
if (-d "$path/$_") {
show_distro_configs(
$prefix eq "" ? "$_/" : "$prefix/$_/", "$path/$_")
unless $_ eq '.' || $_ eq '..';
next;
}
/(.*)\.conf$/ || next;
print STDERR "\t$1\n";
print STDERR "\t$prefix$1\n";
}
closedir ($dirh);
}
sub invalid_distro($$)
{
my ($config, $distro) = @_;
print STDERR "Can't find distro option set: $config\nThis is not necessarily a problem.\n";
print STDERR "Distros with distro option sets are:\n";
show_distro_configs("", "$src_path/distro-configs");
}
# Avoid confusing "aclocal: error: non-option arguments are not accepted: '.../m4'." error message.
die "\$src_path must not contain spaces, but it is '$src_path'." if ($src_path =~ / /);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment