/*

 * Copyright (C) 2006, 2007 Apple Inc.  All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 *

 * THIS SOFTWARE IS PROVIDED BY APPLE COMPUTER, INC. ``AS IS'' AND ANY

 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR

 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE COMPUTER, INC. OR

 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY

 * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE

 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 

 */

#include "config.h"

#include "WebKitDLL.h"

#include "DOMCoreClasses.h"

#include "COMPtr.h"

#include "DOMCSSClasses.h"

#include "DOMEventsClasses.h"

#include "DOMHTMLClasses.h"

#pragma warning(push, 0)

#include <WebCore/BString.h>

#include <WebCore/DOMWindow.h>

#include <WebCore/Document.h>

#include <WebCore/Element.h>

#include <WebCore/HTMLFormElement.h>

#include <WebCore/HTMLInputElement.h>

#include <WebCore/HTMLNames.h>

#include <WebCore/HTMLOptionElement.h>

#include <WebCore/HTMLSelectElement.h>

#include <WebCore/HTMLTextAreaElement.h>

#include <WebCore/NodeList.h>

#include <WebCore/RenderObject.h>

#pragma warning(pop)

#include <initguid.h>

// {79A193A5-D783-4c73-9AD9-D10678B943DE}

DEFINE_GUID(IID_DOMNode, 0x79a193a5, 0xd783, 0x4c73, 0x9a, 0xd9, 0xd1, 0x6, 0x78, 0xb9, 0x43, 0xde);

// {3B0C0EFF-478B-4b0b-8290-D2321E08E23E}

DEFINE_GUID(IID_DOMElement, 0x3b0c0eff, 0x478b, 0x4b0b, 0x82, 0x90, 0xd2, 0x32, 0x1e, 0x8, 0xe2, 0x3e);

using namespace WebCore;

using namespace HTMLNames;

// DOMObject - IUnknown -------------------------------------------------------

HRESULT STDMETHODCALLTYPE DOMObject::QueryInterface(REFIID riid, void** ppvObject)

{

    *ppvObject = 0;

    if (IsEqualGUID(riid, IID_IDOMObject))

        *ppvObject = static_cast<IDOMObject*>(this);

    else

        return WebScriptObject::QueryInterface(riid, ppvObject);

    AddRef();

    return S_OK;

}

// DOMNode - IUnknown ---------------------------------------------------------

HRESULT STDMETHODCALLTYPE DOMNode::QueryInterface(REFIID riid, void** ppvObject)

{

    *ppvObject = 0;

    if (IsEqualGUID(riid, IID_IDOMNode))

        *ppvObject = static_cast<IDOMNode*>(this);

    else if (IsEqualGUID(riid, IID_DOMNode))

        *ppvObject = static_cast<DOMNode*>(this);

    else

        return DOMObject::QueryInterface(riid, ppvObject);

    AddRef();

    return S_OK;

}

// DOMNode --------------------------------------------------------------------

