/*

    Copyright (C) 2009-2010 ProFUSION embedded systems

    Copyright (C) 2009-2010 Samsung Electronics

    This library is free software; you can redistribute it and/or

    modify it under the terms of the GNU Library General Public

    License as published by the Free Software Foundation; either

    version 2 of the License, or (at your option) any later version.

    This library 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

    Library General Public License for more details.

    You should have received a copy of the GNU Library General Public License

    along with this library; see the file COPYING.LIB.  If not, write to

    the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

    Boston, MA 02110-1301, USA.

*/

#define __STDC_FORMAT_MACROS

#include "config.h"

#include "ewk_view.h"

#include "ChromeClientEfl.h"

#include "ContextMenuClientEfl.h"

#include "ContextMenuController.h"

#include "DocumentLoader.h"

#include "DragClientEfl.h"

#include "EWebKit.h"

#include "EditorClientEfl.h"

#include "EventHandler.h"

#include "FocusController.h"

#include "FrameLoaderClientEfl.h"

#include "FrameView.h"

#include "GraphicsContext.h"

#include "InspectorClientEfl.h"

#include "PlatformMouseEvent.h"

#include "PopupMenuClient.h"

#include "ProgressTracker.h"

#include "ewk_private.h"

#include <Ecore.h>

#include <Eina.h>

#include <Evas.h>

#include <eina_safety_checks.h>

#include <inttypes.h>

#include <sys/time.h>

#define ZOOM_MIN (0.05)

#define ZOOM_MAX (4.0)

static const char EWK_VIEW_TYPE_STR[] = "EWK_View";

static const size_t EWK_VIEW_REPAINTS_SIZE_INITIAL = 32;

static const size_t EWK_VIEW_REPAINTS_SIZE_STEP = 8;

static const size_t EWK_VIEW_REPAINTS_SIZE_MAX_FREE = 64;

static const size_t EWK_VIEW_SCROLLS_SIZE_INITIAL = 8;

static const size_t EWK_VIEW_SCROLLS_SIZE_STEP = 2;

static const size_t EWK_VIEW_SCROLLS_SIZE_MAX_FREE = 32;

struct _Ewk_View_Private_Data {

    WebCore::Page* page;

    WebCore::Settings* page_settings;

    WebCore::Frame* main_frame;

    Ewk_History* history;

    struct {

        Ewk_Menu menu;

        WebCore::PopupMenuClient* menu_client;

    } popup;

    struct {

        Eina_Rectangle* array;

        size_t count;

        size_t allocated;

    } repaints;

    struct {

        Ewk_Scroll_Request* array;

        size_t count;

        size_t allocated;

    } scrolls;

    struct {

        const char* user_agent;

        const char* user_stylesheet;

        const char* encoding_default;

        const char* encoding_custom;

        int font_minimum_size;

        int font_minimum_logical_size;

        int font_default_size;

        int font_monospace_size;

        const char* font_standard;

        const char* font_cursive;

        const char* font_monospace;

        const char* font_fantasy;

        const char* font_serif;

        const char* font_sans_serif;

        Eina_Bool auto_load_images:1;

        Eina_Bool auto_shrink_images:1;

        Eina_Bool enable_scripts:1;

        Eina_Bool enable_plugins:1;

        Eina_Bool scripts_window_open:1;

        Eina_Bool resizable_textareas:1;

        Eina_Bool private_browsing:1;

        Eina_Bool caret_browsing:1;

        struct {

            float w;

            float h;

            float init_scale;

            float min_scale;

            float max_scale;

            float user_scalable;

        } viewport;

        struct {

            float min_scale;

            float max_scale;

            Eina_Bool user_scalable:1;

        } zoom_range;

    } settings;

    struct {

        struct {

            double start;

            double end;

            double duration;

        } time;

        struct {

            float start;

            float end;

            float range;

        } zoom;

        struct {

            Evas_Coord x, y;

        } center;

        Ecore_Animator* animator;

    } animated_zoom;

    struct {

        Evas_Coord w, h;

        Eina_Bool use:1;

    } fixed_layout;

};

#ifndef EWK_TYPE_CHECK

#define EWK_VIEW_TYPE_CHECK(o, ...) do { } while (0)

#else

