/*
 * This file is part of the UCB release of Plan 9. It is subject to the license
 * terms in the LICENSE file found in the top-level directory of this
 * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
 * part of the UCB release of Plan 9, including this file, may be copied,
 * modified, propagated, or distributed except according to the terms contained
 * in the LICENSE file.
 */

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

Memsubfont*
getmemdefont(void)
{
	char *hdr, *p;
	int n;
	Fontchar *fc;
	Memsubfont *f;
	int ld;
	Rectangle r;
	Memdata *md;
	Memimage *i;

	/*
	 * make sure data is word-aligned.  this is true with Plan 9 compilers
	 * but not in general.  the byte order is right because the data is
	 * declared as char*, not ulong*.
	 */
	p = (char*)defontdata;
	n = (uintptr_t)p & 3;
	if(n != 0){
		jehanne_memmove(p+(4-n), p, sizeofdefont-n);
		p += 4-n;
	}
	ld = jehanne_atoi(p+0*12);
	r.min.x = jehanne_atoi(p+1*12);
	r.min.y = jehanne_atoi(p+2*12);
	r.max.x = jehanne_atoi(p+3*12);
	r.max.y = jehanne_atoi(p+4*12);

	md = jehanne_mallocz(sizeof(Memdata), 1);
	if(md == nil)
		return nil;
	
	p += 5*12;

	md->base = nil;		/* so freememimage doesn't free p */
	md->bdata = (uint8_t*)p;	/* ick */
	md->ref = 1;
	md->allocd = 1;		/* so freememimage does free md */

	i = allocmemimaged(r, drawld2chan[ld], md);
	if(i == nil){
		jehanne_free(md);
		return nil;
	}

	hdr = p+Dy(r)*i->width*sizeof(uint32_t);
	n = jehanne_atoi(hdr);
	p = hdr+3*12;
	fc = jehanne_malloc(sizeof(Fontchar)*(n+1));
	if(fc == 0){
		freememimage(i);
		return 0;
	}
	_unpackinfo(fc, (uint8_t*)p, n);
	f = allocmemsubfont("*default*", n, jehanne_atoi(hdr+12), jehanne_atoi(hdr+24), fc, i);
	if(f == 0){
		freememimage(i);
		jehanne_free(fc);
		return 0;
	}
	return f;
}