1998-06-17 01:43:24 +04:00
|
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
|
|
#
|
|
|
|
# The contents of this file are subject to the Netscape Public License
|
|
|
|
# Version 1.0 (the "License"); you may not use this file except in
|
|
|
|
# compliance with the License. You may obtain a copy of the License at
|
|
|
|
# http://www.mozilla.org/NPL/
|
|
|
|
#
|
|
|
|
# Software distributed under the License is distributed on an "AS IS"
|
|
|
|
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
|
|
|
|
# License for the specific language governing rights and limitations
|
|
|
|
# under the License.
|
|
|
|
#
|
|
|
|
# The Original Code is the Bonsai CVS tool.
|
|
|
|
#
|
|
|
|
# The Initial Developer of the Original Code is Netscape Communications
|
|
|
|
# Corporation. Portions created by Netscape are Copyright (C) 1998
|
|
|
|
# Netscape Communications Corporation. All Rights Reserved.
|
|
|
|
|
|
|
|
|
|
|
|
$NOT_LOCAL = 1;
|
|
|
|
$IS_LOCAL = 2;
|
|
|
|
|
|
|
|
$modules = {};
|
|
|
|
|
|
|
|
if( $CVS_ROOT eq "" ){
|
|
|
|
$CVS_ROOT = pickDefaultRepository();
|
|
|
|
}
|
|
|
|
|
|
|
|
if( $ENV{"OS"} eq "Windows_NT" ){
|
|
|
|
$CVS_MODULES='modules';
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$CVS_MODULES="${CVS_ROOT}/CVSROOT/modules";
|
|
|
|
}
|
|
|
|
|
|
|
|
open( MOD, "<$CVS_MODULES") || die "can't open $CVS_MODULES";
|
|
|
|
&parse_modules;
|
|
|
|
close( MOD );
|
|
|
|
|
|
|
|
1;
|
|
|
|
|
|
|
|
sub in_module {
|
|
|
|
local($mod_map, $dirname, $filename ) = @_;
|
|
|
|
local( @path );
|
|
|
|
local( $i, $fp, $local );
|
|
|
|
|
|
|
|
#
|
|
|
|
#quick check if it is already in there.
|
|
|
|
#
|
|
|
|
if( $mod_map{$dirname} ){
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
@path = split(/\//, $dirname);
|
|
|
|
|
|
|
|
$fp = '';
|
|
|
|
|
|
|
|
for( $i = 0; $i < @path; $i++){
|
|
|
|
|
|
|
|
$fp .= ($fp ne '' ? '/' : '') . $path[$i];
|
|
|
|
|
|
|
|
if( $local = $mod_map->{$fp} ){
|
|
|
|
if( $local == $IS_LOCAL ){
|
|
|
|
if( $i == (@path-1) ){
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
# Add directories to the map as we encounter them so we go
|
|
|
|
# faster
|
|
|
|
if( $mod_map{$dirname} == 0 ){
|
|
|
|
$mod_map{$dirname} = $IS_LOCAL;
|
|
|
|
}
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if( $mod_map->{ $fp . '/' . $filename} ) {
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
sub get_module_map {
|
|
|
|
local($name) = @_;
|
|
|
|
local($mod_map);
|
|
|
|
$mod_map = {};
|
|
|
|
&build_map( $name, $mod_map );
|
|
|
|
return $mod_map;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub parse_modules {
|
1998-06-29 19:40:24 +04:00
|
|
|
local @finaloptions=();
|
1998-06-17 01:43:24 +04:00
|
|
|
while( $l = &get_line ){
|
1998-06-29 19:40:24 +04:00
|
|
|
@finaloptions=();
|
|
|
|
|
1998-06-17 01:43:24 +04:00
|
|
|
($mod_name, $flag, @params) = split(/[ \t]+/,$l);
|
1998-06-29 19:40:24 +04:00
|
|
|
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...
|
1998-06-17 01:43:24 +04:00
|
|
|
}
|
1998-06-29 19:40:24 +04:00
|
|
|
unshift @params, $flag if ( $flag ne "" );
|
|
|
|
$modules->{$mod_name} = [(@finaloptions,@params)];
|
1998-06-17 01:43:24 +04:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
sub build_map {
|
|
|
|
local($name,$mod_map) = @_;
|
|
|
|
local($bFound, $local);
|
|
|
|
|
|
|
|
$local = $NOT_LOCAL;
|
|
|
|
$bFound = 0;
|
|
|
|
|
1998-06-29 19:40:24 +04:00
|
|
|
# printf "looking for $name in %s<br>\n",join(",", @{$modules->{$name}});
|
1998-06-17 01:43:24 +04:00
|
|
|
for $i ( @{$modules->{$name}} ){
|
|
|
|
$bFound = 1;
|
|
|
|
if( $i eq '-l' ){
|
|
|
|
$local = $IS_LOCAL;
|
1998-06-29 19:40:24 +04:00
|
|
|
}
|
|
|
|
elsif( ($i eq $name) || !build_map($i, $mod_map )){
|
1998-06-17 01:43:24 +04:00
|
|
|
$mod_map->{$i} = $local;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return $bFound;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub get_line {
|
|
|
|
local($l, $save);
|
|
|
|
|
|
|
|
$bContinue = 1;
|
|
|
|
|
|
|
|
while( $bContinue && ($l = <MOD>) ){
|
|
|
|
chop($l);
|
|
|
|
if( $l =~ /^[ \t]*\#/
|
|
|
|
|| $l =~ /^[ \t]*$/ ){
|
1998-09-24 22:31:05 +04:00
|
|
|
$l=''; # Starts with a "#", or is only whitespace.
|
1998-06-17 01:43:24 +04:00
|
|
|
}
|
1998-09-24 22:31:05 +04:00
|
|
|
if( $l =~ /\\[ \t]*$/ ){
|
|
|
|
# Ends with a slash, so append it to the last line.
|
1998-06-17 01:43:24 +04:00
|
|
|
chop ($l);
|
|
|
|
$save .= $l . ' ';
|
|
|
|
}
|
|
|
|
elsif( $l eq '' && $save eq ''){
|
|
|
|
# ignore blank lines
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$bContinue = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return $save . $l;
|
|
|
|
}
|