Mercurial > hg > xemacs-beta
annotate lib-src/config.values.sh @ 5402:308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
| author | Mats Lidell <matsl@xemacs.org> |
|---|---|
| date | Thu, 14 Oct 2010 17:15:20 +0200 |
| parents | 3580ae2ce979 |
| children | b9167d522a9a |
| rev | line source |
|---|---|
| 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. | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
12 # |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
13 # XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
14 # under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
15 # Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
16 # option) any later version. |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
17 # |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
18 # XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
19 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
20 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
21 # for more details. |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
22 # |
| 428 | 23 # You should have received a copy of the GNU General Public License |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2651
diff
changeset
|
24 # along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 25 |
| 26 ### Commentary: | |
| 27 | |
| 28 ## Extract all the @foo@ configuration symbols from ../configure | |
| 29 ## to make them available to elisp later (see util/config.el) | |
| 30 ## Primarily useful for creating ridiculously verbose bug reports. | |
| 31 ## | |
| 543 | 32 ## See lisp/config.el, ../configure.in, |
| 428 | 33 ## and the Autoconf documentation on AC_OUTPUT, for more details. |
| 34 ## | |
| 35 ## This script needs only to be run occasionally (before a Net release) | |
| 36 ## by an XEmacs Maintainer (consider yourself so blessed, if you are | |
| 37 ## actually reading this commentary). | |
| 38 ## | |
| 434 | 39 |
| 40 if (! -r "./configure") { | |
| 41 chdir ".." or die "Can't chdir: $!"; | |
| 42 if (! -r "./configure") { | |
| 43 die "Can't find configure!"; | |
| 44 } | |
| 45 } | |
| 428 | 46 |
| 434 | 47 sub FileContents { |
| 48 local $/ = undef; # Slurp mode | |
| 49 open (FILE, "< $_[0]") or die "$_[0]: $!"; | |
| 50 my $contents = <FILE>; | |
| 51 close FILE or die "$_[0]: $!"; | |
| 52 return $contents; | |
| 53 } | |
| 54 | |
| 55 my $configure_contents = FileContents "./configure"; | |
| 56 my $cvi_contents = FileContents "lib-src/config.values.in"; | |
| 57 | |
| 58 my $new_cvi_contents = | |
| 59 ";;; Do not edit this file! | |
| 428 | 60 ;;; This file was automatically generated, by the config.values.sh script, |
| 61 ;;; from configure, which was itself automatically generated from configure.in. | |
| 62 ;;; | |
| 543 | 63 ;;; See lisp/config.el for details on how this file is used. |
| 428 | 64 ;;; |
| 65 ;;; You are trapped in a twisty maze of strange-looking files, all autogenerated... | |
| 66 | |
| 67 ;;; configure is created, from configure.in, by autoconf | |
| 68 ;;; config.values.in is created, from configure, by config.values.sh | |
| 69 ;;; config.values is created, from config.values.in, by configure | |
| 543 | 70 ;;; config.values is read by lisp/config.el, |
| 428 | 71 ;;; to create the (Lisp object) config-value-hash-table |
| 72 | |
| 73 ;;; Variables defined in configure by AC_SUBST follow: | |
| 74 ;;; (These are used in Makefiles) | |
| 75 | |
| 434 | 76 "; |
| 428 | 77 |
| 434 | 78 my %done; |
| 79 for my $var (sort { $a cmp $b } | |
| 80 $configure_contents =~ | |
| 2651 | 81 /^s\,\@([A-Za-z0-9_]+)\@\,\$[A-Za-z0-9_]+\,;t t/mg) { |
| 434 | 82 $new_cvi_contents .= "$var \"\@$var\@\"\n" unless exists $done{$var}; |
| 83 $done{$var} = 1; | |
| 84 } | |
| 85 | |
| 86 $new_cvi_contents .= " | |
| 428 | 87 ;;; Variables defined in configure by AC_DEFINE and AC_DEFINE_UNQUOTED follow: |
| 88 ;;; (These are used in C code) | |
| 89 | |
| 434 | 90 "; |
| 91 | |
| 92 if ($cvi_contents ne $new_cvi_contents) { | |
| 93 unlink "lib-src/config.values.in"; | |
| 94 open (CVI, "> lib-src/config.values.in") | |
| 95 or die "lib-src/config.values.in: $!"; | |
| 96 print CVI $new_cvi_contents; | |
| 97 close CVI | |
| 98 or die "lib-src/config.values.in: $!"; | |
| 99 } |