/*      $NetBSD: j720tp.c,v 1.15 2023/12/20 14:50:02 thorpej Exp $      */

/*-
 * Copyright (c) 2006 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by IWAMOTO Toshihiro and Peter Postma.
 *
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
 */

/* Jornada 720 touch-panel driver. */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: j720tp.c,v 1.15 2023/12/20 14:50:02 thorpej Exp $");

#ifdef _KERNEL_OPT
#include "opt_j720tp.h"
#include "opt_wsdisplay_compat.h"
#endif

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/device.h>
#include <sys/kernel.h>
#include <sys/ioctl.h>
#include <sys/callout.h>
#include <sys/sysctl.h>

#include <machine/platid.h>
#include <machine/platid_mask.h>

#include <arm/sa11x0/sa11x0_var.h>
#include <arm/sa11x0/sa11x0_gpioreg.h>
#include <arm/sa11x0/sa11x0_ppcreg.h>
#include <arm/sa11x0/sa11x0_sspreg.h>

#include <dev/wscons/wsconsio.h>
#include <dev/wscons/wsmousevar.h>
#include <dev/wscons/wskbdvar.h>
#include <dev/wscons/wsksymvar.h>
#include <dev/wscons/wsksymdef.h>
#include <dev/hpc/hpctpanelvar.h>

#include <hpcarm/dev/j720sspvar.h>

#ifdef WSDISPLAY_COMPAT_RAWKBD
#include <dev/hpc/pckbd_encode.h>
#endif

#define arraysize(ary)  (sizeof(ary) / sizeof(ary[0]))

#ifdef J720TP_DEBUG
int j720tp_debug = 0;
#define DPRINTF(arg)            if (j720tp_debug) aprint_normal arg
#define DPRINTFN(n, arg)        if (j720tp_debug >= (n)) aprint_normal arg
#else
#define DPRINTF(arg)            /* nothing */
#define DPRINTFN(n, arg)        /* nothing */
#endif

struct j720tp_softc {
        device_t                sc_dev;

#define J720TP_WSMOUSE_ENABLED  0x01
#define J720TP_WSKBD_ENABLED    0x02
        int                     sc_enabled;
        int                     sc_hard_icon;
#ifdef WSDISPLAY_COMPAT_RAWKBD
        int                     sc_rawkbd;
#endif

        struct callout          sc_tpcallout;
        struct j720ssp_softc    *sc_ssp;

        device_t                sc_wsmousedev;
        device_t                sc_wskbddev;

        struct tpcalib_softc    sc_tpcalib;
};

static int      j720tp_match(device_t, cfdata_t, void *);
static void     j720tp_attach(device_t, device_t, void *);

static int      j720tp_wsmouse_enable(void *);
static int      j720tp_wsmouse_ioctl(void *, u_long, void *, int,
                        struct lwp *);
static void     j720tp_wsmouse_disable(void *);

static int      j720tp_wskbd_enable(void *, int);
static void     j720tp_wskbd_set_leds(void *, int);
static int      j720tp_wskbd_ioctl(void *, u_long, void *, int, struct lwp *);

static void     j720tp_enable_intr(struct j720tp_softc *);
static void     j720tp_disable_intr(struct j720tp_softc *);
static int      j720tp_intr(void *);
static int      j720tp_get_rawxy(struct j720tp_softc *, int *, int *);
static int      j720tp_get_hard_icon(struct j720tp_softc *, int, int);
static void     j720tp_wsmouse_input(struct j720tp_softc *, int, int);
static void     j720tp_wsmouse_callout(void *);
static void     j720tp_wskbd_input(struct j720tp_softc *, u_int);
static void     j720tp_wskbd_callout(void *);

const struct wsmouse_accessops j720tp_wsmouse_accessops = {
        j720tp_wsmouse_enable,
        j720tp_wsmouse_ioctl,
        j720tp_wsmouse_disable
};

static const struct wsmouse_calibcoords j720tp_default_calib = {
        0, 0, 639, 239,
        4,
        {{ 988,  80,   0,   0 },
         {  88,  84, 639,   0 },
         { 988, 927,   0, 239 },
         {  88, 940, 639, 239 }}
};

