#include <u.h>
#include <libc.h>
#include <draw.h>

static char	*lastname;
Subfont	*lastsubfont;

Subfont*
lookupsubfont(Display *d, char *name)
{
	if(d && strcmp(name, "*default*") == 0)
		return d->defaultsubfont;
	if(lastname && strcmp(name, lastname)==0)
	if(d==lastsubfont->bits->display){
		lastsubfont->ref++;
		return lastsubfont;
	}
	return 0;
}

void
installsubfont(char *name, Subfont *subfont)
{
//	print("installsubfont %s\n", name);
	free(lastname);
	lastname = strdup(name);
	lastsubfont = subfont;	/* notice we don't free the old one; that's your business */
}

void
uninstallsubfont(Subfont *subfont)
{
	if(subfont == lastsubfont){
		lastname = 0;
		lastsubfont = 0;
	}
}

void
usage(void)
{
	fprint(2, "font [-f font] [chars]\n");
	exits("usage");
}

void
dumplast(Font *font, Subfont *sf, Rune r)
{
	int i, n;
	Cachefont *cf;
	Fontchar *fc;

	cf = nil;
	for(i = 0; i < font->nsubf; i++){
		cf = font->subf->cf;
		if(r >= cf->min && r <= cf->max)
			break;
	}
	if(font->nsubf == 0 || i == font->nsubf)
		sysfatal("rune %.6x not cached", r);
	n = r - cf->min;
	if(n > sf->n)
		sysfatal("subfont too small %d > %d", n, sf->n);
	fc = sf->info + n;

	print("	Fontchar\tx %d top %d bottom %d left %d width %d\n",
		fc->x, fc->top, fc->bottom, fc->left, fc->width);
}

void
main(int argc, char **argv)
{
	char *s, *sfname, buf[UTFmax+1];
	int i, j, n;
	Rune r;
	Cacheinfo c;
	Font *font;

	s = getenv("font");
	font = nil;
	ARGBEGIN{
	case 'f':
		s = EARGF(usage());
		break;
	default:
		usage();
	}ARGEND
	if(s == nil || (font = openfont(nil, s)) == nil)
		sysfatal("no/bad font");

	for(i = 0; i < argc; i++)
		for(j = 0;; j += n){
			n = chartorune(&r, argv[i] + j);
			if(r == 0)
				break;
			memset(&c, 0, sizeof c);
			snprint(buf, sizeof buf, "%C", r);
			stringwidth(font, buf);		/* force cache */
			if(loadchar(font, r, &c, 1, 0, &sfname) == -1)
				sysfatal("loadchar");
			if(sfname == nil)
				sfname = lastname;
			print("sfname %s \n", sfname);
			print("	Cacheinfo\tx %d w %d left %d v %.6ux\n",
				c.x, c.width, c.left, c.value);
			dumplast(font, lastsubfont, r);
		}
	exits("");
}