Mercurial > emacs
annotate src/w32uniscribe.c @ 93762:46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Give up if glyph indices not supported. Use uniscribe obtained
ABC widths for individual metrics. Map glyph clusters back to
characters using fClusterStart flag. Return number of glyphs
produced, not chars processed.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sun, 06 Apr 2008 01:04:45 +0000 |
parents | 8dc921bd7171 |
children | 2382df5e230a |
rev | line source |
---|---|
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
1 /* Font backend for the Microsoft W32 Uniscribe API. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
2 Copyright (C) 2008 Free Software Foundation, Inc. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
3 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
4 This file is part of GNU Emacs. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
5 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
6 GNU Emacs is free software; you can redistribute it and/or modify |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
8 the Free Software Foundation; either version 3, or (at your option) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
9 any later version. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
10 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
11 GNU Emacs is distributed in the hope that it will be useful, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
14 GNU General Public License for more details. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
15 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
17 along with GNU Emacs; see the file COPYING. If not, write to |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
18 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
19 Boston, MA 02110-1301, USA. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
20 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
21 #ifdef USE_FONT_BACKEND |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
22 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
23 #include <config.h> |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
24 /* Override API version - Uniscribe is only available as standard since |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
25 Windows 2000, though most users of older systems will have it |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
26 since it installs with Internet Explorer 5.0 and other software. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
27 We only enable the feature if it is available, so there is no chance |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
28 of calling non-existant functions. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
29 #undef _WIN32_WINNT |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
30 #define _WIN32_WINNT 0x500 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
31 #include <windows.h> |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
32 #include <usp10.h> |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
33 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
34 #include "lisp.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
35 #include "w32term.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
36 #include "frame.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
37 #include "dispextern.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
38 #include "character.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
39 #include "charset.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
40 #include "fontset.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
41 #include "font.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
42 #include "w32font.h" |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
43 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
44 struct uniscribe_font_info |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
45 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
46 struct w32font_info w32_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
47 SCRIPT_CACHE cache; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
48 }; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
49 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
50 int uniscribe_available = 0; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
51 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
52 /* Defined in w32font.c, since it is required there as well. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
53 extern Lisp_Object Quniscribe; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
54 extern Lisp_Object Qopentype; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
55 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
56 extern int initialized; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
57 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
58 extern struct font_driver uniscribe_font_driver; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
59 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
60 /* EnumFontFamiliesEx callback. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
61 static int CALLBACK add_opentype_font_name_to_list P_ ((ENUMLOGFONTEX *, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
62 NEWTEXTMETRICEX *, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
63 DWORD, LPARAM)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
64 /* Used by uniscribe_otf_capability. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
65 static Lisp_Object otf_features (HDC context, char *table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
66 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
67 static int |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
68 memq_no_quit (elt, list) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
69 Lisp_Object elt, list; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
70 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
71 while (CONSP (list) && ! EQ (XCAR (list), elt)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
72 list = XCDR (list); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
73 return (CONSP (list)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
74 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
75 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
76 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
77 /* Font backend interface implementation. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
78 static Lisp_Object |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
79 uniscribe_list (frame, font_spec) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
80 Lisp_Object frame, font_spec; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
81 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
82 return w32font_list_internal (frame, font_spec, 1); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
83 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
84 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
85 static Lisp_Object |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
86 uniscribe_match (frame, font_spec) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
87 Lisp_Object frame, font_spec; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
88 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
89 return w32font_match_internal (frame, font_spec, 1); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
90 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
91 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
92 static Lisp_Object |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
93 uniscribe_list_family (frame) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
94 Lisp_Object frame; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
95 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
96 Lisp_Object list = Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
97 LOGFONT font_match_pattern; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
98 HDC dc; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
99 FRAME_PTR f = XFRAME (frame); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
100 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
101 bzero (&font_match_pattern, sizeof (font_match_pattern)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
102 /* Limit enumerated fonts to outline fonts to save time. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
103 font_match_pattern.lfOutPrecision = OUT_OUTLINE_PRECIS; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
104 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
105 dc = get_frame_dc (f); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
106 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
107 EnumFontFamiliesEx (dc, &font_match_pattern, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
108 (FONTENUMPROC) add_opentype_font_name_to_list, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
109 (LPARAM) &list, 0); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
110 release_frame_dc (f, dc); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
111 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
112 return list; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
113 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
114 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
115 static struct font * |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
116 uniscribe_open (f, font_entity, pixel_size) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
117 FRAME_PTR f; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
118 Lisp_Object font_entity; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
119 int pixel_size; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
120 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
121 struct uniscribe_font_info *uniscribe_font |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
122 = xmalloc (sizeof (struct uniscribe_font_info)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
123 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
124 if (uniscribe_font == NULL) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
125 return NULL; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
126 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
127 if (!w32font_open_internal (f, font_entity, pixel_size, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
128 (struct w32font_info *) uniscribe_font)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
129 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
130 xfree (uniscribe_font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
131 return NULL; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
132 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
133 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
134 /* Initialize the cache for this font. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
135 uniscribe_font->cache = NULL; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
136 /* Mark the format as opentype */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
137 uniscribe_font->w32_font.font.format = Qopentype; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
138 uniscribe_font->w32_font.font.driver = &uniscribe_font_driver; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
139 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
140 return (struct font *) uniscribe_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
141 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
142 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
143 static void |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
144 uniscribe_close (f, font) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
145 FRAME_PTR f; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
146 struct font *font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
147 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
148 struct uniscribe_font_info *uniscribe_font |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
149 = (struct uniscribe_font_info *) font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
150 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
151 if (uniscribe_font->cache) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
152 ScriptFreeCache (&uniscribe_font->cache); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
153 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
154 w32font_close (f, font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
155 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
156 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
157 /* Return a list describing which scripts/languages FONT supports by |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
158 which GSUB/GPOS features of OpenType tables. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
159 static Lisp_Object |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
160 uniscribe_otf_capability (font) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
161 struct font *font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
162 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
163 HDC context; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
164 HFONT old_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
165 struct frame *f; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
166 Lisp_Object capability = Fcons (Qnil, Qnil); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
167 Lisp_Object features; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
168 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
169 f = XFRAME (selected_frame); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
170 context = get_frame_dc (f); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
171 old_font = SelectObject (context, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
172 ((W32FontStruct *) (font->font.font))->hfont); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
173 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
174 features = otf_features (context, "GSUB"); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
175 XSETCAR (capability, features); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
176 features = otf_features (context, "GPOS"); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
177 XSETCDR (capability, features); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
178 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
179 SelectObject (context, old_font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
180 release_frame_dc (f, context); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
181 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
182 return capability; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
183 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
184 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
185 /* Uniscribe implementation of shape for font backend. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
186 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
187 Shape text in LGSTRING. See the docstring of `font-make-gstring' |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
188 for the format of LGSTRING. If the (N+1)th element of LGSTRING |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
189 is nil, input of shaping is from the 1st to (N)th elements. In |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
190 each input glyph, FROM, TO, CHAR, and CODE are already set. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
191 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
192 This function updates all fields of the input glyphs. If the |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
193 output glyphs (M) are more than the input glyphs (N), (N+1)th |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
194 through (M)th elements of LGSTRING are updated possibly by making |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
195 a new glyph object and storing it in LGSTRING. If (M) is greater |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
196 than the length of LGSTRING, nil should be return. In that case, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
197 this function is called again with the larger LGSTRING. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
198 static Lisp_Object |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
199 uniscribe_shape (lgstring) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
200 Lisp_Object lgstring; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
201 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
202 struct font * font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
203 struct uniscribe_font_info * uniscribe_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
204 EMACS_UINT nchars; |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
205 int nitems, max_items, i, max_glyphs, done_glyphs; |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
206 wchar_t *chars; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
207 WORD *glyphs, *clusters; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
208 SCRIPT_ITEM *items; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
209 SCRIPT_CONTROL control; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
210 SCRIPT_VISATTR *attributes; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
211 int *advances; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
212 GOFFSET *offsets; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
213 ABC overall_metrics; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
214 MAT2 transform; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
215 HDC context; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
216 HFONT old_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
217 HRESULT result; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
218 struct frame * f; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
219 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
220 CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring), font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
221 uniscribe_font = (struct uniscribe_font_info *) font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
222 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
223 /* Get the chars from lgstring in a form we can use with uniscribe. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
224 max_glyphs = nchars = LGSTRING_LENGTH (lgstring); |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
225 done_glyphs = 0; |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
226 chars = (wchar_t *) alloca (nchars * sizeof (wchar_t)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
227 for (i = 0; i < nchars; i++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
228 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
229 /* lgstring can be bigger than the number of characters in it, in |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
230 the case where more glyphs are required to display those characters. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
231 If that is the case, note the real number of characters. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
232 if (NILP (LGSTRING_GLYPH (lgstring, i))) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
233 nchars = i; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
234 else |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
235 chars[i] = LGLYPH_CHAR (LGSTRING_GLYPH (lgstring, i)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
236 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
237 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
238 /* First we need to break up the glyph string into runs of glyphs that |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
239 can be treated together. First try a single run. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
240 max_items = 2; |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
241 items = (SCRIPT_ITEM *) xmalloc (sizeof (SCRIPT_ITEM) * max_items + 1); |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
242 bzero (&control, sizeof (control)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
243 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
244 while ((result = ScriptItemize (chars, nchars, max_items, &control, NULL, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
245 items, &nitems)) == E_OUTOFMEMORY) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
246 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
247 /* If that wasn't enough, keep trying with one more run. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
248 max_items++; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
249 items = (SCRIPT_ITEM *) xrealloc (items, |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
250 sizeof (SCRIPT_ITEM) * max_items + 1); |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
251 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
252 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
253 /* 0 = success in Microsoft's backwards world. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
254 if (result) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
255 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
256 xfree (items); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
257 return Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
258 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
259 |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
260 /* TODO: When we get BIDI support, we need to call ScriptLayout here. |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
261 Requires that we know the surrounding context. */ |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
262 |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
263 f = XFRAME (selected_frame); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
264 context = get_frame_dc (f); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
265 old_font = SelectObject (context, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
266 ((W32FontStruct *) (font->font.font))->hfont); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
267 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
268 glyphs = alloca (max_glyphs * sizeof (WORD)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
269 clusters = alloca (nchars * sizeof (WORD)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
270 attributes = alloca (max_glyphs * sizeof (SCRIPT_VISATTR)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
271 advances = alloca (max_glyphs * sizeof (int)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
272 offsets = alloca (max_glyphs * sizeof (GOFFSET)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
273 bzero (&transform, sizeof (transform)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
274 transform.eM11.value = 1; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
275 transform.eM22.value = 1; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
276 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
277 for (i = 0; i < nitems; i++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
278 { |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
279 int nglyphs, nchars_in_run, rtl = items[i].a.fRTL ? -1 : 1; |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
280 nchars_in_run = items[i+1].iCharPos - items[i].iCharPos; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
281 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
282 result = ScriptShape (context, &(uniscribe_font->cache), |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
283 chars + items[i].iCharPos, nchars_in_run, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
284 max_glyphs - done_glyphs, &(items[i].a), |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
285 glyphs, clusters, attributes, &nglyphs); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
286 if (result == E_OUTOFMEMORY) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
287 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
288 /* Need a bigger lgstring. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
289 lgstring = Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
290 break; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
291 } |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
292 else if (result) /* Failure. */ |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
293 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
294 /* Can't shape this run - return results so far if any. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
295 break; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
296 } |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
297 else if (items[i].a.fNoGlyphIndex) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
298 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
299 /* Glyph indices not supported by this font (or OS), means we |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
300 can't really do any meaningful shaping. */ |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
301 break; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
302 } |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
303 else |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
304 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
305 result = ScriptPlace (context, &(uniscribe_font->cache), |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
306 glyphs, nglyphs, attributes, &(items[i].a), |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
307 advances, offsets, &overall_metrics); |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
308 if (result == 0) /* Success. */ |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
309 { |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
310 int j, nclusters, from = 0, to = 0; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
311 /* For tracking our mapping of characters to glyphs. |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
312 Special value -1 means not yet initialized, -2 means |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
313 we've run off the end. Anything else is an index |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
314 into the chars and clusters arrays. */ |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
315 int my_char = -1; |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
316 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
317 for (j = 0; j < nglyphs; j++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
318 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
319 int lglyph_index = j + done_glyphs; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
320 Lisp_Object lglyph = LGSTRING_GLYPH (lgstring, lglyph_index); |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
321 ABC char_metric; |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
322 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
323 if (NILP (lglyph)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
324 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
325 lglyph = Fmake_vector (make_number (LGLYPH_SIZE), Qnil); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
326 LGSTRING_SET_GLYPH (lgstring, lglyph_index, lglyph); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
327 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
328 LGLYPH_SET_CODE (lglyph, glyphs[j]); |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
329 |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
330 /* Detect clusters, for linking codes back to characters. */ |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
331 if (attributes[j].fClusterStart) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
332 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
333 /* First time, set to appropriate end of run. */ |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
334 if (my_char == -1) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
335 my_char = rtl > 0 ? 0 : nchars_in_run - 1; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
336 else if (my_char >= 0) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
337 my_char += rtl; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
338 while (my_char >= 0 && my_char < nchars_in_run |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
339 && clusters[my_char] < j) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
340 my_char += rtl; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
341 |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
342 if (my_char < 0 || my_char >= nchars_in_run) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
343 my_char = -2; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
344 |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
345 /* FROM and TO as char indices. This produces |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
346 much better results at small font sizes than |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
347 earlier attempts at using glyph indices for |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
348 FROM and TO, but the output still isn't quite |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
349 right. For example, on the first South Asia |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
350 line of etc/HELLO, the third example |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
351 (Kannada) is missing the last glyph. This |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
352 seems to be caused by the fact that more |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
353 glyphs are produced than there are characters |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
354 in the output (other scripts on that line |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
355 result in the same or fewer glyphs). */ |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
356 if (my_char < 0) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
357 from = to = rtl > 0 ? nchars_in_run - 1: 0; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
358 else |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
359 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
360 int k; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
361 from = my_char; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
362 to = rtl > 0 ? nchars_in_run : 0; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
363 for (k = my_char + rtl; k >= 0 && k < nchars_in_run; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
364 k += rtl) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
365 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
366 if (clusters[k] > j) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
367 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
368 to = k; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
369 break; |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
370 } |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
371 } |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
372 } |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
373 } |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
374 |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
375 if (my_char < 0 || clusters[my_char] > j) |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
376 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
377 /* No mapping. */ |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
378 LGLYPH_SET_CHAR (lglyph, 0); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
379 LGLYPH_SET_FROM (lglyph, items[i].iCharPos + from); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
380 LGLYPH_SET_TO (lglyph, items[i].iCharPos + to); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
381 } |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
382 else |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
383 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
384 LGLYPH_SET_CHAR (lglyph, chars[items[i].iCharPos |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
385 + my_char]); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
386 LGLYPH_SET_FROM (lglyph, items[i].iCharPos + from); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
387 LGLYPH_SET_TO (lglyph, items[i].iCharPos + to); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
388 } |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
389 |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
390 /* Metrics. */ |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
391 LGLYPH_SET_WIDTH (lglyph, advances[j]); |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
392 LGLYPH_SET_ASCENT (lglyph, font->ascent); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
393 LGLYPH_SET_DESCENT (lglyph, font->descent); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
394 |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
395 result = ScriptGetGlyphABCWidth (context, |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
396 &(uniscribe_font->cache), |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
397 glyphs[j], &char_metric); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
398 |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
399 if (result == 0) /* Success. */ |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
400 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
401 LGLYPH_SET_LBEARING (lglyph, char_metric.abcA); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
402 LGLYPH_SET_RBEARING (lglyph, (char_metric.abcA |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
403 + char_metric.abcB)); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
404 } |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
405 else |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
406 { |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
407 LGLYPH_SET_LBEARING (lglyph, 0); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
408 LGLYPH_SET_RBEARING (lglyph, advances[j]); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
409 } |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
410 |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
411 if (offsets[j].du || offsets[j].dv) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
412 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
413 Lisp_Object vec; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
414 vec = Fmake_vector (make_number (3), Qnil); |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
415 ASET (vec, 0, make_number (offsets[j].du)); |
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
416 ASET (vec, 1, make_number (offsets[j].dv)); |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
417 /* Based on what ftfont.c does... */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
418 ASET (vec, 2, make_number (advances[j])); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
419 LGLYPH_SET_ADJUSTMENT (lglyph, vec); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
420 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
421 else |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
422 LGLYPH_SET_ADJUSTMENT (lglyph, Qnil); |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
423 } } |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
424 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
425 done_glyphs += nglyphs; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
426 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
427 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
428 xfree (items); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
429 SelectObject (context, old_font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
430 release_frame_dc (f, context); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
431 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
432 if (NILP (lgstring)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
433 return Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
434 else |
93762
46d39c0f7bf9
(uniscribe_shape): Increase items buffer size.
Jason Rumney <jasonr@gnu.org>
parents:
93729
diff
changeset
|
435 return make_number (done_glyphs); |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
436 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
437 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
438 /* Uniscribe implementation of encode_char for font backend. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
439 Return a glyph code of FONT for characer C (Unicode code point). |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
440 If FONT doesn't have such a glyph, return FONT_INVALID_CODE. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
441 static unsigned |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
442 uniscribe_encode_char (font, c) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
443 struct font *font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
444 int c; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
445 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
446 wchar_t chars[1]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
447 WORD indices[1]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
448 HDC context; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
449 struct frame *f; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
450 HFONT old_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
451 DWORD retval; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
452 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
453 /* TODO: surrogates. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
454 if (c > 0xFFFF) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
455 return FONT_INVALID_CODE; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
456 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
457 chars[0] = (wchar_t) c; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
458 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
459 /* Use selected frame until API is updated to pass the frame. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
460 f = XFRAME (selected_frame); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
461 context = get_frame_dc (f); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
462 old_font = SelectObject (context, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
463 ((W32FontStruct *)(font->font.font))->hfont); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
464 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
465 retval = GetGlyphIndicesW (context, chars, 1, indices, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
466 GGI_MARK_NONEXISTING_GLYPHS); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
467 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
468 SelectObject (context, old_font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
469 release_frame_dc (f, context); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
470 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
471 if (retval == 1) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
472 return indices[0] == 0xFFFF ? FONT_INVALID_CODE : indices[0]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
473 else |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
474 return FONT_INVALID_CODE; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
475 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
476 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
477 /* |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
478 Shared with w32font: |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
479 Lisp_Object uniscribe_get_cache (Lisp_Object frame); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
480 void uniscribe_free_entity (Lisp_Object font_entity); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
481 int uniscribe_has_char (Lisp_Object entity, int c); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
482 int uniscribe_text_extents (struct font *font, unsigned *code, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
483 int nglyphs, struct font_metrics *metrics); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
484 int uniscribe_draw (struct glyph_string *s, int from, int to, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
485 int x, int y, int with_background); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
486 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
487 Unused: |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
488 int uniscribe_prepare_face (FRAME_PTR f, struct face *face); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
489 void uniscribe_done_face (FRAME_PTR f, struct face *face); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
490 int uniscribe_get_bitmap (struct font *font, unsigned code, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
491 struct font_bitmap *bitmap, int bits_per_pixel); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
492 void uniscribe_free_bitmap (struct font *font, struct font_bitmap *bitmap); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
493 void * uniscribe_get_outline (struct font *font, unsigned code); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
494 void uniscribe_free_outline (struct font *font, void *outline); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
495 int uniscribe_anchor_point (struct font *font, unsigned code, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
496 int index, int *x, int *y); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
497 int uniscribe_start_for_frame (FRAME_PTR f); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
498 int uniscribe_end_for_frame (FRAME_PTR f); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
499 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
500 */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
501 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
502 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
503 /* Callback function for EnumFontFamiliesEx. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
504 Adds the name of opentype fonts to a Lisp list (passed in as the |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
505 lParam arg). */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
506 static int CALLBACK |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
507 add_opentype_font_name_to_list (logical_font, physical_font, font_type, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
508 list_object) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
509 ENUMLOGFONTEX *logical_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
510 NEWTEXTMETRICEX *physical_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
511 DWORD font_type; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
512 LPARAM list_object; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
513 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
514 Lisp_Object* list = (Lisp_Object *) list_object; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
515 Lisp_Object family; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
516 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
517 /* Skip vertical fonts (intended only for printing) */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
518 if (logical_font->elfLogFont.lfFaceName[0] == '@') |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
519 return 1; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
520 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
521 /* Skip non opentype fonts. Count old truetype fonts as opentype, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
522 as some of them do contain GPOS and GSUB data that Uniscribe |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
523 can make use of. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
524 if (!(physical_font->ntmTm.ntmFlags & NTMFLAGS_OPENTYPE) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
525 && font_type != TRUETYPE_FONTTYPE) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
526 return 1; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
527 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
528 family = intern_downcase (logical_font->elfLogFont.lfFaceName, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
529 strlen (logical_font->elfLogFont.lfFaceName)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
530 if (! memq_no_quit (family, *list)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
531 *list = Fcons (family, *list); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
532 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
533 return 1; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
534 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
535 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
536 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
537 /* :otf property handling. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
538 Since the necessary Uniscribe APIs for getting font tag information |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
539 are only available in Vista, we need to parse the font data directly |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
540 according to the OpenType Specification. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
541 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
542 /* Push into DWORD backwards to cope with endianness. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
543 #define OTF_TAG(STR) \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
544 ((STR[3] << 24) | (STR[2] << 16) | (STR[1] << 8) | STR[0]) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
545 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
546 #define OTF_INT16_VAL(TABLE, OFFSET, PTR) \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
547 do { \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
548 BYTE temp, data[2]; \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
549 if (GetFontData (context, TABLE, OFFSET, data, 2) != 2) \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
550 goto font_table_error; \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
551 temp = data[0], data[0] = data[1], data[1] = temp; \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
552 memcpy (PTR, data, 2); \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
553 } while (0) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
554 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
555 /* Do not reverse the bytes, because we will compare with a OTF_TAG value |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
556 that has them reversed already. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
557 #define OTF_DWORDTAG_VAL(TABLE, OFFSET, PTR) \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
558 do { \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
559 if (GetFontData (context, TABLE, OFFSET, PTR, 4) != 4) \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
560 goto font_table_error; \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
561 } while (0) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
562 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
563 #define OTF_TAG_VAL(TABLE, OFFSET, STR) \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
564 do { \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
565 if (GetFontData (context, TABLE, OFFSET, STR, 4) != 4) \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
566 goto font_table_error; \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
567 STR[4] = '\0'; \ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
568 } while (0) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
569 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
570 static char* NOTHING = " "; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
571 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
572 #define SNAME(VAL) SDATA (STRINGP (VAL) ? VAL : SYMBOL_NAME (VAL)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
573 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
574 /* Check if font supports the otf script/language/features specified. |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
575 OTF_SPEC is in the format |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
576 (script lang [(gsub_feature ...)|nil] [(gpos_feature ...)]?) */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
577 int uniscribe_check_otf (font, otf_spec) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
578 LOGFONT *font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
579 Lisp_Object otf_spec; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
580 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
581 Lisp_Object script, lang, rest; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
582 Lisp_Object features[2]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
583 DWORD feature_tables[2]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
584 DWORD script_tag, default_script, lang_tag = 0; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
585 struct frame * f; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
586 HDC context; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
587 HFONT check_font, old_font; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
588 DWORD table; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
589 int i, retval = 0; |
93659
f606935ea4be
(uniscribe_check_otf): Add GC protection before consing.
Jason Rumney <jasonr@gnu.org>
parents:
93654
diff
changeset
|
590 struct gcpro gcpro1; |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
591 |
93604
5476a4f5d2f2
(uniscribe_check_otf): Sanity check otf_spec.
Jason Rumney <jasonr@gnu.org>
parents:
93590
diff
changeset
|
592 /* Check the spec is in the right format. */ |
93654
566bfd5b644d
(uniscribe_check_otf): Fix last change.
Jason Rumney <jasonr@gnu.org>
parents:
93604
diff
changeset
|
593 if (!CONSP (otf_spec) || Flength (otf_spec) < 3) |
93604
5476a4f5d2f2
(uniscribe_check_otf): Sanity check otf_spec.
Jason Rumney <jasonr@gnu.org>
parents:
93590
diff
changeset
|
594 return 0; |
5476a4f5d2f2
(uniscribe_check_otf): Sanity check otf_spec.
Jason Rumney <jasonr@gnu.org>
parents:
93590
diff
changeset
|
595 |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
596 /* Break otf_spec into its components. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
597 script = XCAR (otf_spec); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
598 rest = XCDR (otf_spec); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
599 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
600 lang = XCAR (rest); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
601 rest = XCDR (rest); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
602 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
603 features[0] = XCAR (rest); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
604 rest = XCDR (rest); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
605 if (NILP (rest)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
606 features[1] = Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
607 else |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
608 features[1] = XCAR (rest); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
609 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
610 /* Set up tags we will use in the search. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
611 feature_tables[0] = OTF_TAG ("GSUB"); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
612 feature_tables[1] = OTF_TAG ("GPOS"); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
613 default_script = OTF_TAG ("DFLT"); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
614 if (NILP (script)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
615 script_tag = default_script; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
616 else |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
617 script_tag = OTF_TAG (SNAME (script)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
618 if (!NILP (lang)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
619 lang_tag = OTF_TAG (SNAME (lang)); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
620 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
621 /* Set up graphics context so we can use the font. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
622 f = XFRAME (selected_frame); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
623 context = get_frame_dc (f); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
624 check_font = CreateFontIndirect (font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
625 old_font = SelectObject (context, check_font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
626 |
93659
f606935ea4be
(uniscribe_check_otf): Add GC protection before consing.
Jason Rumney <jasonr@gnu.org>
parents:
93654
diff
changeset
|
627 /* Everything else is contained within otf_spec so should get |
f606935ea4be
(uniscribe_check_otf): Add GC protection before consing.
Jason Rumney <jasonr@gnu.org>
parents:
93654
diff
changeset
|
628 marked along with it. */ |
f606935ea4be
(uniscribe_check_otf): Add GC protection before consing.
Jason Rumney <jasonr@gnu.org>
parents:
93654
diff
changeset
|
629 GCPRO1 (otf_spec); |
f606935ea4be
(uniscribe_check_otf): Add GC protection before consing.
Jason Rumney <jasonr@gnu.org>
parents:
93654
diff
changeset
|
630 |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
631 /* Scan GSUB and GPOS tables. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
632 for (i = 0; i < 2; i++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
633 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
634 int j, n_match_features; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
635 unsigned short scriptlist_table, feature_table, n_scripts; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
636 unsigned short script_table, langsys_table, n_langs; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
637 unsigned short feature_index, n_features; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
638 DWORD tbl = feature_tables[i]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
639 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
640 /* Skip if no features requested from this table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
641 if (NILP (features[i])) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
642 continue; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
643 |
93604
5476a4f5d2f2
(uniscribe_check_otf): Sanity check otf_spec.
Jason Rumney <jasonr@gnu.org>
parents:
93590
diff
changeset
|
644 /* If features is not a cons, this font spec is messed up. */ |
5476a4f5d2f2
(uniscribe_check_otf): Sanity check otf_spec.
Jason Rumney <jasonr@gnu.org>
parents:
93590
diff
changeset
|
645 if (!CONSP (features[i])) |
5476a4f5d2f2
(uniscribe_check_otf): Sanity check otf_spec.
Jason Rumney <jasonr@gnu.org>
parents:
93590
diff
changeset
|
646 goto no_support; |
5476a4f5d2f2
(uniscribe_check_otf): Sanity check otf_spec.
Jason Rumney <jasonr@gnu.org>
parents:
93590
diff
changeset
|
647 |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
648 /* Read GPOS/GSUB header. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
649 OTF_INT16_VAL (tbl, 4, &scriptlist_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
650 OTF_INT16_VAL (tbl, 6, &feature_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
651 OTF_INT16_VAL (tbl, scriptlist_table, &n_scripts); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
652 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
653 /* Find the appropriate script table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
654 script_table = 0; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
655 for (j = 0; j < n_scripts; j++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
656 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
657 DWORD script_id; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
658 OTF_DWORDTAG_VAL (tbl, scriptlist_table + 2 + j * 6, &script_id); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
659 if (script_id == script_tag) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
660 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
661 OTF_INT16_VAL (tbl, scriptlist_table + 6 + j * 6, &script_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
662 break; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
663 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
664 /* If there is a DFLT script defined in the font, use it |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
665 if the specified script is not found. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
666 else if (script_id == default_script) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
667 OTF_INT16_VAL (tbl, scriptlist_table + 6 + j * 6, &script_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
668 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
669 /* If no specific or default script table was found, then this font |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
670 does not support the script. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
671 if (!script_table) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
672 goto no_support; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
673 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
674 /* Offset is from beginning of scriptlist_table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
675 script_table += scriptlist_table; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
676 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
677 /* Get default langsys table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
678 OTF_INT16_VAL (tbl, script_table, &langsys_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
679 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
680 /* If lang was specified, see if font contains a specific entry. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
681 if (!NILP (lang)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
682 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
683 OTF_INT16_VAL (tbl, script_table + 2, &n_langs); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
684 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
685 for (j = 0; j < n_langs; j++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
686 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
687 DWORD lang_id; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
688 OTF_DWORDTAG_VAL (tbl, script_table + 4 + j * 6, &lang_id); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
689 if (lang_id == lang_tag) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
690 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
691 OTF_INT16_VAL (tbl, script_table + 8 + j * 6, &langsys_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
692 break; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
693 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
694 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
695 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
696 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
697 if (!langsys_table) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
698 goto no_support; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
699 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
700 /* Offset is from beginning of script table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
701 langsys_table += script_table; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
702 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
703 /* Check the features. Features may contain nil according to |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
704 documentation in font_prop_validate_otf, so count them. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
705 n_match_features = 0; |
93660
96c69ebb9cfa
(uniscribe_check_otf): Rearrange loop for counting features.
Jason Rumney <jasonr@gnu.org>
parents:
93659
diff
changeset
|
706 for (rest = features[i]; CONSP (rest); rest = XCDR (rest)) |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
707 { |
93660
96c69ebb9cfa
(uniscribe_check_otf): Rearrange loop for counting features.
Jason Rumney <jasonr@gnu.org>
parents:
93659
diff
changeset
|
708 Lisp_Object feature = XCAR (rest); |
93590
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
709 if (!NILP (feature)) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
710 n_match_features++; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
711 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
712 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
713 /* If there are no features to check, skip checking. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
714 if (!n_match_features) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
715 continue; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
716 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
717 /* First check required feature (if any). */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
718 OTF_INT16_VAL (tbl, langsys_table + 2, &feature_index); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
719 if (feature_index != 0xFFFF) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
720 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
721 char feature_id[5]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
722 OTF_TAG_VAL (tbl, feature_table + 2 + feature_index * 6, feature_id); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
723 OTF_TAG_VAL (tbl, feature_table + 2 + feature_index * 6, feature_id); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
724 /* Assume no duplicates in the font table. This allows us to mark |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
725 the features off by simply decrementing a counter. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
726 if (!NILP (Fmemq (intern (feature_id), features[i]))) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
727 n_match_features--; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
728 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
729 /* Now check all the other features. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
730 OTF_INT16_VAL (tbl, langsys_table + 4, &n_features); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
731 for (j = 0; j < n_features; j++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
732 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
733 char feature_id[5]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
734 OTF_INT16_VAL (tbl, langsys_table + 6 + j * 2, &feature_index); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
735 OTF_TAG_VAL (tbl, feature_table + 2 + feature_index * 6, feature_id); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
736 /* Assume no duplicates in the font table. This allows us to mark |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
737 the features off by simply decrementing a counter. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
738 if (!NILP (Fmemq (intern (feature_id), features[i]))) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
739 n_match_features--; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
740 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
741 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
742 if (n_match_features > 0) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
743 goto no_support; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
744 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
745 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
746 retval = 1; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
747 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
748 no_support: |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
749 font_table_error: |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
750 /* restore graphics context. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
751 SelectObject (context, old_font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
752 DeleteObject (check_font); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
753 release_frame_dc (f, context); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
754 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
755 return retval; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
756 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
757 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
758 static Lisp_Object |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
759 otf_features (HDC context, char *table) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
760 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
761 Lisp_Object script_list = Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
762 unsigned short scriptlist_table, n_scripts, feature_table; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
763 DWORD tbl = OTF_TAG (table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
764 int i, j, k; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
765 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
766 /* Look for scripts in the table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
767 OTF_INT16_VAL (tbl, 4, &scriptlist_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
768 OTF_INT16_VAL (tbl, 6, &feature_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
769 OTF_INT16_VAL (tbl, scriptlist_table, &n_scripts); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
770 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
771 for (i = 0; i < n_scripts; i++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
772 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
773 char script[5], lang[5]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
774 unsigned short script_table, lang_count, langsys_table, feature_count; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
775 Lisp_Object script_tag, langsys_list, langsys_tag, feature_list; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
776 unsigned short record_offset = scriptlist_table + 2 + i * 6; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
777 OTF_TAG_VAL (tbl, record_offset, script); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
778 OTF_INT16_VAL (tbl, record_offset + 4, &script_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
779 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
780 /* Offset is from beginning of script table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
781 script_table += scriptlist_table; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
782 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
783 script_tag = intern (script); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
784 langsys_list = Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
785 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
786 /* Optional default lang. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
787 OTF_INT16_VAL (tbl, script_table, &langsys_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
788 if (langsys_table) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
789 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
790 /* Offset is from beginning of script table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
791 langsys_table += script_table; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
792 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
793 langsys_tag = Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
794 feature_list = Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
795 OTF_INT16_VAL (tbl, langsys_table + 4, &feature_count); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
796 for (k = 0; k < feature_count; k++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
797 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
798 char feature[5]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
799 unsigned short index; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
800 OTF_INT16_VAL (tbl, langsys_table + 6 + k * 2, &index); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
801 OTF_TAG_VAL (tbl, feature_table + 2 + index * 6, feature); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
802 feature_list = Fcons (intern (feature), feature_list); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
803 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
804 langsys_list = Fcons (Fcons (langsys_tag, feature_list), |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
805 langsys_list); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
806 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
807 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
808 /* List of supported languages. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
809 OTF_INT16_VAL (tbl, script_table + 2, &lang_count); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
810 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
811 for (j = 0; j < lang_count; j++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
812 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
813 record_offset = script_table + 4 + j * 6; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
814 OTF_TAG_VAL (tbl, record_offset, lang); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
815 OTF_INT16_VAL (tbl, record_offset + 4, &langsys_table); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
816 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
817 /* Offset is from beginning of script table. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
818 langsys_table += script_table; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
819 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
820 langsys_tag = intern (lang); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
821 feature_list = Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
822 OTF_INT16_VAL (tbl, langsys_table + 4, &feature_count); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
823 for (k = 0; k < feature_count; k++) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
824 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
825 char feature[5]; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
826 unsigned short index; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
827 OTF_INT16_VAL (tbl, langsys_table + 6 + k * 2, &index); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
828 OTF_TAG_VAL (tbl, feature_table + 2 + index * 6, feature); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
829 feature_list = Fcons (intern (feature), feature_list); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
830 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
831 langsys_list = Fcons (Fcons (langsys_tag, feature_list), |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
832 langsys_list); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
833 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
834 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
835 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
836 script_list = Fcons (Fcons (script_tag, langsys_list), script_list); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
837 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
838 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
839 return script_list; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
840 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
841 font_table_error: |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
842 return Qnil; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
843 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
844 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
845 #undef OTF_INT16_VAL |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
846 #undef OTF_TAG_VAL |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
847 #undef OTF_TAG |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
848 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
849 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
850 struct font_driver uniscribe_font_driver = |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
851 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
852 0, /* Quniscribe */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
853 w32font_get_cache, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
854 uniscribe_list, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
855 uniscribe_match, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
856 uniscribe_list_family, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
857 NULL, /* free_entity */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
858 uniscribe_open, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
859 uniscribe_close, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
860 NULL, /* prepare_face */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
861 NULL, /* done_face */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
862 w32font_has_char, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
863 uniscribe_encode_char, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
864 w32font_text_extents, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
865 w32font_draw, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
866 NULL, /* get_bitmap */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
867 NULL, /* free_bitmap */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
868 NULL, /* get_outline */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
869 NULL, /* free_outline */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
870 NULL, /* anchor_point */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
871 uniscribe_otf_capability, /* Defined so (font-get FONTOBJ :otf) works. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
872 NULL, /* otf_drive - use shape instead. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
873 NULL, /* start_for_frame */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
874 NULL, /* end_for_frame */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
875 uniscribe_shape |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
876 }; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
877 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
878 /* Note that this should be called at every startup, not just when dumping, |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
879 as it needs to test for the existence of the Uniscribe library. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
880 void |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
881 syms_of_w32uniscribe () |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
882 { |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
883 HMODULE uniscribe; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
884 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
885 /* Don't init uniscribe when dumping */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
886 if (!initialized) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
887 return; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
888 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
889 /* Don't register if uniscribe is not available. */ |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
890 uniscribe = GetModuleHandle ("usp10"); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
891 if (!uniscribe) |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
892 return; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
893 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
894 uniscribe_font_driver.type = Quniscribe; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
895 uniscribe_available = 1; |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
896 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
897 register_font_driver (&uniscribe_font_driver, NULL); |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
898 } |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
899 |
57eed2a0d99f
Font backend implementation for Uniscribe on Windows 2000 and later.
Jason Rumney <jasonr@gnu.org>
parents:
diff
changeset
|
900 #endif /* USE_FONT_BACKEND */ |
93729 | 901 |
902 /* arch-tag: 9530f0e1-7471-47dd-a780-94330af87ea0 | |
903 (do not change this comment) */ |