/* $NetBSD: ms.c,v 1.5 1996/04/12 08:39:22 leo Exp $ */ /* * Copyright (c) 1995 Leo Weppelman. * All rights reserved. * * based on: * * Copyright (c) 1992, 1993 * The Regents of the University of California. All rights reserved. * * This software was developed by the Computer Systems Engineering group * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and * contributed to Berkeley. * * All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Lawrence Berkeley Laboratory. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)ms.c 8.1 (Berkeley) 6/11/93 * * Header: ms.c,v 1.5 92/11/26 01:28:47 torek Exp (LBL) */ /* * Mouse driver. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include "mouse.h" #if NMOUSE > 0 /* there's really no more physical ports on an atari. */ #if NMOUSE > 1 #undef NMOUSE #define NMOUSE 1 #endif typedef void (*FPV) __P((void *)); static struct ms_softc ms_softc[NMOUSE]; dev_type_open(msopen); dev_type_close(msclose); dev_type_read(msread); dev_type_ioctl(msioctl); dev_type_select(msselect); static void ms_3b_delay __P((struct ms_softc *)); int mouseattach(cnt) int cnt; { printf("1 mouse configured\n"); ms_softc[0].ms_emul3b = 1; return(NMOUSE); } static void ms_3b_delay(ms) struct ms_softc *ms; { REL_MOUSE rel_ms; rel_ms.id = TIMEOUT_ID; rel_ms.dx = rel_ms.dy = 0; mouse_soft(&rel_ms, sizeof(rel_ms), KBD_TIMEO_PKG); } /* * Note that we are called from the keyboard software interrupt! */ void mouse_soft(rel_ms, size, type) REL_MOUSE *rel_ms; int size, type; { struct ms_softc *ms = &ms_softc[0]; struct firm_event *fe, *fe2; REL_MOUSE fake_mouse; int get, put; int sps; u_char mbut, bmask; int flush_buttons; if (ms->ms_events.ev_io == NULL) return; switch (type) { case KBD_JOY1_PKG: /* * There are some mice that have their middle button * wired to the 'up' bit of joystick 1.... * Simulate a mouse packet with dx = dy = 0, the middle * button state set by UP and the other buttons unchanged. * Flush all button changes. */ flush_buttons = 1; fake_mouse.id = (rel_ms->dx & 1 ? 4 : 0) | (ms->ms_buttons & 3); fake_mouse.dx = fake_mouse.dy = 0; rel_ms = &fake_mouse; break; case KBD_TIMEO_PKG: /* * Timeout package. No button changes and no movement. * Flush all button changes. */ flush_buttons = 1; fake_mouse.id = ms->ms_buttons; fake_mouse.dx = fake_mouse.dy = 0; rel_ms = &fake_mouse; break; case KBD_RMS_PKG: /* * Normal mouse package. Always copy the middle button * status. The emulation code decides if button changes * must be flushed. */ rel_ms->id = (ms->ms_buttons & 4) | (rel_ms->id & 3); flush_buttons = (ms->ms_emul3b) ? 0 : 1; break; default: return; } sps = splev(); get = ms->ms_events.ev_get; put = ms->ms_events.ev_put; fe = &ms->ms_events.ev_q[put]; if ((type != KBD_TIMEO_PKG) && ms->ms_emul3b && ms->ms_bq_idx) untimeout((FPV)ms_3b_delay, (void *)ms); /* * Button states are encoded in the lower 3 bits of 'id' */ if (!(mbut = (rel_ms->id ^ ms->ms_buttons)) && (put != get)) { /* * Compact dx/dy messages. Always generate an event when * a button is pressed or the event queue is empty. */ ms->ms_dx += rel_ms->dx; ms->ms_dy += rel_ms->dy; goto out; } rel_ms->dx += ms->ms_dx; rel_ms->dy += ms->ms_dy; ms->ms_dx = ms->ms_dy = 0; /* * Output location events _before_ button events ie. make sure * the button is pressed at the correct location. */ if (rel_ms->dx) { if ((++put) % EV_QSIZE == get) { put--; goto out; } fe->id = LOC_X_DELTA; fe->value = rel_ms->dx; fe->time = time; if (put >= EV_QSIZE) { put = 0; fe = &ms->ms_events.ev_q[0]; } else fe++; } if (rel_ms->dy) { if ((++put) % EV_QSIZE == get) { put--; goto out; } fe->id = LOC_Y_DELTA; fe->value = rel_ms->dy; fe->time = time; if (put >= EV_QSIZE) { put = 0; fe = &ms->ms_events.ev_q[0]; } else fe++; } if (mbut && (type != KBD_TIMEO_PKG)) { for (bmask = 1; bmask < 0x08; bmask <<= 1) { if (!(mbut & bmask)) continue; fe2 = &ms->ms_bq[ms->ms_bq_idx++]; if (bmask == 1) fe2->id = MS_RIGHT; else if (bmask == 2) fe2->id = MS_LEFT; else fe2->id = MS_MIDDLE; fe2->value = rel_ms->id & bmask ? VKEY_DOWN : VKEY_UP; fe2->time = time; } } /* * Handle 3rd button emulation. */ if (ms->ms_emul3b && ms->ms_bq_idx && (type != KBD_TIMEO_PKG)) { /* * If the middle button is pressed, any change to * one of the other buttons releases all. */ if ((ms->ms_buttons & 4) && (mbut & 3)) { ms->ms_bq[0].id = MS_MIDDLE; ms->ms_bq_idx = 1; rel_ms->id = 0; flush_buttons = 1; goto out; } if (ms->ms_bq_idx == 2) { if (ms->ms_bq[0].value == ms->ms_bq[1].value) { /* Must be 2 button presses! */ ms->ms_bq[0].id = MS_MIDDLE; ms->ms_bq_idx = 1; rel_ms->id = 7; } } else if (ms->ms_bq[0].value == VKEY_DOWN) { timeout((FPV)ms_3b_delay, (void *)ms, 10); goto out; } flush_buttons = 1; } out: if (flush_buttons) { int i; for (i = 0; i < ms->ms_bq_idx; i++) { if ((++put) % EV_QSIZE == get) { ms->ms_bq_idx = 0; put--; goto out; } *fe = ms->ms_bq[i]; if (put >= EV_QSIZE) { put = 0; fe = &ms->ms_events.ev_q[0]; } else fe++; } ms->ms_bq_idx = 0; } ms->ms_events.ev_put = put; ms->ms_buttons = rel_ms->id; splx(sps); EV_WAKEUP(&ms->ms_events); } int msopen(dev, flags, mode, p) dev_t dev; int flags, mode; struct proc *p; { u_char report_ms_joy[] = { 0x14, 0x08 }; struct ms_softc *ms; int unit; unit = minor(dev); ms = &ms_softc[unit]; if (unit >= NMOUSE) return(EXDEV); if (ms->ms_events.ev_io) return(EBUSY); ms->ms_events.ev_io = p; ms->ms_dx = ms->ms_dy = 0; ms->ms_buttons = 0; ms->ms_bq[0].id = ms->ms_bq[1].id = 0; ms->ms_bq_idx = 0; ev_init(&ms->ms_events); /* may cause sleep */ /* * Enable mouse reporting. */ kbd_write(report_ms_joy, sizeof(report_ms_joy)); return(0); } int msclose(dev, flags, mode, p) dev_t dev; int flags, mode; struct proc *p; { u_char disable_ms_joy[] = { 0x12, 0x1a }; int unit; struct ms_softc *ms; unit = minor (dev); ms = &ms_softc[unit]; /* * Turn off mouse interrogation. */ kbd_write(disable_ms_joy, sizeof(disable_ms_joy)); ev_fini(&ms->ms_events); ms->ms_events.ev_io = NULL; return(0); } int msread(dev, uio, flags) dev_t dev; struct uio *uio; int flags; { struct ms_softc *ms; ms = &ms_softc[minor(dev)]; return(ev_read(&ms->ms_events, uio, flags)); } int msioctl(dev, cmd, data, flag, p) dev_t dev; u_long cmd; register caddr_t data; int flag; struct proc *p; { struct ms_softc *ms; int unit; unit = minor(dev); ms = &ms_softc[unit]; switch (cmd) { case MIOCS3B_EMUL: ms->ms_emul3b = (*(int *)data != 0) ? 1 : 0; return (0); case MIOCG3B_EMUL: *(int *)data = ms->ms_emul3b; return (0); case FIONBIO: /* we will remove this someday (soon???) */ return(0); case FIOASYNC: ms->ms_events.ev_async = *(int *)data != 0; return(0); case TIOCSPGRP: if (*(int *)data != ms->ms_events.ev_io->p_pgid) return(EPERM); return(0); case VUIDGFORMAT: /* we only do firm_events */ *(int *)data = VUID_FIRM_EVENT; return(0); case VUIDSFORMAT: if (*(int *)data != VUID_FIRM_EVENT) return(EINVAL); return(0); } return(ENOTTY); } int msselect(dev, rw, p) dev_t dev; int rw; struct proc *p; { struct ms_softc *ms; ms = &ms_softc[minor(dev)]; return(ev_select(&ms->ms_events, rw, p)); } #endif /* NMOUSE > 0 */