annotate lib-src/config.values.sh @ 5176:8b2f75cecb89

rename objects* (.c, .h and .el files) to fontcolor* -------------------- ChangeLog entries follow: -------------------- etc/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * dbxrc.in: Rename objects.c -> fontcolor.c. lisp/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * dumped-lisp.el (preloaded-file-list): * font.el (font-tty-find-closest-color): * fontcolor.el: * fontcolor.el (ws-object-property-1): Removed. * fontcolor.el (fontcolor-property-1): New. * fontcolor.el (font-name): * fontcolor.el (font-ascent): * fontcolor.el (font-descent): * fontcolor.el (font-width): * fontcolor.el (font-height): * fontcolor.el (font-proportional-p): * fontcolor.el (font-properties): * fontcolor.el (font-truename): * fontcolor.el (color-name): * fontcolor.el (color-rgb-components): * x-faces.el: Rename objects.el -> fontcolor.el. lwlib/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * lwlib-colors.h: objects*.h -> fontcolor*.h. man/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * internals/internals.texi (A Summary of the Various XEmacs Modules): * internals/internals.texi (Modules for other Display-Related Lisp Objects): objects*.[ch] -> fontcolor*.[ch]. nt/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * xemacs.dsp: * xemacs.mak: * xemacs.mak (OPT_OBJS): objects*.[ch] -> fontcolor*.[ch]. src/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * EmacsFrame.c: * Makefile.in.in (x_objs): * Makefile.in.in (mswindows_objs): * Makefile.in.in (tty_objs): * Makefile.in.in (gtk_objs): * Makefile.in.in (objs): * console-tty.h: * console-x-impl.h: * console-x-impl.h (struct x_device): * console-x.h: * console-xlike-inc.h: * depend: * device-gtk.c: * device-msw.c: * device-x.c: * device-x.c (x_init_device): * device-x.c (x_finish_init_device): * device.c: * devslots.h (MARKED_SLOT): * emacs.c (main_1): * event-Xt.c: * event-gtk.c: * event-msw.c: * faces.c: * font-mgr.c: * fontcolor-gtk-impl.h: * fontcolor-gtk.c: * fontcolor-gtk.c (syms_of_fontcolor_gtk): * fontcolor-gtk.c (console_type_create_fontcolor_gtk): * fontcolor-gtk.c (vars_of_fontcolor_gtk): * fontcolor-gtk.h: * fontcolor-impl.h: * fontcolor-msw-impl.h: * fontcolor-msw.c: * fontcolor-msw.c (syms_of_fontcolor_mswindows): * fontcolor-msw.c (console_type_create_fontcolor_mswindows): * fontcolor-msw.c (reinit_vars_of_fontcolor_mswindows): * fontcolor-msw.c (vars_of_fontcolor_mswindows): * fontcolor-msw.h: * fontcolor-msw.h (mswindows_color_to_string): * fontcolor-tty-impl.h: * fontcolor-tty.c: * fontcolor-tty.c (syms_of_fontcolor_tty): * fontcolor-tty.c (console_type_create_fontcolor_tty): * fontcolor-tty.c (vars_of_fontcolor_tty): * fontcolor-tty.h: * fontcolor-x-impl.h: * fontcolor-x.c: * fontcolor-x.c (syms_of_fontcolor_x): * fontcolor-x.c (console_type_create_fontcolor_x): * fontcolor-x.c (vars_of_fontcolor_x): * fontcolor-x.c (Xatoms_of_fontcolor_x): * fontcolor-x.h: * fontcolor.c: * fontcolor.c (syms_of_fontcolor): * fontcolor.c (specifier_type_create_fontcolor): * fontcolor.c (reinit_specifier_type_create_fontcolor): * fontcolor.c (reinit_vars_of_fontcolor): * fontcolor.c (vars_of_fontcolor): * fontcolor.h: * fontcolor.h (set_face_boolean_attached_to): * frame-gtk.c: * frame-x.c: * glyphs-eimage.c: * glyphs-gtk.c: * glyphs-msw.c: * glyphs-widget.c: * glyphs-x.c: * glyphs.c: * gtk-glue.c: * gtk-glue.c (xemacs_type_register): * gtk-xemacs.c: * inline.c: * intl-win32.c: * lisp.h: * lrecord.h: * mule-charset.c: * native-gtk-toolbar.c: * redisplay-msw.c: * redisplay-tty.c: * redisplay.c: * select-x.c: * select.c: * symsinit.h: * toolbar-msw.c: * toolbar-msw.c (TOOLBAR_ITEM_ID_BITS): * toolbar-x.c: * ui-gtk.c: * window.c: Rename objects*.[ch] -> fontcolor*.[ch]. Fix up all references to the old files (e.g. in #include statements, Makefiles, functions like syms_of_objects_x(), etc.). tests/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * reproduce-crashes.el (8): objects*.[ch] -> fontcolor*.[ch].
author Ben Wing <ben@xemacs.org>
date Mon, 22 Feb 2010 06:49:30 -0600
parents 3580ae2ce979
children e6508b64ee08 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
1 : #-*- Perl -*-
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
2 eval 'exec perl -w -S $0 ${1+"$@"}' # Portability kludge
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
3 if 0;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
4
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 # config.values.sh --- create config.values.in from ../configure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 # Author: Martin Buchholz
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 # Maintainer: Martin Buchholz
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 # Keywords: configure elisp report-xemacs-bugs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 # This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 # XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 # under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 # the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 # any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 # XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 # WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 # General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 # You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 # along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 # Boston, MA 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 ### Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 ## Extract all the @foo@ configuration symbols from ../configure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 ## to make them available to elisp later (see util/config.el)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 ## Primarily useful for creating ridiculously verbose bug reports.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 ##
543
7e84f0c36c66 [xemacs-hg @ 2001-05-17 13:44:34 by stephent]
stephent
parents: 434
diff changeset
34 ## See lisp/config.el, ../configure.in,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 ## and the Autoconf documentation on AC_OUTPUT, for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 ##
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 ## This script needs only to be run occasionally (before a Net release)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 ## by an XEmacs Maintainer (consider yourself so blessed, if you are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 ## actually reading this commentary).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 ##
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
41
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
42 if (! -r "./configure") {
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
43 chdir ".." or die "Can't chdir: $!";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
44 if (! -r "./configure") {
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
45 die "Can't find configure!";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
46 }
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
47 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
49 sub FileContents {
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
50 local $/ = undef; # Slurp mode
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
51 open (FILE, "< $_[0]") or die "$_[0]: $!";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
52 my $contents = <FILE>;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
53 close FILE or die "$_[0]: $!";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
54 return $contents;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
55 }
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
56
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
57 my $configure_contents = FileContents "./configure";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
58 my $cvi_contents = FileContents "lib-src/config.values.in";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
59
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
60 my $new_cvi_contents =
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
61 ";;; Do not edit this file!
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 ;;; This file was automatically generated, by the config.values.sh script,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 ;;; from configure, which was itself automatically generated from configure.in.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 ;;;
543
7e84f0c36c66 [xemacs-hg @ 2001-05-17 13:44:34 by stephent]
stephent
parents: 434
diff changeset
65 ;;; See lisp/config.el for details on how this file is used.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 ;;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 ;;; You are trapped in a twisty maze of strange-looking files, all autogenerated...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 ;;; configure is created, from configure.in, by autoconf
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 ;;; config.values.in is created, from configure, by config.values.sh
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 ;;; config.values is created, from config.values.in, by configure
543
7e84f0c36c66 [xemacs-hg @ 2001-05-17 13:44:34 by stephent]
stephent
parents: 434
diff changeset
72 ;;; config.values is read by lisp/config.el,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 ;;; to create the (Lisp object) config-value-hash-table
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 ;;; Variables defined in configure by AC_SUBST follow:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 ;;; (These are used in Makefiles)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
78 ";
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
80 my %done;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
81 for my $var (sort { $a cmp $b }
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
82 $configure_contents =~
2651
3580ae2ce979 [xemacs-hg @ 2005-03-11 11:18:44 by malcolmp]
malcolmp
parents: 543
diff changeset
83 /^s\,\@([A-Za-z0-9_]+)\@\,\$[A-Za-z0-9_]+\,;t t/mg) {
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
84 $new_cvi_contents .= "$var \"\@$var\@\"\n" unless exists $done{$var};
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
85 $done{$var} = 1;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
86 }
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
87
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
88 $new_cvi_contents .= "
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 ;;; Variables defined in configure by AC_DEFINE and AC_DEFINE_UNQUOTED follow:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 ;;; (These are used in C code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
92 ";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
93
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
94 if ($cvi_contents ne $new_cvi_contents) {
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
95 unlink "lib-src/config.values.in";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
96 open (CVI, "> lib-src/config.values.in")
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
97 or die "lib-src/config.values.in: $!";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
98 print CVI $new_cvi_contents;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
99 close CVI
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
100 or die "lib-src/config.values.in: $!";
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
101 }