diff options
Diffstat (limited to 'khtml/ecma/kjs_binding.cpp')
-rw-r--r-- | khtml/ecma/kjs_binding.cpp | 467 |
1 files changed, 0 insertions, 467 deletions
diff --git a/khtml/ecma/kjs_binding.cpp b/khtml/ecma/kjs_binding.cpp deleted file mode 100644 index 125401cae..000000000 --- a/khtml/ecma/kjs_binding.cpp +++ /dev/null @@ -1,467 +0,0 @@ -// -*- c-basic-offset: 2 -*- -/* - * This file is part of the KDE libraries - * Copyright (C) 1999-2003 Harri Porten ([email protected]) - * Copyright (C) 2001-2003 David Faure ([email protected]) - * 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 "khtmlpart_p.h" - -#include <kdebug.h> -#include <kparts/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/QString/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, khtml::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::KHTML_ECMA_CLICK_EVENT || id == DOM::EventImpl::KHTML_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), 0); - 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 KDE_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 KDE_NO_EXPORT */ -EmbedLiveConnect::~EmbedLiveConnect() { - if (m_liveconnect) - m_liveconnect->unregister(objid); -} - -KDE_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(); -} - -KDE_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()); -} - -KDE_NO_EXPORT -bool EmbedLiveConnect::implementsCall() const { - return objtype == KParts::LiveConnectExtension::TypeFunction; -} - -KDE_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(); -} - -KDE_NO_EXPORT -bool EmbedLiveConnect::toBoolean(ExecState *) const { - return true; -} - -KDE_NO_EXPORT -Value EmbedLiveConnect::toPrimitive(ExecState *exec, Type) const { - return String(toString(exec)); -} - -KDE_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); -} |