/*	$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);
}