const struct wskbd_accessops j720tp_wskbd_accessops = {
        j720tp_wskbd_enable,
        j720tp_wskbd_set_leds,
        j720tp_wskbd_ioctl
};

#ifndef J720TP_SETTINGS_ICON_KEYSYM
#define J720TP_SETTINGS_ICON_KEYSYM     KS_Home
#endif
#ifndef J720TP_BACKUP_ICON_KEYSYM
#define J720TP_BACKUP_ICON_KEYSYM       KS_Prior
#endif
#ifndef J720TP_DIALUP_ICON_KEYSYM
#define J720TP_DIALUP_ICON_KEYSYM       KS_Next
#endif
#ifndef J720TP_MEDIA_ICON_KEYSYM
#define J720TP_MEDIA_ICON_KEYSYM        KS_End
#endif

/* Max Y value of the n'th hard icon. */
#define J720TP_HARD_ICON_MAX_Y(n) \
        (((j720tp_hard_icon_bottom - j720tp_hard_icon_top) / 4) * (n)) + \
        j720tp_hard_icon_top

/* Default raw X/Y values of the hard icon area. */
static int j720tp_hard_icon_left = 70;
static int j720tp_hard_icon_right = 20;
static int j720tp_hard_icon_top = 70;
static int j720tp_hard_icon_bottom = 940;

/* Maps the icon number to a raw keycode. */
static const int j720tp_wskbd_keys[] = {
        /* Icon 1 */ 199,
        /* Icon 2 */ 201,
        /* Icon 3 */ 209,
        /* Icon 4 */ 207
};

static const keysym_t j720tp_wskbd_keydesc[] = {
        KS_KEYCODE(199), J720TP_SETTINGS_ICON_KEYSYM,
        KS_KEYCODE(201), J720TP_BACKUP_ICON_KEYSYM,
        KS_KEYCODE(209), J720TP_DIALUP_ICON_KEYSYM,
        KS_KEYCODE(207), J720TP_MEDIA_ICON_KEYSYM
};

const struct wscons_keydesc j720tp_wskbd_keydesctab[] = {
        { KB_US, 0,
          sizeof(j720tp_wskbd_keydesc) / sizeof(keysym_t),
          j720tp_wskbd_keydesc
        },
        { 0, 0, 0, 0 }
};

const struct wskbd_mapdata j720tp_wskbd_keymapdata = {
        j720tp_wskbd_keydesctab, KB_US
};

CFATTACH_DECL_NEW(j720tp, sizeof(struct j720tp_softc),
    j720tp_match, j720tp_attach, NULL, NULL);


static int
j720tp_match(device_t parent, cfdata_t cf, void *aux)
{

        if (!platid_match(&platid, &platid_mask_MACH_HP_JORNADA_7XX))
                return 0;
        if (strcmp(cf->cf_name, "j720tp") != 0)
                return 0;

        return 1;
}

static void
j720tp_attach(device_t parent, device_t self, void *aux)
{
        struct j720tp_softc *sc = device_private(self);
        struct wsmousedev_attach_args wsma;
        struct wskbddev_attach_args wska;

        aprint_normal("\n");

        sc->sc_dev = self;
        sc->sc_ssp = device_private(parent);
        sc->sc_enabled = 0;
        sc->sc_hard_icon = 0;
#ifdef WSDISPLAY_COMPAT_RAWKBD
        sc->sc_rawkbd = 0;
#endif

        /* Touch-panel as a pointing device. */
        wsma.accessops = &j720tp_wsmouse_accessops;
        wsma.accesscookie = sc;

        sc->sc_wsmousedev = config_found(self, &wsma, wsmousedevprint,
            CFARGS(.iattr = "wsmousedev"));
        if (sc->sc_wsmousedev == NULL)
                return;

        /* Initialize calibration, set default parameters. */
        tpcalib_init(&sc->sc_tpcalib);
        tpcalib_ioctl(&sc->sc_tpcalib, WSMOUSEIO_SCALIBCOORDS,
            __UNCONST(&j720tp_default_calib), 0, 0);

        callout_init(&sc->sc_tpcallout, 0);

        j720tp_wsmouse_disable(sc);

        /* On-screen "hard icons" as a keyboard device. */
        wska.console = 0;
        wska.keymap = &j720tp_wskbd_keymapdata;
        wska.accessops = &j720tp_wskbd_accessops;
        wska.accesscookie = sc;

        sc->sc_wskbddev = config_found(self, &wska, wskbddevprint,
            CFARGS(.iattr = "wskbddev"));

        /* Setup touch-panel interrupt. */
        sa11x0_intr_establish(0, 9, 1, IPL_TTY, j720tp_intr, sc);
}

