annotate src/glyphs.c @ 361:7347b34c275b r21-1-10

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