xref: /illumos-gate/usr/src/cmd/vtfontcvt/vtfontcvt.c (revision 9b6224883056ca9db111541974efeb6a4de0c074)
1 /*
2  * Copyright (c) 2009, 2014 The FreeBSD Foundation
3  * All rights reserved.
4  *
5  * This software was developed by Ed Schouten under sponsorship from the
6  * FreeBSD Foundation.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  *
17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27  * SUCH DAMAGE.
28  */
29 
30 #include <sys/types.h>
31 #include <endian.h>
32 #include <sys/param.h>
33 #include <sys/queue.h>
34 
35 #include <assert.h>
36 #include <err.h>
37 #include <stdint.h>
38 #include <stdio.h>
39 #include <stdlib.h>
40 #include <stdbool.h>
41 #include <string.h>
42 #include <unistd.h>
43 #include <lz4.h>
44 #include "fnv_hash.h"
45 
46 #define	VFNT_MAPS 4
47 #define	VFNT_MAP_NORMAL 0
48 #define	VFNT_MAP_NORMAL_RH 1
49 #define	VFNT_MAP_BOLD 2
50 #define	VFNT_MAP_BOLD_RH 3
51 
52 static unsigned int width = 8, wbytes, height = 16;
53 
54 struct bbox {
55 	unsigned int width;	/* pixels */
56 	unsigned int height;
57 	int x;			/* lower left corner x */
58 	int y;			/* lower left corner y */
59 };
60 
61 static struct bbox bbox;	/* font bounding box */
62 static int font_ascent;		/* pixels above baseline */
63 static int font_descent;	/* pixels below baseline */
64 static unsigned int default_char = 0xFFFD;
65 
66 struct glyph {
67 	TAILQ_ENTRY(glyph)	 g_list;
68 	SLIST_ENTRY(glyph)	 g_hash;
69 	uint8_t			*g_data;
70 	unsigned int		 g_index;
71 };
72 
73 #define	FONTCVT_NHASH 4096
74 TAILQ_HEAD(glyph_list, glyph);
75 static SLIST_HEAD(, glyph) glyph_hash[FONTCVT_NHASH];
76 static struct glyph_list glyphs[VFNT_MAPS] = {
77     TAILQ_HEAD_INITIALIZER(glyphs[0]),
78     TAILQ_HEAD_INITIALIZER(glyphs[1]),
79     TAILQ_HEAD_INITIALIZER(glyphs[2]),
80     TAILQ_HEAD_INITIALIZER(glyphs[3]),
81 };
82 static unsigned int glyph_total, glyph_count[4], glyph_unique, glyph_dupe;
83 
84 struct mapping {
85 	TAILQ_ENTRY(mapping)	 m_list;
86 	unsigned int		 m_char;
87 	unsigned int		 m_length;
88 	struct glyph		*m_glyph;
89 };
90 
91 TAILQ_HEAD(mapping_list, mapping);
92 static struct mapping_list maps[VFNT_MAPS] = {
93     TAILQ_HEAD_INITIALIZER(maps[0]),
94     TAILQ_HEAD_INITIALIZER(maps[1]),
95     TAILQ_HEAD_INITIALIZER(maps[2]),
96     TAILQ_HEAD_INITIALIZER(maps[3]),
97 };
98 static unsigned int mapping_total, map_count[4], map_folded_count[4],
99     mapping_unique, mapping_dupe;
100 
101 enum output_format {
102 	VT_FONT,		/* default */
103 	VT_C_SOURCE,		/* C source for built in fonts */
104 	VT_C_COMPRESSED		/* C source with compressed font data */
105 };
106 
107 struct whitelist {
108 	uint32_t c;
109 	uint32_t len;
110 };
111 
112 /*
113  * Compressed font glyph list. To be used with boot loader, we need to have
114  * ascii set and box drawing chars.
115  */
116 static struct whitelist c_list[] = {
117 	{ .c = 0, .len = 0 },		/* default char */
118 	{ .c = 0x20, .len = 0x5f },
119 	{ .c = 0x2500, .len = 0 },	/* single frame */
120 	{ .c = 0x2502, .len = 0 },
121 	{ .c = 0x250c, .len = 0 },
122 	{ .c = 0x2510, .len = 0 },
123 	{ .c = 0x2514, .len = 0 },
124 	{ .c = 0x2518, .len = 0 },
125 	{ .c = 0x2550, .len = 1 },	/* double frame */
126 	{ .c = 0x2554, .len = 0 },
127 	{ .c = 0x2557, .len = 0 },
128 	{ .c = 0x255a, .len = 0 },
129 	{ .c = 0x255d, .len = 0 },
130 };
131 
132 /*
133  * Uncompressed source. For x86 we need cp437 so the vga text mode
134  * can program font into the vga card.
135  */
136 static struct whitelist s_list[] = {
137 	{ .c = 0, .len = 0 },		/* default char */
138 	{ .c = 0x20, .len = 0x5f },	/* ascii set */
139 	{ .c = 0xA0, .len = 0x5f },	/* latin 1 */
140 	{ .c = 0x0192, .len = 0 },
141 	{ .c = 0x0332, .len = 0 },	/* composing lower line */
142 	{ .c = 0x0393, .len = 0 },
143 	{ .c = 0x0398, .len = 0 },
144 	{ .c = 0x03A3, .len = 0 },
145 	{ .c = 0x03A6, .len = 0 },
146 	{ .c = 0x03A9, .len = 0 },
147 	{ .c = 0x03B1, .len = 1 },
148 	{ .c = 0x03B4, .len = 0 },
149 	{ .c = 0x03C0, .len = 0 },
150 	{ .c = 0x03C3, .len = 0 },
151 	{ .c = 0x03C4, .len = 0 },
152 	{ .c = 0x207F, .len = 0 },
153 	{ .c = 0x20A7, .len = 0 },
154 	{ .c = 0x2205, .len = 0 },
155 	{ .c = 0x220A, .len = 0 },
156 	{ .c = 0x2219, .len = 1 },
157 	{ .c = 0x221E, .len = 0 },
158 	{ .c = 0x2229, .len = 0 },
159 	{ .c = 0x2248, .len = 0 },
160 	{ .c = 0x2261, .len = 0 },
161 	{ .c = 0x2264, .len = 1 },
162 	{ .c = 0x2310, .len = 0 },
163 	{ .c = 0x2320, .len = 1 },
164 	{ .c = 0x2500, .len = 0 },
165 	{ .c = 0x2502, .len = 0 },
166 	{ .c = 0x250C, .len = 0 },
167 	{ .c = 0x2510, .len = 0 },
168 	{ .c = 0x2514, .len = 0 },
169 	{ .c = 0x2518, .len = 0 },
170 	{ .c = 0x251C, .len = 0 },
171 	{ .c = 0x2524, .len = 0 },
172 	{ .c = 0x252C, .len = 0 },
173 	{ .c = 0x2534, .len = 0 },
174 	{ .c = 0x253C, .len = 0 },
175 	{ .c = 0x2550, .len = 0x1c },
176 	{ .c = 0x2580, .len = 0 },
177 	{ .c = 0x2584, .len = 0 },
178 	{ .c = 0x2588, .len = 0 },
179 	{ .c = 0x258C, .len = 0 },
180 	{ .c = 0x2590, .len = 3 },
181 	{ .c = 0x25A0, .len = 0 },
182 };
183 
184 bool filter = true;
185 enum output_format format = VT_FONT;
186 /* Type for write callback. */
187 typedef size_t (*vt_write)(const void *, size_t, size_t, FILE *);
188 uint8_t *uncompressed;
189 
190 static void
usage(void)191 usage(void)
192 {
193 
194 	(void) fprintf(stderr, "usage:\tvtfontcvt "
195 	    "[-n] [-f font|source|compressed-source] [-w width] "
196 	    "[-h height]\n\t[-v] -o outfile normal.bdf [bold.bdf]\n");
197 	exit(1);
198 }
199 
200 static void *
xmalloc(size_t size)201 xmalloc(size_t size)
202 {
203 	void *m;
204 
205 	if ((m = malloc(size)) == NULL)
206 		errx(1, "memory allocation failure");
207 	return (m);
208 }
209 
210 static int
add_mapping(struct glyph * gl,unsigned int c,unsigned int map_idx)211 add_mapping(struct glyph *gl, unsigned int c, unsigned int map_idx)
212 {
213 	struct mapping *mp, *v;
214 	struct mapping_list *ml;
215 
216 	mapping_total++;
217 
218 	mp = xmalloc(sizeof (*mp));
219 	mp->m_char = c;
220 	mp->m_glyph = gl;
221 	mp->m_length = 0;
222 
223 	ml = &maps[map_idx];
224 	if (TAILQ_LAST(ml, mapping_list) != NULL &&
225 	    TAILQ_LAST(ml, mapping_list)->m_char >= c) {
226 		TAILQ_FOREACH_REVERSE(v, ml, mapping_list, m_list) {
227 			if (v->m_char < c) {
228 				TAILQ_INSERT_AFTER(ml, v, mp, m_list);
229 				break;
230 			} else if (v->m_char == c)
231 				errx(1, "Bad ordering at character %u", c);
232 		}
233 	} else
234 		TAILQ_INSERT_TAIL(ml, mp, m_list);
235 
236 	map_count[map_idx]++;
237 	mapping_unique++;
238 
239 	return (0);
240 }
241 
242 static void
dedup_mapping(unsigned int map_idx)243 dedup_mapping(unsigned int map_idx)
244 {
245 	struct mapping *tmp, *mp_bold, *mp_normal;
246 	unsigned normal_map_idx = map_idx - VFNT_MAP_BOLD;
247 
248 	assert(map_idx == VFNT_MAP_BOLD || map_idx == VFNT_MAP_BOLD_RH);
249 	mp_normal = TAILQ_FIRST(&maps[normal_map_idx]);
250 	TAILQ_FOREACH_SAFE(mp_bold, &maps[map_idx], m_list, tmp) {
251 		while (mp_normal->m_char < mp_bold->m_char)
252 			mp_normal = TAILQ_NEXT(mp_normal, m_list);
253 		if (mp_bold->m_char != mp_normal->m_char)
254 			errx(1, "Character %u not in normal font!",
255 			    mp_bold->m_char);
256 		if (mp_bold->m_glyph != mp_normal->m_glyph)
257 			continue;
258 
259 		/* No mapping is needed if it's equal to the normal mapping. */
260 		TAILQ_REMOVE(&maps[map_idx], mp_bold, m_list);
261 		free(mp_bold);
262 		mapping_dupe++;
263 	}
264 }
265 
266 static struct glyph *
add_glyph(const uint8_t * bytes,unsigned int map_idx,int fallback)267 add_glyph(const uint8_t *bytes, unsigned int map_idx, int fallback)
268 {
269 	struct glyph *gl;
270 	int hash;
271 
272 	glyph_total++;
273 	glyph_count[map_idx]++;
274 
275 	hash = fnv_32_buf(bytes, wbytes * height, FNV1_32_INIT) % FONTCVT_NHASH;
276 	SLIST_FOREACH(gl, &glyph_hash[hash], g_hash) {
277 		if (memcmp(gl->g_data, bytes, wbytes * height) == 0) {
278 			glyph_dupe++;
279 			return (gl);
280 		}
281 	}
282 
283 	gl = xmalloc(sizeof (*gl));
284 	gl->g_data = xmalloc(wbytes * height);
285 	memcpy(gl->g_data, bytes, wbytes * height);
286 	if (fallback)
287 		TAILQ_INSERT_HEAD(&glyphs[map_idx], gl, g_list);
288 	else
289 		TAILQ_INSERT_TAIL(&glyphs[map_idx], gl, g_list);
290 	SLIST_INSERT_HEAD(&glyph_hash[hash], gl, g_hash);
291 
292 	glyph_unique++;
293 	return (gl);
294 }
295 
296 static bool
check_whitelist(unsigned c)297 check_whitelist(unsigned c)
298 {
299 	struct whitelist *w = NULL;
300 	int i, n = 0;
301 
302 	if (filter == false)
303 		return (true);
304 
305 	if (format == VT_C_SOURCE) {
306 		w = s_list;
307 		n = sizeof (s_list) / sizeof (s_list[0]);
308 	}
309 	if (format == VT_C_COMPRESSED) {
310 		w = c_list;
311 		n = sizeof (c_list) / sizeof (c_list[0]);
312 	}
313 	if (w == NULL)
314 		return (true);
315 	for (i = 0; i < n; i++) {
316 		if (c >= w[i].c && c <= w[i].c + w[i].len)
317 			return (true);
318 	}
319 	return (false);
320 }
321 
322 static int
add_char(unsigned curchar,unsigned map_idx,uint8_t * bytes,uint8_t * bytes_r)323 add_char(unsigned curchar, unsigned map_idx, uint8_t *bytes, uint8_t *bytes_r)
324 {
325 	struct glyph *gl;
326 
327 	/* Prevent adding two glyphs for default_char */
328 	if (curchar == default_char) {
329 		if (map_idx < VFNT_MAP_BOLD)
330 			gl = add_glyph(bytes, 0, 1);
331 	} else if (filter == false || curchar >= 0x20) {
332 		gl = add_glyph(bytes, map_idx, 0);
333 		if (add_mapping(gl, curchar, map_idx) != 0)
334 			return (1);
335 		if (bytes_r != NULL) {
336 			gl = add_glyph(bytes_r, map_idx + 1, 0);
337 			if (add_mapping(gl, curchar,
338 			    map_idx + 1) != 0)
339 				return (1);
340 		}
341 	}
342 	return (0);
343 }
344 
345 
346 static int
parse_bitmap_line(uint8_t * left,uint8_t * right,unsigned int line,unsigned int dwidth)347 parse_bitmap_line(uint8_t *left, uint8_t *right, unsigned int line,
348     unsigned int dwidth)
349 {
350 	uint8_t *p;
351 	unsigned int i, subline;
352 
353 	if (dwidth != width && dwidth != width * 2)
354 		errx(1, "Bitmap with unsupported width %u!", dwidth);
355 
356 	/* Move pixel data right to simplify splitting double characters. */
357 	line >>= (howmany(dwidth, 8) * 8) - dwidth;
358 
359 	for (i = dwidth / width; i > 0; i--) {
360 		p = (i == 2) ? right : left;
361 
362 		subline = line & ((1 << width) - 1);
363 		subline <<= (howmany(width, 8) * 8) - width;
364 
365 		if (wbytes == 1) {
366 			*p = subline;
367 		} else if (wbytes == 2) {
368 			*p++ = subline >> 8;
369 			*p = subline;
370 		} else {
371 			errx(1, "Unsupported wbytes %u!", wbytes);
372 		}
373 
374 		line >>= width;
375 	}
376 
377 	return (0);
378 }
379 
380 static int
parse_bdf(FILE * fp,unsigned int map_idx)381 parse_bdf(FILE *fp, unsigned int map_idx)
382 {
383 	char ln[BUFSIZ];
384 	uint8_t bytes[wbytes * height], bytes_r[wbytes * height];
385 	unsigned int curchar = 0, dwidth = 0, i, line;
386 
387 	memset(bytes, 0, sizeof (bytes));
388 	memset(bytes_r, 0, sizeof (bytes_r));
389 
390 	while (fgets(ln, sizeof (ln), fp) != NULL) {
391 		if (sscanf(ln, "ENCODING %u", &curchar) == 1)
392 			continue;
393 
394 		if (sscanf(ln, "DWIDTH %u", &dwidth) == 1)
395 			continue;
396 
397 		if (strncmp(ln, "BITMAP", 6) == 0) {
398 			for (i = 0; i < height; i++) {
399 				if (fgets(ln, sizeof (ln), fp) == NULL)
400 					errx(1, "Unexpected EOF!");
401 				if (sscanf(ln, "%x", &line) <= 0)
402 					err(1, "sscanf failed at %s", ln);
403 				if (parse_bitmap_line(bytes + i * wbytes,
404 				    bytes_r + i * wbytes, line, dwidth) != 0)
405 					return (1);
406 			}
407 
408 			if (check_whitelist(curchar) == true) {
409 				if (add_char(curchar, map_idx, bytes,
410 				    dwidth == width * 2 ? bytes_r : NULL) != 0)
411 					return (1);
412 			}
413 		}
414 	}
415 
416 	return (0);
417 }
418 
419 static void
set_width(int w)420 set_width(int w)
421 {
422 
423 	if (w <= 0 || w > 128)
424 		errx(1, "invalid width %d", w);
425 	width = w;
426 	wbytes = howmany(width, 8);
427 }
428 
429 static int
parse_hex(FILE * fp,unsigned int map_idx)430 parse_hex(FILE *fp, unsigned int map_idx)
431 {
432 	char ln[BUFSIZ], *p;
433 	char fmt_str[8];
434 	uint8_t *bytes = NULL, *bytes_r = NULL;
435 	unsigned curchar = 0, i, line, chars_per_row, dwidth;
436 	int rv = 0;
437 
438 	while (fgets(ln, sizeof (ln), fp) != NULL) {
439 		if (strncmp(ln, "# Height: ", 10) == 0) {
440 			if (bytes != NULL) {
441 				errx(1, "malformed input: Height tag after "
442 				    "font data");
443 			}
444 			height = atoi(ln + 10);
445 		} else if (strncmp(ln, "# Width: ", 9) == 0) {
446 			if (bytes != NULL) {
447 				errx(1, "malformed input: Width tag after "
448 				    "font data");
449 			}
450 			set_width(atoi(ln + 9));
451 		} else if (sscanf(ln, "%6x:", &curchar)) {
452 			if (bytes == NULL) {
453 				bytes = xmalloc(wbytes * height);
454 				bytes_r = xmalloc(wbytes * height);
455 			}
456 			/* ln is guaranteed to have a colon here. */
457 			p = strchr(ln, ':') + 1;
458 			chars_per_row = strlen(p) / height;
459 			dwidth = width;
460 			if (chars_per_row / 2 > (width + 7) / 8)
461 				dwidth *= 2; /* Double-width character. */
462 			(void) snprintf(fmt_str, sizeof (fmt_str), "%%%ux",
463 			    chars_per_row);
464 
465 			for (i = 0; i < height; i++) {
466 				(void) sscanf(p, fmt_str, &line);
467 				p += chars_per_row;
468 				if (parse_bitmap_line(bytes + i * wbytes,
469 				    bytes_r + i * wbytes, line, dwidth) != 0) {
470 					rv = 1;
471 					goto out;
472 				}
473 			}
474 
475 			if (add_char(curchar, map_idx, bytes,
476 			    dwidth == width * 2 ? bytes_r : NULL) != 0) {
477 				rv = 1;
478 				goto out;
479 			}
480 		}
481 	}
482 out:
483 	free(bytes);
484 	free(bytes_r);
485 	return (rv);
486 }
487 
488 /* Read BDF header and set the font data. */
489 static int
parse_bdf_header(FILE * fp)490 parse_bdf_header(FILE *fp)
491 {
492 	char ln[BUFSIZ];
493 	char spacing = '\0';	/* Should we assume C if not specified? */
494 	int ret;
495 
496 	while (fgets(ln, sizeof (ln), fp) != NULL) {
497 		ret = sscanf(ln, "FONTBOUNDINGBOX %u %u %d %d",
498 		    &bbox.width, &bbox.height, &bbox.x, &bbox.y);
499 		if (ret == 4)
500 			continue;
501 		ret = sscanf(ln, "FONT_ASCENT %u", &font_ascent);
502 		if (ret == 1)
503 			continue;
504 		ret = sscanf(ln, "FONT_DESCENT %u", &font_descent);
505 		if (ret == 1)
506 			continue;
507 		ret = sscanf(ln, "DEFAULT_CHAR %u", &default_char);
508 		if (ret == 1) {
509 			c_list[0].c = default_char;
510 			s_list[0].c = default_char;
511 			continue;
512 		}
513 		ret = sscanf(ln, "SPACING \"%c\"", &spacing);
514 		if (ret == 1)
515 			continue;
516 		if (strncmp("ENDPROPERTIES", ln, 13) == 0)
517 			break;
518 	}
519 	if (spacing != 'C') {
520 		printf("Spacing '%c' is not supported\n", spacing);
521 		return (1);
522 	}
523 	if (bbox.width == 0)
524 		bbox.width = width;
525 	set_width(bbox.width);
526 
527 	if (bbox.height == 0)
528 		bbox.height = height;
529 	height = bbox.height;
530 	return (0);
531 }
532 
533 static int
parse_file(const char * filename,unsigned int map_idx)534 parse_file(const char *filename, unsigned int map_idx)
535 {
536 	FILE *fp;
537 	size_t len;
538 	int rv;
539 
540 	fp = fopen(filename, "r");
541 	if (fp == NULL) {
542 		perror(filename);
543 		return (1);
544 	}
545 	len = strlen(filename);
546 	if (len > 4 && strcasecmp(filename + len - 4, ".hex") == 0) {
547 		rv = parse_hex(fp, map_idx);
548 	} else {
549 		if ((rv = parse_bdf_header(fp)) == 0)
550 			rv = parse_bdf(fp, map_idx);
551 	}
552 	(void) fclose(fp);
553 	return (rv);
554 }
555 
556 static void
number_glyphs(void)557 number_glyphs(void)
558 {
559 	struct glyph *gl;
560 	unsigned int i, idx = 0;
561 
562 	for (i = 0; i < VFNT_MAPS; i++)
563 		TAILQ_FOREACH(gl, &glyphs[i], g_list)
564 			gl->g_index = idx++;
565 }
566 
567 /* Note we only deal with byte stream here. */
568 static size_t
write_glyph_source(const void * ptr,size_t size,size_t nitems,FILE * stream)569 write_glyph_source(const void *ptr, size_t size, size_t nitems, FILE *stream)
570 {
571 	const uint8_t *data = ptr;
572 	size_t i;
573 
574 	size *= nitems;
575 	for (i = 0; i < size; i++) {
576 		if ((i % wbytes) == 0) {
577 			if (fprintf(stream, "\n") < 0)
578 				return (0);
579 		}
580 		if (fprintf(stream, "0x%02x, ", data[i]) < 0)
581 			return (0);
582 	}
583 	if (fprintf(stream, "\n") < 0)
584 		nitems = 0;
585 
586 	return (nitems);
587 }
588 
589 /* Write to buffer */
590 static size_t
write_glyph_buf(const void * ptr,size_t size,size_t nitems,FILE * stream __unused)591 write_glyph_buf(const void *ptr, size_t size, size_t nitems,
592     FILE *stream __unused)
593 {
594 	static size_t index = 0;
595 
596 	size *= nitems;
597 	(void) memmove(uncompressed + index, ptr, size);
598 	index += size;
599 
600 	return (nitems);
601 }
602 
603 static int
write_glyphs(FILE * fp,vt_write cb)604 write_glyphs(FILE *fp, vt_write cb)
605 {
606 	struct glyph *gl;
607 	unsigned int i;
608 
609 	for (i = 0; i < VFNT_MAPS; i++) {
610 		TAILQ_FOREACH(gl, &glyphs[i], g_list)
611 			if (cb(gl->g_data, wbytes * height, 1, fp) != 1)
612 				return (1);
613 	}
614 	return (0);
615 }
616 
617 static void
fold_mappings(unsigned int map_idx)618 fold_mappings(unsigned int map_idx)
619 {
620 	struct mapping_list *ml = &maps[map_idx];
621 	struct mapping *mn, *mp, *mbase;
622 
623 	mp = mbase = TAILQ_FIRST(ml);
624 	for (mp = mbase = TAILQ_FIRST(ml); mp != NULL; mp = mn) {
625 		mn = TAILQ_NEXT(mp, m_list);
626 		if (mn != NULL && mn->m_char == mp->m_char + 1 &&
627 		    mn->m_glyph->g_index == mp->m_glyph->g_index + 1)
628 			continue;
629 		mbase->m_length = mp->m_char - mbase->m_char + 1;
630 		mbase = mp = mn;
631 		map_folded_count[map_idx]++;
632 	}
633 }
634 
635 struct file_mapping {
636 	uint32_t	source;
637 	uint16_t	destination;
638 	uint16_t	length;
639 } __attribute__((packed));
640 
641 static int
write_mappings(FILE * fp,unsigned int map_idx)642 write_mappings(FILE *fp, unsigned int map_idx)
643 {
644 	struct mapping_list *ml = &maps[map_idx];
645 	struct mapping *mp;
646 	struct file_mapping fm;
647 	unsigned int i = 0, j = 0;
648 
649 	TAILQ_FOREACH(mp, ml, m_list) {
650 		j++;
651 		if (mp->m_length > 0) {
652 			i += mp->m_length;
653 			fm.source = htobe32(mp->m_char);
654 			fm.destination = htobe16(mp->m_glyph->g_index);
655 			fm.length = htobe16(mp->m_length - 1);
656 			if (fwrite(&fm, sizeof (fm), 1, fp) != 1)
657 				return (1);
658 		}
659 	}
660 	assert(i == j);
661 	return (0);
662 }
663 
664 static int
write_source_mappings(FILE * fp,unsigned int map_idx)665 write_source_mappings(FILE *fp, unsigned int map_idx)
666 {
667 	struct mapping_list *ml = &maps[map_idx];
668 	struct mapping *mp;
669 	unsigned int i = 0, j = 0;
670 
671 	TAILQ_FOREACH(mp, ml, m_list) {
672 		j++;
673 		if (mp->m_length > 0) {
674 			i += mp->m_length;
675 			if (fprintf(fp, "\t{ 0x%08x, 0x%04x, 0x%04x },\n",
676 			    mp->m_char, mp->m_glyph->g_index,
677 			    mp->m_length - 1) < 0)
678 				return (1);
679 		}
680 	}
681 	assert(i == j);
682 	return (0);
683 }
684 
685 struct file_header {
686 	uint8_t		magic[8];
687 	uint8_t		width;
688 	uint8_t		height;
689 	uint16_t	pad;
690 	uint32_t	glyph_count;
691 	uint32_t	map_count[4];
692 } __attribute__((packed));
693 
694 static int
write_fnt(const char * filename)695 write_fnt(const char *filename)
696 {
697 	FILE *fp;
698 	struct file_header fh = {
699 		.magic = "VFNT0002",
700 	};
701 
702 	fp = fopen(filename, "wb");
703 	if (fp == NULL) {
704 		perror(filename);
705 		return (1);
706 	}
707 
708 	fh.width = width;
709 	fh.height = height;
710 	fh.glyph_count = htobe32(glyph_unique);
711 	fh.map_count[0] = htobe32(map_folded_count[0]);
712 	fh.map_count[1] = htobe32(map_folded_count[1]);
713 	fh.map_count[2] = htobe32(map_folded_count[2]);
714 	fh.map_count[3] = htobe32(map_folded_count[3]);
715 	if (fwrite(&fh, sizeof (fh), 1, fp) != 1) {
716 		perror(filename);
717 		(void) fclose(fp);
718 		return (1);
719 	}
720 
721 	if (write_glyphs(fp, &fwrite) != 0 ||
722 	    write_mappings(fp, VFNT_MAP_NORMAL) != 0 ||
723 	    write_mappings(fp, 1) != 0 ||
724 	    write_mappings(fp, VFNT_MAP_BOLD) != 0 ||
725 	    write_mappings(fp, 3) != 0) {
726 		perror(filename);
727 		(void) fclose(fp);
728 		return (1);
729 	}
730 
731 	(void) fclose(fp);
732 	return (0);
733 }
734 
735 static int
write_fnt_source(bool lz4,const char * filename)736 write_fnt_source(bool lz4, const char *filename)
737 {
738 	FILE *fp;
739 	int rv = 1;
740 	size_t uncompressed_size = wbytes * height * glyph_unique;
741 	size_t compressed_size = uncompressed_size;
742 	uint8_t *compressed = NULL;
743 
744 	fp = fopen(filename, "w");
745 	if (fp == NULL) {
746 		perror(filename);
747 		return (1);
748 	}
749 
750 	if (lz4 == true) {
751 		uncompressed = xmalloc(uncompressed_size);
752 		compressed = xmalloc(uncompressed_size);
753 	}
754 	if (fprintf(fp, "/* Generated %ux%u console font source. */\n\n",
755 	    width, height) < 0)
756 		goto done;
757 	if (fprintf(fp, "#include <sys/types.h>\n") < 0)
758 		goto done;
759 	if (fprintf(fp, "#include <sys/param.h>\n") < 0)
760 		goto done;
761 	if (fprintf(fp, "#include <sys/font.h>\n\n") < 0)
762 		goto done;
763 
764 	/* Write font bytes. */
765 	if (fprintf(fp, "static uint8_t FONTDATA_%ux%u[] = {\n",
766 	    width, height) < 0)
767 		goto done;
768 	if (lz4 == true) {
769 		if (write_glyphs(fp, &write_glyph_buf) != 0)
770 			goto done;
771 		compressed_size = lz4_compress(uncompressed, compressed,
772 		    uncompressed_size, compressed_size, 0);
773 		if (write_glyph_source(compressed, compressed_size, 1, fp) != 1)
774 			goto done;
775 		free(uncompressed);
776 		free(compressed);
777 	} else {
778 		if (write_glyphs(fp, &write_glyph_source) != 0)
779 			goto done;
780 	}
781 	if (fprintf(fp, "};\n\n") < 0)
782 		goto done;
783 
784 	/* Write font maps. */
785 	if (!TAILQ_EMPTY(&maps[VFNT_MAP_NORMAL])) {
786 		if (fprintf(fp, "static struct font_map "
787 		    "FONTMAP_NORMAL_%ux%u[] = {\n", width, height) < 0)
788 			goto done;
789 		if (write_source_mappings(fp, VFNT_MAP_NORMAL) != 0)
790 			goto done;
791 		if (fprintf(fp, "};\n\n") < 0)
792 			goto done;
793 	}
794 	if (!TAILQ_EMPTY(&maps[VFNT_MAP_NORMAL_RH])) {
795 		if (fprintf(fp, "static struct font_map "
796 		    "FONTMAP_NORMAL_RH_%ux%u[] = {\n", width, height) < 0)
797 			goto done;
798 		if (write_source_mappings(fp, VFNT_MAP_NORMAL_RH) != 0)
799 			goto done;
800 		if (fprintf(fp, "};\n\n") < 0)
801 			goto done;
802 	}
803 	if (!TAILQ_EMPTY(&maps[VFNT_MAP_BOLD])) {
804 		if (fprintf(fp, "static struct font_map "
805 		    "FONTMAP_BOLD_%ux%u[] = {\n", width, height) < 0)
806 			goto done;
807 		if (write_source_mappings(fp, VFNT_MAP_BOLD) != 0)
808 			goto done;
809 		if (fprintf(fp, "};\n\n") < 0)
810 			goto done;
811 	}
812 	if (!TAILQ_EMPTY(&maps[VFNT_MAP_BOLD_RH])) {
813 		if (fprintf(fp, "static struct font_map "
814 		    "FONTMAP_BOLD_RH_%ux%u[] = {\n", width, height) < 0)
815 			goto done;
816 		if (write_source_mappings(fp, VFNT_MAP_BOLD_RH) != 0)
817 			goto done;
818 		if (fprintf(fp, "};\n\n") < 0)
819 			goto done;
820 	}
821 
822 	/* Write struct font. */
823 	if (fprintf(fp, "struct font font_%ux%u = {\n",
824 	    width, height) < 0)
825 		goto done;
826 	if (fprintf(fp, "\t.vf_map\t= {\n") < 0)
827 		goto done;
828 	if (TAILQ_EMPTY(&maps[VFNT_MAP_NORMAL])) {
829 		if (fprintf(fp, "\t\t\tNULL,\n") < 0)
830 			goto done;
831 	} else {
832 		if (fprintf(fp, "\t\t\tFONTMAP_NORMAL_%ux%u,\n",
833 		    width, height) < 0)
834 			goto done;
835 	}
836 	if (TAILQ_EMPTY(&maps[VFNT_MAP_NORMAL_RH])) {
837 		if (fprintf(fp, "\t\t\tNULL,\n") < 0)
838 			goto done;
839 	} else {
840 		if (fprintf(fp, "\t\t\tFONTMAP_NORMAL_RH_%ux%u,\n",
841 		    width, height) < 0)
842 			goto done;
843 	}
844 	if (TAILQ_EMPTY(&maps[VFNT_MAP_BOLD])) {
845 		if (fprintf(fp, "\t\t\tNULL,\n") < 0)
846 			goto done;
847 	} else {
848 		if (fprintf(fp, "\t\t\tFONTMAP_BOLD_%ux%u,\n",
849 		    width, height) < 0)
850 			goto done;
851 	}
852 	if (TAILQ_EMPTY(&maps[VFNT_MAP_BOLD_RH])) {
853 		if (fprintf(fp, "\t\t\tNULL\n") < 0)
854 			goto done;
855 	} else {
856 		if (fprintf(fp, "\t\t\tFONTMAP_BOLD_RH_%ux%u\n",
857 		    width, height) < 0)
858 			goto done;
859 	}
860 	if (fprintf(fp, "\t\t},\n") < 0)
861 		goto done;
862 	if (lz4 == true) {
863 		if (fprintf(fp, "\t.vf_bytes\t= NULL,\n") < 0)
864 			goto done;
865 	} else {
866 		if (fprintf(fp, "\t.vf_bytes\t= FONTDATA_%ux%u,\n",
867 		    width, height) < 0) {
868 			goto done;
869 		}
870 	}
871 	if (fprintf(fp, "\t.vf_width\t= %u,\n", width) < 0)
872 		goto done;
873 	if (fprintf(fp, "\t.vf_height\t= %u,\n", height) < 0)
874 		goto done;
875 	if (fprintf(fp, "\t.vf_map_count\t= { %u, %u, %u, %u }\n",
876 	    map_folded_count[0], map_folded_count[1], map_folded_count[2],
877 	    map_folded_count[3]) < 0) {
878 		goto done;
879 	}
880 	if (fprintf(fp, "};\n\n") < 0)
881 		goto done;
882 
883 	/* Write bitmap data. */
884 	if (fprintf(fp, "bitmap_data_t font_data_%ux%u = {\n",
885 	    width, height) < 0)
886 		goto done;
887 	if (fprintf(fp, "\t.width\t= %u,\n", width) < 0)
888 		goto done;
889 	if (fprintf(fp, "\t.height\t= %u,\n", height) < 0)
890 		goto done;
891 	if (lz4 == true) {
892 		if (fprintf(fp, "\t.compressed_size\t= %u,\n",
893 		    compressed_size) < 0) {
894 			goto done;
895 		}
896 		if (fprintf(fp, "\t.uncompressed_size\t= %u,\n",
897 		    uncompressed_size) < 0) {
898 			goto done;
899 		}
900 		if (fprintf(fp, "\t.compressed_data\t= FONTDATA_%ux%u,\n",
901 		    width, height) < 0) {
902 			goto done;
903 		}
904 	} else {
905 		if (fprintf(fp, "\t.compressed_size\t= 0,\n") < 0)
906 			goto done;
907 		if (fprintf(fp, "\t.uncompressed_size\t= %u,\n",
908 		    uncompressed_size) < 0) {
909 			goto done;
910 		}
911 		if (fprintf(fp, "\t.compressed_data\t= NULL,\n") < 0)
912 			goto done;
913 	}
914 	if (fprintf(fp, "\t.font = &font_%ux%u\n", width, height) < 0)
915 		goto done;
916 	if (fprintf(fp, "};\n") < 0)
917 		goto done;
918 
919 	rv = 0;
920 done:
921 	if (rv != 0)
922 		perror(filename);
923 	(void) fclose(fp);
924 	return (0);
925 }
926 
927 static void
print_font_info(void)928 print_font_info(void)
929 {
930 	printf(
931 "Statistics:\n"
932 "- glyph_total:                 %6u\n"
933 "- glyph_normal:                %6u\n"
934 "- glyph_normal_right:          %6u\n"
935 "- glyph_bold:                  %6u\n"
936 "- glyph_bold_right:            %6u\n"
937 "- glyph_unique:                %6u\n"
938 "- glyph_dupe:                  %6u\n"
939 "- mapping_total:               %6u\n"
940 "- mapping_normal:              %6u\n"
941 "- mapping_normal_folded:       %6u\n"
942 "- mapping_normal_right:        %6u\n"
943 "- mapping_normal_right_folded: %6u\n"
944 "- mapping_bold:                %6u\n"
945 "- mapping_bold_folded:         %6u\n"
946 "- mapping_bold_right:          %6u\n"
947 "- mapping_bold_right_folded:   %6u\n"
948 "- mapping_unique:              %6u\n"
949 "- mapping_dupe:                %6u\n",
950 	    glyph_total,
951 	    glyph_count[0],
952 	    glyph_count[1],
953 	    glyph_count[2],
954 	    glyph_count[3],
955 	    glyph_unique, glyph_dupe,
956 	    mapping_total,
957 	    map_count[0], map_folded_count[0],
958 	    map_count[1], map_folded_count[1],
959 	    map_count[2], map_folded_count[2],
960 	    map_count[3], map_folded_count[3],
961 	    mapping_unique, mapping_dupe);
962 }
963 
964 int
main(int argc,char * argv[])965 main(int argc, char *argv[])
966 {
967 	int ch, val, verbose = 0, rv = 0;
968 	char *outfile = NULL;
969 
970 	assert(sizeof (struct file_header) == 32);
971 	assert(sizeof (struct file_mapping) == 8);
972 
973 	while ((ch = getopt(argc, argv, "nf:h:vw:o:")) != -1) {
974 		switch (ch) {
975 		case 'f':
976 			if (strcmp(optarg, "font") == 0)
977 				format = VT_FONT;
978 			else if (strcmp(optarg, "source") == 0)
979 				format = VT_C_SOURCE;
980 			else if (strcmp(optarg, "compressed-source") == 0)
981 				format = VT_C_COMPRESSED;
982 			else
983 				errx(1, "Invalid format: %s", optarg);
984 			break;
985 		case 'h':
986 			val = atoi(optarg);
987 			if (val <= 0 || val > 128)
988 				errx(1, "Invalid height %d", val);
989 			height = val;
990 			break;
991 		case 'n':
992 			filter = false;
993 			break;
994 		case 'o':
995 			outfile = optarg;
996 			break;
997 		case 'v':
998 			verbose = 1;
999 			break;
1000 		case 'w':
1001 			set_width(atoi(optarg));
1002 			break;
1003 		case '?':
1004 		default:
1005 			usage();
1006 		}
1007 	}
1008 	argc -= optind;
1009 	argv += optind;
1010 
1011 	if (outfile == NULL || argc < 1 || argc > 2)
1012 		usage();
1013 
1014 	wbytes = howmany(width, 8);
1015 
1016 	if (parse_file(argv[0], VFNT_MAP_NORMAL) != 0)
1017 		return (1);
1018 	argc--;
1019 	argv++;
1020 	if (argc == 1) {
1021 		if (parse_file(argv[0], VFNT_MAP_BOLD) != 0)
1022 			return (1);
1023 		argc--;
1024 		argv++;
1025 	}
1026 	number_glyphs();
1027 	dedup_mapping(VFNT_MAP_BOLD);
1028 	dedup_mapping(VFNT_MAP_BOLD_RH);
1029 	fold_mappings(0);
1030 	fold_mappings(1);
1031 	fold_mappings(2);
1032 	fold_mappings(3);
1033 
1034 	switch (format) {
1035 	case VT_FONT:
1036 		rv = write_fnt(outfile);
1037 		break;
1038 	case VT_C_SOURCE:
1039 		rv = write_fnt_source(false, outfile);
1040 		break;
1041 	case VT_C_COMPRESSED:
1042 		rv = write_fnt_source(true, outfile);
1043 		break;
1044 	}
1045 
1046 	if (verbose)
1047 		print_font_info();
1048 
1049 	return (rv);
1050 }
1051