#define EWK_VIEW_TYPE_CHECK(o, ...)                                     \

    do {                                                                \

        const char* _tmp_otype = evas_object_type_get(o);               \

        const Evas_Smart* _tmp_s = evas_object_smart_smart_get(o);      \

        if (EINA_UNLIKELY(!_tmp_s)) {                                   \

            EINA_LOG_CRIT                                               \

                ("%p (%s) is not a smart object!", o,                   \

                 _tmp_otype ? _tmp_otype : "(null)");                   \

            return __VA_ARGS__;                                         \

        }                                                               \

        const Evas_Smart_Class* _tmp_sc = evas_smart_class_get(_tmp_s); \

        if (EINA_UNLIKELY(!_tmp_sc)) {                                  \

            EINA_LOG_CRIT                                               \

                ("%p (%s) is not a smart object!", o,                   \

                 _tmp_otype ? _tmp_otype : "(null)");                   \

            return __VA_ARGS__;                                         \

        }                                                               \

        if (EINA_UNLIKELY(_tmp_sc->data != EWK_VIEW_TYPE_STR)) {        \

            EINA_LOG_CRIT                                               \

                ("%p (%s) is not of an ewk_view (need %p, got %p)!",    \

                 o, _tmp_otype ? _tmp_otype : "(null)",                 \

                 EWK_VIEW_TYPE_STR, _tmp_sc->data);                     \

            return __VA_ARGS__;                                         \

        }                                                               \

    } while (0)

#endif

#define EWK_VIEW_SD_GET(o, ptr)                                 \

    Ewk_View_Smart_Data* ptr = (Ewk_View_Smart_Data*)evas_object_smart_data_get(o)

#define EWK_VIEW_SD_GET_OR_RETURN(o, ptr, ...)          \

    EWK_VIEW_TYPE_CHECK(o, __VA_ARGS__);                \

    EWK_VIEW_SD_GET(o, ptr);                            \

    if (!ptr) {                                         \

        CRITICAL("no smart data for object %p (%s)",    \

                 o, evas_object_type_get(o));           \

        return __VA_ARGS__;                             \

    }

#define EWK_VIEW_PRIV_GET(sd, ptr)              \

    Ewk_View_Private_Data* ptr = sd->_priv

#define EWK_VIEW_PRIV_GET_OR_RETURN(sd, ptr, ...)               \

    EWK_VIEW_PRIV_GET(sd, ptr);                                 \

    if (!ptr) {                                                 \

        CRITICAL("no private data for object %p (%s)",          \

                 sd->self, evas_object_type_get(sd->self));     \

        return __VA_ARGS__;                                     \

    }

static void _ewk_view_smart_changed(Ewk_View_Smart_Data* sd)

{

    if (sd->changed.any)

        return;

    sd->changed.any = EINA_TRUE;

    evas_object_smart_changed(sd->self);

}

static Eina_Bool _ewk_view_repaints_resize(Ewk_View_Private_Data* priv, size_t size)

{

    void* tmp = realloc(priv->repaints.array, size * sizeof(Eina_Rectangle));

    if (!tmp) {

        CRITICAL("could not realloc repaints array to %zu elements.", size);

        return EINA_FALSE;

    }

    priv->repaints.allocated = size;

    priv->repaints.array = (Eina_Rectangle*)tmp;

    return EINA_TRUE;

}

static void _ewk_view_repaint_add(Ewk_View_Private_Data* priv, Evas_Coord x, Evas_Coord y, Evas_Coord w, Evas_Coord h)

{

    Eina_Rectangle* r;

    // fprintf(stderr, ">>> repaint requested: %d,%d+%dx%d\n", x, y, w, h);

    if (priv->repaints.allocated == priv->repaints.count) {

        size_t size;

        if (!priv->repaints.allocated)

            size = EWK_VIEW_REPAINTS_SIZE_INITIAL;

        else

            size = priv->repaints.allocated + EWK_VIEW_REPAINTS_SIZE_STEP;

        if (!_ewk_view_repaints_resize(priv, size))

            return;

    }

    r = priv->repaints.array + priv->repaints.count;

    priv->repaints.count++;

    r->x = x;

    r->y = y;

    r->w = w;

    r->h = h;

    DBG("add repaint %d,%d+%dx%d", x, y, w, h);

}

static void _ewk_view_repaints_flush(Ewk_View_Private_Data* priv)

