/*      $NetBSD: if_le_oioc.c,v 1.6 2022/02/12 03:24:34 riastradh Exp $ */

/*
 * Copyright (c) 2009 Stephen M. Rumble
 * 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. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: if_le_oioc.c,v 1.6 2022/02/12 03:24:34 riastradh Exp $");

#include "opt_inet.h"

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

#include <uvm/uvm.h>    // for uvm_pglistalloc

#include <net/if.h>
#include <net/if_ether.h>
#include <net/if_media.h>

#ifdef INET
#include <netinet/in.h>
#include <netinet/if_inarp.h>
#endif

#include <machine/cpu.h>
#include <machine/machtype.h>

#include <dev/ic/lancereg.h>
#include <dev/ic/lancevar.h>
#include <dev/ic/am7990reg.h>
#include <dev/ic/am7990var.h>

#include <dev/arcbios/arcbios.h>
#include <dev/arcbios/arcbiosvar.h>

#include <sgimips/ioc/oiocvar.h>
#include <sgimips/ioc/oiocreg.h>

#include <mips/include/cache.h>

#ifndef OIOC_LANCE_NPAGES
#define OIOC_LANCE_NPAGES       64      /* 256KB */
#endif

#if OIOC_LANCE_NPAGES > OIOC_ENET_NPGMAPS
#error OIOC_LANCE_NPAGES > OIOC_ENET_NPGMAPS (512)
#endif

/*
 * Ethernet software status per interface.
 * The real stuff is in dev/ic/am7990var.h
 * The really real stuff is in dev/ic/lancevar.h
 *
 * Lance is somewhat nasty MI code. We basically get:
 *      struct le_softc {
 *              struct am7990_softc {
 *                      struct lance_softc {
 *                              device_t sc_dev;
 *                              ...
 *                      }
 *              }
 *
 *              bus_space_tag ...
 *      }
 *
 * So, we can cast any three to any other three, plus
 * device_private(sc_dev) points back at the top (i.e. to le_softc,
 * am7990_softc and lance_softc). Bloody hell!
 */
struct le_softc {
        struct  am7990_softc sc_am7990;         /* glue to MI code */

        bus_space_tag_t      sc_st;
        bus_space_handle_t   sc_maph;           /* ioc<->lance page map regs */
        bus_space_handle_t   sc_rdph;           /* lance rdp */
        bus_space_handle_t   sc_raph;           /* lance rap */
};

static int      le_match(device_t, cfdata_t, void *);
static void     le_attach(device_t, device_t, void *);

CFATTACH_DECL_NEW(le, sizeof(struct le_softc),
    le_match, le_attach, NULL, NULL);

#if defined(_KERNEL_OPT)
#include "opt_ddb.h"
#endif

static void     lewrcsr(struct lance_softc *, uint16_t, uint16_t);
static uint16_t lerdcsr(struct lance_softc *, uint16_t);  

static void
lewrcsr(struct lance_softc *sc, uint16_t port, uint16_t val)
{
        struct le_softc *lesc = (struct le_softc *)sc;
        bus_space_write_2(lesc->sc_st, lesc->sc_raph, 0, port);
        bus_space_write_2(lesc->sc_st, lesc->sc_rdph, 0, val);
}

static uint16_t
lerdcsr(struct lance_softc *sc, uint16_t port)
{
        struct le_softc *lesc = (struct le_softc *)sc;
        bus_space_write_2(lesc->sc_st, lesc->sc_raph, 0, port);
        return (bus_space_read_2(lesc->sc_st, lesc->sc_rdph, 0));
} 

/*
 * Always present on IP6 and IP10. IP4? Unknown.
 */
int
le_match(device_t parent, cfdata_t cf, void *aux)
{
        struct oioc_attach_args *oa = aux;

        if (mach_type == MACH_SGI_IP4)
                return (0);

        if (strcmp(oa->oa_name, cf->cf_name) == 0)
                return (1);

        return (0);
}

