/*
Copyright (C) Magna Carta Software, Inc. 1990, 1991.  All Rights Reserved.
C COMMUNICATIONS TOOLKIT
VT100.C -- VT100 terminal emulation routines.
*/

#define CCT_DEVELOPMENT
#if (defined(CCTW) || defined(_WINDOWS))
    #include <windows.h>
#endif
#include <comm.h>
#include <ansi.h>
#include <vt.h>


/*
VT100_INIT -- Memory initialization of DEC VT100 (assumes ANSI mode).
*/
void vt100_init(TERMINAL *t)
{
    t->type             = DEC_VT100;
    t->att              = 7;
    t->csi              = 0X1B;
    t->cur_pos          = ansi_cursor_;
    t->d_att            = 7;
    t->d_rows           = 24;
    t->d_cols           = 80;
    t->delim1           = ';';
    t->dispatch_ctrl    = vt_dispatch_ctrl_;
    t->erase            = ansi_erase_;
    t->mode             = DECANM;
    t->offset           = 1;
    t->parse_cmd        = ansi_parse_cmd_;
    t->parse_parms      = term_ascii_parse_parms_;
    t->reset_mode       = vt_reset_mode_;
    t->set_mode         = vt_set_mode_;
    t->sgr              = ansi_sgr_;

    /* KEYSTROKES */
    if (enhanced_kbd) {
        /* IF THE ENHANCED KEYBOARD IS PRESENT AND HAS BIOS SUPPORT, USE IT */
        term_assign_key(t, GREY_UP_ARROW,    0, "\x1B[A");
        term_assign_key(t, GREY_DOWN_ARROW,  0, "\x1B[B");
        term_assign_key(t, GREY_RIGHT_ARROW, 0, "\x1B[C");
        term_assign_key(t, GREY_LEFT_ARROW,  0, "\x1B[D");
    }
    else {
        term_assign_key(t, S_UP_ARROW,    0, "\x1B[A");
        term_assign_key(t, S_DOWN_ARROW,  0, "\x1B[B");
        term_assign_key(t, S_RIGHT_ARROW, 0, "\x1B[C");
        term_assign_key(t, S_LEFT_ARROW,  0, "\x1B[D");
    }
    term_assign_key(t, F1,          0, "\x1BOP");
    term_assign_key(t, F2,          0, "\x1BOQ");
    term_assign_key(t, F3,          0, "\x1BOR");
    term_assign_key(t, F4,          0, "\x1BOS");
    term_assign_key(t, BACKSPACE,   0, "\x7F");

    vt100_private_(t, MODE_DECKPAM);        /* assign auxilliary keypad keys */

    /* === RECEIVED COMMANDS === */
    /* CURSOR CONTROL */
    term_assign_cmd(t, CUU, "[%A",   ansi_cursor_, NULL);
    term_assign_cmd(t, CUD, "[%B",   ansi_cursor_, NULL);
    term_assign_cmd(t, CUF, "[%C",   ansi_cursor_, NULL);
    term_assign_cmd(t, CUB, "[%D",   ansi_cursor_, NULL);
    term_assign_cmd(t, CUP, "[%;%H", ansi_cursor_, NULL);
    term_assign_cmd(t, HVP, "[%;%f", ansi_cursor_, NULL);

    term_assign_cmd(t, HTS, "H", (void (*)(TERMINAL *, short)) ansi_hts_, NULL);       /* horizontal tab set */
    term_assign_cmd(t, TBC, "[%g", (void (*)(TERMINAL *, short)) ansi_tbc_, NULL);     /* tabulation clear */
    term_assign_cmd(t, IND, "D", ansi_cursor_, NULL);    /* down one line */
    term_assign_cmd(t, NEL, "E", ansi_cursor_, NULL);    /* next line */
    term_assign_cmd(t, HTS, "M", ansi_cursor_, NULL);    /* reverse index */

    /* ERASE IN DISPLAY */
    term_assign_cmd(t, EED0,"[J",  ansi_erase_, NULL);
    term_assign_cmd(t, EED1,"[0J", ansi_erase_, NULL);
    term_assign_cmd(t, EBD, "[1J", ansi_erase_, NULL);
    term_assign_cmd(t, ED,  "[2J", ansi_erase_, NULL);

    /* ERASE IN LINE */
    term_assign_cmd(t, EEL0, "[K",  ansi_erase_, NULL);
    term_assign_cmd(t, EEL1, "[0K", ansi_erase_, NULL);
    term_assign_cmd(t, EBL,  "[1K", ansi_erase_, NULL);
    term_assign_cmd(t, EL,   "[2K", ansi_erase_, NULL);

    /* STATUS REPORTS */
    term_assign_cmd(t, TDSR,  "[5n", (void (*)(TERMINAL *, short)) NULL, "\x1B[0n");
    term_assign_cmd(t, CPR,   "[6n", (void (*)(TERMINAL *, short)) ansi_cpr_, NULL);
    term_assign_cmd(t, DA,    "[%c", (void (*)(TERMINAL *, short)) NULL, "\x1B[?1;0c");
    term_assign_cmd(t, TERMID,"Z",   (void (*)(TERMINAL *, short)) NULL, "\x1B[?1;0c");

    term_assign_cmd(t, RIS,         "c",      (void (*)(TERMINAL *, short)) ansi_reset_,   NULL);
    term_assign_cmd(t, RM,          "[?%;%l", vt_reset_mode_,NULL);
    term_assign_cmd(t, SGR,         "[%;%m",  (void (*)(TERMINAL *, short)) ansi_sgr_,     NULL);
    term_assign_cmd(t, SM,          "[?%;%h", vt_set_mode_,  NULL);
    term_assign_cmd(t, MODE_DECKPAM,"=",      vt100_private_,NULL);
    term_assign_cmd(t, MODE_DECKPNM,">",      vt100_private_,NULL);
    term_assign_cmd(t, MODE_DECANM, "<",      vt_set_mode_,  NULL);
    term_assign_cmd(t, MODE_DECRC,  "8",      vt100_private_,NULL);
    term_assign_cmd(t, MODE_DECSC,  "7",      vt100_private_,NULL);
    term_assign_cmd(t, MODE_DECSTBM,"[%;%r",  vt100_private_,NULL);
    term_assign_cmd(t, MODE_DECSWL, "#5",     vt100_private_,NULL);
}



