function.c

/*
 * Copyright (C) 2014 haru <uobikiemukot at gmail dot com>
 * Copyright (C) 2014 Hayaki Saito <user@zuse.jp>
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include "config.h"
#include "yaft.h"
#include "util.h"
#include "terminal.h"
#include "function.h"

#include <stdio.h>
#ifdef HAVE_STRING_H
# include <string.h>
#endif

/* misc */
int sum(struct parm_t *parm)
{
    int i, sum = 0;

    for (i = 0; i < parm->argc; i++)
        sum += dec2num(parm->argv[i]);

    return sum;
}

/* function for control character */
void bs(struct terminal *term)
{
    move_cursor(term, 0, -1);
}

void tab(struct terminal *term)
{
    int i;

    for (i = term->cursor.x + 1; i < term->cols; i++) {
        if (term->tabstop[i]) {
            set_cursor(term, term->cursor.y, i);
            return;
        }
    }
    set_cursor(term, term->cursor.y, term->cols - 1);
}

void nl(struct terminal *term)
{
    move_cursor(term, 1, 0);
}

void cr(struct terminal *term)
{
    set_cursor(term, term->cursor.y, 0);
}

void enter_esc(struct terminal *term)
{
    term->esc.state = STATE_ESC;
}

/* function for escape sequence */
void save_state(struct terminal *term)
{
    term->state.mode = term->mode & MODE_ORIGIN;
    term->state.cursor = term->cursor;
    term->state.attribute = term->attribute;
}

void restore_state(struct terminal *term)
{
    /* restore state */
    if (term->state.mode & MODE_ORIGIN)
        term->mode |= MODE_ORIGIN;
    else
        term->mode &= ~MODE_ORIGIN;
    term->cursor    = term->state.cursor;
    term->attribute = term->state.attribute;
}

void crnl(struct terminal *term)
{
    cr(term);
    nl(term);
}

void set_tabstop(struct terminal *term)
{
    term->tabstop[term->cursor.x] = true;
}

void reverse_nl(struct terminal *term)
{
    move_cursor(term, -1, 0);
}

void enter_csi(struct terminal *term)
{
    term->esc.state = STATE_CSI;
}

void enter_osc(struct terminal *term)
{
    term->esc.state = STATE_OSC;
}

void enter_dcs(struct terminal *term)
{
    term->esc.state = STATE_DCS;
}

void ris(struct terminal *term)
{
    reset(term);
}

/* function for csi sequence */
void insert_blank(struct terminal *term, struct parm_t *parm)
{
    int i, num = sum(parm);

    if (num <= 0)
        num = 1;

    for (i = term->cols - 1; term->cursor.x <= i; i--) {
        if (term->cursor.x <= (i - num))
            copy_cell(term, term->cursor.y, i, term->cursor.y, i - num);
        else
            erase_cell(term, term->cursor.y, i);
    }
}

void curs_up(struct terminal *term, struct parm_t *parm)
{
    int num = sum(parm);

    if (num <= 0)
        num = 1;
    move_cursor(term, -num, 0);
}

void curs_down(struct terminal *term, struct parm_t *parm)
{
    int num = sum(parm);

    if (num <= 0)
        num = 1;
    move_cursor(term, num, 0);
}

void curs_forward(struct terminal *term, struct parm_t *parm)
{
    int num = sum(parm);

    if (num <= 0)
        num = 1;
    move_cursor(term, 0, num);
}

void curs_back(struct terminal *term, struct parm_t *parm)
{
    int num = sum(parm);

    if (num <= 0)
        num = 1;
    move_cursor(term, 0, -num);
}

void curs_nl(struct terminal *term, struct parm_t *parm)
{
    int num = sum(parm);

    if (num <= 0)
        num = 1;
    move_cursor(term, num, 0);
    cr(term);
}

void curs_pl(struct terminal *term, struct parm_t *parm)
{
    int num = sum(parm);

    if (num <= 0)
        num = 1;
    move_cursor(term, -num, 0);
    cr(term);
}

void curs_col(struct terminal *term, struct parm_t *parm)
{
    int num, last = parm->argc - 1;

    if (parm->argc <= 0)
        num = 0;
    else
        num = dec2num(parm->argv[last]) - 1;

    set_cursor(term, term->cursor.y, num);
}

