admin/build-configs

   1 #! /usr/bin/perl
   2 # Build Emacs in several different configurations.
   3
   4 # Copyright (C) 2001-2012  Free Software Foundation, Inc.
   5
   6 # This file is part of GNU Emacs.
   7
   8 # GNU Emacs is free software: you can redistribute it and/or modify
   9 # it under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation, either version 3 of the License, or
  11 # (at your option) any later version.
  12
  13 # GNU Emacs is distributed in the hope that it will be useful,
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 # GNU General Public License for more details.
  17
  18 # You should have received a copy of the GNU General Public License
  19 # along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  20
  21
  22 require 5;
  23 use Getopt::Long;
  24 use File::Basename;
  25 use Cwd;
  26
  27 @configs =
  28   (
  29    ["--without-x",                "--optim"],
  30    ["--without-x-toolkit",        "--optim"],
  31    ["--without-toolkit-scroll-bars", "--optim"],
  32    ["--with-x-toolkit=lucid",     "--optim"],
  33    ["--with-x-toolkit=motif",     "--optim"],
  34    ["--with-x-toolkit=motif",     "--enable-checking"],
  35    ["--with-x-toolkit=motif",     "--gcc3"],
  36    ["--with-x-toolkit=motif",     ""],
  37   );
  38
  39 $log = "/tmp/$$.out";
  40 print "Using log file $log\n";
  41 unlink $log;
  42
  43 $root = $ENV{"EMACS_ROOT"};
  44 $root = "/gd/gnu/emacs" unless $root;
  45
  46 $rc = GetOptions ("help" => \$help);
  47 if ($rc == 0 || $help)
  48   {
  49     print <<USAGE;
  50 build-configs
  51
  52 Build Emacs in different configurations.
  53
  54 --help                  show this help
  55
  56 USAGE
  57     exit 1;
  58   }
  59
  60 # Chdir to the top-level directory of the tree.  If not in a tree
  61 # containing Emacs, use the default.
  62
  63 while (! -f "src/emacs.c" && cwd () ne "/")
  64   {
  65     chdir "..";
  66   }
  67
  68 chdir $root if cwd () eq "/";
  69 print "Build in ", cwd (), "\n";
  70
  71 foreach $config (@configs)
  72   {
  73     my $configure_options = @$config[0];
  74     my $make_options = @$config[1];
  75     my $rc;
  76
  77     print "$configure_options, $make_options\n";
  78     unlink "config.cache";
  79
  80     $rc = system ("$root/configure $configure_options >>$log 2>&1");
  81     if ($rc != 0)
  82       {
  83         print "configure failed\n";
  84         exit 1;
  85       }
  86
  87     $rc = system ("make-emacs --all $make_options >>$log 2>&1");
  88     if ($rc != 0)
  89       {
  90         print "Make failed\n";
  91         exit 1;
  92       }
  93   }
  94
  95 # Local Variables:
  96 # mode: cperl
  97 # End:
  98