/*
 * Copyright (c) 2007 Mellanox Technologies. All rights reserved.
 *
 * This software is available to you under a choice of one of two
 * licenses.  You may choose to be licensed under the terms of the GNU
 * General Public License (GPL) Version 2, available from the file
 * COPYING in the main directory of this source tree, or the
 * OpenIB.org BSD license below:
 *
 *     Redistribution and use in source and binary forms, with or
 *     without modification, are permitted provided that the following
 *     conditions are met:
 *
 *      - Redistributions of source code must retain the above
 *        copyright notice, this list of conditions and the following
 *        disclaimer.
 *
 *      - 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.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
 * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
 * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 *
 */

#include <linux/kernel.h>
#include <linux/ethtool.h>
#include <linux/netdevice.h>
#include <linux/delay.h>
#include <linux/mlx4/driver.h>

#include "mlx4_en.h"


static int mlx4_en_test_registers(struct mlx4_en_priv *priv)
{
        return mlx4_cmd(priv->mdev->dev, 0, 0, 0, MLX4_CMD_HW_HEALTH_CHECK,
                        MLX4_CMD_TIME_CLASS_A);
}

static int mlx4_en_test_loopback_xmit(struct mlx4_en_priv *priv)
{
        struct sk_buff *skb;
        struct ethhdr *ethh;
        unsigned char *packet;
        unsigned int packet_size = MLX4_LOOPBACK_TEST_PAYLOAD;
        unsigned int i;
        int err;


        /* build the pkt before xmit */
        skb = netdev_alloc_skb(priv->dev, MLX4_LOOPBACK_TEST_PAYLOAD + ETH_HLEN + NET_IP_ALIGN);
        if (!skb) {
                en_err(priv, "-LOOPBACK_TEST_XMIT- failed to create skb for xmit\n");
                return -ENOMEM;
        }
        skb_reserve(skb, NET_IP_ALIGN);

        ethh = (struct ethhdr *)skb_put(skb, sizeof(struct ethhdr));
        packet  = (unsigned char *)skb_put(skb, packet_size);
        memcpy(ethh->h_dest, priv->dev->dev_addr, ETH_ALEN);
        memset(ethh->h_source, 0, ETH_ALEN);
        ethh->h_proto = htons(ETH_P_ARP);
        skb_set_mac_header(skb, 0);
        for (i = 0; i < packet_size; ++i)       /* fill our packet */
                packet[i] = (unsigned char)(i & 0xff);

        /* xmit the pkt */
        err = mlx4_en_xmit(skb, priv->dev);
        return err;
}

static int mlx4_en_test_loopback(struct mlx4_en_priv *priv)
{
        u32 loopback_ok = 0;
        int i;


        priv->loopback_ok = 0;
        priv->validate_loopback = 1;

        /* xmit */
        if (mlx4_en_test_loopback_xmit(priv)) {
                en_err(priv, "Transmitting loopback packet failed\n");
                goto mlx4_en_test_loopback_exit;
        }

        /* polling for result */
        for (i = 0; i < MLX4_EN_LOOPBACK_RETRIES; ++i) {
                msleep(MLX4_EN_LOOPBACK_TIMEOUT);
                if (priv->loopback_ok) {
                        loopback_ok = 1;
                        break;
                }
        }
        if (!loopback_ok)
                en_err(priv, "Loopback packet didn't arrive\n");

mlx4_en_test_loopback_exit:

        priv->validate_loopback = 0;
        return !loopback_ok;
}


static int mlx4_en_test_link(struct mlx4_en_priv *priv)
{
        if (mlx4_en_QUERY_PORT(priv->mdev, priv->port))
                return -ENOMEM;
        if (priv->port_state.link_state == 1)
                return 0;
        else
                return 1;
}

static int mlx4_en_test_speed(struct mlx4_en_priv *priv)
{

        if (mlx4_en_QUERY_PORT(priv->mdev, priv->port))
                return -ENOMEM;

        /* The device currently only supports 10G speed */
        if (priv->port_state.link_speed != SPEED_10000)
                return priv->port_state.link_speed;
        return 0;
}


void mlx4_en_ex_selftest(struct net_device *dev, u32 *flags, u64 *buf)
{
        struct mlx4_en_priv *priv = netdev_priv(dev);
        struct mlx4_en_dev *mdev = priv->mdev;
        struct mlx4_en_tx_ring *tx_ring;
        int i, carrier_ok;

        memset(buf, 0, sizeof(u64) * MLX4_EN_NUM_SELF_TEST);

        if (*flags & ETH_TEST_FL_OFFLINE) {
                /* disable the interface */
                carrier_ok = netif_carrier_ok(dev);

                netif_carrier_off(dev);
retry_tx:
                /* Wait untill all tx queues are empty.
                 * there should not be any additional incoming traffic
                 * since we turned the carrier off */
                msleep(200);
                for (i = 0; i < priv->tx_ring_num && carrier_ok; i++) {
                        tx_ring = &priv->tx_ring[i];
                        if (tx_ring->prod != (tx_ring->cons + tx_ring->last_nr_txbb))
                                goto retry_tx;
                }

                if (priv->mdev->dev->caps.loopback_support){
                        buf[3] = mlx4_en_test_registers(priv);
                        buf[4] = mlx4_en_test_loopback(priv);
                }

                if (carrier_ok)
                        netif_carrier_on(dev);

        }
        buf[0] = mlx4_test_interrupts(mdev->dev);
        buf[1] = mlx4_en_test_link(priv);
        buf[2] = mlx4_en_test_speed(priv);

        for (i = 0; i < MLX4_EN_NUM_SELF_TEST; i++) {
                if (buf[i])
                        *flags |= ETH_TEST_FL_FAILED;
        }
}