#include <u.h>#include <libc.h>#include <bio.h>#include <ttf.h>#include "impl.h" intttffindchar(TTFont *fx, Rune r){	int i, j, k, rv;	TTChMap *p;	TTFontU *f; 	f = fx->u;	i = 0;	j = f->ncmap - 1;	if(r < f->cmap[0].start || r > f->cmap[j].end) return 0;	while(i < j){		k = (i + j) / 2;		if(f->cmap[k].end < r)			i = k+1;		else if(f->cmap[k].start > r)			j = k-1;		else			i = j = k;	}	if(i > j) return 0;	p = &f->cmap[i];	if(r < p->start || r > p->end) return 0;	if((p->flags & TTCINVALID) != 0) return 0;	if(p->tab != nil)		return p->tab[r - p->start];	rv = r + p->delta;	if((p->flags & TTCDELTA16) != 0)		rv = (u16int)rv;	return rv;} intttfenumchar(TTFont *fx, Rune r, Rune *rp){	int i, j, k, rv;	TTChMap *p;	TTFontU *f; 	f = fx->u;	i = 0;	j = f->ncmap - 1;	if(r > f->cmap[j].end) return 0;	while(i < j){		k = (i + j) / 2;		if(f->cmap[k].end < r)			i = k+1;		else if(f->cmap[k].start > r)			j = k-1;		else			i = j = k;	}	if(j < 0) j = 0;	for(p = &f->cmap[j]; p < &f->cmap[f->ncmap]; p++){		if((p->flags & TTCINVALID) != 0)			continue;		if(r < p->start)			r = p->start;		if(p->tab != nil){			SET(rv);			while(r <= p->end && (rv = p->tab[r - p->start], rv == 0))				r++;			if(r > p->end)				continue;			if(rp != nil)				*rp = r;			return rv;		}		while(r < p->end){			rv = r + p->delta;			if((p->flags & TTCDELTA16) != 0)				rv = (u16int) rv;			if(rv != 0){				if(rp != nil)					*rp = r;				return rv;			}		}	}	return 0;} static intttfgotosub(TTFontU *f){	int i;	u16int nsub, id, sid;	int rank, maxrank;	u32int maxoff, off;	#define SUBID(a,b) ((a)<<16|(b)) 	if(ttfgototable(f, "cmap") < 0)		return -1;	ttfunpack(f, ".. w", &nsub);	maxrank = 0;	maxoff = 0;	for(i = 0; i < nsub; i++){		ttfunpack(f, "wwl", &id, &sid, &off);		switch(id << 16 | sid){		case SUBID(0, 4): /* Unicode 2.0 or later (BMP and non-BMP) */			rank = 100;			break;		case SUBID(3, 10): /* Windows, UCS-4 */			rank = 80;			break;		case SUBID(0, 0): /* Unicode default */		case SUBID(0, 1): /* Unicode 1.1 */		case SUBID(0, 2): /* ISO 10646 */		case SUBID(0, 3): /* Unicode 2.0 (BMP) */			rank = 60;			break;		case SUBID(3, 1): /* Windows, UCS-2 */			rank = 40;			break;		case SUBID(3, 0): /* Windows, Symbol */			rank = 20;			break;		default:			rank = 0;			break;		}		if(rank > maxrank){			maxrank = rank;			maxoff = off;		}	}	if(maxrank == 0){		werrstr("no suitable character table");		return -1;	}	if(ttfgototable(f, "cmap") < 0)		return -1;	Bseek(f->bin, maxoff, 1);	return 0; } static intcmap0(TTFontU *f){	u16int len;	int i;	u8int *p;	int *q; 	ttfunpack(f, "w2", &len);	if(len < 262){		werrstr("character table too short");		return -1;	}	f->cmap = mallocz(sizeof(TTChMap), 1);	if(f->cmap == nil)		return -1;	f->ncmap = 1;	f->cmap->start = 0;	f->cmap->end = 0xff;	f->cmap->tab = mallocz(256 * sizeof(int), 1);	if(f->cmap->tab == nil)		return -1;	Bread(f->bin, f->cmap->tab, 256 * sizeof(int));	p = (u8int*)f->cmap->tab + 256;	q = f->cmap->tab + 256;	for(i = 255; i >= 0; i--)		*--q = *--p;	return 0;} static intcmap4(TTFontU *f){	u16int len, ncmap;	int i, j, n, n0, off;	u16int v;	u8int *buf; 	ttfunpack(f, "w2", &len);	if(len < 16){		werrstr("character table too short");		return -1;	}	ttfunpack(f, "w6", &ncmap);	ncmap /= 2;	if(len < 16 + 8 * ncmap){		werrstr("character table too short");		return -1;	}	f->cmap = mallocz(sizeof(TTChMap) * ncmap, 1);	if(f->cmap == nil) return -1;	f->ncmap = ncmap;	for(i = 0; i < ncmap; i++)		f->cmap[i].flags = TTCDELTA16;	for(i = 0; i < ncmap; i++)		ttfunpack(f, "W", &f->cmap[i].end);	ttfunpack(f, "..");	for(i = 0; i < ncmap; i++)		ttfunpack(f, "W", &f->cmap[i].start);	for(i = 0; i < ncmap; i++)		ttfunpack(f, "W", &f->cmap[i].delta);	for(i = 0; i < ncmap; i++)		ttfunpack(f, "W", &f->cmap[i].temp);	len -= 10 + 8 * ncmap;	buf = malloc(len);	if(buf == nil)		return -1;	Bread(f->bin, buf, len);	for(i = 0; i < ncmap; i++){		if(f->cmap[i].temp == 0) continue;		n0 = f->cmap[i].end - f->cmap[i].start + 1;		n = n0;		off = f->cmap[i].temp - (ncmap - i) * 2;		if(off + 2 * n > len) n = (len - off) / 2;		if(off < 0 || n <= 0){			f->cmap[i].flags |= TTCINVALID;			continue;		}		f->cmap[i].tab = mallocz(n0 * sizeof(int), 1);		if(f->cmap[i].tab == nil)			return -1;		for(j = 0; j < n; j++){			v = buf[off + 2*j] << 8 | buf[off + 2*j + 1];			if(v != 0) v += f->cmap[i].delta;			f->cmap[i].tab[j] = v;		}	}	free(buf);	return 0;} static intcmap6(TTFontU *f){	u16int len, first, cnt, v;	int *p;	u8int *q; 	ttfunpack(f, "w2", &len);	if(len < 12){		werrstr("character table too short");		return -1;	}	ttfunpack(f, "ww", &first, &cnt);	f->cmap = mallocz(sizeof(TTChMap), 1);	if(f->cmap == nil)		return -1;	f->ncmap = 1;	f->cmap->start = first;	f->cmap->end = first + len - 1;	f->cmap->tab = mallocz(cnt * sizeof(int), 1);	if(f->cmap->tab == nil)		return -1;	if(len < 10 + 2 * cnt){		werrstr("character table too short");		return -1;	}	Bread(f->bin, f->cmap->tab, 2 * cnt);	p = f->cmap->tab + cnt;	q = (u8int*) f->cmap->tab + 2 * cnt;	while(p > f->cmap->tab){		v = *--q;		v |= *--q << 8;		*--p = v;	}	return 0;} static intcmap12(TTFontU *f){	u32int len;	u32int ncmap;	int i;		ttfunpack(f, "2l4", &len);	if(len < 16){		werrstr("character table too short");		return -1;	}	ttfunpack(f, "l", &ncmap);	if(len < 16 + 12 * ncmap){		werrstr("character table too short");		return -1;	}	f->cmap = mallocz(sizeof(TTChMap) * ncmap, 1);	if(f->cmap == nil)		return -1;	f->ncmap = ncmap;	for(i = 0; i < ncmap; i++){		ttfunpack(f, "lll", &f->cmap[i].start, &f->cmap[i].end, &f->cmap[i].delta);		f->cmap[i].delta -= f->cmap[i].start;	}	return 0;} int (*cmaphand[])(TTFontU *) = {	[0] cmap0,	[4] cmap4,	[6] cmap6,	[12] cmap12,}; intttfparsecmap(TTFontU *f){	u16int format; 	if(ttfgotosub(f) < 0)		return -1;	ttfunpack(f, "w", &format);	if(format >= nelem(cmaphand) || cmaphand[format] == nil){		werrstr("character table in unknown format %d", format);		return -1;	}	if(cmaphand[format](f) < 0)		return -1;	return 0;}