static int
j720tp_wsmouse_enable(void *self)
{
        struct j720tp_softc *sc = self;
        int s;

        s = spltty();

        j720tp_enable_intr(sc);

        sc->sc_enabled |= J720TP_WSMOUSE_ENABLED;

        splx(s);
        return 0;
}

static int
j720tp_wsmouse_ioctl(void *self, u_long cmd, void *data, int flag,
    struct lwp *l)
{
        struct j720tp_softc *sc = self;

        return hpc_tpanel_ioctl(&sc->sc_tpcalib, cmd, data, flag, l);
}

static void
j720tp_wsmouse_disable(void *self)
{
        struct j720tp_softc *sc = self;
        int s;

        s = spltty();

        j720tp_disable_intr(sc);
        callout_stop(&sc->sc_tpcallout);

        sc->sc_enabled &= ~J720TP_WSMOUSE_ENABLED;

        splx(s);
}

static int
j720tp_wskbd_enable(void *self, int on)
{
        struct j720tp_softc *sc = self;
        int s;

        s = spltty();
        sc->sc_enabled |= J720TP_WSKBD_ENABLED;
        splx(s);

        return 0;
}

static void
j720tp_wskbd_set_leds(void *self, int leds)
{
        /* nothing to do */
}

static int
j720tp_wskbd_ioctl(void *self, u_long cmd, void *data, int flag,
    struct lwp *l)
{
#ifdef WSDISPLAY_COMPAT_RAWKBD
        struct j720tp_softc *sc = self;
#endif

        switch (cmd) {
        case WSKBDIO_GTYPE:
                *(int *)data = WSKBD_TYPE_HPC_BTN;
                return 0;
        case WSKBDIO_GETLEDS:
                *(int *)data = 0;
                return 0;
#ifdef WSDISPLAY_COMPAT_RAWKBD
        case WSKBDIO_SETMODE:
                sc->sc_rawkbd = (*(int *)data == WSKBD_RAW);
                return 0;
#endif
        }

        return EPASSTHROUGH;
}

/*
 * Enable touch-panel interrupt.  Must be called at spltty().
 */
static void
j720tp_enable_intr(struct j720tp_softc *sc)
{
        struct j720ssp_softc *ssp = sc->sc_ssp;
        uint32_t er;

        er = bus_space_read_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_FER);
        er |= 1 << 9;
        bus_space_write_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_FER, er);
}

/*
 * Disable touch-panel interrupt.  Must be called at spltty().
 */
static void
j720tp_disable_intr(struct j720tp_softc *sc)
{
        struct j720ssp_softc *ssp = sc->sc_ssp;
        uint32_t er;

        er = bus_space_read_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_FER);
        er &= ~(1 << 9);
        bus_space_write_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_FER, er);
}

static int
j720tp_intr(void *arg)
{
        struct j720tp_softc *sc = arg;
        struct j720ssp_softc *ssp = sc->sc_ssp;
        int rawx, rawy;

        bus_space_write_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_EDR, 1 << 9);

        if (!(sc->sc_enabled & J720TP_WSMOUSE_ENABLED)) {
                DPRINTF(("j720tp_intr: !sc_enabled\n"));
                return 0;
        }

        j720tp_disable_intr(sc);

        if (j720tp_get_rawxy(sc, &rawx, &rawy)) {
                sc->sc_hard_icon = j720tp_get_hard_icon(sc, rawx, rawy);

                if (sc->sc_hard_icon > 0) {
                        j720tp_wskbd_input(sc, WSCONS_EVENT_KEY_DOWN);
                        callout_reset(&sc->sc_tpcallout, hz / 32,
                            j720tp_wskbd_callout, sc);
                } else {
                        j720tp_wsmouse_input(sc, rawx, rawy);
                        callout_reset(&sc->sc_tpcallout, hz / 32,
                            j720tp_wsmouse_callout, sc);
                }
        }

        return 1;
}

