Function fx_setTimer

xs/tools/xst.c:854–879

}

void fx_setTimer(txMachine* the, txNumber interval, txBoolean repeat)
{
	txJob _job;
	txJob* job;
	txSharedTimer* timer;
	if (c_isnan(interval) || (interval < 0))
		interval = 0;
	c_memset(&_job, 0, sizeof(txJob));
	timer = fxScheduleSharedTimer(interval, (repeat) ? interval : 0, fx_callbackTimer, &_job, sizeof(txJob));	
	if (!timer)
		fxAbort(the, XS_NOT_ENOUGH_MEMORY_EXIT);
	job = (txJob*)&(timer->refcon[0]);
	job->the = the;
	fxNewHostObject(the, NULL);
    mxPull(job->self);
	job->function = *mxArgv(0);
	if (mxArgc > 2)
		job->argument = *mxArgv(2);
	else
		job->argument = mxUndefined;
	fxSetHostData(the, &job->self, job);
	fxSetHostHooks(the, &job->self, &gxTimerHooks);
	fxRemember(the, &job->self);
	fxAccess(the, &job->self);
	*mxResult = the->scratch;
}

/* PLATFORM */