first add

tools/module-deps/bootstrap.pl

@@ -0,0 +1,74 @@
+#!/usr/bin/perl -w
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+
+#
+#  First attempt at using module-graph.pl to generate
+#  a cvs checkout list, and building the resulting tree.
+#
+
+use Cwd;
+
+sub get_system_cwd {
+    my $a = Cwd::getcwd()||`pwd`;
+    chomp($a);
+    return $a;
+}
+
+
+
+# main
+{
+
+ # Pull core build stuff.
+ print "Pulling core build files...\n";
+ my $core_build_files = "mozilla/client.mk mozilla/config mozilla/configure mozilla/allmakefiles.sh mozilla/configure.in mozilla/build mozilla/tools/module-deps";
+ system("cvs co $core_build_files");
+
+
+ # Pull nspr
+ print "Pulling nspr...\n";
+ my $nspr_cvs_cmd = "cvs co -rNSPRPUB_PRE_4_2_CLIENT_BRANCH  mozilla/nsprpub";
+ system("$nspr_cvs_cmd");
+
+ # Assume all.dot is checked in somewhere.
+
+
+ # Pull modules, write out to file to grap stdout.
+ print "Pulling modules...\n";
+ my $modules;
+ my $cmd = "cvs co `mozilla/tools/module-deps/module-graph\.pl --file all\.dot --start-module xpcom --list-only | mozilla/config/module2dir\.pl --list-only`";
+ print "cmd = $cmd\n";
+ system($cmd);
+
+ #open LOG, ">modules.log" or die "Couldn't open logfile, modules.log: $!";
+ #open CMD, "$cmd 2>&1|" or die "open: $!";
+ #print LOG $_ while <CMD>;
+ #close CMD;
+ #close LOG;
+
+ #open LOG, "modules.log" or die "can't open modules.log, $!\n";
+ #while (<LOG>) {
+ #  $modules = $_;
+ #}
+ #close LOG;
+
+ #print "modules = $modules\n";
+
+
+
+ # Try a build.
+ my $base = get_system_cwd();
+
+ #print "Configuring nspr ... \n";
+ #chdir("$base/mozilla/nsprpub");
+ #my $nspr_configure_cmd = "./configure";
+ #system("$nspr_configure_cmd");
+
+ print "Configuring ... \n";
+ chdir("$base/mozilla");
+ my $configure_cmd = "./configure --disable-ldap --disable-mailnews";
+ system("$configure_cmd");
+
+ print "Building ... \n";
+ system("gmake");
+}