/*
 *   This program is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   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.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with this program; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
 *
 *   Copyright (C) 2005 infineon
 *   Copyright (C) 2007 John Crispin <blogic@openwrt.org> 
 *
 */

#include <linux/module.h>
#include <linux/types.h>
#include <linux/errno.h>
#include <linux/proc_fs.h>
#include <linux/init.h>
#include <linux/ioctl.h>
#include <asm/semaphore.h>
#include <asm/uaccess.h>
#include <asm/danube/danube.h>
#include <asm/danube/danube_ioctl.h>

#define MAX_PORTS			2
#define PINS_PER_PORT		16

static unsigned int danube_gpio_major = 0;

/* TODO do we need this ? */
static struct semaphore port_sem;

/* TODO do we really need this ? return in a define is forbidden by coding style */
#define DANUBE_GPIO_SANITY		{if (port > MAX_PORTS || pin > PINS_PER_PORT) return -EINVAL; }

int
danube_port_reserve_pin (unsigned int port, unsigned int pin)
{
	DANUBE_GPIO_SANITY;
	printk("%s : call to obseleted function\n", __func__);

	return 0;
}
EXPORT_SYMBOL(danube_port_reserve_pin);

int
danube_port_free_pin (unsigned int port, unsigned int pin)
{
	DANUBE_GPIO_SANITY;
	printk("%s : call to obseleted function\n", __func__);

	return 0;
}
EXPORT_SYMBOL(danube_port_free_pin);

int
danube_port_set_open_drain (unsigned int port, unsigned int pin)
{
	DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_OD + (port * 0x30)) | (1 << pin), DANUBE_GPIO_P0_OD);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_open_drain);

int
danube_port_clear_open_drain (unsigned int port, unsigned int pin)
{
	DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_OD + (port * 0x30)) & ~(1 << pin), DANUBE_GPIO_P0_OD);

	return 0;
}
EXPORT_SYMBOL(danube_port_clear_open_drain);

int
danube_port_set_pudsel (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_PUDSEL + (port * 0x30)) | (1 << pin), DANUBE_GPIO_P0_PUDSEL);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_pudsel);

int
danube_port_clear_pudsel (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_PUDSEL + (port * 0x30)) & ~(1 << pin), DANUBE_GPIO_P0_PUDSEL);

	return 0;
}
EXPORT_SYMBOL(danube_port_clear_pudsel);

int
danube_port_set_puden (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_PUDEN + (port * 0x30)) | (1 << pin), DANUBE_GPIO_P0_PUDEN);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_puden);

int
danube_port_clear_puden (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_PUDEN + (port * 0x30)) & ~(1 << pin), DANUBE_GPIO_P0_PUDEN);

	return 0;
}
EXPORT_SYMBOL(danube_port_clear_puden);

int
danube_port_set_stoff (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_STOFF + (port * 0x30)) | (1 << pin), DANUBE_GPIO_P0_STOFF);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_stoff);

int
danube_port_clear_stoff (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_STOFF + (port * 0x30)) & ~(1 << pin), DANUBE_GPIO_P0_STOFF);

	return 0;
}
EXPORT_SYMBOL(danube_port_clear_stoff);

int
danube_port_set_dir_out (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_DIR + (port * 0x30)) | (1 << pin), DANUBE_GPIO_P0_DIR);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_dir_out);

int
danube_port_set_dir_in (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_DIR + (port * 0x30)) & ~(1 << pin), DANUBE_GPIO_P0_DIR);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_dir_in);

int
danube_port_set_output (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_OUT + (port * 0x30)) | (1 << pin), DANUBE_GPIO_P0_OUT);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_output);

int
danube_port_clear_output (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_OUT + (port * 0x30)) & ~(1 << pin), DANUBE_GPIO_P0_OUT);

	return 0;
}
EXPORT_SYMBOL(danube_port_clear_output);

int
danube_port_get_input (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;

	if (readl(DANUBE_GPIO_P0_IN + (port * 0x30)) & (1 << pin))
		return 0;
	else
		return 1;
}
EXPORT_SYMBOL(danube_port_get_input);

int
danube_port_set_altsel0 (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_ALTSEL0 + (port * 0x30)) | (1 << pin), DANUBE_GPIO_P0_ALTSEL0);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_altsel0);

