/*	$NetBSD: psh3lcd.c,v 1.8 2021/10/24 20:00:11 andvar Exp $	*/
/*
 * Copyright (c) 2005 KIYOHARA Takashi
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
 * 
 */

#include <sys/cdefs.h>

#include <sys/types.h>
#include <sys/param.h>
#include <sys/device.h>
#include <sys/errno.h>
#include <sys/kernel.h>
#include <sys/systm.h>
#include <sys/callout.h>

#include <machine/platid.h>
#include <machine/platid_mask.h>

#include <machine/config_hook.h>

#include <sh3/pfcreg.h>
#include <hpcsh/dev/hd64461/hd64461var.h>
#include <hpcsh/dev/hd64461/hd64461reg.h>
#include <hpcsh/dev/hd64461/hd64461gpioreg.h>


/*
 * LCD contrast INC#: controlled by pin 0 in HD64461 GPIO port A.
 * LCD contrast  CS#: controlled by pin 1 in HD64461 GPIO port A.
 * LCD contrast U/D#: controlled by pin 0 in SH7709 GPIO port D.
 *   0 - down
 *   1 - up
 */
#define PSH3LCD_CONTRAST_INC		0x01
#define PSH3LCD_CONTRAST_CS		0x02
#define PSH3LCD_CONTRAST_UD		0x01

/*
 * LCD brightness: controlled by HG71C105FE at AREA2.
 *	XXXX: That is custom IC. We don't know spec.  X-<
 */
#define PSH3LCD_BRIGHTNESS_REG0		0xaa000072
#define PSH3LCD_BRIGHTNESS_REG1		0xaa000150
#define PSH3LCD_BRIGHTNESS_REG2		0xaa000152

/* brightness control data */
static const struct psh3lcd_x0_bcd {	/* 50PA, 30PA */
	uint8_t reg0;
	uint8_t reg1;
	uint8_t reg2;
} psh3lcd_x0_bcd[] = {
	{ 0x05, 0x08, 0x1e },
	{ 0x05, 0x1d, 0x09 },
	{ 0x04, 0x1e, 0x1e },
	{ 0x06, 0x1e, 0x1e },
	{ 0x07, 0x1e, 0x1e },
	{ 0x00, 0x00, 0x00 }
};
static const struct psh3lcd_xx0_bcd {	/* 200JC */
	uint8_t reg1;
	uint8_t reg2;
} psh3lcd_xx0_bcd[] = {
	{ 0x33, 0x0c },
	{ 0x2d, 0x12 },
	{ 0x26, 0x19 },
	{ 0x20, 0x1f },
	{ 0x1a, 0x25 },
	{ 0x13, 0x2c },
	{ 0x0d, 0x32 },
	{ 0x07, 0x38 },
	{ 0x01, 0x00 },
	{ 0x00, 0x00 }
};

#define PSH3LCD_XX0_BRIGHTNESS_MAX	8
#define PSH3LCD_X0_BRIGHTNESS_MAX	4

#define PSH3LCD_CONTRAST_MAX		2	/* XXX */
#define PSH3LCD_CONTRAST		1
#define PSH3LCD_CONTRAST_UP		2
#define PSH3LCD_CONTRAST_DOWN		0

#define BCD_NO_MATCH	(-1)


struct psh3lcd_softc {
	device_t sc_dev;
	int sc_brightness;
	int sc_brightness_max;
	void (*sc_set_brightness)(int);
};

static int psh3lcd_match(device_t, struct cfdata *, void *);
static void psh3lcd_attach(device_t, device_t, void *);

CFATTACH_DECL_NEW(psh3lcd, sizeof(struct psh3lcd_softc),
    psh3lcd_match, psh3lcd_attach, NULL, NULL);


static inline int psh3lcd_x0_bcd_get(void);
static inline int psh3lcd_xx0_bcd_get(void);
static void psh3lcd_x0_set_brightness(int);
static void psh3lcd_xx0_set_brightness(int);
static void psh3lcd_set_contrast(int);
static int psh3lcd_param(void *, int, long, void *);
static int psh3lcd_power(void *, int, long, void *);


