/*

    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.

*/

// Uncomment to view frame regions and debug messages

// #define EWK_FRAME_DEBUG

#include "config.h"

#include "ewk_frame.h"

#include "EWebKit.h"

#include "EventHandler.h"

#include "FocusController.h"

#include "FrameLoaderClientEfl.h"

#include "FrameTree.h"

#include "FrameView.h"

#include "HTMLPlugInElement.h"

#include "HistoryItem.h"

#include "HitTestResult.h"

#include "KURL.h"

#include "PlatformKeyboardEvent.h"

#include "PlatformMouseEvent.h"

#include "PlatformWheelEvent.h"

#include "ProgressTracker.h"

#include "RefPtr.h"

#include "RenderTheme.h"

#include "ResourceRequest.h"

#include "ScriptValue.h"

#include "SharedBuffer.h"

#include "SubstituteData.h"

#include "ZoomMode.h"

#include "WindowsKeyboardCodes.h"

#include "ewk_private.h"

#include <wtf/text/CString.h>

#include <Eina.h>

#include <Evas.h>

#include <eina_safety_checks.h>

static const char EWK_FRAME_TYPE_STR[] = "EWK_Frame";

struct Ewk_Frame_Smart_Data {

    Evas_Object_Smart_Clipped_Data base;

    Evas_Object* self;

    Evas_Object* view;

#ifdef EWK_FRAME_DEBUG

    Evas_Object* region;

#endif

    WebCore::Frame* frame;

    const char* theme;

    const char* title;

    const char* uri;

    const char* name;

    struct {

        Evas_Coord w, h;

    } contents_size;

    WebCore::ZoomMode zoom_mode;

    Eina_Bool editable:1;

};

struct Eina_Iterator_Ewk_Frame {

    Eina_Iterator base;

    Evas_Object* obj;

    WebCore::Frame* last;

};

#ifndef EWK_TYPE_CHECK

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

#else

#define EWK_FRAME_TYPE_CHECK(o, ...)                                    \

    do {                                                                \

        const char* _tmp_otype = evas_object_type_get(o);               \

        if (EINA_UNLIKELY(_tmp_otype != EWK_FRAME_TYPE_STR)) {          \

            EINA_LOG_CRIT                                               \

                ("%p (%s) is not of an ewk_frame!", o,                  \

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

            return __VA_ARGS__;                                         \

        }                                                               \

    } while (0)

#endif

#define EWK_FRAME_SD_GET(o, ptr)                                \

    Ewk_Frame_Smart_Data* ptr = (Ewk_Frame_Smart_Data*)evas_object_smart_data_get(o)

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

    EWK_FRAME_TYPE_CHECK(o, __VA_ARGS__);               \

    EWK_FRAME_SD_GET(o, ptr);                           \

    if (!ptr) {                                         \

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

                 o, evas_object_type_get(o));           \

        return __VA_ARGS__;                             \

    }

static Evas_Smart_Class _parent_sc = EVAS_SMART_CLASS_INIT_NULL;

#ifdef EWK_FRAME_DEBUG

static inline void _ewk_frame_debug(Evas_Object* o)

{

    Evas_Object* clip, *parent;

    Evas_Coord x, y, w, h, cx, cy, cw, ch;

    int r, g, b, a, cr, cg, cb, ca;

    evas_object_color_get(o, &r, &g, &b, &a);

    evas_object_geometry_get(o, &x, &y, &w, &h);

    clip = evas_object_clip_get(o);

    evas_object_color_get(clip, &cr, &cg, &cb, &ca);

    evas_object_geometry_get(clip, &cx, &cy, &cw, &ch);

    fprintf(stderr, "%p: type=%s name=%s, visible=%d, color=%02x%02x%02x%02x, %d,%d+%dx%d, clipper=%p (%d, %02x%02x%02x%02x, %d,%d+%dx%d)\n",

            o, evas_object_type_get(o), evas_object_name_get(o), evas_object_visible_get(o),

            r, g, b, a, x, y, w, h,

            clip, evas_object_visible_get(clip), cr, cg, cb, ca, cx, cy, cw, ch);

    parent = evas_object_smart_parent_get(o);

    if (!parent)

        fprintf(stderr, "\n");

    else

        _ewk_frame_debug(parent);

}

#endif