int
danube_port_clear_altsel0 (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_ALTSEL0 + (port * 0x30)) & ~(1 << pin), DANUBE_GPIO_P0_ALTSEL0);

	return 0;
}
EXPORT_SYMBOL(danube_port_clear_altsel0);

int
danube_port_set_altsel1 (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_ALTSEL1 + (port * 0x30)) | (1 << pin), DANUBE_GPIO_P0_ALTSEL1);

	return 0;
}
EXPORT_SYMBOL(danube_port_set_altsel1);

int
danube_port_clear_altsel1 (unsigned int port, unsigned int pin)
{
    DANUBE_GPIO_SANITY;
	writel(readl(DANUBE_GPIO_P0_ALTSEL1 + (port * 0x30)) & ~(1 << pin), DANUBE_GPIO_P0_ALTSEL1);

	return 0;
}
EXPORT_SYMBOL(danube_port_clear_altsel1);

long danube_port_read_procmem_helper(char* tag, u32* in_reg, char *buf)
{
	u32 reg, bit = 0;
	unsigned int len, t;

	len = sprintf(buf, "\n%s: ", tag);
	reg = readl(in_reg);
	bit = 0x80000000;
	for (t = 0; t < 32; t++) {
		if ((reg & bit) > 0)
			len = len + sprintf(buf + len, "X");
		else
			len = len + sprintf(buf + len, " ");
		bit = bit >> 1;
	}

	return len;
}

int
danube_port_read_procmem (char *buf, char **start, off_t offset, int count,
			  int *eof, void *data)
{
	long len = sprintf (buf, "\nDanube Port Settings\n");

	len += sprintf (buf + len,
			"         3         2         1         0\n");
	len += sprintf (buf + len,
			"        10987654321098765432109876543210\n");
	len += sprintf (buf + len,
			"----------------------------------------\n");

	len += danube_port_read_procmem_helper("P0-OUT", DANUBE_GPIO_P0_OUT, &buf[len]);
	len += danube_port_read_procmem_helper("P1-OUT", DANUBE_GPIO_P1_OUT, &buf[len]);
	len += danube_port_read_procmem_helper("P0-IN ", DANUBE_GPIO_P0_IN, &buf[len]);
	len += danube_port_read_procmem_helper("P1-IN ", DANUBE_GPIO_P1_IN, &buf[len]);
	len += danube_port_read_procmem_helper("P0-DIR", DANUBE_GPIO_P0_DIR, &buf[len]);
	len += danube_port_read_procmem_helper("P1-DIR", DANUBE_GPIO_P1_DIR, &buf[len]);
	len += danube_port_read_procmem_helper("P0-STO ", DANUBE_GPIO_P0_STOFF, &buf[len]);
	len += danube_port_read_procmem_helper("P1-STO ", DANUBE_GPIO_P1_STOFF, &buf[len]);
	len += danube_port_read_procmem_helper("P0-PUDE", DANUBE_GPIO_P0_PUDEN, &buf[len]);
	len += danube_port_read_procmem_helper("P1-PUDE", DANUBE_GPIO_P1_PUDEN, &buf[len]);
	len += danube_port_read_procmem_helper("P0-OD  ", DANUBE_GPIO_P0_OD, &buf[len]);
	len += danube_port_read_procmem_helper("P1-OD  ", DANUBE_GPIO_P1_OD, &buf[len]);
	len += danube_port_read_procmem_helper("P0-PUDS", DANUBE_GPIO_P0_PUDSEL, &buf[len]);
	len += danube_port_read_procmem_helper("P1-PUDS", DANUBE_GPIO_P1_PUDSEL, &buf[len]);
	len += danube_port_read_procmem_helper("P0-ALT0", DANUBE_GPIO_P0_ALTSEL0, &buf[len]);
	len += danube_port_read_procmem_helper("P1-ALT0", DANUBE_GPIO_P1_ALTSEL0, &buf[len]);
	len += danube_port_read_procmem_helper("P0-ALT1", DANUBE_GPIO_P0_ALTSEL1, &buf[len]);
	len += danube_port_read_procmem_helper("P1-ALT1", DANUBE_GPIO_P1_ALTSEL1, &buf[len]);
	len = len + sprintf (buf + len, "\n\n");

	*eof = 1;

	return len;
}

