usr/src/sys/hp300/stand/ite.c

/*
 * Copyright (c) 1988 University of Utah.
 * Copyright (c) 1990, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * the Systems Programming Group of the University of Utah Computer
 * Science Department.
 *
 * 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. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by the University of
 *      California, Berkeley and its contributors.
 * 4. Neither the name of the University 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 REGENTS 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 REGENTS 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.
 *
 * from: Utah $Hdr: ite.c 1.24 93/06/25$
 *
 *      @(#)ite.c       8.1 (Berkeley) 7/8/93
 */

/*
 * Standalone Internal Terminal Emulator (CRT and keyboard)
 */
#include <hp300/stand/samachdep.h>

#ifdef ITECONSOLE

#include <sys/param.h>
#include <hp/dev/cons.h>
#include <hp/dev/device.h>
#include <hp/dev/itevar.h>
#include <hp/dev/grfreg.h>

extern int nodev();
extern u_char ite_readbyte();
extern int ite_writeglyph();

extern int topcat_init(), topcat_putc();
extern int topcat_clear(), topcat_cursor(), topcat_scroll();
extern int gbox_init(), gbox_clear();
extern int gbox_putc(), gbox_cursor(), gbox_scroll();
extern int rbox_init(), rbox_clear();
extern int rbox_putc(), rbox_cursor(), rbox_scroll();
extern int dvbox_init(), dvbox_clear();
extern int dvbox_putc(), dvbox_cursor(), dvbox_scroll();
extern int hyper_init(), hyper_clear();
extern int hyper_putc(), hyper_cursor(), hyper_scroll();

struct itesw itesw[] = {
        GID_TOPCAT,
        topcat_init,    nodev,          topcat_clear,   topcat_putc,
        topcat_cursor,  topcat_scroll,  ite_readbyte,   ite_writeglyph,
        GID_GATORBOX,
        gbox_init,      nodev,          gbox_clear,     gbox_putc,
        gbox_cursor,    gbox_scroll,    ite_readbyte,   ite_writeglyph,
        GID_RENAISSANCE,
        rbox_init,      nodev,          rbox_clear,     rbox_putc,
        rbox_cursor,    rbox_scroll,    ite_readbyte,   ite_writeglyph,
        GID_LRCATSEYE,
        topcat_init,    nodev,          topcat_clear,   topcat_putc,
        topcat_cursor,  topcat_scroll,  ite_readbyte,   ite_writeglyph,
        GID_HRCCATSEYE,
        topcat_init,    nodev,          topcat_clear,   topcat_putc,
        topcat_cursor,  topcat_scroll,  ite_readbyte,   ite_writeglyph,
        GID_HRMCATSEYE,
        topcat_init,    nodev,          topcat_clear,   topcat_putc,
        topcat_cursor,  topcat_scroll,  ite_readbyte,   ite_writeglyph,
        GID_DAVINCI,
        dvbox_init,     nodev,          dvbox_clear,    dvbox_putc,
        dvbox_cursor,   dvbox_scroll,   ite_readbyte,   ite_writeglyph,
        GID_HYPERION,
        hyper_init,     nodev,          hyper_clear,    hyper_putc,
        hyper_cursor,   hyper_scroll,   ite_readbyte,   ite_writeglyph,
};
int     nitesw = sizeof(itesw) / sizeof(itesw[0]);

/* these guys need to be in initialized data */
int itecons = -1;
struct  ite_softc ite_softc[NITE] = { 0 };

/*
 * Locate all bitmapped displays
 */
iteconfig()
{
        extern struct hp_hw sc_table[];
        int dtype, fboff, i;
        struct hp_hw *hw;
        struct grfreg *gr;
        struct ite_softc *ip;

        i = 0;
        for (hw = sc_table; hw < &sc_table[MAXCTLRS]; hw++) {
                if (!HW_ISDEV(hw, D_BITMAP))
                        continue;
                gr = (struct grfreg *) hw->hw_kva;
                /* XXX: redundent but safe */
                if (badaddr((caddr_t)gr) || gr->gr_id != GRFHWID)
                        continue;
                for (dtype = 0; dtype < nitesw; dtype++)
                        if (itesw[dtype].ite_hwid == gr->gr_id2)
                                break;
                if (dtype == nitesw)
                        continue;
                if (i >= NITE)
                        break;
                ip = &ite_softc[i];
                ip->isw = &itesw[dtype];
                ip->regbase = (caddr_t) gr;
                fboff = (gr->gr_fbomsb << 8) | gr->gr_fbolsb;
                ip->fbbase = (caddr_t) (*((u_char *)ip->regbase+fboff) << 16);
                /* DIO II: FB offset is relative to select code space */
                if (ip->regbase >= (caddr_t)DIOIIBASE)
                        ip->fbbase += (int)ip->regbase;
                ip->fbwidth  = gr->gr_fbwidth_h << 8 | gr->gr_fbwidth_l;
                ip->fbheight = gr->gr_fbheight_h << 8 | gr->gr_fbheight_l;
                ip->dwidth   = gr->gr_dwidth_h << 8 | gr->gr_dwidth_l;
                ip->dheight  = gr->gr_dheight_h << 8 | gr->gr_dheight_l;
                /*
                 * XXX some displays (e.g. the davinci) appear
                 * to return a display height greater than the
                 * returned FB height.  Guess we should go back
                 * to getting the display dimensions from the
                 * fontrom...
                 */
                if (ip->dwidth > ip->fbwidth)
                        ip->dwidth = ip->fbwidth;
                if (ip->dheight > ip->fbheight)
                        ip->dheight = ip->fbheight;
                ip->flags = ITE_ALIVE|ITE_CONSOLE;
                i++;
        }
}