static WebCore::FrameLoaderClientEfl* _ewk_frame_loader_efl_get(WebCore::Frame* frame)

{

    return static_cast<WebCore::FrameLoaderClientEfl*>(frame->loader()->client());

}

static inline Evas_Object* kit(WebCore::Frame* frame)

{

    if (!frame)

        return 0;

    WebCore::FrameLoaderClientEfl* fl = _ewk_frame_loader_efl_get(frame);

    if (!fl)

        return 0;

    return fl->webFrame();

}

static Eina_Bool _ewk_frame_children_iterator_next(Eina_Iterator_Ewk_Frame* it, Evas_Object** data)

{

    EWK_FRAME_SD_GET_OR_RETURN(it->obj, sd, EINA_FALSE);

    EINA_SAFETY_ON_NULL_RETURN_VAL(sd->frame, EINA_FALSE);

    WebCore::FrameTree* tree = sd->frame->tree(); // check if it's still valid

    EINA_SAFETY_ON_NULL_RETURN_VAL(tree, EINA_FALSE);

    WebCore::Frame* frame;

    if (it->last)

        frame = it->last->tree()->nextSibling();

    else

        frame = tree->firstChild();

    if (!frame)

        return EINA_FALSE;

    *data = kit(frame);

    return EINA_TRUE;

}

static Evas_Object* _ewk_frame_children_iterator_get_container(Eina_Iterator_Ewk_Frame* it)

{

    return it->obj;

}

static void _ewk_frame_smart_add(Evas_Object* o)

{

    EWK_FRAME_SD_GET(o, sd);

    if (!sd) {

        sd = (Ewk_Frame_Smart_Data*)calloc(1, sizeof(Ewk_Frame_Smart_Data));

        if (!sd)

            CRITICAL("could not allocate Ewk_Frame_Smart_Data");

        else

            evas_object_smart_data_set(o, sd);

    }

    sd->self = o;

    _parent_sc.add(o);

    evas_object_move(sd->base.clipper, 0, 0);

    evas_object_resize(sd->base.clipper, 0, 0);

#ifdef EWK_FRAME_DEBUG

    sd->region = evas_object_rectangle_add(sd->base.evas);

    static int i = 0;

    switch (i) {

    case 0:

        evas_object_color_set(sd->region, 128, 0, 0, 128);

        break;

    case 1:

        evas_object_color_set(sd->region, 0, 128, 0, 128);

        break;

    case 2:

        evas_object_color_set(sd->region, 0, 0, 128, 128);

        break;

    case 3:

        evas_object_color_set(sd->region, 128, 0, 0, 128);

        break;

    case 4:

        evas_object_color_set(sd->region, 128, 128, 0, 128);

        break;

    case 5:

        evas_object_color_set(sd->region, 128, 0, 128, 128);

        break;

    case 6:

        evas_object_color_set(sd->region, 0, 128, 128, 128);

        break;

    default:

        break;

    }

    i++;

    if (i > 6)

        i = 0;

    evas_object_smart_member_add(sd->region, o);

    evas_object_hide(sd->region);

#endif

}

static void _ewk_frame_smart_del(Evas_Object* o)

{

    WRN("o=%p", o); // XXX REMOVE ME LATER

    EWK_FRAME_SD_GET(o, sd);

    if (sd) {

        if (sd->frame) {

            WebCore::FrameLoaderClientEfl* flc = _ewk_frame_loader_efl_get(sd->frame);

            flc->setWebFrame(0);

            sd->frame->loader()->cancelAndClear();

            sd->frame = 0;

        }

        eina_stringshare_del(sd->title);

        eina_stringshare_del(sd->uri);

        eina_stringshare_del(sd->name);

    }

    _parent_sc.del(o);

}

static void _ewk_frame_smart_resize(Evas_Object* o, Evas_Coord w, Evas_Coord h)

{

    EWK_FRAME_SD_GET(o, sd);

    evas_object_resize(sd->base.clipper, w, h);

#ifdef EWK_FRAME_DEBUG

    evas_object_resize(sd->region, w, h);

    Evas_Coord x, y;

    evas_object_geometry_get(sd->region, &x, &y, &w, &h);

    INF("region=%p, visible=%d, geo=%d,%d + %dx%d",

        sd->region, evas_object_visible_get(sd->region), x, y, w, h);

    _ewk_frame_debug(o);

#endif

}

