annotate src/xfont.c @ 111447:c4afb802863e

* lisp/progmodes/meta-mode.el: (meta-indent-line): Simplify.
author Glenn Morris <rgm@gnu.org>
date Tue, 09 Nov 2010 00:00:46 -0800
parents bec49af30c2f
children 417b1e4d63cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 /* xfont.c -- X core font driver.
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106085
diff changeset
2 Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106085
diff changeset
3 Copyright (C) 2006, 2007, 2008, 2009, 2010
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 National Institute of Advanced Industrial Science and Technology (AIST)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5 Registration Number H13PRO009
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7 This file is part of GNU Emacs.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94940
diff changeset
9 GNU Emacs is free software: you can redistribute it and/or modify
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94940
diff changeset
11 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94940
diff changeset
12 (at your option) any later version.
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 GNU Emacs is distributed in the hope that it will be useful,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 GNU General Public License for more details.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94940
diff changeset
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 #include <config.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 #include <stdio.h>
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104090
diff changeset
24 #include <setjmp.h>
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 #include <X11/Xlib.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 #include "lisp.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 #include "dispextern.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 #include "xterm.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 #include "frame.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 #include "blockinput.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 #include "character.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 #include "charset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 #include "fontset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 #include "font.h"
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
36 #include "ccl.h"
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 /* X core font driver. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
41 struct xfont_info
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
42 {
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
43 struct font font;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
44 Display *display;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
45 XFontStruct *xfont;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
46 };
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
47
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 /* Prototypes of support functions. */
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
49 extern void x_clear_errors (Display *);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
51 static XCharStruct *xfont_get_pcm (XFontStruct *, XChar2b *);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 /* Get metrics of character CHAR2B in XFONT. Value is null if CHAR2B
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 is not contained in the font. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 static XCharStruct *
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
57 xfont_get_pcm (XFontStruct *xfont, XChar2b *char2b)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 /* The result metric information. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 XCharStruct *pcm = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61
95180
1520d3ef2a48 (xfont_get_pcm): Change xassert to font_assert.
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
62 font_assert (xfont && char2b);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 if (xfont->per_char != NULL)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 if (xfont->min_byte1 == 0 && xfont->max_byte1 == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 /* min_char_or_byte2 specifies the linear character index
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 corresponding to the first element of the per_char array,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 max_char_or_byte2 is the index of the last character. A
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 character with non-zero CHAR2B->byte1 is not in the font.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 A character with byte2 less than min_char_or_byte2 or
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 greater max_char_or_byte2 is not in the font. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 if (char2b->byte1 == 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 && char2b->byte2 >= xfont->min_char_or_byte2
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 && char2b->byte2 <= xfont->max_char_or_byte2)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77 pcm = xfont->per_char + char2b->byte2 - xfont->min_char_or_byte2;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
78 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81 /* If either min_byte1 or max_byte1 are nonzero, both
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82 min_char_or_byte2 and max_char_or_byte2 are less than
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 256, and the 2-byte character index values corresponding
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 to the per_char array element N (counting from 0) are:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 byte1 = N/D + min_byte1
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 byte2 = N\D + min_char_or_byte2
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 where:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91 D = max_char_or_byte2 - min_char_or_byte2 + 1
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 / = integer division
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 \ = integer modulus */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 if (char2b->byte1 >= xfont->min_byte1
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 && char2b->byte1 <= xfont->max_byte1
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 && char2b->byte2 >= xfont->min_char_or_byte2
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 && char2b->byte2 <= xfont->max_char_or_byte2)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98 pcm = (xfont->per_char
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 + ((xfont->max_char_or_byte2 - xfont->min_char_or_byte2 + 1)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 * (char2b->byte1 - xfont->min_byte1))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101 + (char2b->byte2 - xfont->min_char_or_byte2));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 /* If the per_char pointer is null, all glyphs between the first
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 and last character indexes inclusive have the same
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 information, as given by both min_bounds and max_bounds. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 if (char2b->byte2 >= xfont->min_char_or_byte2
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 && char2b->byte2 <= xfont->max_char_or_byte2)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 pcm = &xfont->max_bounds;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 return ((pcm == NULL
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 || (pcm->width == 0 && (pcm->rbearing - pcm->lbearing) == 0))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 ? NULL : pcm);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118
109100
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
119 static Lisp_Object xfont_get_cache (FRAME_PTR);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
120 static Lisp_Object xfont_list (Lisp_Object, Lisp_Object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
121 static Lisp_Object xfont_match (Lisp_Object, Lisp_Object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
122 static Lisp_Object xfont_list_family (Lisp_Object);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
123 static Lisp_Object xfont_open (FRAME_PTR, Lisp_Object, int);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
124 static void xfont_close (FRAME_PTR, struct font *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
125 static int xfont_prepare_face (FRAME_PTR, struct face *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
126 static int xfont_has_char (Lisp_Object, int);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
127 static unsigned xfont_encode_char (struct font *, int);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
128 static int xfont_text_extents (struct font *, unsigned *, int,
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
129 struct font_metrics *);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
130 static int xfont_draw (struct glyph_string *, int, int, int, int, int);
2bc9a0c04c87 Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents: 106815
diff changeset
131 static int xfont_check (FRAME_PTR, struct font *);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133 struct font_driver xfont_driver =
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 {
90698
a31984e21969 (xfont_driver): Initialize ftfont_driver.type by 0.
Kenichi Handa <handa@m17n.org>
parents: 90679
diff changeset
135 0, /* Qx */
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
136 0, /* case insensitive */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 xfont_get_cache,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
138 xfont_list,
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
139 xfont_match,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
140 xfont_list_family,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141 NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142 xfont_open,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143 xfont_close,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 xfont_prepare_face,
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
145 NULL,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146 xfont_has_char,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
147 xfont_encode_char,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148 xfont_text_extents,
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
149 xfont_draw,
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
150 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
151 xfont_check,
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
152 NULL, /* get_variation_glyphs */
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
153 NULL, /* filter_properties */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
155
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
156 static Lisp_Object
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
157 xfont_get_cache (FRAME_PTR f)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158 {
91245
26541bdcecd0 (xfont_get_cache): Adjust the argument type.
Kenichi Handa <handa@m17n.org>
parents: 91177
diff changeset
159 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
161 return (dpyinfo->name_list_element);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
164 static int
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
165 compare_font_names (const void *name1, const void *name2)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
166 {
95568
4fec6e274c04 (xfont_list): Don't set registry to iso8859-1 even if it
Kenichi Handa <handa@m17n.org>
parents: 95503
diff changeset
167 return xstrcasecmp (*(const unsigned char **) name1,
4fec6e274c04 (xfont_list): Don't set registry to iso8859-1 even if it
Kenichi Handa <handa@m17n.org>
parents: 95503
diff changeset
168 *(const unsigned char **) name2);
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
169 }
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
170
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
171 /* Decode XLFD as iso-8859-1 into OUTPUT, and return the byte length
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
172 of the decoding result. LEN is the byte length of XLFD, or -1 if
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
173 XLFD is NULL terminated. The caller must assure that OUTPUT is at
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
174 least twice (plus 1) as large as XLFD. */
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
175
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
176 static int
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
177 xfont_decode_coding_xlfd (char *xlfd, int len, char *output)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
178 {
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
179 char *p0 = xlfd, *p1 = output;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
180 int c;
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 100951
diff changeset
181
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
182 while (*p0)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
183 {
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
184 c = *(unsigned char *) p0++;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
185 p1 += CHAR_STRING (c, p1);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
186 if (--len == 0)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
187 break;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
188 }
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
189 *p1 = 0;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
190 return (p1 - output);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
191 }
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
192
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
193 /* Encode XLFD from UTF-8 to iso-8859-1 destructively, and return the
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
194 resulting byte length. If XLFD contains unencodable character,
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
195 return -1. */
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
196
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
197 static int
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
198 xfont_encode_coding_xlfd (char *xlfd)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
199 {
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
200 const unsigned char *p0 = (unsigned char *) xlfd;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
201 unsigned char *p1 = (unsigned char *) xlfd;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
202 int len = 0;
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 100951
diff changeset
203
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
204 while (*p0)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
205 {
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
206 int c = STRING_CHAR_ADVANCE (p0);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
207
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
208 if (c >= 0x100)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
209 return -1;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
210 *p1++ = c;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
211 len++;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
212 }
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
213 *p1 = 0;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
214 return len;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
215 }
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
216
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
217 /* Check if CHARS (cons or vector) is supported by XFONT whose
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
218 encoding charset is ENCODING (XFONT is NULL) or by a font whose
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
219 registry corresponds to ENCODING and REPERTORY.
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
220 Return 1 if supported, return 0 otherwise. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
221
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
222 static int
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
223 xfont_chars_supported (Lisp_Object chars, XFontStruct *xfont,
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
224 struct charset *encoding, struct charset *repertory)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
225 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
226 struct charset *charset = repertory ? repertory : encoding;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
227
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
228 if (CONSP (chars))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
229 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
230 for (; CONSP (chars); chars = XCDR (chars))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
231 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
232 int c = XINT (XCAR (chars));
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
233 unsigned code = ENCODE_CHAR (charset, c);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
234 XChar2b char2b;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
235
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
236 if (code == CHARSET_INVALID_CODE (charset))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
237 break;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
238 if (! xfont)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
239 continue;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
240 if (code >= 0x10000)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
241 break;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
242 char2b.byte1 = code >> 8;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
243 char2b.byte2 = code & 0xFF;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
244 if (! xfont_get_pcm (xfont, &char2b))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
245 break;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
246 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
247 return (NILP (chars));
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
248 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
249 else if (VECTORP (chars))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
250 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
251 int i;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
252
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
253 for (i = ASIZE (chars) - 1; i >= 0; i--)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
254 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
255 int c = XINT (AREF (chars, i));
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
256 unsigned code = ENCODE_CHAR (charset, c);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
257 XChar2b char2b;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
258
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
259 if (code == CHARSET_INVALID_CODE (charset))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
260 continue;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
261 if (! xfont)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
262 break;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
263 if (code >= 0x10000)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
264 continue;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
265 char2b.byte1 = code >> 8;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
266 char2b.byte2 = code & 0xFF;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
267 if (xfont_get_pcm (xfont, &char2b))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
268 break;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
269 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
270 return (i >= 0);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
271 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
272 return 0;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
273 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
274
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
275 /* A hash table recoding which font supports which scritps. Each key
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
276 is a vector of characteristic font propertis FOUNDRY to WIDTH and
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
277 ADDSTYLE, and each value is a list of script symbols.
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
278
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
279 We assume that fonts that have the same value in the above
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
280 properties supports the same set of characters on all displays. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
281
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
282 static Lisp_Object xfont_scripts_cache;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
283
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
284 /* Re-usable vector to store characteristic font properites. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
285 static Lisp_Object xfont_scratch_props;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
286
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
287 /* Return a list of scripts supported by the font of FONTNAME whose
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
288 characteristic properties are in PROPS and whose encoding charset
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
289 is ENCODING. A caller must call BLOCK_INPUT in advance. */
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
290
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291 static Lisp_Object
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
292 xfont_supported_scripts (Display *display, char *fontname, Lisp_Object props,
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
293 struct charset *encoding)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
294 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
295 Lisp_Object scripts;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
296
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
297 /* Two special cases to avoid opening rather big fonts. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
298 if (EQ (AREF (props, 2), Qja))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
299 return Fcons (intern ("kana"), Fcons (intern ("han"), Qnil));
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
300 if (EQ (AREF (props, 2), Qko))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
301 return Fcons (intern ("hangul"), Qnil);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
302 scripts = Fgethash (props, xfont_scripts_cache, Qt);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
303 if (EQ (scripts, Qt))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
304 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
305 XFontStruct *xfont;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
306 Lisp_Object val;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
307
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
308 scripts = Qnil;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
309 xfont = XLoadQueryFont (display, fontname);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
310 if (xfont)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
311 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
312 if (xfont->per_char)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
313 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
314 for (val = Vscript_representative_chars; CONSP (val);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
315 val = XCDR (val))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
316 if (CONSP (XCAR (val)) && SYMBOLP (XCAR (XCAR (val))))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
317 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
318 Lisp_Object script = XCAR (XCAR (val));
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
319 Lisp_Object chars = XCDR (XCAR (val));
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
320
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
321 if (xfont_chars_supported (chars, xfont, encoding, NULL))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
322 scripts = Fcons (script, scripts);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
323 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
324 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
325 XFreeFont (display, xfont);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
326 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
327 if (EQ (AREF (props, 3), Qiso10646_1)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
328 && NILP (Fmemq (Qlatin, scripts)))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
329 scripts = Fcons (Qlatin, scripts);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
330 Fputhash (Fcopy_sequence (props), scripts, xfont_scripts_cache);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
331 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
332 return scripts;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
333 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
334
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
335 static Lisp_Object
109717
8949aad5e992 Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109637
diff changeset
336 xfont_list_pattern (Display *display, const char *pattern,
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
337 Lisp_Object registry, Lisp_Object script)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
338 {
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
339 Lisp_Object list = Qnil;
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
340 Lisp_Object chars = Qnil;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
341 struct charset *encoding, *repertory = NULL;
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
342 int i, limit, num_fonts;
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
343 char **names;
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
344 /* Large enough to decode the longest XLFD (255 bytes). */
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
345 char buf[512];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
346
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
347 if (! NILP (registry)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
348 && font_registry_charsets (registry, &encoding, &repertory) < 0)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
349 /* Unknown REGISTRY, not supported. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
350 return Qnil;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
351 if (! NILP (script))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
352 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
353 chars = assq_no_quit (script, Vscript_representative_chars);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
354 if (NILP (chars))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
355 /* We can't tell whether or not a font supports SCRIPT. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
356 return Qnil;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
357 chars = XCDR (chars);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
358 if (repertory)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
359 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
360 if (! xfont_chars_supported (chars, NULL, encoding, repertory))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
361 return Qnil;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
362 script = Qnil;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
363 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
364 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
365
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
366 BLOCK_INPUT;
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
367 x_catch_errors (display);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
368
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
369 for (limit = 512; ; limit *= 2)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
370 {
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
371 names = XListFonts (display, pattern, limit, &num_fonts);
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
372 if (x_had_errors_p (display))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
373 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
374 /* This error is perhaps due to insufficient memory on X
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
375 server. Let's just ignore it. */
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
376 x_clear_errors (display);
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
377 num_fonts = 0;
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
378 break;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 }
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
380 if (num_fonts < limit)
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
381 break;
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
382 XFreeFontNames (names);
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
383 }
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
384
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
385 if (num_fonts > 0)
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
386 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
387 char **indices = alloca (sizeof (char *) * num_fonts);
103274
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
388 Lisp_Object *props = XVECTOR (xfont_scratch_props)->contents;
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
389 Lisp_Object scripts = Qnil;
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
390
103274
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
391 for (i = 0; i < ASIZE (xfont_scratch_props); i++)
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
392 props[i] = Qnil;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
393 for (i = 0; i < num_fonts; i++)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
394 indices[i] = names[i];
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
395 qsort (indices, num_fonts, sizeof (char *), compare_font_names);
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
396
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
397 for (i = 0; i < num_fonts; i++)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
398 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
399 Lisp_Object entity;
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
400
95222
005a1655f51e * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95202
diff changeset
401 if (i > 0 && xstrcasecmp (indices[i - 1], indices[i]) == 0)
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
402 continue;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
403 entity = font_make_entity ();
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
404 xfont_decode_coding_xlfd (indices[i], -1, buf);
104090
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
405 if (font_parse_xlfd (buf, entity) < 0)
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
406 continue;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
407 ASET (entity, FONT_TYPE_INDEX, Qx);
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
408 /* Avoid auto-scaled fonts. */
104090
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
409 if (INTEGERP (AREF (entity, FONT_DPI_INDEX))
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
410 && INTEGERP (AREF (entity, FONT_AVGWIDTH_INDEX))
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
411 && XINT (AREF (entity, FONT_DPI_INDEX)) != 0
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
412 && XINT (AREF (entity, FONT_AVGWIDTH_INDEX)) == 0)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
413 continue;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
414 /* Avoid not-allowed scalable fonts. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
415 if (NILP (Vscalable_fonts_allowed))
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
416 {
104090
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
417 int size = 0;
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
418
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
419 if (INTEGERP (AREF (entity, FONT_SIZE_INDEX)))
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
420 size = XINT (AREF (entity, FONT_SIZE_INDEX));
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
421 else if (FLOATP (AREF (entity, FONT_SIZE_INDEX)))
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
422 size = XFLOAT_DATA (AREF (entity, FONT_SIZE_INDEX));
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
423 if (size == 0)
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
424 continue;
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
425 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
426 else if (CONSP (Vscalable_fonts_allowed))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
427 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
428 Lisp_Object tail, elt;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
429
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
430 for (tail = Vscalable_fonts_allowed; CONSP (tail);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
431 tail = XCDR (tail))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
432 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
433 elt = XCAR (tail);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
434 if (STRINGP (elt)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
435 && fast_c_string_match_ignore_case (elt, indices[i]) >= 0)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
436 break;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
437 }
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
438 if (! CONSP (tail))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
439 continue;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
440 }
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
441
104090
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
442 /* Avoid fonts of invalid registry. */
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
443 if (NILP (AREF (entity, FONT_REGISTRY_INDEX)))
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
444 continue;
1d6a73f0d113 (xfont_list_pattern): Don't ignore the return value of
Kenichi Handa <handa@m17n.org>
parents: 103543
diff changeset
445
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
446 /* Update encoding and repertory if necessary. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
447 if (! EQ (registry, AREF (entity, FONT_REGISTRY_INDEX)))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
448 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
449 registry = AREF (entity, FONT_REGISTRY_INDEX);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
450 if (font_registry_charsets (registry, &encoding, &repertory) < 0)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
451 encoding = NULL;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
452 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
453 if (! encoding)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
454 /* Unknown REGISTRY, not supported. */
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
455 continue;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
456 if (repertory)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
457 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
458 if (NILP (script)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
459 || xfont_chars_supported (chars, NULL, encoding, repertory))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
460 list = Fcons (entity, list);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
461 continue;
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
462 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
463 if (memcmp (props, &(AREF (entity, FONT_FOUNDRY_INDEX)),
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
464 sizeof (Lisp_Object) * 7)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
465 || ! EQ (AREF (entity, FONT_SPACING_INDEX), props[7]))
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
466 {
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
467 memcpy (props, &(AREF (entity, FONT_FOUNDRY_INDEX)),
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
468 sizeof (Lisp_Object) * 7);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
469 props[7] = AREF (entity, FONT_SPACING_INDEX);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
470 scripts = xfont_supported_scripts (display, indices[i],
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
471 xfont_scratch_props, encoding);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
472 }
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
473 if (NILP (script)
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
474 || ! NILP (Fmemq (script, scripts)))
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
475 list = Fcons (entity, list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
476 }
95227
6df485632f28 (xfont_list_pattern): Free names returned from XListFonts.
Kenichi Handa <handa@m17n.org>
parents: 95222
diff changeset
477 XFreeFontNames (names);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
478 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
479
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
480 x_uncatch_errors ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
481 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
482
103543
11b57e1bdb96 Change font_add_log to FONT_ADD_LOG.
Kenichi Handa <handa@m17n.org>
parents: 103274
diff changeset
483 FONT_ADD_LOG ("xfont-list", build_string (pattern), list);
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
484 return list;
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
485 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
486
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
487 static Lisp_Object
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
488 xfont_list (Lisp_Object frame, Lisp_Object spec)
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
489 {
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
490 FRAME_PTR f = XFRAME (frame);
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
491 Display *display = FRAME_X_DISPLAY_INFO (f)->display;
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
492 Lisp_Object registry, list, val, extra, script;
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
493 int len;
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
494 /* Large enough to contain the longest XLFD (255 bytes) in UTF-8. */
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
495 char name[512];
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 100951
diff changeset
496
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
497 extra = AREF (spec, FONT_EXTRA_INDEX);
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
498 if (CONSP (extra))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
499 {
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
500 val = assq_no_quit (QCotf, extra);
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
501 if (! NILP (val))
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
502 return Qnil;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
503 val = assq_no_quit (QClang, extra);
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
504 if (! NILP (val))
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
505 return Qnil;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
506 }
103184
9d9dd35fa21d Cancel previous changes.
Kenichi Handa <handa@m17n.org>
parents: 103181
diff changeset
507
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
508 registry = AREF (spec, FONT_REGISTRY_INDEX);
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
509 len = font_unparse_xlfd (spec, 0, name, 512);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
510 if (len < 0 || (len = xfont_encode_coding_xlfd (name)) < 0)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
511 return Qnil;
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
512
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
513 val = assq_no_quit (QCscript, extra);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
514 script = CDR (val);
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
515 list = xfont_list_pattern (display, name, registry, script);
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
516 if (NILP (list) && NILP (registry))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
517 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
518 /* Try iso10646-1 */
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
519 char *r = name + len - 9; /* 9 == strlen (iso8859-1) */
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
520
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
521 if (r - name + 10 < 256) /* 10 == strlen (iso10646-1) */
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
522 {
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
523 strcpy (r, "iso10646-1");
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
524 list = xfont_list_pattern (display, name, Qiso10646_1, script);
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
525 }
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
526 }
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
527 if (NILP (list) && ! NILP (registry))
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
528 {
95503
1699a530f6a3 (xfont_list): Try an alias.
Kenichi Handa <handa@m17n.org>
parents: 95330
diff changeset
529 /* Try alternate registries. */
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
530 Lisp_Object alter;
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
531
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
532 if ((alter = Fassoc (SYMBOL_NAME (registry),
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
533 Vface_alternative_font_registry_alist),
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
534 CONSP (alter)))
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
535 {
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
536 /* Pointer to REGISTRY-ENCODING field. */
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
537 char *r = name + len - SBYTES (SYMBOL_NAME (registry));
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
538
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
539 for (alter = XCDR (alter); CONSP (alter); alter = XCDR (alter))
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
540 if (STRINGP (XCAR (alter))
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
541 && ((r - name) + SBYTES (XCAR (alter))) < 256)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
542 {
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
543 strcpy (r, (char *) SDATA (XCAR (alter)));
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
544 list = xfont_list_pattern (display, name, registry, script);
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
545 if (! NILP (list))
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
546 break;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
547 }
90501
2ef165ebcc7d (xfont_query_font): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 90461
diff changeset
548 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549 }
95503
1699a530f6a3 (xfont_list): Try an alias.
Kenichi Handa <handa@m17n.org>
parents: 95330
diff changeset
550 if (NILP (list))
1699a530f6a3 (xfont_list): Try an alias.
Kenichi Handa <handa@m17n.org>
parents: 95330
diff changeset
551 {
1699a530f6a3 (xfont_list): Try an alias.
Kenichi Handa <handa@m17n.org>
parents: 95330
diff changeset
552 /* Try alias. */
1699a530f6a3 (xfont_list): Try an alias.
Kenichi Handa <handa@m17n.org>
parents: 95330
diff changeset
553 val = assq_no_quit (QCname, AREF (spec, FONT_EXTRA_INDEX));
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
554 if (CONSP (val) && STRINGP (XCDR (val)) && SBYTES (XCDR (val)) < 512)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
555 {
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109126
diff changeset
556 memcpy (name, SDATA (XCDR (val)), SBYTES (XCDR (val)) + 1);
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
557 if (xfont_encode_coding_xlfd (name) < 0)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
558 return Qnil;
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
559 list = xfont_list_pattern (display, name, registry, script);
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
560 }
95503
1699a530f6a3 (xfont_list): Try an alias.
Kenichi Handa <handa@m17n.org>
parents: 95330
diff changeset
561 }
103184
9d9dd35fa21d Cancel previous changes.
Kenichi Handa <handa@m17n.org>
parents: 103181
diff changeset
562
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
563 return list;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
564 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
565
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
566 static Lisp_Object
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
567 xfont_match (Lisp_Object frame, Lisp_Object spec)
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
568 {
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
569 FRAME_PTR f = XFRAME (frame);
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
570 Display *display = FRAME_X_DISPLAY_INFO (f)->display;
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
571 Lisp_Object extra, val, entity;
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
572 char name[512];
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
573 XFontStruct *xfont;
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
574 unsigned long value;
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
575
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
576 extra = AREF (spec, FONT_EXTRA_INDEX);
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
577 val = assq_no_quit (QCname, extra);
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
578 if (! CONSP (val) || ! STRINGP (XCDR (val)))
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
579 {
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
580 if (font_unparse_xlfd (spec, 0, name, 512) < 0)
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
581 return Qnil;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
582 }
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
583 else if (SBYTES (XCDR (val)) < 512)
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109126
diff changeset
584 memcpy (name, SDATA (XCDR (val)), SBYTES (XCDR (val)) + 1);
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
585 else
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
586 return Qnil;
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
587 if (xfont_encode_coding_xlfd (name) < 0)
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
588 return Qnil;
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
589
90569
0af2dbdeaeb3 (xfont_match): Block and unblock input while callin Xlib.
Kenichi Handa <handa@m17n.org>
parents: 90561
diff changeset
590 BLOCK_INPUT;
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
591 entity = Qnil;
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
592 xfont = XLoadQueryFont (display, name);
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
593 if (xfont)
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
594 {
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
595 if (XGetFontProperty (xfont, XA_FONT, &value))
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
596 {
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
597 int len;
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
598 char *s;
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
599
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
600 s = (char *) XGetAtomName (display, (Atom) value);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
601 len = strlen (s);
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
602
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
603 /* If DXPC (a Differential X Protocol Compressor)
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
604 Ver.3.7 is running, XGetAtomName will return null
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
605 string. We must avoid such a name. */
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
606 if (len > 0)
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
607 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
608 entity = font_make_entity ();
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
609 ASET (entity, FONT_TYPE_INDEX, Qx);
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
610 xfont_decode_coding_xlfd (s, -1, name);
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
611 if (font_parse_xlfd (name, entity) < 0)
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
612 entity = Qnil;
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
613 }
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
614 XFree (s);
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
615 }
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
616 XFreeFont (display, xfont);
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
617 }
90569
0af2dbdeaeb3 (xfont_match): Block and unblock input while callin Xlib.
Kenichi Handa <handa@m17n.org>
parents: 90561
diff changeset
618 UNBLOCK_INPUT;
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
619
103543
11b57e1bdb96 Change font_add_log to FONT_ADD_LOG.
Kenichi Handa <handa@m17n.org>
parents: 103274
diff changeset
620 FONT_ADD_LOG ("xfont-match", spec, entity);
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
621 return entity;
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
622 }
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
623
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
624 static Lisp_Object
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
625 xfont_list_family (Lisp_Object frame)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
626 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
627 FRAME_PTR f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
628 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
629 char **names;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
630 int num_fonts, i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
631 Lisp_Object list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
632 char *last_family;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
633 int last_len;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
634
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
635 BLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
636 x_catch_errors (dpyinfo->display);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
637 names = XListFonts (dpyinfo->display, "-*-*-*-*-*-*-*-*-*-*-*-*-*-*",
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
638 0x8000, &num_fonts);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
639 if (x_had_errors_p (dpyinfo->display))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
640 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
641 /* This error is perhaps due to insufficient memory on X server.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
642 Let's just ignore it. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
643 x_clear_errors (dpyinfo->display);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
644 num_fonts = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
645 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
646
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
647 list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
648 for (i = 0, last_len = 0; i < num_fonts; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
649 {
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
650 char *p0 = names[i], *p1, buf[512];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
651 Lisp_Object family;
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
652 int decoded_len;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
653
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
654 p0++; /* skip the leading '-' */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
655 while (*p0 && *p0 != '-') p0++; /* skip foundry */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
656 if (! *p0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
657 continue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
658 p1 = ++p0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
659 while (*p1 && *p1 != '-') p1++; /* find the end of family */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
660 if (! *p1 || p1 == p0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
661 continue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
662 if (last_len == p1 - p0
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109126
diff changeset
663 && memcmp (last_family, p0, last_len) == 0)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
664 continue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
665 last_len = p1 - p0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
666 last_family = p0;
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
667
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
668 decoded_len = xfont_decode_coding_xlfd (p0, last_len, buf);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
669 family = font_intern_prop (p0, decoded_len, 1);
97327
53bcf54737b2 (xfont_list_family): Return a list of symbols, not
Kenichi Handa <handa@m17n.org>
parents: 96657
diff changeset
670 if (NILP (assq_no_quit (family, list)))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
671 list = Fcons (family, list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
672 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
673
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
674 XFreeFontNames (names);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
675 x_uncatch_errors ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
676 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
677
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
678 return list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
679 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
680
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
681 static Lisp_Object
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
682 xfont_open (FRAME_PTR f, Lisp_Object entity, int pixel_size)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
683 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
684 Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
685 Display *display = dpyinfo->display;
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
686 char name[512];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
687 int len;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
688 unsigned long value;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
689 Lisp_Object registry;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
690 struct charset *encoding, *repertory;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
691 Lisp_Object font_object, fullname;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
692 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
693 XFontStruct *xfont;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
694
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
695 /* At first, check if we know how to encode characters for this
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
696 font. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
697 registry = AREF (entity, FONT_REGISTRY_INDEX);
91142
4bcf0716ddf4 * xfont.c (x_font_charset_alist): Moved to font.c and renamed.
Kenichi Handa <handa@m17n.org>
parents: 90698
diff changeset
698 if (font_registry_charsets (registry, &encoding, &repertory) < 0)
96575
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
699 {
103543
11b57e1bdb96 Change font_add_log to FONT_ADD_LOG.
Kenichi Handa <handa@m17n.org>
parents: 103274
diff changeset
700 FONT_ADD_LOG (" x:unknown registry", registry, Qnil);
96575
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
701 return Qnil;
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
702 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
703
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
704 if (XINT (AREF (entity, FONT_SIZE_INDEX)) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
705 pixel_size = XINT (AREF (entity, FONT_SIZE_INDEX));
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
706 else if (pixel_size == 0)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
707 {
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
708 if (FRAME_FONT (f))
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
709 pixel_size = FRAME_FONT (f)->pixel_size;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
710 else
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
711 pixel_size = 14;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
712 }
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
713 len = font_unparse_xlfd (entity, pixel_size, name, 512);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
714 if (len <= 0 || (len = xfont_encode_coding_xlfd (name)) < 0)
96575
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
715 {
103543
11b57e1bdb96 Change font_add_log to FONT_ADD_LOG.
Kenichi Handa <handa@m17n.org>
parents: 103274
diff changeset
716 FONT_ADD_LOG (" x:unparse failed", entity, Qnil);
96575
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
717 return Qnil;
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
718 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
719
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
720 BLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
721 x_catch_errors (display);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
722 xfont = XLoadQueryFont (display, name);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
723 if (x_had_errors_p (display))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
724 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
725 /* This error is perhaps due to insufficient memory on X server.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
726 Let's just ignore it. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
727 x_clear_errors (display);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
728 xfont = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
729 }
96657
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
730 else if (! xfont)
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
731 {
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
732 /* Some version of X lists:
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
733 -misc-fixed-medium-r-normal--20-*-75-75-c-100-iso8859-1
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
734 -misc-fixed-medium-r-normal--20-*-100-100-c-100-iso8859-1
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
735 but can open only:
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
736 -misc-fixed-medium-r-normal--20-*-100-100-c-100-iso8859-1
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
737 and
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
738 -misc-fixed-medium-r-normal--20-*-*-*-c-100-iso8859-1
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
739 So, we try again with wildcards in RESX and RESY. */
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
740 Lisp_Object temp;
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
741
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
742 temp = Fcopy_font_spec (entity);
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
743 ASET (temp, FONT_DPI_INDEX, Qnil);
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
744 len = font_unparse_xlfd (temp, pixel_size, name, 512);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
745 if (len <= 0 || (len = xfont_encode_coding_xlfd (name)) < 0)
96657
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
746 {
103543
11b57e1bdb96 Change font_add_log to FONT_ADD_LOG.
Kenichi Handa <handa@m17n.org>
parents: 103274
diff changeset
747 FONT_ADD_LOG (" x:unparse failed", temp, Qnil);
96657
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
748 return Qnil;
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
749 }
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
750 xfont = XLoadQueryFont (display, name);
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
751 if (x_had_errors_p (display))
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
752 {
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
753 /* This error is perhaps due to insufficient memory on X server.
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
754 Let's just ignore it. */
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
755 x_clear_errors (display);
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
756 xfont = NULL;
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
757 }
fb9629443416 (xfont_open): Add workaround for X's bug.
Kenichi Handa <handa@m17n.org>
parents: 96575
diff changeset
758 }
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
759 fullname = Qnil;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
760 /* Try to get the full name of FONT. */
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
761 if (xfont && XGetFontProperty (xfont, XA_FONT, &value))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
762 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
763 char *p0, *p;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
764 int dashes = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
765
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 100951
diff changeset
766 p0 = p = (char *) XGetAtomName (FRAME_X_DISPLAY (f), (Atom) value);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
767 /* Count the number of dashes in the "full name".
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
768 If it is too few, this isn't really the font's full name,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
769 so don't use it.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
770 In X11R4, the fonts did not come with their canonical names
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
771 stored in them. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
772 while (*p)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
773 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
774 if (*p == '-')
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
775 dashes++;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
776 p++;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
777 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
778
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
779 if (dashes >= 13)
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
780 {
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
781 len = xfont_decode_coding_xlfd (p0, -1, name);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
782 fullname = Fdowncase (make_string (name, len));
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
783 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
784 XFree (p0);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
785 }
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
786 x_uncatch_errors ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
787 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
788
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
789 if (! xfont)
96575
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
790 {
103543
11b57e1bdb96 Change font_add_log to FONT_ADD_LOG.
Kenichi Handa <handa@m17n.org>
parents: 103274
diff changeset
791 FONT_ADD_LOG (" x:open failed", build_string (name), Qnil);
96575
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
792 return Qnil;
2c94c05f0d89 (xfont_open): Log the reason of failure.
Kenichi Handa <handa@m17n.org>
parents: 96570
diff changeset
793 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
794
96560
d87a9f1b9378 (xfont_open): Adjust it for the change of
Kenichi Handa <handa@m17n.org>
parents: 95568
diff changeset
795 font_object = font_make_object (VECSIZE (struct xfont_info),
d87a9f1b9378 (xfont_open): Adjust it for the change of
Kenichi Handa <handa@m17n.org>
parents: 95568
diff changeset
796 entity, pixel_size);
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
797 ASET (font_object, FONT_TYPE_INDEX, Qx);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
798 if (STRINGP (fullname))
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
799 {
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
800 font_parse_xlfd ((char *) SDATA (fullname), font_object);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
801 ASET (font_object, FONT_NAME_INDEX, fullname);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
802 }
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
803 else
100553
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
804 {
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
805 char buf[512];
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
806
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
807 len = xfont_decode_coding_xlfd (name, -1, buf);
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
808 ASET (font_object, FONT_NAME_INDEX, make_string (buf, len));
e42552b2edda (xfont_decode_coding_xlfd): New function.
Kenichi Handa <handa@m17n.org>
parents: 97327
diff changeset
809 }
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
810 ASET (font_object, FONT_FULLNAME_INDEX, fullname);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
811 ASET (font_object, FONT_FILE_INDEX, Qnil);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
812 ASET (font_object, FONT_FORMAT_INDEX, Qx);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
813 font = XFONT_OBJECT (font_object);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
814 ((struct xfont_info *) font)->xfont = xfont;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
815 ((struct xfont_info *) font)->display = FRAME_X_DISPLAY (f);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
816 font->pixel_size = pixel_size;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
817 font->driver = &xfont_driver;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
818 font->encoding_charset = encoding->id;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
819 font->repertory_charset = repertory ? repertory->id : -1;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
820 font->ascent = xfont->ascent;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
821 font->descent = xfont->descent;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
822 font->height = font->ascent + font->descent;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
823 font->min_width = xfont->min_bounds.width;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
824 if (xfont->min_bounds.width == xfont->max_bounds.width)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
825 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
826 /* Fixed width font. */
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
827 font->average_width = font->space_width = xfont->min_bounds.width;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
828 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
829 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
830 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
831 XCharStruct *pcm;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
832 XChar2b char2b;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
833 Lisp_Object val;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
834
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
835 char2b.byte1 = 0x00, char2b.byte2 = 0x20;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
836 pcm = xfont_get_pcm (xfont, &char2b);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
837 if (pcm)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
838 font->space_width = pcm->width;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
839 else
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
840 font->space_width = 0;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
841
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
842 val = Ffont_get (font_object, QCavgwidth);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
843 if (INTEGERP (val))
110821
b3326b910a0c xfont.c (xfont_open): Fix setting of font->average_width from :avgwidth property (Bug#7123).
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
844 font->average_width = XINT (val) / 10;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
845 if (font->average_width < 0)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
846 font->average_width = - font->average_width;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
847 if (font->average_width == 0
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
848 && encoding->ascii_compatible_p)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
849 {
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
850 int width = font->space_width, n = pcm != NULL;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
851
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
852 for (char2b.byte2 = 33; char2b.byte2 <= 126; char2b.byte2++)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
853 if ((pcm = xfont_get_pcm (xfont, &char2b)) != NULL)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
854 width += pcm->width, n++;
95330
fe15ab9a9bc7 (xfont_open): Fix calculation of font->average_width.
Kenichi Handa <handa@m17n.org>
parents: 95227
diff changeset
855 if (n > 0)
fe15ab9a9bc7 (xfont_open): Fix calculation of font->average_width.
Kenichi Handa <handa@m17n.org>
parents: 95227
diff changeset
856 font->average_width = width / n;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
857 }
95330
fe15ab9a9bc7 (xfont_open): Fix calculation of font->average_width.
Kenichi Handa <handa@m17n.org>
parents: 95227
diff changeset
858 if (font->average_width == 0)
fe15ab9a9bc7 (xfont_open): Fix calculation of font->average_width.
Kenichi Handa <handa@m17n.org>
parents: 95227
diff changeset
859 /* No easy way other than this to get a reasonable
fe15ab9a9bc7 (xfont_open): Fix calculation of font->average_width.
Kenichi Handa <handa@m17n.org>
parents: 95227
diff changeset
860 average_width. */
fe15ab9a9bc7 (xfont_open): Fix calculation of font->average_width.
Kenichi Handa <handa@m17n.org>
parents: 95227
diff changeset
861 font->average_width
fe15ab9a9bc7 (xfont_open): Fix calculation of font->average_width.
Kenichi Handa <handa@m17n.org>
parents: 95227
diff changeset
862 = (xfont->min_bounds.width + xfont->max_bounds.width) / 2;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
863 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
864
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
865 BLOCK_INPUT;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
866 font->underline_thickness
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
867 = (XGetFontProperty (xfont, XA_UNDERLINE_THICKNESS, &value)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
868 ? (long) value : 0);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
869 font->underline_position
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
870 = (XGetFontProperty (xfont, XA_UNDERLINE_POSITION, &value)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
871 ? (long) value : -1);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
872 font->baseline_offset
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
873 = (XGetFontProperty (xfont, dpyinfo->Xatom_MULE_BASELINE_OFFSET, &value)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
874 ? (long) value : 0);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
875 font->relative_compose
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
876 = (XGetFontProperty (xfont, dpyinfo->Xatom_MULE_RELATIVE_COMPOSE, &value)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
877 ? (long) value : 0);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
878 font->default_ascent
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
879 = (XGetFontProperty (xfont, dpyinfo->Xatom_MULE_DEFAULT_ASCENT, &value)
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
880 ? (long) value : 0);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
881 UNBLOCK_INPUT;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
882
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
883 if (NILP (fullname))
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
884 fullname = AREF (font_object, FONT_NAME_INDEX);
96566
dec3815c40d7 (xfont_open): Cancel the previous about font->vertical_centering.
Kenichi Handa <handa@m17n.org>
parents: 96560
diff changeset
885 font->vertical_centering
dec3815c40d7 (xfont_open): Cancel the previous about font->vertical_centering.
Kenichi Handa <handa@m17n.org>
parents: 96560
diff changeset
886 = (STRINGP (Vvertical_centering_font_regexp)
dec3815c40d7 (xfont_open): Cancel the previous about font->vertical_centering.
Kenichi Handa <handa@m17n.org>
parents: 96560
diff changeset
887 && (fast_string_match_ignore_case
dec3815c40d7 (xfont_open): Cancel the previous about font->vertical_centering.
Kenichi Handa <handa@m17n.org>
parents: 96560
diff changeset
888 (Vvertical_centering_font_regexp, fullname) >= 0));
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
889
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
890 return font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
891 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
892
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
893 static void
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
894 xfont_close (FRAME_PTR f, struct font *font)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
895 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
896 BLOCK_INPUT;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
897 XFreeFont (FRAME_X_DISPLAY (f), ((struct xfont_info *) font)->xfont);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
898 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
899 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
900
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
901 static int
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
902 xfont_prepare_face (FRAME_PTR f, struct face *face)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
903 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
904 BLOCK_INPUT;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
905 XSetFont (FRAME_X_DISPLAY (f), face->gc,
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
906 ((struct xfont_info *) face->font)->xfont->fid);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
907 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
908
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
909 return 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
910 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
911
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
912 static int
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
913 xfont_has_char (Lisp_Object font, int c)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
914 {
102993
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
915 Lisp_Object registry = AREF (font, FONT_REGISTRY_INDEX);
102956
b20a4659fd91 (xfont_has_char): The font has C if C is ASCII and the
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
916 struct charset *encoding;
102993
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
917 struct charset *repertory = NULL;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
918
102993
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
919 if (EQ (registry, Qiso10646_1))
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
920 {
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
921 encoding = CHARSET_FROM_ID (charset_unicode);
102993
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
922 /* We use a font of `ja' and `ko' adstyle only for a character
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
923 in JISX0208 and KSC5601 charsets respectively. */
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
924 if (EQ (AREF (font, FONT_ADSTYLE_INDEX), Qja)
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
925 && charset_jisx0208 >= 0)
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
926 repertory = CHARSET_FROM_ID (charset_jisx0208);
102993
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
927 else if (EQ (AREF (font, FONT_ADSTYLE_INDEX), Qko)
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
928 && charset_ksc5601 >= 0)
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
929 repertory = CHARSET_FROM_ID (charset_ksc5601);
102993
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
930 }
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
931 else if (font_registry_charsets (registry, &encoding, &repertory) < 0)
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
932 /* Unknown REGISTRY, not usable. */
2e2d289b5f6a (xfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102956
diff changeset
933 return 0;
102956
b20a4659fd91 (xfont_has_char): The font has C if C is ASCII and the
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
934 if (ASCII_CHAR_P (c) && encoding->ascii_compatible_p)
b20a4659fd91 (xfont_has_char): The font has C if C is ASCII and the
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
935 return 1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
936 if (! repertory)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
937 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
938 return (ENCODE_CHAR (repertory, c) != CHARSET_INVALID_CODE (repertory));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
939 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
940
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
941 static unsigned
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
942 xfont_encode_char (struct font *font, int c)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
943 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
944 XFontStruct *xfont = ((struct xfont_info *) font)->xfont;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
945 struct charset *charset;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
946 unsigned code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
947 XChar2b char2b;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
948
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
949 charset = CHARSET_FROM_ID (font->encoding_charset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
950 code = ENCODE_CHAR (charset, c);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
951 if (code == CHARSET_INVALID_CODE (charset))
91270
0dab56b22dca (xfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents: 91245
diff changeset
952 return FONT_INVALID_CODE;
90454
a8b745412821 (xfont_open, xfont_encode_char): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 90443
diff changeset
953 if (font->repertory_charset >= 0)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
954 {
90454
a8b745412821 (xfont_open, xfont_encode_char): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 90443
diff changeset
955 charset = CHARSET_FROM_ID (font->repertory_charset);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
956 return (ENCODE_CHAR (charset, c) != CHARSET_INVALID_CODE (charset)
91270
0dab56b22dca (xfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents: 91245
diff changeset
957 ? code : FONT_INVALID_CODE);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
958 }
90425
5976e428d68e (xfont_encode_char): Fix calculation of char2b.
Kenichi Handa <handa@m17n.org>
parents: 90400
diff changeset
959 char2b.byte1 = code >> 8;
5976e428d68e (xfont_encode_char): Fix calculation of char2b.
Kenichi Handa <handa@m17n.org>
parents: 90400
diff changeset
960 char2b.byte2 = code & 0xFF;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
961 return (xfont_get_pcm (xfont, &char2b) ? code : FONT_INVALID_CODE);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
962 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
963
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
964 static int
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
965 xfont_text_extents (struct font *font, unsigned int *code, int nglyphs, struct font_metrics *metrics)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
966 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
967 XFontStruct *xfont = ((struct xfont_info *) font)->xfont;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
968 int width = 0;
96570
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
969 int i, first, x;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
970
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
971 if (metrics)
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109126
diff changeset
972 memset (metrics, 0, sizeof (struct font_metrics));
96570
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
973 for (i = 0, x = 0, first = 1; i < nglyphs; i++)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
974 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
975 XChar2b char2b;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
976 static XCharStruct *pcm;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
977
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
978 if (code[i] >= 0x10000)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
979 continue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
980 char2b.byte1 = code[i] >> 8, char2b.byte2 = code[i] & 0xFF;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
981 pcm = xfont_get_pcm (xfont, &char2b);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
982 if (! pcm)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
983 continue;
96570
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
984 if (first)
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
985 {
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
986 if (metrics)
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
987 {
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
988 metrics->lbearing = pcm->lbearing;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
989 metrics->rbearing = pcm->rbearing;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
990 metrics->ascent = pcm->ascent;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
991 metrics->descent = pcm->descent;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
992 }
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
993 first = 0;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
994 }
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
995 else
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
996 {
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
997 if (metrics)
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
998 {
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
999 if (metrics->lbearing > width + pcm->lbearing)
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1000 metrics->lbearing = width + pcm->lbearing;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1001 if (metrics->rbearing < width + pcm->rbearing)
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1002 metrics->rbearing = width + pcm->rbearing;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1003 if (metrics->ascent < pcm->ascent)
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1004 metrics->ascent = pcm->ascent;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1005 if (metrics->descent < pcm->descent)
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1006 metrics->descent = pcm->descent;
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1007 }
12587e64cfe3 (xfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents: 96566
diff changeset
1008 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1009 width += pcm->width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1010 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1011 if (metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1012 metrics->width = width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1013 return width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1014 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1015
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1016 static int
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
1017 xfont_draw (struct glyph_string *s, int from, int to, int x, int y, int with_background)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1018 {
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1019 XFontStruct *xfont = ((struct xfont_info *) s->font)->xfont;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1020 int len = to - from;
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
1021 GC gc = s->gc;
92185
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1022 int i;
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
1023
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1024 if (s->gc != s->face->gc)
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
1025 {
91905
6ae79e72fea7 (xfont_draw): Use BLOCK_INPUT and UNBLOCK_INPUT.
Kenichi Handa <handa@m17n.org>
parents: 91554
diff changeset
1026 BLOCK_INPUT;
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1027 XSetFont (s->display, gc, xfont->fid);
91905
6ae79e72fea7 (xfont_draw): Use BLOCK_INPUT and UNBLOCK_INPUT.
Kenichi Handa <handa@m17n.org>
parents: 91554
diff changeset
1028 UNBLOCK_INPUT;
90561
73750c4e078a (xfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90545
diff changeset
1029 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1030
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1031 if (xfont->min_byte1 == 0 && xfont->max_byte1 == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1032 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1033 char *str;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1034 USE_SAFE_ALLOCA;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1035
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1036 SAFE_ALLOCA (str, char *, len);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1037 for (i = 0; i < len ; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1038 str[i] = XCHAR2B_BYTE2 (s->char2b + from + i);
91905
6ae79e72fea7 (xfont_draw): Use BLOCK_INPUT and UNBLOCK_INPUT.
Kenichi Handa <handa@m17n.org>
parents: 91554
diff changeset
1039 BLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1040 if (with_background > 0)
92185
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1041 {
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1042 if (s->padding_p)
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1043 for (i = 0; i < len; i++)
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1044 XDrawImageString (FRAME_X_DISPLAY (s->f), FRAME_X_WINDOW (s->f),
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1045 gc, x + i, y, str + i, 1);
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1046 else
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1047 XDrawImageString (FRAME_X_DISPLAY (s->f), FRAME_X_WINDOW (s->f),
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1048 gc, x, y, str, len);
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1049 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1050 else
92185
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1051 {
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1052 if (s->padding_p)
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1053 for (i = 0; i < len; i++)
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1054 XDrawString (FRAME_X_DISPLAY (s->f), FRAME_X_WINDOW (s->f),
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1055 gc, x + i, y, str + i, 1);
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1056 else
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1057 XDrawString (FRAME_X_DISPLAY (s->f), FRAME_X_WINDOW (s->f),
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1058 gc, x, y, str, len);
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1059 }
91905
6ae79e72fea7 (xfont_draw): Use BLOCK_INPUT and UNBLOCK_INPUT.
Kenichi Handa <handa@m17n.org>
parents: 91554
diff changeset
1060 UNBLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1061 SAFE_FREE ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1062 return s->nchars;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1063 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1064
91905
6ae79e72fea7 (xfont_draw): Use BLOCK_INPUT and UNBLOCK_INPUT.
Kenichi Handa <handa@m17n.org>
parents: 91554
diff changeset
1065 BLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1066 if (with_background > 0)
92185
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1067 {
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1068 if (s->padding_p)
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1069 for (i = 0; i < len; i++)
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1070 XDrawImageString16 (FRAME_X_DISPLAY (s->f), FRAME_X_WINDOW (s->f),
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1071 gc, x + i, y, s->char2b + from + i, 1);
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1072 else
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1073 XDrawImageString16 (FRAME_X_DISPLAY (s->f), FRAME_X_WINDOW (s->f),
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1074 gc, x, y, s->char2b + from, len);
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1075 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1076 else
92185
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1077 {
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1078 if (s->padding_p)
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1079 for (i = 0; i < len; i++)
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1080 XDrawString16 (FRAME_X_DISPLAY (s->f), FRAME_X_WINDOW (s->f),
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1081 gc, x + i, y, s->char2b + from + i, 1);
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1082 else
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1083 XDrawString16 (FRAME_X_DISPLAY (s->f), FRAME_X_WINDOW (s->f),
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1084 gc, x, y, s->char2b + from, len);
1e28008a13e5 (xfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91905
diff changeset
1085 }
91905
6ae79e72fea7 (xfont_draw): Use BLOCK_INPUT and UNBLOCK_INPUT.
Kenichi Handa <handa@m17n.org>
parents: 91554
diff changeset
1086 UNBLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1087
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1088 return len;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1089 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1090
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1091 static int
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
1092 xfont_check (FRAME_PTR f, struct font *font)
94940
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1093 {
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1094 struct xfont_info *xfont = (struct xfont_info *) font;
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1095
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1096 return (FRAME_X_DISPLAY (f) == xfont->display ? 0 : -1);
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1097 }
061d44df20b7 Include <stdlib.h> and "ccl.h".
Kenichi Handa <handa@m17n.org>
parents: 92185
diff changeset
1098
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1099
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1100 void
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
1101 syms_of_xfont (void)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1102 {
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
1103 staticpro (&xfont_scripts_cache);
103274
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
1104 { /* Here we rely on the fact that syms_of_xfont (via syms_of_font)
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
1105 is called fairly late, when QCtest and Qequal are known to be set. */
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
1106 Lisp_Object args[2];
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
1107 args[0] = QCtest;
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
1108 args[1] = Qequal;
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
1109 xfont_scripts_cache = Fmake_hash_table (2, args);
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
1110 }
103270
c4706100caab (xfont_chars_supported, xfont_supported_scripts): New
Kenichi Handa <handa@m17n.org>
parents: 103184
diff changeset
1111 staticpro (&xfont_scratch_props);
103274
0e85983c95eb (xfont_list_pattern): Don't initialize xfont_scripts_cache
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103270
diff changeset
1112 xfont_scratch_props = Fmake_vector (make_number (8), Qnil);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1113 xfont_driver.type = Qx;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1114 register_font_driver (&xfont_driver, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1115 }
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90425
diff changeset
1116
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90425
diff changeset
1117 /* arch-tag: 23c5f366-a5ee-44b7-a3b7-90d6da7fd749
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90425
diff changeset
1118 (do not change this comment) */