/*
 * Copyright (c) 1993 Paul Mackerras.
 * 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. The name of the author may not be used to endorse or promote products
 *    derived from this software withough specific prior written permission
 *
 * 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.
 *
 *	$Id: gsp.c,v 1.2 1994/06/18 12:10:14 paulus Exp $
 */

#include "gsp.h"
#if NGSP > 0

/*
 * Code to drive keyboard & GSP-controlled display for DA30
 */
#include <sys/param.h>
#include <sys/conf.h>
#include <sys/ioctl.h>
#include <sys/proc.h>
#include <sys/user.h>
#include <sys/tty.h>
#include <sys/uio.h>
#include <sys/callout.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/syslog.h>
#include <sys/device.h>
#include <machine/cpu.h>
#include <dev/cons.h>
#include <da30/dev/kbd.h>
#include <da30/da30/iio.h>

#define NGSP	1

struct gsp_regs {
    u_long	adrs;		/* address register */
    u_short	ctrl;		/* control/status */
    u_short	data;		/* memory R/W data register */
};

typedef volatile struct gsp_regs *gsp_ptr;

/* Bits in ctrl */
#define LBL	0x2000		/* lower byte last */
#define INCR	0x1000		/* increment address on read */
#define INCW	0x0800		/* increment address on write */

/* Standard addresses in GSP memory */
#define PUT_PTR_ADRS	0x320000	/* put pointer in ring buffer */
#define PUT_HI_PTR_ADRS	0x320010	/* put pointer high word */
#define GET_PTR_ADRS	0x320020	/* get pointer (low word) */
#define GSP_MODE_ADRS	0x320040	/* GSP mode word */
#define KBD_MODE_ADRS	0x320050	/* keyboard mode word */
#define LCL_MODE_ADRS	0x320060	/* GSP local modes */
#define HIST_REQ_ADRS	0x320070	/* history scrollback request */
#define GSP_CMD_ADRS	0x320080	/* GSP command code */
#define MAX_COL_ADRS	0x320140	/* # columns */
#define MAX_ROW_ADRS	0x320150	/* # rows */
#define SCR_WID_ADRS	0x320180	/* screen pixel width */
#define SCR_HT_ADRS	0x320190	/* screen pixel height */

/* Bits in GSP mode word */
#define GMODE_HOLD	1		/* hold screen */
#define GMODE_FLUSH	2		/* flush GSP input queue */
#define GMODE_ALTSCRN	4		/* use alternate screen */
#define GMODE_DISPCTRL	8		/* display control chars */

struct kbd {
    short	prefix;		/* 0 => seen 0x55, 0x100 => 0xAA */
    short	last;		/* last char seen, for autorepeat */
};

/*
 * State.
 */
struct tty *gsp_tty[NGSP];

struct gspsoftc {
    struct device	dev;
    gsp_ptr		GSP;
    struct tty		*tty;
    int			open_as_console;
    int			open;
    int			kbd_dev;
    struct kbd		kbd;
};

/*
 * We use an SCC channel connected to the keyboard as the input
 * side of this device.
 */
int kbd_zsunit = 3;		/* minor no. of keyboard SCC channel */

/* Termios values for keyboard */
struct termios kbdcn_termios = {
    IGNBRK,			/* iflag */
    0,				/* oflag */
    CREAD | CS8 | CLOCAL,	/* cflag */
    0,				/* lflag */
    {0},
    B4800, B4800,		/* speeds */
};

void	gspstart __P((struct tty *));

/*
 * Autoconfiguration stuff.
 */
void gspattach __P((struct device *, struct device *, void *));
int  gspmatch __P((struct device *, struct cfdata *, void *));

struct cfdriver gspcd = {
    NULL, "gsp", gspmatch, gspattach, DV_DULL, sizeof(struct gspsoftc), 0
};

int
gspmatch(parent, cf, args)
    struct device *parent;
    struct cfdata *cf;
    void *args;
{
    caddr_t virt;

    virt = (caddr_t) IIO_CFLOC_ADDR(cf);
    return !badbaddr(virt);
}

void
gspattach(parent, self, args)
    struct device *parent, *self;
    void *args;
{
    struct gspsoftc *dv;

    iio_print(self->dv_cfdata);

    /* save the address */
    dv = (struct gspsoftc *) self;
    dv->GSP = (volatile struct gsp_regs *) IIO_CFLOC_ADDR(self->dv_cfdata);
    dv->kbd.prefix = -1;
    dv->kbd_dev = kbd_zsunit;
}

/*
 * Major entry points referenced from cdevsw.
 */
