#include <string.h>
#include <ncursesw/curses.h>
#include <wchar.h>
#include <wctype.h>
#include "cmds.h"
#include "screen.h"
#include "buffer.h"
#include "sc.h"    // for rescol
#include "cmds_edit.h"
#include "utils/string.h"
#include "interp.h"
#include "marks.h"

// this macro is used to determinate a word over a WORD
#define istext(a)    (iswalnum(a) || ((a) == L'_'))

wint_t get_key() {
     static wint_t wi;                      // char read from stdin

     wtimeout(input_win, -1);
     move(0, rescol + inputline_pos + 1);
     wget_wch(input_win, & wi);             // return value of wget_wch()
     wtimeout(input_win, TIMEOUT_CURSES);
     if ( wi != OKEY_ESC ) return wi;
     return -1;
}

void do_editmode(struct block * sb) {
    if (sb->value == L'h' || sb->value == OKEY_LEFT) {         // LEFT
        if (real_inputline_pos) {
            real_inputline_pos--;
            inputline_pos = wcswidth(inputline, real_inputline_pos);
            show_header(input_win);
        }
        return;

    } else if (sb->value == L'l' || sb->value == OKEY_RIGHT) { // RIGHT
        if (real_inputline_pos < wcslen(inputline)-1) {
            real_inputline_pos++;
            inputline_pos = wcswidth(inputline, real_inputline_pos);
            show_header(input_win);
        }
        return;

    } else if (sb->value == L' ' && ( wcslen(inputline) < (COLS - 14) ) ) {         // SPACE
        add_wchar(inputline, L' ', real_inputline_pos);
        show_header(input_win);
        return;

    } else if (sb->value == L'0' || sb->value == OKEY_HOME) {         // 0
        inputline_pos = 0;
        real_inputline_pos = 0;
        show_header(input_win);
        return;

    } else if (sb->value == L'$' || sb->value == OKEY_END) {          // $
        inputline_pos = wcswidth(inputline, wcslen(inputline)) - 1;
        real_inputline_pos = wcslen(inputline) - 1;
        show_header(input_win);
        return;

    } else if (sb->value == L'I') {         // I
        inputline_pos = 0;
        real_inputline_pos = 0;
        chg_mode(insert_edit_submode);
        show_header(input_win);
        return;

    } else if (sb->value == L'i' ||  sb->value == L'=') {         // i o =
        chg_mode(insert_edit_submode);
        show_header(input_win);
        return;

    } else if (sb->value == L'x') {         // x
        del_back_char();
        show_header(input_win);
        return;

    } else if (sb->value == L'X') {         // X
        del_for_char();
        show_header(input_win);
        return;

    } else if (sb->value == L'r') {         // r
        curs_set(1);
        wint_t c = get_key();
        if (c != -1) inputline[real_inputline_pos] = c;
        curs_set(2);
        show_header(input_win);
        return;

    } else if (find_val(sb, OKEY_ENTER)) {  // ENTER
        insert_or_edit_cell(); 
        show_header(input_win);
        return;

    } else if (sb->value == L'a') {         // a
        real_inputline_pos++;
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        chg_mode(insert_edit_submode);
        show_header(input_win);
        return;

    } else if (sb->value == L'A') {         // A
        real_inputline_pos = wcslen(inputline);
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        chg_mode(insert_edit_submode);
        show_header(input_win);
        return;

    } else if (sb->value == L'D') {         // D
        inputline[real_inputline_pos] = L'\0';
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        show_header(input_win);
        return;

    } else if (sb->value == L's') {         // s
        del_back_char();
        chg_mode(insert_edit_submode);
        show_header(input_win);
        return;

    } else if (sb->value == L'f') {         // f
        wint_t c = get_key();
        int pos = look_for((wchar_t) c); // this returns real_inputline_pos !
        if (pos != -1) {
            real_inputline_pos = pos;
            inputline_pos = wcswidth(inputline, real_inputline_pos);
            show_header(input_win);
        }
        return;

    } else if (sb->value == L'w') {         // w
        real_inputline_pos = for_word(0, 0, 0);
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        show_header(input_win);
        return;

    } else if (sb->value == L'W') {         // W
        real_inputline_pos = for_word(0, 0, 1);
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        show_header(input_win);
        return;

    } else if (sb->value == L'e') {         // e
        real_inputline_pos = for_word(1, 0, 0);
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        show_header(input_win);
        return;

    } else if (sb->value == L'E') {         // E
        real_inputline_pos = for_word(1, 0, 1);
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        show_header(input_win);
        return;

    } else if (sb->value == L'b') {         // b
        real_inputline_pos = back_word(0);
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        show_header(input_win);
        return;

    } else if (sb->value == L'B') {         // B
        real_inputline_pos = back_word(1);
        inputline_pos = wcswidth(inputline, real_inputline_pos);
        show_header(input_win);
        return;

    } else if (sb->value == L'R') {         // R
        curs_set(1);
        wint_t c = get_key();
        while (c != OKEY_ENTER && c != -1) {
            if (iswprint(c)) {
                inputline[real_inputline_pos] = c;
                ++real_inputline_pos;
                inputline_pos = wcswidth(inputline, real_inputline_pos);

                mvwprintw(input_win, 0, 1 + rescol, "%ls", inputline);
                wmove(input_win, 0, inputline_pos + 1 + rescol);
                wrefresh(input_win);
            }
            c = get_key();
        }
        curs_set(2);


    } else if (sb->value == L'd' || sb->value == L'c') {         // d or c
        wint_t c, d;
        if ( (c = get_key()) != -1 ) {
             switch (c) {
             case L'e':                     // de or ce
                 del_range_wchars(inputline, real_inputline_pos, for_word(1, 0, 0));
                 break;

             case L'E':                     // dE or cE
                 del_range_wchars(inputline, real_inputline_pos, for_word(1, 0, 1));
                 break;

             case L'w':                     // dw or cw
                 del_range_wchars(inputline, real_inputline_pos, for_word(0, 1, 0) - 1);
                 inputline_pos = wcswidth(inputline, real_inputline_pos);
                 if (real_inputline_pos == wcslen(inputline) && real_inputline_pos) real_inputline_pos--;
                 break;

             case L'W':                     // dW or cW
                 del_range_wchars(inputline, real_inputline_pos, for_word(0, 1, 1) - 1);
                 inputline_pos = wcswidth(inputline, real_inputline_pos);
                 if (real_inputline_pos == wcslen(inputline) && real_inputline_pos) real_inputline_pos--;
                 break;

             case L'b':                     // db or cb
                 d = back_word(0);
                 del_range_wchars(inputline, d, real_inputline_pos-1);
                 real_inputline_pos = d;
                 inputline_pos = wcswidth(inputline, real_inputline_pos);
                 break;

             case L'B':                     // dB or cB
                 d = back_word(1);
                 del_range_wchars(inputline, d, real_inputline_pos-1);
                 real_inputline_pos = d;
                 inputline_pos = wcswidth(inputline, real_inputline_pos);
                 break;

             case L'l':                     // dl or cl
             case OKEY_RIGHT:
                 del_back_char();
                 break;

             case L'h':                     // dh or ch
             case OKEY_LEFT:
                 del_for_char();
                 break;

             case L'a':
                 if ( (d = get_key()) == L'W' ) {     // daW or caW
                     c = ( real_inputline_pos && inputline[real_inputline_pos-1] == L' ' ) ? real_inputline_pos : back_word(1);
                     del_range_wchars(inputline, c, for_word(0, 1, 1) - 1);
                     real_inputline_pos = (wcslen(inputline) > real_inputline_pos) ? c : wcslen(inputline)-2;
                     inputline_pos = wcswidth(inputline, real_inputline_pos);
                 } else if ( d == L'w' ) { // daw or caw
                     d = ( real_inputline_pos && ! istext( inputline[real_inputline_pos-1]) ) ? real_inputline_pos : back_word(0);
                     del_range_wchars(inputline, d, for_word(0, 1, 0) - 1);
                     real_inputline_pos = (wcslen(inputline) > real_inputline_pos) ? d : wcslen(inputline)-2;
                     inputline_pos = wcswidth(inputline, real_inputline_pos);
                 }
                 break;
             }
             if (sb->value == L'c') chg_mode(insert_edit_submode);
        }

    }
    show_header(input_win);
    return;
}

