#include <stdlib.h>
#include <string.h>

#include "eve.h"
#include "eve_touch_engine.h"

static uint8_t touch_tag0;

static EVETouch touch_obj[EVE_MAX_TOUCH];
static EVETouchTimer touch_timer;

static eve_touch_handler_t touch_handler;
static void *touch_handler_param;
static uint8_t touch_tag_opt[256];

void eve_touch_init(void) {
    int i;

    touch_tag0 = 0;
    memset(&touch_timer, 0, sizeof(touch_timer));
    for (i=0; i<EVE_MAX_TOUCH; i++) {
        EVETouch *touch = &touch_obj[i];

        memset(&touch_obj[i], 0, sizeof(EVETouch));
        touch->eevt |= EVE_TOUCH_EETYPE_NOTOUCH;
    }
    eve_vtrack_init();
}

void eve_handle_touch(uint16_t intr_flags) {
    int i;

    for (i=0; i<EVE_MAX_TOUCH; i++) {
        uint32_t now = 0;
        uint16_t touch_evt = 0;
        EVETouch *touch = &touch_obj[i];

        now = eve_get_tick();

        if (intr_flags & EVE_INT_CONVCOMPLETE) {
            uint32_t touch_xy = eve_touch_reg_xy(i);
            uint16_t timer_evt;

            if (touch_xy != EVE_NOTOUCH) {
                int16_t touch_x = touch_xy >> 16;
                int16_t touch_y = touch_xy & 0xffff;
                int check_track, check_timer;

                if (touch->eevt & EVE_TOUCH_EETYPE_NOTOUCH) {
                    uint16_t _evt = 0;
                    uint16_t _eevt = 0;

                    timer_evt = eve_timer_get_evt(touch);
                    if (timer_evt) {
                        uint16_t _touch_evt = 0;

                        touch->eevt &= ~EVE_TOUCH_EETYPE_NOTOUCH;
                        if (timer_evt & EVE_TOUCH_ETYPE_TAP2) {
                            int dx = touch_x - touch->x0;
                            int dy = touch_y - touch->y0;

                            dx = dx < 0 ? -dx : dx;
                            dy = dy < 0 ? -dy : dy;
                            if ((dx > EVE_TOUCH_THRESHOLD_X) || (dy > EVE_TOUCH_THRESHOLD_Y)) {
                                _touch_evt |= EVE_TOUCH_ETYPE_TAP1;
                            } else {
                                _evt |= EVE_TOUCH_ETYPE_TAP2;
                                _eevt |= EVE_TOUCH_EETYPE_TAP2;
                            }
                        }
                        if (timer_evt & EVE_TOUCH_ETYPE_TRACK) {
                            EVEVTrack *vtrack = eve_vtrack_get();

                            _eevt |= EVE_TOUCH_EETYPE_TRACK_ABORT;
                            _touch_evt |= (EVE_TOUCH_ETYPE_TRACK_STOP | EVE_TOUCH_ETYPE_TRACK_ABORT);
                            if (vtrack->stop) vtrack->stop(touch, vtrack->param);
                        }
                        if (timer_evt & EVE_TOUCH_ETYPE_TIMER) {
                            _eevt |= EVE_TOUCH_EETYPE_TIMER_ABORT;
                            _touch_evt |= EVE_TOUCH_ETYPE_TIMER_ABORT;
                        }

                        eve_timer_clear(touch);
                        if (touch_handler && _touch_evt) {
                            touch_handler(touch_timer.touch, _touch_evt, touch_timer.tag0, touch_handler_param);
                        }
                    }
                    touch_evt |= EVE_TOUCH_ETYPE_POINT | _evt;
                    touch->eevt = _eevt;
                    touch->tag0 = 0;
                    touch->tag = 0;
                    touch->tag_up = 0;
                    touch->tracker.tag = 0;
                    touch->tracker.track = 0;
                    touch->tracker.val = 0;
                    touch->t = 0;
                    touch->vx = 0;
                    touch->vy = 0;
                    touch->x0 = touch_x;
                    touch->y0 = touch_y;
                } else if (touch->tracker.track) {
                    uint32_t dt = now - touch->t;
                    int vx = ((int)touch_x - touch->x) * EVE_RTC_FREQ / (int)dt;
                    int vy = ((int)touch_y - touch->y) * EVE_RTC_FREQ / (int)dt;

                    touch->vx = vx;
                    touch->vy = vy;
                    touch->t = now;
                }
                touch->x = touch_x;
                touch->y = touch_y;

                timer_evt = eve_timer_get_evt(touch);
                check_track = touch->tracker.tag && !touch->tracker.track;
                check_timer = timer_evt & (EVE_TOUCH_ETYPE_LPRESS | EVE_TOUCH_ETYPE_TAP2);

                if (check_track || check_timer) {
                    int dx = touch->x - touch->x0;
                    int dy = touch->y - touch->y0;

                    dx = dx < 0 ? -dx : dx;
                    dy = dy < 0 ? -dy : dy;
                    if (check_track) {
                        if ((dx > EVE_TOUCH_THRESHOLD_X) && !(touch_tag_opt[touch->tracker.tag] & EVE_TOUCH_OPT_TRACK_X)) {
                            touch->tracker.tag = 0;
                        }
                        if ((dy > EVE_TOUCH_THRESHOLD_Y) && !(touch_tag_opt[touch->tracker.tag] & EVE_TOUCH_OPT_TRACK_Y)) {
                            touch->tracker.tag = 0;
                        }
                        if (touch->tracker.tag && ((dx > EVE_TOUCH_THRESHOLD_X) || (dy > EVE_TOUCH_THRESHOLD_Y))) {
                            if (dx > EVE_TOUCH_THRESHOLD_X) {
                                touch->eevt |= touch->x > touch->x0 ? EVE_TOUCH_EETYPE_TRACK_RIGHT : EVE_TOUCH_EETYPE_TRACK_LEFT;
                            }
                            if (dy > EVE_TOUCH_THRESHOLD_Y) {
                                touch->eevt |= touch->y > touch->y0 ? EVE_TOUCH_EETYPE_TRACK_DOWN : EVE_TOUCH_EETYPE_TRACK_UP;
                            }
                            touch_evt |= EVE_TOUCH_ETYPE_TRACK_START;
                            touch->tracker.track = 1;
                            touch->t = now;
                        }
                    }
                    if (check_timer && ((dx > EVE_TOUCH_THRESHOLD_X) || (dy > EVE_TOUCH_THRESHOLD_Y))) {
                        eve_timer_set_evt(touch, timer_evt & ~(EVE_TOUCH_ETYPE_LPRESS | EVE_TOUCH_ETYPE_TAP2));
                    }
                }
                if (touch->tracker.tag && touch->tracker.track) {
                    if (touch_tag_opt[touch->tracker.tag] & EVE_TOUCH_OPT_TRACK) touch_evt |= EVE_TOUCH_ETYPE_TRACK;
                    if (touch_tag_opt[touch->tracker.tag] & EVE_TOUCH_OPT_TRACK_REG) touch_evt |= EVE_TOUCH_ETYPE_TRACK_REG;
                }
                if (touch_evt & EVE_TOUCH_ETYPE_TRACK_REG) {
                    uint32_t touch_track = eve_touch_reg_track(i);

                    if (touch->tracker.tag == (touch_track & 0xff)) {
                        touch->tracker.val = touch_track >> 16;
                    } else {
                        touch_evt &= ~EVE_TOUCH_ETYPE_TRACK_REG;
                    }
                }
            } else {
                if (!(touch->eevt & EVE_TOUCH_EETYPE_NOTOUCH)) {
                    touch_evt |= EVE_TOUCH_ETYPE_POINT_UP;
                    touch->eevt |= EVE_TOUCH_EETYPE_NOTOUCH;

                    timer_evt = eve_timer_get_evt(touch);
                    if (timer_evt & EVE_TOUCH_ETYPE_LPRESS) {
                        eve_timer_set_evt(touch, timer_evt & ~EVE_TOUCH_ETYPE_LPRESS);
                    }
                    if (touch->tracker.tag && touch->tracker.track) {
                        uint8_t opt = touch_tag_opt[touch->tracker.tag];
                        uint8_t track_ext = ((opt & EVE_TOUCH_OPT_TRACK_EXT_X) && (touch->eevt & EVE_TOUCH_EETYPE_TRACK_X)) ||
                                            ((opt & EVE_TOUCH_OPT_TRACK_EXT_Y) && (touch->eevt & EVE_TOUCH_EETYPE_TRACK_Y));
                        if (!eve_timer_get_evt(NULL) && track_ext) {
                            EVEVTrack *vtrack = eve_vtrack_get();

                            eve_timer_set(touch, EVE_TOUCH_ETYPE_TRACK, touch_tag0, EVE_TOUCH_TIMEOUT_TRACK);
                            if (vtrack->start) vtrack->start(touch, vtrack->param);
                        } else {
                            touch_evt |= EVE_TOUCH_ETYPE_TRACK_STOP;
                        }
                    }
                }
            }
        }

        if (intr_flags & EVE_INT_TAG) {
            uint8_t touch_tag = eve_touch_reg_tag(i);

            if (touch_tag != touch->tag) {
                if (touch_tag) {
                    if (!touch_tag0) touch_tag0 = touch_tag;
                    if (!touch->tag0) {
                        touch->tag0 = touch_tag;
                        if (touch_tag_opt[touch_tag] & (EVE_TOUCH_OPT_TRACK | EVE_TOUCH_OPT_TRACK_REG)) {
                            touch->tracker.tag = touch_tag;
                        }
                        if (touch->tracker.tag && !(touch_tag_opt[touch->tracker.tag] & EVE_TOUCH_OPT_TRACK_XY)) {
                            touch_evt |= EVE_TOUCH_ETYPE_TRACK_START;
                            touch->tracker.track = 1;
                            touch->t = now;
                        }
                        if (!eve_timer_get_evt(NULL) && (touch_tag_opt[touch_tag] & (EVE_TOUCH_OPT_LPRESS | EVE_TOUCH_OPT_TAP2))) {
                            uint16_t _evt = 0;

                            if (touch_tag_opt[touch_tag] & EVE_TOUCH_OPT_LPRESS) _evt |= EVE_TOUCH_ETYPE_LPRESS;
                            if (touch_tag_opt[touch_tag] & EVE_TOUCH_OPT_TAP2) _evt |= EVE_TOUCH_ETYPE_TAP2;
                            eve_timer_set(touch, _evt, touch_tag0, EVE_TOUCH_TIMEOUT_TAP);
                        }
                    }
                }
                touch->tag_up = touch->tag;
                if (touch->tag_up) touch_evt |= EVE_TOUCH_ETYPE_TAG_UP;
                touch->tag = touch_tag;
                if (touch->tag) touch_evt |= EVE_TOUCH_ETYPE_TAG;
            }
        }

        if (touch_handler && touch_evt) {
            touch_handler(touch, touch_evt, touch_tag0, touch_handler_param);
        }
    }
}

