annotate src/w32bdf.c @ 40729:650fb912b343

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