Driver for Jornada 680 touch screen.

This commit is contained in:
uwe 2003-10-19 02:20:25 +00:00
parent e14dfde075
commit e4bd58b011
1 changed files with 367 additions and 0 deletions

367
sys/arch/hpcsh/dev/j6x0tp.c Normal file
View File

@ -0,0 +1,367 @@
/* $NetBSD: j6x0tp.c,v 1.1 2003/10/19 02:20:25 uwe Exp $ */
/*
* Copyright (c) 2003 Valeriy E. Ushakov
* All rights reserved.
*
* 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. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
*/
#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: j6x0tp.c,v 1.1 2003/10/19 02:20:25 uwe Exp $");
#include <sys/param.h>
#include <sys/kernel.h>
#include <sys/device.h>
#include <sys/malloc.h>
#include <sys/systm.h>
#include <sys/callout.h>
#ifdef GPROF
#include <sys/gmon.h>
#endif
#include <dev/wscons/wsconsio.h>
#include <dev/wscons/wsmousevar.h>
#include <dev/hpc/tpcalibvar.h>
#include <machine/platid.h>
#include <machine/platid_mask.h>
#include <machine/intr.h>
#include <sh3/exception.h>
#include <sh3/intcreg.h>
#include <sh3/pfcreg.h>
#include <sh3/adcreg.h>
#define J6X0TP_DEBUG
#if 0 /* XXX: disabled in favor of local version that uses printf_nolog */
#define DPRINTF_ENABLE
#define DPRINTF_DEBUG j6x0tp_debug
#define DPRINTF_LEVEL 0
#include <machine/debug.h>
#else
#ifdef J6X0TP_DEBUG
volatile int j6x0tp_debug = 0;
#define DPRINTF(arg) if (j6x0tp_debug) printf_nolog arg
#define DPRINTFN(n, arg) if (j6x0tp_debug > (n)) printf_nolog arg
#else
#define DPRINTF(arg) ((void)0)
#define DPRINTFN(n, arg) ((void)0)
#endif
#endif
/* PFC bits pertinent to Jornada 6x0 touchpanel */
#define PHDR_TP_PEN_DOWN 0x08
#define SCPDR_TP_SCAN_ENABLE 0x20
#define SCPDR_TP_SCAN_Y 0x02
#define SCPDR_TP_SCAN_X 0x01
/* A/D covnerter channels to get x/y from */
#define ADC_CHANNEL_TP_Y 1
#define ADC_CHANNEL_TP_X 2
extern int adc_sample_channel(int); /* XXX: adcvar.h */
struct j6x0tp_softc {
struct device sc_dev;
struct callout sc_touch_ch;
int sc_intrlevel;
int sc_enabled;
struct device *sc_wsmousedev;
struct tpcalib_softc sc_tpcalib;
};
static int j6x0tp_match(struct device *, struct cfdata *, void *);
static void j6x0tp_attach(struct device *, struct device *, void *);
CFATTACH_DECL(j6x0tp, sizeof(struct j6x0tp_softc),
j6x0tp_match, j6x0tp_attach, NULL, NULL);
static int j6x0tp_enable(void *);
static int j6x0tp_ioctl(void *, u_long, caddr_t, int, struct proc *);
static void j6x0tp_disable(void *);
const struct wsmouse_accessops j6x0tp_accessops = {
j6x0tp_enable,
j6x0tp_ioctl,
j6x0tp_disable,
};
static const struct wsmouse_calibcoords j6x0tp_default_calib = {
0, 0, 639, 239,
4,
{{ 38, 80, 0, 0 }, /* upper left */
{ 950, 80, 639, 0 }, /* upper right */
{ 38, 900, 0, 239 }, /* lower left */
{ 950, 900, 639, 239 }} /* lower right */
};
static int j6x0tp_intr(void *);
static void j6x0tp_poll_callout(void *self);
static int
j6x0tp_match(struct device *parent, struct cfdata *cfp, void *aux)
{
/*
* XXX: does platid_mask_MACH_HP_LX matches _JORNADA_6XX too?
* Is 620 wired similarly?
*/
if (!platid_match(&platid, &platid_mask_MACH_HP_JORNADA_6XX))
return (0);
if (strcmp(cfp->cf_name, "j6x0tp") != 0)
return (0);
return (1);
}
static void
j6x0tp_attach(struct device *parent, struct device *self, void *aux)
{
struct j6x0tp_softc *sc = (struct j6x0tp_softc *)self;
struct wsmousedev_attach_args wsma;
printf("\n");
sc->sc_enabled = 0;
wsma.accessops = &j6x0tp_accessops;
wsma.accesscookie = sc;
sc->sc_wsmousedev = config_found(self, &wsma, wsmousedevprint);
if (sc->sc_wsmousedev == NULL)
return;
tpcalib_init(&sc->sc_tpcalib);
tpcalib_ioctl(&sc->sc_tpcalib, WSMOUSEIO_SCALIBCOORDS,
(caddr_t)&j6x0tp_default_calib, 0, 0);
callout_init(&sc->sc_touch_ch);
intc_intr_establish(SH7709_INTEVT2_IRQ3, IST_EDGE, IPL_TTY,
j6x0tp_intr, sc);
sc->sc_intrlevel = intc_intr_disable(SH7709_INTEVT2_IRQ3);
}
static int
j6x0tp_enable(void *self)
{
struct j6x0tp_softc *sc = (struct j6x0tp_softc *)self;
int s;
DPRINTFN(1, ("%s: enable\n", sc->sc_dev.dv_xname));
s = spltty();
sc->sc_enabled = 1;
intc_intr_enable(SH7709_INTEVT2_IRQ3, sc->sc_intrlevel);
splx(s);
return (0);
}
static void
j6x0tp_disable(void *self)
{
struct j6x0tp_softc *sc = (struct j6x0tp_softc *)self;
int s;
s = spltty();
DPRINTFN(1, ("%s: disable\n", sc->sc_dev.dv_xname));
sc->sc_enabled = 0;
intc_intr_disable(SH7709_INTEVT2_IRQ3);
callout_stop(&sc->sc_touch_ch);
splx(s);
}
static int
j6x0tp_intr(void *self)
{
struct j6x0tp_softc *sc = (struct j6x0tp_softc *)self;
uint8_t irr0;
uint8_t phdr, touched;
unsigned int steady, tremor_timeout;
irr0 = _reg_read_1(SH7709_IRR0);
if ((irr0 & IRR0_IRQ3) == 0) {
#ifdef DIAGNOSTIC
printf("%s: irr0 %02x?\n", sc->sc_dev.dv_xname, irr0);
#endif
return (0);
}
/*
* Number of times the "touched" bit should be read
* consecutively.
*/
# define TREMOR_THRESHOLD 0x300
steady = 0;
tremor_timeout = TREMOR_THRESHOLD * 16; /* XXX: arbitrary */
touched = PHDR_TP_PEN_DOWN; /* we start with "touched" state */
do {
phdr = _reg_read_1(SH7709_PHDR);
if ((phdr & PHDR_TP_PEN_DOWN) == touched)
++steady;
else {
steady = 0;
touched = phdr & PHDR_TP_PEN_DOWN;
}
if (--tremor_timeout == 0) {
DPRINTF(("%s: tremor timeout!\n",
sc->sc_dev.dv_xname));
goto served;
}
} while (steady < TREMOR_THRESHOLD);
if (touched == 0) {
DPRINTFN(1, ("%s: tremor\n", sc->sc_dev.dv_xname));
goto served;
}
intc_intr_disable(SH7709_INTEVT2_IRQ3);
if (sc->sc_enabled)
callout_reset(&sc->sc_touch_ch, hz/32,
j6x0tp_poll_callout, sc);
else
DPRINTFN(1, ("%s: intr: !sc_enabled\n", sc->sc_dev.dv_xname));
served:
/* clear the interrupt */
_reg_write_1(SH7709_IRR0, irr0 & ~IRR0_IRQ3);
return (1);
}
static void
j6x0tp_poll_callout(void *self)
{
struct j6x0tp_softc *sc = (struct j6x0tp_softc *)self;
uint8_t phdr, scpdr;
uint8_t irr0;
int rawx, rawy, x, y;
int s;
s = spltty();
if (!sc->sc_enabled) {
DPRINTFN(1, ("%s: callout: !sc_enabled\n",
sc->sc_dev.dv_xname));
splx(s);
return;
}
phdr = _reg_read_1(SH7709_PHDR);
if ((phdr & PHDR_TP_PEN_DOWN) == 0) {
wsmouse_input(sc->sc_wsmousedev, 0, 0, 0, 0, 0); /* mouse up */
intc_intr_enable(SH7709_INTEVT2_IRQ3, sc->sc_intrlevel);
irr0 = _reg_read_1(SH7709_IRR0);
if ((irr0 & IRR0_IRQ3) != 0)
_reg_write_1(SH7709_IRR0, irr0 & ~IRR0_IRQ3);
splx(s);
return;
}
/* XXX: protect accesses to SCPDR? */
/* Y axis */
scpdr = _reg_read_1(SH7709_SCPDR);
scpdr |= SCPDR_TP_SCAN_ENABLE;
scpdr &= ~SCPDR_TP_SCAN_Y; /* pull low to scan */
_reg_write_1(SH7709_SCPDR, scpdr);
delay(10);
rawy = adc_sample_channel(ADC_CHANNEL_TP_Y);
/* X axis */
scpdr = _reg_read_1(SH7709_SCPDR);
scpdr |= SCPDR_TP_SCAN_Y;
scpdr &= ~SCPDR_TP_SCAN_X; /* pull low to scan */
_reg_write_1(SH7709_SCPDR, scpdr);
delay(10);
rawx = adc_sample_channel(ADC_CHANNEL_TP_X);
/* restore SCPDR */
scpdr = _reg_read_1(SH7709_SCPDR);
scpdr |= SCPDR_TP_SCAN_X;
scpdr &= ~SCPDR_TP_SCAN_ENABLE;
_reg_write_1(SH7709_SCPDR, scpdr);
tpcalib_trans(&sc->sc_tpcalib, rawx, rawy, &x, &y);
DPRINTFN(2, ("%s: %4d %4d -> %3d %3d\n",
sc->sc_dev.dv_xname, rawx, rawy, x, y));
wsmouse_input(sc->sc_wsmousedev, 1, x, y, 0,
WSMOUSE_INPUT_ABSOLUTE_X | WSMOUSE_INPUT_ABSOLUTE_Y);
callout_schedule(&sc->sc_touch_ch, hz/32);
splx(s);
}
static int
j6x0tp_ioctl(void *self, u_long cmd, caddr_t data, int flag,
struct proc *p)
{
struct j6x0tp_softc *sc = (struct j6x0tp_softc *)self;
switch (cmd) {
case WSMOUSEIO_GTYPE:
*(u_int *)data = WSMOUSE_TYPE_TPANEL;
return (0);
case WSMOUSEIO_SCALIBCOORDS:
case WSMOUSEIO_GCALIBCOORDS:
case WSMOUSEIO_GETID:
return (tpcalib_ioctl(&sc->sc_tpcalib, cmd, data, flag, p));
default:
return (EPASSTHROUGH);
}
}