void eve_handle_time(void) {
    EVETouch *touch = touch_timer.touch;

    if (touch_timer.evt) {
        int more = 0;
        uint16_t touch_evt = 0;

        if (touch_timer.evt & EVE_TOUCH_ETYPE_LPRESS) {
            touch_evt |= EVE_TOUCH_ETYPE_LPRESS;
            if (touch) touch->eevt |= EVE_TOUCH_EETYPE_LPRESS;
        }
        if (touch_timer.evt & EVE_TOUCH_ETYPE_TAP2) {
            touch_evt |= EVE_TOUCH_ETYPE_TAP1;
        }
        if (touch_timer.evt & EVE_TOUCH_ETYPE_TRACK) {
            EVEVTrack *vtrack = eve_vtrack_get();

            if (vtrack->tick) {
                touch_evt |= EVE_TOUCH_ETYPE_TRACK;
                more = vtrack->tick(touch, vtrack->param);
            }
            if (!more) {
                touch_evt |= EVE_TOUCH_ETYPE_TRACK_STOP;
                if (vtrack->stop) vtrack->stop(touch, vtrack->param);
            }
        }
        if (touch_timer.evt & EVE_TOUCH_ETYPE_TIMER) {
            touch_evt |= EVE_TOUCH_ETYPE_TIMER;
            more = 1;
        }

        if (more) {
            eve_sys_timer_set(touch_timer.to);
        } else {
            touch_timer.evt = 0;
        }

        if (touch_handler && touch_evt) {
            touch_handler(touch, touch_evt, touch_timer.tag0, touch_handler_param);
        }
    }
}

