/* ------------------------------------------
 * Copyright (c) 2016, Synopsys, Inc. All rights reserved.

 * Redistribution and use in source and binary forms, with or without modification,
 * are permitted provided that the following conditions are met:

 * 1) Redistributions of source code must retain the above copyright notice, this
 * list of conditions and the following disclaimer.

 * 2) 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.

 * 3) Neither the name of the Synopsys, Inc., nor the names of its contributors may
 * be used to endorse or promote products derived from this software without
 * specific prior written permission.

 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
 * ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 * \version 2016.05
 * \date 2014-07-22
 * \author Wayne Ren(Wei.Ren@synopsys.com)
--------------------------------------------- */

/**
 * \defgroup	DEVICE_DW_GPIO	Designware GPIO Driver
 * \ingroup	DEVICE_DW
 * \brief	Designware GPIO Driver Implementation
 */

/**
 * \file
 * \brief	designware gpio driver
 * \ingroup	DEVICE_DW_GPIO
 * \brief	Designware GPIO driver
 */
#include "inc/embARC_toolchain.h"
#include "inc/embARC_error.h"
#include "inc/arc/arc_exception.h"

#include "device/designware/gpio/dw_gpio.h"

/** check expressions used in DesignWare GPIO driver implementation */
#define DW_GPIO_CHECK_EXP(EXPR, ERROR_CODE)		CHECK_EXP(EXPR, ercd, ERROR_CODE, error_exit)

#ifndef DISABLE_DEVICE_OBJECT_VALID_CHECK
/** valid check of uart info object */
#define VALID_CHK_GPIO_INFO_OBJECT(gpioinfo_obj_ptr)		{				\
			DW_GPIO_CHECK_EXP((gpioinfo_obj_ptr)!=NULL, E_OBJ);			\
			DW_GPIO_CHECK_EXP(((gpioinfo_obj_ptr)->gpio_ctrl)!=NULL, E_OBJ);	\
 		}
#endif

/**
 * \defgroup	DEVICE_DW_GPIO_STATIC	DesignWare GPIO Driver Static Functions
 * \ingroup	DEVICE_DW_GPIO
 * \brief	Static or inline functions, variables for DesignWare GPIO handle gpio operations,
 * 	only used in this file
 * @{
 */
Inline uint32_t dw_gpio_read_ext(DW_GPIO_PORT_PTR port)
{
	return  port->regs->EXT_PORTS[port->no];
}

Inline uint32_t dw_gpio_read_dir(DW_GPIO_PORT_PTR port)
{
	return port->regs->SWPORTS[port->no].DDR;
}

Inline uint32_t dw_gpio_read_dr(DW_GPIO_PORT_PTR port)
{
	return port->regs->SWPORTS[port->no].DR;
}

Inline uint32_t dw_gpio_read_mthd(DW_GPIO_PORT_PTR port)
{
	return port->regs->INTEN;
}

Inline void dw_gpio_int_enable(DW_GPIO_PORT_PTR port, uint32_t bit_mask)
{
	port->regs->INTEN |= bit_mask;
}

Inline void dw_gpio_int_disable(DW_GPIO_PORT_PTR port, uint32_t bit_mask)
{
	port->regs->INTEN &= (~bit_mask);
}

Inline void dw_gpio_int_mask(DW_GPIO_PORT_PTR port, uint32_t bit_mask)
{
	port->regs->INTMASK |= bit_mask;
}

Inline void dw_gpio_int_unmask(DW_GPIO_PORT_PTR port, uint32_t bit_mask)
{
	port->regs->INTMASK &= (~bit_mask);
}

Inline uint32_t dw_gpio_int_read_level(DW_GPIO_PORT_PTR port)
{
	return port->regs->INTTYPE_LEVEL;
}

Inline uint32_t dw_gpio_int_read_polarity(DW_GPIO_PORT_PTR port)
{
	return port->regs->INT_POLARITY;
}

Inline uint32_t dw_gpio_int_read_debounce(DW_GPIO_PORT_PTR port)
{
	return port->regs->DEBOUNCE;
}

