/*
 * 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, MLX4_CMD_WRAPPED);
}

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)
                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);
        eth_zero_addr(ethh->h_source);
        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;
        bool gro_enabled;

        priv->loopback_ok = 0;
        priv->validate_loopback = 1;
        gro_enabled = priv->dev->features & NETIF_F_GRO;

        mlx4_en_update_loopback_state(priv->dev, priv->dev->features);
        priv->dev->features &= ~NETIF_F_GRO;

        /* 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;

        if (gro_enabled)
                priv->dev->features |= NETIF_F_GRO;

        mlx4_en_update_loopback_state(priv->dev, priv->dev->features);
        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 supports 100M, 1G, 10G, 20G, 40G and 56G speed */
        if (priv->port_state.link_speed != SPEED_100 &&
            priv->port_state.link_speed != SPEED_1000 &&
            priv->port_state.link_speed != SPEED_10000 &&
            priv->port_state.link_speed != SPEED_20000 &&
            priv->port_state.link_speed != SPEED_40000 &&
            priv->port_state.link_speed != SPEED_56000)
                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;
        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);
                /* Wait until all tx queues are empty.
                 * there should not be any additional incoming traffic
                 * since we turned the carrier off */
                msleep(200);

                if (priv->mdev->dev->caps.flags &
                                        MLX4_DEV_CAP_FLAG_UC_LOOPBACK) {
                        buf[3] = mlx4_en_test_registers(priv);
                        if (priv->port_up)
                                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;
        }
}