/*-
 * Copyright (c) 1999 Kazutaka YOKOTA <yokota@zodiac.mech.utsunomiya-u.ac.jp>
 * 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 as
 *    the first lines of this file unmodified.
 * 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 AUTHORS ``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 AUTHORS 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.
 */

#ifndef _DEV_SYSCONS_SCTERMVAR_H_
#define _DEV_SYSCONS_SCTERMVAR_H_

/*
 * building blocks for terminal emulator modules.
 */

static __inline void    sc_term_ins_line(scr_stat *scp, int y, int n, int ch,
                                         int attr, int tail);
static __inline void    sc_term_del_line(scr_stat *scp, int y, int n, int ch,
                                         int attr, int tail);
static __inline void    sc_term_ins_char(scr_stat *scp, int n, int ch,
                                         int attr);
static __inline void    sc_term_del_char(scr_stat *scp, int n, int ch,
                                         int attr);
static __inline void    sc_term_col(scr_stat *scp, int n);
static __inline void    sc_term_row(scr_stat *scp, int n);
static __inline void    sc_term_up(scr_stat *scp, int n, int head);
static __inline void    sc_term_down(scr_stat *scp, int n, int tail);
static __inline void    sc_term_left(scr_stat *scp, int n);
static __inline void    sc_term_right(scr_stat *scp, int n);
static __inline void    sc_term_up_scroll(scr_stat *scp, int n, int ch,
                                          int attr, int head, int tail);
static __inline void    sc_term_down_scroll(scr_stat *scp, int n, int ch,
                                            int attr, int head, int tail);
static __inline void    sc_term_clr_eos(scr_stat *scp, int n, int ch, int attr);
static __inline void    sc_term_clr_eol(scr_stat *scp, int n, int ch, int attr);
static __inline void    sc_term_tab(scr_stat *scp, int n);
static __inline void    sc_term_backtab(scr_stat *scp, int n);
static __inline void    sc_term_respond(scr_stat *scp, u_char *s);
static __inline void    sc_term_gen_print(scr_stat *scp, u_char **buf, int *len,
                                          int attr);
static __inline void    sc_term_gen_scroll(scr_stat *scp, int ch, int attr);

static __inline void
sc_term_ins_line(scr_stat *scp, int y, int n, int ch, int attr, int tail)
{
        if (tail <= 0)
                tail = scp->ysize;
        if (n < 1)
                n = 1;
        if (n > tail - y)
                n = tail - y;
        sc_vtb_ins(&scp->vtb, y*scp->xsize, n*scp->xsize, ch, attr);
        mark_for_update(scp, y*scp->xsize);
        mark_for_update(scp, scp->xsize*tail - 1);
}

static __inline void
sc_term_del_line(scr_stat *scp, int y, int n, int ch, int attr, int tail)
{
        if (tail <= 0)
                tail = scp->ysize;
        if (n < 1)
                n = 1;
        if (n > tail - y)
                n = tail - y;
        sc_vtb_delete(&scp->vtb, y*scp->xsize, n*scp->xsize, ch, attr);
        mark_for_update(scp, y*scp->xsize);
        mark_for_update(scp, scp->xsize*tail - 1);
}

static __inline void
sc_term_ins_char(scr_stat *scp, int n, int ch, int attr)
{
        int count;

        if (n < 1)
                n = 1;
        if (n > scp->xsize - scp->xpos)
                n = scp->xsize - scp->xpos;
        count = scp->xsize - (scp->xpos + n);
        sc_vtb_move(&scp->vtb, scp->cursor_pos, scp->cursor_pos + n, count);
        sc_vtb_erase(&scp->vtb, scp->cursor_pos, n, ch, attr);
        mark_for_update(scp, scp->cursor_pos);
        mark_for_update(scp, scp->cursor_pos + n + count - 1);
}

static __inline void
sc_term_del_char(scr_stat *scp, int n, int ch, int attr)
{
        int count;

        if (n < 1)
                n = 1;
        if (n > scp->xsize - scp->xpos)
                n = scp->xsize - scp->xpos;
        count = scp->xsize - (scp->xpos + n);
        sc_vtb_move(&scp->vtb, scp->cursor_pos + n, scp->cursor_pos, count);
        sc_vtb_erase(&scp->vtb, scp->cursor_pos + count, n, ch, attr);
        mark_for_update(scp, scp->cursor_pos);
        mark_for_update(scp, scp->cursor_pos + n + count - 1);
}

static __inline void
sc_term_col(scr_stat *scp, int n)
{
        if (n < 1)
                n = 1;
        sc_move_cursor(scp, n - 1, scp->ypos);
}

static __inline void
sc_term_row(scr_stat *scp, int n)
{
        if (n < 1)
                n = 1;
        sc_move_cursor(scp, scp->xpos, n - 1);
}