Inline uint32_t dw_gpio_int_read_status(DW_GPIO_PORT_PTR port)
{
	return port->regs->INTSTATUS;
}

Inline void dw_gpio_int_clear(DW_GPIO_PORT_PTR port, uint32_t bit_mask)
{
	port->regs->PORTA_EOI = bit_mask;
}

static void dw_gpio_int_write_level(DW_GPIO_PORT_PTR port, uint32_t bit_mask, uint32_t bit_level)
{
	uint32_t reg_val;

	reg_val = port->regs->INTTYPE_LEVEL;
	reg_val &= (~bit_mask);
	bit_level &= bit_mask;
	reg_val |= bit_level;

	port->regs->INTTYPE_LEVEL = reg_val;
}

static void dw_gpio_int_write_polarity(DW_GPIO_PORT_PTR port, uint32_t bit_mask, uint32_t bit_polarity)
{
	uint32_t reg_val;

	reg_val = port->regs->INT_POLARITY;

	reg_val &= (~bit_mask);
	bit_polarity &= bit_mask;
	reg_val |= bit_polarity;

	port->regs->INT_POLARITY = reg_val;
}

static void dw_gpio_int_write_debounce(DW_GPIO_PORT_PTR port, uint32_t bit_mask, uint32_t bit_debounce)
{
	uint32_t reg_val;

	reg_val = port->regs->DEBOUNCE;

	reg_val &= (~bit_mask);
	bit_debounce &= bit_mask;
	reg_val |= bit_debounce;

	port->regs->DEBOUNCE = reg_val;
}

static void dw_gpio_set_int_cfg(DW_GPIO_PORT_PTR port, DEV_GPIO_INT_CFG *int_cfg)
{
	dw_gpio_int_write_level(port, int_cfg->int_bit_mask, int_cfg->int_bit_type);
	dw_gpio_int_write_polarity(port, int_cfg->int_bit_mask, int_cfg->int_bit_polarity);
	dw_gpio_int_write_debounce(port, int_cfg->int_bit_mask, int_cfg->int_bit_debounce);
}

static void dw_gpio_get_int_cfg(DW_GPIO_PORT_PTR port, DEV_GPIO_INT_CFG *int_cfg)
{
	int_cfg->int_bit_type = dw_gpio_int_read_level(port) & int_cfg->int_bit_mask;
	int_cfg->int_bit_polarity = dw_gpio_int_read_polarity(port) & int_cfg->int_bit_mask;
	int_cfg->int_bit_debounce = dw_gpio_int_read_debounce(port) & int_cfg->int_bit_mask;
}

static void dw_gpio_write_dr(DW_GPIO_PORT_PTR port, uint32_t bit_mask, uint32_t val)
{
	uint32_t temp_reg;

	temp_reg = port->regs->SWPORTS[port->no].DR;
	temp_reg &= ~bit_mask;
	val &= bit_mask;
	temp_reg |= val;

	port->regs->SWPORTS[port->no].DR = temp_reg;
}

static void dw_gpio_write_dir(DW_GPIO_PORT_PTR port, uint32_t bit_mask, uint32_t val)
{
	uint32_t temp_reg;

	temp_reg = port->regs->SWPORTS[port->no].DDR;
	temp_reg &= ~bit_mask;
	val &= bit_mask;
	temp_reg |= val;

	port->regs->SWPORTS[port->no].DDR = temp_reg;
}

static uint32_t dw_gpio_read_val(DW_GPIO_PORT_PTR port)
{
	uint32_t val;

	val = dw_gpio_read_ext(port) & (~dw_gpio_read_dir(port));
	val |= dw_gpio_read_dr(port) & dw_gpio_read_dir(port);

	return val;
}

/** @} end of group DEVICE_DW_GPIO_STATIC */

/* interface for DEV_GPIO */
/** Open designware gpio device with specified io direction configuration */
int32_t dw_gpio_open(DEV_GPIO *gpio_obj, uint32_t dir)
{
	int32_t ercd = E_OK;
	DEV_GPIO_INFO_PTR port_info_ptr = &(gpio_obj->gpio_info);

	/* START ERROR CHECK */
	VALID_CHK_GPIO_INFO_OBJECT(port_info_ptr);
	/* END OF ERROR CHECK */

	DW_GPIO_PORT_PTR port = (DW_GPIO_PORT_PTR)(port_info_ptr->gpio_ctrl);
	DW_GPIO_CHECK_EXP(port->no <= DW_GPIO_PORT_D, E_OBJ);

	port_info_ptr->opn_cnt ++;
	if (port_info_ptr->opn_cnt > 1) { /* opened before */
		if (dir == port_info_ptr->direction) { /* direction is the same */
			return E_OK;
		} else { /* open with different direction */
			return E_OPNED;
		}
	}

	dw_gpio_write_dir(port, port->valid_bit_mask, dir);

	if (port->no == DW_GPIO_PORT_A) {
		dw_gpio_int_clear(port, DW_GPIO_MASK_ALL);
		dw_gpio_int_disable(port, DW_GPIO_MASK_ALL);
		dw_gpio_int_unmask(port, DW_GPIO_MASK_ALL);
		/* install gpio interrupt handler */
		int_handler_install(port->intno, port->int_handler);
		int_disable(port->intno);
		/** Set int type, int polarity and debounce configuration to default settings of device gpio */
		dw_gpio_set_int_cfg(port, (DEV_GPIO_INT_CFG *)(&gpio_int_cfg_default));
		port_info_ptr->method = dw_gpio_read_mthd(port);
	} else {
		port_info_ptr->method = DEV_GPIO_BITS_MTHD_DEFAULT;
	}

	dw_gpio_write_dr(port, port->valid_bit_mask, 0);

	port_info_ptr->direction = dir;
	port_info_ptr->extra = NULL;

error_exit:
	return ercd;
}

/** Close designware gpio device */
int32_t dw_gpio_close(DEV_GPIO *gpio_obj)
{
	int32_t ercd = E_OK;
	DEV_GPIO_INFO_PTR port_info_ptr = &(gpio_obj->gpio_info);

	/* START ERROR CHECK */
	VALID_CHK_GPIO_INFO_OBJECT(port_info_ptr);
	/* END OF ERROR CHECK */

	DW_GPIO_PORT_PTR port = (DW_GPIO_PORT_PTR)(port_info_ptr->gpio_ctrl);
	DW_GPIO_CHECK_EXP(port->no <= DW_GPIO_PORT_D, E_OBJ);

	DW_GPIO_CHECK_EXP(port_info_ptr->opn_cnt > 0, E_OK);

	port_info_ptr->opn_cnt --;
	if (port_info_ptr->opn_cnt == 0) {
		dw_gpio_write_dr(port, port->valid_bit_mask, 0);
		dw_gpio_write_dir(port, port->valid_bit_mask, 0);
		if (port->no == DW_GPIO_PORT_A) {
			dw_gpio_int_clear(port, DW_GPIO_MASK_ALL);
			dw_gpio_int_disable(port, DW_GPIO_MASK_ALL);
			int_disable(port->intno);
		}

		port_info_ptr->direction = 0;
		port_info_ptr->method = 0;
		port_info_ptr->extra = NULL;
	} else {
		ercd = E_OPNED;
	}

error_exit:
	return ercd;
}

/** Read designware gpio device value */
int32_t dw_gpio_read(DEV_GPIO *gpio_obj, uint32_t *val, uint32_t mask)
{
	int32_t ercd = E_OK;
	DEV_GPIO_INFO_PTR port_info_ptr = &(gpio_obj->gpio_info);

	/* START ERROR CHECK */
	VALID_CHK_GPIO_INFO_OBJECT(port_info_ptr);
	/* END OF ERROR CHECK */

	DW_GPIO_PORT_PTR port = (DW_GPIO_PORT_PTR)(port_info_ptr->gpio_ctrl);
	DW_GPIO_CHECK_EXP(port->no <= DW_GPIO_PORT_D, E_OBJ);
	DW_GPIO_CHECK_EXP(port_info_ptr->opn_cnt > 0, E_CLSED);

	DW_GPIO_CHECK_EXP(val!=NULL, E_PAR);

	//*val = dw_gpio_read_ext(port) & mask;
	*val = dw_gpio_read_val(port) & mask;

error_exit:
	return ercd;
}

/** Write designware gpio device value */
int32_t dw_gpio_write(DEV_GPIO *gpio_obj, uint32_t val, uint32_t mask)
{
	int32_t ercd = E_OK;
	DEV_GPIO_INFO_PTR port_info_ptr = &(gpio_obj->gpio_info);

	/* START ERROR CHECK */
	VALID_CHK_GPIO_INFO_OBJECT(port_info_ptr);
	/* END OF ERROR CHECK */

	DW_GPIO_PORT_PTR port = (DW_GPIO_PORT_PTR)(port_info_ptr->gpio_ctrl);
	DW_GPIO_CHECK_EXP(port->no <= DW_GPIO_PORT_D, E_OBJ);
	DW_GPIO_CHECK_EXP(port_info_ptr->opn_cnt > 0, E_CLSED);

	dw_gpio_write_dr(port, mask, val);

error_exit:
	return ercd;
}

/** Control designware gpio device */
int32_t dw_gpio_control(DEV_GPIO *gpio_obj, uint32_t ctrl_cmd, void *param)
{
	int32_t ercd = E_OK;
	DEV_GPIO_INFO_PTR port_info_ptr = &(gpio_obj->gpio_info);

	/* START ERROR CHECK */
	VALID_CHK_GPIO_INFO_OBJECT(port_info_ptr);
	/* END OF ERROR CHECK */

	DW_GPIO_PORT_PTR port = (DW_GPIO_PORT_PTR)(port_info_ptr->gpio_ctrl);
	DW_GPIO_CHECK_EXP(port->no <= DW_GPIO_PORT_D, E_OBJ);
	DW_GPIO_CHECK_EXP(port_info_ptr->opn_cnt > 0, E_CLSED);

	uint32_t val32;	/** to receive unsigned int value */

	if (ctrl_cmd == GPIO_CMD_SET_BIT_DIR_INPUT) {
		val32 = (uint32_t)param;
		dw_gpio_write_dir(port, val32, DW_GPIO_INPUT_ALL);
		port_info_ptr->direction = dw_gpio_read_dir(port);
	} else if (ctrl_cmd == GPIO_CMD_SET_BIT_DIR_OUTPUT) {
		val32 = (uint32_t)param;
		dw_gpio_write_dir(port, val32, DW_GPIO_OUTPUT_ALL);
		port_info_ptr->direction = dw_gpio_read_dir(port);
	} else if (ctrl_cmd == GPIO_CMD_GET_BIT_DIR) {
		DW_GPIO_CHECK_EXP((param!=NULL) && CHECK_ALIGN_4BYTES(param), E_PAR);
		port_info_ptr->direction = dw_gpio_read_dir(port);
		*((int32_t *)param) = port_info_ptr->direction;
	} else {
		DW_GPIO_CHECK_EXP(port->no == DW_GPIO_PORT_A, E_NOSPT);
		/* output pin cannot be used as interrupt */
		DEV_GPIO_INT_CFG *gpio_int_cfg;
		DEV_GPIO_BIT_ISR *port_bit_isr;

		switch (ctrl_cmd) {
			case GPIO_CMD_SET_BIT_INT_CFG:
				DW_GPIO_CHECK_EXP((param!=NULL) && CHECK_ALIGN_4BYTES(param), E_PAR);
				gpio_int_cfg = (DEV_GPIO_INT_CFG *)param;
				dw_gpio_set_int_cfg(port, gpio_int_cfg);
				break;
			case GPIO_CMD_GET_BIT_INT_CFG:
				DW_GPIO_CHECK_EXP((param!=NULL) && CHECK_ALIGN_4BYTES(param), E_PAR);
				gpio_int_cfg = (DEV_GPIO_INT_CFG *)param;
				/** read configuration, each bit stands for different configuration */
				dw_gpio_get_int_cfg(port, gpio_int_cfg);
				break;
			case GPIO_CMD_SET_BIT_ISR:
				DW_GPIO_CHECK_EXP((param!=NULL) && CHECK_ALIGN_4BYTES(param), E_PAR);
				port_bit_isr = (DEV_GPIO_BIT_ISR *)param;
				if (port_bit_isr->int_bit_ofs < port->gpio_bit_isr->int_bit_max_cnt) {
					port->gpio_bit_isr->int_bit_handler_ptr[port_bit_isr->int_bit_ofs] = port_bit_isr->int_bit_handler;
				} else {
					ercd = E_PAR;
				}
				break;
			case GPIO_CMD_GET_BIT_ISR:
				DW_GPIO_CHECK_EXP((param!=NULL) && CHECK_ALIGN_4BYTES(param), E_PAR);
				port_bit_isr = (DEV_GPIO_BIT_ISR *)param;
				if (port_bit_isr->int_bit_ofs < port->gpio_bit_isr->int_bit_max_cnt) {
					port_bit_isr->int_bit_handler = port->gpio_bit_isr->int_bit_handler_ptr[port_bit_isr->int_bit_ofs];
				} else {
					ercd = E_PAR;
				}
				break;
			case GPIO_CMD_ENA_BIT_INT:
				val32 = (uint32_t)param;
				dw_gpio_int_enable(port, val32);
				port_info_ptr->method = dw_gpio_read_mthd(port);
				if (port_info_ptr->method) {
					int_enable(port->intno);
				}
				break;
			case GPIO_CMD_DIS_BIT_INT:
				val32 = (uint32_t)param;
				dw_gpio_int_disable(port, val32);
				port_info_ptr->method = dw_gpio_read_mthd(port);
				if (port_info_ptr->method == 0) {
					int_disable(port->intno);
				}
				break;
			case GPIO_CMD_GET_BIT_MTHD:
				DW_GPIO_CHECK_EXP((param!=NULL) && CHECK_ALIGN_4BYTES(param), E_PAR);
				port_info_ptr->method = dw_gpio_read_mthd(port);
				*((int32_t *)param) = port_info_ptr->method;
				break;
			default:
				ercd = E_NOSPT;
				break;
		}
	}
error_exit:
	return ercd;
}

