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