/*      $OpenBSD: iosf_acpi.c,v 1.1 2023/04/23 00:20:26 dlg 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 <machine/intr.h>

#include <dev/acpi/acpireg.h>
#include <dev/acpi/acpivar.h>
#include <dev/acpi/acpidev.h>
#include <dev/acpi/amltypes.h>
#include <dev/acpi/dsdt.h>

#include <dev/ic/iosfvar.h>

struct iosf_acpi_softc {
        struct device            sc_dev;
        struct acpi_softc       *sc_acpi;
        struct aml_node         *sc_node;

        bus_space_tag_t          sc_iot;
        bus_space_handle_t       sc_ioh;
        bus_size_t               sc_ios;

        struct iosf_mbi          sc_mbi;
};

static int      iosf_acpi_match(struct device *, void *, void *);
static void     iosf_acpi_attach(struct device *, struct device *, void *);

static uint32_t iosf_acpi_mbi_mdr_rd(struct iosf_mbi *, uint32_t, uint32_t);
static void     iosf_acpi_mbi_mdr_wr(struct iosf_mbi *, uint32_t, uint32_t,
                    uint32_t);

const struct cfattach iosf_acpi_ca = {
        sizeof(struct iosf_acpi_softc), iosf_acpi_match, iosf_acpi_attach
};

static const char *iosf_hids[] = {
        "INT33BD",
        NULL
};

static int
iosf_acpi_match(struct device *parent, void *match, void *aux)
{
        struct acpi_attach_args *aaa = aux;
        struct cfdata *cf = match;

        if (aaa->aaa_naddr < 1)
                return 0;

        return (acpi_matchhids(aaa, iosf_hids, cf->cf_driver->cd_name));
}

static void
iosf_acpi_attach(struct device *parent, struct device *self, void *aux)
{
        struct iosf_acpi_softc *sc = (struct iosf_acpi_softc *)self;
        struct acpi_attach_args *aaa = aux;
        struct cpu_info *ci;
        int semaddr = -1;

        sc->sc_acpi = (struct acpi_softc *)parent;
        sc->sc_node = aaa->aaa_node;
        printf(" %s", sc->sc_node->name);

        sc->sc_iot = aaa->aaa_bst[0];
        sc->sc_ios = aaa->aaa_size[0];

        if (bus_space_map(sc->sc_iot, aaa->aaa_addr[0], aaa->aaa_size[0], 0,
            &sc->sc_ioh)) {
                printf(": can't map registers\n");
                return;
        }

        ci = curcpu();
        if (strcmp(cpu_vendor, "GenuineIntel") == 0 &&
            ci->ci_family == 0x06 && ci->ci_model == 0x4c) {
                /* cherry trail, braswell */
                semaddr = 0x10e;
        }

        if (semaddr != -1) {
                printf(": mbi");

                sc->sc_mbi.mbi_dev = self;
                sc->sc_mbi.mbi_prio = 1; /* lower prio than iosf_pci ops */
                sc->sc_mbi.mbi_semaddr = semaddr;
                sc->sc_mbi.mbi_mdr_rd = iosf_acpi_mbi_mdr_rd;
                sc->sc_mbi.mbi_mdr_wr = iosf_acpi_mbi_mdr_wr;
        }

        printf("\n");
}

/*
 * mbi mdr ACPI operations
 */

#define IOSF_ACPI_MBI_MCR       0x0
#define IOSF_ACPI_MBI_MDR       0x4
#define IOSF_ACPI_MBI_MCRX      0x8

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

        if (mcrx != 0) {
                bus_space_write_4(sc->sc_iot, sc->sc_ioh, 
                    IOSF_ACPI_MBI_MCRX, mcrx);
        }
        bus_space_write_4(sc->sc_iot, sc->sc_ioh, IOSF_ACPI_MBI_MCR, mcr);

        return (bus_space_read_4(sc->sc_iot, sc->sc_ioh, IOSF_ACPI_MBI_MDR));
}

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

        bus_space_write_4(sc->sc_iot, sc->sc_ioh, IOSF_ACPI_MBI_MDR, mdr);
        if (mcrx != 0) {
                bus_space_write_4(sc->sc_iot, sc->sc_ioh,
                    IOSF_ACPI_MBI_MCRX, mcrx);
        }

        bus_space_write_4(sc->sc_iot, sc->sc_ioh, IOSF_ACPI_MBI_MCR, mcr);
}