static inline int
psh3lcd_x0_bcd_get(void)
{
	int i;
	uint8_t bcr0, bcr1, bcr2;

	bcr0 = _reg_read_1(PSH3LCD_BRIGHTNESS_REG0);
	bcr1 = _reg_read_1(PSH3LCD_BRIGHTNESS_REG1);
	bcr2 = _reg_read_1(PSH3LCD_BRIGHTNESS_REG2);

	for (i = 0; psh3lcd_x0_bcd[i].reg0 != 0; i++)
		if (bcr0 == psh3lcd_x0_bcd[i].reg0 &&
		    bcr1 == psh3lcd_x0_bcd[i].reg1 &&
		    bcr2 == psh3lcd_x0_bcd[i].reg2) 
			break;
	if (psh3lcd_x0_bcd[i].reg0 == 0)
		return BCD_NO_MATCH;
	return i;
}

static inline int
psh3lcd_xx0_bcd_get(void)
{
	int i;
	uint8_t bcr1, bcr2;

	bcr1 = _reg_read_1(PSH3LCD_BRIGHTNESS_REG1);
	bcr2 = _reg_read_1(PSH3LCD_BRIGHTNESS_REG2);

	for (i = 0; psh3lcd_xx0_bcd[i].reg1 != 0; i++)
		if (bcr1 == psh3lcd_xx0_bcd[i].reg1 &&
		    bcr2 == psh3lcd_xx0_bcd[i].reg2)
			break;
	if (psh3lcd_xx0_bcd[i].reg1 == 0)
		return BCD_NO_MATCH;
	return i;
}

static void
psh3lcd_xx0_set_brightness(int index)
{

	_reg_write_1(PSH3LCD_BRIGHTNESS_REG1, psh3lcd_xx0_bcd[index].reg1);
	_reg_write_1(PSH3LCD_BRIGHTNESS_REG2, psh3lcd_xx0_bcd[index].reg2);
}

static void
psh3lcd_x0_set_brightness(int index)
{

	_reg_write_1(PSH3LCD_BRIGHTNESS_REG0, psh3lcd_x0_bcd[index].reg0);
	_reg_write_1(PSH3LCD_BRIGHTNESS_REG1, psh3lcd_x0_bcd[index].reg1);
	_reg_write_1(PSH3LCD_BRIGHTNESS_REG2, psh3lcd_x0_bcd[index].reg2);
}

/*
 * contrast control function.  controlled by IC (X9313W).
 */
inline void
psh3lcd_set_contrast(int value)
{
	uint16_t gpadr;
	uint8_t pddr;

	/* CS assert */
	gpadr = hd64461_reg_read_2(HD64461_GPADR_REG16);
	gpadr &= ~PSH3LCD_CONTRAST_CS;
	hd64461_reg_write_2(HD64461_GPADR_REG16, gpadr);
	delay(1); 

	/* set U/D# */
	pddr = _reg_read_1(SH7709_PDDR);
	if (value == PSH3LCD_CONTRAST_UP)
		pddr |= PSH3LCD_CONTRAST_UD;
	else if (value == PSH3LCD_CONTRAST_DOWN)
		pddr &= ~PSH3LCD_CONTRAST_UD;
	_reg_write_1(SH7709_PDDR, pddr);
	delay(3);

	/* INCrement */
	hd64461_reg_write_2(HD64461_GPADR_REG16, gpadr & ~PSH3LCD_CONTRAST_INC);
	delay(1); 
	hd64461_reg_write_2(HD64461_GPADR_REG16, gpadr);
	delay(1); 

	/* CS deassert */
	gpadr |= PSH3LCD_CONTRAST_CS;
	hd64461_reg_write_2(HD64461_GPADR_REG16, gpadr);
	delay(1); 
}

/* ARGSUSED */
static int
psh3lcd_match(device_t parent __unused, struct cfdata *cfp, void *aux __unused)
{
	uint8_t bcr0;

	if (!platid_match(&platid, &platid_mask_MACH_HITACHI_PERSONA))
		return 0;

	if (strcmp(cfp->cf_name, "psh3lcd") != 0)
		return 0;

	bcr0 = _reg_read_1(PSH3LCD_BRIGHTNESS_REG0);
	if (bcr0 == 0) {
		if (psh3lcd_xx0_bcd_get() == BCD_NO_MATCH)
			return 0;
	} else {
		if (psh3lcd_x0_bcd_get() == BCD_NO_MATCH)
			return 0;
	}

	return 1;
}

