/*      $NetBSD: hil_gpib.c,v 1.13 2020/05/25 19:01:15 thorpej Exp $    */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: hil_gpib.c,v 1.13 2020/05/25 19:01:15 thorpej Exp $");

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/callout.h>
#include <sys/conf.h>
#include <sys/device.h>

#include <dev/gpib/gpibvar.h>

#ifdef DEBUG
int     hildebug = 0;
#define HDB_FOLLOW      0x01
#define HDB_MMAP        0x02
#define HDB_MASK        0x04
#define HDB_CONFIG      0x08
#define HDB_KEYBOARD    0x10
#define HDB_IDMODULE    0x20
#define HDB_EVENTS      0x80
#define DPRINTF(mask, str)      if (hildebug & (mask)) printf str
#else
#define DPRINTF(mask, str)      /* nothing */
#endif

struct  hil_softc {
        gpib_chipset_tag_t sc_ic;
        gpib_handle_t sc_hdl;

        int     sc_address;              /* GPIB address */
        int     sc_flags;
#define HILF_ALIVE      0x01
#define HILF_OPEN       0x02
#define HILF_UIO        0x04
#define HILF_TIMO       0x08
#define HILF_DELAY      0x10
};

static int      hilmatch(device_t, cfdata_t, void *);
static void     hilattach(device_t, device_t, void *);

CFATTACH_DECL_NEW(hil_gpib,
        sizeof(struct hil_softc),
        hilmatch,
        hilattach,
        NULL,
        NULL);

static void     hilcallback(void *, int);
static void     hilstart(void *);

static int
hilmatch(device_t parent, cfdata_t match, void *aux)
{
        struct gpib_attach_args *ga = aux;
        u_int8_t *cmd = "SE;";
        u_int8_t stat;

        if (gpibsend(ga->ga_ic, ga->ga_address, -1, cmd, 3) != 3)
                return (0);
        if (gpibrecv(ga->ga_ic, ga->ga_address, -1, &stat, 1) != 1)
                return (0);
        printf("hilmatch: enable status byte 0x%x\n", stat);
        return (1);
}

static void
hilattach(device_t parent, device_t self, void *aux)
{
        struct hil_softc *sc = device_private(self);
        struct gpib_attach_args *ga = aux;

        printf("\n");

        sc->sc_ic = ga->ga_ic;
        sc->sc_address = ga->ga_address;

        if (gpibregister(sc->sc_ic, sc->sc_address, hilcallback, sc,
            &sc->sc_hdl)) {
                aprint_error_dev(self, "can't register callback\n");
                return;
        }

        sc->sc_flags = HILF_ALIVE;
}

static void
hilcallback(void *v, int action)
{
        struct hil_softc *sc = v;

        DPRINTF(HDB_FOLLOW, ("hilcallback: v=%p, action=%d\n", v, action));

        switch (action) {
        case GPIBCBF_START:
                hilstart(sc);
        case GPIBCBF_INTR:
                /* no-op */
                break;
#ifdef DEBUG
        default:
                DPRINTF(HDB_FOLLOW, ("hilcallback: unknown action %d\n",
                    action));
                break;
#endif
        }
}

static void
hilstart(void *v)
{
        struct hil_softc *sc = v;

        DPRINTF(HDB_FOLLOW, ("hilstart\n"));

        sc->sc_flags &= ~HILF_DELAY;
}