Mercurial > emacs
annotate src/w32bdf.c @ 32162:a2d9d6410ef5
Revived
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 05 Oct 2000 05:49:45 +0000 |
parents | a0ba404b97a5 |
children | 6385ffa62dd5 |
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 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
39 /* 10 planes */ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
40 #define BDF_CODEPOINT_HEAP_INITIAL_SIZE (96 * 10) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
41 /* about 96 characters */ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
42 #define BDF_BITMAP_HEAP_INITIAL_SIZE (64 * 96) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
43 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
44 HANDLE hbdf_cp_heap = INVALID_HANDLE_VALUE; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
45 HANDLE hbdf_bmp_heap = INVALID_HANDLE_VALUE; |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
46 |
24141 | 47 void w32_free_bdf_font(bdffont *fontp); |
48 bdffont *w32_init_bdf_font(char *filename); | |
49 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
50 cache_bitmap cached_bitmap_slots[BDF_FONT_CACHE_SIZE]; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
51 cache_bitmap *pcached_bitmap_latest = cached_bitmap_slots; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
52 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
53 #define FONT_CACHE_SLOT_OVER_P(p) ((p) >= cached_bitmap_slots + BDF_FONT_CACHE_SIZE) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
54 |
24141 | 55 static int |
56 search_file_line(char *key, char *start, int len, char **val, char **next) | |
57 { | |
58 int linelen; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
59 unsigned char *p, *q; |
24141 | 60 |
61 p = memchr(start, '\n', len); | |
62 if (!p) return -1; | |
63 for (;start < p;start++) | |
64 { | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
65 if ((*start != ' ') && (*start != '\t')) break; |
24141 | 66 } |
67 linelen = p - start + 1; | |
68 *next = p + 1; | |
69 if (strncmp(start, key, min(strlen(key), linelen)) == 0) | |
70 { | |
71 *val = start + strlen(key); | |
72 return 1; | |
73 } | |
74 | |
75 return 0; | |
76 } | |
77 | |
78 static int | |
79 proceed_file_line(char *key, char *start, int *len, char **val, char **next) | |
80 { | |
81 int flag = 0; | |
82 | |
83 do { | |
84 flag = search_file_line(key, start, *len, val, next); | |
85 *len -= (int)(*next - start); | |
86 start = *next; | |
87 }while(flag == 0); | |
88 | |
89 if (flag == -1) return 0; | |
90 return 1; | |
91 } | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
92 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
93 char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
94 get_quoted_string(char *start, char *end) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
95 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
96 char *p, *q, *result; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
97 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
98 p = memchr(start, '\"', end - start); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
99 if (!p) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
100 p++; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
101 q = memchr(p, '\"', end - p); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
102 if (!q) return NULL; |
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 result = (char*) xmalloc(q - p + 1); |
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 memcpy(result, p, q - p); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
107 result[q - p] = '\0'; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
108 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
109 return result; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
110 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
111 |
24141 | 112 static int |
113 set_bdf_font_info(bdffont *fontp) | |
114 { | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
115 unsigned char *start, *p, *q; |
24141 | 116 int len, flag; |
117 int bbw, bbh, bbx, bby; | |
118 int val1; | |
119 | |
120 len = fontp->size; | |
121 start = fontp->font; | |
122 | |
123 fontp->yoffset = 0; | |
124 fontp->relative_compose = 0; | |
125 fontp->default_ascent = 0; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
126 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
127 fontp->registry = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
128 fontp->encoding = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
129 fontp->slant = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
130 /* fontp->width = NULL; */ |
24141 | 131 |
132 flag = proceed_file_line("FONTBOUNDINGBOX", start, &len, &p, &q); | |
133 if (!flag) return 0; | |
134 bbw = strtol(p, &start, 10); | |
135 p = start; | |
136 bbh = strtol(p, &start, 10); | |
137 p = start; | |
138 bbx = strtol(p, &start, 10); | |
139 p = start; | |
140 bby = strtol(p, &start, 10); | |
141 | |
142 fontp->llx = bbx; | |
143 fontp->lly = bby; | |
144 fontp->urx = bbw + bbx; | |
145 fontp->ury = bbh + bby; | |
146 fontp->width = bbw; | |
147 fontp->height = bbh; | |
148 start = q; | |
149 flag = proceed_file_line("STARTPROPERTIES", start, &len, &p, &q); | |
150 if (!flag) return 1; | |
151 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
152 flag = 0; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
153 |
24141 | 154 do { |
155 start = q; | |
156 if (search_file_line("PIXEL_SIZE", start, len, &p, &q) == 1) | |
157 { | |
158 val1 = atoi(p); | |
159 fontp->pixsz = val1; | |
160 } | |
161 else if (search_file_line("FONT_ASCENT", start, len, &p, &q) == 1) | |
162 { | |
163 val1 = atoi(p); | |
164 fontp->ury = val1; | |
165 } | |
166 else if (search_file_line("FONT_DESCENT", start, len, &p, &q) == 1) | |
167 { | |
168 val1 = atoi(p); | |
169 fontp->lly = -val1; | |
170 } | |
171 else if (search_file_line("_MULE_BASELINE_OFFSET", start, len, &p, &q) == 1) | |
172 { | |
173 val1 = atoi(p); | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
174 fontp->yoffset = -val1; |
24141 | 175 } |
176 else if (search_file_line("_MULE_RELATIVE_COMPOSE", start, len, &p, &q) == 1) | |
177 { | |
178 val1 = atoi(p); | |
179 fontp->relative_compose = val1; | |
180 } | |
181 else if (search_file_line("_MULE_DEFAULT_ASCENT", start, len, &p, &q) == 1) | |
182 { | |
183 val1 = atoi(p); | |
184 fontp->default_ascent = val1; | |
185 } | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
186 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
|
187 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
188 fontp->registry = get_quoted_string(p, q); |
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 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
|
191 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
192 fontp->encoding = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
193 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
194 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
|
195 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
196 fontp->slant = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
197 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
198 /* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
199 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
|
200 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
201 fontp->width = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
202 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
203 */ |
24141 | 204 else |
205 { | |
206 flag = search_file_line("ENDPROPERTIES", start, len, &p, &q); | |
207 } | |
208 if (flag == -1) return 0; | |
209 len -= (q - start); | |
210 }while(flag == 0); | |
211 start = q; | |
212 flag = proceed_file_line("CHARS", start, &len, &p, &q); | |
213 if (!flag) return 0; | |
214 fontp->seeked = q; | |
215 | |
216 return 1; | |
217 } | |
218 | |
219 bdffont* | |
220 w32_init_bdf_font(char *filename) | |
221 { | |
222 HANDLE hfile, hfilemap; | |
223 bdffont *bdffontp; | |
224 unsigned char *font; | |
225 BY_HANDLE_FILE_INFORMATION fileinfo; | |
226 int i; | |
227 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
228 if (hbdf_cp_heap == INVALID_HANDLE_VALUE) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
229 hbdf_cp_heap = HeapCreate(0, BDF_CODEPOINT_HEAP_INITIAL_SIZE, 0); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
230 if (hbdf_bmp_heap = INVALID_HANDLE_VALUE) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
231 hbdf_bmp_heap = HeapCreate(0, BDF_BITMAP_HEAP_INITIAL_SIZE, 0); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
232 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
233 if (!hbdf_cp_heap || !hbdf_bmp_heap) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
234 error("Fail to create heap for BDF."); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
235 |
24141 | 236 hfile = CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL, |
237 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); | |
238 if (hfile == INVALID_HANDLE_VALUE) return NULL; | |
239 if (!GetFileInformationByHandle(hfile, &fileinfo) || | |
240 (fileinfo.nFileSizeHigh != 0) || | |
241 (fileinfo.nFileSizeLow > BDF_FILE_SIZE_MAX)) | |
242 { | |
243 CloseHandle(hfile); | |
244 error("Fail to open BDF file."); | |
245 } | |
246 hfilemap = CreateFileMapping(hfile, NULL, PAGE_READONLY, 0, 0, NULL); | |
247 if (hfilemap == INVALID_HANDLE_VALUE) | |
248 { | |
249 CloseHandle(hfile); | |
250 error("Can't map font."); | |
251 } | |
252 | |
253 font = MapViewOfFile(hfilemap, FILE_MAP_READ, 0, 0, 0); | |
254 | |
255 if (!font) | |
256 { | |
257 CloseHandle(hfile); | |
258 CloseHandle(hfilemap); | |
259 error("Can't view font."); | |
260 } | |
261 | |
262 bdffontp = (bdffont *) xmalloc(sizeof(bdffont)); | |
263 | |
264 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
|
265 bdffontp->chtbl[i] = NULL; |
24141 | 266 bdffontp->size = fileinfo.nFileSizeLow; |
267 bdffontp->font = font; | |
268 bdffontp->hfile = hfile; | |
269 bdffontp->hfilemap = hfilemap; | |
270 bdffontp->filename = (char*) xmalloc(strlen(filename) + 1); | |
271 strcpy(bdffontp->filename, filename); | |
272 | |
273 if (!set_bdf_font_info(bdffontp)) | |
274 { | |
275 w32_free_bdf_font(bdffontp); | |
276 error("Invalid BDF font!"); | |
277 } | |
278 return bdffontp; | |
279 } | |
280 | |
281 void | |
282 w32_free_bdf_font(bdffont *fontp) | |
283 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
284 int i, j; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
285 font_char *pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
286 cache_bitmap *pcb; |
24141 | 287 |
288 UnmapViewOfFile(fontp->hfilemap); | |
289 CloseHandle(fontp->hfilemap); | |
290 CloseHandle(fontp->hfile); | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
291 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
292 if (fontp->registry) xfree(fontp->registry); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
293 if (fontp->encoding) xfree(fontp->encoding); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
294 if (fontp->slant) xfree(fontp->slant); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
295 /* if (fontp->width) xfree(fontp->width); */ |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
296 |
24141 | 297 xfree(fontp->filename); |
298 for(i = 0;i < BDF_FIRST_OFFSET_TABLE;i++) | |
299 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
300 pch = fontp->chtbl[i]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
301 if (pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
302 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
303 for (j = 0;j < BDF_SECOND_OFFSET_TABLE;j++) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
304 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
305 pcb = pch[j].pcbmp; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
306 if (pcb) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
307 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
308 if (pcb->pbmp) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
309 HeapFree(hbdf_bmp_heap, 0, pcb->pbmp); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
310 pcb->psrc = NULL; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
311 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
312 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
313 HeapFree(hbdf_cp_heap, 0, pch); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
314 } |
24141 | 315 } |
316 xfree(fontp); | |
317 } | |
318 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
319 static font_char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
320 get_cached_font_char(bdffont *fontp, int index) |
24141 | 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 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
325 if (!BDF_CODEPOINT_RANGE_COVER_P(index)) |
24141 | 326 return NULL; |
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 return NULL; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
331 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
332 result = &pch[BDF_SECOND_OFFSET(index)]; |
24141 | 333 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
334 if (!result->offset) return NULL; |
24141 | 335 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
336 return result; |
24141 | 337 } |
338 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
339 static font_char* |
24141 | 340 cache_char_offset(bdffont *fontp, int index, unsigned char *offset) |
341 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
342 font_char *pch, *result; |
24141 | 343 int i; |
344 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
345 if (!BDF_CODEPOINT_RANGE_COVER_P(index)) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
346 return NULL; |
24141 | 347 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
348 pch = fontp->chtbl[BDF_FIRST_OFFSET(index)]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
349 if (!pch) |
24141 | 350 { |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
351 pch = fontp->chtbl[BDF_FIRST_OFFSET(index)] = |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
352 (font_char*) HeapAlloc(hbdf_cp_heap, |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
353 HEAP_ZERO_MEMORY, |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
354 sizeof(font_char) * |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
355 BDF_SECOND_OFFSET_TABLE); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
356 if (!pch) return NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
357 /* memset(pch, 0, sizeof(font_char) * BDF_SECOND_OFFSET_TABLE); */ |
24141 | 358 } |
359 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
360 result = &pch[BDF_SECOND_OFFSET(index)]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
361 result->offset = offset; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
362 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
363 return result; |
24141 | 364 } |
365 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
366 static font_char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
367 seek_char(bdffont *fontp, int index) |
24141 | 368 { |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
369 font_char *result; |
24141 | 370 int len, flag, font_index; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
371 unsigned char *start, *p, *q; |
24141 | 372 |
373 if (!fontp->seeked) return NULL; | |
374 | |
375 start = fontp->seeked; | |
376 len = fontp->size - (start - fontp->font); | |
377 | |
378 do { | |
379 flag = proceed_file_line("ENCODING", start, &len, &p, &q); | |
380 if (!flag) | |
381 { | |
382 fontp->seeked = NULL; | |
383 return NULL; | |
384 } | |
385 font_index = atoi(p); | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
386 result = cache_char_offset(fontp, font_index, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
387 if (!result) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
388 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
389 start = result->offset; |
24141 | 390 } while (font_index != index); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
391 fontp->seeked = start; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
392 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
393 return result; |
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 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
396 static void |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
397 clear_cached_bitmap_slots() |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
398 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
399 int i; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
400 cache_bitmap *p; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
401 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
402 p = pcached_bitmap_latest; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
403 for (i = 0;i < BDF_FONT_CLEAR_SIZE;i++) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
404 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
405 if (p->psrc) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
406 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
407 if (p->pbmp) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
408 HeapFree(hbdf_bmp_heap, 0, p->pbmp); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
409 p->psrc->pcbmp = NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
410 p->psrc = NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
411 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
412 p++; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
413 if (FONT_CACHE_SLOT_OVER_P(p)) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
414 p = cached_bitmap_slots; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
415 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
416 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
417 |
24141 | 418 #define GET_HEX_VAL(x) ((isdigit(x)) ? ((x) - '0') : \ |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
419 (((x) >= 'A') && ((x) <= 'F')) ? ((x) - 'A' + 10) : \ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
420 (((x) >= 'a') && ((x) <= 'f')) ? ((x) - 'a' + 10) : \ |
24141 | 421 (-1)) |
422 | |
423 int | |
424 w32_get_bdf_glyph(bdffont *fontp, int index, int size, glyph_struct *glyph) | |
425 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
426 font_char *pch; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
427 unsigned char *start, *p, *q, *bitmapp; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
428 unsigned char val, val1, val2; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
429 int i, j, len, flag, consumed; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
430 int align, rowbytes; |
24141 | 431 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
432 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
433 if (!pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
434 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
435 pch = seek_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
436 if (!pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
437 return 0; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
438 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
439 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
440 start = pch->offset; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
441 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
442 if ((size == 0) && pch->pcbmp) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
443 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
444 glyph->metric = pch->pcbmp->metric; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
445 return 1; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
446 } |
24141 | 447 |
448 len = fontp->size - (start - fontp->font); | |
449 | |
450 flag = proceed_file_line("DWIDTH", start, &len, &p, &q); | |
451 if (!flag) | |
452 return 0; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
453 glyph->metric.dwidth = atoi(p); |
24141 | 454 |
455 start = q; | |
456 flag = proceed_file_line("BBX", start, &len, &p, &q); | |
457 if (!flag) | |
458 return 0; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
459 glyph->metric.bbw = strtol(p, &start, 10); |
24141 | 460 p = start; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
461 glyph->metric.bbh = strtol(p, &start, 10); |
24141 | 462 p = start; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
463 glyph->metric.bbox = strtol(p, &start, 10); |
24141 | 464 p = start; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
465 glyph->metric.bboy = strtol(p, &start, 10); |
24141 | 466 |
467 if (size == 0) return 1; | |
468 | |
469 start = q; | |
470 flag = proceed_file_line("BITMAP", start, &len, &p, &q); | |
471 if (!flag) | |
472 return 0; | |
473 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
474 consumed = 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
475 flag = 0; |
24141 | 476 p = q; |
477 bitmapp = glyph->bitmap; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
478 rowbytes = (glyph->metric.bbw + 7) / 8; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
479 /* DIB requires DWORD alignment. */ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
480 align = sizeof(DWORD) - rowbytes % sizeof(DWORD); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
481 consumed = glyph->metric.bbh * (rowbytes + align); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
482 glyph->bitmap_size = consumed; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
483 glyph->row_byte_size = rowbytes; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
484 if (size < consumed) return 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
485 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
486 for(i = 0;i < glyph->metric.bbh;i++) |
24141 | 487 { |
488 q = memchr(p, '\n', len); | |
489 if (!q) return 0; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
490 for(j = 0;((q > p) && (j < rowbytes));j++) |
24141 | 491 { |
492 val1 = GET_HEX_VAL(*p); | |
493 if (val1 == -1) return 0; | |
494 p++; | |
495 val2 = GET_HEX_VAL(*p); | |
496 if (val2 == -1) return 0; | |
497 p++; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
498 val = (unsigned char)((val1 << 4) | val2); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
499 if (val) flag = 1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
500 *bitmapp++ = val; |
24141 | 501 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
502 for(j = 0;j < align;j++) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
503 *bitmapp++ = 0x00; |
24141 | 504 p = q + 1; |
505 } | |
506 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
507 /* If this glyph is white space, return -1. */ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
508 if (flag == 0) return -1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
509 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
510 return consumed; |
24141 | 511 } |
512 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
513 static |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
514 cache_bitmap* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
515 get_bitmap_with_cache(bdffont *fontp, int index) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
516 { |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
517 int bitmap_size, bitmap_real_size; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
518 font_char *pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
519 cache_bitmap* pcb; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
520 unsigned char *pbmp; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
521 glyph_struct glyph; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
522 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
523 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
524 if (pch) |
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 = pch->pcbmp; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
527 if (pcb) return pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
528 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
529 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
530 bitmap_size = ((fontp->urx - fontp->llx) / 8 + 3) * (fontp->ury - fontp->lly) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
531 + 256; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
532 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
|
533 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
534 bitmap_real_size = w32_get_bdf_glyph(fontp, index, bitmap_size, &glyph); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
535 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
536 if (bitmap_real_size == 0) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
537 return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
538 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
539 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
540 if (!pch) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
541 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
542 if (bitmap_real_size > 0) |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
543 { |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
544 pbmp = (unsigned char*) HeapAlloc(hbdf_bmp_heap, 0, |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
545 bitmap_real_size); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
546 if (!pbmp) return NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
547 memcpy(pbmp, glyph.bitmap, bitmap_real_size); |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
548 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
549 else |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
550 pbmp = NULL; /* white space character */ |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
551 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
552 pcb = pcached_bitmap_latest; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
553 if (pcb->psrc) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
554 clear_cached_bitmap_slots(); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
555 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
556 pcb->psrc = pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
557 pcb->metric = glyph.metric; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
558 pcb->pbmp = pbmp; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
559 pcb->bitmap_size = glyph.bitmap_size; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
560 pcb->row_byte_size = glyph.row_byte_size; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
561 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
562 pch->pcbmp = pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
563 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
564 pcached_bitmap_latest++; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
565 if (FONT_CACHE_SLOT_OVER_P(pcached_bitmap_latest)) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
566 pcached_bitmap_latest = cached_bitmap_slots; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
567 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
568 return pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
569 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
570 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
571 static HBITMAP |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
572 create_offscreen_bitmap(HDC hdc, int width, int height, unsigned char **bitsp) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
573 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
574 HBITMAP hBMP; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
575 struct { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
576 BITMAPINFOHEADER h; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
577 RGBQUAD c[2]; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
578 } info; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
579 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
580 memset(&info, 0, sizeof(info)); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
581 info.h.biSize = sizeof(BITMAPINFOHEADER); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
582 info.h.biWidth = width; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
583 info.h.biHeight = -height; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
584 info.h.biPlanes = 1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
585 info.h.biBitCount = 1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
586 info.h.biCompression = BI_RGB; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
587 info.c[1].rgbRed = info.c[1].rgbGreen = info.c[1].rgbBlue = 255; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
588 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
589 return CreateDIBSection(hdc, (LPBITMAPINFO)&info, |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
590 DIB_RGB_COLORS, bitsp, NULL, 0); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
591 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
592 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
593 glyph_metric * |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
594 w32_BDF_TextMetric(bdffont *fontp, unsigned char *text, int dim) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
595 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
596 int index; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
597 cache_bitmap *pcb; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
598 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
599 if (dim == 1) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
600 index = *text; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
601 else |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
602 index = MAKELENDSHORT(text[1], text[0]); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
603 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
604 pcb = get_bitmap_with_cache(fontp, index); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
605 if (!pcb) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
606 return NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
607 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
608 return &(pcb->metric); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
609 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
610 |
24141 | 611 int |
612 w32_BDF_TextOut(bdffont *fontp, HDC hdc, int left, | |
613 int top, unsigned char *text, int dim, int bytelen, | |
614 int fixed_pitch_size) | |
615 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
616 int index, btop; |
24141 | 617 unsigned char *textp; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
618 cache_bitmap *pcb; |
24141 | 619 HBRUSH hFgBrush, hOrgBrush; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
620 HANDLE horgobj; |
24141 | 621 UINT textalign; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
622 int width, height; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
623 HDC hCompatDC; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
624 int ret = 1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
625 static HBITMAP hBMP = 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
626 static HDC DIBsection_hdc = 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
627 static int DIBsection_width, DIBsection_height; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
628 static unsigned char *bits; |
24141 | 629 |
630 hCompatDC = CreateCompatibleDC(hdc); | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
631 if (!hCompatDC) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
632 return 0; |
24141 | 633 |
634 textalign = GetTextAlign(hdc); | |
635 | |
636 hFgBrush = CreateSolidBrush(GetTextColor(hdc)); | |
637 hOrgBrush = SelectObject(hdc, hFgBrush); | |
638 | |
639 textp = text; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
640 |
24141 | 641 while(bytelen > 0) |
642 { | |
643 if (dim == 1) | |
644 { | |
645 index = *textp++; | |
646 bytelen--; | |
647 } | |
648 else | |
649 { | |
650 bytelen -= 2; | |
651 if (bytelen < 0) break; | |
652 index = MAKELENDSHORT(textp[1], textp[0]); | |
653 textp += 2; | |
654 } | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
655 pcb = get_bitmap_with_cache(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
656 if (!pcb) |
24141 | 657 { |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
658 ret = 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
659 break; |
24141 | 660 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
661 if (pcb->pbmp) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
662 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
663 width = pcb->metric.bbw; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
664 height = pcb->metric.bbh; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
665 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
666 if (!(hBMP |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
667 && (DIBsection_hdc == hdc) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
668 && (DIBsection_width == width) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
669 && (DIBsection_height == height))) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
670 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
671 if (hBMP) DeleteObject(hBMP); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
672 hBMP = create_offscreen_bitmap(hdc, width, height, &bits); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
673 DIBsection_hdc = hdc; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
674 DIBsection_width = width; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
675 DIBsection_height = height; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
676 if (!hBMP) return 0; |
24141 | 677 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
678 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
679 memcpy(bits, pcb->pbmp, pcb->bitmap_size); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
680 |
24141 | 681 if (textalign & TA_BASELINE) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
682 btop = top - (pcb->metric.bbh + pcb->metric.bboy); |
24141 | 683 else if (textalign & TA_BOTTOM) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
684 btop = top - pcb->metric.bbh; |
24141 | 685 else |
686 btop = top; | |
687 | |
688 horgobj = SelectObject(hCompatDC, hBMP); | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
689 BitBlt(hdc, left, btop, width, height, hCompatDC, 0, 0, 0xE20746); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
690 SelectObject(hCompatDC, horgobj); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
691 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
692 |
24141 | 693 if (fixed_pitch_size) |
694 left += fixed_pitch_size; | |
695 else | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
696 left += pcb->metric.dwidth; |
24141 | 697 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
698 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
699 DeleteDC(hCompatDC); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
700 |
24141 | 701 SelectObject(hdc, hOrgBrush); |
702 DeleteObject(hFgBrush); | |
703 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
704 return ret; |
24141 | 705 } |
706 | |
707 struct font_info *w32_load_bdf_font (struct frame *f, char *fontname, | |
708 int size, char* filename) | |
709 { | |
710 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f); | |
711 struct font_info *fontp; | |
712 XFontStruct *font; | |
713 bdffont* bdf_font; | |
714 | |
715 bdf_font = w32_init_bdf_font (filename); | |
716 | |
717 if (!bdf_font) return NULL; | |
718 | |
719 font = (XFontStruct *) xmalloc (sizeof (XFontStruct)); | |
720 | |
721 font->bdf = bdf_font; | |
722 font->hfont = 0; | |
723 | |
29315
e0ea7a9dd20b
(w32_load_bdf_font): Initialize font->double_byte_p.
Jason Rumney <jasonr@gnu.org>
parents:
28271
diff
changeset
|
724 /* NTEMACS_TODO: Recognize DBCS fonts. */ |
e0ea7a9dd20b
(w32_load_bdf_font): Initialize font->double_byte_p.
Jason Rumney <jasonr@gnu.org>
parents:
28271
diff
changeset
|
725 font->double_byte_p = 0; |
e0ea7a9dd20b
(w32_load_bdf_font): Initialize font->double_byte_p.
Jason Rumney <jasonr@gnu.org>
parents:
28271
diff
changeset
|
726 |
24141 | 727 /* Do we need to create the table? */ |
728 if (dpyinfo->font_table_size == 0) | |
729 { | |
730 dpyinfo->font_table_size = 16; | |
731 dpyinfo->font_table | |
732 = (struct font_info *) xmalloc (dpyinfo->font_table_size | |
733 * sizeof (struct font_info)); | |
734 } | |
735 /* Do we need to grow the table? */ | |
736 else if (dpyinfo->n_fonts | |
737 >= dpyinfo->font_table_size) | |
738 { | |
739 dpyinfo->font_table_size *= 2; | |
740 dpyinfo->font_table | |
741 = (struct font_info *) xrealloc (dpyinfo->font_table, | |
742 (dpyinfo->font_table_size | |
743 * sizeof (struct font_info))); | |
744 } | |
745 | |
746 fontp = dpyinfo->font_table + dpyinfo->n_fonts; | |
747 | |
748 /* Now fill in the slots of *FONTP. */ | |
749 BLOCK_INPUT; | |
750 fontp->font = font; | |
751 fontp->font_idx = dpyinfo->n_fonts; | |
752 fontp->name = (char *) xmalloc (strlen (fontname) + 1); | |
753 bcopy (fontname, fontp->name, strlen (fontname) + 1); | |
754 fontp->full_name = fontp->name; | |
755 fontp->size = FONT_WIDTH (font); | |
756 fontp->height = FONT_HEIGHT (font); | |
757 | |
758 /* The slot `encoding' specifies how to map a character | |
759 code-points (0x20..0x7F or 0x2020..0x7F7F) of each charset to | |
760 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, 0:0x2020..0x7F7F, | |
761 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, | |
762 0:0x2020..0x7F7F, 1:0xA0A0..0xFFFF, 3:0x20A0..0x7FFF, or | |
763 2:0xA020..0xFF7F). For the moment, we don't know which charset | |
764 uses this font. So, we set informatoin in fontp->encoding[1] | |
765 which is never used by any charset. If mapping can't be | |
766 decided, set FONT_ENCODING_NOT_DECIDED. */ | |
767 fontp->encoding[1] = FONT_ENCODING_NOT_DECIDED; | |
768 fontp->baseline_offset = bdf_font->yoffset; | |
769 fontp->relative_compose = bdf_font->relative_compose; | |
770 fontp->default_ascent = bdf_font->default_ascent; | |
771 | |
772 UNBLOCK_INPUT; | |
773 dpyinfo->n_fonts++; | |
774 return fontp; | |
775 } | |
776 | |
777 /* Check a file for an XFLD string describing it. */ | |
778 int w32_BDF_to_x_font (char *file, char* xstr, int len) | |
779 { | |
780 HANDLE hfile, hfilemap; | |
781 BY_HANDLE_FILE_INFORMATION fileinfo; | |
31108 | 782 char *font, *start, *p, *q; |
24141 | 783 int flag, size, retval = 0; |
784 | |
785 hfile = CreateFile (file, GENERIC_READ, FILE_SHARE_READ, NULL, | |
786 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); | |
787 if (hfile == INVALID_HANDLE_VALUE) return 0; | |
788 if (!GetFileInformationByHandle(hfile, &fileinfo) || | |
789 (fileinfo.nFileSizeHigh != 0) || | |
790 (fileinfo.nFileSizeLow > BDF_FILE_SIZE_MAX)) | |
791 { | |
792 CloseHandle (hfile); | |
793 return 0; | |
794 } | |
795 size = fileinfo.nFileSizeLow; | |
796 | |
797 hfilemap = CreateFileMapping (hfile, NULL, PAGE_READONLY, 0, 0, NULL); | |
798 if (hfilemap == INVALID_HANDLE_VALUE) | |
799 { | |
800 CloseHandle (hfile); | |
801 return 0; | |
802 } | |
803 | |
804 font = MapViewOfFile (hfilemap, FILE_MAP_READ, 0, 0, 0); | |
805 if (!font) | |
806 { | |
807 CloseHandle (hfile); | |
808 CloseHandle (hfilemap); | |
809 return 0; | |
810 } | |
811 start = font; | |
812 | |
813 flag = proceed_file_line ("FONT ", start, &size, &p, &q); | |
814 if (flag) | |
815 { | |
816 /* If font provides a description of itself, check it is a | |
817 full XLFD before accepting it. */ | |
818 int count = 0; | |
819 char *s; | |
820 | |
821 for (s = p; s < q; s++) | |
822 if (*s == '\n') | |
823 break; | |
824 else if (*s == '-') | |
825 count++; | |
826 if (count == 14 && q - p - 1 <= len) | |
827 { | |
828 strncpy (xstr, p, q-p-1); | |
829 xstr[q-p-1] = '\0'; | |
830 /* Files may have DOS line ends (ie still ^M on end). */ | |
831 if (iscntrl(xstr[q-p-2])) | |
832 xstr[q-p-2] = '\0'; | |
833 | |
834 retval = 1; | |
835 } | |
836 } | |
837 CloseHandle (hfile); | |
838 CloseHandle (hfilemap); | |
839 return retval; | |
840 } |