ref: 17b80cbcf1d5a7c6afd74c7432ab64c100dbdc2f
dir: /sys/src/9/pc/mouse.c/
#include "u.h"
#include "../port/lib.h"
#include "mem.h"
#include "dat.h"
#include "fns.h"
#include "../port/error.h"
#include "io.h"
#define Image IMAGE
#include <draw.h>
#include <memdraw.h>
#include <cursor.h>
#include "screen.h"
/*
* mouse types
*/
enum
{
Mouseother= 0,
Mouseserial= 1,
MousePS2= 2,
};
static QLock mousectlqlock;
static int mousetype;
static int intellimouse;
static int packetsize;
static int resolution;
static int accelerated;
static int mousehwaccel;
static char mouseport[5];
enum
{
CMaccelerated,
CMhwaccel,
CMintellimouse,
CMlinear,
CMps2,
CMps2intellimouse,
CMres,
CMreset,
CMserial,
};
static Cmdtab mousectlmsg[] =
{
CMaccelerated, "accelerated", 0,
CMhwaccel, "hwaccel", 2,
CMintellimouse, "intellimouse", 1,
CMlinear, "linear", 1,
CMps2, "ps2", 1,
CMps2intellimouse, "ps2intellimouse", 1,
CMres, "res", 0,
CMreset, "reset", 1,
CMserial, "serial", 0,
};
/*
* ps/2 mouse message is three bytes
*
* byte 0 - 0 0 SDY SDX 1 M R L
* byte 1 - DX
* byte 2 - DY
*
* shift & right button is the same as middle button
*
* Intellimouse and AccuPoint with extra buttons deliver
* byte 3 - 00 or 01 or FF according to extra button state.
* extra buttons are mapped in this code to buttons 4 and 5.
* AccuPoint generates repeated events for these buttons;
* it and Intellimouse generate 'down' events only, so
* user-level code is required to generate button 'up' events
* if they are needed by the application.
* Also on laptops with AccuPoint AND external mouse, the
* controller may deliver 3 or 4 bytes according to the type
* of the external mouse; code must adapt.
*
* On the NEC Versa series (and perhaps others?) we seem to
* lose a byte from the packet every once in a while, which
* means we lose where we are in the instruction stream.
* To resynchronize, if we get a byte more than two seconds
* after the previous byte, we assume it's the first in a packet.
*/
static void
ps2mouseputc(int c, int shift)
{
static short msg[4];
static int nb;
static uchar b[] = {0, 1, 4, 5, 2, 3, 6, 7, 0, 1, 2, 3, 2, 3, 6, 7 };
static ulong lasttick;
ulong m;
int buttons, dx, dy;
/*
* Resynchronize in stream with timing; see comment above.
*/
m = MACHP(0)->ticks;
if(TK2SEC(m - lasttick) > 2)
nb = 0;
lasttick = m;
/*
* check byte 0 for consistency
*/
if(nb==0 && (c&0xc8)!=0x08){
if(intellimouse && (c==0x00 || c==0x01 || c==0xFF)){
/* last byte of 4-byte packet */
packetsize = 4;
}
return;
}
msg[nb] = c;
if(++nb >= packetsize){
nb = 0;
if(msg[0] & 0x10)
msg[1] |= 0xFF00;
if(msg[0] & 0x20)
msg[2] |= 0xFF00;
buttons = b[(msg[0]&7) | (shift ? 8 : 0)];
if(intellimouse && packetsize==4){
if((msg[3]&0xc8) == 0x08){
/* first byte of 3-byte packet */
packetsize = 3;
msg[0] = msg[3];
nb = 1;
/* fall through to emit previous packet */
}else{
/* The AccuPoint on the Toshiba 34[48]0CT
* encodes extra buttons as 4 and 5. They repeat
* and don't release, however, so user-level
* timing code is required. Furthermore,
* intellimice with 3buttons + scroll give a
* two's complement number in the lower 4 bits
* (bit 4 is sign extension) that describes
* the amount the scroll wheel has moved during
* the last sample. Here we use only the sign to
* decide whether the wheel is moving up or down
* and generate a single button 4 or 5 click
* accordingly.
*/
if((msg[3] >> 3) & 1)
buttons |= 1<<3;
else if(msg[3] & 0x7)
buttons |= 1<<4;
}
}
dx = msg[1];
dy = -msg[2];
mousetrack(dx, dy, buttons, TK2MS(MACHP(0)->ticks));
}
}
/*
* set up a ps2 mouse
*/
static void
ps2mouse(void)
{
if(mousetype == MousePS2)
return;
mousetype = MousePS2;
packetsize = 3;
mousehwaccel = 0;
i8042auxenable(ps2mouseputc);
i8042auxcmd(0xEA); /* set stream mode */
}
/*
* The PS/2 Trackpoint multiplexor on the IBM Thinkpad T23 ignores
* acceleration commands. It is supposed to pass them on
* to the attached device, but my Logitech mouse is simply
* not behaving any differently. For such devices, we allow
* the user to use "hwaccel off" to tell us to back off to
* software acceleration even if we're using the PS/2 port.
* (Serial mice are always software accelerated.)
* For more information on the Thinkpad multiplexor, see
* http://wwwcssrv.almaden.ibm.com/trackpoint/
*/
static void
setaccelerated(int x)
{
accelerated = x;
if(mousehwaccel){
switch(mousetype){
case MousePS2:
i8042auxcmd(0xE7);
return;
}
}
mouseaccelerate(x);
}
static void
setlinear(void)
{
accelerated = 0;
if(mousehwaccel){
switch(mousetype){
case MousePS2:
i8042auxcmd(0xE6);
return;
}
}
mouseaccelerate(0);
}
static void
setres(int n)
{
resolution = n;
switch(mousetype){
case MousePS2:
i8042auxcmd(0xE8);
i8042auxcmd(n);
break;
}
}
static void
setintellimouse(void)
{
intellimouse = 1;
packetsize = 4;
switch(mousetype){
case MousePS2:
i8042auxcmd(0xF3); /* set sample */
i8042auxcmd(0xC8);
i8042auxcmd(0xF3); /* set sample */
i8042auxcmd(0x64);
i8042auxcmd(0xF3); /* set sample */
i8042auxcmd(0x50);
break;
case Mouseserial:
uartsetmouseputc(mouseport, m5mouseputc);
break;
}
}
static void
resetmouse(void)
{
packetsize = 3;
switch(mousetype){
case MousePS2:
i8042auxcmd(0xF6);
i8042auxcmd(0xEA); /* streaming */
i8042auxcmd(0xE8); /* set resolution */
i8042auxcmd(3);
break;
}
}
static void
setstream(int on)
{
int i;
switch(mousetype){
case MousePS2:
/*
* disabling streaming can fail when
* a packet is currently transmitted.
*/
for(i=0; i<4; i++){
if(i8042auxcmd(on ? 0xF4 : 0xF5) != -1)
break;
delay(50);
}
break;
}
}
void
mousectl(Cmdbuf *cb)
{
Cmdtab *ct;
qlock(&mousectlqlock);
if(waserror()){
qunlock(&mousectlqlock);
nexterror();
}
ct = lookupcmd(cb, mousectlmsg, nelem(mousectlmsg));
switch(ct->index){
case CMaccelerated:
setstream(0);
setaccelerated(cb->nf == 1 ? 1 : atoi(cb->f[1]));
setstream(1);
break;
case CMintellimouse:
setstream(0);
setintellimouse();
setstream(1);
break;
case CMlinear:
setstream(0);
setlinear();
setstream(1);
break;
case CMps2:
intellimouse = 0;
ps2mouse();
setstream(1);
break;
case CMps2intellimouse:
ps2mouse();
setintellimouse();
setstream(1);
break;
case CMres:
setstream(0);
if(cb->nf >= 2)
setres(atoi(cb->f[1]));
else
setres(1);
setstream(1);
break;
case CMreset:
resetmouse();
if(accelerated)
setaccelerated(accelerated);
if(resolution)
setres(resolution);
if(intellimouse)
setintellimouse();
setstream(1);
break;
case CMserial:
if(mousetype == Mouseserial)
error(Emouseset);
if(cb->nf > 2){
if(strcmp(cb->f[2], "M") == 0)
uartmouse(cb->f[1], m3mouseputc, 0);
else if(strcmp(cb->f[2], "MI") == 0)
uartmouse(cb->f[1], m5mouseputc, 0);
else
uartmouse(cb->f[1], mouseputc, cb->nf == 1);
} else
uartmouse(cb->f[1], mouseputc, cb->nf == 1);
mousetype = Mouseserial;
strncpy(mouseport, cb->f[1], sizeof(mouseport)-1);
mouseport[sizeof(mouseport)-1] = 0;
packetsize = 3;
break;
case CMhwaccel:
if(strcmp(cb->f[1], "on")==0)
mousehwaccel = 1;
else if(strcmp(cb->f[1], "off")==0)
mousehwaccel = 0;
else
cmderror(cb, "bad mouse control message");
}
qunlock(&mousectlqlock);
poperror();
}