/*
 * 86Box	A hypervisor and IBM PC system emulator that specializes in
 *		running old operating systems and software designed for IBM
 *		PC systems and compatibles from 1981 through fairly recent
 *		system designs based on the PCI bus.
 *
 *		This file is part of the 86Box distribution.
 *
 *		Implementation of Serial Mouse devices.
 *
 *		Based on the 86Box Serial Mouse driver as a framework.
 *
 * Version:	@(#)mouse_serial.c	1.0.13	2017/11/13
 *
 * Author:	Fred N. van Kempen, <decwiz@yahoo.com>
 */
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <stdlib.h>
#include <wchar.h>
#include "timer.h"
#include "serial.h"
#include "mouse.h"


typedef struct mouse_serial_t {
    char	*name;
    int8_t	port,
		type;
    int		pos;
    int64_t	delay;
    int		oldb;
    SERIAL	*serial;
} mouse_serial_t;


/* Callback from serial driver: RTS was toggled. */
static void
sermouse_callback(struct SERIAL *serial, void *priv)
{
    mouse_serial_t *ms = (mouse_serial_t *)priv;

    /* Start a timer to wake us up in a little while. */
    ms->pos = -1;
    ms->delay = 5000LL * (1LL << TIMER_SHIFT);
}


/* Callback timer expired, now send our "mouse ID" to the serial port. */
static void
sermouse_timer(void *priv)
{
    mouse_serial_t *ms = (mouse_serial_t *)priv;

    ms->delay = 0LL;

    if (ms->pos != -1) return;

    ms->pos = 0;
    switch(ms->type & MOUSE_TYPE_MASK) {
	case MOUSE_TYPE_MSYSTEMS:
		/* Identifies Mouse Systems serial mouse. */
		serial_write_fifo(ms->serial, 'H');
		break;

	case MOUSE_TYPE_MICROSOFT:
	default:
		/* Identifies a two-button Microsoft Serial mouse. */
		serial_write_fifo(ms->serial, 'M');
		break;

	case MOUSE_TYPE_LOGITECH:
		/* Identifies a two-button Logitech Serial mouse. */
		serial_write_fifo(ms->serial, 'M');
		serial_write_fifo(ms->serial, '3');
		break;

	case MOUSE_TYPE_MSWHEEL:
		/* Identifies multi-button Microsoft Wheel Mouse. */
		serial_write_fifo(ms->serial, 'M');
		serial_write_fifo(ms->serial, 'Z');
		break;
    }
}


static uint8_t
sermouse_poll(int x, int y, int z, int b, void *priv)
{
    mouse_serial_t *ms = (mouse_serial_t *)priv;
    uint8_t buff[16];
    int len;

    if (!x && !y && b == ms->oldb) return(1);

    ms->oldb = b;

    if (x>127) x = 127;
    if (y>127) y = 127;
    if (x<-128) x = -128;
    if (y<-128) y = -128;

    len = 0;
    switch(ms->type & MOUSE_TYPE_MASK) {
	case MOUSE_TYPE_MSYSTEMS:
		buff[0] = 0x80;
		buff[0] |= (b&0x01) ? 0x00 : 0x04;	/* left button */
		buff[0] |= (b&0x02) ? 0x00 : 0x01;	/* middle button */
		buff[0] |= (b&0x04) ? 0x00 : 0x02;	/* right button */
		buff[1] = x;
		buff[2] = -y;
		buff[3] = x;				/* same as byte 1 */
		buff[4] = -y;				/* same as byte 2 */
		len = 5;
		break;

	case MOUSE_TYPE_MICROSOFT:
		buff[0] = 0x40;
		buff[0] |= (((y>>6)&0x03)<<2);
		buff[0] |= ((x>>6)&0x03);
		if (b&0x01) buff[0] |= 0x20;
		if (b&0x02) buff[0] |= 0x10;
		buff[1] = x & 0x3F;
		buff[2] = y & 0x3F;
		len = 3;
		break;

	case MOUSE_TYPE_LOGITECH:
		buff[0] = 0x40;
		buff[0] |= (((y>>6)&0x03)<<2);
		buff[0] |= ((x>>6)&0x03);
		if (b&0x01) buff[0] |= 0x20;
		if (b&0x02) buff[0] |= 0x10;
		buff[1] = x & 0x3F;
		buff[2] = y & 0x3F;
		len = 3;
		if (b&0x04) {
			buff[3] = 0x20;
			len++;
		}
		break;

	case MOUSE_TYPE_MSWHEEL:
		buff[0] = 0x40;
		buff[0] |= (((y>>6)&0x03)<<2);
		buff[0] |= ((x>>6)&0x03);
		if (b&0x01) buff[0] |= 0x20;
		if (b&0x02) buff[0] |= 0x10;
		buff[1] = x & 0x3F;
		buff[2] = y & 0x3F;
		buff[3] = z & 0x0F;
		if (b&0x04)
			buff[3] |= 0x10;
		len = 4;

    }

#if 0
    pclog("Mouse_Serial(%d): [", ms->type);
    for (b=0; b<len; b++) pclog(" %02X", buff[b]);
    pclog(" ] (%d)\n", len);
#endif

    /* Send the packet to the bottom-half of the attached port. */
    for (b=0; b<len; b++)
	serial_write_fifo(ms->serial, buff[b]);

    return(0);
}


static void
sermouse_close(void *priv)
{
    mouse_serial_t *ms = (mouse_serial_t *)priv;

    /* Detach serial port from the mouse. */
    serial1.rcr_callback = NULL;

    free(ms);
}


static void *
sermouse_init(mouse_t *info)
{
    mouse_serial_t *ms = (mouse_serial_t *)malloc(sizeof(mouse_serial_t));
    memset(ms, 0x00, sizeof(mouse_serial_t));
    ms->name = (char *)info->name;
    ms->port = SERMOUSE_PORT;
    ms->type = info->type;

    /* Attach a serial port to the mouse. */
    ms->serial = &serial1;
    ms->serial->rcr_callback = sermouse_callback;
    ms->serial->rcr_callback_p = ms;

    timer_add(sermouse_timer, &ms->delay, &ms->delay, ms);

    return(ms);
}


mouse_t mouse_serial_msystems = {
    "Mouse Systems Mouse (serial)",
    "mssystems",
    MOUSE_TYPE_MSYSTEMS | MOUSE_TYPE_3BUTTON,
    sermouse_init,
    sermouse_close,
    sermouse_poll
};


mouse_t mouse_serial_microsoft = {
    "Microsoft 2-button mouse (serial)",
    "msserial",
    MOUSE_TYPE_MICROSOFT,
    sermouse_init,
    sermouse_close,
    sermouse_poll
};


mouse_t mouse_serial_logitech = {
    "Logitech 3-button mouse (serial)",
    "lserial",
    MOUSE_TYPE_LOGITECH | MOUSE_TYPE_3BUTTON,
    sermouse_init,
    sermouse_close,
    sermouse_poll
};


mouse_t mouse_serial_mswheel = {
    "Microsoft wheel mouse (serial)",
    "mswheel",
    MOUSE_TYPE_MSWHEEL | MOUSE_TYPE_3BUTTON,
    sermouse_init,
    sermouse_close,
    sermouse_poll
};