/*

    Copyright (C) 2008,2009 Nokia Corporation and/or its subsidiary(-ies)

    Copyright (C) 2007 Staikos Computing Services Inc.

    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.

*/

#include "config.h"

#include "qwebframe.h"

#include "Bridge.h"

#include "CallFrame.h"

#include "Document.h"

#include "DocumentLoader.h"

#include "DragData.h"

#include "Element.h"

#include "FocusController.h"

#include "Frame.h"

#include "FrameLoaderClientQt.h"

#include "FrameTree.h"

#include "FrameView.h"

#include "GCController.h"

#include "GraphicsContext.h"

#include "HTMLMetaElement.h"

#include "HitTestResult.h"

#include "IconDatabase.h"

#include "InspectorController.h"

#include "JSDOMBinding.h"

#include "JSDOMWindowBase.h"

#include "JSLock.h"

#include "JSObject.h"

#include "NodeList.h"

#include "Page.h"

#include "PlatformMouseEvent.h"

#include "PlatformWheelEvent.h"

#include "PrintContext.h"

#include "PutPropertySlot.h"

#include "RenderLayer.h"

#include "RenderTreeAsText.h"

#include "RenderView.h"

#include "ResourceRequest.h"

#include "ScriptController.h"

#include "ScriptSourceCode.h"

#include "ScriptValue.h"

#include "Scrollbar.h"

#include "Settings.h"

#include "SelectionController.h"

#include "SubstituteData.h"

#include "SVGSMILElement.h"

#include "TiledBackingStore.h"

#include "htmlediting.h"

#include "markup.h"

#include "qt_instance.h"

#include "qt_runtime.h"

#include "qwebelement.h"

#include "qwebframe_p.h"

#include "qwebpage.h"

#include "qwebpage_p.h"

#include "qwebsecurityorigin.h"

#include "qwebsecurityorigin_p.h"

#include "qwebscriptworld.h"

#include "qwebscriptworld_p.h"

#include "runtime_object.h"

#include "runtime_root.h"

#include "wtf/HashMap.h"

#include <QMultiMap>

#include <qdebug.h>

#include <qevent.h>

#include <qfileinfo.h>

#include <qpainter.h>

#include <qprinter.h>

#include <qregion.h>

#include <qnetworkrequest.h>

using namespace WebCore;

// from text/qfont.cpp

QT_BEGIN_NAMESPACE

extern Q_GUI_EXPORT int qt_defaultDpi();

QT_END_NAMESPACE

bool QWEBKIT_EXPORT qtwebkit_webframe_scrollOverflow(QWebFrame* qFrame, int dx, int dy, const QPoint& pos)

{

    WebCore::Frame* frame = QWebFramePrivate::core(qFrame);

    if (!frame || !frame->document() || !frame->view() || !frame->eventHandler())

        return false;

    QPoint contentsPos = frame->view()->windowToContents(pos);

    Node* node = frame->document()->elementFromPoint(contentsPos.x(), contentsPos.y());

    if (!node)

        return false;

    RenderObject* renderer = node->renderer();

    if (!renderer)

        return false;

    if (renderer->isListBox())

        return false;

    RenderLayer* renderLayer = renderer->enclosingLayer();

    if (!renderLayer)

        return false;

    bool scrolledHorizontal = false;

    bool scrolledVertical = false;

    do {

        if (dx > 0)

            scrolledHorizontal = renderLayer->scroll(ScrollRight, ScrollByPixel, dx);

        else if (dx < 0)

            scrolledHorizontal = renderLayer->scroll(ScrollLeft, ScrollByPixel, qAbs(dx));

        if (dy > 0)

            scrolledVertical = renderLayer->scroll(ScrollDown, ScrollByPixel, dy);

        else if (dy < 0)

            scrolledVertical = renderLayer->scroll(ScrollUp, ScrollByPixel, qAbs(dy));

        if (scrolledHorizontal || scrolledVertical)

            return true;

        renderLayer = renderLayer->parent();

    } while (renderLayer);

    return false;

}

/*!

  \internal

  Scrolls nested frames starting at this frame, \a dx pixels to the right 

  and \a dy pixels downward. Both \a dx and \a dy may be negative. First attempts

  to scroll elements with CSS overflow at position pos, followed by this frame. If this 

  frame doesn't scroll, attempts to scroll the parent

*/

