cmd/prtconf/prt_xxx.c

	prt_xxx.c revision abc79d9dd51e98eafb6fc25b4a0b4f66bef40b00
/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2010 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 *
 * Copyright (c) 2012, Joyent, Inc. All rights reserved.
 */

#include <stdio.h>
#include <stddef.h>
#include <fcntl.h>
#include <string.h>
#include <libdevinfo.h>
#include <sys/pctypes.h>
#include <sys/pcmcia.h>
#include <sys/utsname.h>
#include <sys/avintr.h>

#include "prtconf.h"

struct priv_data {
    char *drv_name;     /* parent name */
    void (*pd_print)(uintptr_t, int);   /* print function */
};

extern void indent_to_level();
static void obio_printregs(struct regspec *, int);
static void obio_printranges(struct rangespec *, int);
static void obio_printintr(struct intrspec *, int);
static void obio_print(uintptr_t, int);
static void pcmcia_printregs(struct pcm_regs *, int);
static void pcmcia_printintr(struct intrspec *, int);
static void pcmcia_print(uintptr_t, int);
static void sbus_print(uintptr_t, int);
static struct priv_data *match_priv_data(di_node_t);

/*
 * This is a hardcoded list of drivers we print parent private
 * data as of Solaris 7.
 */
static struct di_priv_format ppd_format[] = {
    {
        /*
         * obio format: applies the following list
         * of nexus drivers. Note that obio driver
         * went away with sun4m.
         */
#ifdef  __sparc
        "central dma ebus fhc isa pci rootnex",
#else
        "central dma ebus fhc isa pci pci_pci rootnex",
#endif  /* __sparc */
        sizeof (struct ddi_parent_private_data),

        sizeof (struct regspec),        /* first pointer */
        offsetof(struct ddi_parent_private_data, par_reg),
        offsetof(struct ddi_parent_private_data, par_nreg),

        sizeof (struct intrspec),       /* second pointer */
        offsetof(struct ddi_parent_private_data, par_intr),
        offsetof(struct ddi_parent_private_data, par_nintr),

        sizeof (struct rangespec),      /* third pointer */
        offsetof(struct ddi_parent_private_data, par_rng),
        offsetof(struct ddi_parent_private_data, par_nrng),

        0, 0, 0,    /* no more pointers */
        0, 0, 0
    },

    {   /* pcmcia format */
        "pcic",
        sizeof (struct pcmcia_parent_private),

        sizeof (struct pcm_regs),       /* first pointer */
        offsetof(struct pcmcia_parent_private, ppd_reg),
        offsetof(struct pcmcia_parent_private, ppd_nreg),

        sizeof (struct intrspec),       /* second pointer */
        offsetof(struct pcmcia_parent_private, ppd_intrspec),
        offsetof(struct pcmcia_parent_private, ppd_intr),

        0, 0, 0,    /* no more pointers */
        0, 0, 0,
        0, 0, 0
    },

    {   /* sbus format--it's different on sun4u!! */
        "sbus",
        sizeof (struct ddi_parent_private_data),

        sizeof (struct regspec),        /* first pointer */
        offsetof(struct ddi_parent_private_data, par_reg),
        offsetof(struct ddi_parent_private_data, par_nreg),

        sizeof (struct intrspec),       /* second pointer */
        offsetof(struct ddi_parent_private_data, par_intr),
        offsetof(struct ddi_parent_private_data, par_nintr),

        sizeof (struct rangespec),      /* third pointer */
        offsetof(struct ddi_parent_private_data, par_rng),
        offsetof(struct ddi_parent_private_data, par_nrng),

        0, 0, 0,    /* no more pointers */
        0, 0, 0
    }
};

static struct priv_data prt_priv_data[] = {
    { ppd_format[0].drv_name, obio_print},
    { ppd_format[1].drv_name, pcmcia_print},
    { ppd_format[2].drv_name, sbus_print}
};

static int nprt_priv_data = sizeof (prt_priv_data)/sizeof (struct priv_data);

void
init_priv_data(struct di_priv_data *fetch)
{
    /* no driver private data */
    fetch->version = DI_PRIVDATA_VERSION_0;
    fetch->n_driver = 0;
    fetch->driver = NULL;

    fetch->n_parent = nprt_priv_data;
    fetch->parent = ppd_format;
}

static void
obio_printregs(struct regspec *rp, int ilev)
{
    indent_to_level(ilev);
    (void) printf("    Bus Type=0x%x, Address=0x%x, Size=0x%x\n",
        rp->regspec_bustype, rp->regspec_addr, rp->regspec_size);
}

static void
obio_printranges(struct rangespec *rp, int ilev)
{
    indent_to_level(ilev);
    (void) printf("    Ch: %.2x,%.8x Pa: %.2x,%.8x, Sz: %x\n",
        rp->rng_cbustype, rp->rng_coffset,
        rp->rng_bustype, rp->rng_offset,
        rp->rng_size);
}

