/*
 * Copyright (c) 2008-2016 Solarflare Communications Inc.
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 COPYRIGHT OWNER OR
 * CONTRIBUTORS 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.
 *
 * The views and conclusions contained in the software and documentation are
 * those of the authors and should not be interpreted as representing official
 * policies, either expressed or implied, of the FreeBSD Project.
 */

#include <sys/types.h>
#include <sys/sysmacros.h>
#include <sys/ddi.h>
#include <sys/sunddi.h>

#include "sfxge.h"

#include "efx.h"

/* Monitor DMA attributes */
static ddi_device_acc_attr_t sfxge_mon_devacc = {

        DDI_DEVICE_ATTR_V0,     /* devacc_attr_version */
        DDI_NEVERSWAP_ACC,      /* devacc_attr_endian_flags */
        DDI_STRICTORDER_ACC     /* devacc_attr_dataorder */
};

static ddi_dma_attr_t sfxge_mon_dma_attr = {
        DMA_ATTR_V0,            /* dma_attr_version     */
        0,                      /* dma_attr_addr_lo     */
        0xffffffffffffffffull,  /* dma_attr_addr_hi     */
        0xffffffffffffffffull,  /* dma_attr_count_max   */
        0x1000,                 /* dma_attr_align       */
        0xffffffff,             /* dma_attr_burstsizes  */
        1,                      /* dma_attr_minxfer     */
        0xffffffffffffffffull,  /* dma_attr_maxxfer     */
        0xffffffffffffffffull,  /* dma_attr_seg         */
        1,                      /* dma_attr_sgllen      */
        1,                      /* dma_attr_granular    */
        0                       /* dma_attr_flags       */
};


static int
sfxge_mon_kstat_update(kstat_t *ksp, int rw)
{
        sfxge_t *sp = ksp->ks_private;
        sfxge_mon_t *smp = &(sp->s_mon);
        efsys_mem_t *esmp = &(smp->sm_mem);
        efx_nic_t *enp = sp->s_enp;
        kstat_named_t *knp;
        const efx_nic_cfg_t *encp = efx_nic_cfg_get(sp->s_enp);
        int rc, sn;

        if (rw != KSTAT_READ) {
                rc = EACCES;
                goto fail1;
        }

        ASSERT(mutex_owned(&(smp->sm_lock)));

        if (smp->sm_state != SFXGE_MON_STARTED)
                goto done;

        if (smp->sm_polling) {
                rc = efx_mon_stats_update(enp, esmp, smp->sm_statbuf);
                if (rc != 0)
                        goto fail2;
        }

        knp = smp->sm_stat;
        for (sn = 0; sn < EFX_MON_NSTATS; sn++) {
                if (encp->enc_mon_stat_mask[sn / EFX_MON_MASK_ELEMENT_SIZE] &
                    (1 << (sn % EFX_MON_MASK_ELEMENT_SIZE)))  {
                        knp->value.ui64 = smp->sm_statbuf[sn].emsv_value;
                        knp++;
                }
        }

        knp->value.ui32 = sp->s_num_restarts;
        knp++;
        knp->value.ui32 = sp->s_num_restarts_hw_err;
        knp++;
        knp->value.ui32 = smp->sm_polling;
        knp++;

done:
        return (0);

fail2:
        DTRACE_PROBE(fail2);
fail1:
        DTRACE_PROBE1(fail1, int, rc);

        return (rc);
}

static int
sfxge_mon_kstat_init(sfxge_t *sp)
{
        sfxge_mon_t *smp = &(sp->s_mon);
        dev_info_t *dip = sp->s_dip;
        efx_nic_t *enp = sp->s_enp;
        kstat_t *ksp;
        kstat_named_t *knp;
        char name[MAXNAMELEN];
        unsigned int id;
        const efx_nic_cfg_t *encp = efx_nic_cfg_get(sp->s_enp);
        int rc;
        int nstat;

        if ((smp->sm_statbuf = kmem_zalloc(sizeof (uint32_t) * EFX_MON_NSTATS,
            KM_NOSLEEP)) == NULL) {
                rc = ENOMEM;
                goto fail1;
        }

        (void) snprintf(name, MAXNAMELEN - 1, "%s_%s", ddi_driver_name(dip),
            efx_mon_name(enp));


        /* Create the set */
        for (id = 0, nstat = 0; id < EFX_MON_NSTATS; id++) {
                if (encp->enc_mon_stat_mask[id / EFX_MON_MASK_ELEMENT_SIZE] &
                    (1 << (id % EFX_MON_MASK_ELEMENT_SIZE)))  {
                        nstat++;
                }
        }

        if ((ksp = kstat_create((char *)ddi_driver_name(dip),
            ddi_get_instance(dip), name, "mon", KSTAT_TYPE_NAMED,
            nstat+3, 0)) == NULL) {
                rc = ENOMEM;
                goto fail2;
        }

        smp->sm_ksp = ksp;

        ksp->ks_update = sfxge_mon_kstat_update;
        ksp->ks_private = sp;
        ksp->ks_lock = &(smp->sm_lock);

        /* Initialise the named stats */
        smp->sm_stat = knp = ksp->ks_data;
        for (id = 0; id < EFX_MON_NSTATS; id++) {
                if (encp->enc_mon_stat_mask[id / EFX_MON_MASK_ELEMENT_SIZE] &
                    (1 << (id % EFX_MON_MASK_ELEMENT_SIZE)))  {
                        kstat_named_init(knp,
                            (char *)efx_mon_stat_name(enp, id),
                            KSTAT_DATA_UINT64);
                        knp++;
                }
        }
        kstat_named_init(knp, "num_restarts", KSTAT_DATA_UINT32);
        knp++;
        kstat_named_init(knp, "num_restarts_hw_err", KSTAT_DATA_UINT32);
        knp++;
        kstat_named_init(knp, "mon_polling", KSTAT_DATA_UINT32);
        knp++;

        kstat_install(ksp);

        return (0);

fail2:
        DTRACE_PROBE(fail2);
        kmem_free(smp->sm_statbuf, sizeof (uint32_t) * EFX_MON_NSTATS);
fail1:
        DTRACE_PROBE1(fail1, int, rc);

        return (rc);
}