void QWEBKIT_EXPORT qtwebkit_webframe_scrollRecursively(QWebFrame* qFrame, int dx, int dy, const QPoint& pos)

{

    if (!qFrame)

        return;

    if (qtwebkit_webframe_scrollOverflow(qFrame, dx, dy, pos))

        return;

    bool scrollHorizontal = false;

    bool scrollVertical = false;

    do {

        if (dx > 0)  // scroll right

            scrollHorizontal = qFrame->scrollBarValue(Qt::Horizontal) < qFrame->scrollBarMaximum(Qt::Horizontal);

        else if (dx < 0)  // scroll left

            scrollHorizontal = qFrame->scrollBarValue(Qt::Horizontal) > qFrame->scrollBarMinimum(Qt::Horizontal);

        if (dy > 0)  // scroll down

            scrollVertical = qFrame->scrollBarValue(Qt::Vertical) < qFrame->scrollBarMaximum(Qt::Vertical);

        else if (dy < 0) //scroll up

            scrollVertical = qFrame->scrollBarValue(Qt::Vertical) > qFrame->scrollBarMinimum(Qt::Vertical);

        if (scrollHorizontal || scrollVertical) {

            qFrame->scroll(dx, dy);

            return;

        }

        qFrame = qFrame->parentFrame();

    } while (qFrame);

}

QWebFrameData::QWebFrameData(WebCore::Page* parentPage, WebCore::Frame* parentFrame,

                             WebCore::HTMLFrameOwnerElement* ownerFrameElement,

                             const WebCore::String& frameName)

    : name(frameName)

    , ownerElement(ownerFrameElement)

    , page(parentPage)

    , allowsScrolling(true)

    , marginWidth(0)

    , marginHeight(0)

{

    frameLoaderClient = new FrameLoaderClientQt();

    frame = Frame::create(page, ownerElement, frameLoaderClient);

    // FIXME: All of the below should probably be moved over into WebCore

    frame->tree()->setName(name);

    if (parentFrame)

        parentFrame->tree()->appendChild(frame);

}

void QWebFramePrivate::init(QWebFrame *qframe, QWebFrameData *frameData)

{

    q = qframe;

    allowsScrolling = frameData->allowsScrolling;

    marginWidth = frameData->marginWidth;

    marginHeight = frameData->marginHeight;

    frame = frameData->frame.get();

    frameLoaderClient = frameData->frameLoaderClient;

    frameLoaderClient->setFrame(qframe, frame);

    frame->init();

}

void QWebFramePrivate::setPage(QWebPage* newPage)

{

    if (page == newPage)

        return;

    // The QWebFrame is created as a child of QWebPage or a parent QWebFrame.

    // That adds it to QObject's internal children list and ensures it will be

    // deleted when parent QWebPage is deleted. Reparent if needed.

    if (q->parent() == qobject_cast<QObject*>(page))

        q->setParent(newPage);

    page = newPage;

    emit q->pageChanged();

}

WebCore::Scrollbar* QWebFramePrivate::horizontalScrollBar() const

{

    if (!frame->view())

        return 0;

    return frame->view()->horizontalScrollbar();

}

WebCore::Scrollbar* QWebFramePrivate::verticalScrollBar() const

{

    if (!frame->view())

        return 0;

    return frame->view()->verticalScrollbar();

}

#if ENABLE(TILED_BACKING_STORE)

void QWebFramePrivate::renderFromTiledBackingStore(GraphicsContext* context, const QRegion& clip)

{

    ASSERT(frame->tiledBackingStore());

    if (!frame->view() || !frame->contentRenderer())

        return;

    QVector<QRect> vector = clip.rects();

    if (vector.isEmpty())

        return;

    QPainter* painter = context->platformContext();

    WebCore::FrameView* view = frame->view();

    int scrollX = view->scrollX();

    int scrollY = view->scrollY();

    context->translate(-scrollX, -scrollY);

    for (int i = 0; i < vector.size(); ++i) {

        const QRect& clipRect = vector.at(i);

        painter->save();

        QRect rect = clipRect.translated(scrollX, scrollY);

        painter->setClipRect(rect, Qt::IntersectClip);

        frame->tiledBackingStore()->paint(context, rect);

        painter->restore();

    }

}

