(U+5709): Apply new conventions for glyph granularity for components
[chise/xemacs-chise.git.1] / 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/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/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/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 }