{

    priv->repaints.count = 0;

    if (priv->repaints.allocated <= EWK_VIEW_REPAINTS_SIZE_MAX_FREE)

        return;

    _ewk_view_repaints_resize(priv, EWK_VIEW_REPAINTS_SIZE_MAX_FREE);

}

static Eina_Bool _ewk_view_scrolls_resize(Ewk_View_Private_Data* priv, size_t size)

{

    void* tmp = realloc(priv->scrolls.array, size * sizeof(Ewk_Scroll_Request));

    if (!tmp) {

        CRITICAL("could not realloc scrolls array to %zu elements.", size);

        return EINA_FALSE;

    }

    priv->scrolls.allocated = size;

    priv->scrolls.array = (Ewk_Scroll_Request*)tmp;

    return EINA_TRUE;

}

static void _ewk_view_scroll_add(Ewk_View_Private_Data* priv, Evas_Coord dx, Evas_Coord dy, Evas_Coord x, Evas_Coord y, Evas_Coord w, Evas_Coord h, Eina_Bool main_scroll)

{

    Ewk_Scroll_Request* r;

    Ewk_Scroll_Request* r_end;

    Evas_Coord x2 = x + w, y2 = y + h;

    r = priv->scrolls.array;

    r_end = r + priv->scrolls.count;

    for (; r < r_end; r++) {

        if (r->x == x && r->y == y && r->w == w && r->h == h) {

            DBG("region already scrolled %d,%d+%dx%d %+03d,%+03d add "

                "%+03d,%+03d",

                r->x, r->y, r->w, r->h, r->dx, r->dy, dx, dy);

            r->dx += dx;

            r->dy += dy;

            return;

        }

        if ((x <= r->x && x2 >= r->x2) && (y <= r->y && y2 >= r->y2)) {

            DBG("old viewport (%d,%d+%dx%d %+03d,%+03d) was scrolled itself, "

                "add %+03d,%+03d",

                r->x, r->y, r->w, r->h, r->dx, r->dy, dx, dy);

            r->x += dx;

            r->y += dy;

        }

    }

    if (priv->scrolls.allocated == priv->scrolls.count) {

        size_t size;

        if (!priv->scrolls.allocated)

            size = EWK_VIEW_SCROLLS_SIZE_INITIAL;

        else

            size = priv->scrolls.allocated + EWK_VIEW_SCROLLS_SIZE_STEP;

        if (!_ewk_view_scrolls_resize(priv, size))

            return;

    }

    r = priv->scrolls.array + priv->scrolls.count;

    priv->scrolls.count++;

    r->x = x;

    r->y = y;

    r->w = w;

    r->h = h;

    r->x2 = x2;

    r->y2 = y2;

    r->dx = dx;

    r->dy = dy;

    r->main_scroll = main_scroll;

    DBG("add scroll in region: %d,%d+%dx%d %+03d,%+03d", x, y, w, h, dx, dy);

    Eina_Rectangle* pr;

    Eina_Rectangle* pr_end;

    size_t count;

    pr = priv->repaints.array;

    count = priv->repaints.count;

    pr_end = pr + count;

    for (; pr < pr_end; pr++) {

        pr->x += dx;

        pr->y += dy;

    }

}

static void _ewk_view_scrolls_flush(Ewk_View_Private_Data* priv)

{

    priv->scrolls.count = 0;

    if (priv->scrolls.allocated <= EWK_VIEW_SCROLLS_SIZE_MAX_FREE)

        return;

    _ewk_view_scrolls_resize(priv, EWK_VIEW_SCROLLS_SIZE_MAX_FREE);

}

// Default Event Handling //////////////////////////////////////////////

static Eina_Bool _ewk_view_smart_focus_in(Ewk_View_Smart_Data* sd)

{

    EWK_VIEW_PRIV_GET(sd, priv);

    WebCore::FocusController* fc = priv->page->focusController();

    DBG("o=%p, fc=%p", sd->self, fc);

    EINA_SAFETY_ON_NULL_RETURN_VAL(fc, EINA_FALSE);

    fc->setActive(true);

    fc->setFocused(true);

    return EINA_TRUE;

}

static Eina_Bool _ewk_view_smart_focus_out(Ewk_View_Smart_Data* sd)

