static int tek_lib_exec_waitmsg(lua_State *L) { struct LuaExecTask *lexec = tek_lib_exec_check(L); struct TExecBase *TExecBase = lexec->exec; TTIME dt, *pdt = TNULL, destt, nowt; int narg; TAPTR hal = TExecBase->texb_HALBase; struct TMsgPort *port = TGetUserPort(TNULL); struct TNode *node; TUINT sig = TSetSignal(0, 0) & (TTASK_SIG_USER | TTASK_SIG_ABORT); tek_lib_exec_checkabort(L, lexec->exec, sig); dt.tdt_Int64 = luaL_optnumber(L, 1, 0) * 1000; if (dt.tdt_Int64) { TGetSystemTime(&destt); TAddTime(&destt, &dt); pdt = &dt; } for (;;) { THALLock(hal, &port->tmp_Lock); node = port->tmp_MsgList.tlh_Head.tln_Succ; if (node->tln_Succ == TNULL) node = TNULL; THALUnlock(hal, &port->tmp_Lock); if (node) break; sig = TWaitTime(pdt, TTASK_SIG_USER | TTASK_SIG_ABORT); tek_lib_exec_checkabort(L, lexec->exec, sig); if (sig == 0) break; if (pdt) { dt = destt; TGetSystemTime(&nowt); TSubTime(&dt, &nowt); } } narg = tek_lib_exec_getmsg(L); return tek_lib_exec_return_sig2string(L, sig, narg); }
static void fb_runinstance(TAPTR task) { struct TExecBase *TExecBase = TGetExecBase(task); WINDISPLAY *mod = TGetTaskData(task); struct TVRequest *req; TUINT sig; /* interval time: 1/50s: */ TTIME intt = { 20000 }; /* next absolute time to send interval message: */ TTIME nextt; TTIME waitt, nowt; TGetSystemTime(&nextt); TAddTime(&nextt, &intt); TDBPRINTF(TDB_INFO,("Device instance running\n")); do { TBOOL do_interval = TFALSE; while ((req = TGetMsg(mod->fbd_CmdPort))) { fb_docmd(mod, req); TReplyMsg(req); } fb_notifywindows(mod); /* calculate new delta to wait: */ TGetSystemTime(&nowt); waitt = nextt; TSubTime(&waitt, &nowt); TWaitTime(&waitt, mod->fbd_CmdPortSignal); /* check if time interval has expired: */ TGetSystemTime(&nowt); if (TCmpTime(&nowt, &nextt) > 0) { /* expired; send interval: */ do_interval = TTRUE; TAddTime(&nextt, &intt); if (TCmpTime(&nowt, &nextt) >= 0) { /* nexttime expired already; create new time from now: */ nextt = nowt; TAddTime(&nextt, &intt); } } /* send out input messages: */ fb_sendimessages(mod, do_interval); /* get signal state: */ sig = TSetSignal(0, TTASK_SIG_ABORT); } while (!(sig & TTASK_SIG_ABORT)); TDBPRINTF(TDB_INFO,("Device instance closedown\n")); fb_exitinstance(mod); }
static void rfb_runtask(struct TTask *task) { TAPTR TExecBase = TGetExecBase(task); RFBDISPLAY *mod = TGetTaskData(task); struct TVRequest *req; TUINT sig; TTIME intt = { RAWFB_INTERVAL_MICROS }; /* next absolute time to send interval message: */ TTIME nextt; TTIME waitt, nowt; TAPTR cmdport = TGetUserPort(task); TUINT cmdportsignal = TGetPortSignal(cmdport); TUINT imsgportsignal = TGetPortSignal(mod->rfb_RndIMsgPort); TDBPRINTF(TDB_INFO,("RawFB device context running\n")); TGetSystemTime(&nowt); nextt = nowt; TAddTime(&nextt, &intt); do { /* process input messages: */ rfb_processevent(mod); /* do draw commands: */ while ((req = TGetMsg(cmdport))) { rfb_docmd(mod, req); TReplyMsg(req); } /* check if time interval has expired: */ TGetSystemTime(&nowt); if (TCmpTime(&nowt, &nextt) > 0) { /* expired; send intervals: */ TLock(mod->rfb_InstanceLock); struct TNode *next, *node = mod->rfb_VisualList.tlh_Head; for (; (next = node->tln_Succ); node = next) { RFBWINDOW *v = (RFBWINDOW *) node; TIMSG *imsg; if ((v->rfbw_InputMask & TITYPE_INTERVAL) && rfb_getimsg(mod, v, &imsg, TITYPE_INTERVAL)) TPutMsg(v->rfbw_IMsgPort, TNULL, imsg); } TUnlock(mod->rfb_InstanceLock); TAddTime(&nextt, &intt); } /* calculate new wait time: */ waitt = nextt; TGetSystemTime(&nowt); TSubTime(&waitt, &nowt); if (waitt.tdt_Int64 <= 0 || waitt.tdt_Int64 > RAWFB_INTERVAL_MICROS) { /* something's wrong with the clock, recalculate */ TDBPRINTF(TDB_INFO,("clock problem: %lld\n", waitt.tdt_Int64)); nextt = nowt; TAddTime(&nextt, &intt); waitt = nextt; TSubTime(&waitt, &nowt); } sig = TWaitTime(&waitt, cmdportsignal | imsgportsignal | TTASK_SIG_ABORT); } while (!(sig & TTASK_SIG_ABORT)); TDBPRINTF(TDB_INFO,("RawFB device context closedown\n")); rfb_exittask(mod); }
static void rfb_runtask(struct TTask *task) { TAPTR TExecBase = TGetExecBase(task); struct rfb_Display *mod = TGetTaskData(task); struct TVRequest *req; TUINT sig = 0; TTIME intt = { 20000 }; /* next absolute time to send interval message: */ TTIME nextt; TTIME waitt, nowt, *pwaitt; TAPTR cmdport = TGetUserPort(task); TUINT cmdportsignal = TGetPortSignal(cmdport); TUINT imsgportsignal = TGetPortSignal(mod->rfb_RndIMsgPort); TUINT waitsigs = cmdportsignal | imsgportsignal | TTASK_SIG_ABORT; TDBPRINTF(TDB_INFO, ("RawFB device context running\n")); TGetSystemTime(&nowt); nextt = nowt; TAddTime(&nextt, &intt); do { if (sig & cmdportsignal) { TBOOL checkrect = mod->rfb_Flags & RFBFL_PTR_VISIBLE; TINT arec[4]; while ((req = TGetMsg(cmdport))) { if (checkrect) { TINT res = rfb_cmdrectaffected(mod, req, arec, TTRUE); if (res < 0 || (res > 0 && REGION_OVERLAPRECT(mod->rfb_PtrBackBuffer.rect, arec))) { rfb_restoreptrbg(mod); checkrect = TFALSE; } } rfb_docmd(mod, req); TReplyMsg(req); } } if (mod->rfb_Flags & RFBFL_SHOWPTR) rfb_drawpointer(mod); /* check if time interval has expired: */ TGetSystemTime(&nowt); /* do interval timers */ if (mod->rfb_NumInterval > 0) { if (TCmpTime(&nowt, &nextt) >= 0) { /* expired; send intervals: */ TLock(mod->rfb_InstanceLock); struct TNode *next, *node = mod->rfb_VisualList.tlh_Head.tln_Succ; for (; (next = node->tln_Succ); node = next) { struct rfb_Window *v = (struct rfb_Window *) node; TIMSG *imsg; if ((v->rfbw_InputMask & TITYPE_INTERVAL) && rfb_getimsg(mod, v, &imsg, TITYPE_INTERVAL)) TPutMsg(v->rfbw_IMsgPort, TNULL, imsg); } TUnlock(mod->rfb_InstanceLock); TAddTime(&nextt, &intt); } /* calculate new wait time: */ waitt = nextt; TSubTime(&waitt, &nowt); if (waitt.tdt_Int64 <= 0 || waitt.tdt_Int64 > 20000) { nextt = nowt; TAddTime(&nextt, &intt); waitt = nextt; TSubTime(&waitt, &nowt); } pwaitt = &waitt; } else pwaitt = TNULL; #if defined(ENABLE_LINUXFB) rfb_linux_wait(mod, pwaitt); sig = TSetSignal(0, waitsigs); #else sig = TWaitTime(pwaitt, waitsigs); #endif if (sig & imsgportsignal) rfb_processevent(mod); } while (!(sig & TTASK_SIG_ABORT)); TDBPRINTF(TDB_INFO, ("RawFB device context closedown\n")); rfb_exittask(mod); }