Mercurial > emacs

annotate src/w32bdf.c @ 93521:7587f0dc0aa9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-dired-filter): Align columns by padding file sizes and link numbers.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 01 Apr 2008 17:34:20 +0000 (2008-04-01)
parents 606f2d163a64
children 8971ddf55736
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79447
diff changeset
3 2006, 2007, 2008 Free Software Foundation, Inc.
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5 This file is part of GNU Emacs.
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
78260
922696f363b0 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 78033
diff changeset
9 the Free Software Foundation; either version 3, or (at your option)
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10 any later version.
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
15 GNU General Public License for more details.
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
16
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63321
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63321
diff changeset
20 Boston, MA 02110-1301, USA. */
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
21
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
22 /* Based heavily on code by H. Miyashita for Meadow (a descendant of
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
23 MULE for W32). */
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
24
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
25 #include <windows.h>
42469
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 41986
diff changeset
26
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 41986
diff changeset
27 #ifdef HAVE_CONFIG_H
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 41986
diff changeset
28 #include <config.h>
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 41986
diff changeset
29 #endif
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 41986
diff changeset
30
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
31 #include "lisp.h"
88351
aac41b50c875 Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 43398
diff changeset
32 #include "character.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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
36 #include "fontset.h"
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
37 #include "blockinput.h"
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
38 #include "w32gui.h"
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
39 #include "w32term.h"
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
40 #include "w32bdf.h"
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
50 void w32_free_bdf_font(bdffont *fontp);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
51 bdffont *w32_init_bdf_font(char *filename);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
59 search_file_line(char *key, char *start, int len, char **val, char **next)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
63
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
64 p = memchr(start, '\n', len);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
71 *next = p + 1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
72 if (strncmp(start, key, min(strlen(key), linelen)) == 0)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
73 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
74 *val = start + strlen(key);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
75 return 1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
76 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 43398
diff changeset
77
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
78 return 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
79 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
80
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
81 static int
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
82 proceed_file_line(char *key, char *start, int *len, char **val, char **next)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
83 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
84 int flag = 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
85
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
86 do {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
87 flag = search_file_line(key, start, *len, val, next);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
88 *len -= (int)(*next - start);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
89 start = *next;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
90 }while(flag == 0);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
91
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
92 if (flag == -1) return 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
93 return 1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
94 }
32024
a0ba404b97a5 (search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents: 31108
diff changeset
95
90961
b04031f0a31e (get_quoted_string): Make static
Jason Rumney <jasonr@gnu.org>
parents: 90737
diff changeset
96 static char*
24496
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
115 static int
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
116 set_bdf_font_info(bdffont *fontp)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
119 int len, flag;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
120 int bbw, bbh, bbx, bby;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
121 int val1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
122
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
123 len = fontp->size;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
124 start = fontp->font;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
125
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
126 fontp->yoffset = 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
127 fontp->relative_compose = 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
145
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
146 fontp->llx = bbx;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
147 fontp->lly = bby;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
148 fontp->urx = bbw + bbx;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
149 fontp->ury = bbh + bby;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
150 fontp->width = bbw;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
151 fontp->height = bbh;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
155 if (!flag) return 1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
159 do {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
163 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
164 val1 = atoi(p);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
165 fontp->pixsz = val1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
169 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
170 val1 = atoi(p);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
171 fontp->ury = val1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
175 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
176 val1 = atoi(p);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
177 fontp->lly = -val1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
181 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
187 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
188 val1 = atoi(p);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
189 fontp->relative_compose = val1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
193 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
194 val1 = atoi(p);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
195 fontp->default_ascent = val1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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 {
89583
01eb71b7bb3f (w32_load_bdf_font): Clear font_info before filling.
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
205 fontp->encoding = get_quoted_string(p, q);
24496
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
219 else
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
223 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
224 if (flag == -1) return 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
225 len -= (q - start);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
226 }while(flag == 0);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
231 fontp->seeked = q;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
232
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
233 return 1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
234 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
235
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
236 bdffont*
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
237 w32_init_bdf_font(char *filename)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
238 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
239 HANDLE hfile, hfilemap;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
240 bdffont *bdffontp;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
241 unsigned char *font;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
242 BY_HANDLE_FILE_INFORMATION fileinfo;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
243 int i;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
253 hfile = CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
254 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
255 if (hfile == INVALID_HANDLE_VALUE) return NULL;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
256 if (!GetFileInformationByHandle(hfile, &fileinfo) ||
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
257 (fileinfo.nFileSizeHigh != 0) ||
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
258 (fileinfo.nFileSizeLow > BDF_FILE_SIZE_MAX))
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
259 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
262 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
263 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
264 if (!hfilemap)
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
265 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
268 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
269
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
270 font = MapViewOfFile(hfilemap, FILE_MAP_READ, 0, 0, 0);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
271
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
272 if (!font)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
273 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
274 CloseHandle(hfile);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
277 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
278
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
279 bdffontp = (bdffont *) xmalloc(sizeof(bdffont));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 43398
diff changeset
280
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
283 bdffontp->size = fileinfo.nFileSizeLow;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
284 bdffontp->font = font;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
285 bdffontp->hfile = hfile;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
286 bdffontp->hfilemap = hfilemap;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
287 bdffontp->filename = (char*) xmalloc(strlen(filename) + 1);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
288 strcpy(bdffontp->filename, filename);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 43398
diff changeset
289
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
290 if (!set_bdf_font_info(bdffontp))
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
291 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
292 w32_free_bdf_font(bdffontp);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
293 error("Invalid BDF font!");
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
294 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
295 return bdffontp;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
296 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
297
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
298 void
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
299 w32_free_bdf_font(bdffont *fontp)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
304
78033
07295203c00a (w32_BDF_to_x_font): Unmap memory when finished.
Jason Rumney <jasonr@gnu.org>
parents: 75227
diff changeset
305 UnmapViewOfFile(fontp->font);
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
306 CloseHandle(fontp->hfilemap);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
314 xfree(fontp->filename);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
315 for(i = 0;i < BDF_FIRST_OFFSET_TABLE;i++)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
332 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
333 xfree(fontp);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
334 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
338 {
24496
541ff963ba80 Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24141
diff changeset
339 font_char *pch, *result;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
342 return NULL;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
349
24496
541ff963ba80 Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24141
diff changeset
350 if (!result->offset) return NULL;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
351
24496
541ff963ba80 Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24141
diff changeset
352 return result;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
353 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
354
24496
541ff963ba80 Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24141
diff changeset
355 static font_char*
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
356 cache_char_offset(bdffont *fontp, int index, unsigned char *offset)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
357 {
24496
541ff963ba80 Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24141
diff changeset
358 font_char *pch, *result;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
373 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
379 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
383 {
24496
541ff963ba80 Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24141
diff changeset
384 font_char *result;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
387
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
388 if (!fontp->seeked) return NULL;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
389
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
390 start = fontp->seeked;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
391 len = fontp->size - (start - fontp->font);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
392
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
396 if (!flag)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
397 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
398 fontp->seeked = NULL;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
399 return NULL;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
400 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
437 (-1))
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
438
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
439 int
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
440 w32_get_bdf_glyph(bdffont *fontp, int index, int size, glyph_struct *glyph)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
463
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
464 len = fontp->size - (start - fontp->font);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
467 if (!flag)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
470
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
473 if (!flag)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
482
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
483 if (size == 0) return 1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
484
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
487 if (!flag)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
488 return 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
492 p = q;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
503 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
504 q = memchr(p, '\n', len);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
523 p = q + 1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
524 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
530 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
629 int
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
630 w32_BDF_TextOut(bdffont *fontp, HDC hdc, int left,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
631 int top, unsigned char *text, int dim, int bytelen,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
632 int fixed_pitch_size)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
633 {
24496
541ff963ba80 Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24141
diff changeset
634 int index, btop;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
647
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
651
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
652 textalign = GetTextAlign(hdc);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 43398
diff changeset
653
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
654 hFgBrush = CreateSolidBrush(GetTextColor(hdc));
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
655 hOrgBrush = SelectObject(hdc, hFgBrush);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
656
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
657 textp = text;
32024
a0ba404b97a5 (search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents: 31108
diff changeset
658
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
659 while(bytelen > 0)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
660 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
661 if (dim == 1)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
662 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
663 index = *textp++;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
664 bytelen--;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
665 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
666 else
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
667 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
668 bytelen -= 2;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
671 textp += 2;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
703 else
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
704 btop = top;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
705
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
711 if (fixed_pitch_size)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
712 left += fixed_pitch_size;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
713 else
24496
541ff963ba80 Merged patches from Meadow.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24141
diff changeset
714 left += pcb->metric.dwidth;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
719 SelectObject(hdc, hOrgBrush);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
720 DeleteObject(hFgBrush);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
721
32024
a0ba404b97a5 (search_file_line): Fix skipping of whitespace.
Jason Rumney <jasonr@gnu.org>
parents: 31108
diff changeset
722 return ret;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
723 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
724
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
725 struct font_info *w32_load_bdf_font (struct frame *f, char *fontname,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
726 int size, char* filename)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
727 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
728 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
729 struct font_info *fontp;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
730 XFontStruct *font;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
731 bdffont* bdf_font;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
732
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
733 bdf_font = w32_init_bdf_font (filename);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
734
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
735 if (!bdf_font) return NULL;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
736
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
739
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
740 font->bdf = bdf_font;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
741 font->hfont = 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
749 /* Do we need to create the table? */
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
750 if (dpyinfo->font_table_size == 0)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
751 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
752 dpyinfo->font_table_size = 16;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
753 dpyinfo->font_table
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
754 = (struct font_info *) xmalloc (dpyinfo->font_table_size
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
755 * sizeof (struct font_info));
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
756 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
757 /* Do we need to grow the table? */
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
758 else if (dpyinfo->n_fonts
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
759 >= dpyinfo->font_table_size)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
760 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
761 dpyinfo->font_table_size *= 2;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
762 dpyinfo->font_table
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
763 = (struct font_info *) xrealloc (dpyinfo->font_table,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
764 (dpyinfo->font_table_size
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
765 * sizeof (struct font_info)));
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
766 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
767
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
768 fontp = dpyinfo->font_table + dpyinfo->n_fonts;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
769
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
770 /* Now fill in the slots of *FONTP. */
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
773 fontp->font = font;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
774 fontp->font_idx = dpyinfo->n_fonts;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
775 fontp->name = (char *) xmalloc (strlen (fontname) + 1);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
776 bcopy (fontname, fontp->name, strlen (fontname) + 1);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
782 fontp->height = FONT_HEIGHT (font);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
783
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
784 /* The slot `encoding' specifies how to map a character
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
785 code-points (0x20..0x7F or 0x2020..0x7F7F) of each charset to
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
786 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, 0:0x2020..0x7F7F,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
787 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
788 0:0x2020..0x7F7F, 1:0xA0A0..0xFFFF, 3:0x20A0..0x7FFF, or
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
789 2:0xA020..0xFF7F). For the moment, we don't know which charset
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
790 uses this font. So, we set informatoin in fontp->encoding[1]
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
791 which is never used by any charset. If mapping can't be
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
792 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
793 fontp->encoding_type = FONT_ENCODING_NOT_DECIDED;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
794 fontp->baseline_offset = bdf_font->yoffset;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
795 fontp->relative_compose = bdf_font->relative_compose;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
796 fontp->default_ascent = bdf_font->default_ascent;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
797
43398
8782b8cfed62 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
798 /* Set global flag fonts_changed_p to non-zero if the font loaded
8782b8cfed62 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
799 has a character with a smaller width than any other character
8782b8cfed62 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
800 before, or if the font loaded has a smaller height than any
8782b8cfed62 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
801 other font loaded before. If this happens, it will make a
8782b8cfed62 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
802 glyph matrix reallocation necessary. */
8782b8cfed62 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
803 fonts_changed_p |= x_compute_min_glyph_bounds (f);
8782b8cfed62 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
804
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
805 UNBLOCK_INPUT;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
806 dpyinfo->n_fonts++;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
807 return fontp;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
808 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
809
41986
90840766f5fb Fix typo.
Pavel Janík <Pavel@Janik.cz>
parents: 39682
diff changeset
810 /* Check a file for an XLFD string describing it. */
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
811 int w32_BDF_to_x_font (char *file, char* xstr, int len)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
812 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
813 HANDLE hfile, hfilemap;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
814 BY_HANDLE_FILE_INFORMATION fileinfo;
31108
ba53675aa8f9 (search_file_line):
Andrew Innes <andrewi@gnu.org>
parents: 29315
diff changeset
815 char *font, *start, *p, *q;
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
816 int flag, size, retval = 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
817
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
818 hfile = CreateFile (file, GENERIC_READ, FILE_SHARE_READ, NULL,
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
819 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
820 if (hfile == INVALID_HANDLE_VALUE) return 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
821 if (!GetFileInformationByHandle(hfile, &fileinfo) ||
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
822 (fileinfo.nFileSizeHigh != 0) ||
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
823 (fileinfo.nFileSizeLow > BDF_FILE_SIZE_MAX))
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
824 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
825 CloseHandle (hfile);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
826 return 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
827 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
828 size = fileinfo.nFileSizeLow;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
829
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
830 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
831 if (!hfilemap)
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
832 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
833 CloseHandle (hfile);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
834 return 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
835 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
836
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
837 font = MapViewOfFile (hfilemap, FILE_MAP_READ, 0, 0, 0);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
838 if (!font)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
839 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
840 CloseHandle (hfile);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
841 CloseHandle (hfilemap);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
842 return 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
843 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
844 start = font;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
845
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
846 flag = proceed_file_line ("FONT ", start, &size, &p, &q);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
847 if (flag)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
848 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
849 /* If font provides a description of itself, check it is a
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
850 full XLFD before accepting it. */
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
851 int count = 0;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
852 char *s;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
853
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
854 for (s = p; s < q; s++)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
855 if (*s == '\n')
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
856 break;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
857 else if (*s == '-')
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
858 count++;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
859 if (count == 14 && q - p - 1 <= len)
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
860 {
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
861 strncpy (xstr, p, q-p-1);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
862 xstr[q-p-1] = '\0';
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
863 /* Files may have DOS line ends (ie still ^M on end). */
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
864 if (iscntrl(xstr[q-p-2]))
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
865 xstr[q-p-2] = '\0';
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
866
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
867 retval = 1;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
868 }
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
869 }
78033
07295203c00a (w32_BDF_to_x_font): Unmap memory when finished.
Jason Rumney <jasonr@gnu.org>
parents: 75227
diff changeset
870 UnmapViewOfFile (font);
24141
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
871 CloseHandle (hfile);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
872 CloseHandle (hfilemap);
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
873 return retval;
db9dfcd11c84 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
874 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
875
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
876 /* arch-tag: 2e9a45de-0c54-4a0e-95c8-2d67b2b1fa32
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
877 (do not change this comment) */