#ifdef CONSDEBUG
/*
 * Allows us to cycle through all possible consoles (NITE ites and serial port)
 * by using SHIFT-RESET on the keyboard.
 */
int     whichconsole = -1;
#endif

iteprobe(cp)
        struct consdev *cp;
{
        register int ite;
        register struct ite_softc *ip;
        int unit, pri;

#ifdef CONSDEBUG
        whichconsole = ++whichconsole % (NITE+1);
#endif

        if (itecons != -1)
                return(1);

        iteconfig();
        unit = -1;
        pri = CN_DEAD;
        for (ite = 0; ite < NITE; ite++) {
#ifdef CONSDEBUG
                if (ite < whichconsole)
                        continue;
#endif
                ip = &ite_softc[ite];
                if ((ip->flags & (ITE_ALIVE|ITE_CONSOLE))
                    != (ITE_ALIVE|ITE_CONSOLE))
                        continue;
                if ((int)ip->regbase == GRFIADDR) {
                        pri = CN_INTERNAL;
                        unit = ite;
                } else if (unit < 0) {
                        pri = CN_NORMAL;
                        unit = ite;
                }
        }
        cp->cn_dev = unit;
        cp->cn_pri = pri;
}

iteinit(cp)
        struct consdev *cp;
{
        int ite = cp->cn_dev;
        struct ite_softc *ip;

        if (itecons != -1)
                return(1);

        ip = &ite_softc[ite];

        ip->curx = 0;
        ip->cury = 0;
        ip->cursorx = 0;
        ip->cursory = 0;

        (*ip->isw->ite_init)(ip);
        (*ip->isw->ite_cursor)(ip, DRAW_CURSOR);

        itecons = ite;
        kbdinit();
}

iteputchar(c)
        register int c;
{
        register struct ite_softc *ip = &ite_softc[itecons];
        register struct itesw *sp = ip->isw;

        c &= 0x7F;
        switch (c) {

        case '\n':
                if (++ip->cury == ip->rows) {
                        ip->cury--;
                        (*sp->ite_scroll)(ip, 1, 0, 1, SCROLL_UP);
                        ite_clrtoeol(ip, sp, ip->cury, 0);
                }
                else
                        (*sp->ite_cursor)(ip, MOVE_CURSOR);
                break;

        case '\r':
                ip->curx = 0;
                (*sp->ite_cursor)(ip, MOVE_CURSOR);
                break;

        case '\b':
                if (--ip->curx < 0)
                        ip->curx = 0;
                else
                        (*sp->ite_cursor)(ip, MOVE_CURSOR);
                break;

        default:
                if (c < ' ' || c == 0177)
                        break;
                (*sp->ite_putc)(ip, c, ip->cury, ip->curx, ATTR_NOR);
                (*sp->ite_cursor)(ip, DRAW_CURSOR);
                itecheckwrap(ip, sp);
                break;
        }
}

itecheckwrap(ip, sp)
     register struct ite_softc *ip;
     register struct itesw *sp;
{
        if (++ip->curx == ip->cols) {
                ip->curx = 0;
                if (++ip->cury == ip->rows) {
                        --ip->cury;
                        (*sp->ite_scroll)(ip, 1, 0, 1, SCROLL_UP);
                        ite_clrtoeol(ip, sp, ip->cury, 0);
                        return;
                }
        }
        (*sp->ite_cursor)(ip, MOVE_CURSOR);
}

ite_clrtoeol(ip, sp, y, x)
     register struct ite_softc *ip;
     register struct itesw *sp;
     register int y, x;
{
        (*sp->ite_clear)(ip, y, x, 1, ip->cols - x);
        (*sp->ite_cursor)(ip, DRAW_CURSOR);
}

itegetchar()
{
#ifdef SMALL
        return (0);
#else
        return (kbdgetc());
#endif
}
#endif