static int
j720tp_get_rawxy(struct j720tp_softc *sc, int *rawx, int *rawy)
{
        struct j720ssp_softc *ssp = sc->sc_ssp;
        int buf[8], data, i;

        bus_space_write_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_PCR, 0x2000000);

        /* Send read touch-panel command. */
        if (j720ssp_readwrite(ssp, 1, 0xa0, &data, 100) < 0 || data != 0x11) {
                DPRINTF(("j720tp_get_rawxy: no dummy received\n"));
                goto out;
        }

        for (i = 0; i < 8; i++) {
                if (j720ssp_readwrite(ssp, 0, 0x11, &data, 100) < 0)
                        goto out;
                buf[i] = data;
        }

        bus_space_write_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_PSR, 0x2000000);

        buf[6] <<= 8;
        buf[7] <<= 8;
        for (i = 0; i < 3; i++) {
                buf[i] |= buf[6] & 0x300;
                buf[6] >>= 2;
                buf[i + 3] |= buf[7] & 0x300;
                buf[7] >>= 2;
        }

        DPRINTFN(2, ("j720tp_get_rawxy: %d:%d:%d:%d:%d:%d:%d:%d\n",
            buf[0], buf[1], buf[2], buf[3], buf[4], buf[5], buf[6], buf[7]));

        *rawx = buf[1];
        *rawy = buf[4];

        return 1;
out:
        bus_space_write_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_PSR, 0x2000000);

        /* reset SSP */
        bus_space_write_4(ssp->sc_iot, ssp->sc_ssph, SASSP_CR0, 0x307);
        delay(100);
        bus_space_write_4(ssp->sc_iot, ssp->sc_ssph, SASSP_CR0, 0x387);

        DPRINTF(("j720tp_get_rawxy: error %x\n", data));
        return 0;
}

static int
j720tp_get_hard_icon(struct j720tp_softc *sc, int rawx, int rawy)
{
        int icon = 0;

        if (!(sc->sc_enabled & J720TP_WSKBD_ENABLED))
                return 0;
        /* Check if the touch was in the hard icons area. */
        if (rawx > j720tp_hard_icon_left)
                return 0;

        if (rawy < J720TP_HARD_ICON_MAX_Y(1))
                icon = 1;
        else if (rawy < J720TP_HARD_ICON_MAX_Y(2))
                icon = 2;
        else if (rawy < J720TP_HARD_ICON_MAX_Y(3))
                icon = 3;
        else if (rawy < J720TP_HARD_ICON_MAX_Y(4))
                icon = 4;

        return icon;
}

static void
j720tp_wsmouse_input(struct j720tp_softc *sc, int rawx, int rawy)
{
        int x, y;

        tpcalib_trans(&sc->sc_tpcalib, rawx, rawy, &x, &y);
        wsmouse_input(sc->sc_wsmousedev, 1, x, y, 0, 0,
            WSMOUSE_INPUT_ABSOLUTE_X | WSMOUSE_INPUT_ABSOLUTE_Y);
}

static void
j720tp_wsmouse_callout(void *arg)
{
        struct j720tp_softc *sc = arg;
        struct j720ssp_softc *ssp = sc->sc_ssp;
        int rawx, rawy, s;

        s = spltty();

        if (!(sc->sc_enabled & J720TP_WSMOUSE_ENABLED)) {
                DPRINTF(("j720tp_wsmouse_callout: !sc_enabled\n"));
                splx(s);
                return;
        }

        if (bus_space_read_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_PLR) & (1<<9)) {
                wsmouse_input(sc->sc_wsmousedev, 0, 0, 0, 0, 0, 0);
                j720tp_enable_intr(sc);
        } else {
                if (j720tp_get_rawxy(sc, &rawx, &rawy))
                        j720tp_wsmouse_input(sc, rawx, rawy);
                callout_schedule(&sc->sc_tpcallout, hz / 32);
        }

        splx(s);
}

