/* $NetBSD: if_iee_gsc.c,v 1.1 2014/02/24 07:23:43 skrll Exp $ */

/*
* Copyright (c) 2003 Jochen Kunz.
* 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 Jochen Kunz may not be used to endorse or promote
*    products derived from this software without specific prior
*    written permission.
*
* THIS SOFTWARE IS PROVIDED BY JOCHEN KUNZ
* ``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 JOCHEN KUNZ
* 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.
*/

/*
* hppa GSC bus MD frontend for the iee(4) Intel i82596 Ethernet driver.
*/

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: if_iee_gsc.c,v 1.1 2014/02/24 07:23:43 skrll Exp $");

/* autoconfig and device stuff */
#include <sys/param.h>
#include <sys/device.h>
#include <sys/conf.h>
#include <machine/iomod.h>
#include <machine/autoconf.h>
#include <hppa/dev/cpudevs.h>
#include <hppa/gsc/gscbusvar.h>
#include "locators.h"
#include "ioconf.h"

/* bus_space / bus_dma etc. */
#include <sys/bus.h>
#include <machine/intr.h>

/* general system data and functions */
#include <sys/systm.h>
#include <sys/ioctl.h>
#include <sys/ioccom.h>
#include <sys/types.h>

/* tsleep / sleep / wakeup */
#include <sys/proc.h>
/* hz for above */
#include <sys/kernel.h>

/* network stuff */
#include <net/if.h>
#include <net/if_dl.h>
#include <net/if_media.h>
#include <net/if_ether.h>
#include <sys/socket.h>
#include <sys/mbuf.h>

#include <dev/ic/i82596reg.h>
#include <dev/ic/i82596var.h>

#define IEE_GSC_IO_SZ   12
#define IEE_GSC_RESET   0
#define IEE_GSC_PORT    4
#define IEE_GSC_CHANATT 8
#define IEE_ISCP_BUSY 0x1

/* autoconfig stuff */
static int iee_gsc_match(device_t, cfdata_t, void *);
static void iee_gsc_attach(device_t, device_t, void *);
static int iee_gsc_detach(device_t, int);

struct iee_gsc_softc {
       struct iee_softc iee_sc;
       bus_space_tag_t sc_iot;
       bus_space_handle_t sc_ioh;
       void *sc_ih;
};

CFATTACH_DECL_NEW(
       iee_gsc,
       sizeof(struct iee_gsc_softc),
       iee_gsc_match,
       iee_gsc_attach,
       iee_gsc_detach,
       NULL
);

int iee_gsc_cmd(struct iee_softc *, uint32_t);
int iee_gsc_reset(struct iee_softc *);

int
iee_gsc_cmd(struct iee_softc *sc, uint32_t cmd)
{
       struct iee_gsc_softc *sc_gsc = (struct iee_gsc_softc *)sc;
       int n;
       uint16_t ack;

       SC_SCB(sc)->scb_cmd = cmd;
       IEE_SCBSYNC(sc, BUS_DMASYNC_PREREAD|BUS_DMASYNC_PREWRITE);
       /* Issue a Channel Attention to force the chip to read the cmd. */
       bus_space_write_4(sc_gsc->sc_iot, sc_gsc->sc_ioh, IEE_GSC_CHANATT, 0);
       /* Wait for the cmd to finish */
       for (n = 0 ; n < 100000; n++) {
               DELAY(1);
               IEE_SCBSYNC(sc, BUS_DMASYNC_POSTREAD|BUS_DMASYNC_POSTWRITE);
               ack = SC_SCB(sc)->scb_cmd;
               IEE_SCBSYNC(sc, BUS_DMASYNC_PREREAD);
               if (ack == 0)
                       break;
       }
       if (n < 100000)
               return 0;
       printf("%s: iee_gsc_cmd: timeout n=%d\n", device_xname(sc->sc_dev), n);
       return -1;
}

int
iee_gsc_reset(struct iee_softc *sc)
{
       struct iee_gsc_softc *sc_gsc = (struct iee_gsc_softc *)sc;
       int n;
       uint32_t cmd;
       uint16_t ack;

       /* Make sure the busy byte is set and the cache is flushed. */
       SC_ISCP(sc)->iscp_busy = IEE_ISCP_BUSY;
       IEE_ISCPSYNC(sc, BUS_DMASYNC_PREREAD|BUS_DMASYNC_PREWRITE);
       /* Setup the PORT Command with pointer to SCP. */
       cmd = IEE_PORT_SCP | IEE_PHYS_SHMEM(sc->sc_scp_off);
       /* Write a word to IEE_GSC_RESET to initiate a Hardware reset. */
       bus_space_write_4(sc_gsc->sc_iot, sc_gsc->sc_ioh, IEE_GSC_RESET, 0);
       DELAY(1000);
       /* Write it to the chip, it wants this in two 16 bit parts. */
       if (sc->sc_type == I82596_CA) {
               bus_space_write_4(sc_gsc->sc_iot, sc_gsc->sc_ioh, IEE_GSC_PORT,
                   (cmd & 0xffff));
               DELAY(1000);
               bus_space_write_4(sc_gsc->sc_iot, sc_gsc->sc_ioh, IEE_GSC_PORT,
                   (cmd >> 16));
       } else {
               bus_space_write_4(sc_gsc->sc_iot, sc_gsc->sc_ioh, IEE_GSC_PORT,
                   (cmd >> 16));
               DELAY(1000);
               bus_space_write_4(sc_gsc->sc_iot, sc_gsc->sc_ioh, IEE_GSC_PORT,
                   (cmd & 0xffff));
       }
       DELAY(1000);
       /* Issue a Channel Attention to read SCP */
       bus_space_write_4(sc_gsc->sc_iot, sc_gsc->sc_ioh, IEE_GSC_CHANATT, 0);
       /* Wait for the chip to initialize and read SCP and ISCP. */
       for (n = 0 ; n < 1000; n++) {
               IEE_ISCPSYNC(sc, BUS_DMASYNC_POSTREAD|BUS_DMASYNC_POSTWRITE);
               ack = SC_ISCP(sc)->iscp_busy;
               IEE_ISCPSYNC(sc, BUS_DMASYNC_PREREAD);
               if (ack != IEE_ISCP_BUSY)
                       break;
               DELAY(100);
       }
       if (n < 1000) {
               /* ACK interrupts we may have caused */
               (sc->sc_iee_cmd)(sc, IEE_SCB_ACK);
               return 0;
       }
       printf("%s: iee_gsc_reset timeout busy=0x%x\n",
           device_xname(sc->sc_dev), SC_ISCP(sc)->iscp_busy);
       return -1;
}

