openwrt/target/linux/ifxmips/files/drivers/char/ifxmips_gpio.c

/*
 *   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 <linux/timer.h>
#include <linux/module.h>
#include <linux/timer.h>
#include <linux/interrupt.h>
#include <linux/kobject.h>
#include <linux/workqueue.h>
#include <linux/skbuff.h>
#include <linux/netlink.h>
#include <linux/platform_device.h> 
#include <net/sock.h>
#include <asm/uaccess.h>
#include <asm/semaphore.h>
#include <asm/uaccess.h>
#include <asm/ifxmips/ifxmips.h>
#include <asm/ifxmips/ifxmips_ioctl.h>

#define MAX_PORTS			2
#define PINS_PER_PORT		16

#define DRVNAME				"ifxmips_gpio"  

static unsigned int ifxmips_gpio_major = 0;

#ifdef CONFIG_IFXMIPS_GPIO_RST_BTN
#define IFXMIPS_RST_PIN 15
#define IFXMIPS_RST_PORT 1

static struct timer_list rst_button_timer; 

extern struct sock *uevent_sock;
extern u64 uevent_next_seqnum(void);
static unsigned long seen;
static int pressed = 0;

struct event_t {
	struct work_struct wq;
	int set;
	unsigned long jiffies;
};
#endif

/* 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 IFXMIPS_GPIO_SANITY		{if (port > MAX_PORTS || pin > PINS_PER_PORT) return -EINVAL; }

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

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_reserve_pin);

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

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_free_pin);

int
ifxmips_port_set_open_drain (unsigned int port, unsigned int pin)
{
	IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_OD + (port * 0xC)) | (1 << pin), IFXMIPS_GPIO_P0_OD + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_open_drain);

int
ifxmips_port_clear_open_drain (unsigned int port, unsigned int pin)
{
	IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_OD + (port * 0xC)) & ~(1 << pin), IFXMIPS_GPIO_P0_OD + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_clear_open_drain);

int
ifxmips_port_set_pudsel (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_PUDSEL + (port * 0xC)) | (1 << pin), IFXMIPS_GPIO_P0_PUDSEL + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_pudsel);

int
ifxmips_port_clear_pudsel (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_PUDSEL + (port * 0xC)) & ~(1 << pin), IFXMIPS_GPIO_P0_PUDSEL + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_clear_pudsel);

int
ifxmips_port_set_puden (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_PUDEN + (port * 0xC)) | (1 << pin), IFXMIPS_GPIO_P0_PUDEN + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_puden);

int
ifxmips_port_clear_puden (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_PUDEN + (port * 0xC)) & ~(1 << pin), IFXMIPS_GPIO_P0_PUDEN + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_clear_puden);

int
ifxmips_port_set_stoff (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_STOFF + (port * 0xC)) | (1 << pin), IFXMIPS_GPIO_P0_STOFF + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_stoff);

int
ifxmips_port_clear_stoff (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_STOFF + (port * 0xC)) & ~(1 << pin), IFXMIPS_GPIO_P0_STOFF + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_clear_stoff);

int
ifxmips_port_set_dir_out (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_DIR + (port * 0xC)) | (1 << pin), IFXMIPS_GPIO_P0_DIR + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_dir_out);

int
ifxmips_port_set_dir_in (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_DIR + (port * 0xC)) & ~(1 << pin), IFXMIPS_GPIO_P0_DIR + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_dir_in);

int
ifxmips_port_set_output (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_OUT + (port * 0xC)) | (1 << pin), IFXMIPS_GPIO_P0_OUT + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_output);

int
ifxmips_port_clear_output (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_OUT + (port * 0xC)) & ~(1 << pin), IFXMIPS_GPIO_P0_OUT + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_clear_output);

int
ifxmips_port_get_input (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;

	if (readl(IFXMIPS_GPIO_P0_IN + (port * 0xC)) & (1 << pin))
		return 0;
	else
		return 1;
}
EXPORT_SYMBOL(ifxmips_port_get_input);

int
ifxmips_port_set_altsel0 (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_ALTSEL0 + (port * 0xC)) | (1 << pin), IFXMIPS_GPIO_P0_ALTSEL0 + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_altsel0);

int
ifxmips_port_clear_altsel0 (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_ALTSEL0 + (port * 0xC)) & ~(1 << pin), IFXMIPS_GPIO_P0_ALTSEL0 + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_clear_altsel0);

int
ifxmips_port_set_altsel1 (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_ALTSEL1 + (port * 0xC)) | (1 << pin), IFXMIPS_GPIO_P0_ALTSEL1 + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_set_altsel1);

int
ifxmips_port_clear_altsel1 (unsigned int port, unsigned int pin)
{
    IFXMIPS_GPIO_SANITY;
	writel(readl(IFXMIPS_GPIO_P0_ALTSEL1 + (port * 0xC)) & ~(1 << pin), IFXMIPS_GPIO_P0_ALTSEL1 + (port * 0xC));

	return 0;
}
EXPORT_SYMBOL(ifxmips_port_clear_altsel1);

#ifdef CONFIG_IFXMIPS_GPIO_RST_BTN
static inline void add_msg(struct sk_buff *skb, char *msg)
{
	char *scratch;
	scratch = skb_put(skb, strlen(msg) + 1);
	sprintf(scratch, msg);
}

static void hotplug_button(struct work_struct *wq)
{
	struct sk_buff *skb;
	struct event_t *event;
	size_t len;
	char *scratch, *s;
	char buf[128];

	event = container_of(wq, struct event_t, wq);
	if (!uevent_sock)
		goto done;

	/* allocate message with the maximum possible size */
	s = event->set ? "pressed" : "released";
	len = strlen(s) + 2;
	skb = alloc_skb(len + 2048, GFP_KERNEL);
	if (!skb)
		goto done;

	/* add header */
	scratch = skb_put(skb, len);
	sprintf(scratch, "%s@",s);

	/* copy keys to our continuous event payload buffer */
	add_msg(skb, "HOME=/");
	add_msg(skb, "PATH=/sbin:/bin:/usr/sbin:/usr/bin");
	add_msg(skb, "SUBSYSTEM=button");
	add_msg(skb, "BUTTON=reset");
	add_msg(skb, (event->set ? "ACTION=pressed" : "ACTION=released"));
	sprintf(buf, "SEEN=%ld", (event->jiffies - seen)/HZ);
	add_msg(skb, buf);
	snprintf(buf, 128, "SEQNUM=%llu", uevent_next_seqnum());
	add_msg(skb, buf);

	NETLINK_CB(skb).dst_group = 1;
	netlink_broadcast(uevent_sock, skb, 0, 1, GFP_KERNEL);

