From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 19 Oct 2001 11:31:22 +0000 (+0000)
Subject: Add --help option.  Add support for building
X-Git-Tag: ttn-vms-21-2-B4~19352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53e7bbb89f7ad9b07b281f2fe826167779863ade;p=emacs.git

Add --help option.  Add support for building
in arbitrary source trees.
---

diff --git a/admin/build-configs b/admin/build-configs
index 521afb3acff..5827276bf5e 100755
--- a/admin/build-configs
+++ b/admin/build-configs
@@ -21,6 +21,11 @@
 
 # Build Emacs in several different configurations.
 
+require 5;
+use Getopt::Long;
+use File::Basename;
+use Cwd;
+
 @configs =
   (
    ["--without-x", 		  "--optim"],
@@ -39,7 +44,31 @@ unlink $log;
 
 $root = $ENV{"EMACS_ROOT"};
 $root = "/gd/gnu/emacs" unless $root;
-chdir ($root) or die "Cannot chdir to emacs";
+
+$rc = GetOptions ("help" => \$help);
+if ($rc == 0 || $help)
+  {
+    print <<USAGE;
+build-configs
+
+Build Emacs in different configurations.
+
+--help			show this help
+
+USAGE
+    exit 1;
+  }
+
+# Chdir to the top-level directory of the tree.  If not in a tree
+# containing Emacs, use the default.
+
+while (! -f "src/emacs.c" && cwd () ne "/")
+  {
+    chdir "..";
+  }
+
+chdir $root if cwd () eq "/";
+print "Build in ", cwd (), "\n";
 
 foreach $config (@configs)
   {