git.chise.org Git - chise/xemacs-chise.git.1/blob - lib-src/config.values.sh

   1 : #-*- Perl -*-
   2 eval 'exec perl -w -S $0 ${1+"$@"}' # Portability kludge
   3     if 0;
   4
   5 # config.values.sh --- create config.values.in from ../configure
   6
   7 # Author:       Martin Buchholz
   8 # Maintainer:   Martin Buchholz
   9 # Keywords:     configure elisp report-xemacs-bugs
  10
  11 # This file is part of XEmacs.
  12
  13 # XEmacs is free software; you can redistribute it and/or modify it
  14 # under the terms of the GNU General Public License as published by
  15 # the Free Software Foundation; either version 2, or (at your option)
  16 # any later version.
  17
  18 # XEmacs is distributed in the hope that it will be useful, but
  19 # WITHOUT ANY WARRANTY; without even the implied warranty of
  20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 # General Public License for more details.
  22
  23 # You should have received a copy of the GNU General Public License
  24 # along with XEmacs; see the file COPYING.  If not, write to
  25 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26 # Boston, MA 02111-1307, USA.
  27
  28 ### Commentary:
  29
  30 ## Extract all the @foo@ configuration symbols from ../configure
  31 ## to make them available to elisp later (see util/config.el)
  32 ## Primarily useful for creating ridiculously verbose bug reports.
  33 ##
  34 ## See lisp/utils/config.el, ../configure.in,
  35 ## and the Autoconf documentation on AC_OUTPUT, for more details.
  36 ##
  37 ## This script needs only to be run occasionally (before a Net release)
  38 ## by an XEmacs Maintainer (consider yourself so blessed, if you are
  39 ## actually reading this commentary).
  40 ##
  41
  42 if (! -r "./configure") {
  43   chdir ".." or die "Can't chdir: $!";
  44   if (! -r "./configure") {
  45     die "Can't find configure!";
  46   }
  47 }
  48
  49 sub FileContents {
  50   local $/ = undef; # Slurp mode
  51   open (FILE, "< $_[0]") or die "$_[0]: $!";
  52   my $contents = <FILE>;
  53   close FILE or die "$_[0]: $!";
  54   return $contents;
  55 }
  56
  57 my $configure_contents = FileContents "./configure";
  58 my $cvi_contents = FileContents "lib-src/config.values.in";
  59
  60 my $new_cvi_contents =
  61 ";;; Do not edit this file!
  62 ;;; This file was automatically generated, by the config.values.sh script,
  63 ;;; from configure, which was itself automatically generated from configure.in.
  64 ;;;
  65 ;;; See lisp/util/config.el for details on how this file is used.
  66 ;;;
  67 ;;; You are trapped in a twisty maze of strange-looking files, all autogenerated...
  68
  69 ;;; configure        is created, from configure.in,     by autoconf
  70 ;;; config.values.in is created, from configure,        by config.values.sh
  71 ;;; config.values    is created, from config.values.in, by configure
  72 ;;; config.values    is read by lisp/utils/config.el,
  73 ;;;                  to create the (Lisp object) config-value-hash-table
  74
  75 ;;; Variables defined in configure by AC_SUBST follow:
  76 ;;; (These are used in Makefiles)
  77
  78 ";
  79
  80 my %done;
  81 for my $var (sort { $a cmp $b }
  82              $configure_contents =~
  83              /^s\%\@([A-Za-z0-9_]+)\@\%\$[A-Za-z0-9_]+\%g/mg) {
  84   $new_cvi_contents .= "$var \"\@$var\@\"\n" unless exists $done{$var};
  85   $done{$var} = 1;
  86 }
  87
  88 $new_cvi_contents .= "
  89 ;;; Variables defined in configure by AC_DEFINE and AC_DEFINE_UNQUOTED follow:
  90 ;;; (These are used in C code)
  91
  92 ";
  93
  94 if ($cvi_contents ne $new_cvi_contents) {
  95   unlink "lib-src/config.values.in";
  96   open (CVI, "> lib-src/config.values.in")
  97     or die "lib-src/config.values.in: $!";
  98   print CVI $new_cvi_contents;
  99   close CVI
 100     or die "lib-src/config.values.in: $!";
 101 }