done:
	kfree(event);
}

static void reset_button_poll(unsigned long unused)
{
	struct event_t *event;
	
	rst_button_timer.expires = jiffies + HZ;
	add_timer(&rst_button_timer);
	
	if (pressed != ifxmips_port_get_input(IFXMIPS_RST_PORT, IFXMIPS_RST_PIN))
	{
		if(pressed)
			pressed = 0;
		else
			pressed = 1;
		printk("button was %s\n", (pressed ? "pressed" : "released"));
		event = (struct event_t *) kzalloc(sizeof(struct event_t), GFP_ATOMIC);
		if (!event)
		{
			printk("Could not alloc hotplug event\n");
			return;
		}
		event->set = pressed;
		event->jiffies = jiffies;
		INIT_WORK(&event->wq, (void *)(void *)hotplug_button);
		schedule_work(&event->wq);
		seen = jiffies;
	}
}
#endif

long ifxmips_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
ifxmips_port_read_procmem (char *buf, char **start, off_t offset, int count,
			  int *eof, void *data)
{
	long len = sprintf (buf, "\nIFXMips Port Settings\n");

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

	len += ifxmips_port_read_procmem_helper("P0-OUT", IFXMIPS_GPIO_P0_OUT, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-OUT", IFXMIPS_GPIO_P1_OUT, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P0-IN ", IFXMIPS_GPIO_P0_IN, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-IN ", IFXMIPS_GPIO_P1_IN, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P0-DIR", IFXMIPS_GPIO_P0_DIR, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-DIR", IFXMIPS_GPIO_P1_DIR, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P0-STO ", IFXMIPS_GPIO_P0_STOFF, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-STO ", IFXMIPS_GPIO_P1_STOFF, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P0-PUDE", IFXMIPS_GPIO_P0_PUDEN, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-PUDE", IFXMIPS_GPIO_P1_PUDEN, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P0-OD  ", IFXMIPS_GPIO_P0_OD, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-OD  ", IFXMIPS_GPIO_P1_OD, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P0-PUDS", IFXMIPS_GPIO_P0_PUDSEL, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-PUDS", IFXMIPS_GPIO_P1_PUDSEL, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P0-ALT0", IFXMIPS_GPIO_P0_ALTSEL0, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-ALT0", IFXMIPS_GPIO_P1_ALTSEL0, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P0-ALT1", IFXMIPS_GPIO_P0_ALTSEL1, &buf[len]);
	len += ifxmips_port_read_procmem_helper("P1-ALT1", IFXMIPS_GPIO_P1_ALTSEL1, &buf[len]);
	len = len + sprintf (buf + len, "\n\n");

	*eof = 1;

	return len;
}

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

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

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

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

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

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

	switch (cmd) {
	case IFXMIPS_PORT_IOCOD:
		if (parm.value == 0x00)
			ifxmips_port_clear_open_drain(parm.port, parm.pin);
		else
			ifxmips_port_set_open_drain(parm.port, parm.pin);
		break;

	case IFXMIPS_PORT_IOCPUDSEL:
		if (parm.value == 0x00)
			ifxmips_port_clear_pudsel(parm.port, parm.pin);
		else
			ifxmips_port_set_pudsel(parm.port, parm.pin);
		break;

	case IFXMIPS_PORT_IOCPUDEN:
		if (parm.value == 0x00)
			ifxmips_port_clear_puden(parm.port, parm.pin);
		else
			ifxmips_port_set_puden(parm.port, parm.pin);
		break;

	case IFXMIPS_PORT_IOCSTOFF:
		if (parm.value == 0x00)
			ifxmips_port_clear_stoff(parm.port, parm.pin);
		else
			ifxmips_port_set_stoff(parm.port, parm.pin);
		break;

	case IFXMIPS_PORT_IOCDIR:
		if (parm.value == 0x00)
			ifxmips_port_set_dir_in(parm.port, parm.pin);
		else
			ifxmips_port_set_dir_out(parm.port, parm.pin);
		break;

	case IFXMIPS_PORT_IOCOUTPUT:
		if (parm.value == 0x00)
			ifxmips_port_clear_output(parm.port, parm.pin);
		else
			ifxmips_port_set_output(parm.port, parm.pin);
		break;

	case IFXMIPS_PORT_IOCALTSEL0:
		if (parm.value == 0x00)
			ifxmips_port_clear_altsel0(parm.port, parm.pin);
		else
			ifxmips_port_set_altsel0(parm.port, parm.pin);
		break;

	case IFXMIPS_PORT_IOCALTSEL1:
		if (parm.value == 0x00)
			ifxmips_port_clear_altsel1(parm.port, parm.pin);
		else
			ifxmips_port_set_altsel1(parm.port, parm.pin);
		break;

	case IFXMIPS_PORT_IOCINPUT:
		parm.value = ifxmips_port_get_input(parm.port, parm.pin);
		copy_to_user((void*)arg, (void*)&parm,
			sizeof(struct ifxmips_port_ioctl_parm));
		break;

	default:
		ret = -EINVAL;
	}

	up (&port_sem);

	return ret;
}