/* ARGSUSED */
static void
psh3lcd_attach(device_t parent __unused, device_t self, void *aux __unused)
{
	struct psh3lcd_softc *sc = device_private(self);
	uint8_t bcr0;

	sc->sc_dev = self;

	bcr0 = _reg_read_1(PSH3LCD_BRIGHTNESS_REG0);
	(void)_reg_read_1(PSH3LCD_BRIGHTNESS_REG1);
	(void)_reg_read_1(PSH3LCD_BRIGHTNESS_REG2);
	if (bcr0 == 0) {
		sc->sc_set_brightness = psh3lcd_xx0_set_brightness;
		sc->sc_brightness = psh3lcd_xx0_bcd_get();
		sc->sc_brightness_max = PSH3LCD_XX0_BRIGHTNESS_MAX;
	} else {
		sc->sc_set_brightness = psh3lcd_x0_set_brightness;
		sc->sc_brightness = psh3lcd_x0_bcd_get();
		sc->sc_brightness_max = PSH3LCD_X0_BRIGHTNESS_MAX;
	}
	aprint_naive("\n");
	aprint_normal(": brightness %d\n", sc->sc_brightness);

	/* LCD contrast hooks */
        config_hook(CONFIG_HOOK_GET,
	    CONFIG_HOOK_CONTRAST_MAX, CONFIG_HOOK_SHARE, psh3lcd_param, sc);
        config_hook(CONFIG_HOOK_GET,
	    CONFIG_HOOK_CONTRAST, CONFIG_HOOK_SHARE, psh3lcd_param, sc);
        config_hook(CONFIG_HOOK_SET,
	    CONFIG_HOOK_CONTRAST, CONFIG_HOOK_SHARE, psh3lcd_param, sc);

	/* LCD brightness hooks */
        config_hook(CONFIG_HOOK_GET,
	    CONFIG_HOOK_BRIGHTNESS_MAX, CONFIG_HOOK_SHARE, psh3lcd_param, sc);
        config_hook(CONFIG_HOOK_GET,
	    CONFIG_HOOK_BRIGHTNESS, CONFIG_HOOK_SHARE, psh3lcd_param, sc);
        config_hook(CONFIG_HOOK_SET,
	    CONFIG_HOOK_BRIGHTNESS, CONFIG_HOOK_SHARE, psh3lcd_param, sc);

	/* LCD on/off hook */
	config_hook(CONFIG_HOOK_POWERCONTROL,
	    CONFIG_HOOK_POWERCONTROL_LCD, CONFIG_HOOK_SHARE, psh3lcd_power, sc);

 	/* XXX: TODO: don't rely on CONFIG_HOOK_POWERCONTROL_LCD */
 	if (!pmf_device_register(self, NULL, NULL))
 		aprint_error_dev(self, "unable to establish power handler\n");
}


static int
psh3lcd_param(void *ctx, int type, long id, void *msg)
{
	struct psh3lcd_softc *sc = ctx;
	int value;

	switch (type) {
	case CONFIG_HOOK_GET:
		switch (id) {
		case CONFIG_HOOK_CONTRAST:
			*(int *)msg = PSH3LCD_CONTRAST;
			return 0;

		case CONFIG_HOOK_CONTRAST_MAX:
			*(int *)msg = PSH3LCD_CONTRAST_MAX;
			return 0;

		case CONFIG_HOOK_BRIGHTNESS:
			*(int *)msg = sc->sc_brightness;
			return 0;

		case CONFIG_HOOK_BRIGHTNESS_MAX:
			*(int *)msg = sc->sc_brightness_max;
			return 0;
		}
		break;

	case CONFIG_HOOK_SET:
		value = *(int *)msg;

		switch (id) {
		case CONFIG_HOOK_CONTRAST:
			if (value != PSH3LCD_CONTRAST_UP &&
			    value != PSH3LCD_CONTRAST_DOWN)
				return EINVAL;
			psh3lcd_set_contrast(value);
			return 0;

		case CONFIG_HOOK_BRIGHTNESS:
			if (value < 0)
				value = 0;
			if (value > sc->sc_brightness_max)
				value = sc->sc_brightness_max;
			sc->sc_brightness = value;
			sc->sc_set_brightness(sc->sc_brightness);
			return 0;
		}
		break;
	}

	return EINVAL;
}


static int
psh3lcd_power(void *ctx, int type, long id, void *msg)
{
	struct psh3lcd_softc *sc = ctx;
	int on;

	if (type != CONFIG_HOOK_POWERCONTROL ||
	    id != CONFIG_HOOK_POWERCONTROL_LCD)
		return EINVAL;

	on = (int)msg;
	if (on)
		sc->sc_set_brightness(sc->sc_brightness);
	else
		sc->sc_set_brightness(sc->sc_brightness_max + 1);

	return 0;
}