Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-02-18 14:56:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Implement find-mozconfig in perl. Add check for MOZ_CONFIG_GUESS to skip config.guess. Fix annoying bug on Solaris. It does not like func() {:}. You have to use func() {:;} instead.

Browse Source
This commit is contained in:
slamm%netscape.com 1999-04-30 19:35:37 +00:00
parent 5a7c5a3007
commit f27057e20e
1 changed files with 34 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
tools/trees.pl
View File

@ -307,31 +307,45 @@ sub dir_lookup
}
# The only way to find the object directory is
# to find it in '.mozconfig'.
sub find_objdir {
my ($topsrcdir) = $_[0];
my ($objdir) = '';
my $topsrcdir = $_[0];
my $objdir = '';
my $home = $ENV{HOME};
my $mozconfig = '';
$objdir_script = q{
foreach $config ("$ENV{MOZCONFIG}","$ENV{MOZ_MYCONFIG}",
"$topsrcdir/.mozconfig",
"$topsrcdir/mozconfig", "topsrcdir/mozconfig.sh",
"$home/.mozconfig","$home/.mozconfig.sh") {
next if $config eq '';
if (-f $config) {
$mozconfig = $config;
last;
} }
$objdir_script = qq{
# sh
ac_add_options() { : }
MOZCONFIG=$mozconfig
TOPSRCDIR=$topsrcdir
}.q{
ac_add_options() { :; }
mk_add_options() {
for _opt; do
for _opt
do
case $_opt in
MOZ_OBJDIR=*) echo `expr $_opt : "MOZ_OBJDIR=\(.*\)"`; exit ;;
MOZ_OBJDIR=*) _objdir=`expr "$_opt" : "MOZ_OBJDIR=\(.*\)"` ;;
esac
done
}
# find-mozconfig.sh
# In params: $TOPSRCDIR $OBJDIR $MOZCONFIG $HOME ($MOZ_MYCONFIG)
MOZCONFIG=`$TOPSRCDIR/build/autoconf/find-mozconfig.sh`
if [ "$MOZCONFIG" ]; then
. $MOZCONFIG
fi
. $MOZCONFIG
echo $_objdir
};
$objdir = `TOPSRCDIR=$topsrcdir $objdir_script`;
chomp($objdir);
if ($mozconfig ne '') {
$objdir = `$objdir_script`;
chomp($objdir);
}
if ($objdir eq '')
{
@ -341,8 +355,10 @@ sub find_objdir {
$objdir =~ s/\@TOPSRCDIR\@/$topsrcdir/;
if ($objdir =~ /\@CONFIG_GUESS\@/)
{
$config_guess = `$topsrcdir/build/autoconf/config.guess`;
chomp($config_guess);
if (not defined($config_guess = $ENV{MOZ_CONFIG_GUESS})) {
$config_guess = `$topsrcdir/build/autoconf/config.guess`;
chomp($config_guess);
}
$objdir =~ s/\@CONFIG_GUESS\@/$config_guess/;
} }
return $objdir;
@ -351,6 +367,7 @@ sub find_objdir {
# end 'trees'
######################################################################
__END__
#! perl
# .moztrees - Defines the following perl variables for 'trees.pl' script,
#
# @tree_parent_dirs - Where to look for source trees.