Function fx_Date_aux

xs/sources/xsDate.c:155–222

}

void fx_Date_aux(txMachine* the, txFlag secure)
{
	txInteger c = mxArgc;
	txDateTime dt;
	txSlot* instance;
	if (!mxHasTarget) {
		char buffer[256];
		txString p = buffer;
		txDateTime dt;
		if (secure)
			mxTypeError("secure mode");
		mxResult->value.number = fxDateNow();
		mxResult->kind = XS_NUMBER_KIND;
		fxDateSplit(mxResult->value.number, 0, &dt);
		p = fxDatePrintDay(p, dt.day);
		*p++ = ' ';
		p = fxDatePrintDate(p, (txInteger)dt.year, (txInteger)dt.month, (txInteger)dt.date);
		*p++ = ' ';
		p = fxDatePrintTime(p, (txInteger)dt.hours, (txInteger)dt.minutes, (txInteger)dt.seconds);
		*p++ = ' ';
		p = fxDatePrintTimezone(p, (txInteger)dt.offset);
		*p = 0;
		fxCopyStringC(the, mxResult, buffer);
		return;
	}
	mxPushSlot(mxTarget);
	fxGetPrototypeFromConstructor(the, &mxDatePrototype);
	instance = fxNewDateInstance(the);
	mxPullSlot(mxResult);
	if (c > 1) {
		dt.year = fxDateFullYear(the, mxArgv(0));
		dt.month = fxToNumber(the, mxArgv(1));
		dt.date = (c > 2) ? fxToNumber(the, mxArgv(2)) : 1;
		dt.hours = (c > 3) ? fxToNumber(the, mxArgv(3)) : 0;
		dt.minutes = (c > 4) ? fxToNumber(the, mxArgv(4)) : 0;
		dt.seconds = (c > 5) ?fxToNumber(the, mxArgv(5)) : 0;
		dt.milliseconds = (c > 6) ? fxToNumber(the, mxArgv(6)) : 0;
		instance->next->value.number = fxDateMerge(&dt, 0);
		return;
	}
	if (c > 0) {
		txSlot* slot = mxArgv(0);
		if (slot->kind == XS_REFERENCE_KIND) {
			txSlot* date = slot->value.reference;
			if ((date->next) && (date->next->kind == XS_DATE_KIND)) {
				instance->next->value.number = date->next->value.number;
				return;
			}
		}
		fxToPrimitive(the, slot, XS_NO_HINT);
		if ((slot->kind == XS_STRING_KIND) || (slot->kind == XS_STRING_X_KIND)) {
			mxPushSlot(mxFunction);
			mxDub();
			mxGetID(mxID(_parse));
			mxCall();
			mxPushSlot(slot);
			mxRunCount(1);
			instance->next->value.number = the->stack->value.number;