// looks for a char in inputline
int look_for(wchar_t cb) {
    int c, cpos = inputline_pos;
    while (++cpos < wcslen(inputline))
        if ((c = inputline[cpos]) && c == cb) return cpos;
    if (cpos > 0 && cpos == wcslen(inputline)) return real_inputline_pos;
    return -1;
}

// move backwards a word
int back_word(int big_word) {
    int c, cpos = real_inputline_pos;
    if (inputline[cpos-1] == L' ' ) cpos--;

    while (cpos)
        if ((c = inputline[--cpos]) && c == L' ' ) return cpos+1;
        else if ( istext( inputline [cpos] ) && ! istext( inputline[cpos - 1] ) && ! big_word ) return cpos;
        else if ( ! istext( inputline [cpos] ) && istext( inputline[cpos - 1] ) && ! big_word ) return cpos;
    return cpos;
}

// end_of_word is used for moving forward to end of a WORD
// big_word looks for ' ', else looks for istext.
// delete 1 is used when typing dw command
int for_word(int end_of_word, int delete, int big_word) {
    int cpos = real_inputline_pos;

    if (! end_of_word) { // w or W
        while ( ++cpos < wcslen(inputline) ) 
            if ( ! istext( inputline[cpos - 1]) && inputline[cpos] != L' ' && ! big_word ) return cpos;
            else if ( inputline[cpos] == L' ' ) return ++cpos;
            else if ( ! istext( inputline [cpos] ) && istext( inputline[cpos - 1] ) && ! big_word ) return cpos;
    } else {             // e or E
        if ( inputline[cpos+1] == L' ' ) cpos += 2;
        else if ( ! istext( inputline [cpos+1] ) && istext( inputline[cpos] ) && ! big_word ) cpos++;
        while ( ++cpos < wcslen(inputline) )
            if ( ( inputline[cpos] == L' ' ) || ( ! istext( inputline [cpos] )
            && istext( inputline[cpos - 1] ) && ! big_word ) ) return --cpos;
    }

    if (cpos > 0 && cpos >= wcslen(inputline)) return wcslen(inputline) - 1 + delete;
    return 0;
}