static void
obio_printintr(struct intrspec *ip, int ilev)
{
    indent_to_level(ilev);
    (void) printf("    Interrupt Priority=0x%x (ipl %d)",
        ip->intrspec_pri, INT_IPL(ip->intrspec_pri));
    if (ip->intrspec_vec)
        (void) printf(", vector=0x%x (%d)",
            ip->intrspec_vec, ip->intrspec_vec);
    (void) printf("\n");
}

static void
obio_print(uintptr_t data, int ilev)
{
    int i, nreg, nrng, nintr;
    struct ddi_parent_private_data *dp;
    struct regspec *reg;
    struct intrspec *intr;
    struct rangespec *rng;

    dp = (struct ddi_parent_private_data *)data;
#ifdef DEBUG
    dprintf("obio parent private data: nreg = 0x%x offset = 0x%x"
        " nintr = 0x%x offset = 0x%x nrng = 0x%x offset = %x\n",
        dp->par_nreg, *((di_off_t *)(&dp->par_reg)),
        dp->par_nintr, *((di_off_t *)(&dp->par_intr)),
        dp->par_nrng, *((di_off_t *)(&dp->par_rng)));
#endif /* DEBUG */
    nreg = dp->par_nreg;
    nintr = dp->par_nintr;
    nrng = dp->par_nrng;

    /*
     * All pointers are translated to di_off_t by the devinfo driver.
     * This is a private agreement between libdevinfo and prtconf.
     */
    if (nreg != 0) {
        indent_to_level(ilev);
        (void) printf("Register Specifications:\n");

        reg = (struct regspec *)(data + *(di_off_t *)(&dp->par_reg));
        for (i = 0; i < nreg; ++i)
            obio_printregs(reg + i, ilev);
    }

    if (nrng != 0) {
        indent_to_level(ilev);
        (void) printf("Range Specifications:\n");

        rng = (struct rangespec *)(data + *(di_off_t *)(&dp->par_rng));
        for (i = 0; i < nrng; ++i)
            obio_printranges(rng + i, ilev);
    }

    if (nintr != 0) {
        indent_to_level(ilev);
        (void) printf("Interrupt Specifications:\n");

        intr = (struct intrspec *)(data + *(di_off_t *)(&dp->par_intr));
        for (i = 0; i < nintr; ++i)
            obio_printintr(intr + i, ilev);
    }
}

static void
pcmcia_printregs(struct pcm_regs *rp, int ilev)
{
    indent_to_level(ilev);
    (void) printf("    Phys hi=0x%x, Phys lo=0x%x, Phys len=%x\n",
        rp->phys_hi, rp->phys_lo, rp->phys_len);
}

static void
pcmcia_printintr(struct intrspec *ip, int ilev)
{
    obio_printintr(ip, ilev);
}

static void
pcmcia_print(uintptr_t data, int ilev)
{
    int i, nreg, nintr;
    struct pcmcia_parent_private *dp;
    struct pcm_regs *reg;
    struct intrspec *intr;

    dp = (struct pcmcia_parent_private *)data;
#ifdef DEBUG
    dprintf("pcmcia parent private data: nreg = 0x%x offset = 0x%x"
        " intr = 0x%x offset = %x\n",
        dp->ppd_nreg, *(di_off_t *)(&dp->ppd_reg),
        dp->ppd_intr, *(di_off_t *)(&dp->ppd_intrspec));
#endif /* DEBUG */
    nreg = dp->ppd_nreg;
    nintr = dp->ppd_intr;

    /*
     * All pointers are translated to di_off_t by the devinfo driver.
     * This is a private agreement between libdevinfo and prtconf.
     */
    if (nreg != 0)  {
        indent_to_level(ilev);
        (void) printf("Register Specifications:\n");

        reg = (struct pcm_regs *)(data + *(di_off_t *)(&dp->ppd_reg));
        for (i = 0; i < nreg; ++i)
            pcmcia_printregs(reg + i, ilev);
    }

    if (nintr != 0)  {
        indent_to_level(ilev);
        (void) printf("Interrupt Specifications:\n");

        intr = (struct intrspec *)
            (data + *(di_off_t *)(&dp->ppd_intrspec));
        for (i = 0; i < nintr; ++i)
            pcmcia_printintr(intr + i, ilev);
    }
}