gspopen(dev_t dev, int flag, int mode, struct proc *p)
{
    register struct tty *tp;
    int error, unit;
    struct gspsoftc *dv;

    unit = minor(dev);
    if( unit >= gspcd.cd_ndevs
       || (dv = (struct gspsoftc *) gspcd.cd_devs[unit]) == NULL )
	return ENODEV;

    error = zs_kbdopen(dv->kbd_dev, unit, &kbdcn_termios, p);
    if( error )
	return error;
    if( dv->tty == NULL ){
	dv->tty = ttymalloc();
	if( unit < NGSP )
	    gsp_tty[unit] = dv->tty;
    }
    tp = dv->tty;
    tp->t_oproc = gspstart;
    tp->t_param = NULL;
    tp->t_dev = dev;
    tp->t_sc = (caddr_t) dv;
    if ((tp->t_state & TS_ISOPEN) == 0) {
	tp->t_state |= TS_WOPEN;
	ttychars(tp);
	tp->t_iflag = TTYDEF_IFLAG;
	tp->t_oflag = TTYDEF_OFLAG;
	tp->t_cflag = TTYDEF_CFLAG;
	tp->t_lflag = TTYDEF_LFLAG;
	tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
	ttsetwater(tp);
    } else if (tp->t_state&TS_XCLUDE && p->p_ucred->cr_uid != 0) {
	return (EBUSY);
    }
    tp->t_state |= TS_CARR_ON;
    error = ((*linesw[tp->t_line].l_open)(dev, tp));
    if( error ){
	zs_kbdclose(dv->kbd_dev);
	return error;
    }
    if( cdevsw[major(dev)].d_open == gspopen )
        dv->open = 1;
    else
        dv->open_as_console = 1;
    tp->t_winsize.ws_row = gsp_read_word(dv->GSP, MAX_ROW_ADRS);
    tp->t_winsize.ws_col = gsp_read_word(dv->GSP, MAX_COL_ADRS);
    return 0;
}

gspclose(dev, flag, mode, p)
    dev_t dev;
    int flag, mode;
    struct proc *p;
{
    int unit;
    struct gspsoftc *dv;

    unit = minor(dev);
    dv = (struct gspsoftc *) gspcd.cd_devs[unit];
    if( cdevsw[major(dev)].d_open == gspopen )
        dv->open = 0;
    else
        dv->open_as_console = 0;
    if( !dv->open && !dv->open_as_console ){
	(*linesw[dv->tty->t_line].l_close)(dv->tty, flag);
	ttyclose(dv->tty);
    }
    zs_kbdclose(dv->kbd_dev);
    return(0);
}

/*ARGSUSED*/
gspread(dev, uio, flag)
    dev_t dev;
    struct uio *uio;
    int flag;
{
    struct tty *tp = gsp_tty[minor(dev)];

    return ((*linesw[tp->t_line].l_read)(tp, uio, flag));
}

/*ARGSUSED*/
gspwrite(dev, uio, flag)
    dev_t dev;
    struct uio *uio;
    int flag;
{
    struct tty *tp = gsp_tty[minor(dev)];

    return ((*linesw[tp->t_line].l_write)(tp, uio, flag));
}

gspioctl(dev, cmd, data, flag, p)
    dev_t dev;
    caddr_t data;
    int cmd, flag;
    struct proc *p;
{
    register struct tty *tp = gsp_tty[minor(dev)];
    register error;
 
    error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag, p);
    if (error >= 0)
	return (error);
    error = ttioctl(tp, cmd, data, flag, p);
    if (error >= 0)
	return (error);
    return (ENOTTY);
}

void
gspstart(tp)
    register struct tty *tp;
{
    register int s, nc, ncput;
    struct gspsoftc *dv;
    unsigned char buf[256];

    dv = (struct gspsoftc *) tp->t_sc;
    s = spltty();
    if (tp->t_state & (TS_TIMEOUT|TS_TTSTOP|TS_BUSY))
	goto out;
    do {
	if (tp->t_outq.c_cc <= tp->t_lowat) {
	    if (tp->t_state&TS_ASLEEP) {
		tp->t_state &= ~TS_ASLEEP;
		wakeup((caddr_t)&tp->t_outq);
	    }
	    selwakeup(&tp->t_wsel);
	}
	if (tp->t_outq.c_cc == 0)
	    goto out;
	nc = q_to_b(&tp->t_outq, buf, sizeof(buf));
	tp->t_state |= TS_BUSY;
	splx(s);
	ncput = gsp_write(dv->GSP, buf, (size_t) nc);
	s = spltty();
	tp->t_state &= ~TS_BUSY;
    } while( ncput == nc );

    /* some characters remain; start a timeout to push them out later */
    tp->t_state |= TS_TIMEOUT;
    timeout(ttrstrt, (void *) tp, 1);

out:
    splx(s);
}