static __inline void
sc_term_up(scr_stat *scp, int n, int head)
{
        if (n < 1)
                n = 1;
        n = imin(n, scp->ypos - head);
        if (n <= 0)
                return;
        sc_move_cursor(scp, scp->xpos, scp->ypos - n);
}

static __inline void
sc_term_down(scr_stat *scp, int n, int tail)
{
        if (tail <= 0)
                tail = scp->ysize;
        if (n < 1)
                n = 1;
        n = imin(n, tail - scp->ypos - 1);
        if (n <= 0)
                return;
        sc_move_cursor(scp, scp->xpos, scp->ypos + n);
}

static __inline void
sc_term_left(scr_stat *scp, int n)
{
        if (n < 1)
                n = 1;
        sc_move_cursor(scp, scp->xpos - n, scp->ypos);
}

static __inline void
sc_term_right(scr_stat *scp, int n)
{
        if (n < 1)
                n = 1;
        sc_move_cursor(scp, scp->xpos + n, scp->ypos);
}

static __inline void
sc_term_up_scroll(scr_stat *scp, int n, int ch, int attr, int head, int tail)
{
        if (tail <= 0)
                tail = scp->ysize;
        if (n < 1)
                n = 1;
        if (n <= scp->ypos - head) {
                sc_move_cursor(scp, scp->xpos, scp->ypos - n);
        } else {
                sc_term_ins_line(scp, head, n - (scp->ypos - head), 
                                 ch, attr, tail);
                sc_move_cursor(scp, scp->xpos, head);
        }
}

static __inline void
sc_term_down_scroll(scr_stat *scp, int n, int ch, int attr, int head, int tail)
{
        if (tail <= 0)
                tail = scp->ysize;
        if (n < 1)
                n = 1;
        if (n < tail - scp->ypos) {
                sc_move_cursor(scp, scp->xpos, scp->ypos + n);
        } else {
                sc_term_del_line(scp, head, n - (tail - scp->ypos) + 1, 
                                 ch, attr, tail);
                sc_move_cursor(scp, scp->xpos, tail - 1);
        }
}

static __inline void
sc_term_clr_eos(scr_stat *scp, int n, int ch, int attr)
{
        switch (n) {
        case 0: /* clear form cursor to end of display */
                sc_vtb_erase(&scp->vtb, scp->cursor_pos,
                             scp->xsize*scp->ysize - scp->cursor_pos,
                             ch, attr);
                mark_for_update(scp, scp->cursor_pos);
                mark_for_update(scp, scp->xsize*scp->ysize - 1);
                sc_remove_cutmarking(scp);
                break;
        case 1: /* clear from beginning of display to cursor */
                sc_vtb_erase(&scp->vtb, 0, scp->cursor_pos + 1, ch, attr);
                mark_for_update(scp, 0);
                mark_for_update(scp, scp->cursor_pos);
                sc_remove_cutmarking(scp);
                break;
        case 2: /* clear entire display */
                sc_vtb_erase(&scp->vtb, 0, scp->xsize*scp->ysize, ch, attr);
                mark_for_update(scp, 0);
                mark_for_update(scp, scp->xsize*scp->ysize - 1);
                sc_remove_cutmarking(scp);
                break;
        }
}

static __inline void
sc_term_clr_eol(scr_stat *scp, int n, int ch, int attr)
{
        switch (n) {
        case 0: /* clear form cursor to end of line */
                sc_vtb_erase(&scp->vtb, scp->cursor_pos,
                             scp->xsize - scp->xpos, ch, attr);
                mark_for_update(scp, scp->cursor_pos);
                mark_for_update(scp, scp->cursor_pos +
                                scp->xsize - 1 - scp->xpos);
                break;
        case 1: /* clear from beginning of line to cursor */
                sc_vtb_erase(&scp->vtb, scp->cursor_pos - scp->xpos,
                             scp->xpos + 1, ch, attr);
                mark_for_update(scp, scp->ypos*scp->xsize);
                mark_for_update(scp, scp->cursor_pos);
                break;
        case 2: /* clear entire line */
                sc_vtb_erase(&scp->vtb, scp->cursor_pos - scp->xpos,
                             scp->xsize, ch, attr);
                mark_for_update(scp, scp->ypos*scp->xsize);
                mark_for_update(scp, (scp->ypos + 1)*scp->xsize - 1);
                break;
        }
}

static __inline void
sc_term_tab(scr_stat *scp, int n)
{
        int i;

        if (n < 1)
                n = 1;
        i = (scp->xpos & ~7) + 8*n;
        if (i >= scp->xsize) {
                if (scp->ypos >= scp->ysize - 1) {
                        scp->xpos = 0;
                        scp->ypos++;
                        scp->cursor_pos = scp->ypos*scp->xsize;
                } else
                        sc_move_cursor(scp, 0, scp->ypos + 1);
        } else
                sc_move_cursor(scp, i, scp->ypos);
}

