2021-10-11 18:37:13 -03:00

137 lines
3.8 KiB
C

/*
* Copyright (c) 1986, 1987, 1988, 1989 by Sun Microsystems, Inc.
* Permission to use, copy, modify, and distribute this software for any
* purpose and without fee is hereby granted, provided that the above
* copyright notice appear in all copies and that both that copyright
* notice and this permission notice are retained, and that the name
* of Sun Microsystems, Inc., not be used in advertising or publicity
* pertaining to this software without specific, written prior permission.
* Sun Microsystems, Inc., makes no representations about the suitability
* of this software or the interface defined in this software for any
* purpose. It is provided "as is" without express or implied warranty.
*/
#ifndef lint
static char sccsid[] = "@(#)inputcore.c 1.1 94/10/31 Copyr 1983 Sun Micro";
#endif
/*
* Copyright (c) 1983 by Sun Microsystems, Inc.
*/
/*
* Device dependent core graphics driver for the mouse and keyboard
* 22-Oct-82 by Mike Shantz.
*
*/
#include "coretypes.h"
#include "corevars.h"
#include <stdio.h>
#include <sgtty.h>
#include <sys/types.h>
static int fd;
static int hit, last;
static int mousex, mousey, dx, dy;
static int on=1;
/*--------------------------------------------------------------------*/
_core_mousedd(ddstruct) register ddargtype *ddstruct;
{
unsigned char but;
char xy[2];
int n, accel;
switch(ddstruct->opcode) {
case INITIAL:
fd = open("/dev/mouse", 0);
ioctl( fd, FIONBIO, &on);
mousex = mousey = dx = dy = 0;
hit = last = 0; /* no buttons have been hit */
break;
case TERMINATE:
close( fd);
break;
case BUTREAD:
case XYREAD:
do { /* read all mouse input */
if (read( fd, &but, 1) < 1) break;
if ((but & 0xf8) == 0x80){
but = (~but & 7); /* change so one bit means down */
hit |= but & ~last; /* update buttons having been hit */
last = but;
if (read( fd, xy, 2) < 2) break;
dx += xy[0];
dy += xy[1];
}
}
while (TRUE);
ddstruct->logical = FALSE;
if (ddstruct->opcode == BUTREAD) { /* return button info */
ddstruct->int3 = hit;
if (hit & ddstruct->int1) { /* polled button has been hit */
ddstruct->logical = TRUE; /* tell caller */
hit &= ~( ddstruct->int1); /* turn hit off */
}
ddstruct->int2 = but;
}
else {
accel = ((abs(dx) + abs(dy)) < 4) ? 5 : 6;
mousex += dx << accel;
mousey += dy << accel; /* mouse origin at lower left */
dx = dy = 0;
if (mousex < 0) mousex = 0; /* clamp to NDC */
else if (mousex > _core_ndcspace[0]) mousex = _core_ndcspace[0];
if (mousey < 0) mousey = 0;
else if (mousey > _core_ndcspace[1]) mousey = _core_ndcspace[1];
ddstruct->int1 = mousex;
ddstruct->int2 = mousey;
ddstruct->int3 = but;
}
break;
case XYWRITE:
mousex = ddstruct->int1;
mousey = ddstruct->int2;
break;
default:
break;
}
}
/*----------------------------------------------------------------------*/
/* Device dependent core graphics driver for the keyboard
22-Oct-82 by Mike Shantz.
*/
static int fildes;
static short ttyflags;
static struct sgttyb ttypar, *argp;
int ioctl();
/*--------------------------------------------------*/
_core_keybrdd(ddstruct) register ddargtype *ddstruct;
{
int i, count,i3;
switch(ddstruct->opcode) {
case INITIAL:
argp = &ttypar; /* set tty for polling */
fildes = fileno( stdin);
gtty( fildes, argp);
ttyflags = argp->sg_flags;
argp->sg_flags |= CBREAK;
argp->sg_flags &= ~ECHO;
stty( fildes, argp);
break;
case TERMINATE:
argp->sg_flags = ttyflags; /* restore tty to original setting */
stty( fildes, argp);
break;
case KEYREAD:
ioctl( fildes, FIONREAD, &count);
count = (count <= ddstruct->int1) ? count : ddstruct->int1;
ddstruct->int1 = read( fildes, ddstruct->ptr1, count);
break;
default:
break;
}
}