static void fb_dowindow(TAPTR task) { struct TExecBase *TExecBase = TGetExecBase(task); WINWINDOW *win = TGetTaskData(task); WINDISPLAY *mod = win->fbv_Display; MSG msg; TUINT sig; TDBPRINTF(TDB_INFO,("DoWindow...\n")); do { WaitMessage(); while (PeekMessage(&msg, win->fbv_HWnd, 0,0, PM_REMOVE)) { TranslateMessage(&msg); DispatchMessage(&msg); } // PostMessage(win->fbv_HWnd, WM_USER, 0, 0); sig = TSetSignal(0, TTASK_SIG_ABORT); } while (!(sig & TTASK_SIG_ABORT)); TDBPRINTF(TDB_INFO,("Window Done\n")); TLock(mod->fbd_Lock); TRemove(&win->fbv_Node); TUnlock(mod->fbd_Lock); fb_closeall(mod, win, TTRUE); }
static void tek_lib_exec_run_hook(lua_State *L, lua_Debug *d) { lua_getfield(L, LUA_REGISTRYINDEX, TEK_LIB_EXECBASE_REGNAME); if (lua_islightuserdata(L, -1)) { struct TExecBase *TExecBase = lua_touserdata(L, -1); tek_lib_exec_checkabort(L, TExecBase, TSetSignal(0, 0)); lua_pop(L, 1); } }
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); 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); }
static void tek_lib_visual_io_task(struct TTask *task) { struct TExecBase *TExecBase = TGetExecBase(task); struct IOData *iodata = TGetTaskData(task); TEKVisual *vis = iodata->vis; TIMSG *imsg; TUINT sig; #if defined(ENABLE_FILENO) || defined(ENABLE_DGRAM) char buf[256]; fd_set rset; #endif do { #if defined(ENABLE_FILENO) || defined(ENABLE_DGRAM) FD_ZERO(&rset); FD_SET(iodata->fd_pipe[0], &rset); #endif #if defined(ENABLE_FILENO) if (iodata->fd_stdin != -1) FD_SET(iodata->fd_stdin, &rset); #endif #if defined(ENABLE_DGRAM) FD_SET(iodata->fd_dgram, &rset); #endif #if defined(ENABLE_FILENO) || defined(ENABLE_DGRAM) if (select(iodata->fdmax, &rset, NULL, NULL, NULL) > 0) { int nbytes = 0; /* consume signal: */ if (FD_ISSET(iodata->fd_pipe[0], &rset)) { ioctl(iodata->fd_pipe[0], FIONREAD, &nbytes); if (nbytes > 0) if (read(iodata->fd_pipe[0], buf, TMIN(sizeof(buf), (size_t) nbytes)) != nbytes) TDBPRINTF(TDB_ERROR,("Error reading from selfpipe\n")); } #if defined(ENABLE_FILENO) /* stdin line reader: */ if (iodata->fd_stdin >= 0 && FD_ISSET(iodata->fd_stdin, &rset)) { if (ioctl(iodata->fd_stdin, FIONREAD, &nbytes) == 0) { if (nbytes == 0) iodata->fd_stdin = -1; /* stop processing */ else { char *line; size_t len; visual_io_reader_addbytes(&iodata->linereader, nbytes); while (visual_io_readline(&iodata->linereader, &line, &len)) { if (getusermsg(vis, &imsg, TITYPE_USER, len)) { memcpy((void *) (imsg + 1), line, len); TPutMsg(vis->vis_IMsgPort, TNULL, &imsg->timsg_Node); } } } } else iodata->fd_stdin = -1; /* stop processing */ } #endif #if defined(ENABLE_DGRAM) if (iodata->fd_dgram >= 0 && FD_ISSET(iodata->fd_dgram, &rset)) { char umsg[IOMAXMSGSIZE]; TIMSG *imsg; ssize_t len = recv(iodata->fd_dgram, umsg, sizeof umsg, 0); if (len >= 0 && getusermsg(vis, &imsg, TITYPE_USER, len)) { memcpy((void *) (imsg + 1), umsg, len); TPutMsg(vis->vis_IMsgPort, TNULL, &imsg->timsg_Node); } } #endif } sig = TSetSignal(0, TTASK_SIG_ABORT | TTASK_SIG_USER); #else sig = TWait(TTASK_SIG_ABORT | TTASK_SIG_USER); #endif if (sig & TTASK_SIG_USER) { TAPTR msg, uport = TGetUserPort(TNULL); while ((msg = TGetMsg(uport))) { TSIZE len = TGetSize(msg); /* repackage into user input message */ if (getusermsg(vis, &imsg, TITYPE_USER, len)) { memcpy((void *) (imsg + 1), msg, len); TPutMsg(vis->vis_IMsgPort, TNULL, &imsg->timsg_Node); } TAckMsg(msg); } } } while (!(sig & TTASK_SIG_ABORT)); tek_lib_visual_io_exit(task); }
LOCAL void x11_taskfunc(struct TTask *task) { TAPTR TExecBase = TGetExecBase(task); struct X11Display *inst = TGetTaskData(task); TUINT sig = 0; fd_set rset; struct TVRequest *req; TIMSG *imsg; char buf[256]; struct timeval tv, *ptv; struct TMsgPort *cmdport = TGetUserPort(task); TUINT cmdportsignal = TGetPortSignal(cmdport); TUINT ireplysignal = TGetPortSignal(inst->x11_IReplyPort); TUINT waitsigs = cmdportsignal | ireplysignal | TTASK_SIG_ABORT; /* interval time: 1/50s: */ TTIME intt = { 20000 }; /* next absolute time to send interval message: */ TTIME nextt; TTIME waitt, nowt; TDBPRINTF(TDB_INFO, ("Device instance running\n")); TGetSystemTime(&nowt); nextt = nowt; TAddTime(&nextt, &intt); do { if (sig & ireplysignal) { while ((imsg = TGetMsg(inst->x11_IReplyPort))) { /* returned input message */ if (imsg->timsg_Type == TITYPE_REQSELECTION) { XSelectionEvent *reply = (XSelectionEvent *) imsg->timsg_Requestor; struct TTagItem *replytags = (struct TTagItem *) imsg->timsg_ReplyData; size_t len = TGetTag(replytags, TIMsgReply_UTF8SelectionLen, 0); TUINT8 *xdata = (TUINT8 *) TGetTag(replytags, TIMsgReply_UTF8Selection, TNULL); XChangeProperty(inst->x11_Display, reply->requestor, reply->property, XA_ATOM, 8, PropModeReplace, (unsigned char *) xdata, len); XSendEvent(inst->x11_Display, reply->requestor, 0, NoEventMask, (XEvent *) reply); XSync(inst->x11_Display, False); TFree((TAPTR) imsg->timsg_Requestor); TFree(xdata); /* reqselect roundtrip ended */ } TFree(imsg); } } if (sig & cmdportsignal) { while (inst->x11_RequestInProgress == TNULL && (req = TGetMsg(cmdport))) { x11_docmd(inst, req); if (inst->x11_RequestInProgress) break; TReplyMsg(req); } } XFlush(inst->x11_Display); FD_ZERO(&rset); FD_SET(inst->x11_fd_display, &rset); FD_SET(inst->x11_fd_sigpipe_read, &rset); TGetSystemTime(&nowt); if (inst->x11_NumInterval > 0 || inst->x11_RequestInProgress) { if (TCmpTime(&nowt, &nextt) >= 0) { /* expired; send interval: */ struct TNode *next, *node = inst->x11_vlist.tlh_Head.tln_Succ; for (; (next = node->tln_Succ); node = next) { struct X11Window *v = (struct X11Window *) node; TIMSG *imsg; if ((v->eventmask & TITYPE_INTERVAL) && x11_getimsg(inst, v, &imsg, TITYPE_INTERVAL)) TPutMsg(v->imsgport, TNULL, imsg); } 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); } tv.tv_sec = waitt.tdt_Int64 / 1000000; tv.tv_usec = waitt.tdt_Int64 % 1000000; ptv = &tv; } else ptv = NULL; /* wait for display, signal fd and timeout: */ if (select(inst->x11_fd_max, &rset, NULL, NULL, ptv) > 0) { int nbytes; /* consume signal: */ if (FD_ISSET(inst->x11_fd_sigpipe_read, &rset)) { ioctl(inst->x11_fd_sigpipe_read, FIONREAD, &nbytes); if (nbytes > 0) if (read(inst->x11_fd_sigpipe_read, buf, TMIN(sizeof(buf), (size_t) nbytes)) != nbytes) TDBPRINTF(TDB_ERROR, ("could not read wakeup signal\n")); } } /* process input messages: */ x11_processevent(inst); /* send out input messages to owners: */ x11_sendimessages(inst); /* get signal state: */ sig = TSetSignal(0, waitsigs); } while (!(sig & TTASK_SIG_ABORT)); TDBPRINTF(TDB_INFO, ("Device instance exit\n")); x11_exitinstance(inst); }