/*
 * Stop output to the screen.
 */
gspstop(tp, flag)
    register struct tty *tp;
    int flag;
{
    register int s;
    register struct gspsoftc *dv;
    register gsp_ptr gsp;
    register int mode;
    register u_short oc;
    register u_long oa;

    dv = (struct gspsoftc *) tp->t_sc;
    gsp = dv->GSP;
    s = spltty();
    oc = gsp->ctrl;
    oa = gsp->adrs;
    gsp->ctrl |= LBL;
    gsp->adrs = GSP_MODE_ADRS;
    mode = gsp->data;

    if ((tp->t_state&TS_TTSTOP)==0) {
	/* flush output */
	tp->t_state |= TS_FLUSH;
	mode |= GMODE_FLUSH;
    } else {
	/* suspending output */
	mode |= GMODE_HOLD;
    }

    gsp->adrs = GSP_MODE_ADRS;
    gsp->data = mode;
    gsp->adrs = oa;
    gsp->ctrl = oc;
    splx(s);
}

int
gspmap(dev_t dev, long off, int prot)
{
    struct gspsoftc *dv;

    if( off != 0 )
	return -1;
    dv = (struct gspsoftc *) gspcd.cd_devs[minor(dev)];
    return btoc(dv->GSP);
}
 
int
gsp_write(register gsp_ptr gsp, unsigned char *ptr, size_t nb)
{
    size_t n, na;
    register int c;
    register unsigned short put, oc;
    register unsigned long next, put_hi, oa;

    if( nb == 0 )
	return 0;
    n = nb;
    oc = gsp->ctrl;
    oa = gsp->adrs;
    gsp->ctrl = (gsp->ctrl | LBL | INCW) & ~INCR;

    gsp->adrs = GSP_MODE_ADRS;
    gsp->data &= ~GMODE_FLUSH;

    gsp->adrs = PUT_HI_PTR_ADRS;
    put_hi = gsp->data << 16;

    while( n != 0 ){
	gsp->adrs = GET_PTR_ADRS;
	next = (gsp->data - 8) & 0xFFF0;
	gsp->adrs = PUT_PTR_ADRS;
	put = gsp->data & ~7;
	/* can't put a byte in location `next' */
	if( next == put )
	    break;
	if( (put & 8) != 0 ){
	    /* put a single byte in a word */
	    gsp->adrs = put | put_hi;
	    gsp->data = (*ptr++ << 8) | (gsp->data & 0xFF);
	    --n;
	    gsp->adrs = PUT_PTR_ADRS;
	    gsp->data = put + 8;
	    continue;
	}
	if( next < put )
	    next = 0x10000;
	na = (next - put) >> 3;
	if( na > n )
	    na = n;
	gsp->adrs = put | put_hi;
	n -= na;
	put += na << 3;
	for( ; na > 1; na -= 2 ){
	    c = *ptr++;
	    gsp->data = (*ptr++ << 8) | c;
	}
	if( na != 0 )
	    gsp->data = *ptr++;
	gsp->adrs = PUT_PTR_ADRS;
	gsp->data = put;
    }
    gsp->adrs = oa;
    gsp->ctrl = oc;
    return nb - n;
}

int
gsp_read_word(register gsp_ptr gsp, unsigned long adrs)
{
    register u_short oc, val;
    register u_long oa;

    oc = gsp->ctrl;
    oa = gsp->adrs;
    gsp->ctrl |= LBL;
    gsp->adrs = adrs;
    val = gsp->data;
    gsp->adrs = oa;
    gsp->ctrl = oc;
    return val;
}

int
gsp_get_kmode(register gsp_ptr gsp)
{
    return gsp_read_word(gsp, KBD_MODE_ADRS);
}

int
gsp_toggle_hold(register gsp_ptr gsp)
{
    register int mode;
    register u_short oc;
    register u_long oa;

    oc = gsp->ctrl;
    oa = gsp->adrs;
    gsp->ctrl |= LBL;
    gsp->adrs = GSP_MODE_ADRS;
    mode = gsp->data ^ GMODE_HOLD;
    gsp->adrs = GSP_MODE_ADRS;
    gsp->data = mode;
    gsp->adrs = oa;
    gsp->ctrl = oc;
    return mode & GMODE_HOLD;
}

