annotate src/glyphs.c @ 278:90d73dddcdc4 r21-0b37

Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents 6330739388db
children 7df0dd720c89
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* Generic glyph/image implementation + display tables
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 Copyright (C) 1995 Tinker Systems
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 Copyright (C) 1995, 1996 Ben Wing
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 Copyright (C) 1995 Sun Microsystems
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
6
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 This file is part of XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 XEmacs is free software; you can redistribute it and/or modify it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 under the terms of the GNU General Public License as published by the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 Free Software Foundation; either version 2, or (at your option) any
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 along with XEmacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 Boston, MA 02111-1307, USA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 /* Synched up with: Not in FSF. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 /* Written by Ben Wing and Chuck Thompson */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 #include <config.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 #include "lisp.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 #include "buffer.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 #include "device.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 #include "elhash.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 #include "faces.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 #include "frame.h"
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
36 #include "insdel.h"
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 #include "glyphs.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 #include "objects.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 #include "redisplay.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 #include "window.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
42 #ifdef HAVE_XPM
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
43 #include <X11/xpm.h>
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
44 #endif
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
45
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 249
diff changeset
46 Lisp_Object Qimage_conversion_error;
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 249
diff changeset
47
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 Lisp_Object Qglyphp, Qcontrib_p, Qbaseline;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 Lisp_Object Qbuffer_glyph_p, Qpointer_glyph_p, Qicon_glyph_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 Lisp_Object Qnothing_image_instance_p, Qtext_image_instance_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 Lisp_Object Qmono_pixmap_image_instance_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 Lisp_Object Qcolor_pixmap_image_instance_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 Lisp_Object Qpointer_image_instance_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 Lisp_Object Qsubwindow_image_instance_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 Lisp_Object Qconst_glyph_variable;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 Lisp_Object Qmono_pixmap, Qcolor_pixmap, Qsubwindow;
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
57 Lisp_Object Q_file, Q_data, Q_face;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
58 Lisp_Object Qicon;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
59 Lisp_Object Qformatted_string;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 Lisp_Object Vcurrent_display_table;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 Lisp_Object Vtruncation_glyph, Vcontinuation_glyph, Voctal_escape_glyph;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 Lisp_Object Vcontrol_arrow_glyph, Vinvisible_text_glyph, Vhscroll_glyph;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 Lisp_Object Vxemacs_logo;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 Lisp_Object Vthe_nothing_vector;
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
66 Lisp_Object Vimage_instantiator_format_list;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
67 Lisp_Object Vimage_instance_type_list;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
68 Lisp_Object Vglyph_type_list;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
69
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 DEFINE_IMAGE_INSTANTIATOR_FORMAT (nothing);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 DEFINE_IMAGE_INSTANTIATOR_FORMAT (inherit);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 DEFINE_IMAGE_INSTANTIATOR_FORMAT (string);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 DEFINE_IMAGE_INSTANTIATOR_FORMAT (formatted_string);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
75 Lisp_Object x_locate_pixmap_file (Lisp_Object name);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
76 Lisp_Object mswindows_locate_pixmap_file (Lisp_Object name);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
77
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
78 #ifdef HAVE_XPM
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
79 DEFINE_IMAGE_INSTANTIATOR_FORMAT (xpm);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
80 Lisp_Object Qxpm;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
81 Lisp_Object Q_color_symbols;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
82 void x_xpm_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
83 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
84 int dest_mask, Lisp_Object domain);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
85 void mswindows_xpm_instantiate (Lisp_Object image_instance,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
86 Lisp_Object instantiator,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
87 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
88 int dest_mask, Lisp_Object domain);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
89 Lisp_Object x_xpm_normalize (Lisp_Object inst, Lisp_Object console_type);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
90 Lisp_Object mswindows_xpm_normalize (Lisp_Object inst,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
91 Lisp_Object console_type);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
92 #endif
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
93
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
94 typedef struct image_instantiator_format_entry image_instantiator_format_entry;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 struct image_instantiator_format_entry
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 Lisp_Object symbol;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 struct image_instantiator_methods *meths;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 };
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
101 typedef struct
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 Dynarr_declare (struct image_instantiator_format_entry);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 } image_instantiator_format_entry_dynarr;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 image_instantiator_format_entry_dynarr *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 the_image_instantiator_format_entry_dynarr;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 static Lisp_Object allocate_image_instance (Lisp_Object device);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 static void image_validate (Lisp_Object instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 static void glyph_property_was_changed (Lisp_Object glyph,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 Lisp_Object property,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 Lisp_Object locale);
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
114 EXFUN (Fimage_instance_type, 1);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
115 EXFUN (Fglyph_type, 1);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 /****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 * Image Instantiators *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 static struct image_instantiator_methods *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 decode_image_instantiator_format (Lisp_Object format, Error_behavior errb)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 int i;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 if (!SYMBOLP (format))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 if (ERRB_EQ (errb, ERROR_ME))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 CHECK_SYMBOL (format);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 for (i = 0; i < Dynarr_length (the_image_instantiator_format_entry_dynarr);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 i++)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 if (EQ (format,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 Dynarr_at (the_image_instantiator_format_entry_dynarr, i).
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 symbol))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 return Dynarr_at (the_image_instantiator_format_entry_dynarr, i).meths;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 maybe_signal_simple_error ("Invalid image-instantiator format", format,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 Qimage, errb);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 valid_image_instantiator_format_p (Lisp_Object format)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
152 return (decode_image_instantiator_format (format, ERROR_ME_NOT) != 0);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
155 DEFUN ("valid-image-instantiator-format-p",
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
156 Fvalid_image_instantiator_format_p, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 Given an IMAGE-INSTANTIATOR-FORMAT, return non-nil if it is valid.
120
cca96a509cfe Import from CVS: tag r20-1b12
cvs
parents: 116
diff changeset
158 Valid formats are some subset of 'nothing, 'string, 'formatted-string,
cca96a509cfe Import from CVS: tag r20-1b12
cvs
parents: 116
diff changeset
159 'xpm, 'xbm, 'xface, 'gif, 'jpeg, 'png, 'tiff, 'cursor-font, 'font,
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
160 'autodetect, and 'subwindow, depending on how XEmacs was compiled.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
161 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
162 (image_instantiator_format))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
164 return valid_image_instantiator_format_p (image_instantiator_format) ?
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
165 Qt : Qnil;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
168 DEFUN ("image-instantiator-format-list",
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
169 Fimage_instantiator_format_list, 0, 0, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 Return a list of valid image-instantiator formats.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
171 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
172 ())
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 return Fcopy_sequence (Vimage_instantiator_format_list);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178 add_entry_to_image_instantiator_format_list (Lisp_Object symbol,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179 struct
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 image_instantiator_methods *meths)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 struct image_instantiator_format_entry entry;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184 entry.symbol = symbol;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 entry.meths = meths;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186 Dynarr_add (the_image_instantiator_format_entry_dynarr, entry);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 Vimage_instantiator_format_list =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188 Fcons (symbol, Vimage_instantiator_format_list);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 static Lisp_Object *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192 get_image_conversion_list (Lisp_Object console_type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 return &decode_console_type (console_type, ERROR_ME)->image_conversion_list;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 DEFUN ("set-console-type-image-conversion-list",
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
198 Fset_console_type_image_conversion_list, 2, 2, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 Set the image-conversion-list for consoles of the given TYPE.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 The image-conversion-list specifies how image instantiators that
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 are strings should be interpreted. Each element of the list should be
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 a list of two elements (a regular expression string and a vector) or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 a list of three elements (the preceding two plus an integer index into
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 the vector). The string is converted to the vector associated with the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 first matching regular expression. If a vector index is specified, the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206 string itself is substituted into that position in the vector.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
207
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 Note: The conversion above is applied when the image instantiator is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 added to an image specifier, not when the specifier is actually
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210 instantiated. Therefore, changing the image-conversion-list only affects
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211 newly-added instantiators. Existing instantiators in glyphs and image
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212 specifiers will not be affected.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
213 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
214 (console_type, list))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216 Lisp_Object tail;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 Lisp_Object *imlist = get_image_conversion_list (console_type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 /* Check the list to make sure that it only has valid entries. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 EXTERNAL_LIST_LOOP (tail, list)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223 Lisp_Object mapping = XCAR (tail);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 /* Mapping form should be (STRING VECTOR) or (STRING VECTOR INTEGER) */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 if (!CONSP (mapping) ||
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 !CONSP (XCDR (mapping)) ||
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228 (!NILP (XCDR (XCDR (mapping))) &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229 (!CONSP (XCDR (XCDR (mapping))) ||
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 !NILP (XCDR (XCDR (XCDR (mapping)))))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 signal_simple_error ("Invalid mapping form", mapping);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234 Lisp_Object exp = XCAR (mapping);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235 Lisp_Object typevec = XCAR (XCDR (mapping));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236 Lisp_Object pos = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 Lisp_Object newvec;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 struct gcpro gcpro1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
240 CHECK_STRING (exp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241 CHECK_VECTOR (typevec);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242 if (!NILP (XCDR (XCDR (mapping))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244 pos = XCAR (XCDR (XCDR (mapping)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 CHECK_INT (pos);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 if (XINT (pos) < 0 ||
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
247 XINT (pos) >= XVECTOR_LENGTH (typevec))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
248 args_out_of_range_3
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
249 (pos, Qzero, make_int (XVECTOR_LENGTH (typevec) - 1));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 }
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
251
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 newvec = Fcopy_sequence (typevec);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253 if (INTP (pos))
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
254 XVECTOR_DATA (newvec)[XINT (pos)] = exp;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255 GCPRO1 (newvec);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 image_validate (newvec);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 UNGCPRO;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261 *imlist = Fcopy_tree (list, Qt);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262 return list;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
264
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
265 DEFUN ("console-type-image-conversion-list",
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
266 Fconsole_type_image_conversion_list, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
267 Return the image-conversion-list for devices of the given TYPE.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
268 The image-conversion-list specifies how to interpret image string
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
269 instantiators for the specified console type. See
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
270 `set-console-type-image-conversion-list' for a description of its syntax.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
271 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
272 (console_type))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
274 return Fcopy_tree (*get_image_conversion_list (console_type), Qt);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
275 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
276
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
277 /* Process a string instantiator according to the image-conversion-list for
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
278 CONSOLE_TYPE. Returns a vector. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
279
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
280 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
281 process_image_string_instantiator (Lisp_Object data,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
282 Lisp_Object console_type,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
283 int dest_mask)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
284 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
285 Lisp_Object tail;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
286
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
287 LIST_LOOP (tail, *get_image_conversion_list (console_type))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
288 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
289 Lisp_Object mapping = XCAR (tail);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
290 Lisp_Object exp = XCAR (mapping);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
291 Lisp_Object typevec = XCAR (XCDR (mapping));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
292
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
293 /* if the result is of a type that can't be instantiated
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
294 (e.g. a string when we're dealing with a pointer glyph),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
295 skip it. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
296 if (!(dest_mask &
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
297 IIFORMAT_METH (decode_image_instantiator_format
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
298 (XVECTOR_DATA (typevec)[0], ERROR_ME),
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
299 possible_dest_types, ())))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
300 continue;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
301 if (fast_string_match (exp, 0, data, 0, -1, 0, ERROR_ME, 0) >= 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
302 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
303 if (!NILP (XCDR (XCDR (mapping))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
304 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
305 int pos = XINT (XCAR (XCDR (XCDR (mapping))));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
306 Lisp_Object newvec = Fcopy_sequence (typevec);
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
307 XVECTOR_DATA (newvec)[pos] = data;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
308 return newvec;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
309 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
310 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
311 return typevec;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
312 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
313 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
314
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
315 /* Oh well. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
316 signal_simple_error ("Unable to interpret glyph instantiator",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
317 data);
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
318
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
319 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
320 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
321
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
322 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
323 find_keyword_in_vector_or_given (Lisp_Object vector, Lisp_Object keyword,
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
324 Lisp_Object default_)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
325 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
326 Lisp_Object *elt;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
327 int instantiator_len;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
328
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
329 elt = XVECTOR_DATA (vector);
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
330 instantiator_len = XVECTOR_LENGTH (vector);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
331
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
332 elt++;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
333 instantiator_len--;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
334
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
335 while (instantiator_len > 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
336 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
337 if (EQ (elt[0], keyword))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
338 return elt[1];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
339 elt += 2;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
340 instantiator_len -= 2;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
341 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
342
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
343 return default_;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
344 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
345
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
346 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
347 find_keyword_in_vector (Lisp_Object vector, Lisp_Object keyword)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
348 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
349 return find_keyword_in_vector_or_given (vector, keyword, Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
350 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
351
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
352 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
353 check_valid_string (Lisp_Object data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
354 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
355 CHECK_STRING (data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
356 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
357
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
358 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
359 check_valid_face (Lisp_Object data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
360 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
361 Fget_face (data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
362 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
363
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
364 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
365 check_valid_int (Lisp_Object data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
366 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
367 CHECK_INT (data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
368 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
369
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
370 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
371 file_or_data_must_be_present (Lisp_Object instantiator)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
372 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
373 if (NILP (find_keyword_in_vector (instantiator, Q_file)) &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
374 NILP (find_keyword_in_vector (instantiator, Q_data)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
375 signal_simple_error ("Must supply either :file or :data",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
376 instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
377 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
378
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
379 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
380 data_must_be_present (Lisp_Object instantiator)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
381 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
382 if (NILP (find_keyword_in_vector (instantiator, Q_data)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
383 signal_simple_error ("Must supply :data", instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
384 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
385
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
386 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
387 face_must_be_present (Lisp_Object instantiator)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
388 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
389 if (NILP (find_keyword_in_vector (instantiator, Q_face)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
390 signal_simple_error ("Must supply :face", instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
391 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
392
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
393 /* utility function useful in retrieving data from a file. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
394
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
395 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
396 make_string_from_file (Lisp_Object file)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
397 {
116
9f59509498e1 Import from CVS: tag r20-1b10
cvs
parents: 84
diff changeset
398 /* This function can call lisp */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
399 int count = specpdl_depth ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
400 Lisp_Object temp_buffer;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
401 struct gcpro gcpro1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
402 Lisp_Object data;
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
403
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
404 specbind (Qinhibit_quit, Qt);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
405 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
406 temp_buffer = Fget_buffer_create (build_string (" *pixmap conversion*"));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
407 GCPRO1 (temp_buffer);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
408 set_buffer_internal (XBUFFER (temp_buffer));
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 185
diff changeset
409 Ferase_buffer (Qnil);
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 124
diff changeset
410 specbind (intern ("format-alist"), Qnil);
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents: 48
diff changeset
411 Finsert_file_contents_internal (file, Qnil, Qnil, Qnil, Qnil, Qnil, Qnil);
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 185
diff changeset
412 data = Fbuffer_substring (Qnil, Qnil, Qnil);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
413 unbind_to (count, Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
414 UNGCPRO;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
415 return data;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
416 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
417
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
418 /* The following two functions are provided to make it easier for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
419 the normalize methods to work with keyword-value vectors.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
420 Hash tables are kind of heavyweight for this purpose.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
421 (If vectors were resizable, we could avoid this problem;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
422 but they're not.) An alternative approach that might be
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
423 more efficient but require more work is to use a type of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
424 assoc-Dynarr and provide primitives for deleting elements out
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
425 of it. (However, you'd also have to add an unwind-protect
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
426 to make sure the Dynarr got freed in case of an error in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
427 the normalization process.) */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
428
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
429 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
430 tagged_vector_to_alist (Lisp_Object vector)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
431 {
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
432 Lisp_Object *elt = XVECTOR_DATA (vector);
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
433 int len = XVECTOR_LENGTH (vector);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
434 Lisp_Object result = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
435
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
436 assert (len & 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
437 for (len -= 2; len >= 1; len -= 2)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
438 result = Fcons (Fcons (elt[len], elt[len+1]), result);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
439
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
440 return result;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
441 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
442
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
443 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
444 alist_to_tagged_vector (Lisp_Object tag, Lisp_Object alist)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
445 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
446 int len = 1 + 2 * XINT (Flength (alist));
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
447 Lisp_Object *elt = alloca_array (Lisp_Object, len);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
448 int i;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
449 Lisp_Object rest;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
450
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
451 i = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
452 elt[i++] = tag;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
453 LIST_LOOP (rest, alist)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
454 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
455 Lisp_Object pair = XCAR (rest);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
456 elt[i] = XCAR (pair);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
457 elt[i+1] = XCDR (pair);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
458 i += 2;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
459 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
460
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
461 return Fvector (len, elt);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
462 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
463
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
464 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
465 normalize_image_instantiator (Lisp_Object instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
466 Lisp_Object contype,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
467 Lisp_Object dest_mask)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
468 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
469 if (IMAGE_INSTANCEP (instantiator))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
470 return instantiator;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
471
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
472 if (STRINGP (instantiator))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
473 instantiator = process_image_string_instantiator (instantiator, contype,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
474 XINT (dest_mask));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
475
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
476 assert (VECTORP (instantiator));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
477 /* We have to always store the actual pixmap data and not the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
478 filename even though this is a potential memory pig. We have to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
479 do this because it is quite possible that we will need to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
480 instantiate a new instance of the pixmap and the file will no
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
481 longer exist (e.g. w3 pixmaps are almost always from temporary
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
482 files). */
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
483 {
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
484 struct image_instantiator_methods * meths =
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
485 decode_image_instantiator_format (XVECTOR_DATA (instantiator)[0],
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
486 ERROR_ME);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
487 return IIFORMAT_METH_OR_GIVEN (meths, normalize,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
488 (instantiator, contype),
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
489 instantiator);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
490 }
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
491 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
492
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
493 static Lisp_Object
124
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
494 instantiate_image_instantiator (Lisp_Object device, Lisp_Object domain,
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
495 Lisp_Object instantiator,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
496 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
497 int dest_mask)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
498 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
499 Lisp_Object ii = allocate_image_instance (device);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
500 struct image_instantiator_methods *meths;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
501 struct gcpro gcpro1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
502
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
503 GCPRO1 (ii);
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
504 meths = decode_image_instantiator_format (XVECTOR_DATA (instantiator)[0],
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
505 ERROR_ME);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
506 if (!HAS_IIFORMAT_METH_P (meths, instantiate))
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
507 signal_simple_error
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
508 ("Don't know how to instantiate this image instantiator?",
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
509 instantiator);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
510 IIFORMAT_METH (meths, instantiate, (ii, instantiator, pointer_fg,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
511 pointer_bg, dest_mask, domain));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
512 UNGCPRO;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
513
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
514 return ii;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
515 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
516
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
517
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
518 /****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
519 * Image-Instance Object *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
520 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
521
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
522 Lisp_Object Qimage_instancep;
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
523
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
524 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
525 mark_image_instance (Lisp_Object obj, void (*markobj) (Lisp_Object))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
526 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
527 struct Lisp_Image_Instance *i = XIMAGE_INSTANCE (obj);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
528
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
529 (markobj) (i->name);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
530 switch (IMAGE_INSTANCE_TYPE (i))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
531 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
532 case IMAGE_TEXT:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
533 (markobj) (IMAGE_INSTANCE_TEXT_STRING (i));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
534 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
535 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
536 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
537 (markobj) (IMAGE_INSTANCE_PIXMAP_FILENAME (i));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
538 (markobj) (IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (i));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
539 (markobj) (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (i));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
540 (markobj) (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (i));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
541 (markobj) (IMAGE_INSTANCE_PIXMAP_FG (i));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
542 (markobj) (IMAGE_INSTANCE_PIXMAP_BG (i));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
543 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
544 case IMAGE_SUBWINDOW:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
545 /* #### implement me */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
546 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
547 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
548 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
549 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
550
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
551 MAYBE_DEVMETH (XDEVICE (i->device), mark_image_instance, (i, markobj));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
552
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
553 return i->device;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
554 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
555
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
556 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
557 print_image_instance (Lisp_Object obj, Lisp_Object printcharfun,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
558 int escapeflag)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
559 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
560 char buf[100];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
561 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (obj);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
562
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
563 if (print_readably)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
564 error ("printing unreadable object #<image-instance 0x%x>",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
565 ii->header.uid);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
566 write_c_string ("#<image-instance (", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
567 print_internal (Fimage_instance_type (obj), printcharfun, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
568 write_c_string (") ", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
569 if (!NILP (ii->name))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
570 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
571 print_internal (ii->name, printcharfun, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
572 write_c_string (" ", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
573 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
574 write_c_string ("on ", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
575 print_internal (ii->device, printcharfun, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
576 write_c_string (" ", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
577 switch (IMAGE_INSTANCE_TYPE (ii))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
578 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
579 case IMAGE_NOTHING:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
580 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
581
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
582 case IMAGE_TEXT:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
583 print_internal (IMAGE_INSTANCE_TEXT_STRING (ii), printcharfun, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
584 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
585
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
586 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
587 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
588 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
589 if (STRINGP (IMAGE_INSTANCE_PIXMAP_FILENAME (ii)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
590 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
591 char *s;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
592 Lisp_Object filename = IMAGE_INSTANCE_PIXMAP_FILENAME (ii);
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
593 s = strrchr ((char *) XSTRING_DATA (filename), '/');
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
594 if (s)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
595 print_internal (build_string (s + 1), printcharfun, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
596 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
597 print_internal (filename, printcharfun, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
598 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
599 if (IMAGE_INSTANCE_PIXMAP_DEPTH (ii) > 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
600 sprintf (buf, " %dx%dx%d", IMAGE_INSTANCE_PIXMAP_WIDTH (ii),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
601 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
602 IMAGE_INSTANCE_PIXMAP_DEPTH (ii));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
603 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
604 sprintf (buf, " %dx%d", IMAGE_INSTANCE_PIXMAP_WIDTH (ii),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
605 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
606 write_c_string (buf, printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
607 if (!NILP (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii)) ||
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
608 !NILP (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
609 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
610 write_c_string (" @", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
611 if (!NILP (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
612 {
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
613 long_to_string (buf, XINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii)));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
614 write_c_string (buf, printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
615 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
616 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
617 write_c_string ("??", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
618 write_c_string (",", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
619 if (!NILP (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
620 {
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
621 long_to_string (buf, XINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii)));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
622 write_c_string (buf, printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
623 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
624 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
625 write_c_string ("??", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
626 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
627 if (!NILP (IMAGE_INSTANCE_PIXMAP_FG (ii)) ||
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
628 !NILP (IMAGE_INSTANCE_PIXMAP_BG (ii)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
629 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
630 write_c_string (" (", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
631 if (!NILP (IMAGE_INSTANCE_PIXMAP_FG (ii)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
632 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
633 print_internal
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
634 (XCOLOR_INSTANCE
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
635 (IMAGE_INSTANCE_PIXMAP_FG (ii))->name, printcharfun, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
636 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
637 write_c_string ("/", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
638 if (!NILP (IMAGE_INSTANCE_PIXMAP_BG (ii)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
639 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
640 print_internal
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
641 (XCOLOR_INSTANCE
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
642 (IMAGE_INSTANCE_PIXMAP_BG (ii))->name, printcharfun, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
643 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
644 write_c_string (")", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
645 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
646 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
647
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
648 case IMAGE_SUBWINDOW:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
649 /* #### implement me */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
650 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
651
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
652 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
653 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
654 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
655
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
656 MAYBE_DEVMETH (XDEVICE (ii->device), print_image_instance,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
657 (ii, printcharfun, escapeflag));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
658 sprintf (buf, " 0x%x>", ii->header.uid);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
659 write_c_string (buf, printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
660 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
661
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
662 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
663 finalize_image_instance (void *header, int for_disksave)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
664 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
665 struct Lisp_Image_Instance *i = (struct Lisp_Image_Instance *) header;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
666
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
667 if (IMAGE_INSTANCE_TYPE (i) == IMAGE_NOTHING)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
668 /* objects like this exist at dump time, so don't bomb out. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
669 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
670 if (for_disksave) finalose (i);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
671
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
672 MAYBE_DEVMETH (XDEVICE (i->device), finalize_image_instance, (i));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
673 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
674
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
675 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
676 image_instance_equal (Lisp_Object o1, Lisp_Object o2, int depth)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
677 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
678 struct Lisp_Image_Instance *i1 = XIMAGE_INSTANCE (o1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
679 struct Lisp_Image_Instance *i2 = XIMAGE_INSTANCE (o2);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
680 struct device *d1 = XDEVICE (i1->device);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
681 struct device *d2 = XDEVICE (i2->device);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
682
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
683 if (d1 != d2)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
684 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
685 if (IMAGE_INSTANCE_TYPE (i1) != IMAGE_INSTANCE_TYPE (i2))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
686 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
687 if (!internal_equal (IMAGE_INSTANCE_NAME (i1), IMAGE_INSTANCE_NAME (i2),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
688 depth + 1))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
689 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
690
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
691 switch (IMAGE_INSTANCE_TYPE (i1))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
692 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
693 case IMAGE_NOTHING:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
694 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
695
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
696 case IMAGE_TEXT:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
697 if (!internal_equal (IMAGE_INSTANCE_TEXT_STRING (i1),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
698 IMAGE_INSTANCE_TEXT_STRING (i2),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
699 depth + 1))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
700 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
701 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
702
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
703 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
704 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
705 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
706 if (!(IMAGE_INSTANCE_PIXMAP_WIDTH (i1) ==
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
707 IMAGE_INSTANCE_PIXMAP_WIDTH (i2) &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
708 IMAGE_INSTANCE_PIXMAP_HEIGHT (i1) ==
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
709 IMAGE_INSTANCE_PIXMAP_HEIGHT (i2) &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
710 IMAGE_INSTANCE_PIXMAP_DEPTH (i1) ==
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
711 IMAGE_INSTANCE_PIXMAP_DEPTH (i2) &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
712 EQ (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (i1),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
713 IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (i2)) &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
714 EQ (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (i1),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
715 IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (i2)) &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
716 internal_equal (IMAGE_INSTANCE_PIXMAP_FILENAME (i1),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
717 IMAGE_INSTANCE_PIXMAP_FILENAME (i2),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
718 depth + 1) &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
719 internal_equal (IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (i1),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
720 IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (i2),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
721 depth + 1)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
722 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
723 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
724
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
725 case IMAGE_SUBWINDOW:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
726 /* #### implement me */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
727 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
728
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
729 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
730 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
731 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
732
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
733 return DEVMETH_OR_GIVEN (d1, image_instance_equal, (i1, i2, depth), 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
734 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
735
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
736 static unsigned long
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
737 image_instance_hash (Lisp_Object obj, int depth)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
738 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
739 struct Lisp_Image_Instance *i = XIMAGE_INSTANCE (obj);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
740 struct device *d = XDEVICE (i->device);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
741 unsigned long hash = (unsigned long) d;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
742
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
743 switch (IMAGE_INSTANCE_TYPE (i))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
744 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
745 case IMAGE_NOTHING:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
746 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
747
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
748 case IMAGE_TEXT:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
749 hash = HASH2 (hash, internal_hash (IMAGE_INSTANCE_TEXT_STRING (i),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
750 depth + 1));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
751 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
752
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
753 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
754 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
755 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
756 hash = HASH5 (hash, IMAGE_INSTANCE_PIXMAP_WIDTH (i),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
757 IMAGE_INSTANCE_PIXMAP_HEIGHT (i),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
758 IMAGE_INSTANCE_PIXMAP_DEPTH (i),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
759 internal_hash (IMAGE_INSTANCE_PIXMAP_FILENAME (i),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
760 depth + 1));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
761 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
762
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
763 case IMAGE_SUBWINDOW:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
764 /* #### implement me */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
765 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
766
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
767 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
768 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
769 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
770
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
771 return HASH2 (hash, DEVMETH_OR_GIVEN (d, image_instance_hash, (i, depth),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
772 0));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
773 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
774
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
775 DEFINE_LRECORD_IMPLEMENTATION ("image-instance", image_instance,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
776 mark_image_instance, print_image_instance,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
777 finalize_image_instance, image_instance_equal,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
778 image_instance_hash,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
779 struct Lisp_Image_Instance);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
780
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
781 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
782 allocate_image_instance (Lisp_Object device)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
783 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
784 struct Lisp_Image_Instance *lp =
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
785 alloc_lcrecord_type (struct Lisp_Image_Instance, lrecord_image_instance);
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
786 Lisp_Object val;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
787
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
788 zero_lcrecord (lp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
789 lp->device = device;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
790 lp->type = IMAGE_NOTHING;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
791 lp->name = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
792 XSETIMAGE_INSTANCE (val, lp);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
793 return val;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
794 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
795
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
796 static enum image_instance_type
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
797 decode_image_instance_type (Lisp_Object type, Error_behavior errb)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
798 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
799 if (ERRB_EQ (errb, ERROR_ME))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
800 CHECK_SYMBOL (type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
801
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
802 if (EQ (type, Qnothing)) return IMAGE_NOTHING;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
803 if (EQ (type, Qtext)) return IMAGE_TEXT;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
804 if (EQ (type, Qmono_pixmap)) return IMAGE_MONO_PIXMAP;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
805 if (EQ (type, Qcolor_pixmap)) return IMAGE_COLOR_PIXMAP;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
806 if (EQ (type, Qpointer)) return IMAGE_POINTER;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
807 if (EQ (type, Qsubwindow)) return IMAGE_SUBWINDOW;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
808
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
809 maybe_signal_simple_error ("Invalid image-instance type", type,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
810 Qimage, errb);
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
811
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
812 return IMAGE_UNKNOWN; /* not reached */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
813 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
814
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
815 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
816 encode_image_instance_type (enum image_instance_type type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
817 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
818 switch (type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
819 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
820 case IMAGE_NOTHING: return Qnothing;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
821 case IMAGE_TEXT: return Qtext;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
822 case IMAGE_MONO_PIXMAP: return Qmono_pixmap;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
823 case IMAGE_COLOR_PIXMAP: return Qcolor_pixmap;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
824 case IMAGE_POINTER: return Qpointer;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
825 case IMAGE_SUBWINDOW: return Qsubwindow;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
826 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
827 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
828 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
829
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
830 return Qnil; /* not reached */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
831 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
832
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
833 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
834 image_instance_type_to_mask (enum image_instance_type type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
835 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
836 /* This depends on the fact that enums are assigned consecutive
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
837 integers starting at 0. (Remember that IMAGE_UNKNOWN is the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
838 first enum.) I'm fairly sure this behavior in ANSI-mandated,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
839 so there should be no portability problems here. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
840 return (1 << ((int) (type) - 1));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
841 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
842
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
843 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
844 decode_image_instance_type_list (Lisp_Object list)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
845 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
846 Lisp_Object rest;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
847 int mask = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
848
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
849 if (NILP (list))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
850 return ~0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
851
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
852 if (!CONSP (list))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
853 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
854 enum image_instance_type type =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
855 decode_image_instance_type (list, ERROR_ME);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
856 return image_instance_type_to_mask (type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
857 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
858
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
859 EXTERNAL_LIST_LOOP (rest, list)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
860 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
861 enum image_instance_type type =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
862 decode_image_instance_type (XCAR (rest), ERROR_ME);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
863 mask |= image_instance_type_to_mask (type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
864 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
865
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
866 return mask;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
867 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
868
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
869 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
870 encode_image_instance_type_list (int mask)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
871 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
872 int count = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
873 Lisp_Object result = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
874
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
875 while (mask)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
876 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
877 count++;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
878 if (mask & 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
879 result = Fcons (encode_image_instance_type
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
880 ((enum image_instance_type) count), result);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
881 mask >>= 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
882 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
883
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
884 return Fnreverse (result);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
885 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
886
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
887 DOESNT_RETURN
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
888 incompatible_image_types (Lisp_Object instantiator, int given_dest_mask,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
889 int desired_dest_mask)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
890 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
891 signal_error
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
892 (Qerror,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
893 list2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
894 (emacs_doprnt_string_lisp_2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
895 ((CONST Bufbyte *)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
896 "No compatible image-instance types given: wanted one of %s, got %s",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
897 Qnil, -1, 2,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
898 encode_image_instance_type_list (desired_dest_mask),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
899 encode_image_instance_type_list (given_dest_mask)),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
900 instantiator));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
901 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
902
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
903 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
904 valid_image_instance_type_p (Lisp_Object type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
905 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
906 return !NILP (memq_no_quit (type, Vimage_instance_type_list));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
907 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
908
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
909 DEFUN ("valid-image-instance-type-p", Fvalid_image_instance_type_p, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
910 Given an IMAGE-INSTANCE-TYPE, return non-nil if it is valid.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
911 Valid types are some subset of 'nothing, 'text, 'mono-pixmap, 'color-pixmap,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
912 'pointer, and 'subwindow, depending on how XEmacs was compiled.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
913 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
914 (image_instance_type))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
915 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
916 return valid_image_instance_type_p (image_instance_type) ? Qt : Qnil;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
917 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
918
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
919 DEFUN ("image-instance-type-list", Fimage_instance_type_list, 0, 0, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
920 Return a list of valid image-instance types.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
921 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
922 ())
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
923 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
924 return Fcopy_sequence (Vimage_instance_type_list);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
925 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
926
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
927 Error_behavior
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
928 decode_error_behavior_flag (Lisp_Object no_error)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
929 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
930 if (NILP (no_error)) return ERROR_ME;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
931 else if (EQ (no_error, Qt)) return ERROR_ME_NOT;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
932 else return ERROR_ME_WARN;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
933 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
934
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
935 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
936 encode_error_behavior_flag (Error_behavior errb)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
937 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
938 if (ERRB_EQ (errb, ERROR_ME))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
939 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
940 else if (ERRB_EQ (errb, ERROR_ME_NOT))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
941 return Qt;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
942 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
943 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
944 assert (ERRB_EQ (errb, ERROR_ME_WARN));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
945 return Qwarning;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
946 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
947 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
948
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
949 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
950 make_image_instance_1 (Lisp_Object data, Lisp_Object device,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
951 Lisp_Object dest_types)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
952 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
953 Lisp_Object ii;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
954 struct gcpro gcpro1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
955 int dest_mask;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
956
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
957 XSETDEVICE (device, decode_device (device));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
958 /* instantiate_image_instantiator() will abort if given an
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
959 image instance ... */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
960 if (IMAGE_INSTANCEP (data))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
961 signal_simple_error ("image instances not allowed here", data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
962 image_validate (data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
963 dest_mask = decode_image_instance_type_list (dest_types);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
964 data = normalize_image_instantiator (data, DEVICE_TYPE (XDEVICE (device)),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
965 make_int (dest_mask));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
966 GCPRO1 (data);
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
967 if (VECTORP (data) && EQ (XVECTOR_DATA (data)[0], Qinherit))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
968 signal_simple_error ("inheritance not allowed here", data);
124
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
969 ii = instantiate_image_instantiator (device, device, data,
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
970 Qnil, Qnil, dest_mask);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
971 RETURN_UNGCPRO (ii);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
972 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
973
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
974 DEFUN ("make-image-instance", Fmake_image_instance, 1, 4, 0, /*
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
975 Return a new `image-instance' object.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
976
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
977 Image-instance objects encapsulate the way a particular image (pixmap,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
978 etc.) is displayed on a particular device. In most circumstances, you
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
979 do not need to directly create image instances; use a glyph instead.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
980 However, it may occasionally be useful to explicitly create image
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
981 instances, if you want more control over the instantiation process.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
982
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
983 DATA is an image instantiator, which describes the image; see
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
984 `image-specifier-p' for a description of the allowed values.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
985
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
986 DEST-TYPES should be a list of allowed image instance types that can
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
987 be generated. The recognized image instance types are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
988
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
989 'nothing
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
990 Nothing is displayed.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
991 'text
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
992 Displayed as text. The foreground and background colors and the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
993 font of the text are specified independent of the pixmap. Typically
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
994 these attributes will come from the face of the surrounding text,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
995 unless a face is specified for the glyph in which the image appears.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
996 'mono-pixmap
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
997 Displayed as a mono pixmap (a pixmap with only two colors where the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
998 foreground and background can be specified independent of the pixmap;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
999 typically the pixmap assumes the foreground and background colors of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1000 the text around it, unless a face is specified for the glyph in which
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1001 the image appears).
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1002 'color-pixmap
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1003 Displayed as a color pixmap.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1004 'pointer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1005 Used as the mouse pointer for a window.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1006 'subwindow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1007 A child window that is treated as an image. This allows (e.g.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1008 another program to be responsible for drawing into the window.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1009 Not currently implemented.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1010
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1011 The DEST-TYPES list is unordered. If multiple destination types
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
1012 are possible for a given instantiator, the "most natural" type
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1013 for the instantiator's format is chosen. (For XBM, the most natural
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1014 types are `mono-pixmap', followed by `color-pixmap', followed by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1015 `pointer'. For the other normal image formats, the most natural
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1016 types are `color-pixmap', followed by `mono-pixmap', followed by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1017 `pointer'. For the string and formatted-string formats, the most
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1018 natural types are `text', followed by `mono-pixmap' (not currently
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1019 implemented), followed by `color-pixmap' (not currently implemented).
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1020 The other formats can only be instantiated as one type. (If you
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1021 want to control more specifically the order of the types into which
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1022 an image is instantiated, just call `make-image-instance' repeatedly
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1023 until it succeeds, passing less and less preferred destination types
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1024 each time.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1025
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1026 If DEST-TYPES is omitted, all possible types are allowed.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1027
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1028 NO-ERROR controls what happens when the image cannot be generated.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1029 If nil, an error message is generated. If t, no messages are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1030 generated and this function returns nil. If anything else, a warning
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1031 message is generated and this function returns nil.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1032 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1033 (data, device, dest_types, no_error))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1034 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1035 Error_behavior errb = decode_error_behavior_flag (no_error);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1036
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
1037 return call_with_suspended_errors ((lisp_fn_t) make_image_instance_1,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1038 Qnil, Qimage, errb,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1039 3, data, device, dest_types);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1040 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1041
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1042 DEFUN ("image-instance-p", Fimage_instance_p, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1043 Return non-nil if OBJECT is an image instance.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1044 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1045 (object))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1046 {
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1047 return IMAGE_INSTANCEP (object) ? Qt : Qnil;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1048 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1049
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1050 DEFUN ("image-instance-type", Fimage_instance_type, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1051 Return the type of the given image instance.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1052 The return value will be one of 'nothing, 'text, 'mono-pixmap,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1053 'color-pixmap, 'pointer, or 'subwindow.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1054 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1055 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1056 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1057 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1058 return encode_image_instance_type (XIMAGE_INSTANCE_TYPE (image_instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1059 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1060
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1061 DEFUN ("image-instance-name", Fimage_instance_name, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1062 Return the name of the given image instance.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1063 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1064 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1065 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1066 CHECK_IMAGE_INSTANCE (image_instance);
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1067 return XIMAGE_INSTANCE_NAME (image_instance);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1068 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1069
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1070 DEFUN ("image-instance-string", Fimage_instance_string, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1071 Return the string of the given image instance.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1072 This will only be non-nil for text image instances.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1073 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1074 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1075 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1076 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1077 if (XIMAGE_INSTANCE_TYPE (image_instance) == IMAGE_TEXT)
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1078 return XIMAGE_INSTANCE_TEXT_STRING (image_instance);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1079 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1080 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1081 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1082
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1083 DEFUN ("image-instance-file-name", Fimage_instance_file_name, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1084 Return the file name from which IMAGE-INSTANCE was read, if known.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1085 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1086 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1087 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1088 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1089
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1090 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1091 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1092 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1093 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1094 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1095 return XIMAGE_INSTANCE_PIXMAP_FILENAME (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1096
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1097 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1098 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1099 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1100 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1101
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1102 DEFUN ("image-instance-mask-file-name", Fimage_instance_mask_file_name, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1103 Return the file name from which IMAGE-INSTANCE's mask was read, if known.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1104 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1105 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1106 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1107 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1108
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1109 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1110 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1111 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1112 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1113 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1114 return XIMAGE_INSTANCE_PIXMAP_MASK_FILENAME (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1115
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1116 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1117 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1118 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1119 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1120
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1121 DEFUN ("image-instance-depth", Fimage_instance_depth, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1122 Return the depth of the image instance.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1123 This is 0 for a bitmap, or a positive integer for a pixmap.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1124 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1125 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1126 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1127 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1128
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1129 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1130 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1131 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1132 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1133 case IMAGE_POINTER:
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1134 return make_int (XIMAGE_INSTANCE_PIXMAP_DEPTH (image_instance));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1135
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1136 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1137 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1138 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1139 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1140
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1141 DEFUN ("image-instance-height", Fimage_instance_height, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1142 Return the height of the image instance, in pixels.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1143 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1144 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1145 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1146 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1147
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1148 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1149 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1150 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1151 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1152 case IMAGE_POINTER:
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1153 return make_int (XIMAGE_INSTANCE_PIXMAP_HEIGHT (image_instance));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1154
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1155 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1156 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1157 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1158 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1159
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1160 DEFUN ("image-instance-width", Fimage_instance_width, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1161 Return the width of the image instance, in pixels.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1162 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1163 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1164 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1165 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1166
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1167 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1168 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1169 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1170 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1171 case IMAGE_POINTER:
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1172 return make_int (XIMAGE_INSTANCE_PIXMAP_WIDTH (image_instance));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1173
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1174 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1175 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1176 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1177 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1178
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1179 DEFUN ("image-instance-hotspot-x", Fimage_instance_hotspot_x, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1180 Return the X coordinate of the image instance's hotspot, if known.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1181 This is a point relative to the origin of the pixmap. When an image is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1182 used as a mouse pointer, the hotspot is the point on the image that sits
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1183 over the location that the pointer points to. This is, for example, the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1184 tip of the arrow or the center of the crosshairs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1185 This will always be nil for a non-pointer image instance.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1186 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1187 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1188 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1189 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1190
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1191 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1192 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1193 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1194 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1195 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1196 return XIMAGE_INSTANCE_PIXMAP_HOTSPOT_X (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1197
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1198 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1199 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1200 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1201 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1202
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1203 DEFUN ("image-instance-hotspot-y", Fimage_instance_hotspot_y, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1204 Return the Y coordinate of the image instance's hotspot, if known.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1205 This is a point relative to the origin of the pixmap. When an image is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1206 used as a mouse pointer, the hotspot is the point on the image that sits
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1207 over the location that the pointer points to. This is, for example, the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1208 tip of the arrow or the center of the crosshairs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1209 This will always be nil for a non-pointer image instance.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1210 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1211 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1212 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1213 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1214
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1215 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1216 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1217 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1218 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1219 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1220 return XIMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1221
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1222 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1223 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1224 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1225 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1226
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1227 DEFUN ("image-instance-foreground", Fimage_instance_foreground, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1228 Return the foreground color of IMAGE-INSTANCE, if applicable.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1229 This will be a color instance or nil. (It will only be non-nil for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1230 colorized mono pixmaps and for pointers.)
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1231 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1232 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1233 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1234 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1235
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1236 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1237 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1238 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1239 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1240 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1241 return XIMAGE_INSTANCE_PIXMAP_FG (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1242
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1243 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1244 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1245 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1246 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1247
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1248 DEFUN ("image-instance-background", Fimage_instance_background, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1249 Return the background color of IMAGE-INSTANCE, if applicable.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1250 This will be a color instance or nil. (It will only be non-nil for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1251 colorized mono pixmaps and for pointers.)
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1252 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1253 (image_instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1254 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1255 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1256
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1257 switch (XIMAGE_INSTANCE_TYPE (image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1258 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1259 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1260 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1261 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1262 return XIMAGE_INSTANCE_PIXMAP_BG (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1263
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1264 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1265 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1266 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1267 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1268
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1269
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1270 DEFUN ("colorize-image-instance", Fcolorize_image_instance, 3, 3, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1271 Make the image instance be displayed in the given colors.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1272 This function returns a new image instance that is exactly like the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1273 specified one except that (if possible) the foreground and background
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1274 colors and as specified. Currently, this only does anything if the image
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1275 instance is a mono pixmap; otherwise, the same image instance is returned.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1276 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1277 (image_instance, foreground, background))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1278 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1279 Lisp_Object new;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1280 Lisp_Object device;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1281
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1282 CHECK_IMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1283 CHECK_COLOR_INSTANCE (foreground);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1284 CHECK_COLOR_INSTANCE (background);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1285
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1286 device = XIMAGE_INSTANCE_DEVICE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1287 if (!HAS_DEVMETH_P (XDEVICE (device), colorize_image_instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1288 return image_instance;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1289
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1290 new = allocate_image_instance (device);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1291 copy_lcrecord (XIMAGE_INSTANCE (new), XIMAGE_INSTANCE (image_instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1292 /* note that if this method returns non-zero, this method MUST
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1293 copy any window-system resources, so that when one image instance is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1294 freed, the other one is not hosed. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1295 if (!DEVMETH (XDEVICE (device), colorize_image_instance, (new, foreground,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1296 background)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1297 return image_instance;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1298 return new;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1299 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1300
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1301
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1302 /************************************************************************/
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1303 /* error helpers */
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1304 /************************************************************************/
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1305 DOESNT_RETURN
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1306 signal_image_error (CONST char *reason, Lisp_Object frob)
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1307 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1308 signal_error (Qimage_conversion_error,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1309 list2 (build_translated_string (reason), frob));
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1310 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1311
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1312 DOESNT_RETURN
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1313 signal_image_error_2 (CONST char *reason, Lisp_Object frob0, Lisp_Object frob1)
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1314 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1315 signal_error (Qimage_conversion_error,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1316 list3 (build_translated_string (reason), frob0, frob1));
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1317 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1318
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1319 /****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1320 * nothing *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1321 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1322
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1323 static int
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
1324 nothing_possible_dest_types (void)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1325 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1326 return IMAGE_NOTHING_MASK;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1327 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1328
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1329 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1330 nothing_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1331 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
124
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
1332 int dest_mask, Lisp_Object domain)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1333 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1334 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1335
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1336 if (dest_mask & IMAGE_NOTHING_MASK)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1337 IMAGE_INSTANCE_TYPE (ii) = IMAGE_NOTHING;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1338 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1339 incompatible_image_types (instantiator, dest_mask, IMAGE_NOTHING_MASK);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1340 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1341
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1342
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1343 /****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1344 * inherit *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1345 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1346
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1347 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1348 inherit_validate (Lisp_Object instantiator)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1349 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1350 face_must_be_present (instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1351 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1352
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1353 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1354 inherit_normalize (Lisp_Object inst, Lisp_Object console_type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1355 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1356 Lisp_Object face;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1357
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1358 assert (XVECTOR_LENGTH (inst) == 3);
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1359 face = XVECTOR_DATA (inst)[2];
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1360 if (!FACEP (face))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1361 inst = vector3 (Qinherit, Q_face, Fget_face (face));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1362 return inst;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1363 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1364
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1365 static int
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
1366 inherit_possible_dest_types (void)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1367 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1368 return IMAGE_MONO_PIXMAP_MASK;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1369 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1370
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1371 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1372 inherit_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1373 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
124
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
1374 int dest_mask, Lisp_Object domain)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1375 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1376 /* handled specially in image_instantiate */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1377 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1378 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1379
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1380
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1381 /****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1382 * string *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1383 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1384
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1385 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1386 string_validate (Lisp_Object instantiator)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1387 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1388 data_must_be_present (instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1389 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1390
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1391 static int
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
1392 string_possible_dest_types (void)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1393 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1394 return IMAGE_TEXT_MASK;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1395 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1396
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1397 /* called from autodetect_instantiate() */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1398 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1399 string_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1400 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
124
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
1401 int dest_mask, Lisp_Object domain)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1402 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1403 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1404 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1405
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1406 assert (!NILP (data));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1407 if (dest_mask & IMAGE_TEXT_MASK)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1408 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1409 IMAGE_INSTANCE_TYPE (ii) = IMAGE_TEXT;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1410 IMAGE_INSTANCE_TEXT_STRING (ii) = data;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1411 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1412 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1413 incompatible_image_types (instantiator, dest_mask, IMAGE_TEXT_MASK);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1414 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1415
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1416
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1417 /****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1418 * formatted-string *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1419 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1420
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1421 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1422 formatted_string_validate (Lisp_Object instantiator)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1423 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1424 data_must_be_present (instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1425 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1426
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1427 static int
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
1428 formatted_string_possible_dest_types (void)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1429 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1430 return IMAGE_TEXT_MASK;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1431 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1432
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1433 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1434 formatted_string_instantiate (Lisp_Object image_instance,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1435 Lisp_Object instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1436 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
124
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
1437 int dest_mask, Lisp_Object domain)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1438 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1439 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1440 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1441
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1442 assert (!NILP (data));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1443 /* #### implement this */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1444 warn_when_safe (Qunimplemented, Qnotice,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1445 "`formatted-string' not yet implemented; assuming `string'");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1446 if (dest_mask & IMAGE_TEXT_MASK)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1447 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1448 IMAGE_INSTANCE_TYPE (ii) = IMAGE_TEXT;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1449 IMAGE_INSTANCE_TEXT_STRING (ii) = data;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1450 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1451 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1452 incompatible_image_types (instantiator, dest_mask, IMAGE_TEXT_MASK);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1453 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1454
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1455
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1456 /************************************************************************/
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1457 /* pixmap file functions */
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1458 /************************************************************************/
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1459
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1460 /* If INSTANTIATOR refers to inline data, return Qnil.
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1461 If INSTANTIATOR refers to data in a file, return the full filename
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1462 if it exists; otherwise, return a cons of (filename).
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1463
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1464 FILE_KEYWORD and DATA_KEYWORD are symbols specifying the
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1465 keywords used to look up the file and inline data,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1466 respectively, in the instantiator. Normally these would
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1467 be Q_file and Q_data, but might be different for mask data. */
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1468
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1469 Lisp_Object
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1470 potential_pixmap_file_instantiator (Lisp_Object instantiator,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1471 Lisp_Object file_keyword,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1472 Lisp_Object data_keyword,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1473 Lisp_Object console_type)
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1474 {
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1475 Lisp_Object file;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1476 Lisp_Object data;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1477
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1478 assert (VECTORP (instantiator));
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1479
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1480 data = find_keyword_in_vector (instantiator, data_keyword);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1481 file = find_keyword_in_vector (instantiator, file_keyword);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1482
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1483 if (!NILP (file) && NILP (data))
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1484 {
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1485 Lisp_Object retval = MAYBE_LISP_CONTYPE_METH
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1486 (decode_console_type(console_type, ERROR_ME),
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1487 locate_pixmap_file, (file));
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1488
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1489 if (!NILP (retval))
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1490 return retval;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1491 else
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1492 return Fcons (file, Qnil); /* should have been file */
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1493 }
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1494
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1495 return Qnil;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1496 }
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1497
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1498 Lisp_Object
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1499 simple_image_type_normalize (Lisp_Object inst, Lisp_Object console_type,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1500 Lisp_Object image_type_tag)
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1501 {
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1502 /* This function can call lisp */
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1503 Lisp_Object file = Qnil;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1504 struct gcpro gcpro1, gcpro2;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1505 Lisp_Object alist = Qnil;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1506
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1507 GCPRO2 (file, alist);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1508
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1509 /* Now, convert any file data into inline data. At the end of this,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1510 `data' will contain the inline data (if any) or Qnil, and `file'
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1511 will contain the name this data was derived from (if known) or
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1512 Qnil.
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1513
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1514 Note that if we cannot generate any regular inline data, we
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1515 skip out. */
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1516
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1517 file = potential_pixmap_file_instantiator (inst, Q_file, Q_data,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1518 console_type);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1519
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1520 if (CONSP (file)) /* failure locating filename */
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1521 signal_double_file_error ("Opening pixmap file",
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1522 "no such file or directory",
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1523 Fcar (file));
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1524
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1525 if (NILP (file)) /* no conversion necessary */
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1526 RETURN_UNGCPRO (inst);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1527
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1528 alist = tagged_vector_to_alist (inst);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1529
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1530 {
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1531 Lisp_Object data = make_string_from_file (file);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1532 alist = remassq_no_quit (Q_file, alist);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1533 /* there can't be a :data at this point. */
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1534 alist = Fcons (Fcons (Q_file, file),
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1535 Fcons (Fcons (Q_data, data), alist));
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1536 }
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1537
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1538 {
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1539 Lisp_Object result = alist_to_tagged_vector (image_type_tag, alist);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1540 free_alist (alist);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1541 RETURN_UNGCPRO (result);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1542 }
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1543 }
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1544
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
1545
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1546 #ifdef HAVE_XPM
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1547
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1548 /**********************************************************************
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1549 * XPM *
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1550 **********************************************************************/
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1551
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1552 static void
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1553 check_valid_xpm_color_symbols (Lisp_Object data)
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1554 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1555 Lisp_Object rest;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1556
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1557 for (rest = data; !NILP (rest); rest = XCDR (rest))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1558 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1559 if (!CONSP (rest) ||
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1560 !CONSP (XCAR (rest)) ||
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1561 !STRINGP (XCAR (XCAR (rest))) ||
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1562 (!STRINGP (XCDR (XCAR (rest))) &&
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1563 !COLOR_SPECIFIERP (XCDR (XCAR (rest)))))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1564 signal_simple_error ("Invalid color symbol alist", data);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1565 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1566 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1567
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1568 static void
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1569 xpm_validate (Lisp_Object instantiator)
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1570 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1571 file_or_data_must_be_present (instantiator);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1572 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1573
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1574 Lisp_Object Vxpm_color_symbols;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1575
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1576 Lisp_Object
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1577 evaluate_xpm_color_symbols (void)
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1578 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1579 Lisp_Object rest, results = Qnil;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1580 struct gcpro gcpro1, gcpro2;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1581
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1582 GCPRO2 (rest, results);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1583 for (rest = Vxpm_color_symbols; !NILP (rest); rest = XCDR (rest))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1584 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1585 Lisp_Object name, value, cons;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1586
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1587 CHECK_CONS (rest);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1588 cons = XCAR (rest);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1589 CHECK_CONS (cons);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1590 name = XCAR (cons);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1591 CHECK_STRING (name);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1592 value = XCDR (cons);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1593 CHECK_CONS (value);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1594 value = XCAR (value);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1595 value = Feval (value);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1596 if (NILP (value))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1597 continue;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1598 if (!STRINGP (value) && !COLOR_SPECIFIERP (value))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1599 signal_simple_error
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1600 ("Result from xpm-color-symbols eval must be nil, string, or color",
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1601 value);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1602 results = Fcons (Fcons (name, value), results);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1603 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1604 UNGCPRO; /* no more evaluation */
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1605 return results;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1606 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1607
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1608 static Lisp_Object
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1609 xpm_normalize (Lisp_Object inst, Lisp_Object console_type)
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1610 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1611 #ifdef HAVE_X_WINDOWS
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1612 if (CONSOLE_TYPESYM_X_P (console_type))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1613 return x_xpm_normalize (inst, console_type);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1614 else
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1615 #endif
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1616 #ifdef HAVE_MS_WINDOWS
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1617 if (CONSOLE_TYPESYM_MSWINDOWS_P (console_type))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1618 return mswindows_xpm_normalize (inst, console_type);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1619 else
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1620 #endif
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1621 signal_image_error ("Can't display XPM images on this console",
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1622 console_type);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1623 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1624
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1625 static int
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1626 xpm_possible_dest_types (void)
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1627 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1628 return
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1629 IMAGE_MONO_PIXMAP_MASK |
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1630 IMAGE_COLOR_PIXMAP_MASK |
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1631 IMAGE_POINTER_MASK;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1632 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1633
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1634 static void
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1635 xpm_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1636 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1637 int dest_mask, Lisp_Object domain)
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1638 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1639 Lisp_Object device= IMAGE_INSTANCE_DEVICE (XIMAGE_INSTANCE (image_instance));
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1640 #ifdef HAVE_X_WINDOWS
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1641 if (DEVICE_X_P (XDEVICE (device)))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1642 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1643 x_xpm_instantiate (image_instance, instantiator,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1644 pointer_fg, pointer_bg,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1645 dest_mask, domain);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1646 return;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1647 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1648 else
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1649 #endif
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1650 #ifdef HAVE_MS_WINDOWS
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1651 if (DEVICE_MSWINDOWS_P (XDEVICE (device)))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1652 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1653 mswindows_xpm_instantiate (image_instance, instantiator,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1654 pointer_fg, pointer_bg,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1655 dest_mask, domain);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1656 return;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1657 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1658 else
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1659 #endif
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1660 signal_image_error ("Can't display XPM images on this device", device);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1661 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1662
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1663 #endif /* HAVE_XPM */
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1664
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
1665
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1666 /****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1667 * Image Specifier Object *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1668 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1669
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1670 DEFINE_SPECIFIER_TYPE (image);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1671
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1672 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1673 image_create (Lisp_Object obj)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1674 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1675 struct Lisp_Specifier *image = XIMAGE_SPECIFIER (obj);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1676
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1677 IMAGE_SPECIFIER_ALLOWED (image) = ~0; /* all are allowed */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1678 IMAGE_SPECIFIER_ATTACHEE (image) = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1679 IMAGE_SPECIFIER_ATTACHEE_PROPERTY (image) = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1680 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1681
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1682 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1683 image_mark (Lisp_Object obj, void (*markobj) (Lisp_Object))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1684 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1685 struct Lisp_Specifier *image = XIMAGE_SPECIFIER (obj);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1686
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1687 ((markobj) (IMAGE_SPECIFIER_ATTACHEE (image)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1688 ((markobj) (IMAGE_SPECIFIER_ATTACHEE_PROPERTY (image)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1689 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1690
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1691 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1692 image_instantiate_cache_result (Lisp_Object locative)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1693 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
1694 /* locative = (instance instantiator . subtable) */
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
1695 Fputhash (XCAR (XCDR (locative)), XCAR (locative), XCDR (XCDR (locative)));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1696 free_cons (XCONS (XCDR (locative)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1697 free_cons (XCONS (locative));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1698 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1699 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1700
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1701 /* Given a specification for an image, return an instance of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1702 the image which matches the given instantiator and which can be
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1703 displayed in the given domain. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1704
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1705 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1706 image_instantiate (Lisp_Object specifier, Lisp_Object matchspec,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1707 Lisp_Object domain, Lisp_Object instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1708 Lisp_Object depth)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1709 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1710 Lisp_Object device = DFW_DEVICE (domain);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1711 struct device *d = XDEVICE (device);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1712 int dest_mask = XIMAGE_SPECIFIER_ALLOWED (specifier);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1713 int pointerp = dest_mask & image_instance_type_to_mask (IMAGE_POINTER);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1714
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1715 if (IMAGE_INSTANCEP (instantiator))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1716 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1717 /* make sure that the image instance's device and type are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1718 matching. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1719
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1720 if (EQ (device, XIMAGE_INSTANCE_DEVICE (instantiator)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1721 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1722 int mask =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1723 image_instance_type_to_mask (XIMAGE_INSTANCE_TYPE (instantiator));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1724 if (mask & dest_mask)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1725 return instantiator;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1726 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1727 signal_simple_error ("Type of image instance not allowed here",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1728 instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1729 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1730 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1731 signal_simple_error_2 ("Wrong device for image instance",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1732 instantiator, device);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1733 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1734 else if (VECTORP (instantiator)
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1735 && EQ (XVECTOR_DATA (instantiator)[0], Qinherit))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1736 {
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1737 assert (XVECTOR_LENGTH (instantiator) == 3);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1738 return (FACE_PROPERTY_INSTANCE
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1739 (Fget_face (XVECTOR_DATA (instantiator)[2]),
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1740 Qbackground_pixmap, domain, 0, depth));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1741 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1742 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1743 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1744 Lisp_Object instance;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1745 Lisp_Object subtable;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1746 Lisp_Object ls3 = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1747 Lisp_Object pointer_fg = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1748 Lisp_Object pointer_bg = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1749
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1750 if (pointerp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1751 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1752 pointer_fg = FACE_FOREGROUND (Vpointer_face, domain);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1753 pointer_bg = FACE_BACKGROUND (Vpointer_face, domain);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1754 ls3 = list3 (instantiator, pointer_fg, pointer_bg);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1755 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1756
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1757 /* First look in the hash table. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1758 subtable = Fgethash (make_int (dest_mask), d->image_instance_cache,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1759 Qunbound);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1760 if (UNBOUNDP (subtable))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1761 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1762 /* For the image instance cache, we do comparisons with EQ rather
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1763 than with EQUAL, as we do for color and font names.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1764 The reasons are:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1765
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1766 1) pixmap data can be very long, and thus the hashing and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1767 comparing will take awhile.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1768 2) It's not so likely that we'll run into things that are EQUAL
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1769 but not EQ (that can happen a lot with faces, because their
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1770 specifiers are copied around); but pixmaps tend not to be
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1771 in faces.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1772
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1773 However, if the image-instance could be a pointer, we have to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1774 use EQUAL because we massaged the instantiator into a cons3
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1775 also containing the foreground and background of the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1776 pointer face.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1777 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1778
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1779 subtable = make_lisp_hashtable (20,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1780 pointerp ? HASHTABLE_KEY_CAR_WEAK
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1781 : HASHTABLE_KEY_WEAK,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1782 pointerp ? HASHTABLE_EQUAL
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1783 : HASHTABLE_EQ);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1784 Fputhash (make_int (dest_mask), subtable,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1785 d->image_instance_cache);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1786 instance = Qunbound;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1787 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1788 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1789 instance = Fgethash (pointerp ? ls3 : instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1790 subtable, Qunbound);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1791
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1792 if (UNBOUNDP (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1793 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1794 Lisp_Object locative =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1795 noseeum_cons (Qnil,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1796 noseeum_cons (pointerp ? ls3 : instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1797 subtable));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1798 int speccount = specpdl_depth ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1799
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1800 /* make sure we cache the failures, too.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1801 Use an unwind-protect to catch such errors.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1802 If we fail, the unwind-protect records nil in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1803 the hash table. If we succeed, we change the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1804 car of the locative to the resulting instance,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1805 which gets recorded instead. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1806 record_unwind_protect (image_instantiate_cache_result,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1807 locative);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1808 instance = instantiate_image_instantiator (device,
124
9b50b4588a93 Import from CVS: tag r20-1b15
cvs
parents: 122
diff changeset
1809 domain,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1810 instantiator,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1811 pointer_fg, pointer_bg,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1812 dest_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1813 Fsetcar (locative, instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1814 unbind_to (speccount, Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1815 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1816 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1817 free_list (ls3);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1818
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1819 if (NILP (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1820 signal_simple_error ("Can't instantiate image (probably cached)",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1821 instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1822 return instance;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1823 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1824
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1825 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1826 return Qnil; /* not reached */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1827 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1828
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1829 /* Validate an image instantiator. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1830
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1831 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1832 image_validate (Lisp_Object instantiator)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1833 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1834 if (IMAGE_INSTANCEP (instantiator) || STRINGP (instantiator))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1835 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1836 else if (VECTORP (instantiator))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1837 {
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1838 Lisp_Object *elt = XVECTOR_DATA (instantiator);
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
1839 int instantiator_len = XVECTOR_LENGTH (instantiator);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1840 struct image_instantiator_methods *meths;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1841 Lisp_Object already_seen = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1842 struct gcpro gcpro1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1843 int i;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1844
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1845 if (instantiator_len < 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1846 signal_simple_error ("Vector length must be at least 1",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1847 instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1848
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1849 meths = decode_image_instantiator_format (elt[0], ERROR_ME);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1850 if (!(instantiator_len & 1))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1851 signal_simple_error
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1852 ("Must have alternating keyword/value pairs", instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1853
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1854 GCPRO1 (already_seen);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1855
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1856 for (i = 1; i < instantiator_len; i += 2)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1857 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1858 Lisp_Object keyword = elt[i];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1859 Lisp_Object value = elt[i+1];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1860 int j;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1861
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1862 CHECK_SYMBOL (keyword);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1863 if (!SYMBOL_IS_KEYWORD (keyword))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1864 signal_simple_error ("Symbol must begin with a colon", keyword);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1865
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1866 for (j = 0; j < Dynarr_length (meths->keywords); j++)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1867 if (EQ (keyword, Dynarr_at (meths->keywords, j).keyword))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1868 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1869
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1870 if (j == Dynarr_length (meths->keywords))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1871 signal_simple_error ("Unrecognized keyword", keyword);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1872
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1873 if (!Dynarr_at (meths->keywords, j).multiple_p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1874 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1875 if (!NILP (memq_no_quit (keyword, already_seen)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1876 signal_simple_error
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1877 ("Keyword may not appear more than once", keyword);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1878 already_seen = Fcons (keyword, already_seen);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1879 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1880
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1881 (Dynarr_at (meths->keywords, j).validate) (value);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1882 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1883
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1884 UNGCPRO;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1885
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1886 MAYBE_IIFORMAT_METH (meths, validate, (instantiator));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1887 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1888 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1889 signal_simple_error ("Must be string or vector", instantiator);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1890 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1891
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1892 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1893 image_after_change (Lisp_Object specifier, Lisp_Object locale)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1894 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1895 Lisp_Object attachee =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1896 IMAGE_SPECIFIER_ATTACHEE (XIMAGE_SPECIFIER (specifier));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1897 Lisp_Object property =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1898 IMAGE_SPECIFIER_ATTACHEE_PROPERTY (XIMAGE_SPECIFIER (specifier));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1899 if (FACEP (attachee))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1900 face_property_was_changed (attachee, property, locale);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1901 else if (GLYPHP (attachee))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1902 glyph_property_was_changed (attachee, property, locale);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1903 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1904
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1905 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1906 set_image_attached_to (Lisp_Object obj, Lisp_Object face_or_glyph,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1907 Lisp_Object property)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1908 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1909 struct Lisp_Specifier *image = XIMAGE_SPECIFIER (obj);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1910
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1911 IMAGE_SPECIFIER_ATTACHEE (image) = face_or_glyph;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1912 IMAGE_SPECIFIER_ATTACHEE_PROPERTY (image) = property;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1913 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1914
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1915 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1916 image_going_to_add (Lisp_Object specifier, Lisp_Object locale,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1917 Lisp_Object tag_set, Lisp_Object instantiator)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1918 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1919 Lisp_Object possible_console_types = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1920 Lisp_Object rest;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1921 Lisp_Object retlist = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1922 struct gcpro gcpro1, gcpro2;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1923
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1924 LIST_LOOP (rest, Vconsole_type_list)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1925 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1926 Lisp_Object contype = XCAR (rest);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1927 if (!NILP (memq_no_quit (contype, tag_set)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1928 possible_console_types = Fcons (contype, possible_console_types);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1929 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1930
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1931 if (XINT (Flength (possible_console_types)) > 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1932 /* two conflicting console types specified */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1933 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1934
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1935 if (NILP (possible_console_types))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1936 possible_console_types = Vconsole_type_list;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1937
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1938 GCPRO2 (retlist, possible_console_types);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1939
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1940 LIST_LOOP (rest, possible_console_types)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1941 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1942 Lisp_Object contype = XCAR (rest);
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
1943 Lisp_Object newinst = call_with_suspended_errors
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
1944 ((lisp_fn_t) normalize_image_instantiator,
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
1945 Qnil, Qimage, ERROR_ME_NOT, 3, instantiator, contype,
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
1946 make_int (XIMAGE_SPECIFIER_ALLOWED (specifier)));
84
ac0620f6398e Import from CVS: tag r20-0b92
cvs
parents: 82
diff changeset
1947
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1948 if (!NILP (newinst))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1949 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1950 Lisp_Object newtag;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1951 if (NILP (memq_no_quit (contype, tag_set)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1952 newtag = Fcons (contype, tag_set);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1953 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1954 newtag = tag_set;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1955 retlist = Fcons (Fcons (newtag, newinst), retlist);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1956 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1957 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1958
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1959 UNGCPRO;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1960
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1961 return retlist;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1962 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1963
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
1964 DEFUN ("image-specifier-p", Fimage_specifier_p, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1965 Return non-nil if OBJECT is an image specifier.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1966
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1967 An image specifier is used for images (pixmaps and the like). It is used
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1968 to describe the actual image in a glyph. It is instanced as an image-
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1969 instance.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1970
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1971 Image instantiators come in many formats: `xbm', `xpm', `gif', `jpeg',
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1972 etc. This describes the format of the data describing the image. The
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1973 resulting image instances also come in many types -- `mono-pixmap',
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1974 `color-pixmap', `text', `pointer', etc. This refers to the behavior of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1975 the image and the sorts of places it can appear. (For example, a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1976 color-pixmap image has fixed colors specified for it, while a
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
1977 mono-pixmap image comes in two unspecified shades "foreground" and
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
1978 "background" that are determined from the face of the glyph or
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1979 surrounding text; a text image appears as a string of text and has an
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1980 unspecified foreground, background, and font; a pointer image behaves
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1981 like a mono-pixmap image but can only be used as a mouse pointer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1982 \[mono-pixmap images cannot be used as mouse pointers]; etc.) It is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1983 important to keep the distinction between image instantiator format and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1984 image instance type in mind. Typically, a given image instantiator
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1985 format can result in many different image instance types (for example,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1986 `xpm' can be instanced as `color-pixmap', `mono-pixmap', or `pointer';
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1987 whereas `cursor-font' can be instanced only as `pointer'), and a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1988 particular image instance type can be generated by many different
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1989 image instantiator formats (e.g. `color-pixmap' can be generated by `xpm',
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1990 `gif', `jpeg', etc.).
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1991
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1992 See `make-image-instance' for a more detailed discussion of image
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1993 instance types.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1994
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1995 An image instantiator should be a string or a vector of the form
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1996
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1997 [FORMAT :KEYWORD VALUE ...]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1998
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1999 i.e. a format symbol followed by zero or more alternating keyword-value
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2000 pairs. FORMAT should be one of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2001
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2002 'nothing
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2003 (Don't display anything; no keywords are valid for this.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2004 Can only be instanced as `nothing'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2005 'string
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2006 (Display this image as a text string. Can only be instanced
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2007 as `text', although support for instancing as `mono-pixmap'
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2008 should be added.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2009 'formatted-string
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2010 (Display this image as a text string, with replaceable fields;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2011 not currently implemented.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2012 'xbm
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2013 (An X bitmap; only if X support was compiled into this XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2014 Can be instanced as `mono-pixmap', `color-pixmap', or `pointer'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2015 'xpm
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2016 (An XPM pixmap; only if XPM support was compiled into this XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2017 Can be instanced as `color-pixmap', `mono-pixmap', or `pointer'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2018 'xface
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2019 (An X-Face bitmap, used to encode people's faces in e-mail messages;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2020 only if X-Face support was compiled into this XEmacs. Can be
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2021 instanced as `mono-pixmap', `color-pixmap', or `pointer'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2022 'gif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2023 (A GIF87 or GIF89 image; only if GIF support was compiled into this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2024 XEmacs. Can be instanced as `color-pixmap'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2025 'jpeg
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2026 (A JPEG image; only if JPEG support was compiled into this XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2027 Can be instanced as `color-pixmap'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2028 'png
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2029 (A PNG/GIF24 image; only if PNG support was compiled into this XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2030 Can be instanced as `color-pixmap'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2031 'tiff
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2032 (A TIFF image; not currently implemented.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2033 'cursor-font
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2034 (One of the standard cursor-font names, such as "watch" or
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2035 "right_ptr" under X. Under X, this is, more specifically, any
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2036 of the standard cursor names from appendix B of the Xlib manual
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2037 [also known as the file <X11/cursorfont.h>] minus the XC_ prefix.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2038 On other window systems, the valid names will be specific to the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2039 type of window system. Can only be instanced as `pointer'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2040 'font
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2041 (A glyph from a font; i.e. the name of a font, and glyph index into it
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2042 of the form "FONT fontname index [[mask-font] mask-index]".
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2043 Currently can only be instanced as `pointer', although this should
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2044 probably be fixed.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2045 'subwindow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2046 (An embedded X window; not currently implemented.)
122
d2f30a177268 Import from CVS: tag r20-1b14
cvs
parents: 120
diff changeset
2047 'autodetect
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2048 (XEmacs tries to guess what format the data is in. If X support
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2049 exists, the data string will be checked to see if it names a filename.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2050 If so, and this filename contains XBM or XPM data, the appropriate
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2051 sort of pixmap or pointer will be created. [This includes picking up
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2052 any specified hotspot or associated mask file.] Otherwise, if `pointer'
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2053 is one of the allowable image-instance types and the string names a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2054 valid cursor-font name, the image will be created as a pointer.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2055 Otherwise, the image will be displayed as text. If no X support
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2056 exists, the image will always be displayed as text.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2057 'inherit
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2058 Inherit from the background-pixmap property of a face.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2059
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2060 The valid keywords are:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2061
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2062 :data
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2063 (Inline data. For most formats above, this should be a string. For
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2064 XBM images, this should be a list of three elements: width, height, and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2065 a string of bit data. This keyword is not valid for instantiator
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2066 formats `nothing' and `inherit'.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2067 :file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2068 (Data is contained in a file. The value is the name of this file.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2069 If both :data and :file are specified, the image is created from
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2070 what is specified in :data and the string in :file becomes the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2071 value of the `image-instance-file-name' function when applied to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2072 the resulting image-instance. This keyword is not valid for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2073 instantiator formats `nothing', `string', `formatted-string',
122
d2f30a177268 Import from CVS: tag r20-1b14
cvs
parents: 120
diff changeset
2074 `cursor-font', `font', `autodetect', and `inherit'.)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2075 :foreground
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2076 :background
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2077 (For `xbm', `xface', `cursor-font', and `font'. These keywords
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2078 allow you to explicitly specify foreground and background colors.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2079 The argument should be anything acceptable to `make-color-instance'.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2080 This will cause what would be a `mono-pixmap' to instead be colorized
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2081 as a two-color color-pixmap, and specifies the foreground and/or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2082 background colors for a pointer instead of black and white.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2083 :mask-data
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2084 (For `xbm' and `xface'. This specifies a mask to be used with the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2085 bitmap. The format is a list of width, height, and bits, like for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2086 :data.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2087 :mask-file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2088 (For `xbm' and `xface'. This specifies a file containing the mask data.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2089 If neither a mask file nor inline mask data is given for an XBM image,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2090 and the XBM image comes from a file, XEmacs will look for a mask file
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2091 with the same name as the image file but with "Mask" or "msk"
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2092 appended. For example, if you specify the XBM file "left_ptr"
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2093 [usually located in "/usr/include/X11/bitmaps"], the associated
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2094 mask file "left_ptrmsk" will automatically be picked up.)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2095 :hotspot-x
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2096 :hotspot-y
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2097 (For `xbm' and `xface'. These keywords specify a hotspot if the image
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2098 is instantiated as a `pointer'. Note that if the XBM image file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2099 specifies a hotspot, it will automatically be picked up if no
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2100 explicit hotspot is given.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2101 :color-symbols
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2102 (Only for `xpm'. This specifies an alist that maps strings
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2103 that specify symbolic color names to the actual color to be used
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2104 for that symbolic color (in the form of a string or a color-specifier
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2105 object). If this is not specified, the contents of `xpm-color-symbols'
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2106 are used to generate the alist.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2107 :face
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2108 (Only for `inherit'. This specifies the face to inherit from.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2109
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2110 If instead of a vector, the instantiator is a string, it will be
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2111 converted into a vector by looking it up according to the specs in the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2112 `console-type-image-conversion-list' (q.v.) for the console type of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2113 the domain (usually a window; sometimes a frame or device) over which
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2114 the image is being instantiated.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2115
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2116 If the instantiator specifies data from a file, the data will be read
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2117 in at the time that the instantiator is added to the image (which may
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2118 be well before when the image is actually displayed), and the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2119 instantiator will be converted into one of the inline-data forms, with
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2120 the filename retained using a :file keyword. This implies that the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2121 file must exist when the instantiator is added to the image, but does
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2122 not need to exist at any other time (e.g. it may safely be a temporary
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2123 file).
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2124 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2125 (object))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2126 {
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2127 return IMAGE_SPECIFIERP (object) ? Qt : Qnil;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2128 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2129
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2130
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2131 /****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2132 * Glyph Object *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2133 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2134
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2135 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2136 mark_glyph (Lisp_Object obj, void (*markobj) (Lisp_Object))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2137 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2138 struct Lisp_Glyph *glyph = XGLYPH (obj);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2139
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2140 ((markobj) (glyph->image));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2141 ((markobj) (glyph->contrib_p));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2142 ((markobj) (glyph->baseline));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2143 ((markobj) (glyph->face));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2144
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2145 return glyph->plist;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2146 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2147
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2148 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2149 print_glyph (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2150 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2151 struct Lisp_Glyph *glyph = XGLYPH (obj);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2152 char buf[20];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2153
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2154 if (print_readably)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2155 error ("printing unreadable object #<glyph 0x%x>", glyph->header.uid);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2156
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2157 write_c_string ("#<glyph (", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2158 print_internal (Fglyph_type (obj), printcharfun, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2159 write_c_string (") ", printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2160 print_internal (glyph->image, printcharfun, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2161 sprintf (buf, "0x%x>", glyph->header.uid);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2162 write_c_string (buf, printcharfun);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2163 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2164
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2165 /* Glyphs are equal if all of their display attributes are equal. We
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2166 don't compare names or doc-strings, because that would make equal
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2167 be eq.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2168
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2169 This isn't concerned with "unspecified" attributes, that's what
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2170 #'glyph-differs-from-default-p is for. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2171 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2172 glyph_equal (Lisp_Object o1, Lisp_Object o2, int depth)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2173 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2174 struct Lisp_Glyph *g1 = XGLYPH (o1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2175 struct Lisp_Glyph *g2 = XGLYPH (o2);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2176
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2177 depth++;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2178
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2179 return (internal_equal (g1->image, g2->image, depth) &&
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2180 internal_equal (g1->contrib_p, g2->contrib_p, depth) &&
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2181 internal_equal (g1->baseline, g2->baseline, depth) &&
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2182 internal_equal (g1->face, g2->face, depth) &&
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2183 !plists_differ (g1->plist, g2->plist, 0, 0, depth + 1));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2184 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2185
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2186 static unsigned long
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2187 glyph_hash (Lisp_Object obj, int depth)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2188 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2189 depth++;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2190
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2191 /* No need to hash all of the elements; that would take too long.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2192 Just hash the most common ones. */
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2193 return HASH2 (internal_hash (XGLYPH (obj)->image, depth),
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2194 internal_hash (XGLYPH (obj)->face, depth));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2195 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2196
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2197 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2198 glyph_getprop (Lisp_Object obj, Lisp_Object prop)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2199 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2200 struct Lisp_Glyph *g = XGLYPH (obj);
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2201
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2202 if (EQ (prop, Qimage)) return g->image;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2203 if (EQ (prop, Qcontrib_p)) return g->contrib_p;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2204 if (EQ (prop, Qbaseline)) return g->baseline;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2205 if (EQ (prop, Qface)) return g->face;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2206
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2207 return external_plist_get (&g->plist, prop, 0, ERROR_ME);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2208 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2209
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2210 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2211 glyph_putprop (Lisp_Object obj, Lisp_Object prop, Lisp_Object value)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2212 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2213 if ((EQ (prop, Qimage)) ||
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2214 (EQ (prop, Qcontrib_p)) ||
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2215 (EQ (prop, Qbaseline)))
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2216 return 0;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2217
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2218 if (EQ (prop, Qface))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2219 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2220 XGLYPH (obj)->face = Fget_face (value);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2221 return 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2222 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2223
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2224 external_plist_put (&XGLYPH (obj)->plist, prop, value, 0, ERROR_ME);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2225 return 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2226 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2227
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2228 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2229 glyph_remprop (Lisp_Object obj, Lisp_Object prop)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2230 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2231 if ((EQ (prop, Qimage)) ||
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2232 (EQ (prop, Qcontrib_p)) ||
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2233 (EQ (prop, Qbaseline)))
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2234 return -1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2235
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2236 if (EQ (prop, Qface))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2237 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2238 XGLYPH (obj)->face = Qnil;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2239 return 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2240 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2241
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2242 return external_remprop (&XGLYPH (obj)->plist, prop, 0, ERROR_ME);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2243 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2244
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2245 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2246 glyph_plist (Lisp_Object obj)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2247 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2248 struct Lisp_Glyph *glyph = XGLYPH (obj);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2249 Lisp_Object result = glyph->plist;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2250
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2251 result = cons3 (Qface, glyph->face, result);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2252 result = cons3 (Qbaseline, glyph->baseline, result);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2253 result = cons3 (Qcontrib_p, glyph->contrib_p, result);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2254 result = cons3 (Qimage, glyph->image, result);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2255
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2256 return result;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2257 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2258
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2259 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("glyph", glyph,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2260 mark_glyph, print_glyph, 0,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2261 glyph_equal, glyph_hash,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2262 glyph_getprop, glyph_putprop,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2263 glyph_remprop, glyph_plist,
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2264 struct Lisp_Glyph);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2265
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2266 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2267 allocate_glyph (enum glyph_type type,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2268 void (*after_change) (Lisp_Object glyph, Lisp_Object property,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2269 Lisp_Object locale))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2270 {
249
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2271 /* This function can GC */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2272 Lisp_Object obj = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2273 struct Lisp_Glyph *g =
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2274 alloc_lcrecord_type (struct Lisp_Glyph, lrecord_glyph);
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2275
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2276 g->type = type;
249
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2277 g->image = Fmake_specifier (Qimage); /* This function can GC */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2278 switch (g->type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2279 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2280 case GLYPH_BUFFER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2281 XIMAGE_SPECIFIER_ALLOWED (g->image) =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2282 IMAGE_NOTHING_MASK | IMAGE_TEXT_MASK | IMAGE_MONO_PIXMAP_MASK |
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2283 IMAGE_COLOR_PIXMAP_MASK | IMAGE_SUBWINDOW_MASK;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2284 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2285 case GLYPH_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2286 XIMAGE_SPECIFIER_ALLOWED (g->image) =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2287 IMAGE_NOTHING_MASK | IMAGE_POINTER_MASK;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2288 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2289 case GLYPH_ICON:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2290 XIMAGE_SPECIFIER_ALLOWED (g->image) =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2291 IMAGE_NOTHING_MASK | IMAGE_MONO_PIXMAP_MASK | IMAGE_COLOR_PIXMAP_MASK;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2292 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2293 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2294 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2295 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2296
249
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2297 /* I think Fmake_specifier can GC. I think set_specifier_fallback can GC. */
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2298 /* We're getting enough reports of odd behavior in this area it seems */
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2299 /* best to GCPRO everything. */
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2300 {
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2301 Lisp_Object tem1 = list1 (Fcons (Qnil, Vthe_nothing_vector));
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2302 Lisp_Object tem2 = list1 (Fcons (Qnil, Qt));
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2303 Lisp_Object tem3 = list1 (Fcons (Qnil, Qnil));
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2304 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2305
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2306 GCPRO4 (obj, tem1, tem2, tem3);
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2307
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2308 set_specifier_fallback (g->image, tem1);
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2309 g->contrib_p = Fmake_specifier (Qboolean);
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2310 set_specifier_fallback (g->contrib_p, tem2);
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2311 /* #### should have a specifier for the following */
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2312 g->baseline = Fmake_specifier (Qgeneric);
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2313 set_specifier_fallback (g->baseline, tem3);
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2314 g->face = Qnil;
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2315 g->plist = Qnil;
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2316 g->after_change = after_change;
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2317 XSETGLYPH (obj, g);
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2318
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2319 set_image_attached_to (g->image, obj, Qimage);
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2320 UNGCPRO;
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
2321 }
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2322
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2323 return obj;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2324 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2325
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2326 static enum glyph_type
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2327 decode_glyph_type (Lisp_Object type, Error_behavior errb)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2328 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2329 if (NILP (type))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2330 return GLYPH_BUFFER;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2331
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2332 if (ERRB_EQ (errb, ERROR_ME))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2333 CHECK_SYMBOL (type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2334
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2335 if (EQ (type, Qbuffer)) return GLYPH_BUFFER;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2336 if (EQ (type, Qpointer)) return GLYPH_POINTER;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2337 if (EQ (type, Qicon)) return GLYPH_ICON;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2338
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2339 maybe_signal_simple_error ("Invalid glyph type", type, Qimage, errb);
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2340
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2341 return GLYPH_UNKNOWN;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2342 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2343
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2344 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2345 valid_glyph_type_p (Lisp_Object type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2346 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2347 return !NILP (memq_no_quit (type, Vglyph_type_list));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2348 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2349
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2350 DEFUN ("valid-glyph-type-p", Fvalid_glyph_type_p, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2351 Given a GLYPH-TYPE, return non-nil if it is valid.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2352 Valid types are `buffer', `pointer', and `icon'.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2353 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2354 (glyph_type))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2355 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2356 return valid_glyph_type_p (glyph_type) ? Qt : Qnil;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2357 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2358
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2359 DEFUN ("glyph-type-list", Fglyph_type_list, 0, 0, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2360 Return a list of valid glyph types.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2361 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2362 ())
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2363 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2364 return Fcopy_sequence (Vglyph_type_list);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2365 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2366
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2367 DEFUN ("make-glyph-internal", Fmake_glyph_internal, 0, 1, 0, /*
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2368 Create and return a new uninitialized glyph or type TYPE.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2369
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2370 TYPE specifies the type of the glyph; this should be one of `buffer',
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2371 `pointer', or `icon', and defaults to `buffer'. The type of the glyph
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2372 specifies in which contexts the glyph can be used, and controls the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2373 allowable image types into which the glyph's image can be
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2374 instantiated.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2375
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2376 `buffer' glyphs can be used as the begin-glyph or end-glyph of an
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2377 extent, in the modeline, and in the toolbar. Their image can be
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2378 instantiated as `nothing', `mono-pixmap', `color-pixmap', `text',
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2379 and `subwindow'.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2380
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2381 `pointer' glyphs can be used to specify the mouse pointer. Their
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2382 image can be instantiated as `pointer'.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2383
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2384 `icon' glyphs can be used to specify the icon used when a frame is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2385 iconified. Their image can be instantiated as `mono-pixmap' and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2386 `color-pixmap'.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2387 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2388 (type))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2389 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2390 enum glyph_type typeval = decode_glyph_type (type, ERROR_ME);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2391 return allocate_glyph (typeval, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2392 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2393
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2394 DEFUN ("glyphp", Fglyphp, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2395 Return non-nil if OBJECT is a glyph.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2396
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2397 A glyph is an object used for pixmaps and the like. It is used
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2398 in begin-glyphs and end-glyphs attached to extents, in marginal and textual
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2399 annotations, in overlay arrows (overlay-arrow-* variables), in toolbar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2400 buttons, and the like. Its image is described using an image specifier --
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2401 see `image-specifier-p'.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2402 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2403 (object))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2404 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2405 return GLYPHP (object) ? Qt : Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2406 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2407
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2408 DEFUN ("glyph-type", Fglyph_type, 1, 1, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2409 Return the type of the given glyph.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2410 The return value will be one of 'buffer, 'pointer, or 'icon.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2411 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2412 (glyph))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2413 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2414 CHECK_GLYPH (glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2415 switch (XGLYPH_TYPE (glyph))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2416 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2417 case GLYPH_BUFFER: return Qbuffer;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2418 case GLYPH_POINTER: return Qpointer;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2419 case GLYPH_ICON: return Qicon;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2420 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2421 abort ();
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2422 return Qnil; /* not reached */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2423 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2424 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2425
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2426 /*****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2427 glyph_width
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2428
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2429 Return the width of the given GLYPH on the given WINDOW. If the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2430 instance is a string then the width is calculated using the font of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2431 the given FACE, unless a face is defined by the glyph itself.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2432 ****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2433 unsigned short
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2434 glyph_width (Lisp_Object glyph, Lisp_Object frame_face,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2435 face_index window_findex, Lisp_Object window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2436 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2437 Lisp_Object instance;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2438 Lisp_Object frame = XWINDOW (window)->frame;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2439
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2440 /* #### We somehow need to distinguish between the user causing this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2441 error condition and a bug causing it. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2442 if (!GLYPHP (glyph))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2443 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2444 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2445 instance = glyph_image_instance (glyph, window, ERROR_ME_NOT, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2446
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2447 if (!IMAGE_INSTANCEP (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2448 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2449
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2450 switch (XIMAGE_INSTANCE_TYPE (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2451 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2452 case IMAGE_TEXT:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2453 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2454 Lisp_Object str = XIMAGE_INSTANCE_TEXT_STRING (instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2455 Lisp_Object private_face = XGLYPH_FACE(glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2456
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2457 if (!NILP (private_face))
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2458 return redisplay_frame_text_width_string (XFRAME (frame),
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2459 private_face,
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2460 0, str, 0, -1);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2461 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2462 if (!NILP (frame_face))
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2463 return redisplay_frame_text_width_string (XFRAME (frame),
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2464 frame_face,
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2465 0, str, 0, -1);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2466 else
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2467 return redisplay_text_width_string (XWINDOW (window),
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2468 window_findex,
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2469 0, str, 0, -1);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2470 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2471
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2472 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2473 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2474 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2475 return XIMAGE_INSTANCE_PIXMAP_WIDTH (instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2476
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2477 case IMAGE_NOTHING:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2478 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2479
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2480 case IMAGE_SUBWINDOW:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2481 /* #### implement me */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2482 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2483
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2484 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2485 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2486 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2487 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2488 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2489
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2490 DEFUN ("glyph-width", Fglyph_width, 1, 2, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2491 Return the width of GLYPH on WINDOW.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2492 This may not be exact as it does not take into account all of the context
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2493 that redisplay will.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2494 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2495 (glyph, window))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2496 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2497 XSETWINDOW (window, decode_window (window));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2498 CHECK_GLYPH (glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2499
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2500 return make_int (glyph_width (glyph, Qnil, DEFAULT_INDEX, window));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2501 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2502
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2503 #define RETURN_ASCENT 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2504 #define RETURN_DESCENT 1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2505 #define RETURN_HEIGHT 2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2506
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2507 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2508 glyph_image_instance (Lisp_Object glyph, Lisp_Object domain,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2509 Error_behavior errb, int no_quit)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2510 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2511 Lisp_Object specifier = GLYPH_IMAGE (XGLYPH (glyph));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2512
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2513 /* This can never return Qunbound. All glyphs have 'nothing as
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2514 a fallback. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2515 return specifier_instance (specifier, Qunbound, domain, errb, no_quit, 0,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2516 Qzero);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2517 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2518
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2519 static unsigned short
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2520 glyph_height_internal (Lisp_Object glyph, Lisp_Object frame_face,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2521 face_index window_findex, Lisp_Object window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2522 int function)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2523 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2524 Lisp_Object instance;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2525 Lisp_Object frame = XWINDOW (window)->frame;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2526
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2527 if (!GLYPHP (glyph))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2528 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2529 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2530 instance = glyph_image_instance (glyph, window, ERROR_ME_NOT, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2531
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2532 if (!IMAGE_INSTANCEP (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2533 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2534
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2535 switch (XIMAGE_INSTANCE_TYPE (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2536 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2537 case IMAGE_TEXT:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2538 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2539 struct font_metric_info fm;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2540 Lisp_Object string = XIMAGE_INSTANCE_TEXT_STRING (instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2541 unsigned char charsets[NUM_LEADING_BYTES];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2542 struct face_cachel frame_cachel;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2543 struct face_cachel *cachel;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2544
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2545 find_charsets_in_bufbyte_string (charsets,
82
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 74
diff changeset
2546 XSTRING_DATA (string),
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
2547 XSTRING_LENGTH (string));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2548
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2549 if (!NILP (frame_face))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2550 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2551 reset_face_cachel (&frame_cachel);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2552 update_face_cachel_data (&frame_cachel, frame, frame_face);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2553 cachel = &frame_cachel;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2554 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2555 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2556 cachel = WINDOW_FACE_CACHEL (XWINDOW (window), window_findex);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2557 ensure_face_cachel_complete (cachel, window, charsets);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2558
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2559 face_cachel_charset_font_metric_info (cachel, charsets, &fm);
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2560
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2561 switch (function)
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2562 {
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2563 case RETURN_ASCENT: return fm.ascent;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2564 case RETURN_DESCENT: return fm.descent;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2565 case RETURN_HEIGHT: return fm.ascent + fm.descent;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2566 default:
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2567 abort ();
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2568 return 0; /* not reached */
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2569 }
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2570 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2571
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2572 case IMAGE_MONO_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2573 case IMAGE_COLOR_PIXMAP:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2574 case IMAGE_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2575 /* #### Ugh ugh ugh -- temporary crap */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2576 if (function == RETURN_ASCENT || function == RETURN_HEIGHT)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2577 return XIMAGE_INSTANCE_PIXMAP_HEIGHT (instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2578 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2579 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2580
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2581 case IMAGE_NOTHING:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2582 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2583
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2584 case IMAGE_SUBWINDOW:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2585 /* #### implement me */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2586 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2587
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2588 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2589 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2590 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2591 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2592 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2593
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2594 unsigned short
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2595 glyph_ascent (Lisp_Object glyph, Lisp_Object frame_face,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2596 face_index window_findex, Lisp_Object window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2597 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2598 return glyph_height_internal (glyph, frame_face, window_findex, window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2599 RETURN_ASCENT);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2600 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2601
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2602 unsigned short
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2603 glyph_descent (Lisp_Object glyph, Lisp_Object frame_face,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2604 face_index window_findex, Lisp_Object window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2605 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2606 return glyph_height_internal (glyph, frame_face, window_findex, window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2607 RETURN_DESCENT);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2608 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2609
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2610 /* strictly a convenience function. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2611 unsigned short
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2612 glyph_height (Lisp_Object glyph, Lisp_Object frame_face,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2613 face_index window_findex, Lisp_Object window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2614 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2615 return glyph_height_internal (glyph, frame_face, window_findex, window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2616 RETURN_HEIGHT);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2617 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2618
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2619 DEFUN ("glyph-ascent", Fglyph_ascent, 1, 2, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2620 Return the ascent value of GLYPH on WINDOW.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2621 This may not be exact as it does not take into account all of the context
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2622 that redisplay will.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2623 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2624 (glyph, window))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2625 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2626 XSETWINDOW (window, decode_window (window));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2627 CHECK_GLYPH (glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2628
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2629 return make_int (glyph_ascent (glyph, Qnil, DEFAULT_INDEX, window));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2630 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2631
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2632 DEFUN ("glyph-descent", Fglyph_descent, 1, 2, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2633 Return the descent value of GLYPH on WINDOW.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2634 This may not be exact as it does not take into account all of the context
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2635 that redisplay will.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2636 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2637 (glyph, window))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2638 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2639 XSETWINDOW (window, decode_window (window));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2640 CHECK_GLYPH (glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2641
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2642 return make_int (glyph_descent (glyph, Qnil, DEFAULT_INDEX, window));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2643 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2644
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2645 /* This is redundant but I bet a lot of people expect it to exist. */
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2646 DEFUN ("glyph-height", Fglyph_height, 1, 2, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2647 Return the height of GLYPH on WINDOW.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2648 This may not be exact as it does not take into account all of the context
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2649 that redisplay will.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2650 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2651 (glyph, window))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2652 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2653 XSETWINDOW (window, decode_window (window));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2654 CHECK_GLYPH (glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2655
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2656 return make_int (glyph_height (glyph, Qnil, DEFAULT_INDEX, window));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2657 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2658
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2659 #undef RETURN_ASCENT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2660 #undef RETURN_DESCENT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2661 #undef RETURN_HEIGHT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2662
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2663 /* #### do we need to cache this info to speed things up? */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2664
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2665 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2666 glyph_baseline (Lisp_Object glyph, Lisp_Object domain)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2667 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2668 if (!GLYPHP (glyph))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2669 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2670 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2671 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2672 Lisp_Object retval =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2673 specifier_instance_no_quit (GLYPH_BASELINE (XGLYPH (glyph)),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2674 /* #### look into ERROR_ME_NOT */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2675 Qunbound, domain, ERROR_ME_NOT,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2676 0, Qzero);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2677 if (!NILP (retval) && !INTP (retval))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2678 retval = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2679 else if (INTP (retval))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2680 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2681 if (XINT (retval) < 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2682 retval = Qzero;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2683 if (XINT (retval) > 100)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2684 retval = make_int (100);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2685 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2686 return retval;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2687 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2688 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2689
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2690 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2691 glyph_face (Lisp_Object glyph, Lisp_Object domain)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2692 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2693 /* #### Domain parameter not currently used but it will be */
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2694 return GLYPHP (glyph) ? GLYPH_FACE (XGLYPH (glyph)) : Qnil;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2695 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2696
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2697 int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2698 glyph_contrib_p (Lisp_Object glyph, Lisp_Object domain)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2699 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2700 if (!GLYPHP (glyph))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2701 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2702 else
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2703 return !NILP (specifier_instance_no_quit
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2704 (GLYPH_CONTRIB_P (XGLYPH (glyph)), Qunbound, domain,
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2705 /* #### look into ERROR_ME_NOT */
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2706 ERROR_ME_NOT, 0, Qzero));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2707 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2708
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2709 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2710 glyph_property_was_changed (Lisp_Object glyph, Lisp_Object property,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2711 Lisp_Object locale)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2712 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2713 if (XGLYPH (glyph)->after_change)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2714 (XGLYPH (glyph)->after_change) (glyph, property, locale);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2715 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2716
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2717
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2718 /*****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2719 * glyph cachel functions *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2720 *****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2721
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2722 /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2723 #### All of this is 95% copied from face cachels.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2724 Consider consolidating.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2725 #### We need to add a dirty flag to the glyphs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2726 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2727
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2728 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2729 mark_glyph_cachels (glyph_cachel_dynarr *elements,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2730 void (*markobj) (Lisp_Object))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2731 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2732 int elt;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2733
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2734 if (!elements)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2735 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2736
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2737 for (elt = 0; elt < Dynarr_length (elements); elt++)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2738 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2739 struct glyph_cachel *cachel = Dynarr_atp (elements, elt);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2740 ((markobj) (cachel->glyph));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2741 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2742 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2743
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2744 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2745 update_glyph_cachel_data (struct window *w, Lisp_Object glyph,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2746 struct glyph_cachel *cachel)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2747 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2748 /* #### This should be || !cachel->updated */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2749 if (NILP (cachel->glyph) || !EQ (cachel->glyph, glyph))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2750 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2751 Lisp_Object window;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2752
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2753 XSETWINDOW (window, w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2754
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2755 /* #### This could be sped up if we redid things to grab the glyph
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2756 instantiation and passed it to the size functions. */
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2757 cachel->glyph = glyph;
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2758 cachel->width = glyph_width (glyph, Qnil, DEFAULT_INDEX, window);
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2759 cachel->ascent = glyph_ascent (glyph, Qnil, DEFAULT_INDEX, window);
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
2760 cachel->descent = glyph_descent (glyph, Qnil, DEFAULT_INDEX, window);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2761 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2762
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2763 cachel->updated = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2764 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2765
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2766 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2767 add_glyph_cachel (struct window *w, Lisp_Object glyph)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2768 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2769 struct glyph_cachel new_cachel;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2770
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2771 xzero (new_cachel);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2772 new_cachel.glyph = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2773
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2774 update_glyph_cachel_data (w, glyph, &new_cachel);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2775 Dynarr_add (w->glyph_cachels, new_cachel);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2776 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2777
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2778 static glyph_index
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2779 get_glyph_cachel_index (struct window *w, Lisp_Object glyph)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2780 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2781 int elt;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2782
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2783 if (noninteractive)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2784 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2785
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2786 for (elt = 0; elt < Dynarr_length (w->glyph_cachels); elt++)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2787 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2788 struct glyph_cachel *cachel =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2789 Dynarr_atp (w->glyph_cachels, elt);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2790
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2791 if (EQ (cachel->glyph, glyph) && !NILP (glyph))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2792 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2793 if (!cachel->updated)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2794 update_glyph_cachel_data (w, glyph, cachel);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2795 return elt;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2796 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2797 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2798
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2799 /* If we didn't find the glyph, add it and then return its index. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2800 add_glyph_cachel (w, glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2801 return elt;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2802 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2803
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2804 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2805 reset_glyph_cachels (struct window *w)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2806 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2807 Dynarr_reset (w->glyph_cachels);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2808 get_glyph_cachel_index (w, Vcontinuation_glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2809 get_glyph_cachel_index (w, Vtruncation_glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2810 get_glyph_cachel_index (w, Vhscroll_glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2811 get_glyph_cachel_index (w, Vcontrol_arrow_glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2812 get_glyph_cachel_index (w, Voctal_escape_glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2813 get_glyph_cachel_index (w, Vinvisible_text_glyph);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2814 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2815
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2816 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2817 mark_glyph_cachels_as_not_updated (struct window *w)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2818 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2819 int elt;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2820
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2821 /* We need to have a dirty flag to tell if the glyph has changed.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2822 We can check to see if each glyph variable is actually a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2823 completely different glyph, though. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2824 #define FROB(glyph_obj, gindex) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2825 update_glyph_cachel_data (w, glyph_obj, \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2826 Dynarr_atp (w->glyph_cachels, gindex))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2827
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2828 FROB (Vcontinuation_glyph, CONT_GLYPH_INDEX);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2829 FROB (Vtruncation_glyph, TRUN_GLYPH_INDEX);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2830 FROB (Vhscroll_glyph, HSCROLL_GLYPH_INDEX);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2831 FROB (Vcontrol_arrow_glyph, CONTROL_GLYPH_INDEX);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2832 FROB (Voctal_escape_glyph, OCT_ESC_GLYPH_INDEX);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2833 FROB (Vinvisible_text_glyph, INVIS_GLYPH_INDEX);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2834 #undef FROB
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2835
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2836 for (elt = 0; elt < Dynarr_length (w->glyph_cachels); elt++)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2837 Dynarr_atp (w->glyph_cachels, elt)->updated = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2838 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2839
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2840 #ifdef MEMORY_USAGE_STATS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2841
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2842 int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2843 compute_glyph_cachel_usage (glyph_cachel_dynarr *glyph_cachels,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2844 struct overhead_stats *ovstats)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2845 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2846 int total = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2847
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2848 if (glyph_cachels)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2849 total += Dynarr_memory_usage (glyph_cachels, ovstats);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2850
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2851 return total;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2852 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2853
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2854 #endif /* MEMORY_USAGE_STATS */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2855
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2856
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2857 /*****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2858 * display tables *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2859 *****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2860
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2861 /* Get the display table for use currently on window W with face FACE.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2862 Precedence:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2863
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2864 -- FACE's display table
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2865 -- W's display table (comes from specifier `current-display-table')
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2866
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2867 Ignore the specified tables if they are not valid;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2868 if no valid table is specified, return 0. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2869
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2870 struct Lisp_Vector *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2871 get_display_table (struct window *w, face_index findex)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2872 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
2873 Lisp_Object tem;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2874
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2875 tem = WINDOW_FACE_CACHEL_DISPLAY_TABLE (w, findex);
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2876 if (VECTORP (tem) && XVECTOR_LENGTH (tem) == DISP_TABLE_SIZE)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2877 return XVECTOR (tem);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2878
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2879 tem = w->display_table;
173
8eaf7971accc Import from CVS: tag r20-3b13
cvs
parents: 169
diff changeset
2880 if (VECTORP (tem) && XVECTOR_LENGTH (tem) == DISP_TABLE_SIZE)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2881 return XVECTOR (tem);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2882
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2883 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2884 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2885
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2886
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2887 /*****************************************************************************
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2888 * initialization *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2889 *****************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2890
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2891 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2892 syms_of_glyphs (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2893 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2894 /* image instantiators */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2895
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2896 DEFSUBR (Fimage_instantiator_format_list);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2897 DEFSUBR (Fvalid_image_instantiator_format_p);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2898 DEFSUBR (Fset_console_type_image_conversion_list);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2899 DEFSUBR (Fconsole_type_image_conversion_list);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2900
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2901 defkeyword (&Q_file, ":file");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2902 defkeyword (&Q_data, ":data");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2903 defkeyword (&Q_face, ":face");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2904
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
2905 #ifdef HAVE_XPM
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
2906 defkeyword (&Q_color_symbols, ":color-symbols");
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
2907 #endif
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
2908
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2909 /* image specifiers */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2910
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2911 DEFSUBR (Fimage_specifier_p);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2912 /* Qimage in general.c */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2913
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2914 /* image instances */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2915
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2916 defsymbol (&Qimage_instancep, "image-instance-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2917
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2918 defsymbol (&Qnothing_image_instance_p, "nothing-image-instance-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2919 defsymbol (&Qtext_image_instance_p, "text-image-instance-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2920 defsymbol (&Qmono_pixmap_image_instance_p, "mono-pixmap-image-instance-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2921 defsymbol (&Qcolor_pixmap_image_instance_p, "color-pixmap-image-instance-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2922 defsymbol (&Qpointer_image_instance_p, "pointer-image-instance-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2923 defsymbol (&Qsubwindow_image_instance_p, "subwindow-image-instance-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2924
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2925 DEFSUBR (Fmake_image_instance);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2926 DEFSUBR (Fimage_instance_p);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2927 DEFSUBR (Fimage_instance_type);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2928 DEFSUBR (Fvalid_image_instance_type_p);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2929 DEFSUBR (Fimage_instance_type_list);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2930 DEFSUBR (Fimage_instance_name);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2931 DEFSUBR (Fimage_instance_string);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2932 DEFSUBR (Fimage_instance_file_name);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2933 DEFSUBR (Fimage_instance_mask_file_name);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2934 DEFSUBR (Fimage_instance_depth);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2935 DEFSUBR (Fimage_instance_height);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2936 DEFSUBR (Fimage_instance_width);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2937 DEFSUBR (Fimage_instance_hotspot_x);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2938 DEFSUBR (Fimage_instance_hotspot_y);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2939 DEFSUBR (Fimage_instance_foreground);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2940 DEFSUBR (Fimage_instance_background);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2941 DEFSUBR (Fcolorize_image_instance);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2942
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2943 /* Qnothing defined as part of the "nothing" image-instantiator
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2944 type. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2945 /* Qtext defined in general.c */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2946 defsymbol (&Qmono_pixmap, "mono-pixmap");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2947 defsymbol (&Qcolor_pixmap, "color-pixmap");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2948 /* Qpointer defined in general.c */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2949 defsymbol (&Qsubwindow, "subwindow");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2950
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2951 /* glyphs */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2952
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2953 defsymbol (&Qglyphp, "glyphp");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2954 defsymbol (&Qcontrib_p, "contrib-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2955 defsymbol (&Qbaseline, "baseline");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2956
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2957 defsymbol (&Qbuffer_glyph_p, "buffer-glyph-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2958 defsymbol (&Qpointer_glyph_p, "pointer-glyph-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2959 defsymbol (&Qicon_glyph_p, "icon-glyph-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2960
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2961 defsymbol (&Qconst_glyph_variable, "const-glyph-variable");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2962
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2963 DEFSUBR (Fglyph_type);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2964 DEFSUBR (Fvalid_glyph_type_p);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2965 DEFSUBR (Fglyph_type_list);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2966 DEFSUBR (Fglyphp);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2967 DEFSUBR (Fmake_glyph_internal);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2968 DEFSUBR (Fglyph_width);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2969 DEFSUBR (Fglyph_ascent);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2970 DEFSUBR (Fglyph_descent);
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 16
diff changeset
2971 DEFSUBR (Fglyph_height);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2972
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2973 /* Qbuffer defined in general.c. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2974 /* Qpointer defined above */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2975 defsymbol (&Qicon, "icon");
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 249
diff changeset
2976
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 249
diff changeset
2977 /* Errors */
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 249
diff changeset
2978 deferror (&Qimage_conversion_error,
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 249
diff changeset
2979 "image-conversion-error",
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 249
diff changeset
2980 "image-conversion error", Qio_error);
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 249
diff changeset
2981
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2982 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2983
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2984 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2985 specifier_type_create_image (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2986 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2987 /* image specifiers */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2988
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2989 INITIALIZE_SPECIFIER_TYPE_WITH_DATA (image, "image", "imagep");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2990
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2991 SPECIFIER_HAS_METHOD (image, create);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2992 SPECIFIER_HAS_METHOD (image, mark);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2993 SPECIFIER_HAS_METHOD (image, instantiate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2994 SPECIFIER_HAS_METHOD (image, validate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2995 SPECIFIER_HAS_METHOD (image, after_change);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2996 SPECIFIER_HAS_METHOD (image, going_to_add);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2997 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2998
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2999 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3000 image_instantiator_format_create (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3001 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3002 /* image instantiators */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3003
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3004 the_image_instantiator_format_entry_dynarr =
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
3005 Dynarr_new (image_instantiator_format_entry);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3006
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3007 Vimage_instantiator_format_list = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3008 staticpro (&Vimage_instantiator_format_list);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3009
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3010 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (nothing, "nothing");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3011
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3012 IIFORMAT_HAS_METHOD (nothing, possible_dest_types);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3013 IIFORMAT_HAS_METHOD (nothing, instantiate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3014
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3015 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (inherit, "inherit");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3016
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3017 IIFORMAT_HAS_METHOD (inherit, validate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3018 IIFORMAT_HAS_METHOD (inherit, normalize);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3019 IIFORMAT_HAS_METHOD (inherit, possible_dest_types);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3020 IIFORMAT_HAS_METHOD (inherit, instantiate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3021
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3022 IIFORMAT_VALID_KEYWORD (inherit, Q_face, check_valid_face);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3023
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3024 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (string, "string");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3025
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3026 IIFORMAT_HAS_METHOD (string, validate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3027 IIFORMAT_HAS_METHOD (string, possible_dest_types);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3028 IIFORMAT_HAS_METHOD (string, instantiate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3029
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3030 IIFORMAT_VALID_KEYWORD (string, Q_data, check_valid_string);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3031
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3032 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (formatted_string, "formatted-string");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3033
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3034 IIFORMAT_HAS_METHOD (formatted_string, validate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3035 IIFORMAT_HAS_METHOD (formatted_string, possible_dest_types);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3036 IIFORMAT_HAS_METHOD (formatted_string, instantiate);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3037
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3038 IIFORMAT_VALID_KEYWORD (formatted_string, Q_data, check_valid_string);
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3039
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3040 #ifdef HAVE_XPM
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3041 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (xpm, "xpm");
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3042
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3043 IIFORMAT_HAS_METHOD (xpm, validate);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3044 IIFORMAT_HAS_METHOD (xpm, normalize);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3045 IIFORMAT_HAS_METHOD (xpm, possible_dest_types);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3046 IIFORMAT_HAS_METHOD (xpm, instantiate);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3047
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3048 IIFORMAT_VALID_KEYWORD (xpm, Q_data, check_valid_string);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3049 IIFORMAT_VALID_KEYWORD (xpm, Q_file, check_valid_string);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3050 IIFORMAT_VALID_KEYWORD (xpm, Q_color_symbols, check_valid_xpm_color_symbols);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3051 #endif
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3052 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3053
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3054 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3055 vars_of_glyphs (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3056 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3057 Vthe_nothing_vector = vector1 (Qnothing);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3058 staticpro (&Vthe_nothing_vector);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3059
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3060 /* image instances */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3061
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3062 Vimage_instance_type_list = list6 (Qnothing, Qtext, Qmono_pixmap,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3063 Qcolor_pixmap, Qpointer, Qsubwindow);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3064 staticpro (&Vimage_instance_type_list);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3065
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3066 /* glyphs */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3067
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3068 Vglyph_type_list = list3 (Qbuffer, Qpointer, Qicon);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3069 staticpro (&Vglyph_type_list);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3070
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3071 /* The octal-escape glyph, control-arrow-glyph and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3072 invisible-text-glyph are completely initialized in glyphs.el */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3073
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3074 DEFVAR_LISP ("octal-escape-glyph", &Voctal_escape_glyph /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3075 What to prefix character codes displayed in octal with.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3076 */);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3077 Voctal_escape_glyph = allocate_glyph (GLYPH_BUFFER, redisplay_glyph_changed);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3078
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3079 DEFVAR_LISP ("control-arrow-glyph", &Vcontrol_arrow_glyph /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3080 What to use as an arrow for control characters.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3081 */);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3082 Vcontrol_arrow_glyph = allocate_glyph (GLYPH_BUFFER,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3083 redisplay_glyph_changed);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3084
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3085 DEFVAR_LISP ("invisible-text-glyph", &Vinvisible_text_glyph /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3086 What to use to indicate the presence of invisible text.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3087 This is the glyph that is displayed when an ellipsis is called for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3088 \(see `selective-display-ellipses' and `buffer-invisibility-spec').
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 173
diff changeset
3089 Normally this is three dots ("...").
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3090 */);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3091 Vinvisible_text_glyph = allocate_glyph (GLYPH_BUFFER,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3092 redisplay_glyph_changed);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3093
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3094 /* Partially initialized in glyphs.el */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3095 DEFVAR_LISP ("hscroll-glyph", &Vhscroll_glyph /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3096 What to display at the beginning of horizontally scrolled lines.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3097 */);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3098 Vhscroll_glyph = allocate_glyph (GLYPH_BUFFER, redisplay_glyph_changed);
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3099
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3100 #ifdef HAVE_XPM
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3101 Fprovide (Qxpm);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3102
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3103 DEFVAR_LISP ("xpm-color-symbols", &Vxpm_color_symbols /*
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3104 Definitions of logical color-names used when reading XPM files.
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3105 Elements of this list should be of the form (COLOR-NAME FORM-TO-EVALUATE).
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3106 The COLOR-NAME should be a string, which is the name of the color to define;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3107 the FORM should evaluate to a `color' specifier object, or a string to be
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3108 passed to `make-color-instance'. If a loaded XPM file references a symbolic
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3109 color called COLOR-NAME, it will display as the computed color instead.
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3110
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3111 The default value of this variable defines the logical color names
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3112 \"foreground\" and \"background\" to be the colors of the `default' face.
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3113 */ );
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3114 Vxpm_color_symbols = Qnil; /* initialized in x-faces.el */
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
3115 #endif
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3116 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3117
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3118 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3119 specifier_vars_of_glyphs (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3120 {
249
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
3121 /* #### Can we GC here? The set_specifier_* calls definitely need */
83b3d10dcba9 Import from CVS: tag r20-5b23
cvs
parents: 223
diff changeset
3122 /* protection. */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3123 /* display tables */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3124
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3125 DEFVAR_SPECIFIER ("current-display-table", &Vcurrent_display_table /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3126 *The display table currently in use.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3127 This is a specifier; use `set-specifier' to change it.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3128 The display table is a vector created with `make-display-table'.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3129 The 256 elements control how to display each possible text character.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3130 Each value should be a string, a glyph, a vector or nil.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3131 If a value is a vector it must be composed only of strings and glyphs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3132 nil means display the character in the default fashion.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3133 Faces can have their own, overriding display table.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3134 */ );
116
9f59509498e1 Import from CVS: tag r20-1b10
cvs
parents: 84
diff changeset
3135 Vcurrent_display_table = Fmake_specifier (Qdisplay_table);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3136 set_specifier_fallback (Vcurrent_display_table,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3137 list1 (Fcons (Qnil, Qnil)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3138 set_specifier_caching (Vcurrent_display_table,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3139 slot_offset (struct window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3140 display_table),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3141 some_window_value_changed,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3142 0, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3143 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3144
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3145 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3146 complex_vars_of_glyphs (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3147 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3148 /* Partially initialized in glyphs-x.c, glyphs.el */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3149 DEFVAR_LISP ("truncation-glyph", &Vtruncation_glyph /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3150 What to display at the end of truncated lines.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3151 */ );
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3152 Vtruncation_glyph = allocate_glyph (GLYPH_BUFFER, redisplay_glyph_changed);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3153
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3154 /* Partially initialized in glyphs-x.c, glyphs.el */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3155 DEFVAR_LISP ("continuation-glyph", &Vcontinuation_glyph /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3156 What to display at the end of wrapped lines.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3157 */ );
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3158 Vcontinuation_glyph = allocate_glyph (GLYPH_BUFFER, redisplay_glyph_changed);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3159
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3160 /* Partially initialized in glyphs-x.c, glyphs.el */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3161 DEFVAR_LISP ("xemacs-logo", &Vxemacs_logo /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3162 The glyph used to display the XEmacs logo at startup.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3163 */ );
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3164 Vxemacs_logo = allocate_glyph (GLYPH_BUFFER, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3165 }