# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1003491082 0
# Node ID 0f6e6a0405c404dc280c6356b415016fdf2f77c9
# Parent  d63231947663057e150e5337b9d1e39eab50c0c4
Add --help option.  Add support for building
in arbitrary source trees.

diff -r d63231947663 -r 0f6e6a0405c4 admin/build-configs
--- a/admin/build-configs	Fri Oct 19 11:19:33 2001 +0000
+++ b/admin/build-configs	Fri Oct 19 11:31:22 2001 +0000
@@ -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 @@
 
 $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)
   {