static void
j720tp_wskbd_input(struct j720tp_softc *sc, u_int evtype)
{
        int key = j720tp_wskbd_keys[sc->sc_hard_icon - 1];

#ifdef WSDISPLAY_COMPAT_RAWKBD
        if (sc->sc_rawkbd) {
                int n;
                u_char data[16];

                n = pckbd_encode(evtype, key, data);
                wskbd_rawinput(sc->sc_wskbddev, data, n);
        } else 
#endif
                wskbd_input(sc->sc_wskbddev, evtype, key);
}

static void
j720tp_wskbd_callout(void *arg)
{
        struct j720tp_softc *sc = arg;
        struct j720ssp_softc *ssp = sc->sc_ssp;
        int s;

        s = spltty();

        if (!sc->sc_enabled) {
                DPRINTF(("j720tp_wskbd_callout: !sc_enabled\n"));
                splx(s);
                return;
        }

        if (bus_space_read_4(ssp->sc_iot, ssp->sc_gpioh, SAGPIO_PLR) & (1<<9)) {
                j720tp_wskbd_input(sc, WSCONS_EVENT_KEY_UP);
                j720tp_enable_intr(sc);
        } else {
                callout_schedule(&sc->sc_tpcallout, hz / 32);
        }

        splx(s);
}

SYSCTL_SETUP(sysctl_j720tp, "sysctl j720tp subtree setup")
{
        const struct sysctlnode *rnode;
        int rc;

        if ((rc = sysctl_createv(clog, 0, NULL, &rnode,
            CTLFLAG_PERMANENT, CTLTYPE_NODE, "j720tp",
            SYSCTL_DESCR("Jornada 720 touch panel controls"),
            NULL, 0, NULL, 0, CTL_HW, CTL_CREATE, CTL_EOL)) != 0)
                goto err;

#ifdef J720TP_DEBUG
        if ((rc = sysctl_createv(clog, 0, &rnode, NULL,
            CTLFLAG_PERMANENT | CTLFLAG_READWRITE, CTLTYPE_INT, "debug",
            SYSCTL_DESCR("Verbosity of debugging messages"),
            NULL, 0, &j720tp_debug, 0, CTL_CREATE, CTL_EOL)) != 0)
                goto err;
#endif /* J720TP_DEBUG */

        if ((rc = sysctl_createv(clog, 0, &rnode, &rnode,
            CTLFLAG_PERMANENT, CTLTYPE_NODE, "hard_icons",
            SYSCTL_DESCR("Touch panel hard icons controls"),
            NULL, 0, NULL, 0, CTL_CREATE, CTL_EOL)) != 0)
                goto err;

        if ((rc = sysctl_createv(clog, 0, &rnode, NULL,
            CTLFLAG_PERMANENT | CTLFLAG_READWRITE, CTLTYPE_INT, "left",
            SYSCTL_DESCR("Raw left X value of the hard icon area"),
            NULL, 0, &j720tp_hard_icon_left, 0, CTL_CREATE, CTL_EOL)) != 0)
                goto err;

        if ((rc = sysctl_createv(clog, 0, &rnode, NULL,
            CTLFLAG_PERMANENT | CTLFLAG_READWRITE, CTLTYPE_INT, "right",
            SYSCTL_DESCR("Raw right X value of the hard icon area"),
            NULL, 0, &j720tp_hard_icon_right, 0, CTL_CREATE, CTL_EOL)) != 0)
                goto err;

        if ((rc = sysctl_createv(clog, 0, &rnode, NULL,
            CTLFLAG_PERMANENT | CTLFLAG_READWRITE, CTLTYPE_INT, "top",
            SYSCTL_DESCR("Raw top Y value of the hard icon area"),
            NULL, 0, &j720tp_hard_icon_top, 0, CTL_CREATE, CTL_EOL)) != 0)
                goto err;

        if ((rc = sysctl_createv(clog, 0, &rnode, NULL,
            CTLFLAG_PERMANENT | CTLFLAG_READWRITE, CTLTYPE_INT, "bottom",
            SYSCTL_DESCR("Raw bottom Y value of the hard icon area"),
            NULL, 0, &j720tp_hard_icon_bottom, 0, CTL_CREATE, CTL_EOL)) != 0)
                goto err;

        return;
err:
        aprint_normal("%s: sysctl_createv failed (rc = %d)\n", __func__, rc);
}