Mercurial > emacs
annotate src/w32bdf.c @ 81455:c08813c7fc1c
*** empty log message ***
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sun, 17 Jun 2007 01:48:59 +0000 |
parents | e90d04cd455a |
children | 07295203c00a 95d0cdf160ea |
rev | line source |
---|---|
24141 | 1 /* Implementation of BDF font handling on the Microsoft W32 API. |
75227
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
68651
diff
changeset
|
2 Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, |
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
68651
diff
changeset
|
3 2006, 2007 Free Software Foundation, Inc. |
24141 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
9 the Free Software Foundation; either version 2, or (at your option) | |
10 any later version. | |
11 | |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
64084 | 19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
20 Boston, MA 02110-1301, USA. */ | |
24141 | 21 |
22 /* Based heavily on code by H. Miyashita for Meadow (a descendant of | |
23 MULE for W32). */ | |
24 | |
25 #include <windows.h> | |
42469 | 26 |
27 #ifdef HAVE_CONFIG_H | |
28 #include <config.h> | |
29 #endif | |
30 | |
24141 | 31 #include "lisp.h" |
32 #include "charset.h" | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
33 #include "keyboard.h" |
28271
f6a8927824c9
Include frame.h and dispextern.h before fontset.h.
Jason Rumney <jasonr@gnu.org>
parents:
24841
diff
changeset
|
34 #include "frame.h" |
f6a8927824c9
Include frame.h and dispextern.h before fontset.h.
Jason Rumney <jasonr@gnu.org>
parents:
24841
diff
changeset
|
35 #include "dispextern.h" |
24141 | 36 #include "fontset.h" |
37 #include "blockinput.h" | |
38 #include "w32gui.h" | |
39 #include "w32term.h" | |
40 #include "w32bdf.h" | |
41 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
42 /* 10 planes */ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
43 #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
|
44 /* about 96 characters */ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
45 #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
|
46 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
47 HANDLE hbdf_cp_heap = INVALID_HANDLE_VALUE; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
48 HANDLE hbdf_bmp_heap = INVALID_HANDLE_VALUE; |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
49 |
24141 | 50 void w32_free_bdf_font(bdffont *fontp); |
51 bdffont *w32_init_bdf_font(char *filename); | |
52 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
53 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
|
54 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
|
55 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
56 #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
|
57 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43398
diff
changeset
|
58 static int |
24141 | 59 search_file_line(char *key, char *start, int len, char **val, char **next) |
60 { | |
35285
dd533a188c51
(search_file_line, get_cached_font_char)
Jason Rumney <jasonr@gnu.org>
parents:
34777
diff
changeset
|
61 unsigned int linelen; |
dd533a188c51
(search_file_line, get_cached_font_char)
Jason Rumney <jasonr@gnu.org>
parents:
34777
diff
changeset
|
62 unsigned char *p; |
24141 | 63 |
64 p = memchr(start, '\n', len); | |
65 if (!p) return -1; | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
66 for (;(unsigned char *)start < p;start++) |
24141 | 67 { |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
68 if ((*start != ' ') && (*start != '\t')) break; |
24141 | 69 } |
32722
6385ffa62dd5
(w32_load_bdf_font): Call w32_cache_char_metrics.
Andrew Innes <andrewi@gnu.org>
parents:
32024
diff
changeset
|
70 linelen = (char *) p - start + 1; |
24141 | 71 *next = p + 1; |
72 if (strncmp(start, key, min(strlen(key), linelen)) == 0) | |
73 { | |
74 *val = start + strlen(key); | |
75 return 1; | |
76 } | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43398
diff
changeset
|
77 |
24141 | 78 return 0; |
79 } | |
80 | |
81 static int | |
82 proceed_file_line(char *key, char *start, int *len, char **val, char **next) | |
83 { | |
84 int flag = 0; | |
85 | |
86 do { | |
87 flag = search_file_line(key, start, *len, val, next); | |
88 *len -= (int)(*next - start); | |
89 start = *next; | |
90 }while(flag == 0); | |
91 | |
92 if (flag == -1) return 0; | |
93 return 1; | |
94 } | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
95 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
96 char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
97 get_quoted_string(char *start, char *end) |
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 char *p, *q, *result; |
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 p = memchr(start, '\"', end - start); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
102 if (!p) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
103 p++; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
104 q = memchr(p, '\"', end - p); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
105 if (!q) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
106 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
107 result = (char*) xmalloc(q - p + 1); |
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 memcpy(result, p, q - p); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
110 result[q - p] = '\0'; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
111 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
112 return result; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
113 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
114 |
24141 | 115 static int |
116 set_bdf_font_info(bdffont *fontp) | |
117 { | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
118 unsigned char *start, *p, *q; |
24141 | 119 int len, flag; |
120 int bbw, bbh, bbx, bby; | |
121 int val1; | |
122 | |
123 len = fontp->size; | |
124 start = fontp->font; | |
125 | |
126 fontp->yoffset = 0; | |
127 fontp->relative_compose = 0; | |
128 fontp->default_ascent = 0; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
129 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
130 fontp->registry = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
131 fontp->encoding = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
132 fontp->slant = NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
133 /* fontp->width = NULL; */ |
24141 | 134 |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
135 flag = proceed_file_line("FONTBOUNDINGBOX", start, &len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
136 (char **)&p, (char **)&q); |
24141 | 137 if (!flag) return 0; |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
138 bbw = strtol(p, (char **)&start, 10); |
24141 | 139 p = start; |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
140 bbh = strtol(p, (char **)&start, 10); |
24141 | 141 p = start; |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
142 bbx = strtol(p, (char **)&start, 10); |
24141 | 143 p = start; |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
144 bby = strtol(p, (char **)&start, 10); |
24141 | 145 |
146 fontp->llx = bbx; | |
147 fontp->lly = bby; | |
148 fontp->urx = bbw + bbx; | |
149 fontp->ury = bbh + bby; | |
150 fontp->width = bbw; | |
151 fontp->height = bbh; | |
152 start = q; | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
153 flag = proceed_file_line("STARTPROPERTIES", start, &len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
154 (char **)&p, (char **)&q); |
24141 | 155 if (!flag) return 1; |
156 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
157 flag = 0; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
158 |
24141 | 159 do { |
160 start = q; | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
161 if (search_file_line("PIXEL_SIZE", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
162 (char **)&p, (char **)&q) == 1) |
24141 | 163 { |
164 val1 = atoi(p); | |
165 fontp->pixsz = val1; | |
166 } | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
167 else if (search_file_line("FONT_ASCENT", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
168 (char **)&p, (char **)&q) == 1) |
24141 | 169 { |
170 val1 = atoi(p); | |
171 fontp->ury = val1; | |
172 } | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
173 else if (search_file_line("FONT_DESCENT", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
174 (char **)&p, (char **)&q) == 1) |
24141 | 175 { |
176 val1 = atoi(p); | |
177 fontp->lly = -val1; | |
178 } | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
179 else if (search_file_line("_MULE_BASELINE_OFFSET", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
180 (char **)&p, (char **)&q) == 1) |
24141 | 181 { |
182 val1 = atoi(p); | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
183 fontp->yoffset = -val1; |
24141 | 184 } |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
185 else if (search_file_line("_MULE_RELATIVE_COMPOSE", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
186 (char **)&p, (char **)&q) == 1) |
24141 | 187 { |
188 val1 = atoi(p); | |
189 fontp->relative_compose = val1; | |
190 } | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
191 else if (search_file_line("_MULE_DEFAULT_ASCENT", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
192 (char **)&p, (char **)&q) == 1) |
24141 | 193 { |
194 val1 = atoi(p); | |
195 fontp->default_ascent = val1; | |
196 } | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
197 else if (search_file_line("CHARSET_REGISTRY", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
198 (char **)&p, (char **)&q) == 1) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
199 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
200 fontp->registry = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
201 } |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
202 else if (search_file_line("CHARSET_ENCODING", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
203 (char **)&p, (char **)&q) == 1) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
204 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
205 fontp->encoding = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
206 } |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
207 else if (search_file_line("SLANT", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
208 (char **)&p, (char **)&q) == 1) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
209 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
210 fontp->slant = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
211 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
212 /* |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
213 else if (search_file_line("SETWIDTH_NAME", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
214 (char **)&p, (char **)&q) == 1) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
215 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
216 fontp->width = get_quoted_string(p, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
217 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
218 */ |
24141 | 219 else |
220 { | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
221 flag = search_file_line("ENDPROPERTIES", start, len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
222 (char **)&p, (char **)&q); |
24141 | 223 } |
224 if (flag == -1) return 0; | |
225 len -= (q - start); | |
226 }while(flag == 0); | |
227 start = q; | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
228 flag = proceed_file_line("CHARS", start, &len, (char **)&p, (char **)&q); |
24141 | 229 if (!flag) return 0; |
33038
5a1e3282fe2e
(set_bdf_font_info): Set it.
Jason Rumney <jasonr@gnu.org>
parents:
32722
diff
changeset
|
230 fontp->nchars = atoi(p); |
24141 | 231 fontp->seeked = q; |
232 | |
233 return 1; | |
234 } | |
235 | |
236 bdffont* | |
237 w32_init_bdf_font(char *filename) | |
238 { | |
239 HANDLE hfile, hfilemap; | |
240 bdffont *bdffontp; | |
241 unsigned char *font; | |
242 BY_HANDLE_FILE_INFORMATION fileinfo; | |
243 int i; | |
244 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
245 if (hbdf_cp_heap == INVALID_HANDLE_VALUE) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
246 hbdf_cp_heap = HeapCreate(0, BDF_CODEPOINT_HEAP_INITIAL_SIZE, 0); |
34777
3b4361fc6ae3
(w32_init_bdf_font): Fix test for valid bmp heap.
Jason Rumney <jasonr@gnu.org>
parents:
33038
diff
changeset
|
247 if (hbdf_bmp_heap == INVALID_HANDLE_VALUE) |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
248 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
|
249 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
250 if (!hbdf_cp_heap || !hbdf_bmp_heap) |
53072
8787289602d1
Remove period at end of error message.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52737
diff
changeset
|
251 error("Fail to create heap for BDF"); |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
252 |
24141 | 253 hfile = CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL, |
254 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); | |
255 if (hfile == INVALID_HANDLE_VALUE) return NULL; | |
256 if (!GetFileInformationByHandle(hfile, &fileinfo) || | |
257 (fileinfo.nFileSizeHigh != 0) || | |
258 (fileinfo.nFileSizeLow > BDF_FILE_SIZE_MAX)) | |
259 { | |
260 CloseHandle(hfile); | |
53072
8787289602d1
Remove period at end of error message.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52737
diff
changeset
|
261 error("Fail to open BDF file"); |
24141 | 262 } |
263 hfilemap = CreateFileMapping(hfile, NULL, PAGE_READONLY, 0, 0, NULL); | |
264 if (hfilemap == INVALID_HANDLE_VALUE) | |
265 { | |
266 CloseHandle(hfile); | |
53072
8787289602d1
Remove period at end of error message.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52737
diff
changeset
|
267 error("Can't map font"); |
24141 | 268 } |
269 | |
270 font = MapViewOfFile(hfilemap, FILE_MAP_READ, 0, 0, 0); | |
271 | |
272 if (!font) | |
273 { | |
274 CloseHandle(hfile); | |
275 CloseHandle(hfilemap); | |
53072
8787289602d1
Remove period at end of error message.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52737
diff
changeset
|
276 error("Can't view font"); |
24141 | 277 } |
278 | |
279 bdffontp = (bdffont *) xmalloc(sizeof(bdffont)); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43398
diff
changeset
|
280 |
24141 | 281 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
|
282 bdffontp->chtbl[i] = NULL; |
24141 | 283 bdffontp->size = fileinfo.nFileSizeLow; |
284 bdffontp->font = font; | |
285 bdffontp->hfile = hfile; | |
286 bdffontp->hfilemap = hfilemap; | |
287 bdffontp->filename = (char*) xmalloc(strlen(filename) + 1); | |
288 strcpy(bdffontp->filename, filename); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43398
diff
changeset
|
289 |
24141 | 290 if (!set_bdf_font_info(bdffontp)) |
291 { | |
292 w32_free_bdf_font(bdffontp); | |
293 error("Invalid BDF font!"); | |
294 } | |
295 return bdffontp; | |
296 } | |
297 | |
298 void | |
299 w32_free_bdf_font(bdffont *fontp) | |
300 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
301 int i, j; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
302 font_char *pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
303 cache_bitmap *pcb; |
24141 | 304 |
305 UnmapViewOfFile(fontp->hfilemap); | |
306 CloseHandle(fontp->hfilemap); | |
307 CloseHandle(fontp->hfile); | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
308 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
309 if (fontp->registry) xfree(fontp->registry); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
310 if (fontp->encoding) xfree(fontp->encoding); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
311 if (fontp->slant) xfree(fontp->slant); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
312 /* if (fontp->width) xfree(fontp->width); */ |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
313 |
24141 | 314 xfree(fontp->filename); |
315 for(i = 0;i < BDF_FIRST_OFFSET_TABLE;i++) | |
316 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
317 pch = fontp->chtbl[i]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
318 if (pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
319 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
320 for (j = 0;j < BDF_SECOND_OFFSET_TABLE;j++) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
321 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
322 pcb = pch[j].pcbmp; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
323 if (pcb) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
324 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
325 if (pcb->pbmp) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
326 HeapFree(hbdf_bmp_heap, 0, pcb->pbmp); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
327 pcb->psrc = NULL; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
328 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
329 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
330 HeapFree(hbdf_cp_heap, 0, pch); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
331 } |
24141 | 332 } |
333 xfree(fontp); | |
334 } | |
335 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
336 static font_char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
337 get_cached_font_char(bdffont *fontp, int index) |
24141 | 338 { |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
339 font_char *pch, *result; |
24141 | 340 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
341 if (!BDF_CODEPOINT_RANGE_COVER_P(index)) |
24141 | 342 return NULL; |
343 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
344 pch = fontp->chtbl[BDF_FIRST_OFFSET(index)]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
345 if (!pch) |
24141 | 346 return NULL; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
347 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
348 result = &pch[BDF_SECOND_OFFSET(index)]; |
24141 | 349 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
350 if (!result->offset) return NULL; |
24141 | 351 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
352 return result; |
24141 | 353 } |
354 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
355 static font_char* |
24141 | 356 cache_char_offset(bdffont *fontp, int index, unsigned char *offset) |
357 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
358 font_char *pch, *result; |
24141 | 359 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
360 if (!BDF_CODEPOINT_RANGE_COVER_P(index)) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
361 return NULL; |
24141 | 362 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
363 pch = fontp->chtbl[BDF_FIRST_OFFSET(index)]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
364 if (!pch) |
24141 | 365 { |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
366 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
|
367 (font_char*) HeapAlloc(hbdf_cp_heap, |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43398
diff
changeset
|
368 HEAP_ZERO_MEMORY, |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
369 sizeof(font_char) * |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
370 BDF_SECOND_OFFSET_TABLE); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
371 if (!pch) return NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
372 /* memset(pch, 0, sizeof(font_char) * BDF_SECOND_OFFSET_TABLE); */ |
24141 | 373 } |
374 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
375 result = &pch[BDF_SECOND_OFFSET(index)]; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
376 result->offset = offset; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
377 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
378 return result; |
24141 | 379 } |
380 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
381 static font_char* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
382 seek_char(bdffont *fontp, int index) |
24141 | 383 { |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
384 font_char *result; |
24141 | 385 int len, flag, font_index; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
386 unsigned char *start, *p, *q; |
24141 | 387 |
388 if (!fontp->seeked) return NULL; | |
389 | |
390 start = fontp->seeked; | |
391 len = fontp->size - (start - fontp->font); | |
392 | |
393 do { | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
394 flag = proceed_file_line("ENCODING", start, &len, |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
395 (char **)&p, (char **)&q); |
24141 | 396 if (!flag) |
397 { | |
398 fontp->seeked = NULL; | |
399 return NULL; | |
400 } | |
401 font_index = atoi(p); | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
402 result = cache_char_offset(fontp, font_index, q); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
403 if (!result) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
404 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
405 start = result->offset; |
24141 | 406 } while (font_index != index); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
407 fontp->seeked = start; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
408 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
409 return result; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
410 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
411 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
412 static void |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
413 clear_cached_bitmap_slots() |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
414 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
415 int i; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
416 cache_bitmap *p; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
417 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
418 p = pcached_bitmap_latest; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
419 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
|
420 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
421 if (p->psrc) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
422 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
423 if (p->pbmp) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
424 HeapFree(hbdf_bmp_heap, 0, p->pbmp); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
425 p->psrc->pcbmp = NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
426 p->psrc = NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
427 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
428 p++; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
429 if (FONT_CACHE_SLOT_OVER_P(p)) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
430 p = cached_bitmap_slots; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
431 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
432 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
433 |
24141 | 434 #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
|
435 (((x) >= 'A') && ((x) <= 'F')) ? ((x) - 'A' + 10) : \ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
436 (((x) >= 'a') && ((x) <= 'f')) ? ((x) - 'a' + 10) : \ |
24141 | 437 (-1)) |
438 | |
439 int | |
440 w32_get_bdf_glyph(bdffont *fontp, int index, int size, glyph_struct *glyph) | |
441 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
442 font_char *pch; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
443 unsigned char *start, *p, *q, *bitmapp; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
444 unsigned char val, val1, val2; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
445 int i, j, len, flag, consumed; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
446 int align, rowbytes; |
24141 | 447 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
448 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
449 if (!pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
450 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
451 pch = seek_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
452 if (!pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
453 return 0; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
454 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
455 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
456 start = pch->offset; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
457 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
458 if ((size == 0) && pch->pcbmp) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
459 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
460 glyph->metric = pch->pcbmp->metric; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
461 return 1; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
462 } |
24141 | 463 |
464 len = fontp->size - (start - fontp->font); | |
465 | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
466 flag = proceed_file_line("DWIDTH", start, &len, (char **)&p, (char **)&q); |
24141 | 467 if (!flag) |
468 return 0; | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
469 glyph->metric.dwidth = atoi(p); |
24141 | 470 |
471 start = q; | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
472 flag = proceed_file_line("BBX", start, &len, (char **)&p, (char **)&q); |
24141 | 473 if (!flag) |
474 return 0; | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
475 glyph->metric.bbw = strtol(p, (char **)&start, 10); |
24141 | 476 p = start; |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
477 glyph->metric.bbh = strtol(p, (char **)&start, 10); |
24141 | 478 p = start; |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
479 glyph->metric.bbox = strtol(p, (char **)&start, 10); |
24141 | 480 p = start; |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
481 glyph->metric.bboy = strtol(p, (char **)&start, 10); |
24141 | 482 |
483 if (size == 0) return 1; | |
484 | |
485 start = q; | |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
486 flag = proceed_file_line("BITMAP", start, &len, (char **)&p, (char **)&q); |
24141 | 487 if (!flag) |
488 return 0; | |
489 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
490 consumed = 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
491 flag = 0; |
24141 | 492 p = q; |
493 bitmapp = glyph->bitmap; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
494 rowbytes = (glyph->metric.bbw + 7) / 8; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
495 /* DIB requires DWORD alignment. */ |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
496 align = sizeof(DWORD) - rowbytes % sizeof(DWORD); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
497 consumed = glyph->metric.bbh * (rowbytes + align); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
498 glyph->bitmap_size = consumed; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
499 glyph->row_byte_size = rowbytes; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
500 if (size < consumed) return 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
501 |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
502 for(i = 0;i < glyph->metric.bbh;i++) |
24141 | 503 { |
504 q = memchr(p, '\n', len); | |
505 if (!q) return 0; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
506 for(j = 0;((q > p) && (j < rowbytes));j++) |
24141 | 507 { |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
508 int ival = GET_HEX_VAL(*p); |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
509 |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
510 if (ival == -1) return 0; |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
511 val1 = ival; |
24141 | 512 p++; |
37701
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
513 ival = GET_HEX_VAL(*p); |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
514 if (ival == -1) return 0; |
bc25122cbfe4
(search_file_line, set_bdf_font_info, seek_char)
Eli Zaretskii <eliz@gnu.org>
parents:
35285
diff
changeset
|
515 val2 = ival; |
24141 | 516 p++; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
517 val = (unsigned char)((val1 << 4) | val2); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
518 if (val) flag = 1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
519 *bitmapp++ = val; |
24141 | 520 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
521 for(j = 0;j < align;j++) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
522 *bitmapp++ = 0x00; |
24141 | 523 p = q + 1; |
524 } | |
525 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
526 /* 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
|
527 if (flag == 0) return -1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
528 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
529 return consumed; |
24141 | 530 } |
531 | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
532 static |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
533 cache_bitmap* |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
534 get_bitmap_with_cache(bdffont *fontp, int index) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
535 { |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
536 int bitmap_size, bitmap_real_size; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
537 font_char *pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
538 cache_bitmap* pcb; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
539 unsigned char *pbmp; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
540 glyph_struct glyph; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
541 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
542 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
543 if (pch) |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
544 { |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
545 pcb = pch->pcbmp; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
546 if (pcb) return pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
547 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
548 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
549 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
|
550 + 256; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
551 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
|
552 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
553 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
|
554 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
555 if (bitmap_real_size == 0) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
556 return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
557 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
558 pch = get_cached_font_char(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
559 if (!pch) return NULL; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
560 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
561 if (bitmap_real_size > 0) |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
562 { |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
563 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
|
564 bitmap_real_size); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
565 if (!pbmp) return NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
566 memcpy(pbmp, glyph.bitmap, bitmap_real_size); |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
567 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
568 else |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
569 pbmp = NULL; /* white space character */ |
24841
d2d412758428
(clear_cached_bitmap_slots): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
24496
diff
changeset
|
570 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
571 pcb = pcached_bitmap_latest; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
572 if (pcb->psrc) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
573 clear_cached_bitmap_slots(); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
574 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
575 pcb->psrc = pch; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
576 pcb->metric = glyph.metric; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
577 pcb->pbmp = pbmp; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
578 pcb->bitmap_size = glyph.bitmap_size; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
579 pcb->row_byte_size = glyph.row_byte_size; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
580 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
581 pch->pcbmp = pcb; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43398
diff
changeset
|
582 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
583 pcached_bitmap_latest++; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
584 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
|
585 pcached_bitmap_latest = cached_bitmap_slots; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
586 |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
587 return pcb; |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
588 } |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
589 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
590 static HBITMAP |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
591 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
|
592 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
593 struct { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
594 BITMAPINFOHEADER h; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
595 RGBQUAD c[2]; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
596 } info; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
597 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
598 memset(&info, 0, sizeof(info)); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
599 info.h.biSize = sizeof(BITMAPINFOHEADER); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
600 info.h.biWidth = width; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
601 info.h.biHeight = -height; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
602 info.h.biPlanes = 1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
603 info.h.biBitCount = 1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
604 info.h.biCompression = BI_RGB; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
605 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
|
606 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
607 return CreateDIBSection(hdc, (LPBITMAPINFO)&info, |
63321
7378cb12a687
(create_offscreen_bitmap): Cast `bitsp' to `void **' in
Eli Zaretskii <eliz@gnu.org>
parents:
59331
diff
changeset
|
608 DIB_RGB_COLORS, (void **)bitsp, NULL, 0); |
32024
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 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
611 glyph_metric * |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
612 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
|
613 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
614 int index; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
615 cache_bitmap *pcb; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
616 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
617 if (dim == 1) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
618 index = *text; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
619 else |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
620 index = MAKELENDSHORT(text[1], text[0]); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
621 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
622 pcb = get_bitmap_with_cache(fontp, index); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
623 if (!pcb) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
624 return NULL; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
625 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
626 return &(pcb->metric); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
627 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
628 |
24141 | 629 int |
630 w32_BDF_TextOut(bdffont *fontp, HDC hdc, int left, | |
631 int top, unsigned char *text, int dim, int bytelen, | |
632 int fixed_pitch_size) | |
633 { | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
634 int index, btop; |
24141 | 635 unsigned char *textp; |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
636 cache_bitmap *pcb; |
24141 | 637 HBRUSH hFgBrush, hOrgBrush; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
638 HANDLE horgobj; |
24141 | 639 UINT textalign; |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
640 int width, height; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
641 HDC hCompatDC; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
642 int ret = 1; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
643 static HBITMAP hBMP = 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
644 static HDC DIBsection_hdc = 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
645 static int DIBsection_width, DIBsection_height; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
646 static unsigned char *bits; |
24141 | 647 |
648 hCompatDC = CreateCompatibleDC(hdc); | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
649 if (!hCompatDC) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
650 return 0; |
24141 | 651 |
652 textalign = GetTextAlign(hdc); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43398
diff
changeset
|
653 |
24141 | 654 hFgBrush = CreateSolidBrush(GetTextColor(hdc)); |
655 hOrgBrush = SelectObject(hdc, hFgBrush); | |
656 | |
657 textp = text; | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
658 |
24141 | 659 while(bytelen > 0) |
660 { | |
661 if (dim == 1) | |
662 { | |
663 index = *textp++; | |
664 bytelen--; | |
665 } | |
666 else | |
667 { | |
668 bytelen -= 2; | |
669 if (bytelen < 0) break; | |
33038
5a1e3282fe2e
(set_bdf_font_info): Set it.
Jason Rumney <jasonr@gnu.org>
parents:
32722
diff
changeset
|
670 index = MAKELENDSHORT(textp[0], textp[1]); |
24141 | 671 textp += 2; |
672 } | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
673 pcb = get_bitmap_with_cache(fontp, index); |
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
674 if (!pcb) |
24141 | 675 { |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
676 ret = 0; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
677 break; |
24141 | 678 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
679 if (pcb->pbmp) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
680 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
681 width = pcb->metric.bbw; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
682 height = pcb->metric.bbh; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43398
diff
changeset
|
683 |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
684 if (!(hBMP |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
685 && (DIBsection_hdc == hdc) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
686 && (DIBsection_width == width) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
687 && (DIBsection_height == height))) |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
688 { |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
689 if (hBMP) DeleteObject(hBMP); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
690 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
|
691 DIBsection_hdc = hdc; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
692 DIBsection_width = width; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
693 DIBsection_height = height; |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
694 if (!hBMP) return 0; |
24141 | 695 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
696 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
697 memcpy(bits, pcb->pbmp, pcb->bitmap_size); |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
698 |
24141 | 699 if (textalign & TA_BASELINE) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
700 btop = top - (pcb->metric.bbh + pcb->metric.bboy); |
24141 | 701 else if (textalign & TA_BOTTOM) |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
702 btop = top - pcb->metric.bbh; |
24141 | 703 else |
704 btop = top; | |
705 | |
706 horgobj = SelectObject(hCompatDC, hBMP); | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
707 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
|
708 SelectObject(hCompatDC, horgobj); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
709 } |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
710 |
24141 | 711 if (fixed_pitch_size) |
712 left += fixed_pitch_size; | |
713 else | |
24496
541ff963ba80
Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24141
diff
changeset
|
714 left += pcb->metric.dwidth; |
24141 | 715 } |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
716 |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
717 DeleteDC(hCompatDC); |
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
718 |
24141 | 719 SelectObject(hdc, hOrgBrush); |
720 DeleteObject(hFgBrush); | |
721 | |
32024
a0ba404b97a5
(search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents:
31108
diff
changeset
|
722 return ret; |
24141 | 723 } |
724 | |
725 struct font_info *w32_load_bdf_font (struct frame *f, char *fontname, | |
726 int size, char* filename) | |
727 { | |
728 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f); | |
729 struct font_info *fontp; | |
730 XFontStruct *font; | |
731 bdffont* bdf_font; | |
732 | |
733 bdf_font = w32_init_bdf_font (filename); | |
734 | |
735 if (!bdf_font) return NULL; | |
736 | |
737 font = (XFontStruct *) xmalloc (sizeof (XFontStruct)); | |
32722
6385ffa62dd5
(w32_load_bdf_font): Call w32_cache_char_metrics.
Andrew Innes <andrewi@gnu.org>
parents:
32024
diff
changeset
|
738 bzero (font, sizeof (*font)); |
24141 | 739 |
740 font->bdf = bdf_font; | |
741 font->hfont = 0; | |
742 | |
33038
5a1e3282fe2e
(set_bdf_font_info): Set it.
Jason Rumney <jasonr@gnu.org>
parents:
32722
diff
changeset
|
743 /* NTEMACS_TODO: Better way of determining if a font is double byte |
5a1e3282fe2e
(set_bdf_font_info): Set it.
Jason Rumney <jasonr@gnu.org>
parents:
32722
diff
changeset
|
744 or not. */ |
5a1e3282fe2e
(set_bdf_font_info): Set it.
Jason Rumney <jasonr@gnu.org>
parents:
32722
diff
changeset
|
745 font->double_byte_p = bdf_font->nchars > 255 ? 1 : 0; |
29315
e0ea7a9dd20b
(w32_load_bdf_font): Initialize font->double_byte_p.
Jason Rumney <jasonr@gnu.org>
parents:
28271
diff
changeset
|
746 |
32722
6385ffa62dd5
(w32_load_bdf_font): Call w32_cache_char_metrics.
Andrew Innes <andrewi@gnu.org>
parents:
32024
diff
changeset
|
747 w32_cache_char_metrics (font); |
6385ffa62dd5
(w32_load_bdf_font): Call w32_cache_char_metrics.
Andrew Innes <andrewi@gnu.org>
parents:
32024
diff
changeset
|
748 |
24141 | 749 /* Do we need to create the table? */ |
750 if (dpyinfo->font_table_size == 0) | |
751 { | |
752 dpyinfo->font_table_size = 16; | |
753 dpyinfo->font_table | |
754 = (struct font_info *) xmalloc (dpyinfo->font_table_size | |
755 * sizeof (struct font_info)); | |
756 } | |
757 /* Do we need to grow the table? */ | |
758 else if (dpyinfo->n_fonts | |
759 >= dpyinfo->font_table_size) | |
760 { | |
761 dpyinfo->font_table_size *= 2; | |
762 dpyinfo->font_table | |
763 = (struct font_info *) xrealloc (dpyinfo->font_table, | |
764 (dpyinfo->font_table_size | |
765 * sizeof (struct font_info))); | |
766 } | |
767 | |
768 fontp = dpyinfo->font_table + dpyinfo->n_fonts; | |
769 | |
770 /* Now fill in the slots of *FONTP. */ | |
771 BLOCK_INPUT; | |
52737
6685d28af4a7
* w32fns.c (w32_load_system_font): Clear all members of FONTP before
Jason Rumney <jasonr@gnu.org>
parents:
52401
diff
changeset
|
772 bzero (fontp, sizeof (*fontp)); |
24141 | 773 fontp->font = font; |
774 fontp->font_idx = dpyinfo->n_fonts; | |
775 fontp->name = (char *) xmalloc (strlen (fontname) + 1); | |
776 bcopy (fontname, fontp->name, strlen (fontname) + 1); | |
777 fontp->full_name = fontp->name; | |
59331
35ab85a2d8f2
(w32_load_bdf_font): Set fontp->average_width and
Jason Rumney <jasonr@gnu.org>
parents:
53072
diff
changeset
|
778 /* FIXME: look at BDF spec to see if there are better ways of finding |
35ab85a2d8f2
(w32_load_bdf_font): Set fontp->average_width and
Jason Rumney <jasonr@gnu.org>
parents:
53072
diff
changeset
|
779 average_width and space_width, hopefully that don't involve working out |
35ab85a2d8f2
(w32_load_bdf_font): Set fontp->average_width and
Jason Rumney <jasonr@gnu.org>
parents:
53072
diff
changeset
|
780 the values for ourselves from the data. */ |
35ab85a2d8f2
(w32_load_bdf_font): Set fontp->average_width and
Jason Rumney <jasonr@gnu.org>
parents:
53072
diff
changeset
|
781 fontp->size = fontp->average_width = fontp->space_width = FONT_WIDTH (font); |
24141 | 782 fontp->height = FONT_HEIGHT (font); |
783 | |
784 /* The slot `encoding' specifies how to map a character | |
785 code-points (0x20..0x7F or 0x2020..0x7F7F) of each charset to | |
786 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, 0:0x2020..0x7F7F, | |
787 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, | |
788 0:0x2020..0x7F7F, 1:0xA0A0..0xFFFF, 3:0x20A0..0x7FFF, or | |
789 2:0xA020..0xFF7F). For the moment, we don't know which charset | |
790 uses this font. So, we set informatoin in fontp->encoding[1] | |
791 which is never used by any charset. If mapping can't be | |
792 decided, set FONT_ENCODING_NOT_DECIDED. */ | |
793 fontp->encoding[1] = FONT_ENCODING_NOT_DECIDED; | |
794 fontp->baseline_offset = bdf_font->yoffset; | |
795 fontp->relative_compose = bdf_font->relative_compose; | |
796 fontp->default_ascent = bdf_font->default_ascent; | |
797 | |
43398 | 798 /* Set global flag fonts_changed_p to non-zero if the font loaded |
799 has a character with a smaller width than any other character | |
800 before, or if the font loaded has a smaller height than any | |
801 other font loaded before. If this happens, it will make a | |
802 glyph matrix reallocation necessary. */ | |
803 fonts_changed_p |= x_compute_min_glyph_bounds (f); | |
804 | |
24141 | 805 UNBLOCK_INPUT; |
806 dpyinfo->n_fonts++; | |
807 return fontp; | |
808 } | |
809 | |
41986 | 810 /* Check a file for an XLFD string describing it. */ |
24141 | 811 int w32_BDF_to_x_font (char *file, char* xstr, int len) |
812 { | |
813 HANDLE hfile, hfilemap; | |
814 BY_HANDLE_FILE_INFORMATION fileinfo; | |
31108 | 815 char *font, *start, *p, *q; |
24141 | 816 int flag, size, retval = 0; |
817 | |
818 hfile = CreateFile (file, GENERIC_READ, FILE_SHARE_READ, NULL, | |
819 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); | |
820 if (hfile == INVALID_HANDLE_VALUE) return 0; | |
821 if (!GetFileInformationByHandle(hfile, &fileinfo) || | |
822 (fileinfo.nFileSizeHigh != 0) || | |
823 (fileinfo.nFileSizeLow > BDF_FILE_SIZE_MAX)) | |
824 { | |
825 CloseHandle (hfile); | |
826 return 0; | |
827 } | |
828 size = fileinfo.nFileSizeLow; | |
829 | |
830 hfilemap = CreateFileMapping (hfile, NULL, PAGE_READONLY, 0, 0, NULL); | |
831 if (hfilemap == INVALID_HANDLE_VALUE) | |
832 { | |
833 CloseHandle (hfile); | |
834 return 0; | |
835 } | |
836 | |
837 font = MapViewOfFile (hfilemap, FILE_MAP_READ, 0, 0, 0); | |
838 if (!font) | |
839 { | |
840 CloseHandle (hfile); | |
841 CloseHandle (hfilemap); | |
842 return 0; | |
843 } | |
844 start = font; | |
845 | |
846 flag = proceed_file_line ("FONT ", start, &size, &p, &q); | |
847 if (flag) | |
848 { | |
849 /* If font provides a description of itself, check it is a | |
850 full XLFD before accepting it. */ | |
851 int count = 0; | |
852 char *s; | |
853 | |
854 for (s = p; s < q; s++) | |
855 if (*s == '\n') | |
856 break; | |
857 else if (*s == '-') | |
858 count++; | |
859 if (count == 14 && q - p - 1 <= len) | |
860 { | |
861 strncpy (xstr, p, q-p-1); | |
862 xstr[q-p-1] = '\0'; | |
863 /* Files may have DOS line ends (ie still ^M on end). */ | |
864 if (iscntrl(xstr[q-p-2])) | |
865 xstr[q-p-2] = '\0'; | |
866 | |
867 retval = 1; | |
868 } | |
869 } | |
870 CloseHandle (hfile); | |
871 CloseHandle (hfilemap); | |
872 return retval; | |
873 } | |
52401 | 874 |
875 /* arch-tag: 2e9a45de-0c54-4a0e-95c8-2d67b2b1fa32 | |
876 (do not change this comment) */ |