Function fxPrintSlot

xs/tools/xslSlot.c:1005–1331

}

void fxPrintSlot(txMachine* the, FILE* file, txSlot* slot, txFlag flag)
{
	txLinker* linker = (txLinker*)(the->context);
	fprintf(file, "\t{ ");
	if (flag & XS_DEBUG_FLAG) {
		flag &= ~XS_DEBUG_FLAG;
		fprintf(file, "(txSlot*)%d", *((txInteger*)slot));
	}
	else
		fxPrintAddress(the, file, slot->next);
	fprintf(file, ", {.ID = ");
	if (slot->kind == XS_INSTANCE_KIND) {
		if (slot->ID)
			fprintf(file, "%d /* ALIAS */", slot->ID);
		else
			fprintf(file, "XS_NO_ID");
	}
	else if ((slot->kind == XS_CODE_KIND) || (slot->kind == XS_CODE_X_KIND) || (slot->kind == XS_CALLBACK_KIND) || (slot->kind == XS_CALLBACK_X_KIND))
		fxPrintID(the, file, slot->ID);
	else if (slot->flag & XS_INTERNAL_FLAG)
		fprintf(file, "%d", slot->ID);
	else
		fxPrintID(the, file, slot->ID);
	fprintf(file, ", ");
	if (slot->kind == 	XS_INSTANCE_KIND)
		fprintf(file, ".flag = 0x%x, ", slot->flag | flag | XS_DONT_MARSHALL_FLAG);
	else
		fprintf(file, ".flag = 0x%x, ", slot->flag | flag);
	switch (slot->kind) {
	case XS_UNINITIALIZED_KIND: {
		fprintf(file, ".kind = XS_UNINITIALIZED_KIND}, ");
		fprintf(file, ".value = { .number = 0 } ");
	} break;
	case XS_UNDEFINED_KIND: {
		fprintf(file, ".kind = XS_UNDEFINED_KIND}, ");
		fprintf(file, ".value = { .number = 0 } ");
	} break;
	case XS_NULL_KIND: {
		fprintf(file, ".kind = XS_NULL_KIND}, ");
		fprintf(file, ".value = { .number = 0 } ");
	} break;
	case XS_BOOLEAN_KIND: {
		fprintf(file, ".kind = XS_BOOLEAN_KIND}, ");
		fprintf(file, ".value = { .boolean = %d } ", slot->value.boolean);
	} break;
	case XS_INTEGER_KIND: {
		fprintf(file, ".kind = XS_INTEGER_KIND}, ");
		fprintf(file, ".value = { .integer = %d } ", slot->value.integer);
	} break;
	case XS_NUMBER_KIND: {
		fprintf(file, ".kind = XS_NUMBER_KIND}, ");
		fprintf(file, ".value = { .number = ");
		fxPrintNumber(the, file, slot->value.number);
		fprintf(file, " } ");
	} break;
	case XS_STRING_KIND:
	case XS_STRING_X_KIND: {
		fprintf(file, ".kind = XS_STRING_X_KIND}, ");