/*      $NetBSD: lpt_pcc.c,v 1.12 2008/04/28 20:23:29 martin Exp $ */

/*-
 * Copyright (c) 1999 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Steve C. Woodford.
 *
 * 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.
 */

/*
 * Device Driver back-end for the MVME147's parallel printer port
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: lpt_pcc.c,v 1.12 2008/04/28 20:23:29 martin Exp $");

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/device.h>
#include <sys/syslog.h>

#include <machine/bus.h>

#include <dev/mvme/lptvar.h>

#include <mvme68k/dev/lpt_pccreg.h>
#include <mvme68k/dev/pccreg.h>
#include <mvme68k/dev/pccvar.h>

#include "ioconf.h"


static int lpt_pcc_intr(void *);
static void lpt_pcc_open(struct lpt_softc *, int);
static void lpt_pcc_close(struct lpt_softc *);
static void lpt_pcc_iprime(struct lpt_softc *);
static void lpt_pcc_speed(struct lpt_softc *, int);
static int lpt_pcc_notrdy(struct lpt_softc *, int);
static void lpt_pcc_wr_data(struct lpt_softc *, u_char);

struct lpt_funcs lpt_pcc_funcs = {
        lpt_pcc_open,
        lpt_pcc_close,
        lpt_pcc_iprime,
        lpt_pcc_speed,
        lpt_pcc_notrdy,
        lpt_pcc_wr_data
};

/*
 * Autoconfig stuff
 */
static int lpt_pcc_match(device_t, cfdata_t , void *);
static void lpt_pcc_attach(device_t, device_t, void *);

CFATTACH_DECL_NEW(lpt_pcc, sizeof(struct lpt_softc),
    lpt_pcc_match, lpt_pcc_attach, NULL, NULL);


/*ARGSUSED*/
static int
lpt_pcc_match(device_t parent, cfdata_t cf, void *args)
{
        struct pcc_attach_args *pa;

        pa = args;

        if (strcmp(pa->pa_name, lpt_cd.cd_name))
                return 0;

        pa->pa_ipl = cf->pcccf_ipl;
        return 1;
}

/*ARGSUSED*/
static void
lpt_pcc_attach(device_t parent, device_t self, void *args)
{
        struct lpt_softc *sc;
        struct pcc_attach_args *pa;

        sc = device_private(self);
        sc->sc_dev = self;
        pa = args;

        sc->sc_bust = pa->pa_bust;
        bus_space_map(pa->pa_bust, pa->pa_offset, LPREG_SIZE, 0, &sc->sc_bush);

        sc->sc_ipl = pa->pa_ipl & PCC_IMASK;
        sc->sc_funcs = &lpt_pcc_funcs;
        sc->sc_laststatus = 0;

        aprint_normal(": PCC Parallel Printer\n");

        /*
         * Disable interrupts until device is opened
         */
        pcc_reg_write(sys_pcc, PCCREG_PRNT_INTR_CTRL, 0);

        /*
         * Main attachment code
         */
        lpt_attach_subr(sc);

        /* Register the event counter */
        evcnt_attach_dynamic(&sc->sc_evcnt, EVCNT_TYPE_INTR,
            pccintr_evcnt(sc->sc_ipl), "printer", device_xname(sc->sc_dev));

        /*
         * Hook into the printer interrupt
         */
        pccintr_establish(PCCV_PRINTER, lpt_pcc_intr, sc->sc_ipl, sc,
            &sc->sc_evcnt);
}

/*
 * Handle printer interrupts which occur when the printer is ready to accept
 * another char.
 */
int
lpt_pcc_intr(void *arg)
{
        struct lpt_softc *sc;
        int i;

        sc = arg;

        /* is printer online and ready for output */
        if (lpt_pcc_notrdy(sc, 0) && lpt_pcc_notrdy(sc, 1))
                return 0;

        i = lpt_intr(sc);

        if (pcc_reg_read(sys_pcc, PCCREG_PRNT_INTR_CTRL) & LPI_ACKINT) {
                pcc_reg_write(sys_pcc, PCCREG_PRNT_INTR_CTRL,
                    sc->sc_icr | LPI_ACKINT);
        }

        return i;
}


static void
lpt_pcc_open(struct lpt_softc *sc, int int_ena)
{
        int sps;

        pcc_reg_write(sys_pcc, PCCREG_PRNT_INTR_CTRL,
            LPI_ACKINT | LPI_FAULTINT);

        if (int_ena == 0) {
                sps = splhigh();
                sc->sc_icr = sc->sc_ipl | LPI_ENABLE;
                pcc_reg_write(sys_pcc, PCCREG_PRNT_INTR_CTRL, sc->sc_icr);
                splx(sps);
        }
}

static void
lpt_pcc_close(struct lpt_softc *sc)
{

        pcc_reg_write(sys_pcc, PCCREG_PRNT_INTR_CTRL, 0);
        sc->sc_icr = sc->sc_ipl;
        pcc_reg_write(sys_pcc, PCCREG_PRNT_INTR_CTRL, sc->sc_icr);
}

/* ARGSUSED */
static void
lpt_pcc_iprime(struct lpt_softc *sc)
{

        lpt_control_write(LPC_INPUT_PRIME);
        delay(100);
}

/* ARGSUSED */
static void
lpt_pcc_speed(struct lpt_softc *sc, int speed)
{

        if (speed == LPT_STROBE_FAST)
                lpt_control_write(LPC_FAST_STROBE);
        else
                lpt_control_write(0);
}

static int
lpt_pcc_notrdy(struct lpt_softc *sc, int err)
{
        u_char status;
        u_char new;

#define LPS_INVERT      (LPS_SELECT)
#define LPS_MASK        (LPS_SELECT|LPS_FAULT|LPS_BUSY|LPS_PAPER_EMPTY)

        status = (lpt_status_read(sc) ^ LPS_INVERT) & LPS_MASK;

        if (err) {
                new = status & ~sc->sc_laststatus;
                sc->sc_laststatus = status;

                if (new & LPS_SELECT)
                        log(LOG_NOTICE, "%s: offline\n",
                            device_xname(sc->sc_dev));
                else if (new & LPS_PAPER_EMPTY)
                        log(LOG_NOTICE, "%s: out of paper\n",
                            device_xname(sc->sc_dev));
                else if (new & LPS_FAULT)
                        log(LOG_NOTICE, "%s: output error\n",
                            device_xname(sc->sc_dev));
        }

        pcc_reg_write(sys_pcc, PCCREG_PRNT_INTR_CTRL,
            sc->sc_icr | LPI_FAULTINT);

        return status;
}

static void
lpt_pcc_wr_data(struct lpt_softc *sc, u_char data)
{

        lpt_data_write(sc, data);
}