Function PiuStyleLookupFont

modules/piu/MC/piuFont.c:213–352

#endif

void PiuStyleLookupFont(PiuStyle* self)
{
	xsMachine* the = (*self)->the;
	void* archive = NULL;
	PiuFontList* fontList;
	PiuFont* font = NULL;
	xsStringValue name;
	char path[256];
	void* buffer;
	size_t bufferSize;
	int32_t ascent, descent, leading;
	
	if ((*self)->archive) {
		xsResult = xsReference((*self)->archive);
		archive = xsGetHostData(xsResult);
	}
	xsResult = xsGet(xsGlobal, xsID_fonts);
	if (xsTest(xsResult)) {
		fontList = PIU(FontList, xsResult);
		font = (*fontList)->first;
		while (font) {
			if (((*font)->family == (*self)->family)
					&& ((*font)->size == (*self)->size)
					&& ((*font)->weight == (*self)->weight)
					&& ((*font)->flags == ((*self)->flags & piuStyleBits))) {
//				fprintf(stderr, "CACHE\n");
				(*self)->font = font;
				return;
			}
			font = (*font)->next;
		}
	}
	else {
		gCFEUseCount++;
		if (!gCFE)
			gCFE = CFENew();
		PiuFontListNew(the);
		xsSet(xsGlobal, xsID_fonts, xsResult);
		fontList = PIU(FontList, xsResult);
	}
	
	name = xsName((*self)->family);
	if (name)
		c_strcpy(path, name);
	else
		c_strcpy(path, "undefined");
	if (((*self)->flags & (piuStyleCondensedBit | piuStyleItalicBit)) || ((*self)->weight) || ((*self)->size)) {
		xsIntegerValue flag = 0;
		c_strcat(path, "-");
		if ((*self)->flags & piuStyleCondensedBit)
			c_strcat(path, "Condensed");
		else
			flag |= 1;
		switch ((*self)->weight) {
			case 1: c_strcat(path, "Ultralight"); break;
			case 2: c_strcat(path, "Thin"); break;
			case 3: c_strcat(path, "Light"); break;
			case 5: c_strcat(path, "Medium");break;