static void _ewk_frame_smart_set(Evas_Smart_Class* api)

{

    evas_object_smart_clipped_smart_set(api);

    api->add = _ewk_frame_smart_add;

    api->del = _ewk_frame_smart_del;

    api->resize = _ewk_frame_smart_resize;

}

static inline Evas_Smart* _ewk_frame_smart_class_new(void)

{

    static Evas_Smart_Class sc = EVAS_SMART_CLASS_INIT_NAME_VERSION(EWK_FRAME_TYPE_STR);

    static Evas_Smart* smart = 0;

    if (EINA_UNLIKELY(!smart)) {

        evas_object_smart_clipped_smart_set(&_parent_sc);

        _ewk_frame_smart_set(&sc);

        smart = evas_smart_class_new(&sc);

    }

    return smart;

}

/**

 * @internal

 *

 * Creates a new EFL WebKit Frame object.

 *

 * Frames are low level entries contained in a page that is contained

 * by a view. Usually one operates on the view and not directly on the

 * frame.

 *

 * @param e canvas where to create the frame object.

 *

 * @return frame object or @c NULL if errors.

 */

Evas_Object* ewk_frame_add(Evas* e)

{

    return evas_object_smart_add(e, _ewk_frame_smart_class_new());

}

/**

 * Retrieves the ewk_view object that owns this frame.

 *

 * @param o frame object to get view from.

 *

 * @return view object or @c NULL if errors.

 */

Evas_Object* ewk_frame_view_get(const Evas_Object* o)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, 0);

    return sd->view;

}

/**

 * Set the theme path to be used by this frame.

 *

 * Frames inherit theme from their parent, this will have all frames

 * with unset theme to use this one.

 *

 * @param o frame object to change theme.

 * @param path theme path, may be @c NULL to reset to default or inherit parent.

 */

void ewk_frame_theme_set(Evas_Object* o, const char* path)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd);

    if (!eina_stringshare_replace(&sd->theme, path))

        return;

    if (sd->frame && sd->frame->view()) {

        sd->frame->view()->setEdjeTheme(WebCore::String(path));

        sd->frame->page()->theme()->themeChanged();

    }

}

/**

 * Gets the immediate theme set on this frame.

 *

 * This returns the value set by ewk_frame_theme_set(). Note that if

 * it is @c NULL, the frame will inherit parent's theme.

 *

 * @param o frame object to get theme path.

 *

 * @return theme path, may be @c NULL if not set.

 */

const char* ewk_frame_theme_get(Evas_Object* o)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, 0);

    return sd->theme;

}

/**

 * Returns a new iterator over all direct children frames.

 *

 * Keep frame object intact while iteration happens otherwise frame

 * may be destroyed while iterated.

 *

 * Iteration results are Evas_Object*, so give eina_iterator_next() a

 * pointer to it.

 *

 * @return a newly allocated iterator, free using

 *         eina_iterator_free(). If not possible to create the

 *         iterator, @c NULL is returned.

 */

Eina_Iterator* ewk_frame_children_iterator_new(Evas_Object* o)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, 0);

    Eina_Iterator_Ewk_Frame* it = (Eina_Iterator_Ewk_Frame*)

        calloc(1, sizeof(Eina_Iterator_Ewk_Frame));

    if (!it)

        return 0;

    EINA_MAGIC_SET(&it->base, EINA_MAGIC_ITERATOR);

    it->base.next = FUNC_ITERATOR_NEXT(_ewk_frame_children_iterator_next);

    it->base.get_container = FUNC_ITERATOR_GET_CONTAINER(_ewk_frame_children_iterator_get_container);

    it->base.free = FUNC_ITERATOR_FREE(free);

    it->obj = o;

    return &it->base;

}

/**

 * Finds a child frame by its name, recursively.

 *

 * For pre-defined names, returns @a o if @a name is "_self" or

 * "_current", returns @a o's parent frame if @a name is "_parent",

 * and returns the main frame if @a name is "_top". Also returns @a o

 * if it is the main frame and @a name is either "_parent" or

 * "_top". For other names, this function returns the first frame that

 * matches @a name. This function searches @a o and its descendents

 * first, then @a o's parent and its children moving up the hierarchy

 * until a match is found. If no match is found in @a o's hierarchy,

 * this function will search for a matching frame in other main frame

 * hierarchies.

 *

 * @return object if found, @c NULL if nothing with that name.

 */