#endif

void QWebFramePrivate::renderRelativeCoords(GraphicsContext* context, QWebFrame::RenderLayer layer, const QRegion& clip)

{

    if (!frame->view() || !frame->contentRenderer())

        return;

    QVector<QRect> vector = clip.rects();

    if (vector.isEmpty())

        return;

    QPainter* painter = context->platformContext();

    WebCore::FrameView* view = frame->view();

    view->layoutIfNeededRecursive();

    for (int i = 0; i < vector.size(); ++i) {

        const QRect& clipRect = vector.at(i);

        QRect intersectedRect = clipRect.intersected(view->frameRect());

        painter->save();

        painter->setClipRect(clipRect, Qt::IntersectClip);

        int x = view->x();

        int y = view->y();

        if (layer & QWebFrame::ContentsLayer) {

            context->save();

            int scrollX = view->scrollX();

            int scrollY = view->scrollY();

            QRect rect = intersectedRect;

            context->translate(x, y);

            rect.translate(-x, -y);

            context->translate(-scrollX, -scrollY);

            rect.translate(scrollX, scrollY);

            context->clip(view->visibleContentRect());

            view->paintContents(context, rect);

            context->restore();

        }

        if (layer & QWebFrame::ScrollBarLayer

            && !view->scrollbarsSuppressed()

            && (view->horizontalScrollbar() || view->verticalScrollbar())) {

            context->save();

            QRect rect = intersectedRect;

            context->translate(x, y);

            rect.translate(-x, -y);

            view->paintScrollbars(context, rect);

            context->restore();

        }

#if ENABLE(PAN_SCROLLING)

        if (layer & QWebFrame::PanIconLayer)

            view->paintPanScrollIcon(context);

#endif

        painter->restore();

    }

}

/*!

    \class QWebFrame

    \since 4.4

    \brief The QWebFrame class represents a frame in a web page.

    \inmodule QtWebKit

    QWebFrame represents a frame inside a web page. Each QWebPage

    object contains at least one frame, the main frame, obtained using

    QWebPage::mainFrame(). Additional frames will be created for HTML

    \c{<frame>} or \c{<iframe>} elements.

    A frame can be loaded using load() or setUrl(). Alternatively, if you have

    the HTML content readily available, you can use setHtml() instead.

    The page() function returns a pointer to the web page object. See

    \l{QWebView}{Elements of QWebView} for an explanation of how web

    frames are related to a web page and web view.

    The QWebFrame class also offers methods to retrieve both the URL currently

    loaded by the frame (see url()) as well as the URL originally requested

    to be loaded (see requestedUrl()). These methods make possible the retrieval

    of the URL before and after a DNS resolution or a redirection occurs during

    the load process. The requestedUrl() also matches to the URL added to the

    frame history (\l{QWebHistory}) if load is successful.

    The title of an HTML frame can be accessed with the title() property.

    Additionally, a frame may also specify an icon, which can be accessed

    using the icon() property. If the title or the icon changes, the

    corresponding titleChanged() and iconChanged() signals will be emitted.

    The zoomFactor() property can be used to change the overall size

    of the content displayed in the frame.

    QWebFrame objects are created and controlled by the web page. You

    can connect to the web page's \l{QWebPage::}{frameCreated()} signal

    to be notified when a new frame is created.

    There are multiple ways to programmatically examine the contents of a frame.

    The hitTestContent() function can be used to find elements by coordinate.

    For access to the underlying DOM tree, there is documentElement(),

    findAllElements() and findFirstElement().

    A QWebFrame can be printed onto a QPrinter using the print() function.

    This function is marked as a slot and can be conveniently connected to

    \l{QPrintPreviewDialog}'s \l{QPrintPreviewDialog::}{paintRequested()}

    signal.

    \sa QWebPage

*/

/*!

    \enum QWebFrame::RenderLayer

    This enum describes the layers available for rendering using \l{QWebFrame::}{render()}.

    The layers can be OR-ed together from the following list:

    \value ContentsLayer The web content of the frame

    \value ScrollBarLayer The scrollbars of the frame

    \value PanIconLayer The icon used when panning the frame

    \value AllLayers Includes all the above layers

*/