gsp_set_history(register gsp_ptr gsp, int n)
{
    register u_short oc;
    register u_long oa;

    oc = gsp->ctrl;
    oa = gsp->adrs;
    gsp->ctrl |= LBL;
    gsp->adrs = HIST_REQ_ADRS;
    gsp->data = n;
    gsp->adrs = oa;
    gsp->ctrl = oc;
}

gsp_incr_history(register gsp_ptr gsp, int n)
{
    register u_short oc;
    register u_long oa;

    oc = gsp->ctrl;
    oa = gsp->adrs;
    gsp->ctrl |= LBL;
    gsp->adrs = HIST_REQ_ADRS;
    n += gsp->data;
    if( n < 0 )
	n = 0;
    gsp->adrs = HIST_REQ_ADRS;
    gsp->data = n;
    gsp->adrs = oa;
    gsp->ctrl = oc;
}

gsp_issue_cmd(register gsp_ptr gsp, int cmd)
{
    register u_short oc;
    register u_long oa;

    oc = gsp->ctrl;
    oa = gsp->adrs;
    gsp->ctrl |= LBL;
    gsp->adrs = GSP_CMD_ADRS;
    gsp->data = cmd;
    gsp->adrs = oa;
    gsp->ctrl = oc;
}

/*
 * Routines for using a keyboard attached to an SCC as the
 * input side of /dev/gsp.
 */

int
kbd_newchar(int unit, register int c)
{
    int n, kmode;
    struct gspsoftc *dv = (struct gspsoftc *) gspcd.cd_devs[unit];
    struct tty *tp = dv->tty;
    u_char kbstr[5];

    if( dv->kbd.prefix < 0 ){
	if( c == 0x55 )
	    dv->kbd.prefix = 0;
	else if( c == 0xAA )
	    dv->kbd.prefix = 0x100;
	return;
    }
    c += dv->kbd.prefix;
    dv->kbd.prefix = -1;
    kmode = gsp_get_kmode(dv->GSP);

    if( c == 0x8F ){
	if( (kmode & KBD_AUTO_RPT) == 0 )
	    return;
	c = dv->kbd.last;
    } else
	dv->kbd.last = c;

    /* got a single-character code for the key; take action or
       turn it into an escape sequence */
    if( c <= 0x80 ){
	if( (kmode & KBD_CLICK) != 0 )
	    zs_kbdput(dv->kbd_dev, KC_CLICK);
	(*linesw[tp->t_line].l_rint)(c, tp);
	return;
    }
    if( c < 0x100 ){
	/* compose, f1-f5 */
	if( c == KEY_SCRL ){
	    /* Hold screen */
	    n = gsp_toggle_hold(dv->GSP);
	    zs_kbdput(dv->kbd_dev, n? 0x38: 0x28);
	    if( (kmode & KBD_CLICK) != 0 )
		zs_kbdput(dv->kbd_dev, KC_CLICK);
	} else if( c == KEY_BREAK ){
	    gsp_issue_cmd(dv->GSP, GSP_CMD_REFRESH);
	} else if( c == KEY_PRINT ){
	    /* print */
	    /* print_something(); */
#if 0
	} else if( c == KEY_C_PRINT ){
	    vm_check();
#endif
	} else if( c == KEY_C_BREAK ){
	    /* ctrl-break */
	    asm(" trap #14");
	}
	return;
    }

    /* control of scrolling back through history */
    switch( c ){
    case 0x145:		/* shift up-arrow */
	gsp_incr_history(dv->GSP, 1);
	return;
    case 0x146:		/* shift down-arrow */
	gsp_incr_history(dv->GSP, -1);
	return;
    case 0x1B5:		/* shift prev-screen */
	gsp_incr_history(dv->GSP, 24);
	return;
    case 0x1B6:		/* shift next-screen */
	gsp_incr_history(dv->GSP, -24);
	return;
    case 0x1B4:		/* shift select */
	gsp_set_history(dv->GSP, 0);
	return;
    }

    for( n = 0; n < 5; ++n )
	kbstr[n] = 0;
    if( c < 0x130 ){
	/* top row, f6 - f20, normal, shifted and ctrled */
	n = c & 0xF;
	if( n >= 12 )	++n;
	if( n >= 10 )	++n;
	if( n >= 6 )	++n;
	if( c >= 0x110 )
	    n += 20;
	if( c >= 0x120 )
	    n += 20;
	n += 16;
	kbstr[0] = CSI;
	kbstr[1] = n / 10 + '0';
	kbstr[2] = n % 10 + '0';
	kbstr[3] = '~';
    } else if( c <= 0x15F || (kmode & KBD_APPL_KPAD) != 0 && c <= 0x17E ){
	/* editing and numeric keypads */
	if( c <= 0x139 || (kmode & KBD_APPL_CURS) == 0 && c <= 0x144 )
	    kbstr[0] = CSI;
	else
	    kbstr[0] = SS3;
	kbstr[1] = c;
	if( c <= 0x139 )
	    kbstr[2] = '~';
    } else if( c <= 0x17E ){
	/* numeric keypad, not in application mode */
	kbstr[0] = c - 0x140;
    } else if( c <= 0x18A ){
	/* delete, backspace, line feed */
	kbstr[0] = c & 0x7F;
    } else
	/* shifted keypad keys */
	return;

    if( (kmode & KBD_CLICK) != 0 )
	zs_kbdput(dv->kbd_dev, KC_CLICK);
    for( n = 0; (c = kbstr[n]) != 0; ++n ){
	if( c >= 0x80 && (kmode & KBD_7_BIT) != 0 ){
	    (*linesw[tp->t_line].l_rint)(ESC, tp);
	    c -= 0x40;
	}
	(*linesw[tp->t_line].l_rint)(c, tp);
    }
}

