467 lines
14 KiB
467 lines
14 KiB
/*
|
|
* This file is part of the KDE libraries
|
|
* Copyright (C) 1999-2003 Harri Porten (porten@kde.org)
|
|
* Copyright (C) 2001-2003 David Faure (faure@kde.org)
|
|
* Copyright (C) 2003 Apple Computer, 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; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
*/
|
|
|
|
#include "kjs_binding.h"
|
|
#include "kjs_dom.h"
|
|
|
|
#include "dom/dom_exception.h"
|
|
#include "dom/dom2_range.h"
|
|
#include "xml/dom2_eventsimpl.h"
|
|
#include "tdehtmlpart_p.h"
|
|
|
|
#include <kdebug.h>
|
|
#include <tdeparts/browserextension.h>
|
|
|
|
#include <assert.h>
|
|
|
|
using namespace KJS;
|
|
|
|
/* TODO:
|
|
* The catch all (...) clauses below shouldn't be necessary.
|
|
* But they helped to view for example www.faz.net in an stable manner.
|
|
* Those unknown exceptions should be treated as severe bugs and be fixed.
|
|
*
|
|
* these may be CSS exceptions - need to check - pmk
|
|
*/
|
|
|
|
Value DOMObject::get(ExecState *exec, const Identifier &p) const
|
|
{
|
|
Value result;
|
|
try {
|
|
result = tryGet(exec,p);
|
|
}
|
|
catch (DOM::DOMException e) {
|
|
// ### translate code into readable string ?
|
|
// ### oh, and s/TQString/i18n or I18N_NOOP (the code in kjs uses I18N_NOOP... but where is it translated ?)
|
|
// and where does it appear to the user ?
|
|
Object err = Error::create(exec, GeneralError, TQString(TQString("DOM exception %1").arg(e.code)).local8Bit());
|
|
exec->setException( err );
|
|
result = Undefined();
|
|
}
|
|
catch (...) {
|
|
kdError(6070) << "Unknown exception in DOMObject::get()" << endl;
|
|
result = String("Unknown exception");
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
void DOMObject::put(ExecState *exec, const Identifier &propertyName,
|
|
const Value &value, int attr)
|
|
{
|
|
try {
|
|
tryPut(exec, propertyName, value, attr);
|
|
}
|
|
catch (DOM::DOMException e) {
|
|
Object err = Error::create(exec, GeneralError, TQString(TQString("DOM exception %1").arg(e.code)).local8Bit());
|
|
exec->setException(err);
|
|
}
|
|
catch (...) {
|
|
kdError(6070) << "Unknown exception in DOMObject::put()" << endl;
|
|
}
|
|
}
|
|
|
|
void DOMObject::tryPut(ExecState *exec, const Identifier &propertyName,
|
|
const Value& value, int attr)
|
|
{
|
|
static_cast<ScriptInterpreter*>(exec->dynamicInterpreter())->customizedDOMObject(this);
|
|
ObjectImp::put(exec,propertyName,value,attr);
|
|
}
|
|
|
|
UString DOMObject::toString(ExecState *) const
|
|
{
|
|
return "[object " + className() + "]";
|
|
}
|
|
|
|
Boolean DOMObject::hasInstance(ExecState *exec, const Value &value)
|
|
{
|
|
if (value.type() != ObjectType)
|
|
return Boolean(false);
|
|
|
|
Value prot = get(exec,prototypePropertyName);
|
|
if (prot.type() != ObjectType && prot.type() != NullType) {
|
|
Object err = Error::create(exec, TypeError, "Invalid prototype encountered "
|
|
"in instanceof operation.");
|
|
exec->setException(err);
|
|
return Boolean(false);
|
|
}
|
|
|
|
Object v = Object(static_cast<ObjectImp*>(value.imp()));
|
|
while ((v = Object::dynamicCast(v.prototype())).imp()) {
|
|
if (v.imp() == prot.imp())
|
|
return Boolean(true);
|
|
}
|
|
return Boolean(false);
|
|
}
|
|
|
|
|
|
Value DOMFunction::get(ExecState *exec, const Identifier &propertyName) const
|
|
{
|
|
try {
|
|
return tryGet(exec, propertyName);
|
|
}
|
|
catch (DOM::DOMException e) {
|
|
Object err = Error::create(exec, GeneralError, TQString(TQString("DOM exception %1").arg(e.code)).local8Bit());
|
|
exec->setException(err);
|
|
return Undefined();
|
|
}
|
|
catch (...) {
|
|
kdError(6070) << "Unknown exception in DOMFunction::get()" << endl;
|
|
return String("Unknown exception");
|
|
}
|
|
}
|
|
|
|
Value DOMFunction::call(ExecState *exec, Object &thisObj, const List &args)
|
|
{
|
|
try {
|
|
return tryCall(exec, thisObj, args);
|
|
}
|
|
// pity there's no way to distinguish between these in JS code
|
|
// ### Look into setting prototypes of these & the use of instanceof so the exception
|
|
// type can be determined. See what other browsers do.
|
|
catch (DOM::DOMException e) {
|
|
Object err = Error::create(exec, GeneralError, TQString(TQString("DOM Exception %1").arg(e.code)).local8Bit());
|
|
err.put(exec, "code", Number(e.code));
|
|
exec->setException(err);
|
|
return Undefined();
|
|
}
|
|
catch (DOM::RangeException e) {
|
|
Object err = Error::create(exec, GeneralError, TQString(TQString("DOM Range Exception %1").arg(e.code)).local8Bit());
|
|
err.put(exec, "code", Number(e.code));
|
|
exec->setException(err);
|
|
return Undefined();
|
|
}
|
|
catch (DOM::CSSException e) {
|
|
Object err = Error::create(exec, GeneralError, TQString(TQString("CSS Exception %1").arg(e.code)).local8Bit());
|
|
err.put(exec, "code", Number(e.code));
|
|
exec->setException(err);
|
|
return Undefined();
|
|
}
|
|
catch (DOM::EventException e) {
|
|
Object err = Error::create(exec, GeneralError, TQString(TQString("DOM Event Exception %1").arg(e.code)).local8Bit());
|
|
err.put(exec, "code", Number(e.code));
|
|
exec->setException(err);
|
|
return Undefined();
|
|
}
|
|
catch (...) {
|
|
kdError(6070) << "Unknown exception in DOMFunction::call()" << endl;
|
|
Object err = Error::create(exec, GeneralError, "Unknown exception");
|
|
exec->setException(err);
|
|
return Undefined();
|
|
}
|
|
}
|
|
|
|
typedef TQPtrList<ScriptInterpreter> InterpreterList;
|
|
static InterpreterList *interpreterList;
|
|
|
|
ScriptInterpreter::ScriptInterpreter( const Object &global, tdehtml::ChildFrame* frame )
|
|
: Interpreter( global ), m_frame( frame ), m_domObjects(1021),
|
|
m_evt( 0L ), m_inlineCode(false), m_timerCallback(false)
|
|
{
|
|
#ifdef KJS_VERBOSE
|
|
kdDebug(6070) << "ScriptInterpreter::ScriptInterpreter " << this << " for part=" << m_frame << endl;
|
|
#endif
|
|
if ( !interpreterList )
|
|
interpreterList = new InterpreterList;
|
|
interpreterList->append( this );
|
|
}
|
|
|
|
ScriptInterpreter::~ScriptInterpreter()
|
|
{
|
|
#ifdef KJS_VERBOSE
|
|
kdDebug(6070) << "ScriptInterpreter::~ScriptInterpreter " << this << " for part=" << m_frame << endl;
|
|
#endif
|
|
assert( interpreterList && interpreterList->contains( this ) );
|
|
interpreterList->remove( this );
|
|
if ( interpreterList->isEmpty() ) {
|
|
delete interpreterList;
|
|
interpreterList = 0;
|
|
}
|
|
}
|
|
|
|
void ScriptInterpreter::forgetDOMObject( void* objectHandle )
|
|
{
|
|
if( !interpreterList ) return;
|
|
|
|
TQPtrListIterator<ScriptInterpreter> it( *interpreterList );
|
|
while ( it.current() ) {
|
|
(*it)->deleteDOMObject( objectHandle );
|
|
++it;
|
|
}
|
|
}
|
|
|
|
void ScriptInterpreter::mark()
|
|
{
|
|
Interpreter::mark();
|
|
#ifdef KJS_VERBOSE
|
|
kdDebug(6070) << "ScriptInterpreter::mark " << this << " marking " << m_customizedDomObjects.count() << " DOM objects" << endl;
|
|
#endif
|
|
TQPtrDictIterator<void> it( m_customizedDomObjects );
|
|
for( ; it.current(); ++it )
|
|
static_cast<DOMObject*>(it.currentKey())->mark();
|
|
}
|
|
|
|
KParts::ReadOnlyPart* ScriptInterpreter::part() const {
|
|
return m_frame->m_part;
|
|
}
|
|
|
|
bool ScriptInterpreter::isWindowOpenAllowed() const
|
|
{
|
|
if ( m_evt )
|
|
{
|
|
int id = m_evt->handle()->id();
|
|
bool eventOk = ( // mouse events
|
|
id == DOM::EventImpl::CLICK_EVENT ||
|
|
id == DOM::EventImpl::MOUSEUP_EVENT || id == DOM::EventImpl::MOUSEDOWN_EVENT ||
|
|
id == DOM::EventImpl::TDEHTML_ECMA_CLICK_EVENT || id == DOM::EventImpl::TDEHTML_ECMA_DBLCLICK_EVENT ||
|
|
// keyboard events
|
|
id == DOM::EventImpl::KEYDOWN_EVENT || id == DOM::EventImpl::KEYPRESS_EVENT ||
|
|
id == DOM::EventImpl::KEYUP_EVENT ||
|
|
// other accepted events
|
|
id == DOM::EventImpl::SELECT_EVENT || id == DOM::EventImpl::CHANGE_EVENT ||
|
|
id == DOM::EventImpl::SUBMIT_EVENT );
|
|
kdDebug(6070) << "Window.open, smart policy: id=" << id << " eventOk=" << eventOk << endl;
|
|
if (eventOk)
|
|
return true;
|
|
} else // no event
|
|
{
|
|
if ( m_inlineCode && !m_timerCallback )
|
|
{
|
|
// This is the <a href="javascript:window.open('...')> case -> we let it through
|
|
return true;
|
|
kdDebug(6070) << "Window.open, smart policy, no event, inline code -> ok" << endl;
|
|
}
|
|
else // This is the <script>window.open(...)</script> case or a timer callback -> block it
|
|
kdDebug(6070) << "Window.open, smart policy, no event, <script> tag -> refused" << endl;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
|
|
UString::UString(const TQString &d)
|
|
{
|
|
unsigned int len = d.length();
|
|
UChar *dat = new UChar[len];
|
|
memcpy(dat, d.unicode(), len * sizeof(UChar));
|
|
rep = UString::Rep::create(dat, len);
|
|
}
|
|
|
|
UString::UString(const DOM::DOMString &d)
|
|
{
|
|
if (d.isNull()) {
|
|
// we do a conversion here as null DOMStrings shouldn't cross
|
|
// the boundary to kjs. They should either be empty strings
|
|
// or explicitly converted to KJS::Null via getString().
|
|
attach(&Rep::empty);
|
|
return;
|
|
}
|
|
|
|
unsigned int len = d.length();
|
|
UChar *dat = new UChar[len];
|
|
memcpy(dat, d.unicode(), len * sizeof(UChar));
|
|
rep = UString::Rep::create(dat, len);
|
|
}
|
|
|
|
DOM::DOMString UString::string() const
|
|
{
|
|
return DOM::DOMString((TQChar*) data(), size());
|
|
}
|
|
|
|
TQString UString::qstring() const
|
|
{
|
|
return TQString((TQChar*) data(), size());
|
|
}
|
|
|
|
TQConstString UString::qconststring() const
|
|
{
|
|
return TQConstString((TQChar*) data(), size());
|
|
}
|
|
|
|
DOM::DOMString Identifier::string() const
|
|
{
|
|
return DOM::DOMString((TQChar*) data(), size());
|
|
}
|
|
|
|
TQString Identifier::qstring() const
|
|
{
|
|
return TQString((TQChar*) data(), size());
|
|
}
|
|
|
|
DOM::Node KJS::toNode(const Value& val)
|
|
{
|
|
Object obj = Object::dynamicCast(val);
|
|
if (!obj.isValid() || !obj.inherits(&DOMNode::info))
|
|
return DOM::Node();
|
|
|
|
const DOMNode *dobj = static_cast<const DOMNode*>(obj.imp());
|
|
return dobj->toNode();
|
|
}
|
|
|
|
Value KJS::getString(DOM::DOMString s)
|
|
{
|
|
if (s.isNull())
|
|
return Null();
|
|
else
|
|
return String(s);
|
|
}
|
|
|
|
TQVariant KJS::ValueToVariant(ExecState* exec, const Value &val) {
|
|
TQVariant res;
|
|
switch (val.type()) {
|
|
case BooleanType:
|
|
res = TQVariant(val.toBoolean(exec));
|
|
break;
|
|
case NumberType:
|
|
res = TQVariant(val.toNumber(exec));
|
|
break;
|
|
case StringType:
|
|
res = TQVariant(val.toString(exec).qstring());
|
|
break;
|
|
default:
|
|
// everything else will be 'invalid'
|
|
break;
|
|
}
|
|
return res;
|
|
}
|
|
|
|
class EmbedLiveConnect : public ObjectImp
|
|
{
|
|
friend Value KJS::getLiveConnectValue(KParts::LiveConnectExtension *lc, const TQString & name, const int type, const TQString & value, int id);
|
|
EmbedLiveConnect(KParts::LiveConnectExtension *lc, UString n, KParts::LiveConnectExtension::Type t, int id);
|
|
public:
|
|
~EmbedLiveConnect();
|
|
|
|
virtual Value get(ExecState *, const Identifier & prop) const;
|
|
virtual void put(ExecState * exec, const Identifier &prop, const Value & value, int=None);
|
|
virtual Value call(ExecState * exec, Object &, const List &args);
|
|
virtual bool implementsCall() const;
|
|
virtual bool toBoolean(ExecState *) const;
|
|
virtual Value toPrimitive(ExecState *exec, Type) const;
|
|
virtual UString toString(ExecState *) const;
|
|
|
|
private:
|
|
EmbedLiveConnect(const EmbedLiveConnect &);
|
|
TQGuardedPtr<KParts::LiveConnectExtension> m_liveconnect;
|
|
UString name;
|
|
KParts::LiveConnectExtension::Type objtype;
|
|
unsigned long objid;
|
|
};
|
|
|
|
Value KJS::getLiveConnectValue(KParts::LiveConnectExtension *lc, const TQString & name, const int type, const TQString & value, int id)
|
|
{
|
|
KParts::LiveConnectExtension::Type t=(KParts::LiveConnectExtension::Type)type;
|
|
switch(t) {
|
|
case KParts::LiveConnectExtension::TypeBool: {
|
|
bool ok;
|
|
int i = value.toInt(&ok);
|
|
if (ok)
|
|
return Boolean(i);
|
|
return Boolean(!strcasecmp(value.latin1(), "true"));
|
|
}
|
|
case KParts::LiveConnectExtension::TypeObject:
|
|
case KParts::LiveConnectExtension::TypeFunction:
|
|
return Value(new EmbedLiveConnect(lc, name, t, id));
|
|
case KParts::LiveConnectExtension::TypeNumber: {
|
|
bool ok;
|
|
int i = value.toInt(&ok);
|
|
if (ok)
|
|
return Number(i);
|
|
else
|
|
return Number(value.toDouble(&ok));
|
|
}
|
|
case KParts::LiveConnectExtension::TypeString:
|
|
return String(value);
|
|
case KParts::LiveConnectExtension::TypeVoid:
|
|
default:
|
|
return Undefined();
|
|
}
|
|
}
|
|
|
|
/* only with gcc > 3.4 TDE_NO_EXPORT */
|
|
EmbedLiveConnect::EmbedLiveConnect(KParts::LiveConnectExtension *lc, UString n, KParts::LiveConnectExtension::Type t, int id)
|
|
: m_liveconnect (lc), name(n), objtype(t), objid(id)
|
|
{}
|
|
|
|
/* only with gcc > 3.4 TDE_NO_EXPORT */
|
|
EmbedLiveConnect::~EmbedLiveConnect() {
|
|
if (m_liveconnect)
|
|
m_liveconnect->unregister(objid);
|
|
}
|
|
|
|
TDE_NO_EXPORT
|
|
Value EmbedLiveConnect::get(ExecState *, const Identifier & prop) const
|
|
{
|
|
if (m_liveconnect) {
|
|
KParts::LiveConnectExtension::Type rettype;
|
|
TQString retval;
|
|
unsigned long retobjid;
|
|
if (m_liveconnect->get(objid, prop.qstring(), rettype, retobjid, retval))
|
|
return getLiveConnectValue(m_liveconnect, prop.qstring(), rettype, retval, retobjid);
|
|
}
|
|
return Undefined();
|
|
}
|
|
|
|
TDE_NO_EXPORT
|
|
void EmbedLiveConnect::put(ExecState * exec, const Identifier &prop, const Value & value, int)
|
|
{
|
|
if (m_liveconnect)
|
|
m_liveconnect->put(objid, prop.qstring(), value.toString(exec).qstring());
|
|
}
|
|
|
|
TDE_NO_EXPORT
|
|
bool EmbedLiveConnect::implementsCall() const {
|
|
return objtype == KParts::LiveConnectExtension::TypeFunction;
|
|
}
|
|
|
|
TDE_NO_EXPORT
|
|
Value EmbedLiveConnect::call(ExecState *exec, Object&, const List &args)
|
|
{
|
|
if (m_liveconnect) {
|
|
TQStringList qargs;
|
|
for (ListIterator i = args.begin(); i != args.end(); ++i)
|
|
qargs.append((*i).toString(exec).qstring());
|
|
KParts::LiveConnectExtension::Type rtype;
|
|
TQString rval;
|
|
unsigned long robjid;
|
|
if (m_liveconnect->call(objid, name.qstring(), qargs, rtype, robjid, rval))
|
|
return getLiveConnectValue(m_liveconnect, name.qstring(), rtype, rval, robjid);
|
|
}
|
|
return Undefined();
|
|
}
|
|
|
|
TDE_NO_EXPORT
|
|
bool EmbedLiveConnect::toBoolean(ExecState *) const {
|
|
return true;
|
|
}
|
|
|
|
TDE_NO_EXPORT
|
|
Value EmbedLiveConnect::toPrimitive(ExecState *exec, Type) const {
|
|
return String(toString(exec));
|
|
}
|
|
|
|
TDE_NO_EXPORT
|
|
UString EmbedLiveConnect::toString(ExecState *) const {
|
|
TQString str;
|
|
const char *type = objtype == KParts::LiveConnectExtension::TypeFunction ? "Function" : "Object";
|
|
str.sprintf("[object %s ref=%d]", type, (int) objid);
|
|
return UString(str);
|
|
}
|