// REVISADO
void del_back_char() {      // x   DEL
    int max = wcswidth(inputline, wcslen(inputline));
    if (inputline_pos > max) return;
    int l = wcwidth(inputline[real_inputline_pos]);
    del_wchar(inputline, real_inputline_pos);
    if (real_inputline_pos == wcslen(inputline) && wcslen(inputline)) {
        inputline_pos -= l;
        real_inputline_pos--;
    } else if (! wcslen(inputline)) {
        inputline_pos = 0;
    }
    return;
}

// REVISADO
void del_for_char() {       // X    BS
    if ( ! wcslen(inputline) || ! real_inputline_pos ) return;
    int l = wcwidth(inputline[real_inputline_pos - 1]);
    del_wchar(inputline, real_inputline_pos-1);
    real_inputline_pos--;
    inputline_pos -= l;
    return;
}

// return 1 OK
// return 0 on error
int start_edit_mode(struct block * buf, char type) {
    chg_mode(buf->value);

    line[0]='\0';
    inputline[0]=L'\0';

    struct ent * p1 = lookat(currow, curcol);

    if (type == 'v') { // && p1->flags & is_valid) {   // numeric value
        if (( ! (p1->expr) ) ) {                       // || (p1->flags & is_strexpr)) {
            (void) swprintf(inputline, BUFFERSIZE, L"%.15g", p1->v);
        } else {              // expression
            linelim = 0;
            editexp(currow, curcol);
            linelim = -1;
            (void) swprintf(inputline, BUFFERSIZE, L"%s", line);
        }
        insert_edit_submode='=';

    } else if (type == 's') { // string value
        if (! ((p1)->label || (p1)->flags & is_strexpr)) {
            return 0;
        }
        if (p1->flags & is_label) {
            insert_edit_submode='\\';
        } else if (p1->flags & is_leftflush) {
            insert_edit_submode='<';
        } else {
            insert_edit_submode='>';
        }
        linelim = 0;
        edits(currow, curcol, 0);
        linelim = -1;
        (void) swprintf(inputline, BUFFERSIZE, L"%s", line);
    }
    inputline_pos = wcswidth(inputline, wcslen(inputline)) - 1;
    real_inputline_pos = wcslen(inputline) - 1;
    show_header(input_win);
    return 1;
}