/*
VT100_PRIVATE -- Function to handle DEC private sequences for the VTxxx line
of terminals.
*/
void vt100_private_(TERMINAL *t, short cmd)
{
    switch (cmd) {
        case MODE_DECKPAM:                  /* keypad application mode */
            if (isansi_(t)) {
                term_assign_key(t, PLUS,        0, "\x1BOl");   /* VT100 comma */
                term_assign_key(t, MINUS,       0, "\x1BOm");
                term_assign_key(t, KP_ENTER,    0, "\x1BOM");
                term_assign_key(t, DELETE,      0, "\x1BOn");
                term_assign_key(t, INSERT,      0, "\x1BOp");
                term_assign_key(t, END,         0, "\x1BOq");
                term_assign_key(t, DOWN_ARROW,  0, "\x1BOr");
                term_assign_key(t, PAGE_DOWN,   0, "\x1BOs");
                term_assign_key(t, LEFT_ARROW,  0, "\x1BOt");
                term_assign_key(t, KP_5,        0, "\x1BOu");
                term_assign_key(t, RIGHT_ARROW, 0, "\x1BOv");
                term_assign_key(t, HOME,        0, "\x1BOw");
                term_assign_key(t, UP_ARROW,    0, "\x1BOx");
                term_assign_key(t, PAGE_UP,     0, "\x1BOy");
            }
            else {
                term_assign_key(t, PLUS,        0, "\x1B?l");  /* VT52 comma */
                term_assign_key(t, MINUS,       0, "\x1BOm");
                term_assign_key(t, KP_ENTER,    0, "\x1B?M");
                term_assign_key(t, DELETE,      0, "\x1B?n");
                term_assign_key(t, INSERT,      0, "\x1B?p");
                term_assign_key(t, END,         0, "\x1B?q");
                term_assign_key(t, DOWN_ARROW,  0, "\x1B?r");
                term_assign_key(t, PAGE_DOWN,   0, "\x1B?s");
                term_assign_key(t, LEFT_ARROW,  0, "\x1B?t");
                term_assign_key(t, KP_5,        0, "\x1B?u");
                term_assign_key(t, RIGHT_ARROW, 0, "\x1B?v");
                term_assign_key(t, HOME,        0, "\x1B?w");
                term_assign_key(t, UP_ARROW,    0, "\x1B?x");
                term_assign_key(t, PAGE_UP,     0, "\x1B?y");
            }
            break;

        case MODE_DECKPNM:                  /* keypad numeric mode */
            term_assign_key(t, PLUS,        0, ",");   /* VT100 comma */
            term_assign_key(t, MINUS,       0, "-");
            if (isaddlf_(t)) term_assign_key(t, KP_ENTER, 0, "\r\n");
            else term_assign_key(t, KP_ENTER,  0, "\r");
            term_assign_key(t, DELETE,      0, ".");
            term_assign_key(t, INSERT,      0, "0");
            term_assign_key(t, END,         0, "1");
            term_assign_key(t, DOWN_ARROW,  0, "2");
            term_assign_key(t, PAGE_DOWN,   0, "3");
            term_assign_key(t, LEFT_ARROW,  0, "4");
            term_assign_key(t, KP_5,        0, "5");
            term_assign_key(t, RIGHT_ARROW, 0, "6");
            term_assign_key(t, HOME,        0, "7");
            term_assign_key(t, UP_ARROW,    0, "8");
            term_assign_key(t, PAGE_UP,     0, "9");
            break;

        case MODE_DECRC:                    /* restore cursor */
            t->crow = t->crowold;
            t->ccol = t->ccolold;
            (*t->cur_pos_)(t, t->ccol, t->crow);
            break;

        case MODE_DECSC:                    /* save cursor */
            t->crowold = t->crow;
            t->ccolold = t->ccol;
            break;

        case MODE_DECSCL:                   /* compatibility level */
            switch (t->num[0]) {
                case 61:
                    if (t->type != DEC_VT100)
                        init_term(t->port, t, (void (*)()) vt100_init, t->vid_init);
                    break;

                case 62:
                    if (t->num[1] == 0 || t->num[1] == 2) {
                        if (t->databits != 8) {
#if XDEBUG
                            printf("HOST: Requested 8-bit controls on < 8-bit line");
#endif
                        }
                        else {
                            /* set to 8-bit mode */
                        }
                    }
                    else if (t->num[1] == 1) {
                        if (t->type != DEC_VT220)
                            init_term(t->port, t, (void (*)()) vt220_init, t->vid_init);
                        if (t->databits != 7) (*t->set_databits)(t, 8);
                    }

                    break;

                default:
#if XDEBUG
                    printf("HOST: Tried to set unknown compatibility level");
#endif
                    break;
            }
            break;

        case MODE_DECSTBM:                  /* set top and bottom margins */
            if (t->num[0] < t->num[1]) {
                t->tmargin = (t->num[0] == 0) ? 0 : t->num[0]-1;
                t->bmargin = (t->num[1] == 0) ? t->d_rows - 1 : t->num[1]-1;
                t->ccol = t->crow = 0;
            }
            else {
                t->tmargin = t->ctmargin = 0;
                t->bmargin = t->cbmargin = t->d_rows - 1;
            }
            if (isdecom_(t)) {
                t->cbmargin = t->bmargin;
                t->ccol = t->clmargin = t->lmargin;
                t->crow = t->ctmargin = t->tmargin;
            }
            (*t->cur_pos_)(t, t->ccol, t->crow);
            break;

        case MODE_DECSWL:                   /* single width line */
            break;

        case MODE_DECANM:                   /* enter ANSI mode */
            t->mode |= DECANM;
            break;

        default:
#if XDEBUG
            printf("Unknown DEC Private command %s", t->cmdbuf);
#endif
            break;
    }
}