static struct file_operations port_fops = {
      .open = ifxmips_port_open,
      .release = ifxmips_port_release,
      .ioctl = ifxmips_port_ioctl
};

static int
ifxmips_gpio_probe (struct platform_device *dev)
{
	int retval = 0;

	sema_init (&port_sem, 1);

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

	create_proc_read_entry(DRVNAME, 0, NULL, ifxmips_port_read_procmem, NULL);

#ifdef CONFIG_IFXMIPS_GPIO_RST_BTN
	ifxmips_port_set_open_drain(IFXMIPS_RST_PORT, IFXMIPS_RST_PIN);
	ifxmips_port_clear_altsel0(IFXMIPS_RST_PORT, IFXMIPS_RST_PIN);
	ifxmips_port_clear_altsel1(IFXMIPS_RST_PORT, IFXMIPS_RST_PIN);
	ifxmips_port_set_dir_in(IFXMIPS_RST_PORT, IFXMIPS_RST_PIN);
	
	seen = jiffies;

	init_timer(&rst_button_timer);
	rst_button_timer.function = reset_button_poll;
	rst_button_timer.expires = jiffies + HZ;
	add_timer(&rst_button_timer);
#endif

	printk(KERN_INFO DRVNAME ": device successfully initialized #%d.\n", ifxmips_gpio_major);

out:
	return retval;
}

static int
ifxmips_gpio_remove (struct platform_device *pdev)
{
#ifdef CONFIG_IFXMIPS_GPIO_RST_BTN
	del_timer_sync(&rst_button_timer);
#endif
	unregister_chrdev(ifxmips_gpio_major, DRVNAME);
	remove_proc_entry(DRVNAME, NULL);

	return 0;
}

static struct 
platform_driver ifxmips_gpio_driver = { 
	.probe = ifxmips_gpio_probe, 
	.remove = ifxmips_gpio_remove, 
	.driver = { 
		.name = DRVNAME, 
		.owner = THIS_MODULE, 
	}, 
}; 

int __init
ifxmips_gpio_init (void)
{
	int ret = platform_driver_register(&ifxmips_gpio_driver); 
	if (ret) 
		printk(KERN_INFO DRVNAME ": Error registering platfom driver!"); 
	return ret; 
}

void __exit
ifxmips_gpio_exit (void)
{
	platform_driver_unregister(&ifxmips_gpio_driver); 
}

module_init(ifxmips_gpio_init);
module_exit(ifxmips_gpio_exit);