{

    EWK_VIEW_PRIV_GET(sd, priv);

    WebCore::FocusController* fc = priv->page->focusController();

    DBG("o=%p, fc=%p", sd->self, fc);

    EINA_SAFETY_ON_NULL_RETURN_VAL(fc, EINA_FALSE);

    fc->setActive(false);

    fc->setFocused(false);

    return EINA_TRUE;

}

static Eina_Bool _ewk_view_smart_mouse_wheel(Ewk_View_Smart_Data* sd, const Evas_Event_Mouse_Wheel* ev)

{

    return ewk_frame_feed_mouse_wheel(sd->main_frame, ev);

}

static Eina_Bool _ewk_view_smart_mouse_down(Ewk_View_Smart_Data* sd, const Evas_Event_Mouse_Down* ev)

{

    return ewk_frame_feed_mouse_down(sd->main_frame, ev);

}

static Eina_Bool _ewk_view_smart_mouse_up(Ewk_View_Smart_Data* sd, const Evas_Event_Mouse_Up* ev)

{

    return ewk_frame_feed_mouse_up(sd->main_frame, ev);

}

static Eina_Bool _ewk_view_smart_mouse_move(Ewk_View_Smart_Data* sd, const Evas_Event_Mouse_Move* ev)

{

    return ewk_frame_feed_mouse_move(sd->main_frame, ev);

}

static Eina_Bool _ewk_view_smart_key_down(Ewk_View_Smart_Data* sd, const Evas_Event_Key_Down* ev)

{

    Evas_Object* frame = ewk_view_frame_focused_get(sd->self);

    if (!frame)

        frame = sd->main_frame;

    return ewk_frame_feed_key_down(frame, ev);

}

static Eina_Bool _ewk_view_smart_key_up(Ewk_View_Smart_Data* sd, const Evas_Event_Key_Up* ev)

{

    Evas_Object* frame = ewk_view_frame_focused_get(sd->self);

    if (!frame)

        frame = sd->main_frame;

    return ewk_frame_feed_key_up(frame, ev);

}

static void _ewk_view_smart_add_console_message(Ewk_View_Smart_Data* sd, const char* message, unsigned int lineNumber, const char* sourceID)

{

    INF("console message: %s @%d: %s\n", sourceID, lineNumber, message);

}

static void _ewk_view_smart_run_javascript_alert(Ewk_View_Smart_Data* sd, Evas_Object* frame, const char* message)

{

    INF("javascript alert: %s\n", message);

}

static Eina_Bool _ewk_view_smart_run_javascript_confirm(Ewk_View_Smart_Data* sd, Evas_Object* frame, const char* message)

{

    INF("javascript confirm: %s", message);

    INF("javascript confirm (HARD CODED)? YES");

    return EINA_TRUE;

}

static Eina_Bool _ewk_view_smart_should_interrupt_javascript(Ewk_View_Smart_Data* sd)

{

    INF("should interrupt javascript?\n"

            "\t(HARD CODED) NO");

    return EINA_FALSE;

}

static Eina_Bool _ewk_view_smart_run_javascript_prompt(Ewk_View_Smart_Data* sd, Evas_Object* frame, const char* message, const char* defaultValue, char** value)

{

    *value = strdup("test");

    Eina_Bool ret = EINA_TRUE;

    INF("javascript prompt:\n"

            "\t      message: %s\n"

            "\tdefault value: %s\n"

            "\tgiving answer: %s\n"

            "\t       button: %s", message, defaultValue, *value, ret?"ok":"cancel");

    return ret;

}

// Event Handling //////////////////////////////////////////////////////

static void _ewk_view_on_focus_in(void* data, Evas* e, Evas_Object* o, void* event_info)

{

    Ewk_View_Smart_Data* sd = (Ewk_View_Smart_Data*)data;

    EINA_SAFETY_ON_NULL_RETURN(sd->api);

    EINA_SAFETY_ON_NULL_RETURN(sd->api->focus_in);

    sd->api->focus_in(sd);

}

static void _ewk_view_on_focus_out(void* data, Evas* e, Evas_Object* o, void* event_info)

{

    Ewk_View_Smart_Data* sd = (Ewk_View_Smart_Data*)data;

    EINA_SAFETY_ON_NULL_RETURN(sd->api);

    EINA_SAFETY_ON_NULL_RETURN(sd->api->focus_out);

    sd->api->focus_out(sd);

}

