admin/build-configs

   1 #! /usr/bin/perl
   2 # Build Emacs in several different configurations.
   3
   4 # Copyright (C) 2001-2017 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 <https://www.gnu.org/licenses/>.
  20
  21
  22 require 5;
  23 use strict;
  24 use warnings;
  25 use Getopt::Long;
  26 use File::Basename;
  27 use Cwd;
  28
  29 @configs =
  30   (
  31    ["--without-x",                "--optim"],
  32    ["--without-x-toolkit",        "--optim"],
  33    ["--without-toolkit-scroll-bars", "--optim"],
  34    ["--with-x-toolkit=lucid",     "--optim"],
  35    ["--with-x-toolkit=motif",     "--optim"],
  36    ["--with-x-toolkit=motif",     "--enable-checking"],
  37    ["--with-x-toolkit=motif",     "--gcc3"],
  38    ["--with-x-toolkit=motif",     ""],
  39   );
  40
  41 $log = "/tmp/$$.out";
  42 print "Using log file $log\n";
  43 unlink $log;
  44
  45 $root = $ENV{"EMACS_ROOT"};
  46 $root = "/gd/gnu/emacs" unless $root;
  47
  48 $rc = GetOptions ("help" => \$help);
  49 if ($rc == 0 || $help)
  50   {
  51     print <<USAGE;
  52 build-configs
  53
  54 Build Emacs in different configurations.
  55
  56 --help                  show this help
  57
  58 USAGE
  59     exit 1;
  60   }
  61
  62 # Chdir to the top-level directory of the tree.  If not in a tree
  63 # containing Emacs, use the default.
  64
  65 while (! -f "src/emacs.c" && cwd () ne "/")
  66   {
  67     chdir "..";
  68   }
  69
  70 chdir $root if cwd () eq "/";
  71 print "Build in ", cwd (), "\n";
  72
  73 foreach $config (@configs)
  74   {
  75     my $configure_options = @$config[0];
  76     my $make_options = @$config[1];
  77     my $rc;
  78
  79     print "$configure_options, $make_options\n";
  80     unlink "config.cache";
  81
  82     $rc = system ("$root/configure $configure_options >>$log 2>&1");
  83     if ($rc != 0)
  84       {
  85         print "configure failed\n";
  86         exit 1;
  87       }
  88
  89     $rc = system ("make-emacs --all $make_options >>$log 2>&1");
  90     if ($rc != 0)
  91       {
  92         print "Make failed\n";
  93         exit 1;
  94       }
  95   }
  96
  97 # Local Variables:
  98 # mode: cperl
  99 # End: