/*
 * Copyright (c) 2015 Intel Corporation
 * Copyright (c) 2022 Nordic Semiconductor ASA
 *
 * SPDX-License-Identifier: Apache-2.0
 */

#define DT_DRV_COMPAT seeed_grove_lcd_rgb

#include <zephyr/device.h>
#include <zephyr/drivers/i2c.h>
#include <zephyr/drivers/misc/grove_lcd/grove_lcd.h>
#include <zephyr/kernel.h>
#include <zephyr/sys/util.h>

#include <zephyr/logging/log.h>
LOG_MODULE_REGISTER(grove_lcd, CONFIG_GROVE_LCD_RGB_LOG_LEVEL);

#define GROVE_RGB_BACKLIGHT_ADDR	(0x62)

struct glcd_data {
	uint8_t input_set;
	uint8_t display_switch;
	uint8_t function;
};

struct glcd_config {
	struct i2c_dt_spec bus;
};

/********************************************
 *  LCD FUNCTIONS
 *******************************************/

/* GLCD_CMD_SCREEN_CLEAR has no options */
/* GLCD_CMD_CURSOR_RETURN has no options */

/* Defines for the GLCD_CMD_CURSOR_SHIFT */
#define GLCD_CS_DISPLAY_SHIFT		(1 << 3)
#define GLCD_CS_RIGHT_SHIFT		(1 << 2)

/* LCD Display Commands */
#define GLCD_CMD_SCREEN_CLEAR		(1 << 0)
#define GLCD_CMD_CURSOR_RETURN		(1 << 1)
#define GLCD_CMD_INPUT_SET		(1 << 2)
#define GLCD_CMD_DISPLAY_SWITCH		(1 << 3)
#define GLCD_CMD_CURSOR_SHIFT		(1 << 4)
#define GLCD_CMD_FUNCTION_SET		(1 << 5)
#define GLCD_CMD_SET_CGRAM_ADDR		(1 << 6)
#define GLCD_CMD_SET_DDRAM_ADDR		(1 << 7)


/********************************************
 *  RGB FUNCTIONS
 *******************************************/

#define REGISTER_R	0x04
#define REGISTER_G	0x03
#define REGISTER_B	0x02

static uint8_t color_define[][3] = {
	{ 255, 255, 255 },	/* white */
	{ 255, 0,   0   },      /* red */
	{ 0,   255, 0   },      /* green */
	{ 0,   0,   255 },      /* blue */
};


/********************************************
 *  PRIVATE FUNCTIONS
 *******************************************/
static void rgb_reg_set(const struct device *i2c, uint8_t addr, uint8_t dta)
{
	uint8_t data[2] = { addr, dta };

	i2c_write(i2c, data, sizeof(data), GROVE_RGB_BACKLIGHT_ADDR);
}

/********************************************
 *  PUBLIC FUNCTIONS
 *******************************************/
void glcd_print(const struct device *dev, char *data, uint32_t size)
{
	const struct glcd_config *config = dev->config;
	uint8_t buf[] = { GLCD_CMD_SET_CGRAM_ADDR, 0 };
	int i;

	for (i = 0; i < size; i++) {
		buf[1] = data[i];
		i2c_write_dt(&config->bus, buf, sizeof(buf));
	}
}


void glcd_cursor_pos_set(const struct device *dev, uint8_t col, uint8_t row)
{
	const struct glcd_config *config = dev->config;

	unsigned char data[2];

	if (row == 0U) {
		col |= 0x80;
	} else {
		col |= 0xC0;
	}

	data[0] = GLCD_CMD_SET_DDRAM_ADDR;
	data[1] = col;

	i2c_write_dt(&config->bus, data, 2);
}


void glcd_clear(const struct device *dev)
{
	const struct glcd_config *config = dev->config;
	uint8_t clear[] = { 0, GLCD_CMD_SCREEN_CLEAR };

	i2c_write_dt(&config->bus, clear, sizeof(clear));
	LOG_DBG("clear, delay 20 ms");
	k_sleep(K_MSEC(20));
}


void glcd_display_state_set(const struct device *dev, uint8_t opt)
{
	const struct glcd_config *config = dev->config;
	struct glcd_data *data = dev->data;
	uint8_t buf[] = { 0, 0 };

	data->display_switch = opt;
	buf[1] = (opt | GLCD_CMD_DISPLAY_SWITCH);

	i2c_write_dt(&config->bus, buf, sizeof(buf));

	LOG_DBG("set display_state options, delay 5 ms");
	k_sleep(K_MSEC(5));
}


uint8_t glcd_display_state_get(const struct device *dev)
{
	struct glcd_data *data = dev->data;

	return data->display_switch;
}


void glcd_input_state_set(const struct device *dev, uint8_t opt)
{
	const struct glcd_config *config = dev->config;
	struct glcd_data *data = dev->data;
	uint8_t buf[] = { 0, 0 };

	data->input_set = opt;
	buf[1] = (opt | GLCD_CMD_INPUT_SET);

	i2c_write_dt(&config->bus, buf, sizeof(buf));
	LOG_DBG("set the input_set, no delay");
}


uint8_t glcd_input_state_get(const struct device *dev)
{
	struct glcd_data *data = dev->data;

	return data->input_set;
}


void glcd_color_select(const struct device *dev, uint8_t color)
{
	if (color > 3) {
		LOG_WRN("selected color is too high a value");
		return;
	}
	glcd_color_set(dev, color_define[color][0], color_define[color][1],
		       color_define[color][2]);
}


void glcd_color_set(const struct device *dev, uint8_t r, uint8_t g,
		    uint8_t b)
{
	const struct glcd_config *config = dev->config;

	rgb_reg_set(config->bus.bus, REGISTER_R, r);
	rgb_reg_set(config->bus.bus, REGISTER_G, g);
	rgb_reg_set(config->bus.bus, REGISTER_B, b);
}


void glcd_function_set(const struct device *dev, uint8_t opt)
{
	const struct glcd_config *config = dev->config;
	struct glcd_data *data = dev->data;
	uint8_t buf[] = { 0, 0 };

	data->function = opt;
	buf[1] = (opt | GLCD_CMD_FUNCTION_SET);

	i2c_write_dt(&config->bus, buf, sizeof(buf));

	LOG_DBG("set function options, delay 5 ms");
	k_sleep(K_MSEC(5));
}


uint8_t glcd_function_get(const struct device *dev)
{
	struct glcd_data *data = dev->data;

	return data->function;
}


static int glcd_initialize(const struct device *dev)
{
	const struct glcd_config *config = dev->config;
	uint8_t cmd;

	LOG_DBG("initialize called");

	if (!device_is_ready(config->bus.bus)) {
		return -ENODEV;
	}

	/*
	 * Initialization sequence from the data sheet:
	 * 1 - Power on
	 *   - Wait for more than 30 ms AFTER VDD rises to 4.5v
	 * 2 - Send FUNCTION set
	 *   - Wait for 39 us
	 * 3 - Send DISPLAY Control
	 *   - wait for 39 us
	 * 4 - send DISPLAY Clear
	 *   - wait for 1.5 ms
	 * 5 - send ENTRY Mode
	 * 6 - Initialization is done
	 */


	/*
	 * We're here!  Let's just make sure we've had enough time for the
	 * VDD to power on, so pause a little here, 30 ms min, so we go 50
	 */
	LOG_DBG("delay 50 ms while the VDD powers on");
	k_sleep(K_MSEC(50));

	/* Configure everything for the display function first */
	cmd = GLCD_CMD_FUNCTION_SET | GLCD_FS_ROWS_2;
	glcd_function_set(dev, cmd);

	/* turn the display on - by default no cursor and no blinking */
	cmd = GLCD_DS_DISPLAY_ON | GLCD_DS_CURSOR_OFF | GLCD_DS_BLINK_OFF;

	glcd_display_state_set(dev, cmd);

	/* Clear the screen */
	glcd_clear(dev);

	/* Initialize to the default text direction for romance languages */
	cmd = GLCD_IS_ENTRY_LEFT | GLCD_IS_SHIFT_DECREMENT;

	glcd_input_state_set(dev, cmd);

	/* Now power on the background RGB control */
	LOG_INF("configuring the RGB background");
	rgb_reg_set(config->bus.bus, 0x00, 0x00);
	rgb_reg_set(config->bus.bus, 0x01, 0x05);
	rgb_reg_set(config->bus.bus, 0x08, 0xAA);

	/* Now set the background color to white */
	LOG_DBG("background set to white");
	rgb_reg_set(config->bus.bus, REGISTER_R, color_define[GROVE_RGB_WHITE][0]);
	rgb_reg_set(config->bus.bus, REGISTER_G, color_define[GROVE_RGB_WHITE][1]);
	rgb_reg_set(config->bus.bus, REGISTER_B, color_define[GROVE_RGB_WHITE][2]);

	return 0;
}

static const struct glcd_config grove_lcd_config = {
	.bus = I2C_DT_SPEC_INST_GET(0),
};

static struct glcd_data grove_lcd_data;

DEVICE_DT_INST_DEFINE(0, glcd_initialize, NULL, &grove_lcd_data,
		      &grove_lcd_config, POST_KERNEL,
		      CONFIG_KERNEL_INIT_PRIORITY_DEVICE, NULL);