static void
sbus_print(uintptr_t data, int ilev)
{
    int i, nreg, nrng, nintr;
    struct ddi_parent_private_data *dp;
    struct regspec *reg;
    struct intrspec *intr;
    struct rangespec *rng;

    dp = (struct ddi_parent_private_data *)data;
#ifdef DEBUG
    dprintf("sbus parent private data: nreg = 0x%x offset = 0x%x"
        " nintr = 0x%x offset = 0x%x nrng = 0x%x offset = %x\n",
        dp->par_nreg, *((di_off_t *)(&dp->par_reg)),
        dp->par_nintr, *((di_off_t *)(&dp->par_intr)),
        dp->par_nrng, *((di_off_t *)(&dp->par_rng)));
#endif /* DEBUG */
    nreg = dp->par_nreg;
    nintr = dp->par_nintr;
    nrng = dp->par_nrng;

    /*
     * All pointers are translated to di_off_t by the devinfo driver.
     * This is a private agreement between libdevinfo and prtconf.
     */
    if (nreg != 0) {
        indent_to_level(ilev);
        (void) printf("Register Specifications:\n");

        reg = (struct regspec *)(data + *(di_off_t *)(&dp->par_reg));
        for (i = 0; i < nreg; ++i)
            obio_printregs(reg + i, ilev);
    }


    if (nrng != 0) {
        indent_to_level(ilev);
        (void) printf("Range Specifications:\n");

        rng = (struct rangespec *)(data + *(di_off_t *)(&dp->par_rng));
        for (i = 0; i < nrng; ++i)
            obio_printranges(rng + i, ilev);
    }

    /*
     * To print interrupt property for children of sbus on sun4u requires
     * definitions in sysiosbus.h.
     *
     * We can't #include <sys/sysiosbus.h> to have the build work on
     * non sun4u machines. It's not right either to
     *  #include "../../uts/sun4u/sys/sysiosbus.h"
     * As a result, we will not print the information.
     */
    if ((nintr != 0) && (strcmp(opts.o_uts.machine, "sun4u") != 0)) {
        indent_to_level(ilev);
        (void) printf("Interrupt Specifications:\n");

        for (i = 0; i < nintr; ++i) {
            intr = (struct intrspec *)
                (data + *(di_off_t *)(&dp->par_intr));
            obio_printintr(intr + i, ilev);
        }
    }
}

static struct priv_data *
match_priv_data(di_node_t node)
{
    int i;
    size_t len;
    char *drv_name, *tmp;
    di_node_t parent;
    struct priv_data *pdp;

    if ((parent = di_parent_node(node)) == DI_NODE_NIL)
        return (NULL);

    if ((drv_name = di_driver_name(parent)) == NULL)
        return (NULL);

    pdp = prt_priv_data;
    len = strlen(drv_name);
    for (i = 0; i < nprt_priv_data; ++i, ++pdp) {
        tmp = pdp->drv_name;
        while (tmp && (*tmp != '\0')) {
            if (strncmp(tmp, drv_name, len) == 0) {
#ifdef  DEBUG
                dprintf("matched parent private data"
                    " at Node <%s> parent driver <%s>\n",
                    di_node_name(node), drv_name);
#endif  /* DEBUG */
                return (pdp);
            }
            /*
             * skip a white space
             */
            if (tmp = strchr(tmp, ' '))
                tmp++;
        }
    }

    return (NULL);
}

void
dump_priv_data(int ilev, di_node_t node)
{
    uintptr_t priv;
    struct priv_data *pdp;

    if ((priv = (uintptr_t)di_parent_private_data(node)) == NULL)
        return;

    if ((pdp = match_priv_data(node)) == NULL) {
#ifdef DEBUG
        dprintf("Error: parent private data format unknown\n");
#endif /* DEBUG */
        return;
    }

    pdp->pd_print(priv, ilev);

    /* ignore driver private data for now */
}

#define LOOKUP_PROP(proptype, ph, nodetype, dev, node, name, data)  \
    ((nodetype == DI_PROM_NODEID) ?                 \
    di_prom_prop_lookup_##proptype(ph, node, name, data) :      \
    di_prop_lookup_##proptype(dev, node, name, data))
#define ISPCI(s)                        \
    (((s) != NULL) && ((strcmp((s), "pci") == 0) ||     \
    (strcmp((s), "pciex") == 0)))
/*
 * Print vendor ID and device ID for PCI devices
 */
int
print_pciid(di_node_t node, di_prom_handle_t ph, pcidb_hdl_t *pci)
{
    pcidb_vendor_t *vend;
    pcidb_device_t *dev;
    di_node_t pnode = di_parent_node(node);
    char *s = NULL;
    int *i, type = di_nodeid(node);

    if (LOOKUP_PROP(strings, ph, type, DDI_DEV_T_ANY, pnode,
        "device_type", &s) <= 0)
        return (0);

    if (!ISPCI(s))
        return (0); /* not a pci device */

    (void) printf(" (%s", s);
    if (LOOKUP_PROP(ints, ph, type, DDI_DEV_T_ANY, node,
        "vendor-id", &i) > 0)
        (void) printf("%x", i[0]);

    if (pci != NULL)
        vend = pcidb_lookup_vendor(pci, i[0]);

    if (LOOKUP_PROP(ints, ph, type, DDI_DEV_T_ANY, node,
        "device-id", &i) > 0)
        (void) printf(",%x", i[0]);

    if (pci != NULL)
        dev = pcidb_lookup_device_by_vendor(vend, i[0]);

    (void) printf(") [");

    if (vend != NULL)
        (void) printf("%s ", pcidb_vendor_name(vend));
    else
        (void) printf("unknown vendor, ");

    if (dev != NULL)
        (void) printf("%s", pcidb_device_name(dev));
    else
        (void) printf("unknown device");

    (void) printf("]");
    return (1);
}