/*      $OpenBSD: iosf_pci.c,v 1.2 2024/05/24 06:02:57 jsg Exp $ */

/*
 * Copyright (c) 2023 David Gwynne <dlg@openbsd.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

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

#include <machine/bus.h>

#include <dev/pci/pcivar.h>
#include <dev/pci/pcidevs.h>

#include <dev/ic/iosfvar.h>

/*
 * Intel OnChip System Fabric driver
 */

struct iosf_pci_softc {
        struct device           sc_dev;

        pci_chipset_tag_t       sc_pc;
        pcitag_t                sc_pcitag;

        int                     sc_semaddr;

        struct iosf_mbi         sc_mbi;
};

static int      iosf_pci_match(struct device *, void *, void *);
static void     iosf_pci_attach(struct device *, struct device *, void *);

static uint32_t iosf_pci_mbi_mdr_rd(struct iosf_mbi *, uint32_t, uint32_t);
static void     iosf_pci_mbi_mdr_wr(struct iosf_mbi *, uint32_t, uint32_t,
                    uint32_t);

const struct cfattach iosf_pci_ca = {
        sizeof(struct iosf_pci_softc), iosf_pci_match, iosf_pci_attach
};

struct iosf_pci_device {
        struct pci_matchid              id_pm;
        int                             id_semaddr;
};

static const struct iosf_pci_device iosf_pci_devices[] = {
        { { PCI_VENDOR_INTEL, PCI_PRODUCT_INTEL_BAYTRAIL_HB },  0x7 },
        { { PCI_VENDOR_INTEL, PCI_PRODUCT_INTEL_BSW_HB },       0x10e },
        /* Quark X1000, -1 */
        /* Tangier, -1 */
};

static const struct iosf_pci_device *
iosf_pci_device_match(struct pci_attach_args *pa)
{
        pci_vendor_id_t vid = PCI_VENDOR(pa->pa_id);
        pci_product_id_t pid = PCI_PRODUCT(pa->pa_id);
        const struct iosf_pci_device *id;
        size_t i;

        for (i = 0; i < nitems(iosf_pci_devices); i++) {
                id = &iosf_pci_devices[i];
                if (id->id_pm.pm_vid == vid && id->id_pm.pm_pid == pid)
                        return (id);
        }

        return (NULL);
}

static int
iosf_pci_match(struct device *parent, void *match, void *aux)
{
        struct pci_attach_args *pa = aux;

        if (iosf_pci_device_match(pa) != NULL) {
                /* match higher than pchb(4) */
                return (2);
        }

        return (0);
}

static void
iosf_pci_attach(struct device *parent, struct device *self, void *aux)
{
        struct iosf_pci_softc *sc = (struct iosf_pci_softc *)self;
        struct pci_attach_args *pa = aux;
        const struct iosf_pci_device *id = iosf_pci_device_match(pa);

        sc->sc_pc = pa->pa_pc;
        sc->sc_pcitag = pa->pa_tag;

        printf(": mbi\n");

        sc->sc_mbi.mbi_dev = self;
        sc->sc_mbi.mbi_prio = 2; /* prefer pci over acpi ops */
        sc->sc_mbi.mbi_semaddr = id->id_semaddr;
        sc->sc_mbi.mbi_mdr_rd = iosf_pci_mbi_mdr_rd;
        sc->sc_mbi.mbi_mdr_wr = iosf_pci_mbi_mdr_wr;

        iosf_mbi_attach(&sc->sc_mbi);
}

/*
 * mbi mdr pciconf operations
 */

#define IOSF_PCI_MBI_MCR                0xd0
#define IOSF_PCI_MBI_MDR                0xd4
#define IOSF_PCI_MBI_MCRX               0xd8

static uint32_t
iosf_pci_mbi_mdr_rd(struct iosf_mbi *mbi, uint32_t mcr, uint32_t mcrx)
{
        struct iosf_pci_softc *sc = (struct iosf_pci_softc *)mbi->mbi_dev;

        if (mcrx != 0) {
                pci_conf_write(sc->sc_pc, sc->sc_pcitag,
                    IOSF_PCI_MBI_MCRX, mcrx);
        }
        pci_conf_write(sc->sc_pc, sc->sc_pcitag, IOSF_PCI_MBI_MCR, mcr);

        return (pci_conf_read(sc->sc_pc, sc->sc_pcitag, IOSF_PCI_MBI_MDR));
}

static void
iosf_pci_mbi_mdr_wr(struct iosf_mbi *mbi, uint32_t mcr, uint32_t mcrx,
    uint32_t mdr)
{
        struct iosf_pci_softc *sc = (struct iosf_pci_softc *)mbi->mbi_dev;

        pci_conf_write(sc->sc_pc, sc->sc_pcitag, IOSF_PCI_MBI_MDR, mdr);

        if (mcrx != 0) {
                pci_conf_write(sc->sc_pc, sc->sc_pcitag,
                    IOSF_PCI_MBI_MCRX, mcrx);
        }

        pci_conf_write(sc->sc_pc, sc->sc_pcitag, IOSF_PCI_MBI_MCR, mcr);
}