static void _ewk_view_on_mouse_wheel(void* data, Evas* e, Evas_Object* o, void* event_info)

{

    Evas_Event_Mouse_Wheel* ev = (Evas_Event_Mouse_Wheel*)event_info;

    Ewk_View_Smart_Data* sd = (Ewk_View_Smart_Data*)data;

    EINA_SAFETY_ON_NULL_RETURN(sd->api);

    EINA_SAFETY_ON_NULL_RETURN(sd->api->mouse_wheel);

    sd->api->mouse_wheel(sd, ev);

}

static void _ewk_view_on_mouse_down(void* data, Evas* e, Evas_Object* o, void* event_info)

{

    Evas_Event_Mouse_Down* ev = (Evas_Event_Mouse_Down*)event_info;

    Ewk_View_Smart_Data* sd = (Ewk_View_Smart_Data*)data;

    EINA_SAFETY_ON_NULL_RETURN(sd->api);

    EINA_SAFETY_ON_NULL_RETURN(sd->api->mouse_down);

    sd->api->mouse_down(sd, ev);

}

static void _ewk_view_on_mouse_up(void* data, Evas* e, Evas_Object* o, void* event_info)

{

    Evas_Event_Mouse_Up* ev = (Evas_Event_Mouse_Up*)event_info;

    Ewk_View_Smart_Data* sd = (Ewk_View_Smart_Data*)data;

    EINA_SAFETY_ON_NULL_RETURN(sd->api);

    EINA_SAFETY_ON_NULL_RETURN(sd->api->mouse_up);

    sd->api->mouse_up(sd, ev);

}

static void _ewk_view_on_mouse_move(void* data, Evas* e, Evas_Object* o, void* event_info)

{

    Evas_Event_Mouse_Move* ev = (Evas_Event_Mouse_Move*)event_info;

    Ewk_View_Smart_Data* sd = (Ewk_View_Smart_Data*)data;

    EINA_SAFETY_ON_NULL_RETURN(sd->api);

    EINA_SAFETY_ON_NULL_RETURN(sd->api->mouse_move);

    sd->api->mouse_move(sd, ev);

}

static void _ewk_view_on_key_down(void* data, Evas* e, Evas_Object* o, void* event_info)

{

    Evas_Event_Key_Down* ev = (Evas_Event_Key_Down*)event_info;

    Ewk_View_Smart_Data* sd = (Ewk_View_Smart_Data*)data;

    EINA_SAFETY_ON_NULL_RETURN(sd->api);

    EINA_SAFETY_ON_NULL_RETURN(sd->api->key_down);

    sd->api->key_down(sd, ev);

}

static void _ewk_view_on_key_up(void* data, Evas* e, Evas_Object* o, void* event_info)

{

    Evas_Event_Key_Up* ev = (Evas_Event_Key_Up*)event_info;

    Ewk_View_Smart_Data* sd = (Ewk_View_Smart_Data*)data;

    EINA_SAFETY_ON_NULL_RETURN(sd->api);

    EINA_SAFETY_ON_NULL_RETURN(sd->api->key_up);

    sd->api->key_up(sd, ev);

}

static WTF::PassRefPtr<WebCore::Frame> _ewk_view_core_frame_new(Ewk_View_Smart_Data* sd, Ewk_View_Private_Data* priv, WebCore::HTMLFrameOwnerElement* owner)

{

    WebCore::FrameLoaderClientEfl* flc = new WebCore::FrameLoaderClientEfl(sd->self);

    if (!flc) {

        CRITICAL("Could not create frame loader client.");

        return 0;

    }

    flc->setCustomUserAgent(WebCore::String::fromUTF8(priv->settings.user_agent));

    return WebCore::Frame::create(priv->page, owner, flc);

}

static Evas_Smart_Class _parent_sc = EVAS_SMART_CLASS_INIT_NULL;

static Ewk_View_Private_Data* _ewk_view_priv_new(Ewk_View_Smart_Data* sd)

{

    Ewk_View_Private_Data* priv =

        (Ewk_View_Private_Data*)calloc(1, sizeof(Ewk_View_Private_Data));

    WebCore::AtomicString s;

    WebCore::KURL url;

    if (!priv) {

        CRITICAL("could not allocate Ewk_View_Private_Data");

        return 0;

    }

    priv->page = new WebCore::Page(