Function fx_Object_getOwnPropertyDescriptors

xs/sources/xsObject.c:799–823

}

void fx_Object_getOwnPropertyDescriptors(txMachine* the)
{
	txSlot* instance;
	txSlot* result;
	txSlot* at;
	txSlot* property;
	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
		mxTypeError("invalid object");
	instance = fxToInstance(the, mxArgv(0));
	mxPush(mxObjectPrototype);
	result = fxNewObjectInstance(the);
	mxPullSlot(mxResult);
	at = fxNewInstance(the);
	mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
	mxPushUndefined();
	property = the->stack;
	while ((at = at->next)) {
		if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
			fxDescribeProperty(the, property, XS_GET_ONLY);
			mxBehaviorDefineOwnProperty(the, result, at->value.at.id, at->value.at.index, the->stack, XS_GET_ONLY);
			mxPop();
		}
	}
	mxPop();
}

void fx_Object_getOwnPropertyNames(txMachine* the)
{