Home | History | Annotate | Line # | Download | only in wsfont
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