Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-10 03:45:46 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Patch by Artem Belevich <abelevic@ctron.com> -- don't choke so easily when parsing modules files.

Browse Source
This commit is contained in:
terry 1998-06-29 15:40:24 +00:00
parent 705daa1418
commit 0b1e6ac586
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
webtools/bonsai/modules.pl
View File

@ -95,16 +95,33 @@ sub get_module_map {
}
sub parse_modules {
local @finaloptions=();
while( $l = &get_line ){
@finaloptions=();
($mod_name, $flag, @params) = split(/[ \t]+/,$l);
if( $flag ne '-a' ){
next;
while ( $flag =~ /^-.$/){
if( $flag eq '-a' ){
$flag="";
last;
}
if ( $flag eq '-l' ){ # then keep it
push @finaloptions, ($flag, shift @params);
$flag= shift @options;
next;
}
if( $flag =~ /^-.$/ ){
shift @params; # skip parameter's argument
$flag = shift @params;
next;
}
last; # No options found...
}
$modules->{$mod_name} = [@params];
unshift @params, $flag if ( $flag ne "" );
$modules->{$mod_name} = [(@finaloptions,@params)];
}
}
sub build_map {
local($name,$mod_map) = @_;
local($bFound, $local);
@ -112,12 +129,13 @@ sub build_map {
$local = $NOT_LOCAL;
$bFound = 0;
# printf "looking for $name in %s<br>\n",join(",", @{$modules->{$name}});
for $i ( @{$modules->{$name}} ){
$bFound = 1;
if( $i eq '-l' ){
$local = $IS_LOCAL;
}
elsif( !build_map($i, $mod_map )){
}
elsif( ($i eq $name) || !build_map($i, $mod_map )){
$mod_map->{$i} = $local;
}
}