Function PiuCode_colorize

modules/piu/PC/Code/piuCode.c:986–1011

}

void PiuCode_colorize(xsMachine *the)
{
	PiuCode* self = PIU(Code, xsThis);
	xsStringValue string = PiuToString((*self)->string);
	PiuTextBuffer* runs = (*self)->runs;
	PiuCodeRun run = (PiuCodeRun)((uint8_t*)(*runs) + sizeof(PiuTextBufferRecord));
	PiuCodeRun limit = (PiuCodeRun)((uint8_t*)(*runs) + (*runs)->current);
	int32_t start = 0, offset, unicodeOffset = 0, utf8Offset = 0;
	int16_t color;
	xsIntegerValue c = xsToInteger(xsGet(xsArg(0), xsID_length)), i;
	for (i = 0; i < c; i++) {
		xsResult = xsGetAt(xsArg(0), xsInteger(i));
		offset = xsToInteger(xsGet(xsResult, xsID_offset));
		utf8Offset += fxUnicodeToUTF8Offset(string + utf8Offset, offset - unicodeOffset);
		unicodeOffset = offset;
		color = (int16_t)xsToInteger(xsGet(xsResult, xsID_color));
		while (run < limit) {
			if ((start == utf8Offset) && (run->kind == piuCodeColorKind)) {
				run->color = color;
				break;
			}
			start += run->count;
			run++;
		}	
	}
}

void PiuCode_find(xsMachine *the)
{