static int
iee_gsc_match(device_t parent, cfdata_t cf, void *aux)
{
       struct gsc_attach_args *ga = aux;

       if (ga->ga_type.iodc_type == HPPA_TYPE_FIO
           && (ga->ga_type.iodc_sv_model == HPPA_FIO_LAN
           || ga->ga_type.iodc_sv_model == HPPA_FIO_GLAN))
               /* beat old ie(4) i82586 driver */
               return 10;
       return 0;
}

static void
iee_gsc_attach(device_t parent, device_t self, void *aux)
{
       struct iee_gsc_softc *sc_gsc = device_private(self);
       struct iee_softc *sc = &sc_gsc->iee_sc;
       struct gsc_attach_args *ga = aux;
       enum hppa_cpu_type cpu_type;
       int media[2];

       sc->sc_dev = self;

       if (ga->ga_type.iodc_sv_model == HPPA_FIO_LAN)
               sc->sc_type = I82596_DX;        /* ASP(2) based */
       else
               sc->sc_type = I82596_CA;        /* LASI based */
       /*
        * Pre PA7100LC CPUs don't support uncacheable mappings. So make
        * descriptors align to cache lines. Needed to avoid race conditions
        * caused by flushing cache lines that overlap multiple descriptors.
        */
       cpu_type = hppa_cpu_info->hci_cputype;
       if (cpu_type == hpcx || cpu_type == hpcxs || cpu_type == hpcxt)
               sc->sc_cl_align = 32;
       else
               sc->sc_cl_align = 1;

       sc_gsc->sc_iot = ga->ga_iot;
       if (bus_space_map(sc_gsc->sc_iot, ga->ga_hpa, IEE_GSC_IO_SZ, 0,
           &sc_gsc->sc_ioh)) {
               aprint_error(": iee_gsc_attach: can't map I/O space\n");
               return;
       }

       sc->sc_dmat = ga->ga_dmatag;

       /* Setup SYSBUS byte. */
       if (ga->ga_type.iodc_sv_model == HPPA_FIO_LAN) {
               /*
                * Some earlier machines have 82596DX Rev A1 chip
                * which doesn't have IEE_SYSBUS_BE for 32-bit BE pointers.
                *
                * XXX: How can we detect chip revision at runtime?
                *      Should we check cpu_models instead?
                *      715/50, 735/99: Rev A1? (per PR port-hp700/35531)
                *      735/125: Rev C
                */
               sc->sc_sysbus = IEE_SYSBUS_INT |
                   IEE_SYSBUS_TRG | IEE_SYSBUS_LIEAR | IEE_SYSBUS_STD;
               sc->sc_flags = IEE_NEED_SWAP | IEE_REV_A;
       } else {
               sc->sc_sysbus = IEE_SYSBUS_BE | IEE_SYSBUS_INT |
                   IEE_SYSBUS_TRG | IEE_SYSBUS_LIEAR | IEE_SYSBUS_STD;
               sc->sc_flags = IEE_NEED_SWAP;
       }

       sc_gsc->sc_ih = hppa_intr_establish(IPL_NET, iee_intr, sc,
           ga->ga_ir, ga->ga_irq);

       sc->sc_iee_reset = iee_gsc_reset;
       sc->sc_iee_cmd = iee_gsc_cmd;
       sc->sc_mediachange = NULL;
       sc->sc_mediastatus = NULL;

       media[0] = IFM_ETHER | IFM_MANUAL;
       media[1] = IFM_ETHER | IFM_AUTO;
       iee_attach(sc, ga->ga_ether_address, media, 2, IFM_ETHER | IFM_AUTO);
}

int
iee_gsc_detach(device_t self, int flags)
{
       struct iee_gsc_softc *sc_gsc = device_private(self);
       struct iee_softc *sc = &sc_gsc->iee_sc;

       iee_detach(sc, flags);
       bus_space_unmap(sc_gsc->sc_iot, sc_gsc->sc_ioh, IEE_GSC_IO_SZ);
       /* There is no hppa_intr_disestablish()! */
       return 0;
}