void
le_attach(device_t parent, device_t self, void *aux)
{
        struct le_softc *lesc = device_private(self);
        struct lance_softc *sc = &lesc->sc_am7990.lsc;
        struct oioc_attach_args *oa = aux;
        struct pglist mlist;
        const char *enaddrstr;
        char enaddr[ETHER_ADDR_LEN];
        char pbuf[9];
        int i, error;

        sc->sc_dev = self;
        lesc->sc_st = oa->oa_st;

        enaddrstr = arcbios_GetEnvironmentVariable("eaddr");
        if (enaddrstr == NULL) {
                aprint_error(": failed to obtain MAC address\n");
                return;
        }

        if ((error = bus_space_subregion(oa->oa_st, oa->oa_sh, OIOC_LANCE_RDP,
            OIOC_LANCE_RDP_SIZE, &lesc->sc_rdph)) != 0) {
                printf(": unable to map rdp reg, error=%d\n", error);
                goto fail_0;
        }

        if ((error = bus_space_subregion(oa->oa_st, oa->oa_sh, OIOC_LANCE_RAP,
            OIOC_LANCE_RAP_SIZE, &lesc->sc_raph)) != 0) {
                printf(": unable to map rap reg, error=%d\n", error);
                goto fail_1;
        }

        if ((error = bus_space_subregion(oa->oa_st, oa->oa_sh,
            OIOC_ENET_PGMAP_BASE, OIOC_ENET_PGMAP_SIZE, &lesc->sc_maph)) != 0) {
                printf(": unable to map rap reg, error=%d\n", error);
                goto fail_2;
        }

        /* Allocate a contiguous chunk of physical memory for the le buffer. */
        error = uvm_pglistalloc(OIOC_LANCE_NPAGES * PAGE_SIZE,
            pmap_limits.avail_start, pmap_limits.avail_end, PAGE_SIZE, 0,
            &mlist, 1, 0);
        if (error) {
                aprint_error(": failed to allocate ioc<->lance buffer space, "
                    "error = %d\n", error);
                goto fail_3;
        }

        /* Use IOC to map the physical memory into the Ethernet chip's space. */
        for (i = 0; i < OIOC_LANCE_NPAGES; i++) {
                bus_space_write_2(lesc->sc_st,lesc->sc_maph,
                    OIOC_ENET_PGMAP_OFF(i),
                    (VM_PAGE_TO_PHYS(mlist.tqh_first) >> PAGE_SHIFT) + i);
        }

        sc->sc_mem = (void *)MIPS_PHYS_TO_KSEG1(
            (uint32_t)VM_PAGE_TO_PHYS(mlist.tqh_first));
        sc->sc_memsize = OIOC_LANCE_NPAGES * PAGE_SIZE;
        sc->sc_addr = 0;
        sc->sc_conf3 = LE_C3_BSWP;

        ether_aton_r(enaddr, sizeof(enaddr), enaddrstr);
        memcpy(sc->sc_enaddr, enaddr, sizeof(sc->sc_enaddr));

        if (cpu_intr_establish(oa->oa_irq, IPL_NET, am7990_intr, sc) == NULL) {
                aprint_error(": failed to establish interrupt %d\n",oa->oa_irq);
                goto fail_4;
        }

        sc->sc_copytodesc   = lance_copytobuf_contig;
        sc->sc_copyfromdesc = lance_copyfrombuf_contig;
        sc->sc_copytobuf    = lance_copytobuf_contig;
        sc->sc_copyfrombuf  = lance_copyfrombuf_contig;
        sc->sc_zerobuf      = lance_zerobuf_contig;

        sc->sc_rdcsr  = lerdcsr;
        sc->sc_wrcsr  = lewrcsr;
        sc->sc_hwinit = NULL;

        format_bytes(pbuf, sizeof(pbuf), OIOC_LANCE_NPAGES * PAGE_SIZE);
        aprint_normal(": main memory used = %s\n", pbuf);
        aprint_normal("%s", device_xname(self));

        am7990_config(&lesc->sc_am7990);

        return;

fail_4:
        uvm_pglistfree(&mlist);
fail_3:
        bus_space_unmap(oa->oa_st, oa->oa_sh, lesc->sc_maph);
fail_2:
        bus_space_unmap(oa->oa_st, oa->oa_sh, lesc->sc_raph);
fail_1:
        bus_space_unmap(oa->oa_st, oa->oa_sh, lesc->sc_rdph);
fail_0:
        return;
}