/** designware gpio interrupt process */
int32_t dw_gpio_isr_handler(DEV_GPIO *gpio_obj, void *ptr)
{
	int32_t ercd = E_OK;
	DEV_GPIO_INFO_PTR port_info_ptr = &(gpio_obj->gpio_info);

	/* START ERROR CHECK */
	VALID_CHK_GPIO_INFO_OBJECT(port_info_ptr);
	/* END OF ERROR CHECK */

	DW_GPIO_PORT_PTR port = (DW_GPIO_PORT_PTR)(port_info_ptr->gpio_ctrl);
	DW_GPIO_CHECK_EXP(port->no == DW_GPIO_PORT_A, E_NOSPT);

	uint32_t i, gpio_bit_isr_state;
	uint32_t max_int_bit_count = 0;

	/** read interrupt status */
	gpio_bit_isr_state = dw_gpio_int_read_status(port);

	if (port->gpio_bit_isr) {
		max_int_bit_count = (port->gpio_bit_isr->int_bit_max_cnt);
	} else {
		dw_gpio_int_clear(port, gpio_bit_isr_state);
	}

	for (i=0; i<max_int_bit_count; i++) {
		if (gpio_bit_isr_state & (1<<i)) {
			/* this bit interrupt enabled */
			if (port->gpio_bit_isr->int_bit_handler_ptr[i]) {
				port->gpio_bit_isr->int_bit_handler_ptr[i](gpio_obj);
			}
			dw_gpio_int_clear(port, (1<<i)); /** clear this bit interrupt */
		}
	}

error_exit:
	return ercd;
}