static int
danube_port_open (struct inode *inode, struct file *filep)
{
	return 0;
}

static int
danube_port_release (struct inode *inode, struct file *filelp)
{
	return 0;
}

static int
danube_port_ioctl (struct inode *inode, struct file *filp,
			unsigned int cmd, unsigned long arg)
{
	int ret = 0;
	volatile struct danube_port_ioctl_parm parm;

	if (_IOC_TYPE (cmd) != DANUBE_PORT_IOC_MAGIC)
		return -EINVAL;

	if (_IOC_DIR (cmd) & _IOC_WRITE) {
		if (!access_ok
		    (VERIFY_READ, arg,
		     sizeof (struct danube_port_ioctl_parm)))
			return -EFAULT;
		ret = copy_from_user ((void *) &parm, (void *) arg,
				      sizeof (struct danube_port_ioctl_parm));
	}
	if (_IOC_DIR (cmd) & _IOC_READ) {
		if (!access_ok
		    (VERIFY_WRITE, arg,
		     sizeof (struct danube_port_ioctl_parm)))
			return -EFAULT;
	}

	if (down_trylock (&port_sem) != 0)
		return -EBUSY;

	switch (cmd) {
	case DANUBE_PORT_IOCOD:
		if (parm.value == 0x00)
			danube_port_clear_open_drain(parm.port, parm.pin);
		else
			danube_port_set_open_drain(parm.port, parm.pin);
		break;

	case DANUBE_PORT_IOCPUDSEL:
		if (parm.value == 0x00)
			danube_port_clear_pudsel(parm.port, parm.pin);
		else
			danube_port_set_pudsel(parm.port, parm.pin);
		break;

	case DANUBE_PORT_IOCPUDEN:
		if (parm.value == 0x00)
			danube_port_clear_puden(parm.port, parm.pin);
		else
			danube_port_set_puden(parm.port, parm.pin);
		break;

	case DANUBE_PORT_IOCSTOFF:
		if (parm.value == 0x00)
			danube_port_clear_stoff(parm.port, parm.pin);
		else
			danube_port_set_stoff(parm.port, parm.pin);
		break;

	case DANUBE_PORT_IOCDIR:
		if (parm.value == 0x00)
			danube_port_set_dir_in(parm.port, parm.pin);
		else
			danube_port_set_dir_out(parm.port, parm.pin);
		break;

	case DANUBE_PORT_IOCOUTPUT:
		if (parm.value == 0x00)
			danube_port_clear_output(parm.port, parm.pin);
		else
			danube_port_set_output(parm.port, parm.pin);
		break;

	case DANUBE_PORT_IOCALTSEL0:
		if (parm.value == 0x00)
			danube_port_clear_altsel0(parm.port, parm.pin);
		else
			danube_port_set_altsel0(parm.port, parm.pin);
		break;

	case DANUBE_PORT_IOCALTSEL1:
		if (parm.value == 0x00)
			danube_port_clear_altsel1(parm.port, parm.pin);
		else
			danube_port_set_altsel1(parm.port, parm.pin);
		break;

	case DANUBE_PORT_IOCINPUT:
		parm.value = danube_port_get_input(parm.port, parm.pin);
		copy_to_user((void*)arg, (void*)&parm,
			sizeof(struct danube_port_ioctl_parm));
		break;

	default:
		ret = -EINVAL;
	}

	up (&port_sem);

	return ret;
}

static struct file_operations port_fops = {
      .open = danube_port_open,
      .release = danube_port_release,
      .ioctl = danube_port_ioctl
};

int __init
danube_gpio_init (void)
{
	int retval = 0;

	sema_init (&port_sem, 1);

	danube_gpio_major = register_chrdev(0, "danube_gpio", &port_fops);
	if (!danube_gpio_major)
	{
		printk("danube-port: Error! Could not register port device. #%d\n", danube_gpio_major);
		retval = -EINVAL;
		goto out;
	}

	create_proc_read_entry("danube_gpio", 0, NULL,
				danube_port_read_procmem, NULL);

	printk("registered danube gpio driver\n");

out:
	return retval;
}

void __exit
danube_gpio_exit (void)
{
	unregister_chrdev(danube_gpio_major, "danube_gpio");
	remove_proc_entry("danube_gpio", NULL);
}

module_init(danube_gpio_init);
module_exit(danube_gpio_exit);