void curs_pos(struct terminal *term, struct parm_t *parm)
{
    int line, col;

    if (parm->argc <= 0) {
        set_cursor(term, 0, 0);
        return;
    }

    if (parm->argc != 2)
        return;

    line = dec2num(parm->argv[0]) - 1;
    col  = dec2num(parm->argv[1]) - 1;
    set_cursor(term, line, col);
}

void erase_display(struct terminal *term, struct parm_t *parm)
{
    int i, j, mode, last = parm->argc - 1;

    mode = (parm->argc == 0) ? 0: dec2num(parm->argv[last]);

    if (mode < 0 || 2 < mode)
        return;

    if (mode == 0) {
        for (i = term->cursor.y; i < term->lines; i++)
            for (j = 0; j < term->cols; j++)
                if (i > term->cursor.y || (i == term->cursor.y && j >= term->cursor.x))
                    erase_cell(term, i, j);
    }
    else if (mode == 1) {
        for (i = 0; i <= term->cursor.y; i++)
            for (j = 0; j < term->cols; j++)
                if (i < term->cursor.y || (i == term->cursor.y && j <= term->cursor.x))
                    erase_cell(term, i, j);
    }
    else if (mode == 2) {
        for (i = 0; i < term->lines; i++)
            for (j = 0; j < term->cols; j++)
                erase_cell(term, i, j);
    }
}

void erase_line(struct terminal *term, struct parm_t *parm)
{
    int i, mode, last = parm->argc - 1;

    mode = (parm->argc == 0) ? 0: dec2num(parm->argv[last]);

    if (mode < 0 || 2 < mode)
        return;

    if (mode == 0) {
        for (i = term->cursor.x; i < term->cols; i++)
            erase_cell(term, term->cursor.y, i);
    }
    else if (mode == 1) {
        for (i = 0; i <= term->cursor.x; i++)
            erase_cell(term, term->cursor.y, i);
    }
    else if (mode == 2) {
        for (i = 0; i < term->cols; i++)
            erase_cell(term, term->cursor.y, i);
    }
}

void insert_line(struct terminal *term, struct parm_t *parm)
{
    int num = sum(parm);

    if (term->mode & MODE_ORIGIN) {
        if (term->cursor.y < term->scroll.top
            || term->cursor.y > term->scroll.bottom)
            return;
    }

    num = (num <= 0) ? 1 : num;
    scroll(term, term->cursor.y, term->scroll.bottom, -num);
}

void delete_line(struct terminal *term, struct parm_t *parm)
{
    int num = sum(parm);

    if (term->mode & MODE_ORIGIN) {
        if (term->cursor.y < term->scroll.top
            || term->cursor.y > term->scroll.bottom)
            return;
    }

    num = (num <= 0) ? 1 : num;
    scroll(term, term->cursor.y, term->scroll.bottom, num);
}

void delete_char(struct terminal *term, struct parm_t *parm)
{
    int i, num = sum(parm);

    num = (num <= 0) ? 1 : num;

    for (i = term->cursor.x; i < term->cols; i++) {
        if ((i + num) < term->cols)
            copy_cell(term, term->cursor.y, i, term->cursor.y, i + num);
        else
            erase_cell(term, term->cursor.y, i);
    }
}

void erase_char(struct terminal *term, struct parm_t *parm)
{
    int i, num = sum(parm);

    if (num <= 0)
        num = 1;
    else if (num + term->cursor.x > term->cols)
        num = term->cols - term->cursor.x;

    for (i = term->cursor.x; i < term->cursor.x + num; i++)
        erase_cell(term, term->cursor.y, i);
}

void curs_line(struct terminal *term, struct parm_t *parm)
{
    int num, last = parm->argc - 1;

    if (parm->argc == 0)
        num = 0;
    else
        num = dec2num(parm->argv[last]) - 1;

    set_cursor(term, num, term->cursor.x);
}