static void
sfxge_mon_kstat_fini(sfxge_t *sp)
{
        sfxge_mon_t *smp = &(sp->s_mon);

        /* Destroy the set */
        kstat_delete(smp->sm_ksp);
        smp->sm_ksp = NULL;
        smp->sm_stat = NULL;

        kmem_free(smp->sm_statbuf, sizeof (uint32_t) * EFX_MON_NSTATS);
}

int
sfxge_mon_init(sfxge_t *sp)
{
        sfxge_mon_t *smp = &(sp->s_mon);
        efx_nic_t *enp = sp->s_enp;
        efsys_mem_t *esmp = &(smp->sm_mem);
        sfxge_dma_buffer_attr_t dma_attr;
        const efx_nic_cfg_t *encp = efx_nic_cfg_get(enp);
        int rc;

        SFXGE_OBJ_CHECK(smp, sfxge_mon_t);

        ASSERT3U(smp->sm_state, ==, SFXGE_MON_UNINITIALIZED);

        smp->sm_sp = sp;

        mutex_init(&(smp->sm_lock), NULL, MUTEX_DRIVER, NULL);

        dma_attr.sdba_dip        = sp->s_dip;
        dma_attr.sdba_dattrp     = &sfxge_mon_dma_attr;
        dma_attr.sdba_callback   = DDI_DMA_SLEEP;
        dma_attr.sdba_length     = encp->enc_mon_stat_dma_buf_size;
        dma_attr.sdba_memflags   = DDI_DMA_CONSISTENT;
        dma_attr.sdba_devaccp    = &sfxge_mon_devacc;
        dma_attr.sdba_bindflags  = DDI_DMA_READ | DDI_DMA_CONSISTENT;
        dma_attr.sdba_maxcookies = 1;
        dma_attr.sdba_zeroinit   = B_TRUE;

        if ((rc = sfxge_dma_buffer_create(esmp, &dma_attr)) != 0)
                goto fail1;

        smp->sm_type = encp->enc_mon_type;

        DTRACE_PROBE1(mon, efx_mon_type_t, smp->sm_type);

        smp->sm_state = SFXGE_MON_INITIALIZED;

        /* Initialize the statistics */
        if ((rc = sfxge_mon_kstat_init(sp)) != 0)
                goto fail2;

        return (0);

fail2:
        DTRACE_PROBE(fail2);

        /* Tear down DMA setup */
        sfxge_dma_buffer_destroy(esmp);

fail1:
        DTRACE_PROBE1(fail1, int, rc);
        mutex_destroy(&(smp->sm_lock));

        smp->sm_sp = NULL;

        SFXGE_OBJ_CHECK(smp, sfxge_mac_t);

        return (rc);
}

int
sfxge_mon_start(sfxge_t *sp)
{
        sfxge_mon_t *smp = &(sp->s_mon);
        int rc;

        mutex_enter(&(smp->sm_lock));
        ASSERT3U(smp->sm_state, ==, SFXGE_MON_INITIALIZED);

        /* Initialize the MON module */
        if ((rc = efx_mon_init(sp->s_enp)) != 0)
                goto fail1;

        smp->sm_state = SFXGE_MON_STARTED;

        mutex_exit(&(smp->sm_lock));

        return (0);

fail1:
        DTRACE_PROBE1(fail1, int, rc);

        mutex_exit(&(smp->sm_lock));

        return (rc);
}

void
sfxge_mon_stop(sfxge_t *sp)
{
        sfxge_mon_t *smp = &(sp->s_mon);

        mutex_enter(&(smp->sm_lock));

        ASSERT3U(smp->sm_state, ==, SFXGE_MON_STARTED);
        smp->sm_state = SFXGE_MON_INITIALIZED;

        /* Tear down the MON module */
        efx_mon_fini(sp->s_enp);

        mutex_exit(&(smp->sm_lock));
}

void
sfxge_mon_fini(sfxge_t *sp)
{
        sfxge_mon_t *smp = &(sp->s_mon);
        efsys_mem_t *esmp = &(smp->sm_mem);

        ASSERT3U(smp->sm_state, ==, SFXGE_MON_INITIALIZED);

        /* Tear down the statistics */
        sfxge_mon_kstat_fini(sp);

        smp->sm_state = SFXGE_MON_UNINITIALIZED;
        mutex_destroy(&(smp->sm_lock));

        smp->sm_sp = NULL;
        smp->sm_type = EFX_MON_INVALID;

        /* Tear down DMA setup */
        sfxge_dma_buffer_destroy(esmp);

        SFXGE_OBJ_CHECK(smp, sfxge_mon_t);
}