/*
 * miidev.c - generic phy abstraction
 *
 * Copyright (c) 2007 Sascha Hauer <s.hauer@pengutronix.de>, Pengutronix
 *
 * See file CREDITS for list of people who contributed to this
 * project.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License version 2
 * as published by the Free Software Foundation.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 */

#include <common.h>
#include <driver.h>
#include <init.h>
#include <miidev.h>
#include <clock.h>
#include <net.h>
#include <malloc.h>

static LIST_HEAD(miidev_list);

int miidev_restart_aneg(struct mii_device *mdev)
{
	int status, timeout;
	uint64_t start;

	status = mii_write(mdev, mdev->address, MII_BMCR, BMCR_RESET);
	if (status)
		return status;

	start = get_time_ns();
	do {
		status = mii_read(mdev, mdev->address, MII_BMCR);
		if (status < 0)
			return status;

		if (is_timeout(start, SECOND))
			return -ETIMEDOUT;

	} while (status & BMCR_RESET);

	if (mdev->flags & MIIDEV_FORCE_LINK)
		return 0;

	if (mdev->flags & MIIDEV_FORCE_10) {
		printf("Forcing 10 Mbps ethernet link... ");

		status = mii_read(mdev, mdev->address, MII_BMSR);
		if (status < 0)
			return status;

		status = mii_write(mdev, mdev->address, MII_BMCR, BMCR_FULLDPLX | BMCR_CTST);
		if (status)
			return status;

		timeout = 20;
		do {	/* wait for link status to go down */
			udelay(10000);
			if ((timeout--) == 0) {
				debug("hmmm, should not have waited...");
				break;
			}
			status = mii_read(mdev, mdev->address, MII_BMSR);
			if (status < 0)
				return status;
		} while (status & BMSR_LSTATUS);

	} else {	/* MII100 */
		/*
		 * Set the auto-negotiation advertisement register bits
		 */
		status = mii_read(mdev, mdev->address, MII_ADVERTISE);
		if (status < 0)
			return status;

		status |= ADVERTISE_ALL;

		status = mii_write(mdev, mdev->address, MII_ADVERTISE, status);
		if (status)
			return status;

		status = mii_write(mdev, mdev->address, MII_BMCR, BMCR_ANENABLE | BMCR_ANRESTART);
		if (status)
			return status;
	}

	return 0;
}

int miidev_wait_aneg(struct mii_device *mdev)
{
	int status;
	uint64_t start = get_time_ns();

	if (mdev->flags & MIIDEV_FORCE_LINK)
		return 0;

	do {
		status = mii_read(mdev, mdev->address, MII_BMSR);
		if (status < 0)
			return status;

		if (is_timeout(start, 5 * SECOND)) {
			printf("%s: Autonegotiation timeout\n", mdev->cdev.name);
			return -ETIMEDOUT;
		}

	} while (!(status & BMSR_ANEGCOMPLETE));

	return 0;
}

int miidev_get_status(struct mii_device *mdev)
{
	int ret, status, adv, lpa;

	ret = mii_read(mdev, mdev->address, MII_BMSR);
	if (ret < 0)
		goto err_out;

	status = ret & BMSR_LSTATUS ? MIIDEV_STATUS_IS_UP : 0;

	if (ret & BMSR_ESTATEN) {
		ret = mii_read(mdev, mdev->address, MII_ESTATUS);
		if (ret < 0)
			goto err_out;
		if (ret & (ESTATUS_1000_TFULL | ESTATUS_1000_THALF))
			mdev->capabilities = MIIDEV_CAPABLE_1000M;
	}

	ret = mii_read(mdev, mdev->address, MII_BMCR);
	if (ret < 0)
		goto err_out;

	if (ret & BMCR_ANENABLE) {
		if (mdev->capabilities & MIIDEV_CAPABLE_1000M) {
			lpa = mii_read(mdev, mdev->address, MII_STAT1000);
			if (lpa < 0)
				goto err_out;
			adv = mii_read(mdev, mdev->address, MII_CTRL1000);
			if (adv < 0)
				goto err_out;
			lpa &= adv << 2;
			if (lpa & (LPA_1000FULL | LPA_1000HALF)) {
				if (lpa & LPA_1000FULL)
				       status |= MIIDEV_STATUS_IS_FULL_DUPLEX;
				status |= MIIDEV_STATUS_IS_1000MBIT;
				return status;
			}
		}
		lpa = mii_read(mdev, mdev->address, MII_LPA);
		if (lpa < 0)
			goto err_out;
		adv = mii_read(mdev, mdev->address, MII_ADVERTISE);
		if (adv < 0)
			goto err_out;
		lpa &= adv;
		status |= lpa & LPA_DUPLEX ? MIIDEV_STATUS_IS_FULL_DUPLEX : 0;
		status |= lpa & LPA_100 ? MIIDEV_STATUS_IS_100MBIT :
			MIIDEV_STATUS_IS_10MBIT;
	} else {
		status |= ret & BMCR_FULLDPLX ? MIIDEV_STATUS_IS_FULL_DUPLEX : 0;
		status |= ret & BMCR_SPEED100 ? MIIDEV_STATUS_IS_100MBIT :
			MIIDEV_STATUS_IS_10MBIT;
	}

	return status;
err_out:
	printf("%s: failed to read (%d)\n", mdev->cdev.name, ret);
	return ret;
}