void set_attr(struct terminal *term, struct parm_t *parm)
{
    int i, num;

    if (parm->argc == 0) {
        term->attribute = ATTR_RESET;
        term->color_pair.fg = term->default_fg;
        term->color_pair.bg = term->default_bg;
        return;
    }

    for (i = 0; i < parm->argc; i++) {
        num = dec2num(parm->argv[i]);

        if (num == 0) {                    /* reset all attribute and color */
            term->attribute = ATTR_RESET;
            term->color_pair.fg = term->default_fg;
            term->color_pair.bg = term->default_bg;
        }
        else if (1 <= num && num <= 7)     /* set attribute */
            term->attribute |= attr_mask[num];
        else if (21 <= num && num <= 27)   /* reset attribute */
            term->attribute &= ~attr_mask[num - 20];
        else if (30 <= num && num <= 37)   /* set foreground */
            term->color_pair.fg = (num - 30);
        else if (num == 38) {              /* set 256 color to foreground */
            if ((i + 2) < parm->argc && dec2num(parm->argv[i + 1]) == 5) {
                term->color_pair.fg = dec2num(parm->argv[i + 2]);
                i += 2;
            }
        }
        else if (num == 39)                /* reset foreground */
            term->color_pair.fg = term->default_fg;
        else if (40 <= num && num <= 47)   /* set background */
            term->color_pair.bg = (num - 40);
        else if (num == 48) {              /* set 256 color to background */
            if ((i + 2) < parm->argc && dec2num(parm->argv[i + 1]) == 5) {
                term->color_pair.bg = dec2num(parm->argv[i + 2]);
                i += 2;
            }
        }
        else if (num == 49)                /* reset background */
            term->color_pair.bg = term->default_bg;
        else if (90 <= num && num <= 97)   /* set bright foreground */
            term->color_pair.fg = (num - 90) + BRIGHT_INC;
        else if (100 <= num && num <= 107) /* set bright background */
            term->color_pair.bg = (num - 100) + BRIGHT_INC;
    }
}

void set_mode(struct terminal *term, struct parm_t *parm)
{
    int i, mode;

    for (i = 0; i < parm->argc; i++) {
        mode = dec2num(parm->argv[i]);
        if (*(term->esc.buf + 1) != '?')
            continue; /* not supported */

        if (mode == 6) { /* private mode */
            term->mode |= MODE_ORIGIN;
            set_cursor(term, 0, 0);
        }
        else if (mode == 7)
            term->mode |= MODE_AMRIGHT;
        else if (mode == 25)
            term->mode |= MODE_CURSOR;
    }

}

void reset_mode(struct terminal *term, struct parm_t *parm)
{
    int i, mode;

    for (i = 0; i < parm->argc; i++) {
        mode = dec2num(parm->argv[i]);
        if (*(term->esc.buf + 1) != '?')
            continue; /* not supported */

        if (mode == 6) { /* private mode */
            term->mode &= ~MODE_ORIGIN;
            set_cursor(term, 0, 0);
        }
        else if (mode == 7) {
            term->mode &= ~MODE_AMRIGHT;
            term->wrap_occured = false;
        }
        else if (mode == 25)
            term->mode &= ~MODE_CURSOR;
    }

}

void set_margin(struct terminal *term, struct parm_t *parm)
{
    int top, bottom;

    if (parm->argc != 2)
        return;

    top    = dec2num(parm->argv[0]) - 1;
    bottom = dec2num(parm->argv[1]) - 1;

    if (top >= bottom)
        return;

    top = (top < 0) ? 0 : (top >= term->lines) ? term->lines - 1 : top;

    bottom = (bottom < 0) ? 0 :
        (bottom >= term->lines) ? term->lines - 1 : bottom;

    term->scroll.top = top;
    term->scroll.bottom = bottom;

    set_cursor(term, 0, 0); /* move cursor to home */
}

void clear_tabstop(struct terminal *term, struct parm_t *parm)
{
    int i, j, num;

    if (parm->argc == 0)
        term->tabstop[term->cursor.x] = false;
    else {
        for (i = 0; i < parm->argc; i++) {
            num = dec2num(parm->argv[i]);
            if (num == 0)
                term->tabstop[term->cursor.x] = false;
            else if (num == 3) {
                for (j = 0; j < term->cols; j++)
                    term->tabstop[j] = false;
                return;
            }
        }
    }
}

/* emacs Local Variables:      */
/* emacs mode: c               */
/* emacs tab-width: 4          */
/* emacs indent-tabs-mode: nil */
/* emacs c-basic-offset: 4     */
/* emacs End:                  */
/* vim: set expandtab ts=4 : */
/* EOF */