elks-enhanced - XT-Emporium

File editor

/*
 * Keyboard and mouse event handling for C86/OWC Graphics
 *
 * 1 Feb 2025 Greg Haerr
 */

#include "event.h"
#include "mouse.h"
#include <stdio.h>
#include <unistd.h>
#include <fcntl.h>
#include <time.h>
#include <sys/select.h>
#include <termios.h>
#include <errno.h>
#include <stdlib.h>

int SCREENWIDTH = 640;              /* for mouse clipping, set in graphics_open */
int SCREENHEIGHT = 480;
extern int mouse_fd;
#define SCROLLFACTOR        4       /* multiply factor for scrollwheel */

static struct termios orig;
int posx, posy;                     /* cursor position */

static void open_keyboard(void);
static void close_keyboard(void);

/* wait for event with timeout; msec timeout 0 to poll, timeout -1 to block */
int event_wait_timeout(struct event *e, int timeout)
{
    struct event *event = e;
    int ret;
    fd_set fdset;
    struct timeval timeint, *tv;

    if (timeout == EV_BLOCK)
        tv = NULL;
    else {                          /* approximation for speed for C86 and 8088 */
        timeint.tv_sec = timeout >> 10;
        timeint.tv_usec = (timeout & 0x3FF) << 10;
        tv = &timeint;
    }

    for (;;)
    {
        FD_ZERO(&fdset);
        FD_SET(mouse_fd, &fdset);
        FD_SET(0, &fdset);

        ret = select(mouse_fd + 1, &fdset, NULL, NULL, tv);
        if (ret == 0)
        {
            event->type = EVT_TIMEOUT;
            goto out;
        }
        if (ret < 0)
        {
            if (errno == EINTR)
                continue;
            goto quit;
        }
        if (FD_ISSET(0, &fdset))
        {
            unsigned char buf[1];
            if (read(0, buf, sizeof(buf)) > 0)
            {
                if (buf[0] == '\003' || buf[0] == '\001')   /* quit on ^C or ^A */
                {
quit:
                    event->type = EVT_QUIT;
                    return 0;
                }
                event->keychar = buf[0];
                event->type = EVT_KEYCHAR;
                goto out;
            }
        }
        if (FD_ISSET(mouse_fd, &fdset))
        {
            int x, y, w, b;
            static int lastx = -1, lasty = -1, lastb = 0;
            if (read_mouse(&x, &y, &w, &b))
            {
                if (b & (BUTTON_SCROLLUP|BUTTON_SCROLLDN))
                {
                    event->type = EVT_MOUSEWHEEL;
                    event->w = w * SCROLLFACTOR;
                    lastb = b;
out:
                    event->x = posx;
                    event->y = posy;
                    return 1;
                }
                if (b != lastb)
                {
                    /* FIXME the code below won't handle simultaneous button changes */
                    if ((b  ^ lastb) & BUTTON_L)
                    {
                        event->type = (b & BUTTON_L)? EVT_MOUSEDOWN: EVT_MOUSEUP;
                        event->button = BUTTON_L;
                    }
                    else if ((b ^ lastb) & BUTTON_R)
                    {
                        event->type = (b & BUTTON_R)? EVT_MOUSEDOWN: EVT_MOUSEUP;
                        event->button = BUTTON_R;
                    }
                    lastb = b;
                    goto out;
                }
                if (x != lastx || y != lasty)
                {
                    event->type = EVT_MOUSEMOVE;
                    posx += x;
                    posy += y;
                    if (posx < 0) posx = 0;
                    if (posy < 0) posy = 0;
                    if (posx >= SCREENWIDTH) posx = SCREENWIDTH - 1;
                    if (posy >= SCREENHEIGHT) posy = SCREENHEIGHT - 1;
                    event->x = posx;
                    event->y = posy;
                    event->xrel = x;
                    event->yrel = y;
                    event->button = b;
                    lastx = x;
                    lasty = y;
                    return 1;
                }
                /* here when duplicate mouse event - ignore */
            }
        }
    }
    //event->type = EVT_NONE;
    return 1;
}

/* check for event but don't dequeue if event == NULL */
int event_poll(struct event *event)
{
    static struct event ev;     /* ev.type inited to 0 (=EVT_NONE) */

    if (event == NULL)
    {
        /* only indicate whether event found, don't dequeue */
        if (ev.type == EVT_NONE)
            event_wait_timeout(&ev, 0);     /* 0 timeout = don't block */
        return ev.type;
    }

    /* always deqeue if event found */
    if (ev.type != EVT_NONE)
    {
        *event = ev;
        ev.type = EVT_NONE;
        return event->type;
    }
    event_wait_timeout(event, 0);
    return (event->type == EVT_TIMEOUT)? 0: event->type;
}

int event_open(void)
{
    if (open_mouse() < 0)
        return -1;
    open_keyboard();
    posx = SCREENWIDTH / 2;
    posy = SCREENHEIGHT / 2;


#if DEBUG
    atexit(event_close);
    signal(SIGHUP, catch_signals);
    signal(SIGABRT, catch_signals);
    signal(SIGSEGV, catch_signals);
#endif
    return 0;
}

void event_close(void)
{
    close_mouse();
    close_keyboard();
}

static void open_keyboard(void)
{
    struct termios new;

    tcgetattr(0, &orig);
    new = orig;
    new.c_lflag &= ~(ECHO | ICANON | IEXTEN | ISIG);
    //new.c_iflag &= ~(ICRNL | INPCK | ISTRIP | IXON | BRKINT);
    //new.c_cflag &= ~(CSIZE | PARENB);
    new.c_cflag |= CS8;
    new.c_cc[VMIN] = 1;     /* =1 required for lone ESC key processing */
    new.c_cc[VTIME] = 0;
    tcsetattr(0, TCSAFLUSH, &new);
}

static void close_keyboard(void)
{
    tcsetattr(0, TCSANOW, &orig);
}
Commit message
This repository is read-only for this account.
Repository snapshot

Current branch
master
Visibility
public
Your access
Read
Remote
Configured
File activity

View file history