int miidev_print_status(struct mii_device *mdev)
{
	char *duplex;
	int speed, status;

	if (mdev->flags & MIIDEV_FORCE_LINK) {
		printf("Forcing link present...\n");
		return 0;
	}

	status = miidev_get_status(mdev);
	if (status < 0)
		return status;

	duplex = status & MIIDEV_STATUS_IS_FULL_DUPLEX ? "Full" : "Half";
	speed = status & MIIDEV_STATUS_IS_1000MBIT ? 1000 :
		(status & MIIDEV_STATUS_IS_100MBIT ? 100 : 10);

	printf("%s: Link is %s", mdev->cdev.name,
			status & MIIDEV_STATUS_IS_UP ? "up" : "down");
	printf(" - %d/%s\n", speed, duplex);

	return 0;
}

static ssize_t miidev_read(struct cdev *cdev, void *_buf, size_t count, loff_t offset, ulong flags)
{
	int i = count;
	uint16_t *buf = _buf;
	struct mii_device *mdev = cdev->priv;

	while (i > 0) {
		*buf = mii_read(mdev, mdev->address, offset / 2);
		buf++;
		i -= 2;
		offset += 2;
	}

	return count;
}

static ssize_t miidev_write(struct cdev *cdev, const void *_buf, size_t count, loff_t offset, ulong flags)
{
	int i = count;
	const uint16_t *buf = _buf;
	struct mii_device *mdev = cdev->priv;

	while (i > 0) {
		mii_write(mdev, mdev->address, offset / 2, *buf);
		buf++;
		i -= 2;
		offset += 2;
	}

	return count;
}

static struct file_operations miidev_ops = {
	.read  = miidev_read,
	.write = miidev_write,
	.lseek = dev_lseek_default,
};

static int miidev_probe(struct device_d *dev)
{
	struct mii_device *mdev = dev->priv;

	mdev->capabilities = 0;
	mdev->cdev.name = asprintf("phy%d", dev->id);
	mdev->cdev.size = 64;
	mdev->cdev.ops = &miidev_ops;
	mdev->cdev.priv = mdev;
	mdev->cdev.dev = dev;
	devfs_create(&mdev->cdev);
	list_add_tail(&mdev->list, &miidev_list);
	return 0;
}

static void miidev_remove(struct device_d *dev)
{
	struct mii_device *mdev = dev->priv;

	list_del(&mdev->list);

	free(mdev->cdev.name);
	devfs_remove(&mdev->cdev);
}

struct mii_device *mii_open(const char *name)
{
	struct mii_device *mdev;

	list_for_each_entry(mdev, &miidev_list, list) {
		if (!strcmp(name, mdev->cdev.name))
			return mdev;
	}
	return NULL;
}

void mii_close(struct mii_device *mdev)
{
}

static struct driver_d miidev_drv = {
        .name  = "miidev",
        .probe = miidev_probe,
	.remove = miidev_remove,
};

int mii_register(struct mii_device *mdev)
{
	mdev->dev.priv = mdev;
	mdev->dev.id = DEVICE_ID_DYNAMIC;
	strcpy(mdev->dev.name, "miidev");
	if (mdev->parent)
		dev_add_child(mdev->parent, &mdev->dev);

	return register_device(&mdev->dev);
}

void mii_unregister(struct mii_device *mdev)
{
	unregister_device(&mdev->dev);
}

static int miidev_init(void)
{
	register_driver(&miidev_drv);
	return 0;
}

device_initcall(miidev_init);