static __inline void
sc_term_backtab(scr_stat *scp, int n)
{
        int i;

        if (n < 1)
                n = 1;
        if ((i = scp->xpos & ~7) == scp->xpos)
                i -= 8*n;
        else
                i -= 8*(n - 1);
        if (i < 0)
                i = 0;
        sc_move_cursor(scp, i, scp->ypos);
}

static __inline void
sc_term_respond(scr_stat *scp, u_char *s)
{
        sc_paste(scp, s, strlen(s));    /* XXX: not correct, don't use rmap */
}

static __inline void
sc_term_gen_print(scr_stat *scp, u_char **buf, int *len, int attr)
{
        vm_offset_t p;
        u_char *ptr;
        u_char *map;
        int cnt;
        int l;
        int i;

        ptr = *buf;
        l = *len;

        if (PRINTABLE(*ptr)) {
                p = sc_vtb_pointer(&scp->vtb, scp->cursor_pos);
                map = scp->sc->scr_map;

                cnt = imin(l, scp->xsize - scp->xpos);
                i = cnt;
                do {
                        p = sc_vtb_putchar(&scp->vtb, p, map[*ptr], attr);
                        ++ptr;
                        --i;
                } while ((i > 0) && PRINTABLE(*ptr));

                l -= cnt - i;
                mark_for_update(scp, scp->cursor_pos);
                scp->cursor_pos += cnt - i;
                mark_for_update(scp, scp->cursor_pos - 1);
                scp->xpos += cnt - i;

                if (scp->xpos >= scp->xsize) {
                        scp->xpos = 0;
                        scp->ypos++;
                        /* we may have to scroll the screen */
                }
        } else {
                switch(*ptr) {
                case 0x07:
                        sc_bell(scp, scp->bell_pitch, scp->bell_duration);
                        break;

                case 0x08:      /* non-destructive backspace */
                        /* XXX */
                        if (scp->cursor_pos > 0) {
#if 0
                                mark_for_update(scp, scp->cursor_pos);
                                scp->cursor_pos--;
                                mark_for_update(scp, scp->cursor_pos);
#else
                                scp->cursor_pos--;
#endif
                                if (scp->xpos > 0) {
                                        scp->xpos--;
                                } else {
                                        scp->xpos += scp->xsize - 1;
                                        scp->ypos--;
                                }
                        }
                        break;

                case 0x09:      /* non-destructive tab */
                        sc_term_tab(scp, 1);
                        /* we may have to scroll the screen */
#if 0
                        mark_for_update(scp, scp->cursor_pos);
                        scp->cursor_pos += (8 - scp->xpos % 8u);
                        mark_for_update(scp, scp->cursor_pos);
                        scp->xpos += (8 - scp->xpos % 8u);
                        if (scp->xpos >= scp->xsize) {
                                scp->xpos = 0;
                                scp->ypos++;
                        }
#endif
                        break;

                case 0x0a:      /* newline, same pos */
#if 0
                        mark_for_update(scp, scp->cursor_pos);
                        scp->cursor_pos += scp->xsize;
                        mark_for_update(scp, scp->cursor_pos);
#else
                        scp->cursor_pos += scp->xsize;
                        /* we may have to scroll the screen */
#endif
                        scp->ypos++;
                        break;

                case 0x0c:      /* form feed, clears screen */
                        sc_clear_screen(scp);
                        break;

                case 0x0d:      /* return, return to pos 0 */
#if 0
                        mark_for_update(scp, scp->cursor_pos);
                        scp->cursor_pos -= scp->xpos;
                        mark_for_update(scp, scp->cursor_pos);
#else
                        scp->cursor_pos -= scp->xpos;
#endif
                        scp->xpos = 0;
                        break;
                }
                ptr++; l--;
        }

        *buf = ptr;
        *len = l;
}

static __inline void
sc_term_gen_scroll(scr_stat *scp, int ch, int attr)
{
        /* do we have to scroll ?? */
        if (scp->cursor_pos >= scp->ysize*scp->xsize) {
                sc_remove_cutmarking(scp);              /* XXX */
#ifndef SC_NO_HISTORY
                if (scp->history != NULL)
                        sc_hist_save_one_line(scp, 0);  /* XXX */
#endif
                sc_vtb_delete(&scp->vtb, 0, scp->xsize, ch, attr);
                scp->cursor_pos -= scp->xsize;
                scp->ypos--;
                mark_all(scp);
        }
}

#endif /* _DEV_SYSCONS_SCTERMVAR_H_ */