QWebFrame::QWebFrame(QWebPage *parent, QWebFrameData *frameData)

    : QObject(parent)

    , d(new QWebFramePrivate)

{

    d->page = parent;

    d->init(this, frameData);

    if (!frameData->url.isEmpty()) {

        WebCore::ResourceRequest request(frameData->url, frameData->referrer);

        d->frame->loader()->load(request, frameData->name, false);

    }

}

QWebFrame::QWebFrame(QWebFrame *parent, QWebFrameData *frameData)

    : QObject(parent)

    , d(new QWebFramePrivate)

{

    d->page = parent->d->page;

    d->init(this, frameData);

}

QWebFrame::~QWebFrame()

{

    if (d->frame && d->frame->loader() && d->frame->loader()->client())

        static_cast<FrameLoaderClientQt*>(d->frame->loader()->client())->m_webFrame = 0;

    delete d;

}

/*!

    Make \a object available under \a name from within the frame's JavaScript

    context. The \a object will be inserted as a child of the frame's window

    object.

    Qt properties will be exposed as JavaScript properties and slots as

    JavaScript methods.

    If you want to ensure that your QObjects remain accessible after loading a

    new URL, you should add them in a slot connected to the

    javaScriptWindowObjectCleared() signal.

    If Javascript is not enabled for this page, then this method does nothing.

    The \a object will never be explicitly deleted by QtWebKit.

*/

void QWebFrame::addToJavaScriptWindowObject(const QString &name, QObject *object)

{

    addToJavaScriptWindowObject(name, object, QScriptEngine::QtOwnership);

}

/*!

    \fn void QWebFrame::addToJavaScriptWindowObject(const QString &name, QObject *object, QScriptEngine::ValueOwnership own)

    \overload

    Make \a object available under \a name from within the frame's JavaScript

    context. The \a object will be inserted as a child of the frame's window

    object.

    Qt properties will be exposed as JavaScript properties and slots as

    JavaScript methods.

    If you want to ensure that your QObjects remain accessible after loading a

    new URL, you should add them in a slot connected to the

    javaScriptWindowObjectCleared() signal.

    If Javascript is not enabled for this page, then this method does nothing.

    The ownership of \a object is specified using \a own.

*/

void QWebFrame::addToJavaScriptWindowObject(const QString &name, QObject *object, QScriptEngine::ValueOwnership ownership)

{

    if (!page()->settings()->testAttribute(QWebSettings::JavascriptEnabled))

        return;

    JSC::JSLock lock(JSC::SilenceAssertionsOnly);

    JSDOMWindow* window = toJSDOMWindow(d->frame, mainThreadNormalWorld());

    JSC::Bindings::RootObject* root;

    if (ownership == QScriptEngine::QtOwnership)

        root = d->frame->script()->cacheableBindingRootObject();

    else

        root = d->frame->script()->bindingRootObject();

    if (!window) {

        qDebug() << "Warning: couldn't get window object";

        return;

    }

    JSC::ExecState* exec = window->globalExec();

    JSC::JSObject* runtimeObject =

            JSC::Bindings::QtInstance::getQtInstance(object, root, ownership)->createRuntimeObject(exec);

    JSC::PutPropertySlot slot;

    window->put(exec, JSC::Identifier(exec, (const UChar *) name.constData(), name.length()), runtimeObject, slot);

}

/*!

    Returns the frame's content as HTML, enclosed in HTML and BODY tags.

    \sa setHtml(), toPlainText()

*/

QString QWebFrame::toHtml() const

{

    if (!d->frame->document())

        return QString();

    return createMarkup(d->frame->document());

}

/*!

    Returns the content of this frame converted to plain text, completely

    stripped of all HTML formatting.

    \sa toHtml()

*/

QString QWebFrame::toPlainText() const

{

    if (d->frame->view() && d->frame->view()->layoutPending())

        d->frame->view()->layout();

    Element *documentElement = d->frame->document()->documentElement();

    if (documentElement)

        return documentElement->innerText();

    return QString();

}