Mercurial > emacs
annotate src/w32bdf.c @ 31877:517180d8eccd
(show_help_echo): Set help_echo_showing_p.
(read_char): If help-echo is showing, preserve the echo area
when redisplaying.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 25 Sep 2000 14:27:02 +0000 |
parents | ba53675aa8f9 |
children | a0ba404b97a5 |
rev | line source |
---|---|
24141 | 1 /* Implementation of BDF font handling on the Microsoft W32 API. |
2 Copyright (C) 1999 Free Software Foundation, Inc. | |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
19 Boston, MA 02111-1307, USA. */ | |
20 | |
21 /* Based heavily on code by H. Miyashita for Meadow (a descendant of | |
22 MULE for W32). */ | |
23 | |
24 #include <windows.h> | |
25 #include "config.h" | |
26 #include "lisp.h" | |
27 #include "charset.h" | |
28271
f6a8927824c9
Include frame.h and dispextern.h before fontset.h.
Jason Rumney <jasonr@gnu.org>
parents:
24841
diff
changeset
|
28 #include "frame.h" |
f6a8927824c9
Include frame.h and dispextern.h before fontset.h.
Jason Rumney <jasonr@gnu.org>
parents:
24841
diff
changeset
|
29 #include "dispextern.h" |
24141 | 30 #include "fontset.h" |
31 #include "blockinput.h" | |
32 #include "w32gui.h" | |
33 #include "w32term.h" | |
34 #include "w32bdf.h" | |
35 | |
36 #define min(a, b) ((a) < (b) ? (a) : (b)) | |
37 #define max(a, b) ((a) > (b) ? (a) : (b)) | |
38 | |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
39 /* Portion of GDI Objects which the font cache is allowed to use. This |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
40 can be quite high, since the font cache is the only part of Emacs |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
41 that uses a large number of GDI objects, but there should still be |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
42 some GDI objects reserved for other uses. */ |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
43 #define CACHE_GDI_ALLOWANCE 9 / 10 |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
44 |
24141 | 45 void w32_free_bdf_font(bdffont *fontp); |
46 bdffont *w32_init_bdf_font(char *filename); | |
47 | |
48 static int | |
49 search_file_line(char *key, char *start, int len, char **val, char **next) | |
50 { | |
51 int linelen; | |
31108 | 52 char *p; |
24141 | 53 |
54 p = memchr(start, '\n', len); | |
55 if (!p) return -1; | |
56 for (;start < p;start++) | |
57 { | |
58 if ((*start != ' ') || (*start != '\t')) break; | |
59 } | |
60 linelen = p - start + 1; | |
61 *next = p + 1; | |
62 if (strncmp(start, key, min(strlen(key), linelen)) == 0) | |
63 { | |
64 *val = start + strlen(key); | |
65 return 1; | |
66 } | |
67 | |
68 return 0; | |
69 } | |
70 | |
71 static int | |
72 proceed_file_line(char *key, char *start, int *len, char **val, char **next) | |
73 { | |
74 int flag = 0; | |
75 | |
76 do { | |
77 flag = search_file_line(key, start, *len, val, next); | |
78 *len -= (int)(*next - start); | |
79 start = *next; | |
80 }while(flag == 0); | |
81 | |
82 if (flag == -1) return 0; | |
83 return 1; | |
84 } | |
85 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
86 char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
87 get_quoted_string(char *start, char *end) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
88 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
89 char *p, *q, *result; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
90 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
91 p = memchr(start, '\"', end - start); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
92 q = 0; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
93 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
94 if (!p) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
95 p++; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
96 q = memchr(p, '\"', end - q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
97 if (!q) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
98 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
99 result = (char*) xmalloc(q - p + 1); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
100 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
101 memcpy(result, p, q - p); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
102 result[q - p] = '\0'; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
103 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
104 return result; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
105 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
106 |
24141 | 107 static int |
108 set_bdf_font_info(bdffont *fontp) | |
109 { | |
31108 | 110 char *start, *p, *q; |
24141 | 111 int len, flag; |
112 int bbw, bbh, bbx, bby; | |
113 int val1; | |
114 | |
115 len = fontp->size; | |
116 start = fontp->font; | |
117 | |
118 fontp->yoffset = 0; | |
119 fontp->relative_compose = 0; | |
120 fontp->default_ascent = 0; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
121 fontp->registry = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
122 fontp->encoding = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
123 fontp->slant = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
124 /* fontp->width = NULL; */ |
24141 | 125 |
126 flag = proceed_file_line("FONTBOUNDINGBOX", start, &len, &p, &q); | |
127 if (!flag) return 0; | |
128 bbw = strtol(p, &start, 10); | |
129 p = start; | |
130 bbh = strtol(p, &start, 10); | |
131 p = start; | |
132 bbx = strtol(p, &start, 10); | |
133 p = start; | |
134 bby = strtol(p, &start, 10); | |
135 | |
136 fontp->llx = bbx; | |
137 fontp->lly = bby; | |
138 fontp->urx = bbw + bbx; | |
139 fontp->ury = bbh + bby; | |
140 fontp->width = bbw; | |
141 fontp->height = bbh; | |
142 start = q; | |
143 flag = proceed_file_line("STARTPROPERTIES", start, &len, &p, &q); | |
144 if (!flag) return 1; | |
145 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
146 flag = 0; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
147 |
24141 | 148 do { |
149 start = q; | |
150 if (search_file_line("PIXEL_SIZE", start, len, &p, &q) == 1) | |
151 { | |
152 val1 = atoi(p); | |
153 fontp->pixsz = val1; | |
154 } | |
155 else if (search_file_line("FONT_ASCENT", start, len, &p, &q) == 1) | |
156 { | |
157 val1 = atoi(p); | |
158 fontp->ury = val1; | |
159 } | |
160 else if (search_file_line("FONT_DESCENT", start, len, &p, &q) == 1) | |
161 { | |
162 val1 = atoi(p); | |
163 fontp->lly = -val1; | |
164 } | |
165 else if (search_file_line("_MULE_BASELINE_OFFSET", start, len, &p, &q) == 1) | |
166 { | |
167 val1 = atoi(p); | |
168 fontp->yoffset = val1; | |
169 } | |
170 else if (search_file_line("_MULE_RELATIVE_COMPOSE", start, len, &p, &q) == 1) | |
171 { | |
172 val1 = atoi(p); | |
173 fontp->relative_compose = val1; | |
174 } | |
175 else if (search_file_line("_MULE_DEFAULT_ASCENT", start, len, &p, &q) == 1) | |
176 { | |
177 val1 = atoi(p); | |
178 fontp->default_ascent = val1; | |
179 } | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
180 else if (search_file_line("CHARSET_REGISTRY", start, len, &p, &q) == 1) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
181 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
182 fontp->registry = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
183 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
184 else if (search_file_line("CHARSET_ENCODING", start, len, &p, &q) == 1) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
185 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
186 fontp->encoding = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
187 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
188 else if (search_file_line("SLANT", start, len, &p, &q) == 1) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
189 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
190 fontp->slant = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
191 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
192 /* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
193 else if (search_file_line("SETWIDTH_NAME", start, len, &p, &q) == 1) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
194 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
195 fontp->width = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
196 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
197 */ |
24141 | 198 else |
199 { | |
200 flag = search_file_line("ENDPROPERTIES", start, len, &p, &q); | |
201 } | |
202 if (flag == -1) return 0; | |
203 len -= (q - start); | |
204 }while(flag == 0); | |
205 start = q; | |
206 flag = proceed_file_line("CHARS", start, &len, &p, &q); | |
207 if (!flag) return 0; | |
208 fontp->seeked = q; | |
209 | |
210 return 1; | |
211 } | |
212 | |
213 bdffont* | |
214 w32_init_bdf_font(char *filename) | |
215 { | |
216 HANDLE hfile, hfilemap; | |
217 bdffont *bdffontp; | |
218 unsigned char *font; | |
219 BY_HANDLE_FILE_INFORMATION fileinfo; | |
220 int i; | |
221 | |
222 hfile = CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL, | |
223 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); | |
224 if (hfile == INVALID_HANDLE_VALUE) return NULL; | |
225 if (!GetFileInformationByHandle(hfile, &fileinfo) || | |
226 (fileinfo.nFileSizeHigh != 0) || | |
227 (fileinfo.nFileSizeLow > BDF_FILE_SIZE_MAX)) | |
228 { | |
229 CloseHandle(hfile); | |
230 error("Fail to open BDF file."); | |
231 } | |
232 hfilemap = CreateFileMapping(hfile, NULL, PAGE_READONLY, 0, 0, NULL); | |
233 if (hfilemap == INVALID_HANDLE_VALUE) | |
234 { | |
235 CloseHandle(hfile); | |
236 error("Can't map font."); | |
237 } | |
238 | |
239 font = MapViewOfFile(hfilemap, FILE_MAP_READ, 0, 0, 0); | |
240 | |
241 if (!font) | |
242 { | |
243 CloseHandle(hfile); | |
244 CloseHandle(hfilemap); | |
245 error("Can't view font."); | |
246 } | |
247 | |
248 bdffontp = (bdffont *) xmalloc(sizeof(bdffont)); | |
249 | |
250 for(i = 0;i < BDF_FIRST_OFFSET_TABLE;i++) | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
251 bdffontp->chtbl[i] = NULL; |
24141 | 252 bdffontp->size = fileinfo.nFileSizeLow; |
253 bdffontp->font = font; | |
254 bdffontp->hfile = hfile; | |
255 bdffontp->hfilemap = hfilemap; | |
256 bdffontp->filename = (char*) xmalloc(strlen(filename) + 1); | |
257 strcpy(bdffontp->filename, filename); | |
258 | |
259 if (!set_bdf_font_info(bdffontp)) | |
260 { | |
261 w32_free_bdf_font(bdffontp); | |
262 error("Invalid BDF font!"); | |
263 } | |
264 return bdffontp; | |
265 } | |
266 | |
267 void | |
268 w32_free_bdf_font(bdffont *fontp) | |
269 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
270 int i, j; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
271 font_char *pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
272 cache_bitmap *pcb; |
24141 | 273 |
274 UnmapViewOfFile(fontp->hfilemap); | |
275 CloseHandle(fontp->hfilemap); | |
276 CloseHandle(fontp->hfile); | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
277 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
278 if (fontp->registry) xfree(fontp->registry); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
279 if (fontp->encoding) xfree(fontp->encoding); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
280 if (fontp->slant) xfree(fontp->slant); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
281 /* if (fontp->width) xfree(fontp->width); */ |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
282 |
24141 | 283 xfree(fontp->filename); |
284 for(i = 0;i < BDF_FIRST_OFFSET_TABLE;i++) | |
285 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
286 pch = fontp->chtbl[i]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
287 if (pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
288 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
289 for (j = 0;j < BDF_SECOND_OFFSET_TABLE;j++) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
290 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
291 pcb = pch[j].pcbmp; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
292 if (pcb) pcb->psrc = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
293 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
294 xfree(pch); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
295 } |
24141 | 296 } |
297 xfree(fontp); | |
298 } | |
299 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
300 static font_char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
301 get_cached_font_char(bdffont *fontp, int index) |
24141 | 302 { |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
303 font_char *pch, *result; |
24141 | 304 int i; |
305 | |
306 if (index > 0xffff) | |
307 return NULL; | |
308 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
309 pch = fontp->chtbl[BDF_FIRST_OFFSET(index)]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
310 if (!pch) |
24141 | 311 return NULL; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
312 result = &pch[BDF_SECOND_OFFSET(index)]; |
24141 | 313 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
314 if (!result->offset) return NULL; |
24141 | 315 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
316 return result; |
24141 | 317 } |
318 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
319 static font_char* |
24141 | 320 cache_char_offset(bdffont *fontp, int index, unsigned char *offset) |
321 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
322 font_char *pch, *result; |
24141 | 323 int i; |
324 | |
325 if (index > 0xffff) | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
326 return NULL; |
24141 | 327 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
328 pch = fontp->chtbl[BDF_FIRST_OFFSET(index)]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
329 if (!pch) |
24141 | 330 { |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
331 pch = fontp->chtbl[BDF_FIRST_OFFSET(index)] = |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
332 (font_char*) xmalloc(sizeof(font_char) * |
24141 | 333 BDF_SECOND_OFFSET_TABLE); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
334 memset(pch, 0, sizeof(font_char) * BDF_SECOND_OFFSET_TABLE); |
24141 | 335 } |
336 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
337 result = &pch[BDF_SECOND_OFFSET(index)]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
338 result->offset = offset; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
339 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
340 return result; |
24141 | 341 } |
342 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
343 static font_char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
344 seek_char(bdffont *fontp, int index) |
24141 | 345 { |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
346 font_char *result; |
24141 | 347 int len, flag, font_index; |
31108 | 348 unsigned char *start; |
349 char *p, *q; | |
24141 | 350 |
351 if (!fontp->seeked) return NULL; | |
352 | |
353 start = fontp->seeked; | |
354 len = fontp->size - (start - fontp->font); | |
355 | |
356 do { | |
357 flag = proceed_file_line("ENCODING", start, &len, &p, &q); | |
358 if (!flag) | |
359 { | |
360 fontp->seeked = NULL; | |
361 return NULL; | |
362 } | |
363 font_index = atoi(p); | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
364 result = cache_char_offset(fontp, font_index, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
365 if (!result) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
366 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
367 start = result->offset; |
24141 | 368 } while (font_index != index); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
369 fontp->seeked = start; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
370 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
371 return result; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
372 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
373 |
24141 | 374 #define GET_HEX_VAL(x) ((isdigit(x)) ? ((x) - '0') : \ |
375 (((x) >= 'A') && ((x) <= 'Z')) ? ((x) - 'A' + 10) : \ | |
376 (((x) >= 'a') && ((x) <= 'z')) ? ((x) - 'a' + 10) : \ | |
377 (-1)) | |
378 | |
379 int | |
380 w32_get_bdf_glyph(bdffont *fontp, int index, int size, glyph_struct *glyph) | |
381 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
382 font_char *pch; |
31108 | 383 unsigned char *start, *bitmapp; |
384 char *p, *q; | |
385 char val1, val2; | |
24141 | 386 int i, j, len, flag; |
387 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
388 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
389 if (!pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
390 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
391 pch = seek_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
392 if (!pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
393 return 0; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
394 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
395 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
396 start = pch->offset; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
397 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
398 if ((size == 0) && pch->pcbmp) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
399 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
400 glyph->metric = pch->pcbmp->metric; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
401 return 1; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
402 } |
24141 | 403 |
404 len = fontp->size - (start - fontp->font); | |
405 | |
406 flag = proceed_file_line("DWIDTH", start, &len, &p, &q); | |
407 if (!flag) | |
408 return 0; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
409 glyph->metric.dwidth = atoi(p); |
24141 | 410 |
411 start = q; | |
412 flag = proceed_file_line("BBX", start, &len, &p, &q); | |
413 if (!flag) | |
414 return 0; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
415 glyph->metric.bbw = strtol(p, &start, 10); |
24141 | 416 p = start; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
417 glyph->metric.bbh = strtol(p, &start, 10); |
24141 | 418 p = start; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
419 glyph->metric.bbox = strtol(p, &start, 10); |
24141 | 420 p = start; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
421 glyph->metric.bboy = strtol(p, &start, 10); |
24141 | 422 |
423 if (size == 0) return 1; | |
424 | |
425 start = q; | |
426 flag = proceed_file_line("BITMAP", start, &len, &p, &q); | |
427 if (!flag) | |
428 return 0; | |
429 | |
430 p = q; | |
431 bitmapp = glyph->bitmap; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
432 for(i = 0;i < glyph->metric.bbh;i++) |
24141 | 433 { |
434 q = memchr(p, '\n', len); | |
435 if (!q) return 0; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
436 for(j = 0;((q > p) && (j < ((glyph->metric.bbw + 7) / 8 )));j++) |
24141 | 437 { |
438 val1 = GET_HEX_VAL(*p); | |
439 if (val1 == -1) return 0; | |
440 p++; | |
441 val2 = GET_HEX_VAL(*p); | |
442 if (val2 == -1) return 0; | |
443 p++; | |
444 size--; | |
445 if (size <= 0) return 0; | |
446 /* NAND Operation. */ | |
447 *bitmapp++ = (unsigned char)~((val1 << 4) | val2); | |
448 } | |
449 /* CreateBitmap requires WORD alignment. */ | |
450 if (j % 2) | |
451 { | |
452 *bitmapp++ = 0xff; | |
453 } | |
454 p = q + 1; | |
455 } | |
456 | |
457 return 1; | |
458 } | |
459 | |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
460 #define NEXT_CACHE_SLOT(n) (((n) + 1 >= BDF_FONT_CACHE_SIZE) ? 0 : ((n) + 1)) |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
461 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
462 static |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
463 cache_bitmap* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
464 get_bitmap_with_cache(bdffont *fontp, int index) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
465 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
466 int bitmap_size; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
467 font_char *pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
468 cache_bitmap* pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
469 HBITMAP hbmp; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
470 glyph_struct glyph; |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
471 static cache_bitmap cached_bitmap_slots[BDF_FONT_CACHE_SIZE]; |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
472 static int cache_in_slot = 0; /* the next slot to use */ |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
473 static int cache_out_slot = 0; /* the last slot allocated */ |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
474 static int cache_occupancy = 0; /* current cache occupancy */ |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
475 static int cache_limit = BDF_FONT_CACHE_SIZE; /* allowed maximum occupancy */ |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
476 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
477 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
478 if (pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
479 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
480 pcb = pch->pcbmp; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
481 if (pcb) return pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
482 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
483 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
484 bitmap_size = ((fontp->urx - fontp->llx) / 8 + 2) * (fontp->ury - fontp->lly) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
485 + 256; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
486 glyph.bitmap = (unsigned char*) alloca(sizeof(unsigned char) * bitmap_size); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
487 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
488 if (!w32_get_bdf_glyph(fontp, index, bitmap_size, &glyph)) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
489 return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
490 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
491 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
492 if (!pch) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
493 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
494 hbmp = CreateBitmap(glyph.metric.bbw, glyph.metric.bbh, 1, 1, glyph.bitmap); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
495 |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
496 /* if bitmap allocation fails reduce the limit of the occupancy so |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
497 that we can hope it will not happen again. */ |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
498 if (hbmp == NULL) |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
499 cache_limit = cache_occupancy * CACHE_GDI_ALLOWANCE; |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
500 |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
501 /* if cache occupancy reaches at the limit release some cache slots */ |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
502 if (cache_occupancy >= cache_limit) |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
503 { |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
504 register int size_to_clear = cache_limit * BDF_FONT_CLEAR_SIZE |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
505 / BDF_FONT_CACHE_SIZE; |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
506 for (; size_to_clear; size_to_clear--, |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
507 cache_out_slot = NEXT_CACHE_SLOT(cache_out_slot)) |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
508 { |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
509 register cache_bitmap *p = &cached_bitmap_slots[cache_out_slot]; |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
510 if (p->psrc) |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
511 { |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
512 DeleteObject(p->hbmp); |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
513 p->psrc->pcbmp = NULL; |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
514 p->psrc = NULL; |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
515 cache_occupancy--; |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
516 } |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
517 } |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
518 } |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
519 |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
520 if (hbmp == NULL) |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
521 hbmp = CreateBitmap (glyph.metric.bbw, glyph.metric.bbh, |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
522 1, 1, glyph.bitmap); |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
523 |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
524 pcb = &cached_bitmap_slots[cache_in_slot]; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
525 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
526 pcb->psrc = pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
527 pcb->metric = glyph.metric; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
528 pcb->hbmp = hbmp; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
529 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
530 pch->pcbmp = pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
531 |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
532 cache_in_slot = NEXT_CACHE_SLOT(cache_in_slot); |
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
533 cache_occupancy++; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
534 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
535 return pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
536 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
537 |
24141 | 538 int |
539 w32_BDF_TextOut(bdffont *fontp, HDC hdc, int left, | |
540 int top, unsigned char *text, int dim, int bytelen, | |
541 int fixed_pitch_size) | |
542 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
543 int index, btop; |
24141 | 544 unsigned char *textp; |
545 HDC hCompatDC = 0; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
546 cache_bitmap *pcb; |
24141 | 547 HBITMAP hBMP; |
548 HBRUSH hFgBrush, hOrgBrush; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
549 HANDLE horgobj = 0; |
24141 | 550 UINT textalign; |
551 int flag = 0; | |
552 | |
553 hCompatDC = CreateCompatibleDC(hdc); | |
554 | |
555 textalign = GetTextAlign(hdc); | |
556 | |
557 SaveDC(hdc); | |
558 | |
559 hFgBrush = CreateSolidBrush(GetTextColor(hdc)); | |
560 hOrgBrush = SelectObject(hdc, hFgBrush); | |
561 SetTextColor(hdc, RGB(0, 0, 0)); | |
562 SetBkColor(hdc, RGB(0xff, 0xff, 0xff)); | |
563 | |
564 textp = text; | |
565 while(bytelen > 0) | |
566 { | |
567 if (dim == 1) | |
568 { | |
569 index = *textp++; | |
570 bytelen--; | |
571 } | |
572 else | |
573 { | |
574 bytelen -= 2; | |
575 if (bytelen < 0) break; | |
576 index = MAKELENDSHORT(textp[1], textp[0]); | |
577 textp += 2; | |
578 } | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
579 pcb = get_bitmap_with_cache(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
580 if (!pcb) |
24141 | 581 { |
582 if (horgobj) | |
583 { | |
584 SelectObject(hCompatDC, horgobj); | |
585 DeleteObject(hBMP); | |
586 } | |
587 DeleteDC(hCompatDC); | |
588 return 0; | |
589 } | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
590 hBMP = pcb->hbmp; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
591 |
24141 | 592 if (textalign & TA_BASELINE) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
593 btop = top - (pcb->metric.bbh + pcb->metric.bboy); |
24141 | 594 else if (textalign & TA_BOTTOM) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
595 btop = top - pcb->metric.bbh; |
24141 | 596 else |
597 btop = top; | |
598 | |
599 if (horgobj) | |
600 SelectObject(hCompatDC, hBMP); | |
601 else | |
602 horgobj = SelectObject(hCompatDC, hBMP); | |
603 #if 0 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
604 BitBlt(hdc, left, btop, pcb->metric.bbw, pcb->metric.bbh, hCompatDC, 0, 0, SRCCOPY); |
24141 | 605 #else |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
606 BitBlt(hdc, left, btop, pcb->metric.bbw, pcb->metric.bbh, hCompatDC, 0, 0, 0xB8074A); |
24141 | 607 #endif |
608 if (fixed_pitch_size) | |
609 left += fixed_pitch_size; | |
610 else | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
611 left += pcb->metric.dwidth; |
24141 | 612 } |
613 SelectObject(hCompatDC, horgobj); | |
614 SelectObject(hdc, hOrgBrush); | |
615 DeleteObject(hFgBrush); | |
616 DeleteDC(hCompatDC); | |
617 RestoreDC(hdc, -1); | |
618 | |
619 return 1; | |
620 } | |
621 | |
622 struct font_info *w32_load_bdf_font (struct frame *f, char *fontname, | |
623 int size, char* filename) | |
624 { | |
625 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f); | |
626 struct font_info *fontp; | |
627 XFontStruct *font; | |
628 bdffont* bdf_font; | |
629 | |
630 bdf_font = w32_init_bdf_font (filename); | |
631 | |
632 if (!bdf_font) return NULL; | |
633 | |
634 font = (XFontStruct *) xmalloc (sizeof (XFontStruct)); | |
635 | |
636 font->bdf = bdf_font; | |
637 font->hfont = 0; | |
638 | |
29315
e0ea7a9dd20b
(w32_load_bdf_font): Initialize font->double_byte_p.
Jason Rumney <jasonr@gnu.org>
parents:
28271
diff
changeset
|
639 /* NTEMACS_TODO: Recognize DBCS fonts. */ |
e0ea7a9dd20b
(w32_load_bdf_font): Initialize font->double_byte_p.
Jason Rumney <jasonr@gnu.org>
parents:
28271
diff
changeset
|
640 font->double_byte_p = 0; |
e0ea7a9dd20b
(w32_load_bdf_font): Initialize font->double_byte_p.
Jason Rumney <jasonr@gnu.org>
parents:
28271
diff
changeset
|
641 |
24141 | 642 /* Do we need to create the table? */ |
643 if (dpyinfo->font_table_size == 0) | |
644 { | |
645 dpyinfo->font_table_size = 16; | |
646 dpyinfo->font_table | |
647 = (struct font_info *) xmalloc (dpyinfo->font_table_size | |
648 * sizeof (struct font_info)); | |
649 } | |
650 /* Do we need to grow the table? */ | |
651 else if (dpyinfo->n_fonts | |
652 >= dpyinfo->font_table_size) | |
653 { | |
654 dpyinfo->font_table_size *= 2; | |
655 dpyinfo->font_table | |
656 = (struct font_info *) xrealloc (dpyinfo->font_table, | |
657 (dpyinfo->font_table_size | |
658 * sizeof (struct font_info))); | |
659 } | |
660 | |
661 fontp = dpyinfo->font_table + dpyinfo->n_fonts; | |
662 | |
663 /* Now fill in the slots of *FONTP. */ | |
664 BLOCK_INPUT; | |
665 fontp->font = font; | |
666 fontp->font_idx = dpyinfo->n_fonts; | |
667 fontp->name = (char *) xmalloc (strlen (fontname) + 1); | |
668 bcopy (fontname, fontp->name, strlen (fontname) + 1); | |
669 fontp->full_name = fontp->name; | |
670 fontp->size = FONT_WIDTH (font); | |
671 fontp->height = FONT_HEIGHT (font); | |
672 | |
673 /* The slot `encoding' specifies how to map a character | |
674 code-points (0x20..0x7F or 0x2020..0x7F7F) of each charset to | |
675 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, 0:0x2020..0x7F7F, | |
676 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, | |
677 0:0x2020..0x7F7F, 1:0xA0A0..0xFFFF, 3:0x20A0..0x7FFF, or | |
678 2:0xA020..0xFF7F). For the moment, we don't know which charset | |
679 uses this font. So, we set informatoin in fontp->encoding[1] | |
680 which is never used by any charset. If mapping can't be | |
681 decided, set FONT_ENCODING_NOT_DECIDED. */ | |
682 fontp->encoding[1] = FONT_ENCODING_NOT_DECIDED; | |
683 fontp->baseline_offset = bdf_font->yoffset; | |
684 fontp->relative_compose = bdf_font->relative_compose; | |
685 fontp->default_ascent = bdf_font->default_ascent; | |
686 | |
687 UNBLOCK_INPUT; | |
688 dpyinfo->n_fonts++; | |
689 return fontp; | |
690 } | |
691 | |
692 /* Check a file for an XFLD string describing it. */ | |
693 int w32_BDF_to_x_font (char *file, char* xstr, int len) | |
694 { | |
695 HANDLE hfile, hfilemap; | |
696 BY_HANDLE_FILE_INFORMATION fileinfo; | |
31108 | 697 char *font, *start, *p, *q; |
24141 | 698 int flag, size, retval = 0; |
699 | |
700 hfile = CreateFile (file, GENERIC_READ, FILE_SHARE_READ, NULL, | |
701 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); | |
702 if (hfile == INVALID_HANDLE_VALUE) return 0; | |
703 if (!GetFileInformationByHandle(hfile, &fileinfo) || | |
704 (fileinfo.nFileSizeHigh != 0) || | |
705 (fileinfo.nFileSizeLow > BDF_FILE_SIZE_MAX)) | |
706 { | |
707 CloseHandle (hfile); | |
708 return 0; | |
709 } | |
710 size = fileinfo.nFileSizeLow; | |
711 | |
712 hfilemap = CreateFileMapping (hfile, NULL, PAGE_READONLY, 0, 0, NULL); | |
713 if (hfilemap == INVALID_HANDLE_VALUE) | |
714 { | |
715 CloseHandle (hfile); | |
716 return 0; | |
717 } | |
718 | |
719 font = MapViewOfFile (hfilemap, FILE_MAP_READ, 0, 0, 0); | |
720 if (!font) | |
721 { | |
722 CloseHandle (hfile); | |
723 CloseHandle (hfilemap); | |
724 return 0; | |
725 } | |
726 start = font; | |
727 | |
728 flag = proceed_file_line ("FONT ", start, &size, &p, &q); | |
729 if (flag) | |
730 { | |
731 /* If font provides a description of itself, check it is a | |
732 full XLFD before accepting it. */ | |
733 int count = 0; | |
734 char *s; | |
735 | |
736 for (s = p; s < q; s++) | |
737 if (*s == '\n') | |
738 break; | |
739 else if (*s == '-') | |
740 count++; | |
741 if (count == 14 && q - p - 1 <= len) | |
742 { | |
743 strncpy (xstr, p, q-p-1); | |
744 xstr[q-p-1] = '\0'; | |
745 /* Files may have DOS line ends (ie still ^M on end). */ | |
746 if (iscntrl(xstr[q-p-2])) | |
747 xstr[q-p-2] = '\0'; | |
748 | |
749 retval = 1; | |
750 } | |
751 } | |
752 CloseHandle (hfile); | |
753 CloseHandle (hfilemap); | |
754 return retval; | |
755 } |