/*
 * Routines to interface to the virtual console code.
 */
int	gsp_cons_addr = 0xE70000;
int	gsp_cons_kbd = 3;
struct kbd gsp_cons_kstate = {-1, 0};
gsp_ptr	gsp_cons_ptr;

gspcnprobe(cp)
    struct consdev *cp;
{
    int maj;

    /* check the keyboard */
    if( !zs_kbdcnprobe(cp, gsp_cons_kbd) )
	return;

    /* locate the major number */
    for (maj = 0; maj < nchrdev; maj++)
	if (cdevsw[maj].d_open == gspopen)
	    break;

    /* initialize required fields */
    cp->cn_dev = makedev(maj, 0);
    cp->cn_pri = CN_INTERNAL;
}

/* ARGSUSED */
gspcninit(cp)
    struct consdev *cp;
{
    gsp_cons_ptr = (gsp_ptr) IIOV(gsp_cons_addr);
    zs_cnsetup(gsp_cons_kbd, &kbdcn_termios);	/* initialize the keyboard */
    gsp_cons_kstate.prefix = -1;
}

/* ARGSUSED */
gspcnputc(dev, c)
    dev_t dev;
    u_char c;
{
    int s;

    s = spltty();
    while( gsp_write(gsp_cons_ptr, &c, 1) == 0 )
	DELAY(100)
    splx(s);
    return 0;
}

/* ARGSUSED */
gspcngetc(dev)
    dev_t dev;
{
    register int c;
    int kmode;

    for(;;){
	c = zscngetc(gsp_cons_kbd);
	if( gsp_cons_kstate.prefix < 0 ){
	    if( c == 0x55 )
		gsp_cons_kstate.prefix = 0;
	    else if( c == 0xAA )
		gsp_cons_kstate.prefix = 0x100;
	    continue;
	}
	c += gsp_cons_kstate.prefix;
	gsp_cons_kstate.prefix = -1;
	kmode = gsp_get_kmode(gsp_cons_ptr);

	if( c == 0x8F ){
	    if( (kmode & KBD_AUTO_RPT) == 0 )
		continue;
	    c = gsp_cons_kstate.last;
	} else
	    gsp_cons_kstate.last = c;

	if( c <= 0x80 ){
	    /* an ordinary char - that's what we want */
	    if( (kmode & KBD_CLICK) != 0 )
		zscnputc(gsp_cons_kbd, KC_CLICK);
	    break;
	}

	/* we take action on some other keys, but we don't return
	   escape sequences. */
	switch( c ){
	case KEY_SCRL:		/* Hold screen */
	    c = gsp_toggle_hold(gsp_cons_ptr);
	    zscnputc(gsp_cons_kbd, c? 0x38: 0x28);
	    break;
	case 0x145:		/* shift up-arrow */
	    gsp_incr_history(gsp_cons_ptr, 1);
	    break;
	case 0x146:		/* shift down-arrow */
	    gsp_incr_history(gsp_cons_ptr, -1);
	    break;
	case 0x1B5:		/* shift prev-screen */
	    gsp_incr_history(gsp_cons_ptr, 24);
	    break;
	case 0x1B6:		/* shift next-screen */
	    gsp_incr_history(gsp_cons_ptr, -24);
	    break;
	case 0x1B4:		/* shift select */
	    gsp_set_history(gsp_cons_ptr, 0);
	    break;
	}
	/* ignore function keys, etc. */
    }
    if (c == '\r')
	c = '\n';
    return c;
}

#endif	/* NGSP > 0 */