HRESULT STDMETHODCALLTYPE DOMNode::nodeName( 

    /* [retval][out] */ BSTR* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::nodeValue( 

    /* [retval][out] */ BSTR* result)

{

    if (!m_node)

        return E_FAIL;

    WebCore::String nodeValueStr = m_node->nodeValue();

    *result = SysAllocStringLen(nodeValueStr.characters(), nodeValueStr.length());

    if (nodeValueStr.length() && !*result)

        return E_OUTOFMEMORY;

    return S_OK;

}

HRESULT STDMETHODCALLTYPE DOMNode::setNodeValue( 

    /* [in] */ BSTR /*value*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::nodeType( 

    /* [retval][out] */ unsigned short* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::parentNode( 

    /* [retval][out] */ IDOMNode** result)

{

    *result = 0;

    if (!m_node || !m_node->parentNode())

        return E_FAIL;

    *result = DOMNode::createInstance(m_node->parentNode());

    return S_OK;

}

HRESULT STDMETHODCALLTYPE DOMNode::childNodes( 

    /* [retval][out] */ IDOMNodeList** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::firstChild( 

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::lastChild( 

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::previousSibling( 

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::nextSibling( 

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::attributes( 

    /* [retval][out] */ IDOMNamedNodeMap** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::ownerDocument( 

    /* [retval][out] */ IDOMDocument** result)

{

    if (!result)

        return E_POINTER;

    *result = 0;

    if (!m_node)

        return E_FAIL;

    *result = DOMDocument::createInstance(m_node->ownerDocument());

    return S_OK;

}

HRESULT STDMETHODCALLTYPE DOMNode::insertBefore( 

    /* [in] */ IDOMNode* /*newChild*/,

    /* [in] */ IDOMNode* /*refChild*/,

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::replaceChild( 

    /* [in] */ IDOMNode* /*newChild*/,

    /* [in] */ IDOMNode* /*oldChild*/,

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::removeChild( 

    /* [in] */ IDOMNode* /*oldChild*/,

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::appendChild( 

    /* [in] */ IDOMNode* /*oldChild*/,

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::hasChildNodes( 

    /* [retval][out] */ BOOL* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::cloneNode( 

    /* [in] */ BOOL /*deep*/,

    /* [retval][out] */ IDOMNode** /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::normalize( void)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::isSupported( 

    /* [in] */ BSTR /*feature*/,

    /* [in] */ BSTR /*version*/,

    /* [retval][out] */ BOOL* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::namespaceURI( 

    /* [retval][out] */ BSTR* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::prefix( 

    /* [retval][out] */ BSTR* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::setPrefix( 

    /* [in] */ BSTR /*prefix*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::localName( 

    /* [retval][out] */ BSTR* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::hasAttributes( 

    /* [retval][out] */ BOOL* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::isSameNode( 

    /* [in] */ IDOMNode* other,

    /* [retval][out] */ BOOL* result)

{

    if (!result) {

        ASSERT_NOT_REACHED();

        return E_POINTER;

    }

    *result = FALSE;

    if (!other)

        return E_POINTER;

    COMPtr<DOMNode> domOther;

    HRESULT hr = other->QueryInterface(IID_DOMNode, (void**)&domOther);

    if (FAILED(hr))

        return hr;

    *result = m_node->isSameNode(domOther->node()) ? TRUE : FALSE;

    return S_OK;

}

HRESULT STDMETHODCALLTYPE DOMNode::isEqualNode( 

    /* [in] */ IDOMNode* /*other*/,

    /* [retval][out] */ BOOL* /*result*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::textContent( 

    /* [retval][out] */ BSTR* result)

{

    if (!result)

        return E_POINTER;

    *result = BString(m_node->textContent()).release();

    return S_OK;

}

HRESULT STDMETHODCALLTYPE DOMNode::setTextContent( 

    /* [in] */ BSTR /*text*/)

{

    ASSERT_NOT_REACHED();

    return E_NOTIMPL;

}

// DOMNode - IDOMEventTarget --------------------------------------------------

HRESULT STDMETHODCALLTYPE DOMNode::addEventListener( 

    /* [in] */ BSTR /*type*/,

    /* [in] */ IDOMEventListener* /*listener*/,

    /* [in] */ BOOL /*useCapture*/)

{

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::removeEventListener( 

    /* [in] */ BSTR /*type*/,

    /* [in] */ IDOMEventListener* /*listener*/,

    /* [in] */ BOOL /*useCapture*/)

{

    return E_NOTIMPL;

}

HRESULT STDMETHODCALLTYPE DOMNode::dispatchEvent( 

    /* [in] */ IDOMEvent* evt,

    /* [retval][out] */ BOOL* result)

{

    if (!m_node || !evt)

        return E_FAIL;

#if 0   // FIXME - raise dom exceptions

    if (![self _node]->isEventTargetNode())

        WebCore::raiseDOMException(DOM_NOT_SUPPORTED_ERR);

#endif

    COMPtr<DOMEvent> domEvent;

    HRESULT hr = evt->QueryInterface(IID_DOMEvent, (void**) &domEvent);

    if (FAILED(hr))

        return hr;

    WebCore::ExceptionCode ec = 0;

    *result = WebCore::EventTargetNodeCast(m_node)->dispatchEvent(domEvent->coreEvent(), ec) ? TRUE : FALSE;

#if 0   // FIXME - raise dom exceptions

    WebCore::raiseOnDOMError(ec);

#endif

    return S_OK;

}

// DOMNode - DOMNode ----------------------------------------------------------

DOMNode::DOMNode(WebCore::Node* n)

: m_node(0)

{

    if (n)

        n->ref();

    m_node = n;

}

DOMNode::~DOMNode()

{

    if (m_node)

        m_node->deref();

}

IDOMNode* DOMNode::createInstance(WebCore::Node* n)

{

    if (!n)

        return 0;

    HRESULT hr = S_OK;

    IDOMNode* domNode = 0;

    WebCore::Node::NodeType nodeType = n->nodeType();

    switch (nodeType) {

        case WebCore::Node::ELEMENT_NODE: 

        {

            IDOMElement* newElement = DOMElement::createInstance(static_cast<WebCore::Element*>(n));

            if (newElement) {

                hr = newElement->QueryInterface(IID_IDOMNode, (void**)&domNode);

                newElement->Release();

            }

        }

        break;

        case WebCore::Node::DOCUMENT_NODE:

        {

            IDOMDocument* newDocument = DOMDocument::createInstance(n->document());

            if (newDocument) {

                hr = newDocument->QueryInterface(IID_IDOMNode, (void**)&domNode);

                newDocument->Release();

            }

        }

        break;

        default:

        {

            DOMNode* newNode = new DOMNode(n);

            hr = newNode->QueryInterface(IID_IDOMNode, (void**)&domNode);

        }

        break;

    }

    if (FAILED(hr))

        return 0;

    return domNode;

}

// DOMNodeList - IUnknown -----------------------------------------------------

HRESULT STDMETHODCALLTYPE DOMNodeList::QueryInterface(REFIID riid, void** ppvObject)

{

    *ppvObject = 0;

    if (IsEqualGUID(riid, IID_IDOMNodeList))

        *ppvObject = static_cast<IDOMNodeList*>(this);

    else

        return DOMObject::QueryInterface(riid, ppvObject);

    AddRef();

    return S_OK;

}

// IDOMNodeList ---------------------------------------------------------------

HRESULT STDMETHODCALLTYPE DOMNodeList::item( 

    /* [in] */ UINT index,

    /* [retval][out] */ IDOMNode **result)

{

    *result = 0;

    if (!m_nodeList)

        return E_FAIL;

    WebCore::Node* itemNode = m_nodeList->item(index);

    if (!itemNode)

        return E_FAIL;

    *result = DOMNode::createInstance(itemNode);

    if (!(*result))

        return E_FAIL;

    return S_OK;

}

HRESULT STDMETHODCALLTYPE DOMNodeList::length( 

        /* [retval][out] */ UINT *result)

{

    *result = 0;

    if (!m_nodeList)

        return E_FAIL;

    *result = m_nodeList->length();

    return S_OK;

}

// DOMNodeList - DOMNodeList --------------------------------------------------

DOMNodeList::DOMNodeList(WebCore::NodeList* l)

: m_nodeList(0)

{

    if (l)

        l->ref();

    m_nodeList = l;

}

DOMNodeList::~DOMNodeList()

{

    if (m_nodeList)

        m_nodeList->deref();

}

IDOMNodeList* DOMNodeList::createInstance(WebCore::NodeList* l)

{

    if (!l)

        return 0;

    IDOMNodeList* domNodeList = 0;

    DOMNodeList* newNodeList = new DOMNodeList(l);

    if (FAILED(newNodeList->QueryInterface(IID_IDOMNodeList, (void**)&domNodeList)))

        return 0;

    return domNodeList;

}

// DOMDocument - IUnknown -----------------------------------------------------

HRESULT STDMETHODCALLTYPE DOMDocument::QueryInterface(REFIID riid, void** ppvObject)

{

    *ppvObject = 0;

    if (IsEqualGUID(riid, IID_IDOMDocument))

        *ppvObject = static_cast<IDOMDocument*>(this);

    else if (IsEqualGUID(riid, IID_IDOMViewCSS))

        *ppvObject = static_cast<IDOMViewCSS*>(this);

    else if (IsEqualGUID(riid, IID_IDOMDocumentEvent))

        *ppvObject = static_cast<IDOMDocumentEvent*>(this);

    else

        return DOMNode::QueryInterface(riid, ppvObject);

    AddRef();

    return S_OK;

}

// DOMDocument ----------------------------------------------------------------