void eve_touch_set_handler(eve_touch_handler_t handler, void *param) {
    touch_handler = handler;
    touch_handler_param = param;
}

EVETouch *eve_touch_get_obj(int i) {
    return &touch_obj[i];
}

int8_t eve_touch_get_idx(EVETouch *touch) {
    if (touch == NULL) return -1;
    return touch - touch_obj;
}

uint16_t eve_touch_evt(EVETouch *touch, uint16_t evt, uint8_t tag0, uint8_t tag_min, uint8_t tag_n) {
    int tag_max;
    uint8_t _tag;
    uint16_t _evt;

    if (tag_min == EVE_NOTAG) return 0;

    tag_max = tag_min + tag_n;
    if ((tag0 < tag_min) || (tag0 >= tag_max)) return 0;

    _evt = evt & (EVE_TOUCH_ETYPE_TIMER_MASK | EVE_TOUCH_ETYPE_USR_MASK);
    if (touch == NULL) return _evt;

    _evt |= evt & EVE_TOUCH_ETYPE_POINT_MASK;
    if (evt & EVE_TOUCH_ETYPE_TAG) {
        _tag = touch->tag;
        if ((_tag >= tag_min) && (_tag < tag_max)) _evt |= EVE_TOUCH_ETYPE_TAG;
    }
    if (evt & EVE_TOUCH_ETYPE_TAG_UP) {
        _tag = touch->tag_up;
        if ((_tag >= tag_min) && (_tag < tag_max)) _evt |= EVE_TOUCH_ETYPE_TAG_UP;
    }
    if (evt & EVE_TOUCH_ETYPE_TRACK_MASK) {
        _tag = touch->tracker.tag;
        if ((_tag >= tag_min) && (_tag < tag_max)) _evt |= evt & EVE_TOUCH_ETYPE_TRACK_MASK;
    }
    if (evt & (EVE_TOUCH_ETYPE_LPRESS | EVE_TOUCH_ETYPE_TAP1 | EVE_TOUCH_ETYPE_TAP2)) {
        _tag = touch->tag0;
        if ((_tag >= tag_min) && (_tag < tag_max)) _evt |= evt & (EVE_TOUCH_ETYPE_LPRESS | EVE_TOUCH_ETYPE_TAP1 | EVE_TOUCH_ETYPE_TAP2);
    }

    return _evt;
}

