wsfont.c revision 1.23 1 1.23 lukem /* $NetBSD: wsfont.c,v 1.23 2001/11/15 09:48:19 lukem Exp $ */
2 1.1 ad
3 1.7 ad /*-
4 1.7 ad * Copyright (c) 1999 The NetBSD Foundation, Inc.
5 1.1 ad * All rights reserved.
6 1.1 ad *
7 1.7 ad * This code is derived from software contributed to The NetBSD Foundation
8 1.13 ad * by Andrew Doran.
9 1.7 ad *
10 1.1 ad * Redistribution and use in source and binary forms, with or without
11 1.1 ad * modification, are permitted provided that the following conditions
12 1.1 ad * are met:
13 1.1 ad * 1. Redistributions of source code must retain the above copyright
14 1.1 ad * notice, this list of conditions and the following disclaimer.
15 1.1 ad * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 ad * notice, this list of conditions and the following disclaimer in the
17 1.1 ad * documentation and/or other materials provided with the distribution.
18 1.7 ad * 3. All advertising materials mentioning features or use of this software
19 1.7 ad * must display the following acknowledgement:
20 1.7 ad * This product includes software developed by the NetBSD
21 1.7 ad * Foundation, Inc. and its contributors.
22 1.7 ad * 4. Neither the name of The NetBSD Foundation nor the names of its
23 1.7 ad * contributors may be used to endorse or promote products derived
24 1.7 ad * from this software without specific prior written permission.
25 1.1 ad *
26 1.7 ad * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
27 1.7 ad * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
28 1.7 ad * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29 1.7 ad * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
30 1.7 ad * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
31 1.7 ad * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
32 1.7 ad * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
33 1.7 ad * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
34 1.7 ad * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
35 1.7 ad * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
36 1.7 ad * POSSIBILITY OF SUCH DAMAGE.
37 1.1 ad */
38 1.2 ad
39 1.1 ad #include <sys/cdefs.h>
40 1.23 lukem __KERNEL_RCSID(0, "$NetBSD: wsfont.c,v 1.23 2001/11/15 09:48:19 lukem Exp $");
41 1.1 ad
42 1.1 ad #include "opt_wsfont.h"
43 1.1 ad
44 1.1 ad #include <sys/param.h>
45 1.1 ad #include <sys/systm.h>
46 1.1 ad #include <sys/time.h>
47 1.1 ad #include <sys/malloc.h>
48 1.1 ad
49 1.1 ad #include <dev/wscons/wsdisplayvar.h>
50 1.1 ad #include <dev/wscons/wsconsio.h>
51 1.1 ad #include <dev/wsfont/wsfont.h>
52 1.1 ad
53 1.1 ad #undef HAVE_FONT
54 1.1 ad
55 1.4 ad #ifdef FONT_QVSS8x15
56 1.1 ad #define HAVE_FONT 1
57 1.4 ad #include <dev/wsfont/qvss8x15.h>
58 1.1 ad #endif
59 1.1 ad
60 1.1 ad #ifdef FONT_GALLANT12x22
61 1.1 ad #define HAVE_FONT 1
62 1.1 ad #include <dev/wsfont/gallant12x22.h>
63 1.1 ad #endif
64 1.1 ad
65 1.1 ad #ifdef FONT_LUCIDA16x29
66 1.1 ad #define HAVE_FONT 1
67 1.1 ad #include <dev/wsfont/lucida16x29.h>
68 1.1 ad #endif
69 1.1 ad
70 1.8 takemura #ifdef FONT_VT220L8x8
71 1.8 takemura #define HAVE_FONT 1
72 1.8 takemura #include <dev/wsfont/vt220l8x8.h>
73 1.8 takemura #endif
74 1.8 takemura
75 1.8 takemura #ifdef FONT_VT220L8x10
76 1.8 takemura #define HAVE_FONT 1
77 1.8 takemura #include <dev/wsfont/vt220l8x10.h>
78 1.8 takemura #endif
79 1.8 takemura
80 1.14 tsutsui #ifdef FONT_SONY8x16
81 1.14 tsutsui #define HAVE_FONT 1
82 1.14 tsutsui #include <dev/wsfont/sony8x16.h>
83 1.14 tsutsui #endif
84 1.14 tsutsui
85 1.14 tsutsui #ifdef FONT_SONY12x24
86 1.14 tsutsui #define HAVE_FONT 1
87 1.14 tsutsui #include <dev/wsfont/sony12x24.h>
88 1.14 tsutsui #endif
89 1.14 tsutsui
90 1.15 tsutsui #ifdef FONT_OMRON12x20
91 1.15 tsutsui #define HAVE_FONT 1
92 1.15 tsutsui #include <dev/wsfont/omron12x20.h>
93 1.15 tsutsui #endif
94 1.15 tsutsui
95 1.4 ad /* Make sure we always have at least one font. */
96 1.1 ad #ifndef HAVE_FONT
97 1.1 ad #define HAVE_FONT 1
98 1.4 ad #define FONT_BOLD8x16 1
99 1.1 ad #endif
100 1.1 ad
101 1.4 ad #ifdef FONT_BOLD8x16
102 1.4 ad #include <dev/wsfont/bold8x16.h>
103 1.1 ad #endif
104 1.1 ad
105 1.1 ad /* Placeholder struct used for linked list */
106 1.1 ad struct font {
107 1.1 ad struct font *next;
108 1.1 ad struct font *prev;
109 1.1 ad struct wsdisplay_font *font;
110 1.1 ad u_short lockcount;
111 1.1 ad u_short cookie;
112 1.1 ad u_short flg;
113 1.1 ad };
114 1.1 ad
115 1.1 ad /* Our list of built-in fonts */
116 1.1 ad static struct font *list, builtin_fonts[] = {
117 1.1 ad #ifdef FONT_BOLD8x16
118 1.11 ad { NULL, NULL, &bold8x16, 0, 1, WSFONT_STATIC | WSFONT_BUILTIN },
119 1.1 ad #endif
120 1.1 ad #ifdef FONT_ISO8x16
121 1.11 ad { NULL, NULL, &iso8x16, 0, 2, WSFONT_STATIC | WSFONT_BUILTIN },
122 1.1 ad #endif
123 1.1 ad #ifdef FONT_COURIER11x18
124 1.11 ad { NULL, NULL, &courier11x18, 0, 3, WSFONT_STATIC | WSFONT_BUILTIN },
125 1.1 ad #endif
126 1.1 ad #ifdef FONT_GALLANT12x22
127 1.11 ad { NULL, NULL, &gallant12x22, 0, 4, WSFONT_STATIC | WSFONT_BUILTIN },
128 1.1 ad #endif
129 1.1 ad #ifdef FONT_LUCIDA16x29
130 1.11 ad { NULL, NULL, &lucida16x29, 0, 5, WSFONT_STATIC | WSFONT_BUILTIN },
131 1.1 ad #endif
132 1.1 ad #ifdef FONT_QVSS8x15
133 1.11 ad { NULL, NULL, &qvss8x15, 0, 6, WSFONT_STATIC | WSFONT_BUILTIN },
134 1.8 takemura #endif
135 1.8 takemura #ifdef FONT_VT220L8x8
136 1.11 ad { NULL, NULL, &vt220l8x8, 0, 7, WSFONT_STATIC | WSFONT_BUILTIN },
137 1.8 takemura #endif
138 1.8 takemura #ifdef FONT_VT220L8x10
139 1.11 ad { NULL, NULL, &vt220l8x10, 0, 8, WSFONT_STATIC | WSFONT_BUILTIN },
140 1.14 tsutsui #endif
141 1.14 tsutsui #ifdef FONT_SONY8x16
142 1.14 tsutsui { NULL, NULL, &sony8x16, 0, 9, WSFONT_STATIC | WSFONT_BUILTIN },
143 1.14 tsutsui #endif
144 1.14 tsutsui #ifdef FONT_SONY12x24
145 1.14 tsutsui { NULL, NULL, &sony12x24, 0, 10, WSFONT_STATIC | WSFONT_BUILTIN },
146 1.15 tsutsui #endif
147 1.15 tsutsui #ifdef FONT_OMRON12x20
148 1.17 ad { NULL, NULL, &omron12x20, 0, 11, WSFONT_STATIC | WSFONT_BUILTIN },
149 1.1 ad #endif
150 1.11 ad { NULL, NULL, NULL, 0 },
151 1.1 ad };
152 1.1 ad
153 1.1 ad /* Reverse the bit order in a byte */
154 1.1 ad static const u_char reverse[256] = {
155 1.1 ad 0x00, 0x80, 0x40, 0xc0, 0x20, 0xa0, 0x60, 0xe0,
156 1.1 ad 0x10, 0x90, 0x50, 0xd0, 0x30, 0xb0, 0x70, 0xf0,
157 1.1 ad 0x08, 0x88, 0x48, 0xc8, 0x28, 0xa8, 0x68, 0xe8,
158 1.1 ad 0x18, 0x98, 0x58, 0xd8, 0x38, 0xb8, 0x78, 0xf8,
159 1.1 ad 0x04, 0x84, 0x44, 0xc4, 0x24, 0xa4, 0x64, 0xe4,
160 1.1 ad 0x14, 0x94, 0x54, 0xd4, 0x34, 0xb4, 0x74, 0xf4,
161 1.1 ad 0x0c, 0x8c, 0x4c, 0xcc, 0x2c, 0xac, 0x6c, 0xec,
162 1.1 ad 0x1c, 0x9c, 0x5c, 0xdc, 0x3c, 0xbc, 0x7c, 0xfc,
163 1.1 ad 0x02, 0x82, 0x42, 0xc2, 0x22, 0xa2, 0x62, 0xe2,
164 1.1 ad 0x12, 0x92, 0x52, 0xd2, 0x32, 0xb2, 0x72, 0xf2,
165 1.1 ad 0x0a, 0x8a, 0x4a, 0xca, 0x2a, 0xaa, 0x6a, 0xea,
166 1.1 ad 0x1a, 0x9a, 0x5a, 0xda, 0x3a, 0xba, 0x7a, 0xfa,
167 1.1 ad 0x06, 0x86, 0x46, 0xc6, 0x26, 0xa6, 0x66, 0xe6,
168 1.1 ad 0x16, 0x96, 0x56, 0xd6, 0x36, 0xb6, 0x76, 0xf6,
169 1.1 ad 0x0e, 0x8e, 0x4e, 0xce, 0x2e, 0xae, 0x6e, 0xee,
170 1.1 ad 0x1e, 0x9e, 0x5e, 0xde, 0x3e, 0xbe, 0x7e, 0xfe,
171 1.1 ad 0x01, 0x81, 0x41, 0xc1, 0x21, 0xa1, 0x61, 0xe1,
172 1.1 ad 0x11, 0x91, 0x51, 0xd1, 0x31, 0xb1, 0x71, 0xf1,
173 1.1 ad 0x09, 0x89, 0x49, 0xc9, 0x29, 0xa9, 0x69, 0xe9,
174 1.1 ad 0x19, 0x99, 0x59, 0xd9, 0x39, 0xb9, 0x79, 0xf9,
175 1.1 ad 0x05, 0x85, 0x45, 0xc5, 0x25, 0xa5, 0x65, 0xe5,
176 1.1 ad 0x15, 0x95, 0x55, 0xd5, 0x35, 0xb5, 0x75, 0xf5,
177 1.1 ad 0x0d, 0x8d, 0x4d, 0xcd, 0x2d, 0xad, 0x6d, 0xed,
178 1.1 ad 0x1d, 0x9d, 0x5d, 0xdd, 0x3d, 0xbd, 0x7d, 0xfd,
179 1.1 ad 0x03, 0x83, 0x43, 0xc3, 0x23, 0xa3, 0x63, 0xe3,
180 1.1 ad 0x13, 0x93, 0x53, 0xd3, 0x33, 0xb3, 0x73, 0xf3,
181 1.1 ad 0x0b, 0x8b, 0x4b, 0xcb, 0x2b, 0xab, 0x6b, 0xeb,
182 1.1 ad 0x1b, 0x9b, 0x5b, 0xdb, 0x3b, 0xbb, 0x7b, 0xfb,
183 1.1 ad 0x07, 0x87, 0x47, 0xc7, 0x27, 0xa7, 0x67, 0xe7,
184 1.1 ad 0x17, 0x97, 0x57, 0xd7, 0x37, 0xb7, 0x77, 0xf7,
185 1.1 ad 0x0f, 0x8f, 0x4f, 0xcf, 0x2f, 0xaf, 0x6f, 0xef,
186 1.1 ad 0x1f, 0x9f, 0x5f, 0xdf, 0x3f, 0xbf, 0x7f, 0xff,
187 1.1 ad };
188 1.1 ad
189 1.22 augustss static struct font *wsfont_find0(int);
190 1.22 augustss static void wsfont_revbit(struct wsdisplay_font *);
191 1.22 augustss static void wsfont_revbyte(struct wsdisplay_font *);
192 1.1 ad
193 1.1 ad /*
194 1.1 ad * Reverse the bit order of a font
195 1.1 ad */
196 1.1 ad static void
197 1.22 augustss wsfont_revbit(struct wsdisplay_font *font)
198 1.1 ad {
199 1.1 ad u_char *p, *m;
200 1.1 ad
201 1.1 ad p = (u_char *)font->data;
202 1.1 ad m = p + font->stride * font->numchars * font->fontheight;
203 1.18 cgd
204 1.18 cgd for (; p < m; p++)
205 1.18 cgd *p = reverse[*p];
206 1.1 ad }
207 1.1 ad
208 1.1 ad /*
209 1.1 ad * Reverse the byte order of a font
210 1.1 ad */
211 1.1 ad static void
212 1.22 augustss wsfont_revbyte(struct wsdisplay_font *font)
213 1.1 ad {
214 1.1 ad int x, l, r, nr;
215 1.1 ad u_char *rp;
216 1.1 ad
217 1.1 ad if (font->stride == 1)
218 1.1 ad return;
219 1.1 ad
220 1.1 ad rp = (u_char *)font->data;
221 1.1 ad nr = font->numchars * font->fontheight;
222 1.1 ad
223 1.1 ad while (nr--) {
224 1.1 ad l = 0;
225 1.1 ad r = font->stride - 1;
226 1.1 ad
227 1.1 ad while (l < r) {
228 1.1 ad x = rp[l];
229 1.1 ad rp[l] = rp[r];
230 1.1 ad rp[r] = x;
231 1.1 ad l++, r--;
232 1.1 ad }
233 1.1 ad
234 1.1 ad rp += font->stride;
235 1.1 ad }
236 1.1 ad }
237 1.1 ad
238 1.1 ad /*
239 1.1 ad * Enumarate the list of fonts
240 1.1 ad */
241 1.1 ad void
242 1.22 augustss wsfont_enum(void (*cb)(char *, int, int, int))
243 1.1 ad {
244 1.9 ad struct wsdisplay_font *f;
245 1.1 ad struct font *ent;
246 1.1 ad int s;
247 1.1 ad
248 1.1 ad s = splhigh();
249 1.1 ad
250 1.1 ad for (ent = list; ent; ent = ent->next) {
251 1.9 ad f = ent->font;
252 1.9 ad cb(f->name, f->fontwidth, f->fontheight, f->stride);
253 1.1 ad }
254 1.1 ad
255 1.1 ad splx(s);
256 1.1 ad }
257 1.1 ad
258 1.1 ad /*
259 1.1 ad * Initialize list with WSFONT_BUILTIN fonts
260 1.1 ad */
261 1.1 ad void
262 1.1 ad wsfont_init(void)
263 1.1 ad {
264 1.1 ad static int again;
265 1.1 ad int i;
266 1.1 ad
267 1.9 ad if (again != 0)
268 1.1 ad return;
269 1.1 ad again = 1;
270 1.1 ad
271 1.9 ad for (i = 0; builtin_fonts[i].font != NULL; i++) {
272 1.1 ad builtin_fonts[i].next = list;
273 1.1 ad list = &builtin_fonts[i];
274 1.1 ad }
275 1.1 ad }
276 1.1 ad
277 1.1 ad /*
278 1.1 ad * Find a font by cookie. Called at splhigh.
279 1.1 ad */
280 1.1 ad static struct font *
281 1.22 augustss wsfont_find0(int cookie)
282 1.1 ad {
283 1.1 ad struct font *ent;
284 1.1 ad
285 1.9 ad for (ent = list; ent != NULL; ent = ent->next)
286 1.1 ad if (ent->cookie == cookie)
287 1.1 ad return (ent);
288 1.1 ad
289 1.1 ad return (NULL);
290 1.1 ad }
291 1.1 ad
292 1.21 drochner int
293 1.22 augustss wsfont_matches(struct wsdisplay_font *font, char *name,
294 1.22 augustss int width, int height, int stride)
295 1.21 drochner {
296 1.21 drochner
297 1.21 drochner if (height != 0 && font->fontheight != height)
298 1.21 drochner return (0);
299 1.21 drochner
300 1.21 drochner if (width != 0 && font->fontwidth != width)
301 1.21 drochner return (0);
302 1.21 drochner
303 1.21 drochner if (stride != 0 && font->stride != stride)
304 1.21 drochner return (0);
305 1.21 drochner
306 1.21 drochner if (name != NULL && strcmp(font->name, name) != 0)
307 1.21 drochner return (0);
308 1.21 drochner
309 1.21 drochner return (1);
310 1.21 drochner }
311 1.21 drochner
312 1.1 ad /*
313 1.1 ad * Find a font.
314 1.1 ad */
315 1.1 ad int
316 1.22 augustss wsfont_find(char *name, int width, int height, int stride)
317 1.1 ad {
318 1.1 ad struct font *ent;
319 1.1 ad int s;
320 1.1 ad
321 1.1 ad s = splhigh();
322 1.1 ad
323 1.9 ad for (ent = list; ent != NULL; ent = ent->next) {
324 1.21 drochner if (wsfont_matches(ent->font, name, width, height, stride)) {
325 1.21 drochner splx(s);
326 1.21 drochner return (ent->cookie);
327 1.21 drochner }
328 1.1 ad }
329 1.1 ad
330 1.1 ad splx(s);
331 1.1 ad return (-1);
332 1.1 ad }
333 1.1 ad
334 1.1 ad /*
335 1.1 ad * Add a font to the list.
336 1.1 ad */
337 1.1 ad int
338 1.22 augustss wsfont_add(struct wsdisplay_font *font, int copy)
339 1.1 ad {
340 1.9 ad static int cookiegen = 666;
341 1.1 ad struct font *ent;
342 1.9 ad size_t size;
343 1.1 ad int s;
344 1.1 ad
345 1.1 ad s = splhigh();
346 1.1 ad
347 1.9 ad /* Don't allow exact duplicates */
348 1.1 ad if (wsfont_find(font->name, font->fontwidth, font->fontheight,
349 1.1 ad font->stride) >= 0) {
350 1.1 ad splx(s);
351 1.21 drochner return (EEXIST);
352 1.1 ad }
353 1.1 ad
354 1.9 ad MALLOC(ent, struct font *, sizeof *ent, M_DEVBUF, M_WAITOK);
355 1.1 ad
356 1.1 ad ent->lockcount = 0;
357 1.1 ad ent->flg = 0;
358 1.1 ad ent->cookie = cookiegen++;
359 1.1 ad ent->next = list;
360 1.1 ad ent->prev = NULL;
361 1.1 ad
362 1.1 ad /* Is this font statically allocated? */
363 1.1 ad if (!copy) {
364 1.1 ad ent->font = font;
365 1.1 ad ent->flg = WSFONT_STATIC;
366 1.1 ad } else {
367 1.1 ad MALLOC(ent->font, struct wsdisplay_font *, sizeof *ent->font,
368 1.9 ad M_DEVBUF, M_WAITOK);
369 1.1 ad memcpy(ent->font, font, sizeof(*ent->font));
370 1.1 ad
371 1.1 ad size = font->fontheight * font->numchars * font->stride;
372 1.9 ad MALLOC(ent->font->data, void *, size, M_DEVBUF, M_WAITOK);
373 1.1 ad memcpy(ent->font->data, font->data, size);
374 1.21 drochner MALLOC(ent->font->name, char *, strlen(font->name) + 1,
375 1.21 drochner M_DEVBUF, M_WAITOK);
376 1.21 drochner strcpy(ent->font->name, font->name);
377 1.1 ad ent->flg = 0;
378 1.1 ad }
379 1.1 ad
380 1.1 ad /* Now link into the list and return */
381 1.1 ad list = ent;
382 1.1 ad splx(s);
383 1.1 ad return (0);
384 1.1 ad }
385 1.1 ad
386 1.1 ad /*
387 1.1 ad * Remove a font.
388 1.1 ad */
389 1.1 ad int
390 1.22 augustss wsfont_remove(int cookie)
391 1.1 ad {
392 1.1 ad struct font *ent;
393 1.1 ad int s;
394 1.1 ad
395 1.1 ad s = splhigh();
396 1.1 ad
397 1.1 ad if ((ent = wsfont_find0(cookie)) == NULL) {
398 1.1 ad splx(s);
399 1.21 drochner return (ENOENT);
400 1.1 ad }
401 1.1 ad
402 1.10 ad if ((ent->flg & WSFONT_BUILTIN) != 0 || ent->lockcount != 0) {
403 1.1 ad splx(s);
404 1.21 drochner return (EBUSY);
405 1.1 ad }
406 1.1 ad
407 1.1 ad /* Don't free statically allocated font data */
408 1.10 ad if ((ent->flg & WSFONT_STATIC) != 0) {
409 1.9 ad FREE(ent->font->data, M_DEVBUF);
410 1.21 drochner FREE(ent->font->name, M_DEVBUF);
411 1.9 ad FREE(ent->font, M_DEVBUF);
412 1.1 ad }
413 1.1 ad
414 1.1 ad /* Remove from list, free entry */
415 1.1 ad if (ent->prev)
416 1.1 ad ent->prev->next = ent->next;
417 1.1 ad else
418 1.1 ad list = ent->next;
419 1.1 ad
420 1.1 ad if (ent->next)
421 1.1 ad ent->next->prev = ent->prev;
422 1.1 ad
423 1.9 ad FREE(ent, M_DEVBUF);
424 1.1 ad splx(s);
425 1.9 ad return (0);
426 1.1 ad }
427 1.1 ad
428 1.1 ad /*
429 1.5 ad * Lock a given font and return new lockcount. This fails if the cookie
430 1.5 ad * is invalid, or if the font is already locked and the bit/byte order
431 1.5 ad * requested by the caller differs.
432 1.1 ad */
433 1.1 ad int
434 1.22 augustss wsfont_lock(int cookie, struct wsdisplay_font **ptr,
435 1.22 augustss int bitorder, int byteorder)
436 1.1 ad {
437 1.1 ad struct font *ent;
438 1.1 ad int s, lc;
439 1.1 ad
440 1.1 ad s = splhigh();
441 1.1 ad
442 1.1 ad if ((ent = wsfont_find0(cookie)) != NULL) {
443 1.11 ad if (bitorder && bitorder != ent->font->bitorder) {
444 1.12 enami if (ent->lockcount) {
445 1.12 enami splx(s);
446 1.1 ad return (-1);
447 1.12 enami }
448 1.1 ad wsfont_revbit(ent->font);
449 1.11 ad ent->font->bitorder = bitorder;
450 1.1 ad }
451 1.1 ad
452 1.11 ad if (byteorder && byteorder != ent->font->byteorder) {
453 1.12 enami if (ent->lockcount) {
454 1.12 enami splx(s);
455 1.1 ad return (-1);
456 1.12 enami }
457 1.1 ad wsfont_revbyte(ent->font);
458 1.11 ad ent->font->byteorder = byteorder;
459 1.1 ad }
460 1.1 ad
461 1.1 ad lc = ++ent->lockcount;
462 1.1 ad *ptr = ent->font;
463 1.1 ad } else
464 1.1 ad lc = -1;
465 1.1 ad
466 1.1 ad splx(s);
467 1.1 ad return (lc);
468 1.1 ad }
469 1.1 ad
470 1.1 ad /*
471 1.1 ad * Get font flags and lockcount.
472 1.1 ad */
473 1.1 ad int
474 1.22 augustss wsfont_getflg(int cookie, int *flg, int *lc)
475 1.1 ad {
476 1.1 ad struct font *ent;
477 1.1 ad int s;
478 1.1 ad
479 1.1 ad s = splhigh();
480 1.1 ad
481 1.1 ad if ((ent = wsfont_find0(cookie)) != NULL) {
482 1.1 ad *flg = ent->flg;
483 1.1 ad *lc = ent->lockcount;
484 1.1 ad }
485 1.1 ad
486 1.1 ad splx(s);
487 1.9 ad return (ent != NULL ? 0 : -1);
488 1.1 ad }
489 1.1 ad
490 1.1 ad /*
491 1.1 ad * Unlock a given font and return new lockcount.
492 1.1 ad */
493 1.1 ad int
494 1.22 augustss wsfont_unlock(int cookie)
495 1.1 ad {
496 1.1 ad struct font *ent;
497 1.1 ad int s, lc;
498 1.1 ad
499 1.1 ad s = splhigh();
500 1.1 ad
501 1.1 ad if ((ent = wsfont_find0(cookie)) != NULL) {
502 1.1 ad if (ent->lockcount == 0)
503 1.1 ad panic("wsfont_unlock: font not locked\n");
504 1.1 ad lc = --ent->lockcount;
505 1.1 ad } else
506 1.1 ad lc = -1;
507 1.1 ad
508 1.1 ad splx(s);
509 1.1 ad return (lc);
510 1.16 marcus }
511 1.16 marcus
512 1.16 marcus
513 1.16 marcus /*
514 1.16 marcus * Unicode to font encoding mappings
515 1.16 marcus */
516 1.16 marcus
517 1.16 marcus /*
518 1.16 marcus * To save memory, font encoding tables use a two level lookup.
519 1.16 marcus * First the high byte of the Unicode is used to lookup the level 2
520 1.16 marcus * table, then the low byte indexes that table. Level 2 tables that are
521 1.16 marcus * not needed are omitted (NULL), and both level 1 and level 2 tables
522 1.16 marcus * have base and size attributes to keep their size down.
523 1.16 marcus */
524 1.16 marcus
525 1.16 marcus struct wsfont_level1_glyphmap {
526 1.16 marcus struct wsfont_level2_glyphmap **level2;
527 1.16 marcus int base; /* High byte for first level2 entry */
528 1.16 marcus int size; /* Number of level2 entries */
529 1.16 marcus };
530 1.16 marcus
531 1.16 marcus struct wsfont_level2_glyphmap {
532 1.16 marcus int base; /* Low byte for first character */
533 1.16 marcus int size; /* Number of characters */
534 1.16 marcus void *chars; /* Pointer to character number entries */
535 1.16 marcus int width; /* Size of each entry in bytes (1,2,4) */
536 1.16 marcus };
537 1.16 marcus
538 1.16 marcus #define null16 \
539 1.16 marcus NULL, NULL, NULL, NULL, \
540 1.16 marcus NULL, NULL, NULL, NULL, \
541 1.16 marcus NULL, NULL, NULL, NULL, \
542 1.16 marcus NULL, NULL, NULL, NULL
543 1.16 marcus
544 1.16 marcus /*
545 1.16 marcus * IBM 437 maps
546 1.16 marcus */
547 1.16 marcus
548 1.16 marcus static u_int8_t
549 1.16 marcus ibm437_chars_0[] = {
550 1.16 marcus 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
551 1.16 marcus 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
552 1.16 marcus 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
553 1.16 marcus 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
554 1.16 marcus 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
555 1.16 marcus 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
556 1.16 marcus 96, 97, 98, 99, 100,101,102,103,104,105,106,107,108,109,110,111,
557 1.16 marcus 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
558 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
559 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
560 1.16 marcus 255,173,155,156, 0, 157, 0, 0, 0, 0, 166,174,170, 0, 0, 0,
561 1.16 marcus 0, 241,253, 0, 0, 0, 0, 249, 0, 0, 167,175,172,171, 0, 168,
562 1.16 marcus 0, 0, 0, 0, 142,143,146,128, 0, 144, 0, 0, 0, 0, 0, 0,
563 1.16 marcus 0, 165, 0, 0, 0, 0, 153, 0, 0, 0, 0, 0, 154, 0, 0, 0,
564 1.16 marcus 133,160,131, 0, 132,134,145,135,138,130,136,137,141,161,140,139,
565 1.16 marcus 0, 164,149,162,147, 0, 148,246, 0, 151,163,150,129, 0, 0, 152
566 1.16 marcus },
567 1.16 marcus ibm437_chars_1[] = {
568 1.16 marcus 159
569 1.16 marcus },
570 1.16 marcus ibm437_chars_3[] = {
571 1.16 marcus 226, 0, 0, 0, 0, 233, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
572 1.16 marcus 228, 0, 0, 232, 0, 0, 234, 0, 0, 0, 0, 0, 0, 0, 224,225,
573 1.16 marcus 0, 235,238, 0, 0, 0, 0, 0, 0, 230, 0, 0, 0, 227, 0, 0,
574 1.16 marcus 229,231
575 1.16 marcus },
576 1.16 marcus ibm437_chars_32[] = {
577 1.16 marcus 252, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
578 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
579 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 158
580 1.16 marcus },
581 1.16 marcus ibm437_chars_34[] = {
582 1.16 marcus 237, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
583 1.16 marcus 0, 0, 0, 248,250,251, 0, 0, 0, 236, 0, 0, 0, 0, 0, 0,
584 1.16 marcus 0, 0, 0, 0, 239, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
585 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
586 1.16 marcus 0, 0, 0, 247, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
587 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,240, 0, 0,243,
588 1.16 marcus 242
589 1.16 marcus },
590 1.16 marcus ibm437_chars_35[] = {
591 1.16 marcus 169, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
592 1.16 marcus 244,245
593 1.16 marcus },
594 1.16 marcus ibm437_chars_37[] = {
595 1.16 marcus 196,205,179,186, 0, 0, 0, 0, 0, 0, 0, 0, 218,213,214,201,
596 1.16 marcus 191,184,183,187,192,212,211,200,217,190,189,188,195,198, 0, 0,
597 1.16 marcus 199, 0, 0, 204,180,181, 0, 0, 182, 0, 0, 185,194, 0, 0, 209,
598 1.16 marcus 210, 0, 0, 203,193, 0, 0, 207,208, 0, 0, 202,197, 0, 0, 216,
599 1.16 marcus 0, 0, 215, 0, 0, 0, 0, 0, 0, 0, 0, 206, 0, 0, 0, 0,
600 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
601 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
602 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
603 1.16 marcus 223, 0, 0, 0, 220, 0, 0, 0, 219, 0, 0, 0, 221, 0, 0, 0,
604 1.16 marcus 222,176,177,178, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
605 1.16 marcus 254
606 1.16 marcus };
607 1.16 marcus
608 1.16 marcus static struct wsfont_level2_glyphmap
609 1.16 marcus ibm437_level2_0 = { 0, 256, ibm437_chars_0, 1 },
610 1.16 marcus ibm437_level2_1 = { 146, 1, ibm437_chars_1, 1 },
611 1.16 marcus ibm437_level2_3 = { 147, 50, ibm437_chars_3, 1 },
612 1.16 marcus ibm437_level2_32 = { 127, 41, ibm437_chars_32, 1 },
613 1.16 marcus ibm437_level2_34 = { 5, 97, ibm437_chars_34, 1 },
614 1.16 marcus ibm437_level2_35 = { 16, 18, ibm437_chars_35, 1 },
615 1.16 marcus ibm437_level2_37 = { 0, 161, ibm437_chars_37, 1 };
616 1.16 marcus
617 1.16 marcus static struct wsfont_level2_glyphmap *ibm437_level1[] = {
618 1.16 marcus &ibm437_level2_0, &ibm437_level2_1, NULL, &ibm437_level2_3,
619 1.16 marcus NULL, NULL, NULL, NULL,
620 1.16 marcus NULL, NULL, NULL, NULL,
621 1.16 marcus NULL, NULL, NULL, NULL,
622 1.16 marcus NULL, NULL, NULL, NULL,
623 1.16 marcus NULL, NULL, NULL, NULL,
624 1.16 marcus NULL, NULL, NULL, NULL,
625 1.16 marcus NULL, NULL, NULL, NULL,
626 1.16 marcus &ibm437_level2_32, NULL, &ibm437_level2_34, &ibm437_level2_35,
627 1.16 marcus NULL, &ibm437_level2_37
628 1.16 marcus };
629 1.16 marcus
630 1.16 marcus
631 1.16 marcus /*
632 1.16 marcus * ISO-8859-7 maps
633 1.16 marcus */
634 1.16 marcus
635 1.16 marcus static u_int8_t
636 1.16 marcus iso7_chars_0[] = {
637 1.16 marcus 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
638 1.16 marcus 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
639 1.16 marcus 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
640 1.16 marcus 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
641 1.16 marcus 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
642 1.16 marcus 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
643 1.16 marcus 96, 97, 98, 99, 100,101,102,103,104,105,106,107,108,109,110,111,
644 1.16 marcus 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
645 1.16 marcus 128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
646 1.16 marcus 144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,
647 1.16 marcus 160, 0, 0, 163, 0, 0, 166,167,168,169, 0, 171,172,173, 0, 0,
648 1.16 marcus 176,177,178,179,180, 0, 0, 183, 0, 0, 0, 187, 0, 189
649 1.16 marcus },
650 1.16 marcus iso7_chars_3[] = {
651 1.16 marcus 182, 0, 184,185,186, 0, 188, 0, 190,191,192,193,194,195,196,197,
652 1.16 marcus 198,199,200,201,202,203,204,205,206,207,208,209, 0, 211,212,213,
653 1.16 marcus 214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,
654 1.16 marcus 230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,
655 1.16 marcus 246,247,248,249,250,251,252,253,254, 0, 0, 0, 0, 0, 0, 0,
656 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
657 1.16 marcus 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 181
658 1.16 marcus },
659 1.16 marcus iso7_chars_32[] = {
660 1.16 marcus 175, 0, 0, 0, 0, 162, 0, 161
661 1.16 marcus };
662 1.16 marcus
663 1.16 marcus static struct wsfont_level2_glyphmap
664 1.16 marcus iso7_level2_0 = { 0, 190, iso7_chars_0, 1 },
665 1.16 marcus iso7_level2_3 = { 134, 111, iso7_chars_3, 1 },
666 1.16 marcus iso7_level2_32 = { 20, 8, iso7_chars_32, 1 };
667 1.16 marcus
668 1.16 marcus static struct wsfont_level2_glyphmap *iso7_level1[] = {
669 1.16 marcus &iso7_level2_0, NULL, NULL, &iso7_level2_3,
670 1.16 marcus NULL, NULL, NULL, NULL,
671 1.16 marcus NULL, NULL, NULL, NULL,
672 1.16 marcus NULL, NULL, NULL, NULL,
673 1.16 marcus NULL, NULL, NULL, NULL,
674 1.16 marcus NULL, NULL, NULL, NULL,
675 1.16 marcus NULL, NULL, NULL, NULL,
676 1.16 marcus NULL, NULL, NULL, NULL,
677 1.16 marcus &iso7_level2_32
678 1.16 marcus };
679 1.16 marcus
680 1.16 marcus static struct wsfont_level1_glyphmap encodings[] = {
681 1.16 marcus { NULL, 0, 0 }, /* WSDISPLAY_FONTENC_ISO */
682 1.16 marcus { ibm437_level1, 0, 38 }, /* WSDISPLAY_FONTENC_IBM */
683 1.16 marcus { NULL, 0, 0 }, /* WSDISPLAY_FONTENC_PCVT */
684 1.16 marcus { iso7_level1, 0, 33 }, /* WSDISPLAY_FONTENC_ISO7 */
685 1.16 marcus };
686 1.16 marcus
687 1.19 enami #define MAX_ENCODING (sizeof(encodings) / sizeof(encodings[0]))
688 1.16 marcus
689 1.16 marcus /*
690 1.16 marcus * Remap Unicode character to glyph
691 1.16 marcus */
692 1.16 marcus int
693 1.22 augustss wsfont_map_unichar(struct wsdisplay_font *font, int c)
694 1.16 marcus {
695 1.16 marcus if (font->encoding == WSDISPLAY_FONTENC_ISO) {
696 1.16 marcus
697 1.16 marcus return c;
698 1.16 marcus
699 1.16 marcus } else if (font->encoding < 0 || font->encoding > MAX_ENCODING) {
700 1.16 marcus
701 1.16 marcus return (-1);
702 1.16 marcus
703 1.16 marcus } else {
704 1.16 marcus
705 1.16 marcus int hi = (c >> 8), lo = c & 255;
706 1.16 marcus struct wsfont_level1_glyphmap *map1 =
707 1.16 marcus &encodings[font->encoding];
708 1.16 marcus
709 1.16 marcus if (hi >= map1->base && hi < map1->base + map1->size) {
710 1.16 marcus struct wsfont_level2_glyphmap *map2 =
711 1.16 marcus map1->level2[hi - map1->base];
712 1.16 marcus
713 1.16 marcus if (map2 != NULL &&
714 1.20 uwe lo >= map2->base && lo < map2->base + map2->size) {
715 1.16 marcus
716 1.16 marcus lo -= map2->base;
717 1.16 marcus
718 1.16 marcus switch(map2->width) {
719 1.16 marcus case 1:
720 1.16 marcus c = (((u_int8_t *)map2->chars)[lo]);
721 1.16 marcus break;
722 1.16 marcus case 2:
723 1.16 marcus c = (((u_int16_t *)map2->chars)[lo]);
724 1.16 marcus break;
725 1.16 marcus case 4:
726 1.16 marcus c = (((u_int32_t *)map2->chars)[lo]);
727 1.16 marcus break;
728 1.16 marcus }
729 1.16 marcus
730 1.16 marcus if (c == 0 && lo != 0)
731 1.16 marcus return (-1);
732 1.16 marcus else
733 1.16 marcus return (c);
734 1.16 marcus
735 1.16 marcus } else {
736 1.16 marcus return (-1);
737 1.16 marcus }
738 1.16 marcus
739 1.16 marcus } else {
740 1.16 marcus return (-1);
741 1.16 marcus }
742 1.16 marcus
743 1.16 marcus }
744 1.16 marcus
745 1.1 ad }
746