/*      $NetBSD: lcd.c,v 1.2 2018/09/03 16:29:24 riastradh Exp $        */
/*      OpenBSD: lcd.c,v 1.2 2007/07/20 22:13:45 kettenis Exp   */

/*
* Copyright (c) 2007 Mark Kettenis
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/

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

#include <machine/autoconf.h>
#include <sys/bus.h>
#include <machine/cpu.h>
#include <machine/pdc.h>

#define LCD_CLS         0x01
#define LCD_HOME        0x02
#define LCD_LOCATE(X, Y)        (((Y) & 1 ? 0xc0 : 0x80) | ((X) & 0x0f))

struct lcd_softc {
       device_t                sc_dv;

       bus_space_tag_t         sc_iot;
       bus_space_handle_t      sc_cmdh, sc_datah;

       u_int                   sc_delay;
       uint8_t                 sc_heartbeat[3];

       struct callout          sc_to;
       int                     sc_on;
       struct blink_lcd        sc_blink;
};

int     lcd_match(device_t, cfdata_t, void *);
void    lcd_attach(device_t, device_t, void *);

CFATTACH_DECL_NEW(lcd, sizeof(struct lcd_softc), lcd_match,
   lcd_attach, NULL, NULL);

void    lcd_write(struct lcd_softc *, const char *);
void    lcd_blink(void *, int);
void    lcd_blink_finish(void *);

int
lcd_match(device_t parent, cfdata_t match, void *aux)
{
       struct confargs *ca = aux;

       if (strcmp(ca->ca_name, "lcd") == 0)
               return 1;

       return 0;
}

void
lcd_attach(device_t parent, device_t self, void *aux)
{
       struct lcd_softc *sc = device_private(self);
       struct confargs *ca = aux;
       struct pdc_chassis_lcd *pdc_lcd = &ca->ca_pcl;
       int i;

       sc->sc_dv = self;
       sc->sc_iot = ca->ca_iot;

       if (bus_space_map(sc->sc_iot, pdc_lcd->cmd_addr, 1, 0, &sc->sc_cmdh)) {
               aprint_error(": can't map cmd register\n");
               return;
       }

       if (bus_space_map(sc->sc_iot, pdc_lcd->data_addr, 1, 0,
           &sc->sc_datah)) {
               aprint_error(": can't map data register\n");
               bus_space_unmap(sc->sc_iot, sc->sc_cmdh, 1);
               return;
       }

       aprint_normal(": model %d\n", pdc_lcd->model);

       sc->sc_delay = pdc_lcd->delay;
       for (i = 0; i < 3; i++)
               sc->sc_heartbeat[i] = pdc_lcd->heartbeat[i];

       bus_space_write_1(sc->sc_iot, sc->sc_cmdh, 0, LCD_CLS);
       delay(100 * sc->sc_delay);

       bus_space_write_1(sc->sc_iot, sc->sc_cmdh, 0, LCD_LOCATE(0, 0));
       delay(sc->sc_delay);
       lcd_write(sc, "NetBSD/" MACHINE);

       callout_init(&sc->sc_to, 0);
       callout_setfunc(&sc->sc_to, lcd_blink_finish, sc);

       sc->sc_blink.bl_func = lcd_blink;
       sc->sc_blink.bl_arg = sc;
       blink_lcd_register(&sc->sc_blink);
}

void
lcd_write(struct lcd_softc *sc, const char *str)
{
       while (*str) {
               bus_space_write_1(sc->sc_iot, sc->sc_datah, 0, *str++);
               delay(sc->sc_delay);
       }
}

void
lcd_blink(void *v, int on)
{
       struct lcd_softc *sc = v;

       sc->sc_on = on;
       bus_space_write_1(sc->sc_iot, sc->sc_cmdh, 0, sc->sc_heartbeat[0]);
       callout_schedule(&sc->sc_to, uimax(1, (sc->sc_delay * hz) / 1000000));
}

void
lcd_blink_finish(void *v)
{
       struct lcd_softc *sc = v;
       uint8_t data;

       if (sc->sc_on)
               data = sc->sc_heartbeat[1];
       else
               data = sc->sc_heartbeat[2];

       bus_space_write_1(sc->sc_iot, sc->sc_datah, 0, data);
}