Evas_Object* ewk_frame_child_find(Evas_Object* o, const char* name)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, 0);

    EINA_SAFETY_ON_NULL_RETURN_VAL(name, 0);

    EINA_SAFETY_ON_NULL_RETURN_VAL(sd->frame, 0);

    WebCore::String s = WebCore::String::fromUTF8(name);

    return kit(sd->frame->tree()->find(WebCore::AtomicString(s)));

}

/**

 * Ask main frame to load the given URI.

 *

 * @param o frame object to load uri.

 * @param uri uniform resource identifier to load.

 */

Eina_Bool ewk_frame_uri_set(Evas_Object* o, const char* uri)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, EINA_FALSE);

    WebCore::KURL kurl(WebCore::KURL(), WebCore::String::fromUTF8(uri));

    WebCore::ResourceRequest req(kurl);

    WebCore::FrameLoader* loader = sd->frame->loader();

    loader->load(req, false);

    return EINA_TRUE;

}

/**

 * Gets the uri of this frame.

 *

 * @param o frame object to get uri.

 *

 * @return frame uri or @c NULL. It's a internal string and should

 *         not be modified. The string is guaranteed to be stringshared.

 */

const char* ewk_frame_uri_get(const Evas_Object* o)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, 0);

    return sd->uri;

}

/**

 * Gets the title of this frame.

 *

 * @param o frame object to get title.

 *

 * @return frame title or @c NULL. It's a internal string and should

 *         not be modified. The string is guaranteed to be stringshared.

 */

const char* ewk_frame_title_get(const Evas_Object* o)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, 0);

    return sd->title;

}

/**

 * Gets the name of this frame.

 *

 * @param o frame object to get name.

 *

 * @return frame name or @c NULL. It's a internal string and should

 *         not be modified. The string is guaranteed to be stringshared.

 */

const char* ewk_frame_name_get(const Evas_Object* o)

{

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, 0);

    if (sd->name)

        return sd->name;

    if (!sd->frame) {

        ERR("could not get name of uninitialized frame.");

        return 0;

    }

    WebCore::String s = sd->frame->tree()->name();

    WTF::CString cs = s.utf8();

    sd->name = eina_stringshare_add_length(cs.data(), cs.length());

    return sd->name;

}

/**

 * Get last known contents size.

 *

 * @param o frame object to get contents size.

 * @param w where to store contents size width. May be @c NULL.

 * @param h where to store contents size height. May be @c NULL.

 *

 * @return @c EINA_TRUE on success or @c EINA_FALSE on failure and

 *         @a w and @a h will be zeroed.

 */

Eina_Bool ewk_frame_contents_size_get(const Evas_Object* o, Evas_Coord* w, Evas_Coord* h)

{

    if (w)

        *w = 0;

    if (h)

        *h = 0;

    EWK_FRAME_SD_GET_OR_RETURN(o, sd, EINA_FALSE);

    if (w)

        *w = sd->contents_size.w;

    if (h)

        *h = sd->contents_size.h;

    return EINA_TRUE;

}

static Eina_Bool _ewk_frame_contents_set_internal(Ewk_Frame_Smart_Data *sd, const char* contents, size_t contents_size, const char* mime_type, const char* encoding, const char* base_uri, const char* unreachable_uri)

{

    if (contents_size < 1)

        contents_size = strlen(contents);

    if (!mime_type)

        mime_type = "text/html";

    if (!encoding)

        encoding = "UTF-8";

    if (!base_uri)

        base_uri = "about:blank";

    WebCore::KURL baseKURL(WebCore::KURL(), WebCore::String::fromUTF8(base_uri));

    WebCore::KURL unreachableKURL;

    if (unreachable_uri)

        unreachableKURL = WebCore::KURL(WebCore::KURL(), WebCore::String::fromUTF8(unreachable_uri));

    else

        unreachableKURL = WebCore::KURL();

    WTF::RefPtr<WebCore::SharedBuffer> buffer = WebCore::SharedBuffer::create(contents, contents_size);

    WebCore::SubstituteData substituteData

        (buffer.release(),

         WebCore::String::fromUTF8(mime_type),