void eve_touch_set_opt(uint8_t tag, uint8_t opt) {
    touch_tag_opt[tag] = opt;
}

uint8_t eve_touch_get_opt(uint8_t tag) {
    return touch_tag_opt[tag];
}

void eve_touch_clear_opt(void) {
    memset(touch_tag_opt, 0, sizeof(touch_tag_opt));
}

void eve_timer_set(EVETouch *touch, uint16_t evt, uint8_t tag0, uint32_t to) {
    touch_timer.touch = touch;
    touch_timer.evt = evt;
    touch_timer.tag0 = tag0;
    touch_timer.to = to;
    eve_sys_timer_set(to);
}

void eve_timer_clear(EVETouch *touch) {
    eve_timer_set_evt(touch, 0);
}

void eve_timer_set_evt(EVETouch *touch, uint16_t evt) {
    if ((touch == NULL) || (touch == touch_timer.touch)) {
        touch_timer.evt = evt;
    } else if (touch_timer.touch == NULL) {
        touch_timer.evt = evt;
    }
    if (!touch_timer.evt) {
        eve_sys_timer_clear();
        touch_timer.touch = NULL;
        touch_timer.tag0 = 0;
        touch_timer.to = 0;
    }
}

uint16_t eve_timer_get_evt(EVETouch *touch) {
    uint16_t ret = 0;

    if ((touch == NULL) || (touch_timer.touch == touch)) {
        ret = touch_timer.evt;
    } else if (touch_timer.touch == NULL) {
        ret = touch_timer.evt;
    }
    return ret;
}

EVETouchTimer *eve_timer_get_obj(void) {
    return &touch_timer;
}

void eve_timer_start(uint8_t tag0, uint32_t to) {
    if (!touch_timer.evt) eve_timer_set(NULL, EVE_TOUCH_ETYPE_TIMER, tag0, to);
}

void eve_timer_stop(void) {
    if (touch_timer.touch == NULL) eve_timer_clear(NULL);
}

void eve_touch_clear_tag0(void) {
    touch_tag0 = 0;
}