|
434
|
1 : #-*- Perl -*-
|
|
|
2 eval 'exec perl -w -S $0 ${1+"$@"}' # Portability kludge
|
|
|
3 if 0;
|
|
|
4
|
|
428
|
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 ##
|
|
543
|
34 ## See lisp/config.el, ../configure.in,
|
|
428
|
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 ##
|
|
434
|
41
|
|
|
42 if (! -r "./configure") {
|
|
|
43 chdir ".." or die "Can't chdir: $!";
|
|
|
44 if (! -r "./configure") {
|
|
|
45 die "Can't find configure!";
|
|
|
46 }
|
|
|
47 }
|
|
428
|
48
|
|
434
|
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!
|
|
428
|
62 ;;; This file was automatically generated, by the config.values.sh script,
|
|
|
63 ;;; from configure, which was itself automatically generated from configure.in.
|
|
|
64 ;;;
|
|
543
|
65 ;;; See lisp/config.el for details on how this file is used.
|
|
428
|
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
|
|
543
|
72 ;;; config.values is read by lisp/config.el,
|
|
428
|
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
|
|
434
|
78 ";
|
|
428
|
79
|
|
434
|
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 .= "
|
|
428
|
89 ;;; Variables defined in configure by AC_DEFINE and AC_DEFINE_UNQUOTED follow:
|
|
|
90 ;;; (These are used in C code)
|
|
|
91
|
|
434
|
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 }
|
