diff options
Diffstat (limited to 'tdehtml/ecma')
40 files changed, 18689 insertions, 0 deletions
diff --git a/tdehtml/ecma/AUTHORS b/tdehtml/ecma/AUTHORS new file mode 100644 index 000000000..2a129330d --- /dev/null +++ b/tdehtml/ecma/AUTHORS @@ -0,0 +1,4 @@ +Harri Porten <porten@kde.org> +Peter Kelly <pmk@post.com> +Dirk Mueller <mueller@kde.org> +Daniel Molkentin <molkentin@kde.org> diff --git a/tdehtml/ecma/CMakeLists.txt b/tdehtml/ecma/CMakeLists.txt new file mode 100644 index 000000000..2d7366e28 --- /dev/null +++ b/tdehtml/ecma/CMakeLists.txt @@ -0,0 +1,61 @@ +################################################# +# +# (C) 2010 Serghei Amelian +# serghei (DOT) amelian (AT) gmail.com +# +# Improvements and feedback are welcome +# +# This file is released under GPL >= 2 +# +################################################# + +include_directories( + ${TQT_INCLUDE_DIRS} + ${CMAKE_CURRENT_BINARY_DIR} + ${CMAKE_BINARY_DIR} + ${CMAKE_BINARY_DIR}/kjs + ${CMAKE_BINARY_DIR}/tdecore + ${CMAKE_SOURCE_DIR} + ${CMAKE_SOURCE_DIR}/tdehtml + ${CMAKE_SOURCE_DIR}/dcop + ${CMAKE_SOURCE_DIR}/tdefx + ${CMAKE_SOURCE_DIR}/tdecore + ${CMAKE_SOURCE_DIR}/tdeui + ${CMAKE_SOURCE_DIR}/tdeio + ${CMAKE_SOURCE_DIR}/tdeio/tdeio + ${CMAKE_SOURCE_DIR}/tdeio/bookmarks + ${CMAKE_SOURCE_DIR}/kjs + ${CMAKE_SOURCE_DIR}/tdewallet/client + ${CMAKE_SOURCE_DIR}/tdeutils +) + +link_directories( + ${TQT_LIBRARY_DIRS} +) + + +##### kjs_html-static ########################### + +set( target kjs_html ) + +set( ${target}_SRCS + kjs_binding.cpp kjs_dom.cpp kjs_html.cpp kjs_window.cpp + kjs_navigator.cpp kjs_proxy.cpp kjs_css.cpp + kjs_range.cpp kjs_traversal.cpp kjs_events.cpp + kjs_views.cpp kjs_debugwin.cpp kjs_mozilla.cpp + xmlhttprequest.cpp xmlserializer.cpp domparser.cpp +) + +set( ${target}_LUTS + kjs_dom.cpp kjs_html.cpp kjs_css.cpp kjs_events.cpp + kjs_navigator.cpp kjs_mozilla.cpp kjs_range.cpp + kjs_traversal.cpp kjs_views.cpp kjs_window.cpp + xmlhttprequest.cpp xmlserializer.cpp domparser.cpp +) + +tde_add_luts( ${${target}_LUTS} ) + +tde_add_library( ${target} STATIC_PIC AUTOMOC + SOURCES ${${target}_SRCS} +) + diff --git a/tdehtml/ecma/Makefile.am b/tdehtml/ecma/Makefile.am new file mode 100644 index 000000000..ee3334668 --- /dev/null +++ b/tdehtml/ecma/Makefile.am @@ -0,0 +1,90 @@ +# This file is part of the KDE libraries +# Copyright (C) 1999 Harri Porten (porten@kde.org) + +# 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. + +INCLUDES = -I$(top_srcdir) -I$(top_srcdir)/tdeio -I$(top_srcdir)/tdeio/bookmarks -I$(top_srcdir)/tdehtml -I$(top_srcdir)/tdehtml/java -I$(top_srcdir)/tdewallet/client -I$(top_srcdir)/tdeutils -I$(top_builddir)/kjs $(all_includes) + +KDE_CXXFLAGS = $(USE_EXCEPTIONS) + +noinst_LTLIBRARIES = libkjs_html.la + +noinst_HEADERS = kjs_html.h kjs_dom.h kjs_window.h kjs_navigator.h \ + kjs_binding.h kjs_proxy.h kjs_css.h kjs_range.h \ + kjs_traversal.h kjs_events.h kjs_views.h kjs_debugwin.h + +libkjs_html_la_SOURCES = kjs_binding.cpp kjs_dom.cpp kjs_html.cpp kjs_window.cpp \ + kjs_navigator.cpp kjs_proxy.cpp \ + kjs_css.cpp kjs_range.cpp kjs_traversal.cpp kjs_events.cpp \ + kjs_views.cpp kjs_debugwin.cpp kjs_mozilla.cpp xmlhttprequest.cpp \ + xmlserializer.cpp domparser.cpp +#libkjs_html_la_LDFLAGS = -module -avoid-version $(all_libraries) +libkjs_html_la_LIBADD = $(top_builddir)/kjs/libkjs.la # ../libtdehtml.la +libkjs_html_la_METASOURCES = AUTO + +LUT_FILES = kjs_dom.lut.h kjs_html.lut.h kjs_css.lut.h kjs_events.lut.h kjs_navigator.lut.h \ + kjs_mozilla.lut.h kjs_range.lut.h kjs_traversal.lut.h kjs_views.lut.h kjs_window.lut.h + +CREATE_HASH_TABLE = $(top_srcdir)/kjs/create_hash_table + +kjs_dom.lut.h : $(srcdir)/kjs_dom.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_dom.cpp > $@ +kjs_dom.lo: kjs_dom.lut.h +kjs_html.lut.h : $(srcdir)/kjs_html.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_html.cpp > $@ +kjs_html.lo: kjs_html.lut.h +kjs_css.lut.h : $(srcdir)/kjs_css.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_css.cpp > $@ +kjs_css.lo: kjs_css.lut.h +kjs_events.lut.h : $(srcdir)/kjs_events.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_events.cpp > $@ +kjs_events.lo: kjs_events.lut.h +kjs_navigator.lut.h : $(srcdir)/kjs_navigator.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_navigator.cpp > $@ +kjs_navigator.lo: kjs_navigator.lut.h +kjs_mozilla.lut.h : $(srcdir)/kjs_mozilla.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_mozilla.cpp > $@ +kjs_mozilla.lo: kjs_mozilla.lut.h +kjs_range.lut.h : $(srcdir)/kjs_range.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_range.cpp > $@ +kjs_range.lo: kjs_range.lut.h +kjs_traversal.lut.h : $(srcdir)/kjs_traversal.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_traversal.cpp > $@ +kjs_traversal.lo: kjs_traversal.lut.h +kjs_views.lut.h : $(srcdir)/kjs_views.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_views.cpp > $@ +kjs_views.lo: kjs_views.lut.h +kjs_window.lut.h : $(srcdir)/kjs_window.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/kjs_window.cpp > $@ +kjs_window.lo: kjs_window.lut.h +xmlhttprequest.lut.h : $(srcdir)/xmlhttprequest.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/xmlhttprequest.cpp > $@ +xmlhttprequest.lo: xmlhttprequest.lut.h +xmlserializer.lut.h : $(srcdir)/xmlserializer.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/xmlserializer.cpp > $@ +xmlserializer.lo: xmlserializer.lut.h +domparser.lut.h : $(srcdir)/domparser.cpp $(CREATE_HASH_TABLE) + $(PERL) $(CREATE_HASH_TABLE) $(srcdir)/domparser.cpp > $@ +domparser.lo: domparser.lut.h + + +CLEANFILES = $(LUT_FILES) + +# interactive test program +#check_PROGRAMS = testecma +#testecma_SOURCES = testecma.cpp +#testecma_LDADD = ../libtdehtml.la $(top_builddir)/kjs/libkjs.la + diff --git a/tdehtml/ecma/README b/tdehtml/ecma/README new file mode 100644 index 000000000..f44d663a0 --- /dev/null +++ b/tdehtml/ecma/README @@ -0,0 +1,21 @@ +This module contains the ECMAScript a.k.a. JavaScript language bindings for +the TDEHTML Part. + +The module is loaded into TDEHTML's address space on demand. + +To test the non-HTML DOM functions you may compile a little interactive +interpreter called 'testecma' with 'make check' (see testecma.cpp for +further details). + +Harri Porten <porten@kde.org> + +======================================================================== +Appendix A: Web sites with useful tests + +http://oucsace.cs.ohiou.edu/~ywang/JavaScript +http://www.xs4all.nl/~ppk/js/index.html?version5.html + +Appendix B: References for HTML JavaScript bindings + +http://msdn.microsoft.com/workshop/author/dhtml/reference/objects.asp +http://docs.sun.com/source/816-6408-10/ diff --git a/tdehtml/ecma/THANKS b/tdehtml/ecma/THANKS new file mode 100644 index 000000000..b21dce741 --- /dev/null +++ b/tdehtml/ecma/THANKS @@ -0,0 +1,9 @@ +Vadim Plessky <lucy-ples@mtu-net.ru> for dissecting an endless number +of bug reports and therefore taking quite some load of our shoulders. + +Ferdinand Gassauer <f.gassauer@aon.at> for numerous useful bug reports +and keeping track of them later. + +David Faure <faure@kde.org> for taking some time off from Konqueror +and making a lotto site working fixing bugs along the way. + diff --git a/tdehtml/ecma/TODO b/tdehtml/ecma/TODO new file mode 100644 index 000000000..16a7152c5 --- /dev/null +++ b/tdehtml/ecma/TODO @@ -0,0 +1,12 @@ +Has to be done +============== +- frame[] correct search and sorting order (DONE ?) +- optional error message output +- change KParts::WindowArgs && friends + that we can detect if a locationbar is on/or not + +Could be done +============= +- Make the graphical debugger useable +- Improve internal structures to give a really useful + output on errors (i.e. improve backtrance capabilities) diff --git a/tdehtml/ecma/domparser.cpp b/tdehtml/ecma/domparser.cpp new file mode 100644 index 000000000..672754a45 --- /dev/null +++ b/tdehtml/ecma/domparser.cpp @@ -0,0 +1,112 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2005 Anders Carlsson (andersca@mac.com) + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser 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 + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser 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 "domparser.h" +#include "domparser.lut.h" + +#include "kjs_dom.h" +#include "kjs_window.h" +#include "xml/dom_nodeimpl.h" +#include "xml/dom_docimpl.h" + +#include "html/html_documentimpl.h" + +using DOM::DocumentImpl; + +////////////////////// DOMParser Object //////////////////////// + +/* Source for DOMParserProtoTable. +@begin DOMParserProtoTable 1 + parseFromString DOMParser::ParseFromString DontDelete|Function 2 +@end +*/ + + +namespace KJS { + +KJS_DEFINE_PROTOTYPE(DOMParserProto) +IMPLEMENT_PROTOFUNC_DOM(DOMParserProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMParser", DOMParserProto, DOMParserProtoFunc) + + +DOMParserConstructorImp::DOMParserConstructorImp(ExecState *, DOM::DocumentImpl *d) + : doc(d) +{ +} + +bool DOMParserConstructorImp::implementsConstruct() const +{ + return true; +} + +Object DOMParserConstructorImp::construct(ExecState *exec, const List &) +{ + return Object(new DOMParser(exec, doc.get())); +} + +const ClassInfo DOMParser::info = { "DOMParser", 0, 0 /* &DOMParserTable*/, 0 }; + + +DOMParser::DOMParser(ExecState *exec, DOM::DocumentImpl *d) + : DOMObject(DOMParserProto::self(exec)), doc(d) +{ +// setPrototype(DOMParserProto::self(exec)); +} + + +Value DOMParserProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + if (!thisObj.inherits(&DOMParser::info)) { + Object err = Error::create(exec,TypeError); + exec->setException(err); + return err; + } + + DOMParser *parser = static_cast<DOMParser *>(thisObj.imp()); + + switch (id) { + case DOMParser::ParseFromString: + { + if (args.size() != 2) { + return Undefined(); + } + + TQString str = args[0].toString(exec).qstring(); + TQString contentType = args[1].toString(exec).qstring().stripWhiteSpace(); + + if (contentType == "text/xml" || contentType == "application/xml" || contentType == "application/xhtml+xml") { + DocumentImpl *docImpl = parser->doc->implementation()->createDocument(); + + docImpl->open(); + docImpl->write(str); + docImpl->finishParsing(); + docImpl->close(); + + return getDOMNode(exec, docImpl); + } + } + } + + return Undefined(); +} + +} // end namespace + + diff --git a/tdehtml/ecma/domparser.h b/tdehtml/ecma/domparser.h new file mode 100644 index 000000000..13a880837 --- /dev/null +++ b/tdehtml/ecma/domparser.h @@ -0,0 +1,58 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2005 Anders Carlsson (andersca@mac.com) + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser 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 + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser 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 + */ + +#ifndef DOMPARSER_H +#define DOMPARSER_H + +#include <tqguardedptr.h> +#include <kjs/object.h> +#include <kjs/interpreter.h> +#include <misc/shared.h> + +#include "kjs_dom.h" + +namespace KJS { + + class DOMParserConstructorImp : public ObjectImp { + public: + DOMParserConstructorImp(ExecState *, DOM::DocumentImpl *d); + virtual bool implementsConstruct() const; + virtual Object construct(ExecState *exec, const List &args); +private: + tdehtml::SharedPtr<DOM::DocumentImpl> doc; + }; + + class DOMParser : public DOMObject { + public: + DOMParser(ExecState *, DOM::DocumentImpl *d); + virtual bool toBoolean(ExecState *) const { return true; } + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { ParseFromString }; + + private: + TQGuardedPtr<DOM::DocumentImpl> doc; + + friend class DOMParserProtoFunc; + }; + +} // namespace + +#endif diff --git a/tdehtml/ecma/jsk.html b/tdehtml/ecma/jsk.html new file mode 100644 index 000000000..917c083e8 --- /dev/null +++ b/tdehtml/ecma/jsk.html @@ -0,0 +1,113 @@ +<html> +<!-- +Javascript Konsole (c) 2001 Till Krech <till@snafu.de> +Dieser Code unterliegt den Bedingungen der Gnu Public License Version 2. +--> +<head> +<title>Javascript Konsole</title> +<style type="text/css"> +code { + color:#444488; +} +em { + font-weight: bold; +} +</style> +<script language="JavaScript"> + +function do_eval() { + var fo = document.forms.fo; + fo.restyp.value = ""; + fo.field.value = ""; + var fo = document.fo; + var expr = fo.zeile.value; + var result = eval(expr); + fo.restyp.value = typeof(result); + var tuedel = ""; + if (typeof(result) == "string") { + tuedel = '"'; + } + fo.field.value = tuedel + result + tuedel; +} + +function do_properties() { + var fo = document.forms.fo; + fo.restyp.value = ""; + fo.field.value = ""; + var fo = document.fo; + var expr = fo.zeile.value; + var result = eval(expr); + var i; + fo.restyp.value = typeof(result); + var fieldvalue = ""; + if (typeof(result) != "undefined") { + for (i in result) { + var tuedel = ""; + var propval = result[i]; + if (typeof(propval) == "string") { + tuedel = '"'; + } + fieldvalue += + i + + " [" + typeof(propval) + "] = " + + tuedel + propval + tuedel + "\n"; + } + fo.field.value = fieldvalue; + } +} + + +</script> +</head> +<body bgcolor="#dddddd"> +<h1>JavaScript Konsole</h1> +<form name="fo"> +<table bgcolor="#cccccc" cellspacing="1" cellpadding="8"> + <tr bgcolor="#ffeeee"><th height="40" align="right">Expression</th><td><input name="zeile" type="text" size="60"></td></tr> + <tr bgcolor="#eeeeee"><th align="right">Result Type</th><td><input name="restyp" readonly type="text" size="60"></td></tr> + <tr bgcolor="#eeeeee"><th align="right">Result(s)</th><td><textarea readonly name="field" rows="10" cols="60"></textarea></td></tr> +<tr bgcolor="#ffeeee"><td> </td><td> + <input type="button" value="list properties" onclick="do_properties()"> + <input type="button" value="evaluate" onclick="do_eval()"> + <input type="reset" value="clear fields" +</td></tr> +</table> +</form> +<h2>Explanation</h2> +<h3>Operation</h3> +<blockquote> +When <em>evaluate</em> is pressed, the given expression is evaluated and the result is displayed in the result(s) field. +In case of <em>list properties</em> being pressed, the result of the expression is taken as an object +and the objects properties are displayed with their type and value in the the result(s) field. +</blockquote> +<h3>Expression</h3> +<blockquote> +Expression must be a valid javascript expression, e.g.<br><code>window</code> +<br>or<br><code>document.body.innerHTML</code><br>or<br> +<code>"Today: " + (new Date()).toString()</code><br> +or<br> +<code>"Cablecar".match(/ab.*c/)</code> +<br>It is also possible to assign a value, +e.g.<br><code>document.getElementsByTagName('H1').item(0).innerText="Hello World"</code><br> +You may execute these examples by pasting them into the expression field. +</blockquote> +<h3>Result Type</h3> +<blockquote> +The type of the result of the given expression. +</blockquote> +<h3>Result(s)</h3> +<blockquote> +The result of the expression is implicitly converted to a primitive type by the javascript interpreter, +if <em>evaluate</em> was pressed. When <em>list properties</em> was pressed, a <code>for (var i in obj)</code> loop +is executed to list the properties. These object properties are in turn evaluated and their types and values +are displayed. +</blockquote> +<p> +<a href="mailto:till@snafu.de?subject=JavaScript%20Konsole">Till Krech</a> +</p> +<p> +<br> +</p> + +</body> +</html> diff --git a/tdehtml/ecma/kjs_binding.cpp b/tdehtml/ecma/kjs_binding.cpp new file mode 100644 index 000000000..d9f0b7b25 --- /dev/null +++ b/tdehtml/ecma/kjs_binding.cpp @@ -0,0 +1,467 @@ +// -*- c-basic-offset: 2 -*- +/* + * 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/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, 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), 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); +} diff --git a/tdehtml/ecma/kjs_binding.h b/tdehtml/ecma/kjs_binding.h new file mode 100644 index 000000000..9b69284ba --- /dev/null +++ b/tdehtml/ecma/kjs_binding.h @@ -0,0 +1,409 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 1999-2001 Harri Porten (porten@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 + */ + +#ifndef _KJS_BINDING_H_ +#define _KJS_BINDING_H_ + +#include <kjs/interpreter.h> +#include <kjs/function_object.h> /// for FunctionPrototypeImp + +#include <dom/dom_node.h> +#include <tqvariant.h> +#include <tqptrdict.h> +#include <kurl.h> +#include <kjs/lookup.h> + +namespace KParts { + class ReadOnlyPart; + class LiveConnectExtension; +} + +namespace tdehtml { + class ChildFrame; +} + +namespace KJS { + + /** + * Base class for all objects in this binding - get() and put() run + * tryGet() and tryPut() respectively, and catch exceptions if they + * occur. + */ + class DOMObject : public ObjectImp { + public: + DOMObject(const Object &proto) : ObjectImp(proto) {} + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const + { return ObjectImp::get(exec, propertyName); } + virtual bool implementsHasInstance() const { return true; } + virtual Boolean hasInstance(ExecState *exec, const Value &value); + virtual void put(ExecState *exec, const Identifier &propertyName, + const Value &value, int attr = None); + virtual void tryPut(ExecState *exec, const Identifier &propertyName, + const Value& value, int attr = None); + + virtual UString toString(ExecState *exec) const; + }; + + /** + * Base class for all functions in this binding - get() and call() run + * tryGet() and tryCall() respectively, and catch exceptions if they + * occur. + */ + class DOMFunction : public InternalFunctionImp { + public: + DOMFunction(ExecState* exec) : InternalFunctionImp( + static_cast<FunctionPrototypeImp*>(exec->interpreter()->builtinFunctionPrototype().imp()) + ) {} + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const + { return ObjectImp::get(exec, propertyName); } + + virtual bool implementsCall() const { return true; } + virtual Value call(ExecState *exec, Object &thisObj, const List &args); + + virtual Value tryCall(ExecState *exec, Object &thisObj, const List&args) + { return ObjectImp::call(exec, thisObj, args); } + virtual bool toBoolean(ExecState *) const { return true; } + }; + + /** + * We inherit from Interpreter, to save a pointer to the HTML part + * that the interpreter runs for. + * The interpreter also stores the DOM object - >KJS::DOMObject cache. + */ + class KDE_EXPORT ScriptInterpreter : public Interpreter + { + public: + ScriptInterpreter( const Object &global, tdehtml::ChildFrame* frame ); + virtual ~ScriptInterpreter(); + + DOMObject* getDOMObject( void* objectHandle ) const { + return m_domObjects[objectHandle]; + } + void putDOMObject( void* objectHandle, DOMObject* obj ) { + m_domObjects.insert( objectHandle, obj ); + } + void customizedDOMObject( DOMObject* obj ) { + m_customizedDomObjects.replace( obj, this ); + } + bool deleteDOMObject( void* objectHandle ) { + DOMObject* obj = m_domObjects.take( objectHandle ); + if (obj) { + m_customizedDomObjects.remove( obj ); + return true; + } + else + return false; + } + void clear() { + m_customizedDomObjects.clear(); + m_domObjects.clear(); + } + /** + * Static method. Makes all interpreters forget about the object + */ + static void forgetDOMObject( void* objectHandle ); + + /** + * Mark objects in the DOMObject cache. + */ + virtual void mark(); + KParts::ReadOnlyPart* part() const; + + virtual int rtti() { return 1; } + + /** + * Set the event that is triggering the execution of a script, if any + */ + void setCurrentEvent( DOM::Event *evt ) { m_evt = evt; } + void setInlineCode( bool inlineCode ) { m_inlineCode = inlineCode; } + void setProcessingTimerCallback( bool timerCallback ) { m_timerCallback = timerCallback; } + /** + * "Smart" window.open policy + */ + bool isWindowOpenAllowed() const; + + private: + tdehtml::ChildFrame* m_frame; + TQPtrDict<DOMObject> m_domObjects; + TQPtrDict<void> m_customizedDomObjects; //Objects which had custom properties set, + //and should not be GC'd. key is DOMObject* + DOM::Event *m_evt; + bool m_inlineCode; + bool m_timerCallback; + }; + /** + * Retrieve from cache, or create, a KJS object around a DOM object + */ + template<class DOMObj, class KJSDOMObj> + inline Value cacheDOMObject(ExecState *exec, DOMObj domObj) + { + DOMObject *ret; + if (domObj.isNull()) + return Null(); + ScriptInterpreter* interp = static_cast<ScriptInterpreter *>(exec->interpreter()); + if ((ret = interp->getDOMObject(domObj.handle()))) + return Value(ret); + else { + ret = new KJSDOMObj(exec, domObj); + interp->putDOMObject(domObj.handle(),ret); + return Value(ret); + } + } + + /** + * Convert an object to a Node. Returns a null Node if not possible. + */ + DOM::Node toNode(const Value&); + /** + * Get a String object, or Null() if s is null + */ + Value getString(DOM::DOMString s); + + /** + * Convery a KJS value into a QVariant + */ + TQVariant ValueToVariant(ExecState* exec, const Value& val); + + /** + * We need a modified version of lookupGet because + * we call tryGet instead of get, in DOMObjects. + */ + template <class FuncImp, class ThisImp, class ParentImp> + inline Value DOMObjectLookupGet(ExecState *exec, const Identifier &propertyName, + const HashTable* table, const ThisImp* thisObj) + { + const HashEntry* entry = Lookup::findEntry(table, propertyName); + + if (!entry) // not found, forward to parent + return thisObj->ParentImp::tryGet(exec, propertyName); + + if (entry->attr & Function) { + return lookupOrCreateFunction<FuncImp>(exec, propertyName, thisObj, entry->value, entry->params, entry->attr); + } + return thisObj->getValueProperty(exec, entry->value); + } + + /** + * Simplified version of DOMObjectLookupGet in case there are no + * functions, only "values". + */ + template <class ThisImp, class ParentImp> + inline Value DOMObjectLookupGetValue(ExecState *exec, const Identifier &propertyName, + const HashTable* table, const ThisImp* thisObj) + { + const HashEntry* entry = Lookup::findEntry(table, propertyName); + + if (!entry) // not found, forward to parent + return thisObj->ParentImp::tryGet(exec, propertyName); + + if (entry->attr & Function) + fprintf(stderr, "Function bit set! Shouldn't happen in lookupValue!\n" ); + return thisObj->getValueProperty(exec, entry->value); + } + + /** + * We need a modified version of lookupPut because + * we call tryPut instead of put, in DOMObjects. + */ + template <class ThisImp, class ParentImp> + inline void DOMObjectLookupPut(ExecState *exec, const Identifier &propertyName, + const Value& value, int attr, + const HashTable* table, ThisImp* thisObj) + { + const HashEntry* entry = Lookup::findEntry(table, propertyName); + + if (!entry) // not found: forward to parent + thisObj->ParentImp::tryPut(exec, propertyName, value, attr); + else if (entry->attr & Function) // function: put as override property + thisObj->ObjectImp::put(exec, propertyName, value, attr); + else if (entry->attr & ReadOnly) // readonly! Can't put! +#ifdef KJS_VERBOSE + fprintf(stderr,"WARNING: Attempt to change value of readonly property '%s'\n",propertyName.ascii()); +#else + ; // do nothing +#endif + else + thisObj->putValueProperty(exec, entry->value, value, attr); + } + +// Versions of prototype functions that properly support instanceof, +// and are compatible with trunk. +#define KJS_DEFINE_PROTOTYPE_IMP(ClassProto,ProtoCode) \ + class ClassProto : public ObjectImp { \ + friend Object cacheGlobalObject<ClassProto>(ExecState *exec, const Identifier &propertyName); \ + public: \ + static Object self(ExecState *exec); \ + virtual const ClassInfo *classInfo() const { return &info; } \ + static const ClassInfo info; \ + Value get(ExecState *exec, const Identifier &propertyName) const; \ + protected: \ + ClassProto( ExecState *exec ) \ + : ObjectImp( ProtoCode ) {} \ + \ + static Identifier* s_name; \ + static Identifier* name(); \ + }; + +#define KJS_DEFINE_PROTOTYPE(ClassProto) \ + KJS_DEFINE_PROTOTYPE_IMP(ClassProto, exec->interpreter()->builtinObjectPrototype()) + +#define KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(ClassProto, ClassProtoProto) \ + KJS_DEFINE_PROTOTYPE_IMP(ClassProto, ClassProtoProto::self(exec)) + +#define KJS_EMPTY_PROTOTYPE_IMP(ClassName, ClassProto, ProtoCode) \ + class ClassProto : public ObjectImp { \ + friend Object cacheGlobalObject<ClassProto>(ExecState *exec, const Identifier &propertyName); \ + public: \ + static Object self(ExecState *exec) { \ + return cacheGlobalObject<ClassProto>(exec, *name()); \ + } \ + virtual const ClassInfo *classInfo() const { return &info; } \ + static const ClassInfo info; \ + protected: \ + ClassProto( ExecState *exec ) \ + : ObjectImp( ProtoCode ) {} \ + \ + static Identifier* s_name; \ + static Identifier* name() { \ + if (!s_name) s_name = new Identifier("[[" ClassName ".prototype]]"); \ + return s_name; \ + }\ + }; \ + Identifier* ClassProto::s_name = 0; \ + const ClassInfo ClassProto::info = { ClassName, 0, 0, 0 }; + +#define KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE(ClassName, ClassProto, ClassProtoProto) \ + KJS_EMPTY_PROTOTYPE_IMP(ClassName, ClassProto, ClassProtoProto::self(exec)) + +//### this doesn't implement hasProperty, but stuff in lookup.h didn't +//either (just did the forward) +#define KJS_IMPLEMENT_PROTOTYPE(ClassName, ClassProto, ClassFunc) \ + const ClassInfo ClassProto::info = { ClassName, 0, &ClassProto##Table, 0 }; \ + Identifier* ClassProto::s_name = 0; \ + Object ClassProto::self(ExecState *exec) \ + { \ + return cacheGlobalObject<ClassProto>(exec, *name()); \ + } \ + Value ClassProto::get(ExecState *exec, const Identifier &propertyName) const \ + { \ + /*fprintf( stderr, "%sProto::get(%s) [in macro, no parent]\n", info.className, propertyName.ascii());*/ \ + return lookupGetFunction<ClassFunc,ObjectImp>(exec, propertyName, &ClassProto##Table, this ); \ + } \ + Identifier* ClassProto::name() \ + { \ + if (!s_name) s_name = new Identifier("[[" ClassName ".prototype]]"); \ + return s_name; \ + } + + // Modified version of IMPLEMENT_PROTOFUNC, to use DOMFunction and tryCall +#define IMPLEMENT_PROTOFUNC_DOM(ClassFunc) \ + class ClassFunc : public DOMFunction { \ + public: \ + ClassFunc(ExecState *exec, int i, int len) \ + : DOMFunction( exec ), id(i) { \ + Value protect(this); \ + put(exec,lengthPropertyName,Number(len),DontDelete|ReadOnly|DontEnum); \ + } \ + /** You need to implement that one */ \ + virtual Value tryCall(ExecState *exec, Object &thisObj, const List &args); \ + private: \ + int id; \ + }; + + Value getLiveConnectValue(KParts::LiveConnectExtension *lc, const TQString & name, const int type, const TQString & value, int id); + + +// This is used to create pseudo-constructor objects, like Mozillaish +// Element, HTMLDocument, etc., which do not act like real constructors, +// but do have the prototype property pointing to prototype of "instances" +#define DEFINE_PSEUDO_CONSTRUCTOR(ClassName) \ + class ClassName : public DOMObject { \ + public: \ + ClassName(ExecState *); \ + virtual const ClassInfo* classInfo() const { return &info; } \ + static const ClassInfo info; \ + static Object self(ExecState *exec); \ + }; + +#define IMPLEMENT_PSEUDO_CONSTRUCTOR_IMP(Class,ClassName,ProtoClass,ParentProto) \ + const ClassInfo Class::info = { ClassName, 0, 0, 0 }; \ + Class::Class(ExecState* exec): DOMObject(ParentProto) {\ + Object proto = ProtoClass::self(exec); \ + putDirect(prototypePropertyName, proto.imp(), DontDelete|ReadOnly); \ + }\ + Object Class::self(ExecState *exec) { \ + return Object(cacheGlobalObject<Class>(exec, "[[" ClassName ".constructor]]")); \ + } + +#define IMPLEMENT_PSEUDO_CONSTRUCTOR(Class,ClassName,ProtoClass) \ + IMPLEMENT_PSEUDO_CONSTRUCTOR_IMP(Class,ClassName,ProtoClass,exec->lexicalInterpreter()->builtinObjectPrototype()) + +#define IMPLEMENT_PSEUDO_CONSTRUCTOR_WITH_PARENT(Class,ClassName,ProtoClass,ParentProtoClass) \ + IMPLEMENT_PSEUDO_CONSTRUCTOR_IMP(Class,ClassName,ProtoClass,ParentProtoClass::self(exec)) + +// This declares a constant table, which merely maps everything in its +// table to its token value. Can be used as a prototype +#define DEFINE_CONSTANT_TABLE(Class) \ + class Class : public DOMObject { \ + public: \ + Class(ExecState *exec): DOMObject(exec->lexicalInterpreter()->builtinObjectPrototype()) {} \ + \ + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const;\ + Value getValueProperty(ExecState * /*exec*/, int token) const; \ + virtual const ClassInfo* classInfo() const { return &info; } \ + static const ClassInfo info; \ + static Object self(ExecState *exec);\ + static Identifier* s_name; \ + static Identifier* name(); \ + }; + +// Emits an implementation of a constant table +#define IMPLEMENT_CONSTANT_TABLE(Class,ClassName) \ + Value Class::tryGet(ExecState *exec, const Identifier &propertyName) const { \ + return DOMObjectLookupGetValue<Class, DOMObject>(exec, propertyName, &Class##Table, this);\ + } \ + Value Class::getValueProperty(ExecState * /*exec*/, int token) const { \ + /* We use the token as the value to return directly*/ \ + return Number((unsigned int)token); \ + } \ + Object Class::self(ExecState *exec) { \ + return cacheGlobalObject<Class>(exec, *name()); \ + } \ + Identifier* Class::s_name = 0; \ + Identifier* Class::name() { \ + if (!s_name) s_name = new Identifier("[[" ClassName ".constant_table]]"); \ + return s_name; \ + } \ + const ClassInfo Class::info = { ClassName, 0, &Class##Table, 0 }; + + +// Hide some of the stuff in lookup.h.. +#undef PUBLIC_DEFINE_PROTOTYPE +#undef DEFINE_PROTOTYPE +#undef IMPLEMENT_PROTOTYPE +#undef PUBLIC_IMPLEMENT_PROTOTYPE +#undef IMPLEMENT_PROTOTYPE_WITH_PARENT + +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_css.cpp b/tdehtml/ecma/kjs_css.cpp new file mode 100644 index 000000000..b42f9dd02 --- /dev/null +++ b/tdehtml/ecma/kjs_css.cpp @@ -0,0 +1,1302 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2000 Harri Porten (porten@kde.org) + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * 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_css.h" +#include "kjs_css.lut.h" + +#include <dom/html_head.h> // for HTMLStyleElement + +#include <css/css_base.h> +#include "kjs_dom.h" + + +#include <kdebug.h> + +namespace KJS { + +static TQString cssPropertyName( const Identifier &p, bool& hadPixelPrefix ) +{ + TQString prop = p.qstring(); + int i = prop.length(); + while ( --i ) { + char c = prop[i].latin1(); + if ( c >= 'A' && c <= 'Z' ) + prop.insert( i, '-' ); + } + + prop = prop.lower(); + hadPixelPrefix = false; + + if (prop.startsWith("css-")) { + prop = prop.mid(4); + } else if (prop.startsWith("pixel-")) { + prop = prop.mid(6); + hadPixelPrefix = true; + } else if (prop.startsWith("pos-")) { + prop = prop.mid(4); + hadPixelPrefix = true; + } + + return prop; +} + +/* +@begin DOMCSSStyleDeclarationProtoTable 7 + getPropertyValue DOMCSSStyleDeclaration::GetPropertyValue DontDelete|Function 1 + getPropertyCSSValue DOMCSSStyleDeclaration::GetPropertyCSSValue DontDelete|Function 1 + removeProperty DOMCSSStyleDeclaration::RemoveProperty DontDelete|Function 1 + getPropertyPriority DOMCSSStyleDeclaration::GetPropertyPriority DontDelete|Function 1 + setProperty DOMCSSStyleDeclaration::SetProperty DontDelete|Function 3 + item DOMCSSStyleDeclaration::Item DontDelete|Function 1 +# IE names for it (#36063) + getAttribute DOMCSSStyleDeclaration::GetPropertyValue DontDelete|Function 1 + removeAttribute DOMCSSStyleDeclaration::RemoveProperty DontDelete|Function 1 + setAttribute DOMCSSStyleDeclaration::SetProperty DontDelete|Function 3 +@end +@begin DOMCSSStyleDeclarationTable 3 + cssText DOMCSSStyleDeclaration::CssText DontDelete + length DOMCSSStyleDeclaration::Length DontDelete|ReadOnly + parentRule DOMCSSStyleDeclaration::ParentRule DontDelete|ReadOnly +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMCSSStyleDeclarationProto) +IMPLEMENT_PROTOFUNC_DOM(DOMCSSStyleDeclarationProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMCSSStyleDeclaration", DOMCSSStyleDeclarationProto, DOMCSSStyleDeclarationProtoFunc) + +IMPLEMENT_PSEUDO_CONSTRUCTOR(CSSStyleDeclarationPseudoCtor, "DOMCSSStyleDeclaration",DOMCSSStyleDeclarationProto) + +const ClassInfo DOMCSSStyleDeclaration::info = { "CSSStyleDeclaration", 0, &DOMCSSStyleDeclarationTable, 0 }; + +DOMCSSStyleDeclaration::DOMCSSStyleDeclaration(ExecState *exec, const DOM::CSSStyleDeclaration& s) + : DOMObject(DOMCSSStyleDeclarationProto::self(exec)), styleDecl(s) +{ } + +DOMCSSStyleDeclaration::~DOMCSSStyleDeclaration() +{ + ScriptInterpreter::forgetDOMObject(styleDecl.handle()); +} + +bool DOMCSSStyleDeclaration::hasProperty(ExecState *exec, const Identifier &p) const +{ + bool hadPixelPrefix; + TQString cssprop = cssPropertyName(p, hadPixelPrefix); + if (DOM::getPropertyID(cssprop.latin1(), cssprop.length())) + return true; + + return ObjectImp::hasProperty(exec, p); +} + +Value DOMCSSStyleDeclaration::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMCSSStyleDeclaration::tryGet " << propertyName.qstring() << endl; +#endif + const HashEntry* entry = Lookup::findEntry(&DOMCSSStyleDeclarationTable, propertyName); + if (entry) + switch (entry->value) { + case CssText: + return String(styleDecl.cssText()); + case Length: + return Number(styleDecl.length()); + case ParentRule: + return getDOMCSSRule(exec,styleDecl.parentRule()); + default: + break; + } + + // Look in the prototype (for functions) before assuming it's a name + Object proto = Object::dynamicCast(prototype()); + if (proto.isValid() && proto.hasProperty(exec,propertyName)) + return proto.get(exec,propertyName); + + bool ok; + long unsigned int u = propertyName.toULong(&ok); + if (ok) + return String(DOM::CSSStyleDeclaration(styleDecl).item(u)); + + // pixelTop returns "CSS Top" as number value in unit pixels + // posTop returns "CSS top" as number value in unit pixels _if_ its a + // positioned element. if it is not a positioned element, return 0 + // from MSIE documentation ### IMPLEMENT THAT (Dirk) + bool asNumber; + TQString p = cssPropertyName(propertyName, asNumber); + +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMCSSStyleDeclaration: converting to css property name: " << p << ( asNumber ? "px" : "" ) << endl; +#endif + + if (asNumber) { + DOM::CSSValue v = styleDecl.getPropertyCSSValue(p); + if ( !v.isNull() && v.cssValueType() == DOM::CSSValue::CSS_PRIMITIVE_VALUE) + return Number(static_cast<DOM::CSSPrimitiveValue>(v).getFloatValue(DOM::CSSPrimitiveValue::CSS_PX)); + } + + DOM::DOMString str = const_cast<DOM::CSSStyleDeclaration &>( styleDecl ).getPropertyValue(p); + if (!str.isNull()) + return String(str); + + // see if we know this css property, return empty then + if (DOM::getPropertyID(p.latin1(), p.length())) + return String(DOM::DOMString("")); + + return DOMObject::tryGet(exec, propertyName); +} + + +void DOMCSSStyleDeclaration::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr ) +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMCSSStyleDeclaration::tryPut " << propertyName.qstring() << endl; +#endif + if (propertyName == "cssText") { + styleDecl.setCssText(value.toString(exec).string()); + } + else { + bool pxSuffix; + TQString prop = cssPropertyName(propertyName, pxSuffix); + TQString propvalue = value.toString(exec).qstring(); + + if (pxSuffix) + propvalue += "px"; +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMCSSStyleDeclaration: prop=" << prop << " propvalue=" << propvalue << endl; +#endif + // Look whether the property is known.d In that case add it as a CSS property. + if (DOM::getPropertyID(prop.latin1(), prop.length())) { + if (propvalue.isEmpty()) + styleDecl.removeProperty(prop); + else { + int important = propvalue.find("!important", 0, false); + if (important == -1) + styleDecl.setProperty(prop, DOM::DOMString(propvalue), ""); + else + styleDecl.setProperty(prop, DOM::DOMString(propvalue.left(important - 1)), "important"); + } + } + else + // otherwise add it as a JS property + DOMObject::tryPut( exec, propertyName, value, attr ); + } +} + +Value DOMCSSStyleDeclarationProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMCSSStyleDeclaration, thisObj ); + DOM::CSSStyleDeclaration styleDecl = static_cast<DOMCSSStyleDeclaration *>(thisObj.imp())->toStyleDecl(); + String str = args[0].toString(exec); + DOM::DOMString s = str.value().string(); + + switch (id) { + case DOMCSSStyleDeclaration::GetPropertyValue: + return String(styleDecl.getPropertyValue(s)); + case DOMCSSStyleDeclaration::GetPropertyCSSValue: + return getDOMCSSValue(exec,styleDecl.getPropertyCSSValue(s)); + case DOMCSSStyleDeclaration::RemoveProperty: + return String(styleDecl.removeProperty(s)); + case DOMCSSStyleDeclaration::GetPropertyPriority: + return String(styleDecl.getPropertyPriority(s)); + case DOMCSSStyleDeclaration::SetProperty: + styleDecl.setProperty(args[0].toString(exec).string(), + args[1].toString(exec).string(), + args[2].toString(exec).string()); + return Undefined(); + case DOMCSSStyleDeclaration::Item: + return String(styleDecl.item(args[0].toInteger(exec))); + default: + return Undefined(); + } +} + +Value getDOMCSSStyleDeclaration(ExecState *exec, const DOM::CSSStyleDeclaration& s) +{ + return cacheDOMObject<DOM::CSSStyleDeclaration, KJS::DOMCSSStyleDeclaration>(exec, s); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMStyleSheet::info = { "StyleSheet", 0, &DOMStyleSheetTable, 0 }; +/* +@begin DOMStyleSheetTable 7 + type DOMStyleSheet::Type DontDelete|ReadOnly + disabled DOMStyleSheet::Disabled DontDelete + ownerNode DOMStyleSheet::OwnerNode DontDelete|ReadOnly + parentStyleSheet DOMStyleSheet::ParentStyleSheet DontDelete|ReadOnly + href DOMStyleSheet::Href DontDelete|ReadOnly + title DOMStyleSheet::Title DontDelete|ReadOnly + media DOMStyleSheet::Media DontDelete|ReadOnly +@end +*/ + +DOMStyleSheet::DOMStyleSheet(ExecState* exec, const DOM::StyleSheet& ss) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), styleSheet(ss) +{ +} + +DOMStyleSheet::~DOMStyleSheet() +{ + ScriptInterpreter::forgetDOMObject(styleSheet.handle()); +} + +Value DOMStyleSheet::tryGet(ExecState *exec, const Identifier &propertyName) const +{ + return DOMObjectLookupGetValue<DOMStyleSheet,DOMObject>(exec,propertyName,&DOMStyleSheetTable,this); +} + +Value DOMStyleSheet::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case Type: + return String(styleSheet.type()); + case Disabled: + return Boolean(styleSheet.disabled()); + case OwnerNode: + return getDOMNode(exec,styleSheet.ownerNode()); + case ParentStyleSheet: + return getDOMStyleSheet(exec,styleSheet.parentStyleSheet()); + case Href: + return String(styleSheet.href()); + case Title: + return String(styleSheet.title()); + case Media: + return getDOMMediaList(exec, styleSheet.media()); + } + return Value(); +} + +void DOMStyleSheet::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ + if (propertyName == "disabled") { + styleSheet.setDisabled(value.toBoolean(exec)); + } + else + DOMObject::tryPut(exec, propertyName, value, attr); +} + +Value getDOMStyleSheet(ExecState *exec, const DOM::StyleSheet& ss) +{ + DOMObject *ret; + if (ss.isNull()) + return Null(); + ScriptInterpreter* interp = static_cast<ScriptInterpreter *>(exec->interpreter()); + if ((ret = interp->getDOMObject(ss.handle()))) + return Value(ret); + else { + if (ss.isCSSStyleSheet()) { + DOM::CSSStyleSheet cs; + cs = ss; + ret = new DOMCSSStyleSheet(exec,cs); + } + else + ret = new DOMStyleSheet(exec,ss); + interp->putDOMObject(ss.handle(),ret); + return Value(ret); + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMStyleSheetList::info = { "StyleSheetList", 0, &DOMStyleSheetListTable, 0 }; + +/* +@begin DOMStyleSheetListTable 2 + length DOMStyleSheetList::Length DontDelete|ReadOnly + item DOMStyleSheetList::Item DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(DOMStyleSheetListFunc) // not really a proto, but doesn't matter + +DOMStyleSheetList::DOMStyleSheetList(ExecState *exec, const DOM::StyleSheetList& ssl, const DOM::Document& doc) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), styleSheetList(ssl), m_doc(doc) +{ +} + +DOMStyleSheetList::~DOMStyleSheetList() +{ + ScriptInterpreter::forgetDOMObject(styleSheetList.handle()); +} + +Value DOMStyleSheetList::tryGet(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMStyleSheetList::tryGet " << p.qstring() << endl; +#endif + if (p == lengthPropertyName) + return Number(styleSheetList.length()); + else if (p == "item") + return lookupOrCreateFunction<DOMStyleSheetListFunc>(exec,p,this,DOMStyleSheetList::Item,1,DontDelete|Function); + + // Retrieve stylesheet by index + bool ok; + long unsigned int u = p.toULong(&ok); + if (ok) + return getDOMStyleSheet(exec, DOM::StyleSheetList(styleSheetList).item(u)); + + // IE also supports retrieving a stylesheet by name, using the name/id of the <style> tag + // (this is consistent with all the other collections) +#if 0 + // Bad implementation because DOM::StyleSheet doesn't inherit DOM::Node + // so we can't use DOMNamedNodesCollection..... + // We could duplicate it for stylesheets though - worth it ? + // Other problem of this implementation: it doesn't look for the ID attribute! + DOM::NameNodeListImpl namedList( m_doc.documentElement().handle(), p.string() ); + int len = namedList.length(); + if ( len ) { + TQValueList<DOM::Node> styleSheets; + for ( int i = 0 ; i < len ; ++i ) { + DOM::HTMLStyleElement elem = DOM::Node(namedList.item(i)); + if (!elem.isNull()) + styleSheets.append(elem.sheet()); + } + if ( styleSheets.count() == 1 ) // single result + return getDOMStyleSheet(exec, styleSheets[0]); + else if ( styleSheets.count() > 1 ) { + return new DOMNamedItemsCollection(exec,styleSheets); + } + } +#endif + // ### Bad implementation because returns a single element (are IDs always unique?) + // and doesn't look for name attribute (see implementation above). + // But unicity of stylesheet ids is good practice anyway ;) + DOM::DOMString pstr = p.string(); + DOM::HTMLStyleElement styleElem = m_doc.getElementById( pstr ); + if (!styleElem.isNull()) + return getDOMStyleSheet(exec, styleElem.sheet()); + + return DOMObject::tryGet(exec, p); +} + +Value KJS::DOMStyleSheetList::call(ExecState *exec, Object &thisObj, const List &args) +{ + // This code duplication is necessary, DOMStyleSheetList isn't a DOMFunction + Value val; + try { + val = tryCall(exec, thisObj, args); + } + // pity there's no way to distinguish between these in JS code + catch (...) { + Object err = Error::create(exec, GeneralError, "Exception from DOMStyleSheetList"); + exec->setException(err); + } + return val; +} + +Value DOMStyleSheetList::tryCall(ExecState *exec, Object & /*thisObj*/, const List &args) +{ + if (args.size() == 1) { + // support for styleSheets(<index>) and styleSheets(<name>) + return tryGet( exec, Identifier(args[0].toString(exec)) ); + } + return Undefined(); +} + +Value getDOMStyleSheetList(ExecState *exec, const DOM::StyleSheetList& ssl, const DOM::Document& doc) +{ + // Can't use the cacheDOMObject macro because of the doc argument + DOMObject *ret; + if (ssl.isNull()) + return Null(); + ScriptInterpreter* interp = static_cast<ScriptInterpreter *>(exec->interpreter()); + if ((ret = interp->getDOMObject(ssl.handle()))) + return Value(ret); + else { + ret = new DOMStyleSheetList(exec, ssl, doc); + interp->putDOMObject(ssl.handle(),ret); + return Value(ret); + } +} + +Value DOMStyleSheetListFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMStyleSheetList, thisObj ); + DOM::StyleSheetList styleSheetList = static_cast<DOMStyleSheetList *>(thisObj.imp())->toStyleSheetList(); + if (id == DOMStyleSheetList::Item) + return getDOMStyleSheet(exec, styleSheetList.item(args[0].toInteger(exec))); + return Undefined(); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMMediaList::info = { "MediaList", 0, &DOMMediaListTable, 0 }; + +/* +@begin DOMMediaListTable 2 + mediaText DOMMediaList::MediaText DontDelete|ReadOnly + length DOMMediaList::Length DontDelete|ReadOnly +@end +@begin DOMMediaListProtoTable 3 + item DOMMediaList::Item DontDelete|Function 1 + deleteMedium DOMMediaList::DeleteMedium DontDelete|Function 1 + appendMedium DOMMediaList::AppendMedium DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMMediaListProto) +IMPLEMENT_PROTOFUNC_DOM(DOMMediaListProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMMediaList", DOMMediaListProto, DOMMediaListProtoFunc) + +DOMMediaList::DOMMediaList(ExecState *exec, const DOM::MediaList& ml) + : DOMObject(DOMMediaListProto::self(exec)), mediaList(ml) { } + +DOMMediaList::~DOMMediaList() +{ + ScriptInterpreter::forgetDOMObject(mediaList.handle()); +} + +Value DOMMediaList::tryGet(ExecState *exec, const Identifier &p) const +{ + if (p == "mediaText") + return String(mediaList.mediaText()); + else if (p == lengthPropertyName) + return Number(mediaList.length()); + + bool ok; + long unsigned int u = p.toULong(&ok); + if (ok) + return String(mediaList.item(u)); + + return DOMObject::tryGet(exec, p); +} + +void DOMMediaList::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ + if (propertyName == "mediaText") + mediaList.setMediaText(value.toString(exec).string()); + else + DOMObject::tryPut(exec, propertyName, value, attr); +} + +Value getDOMMediaList(ExecState *exec, const DOM::MediaList& ml) +{ + return cacheDOMObject<DOM::MediaList, KJS::DOMMediaList>(exec, ml); +} + +Value KJS::DOMMediaListProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMMediaList, thisObj ); + DOM::MediaList mediaList = static_cast<DOMMediaList *>(thisObj.imp())->toMediaList(); + switch (id) { + case DOMMediaList::Item: + return String(mediaList.item(args[0].toInteger(exec))); + case DOMMediaList::DeleteMedium: + mediaList.deleteMedium(args[0].toString(exec).string()); + return Undefined(); + case DOMMediaList::AppendMedium: + mediaList.appendMedium(args[0].toString(exec).string()); + return Undefined(); + default: + return Undefined(); + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMCSSStyleSheet::info = { "CSSStyleSheet", 0, &DOMCSSStyleSheetTable, 0 }; + +/* +@begin DOMCSSStyleSheetTable 2 + ownerRule DOMCSSStyleSheet::OwnerRule DontDelete|ReadOnly + cssRules DOMCSSStyleSheet::CssRules DontDelete|ReadOnly +# MSIE extension + rules DOMCSSStyleSheet::Rules DontDelete|ReadOnly +@end +@begin DOMCSSStyleSheetProtoTable 2 + insertRule DOMCSSStyleSheet::InsertRule DontDelete|Function 2 + deleteRule DOMCSSStyleSheet::DeleteRule DontDelete|Function 1 +# IE extensions + addRule DOMCSSStyleSheet::AddRule DontDelete|Function 3 + removeRule DOMCSSStyleSheet::RemoveRule DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMCSSStyleSheetProto) +IMPLEMENT_PROTOFUNC_DOM(DOMCSSStyleSheetProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMCSSStyleSheet",DOMCSSStyleSheetProto,DOMCSSStyleSheetProtoFunc) // warning, use _WITH_PARENT if DOMStyleSheet gets a proto + +DOMCSSStyleSheet::DOMCSSStyleSheet(ExecState *exec, const DOM::CSSStyleSheet& ss) + : DOMStyleSheet(DOMCSSStyleSheetProto::self(exec),ss) { } + +DOMCSSStyleSheet::~DOMCSSStyleSheet() +{ +} + +Value DOMCSSStyleSheet::tryGet(ExecState *exec, const Identifier &p) const +{ + DOM::CSSStyleSheet cssStyleSheet = static_cast<DOM::CSSStyleSheet>(styleSheet); + if (p == "ownerRule") + return getDOMCSSRule(exec,cssStyleSheet.ownerRule()); + else if (p == "cssRules" || p == "rules" /* MSIE extension */) + return getDOMCSSRuleList(exec,cssStyleSheet.cssRules()); + return DOMStyleSheet::tryGet(exec,p); +} + +Value DOMCSSStyleSheetProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMCSSStyleSheet, thisObj ); + DOM::CSSStyleSheet styleSheet = static_cast<DOMCSSStyleSheet *>(thisObj.imp())->toCSSStyleSheet(); + + switch (id) { + case DOMCSSStyleSheet::InsertRule: + return Number(styleSheet.insertRule(args[0].toString(exec).string(),(long unsigned int)args[1].toInteger(exec))); + case DOMCSSStyleSheet::DeleteRule: + styleSheet.deleteRule(args[0].toInteger(exec)); + return Undefined(); + // IE extensions + case DOMCSSStyleSheet::AddRule: { + //Unpassed/-1 means append. Since insertRule is picky (throws exceptions) + //we adjust it to the desired length + unsigned long index = args[2].toInteger(exec); + unsigned long length = styleSheet.cssRules().length(); + if (args[2].type() == UndefinedType) index = length; + if (index > length) index = length; + DOM::DOMString str = args[0].toString(exec).string() + " { " + args[1].toString(exec).string() + " } "; + return Number(styleSheet.insertRule(str,index)); + } + case DOMCSSStyleSheet::RemoveRule: { + int index = args.size() > 0 ? args[0].toInteger(exec) : 0 /*first one*/; + styleSheet.deleteRule(index); + return Undefined(); + } + default: + return Undefined(); + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMCSSRuleList::info = { "CSSRuleList", 0, &DOMCSSRuleListTable, 0 }; +/* +@begin DOMCSSRuleListTable 3 + length DOMCSSRuleList::Length DontDelete|ReadOnly + item DOMCSSRuleList::Item DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(DOMCSSRuleListFunc) // not really a proto, but doesn't matter + +DOMCSSRuleList::DOMCSSRuleList(ExecState* exec, const DOM::CSSRuleList& rl) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), cssRuleList(rl) +{ +} + +DOMCSSRuleList::~DOMCSSRuleList() +{ + ScriptInterpreter::forgetDOMObject(cssRuleList.handle()); +} + +Value DOMCSSRuleList::tryGet(ExecState *exec, const Identifier &p) const +{ + Value result; + if (p == lengthPropertyName) + return Number(cssRuleList.length()); + else if (p == "item") + return lookupOrCreateFunction<DOMCSSRuleListFunc>(exec,p,this,DOMCSSRuleList::Item,1,DontDelete|Function); + + bool ok; + long unsigned int u = p.toULong(&ok); + if (ok) + return getDOMCSSRule(exec,DOM::CSSRuleList(cssRuleList).item(u)); + + return DOMObject::tryGet(exec,p); +} + +Value DOMCSSRuleListFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMCSSRuleList, thisObj ); + DOM::CSSRuleList cssRuleList = static_cast<DOMCSSRuleList *>(thisObj.imp())->toCSSRuleList(); + switch (id) { + case DOMCSSRuleList::Item: + return getDOMCSSRule(exec,cssRuleList.item(args[0].toInteger(exec))); + default: + return Undefined(); + } +} + +Value getDOMCSSRuleList(ExecState *exec, const DOM::CSSRuleList& rl) +{ + return cacheDOMObject<DOM::CSSRuleList, KJS::DOMCSSRuleList>(exec, rl); +} + +// ------------------------------------------------------------------------- + +IMPLEMENT_PROTOFUNC_DOM(DOMCSSRuleFunc) // Not a proto, but doesn't matter + +DOMCSSRule::DOMCSSRule(ExecState* exec, const DOM::CSSRule& r) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), cssRule(r) +{ +} + +DOMCSSRule::~DOMCSSRule() +{ + ScriptInterpreter::forgetDOMObject(cssRule.handle()); +} + +const ClassInfo DOMCSSRule::info = { "CSSRule", 0, &DOMCSSRuleTable, 0 }; +const ClassInfo DOMCSSRule::style_info = { "CSSStyleRule", &DOMCSSRule::info, &DOMCSSStyleRuleTable, 0 }; +const ClassInfo DOMCSSRule::media_info = { "CSSMediaRule", &DOMCSSRule::info, &DOMCSSMediaRuleTable, 0 }; +const ClassInfo DOMCSSRule::fontface_info = { "CSSFontFaceRule", &DOMCSSRule::info, &DOMCSSFontFaceRuleTable, 0 }; +const ClassInfo DOMCSSRule::page_info = { "CSSPageRule", &DOMCSSRule::info, &DOMCSSPageRuleTable, 0 }; +const ClassInfo DOMCSSRule::import_info = { "CSSImportRule", &DOMCSSRule::info, &DOMCSSImportRuleTable, 0 }; +const ClassInfo DOMCSSRule::charset_info = { "CSSCharsetRule", &DOMCSSRule::info, &DOMCSSCharsetRuleTable, 0 }; + +const ClassInfo* DOMCSSRule::classInfo() const +{ + switch (cssRule.type()) { + case DOM::CSSRule::STYLE_RULE: + return &style_info; + case DOM::CSSRule::MEDIA_RULE: + return &media_info; + case DOM::CSSRule::FONT_FACE_RULE: + return &fontface_info; + case DOM::CSSRule::PAGE_RULE: + return &page_info; + case DOM::CSSRule::IMPORT_RULE: + return &import_info; + case DOM::CSSRule::CHARSET_RULE: + return &charset_info; + case DOM::CSSRule::UNKNOWN_RULE: + default: + return &info; + } +} +/* +@begin DOMCSSRuleTable 4 + type DOMCSSRule::Type DontDelete|ReadOnly + cssText DOMCSSRule::CssText DontDelete|ReadOnly + parentStyleSheet DOMCSSRule::ParentStyleSheet DontDelete|ReadOnly + parentRule DOMCSSRule::ParentRule DontDelete|ReadOnly +@end +@begin DOMCSSStyleRuleTable 2 + selectorText DOMCSSRule::Style_SelectorText DontDelete + style DOMCSSRule::Style_Style DontDelete|ReadOnly +@end +@begin DOMCSSMediaRuleTable 4 + media DOMCSSRule::Media_Media DontDelete|ReadOnly + cssRules DOMCSSRule::Media_CssRules DontDelete|ReadOnly + insertRule DOMCSSRule::Media_InsertRule DontDelete|Function 2 + deleteRule DOMCSSRule::Media_DeleteRule DontDelete|Function 1 +@end +@begin DOMCSSFontFaceRuleTable 1 + style DOMCSSRule::FontFace_Style DontDelete|ReadOnly +@end +@begin DOMCSSPageRuleTable 2 + selectorText DOMCSSRule::Page_SelectorText DontDelete + style DOMCSSRule::Page_Style DontDelete|ReadOnly +@end +@begin DOMCSSImportRuleTable 3 + href DOMCSSRule::Import_Href DontDelete|ReadOnly + media DOMCSSRule::Import_Media DontDelete|ReadOnly + styleSheet DOMCSSRule::Import_StyleSheet DontDelete|ReadOnly +@end +@begin DOMCSSCharsetRuleTable 1 + encoding DOMCSSRule::Charset_Encoding DontDelete +@end +*/ +Value DOMCSSRule::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMCSSRule::tryGet " << propertyName.qstring() << endl; +#endif + const HashTable* table = classInfo()->propHashTable; // get the right hashtable + const HashEntry* entry = Lookup::findEntry(table, propertyName); + if (entry) { + if (entry->attr & Function) + return lookupOrCreateFunction<DOMCSSRuleFunc>(exec, propertyName, this, entry->value, entry->params, entry->attr); + return getValueProperty(exec, entry->value); + } + + // Base CSSRule stuff or parent class forward, as usual + return DOMObjectLookupGet<DOMCSSRuleFunc, DOMCSSRule, DOMObject>(exec, propertyName, &DOMCSSRuleTable, this); +} + +Value DOMCSSRule::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case Type: + return Number(cssRule.type()); + case CssText: + return String(cssRule.cssText()); + case ParentStyleSheet: + return getDOMStyleSheet(exec,cssRule.parentStyleSheet()); + case ParentRule: + return getDOMCSSRule(exec,cssRule.parentRule()); + + // for DOM::CSSRule::STYLE_RULE: + case Style_SelectorText: + return String(static_cast<DOM::CSSStyleRule>(cssRule).selectorText()); + case Style_Style: + return getDOMCSSStyleDeclaration(exec,static_cast<DOM::CSSStyleRule>(cssRule).style()); + + // for DOM::CSSRule::MEDIA_RULE: + case Media_Media: + return getDOMMediaList(exec,static_cast<DOM::CSSMediaRule>(cssRule).media()); + case Media_CssRules: + return getDOMCSSRuleList(exec,static_cast<DOM::CSSMediaRule>(cssRule).cssRules()); + + // for DOM::CSSRule::FONT_FACE_RULE: + case FontFace_Style: + return getDOMCSSStyleDeclaration(exec,static_cast<DOM::CSSFontFaceRule>(cssRule).style()); + + // for DOM::CSSRule::PAGE_RULE: + case Page_SelectorText: + return String(static_cast<DOM::CSSPageRule>(cssRule).selectorText()); + case Page_Style: + return getDOMCSSStyleDeclaration(exec,static_cast<DOM::CSSPageRule>(cssRule).style()); + + // for DOM::CSSRule::IMPORT_RULE: + case Import_Href: + return String(static_cast<DOM::CSSImportRule>(cssRule).href()); + case Import_Media: + return getDOMMediaList(exec,static_cast<DOM::CSSImportRule>(cssRule).media()); + case Import_StyleSheet: + return getDOMStyleSheet(exec,static_cast<DOM::CSSImportRule>(cssRule).styleSheet()); + + // for DOM::CSSRule::CHARSET_RULE: + case Charset_Encoding: + return String(static_cast<DOM::CSSCharsetRule>(cssRule).encoding()); + + default: + kdDebug(6070) << "WARNING: DOMCSSRule::getValueProperty unhandled token " << token << endl; + } + return Undefined(); +} + +void DOMCSSRule::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ + const HashTable* table = classInfo()->propHashTable; // get the right hashtable + const HashEntry* entry = Lookup::findEntry(table, propertyName); + if (entry) { + if (entry->attr & Function) // function: put as override property + { + ObjectImp::put(exec, propertyName, value, attr); + return; + } + else if ((entry->attr & ReadOnly) == 0) // let DOMObjectLookupPut print the warning if not + { + putValueProperty(exec, entry->value, value, attr); + return; + } + } + DOMObjectLookupPut<DOMCSSRule, DOMObject>(exec, propertyName, value, attr, &DOMCSSRuleTable, this); +} + +void DOMCSSRule::putValueProperty(ExecState *exec, int token, const Value& value, int) +{ + switch (token) { + // for DOM::CSSRule::STYLE_RULE: + case Style_SelectorText: + static_cast<DOM::CSSStyleRule>(cssRule).setSelectorText(value.toString(exec).string()); + return; + + // for DOM::CSSRule::PAGE_RULE: + case Page_SelectorText: + static_cast<DOM::CSSPageRule>(cssRule).setSelectorText(value.toString(exec).string()); + return; + + // for DOM::CSSRule::CHARSET_RULE: + case Charset_Encoding: + static_cast<DOM::CSSCharsetRule>(cssRule).setEncoding(value.toString(exec).string()); + return; + + default: + kdDebug(6070) << "WARNING: DOMCSSRule::putValueProperty unhandled token " << token << endl; + } +} + +Value DOMCSSRuleFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMCSSRule, thisObj ); + DOM::CSSRule cssRule = static_cast<DOMCSSRule *>(thisObj.imp())->toCSSRule(); + + if (cssRule.type() == DOM::CSSRule::MEDIA_RULE) { + DOM::CSSMediaRule rule = static_cast<DOM::CSSMediaRule>(cssRule); + if (id == DOMCSSRule::Media_InsertRule) + return Number(rule.insertRule(args[0].toString(exec).string(),args[1].toInteger(exec))); + else if (id == DOMCSSRule::Media_DeleteRule) + rule.deleteRule(args[0].toInteger(exec)); + } + + return Undefined(); +} + +Value getDOMCSSRule(ExecState *exec, const DOM::CSSRule& r) +{ + return cacheDOMObject<DOM::CSSRule, KJS::DOMCSSRule>(exec, r); +} + +// ------------------------------------------------------------------------- + + +DOM::CSSRule toCSSRule(const Value& val) +{ + Object obj = Object::dynamicCast(val); + if (!obj.isValid() || !obj.inherits(&DOMCSSRule::info)) + return DOM::CSSRule(); + + const DOMCSSRule *dobj = static_cast<const DOMCSSRule*>(obj.imp()); + return dobj->toCSSRule(); +} + +// ------------------------------------------------------------------------- + +const ClassInfo CSSRuleConstructor::info = { "CSSRuleConstructor", 0, &CSSRuleConstructorTable, 0 }; +/* +@begin CSSRuleConstructorTable 7 + UNKNOWN_RULE CSSRuleConstructor::UNKNOWN_RULE DontDelete|ReadOnly + STYLE_RULE CSSRuleConstructor::STYLE_RULE DontDelete|ReadOnly + CHARSET_RULE CSSRuleConstructor::CHARSET_RULE DontDelete|ReadOnly + IMPORT_RULE CSSRuleConstructor::IMPORT_RULE DontDelete|ReadOnly + MEDIA_RULE CSSRuleConstructor::MEDIA_RULE DontDelete|ReadOnly + FONT_FACE_RULE CSSRuleConstructor::FONT_FACE_RULE DontDelete|ReadOnly + PAGE_RULE CSSRuleConstructor::PAGE_RULE DontDelete|ReadOnly +@end +*/ + +CSSRuleConstructor::CSSRuleConstructor(ExecState *exec) + : DOMObject(exec->interpreter()->builtinObjectPrototype()) +{ +} + +Value CSSRuleConstructor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<CSSRuleConstructor,DOMObject>(exec,p,&CSSRuleConstructorTable,this); +} + +Value CSSRuleConstructor::getValueProperty(ExecState *, int token) const +{ + switch (token) { + case UNKNOWN_RULE: + return Number(DOM::CSSRule::UNKNOWN_RULE); + case STYLE_RULE: + return Number(DOM::CSSRule::STYLE_RULE); + case CHARSET_RULE: + return Number(DOM::CSSRule::CHARSET_RULE); + case IMPORT_RULE: + return Number(DOM::CSSRule::IMPORT_RULE); + case MEDIA_RULE: + return Number(DOM::CSSRule::MEDIA_RULE); + case FONT_FACE_RULE: + return Number(DOM::CSSRule::FONT_FACE_RULE); + case PAGE_RULE: + return Number(DOM::CSSRule::PAGE_RULE); + } + return Value(); +} + +Value getCSSRuleConstructor(ExecState *exec) +{ + return cacheGlobalObject<CSSRuleConstructor>( exec, "[[cssRule.constructor]]" ); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMCSSValue::info = { "CSSValue", 0, &DOMCSSValueTable, 0 }; + +/* +@begin DOMCSSValueTable 2 + cssText DOMCSSValue::CssText DontDelete|ReadOnly + cssValueType DOMCSSValue::CssValueType DontDelete|ReadOnly +@end +*/ + +DOMCSSValue::DOMCSSValue(ExecState* exec, const DOM::CSSValue& val) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), cssValue(val) +{ +} + +DOMCSSValue::~DOMCSSValue() +{ + ScriptInterpreter::forgetDOMObject(cssValue.handle()); +} + +Value DOMCSSValue::tryGet(ExecState *exec, const Identifier &p) const +{ + if (p == "cssText") + return String(cssValue.cssText()); + else if (p == "cssValueType") + return Number(cssValue.cssValueType()); + return DOMObject::tryGet(exec,p); +} + +void DOMCSSValue::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ + if (propertyName == "cssText") + cssValue.setCssText(value.toString(exec).string()); + else + DOMObject::tryPut(exec, propertyName, value, attr); +} + +Value getDOMCSSValue(ExecState *exec, const DOM::CSSValue& v) +{ + DOMObject *ret; + if (v.isNull()) + return Null(); + ScriptInterpreter* interp = static_cast<ScriptInterpreter *>(exec->interpreter()); + if ((ret = interp->getDOMObject(v.handle()))) + return Value(ret); + else { + if (v.isCSSValueList()) + ret = new DOMCSSValueList(exec,v); + else if (v.isCSSPrimitiveValue()) + ret = new DOMCSSPrimitiveValue(exec,v); + else + ret = new DOMCSSValue(exec,v); + interp->putDOMObject(v.handle(),ret); + return Value(ret); + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo CSSValueConstructor::info = { "CSSValueConstructor", 0, &CSSValueConstructorTable, 0 }; +/* +@begin CSSValueConstructorTable 5 + CSS_INHERIT CSSValueConstructor::CSS_INHERIT DontDelete|ReadOnly + CSS_PRIMITIVE_VALUE CSSValueConstructor::CSS_PRIMITIVE_VALUE DontDelete|ReadOnly + CSS_VALUE_LIST CSSValueConstructor::CSS_VALUE_LIST DontDelete|ReadOnly + CSS_CUSTOM CSSValueConstructor::CSS_CUSTOM DontDelete|ReadOnly +@end +*/ + +CSSValueConstructor::CSSValueConstructor(ExecState *exec) + : DOMObject(exec->interpreter()->builtinObjectPrototype()) +{ +} + +Value CSSValueConstructor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<CSSValueConstructor,DOMObject>(exec,p,&CSSValueConstructorTable,this); +} + +Value CSSValueConstructor::getValueProperty(ExecState *, int token) const +{ + switch (token) { + case CSS_INHERIT: + return Number(DOM::CSSValue::CSS_INHERIT); + case CSS_PRIMITIVE_VALUE: + return Number(DOM::CSSValue::CSS_PRIMITIVE_VALUE); + case CSS_VALUE_LIST: + return Number(DOM::CSSValue::CSS_VALUE_LIST); + case CSS_CUSTOM: + return Number(DOM::CSSValue::CSS_CUSTOM); + } + return Value(); +} + +Value getCSSValueConstructor(ExecState *exec) +{ + return cacheGlobalObject<CSSValueConstructor>( exec, "[[cssValue.constructor]]" ); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMCSSPrimitiveValue::info = { "CSSPrimitiveValue", 0, &DOMCSSPrimitiveValueTable, 0 }; +/* +@begin DOMCSSPrimitiveValueTable 1 + primitiveType DOMCSSPrimitiveValue::PrimitiveType DontDelete|ReadOnly +@end +@begin DOMCSSPrimitiveValueProtoTable 3 + setFloatValue DOMCSSPrimitiveValue::SetFloatValue DontDelete|Function 2 + getFloatValue DOMCSSPrimitiveValue::GetFloatValue DontDelete|Function 1 + setStringValue DOMCSSPrimitiveValue::SetStringValue DontDelete|Function 2 + getStringValue DOMCSSPrimitiveValue::GetStringValue DontDelete|Function 0 + getCounterValue DOMCSSPrimitiveValue::GetCounterValue DontDelete|Function 0 + getRectValue DOMCSSPrimitiveValue::GetRectValue DontDelete|Function 0 + getRGBColorValue DOMCSSPrimitiveValue::GetRGBColorValue DontDelete|Function 0 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMCSSPrimitiveValueProto) +IMPLEMENT_PROTOFUNC_DOM(DOMCSSPrimitiveValueProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMCSSPrimitiveValue",DOMCSSPrimitiveValueProto,DOMCSSPrimitiveValueProtoFunc) + +DOMCSSPrimitiveValue::DOMCSSPrimitiveValue(ExecState *exec, const DOM::CSSPrimitiveValue& v) + : DOMCSSValue(DOMCSSPrimitiveValueProto::self(exec), v) { } + +Value DOMCSSPrimitiveValue::tryGet(ExecState *exec, const Identifier &p) const +{ + if (p=="primitiveType") + return Number(static_cast<DOM::CSSPrimitiveValue>(cssValue).primitiveType()); + return DOMObject::tryGet(exec,p); +} + +Value DOMCSSPrimitiveValueProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMCSSPrimitiveValue, thisObj ); + DOM::CSSPrimitiveValue val = static_cast<DOMCSSPrimitiveValue *>(thisObj.imp())->toCSSPrimitiveValue(); + switch (id) { + case DOMCSSPrimitiveValue::SetFloatValue: + val.setFloatValue(args[0].toInteger(exec),args[1].toNumber(exec)); + return Undefined(); + case DOMCSSPrimitiveValue::GetFloatValue: + return Number(val.getFloatValue(args[0].toInteger(exec))); + case DOMCSSPrimitiveValue::SetStringValue: + val.setStringValue(args[0].toInteger(exec),args[1].toString(exec).string()); + return Undefined(); + case DOMCSSPrimitiveValue::GetStringValue: + return String(val.getStringValue()); + case DOMCSSPrimitiveValue::GetCounterValue: + return getDOMCounter(exec,val.getCounterValue()); + case DOMCSSPrimitiveValue::GetRectValue: + return getDOMRect(exec,val.getRectValue()); + case DOMCSSPrimitiveValue::GetRGBColorValue: + return getDOMRGBColor(exec,val.getRGBColorValue()); + default: + return Undefined(); + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo CSSPrimitiveValueConstructor::info = { "CSSPrimitiveValueConstructor", 0, &CSSPrimitiveValueConstructorTable, 0 }; + +/* +@begin CSSPrimitiveValueConstructorTable 27 + CSS_UNKNOWN DOM::CSSPrimitiveValue::CSS_UNKNOWN DontDelete|ReadOnly + CSS_NUMBER DOM::CSSPrimitiveValue::CSS_NUMBER DontDelete|ReadOnly + CSS_PERCENTAGE DOM::CSSPrimitiveValue::CSS_PERCENTAGE DontDelete|ReadOnly + CSS_EMS DOM::CSSPrimitiveValue::CSS_EMS DontDelete|ReadOnly + CSS_EXS DOM::CSSPrimitiveValue::CSS_EXS DontDelete|ReadOnly + CSS_PX DOM::CSSPrimitiveValue::CSS_PX DontDelete|ReadOnly + CSS_CM DOM::CSSPrimitiveValue::CSS_CM DontDelete|ReadOnly + CSS_MM DOM::CSSPrimitiveValue::CSS_MM DontDelete|ReadOnly + CSS_IN DOM::CSSPrimitiveValue::CSS_IN DontDelete|ReadOnly + CSS_PT DOM::CSSPrimitiveValue::CSS_PT DontDelete|ReadOnly + CSS_PC DOM::CSSPrimitiveValue::CSS_PC DontDelete|ReadOnly + CSS_DEG DOM::CSSPrimitiveValue::CSS_DEG DontDelete|ReadOnly + CSS_RAD DOM::CSSPrimitiveValue::CSS_RAD DontDelete|ReadOnly + CSS_GRAD DOM::CSSPrimitiveValue::CSS_GRAD DontDelete|ReadOnly + CSS_MS DOM::CSSPrimitiveValue::CSS_MS DontDelete|ReadOnly + CSS_S DOM::CSSPrimitiveValue::CSS_S DontDelete|ReadOnly + CSS_HZ DOM::CSSPrimitiveValue::CSS_HZ DontDelete|ReadOnly + CSS_KHZ DOM::CSSPrimitiveValue::CSS_KHZ DontDelete|ReadOnly + CSS_DIMENSION DOM::CSSPrimitiveValue::CSS_DIMENSION DontDelete|ReadOnly + CSS_STRING DOM::CSSPrimitiveValue::CSS_STRING DontDelete|ReadOnly + CSS_URI DOM::CSSPrimitiveValue::CSS_URI DontDelete|ReadOnly + CSS_IDENT DOM::CSSPrimitiveValue::CSS_IDENT DontDelete|ReadOnly + CSS_ATTR DOM::CSSPrimitiveValue::CSS_ATTR DontDelete|ReadOnly + CSS_COUNTER DOM::CSSPrimitiveValue::CSS_COUNTER DontDelete|ReadOnly + CSS_RECT DOM::CSSPrimitiveValue::CSS_RECT DontDelete|ReadOnly + CSS_RGBCOLOR DOM::CSSPrimitiveValue::CSS_RGBCOLOR DontDelete|ReadOnly +@end +*/ + +Value CSSPrimitiveValueConstructor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<CSSPrimitiveValueConstructor,CSSValueConstructor>(exec,p,&CSSPrimitiveValueConstructorTable,this); +} + +Value CSSPrimitiveValueConstructor::getValueProperty(ExecState *, int token) const +{ + // We use the token as the value to return directly + return Number(token); +} + +Value getCSSPrimitiveValueConstructor(ExecState *exec) +{ + return cacheGlobalObject<CSSPrimitiveValueConstructor>( exec, "[[cssPrimitiveValue.constructor]]" ); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMCSSValueList::info = { "CSSValueList", 0, &DOMCSSValueListTable, 0 }; + +/* +@begin DOMCSSValueListTable 3 + length DOMCSSValueList::Length DontDelete|ReadOnly + item DOMCSSValueList::Item DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(DOMCSSValueListFunc) // not really a proto, but doesn't matter + +DOMCSSValueList::DOMCSSValueList(ExecState *exec, const DOM::CSSValueList& v) + : DOMCSSValue(exec, v) { } + +Value DOMCSSValueList::tryGet(ExecState *exec, const Identifier &p) const +{ + Value result; + DOM::CSSValueList valueList = static_cast<DOM::CSSValueList>(cssValue); + + if (p == lengthPropertyName) + return Number(valueList.length()); + else if (p == "item") + return lookupOrCreateFunction<DOMCSSValueListFunc>(exec,p,this,DOMCSSValueList::Item,1,DontDelete|Function); + + bool ok; + long unsigned int u = p.toULong(&ok); + if (ok) + return getDOMCSSValue(exec,valueList.item(u)); + + return DOMCSSValue::tryGet(exec,p); +} + +Value DOMCSSValueListFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMCSSValueList, thisObj ); + DOM::CSSValueList valueList = static_cast<DOMCSSValueList *>(thisObj.imp())->toValueList(); + switch (id) { + case DOMCSSValueList::Item: + return getDOMCSSValue(exec,valueList.item(args[0].toInteger(exec))); + default: + return Undefined(); + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMRGBColor::info = { "RGBColor", 0, &DOMRGBColorTable, 0 }; + +/* +@begin DOMRGBColorTable 3 + red DOMRGBColor::Red DontDelete|ReadOnly + green DOMRGBColor::Green DontDelete|ReadOnly + blue DOMRGBColor::Blue DontDelete|ReadOnly +@end +*/ + +DOMRGBColor::DOMRGBColor(ExecState* exec, const DOM::RGBColor& c) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), rgbColor(c) +{ +} + +DOMRGBColor::~DOMRGBColor() +{ + //rgbColors.remove(rgbColor.handle()); +} + +Value DOMRGBColor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<DOMRGBColor,DOMObject>(exec, p, + &DOMRGBColorTable, + this); +} + +Value DOMRGBColor::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case Red: + return getDOMCSSValue(exec, rgbColor.red()); + case Green: + return getDOMCSSValue(exec, rgbColor.green()); + case Blue: + return getDOMCSSValue(exec, rgbColor.blue()); + default: + return Value(); + } +} + +Value getDOMRGBColor(ExecState *exec, const DOM::RGBColor& c) +{ + // ### implement equals for RGBColor since they're not refcounted objects + return Value(new DOMRGBColor(exec, c)); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMRect::info = { "Rect", 0, &DOMRectTable, 0 }; +/* +@begin DOMRectTable 4 + top DOMRect::Top DontDelete|ReadOnly + right DOMRect::Right DontDelete|ReadOnly + bottom DOMRect::Bottom DontDelete|ReadOnly + left DOMRect::Left DontDelete|ReadOnly +@end +*/ + +DOMRect::DOMRect(ExecState *exec, const DOM::Rect& r) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), rect(r) +{ +} + +DOMRect::~DOMRect() +{ + ScriptInterpreter::forgetDOMObject(rect.handle()); +} + +Value DOMRect::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<DOMRect,DOMObject>(exec, p, + &DOMRectTable, this); +} + +Value DOMRect::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case Top: + return getDOMCSSValue(exec, rect.top()); + case Right: + return getDOMCSSValue(exec, rect.right()); + case Bottom: + return getDOMCSSValue(exec, rect.bottom()); + case Left: + return getDOMCSSValue(exec, rect.left()); + default: + return Value(); + } +} + +Value getDOMRect(ExecState *exec, const DOM::Rect& r) +{ + return cacheDOMObject<DOM::Rect, KJS::DOMRect>(exec, r); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMCounter::info = { "Counter", 0, &DOMCounterTable, 0 }; +/* +@begin DOMCounterTable 3 + identifier DOMCounter::identifier DontDelete|ReadOnly + listStyle DOMCounter::listStyle DontDelete|ReadOnly + separator DOMCounter::separator DontDelete|ReadOnly +@end +*/ +DOMCounter::DOMCounter(ExecState *exec, const DOM::Counter& c) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), counter(c) +{ +} + +DOMCounter::~DOMCounter() +{ + ScriptInterpreter::forgetDOMObject(counter.handle()); +} + +Value DOMCounter::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<DOMCounter,DOMObject>(exec, p, + &DOMCounterTable, this); +} + +Value DOMCounter::getValueProperty(ExecState *, int token) const +{ + switch (token) { + case identifier: + return String(counter.identifier()); + case listStyle: + return String(counter.listStyle()); + case separator: + return String(counter.separator()); + default: + return Value(); + } +} + +Value getDOMCounter(ExecState *exec, const DOM::Counter& c) +{ + return cacheDOMObject<DOM::Counter, KJS::DOMCounter>(exec, c); +} + +} //namespace KJS diff --git a/tdehtml/ecma/kjs_css.h b/tdehtml/ecma/kjs_css.h new file mode 100644 index 000000000..2b7d14712 --- /dev/null +++ b/tdehtml/ecma/kjs_css.h @@ -0,0 +1,304 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2000 Harri Porten (porten@kde.org) + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * 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 + */ + +#ifndef _KJS_CSS_H_ +#define _KJS_CSS_H_ + +#include <dom/dom_node.h> +#include <dom/dom_doc.h> +#include <kjs/object.h> +#include <dom/css_value.h> +#include <dom/css_stylesheet.h> +#include <dom/css_rule.h> +#include "kjs_binding.h" + +namespace KJS { + + class DOMCSSStyleDeclaration : public DOMObject { + public: + DOMCSSStyleDeclaration(ExecState *exec, const DOM::CSSStyleDeclaration& s); + virtual ~DOMCSSStyleDeclaration(); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + virtual bool hasProperty(ExecState *exec, const Identifier &propertyName) const; + virtual const ClassInfo *classInfo() const { return &info; } + static const ClassInfo info; + enum { CssText, Length, ParentRule, + GetPropertyValue, GetPropertyCSSValue, RemoveProperty, GetPropertyPriority, + SetProperty, Item }; + DOM::CSSStyleDeclaration toStyleDecl() const { return styleDecl; } + protected: + DOM::CSSStyleDeclaration styleDecl; + }; + + DEFINE_PSEUDO_CONSTRUCTOR(CSSStyleDeclarationPseudoCtor) + + Value getDOMCSSStyleDeclaration(ExecState *exec, const DOM::CSSStyleDeclaration& n); + + class DOMStyleSheet : public DOMObject { + public: + // Build a DOMStyleSheet + DOMStyleSheet(ExecState *, const DOM::StyleSheet& ss); + // Constructor for inherited classes + DOMStyleSheet(const Object& proto, const DOM::StyleSheet& ss) : DOMObject(proto), styleSheet(ss) { } + virtual ~DOMStyleSheet(); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + virtual bool toBoolean(ExecState *) const { return true; } + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Type, Disabled, OwnerNode, ParentStyleSheet, Href, Title, Media }; + protected: + DOM::StyleSheet styleSheet; + }; + + Value getDOMStyleSheet(ExecState *exec, const DOM::StyleSheet& ss); + + class DOMStyleSheetList : public DOMObject { + public: + DOMStyleSheetList(ExecState *, const DOM::StyleSheetList& ssl, const DOM::Document& doc); + virtual ~DOMStyleSheetList(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + virtual Value call(ExecState *exec, Object &thisObj, const List &args); + Value tryCall(ExecState *exec, Object &thisObj, const List &args); + virtual bool implementsCall() const { return true; } + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + virtual bool toBoolean(ExecState* ) const { return true; } + static const ClassInfo info; + DOM::StyleSheetList toStyleSheetList() const { return styleSheetList; } + enum { Item, Length }; + private: + DOM::StyleSheetList styleSheetList; + DOM::Document m_doc; + }; + + // The document is only used for get-stylesheet-by-name (make optional if necessary) + Value getDOMStyleSheetList(ExecState *exec, const DOM::StyleSheetList& ss, const DOM::Document& doc); + + class DOMMediaList : public DOMObject { + public: + DOMMediaList(ExecState *, const DOM::MediaList& ml); + virtual ~DOMMediaList(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + virtual const ClassInfo* classInfo() const { return &info; } + virtual bool toBoolean(ExecState* ) const { return true; } + static const ClassInfo info; + enum { MediaText, Length, + Item, DeleteMedium, AppendMedium }; + DOM::MediaList toMediaList() const { return mediaList; } + private: + DOM::MediaList mediaList; + }; + + Value getDOMMediaList(ExecState *exec, const DOM::MediaList& ss); + + class DOMCSSStyleSheet : public DOMStyleSheet { + public: + DOMCSSStyleSheet(ExecState *exec, const DOM::CSSStyleSheet& ss); + virtual ~DOMCSSStyleSheet(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { OwnerRule, CssRules, Rules, + InsertRule, DeleteRule, AddRule, RemoveRule }; + DOM::CSSStyleSheet toCSSStyleSheet() const { return static_cast<DOM::CSSStyleSheet>(styleSheet); } + }; + + class DOMCSSRuleList : public DOMObject { + public: + DOMCSSRuleList(ExecState *, const DOM::CSSRuleList& rl); + virtual ~DOMCSSRuleList(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Item, Length }; + DOM::CSSRuleList toCSSRuleList() const { return cssRuleList; } + protected: + DOM::CSSRuleList cssRuleList; + }; + + Value getDOMCSSRuleList(ExecState *exec, const DOM::CSSRuleList& rl); + + class DOMCSSRule : public DOMObject { + public: + DOMCSSRule(ExecState *, const DOM::CSSRule& r); + virtual ~DOMCSSRule(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + void putValueProperty(ExecState *exec, int token, const Value& value, int attr); + virtual const ClassInfo* classInfo() const; + static const ClassInfo info; + static const ClassInfo style_info, media_info, fontface_info, page_info, import_info, charset_info; + enum { ParentStyleSheet, Type, CssText, ParentRule, + Style_SelectorText, Style_Style, + Media_Media, Media_InsertRule, Media_DeleteRule, Media_CssRules, + FontFace_Style, Page_SelectorText, Page_Style, + Import_Href, Import_Media, Import_StyleSheet, Charset_Encoding }; + DOM::CSSRule toCSSRule() const { return cssRule; } + protected: + DOM::CSSRule cssRule; + }; + + Value getDOMCSSRule(ExecState *exec, const DOM::CSSRule& r); + + /** + * Convert an object to a CSSRule. Returns a null CSSRule if not possible. + */ + DOM::CSSRule toCSSRule(const Value&); + + // Constructor for CSSRule - currently only used for some global values + class CSSRuleConstructor : public DOMObject { + public: + CSSRuleConstructor(ExecState *); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { UNKNOWN_RULE, STYLE_RULE, CHARSET_RULE, IMPORT_RULE, MEDIA_RULE, FONT_FACE_RULE, PAGE_RULE }; + }; + + Value getCSSRuleConstructor(ExecState *exec); + + class DOMCSSValue : public DOMObject { + public: + DOMCSSValue(ExecState *, const DOM::CSSValue& v); + DOMCSSValue(const Object& proto, const DOM::CSSValue& v) : DOMObject(proto), cssValue(v) { } + virtual ~DOMCSSValue(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { CssText, CssValueType }; + protected: + DOM::CSSValue cssValue; + }; + + Value getDOMCSSValue(ExecState *exec, const DOM::CSSValue& v); + + // Constructor for CSSValue - currently only used for some global values + class CSSValueConstructor : public DOMObject { + public: + CSSValueConstructor(ExecState *exec); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { CSS_VALUE_LIST, CSS_PRIMITIVE_VALUE, CSS_CUSTOM, CSS_INHERIT }; + }; + + Value getCSSValueConstructor(ExecState *exec); + + class DOMCSSPrimitiveValue : public DOMCSSValue { + public: + DOMCSSPrimitiveValue(ExecState *exec, const DOM::CSSPrimitiveValue& v); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + DOM::CSSPrimitiveValue toCSSPrimitiveValue() const { return static_cast<DOM::CSSPrimitiveValue>(cssValue); } + enum { PrimitiveType, SetFloatValue, GetFloatValue, SetStringValue, GetStringValue, + GetCounterValue, GetRectValue, GetRGBColorValue }; + }; + + // Constructor for CSSPrimitiveValue - currently only used for some global values + class CSSPrimitiveValueConstructor : public CSSValueConstructor { + public: + CSSPrimitiveValueConstructor(ExecState *exec) : CSSValueConstructor(exec) { } + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + }; + + Value getCSSPrimitiveValueConstructor(ExecState *exec); + + class DOMCSSValueList : public DOMCSSValue { + public: + DOMCSSValueList(ExecState *exec, const DOM::CSSValueList& v); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Item, Length }; + DOM::CSSValueList toValueList() const { return static_cast<DOM::CSSValueList>(cssValue); } + }; + + class DOMRGBColor : public DOMObject { + public: + DOMRGBColor(ExecState*, const DOM::RGBColor& c); + ~DOMRGBColor(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Red, Green, Blue }; + protected: + DOM::RGBColor rgbColor; + }; + + Value getDOMRGBColor(ExecState *exec, const DOM::RGBColor& c); + + class DOMRect : public DOMObject { + public: + DOMRect(ExecState *, const DOM::Rect& r); + ~DOMRect(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Top, Right, Bottom, Left }; + protected: + DOM::Rect rect; + }; + + Value getDOMRect(ExecState *exec, const DOM::Rect& r); + + class DOMCounter : public DOMObject { + public: + DOMCounter(ExecState *, const DOM::Counter& c); + ~DOMCounter(); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { identifier, listStyle, separator }; + protected: + DOM::Counter counter; + }; + + Value getDOMCounter(ExecState *exec, const DOM::Counter& c); + +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_debugwin.cpp b/tdehtml/ecma/kjs_debugwin.cpp new file mode 100644 index 000000000..b7bd23de3 --- /dev/null +++ b/tdehtml/ecma/kjs_debugwin.cpp @@ -0,0 +1,1139 @@ +/* + * This file is part of the KDE libraries + * Copyright (C) 2000-2001 Harri Porten (porten@kde.org) + * Copyright (C) 2001,2003 Peter Kelly (pmk@post.com) + * + * 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_debugwin.h" +#include "kjs_proxy.h" + +#ifdef KJS_DEBUGGER + +#include <assert.h> +#include <stdlib.h> +#include <tqlayout.h> +#include <tqpushbutton.h> +#include <tqtextedit.h> +#include <tqlistbox.h> +#include <tqmultilineedit.h> +#include <tqapplication.h> +#include <tqsplitter.h> +#include <tqcombobox.h> +#include <tqbitmap.h> +#include <tqwidgetlist.h> +#include <tqlabel.h> +#include <tqdatastream.h> +#include <tqcstring.h> +#include <tqpainter.h> +#include <tqscrollbar.h> + +#include <tdelocale.h> +#include <kdebug.h> +#include <kiconloader.h> +#include <tdeglobal.h> +#include <tdemessagebox.h> +#include <kguiitem.h> +#include <tdepopupmenu.h> +#include <tdemenubar.h> +#include <tdeaction.h> +#include <tdeactioncollection.h> +#include <tdeglobalsettings.h> +#include <tdeshortcut.h> +#include <tdeconfig.h> +#include <tdeconfigbase.h> +#include <tdeapplication.h> +#include <dcop/dcopclient.h> +#include <kstringhandler.h> + +#include "kjs_dom.h" +#include "kjs_binding.h" +#include "tdehtml_part.h" +#include "tdehtmlview.h" +#include "tdehtml_pagecache.h" +#include "tdehtml_settings.h" +#include "tdehtml_factory.h" +#include "misc/decoder.h" +#include <kjs/ustring.h> +#include <kjs/object.h> +#include <kjs/function.h> +#include <kjs/interpreter.h> + +using namespace KJS; +using namespace tdehtml; + +SourceDisplay::SourceDisplay(KJSDebugWin *debugWin, TQWidget *parent, const char *name) + : TQScrollView(parent,name), m_currentLine(-1), m_sourceFile(0), m_debugWin(debugWin), + m_font(TDEGlobalSettings::fixedFont()) +{ + verticalScrollBar()->setLineStep(TQFontMetrics(m_font).height()); + viewport()->setBackgroundMode(TQt::NoBackground); + m_breakpointIcon = TDEGlobal::iconLoader()->loadIcon("stop",TDEIcon::Small); +} + +SourceDisplay::~SourceDisplay() +{ + if (m_sourceFile) { + m_sourceFile->deref(); + m_sourceFile = 0L; + } +} + +void SourceDisplay::setSource(SourceFile *sourceFile) +{ + if ( sourceFile ) + sourceFile->ref(); + if (m_sourceFile) + m_sourceFile->deref(); + m_sourceFile = sourceFile; + if ( m_sourceFile ) + m_sourceFile->ref(); + + if (!m_sourceFile || !m_debugWin->isVisible()) { + return; + } + + TQString code = sourceFile->getCode(); + const TQChar *chars = code.unicode(); + uint len = code.length(); + TQChar newLine('\n'); + TQChar cr('\r'); + TQChar tab('\t'); + TQString tabstr(" "); + TQString line; + m_lines.clear(); + int width = 0; + TQFontMetrics metrics(m_font); + + for (uint pos = 0; pos < len; pos++) { + TQChar c = chars[pos]; + if (c == cr) { + if (pos < len-1 && chars[pos+1] == newLine) + continue; + else + c = newLine; + } + if (c == newLine) { + m_lines.append(line); + int lineWidth = metrics.width(line); + if (lineWidth > width) + width = lineWidth; + line = ""; + } + else if (c == tab) { + line += tabstr; + } + else { + line += c; + } + } + if (line.length()) { + m_lines.append(line); + int lineWidth = metrics.width(line); + if (lineWidth > width) + width = lineWidth; + } + + int linenoDisplayWidth = metrics.width("888888"); + resizeContents(linenoDisplayWidth+4+width,metrics.height()*m_lines.count()); + update(); + sourceFile->deref(); +} + +void SourceDisplay::setCurrentLine(int lineno, bool doCenter) +{ + m_currentLine = lineno; + + if (doCenter && m_currentLine >= 0) { + TQFontMetrics metrics(m_font); + int height = metrics.height(); + center(0,height*m_currentLine+height/2); + } + + updateContents(); +} + +void SourceDisplay::contentsMousePressEvent(TQMouseEvent *e) +{ + TQScrollView::mouseDoubleClickEvent(e); + TQFontMetrics metrics(m_font); + int lineno = e->y()/metrics.height(); + emit lineDoubleClicked(lineno+1); // line numbers start from 1 +} + +void SourceDisplay::showEvent(TQShowEvent *) +{ + setSource(m_sourceFile); +} + +void SourceDisplay::drawContents(TQPainter *p, int clipx, int clipy, int clipw, int cliph) +{ + if (!m_sourceFile) { + p->fillRect(clipx,clipy,clipw,cliph,palette().active().base()); + return; + } + + TQFontMetrics metrics(m_font); + int height = metrics.height(); + + int bottom = clipy + cliph; + int right = clipx + clipw; + + int firstLine = clipy/height-1; + if (firstLine < 0) + firstLine = 0; + int lastLine = bottom/height+2; + if (lastLine > (int)m_lines.count()) + lastLine = m_lines.count(); + + p->setFont(m_font); + + int linenoWidth = metrics.width("888888"); + + for (int lineno = firstLine; lineno <= lastLine; lineno++) { + TQString linenoStr = TQString().sprintf("%d",lineno+1); + + + p->fillRect(0,height*lineno,linenoWidth,height,palette().active().mid()); + + p->setPen(palette().active().text()); + p->drawText(0,height*lineno,linenoWidth,height,Qt::AlignRight,linenoStr); + + TQColor bgColor; + TQColor textColor; + + if (lineno == m_currentLine) { + bgColor = palette().active().highlight(); + textColor = palette().active().highlightedText(); + } + else if (m_debugWin->haveBreakpoint(m_sourceFile,lineno+1,lineno+1)) { + bgColor = palette().active().text(); + textColor = palette().active().base(); + p->drawPixmap(2,height*lineno+height/2-m_breakpointIcon.height()/2,m_breakpointIcon); + } + else { + bgColor = palette().active().base(); + textColor = palette().active().text(); + } + + p->fillRect(linenoWidth,height*lineno,right-linenoWidth,height,bgColor); + p->setPen(textColor); + p->drawText(linenoWidth+4,height*lineno,contentsWidth()-linenoWidth-4,height, + Qt::AlignLeft,m_lines[lineno]); + } + + int remainingTop = height*(lastLine+1); + p->fillRect(0,remainingTop,linenoWidth,bottom-remainingTop,palette().active().mid()); + + p->fillRect(linenoWidth,remainingTop, + right-linenoWidth,bottom-remainingTop,palette().active().base()); +} + +//------------------------------------------------------------------------- + +KJSDebugWin * KJSDebugWin::kjs_html_debugger = 0; + +TQString SourceFile::getCode() +{ + if (interpreter) { + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart*>(static_cast<ScriptInterpreter*>(interpreter)->part()); + if (part && url == part->url().url() && TDEHTMLPageCache::self()->isValid(part->cacheId())) { + Decoder *decoder = part->createDecoder(); + TQByteArray data; + TQDataStream stream(data,IO_WriteOnly); + TDEHTMLPageCache::self()->saveData(part->cacheId(),&stream); + TQString str; + if (data.size() == 0) + str = ""; + else + str = decoder->decode(data.data(),data.size()) + decoder->flush(); + delete decoder; + return str; + } + } + + return code; +} + +//------------------------------------------------------------------------- + +SourceFragment::SourceFragment(int sid, int bl, int el, SourceFile *sf) +{ + sourceId = sid; + baseLine = bl; + errorLine = el; + sourceFile = sf; + sourceFile->ref(); +} + +SourceFragment::~SourceFragment() +{ + sourceFile->deref(); + sourceFile = 0L; +} + +//------------------------------------------------------------------------- + +KJSErrorDialog::KJSErrorDialog(TQWidget *parent, const TQString& errorMessage, bool showDebug) + : KDialogBase(parent,0,true,i18n("JavaScript Error"), + showDebug ? KDialogBase::Ok|KDialogBase::User1 : KDialogBase::Ok, + KDialogBase::Ok,false,KGuiItem("&Debug","gear")) +{ + TQWidget *page = new TQWidget(this); + setMainWidget(page); + + TQLabel *iconLabel = new TQLabel("",page); + iconLabel->setPixmap(TDEGlobal::iconLoader()->loadIcon("messagebox_critical", + TDEIcon::NoGroup,TDEIcon::SizeMedium, + TDEIcon::DefaultState,0,true)); + + TQWidget *contents = new TQWidget(page); + TQLabel *label = new TQLabel(errorMessage,contents); + m_dontShowAgainCb = new TQCheckBox(i18n("&Do not show this message again"),contents); + + TQVBoxLayout *vl = new TQVBoxLayout(contents,0,spacingHint()); + vl->addWidget(label); + vl->addWidget(m_dontShowAgainCb); + + TQHBoxLayout *topLayout = new TQHBoxLayout(page,0,spacingHint()); + topLayout->addWidget(iconLabel); + topLayout->addWidget(contents); + topLayout->addStretch(10); + + m_debugSelected = false; +} + +KJSErrorDialog::~KJSErrorDialog() +{ +} + +void KJSErrorDialog::slotUser1() +{ + m_debugSelected = true; + close(); +} + +//------------------------------------------------------------------------- +EvalMultiLineEdit::EvalMultiLineEdit(TQWidget *parent) + : TQMultiLineEdit(parent) { +} + +void EvalMultiLineEdit::keyPressEvent(TQKeyEvent * e) +{ + if (e->key() == Qt::Key_Return) { + if (hasSelectedText()) { + m_code = selectedText(); + } else { + int para, index; + getCursorPosition(¶, &index); + m_code = text(para); + } + end(); + } + TQMultiLineEdit::keyPressEvent(e); +} +//------------------------------------------------------------------------- +KJSDebugWin::KJSDebugWin(TQWidget *parent, const char *name) + : TDEMainWindow(parent, name, (WFlags)WType_TopLevel), TDEInstance("kjs_debugger") +{ + m_breakpoints = 0; + m_breakpointCount = 0; + + m_curSourceFile = 0; + m_mode = Continue; + m_nextSourceUrl = ""; + m_nextSourceBaseLine = 1; + m_execs = 0; + m_execsCount = 0; + m_execsAlloc = 0; + m_steppingDepth = 0; + + m_stopIcon = TDEGlobal::iconLoader()->loadIcon("stop",TDEIcon::Small); + m_emptyIcon = TQPixmap(m_stopIcon.width(),m_stopIcon.height()); + TQBitmap emptyMask(m_stopIcon.width(),m_stopIcon.height(),true); + m_emptyIcon.setMask(emptyMask); + + setCaption(i18n("JavaScript Debugger")); + + TQWidget *mainWidget = new TQWidget(this); + setCentralWidget(mainWidget); + + TQVBoxLayout *vl = new TQVBoxLayout(mainWidget,5); + + // frame list & code + TQSplitter *hsplitter = new TQSplitter(Qt::Vertical,mainWidget); + TQSplitter *vsplitter = new TQSplitter(hsplitter); + TQFont font(TDEGlobalSettings::fixedFont()); + + TQWidget *contextContainer = new TQWidget(vsplitter); + + TQLabel *contextLabel = new TQLabel(i18n("Call stack"),contextContainer); + TQWidget *contextListContainer = new TQWidget(contextContainer); + m_contextList = new TQListBox(contextListContainer); + m_contextList->setMinimumSize(100,200); + connect(m_contextList,TQT_SIGNAL(highlighted(int)),this,TQT_SLOT(slotShowFrame(int))); + + TQHBoxLayout *clistLayout = new TQHBoxLayout(contextListContainer); + clistLayout->addWidget(m_contextList); + clistLayout->addSpacing(KDialog::spacingHint()); + + TQVBoxLayout *contextLayout = new TQVBoxLayout(contextContainer); + contextLayout->addWidget(contextLabel); + contextLayout->addSpacing(KDialog::spacingHint()); + contextLayout->addWidget(contextListContainer); + + // source selection & display + TQWidget *sourceSelDisplay = new TQWidget(vsplitter); + TQVBoxLayout *ssdvl = new TQVBoxLayout(sourceSelDisplay); + + m_sourceSel = new TQComboBox(toolBar()); + connect(m_sourceSel,TQT_SIGNAL(activated(int)),this,TQT_SLOT(slotSourceSelected(int))); + + m_sourceDisplay = new SourceDisplay(this,sourceSelDisplay); + ssdvl->addWidget(m_sourceDisplay); + connect(m_sourceDisplay,TQT_SIGNAL(lineDoubleClicked(int)),TQT_SLOT(slotToggleBreakpoint(int))); + + TQValueList<int> vsplitSizes; + vsplitSizes.insert(vsplitSizes.end(),120); + vsplitSizes.insert(vsplitSizes.end(),480); + vsplitter->setSizes(vsplitSizes); + + // evaluate + + TQWidget *evalContainer = new TQWidget(hsplitter); + + TQLabel *evalLabel = new TQLabel(i18n("JavaScript console"),evalContainer); + m_evalEdit = new EvalMultiLineEdit(evalContainer); + m_evalEdit->setWordWrap(TQMultiLineEdit::NoWrap); + m_evalEdit->setFont(font); + connect(m_evalEdit,TQT_SIGNAL(returnPressed()),TQT_SLOT(slotEval())); + m_evalDepth = 0; + + TQVBoxLayout *evalLayout = new TQVBoxLayout(evalContainer); + evalLayout->addSpacing(KDialog::spacingHint()); + evalLayout->addWidget(evalLabel); + evalLayout->addSpacing(KDialog::spacingHint()); + evalLayout->addWidget(m_evalEdit); + + TQValueList<int> hsplitSizes; + hsplitSizes.insert(hsplitSizes.end(),400); + hsplitSizes.insert(hsplitSizes.end(),200); + hsplitter->setSizes(hsplitSizes); + + vl->addWidget(hsplitter); + + // actions + TDEPopupMenu *debugMenu = new TDEPopupMenu(this); + menuBar()->insertItem("&Debug",debugMenu); + + m_actionCollection = new TDEActionCollection(this); + m_actionCollection->setInstance(this); + + // Venkman use F12, KDevelop F10 + TDEShortcut scNext = TDEShortcut(KKeySequence(KKey(Qt::Key_F12))); + scNext.append(KKeySequence(KKey(Qt::Key_F10))); + m_nextAction = new TDEAction(i18n("Next breakpoint","&Next"),"dbgnext",scNext,TQT_TQOBJECT(this),TQT_SLOT(slotNext()), + m_actionCollection,"next"); + m_stepAction = new TDEAction(i18n("&Step"),"dbgstep",TDEShortcut(Qt::Key_F11),TQT_TQOBJECT(this),TQT_SLOT(slotStep()), + m_actionCollection,"step"); + // Venkman use F5, Kdevelop F9 + TDEShortcut scCont = TDEShortcut(KKeySequence(KKey(Qt::Key_F5))); + scCont.append(KKeySequence(KKey(Qt::Key_F9))); + m_continueAction = new TDEAction(i18n("&Continue"),"dbgrun",scCont,TQT_TQOBJECT(this),TQT_SLOT(slotContinue()), + m_actionCollection,"cont"); + m_stopAction = new TDEAction(i18n("St&op"),"stop",TDEShortcut(Qt::Key_F4),TQT_TQOBJECT(this),TQT_SLOT(slotStop()), + m_actionCollection,"stop"); + m_breakAction = new TDEAction(i18n("&Break at Next Statement"),"dbgrunto",TDEShortcut(Qt::Key_F8),TQT_TQOBJECT(this),TQT_SLOT(slotBreakNext()), + m_actionCollection,"breaknext"); + + + m_nextAction->setToolTip(i18n("Next breakpoint","Next")); + m_stepAction->setToolTip(i18n("Step")); + m_continueAction->setToolTip(i18n("Continue")); + m_stopAction->setToolTip(i18n("Stop")); + m_breakAction->setToolTip("Break at next Statement"); + + m_nextAction->setEnabled(false); + m_stepAction->setEnabled(false); + m_continueAction->setEnabled(false); + m_stopAction->setEnabled(false); + m_breakAction->setEnabled(true); + + m_nextAction->plug(debugMenu); + m_stepAction->plug(debugMenu); + m_continueAction->plug(debugMenu); +// m_stopAction->plug(debugMenu); ### disabled until DebuggerImp::stop() works reliably + m_breakAction->plug(debugMenu); + + m_nextAction->plug(toolBar()); + m_stepAction->plug(toolBar()); + m_continueAction->plug(toolBar()); +// m_stopAction->plug(toolBar()); ### + m_breakAction->plug(toolBar()); + + toolBar()->insertWidget(1,300,m_sourceSel); + toolBar()->setItemAutoSized(1); + + updateContextList(); + setMinimumSize(300,200); + resize(600,450); + +} + +KJSDebugWin::~KJSDebugWin() +{ + free(m_breakpoints); + free(m_execs); +} + +KJSDebugWin *KJSDebugWin::createInstance() +{ + assert(!kjs_html_debugger); + kjs_html_debugger = new KJSDebugWin(); + return kjs_html_debugger; +} + +void KJSDebugWin::destroyInstance() +{ + assert(kjs_html_debugger); + kjs_html_debugger->hide(); + delete kjs_html_debugger; +} + +void KJSDebugWin::slotNext() +{ + m_mode = Next; + leaveSession(); +} + +void KJSDebugWin::slotStep() +{ + m_mode = Step; + leaveSession(); +} + +void KJSDebugWin::slotContinue() +{ + m_mode = Continue; + leaveSession(); +} + +void KJSDebugWin::slotStop() +{ + m_mode = Stop; + while (!m_execStates.isEmpty()) + leaveSession(); +} + +void KJSDebugWin::slotBreakNext() +{ + m_mode = Step; +} + +void KJSDebugWin::slotToggleBreakpoint(int lineno) +{ + if (m_sourceSel->currentItem() < 0) + return; + + SourceFile *sourceFile = m_sourceSelFiles.at(m_sourceSel->currentItem()); + + // Find the source fragment containing the selected line (if any) + int sourceId = -1; + int highestBaseLine = -1; + TQMap<int,SourceFragment*>::Iterator it; + + for (it = m_sourceFragments.begin(); it != m_sourceFragments.end(); ++it) { + SourceFragment *sourceFragment = it.data(); + if (sourceFragment && + sourceFragment->sourceFile == sourceFile && + sourceFragment->baseLine <= lineno && + sourceFragment->baseLine > highestBaseLine) { + + sourceId = sourceFragment->sourceId; + highestBaseLine = sourceFragment->baseLine; + } + } + + if (sourceId < 0) + return; + + // Update the source code display with the appropriate icon + int fragmentLineno = lineno-highestBaseLine+1; + if (!setBreakpoint(sourceId,fragmentLineno)) // was already set + deleteBreakpoint(sourceId,fragmentLineno); + + m_sourceDisplay->updateContents(); +} + +void KJSDebugWin::slotShowFrame(int frameno) +{ + if (frameno < 0 || frameno >= m_execsCount) + return; + + Context ctx = m_execs[frameno]->context(); + setSourceLine(ctx.sourceId(),ctx.curStmtFirstLine()); +} + +void KJSDebugWin::slotSourceSelected(int sourceSelIndex) +{ + // A source file has been selected from the drop-down list - display the file + if (sourceSelIndex < 0 || sourceSelIndex >= (int)m_sourceSel->count()) + return; + SourceFile *sourceFile = m_sourceSelFiles.at(sourceSelIndex); + displaySourceFile(sourceFile,true); + + // If the currently selected context is in the current source file, then hilight + // the line it's on. + if (m_contextList->currentItem() >= 0) { + Context ctx = m_execs[m_contextList->currentItem()]->context(); + if (m_sourceFragments[ctx.sourceId()]->sourceFile == m_sourceSelFiles.at(sourceSelIndex)) + setSourceLine(ctx.sourceId(),ctx.curStmtFirstLine()); + } +} + +void KJSDebugWin::slotEval() +{ + // Work out which execution state to use. If we're currently in a debugging session, + // use the current context - otherwise, use the global execution state from the interpreter + // corresponding to the currently displayed source file. + ExecState *exec; + Object thisobj; + if (m_execStates.isEmpty()) { + if (m_sourceSel->currentItem() < 0) + return; + SourceFile *sourceFile = m_sourceSelFiles.at(m_sourceSel->currentItem()); + if (!sourceFile->interpreter) + return; + exec = sourceFile->interpreter->globalExec(); + thisobj = exec->interpreter()->globalObject(); + } + else { + exec = m_execStates.top(); + thisobj = exec->context().thisValue(); + } + + // Evaluate the js code from m_evalEdit + UString code(m_evalEdit->code()); + TQString msg; + + KJSCPUGuard guard; + guard.start(); + + Interpreter *interp = exec->interpreter(); + + Object obj = Object::dynamicCast(interp->globalObject().get(exec, "eval")); + List args; + args.append(String(code)); + + m_evalDepth++; + Value retval = obj.call(exec, thisobj, args); + m_evalDepth--; + guard.stop(); + + // Print the return value or exception message to the console + if (exec->hadException()) { + Value exc = exec->exception(); + exec->clearException(); + msg = "Exception: " + exc.toString(interp->globalExec()).qstring(); + } + else { + msg = retval.toString(interp->globalExec()).qstring(); + } + + m_evalEdit->insert(msg+"\n"); + updateContextList(); +} + +void KJSDebugWin::closeEvent(TQCloseEvent *e) +{ + while (!m_execStates.isEmpty()) // ### not sure if this will work + leaveSession(); + return TQWidget::closeEvent(e); +} + +bool KJSDebugWin::eventFilter(TQObject *o, TQEvent *e) +{ + switch (e->type()) { + case TQEvent::MouseButtonPress: + case TQEvent::MouseButtonRelease: + case TQEvent::MouseButtonDblClick: + case TQEvent::MouseMove: + case TQEvent::KeyPress: + case TQEvent::KeyRelease: + case TQEvent::Destroy: + case TQEvent::Close: + case TQEvent::Quit: + while (o->parent()) + o = TQT_TQOBJECT(o->parent()); + if (TQT_BASE_OBJECT(o) == TQT_BASE_OBJECT(this)) + return TQWidget::eventFilter(o,e); + else + return true; + break; + default: + return TQWidget::eventFilter(o,e); + } +} + +void KJSDebugWin::disableOtherWindows() +{ + TQWidgetList *widgets = TQApplication::allWidgets(); + TQWidgetListIt it(*widgets); + for (; it.current(); ++it) + it.current()->installEventFilter(this); +} + +void KJSDebugWin::enableOtherWindows() +{ + TQWidgetList *widgets = TQApplication::allWidgets(); + TQWidgetListIt it(*widgets); + for (; it.current(); ++it) + it.current()->removeEventFilter(this); +} + +bool KJSDebugWin::sourceParsed(KJS::ExecState *exec, int sourceId, + const KJS::UString &source, int errorLine) +{ + // Work out which source file this fragment is in + SourceFile *sourceFile = 0; + if (!m_nextSourceUrl.isEmpty()) + sourceFile = getSourceFile(exec->interpreter(),m_nextSourceUrl); + + int index; + if (!sourceFile) { + index = m_sourceSel->count(); + if (!m_nextSourceUrl.isEmpty()) { + + TQString code = source.qstring(); + KParts::ReadOnlyPart *part = static_cast<ScriptInterpreter*>(exec->interpreter())->part(); + if (m_nextSourceUrl == part->url().url()) { + // Only store the code here if it's not from the part's html page... in that + // case we can get it from TDEHTMLPageCache + code = TQString::null; + } + + sourceFile = new SourceFile(m_nextSourceUrl,code,exec->interpreter()); + setSourceFile(exec->interpreter(),m_nextSourceUrl,sourceFile); + m_sourceSelFiles.append(sourceFile); + m_sourceSel->insertItem(m_nextSourceUrl); + } + else { + // Sourced passed from somewhere else (possibly an eval call)... we don't know the url, + // but we still know the interpreter + sourceFile = new SourceFile("(unknown)",source.qstring(),exec->interpreter()); + m_sourceSelFiles.append(sourceFile); + m_sourceSel->insertItem(TQString::number(index) += "-???"); + } + } + else { + // Ensure that each source file to be displayed is associated with + // an appropriate interpreter + if (!sourceFile->interpreter) + sourceFile->interpreter = exec->interpreter(); + for (index = 0; index < m_sourceSel->count(); index++) { + if (m_sourceSelFiles.at(index) == sourceFile) + break; + } + assert(index < m_sourceSel->count()); + } + + SourceFragment *sf = new SourceFragment(sourceId,m_nextSourceBaseLine,errorLine,sourceFile); + m_sourceFragments[sourceId] = sf; + + if (m_sourceSel->currentItem() < 0) + m_sourceSel->setCurrentItem(index); + + if (m_sourceSel->currentItem() == index) { + displaySourceFile(sourceFile,true); + } + + m_nextSourceBaseLine = 1; + m_nextSourceUrl = ""; + + return (m_mode != Stop); +} + +bool KJSDebugWin::sourceUnused(KJS::ExecState *exec, int sourceId) +{ + // Verify that there aren't any contexts on the stack using the given sourceId + // This should never be the case because this function is only called when + // the interpreter has deleted all Node objects for the source. + for (int e = 0; e < m_execsCount; e++) + assert(m_execs[e]->context().sourceId() != sourceId); + + // Now remove the fragment (and the SourceFile, if it was the last fragment in that file) + SourceFragment *fragment = m_sourceFragments[sourceId]; + if (fragment) { + m_sourceFragments.erase(sourceId); + + SourceFile *sourceFile = fragment->sourceFile; + if (sourceFile->hasOneRef()) { + for (int i = 0; i < m_sourceSel->count(); i++) { + if (m_sourceSelFiles.at(i) == sourceFile) { + m_sourceSel->removeItem(i); + m_sourceSelFiles.remove(i); + break; + } + } + removeSourceFile(exec->interpreter(),sourceFile->url); + } + delete fragment; + } + + return (m_mode != Stop); +} + +bool KJSDebugWin::exception(ExecState *exec, const Value &value, bool inTryCatch) +{ + assert(value.isValid()); + + // Ignore exceptions that will be caught by the script + if (inTryCatch) + return true; + + KParts::ReadOnlyPart *part = static_cast<ScriptInterpreter*>(exec->interpreter())->part(); + TDEHTMLPart *tdehtmlpart = ::tqqt_cast<TDEHTMLPart*>(part); + if (tdehtmlpart && !tdehtmlpart->settings()->isJavaScriptErrorReportingEnabled()) + return true; + + TQWidget *dlgParent = (m_evalDepth == 0) ? (TQWidget*)part->widget() : (TQWidget*)this; + + TQString exceptionMsg = value.toString(exec).qstring(); + + // Syntax errors are a special case. For these we want to display the url & lineno, + // which isn't included in the exception messeage. So we work it out from the values + // passed to sourceParsed() + Object valueObj = Object::dynamicCast(value); + Object syntaxError = exec->interpreter()->builtinSyntaxError(); + if (valueObj.isValid() && valueObj.get(exec,"constructor").imp() == syntaxError.imp()) { + Value sidValue = valueObj.get(exec,"sid"); + if (sidValue.isA(NumberType)) { // sid is not set for Function() constructor + int sourceId = (int)sidValue.toNumber(exec); + assert(m_sourceFragments[sourceId]); + exceptionMsg = i18n("Parse error at %1 line %2") + .arg(m_sourceFragments[sourceId]->sourceFile->url) + .arg(m_sourceFragments[sourceId]->baseLine+m_sourceFragments[sourceId]->errorLine-1); + } + } + + bool dontShowAgain = false; + if (m_execsCount == 0) { + // An exception occurred and we're not currently executing any code... this can + // happen in some cases e.g. a parse error, or native code accessing funcitons like + // Object::put() + TQString msg = i18n("An error occurred while attempting to run a script on this page.\n\n%1") + .arg(exceptionMsg); + KJSErrorDialog dlg(dlgParent,msg,false); + dlg.exec(); + dontShowAgain = dlg.dontShowAgain(); + } + else { + Context ctx = m_execs[m_execsCount-1]->context(); + SourceFragment *sourceFragment = m_sourceFragments[ctx.sourceId()]; + TQString msg = i18n("An error occurred while attempting to run a script on this page.\n\n%1 line %2:\n%3") + .arg(KStringHandler::rsqueeze( sourceFragment->sourceFile->url,80), + TQString::number( sourceFragment->baseLine+ctx.curStmtFirstLine()-1), + exceptionMsg); + + KJSErrorDialog dlg(dlgParent,msg,true); + dlg.exec(); + dontShowAgain = dlg.dontShowAgain(); + + if (dlg.debugSelected()) { + m_mode = Next; + m_steppingDepth = m_execsCount-1; + enterSession(exec); + } + } + + if (dontShowAgain) { + TDEConfig *config = kapp->config(); + TDEConfigGroupSaver saver(config,TQString::fromLatin1("Java/JavaScript Settings")); + config->writeEntry("ReportJavaScriptErrors",TQVariant(false,0)); + config->sync(); + TQByteArray data; + kapp->dcopClient()->send( "konqueror*", "KonquerorIface", "reparseConfiguration()", data ); + } + + return (m_mode != Stop); +} + +bool KJSDebugWin::atStatement(KJS::ExecState *exec) +{ + assert(m_execsCount > 0); + assert(m_execs[m_execsCount-1] == exec); + checkBreak(exec); + return (m_mode != Stop); +} + +bool KJSDebugWin::enterContext(ExecState *exec) +{ + if (m_execsCount >= m_execsAlloc) { + m_execsAlloc += 10; + m_execs = (ExecState**)realloc(m_execs,m_execsAlloc*sizeof(ExecState*)); + } + m_execs[m_execsCount++] = exec; + + if (m_mode == Step) + m_steppingDepth = m_execsCount-1; + + checkBreak(exec); + return (m_mode != Stop); +} + +bool KJSDebugWin::exitContext(ExecState *exec, const Completion &/*completion*/) +{ + assert(m_execsCount > 0); + assert(m_execs[m_execsCount-1] == exec); + + checkBreak(exec); + + m_execsCount--; + if (m_steppingDepth > m_execsCount-1) + m_steppingDepth = m_execsCount-1; + if (m_execsCount == 0) + updateContextList(); + + return (m_mode != Stop); +} + +void KJSDebugWin::displaySourceFile(SourceFile *sourceFile, bool forceRefresh) +{ + if (m_curSourceFile == sourceFile && !forceRefresh) + return; + sourceFile->ref(); + m_sourceDisplay->setSource(sourceFile); + if (m_curSourceFile) + m_curSourceFile->deref(); + m_curSourceFile = sourceFile; +} + +void KJSDebugWin::setSourceLine(int sourceId, int lineno) +{ + SourceFragment *source = m_sourceFragments[sourceId]; + if (!source) + return; + + SourceFile *sourceFile = source->sourceFile; + if (m_curSourceFile != source->sourceFile) { + for (int i = 0; i < m_sourceSel->count(); i++) + if (m_sourceSelFiles.at(i) == sourceFile) + m_sourceSel->setCurrentItem(i); + displaySourceFile(sourceFile,false); + } + m_sourceDisplay->setCurrentLine(source->baseLine+lineno-2); +} + +void KJSDebugWin::setNextSourceInfo(TQString url, int baseLine) +{ + m_nextSourceUrl = url; + m_nextSourceBaseLine = baseLine; +} + +void KJSDebugWin::sourceChanged(Interpreter *interpreter, TQString url) +{ + SourceFile *sourceFile = getSourceFile(interpreter,url); + if (sourceFile && m_curSourceFile == sourceFile) + displaySourceFile(sourceFile,true); +} + +void KJSDebugWin::clearInterpreter(Interpreter *interpreter) +{ + TQMap<int,SourceFragment*>::Iterator it; + + for (it = m_sourceFragments.begin(); it != m_sourceFragments.end(); ++it) + if (it.data() && it.data()->sourceFile->interpreter == interpreter) + it.data()->sourceFile->interpreter = 0; +} + +SourceFile *KJSDebugWin::getSourceFile(Interpreter *interpreter, TQString url) +{ + TQString key = TQString("%1|%2").arg((long)interpreter).arg(url); + return m_sourceFiles[key]; +} + +void KJSDebugWin::setSourceFile(Interpreter *interpreter, TQString url, SourceFile *sourceFile) +{ + TQString key = TQString("%1|%2").arg((long)interpreter).arg(url); + sourceFile->ref(); + if (SourceFile* oldFile = m_sourceFiles[key]) + oldFile->deref(); + m_sourceFiles[key] = sourceFile; +} + +void KJSDebugWin::removeSourceFile(Interpreter *interpreter, TQString url) +{ + TQString key = TQString("%1|%2").arg((long)interpreter).arg(url); + if (SourceFile* oldFile = m_sourceFiles[key]) + oldFile->deref(); + m_sourceFiles.remove(key); +} + +void KJSDebugWin::checkBreak(ExecState *exec) +{ + if (m_breakpointCount > 0) { + Context ctx = m_execs[m_execsCount-1]->context(); + if (haveBreakpoint(ctx.sourceId(),ctx.curStmtFirstLine(),ctx.curStmtLastLine())) { + m_mode = Next; + m_steppingDepth = m_execsCount-1; + } + } + + if ((m_mode == Step || m_mode == Next) && m_steppingDepth == m_execsCount-1) + enterSession(exec); +} + +void KJSDebugWin::enterSession(ExecState *exec) +{ + // This "enters" a new debugging session, i.e. enables usage of the debugging window + // It re-enters the qt event loop here, allowing execution of other parts of the + // program to continue while the script is stopped. We have to be a bit careful here, + // i.e. make sure the user can't quit the app, and disable other event handlers which + // could interfere with the debugging session. + if (!isVisible()) + show(); + + m_mode = Continue; + + if (m_execStates.isEmpty()) { + disableOtherWindows(); + m_nextAction->setEnabled(true); + m_stepAction->setEnabled(true); + m_continueAction->setEnabled(true); + m_stopAction->setEnabled(true); + m_breakAction->setEnabled(false); + } + m_execStates.push(exec); + + updateContextList(); + + tqApp->enter_loop(); // won't return until leaveSession() is called +} + +void KJSDebugWin::leaveSession() +{ + // Disables debugging for this window and returns to execute the rest of the script + // (or aborts execution, if the user pressed stop). When this returns, the program + // will exit the qt event loop, i.e. return to whatever processing was being done + // before the debugger was stopped. + assert(!m_execStates.isEmpty()); + + m_execStates.pop(); + + if (m_execStates.isEmpty()) { + m_nextAction->setEnabled(false); + m_stepAction->setEnabled(false); + m_continueAction->setEnabled(false); + m_stopAction->setEnabled(false); + m_breakAction->setEnabled(true); + m_sourceDisplay->setCurrentLine(-1); + enableOtherWindows(); + } + + tqApp->exit_loop(); +} + +void KJSDebugWin::updateContextList() +{ + disconnect(m_contextList,TQT_SIGNAL(highlighted(int)),this,TQT_SLOT(slotShowFrame(int))); + + m_contextList->clear(); + for (int i = 0; i < m_execsCount; i++) + m_contextList->insertItem(contextStr(m_execs[i]->context())); + + if (m_execsCount > 0) { + m_contextList->setSelected(m_execsCount-1, true); + Context ctx = m_execs[m_execsCount-1]->context(); + setSourceLine(ctx.sourceId(),ctx.curStmtFirstLine()); + } + + connect(m_contextList,TQT_SIGNAL(highlighted(int)),this,TQT_SLOT(slotShowFrame(int))); +} + +TQString KJSDebugWin::contextStr(const Context &ctx) +{ + TQString str = ""; + SourceFragment *sourceFragment = m_sourceFragments[ctx.sourceId()]; + TQString url = sourceFragment->sourceFile->url; + int fileLineno = sourceFragment->baseLine+ctx.curStmtFirstLine()-1; + + switch (ctx.codeType()) { + case GlobalCode: + str = TQString("Global code at %1:%2").arg(url).arg(fileLineno); + break; + case EvalCode: + str = TQString("Eval code at %1:%2").arg(url).arg(fileLineno); + break; + case FunctionCode: + if (!ctx.functionName().isNull()) + str = TQString("%1() at %2:%3").arg(ctx.functionName().qstring()).arg(url).arg(fileLineno); + else + str = TQString("Anonymous function at %1:%2").arg(url).arg(fileLineno); + break; + } + + return str; +} + +bool KJSDebugWin::setBreakpoint(int sourceId, int lineno) +{ + if (haveBreakpoint(sourceId,lineno,lineno)) + return false; + + m_breakpointCount++; + m_breakpoints = static_cast<Breakpoint*>(realloc(m_breakpoints, + m_breakpointCount*sizeof(Breakpoint))); + m_breakpoints[m_breakpointCount-1].sourceId = sourceId; + m_breakpoints[m_breakpointCount-1].lineno = lineno; + + return true; +} + +bool KJSDebugWin::deleteBreakpoint(int sourceId, int lineno) +{ + for (int i = 0; i < m_breakpointCount; i++) { + if (m_breakpoints[i].sourceId == sourceId && m_breakpoints[i].lineno == lineno) { + + memmove(m_breakpoints+i,m_breakpoints+i+1,(m_breakpointCount-i-1)*sizeof(Breakpoint)); + m_breakpointCount--; + m_breakpoints = static_cast<Breakpoint*>(realloc(m_breakpoints, + m_breakpointCount*sizeof(Breakpoint))); + return true; + } + } + + return false; +} + +bool KJSDebugWin::haveBreakpoint(SourceFile *sourceFile, int line0, int line1) +{ + for (int i = 0; i < m_breakpointCount; i++) { + int sourceId = m_breakpoints[i].sourceId; + int lineno = m_breakpoints[i].lineno; + if (m_sourceFragments.contains(sourceId) && + m_sourceFragments[sourceId]->sourceFile == sourceFile) { + int absLineno = m_sourceFragments[sourceId]->baseLine+lineno-1; + if (absLineno >= line0 && absLineno <= line1) + return true; + } + } + + return false; +} + +#include "kjs_debugwin.moc" + +#endif // KJS_DEBUGGER diff --git a/tdehtml/ecma/kjs_debugwin.h b/tdehtml/ecma/kjs_debugwin.h new file mode 100644 index 000000000..be6b31dda --- /dev/null +++ b/tdehtml/ecma/kjs_debugwin.h @@ -0,0 +1,285 @@ +/* + * This file is part of the KDE libraries + * Copyright (C) 2000-2001 Harri Porten (porten@kde.org) + * Copyright (C) 2001,2003 Peter Kelly (pmk@post.com) + * + * 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 + */ + +#ifndef _KJS_DEBUGGER_H_ +#define _KJS_DEBUGGER_H_ + +#include <tqglobal.h> + +#define KJS_DEBUGGER + +#ifdef KJS_DEBUGGER + +#include <tqwidget.h> +#include <tqmultilineedit.h> +#include <tqpixmap.h> +#include <tqptrlist.h> +#include <tqptrstack.h> +#include <tqcheckbox.h> +#include <kdialogbase.h> +#include <tdemainwindow.h> +#include <tqscrollview.h> + +#include <kjs/debugger.h> + +#include "dom/dom_misc.h" + +class TQListBox; +class TQComboBox; +class TDEActionCollection; +class TDEAction; + +namespace KJS { + class FunctionImp; + class List; + class Interpreter; + class KJSDebugWin; + + class SourceFile : public DOM::DomShared + { + public: + SourceFile(TQString u, TQString c, Interpreter *interp) + : url(u), code(c), interpreter(interp) {} + TQString getCode(); + TQString url; + TQString code; + Interpreter *interpreter; + }; + + /** + * @internal + * + * When kjs parses some code, it generates a source code fragment (or just "source"). + * This is referenced by its source id in future calls to functions such as atLine() + * and callEvent(). We keep a record of all source fragments parsed in order to display + * then to the user. + * + * For .js files, the source fragment will be the entire file. For js code included + * in html files, however, there may be multiple source fragments within the one file + * (e.g. multiple SCRIPT tags or onclick="..." attributes) + * + * In the case where a single file has multiple source fragments, the source objects + * for these fragments will all point to the same SourceFile for their code. + */ + class SourceFragment + { + public: + SourceFragment(int sid, int bl, int el, SourceFile *sf); + ~SourceFragment(); + + int sourceId; + int baseLine; + int errorLine; + SourceFile *sourceFile; + private: + SourceFragment(const SourceFragment& other); + SourceFragment& operator = (const SourceFragment& other); + }; + + class KJSErrorDialog : public KDialogBase { + Q_OBJECT + public: + KJSErrorDialog(TQWidget *parent, const TQString& errorMessage, bool showDebug); + virtual ~KJSErrorDialog(); + + bool debugSelected() const { return m_debugSelected; } + bool dontShowAgain() const { return m_dontShowAgainCb->isChecked(); } + + protected slots: + virtual void slotUser1(); + + private: + TQCheckBox *m_dontShowAgainCb; + bool m_debugSelected; + }; + + class EvalMultiLineEdit : public TQMultiLineEdit { + Q_OBJECT + public: + EvalMultiLineEdit(TQWidget *parent); + const TQString & code() const { return m_code; } + protected: + void keyPressEvent(TQKeyEvent * e); + private: + TQString m_code; + }; + + class SourceDisplay : public TQScrollView { + Q_OBJECT + public: + SourceDisplay(KJSDebugWin *debugWin, TQWidget *parent, const char *name = 0); + ~SourceDisplay(); + + void setSource(SourceFile *sourceFile); + void setCurrentLine(int lineno, bool doCenter = true); + + signals: + void lineDoubleClicked(int lineno); + + protected: + virtual void contentsMousePressEvent(TQMouseEvent *e); + virtual void showEvent(TQShowEvent *); + virtual void drawContents(TQPainter *p, int clipx, int clipy, int clipw, int cliph); + + TQString m_source; + int m_currentLine; + SourceFile *m_sourceFile; + TQStringList m_lines; + + KJSDebugWin *m_debugWin; + TQFont m_font; + TQPixmap m_breakpointIcon; + }; + + /** + * @internal + * + * KJSDebugWin represents the debugger window that is visible to the user. It contains + * a stack frame list, a code viewer and a source fragment selector, plus buttons + * to control execution including next, step and continue. + * + * There is only one debug window per program. This can be obtained by calling #instance + */ + class KJSDebugWin : public TDEMainWindow, public Debugger, public TDEInstance + { + Q_OBJECT + friend class SourceDisplay; + public: + KJSDebugWin(TQWidget *parent=0, const char *name=0); + virtual ~KJSDebugWin(); + + static KJSDebugWin *createInstance(); + static void destroyInstance(); + static KJSDebugWin *debugWindow() { return kjs_html_debugger; } + + enum Mode { Disabled = 0, // No break on any statements + Next = 1, // Will break on next statement in current context + Step = 2, // Will break on next statement in current or deeper context + Continue = 3, // Will continue until next breakpoint + Stop = 4 // The script will stop execution completely, + // as soon as possible + }; + + void setSourceLine(int sourceId, int lineno); + void setNextSourceInfo(TQString url, int baseLine); + void sourceChanged(Interpreter *interpreter, TQString url); + bool inSession() const { return !m_execStates.isEmpty(); } + void setMode(Mode m) { m_mode = m; } + void clearInterpreter(Interpreter *interpreter); + ExecState *getExecState() const { return m_execStates.top(); } + + // functions overridden from KJS:Debugger + bool sourceParsed(ExecState *exec, int sourceId, + const UString &source, int errorLine); + bool sourceUnused(ExecState * exec, int sourceId); + bool exception(ExecState *exec, const Value &value, bool inTryCatch); + bool atStatement(ExecState *exec); + bool enterContext(ExecState *exec); + bool exitContext(ExecState *exec, const Completion &completion); + + public slots: + void slotNext(); + void slotStep(); + void slotContinue(); + void slotStop(); + void slotBreakNext(); + void slotToggleBreakpoint(int lineno); + void slotShowFrame(int frameno); + void slotSourceSelected(int sourceSelIndex); + void slotEval(); + + protected: + + void closeEvent(TQCloseEvent *e); + bool eventFilter(TQObject *obj, TQEvent *evt); + void disableOtherWindows(); + void enableOtherWindows(); + + private: + + SourceFile *getSourceFile(Interpreter *interpreter, TQString url); + void setSourceFile(Interpreter *interpreter, TQString url, SourceFile *sourceFile); + void removeSourceFile(Interpreter *interpreter, TQString url); + + void checkBreak(ExecState *exec); + void enterSession(ExecState *exec); + void leaveSession(); + void displaySourceFile(SourceFile *sourceFile, bool forceRefresh); + void updateContextList(); + + TQString contextStr(const Context &ctx); + + struct Breakpoint { + int sourceId; + int lineno; + }; + Breakpoint *m_breakpoints; + int m_breakpointCount; + bool setBreakpoint(int sourceId, int lineno); + bool deleteBreakpoint(int sourceId, int lineno); + bool haveBreakpoint(SourceFile *sourceFile, int line0, int line1); + bool haveBreakpoint(int sourceId, int line0, int line1) const { + for (int i = 0; i < m_breakpointCount; i++) { + if (m_breakpoints[i].sourceId == sourceId && + m_breakpoints[i].lineno >= line0 && + m_breakpoints[i].lineno <= line1) + return true; + } + return false; + } + + SourceFile *m_curSourceFile; + Mode m_mode; + TQString m_nextSourceUrl; + int m_nextSourceBaseLine; + TQPtrStack<ExecState> m_execStates; + ExecState **m_execs; + int m_execsCount; + int m_execsAlloc; + int m_steppingDepth; + + TQMap<TQString,SourceFile*> m_sourceFiles; /* maps url->SourceFile */ + TQMap<int,SourceFragment*> m_sourceFragments; /* maps SourceId->SourceFragment */ + TQPtrList<SourceFile> m_sourceSelFiles; /* maps combobox index->SourceFile */ + + TDEActionCollection *m_actionCollection; + TQPixmap m_stopIcon; + TQPixmap m_emptyIcon; + SourceDisplay *m_sourceDisplay; + TQListBox *m_contextList; + + TDEAction *m_stepAction; + TDEAction *m_nextAction; + TDEAction *m_continueAction; + TDEAction *m_stopAction; + TDEAction *m_breakAction; + + TQComboBox *m_sourceSel; + EvalMultiLineEdit *m_evalEdit; + int m_evalDepth; + + static KJSDebugWin *kjs_html_debugger; + }; + +} // namespace + +#endif // KJS_DEBUGGER + +#endif // _KJS_DEBUGGER_H_ diff --git a/tdehtml/ecma/kjs_dom.cpp b/tdehtml/ecma/kjs_dom.cpp new file mode 100644 index 000000000..77d4983da --- /dev/null +++ b/tdehtml/ecma/kjs_dom.cpp @@ -0,0 +1,1849 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2000 Harri Porten (porten@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 <tdehtmlview.h> +#include "xml/dom2_eventsimpl.h" +#include "rendering/render_canvas.h" +#include "rendering/render_layer.h" +#include "xml/dom_nodeimpl.h" +#include "xml/dom_docimpl.h" +#include "misc/htmltags.h" // ID_* +#include "misc/htmlattrs.h" // ATTR_* +#include "html/html_baseimpl.h" +#include <kdebug.h> +#include <tdehtml_part.h> + +#include "kjs_dom.h" +#include "kjs_html.h" +#include "kjs_css.h" +#include "kjs_range.h" +#include "kjs_traversal.h" +#include "kjs_events.h" +#include "kjs_views.h" +#include "kjs_window.h" +#include "dom/dom_exception.h" +#include "kjs_dom.lut.h" +#include "tdehtmlpart_p.h" + +namespace KJS { + +// ------------------------------------------------------------------------- +/* Source for DOMNodeConstantsTable. +@begin DOMNodeConstantsTable 11 + ELEMENT_NODE DOM::Node::ELEMENT_NODE DontDelete|ReadOnly + ATTRIBUTE_NODE DOM::Node::ATTRIBUTE_NODE DontDelete|ReadOnly + TEXT_NODE DOM::Node::TEXT_NODE DontDelete|ReadOnly + CDATA_SECTION_NODE DOM::Node::CDATA_SECTION_NODE DontDelete|ReadOnly + ENTITY_REFERENCE_NODE DOM::Node::ENTITY_REFERENCE_NODE DontDelete|ReadOnly + ENTITY_NODE DOM::Node::ENTITY_NODE DontDelete|ReadOnly + PROCESSING_INSTRUCTION_NODE DOM::Node::PROCESSING_INSTRUCTION_NODE DontDelete|ReadOnly + COMMENT_NODE DOM::Node::COMMENT_NODE DontDelete|ReadOnly + DOCUMENT_NODE DOM::Node::DOCUMENT_NODE DontDelete|ReadOnly + DOCUMENT_TYPE_NODE DOM::Node::DOCUMENT_TYPE_NODE DontDelete|ReadOnly + DOCUMENT_FRAGMENT_NODE DOM::Node::DOCUMENT_FRAGMENT_NODE DontDelete|ReadOnly + NOTATION_NODE DOM::Node::NOTATION_NODE DontDelete|ReadOnly +@end +*/ +IMPLEMENT_CONSTANT_TABLE(DOMNodeConstants,"DOMNodeConstants") +// ------------------------------------------------------------------------- +/* Source for DOMNodeProtoTable. +@begin DOMNodeProtoTable 13 + insertBefore DOMNode::InsertBefore DontDelete|Function 2 + replaceChild DOMNode::ReplaceChild DontDelete|Function 2 + removeChild DOMNode::RemoveChild DontDelete|Function 1 + appendChild DOMNode::AppendChild DontDelete|Function 1 + hasAttributes DOMNode::HasAttributes DontDelete|Function 0 + hasChildNodes DOMNode::HasChildNodes DontDelete|Function 0 + cloneNode DOMNode::CloneNode DontDelete|Function 1 +# DOM2 + normalize DOMNode::Normalize DontDelete|Function 0 + isSupported DOMNode::IsSupported DontDelete|Function 2 +# from the EventTarget interface + addEventListener DOMNode::AddEventListener DontDelete|Function 3 + removeEventListener DOMNode::RemoveEventListener DontDelete|Function 3 + dispatchEvent DOMNode::DispatchEvent DontDelete|Function 1 +# IE extensions + contains DOMNode::Contains DontDelete|Function 1 + insertAdjacentHTML DOMNode::InsertAdjacentHTML DontDelete|Function 2 +# "DOM level 0" (from Gecko DOM reference; also in WinIE) + item DOMNode::Item DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(DOMNodeProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMNode", DOMNodeProto, DOMNodeProtoFunc) + +const ClassInfo DOMNode::info = { "Node", 0, &DOMNodeTable, 0 }; + +DOMNode::DOMNode(ExecState *exec, const DOM::Node& n) + : DOMObject(DOMNodeProto::self(exec)), node(n) +{ +} + +DOMNode::DOMNode(const Object& proto, const DOM::Node& n) + : DOMObject(proto), node(n) +{ +} + +DOMNode::~DOMNode() +{ + ScriptInterpreter::forgetDOMObject(node.handle()); +} + +bool DOMNode::toBoolean(ExecState *) const +{ + return !node.isNull(); +} + +/* Source for DOMNodeTable. +@begin DOMNodeTable 53 + nodeName DOMNode::NodeName DontDelete|ReadOnly + nodeValue DOMNode::NodeValue DontDelete + nodeType DOMNode::NodeType DontDelete|ReadOnly + parentNode DOMNode::ParentNode DontDelete|ReadOnly + parentElement DOMNode::ParentElement DontDelete|ReadOnly + childNodes DOMNode::ChildNodes DontDelete|ReadOnly + firstChild DOMNode::FirstChild DontDelete|ReadOnly + lastChild DOMNode::LastChild DontDelete|ReadOnly + previousSibling DOMNode::PreviousSibling DontDelete|ReadOnly + nextSibling DOMNode::NextSibling DontDelete|ReadOnly + attributes DOMNode::Attributes DontDelete|ReadOnly + namespaceURI DOMNode::NamespaceURI DontDelete|ReadOnly +# DOM2 + prefix DOMNode::Prefix DontDelete + localName DOMNode::LocalName DontDelete|ReadOnly + ownerDocument DOMNode::OwnerDocument DontDelete|ReadOnly +# DOM3 + textContent DOMNode::TextContent DontDelete +# Event handlers +# IE also has: onactivate, onbefore*, oncontextmenu, oncontrolselect, oncut, +# ondeactivate, ondrag*, ondrop, onfocusin, onfocusout, onhelp, onmousewheel, +# onmove*, onpaste, onpropertychange, onreadystatechange, onresizeend/start, +# onselectionchange, onstop + onabort DOMNode::OnAbort DontDelete + onblur DOMNode::OnBlur DontDelete + onchange DOMNode::OnChange DontDelete + onclick DOMNode::OnClick DontDelete + ondblclick DOMNode::OnDblClick DontDelete + ondragdrop DOMNode::OnDragDrop DontDelete + onerror DOMNode::OnError DontDelete + onfocus DOMNode::OnFocus DontDelete + onkeydown DOMNode::OnKeyDown DontDelete + onkeypress DOMNode::OnKeyPress DontDelete + onkeyup DOMNode::OnKeyUp DontDelete + onload DOMNode::OnLoad DontDelete + onmousedown DOMNode::OnMouseDown DontDelete + onmousemove DOMNode::OnMouseMove DontDelete + onmouseout DOMNode::OnMouseOut DontDelete + onmouseover DOMNode::OnMouseOver DontDelete + onmouseup DOMNode::OnMouseUp DontDelete + onmove DOMNode::OnMove DontDelete + onreset DOMNode::OnReset DontDelete + onresize DOMNode::OnResize DontDelete + onselect DOMNode::OnSelect DontDelete + onsubmit DOMNode::OnSubmit DontDelete + onunload DOMNode::OnUnload DontDelete +# IE extensions + offsetLeft DOMNode::OffsetLeft DontDelete|ReadOnly + offsetTop DOMNode::OffsetTop DontDelete|ReadOnly + offsetWidth DOMNode::OffsetWidth DontDelete|ReadOnly + offsetHeight DOMNode::OffsetHeight DontDelete|ReadOnly + offsetParent DOMNode::OffsetParent DontDelete|ReadOnly + clientWidth DOMNode::ClientWidth DontDelete|ReadOnly + clientHeight DOMNode::ClientHeight DontDelete|ReadOnly + scrollLeft DOMNode::ScrollLeft DontDelete + scrollTop DOMNode::ScrollTop DontDelete + scrollWidth DOMNode::ScrollWidth DontDelete|ReadOnly + scrollHeight DOMNode::ScrollHeight DontDelete|ReadOnly + sourceIndex DOMNode::SourceIndex DontDelete|ReadOnly +@end +*/ +Value DOMNode::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMNode::tryGet " << propertyName.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMNode, DOMObject>(exec, propertyName, &DOMNodeTable, this); +} + +static tdehtml::RenderObject* handleBodyRootQuirk(const DOM::Node& node, tdehtml::RenderObject* rend, int token) +{ + //This emulates the quirks of various height/width properties on the viewport and root. Note that it + //is (mostly) IE-compatible in quirks, and mozilla-compatible in strict. + if (!rend) return 0; + + bool quirksMode = rend->style() && rend->style()->htmlHacks(); + + //There are a couple quirks here. One is that in quirks mode body is always forwarded to root... + //This is relevant for even the scrollTop/scrollLeft type properties. + if (quirksMode && node.handle()->id() == ID_BODY) { + while (rend->parent() && !rend->isRoot()) + rend = rend->parent(); + } + + //Also, some properties of the root are really done in terms of the viewport. + //These are {offset/client}{Height/Width}. The offset versions do it only in + //quirks mode, the client always. + if (!rend->isRoot()) return rend; //Don't care about non-root things here! + bool needViewport = false; + + switch (token) { + case DOMNode::OffsetHeight: + case DOMNode::OffsetWidth: + needViewport = quirksMode; + break; + case DOMNode::ClientHeight: + case DOMNode::ClientWidth: + needViewport = true; + break; + } + + if (needViewport) { + //Scan up to find the new target + while (rend->parent()) + rend = rend->parent(); + } + return rend; +} + +Value DOMNode::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case NodeName: + return String(node.nodeName()); + case NodeValue: + return getString(node.nodeValue()); // initially null, per domts/level1/core/hc_documentcreateelement.html + case NodeType: + return Number((unsigned int)node.nodeType()); + case ParentNode: + return getDOMNode(exec,node.parentNode()); + case ParentElement: // IE only apparently + return getDOMNode(exec,node.parentNode()); + case ChildNodes: + return getDOMNodeList(exec,node.childNodes()); + case FirstChild: + return getDOMNode(exec,node.firstChild()); + case LastChild: + return getDOMNode(exec,node.lastChild()); + case PreviousSibling: + return getDOMNode(exec,node.previousSibling()); + case NextSibling: + return getDOMNode(exec,node.nextSibling()); + case Attributes: + return getDOMNamedNodeMap(exec,node.attributes()); + case NamespaceURI: + return getString(node.namespaceURI()); // Moz returns null if not set (dom/namespaces.html) + case Prefix: + return getString(node.prefix()); // Moz returns null if not set (dom/namespaces.html) + case TextContent: + return getString(node.textContent()); //DOM3 says return null, but I really should test mozilla.. + case LocalName: + return getString(node.localName()); // Moz returns null if not set (dom/namespaces.html) + case OwnerDocument: + return getDOMNode(exec,node.ownerDocument()); + case OnAbort: + return getListener(DOM::EventImpl::ABORT_EVENT); + case OnBlur: + return getListener(DOM::EventImpl::BLUR_EVENT); + case OnChange: + return getListener(DOM::EventImpl::CHANGE_EVENT); + case OnClick: + return getListener(DOM::EventImpl::TDEHTML_ECMA_CLICK_EVENT); + case OnDblClick: + return getListener(DOM::EventImpl::TDEHTML_ECMA_DBLCLICK_EVENT); + case OnDragDrop: + return getListener(DOM::EventImpl::TDEHTML_DRAGDROP_EVENT); + case OnError: + return getListener(DOM::EventImpl::ERROR_EVENT); + case OnFocus: + return getListener(DOM::EventImpl::FOCUS_EVENT); + case OnKeyDown: + return getListener(DOM::EventImpl::KEYDOWN_EVENT); + case OnKeyPress: + return getListener(DOM::EventImpl::KEYPRESS_EVENT); + case OnKeyUp: + return getListener(DOM::EventImpl::KEYUP_EVENT); + case OnLoad: + return getListener(DOM::EventImpl::LOAD_EVENT); + case OnMouseDown: + return getListener(DOM::EventImpl::MOUSEDOWN_EVENT); + case OnMouseMove: + return getListener(DOM::EventImpl::MOUSEMOVE_EVENT); + case OnMouseOut: + return getListener(DOM::EventImpl::MOUSEOUT_EVENT); + case OnMouseOver: + return getListener(DOM::EventImpl::MOUSEOVER_EVENT); + case OnMouseUp: + return getListener(DOM::EventImpl::MOUSEUP_EVENT); + case OnMove: + return getListener(DOM::EventImpl::TDEHTML_MOVE_EVENT); + case OnReset: + return getListener(DOM::EventImpl::RESET_EVENT); + case OnResize: + return getListener(DOM::EventImpl::RESIZE_EVENT); + case OnSelect: + return getListener(DOM::EventImpl::SELECT_EVENT); + case OnSubmit: + return getListener(DOM::EventImpl::SUBMIT_EVENT); + case OnUnload: + return getListener(DOM::EventImpl::UNLOAD_EVENT); + case SourceIndex: { + // Retrieves the ordinal position of the object, in source order, as the object + // appears in the document's all collection + // i.e. document.all[n.sourceIndex] == n + DOM::Document doc = node.ownerDocument(); + if (doc.isHTMLDocument()) { + DOM::HTMLCollection all = static_cast<DOM::HTMLDocument>(doc).all(); + unsigned long i = 0; + DOM::Node n = all.firstItem(); + for ( ; !n.isNull() && n != node; n = all.nextItem() ) + ++i; + Q_ASSERT( !n.isNull() ); // node not in document.all !? + return Number(i); + } + } + default: + // no DOM standard, found in IE only + + // Make sure our layout is up to date before we allow a query on these attributes. + DOM::DocumentImpl* docimpl = node.handle()->getDocument(); + if (docimpl) { + docimpl->updateLayout(); + } + + tdehtml::RenderObject *rend = node.handle()->renderer(); + + //In quirks mode, may need to forward if to body. + rend = handleBodyRootQuirk(node, rend, token); + + switch (token) { + case OffsetLeft: + return rend ? static_cast<Value>( Number( rend->offsetLeft() ) ) : Number(0); + case OffsetTop: + return rend ? static_cast<Value>( Number( rend->offsetTop() ) ) : Number(0); + case OffsetWidth: + return rend ? static_cast<Value>( Number( rend->offsetWidth() ) ) : Number(0); + case OffsetHeight: + return rend ? static_cast<Value>( Number( rend->offsetHeight() ) ) : Number(0); + case OffsetParent: + { + tdehtml::RenderObject* par = rend ? rend->offsetParent() : 0; + return getDOMNode( exec, par ? par->element() : 0 ); + } + case ClientWidth: + return rend ? static_cast<Value>( Number( rend->clientWidth() ) ) : Number(0); + case ClientHeight: + return rend ? static_cast<Value>( Number( rend->clientHeight() ) ) : Number(0); + case ScrollWidth: + return rend ? static_cast<Value>( Number(rend->scrollWidth()) ) : Number(0); + case ScrollHeight: + return rend ? static_cast<Value>( Number(rend->scrollHeight()) ) : Number(0); + case ScrollLeft: + if (rend && rend->layer()) { + if (rend->isRoot() && !rend->style()->hidesOverflow()) + return Number( node.ownerDocument().view() ? node.ownerDocument().view()->contentsX() : 0); + return Number( rend->layer()->scrollXOffset() ); + } + return Number( 0 ); + case ScrollTop: + if (rend && rend->layer()) { + if (rend->isRoot() && !rend->style()->hidesOverflow()) + return Number( node.ownerDocument().view() ? node.ownerDocument().view()->contentsY() : 0); + return Number( rend->layer()->scrollYOffset() ); + } + return Number( 0 ); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMNode::getValueProperty : " << token << endl; + break; + } + } + return Undefined(); +} + + +void DOMNode::tryPut(ExecState *exec, const Identifier& propertyName, const Value& value, int attr) +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMNode::tryPut " << propertyName.qstring() << endl; +#endif + DOMObjectLookupPut<DOMNode,DOMObject>(exec, propertyName, value, attr, + &DOMNodeTable, this ); +} + +void DOMNode::putValueProperty(ExecState *exec, int token, const Value& value, int /*attr*/) +{ + switch (token) { + case NodeValue: + node.setNodeValue(value.toString(exec).string()); + break; + case Prefix: + node.setPrefix(value.toString(exec).string()); + break; + case TextContent: + node.setTextContent(value.toString(exec).string()); + break; + case OnAbort: + setListener(exec,DOM::EventImpl::ABORT_EVENT,value); + break; + case OnBlur: + setListener(exec,DOM::EventImpl::BLUR_EVENT,value); + break; + case OnChange: + setListener(exec,DOM::EventImpl::CHANGE_EVENT,value); + break; + case OnClick: + setListener(exec,DOM::EventImpl::TDEHTML_ECMA_CLICK_EVENT,value); + break; + case OnDblClick: + setListener(exec,DOM::EventImpl::TDEHTML_ECMA_DBLCLICK_EVENT,value); + break; + case OnDragDrop: + setListener(exec,DOM::EventImpl::TDEHTML_DRAGDROP_EVENT,value); + break; + case OnError: + setListener(exec,DOM::EventImpl::ERROR_EVENT,value); + break; + case OnFocus: + setListener(exec,DOM::EventImpl::FOCUS_EVENT,value); + break; + case OnKeyDown: + setListener(exec,DOM::EventImpl::KEYDOWN_EVENT,value); + break; + case OnKeyPress: + setListener(exec,DOM::EventImpl::KEYPRESS_EVENT,value); + break; + case OnKeyUp: + setListener(exec,DOM::EventImpl::KEYUP_EVENT,value); + break; + case OnLoad: + setListener(exec,DOM::EventImpl::LOAD_EVENT,value); + break; + case OnMouseDown: + setListener(exec,DOM::EventImpl::MOUSEDOWN_EVENT,value); + break; + case OnMouseMove: + setListener(exec,DOM::EventImpl::MOUSEMOVE_EVENT,value); + break; + case OnMouseOut: + setListener(exec,DOM::EventImpl::MOUSEOUT_EVENT,value); + break; + case OnMouseOver: + setListener(exec,DOM::EventImpl::MOUSEOVER_EVENT,value); + break; + case OnMouseUp: + setListener(exec,DOM::EventImpl::MOUSEUP_EVENT,value); + break; + case OnMove: + setListener(exec,DOM::EventImpl::TDEHTML_MOVE_EVENT,value); + break; + case OnReset: + setListener(exec,DOM::EventImpl::RESET_EVENT,value); + break; + case OnResize: + setListener(exec,DOM::EventImpl::RESIZE_EVENT,value); + break; + case OnSelect: + setListener(exec,DOM::EventImpl::SELECT_EVENT,value); + break; + case OnSubmit: + setListener(exec,DOM::EventImpl::SUBMIT_EVENT,value); + break; + case OnUnload: + setListener(exec,DOM::EventImpl::UNLOAD_EVENT,value); + break; + default: + // Make sure our layout is up to date + DOM::DocumentImpl* docimpl = node.handle()->getDocument(); + if (docimpl) + docimpl->updateLayout(); + + tdehtml::RenderObject *rend = node.handle() ? node.handle()->renderer() : 0L; + + //In quirks mode, may need to forward. + rend = handleBodyRootQuirk(node, rend, token); + + switch (token) { + case ScrollLeft: + if (rend && rend->layer()) { + if (rend->style()->hidesOverflow()) + rend->layer()->scrollToXOffset(value.toInt32(exec)); + else if (rend->isRoot()) { + TQScrollView* sview = node.ownerDocument().view(); + if (sview) + sview->setContentsPos(value.toInt32(exec), sview->contentsY()); + } + } + break; + case ScrollTop: + if (rend && rend->layer()) { + if (rend->style()->hidesOverflow()) + rend->layer()->scrollToYOffset(value.toInt32(exec)); + else if (rend->isRoot()) { + TQScrollView* sview = node.ownerDocument().view(); + if (sview) + sview->setContentsPos(sview->contentsX(), value.toInt32(exec)); + } + } + break; + default: + kdDebug(6070) << "WARNING: DOMNode::putValueProperty unhandled token " << token << endl; + } + } +} + +Value DOMNode::toPrimitive(ExecState *exec, Type /*preferred*/) const +{ + if (node.isNull()) + return Null(); + + return String(toString(exec)); +} + +UString DOMNode::toString(ExecState *) const +{ + if (node.isNull()) + return "null"; + UString s; + + DOM::Element e = node; + if ( !e.isNull() ) { + s = static_cast<UString>(e.nodeName().string()); + } else + s = className(); // fallback + + return "[object " + s + "]"; +} + +void DOMNode::setListener(ExecState *exec, int eventId, const Value& func) const +{ + node.handle()->setHTMLEventListener(eventId,Window::retrieveActive(exec)->getJSEventListener(func,true)); +} + +Value DOMNode::getListener(int eventId) const +{ + DOM::EventListener *listener = node.handle()->getHTMLEventListener(eventId); + JSEventListener *jsListener = static_cast<JSEventListener*>(listener); + if ( jsListener && jsListener->listenerObjImp() ) + return jsListener->listenerObj(); + else + return Null(); +} + +void DOMNode::pushEventHandlerScope(ExecState *, ScopeChain &) const +{ +} + +Value DOMNodeProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( DOMNode, thisObj ); + DOM::Node node = static_cast<DOMNode *>( thisObj.imp() )->toNode(); + switch (id) { + case DOMNode::HasAttributes: + return Boolean(node.hasAttributes()); + case DOMNode::HasChildNodes: + return Boolean(node.hasChildNodes()); + case DOMNode::CloneNode: + return getDOMNode(exec,node.cloneNode(args[0].toBoolean(exec))); + case DOMNode::Normalize: + node.normalize(); + return Undefined(); + case DOMNode::IsSupported: + return Boolean(node.isSupported(args[0].toString(exec).string(),args[1].toString(exec).string())); + case DOMNode::AddEventListener: { + JSEventListener *listener = Window::retrieveActive(exec)->getJSEventListener(args[1]); + node.addEventListener(args[0].toString(exec).string(),listener,args[2].toBoolean(exec)); + return Undefined(); + } + case DOMNode::RemoveEventListener: { + JSEventListener *listener = Window::retrieveActive(exec)->getJSEventListener(args[1]); + node.removeEventListener(args[0].toString(exec).string(),listener,args[2].toBoolean(exec)); + return Undefined(); + } + case DOMNode::DispatchEvent: + return Boolean(node.dispatchEvent(toEvent(args[0]))); + case DOMNode::AppendChild: + return getDOMNode(exec,node.appendChild(toNode(args[0]))); + case DOMNode::RemoveChild: + return getDOMNode(exec,node.removeChild(toNode(args[0]))); + case DOMNode::InsertBefore: + return getDOMNode(exec,node.insertBefore(toNode(args[0]), toNode(args[1]))); + case DOMNode::ReplaceChild: + return getDOMNode(exec,node.replaceChild(toNode(args[0]), toNode(args[1]))); + case DOMNode::Contains: + { + DOM::Node other = toNode(args[0]); + if (!other.isNull() && node.nodeType()==DOM::Node::ELEMENT_NODE) + { + DOM::NodeBaseImpl *impl = static_cast<DOM::NodeBaseImpl *>(node.handle()); + bool retval = other.handle()->isAncestor(impl); + return Boolean(retval); + } + return Undefined(); + } + case DOMNode::InsertAdjacentHTML: + { + // see http://www.faqts.com/knowledge_base/view.phtml/aid/5756 + // and http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/insertAdjacentHTML.asp + Range range = node.ownerDocument().createRange(); + + range.setStartBefore(node); + + DocumentFragment docFrag = range.createContextualFragment(args[1].toString(exec).string()); + + DOMString where = args[0].toString(exec).string(); + + if (where == "beforeBegin" || where == "BeforeBegin") + node.parentNode().insertBefore(docFrag, node); + else if (where == "afterBegin" || where == "AfterBegin") + node.insertBefore(docFrag, node.firstChild()); + else if (where == "beforeEnd" || where == "BeforeEnd") + return getDOMNode(exec, node.appendChild(docFrag)); + else if (where == "afterEnd" || where == "AfterEnd") + if (!node.nextSibling().isNull()) + node.parentNode().insertBefore(docFrag, node.nextSibling()); + else + node.parentNode().appendChild(docFrag); + + return Undefined(); + } + case DOMNode::Item: + return getDOMNode(exec, node.childNodes().item(static_cast<unsigned long>(args[0].toNumber(exec)))); + } + + return Undefined(); +} + +// ------------------------------------------------------------------------- + +/* +@begin DOMNodeListProtoTable 2 + item DOMNodeList::Item DontDelete|Function 1 +# IE extension (IE treats DOMNodeList like an HTMLCollection) + namedItem DOMNodeList::NamedItem DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMNodeListProto) +IMPLEMENT_PROTOFUNC_DOM(DOMNodeListProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMNodeList", DOMNodeListProto, DOMNodeListProtoFunc) + + +const ClassInfo DOMNodeList::info = { "NodeList", 0, 0, 0 }; + +DOMNodeList::DOMNodeList(ExecState *exec, const DOM::NodeList& l) + : DOMObject(DOMNodeListProto::self(exec)), list(l) { } + +DOMNodeList::~DOMNodeList() +{ + ScriptInterpreter::forgetDOMObject(list.handle()); +} + +// We have to implement hasProperty since we don't use a hashtable for 'length' +// ## this breaks "for (..in..)" though. +bool DOMNodeList::hasProperty(ExecState *exec, const Identifier &p) const +{ + if (p == lengthPropertyName) + return true; + + if (ObjectImp::hasProperty(exec, p)) + return true; + + bool ok; + unsigned long pos = p.toULong(&ok); + if (ok && pos < list.length()) + return true; + + // ## missing: accept p if item id... + return false; +} + +Value DOMNodeList::tryGet(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMNodeList::tryGet " << p.ascii() << endl; +#endif + if (p == lengthPropertyName) + return Number(list.length()); + + // Look in the prototype (for functions) before assuming it's an item's name + Object proto = Object::dynamicCast(prototype()); + if (proto.isValid() && proto.hasProperty(exec,p)) + return proto.get(exec,p); + + Value result; + + // array index ? + bool ok; + long unsigned int idx = p.toULong(&ok); + if (ok) + result = getDOMNode(exec,list.item(idx)); + else { + // Find by ID + DOM::HTMLElement e; + unsigned long l = list.length(); + bool found = false; + + for ( unsigned long i = 0; i < l; i++ ) + if ( ( e = list.item( i ) ).id() == p.string() ) { + result = getDOMNode(exec, list.item( i ) ); + found = true; + break; + } + + if ( !found ) + result = ObjectImp::get(exec, p); + } + + return result; +} + +ReferenceList DOMNodeList::propList(ExecState *exec, bool recursive) +{ + ReferenceList properties = ObjectImp::propList(exec,recursive); + + for (unsigned i = 0; i < list.length(); ++i) { + if (!ObjectImp::hasProperty(exec,Identifier::from(i))) { + properties.append(Reference(this, i)); + } + } + + if (!ObjectImp::hasProperty(exec, lengthPropertyName)) + properties.append(Reference(this, lengthPropertyName)); + + return properties; +} + +// Need to support both get and call, so that list[0] and list(0) work. +Value DOMNodeList::call(ExecState *exec, Object &thisObj, const List &args) +{ + // This code duplication is necessary, DOMNodeList isn't a DOMFunction + Value val; + try { + val = tryCall(exec, thisObj, args); + } + // pity there's no way to distinguish between these in JS code + catch (...) { + Object err = Error::create(exec, GeneralError, "Exception from DOMNodeList"); + exec->setException(err); + } + return val; +} + +Value DOMNodeList::tryCall(ExecState *exec, Object &, const List &args) +{ + // Do not use thisObj here. See HTMLCollection. + UString s = args[0].toString(exec); + + // index-based lookup? + bool ok; + unsigned int u = s.toULong(&ok); + if (ok) + return getDOMNode(exec,list.item(u)); + + // try lookup by name + // ### NodeList::namedItem() would be cool to have + // ### do we need to support the same two arg overload as in HTMLCollection? + Value result = tryGet(exec, Identifier(s)); + + if (result.isValid()) + return result; + + return Undefined(); +} + +// Not a prototype class currently, but should probably be converted to one +Value DOMNodeListProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMNodeList, thisObj ); + DOM::NodeList list = static_cast<DOMNodeList *>(thisObj.imp())->nodeList(); + switch (id) { + case KJS::DOMNodeList::Item: + return getDOMNode(exec, list.item(args[0].toInt32(exec))); + case KJS::DOMNodeList::NamedItem: + { + // Not a real namedItem implementation like the one HTMLCollection has. + // This is only an IE extension... + DOM::HTMLElement e; + unsigned long len = list.length(); + DOM::DOMString s = args[0].toString(exec).string(); + + for ( unsigned long i = 0; i < len; i++ ) + { + e = list.item( i ); + if ( !e.isNull() && ( + e.id() == s || static_cast<ElementImpl *>(e.handle())->getAttribute(ATTR_NAME) == s ) + ) + { + return getDOMNode(exec, e ); + } + } + return Null(); // see HTMLCollection::NamedItem implementation + } + default: + return Undefined(); + } +} + +// ------------------------------------------------------------------------- + +//### FIXME: link to the node prototype. +const ClassInfo DOMAttr::info = { "Attr", &DOMNode::info, &DOMAttrTable, 0 }; + +/* Source for DOMAttrTable. +@begin DOMAttrTable 5 + name DOMAttr::Name DontDelete|ReadOnly + specified DOMAttr::Specified DontDelete|ReadOnly + value DOMAttr::ValueProperty DontDelete + ownerElement DOMAttr::OwnerElement DontDelete|ReadOnly +@end +*/ +Value DOMAttr::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMAttr::tryGet " << propertyName.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMAttr,DOMNode>(exec, propertyName, + &DOMAttrTable, this ); +} + +Value DOMAttr::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case Name: + return String(static_cast<DOM::Attr>(node).name()); + case Specified: + return Boolean(static_cast<DOM::Attr>(node).specified()); + case ValueProperty: + return String(static_cast<DOM::Attr>(node).value()); + case OwnerElement: // DOM2 + return getDOMNode(exec,static_cast<DOM::Attr>(node).ownerElement()); + } + return Value(); // not reached +} + +void DOMAttr::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMAttr::tryPut " << propertyName.qstring() << endl; +#endif + DOMObjectLookupPut<DOMAttr,DOMNode>(exec, propertyName, value, attr, + &DOMAttrTable, this ); +} + +void DOMAttr::putValueProperty(ExecState *exec, int token, const Value& value, int /*attr*/) +{ + switch (token) { + case ValueProperty: + static_cast<DOM::Attr>(node).setValue(value.toString(exec).string()); + return; + default: + kdDebug(6070) << "WARNING: DOMAttr::putValueProperty unhandled token " << token << endl; + } +} + +// ------------------------------------------------------------------------- + +/* Source for DOMDocumentProtoTable. +@begin DOMDocumentProtoTable 23 + createElement DOMDocument::CreateElement DontDelete|Function 1 + createDocumentFragment DOMDocument::CreateDocumentFragment DontDelete|Function 1 + createTextNode DOMDocument::CreateTextNode DontDelete|Function 1 + createComment DOMDocument::CreateComment DontDelete|Function 1 + createCDATASection DOMDocument::CreateCDATASection DontDelete|Function 1 + createProcessingInstruction DOMDocument::CreateProcessingInstruction DontDelete|Function 1 + createAttribute DOMDocument::CreateAttribute DontDelete|Function 1 + createEntityReference DOMDocument::CreateEntityReference DontDelete|Function 1 + getElementsByTagName DOMDocument::GetElementsByTagName DontDelete|Function 1 + importNode DOMDocument::ImportNode DontDelete|Function 2 + createElementNS DOMDocument::CreateElementNS DontDelete|Function 2 + createAttributeNS DOMDocument::CreateAttributeNS DontDelete|Function 2 + getElementsByTagNameNS DOMDocument::GetElementsByTagNameNS DontDelete|Function 2 + getElementById DOMDocument::GetElementById DontDelete|Function 1 + createRange DOMDocument::CreateRange DontDelete|Function 0 + createNodeIterator DOMDocument::CreateNodeIterator DontDelete|Function 3 + createTreeWalker DOMDocument::CreateTreeWalker DontDelete|Function 4 + createEvent DOMDocument::CreateEvent DontDelete|Function 1 + getOverrideStyle DOMDocument::GetOverrideStyle DontDelete|Function 2 + abort DOMDocument::Abort DontDelete|Function 0 + load DOMDocument::Load DontDelete|Function 1 + loadXML DOMDocument::LoadXML DontDelete|Function 2 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(DOMDocumentProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMDocument", DOMDocumentProto, DOMDocumentProtoFunc) +IMPLEMENT_PSEUDO_CONSTRUCTOR(DocumentPseudoCtor, "Document", DOMDocumentProto) + +const ClassInfo DOMDocument::info = { "Document", &DOMNode::info, &DOMDocumentTable, 0 }; + +/* Source for DOMDocumentTable. +@begin DOMDocumentTable 4 + doctype DOMDocument::DocType DontDelete|ReadOnly + implementation DOMDocument::Implementation DontDelete|ReadOnly + characterSet DOMDocument::CharacterSet DontDelete|ReadOnly + documentElement DOMDocument::DocumentElement DontDelete|ReadOnly + styleSheets DOMDocument::StyleSheets DontDelete|ReadOnly + preferredStylesheetSet DOMDocument::PreferredStylesheetSet DontDelete|ReadOnly + selectedStylesheetSet DOMDocument::SelectedStylesheetSet DontDelete + readyState DOMDocument::ReadyState DontDelete|ReadOnly + defaultView DOMDocument::DefaultView DontDelete|ReadOnly + async DOMDocument::Async DontDelete +@end +*/ + +DOMDocument::DOMDocument(ExecState *exec, const DOM::Document& d) + : DOMNode(DOMDocumentProto::self(exec), d) { } + +DOMDocument::DOMDocument(const Object& proto, const DOM::Document& d) + : DOMNode(proto, d) { } + +DOMDocument::~DOMDocument() +{ + ScriptInterpreter::forgetDOMObject(node.handle()); +} + +Value DOMDocument::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMDocument::tryGet " << propertyName.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMDocument, DOMNode>( + exec, propertyName, &DOMDocumentTable, this); +} + +Value DOMDocument::getValueProperty(ExecState *exec, int token) const +{ + DOM::Document doc = static_cast<DOM::Document>(node); + + switch(token) { + case DocType: + return getDOMNode(exec,doc.doctype()); + case Implementation: + return getDOMDOMImplementation(exec,doc.implementation()); + case DocumentElement: + return getDOMNode(exec,doc.documentElement()); + case CharacterSet: { + DOM::DocumentImpl* docImpl = static_cast<DOM::DocumentImpl*>(doc.handle()); + if (docImpl->part()) + return String(docImpl->part()->encoding()); + else + return Undefined(); + } + case StyleSheets: + //kdDebug() << "DOMDocument::StyleSheets, returning " << doc.styleSheets().length() << " stylesheets" << endl; + return getDOMStyleSheetList(exec, doc.styleSheets(), doc); + case DOMDocument::DefaultView: // DOM2 + { + TDEHTMLView *view = node.handle()->getDocument()->view(); + if (view) + return Window::retrieve(view->part()); + return getDOMAbstractView(exec, doc.defaultView()); + } + case PreferredStylesheetSet: + return String(doc.preferredStylesheetSet()); + case SelectedStylesheetSet: + return String(doc.selectedStylesheetSet()); + case ReadyState: + { + DOM::DocumentImpl* docimpl = node.handle()->getDocument(); + if ( docimpl && docimpl->view() ) + { + TDEHTMLPart* part = docimpl->view()->part(); + if ( part ) { + if (part->d->m_bComplete) return String("complete"); + if (docimpl->parsing()) return String("loading"); + return String("loaded"); + // What does the interactive value mean ? + // Missing support for "uninitialized" + } + } + return Undefined(); + } + case Async: + return Boolean(doc.async()); + default: + kdDebug(6070) << "WARNING: DOMDocument::getValueProperty unhandled token " << token << endl; + return Value(); + } +} + +void DOMDocument::tryPut(ExecState *exec, const Identifier& propertyName, const Value& value, int attr) +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMDocument::tryPut " << propertyName.qstring() << endl; +#endif + DOMObjectLookupPut<DOMDocument,DOMNode>(exec, propertyName, value, attr, &DOMDocumentTable, this ); +} + +void DOMDocument::putValueProperty(ExecState *exec, int token, const Value& value, int /*attr*/) +{ + DOM::Document doc = static_cast<DOM::Document>(node); + switch (token) { + case SelectedStylesheetSet: { + doc.setSelectedStylesheetSet(value.toString(exec).string()); + break; + } + case Async: { + doc.setAsync(value.toBoolean(exec)); + break; + } + } +} + +Value DOMDocumentProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMDocument, thisObj ); + DOM::Node node = static_cast<DOMNode *>( thisObj.imp() )->toNode(); + DOM::Document doc = static_cast<DOM::Document>(node); + String str = args[0].toString(exec); + DOM::DOMString s = str.value().string(); + + switch(id) { + case DOMDocument::CreateElement: + return getDOMNode(exec,doc.createElement(s)); + case DOMDocument::CreateDocumentFragment: + return getDOMNode(exec,doc.createDocumentFragment()); + case DOMDocument::CreateTextNode: + return getDOMNode(exec,doc.createTextNode(s)); + case DOMDocument::CreateComment: + return getDOMNode(exec,doc.createComment(s)); + case DOMDocument::CreateCDATASection: + return getDOMNode(exec,doc.createCDATASection(s)); /* TODO: okay ? */ + case DOMDocument::CreateProcessingInstruction: + return getDOMNode(exec,doc.createProcessingInstruction(args[0].toString(exec).string(), + args[1].toString(exec).string())); + case DOMDocument::CreateAttribute: + return getDOMNode(exec,doc.createAttribute(s)); + case DOMDocument::CreateEntityReference: + return getDOMNode(exec,doc.createEntityReference(args[0].toString(exec).string())); + case DOMDocument::GetElementsByTagName: + return getDOMNodeList(exec,doc.getElementsByTagName(s)); + case DOMDocument::ImportNode: // DOM2 + return getDOMNode(exec,doc.importNode(toNode(args[0]), args[1].toBoolean(exec))); + case DOMDocument::CreateElementNS: // DOM2 + return getDOMNode(exec,doc.createElementNS(args[0].toString(exec).string(), args[1].toString(exec).string())); + case DOMDocument::CreateAttributeNS: // DOM2 + return getDOMNode(exec,doc.createAttributeNS(args[0].toString(exec).string(),args[1].toString(exec).string())); + case DOMDocument::GetElementsByTagNameNS: // DOM2 + return getDOMNodeList(exec,doc.getElementsByTagNameNS(args[0].toString(exec).string(), + args[1].toString(exec).string())); + case DOMDocument::GetElementById: +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMDocument::GetElementById looking for " << args[0].toString(exec).string() << endl; +#endif + return getDOMNode(exec,doc.getElementById(args[0].toString(exec).string())); + case DOMDocument::CreateRange: + return getDOMRange(exec,doc.createRange()); + case DOMDocument::CreateNodeIterator: + if (args[2].isA(NullType)) { + DOM::NodeFilter filter; + return getDOMNodeIterator(exec, + doc.createNodeIterator(toNode(args[0]), + (long unsigned int)(args[1].toNumber(exec)), + filter,args[3].toBoolean(exec))); + } + else { + Object obj = Object::dynamicCast(args[2]); + if (obj.isValid()) + { + DOM::CustomNodeFilter *customFilter = new JSNodeFilter(obj); + DOM::NodeFilter filter = DOM::NodeFilter::createCustom(customFilter); + return getDOMNodeIterator(exec, + doc.createNodeIterator( + toNode(args[0]),(long unsigned int)(args[1].toNumber(exec)), + filter,args[3].toBoolean(exec))); + }// else? + } + case DOMDocument::CreateTreeWalker: + return getDOMTreeWalker(exec,doc.createTreeWalker(toNode(args[0]),(long unsigned int)(args[1].toNumber(exec)), + toNodeFilter(args[2]),args[3].toBoolean(exec))); + case DOMDocument::CreateEvent: + return getDOMEvent(exec,doc.createEvent(s)); + case DOMDocument::GetOverrideStyle: { + DOM::Node arg0 = toNode(args[0]); + if (arg0.nodeType() != DOM::Node::ELEMENT_NODE) + return Undefined(); // throw exception? + else + return getDOMCSSStyleDeclaration(exec,doc.getOverrideStyle(static_cast<DOM::Element>(arg0),args[1].toString(exec).string())); + } + case DOMDocument::Abort: + doc.abort(); + break; + case DOMDocument::Load: { + Window* active = Window::retrieveActive(exec); + // Complete the URL using the "active part" (running interpreter). We do this for the security + // check and to make sure we load exactly the same url as we have verified to be safe + TDEHTMLPart *tdehtmlpart = ::tqqt_cast<TDEHTMLPart *>(active->part()); + if (tdehtmlpart) { + // Security: only allow documents to be loaded from the same host + TQString dstUrl = tdehtmlpart->htmlDocument().completeURL(s).string(); + KParts::ReadOnlyPart *part = static_cast<KJS::ScriptInterpreter*>(exec->interpreter())->part(); + if (part->url().host() == KURL(dstUrl).host()) { + kdDebug(6070) << "JavaScript: access granted for document.load() of " << dstUrl << endl; + doc.load(dstUrl); + } + else { + kdDebug(6070) << "JavaScript: access denied for document.load() of " << dstUrl << endl; + } + } + break; + } + case DOMDocument::LoadXML: + doc.loadXML(s); + break; + default: + break; + } + + return Undefined(); +} + +// ------------------------------------------------------------------------- + +/* Source for DOMElementProtoTable. +@begin DOMElementProtoTable 17 + getAttribute DOMElement::GetAttribute DontDelete|Function 1 + setAttribute DOMElement::SetAttribute DontDelete|Function 2 + removeAttribute DOMElement::RemoveAttribute DontDelete|Function 1 + getAttributeNode DOMElement::GetAttributeNode DontDelete|Function 1 + setAttributeNode DOMElement::SetAttributeNode DontDelete|Function 2 + removeAttributeNode DOMElement::RemoveAttributeNode DontDelete|Function 1 + getElementsByTagName DOMElement::GetElementsByTagName DontDelete|Function 1 + hasAttribute DOMElement::HasAttribute DontDelete|Function 1 + getAttributeNS DOMElement::GetAttributeNS DontDelete|Function 2 + setAttributeNS DOMElement::SetAttributeNS DontDelete|Function 3 + removeAttributeNS DOMElement::RemoveAttributeNS DontDelete|Function 2 + getAttributeNodeNS DOMElement::GetAttributeNodeNS DontDelete|Function 2 + setAttributeNodeNS DOMElement::SetAttributeNodeNS DontDelete|Function 1 + getElementsByTagNameNS DOMElement::GetElementsByTagNameNS DontDelete|Function 2 + hasAttributeNS DOMElement::HasAttributeNS DontDelete|Function 2 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(DOMElementProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMElement", DOMElementProto, DOMElementProtoFunc) + +IMPLEMENT_PSEUDO_CONSTRUCTOR(ElementPseudoCtor, "Element", DOMElementProto) + +const ClassInfo DOMElement::info = { "Element", &DOMNode::info, &DOMElementTable, 0 }; +/* Source for DOMElementTable. +@begin DOMElementTable 3 + tagName DOMElement::TagName DontDelete|ReadOnly + style DOMElement::Style DontDelete|ReadOnly +@end +*/ +DOMElement::DOMElement(ExecState *exec, const DOM::Element& e) + : DOMNode(DOMElementProto::self(exec), e) { } + +DOMElement::DOMElement(const Object& proto, const DOM::Element& e) + : DOMNode(proto, e) { } + +Value DOMElement::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMElement::tryGet " << propertyName.qstring() << endl; +#endif + DOM::Element element = static_cast<DOM::Element>(node); + + const HashEntry* entry = Lookup::findEntry(&DOMElementTable, propertyName); + if (entry) + { + switch( entry->value ) { + case TagName: + return String(element.tagName()); + case Style: + return getDOMCSSStyleDeclaration(exec,element.style()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMElement::tryGet : " << entry->value << endl; + break; + } + } + // We have to check in DOMNode before giving access to attributes, otherwise + // onload="..." would make onload return the string (attribute value) instead of + // the listener object (function). + if (DOMNode::hasProperty(exec, propertyName)) + return DOMNode::tryGet(exec, propertyName); + + DOM::DOMString attr = element.getAttribute( propertyName.string() ); + // Give access to attributes + if ( !attr.isNull() ) + return String( attr ); + + return Undefined(); +} + +Value DOMElementProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMNode, thisObj ); // node should be enough here, given the cast + DOM::Node node = static_cast<DOMNode *>( thisObj.imp() )->toNode(); + DOM::Element element = static_cast<DOM::Element>(node); + + switch(id) { + case DOMElement::GetAttribute: + /** In theory, we should not return null here, as per DOM. In practice, that + breaks websites + */ + return getString(element.getAttribute(args[0].toString(exec).string())); + case DOMElement::SetAttribute: + element.setAttribute(args[0].toString(exec).string(),args[1].toString(exec).string()); + return Undefined(); + case DOMElement::RemoveAttribute: + element.removeAttribute(args[0].toString(exec).string()); + return Undefined(); + case DOMElement::GetAttributeNode: + return getDOMNode(exec,element.getAttributeNode(args[0].toString(exec).string())); + case DOMElement::SetAttributeNode: + return getDOMNode(exec,element.setAttributeNode(KJS::toNode(args[0]))); + case DOMElement::RemoveAttributeNode: + return getDOMNode(exec,element.removeAttributeNode(KJS::toNode(args[0]))); + case DOMElement::GetElementsByTagName: + return getDOMNodeList(exec,element.getElementsByTagName(args[0].toString(exec).string())); + case DOMElement::HasAttribute: // DOM2 + return Boolean(element.hasAttribute(args[0].toString(exec).string())); + case DOMElement::GetAttributeNS: // DOM2 + return String(element.getAttributeNS(args[0].toString(exec).string(),args[1].toString(exec).string())); + case DOMElement::SetAttributeNS: // DOM2 + element.setAttributeNS(args[0].toString(exec).string(),args[1].toString(exec).string(),args[2].toString(exec).string()); + return Undefined(); + case DOMElement::RemoveAttributeNS: // DOM2 + element.removeAttributeNS(args[0].toString(exec).string(),args[1].toString(exec).string()); + return Undefined(); + case DOMElement::GetAttributeNodeNS: // DOM2 + return getDOMNode(exec,element.getAttributeNodeNS(args[0].toString(exec).string(),args[1].toString(exec).string())); + case DOMElement::SetAttributeNodeNS: // DOM2 + return getDOMNode(exec,element.setAttributeNodeNS(KJS::toNode(args[0]))); + case DOMElement::GetElementsByTagNameNS: // DOM2 + return getDOMNodeList(exec,element.getElementsByTagNameNS(args[0].toString(exec).string(),args[1].toString(exec).string())); + case DOMElement::HasAttributeNS: // DOM2 + return Boolean(element.hasAttributeNS(args[0].toString(exec).string(),args[1].toString(exec).string())); + default: + return Undefined(); + } +} + +// ------------------------------------------------------------------------- + +/* Source for DOMDOMImplementationProtoTable. +@begin DOMDOMImplementationProtoTable 5 + hasFeature DOMDOMImplementation::HasFeature DontDelete|Function 2 + createCSSStyleSheet DOMDOMImplementation::CreateCSSStyleSheet DontDelete|Function 2 +# DOM2 + createDocumentType DOMDOMImplementation::CreateDocumentType DontDelete|Function 3 + createDocument DOMDOMImplementation::CreateDocument DontDelete|Function 3 + createHTMLDocument DOMDOMImplementation::CreateHTMLDocument DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMDOMImplementationProto) +IMPLEMENT_PROTOFUNC_DOM(DOMDOMImplementationProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMImplementation", DOMDOMImplementationProto, DOMDOMImplementationProtoFunc) + +const ClassInfo DOMDOMImplementation::info = { "DOMImplementation", 0, 0, 0 }; + +DOMDOMImplementation::DOMDOMImplementation(ExecState *exec, const DOM::DOMImplementation& i) + : DOMObject(DOMDOMImplementationProto::self(exec)), implementation(i) { } + +DOMDOMImplementation::~DOMDOMImplementation() +{ + ScriptInterpreter::forgetDOMObject(implementation.handle()); +} + +Value DOMDOMImplementationProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMDOMImplementation, thisObj ); + DOM::DOMImplementation implementation = static_cast<DOMDOMImplementation *>( thisObj.imp() )->toImplementation(); + + switch(id) { + case DOMDOMImplementation::HasFeature: + return Boolean(implementation.hasFeature(args[0].toString(exec).string(),args[1].toString(exec).string())); + case DOMDOMImplementation::CreateDocumentType: // DOM2 + return getDOMNode(exec,implementation.createDocumentType(args[0].toString(exec).string(),args[1].toString(exec).string(),args[2].toString(exec).string())); + case DOMDOMImplementation::CreateDocument: { // DOM2 + // Initially set the URL to document of the creator... this is so that it resides in the same + // host/domain for security checks. The URL will be updated if Document.load() is called. + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart*>(static_cast<KJS::ScriptInterpreter*>(exec->interpreter())->part()); + if (part) { + Document doc = implementation.createDocument(args[0].toString(exec).string(),args[1].toString(exec).string(),toNode(args[2])); + KURL url = static_cast<DocumentImpl*>(part->document().handle())->URL(); + static_cast<DocumentImpl*>(doc.handle())->setURL(url.url()); + return getDOMNode(exec,doc); + } + break; + } + case DOMDOMImplementation::CreateCSSStyleSheet: // DOM2 + return getDOMStyleSheet(exec,implementation.createCSSStyleSheet(args[0].toString(exec).string(),args[1].toString(exec).string())); + case DOMDOMImplementation::CreateHTMLDocument: // DOM2-HTML + return getDOMNode(exec, implementation.createHTMLDocument(args[0].toString(exec).string())); + default: + break; + } + return Undefined(); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMDocumentType::info = { "DocumentType", &DOMNode::info, &DOMDocumentTypeTable, 0 }; + +/* Source for DOMDocumentTypeTable. +@begin DOMDocumentTypeTable 6 + name DOMDocumentType::Name DontDelete|ReadOnly + entities DOMDocumentType::Entities DontDelete|ReadOnly + notations DOMDocumentType::Notations DontDelete|ReadOnly +# DOM2 + publicId DOMDocumentType::PublicId DontDelete|ReadOnly + systemId DOMDocumentType::SystemId DontDelete|ReadOnly + internalSubset DOMDocumentType::InternalSubset DontDelete|ReadOnly +@end +*/ +DOMDocumentType::DOMDocumentType(ExecState *exec, const DOM::DocumentType& dt) + : DOMNode( /*### no proto yet*/exec, dt ) { } + +Value DOMDocumentType::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMDocumentType::tryGet " << propertyName.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMDocumentType, DOMNode>(exec, propertyName, &DOMDocumentTypeTable, this); +} + +Value DOMDocumentType::getValueProperty(ExecState *exec, int token) const +{ + DOM::DocumentType type = static_cast<DOM::DocumentType>(node); + switch (token) { + case Name: + return String(type.name()); + case Entities: + return getDOMNamedNodeMap(exec,type.entities()); + case Notations: + return getDOMNamedNodeMap(exec,type.notations()); + case PublicId: // DOM2 + return String(type.publicId()); + case SystemId: // DOM2 + return String(type.systemId()); + case InternalSubset: // DOM2 + return getString(type.internalSubset()); // can be null, see domts/level2/core/internalSubset01.html + default: + kdDebug(6070) << "WARNING: DOMDocumentType::getValueProperty unhandled token " << token << endl; + return Value(); + } +} + +// ------------------------------------------------------------------------- + +/* Source for DOMNamedNodeMapProtoTable. +@begin DOMNamedNodeMapProtoTable 7 + getNamedItem DOMNamedNodeMap::GetNamedItem DontDelete|Function 1 + setNamedItem DOMNamedNodeMap::SetNamedItem DontDelete|Function 1 + removeNamedItem DOMNamedNodeMap::RemoveNamedItem DontDelete|Function 1 + item DOMNamedNodeMap::Item DontDelete|Function 1 +# DOM2 + getNamedItemNS DOMNamedNodeMap::GetNamedItemNS DontDelete|Function 2 + setNamedItemNS DOMNamedNodeMap::SetNamedItemNS DontDelete|Function 1 + removeNamedItemNS DOMNamedNodeMap::RemoveNamedItemNS DontDelete|Function 2 +@end +@begin DOMNamedNodeMapTable 7 + length DOMNamedNodeMap::Length DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMNamedNodeMapProto) +IMPLEMENT_PROTOFUNC_DOM(DOMNamedNodeMapProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("NamedNodeMap", DOMNamedNodeMapProto, DOMNamedNodeMapProtoFunc) + +const ClassInfo DOMNamedNodeMap::info = { "NamedNodeMap", 0, &DOMNamedNodeMapTable, 0 }; + +DOMNamedNodeMap::DOMNamedNodeMap(ExecState *exec, const DOM::NamedNodeMap& m) + : DOMObject(DOMNamedNodeMapProto::self(exec)), map(m) { } + +DOMNamedNodeMap::~DOMNamedNodeMap() +{ + ScriptInterpreter::forgetDOMObject(map.handle()); +} + +bool DOMNamedNodeMap::hasProperty(ExecState *exec, const Identifier &p) const +{ + // ## missing? array index + return DOMObject::hasProperty(exec, p); +} + +Value DOMNamedNodeMap::tryGet(ExecState* exec, const Identifier &p) const +{ + if (p == lengthPropertyName) + return Number(map.length()); + + // array index ? + bool ok; + long unsigned int idx = p.toULong(&ok); + if (ok) + return getDOMNode(exec,map.item(idx)); + + // Anything else (including functions, defined in the prototype) + return DOMObject::tryGet(exec, p); +} + +Value DOMNamedNodeMapProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMNamedNodeMap, thisObj ); + DOM::NamedNodeMap map = static_cast<DOMNamedNodeMap *>(thisObj.imp())->toMap(); + + switch(id) { + case DOMNamedNodeMap::GetNamedItem: + return getDOMNode(exec, map.getNamedItem(args[0].toString(exec).string())); + case DOMNamedNodeMap::SetNamedItem: + return getDOMNode(exec, map.setNamedItem(KJS::toNode(args[0]))); + case DOMNamedNodeMap::RemoveNamedItem: + return getDOMNode(exec, map.removeNamedItem(args[0].toString(exec).string())); + case DOMNamedNodeMap::Item: + return getDOMNode(exec, map.item(args[0].toInt32(exec))); + case DOMNamedNodeMap::GetNamedItemNS: // DOM2 + return getDOMNode(exec, map.getNamedItemNS(args[0].toString(exec).string(),args[1].toString(exec).string())); + case DOMNamedNodeMap::SetNamedItemNS: // DOM2 + return getDOMNode(exec, map.setNamedItemNS(toNode(args[0]))); + case DOMNamedNodeMap::RemoveNamedItemNS: // DOM2 + return getDOMNode(exec, map.removeNamedItemNS(args[0].toString(exec).string(),args[1].toString(exec).string())); + default: + break; + } + + return Undefined(); +} + +// ------------------------------------------------------------------------- +//### FIXME: proto +const ClassInfo DOMProcessingInstruction::info = { "ProcessingInstruction", &DOMNode::info, &DOMProcessingInstructionTable, 0 }; + +/* Source for DOMProcessingInstructionTable. +@begin DOMProcessingInstructionTable 3 + target DOMProcessingInstruction::Target DontDelete|ReadOnly + data DOMProcessingInstruction::Data DontDelete + sheet DOMProcessingInstruction::Sheet DontDelete|ReadOnly +@end +*/ +Value DOMProcessingInstruction::tryGet(ExecState *exec, const Identifier &propertyName) const +{ + return DOMObjectLookupGetValue<DOMProcessingInstruction, DOMNode>(exec, propertyName, &DOMProcessingInstructionTable, this); +} + +Value DOMProcessingInstruction::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case Target: + return String(static_cast<DOM::ProcessingInstruction>(node).target()); + case Data: + return String(static_cast<DOM::ProcessingInstruction>(node).data()); + case Sheet: + return getDOMStyleSheet(exec,static_cast<DOM::ProcessingInstruction>(node).sheet()); + default: + kdDebug(6070) << "WARNING: DOMProcessingInstruction::getValueProperty unhandled token " << token << endl; + return Value(); + } +} + +void DOMProcessingInstruction::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ + // Not worth using the hashtable for this one ;) + if (propertyName == "data") + static_cast<DOM::ProcessingInstruction>(node).setData(value.toString(exec).string()); + else + DOMNode::tryPut(exec, propertyName,value,attr); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMNotation::info = { "Notation", &DOMNode::info, &DOMNotationTable, 0 }; + +/* Source for DOMNotationTable. +@begin DOMNotationTable 2 + publicId DOMNotation::PublicId DontDelete|ReadOnly + systemId DOMNotation::SystemId DontDelete|ReadOnly +@end +*/ +Value DOMNotation::tryGet(ExecState *exec, const Identifier &propertyName) const +{ + return DOMObjectLookupGetValue<DOMNotation, DOMNode>(exec, propertyName, &DOMNotationTable, this); +} + +Value DOMNotation::getValueProperty(ExecState *, int token) const +{ + switch (token) { + case PublicId: + return String(static_cast<DOM::Notation>(node).publicId()); + case SystemId: + return String(static_cast<DOM::Notation>(node).systemId()); + default: + kdDebug(6070) << "WARNING: DOMNotation::getValueProperty unhandled token " << token << endl; + return Value(); + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMEntity::info = { "Entity", &DOMNode::info, 0, 0 }; + +/* Source for DOMEntityTable. +@begin DOMEntityTable 2 + publicId DOMEntity::PublicId DontDelete|ReadOnly + systemId DOMEntity::SystemId DontDelete|ReadOnly + notationName DOMEntity::NotationName DontDelete|ReadOnly +@end +*/ +Value DOMEntity::tryGet(ExecState *exec, const Identifier &propertyName) const +{ + return DOMObjectLookupGetValue<DOMEntity, DOMNode>(exec, propertyName, &DOMEntityTable, this); +} + +Value DOMEntity::getValueProperty(ExecState *, int token) const +{ + switch (token) { + case PublicId: + return String(static_cast<DOM::Entity>(node).publicId()); + case SystemId: + return String(static_cast<DOM::Entity>(node).systemId()); + case NotationName: + return String(static_cast<DOM::Entity>(node).notationName()); + default: + kdDebug(6070) << "WARNING: DOMEntity::getValueProperty unhandled token " << token << endl; + return Value(); + } +} + +// ------------------------------------------------------------------------- + +bool checkNodeSecurity(ExecState *exec, const DOM::Node& n) +{ + // Check to see if the currently executing interpreter is allowed to access the specified node + if (n.isNull()) + return true; + TDEHTMLView *view = n.handle()->getDocument()->view(); + Window* win = view && view->part() ? Window::retrieveWindow(view->part()) : 0L; + if ( !win || !win->isSafeScript(exec) ) + return false; + return true; +} + +Value getDOMNode(ExecState *exec, const DOM::Node& n) +{ + DOMObject *ret = 0; + if (n.isNull()) + return Null(); + ScriptInterpreter* interp = static_cast<ScriptInterpreter *>(exec->interpreter()); + if ((ret = interp->getDOMObject(n.handle()))) + return Value(ret); + + switch (n.nodeType()) { + case DOM::Node::ELEMENT_NODE: + if (static_cast<DOM::Element>(n).isHTMLElement()) + ret = new HTMLElement(exec, static_cast<DOM::HTMLElement>(n)); + else + ret = new DOMElement(exec, static_cast<DOM::Element>(n)); + break; + case DOM::Node::ATTRIBUTE_NODE: + ret = new DOMAttr(exec, static_cast<DOM::Attr>(n)); + break; + case DOM::Node::TEXT_NODE: + case DOM::Node::CDATA_SECTION_NODE: + ret = new DOMText(exec, static_cast<DOM::Text>(n)); + break; + case DOM::Node::ENTITY_REFERENCE_NODE: + ret = new DOMNode(exec, n); + break; + case DOM::Node::ENTITY_NODE: + ret = new DOMEntity(exec, static_cast<DOM::Entity>(n)); + break; + case DOM::Node::PROCESSING_INSTRUCTION_NODE: + ret = new DOMProcessingInstruction(exec, static_cast<DOM::ProcessingInstruction>(n)); + break; + case DOM::Node::COMMENT_NODE: + ret = new DOMCharacterData(exec, static_cast<DOM::CharacterData>(n)); + break; + case DOM::Node::DOCUMENT_NODE: + if (static_cast<DOM::Document>(n).isHTMLDocument()) + ret = new HTMLDocument(exec, static_cast<DOM::HTMLDocument>(n)); + else + ret = new DOMDocument(exec, static_cast<DOM::Document>(n)); + break; + case DOM::Node::DOCUMENT_TYPE_NODE: + ret = new DOMDocumentType(exec, static_cast<DOM::DocumentType>(n)); + break; + case DOM::Node::DOCUMENT_FRAGMENT_NODE: + ret = new DOMNode(exec, n); + break; + case DOM::Node::NOTATION_NODE: + ret = new DOMNotation(exec, static_cast<DOM::Notation>(n)); + break; + default: + ret = new DOMNode(exec, n); + } + interp->putDOMObject(n.handle(),ret); + + return Value(ret); +} + +Value getDOMNamedNodeMap(ExecState *exec, const DOM::NamedNodeMap& m) +{ + return Value(cacheDOMObject<DOM::NamedNodeMap, KJS::DOMNamedNodeMap>(exec, m)); +} + +Value getDOMNodeList(ExecState *exec, const DOM::NodeList& l) +{ + return Value(cacheDOMObject<DOM::NodeList, KJS::DOMNodeList>(exec, l)); +} + +Value getDOMDOMImplementation(ExecState *exec, const DOM::DOMImplementation& i) +{ + return Value(cacheDOMObject<DOM::DOMImplementation, KJS::DOMDOMImplementation>(exec, i)); +} + +// ------------------------------------------------------------------------- +IMPLEMENT_PSEUDO_CONSTRUCTOR_WITH_PARENT(NodeConstructor, "NodeConstructor", DOMNodeProto, DOMNodeConstants) +// ------------------------------------------------------------------------- + +const ClassInfo DOMExceptionConstructor::info = { "DOMExceptionConstructor", 0, 0, 0 }; + +/* Source for DOMExceptionConstructorTable. +@begin DOMExceptionConstructorTable 15 + INDEX_SIZE_ERR DOM::DOMException::INDEX_SIZE_ERR DontDelete|ReadOnly + DOMSTRING_SIZE_ERR DOM::DOMException::DOMSTRING_SIZE_ERR DontDelete|ReadOnly + HIERARCHY_REQUEST_ERR DOM::DOMException::HIERARCHY_REQUEST_ERR DontDelete|ReadOnly + WRONG_DOCUMENT_ERR DOM::DOMException::WRONG_DOCUMENT_ERR DontDelete|ReadOnly + INVALID_CHARACTER_ERR DOM::DOMException::INVALID_CHARACTER_ERR DontDelete|ReadOnly + NO_DATA_ALLOWED_ERR DOM::DOMException::NO_DATA_ALLOWED_ERR DontDelete|ReadOnly + NO_MODIFICATION_ALLOWED_ERR DOM::DOMException::NO_MODIFICATION_ALLOWED_ERR DontDelete|ReadOnly + NOT_FOUND_ERR DOM::DOMException::NOT_FOUND_ERR DontDelete|ReadOnly + NOT_SUPPORTED_ERR DOM::DOMException::NOT_SUPPORTED_ERR DontDelete|ReadOnly + INUSE_ATTRIBUTE_ERR DOM::DOMException::INUSE_ATTRIBUTE_ERR DontDelete|ReadOnly + INVALID_STATE_ERR DOM::DOMException::INVALID_STATE_ERR DontDelete|ReadOnly + SYNTAX_ERR DOM::DOMException::SYNTAX_ERR DontDelete|ReadOnly + INVALID_MODIFICATION_ERR DOM::DOMException::INVALID_MODIFICATION_ERR DontDelete|ReadOnly + NAMESPACE_ERR DOM::DOMException::NAMESPACE_ERR DontDelete|ReadOnly + INVALID_ACCESS_ERR DOM::DOMException::INVALID_ACCESS_ERR DontDelete|ReadOnly +@end +*/ + +DOMExceptionConstructor::DOMExceptionConstructor(ExecState* exec) + : DOMObject(exec->interpreter()->builtinObjectPrototype()) +{ +} + +Value DOMExceptionConstructor::tryGet(ExecState *exec, const Identifier &propertyName) const +{ + return DOMObjectLookupGetValue<DOMExceptionConstructor, DOMObject>(exec, propertyName, &DOMExceptionConstructorTable, this); +} + +Value DOMExceptionConstructor::getValueProperty(ExecState *, int token) const +{ + // We use the token as the value to return directly + return Number((unsigned int)token); +#if 0 + switch (token) { + case INDEX_SIZE_ERR: + return Number((unsigned int)DOM::DOMException::INDEX_SIZE_ERR); + case DOMSTRING_SIZE_ERR: + return Number((unsigned int)DOM::DOMException::DOMSTRING_SIZE_ERR); + case HIERARCHY_REQUEST_ERR: + return Number((unsigned int)DOM::DOMException::HIERARCHY_REQUEST_ERR); + case WRONG_DOCUMENT_ERR: + return Number((unsigned int)DOM::DOMException::WRONG_DOCUMENT_ERR); + case INVALID_CHARACTER_ERR: + return Number((unsigned int)DOM::DOMException::INVALID_CHARACTER_ERR); + case NO_DATA_ALLOWED_ERR: + return Number((unsigned int)DOM::DOMException::NO_DATA_ALLOWED_ERR); + case NO_MODIFICATION_ALLOWED_ERR: + return Number((unsigned int)DOM::DOMException::NO_MODIFICATION_ALLOWED_ERR); + case NOT_FOUND_ERR: + return Number((unsigned int)DOM::DOMException::NOT_FOUND_ERR); + case NOT_SUPPORTED_ERR: + return Number((unsigned int)DOM::DOMException::NOT_SUPPORTED_ERR); + case INUSE_ATTRIBUTE_ERR: + return Number((unsigned int)DOM::DOMException::INUSE_ATTRIBUTE_ERR); + case INVALID_STATE_ERR: + return Number((unsigned int)DOM::DOMException::INVALID_STATE_ERR); + case SYNTAX_ERR: + return Number((unsigned int)DOM::DOMException::SYNTAX_ERR); + case INVALID_MODIFICATION_ERR: + return Number((unsigned int)DOM::DOMException::INVALID_MODIFICATION_ERR); + case NAMESPACE_ERR: + return Number((unsigned int)DOM::DOMException::NAMESPACE_ERR); + case INVALID_ACCESS_ERR: + return Number((unsigned int)DOM::DOMException::INVALID_ACCESS_ERR); + default: + kdDebug(6070) << "WARNING: DOMExceptionConstructor::getValueProperty unhandled token " << token << endl; + return Value(); + } +#endif +} + +Object getDOMExceptionConstructor(ExecState *exec) +{ + return cacheGlobalObject<DOMExceptionConstructor>(exec, "[[DOMException.constructor]]"); +} + +// ------------------------------------------------------------------------- + +/* Source for DOMNamedNodesCollection. +@begin DOMNamedNodesCollectionTable 1 + length KJS::DOMNamedNodesCollection::Length DontDelete|ReadOnly +@end +*/ +const ClassInfo KJS::DOMNamedNodesCollection::info = { "DOMNamedNodesCollection", 0, &DOMNamedNodesCollectionTable, 0 }; + +// Such a collection is usually very short-lived, it only exists +// for constructs like document.forms.<name>[1], +// so it shouldn't be a problem that it's storing all the nodes (with the same name). (David) +DOMNamedNodesCollection::DOMNamedNodesCollection(ExecState *exec, const TQValueList<DOM::Node>& nodes ) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), + m_nodes(nodes) +{ + // Maybe we should ref (and deref in the dtor) the nodes, though ? +} + +Value DOMNamedNodesCollection::tryGet(ExecState *exec, const Identifier &propertyName) const +{ + kdDebug(6070) << k_funcinfo << propertyName.ascii() << endl; + if (propertyName == lengthPropertyName) + return Number(m_nodes.count()); + // index? + bool ok; + unsigned int u = propertyName.toULong(&ok); + if (ok && u < m_nodes.count()) { + DOM::Node node = m_nodes[u]; + return getDOMNode(exec,node); + } + return DOMObject::tryGet(exec,propertyName); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMCharacterData::info = { "CharacterImp", + &DOMNode::info, &DOMCharacterDataTable, 0 }; +/* +@begin DOMCharacterDataTable 2 + data DOMCharacterData::Data DontDelete + length DOMCharacterData::Length DontDelete|ReadOnly +@end +@begin DOMCharacterDataProtoTable 7 + substringData DOMCharacterData::SubstringData DontDelete|Function 2 + appendData DOMCharacterData::AppendData DontDelete|Function 1 + insertData DOMCharacterData::InsertData DontDelete|Function 2 + deleteData DOMCharacterData::DeleteData DontDelete|Function 2 + replaceData DOMCharacterData::ReplaceData DontDelete|Function 2 +@end +*/ +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMCharacterDataProto, DOMNodeProto) +IMPLEMENT_PROTOFUNC_DOM(DOMCharacterDataProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMCharacterData", DOMCharacterDataProto, DOMCharacterDataProtoFunc) + +DOMCharacterData::DOMCharacterData(ExecState *exec, const DOM::CharacterData& d) + : DOMNode(DOMCharacterDataProto::self(exec), d) {} + +DOMCharacterData::DOMCharacterData(const Object& proto, const DOM::CharacterData& d) + : DOMNode(proto, d) {} + +Value DOMCharacterData::tryGet(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070)<<"DOMCharacterData::tryGet "<<p.string().string()<<endl; +#endif + return DOMObjectLookupGetValue<DOMCharacterData,DOMNode>(exec,p,&DOMCharacterDataTable,this); +} + +Value DOMCharacterData::getValueProperty(ExecState *, int token) const +{ + DOM::CharacterData data = static_cast<DOM::CharacterData>(node); + switch (token) { + case Data: + return String(data.data()); + case Length: + return Number(data.length()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMCharacterData::getValueProperty : " << token << endl; + return Value(); + } +} + +void DOMCharacterData::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ + if (propertyName == "data") + static_cast<DOM::CharacterData>(node).setData(value.toString(exec).string()); + else + DOMNode::tryPut(exec, propertyName,value,attr); +} + +Value DOMCharacterDataProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMCharacterData, thisObj ); + DOM::CharacterData data = static_cast<DOMCharacterData *>(thisObj.imp())->toData(); + switch(id) { + case DOMCharacterData::SubstringData: + return String(data.substringData(args[0].toInteger(exec),args[1].toInteger(exec))); + case DOMCharacterData::AppendData: + data.appendData(args[0].toString(exec).string()); + return Undefined(); + break; + case DOMCharacterData::InsertData: + data.insertData(args[0].toInteger(exec),args[1].toString(exec).string()); + return Undefined(); + break; + case DOMCharacterData::DeleteData: + data.deleteData(args[0].toInteger(exec),args[1].toInteger(exec)); + return Undefined(); + break; + case DOMCharacterData::ReplaceData: + data.replaceData(args[0].toInteger(exec),args[1].toInteger(exec),args[2].toString(exec).string()); + return Undefined(); + default: + break; + } + return Undefined(); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMText::info = { "Text", + &DOMCharacterData::info, 0, 0 }; +/* +@begin DOMTextProtoTable 1 + splitText DOMText::SplitText DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMTextProto, DOMCharacterDataProto) +IMPLEMENT_PROTOFUNC_DOM(DOMTextProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMText", DOMTextProto, DOMTextProtoFunc) + +DOMText::DOMText(ExecState *exec, const DOM::Text& t) + : DOMCharacterData(DOMTextProto::self(exec), t) { } + +Value DOMText::tryGet(ExecState *exec, const Identifier &p) const +{ + if (p.isEmpty()) + return Undefined(); // ### TODO + else + return DOMCharacterData::tryGet(exec, p); +} + +Value DOMTextProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMText, thisObj ); + DOM::Text text = static_cast<DOMText *>(thisObj.imp())->toText(); + switch(id) { + case DOMText::SplitText: + return getDOMNode(exec,text.splitText(args[0].toInteger(exec))); + default: + break; + } + return Undefined(); +} + +} diff --git a/tdehtml/ecma/kjs_dom.h b/tdehtml/ecma/kjs_dom.h new file mode 100644 index 000000000..b17488592 --- /dev/null +++ b/tdehtml/ecma/kjs_dom.h @@ -0,0 +1,299 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2000 Harri Porten (porten@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 + */ + +#ifndef _KJS_DOM_H_ +#define _KJS_DOM_H_ + +#include "dom/dom_node.h" +#include "dom/dom_doc.h" +#include "dom/dom_element.h" +#include "dom/dom_xml.h" + +#include "ecma/kjs_binding.h" + + +namespace KJS { + + class DOMNode : public DOMObject { + public: + // Build a DOMNode + DOMNode(ExecState *exec, const DOM::Node& n); + // Constructor for inherited classes + DOMNode(const Object& proto, const DOM::Node& n); + ~DOMNode(); + virtual bool toBoolean(ExecState *) const; + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + void putValueProperty(ExecState *exec, int token, const Value& value, int attr); + virtual DOM::Node toNode() const { return node; } + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + + virtual Value toPrimitive(ExecState *exec, Type preferred = UndefinedType) const; + virtual UString toString(ExecState *exec) const; + void setListener(ExecState *exec, int eventId, const Value& func) const; + Value getListener(int eventId) const; + virtual void pushEventHandlerScope(ExecState *exec, ScopeChain &scope) const; + + enum { NodeName, NodeValue, NodeType, ParentNode, ParentElement, + ChildNodes, FirstChild, LastChild, PreviousSibling, NextSibling, Item, + Attributes, NamespaceURI, Prefix, LocalName, OwnerDocument, InsertBefore, + ReplaceChild, RemoveChild, AppendChild, HasAttributes, HasChildNodes, + CloneNode, Normalize, IsSupported, AddEventListener, RemoveEventListener, + DispatchEvent, Contains, InsertAdjacentHTML, + OnAbort, OnBlur, OnChange, OnClick, OnDblClick, OnDragDrop, OnError, + OnFocus, OnKeyDown, OnKeyPress, OnKeyUp, OnLoad, OnMouseDown, + OnMouseMove, OnMouseOut, OnMouseOver, OnMouseUp, OnMove, OnReset, + OnResize, OnSelect, OnSubmit, OnUnload, + OffsetLeft, OffsetTop, OffsetWidth, OffsetHeight, OffsetParent, + ClientWidth, ClientHeight, ScrollLeft, ScrollTop, + ScrollWidth, ScrollHeight, SourceIndex, TextContent }; + + protected: + DOM::Node node; + }; + + DEFINE_CONSTANT_TABLE(DOMNodeConstants) + KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMNodeProto, DOMNodeConstants) + DEFINE_PSEUDO_CONSTRUCTOR(NodeConstructor) + + class DOMNodeList : public DOMObject { + public: + DOMNodeList(ExecState *, const DOM::NodeList& l); + ~DOMNodeList(); + virtual bool hasProperty(ExecState *exec, const Identifier &p) const; + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + virtual Value call(ExecState *exec, Object &thisObj, const List&args); + virtual Value tryCall(ExecState *exec, Object &thisObj, const List&args); + virtual bool implementsCall() const { return true; } + virtual ReferenceList propList(ExecState *exec, bool recursive); + + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + virtual bool toBoolean(ExecState *) const { return true; } + static const ClassInfo info; + DOM::NodeList nodeList() const { return list; } + enum { Item, NamedItem }; + private: + DOM::NodeList list; + }; + + class DOMDocument : public DOMNode { + public: + // Build a DOMDocument + DOMDocument(ExecState *exec, const DOM::Document& d); + // Constructor for inherited classes + DOMDocument(const Object& proto, const DOM::Document& d); + virtual ~DOMDocument(); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + void putValueProperty(ExecState *exec, int token, const Value& value, int attr); + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { DocType, Implementation, DocumentElement, CharacterSet, + // Functions + CreateElement, CreateDocumentFragment, CreateTextNode, CreateComment, + CreateCDATASection, CreateProcessingInstruction, CreateAttribute, + CreateEntityReference, GetElementsByTagName, ImportNode, CreateElementNS, + CreateAttributeNS, GetElementsByTagNameNS, GetElementById, + CreateRange, CreateNodeIterator, CreateTreeWalker, DefaultView, + CreateEvent, StyleSheets, GetOverrideStyle, Abort, Load, LoadXML, + PreferredStylesheetSet, SelectedStylesheetSet, ReadyState, Async }; + }; + + KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMDocumentProto, DOMNodeProto) + + DEFINE_PSEUDO_CONSTRUCTOR(DocumentPseudoCtor) + + class DOMAttr : public DOMNode { + public: + DOMAttr(ExecState *exec, const DOM::Attr& a) : DOMNode(exec, a) { } + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + Value getValueProperty(ExecState *exec, int token) const; + void putValueProperty(ExecState *exec, int token, const Value& value, int attr); + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Name, Specified, ValueProperty, OwnerElement }; + }; + + class DOMElement : public DOMNode { + public: + // Build a DOMElement + DOMElement(ExecState *exec, const DOM::Element& e); + // Constructor for inherited classes + DOMElement(const Object& proto, const DOM::Element& e); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { TagName, Style, + GetAttribute, SetAttribute, RemoveAttribute, GetAttributeNode, + SetAttributeNode, RemoveAttributeNode, GetElementsByTagName, + GetAttributeNS, SetAttributeNS, RemoveAttributeNS, GetAttributeNodeNS, + SetAttributeNodeNS, GetElementsByTagNameNS, HasAttribute, HasAttributeNS }; + }; + + KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMElementProto, DOMNodeProto) + DEFINE_PSEUDO_CONSTRUCTOR(ElementPseudoCtor) + + class DOMDOMImplementation : public DOMObject { + public: + // Build a DOMDOMImplementation + DOMDOMImplementation(ExecState *, const DOM::DOMImplementation& i); + ~DOMDOMImplementation(); + // no put - all functions + virtual const ClassInfo* classInfo() const { return &info; } + virtual bool toBoolean(ExecState *) const { return true; } + static const ClassInfo info; + enum { HasFeature, CreateDocumentType, CreateDocument, CreateCSSStyleSheet, CreateHTMLDocument }; + DOM::DOMImplementation toImplementation() const { return implementation; } + private: + DOM::DOMImplementation implementation; + }; + + class DOMDocumentType : public DOMNode { + public: + // Build a DOMDocumentType + DOMDocumentType(ExecState *exec, const DOM::DocumentType& dt); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Name, Entities, Notations, PublicId, SystemId, InternalSubset }; + }; + + class DOMNamedNodeMap : public DOMObject { + public: + DOMNamedNodeMap(ExecState *, const DOM::NamedNodeMap& m); + ~DOMNamedNodeMap(); + virtual bool hasProperty(ExecState *exec, const Identifier &p) const; + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + virtual bool toBoolean(ExecState *) const { return true; } + static const ClassInfo info; + enum { GetNamedItem, SetNamedItem, RemoveNamedItem, Item, Length, + GetNamedItemNS, SetNamedItemNS, RemoveNamedItemNS }; + DOM::NamedNodeMap toMap() const { return map; } + private: + DOM::NamedNodeMap map; + }; + + class DOMProcessingInstruction : public DOMNode { + public: + DOMProcessingInstruction(ExecState *exec, const DOM::ProcessingInstruction& pi) : DOMNode(exec, pi) { } + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Target, Data, Sheet }; + }; + + class DOMNotation : public DOMNode { + public: + DOMNotation(ExecState *exec, const DOM::Notation& n) : DOMNode(exec, n) { } + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { PublicId, SystemId }; + }; + + class DOMEntity : public DOMNode { + public: + DOMEntity(ExecState *exec, const DOM::Entity& e) : DOMNode(exec, e) { } + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { PublicId, SystemId, NotationName }; + }; + + // Constructor for DOMException - constructor stuff not implemented yet + class DOMExceptionConstructor : public DOMObject { + public: + DOMExceptionConstructor(ExecState *); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + }; + + bool checkNodeSecurity(ExecState *exec, const DOM::Node& n); + KDE_EXPORT Value getDOMNode(ExecState *exec, const DOM::Node& n); + Value getDOMNamedNodeMap(ExecState *exec, const DOM::NamedNodeMap& m); + Value getDOMNodeList(ExecState *exec, const DOM::NodeList& l); + Value getDOMDOMImplementation(ExecState *exec, const DOM::DOMImplementation& i); + Object getDOMExceptionConstructor(ExecState *exec); + + // Internal class, used for the collection return by e.g. document.forms.myinput + // when multiple nodes have the same name. + class DOMNamedNodesCollection : public DOMObject { + public: + DOMNamedNodesCollection(ExecState *exec, const TQValueList<DOM::Node>& nodes ); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + const TQValueList<DOM::Node>& nodes() const { return m_nodes; } + enum { Length }; + private: + TQValueList<DOM::Node> m_nodes; + }; + + class DOMCharacterData : public DOMNode { + public: + // Build a DOMCharacterData + DOMCharacterData(ExecState *exec, const DOM::CharacterData& d); + // Constructor for inherited classes + DOMCharacterData(const Object& proto, const DOM::CharacterData& d); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + DOM::CharacterData toData() const { return static_cast<DOM::CharacterData>(node); } + enum { Data, Length, + SubstringData, AppendData, InsertData, DeleteData, ReplaceData }; + }; + + class DOMText : public DOMCharacterData { + public: + DOMText(ExecState *exec, const DOM::Text& t); + virtual Value tryGet(ExecState *exec,const Identifier &propertyName) const; + Value getValueProperty(ExecState *, int token) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + DOM::Text toText() const { return static_cast<DOM::Text>(node); } + enum { SplitText }; + }; + +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_events.cpp b/tdehtml/ecma/kjs_events.cpp new file mode 100644 index 000000000..acf88f89a --- /dev/null +++ b/tdehtml/ecma/kjs_events.cpp @@ -0,0 +1,993 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * 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_window.h" +#include "kjs_events.h" +#include "kjs_events.lut.h" +#include "kjs_views.h" +#include "kjs_proxy.h" +#include "xml/dom_nodeimpl.h" +#include "xml/dom_docimpl.h" +#include "xml/dom2_eventsimpl.h" +#include "rendering/render_object.h" +#include "rendering/render_canvas.h" +#include "xml/dom2_eventsimpl.h" +#include "tdehtml_part.h" + +#include <kdebug.h> + +using namespace DOM; + +namespace KJS { + +// ------------------------------------------------------------------------- + +JSEventListener::JSEventListener(Object _listener, ObjectImp *_compareListenerImp, const Object &_win, bool _html) + : listener( _listener ), compareListenerImp( _compareListenerImp ), html( _html ), win( _win ) +{ + //fprintf(stderr,"JSEventListener::JSEventListener this=%p listener=%p\n",this,listener.imp()); + if (compareListenerImp) { + static_cast<Window*>(win.imp())->jsEventListeners.insert(compareListenerImp, this); + } +} + +JSEventListener::~JSEventListener() +{ + if (compareListenerImp) { + static_cast<Window*>(win.imp())->jsEventListeners.remove(compareListenerImp); + } + //fprintf(stderr,"JSEventListener::~JSEventListener this=%p listener=%p\n",this,listener.imp()); +} + +void JSEventListener::handleEvent(DOM::Event &evt) +{ +#ifdef KJS_DEBUGGER + if (KJSDebugWin::debugWindow() && KJSDebugWin::debugWindow()->inSession()) + return; +#endif + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(static_cast<Window*>(win.imp())->part()); + KJSProxy *proxy = 0L; + if (part) + proxy = part->jScript(); + + if (proxy && listener.isValid() && listener.implementsCall()) { + ref(); + + KJS::ScriptInterpreter *interpreter = static_cast<KJS::ScriptInterpreter *>(proxy->interpreter()); + ExecState *exec = interpreter->globalExec(); + + List args; + args.append(getDOMEvent(exec,evt)); + + // Set "this" to the event's current target + Object thisObj = Object::dynamicCast(getDOMNode(exec,evt.currentTarget())); + if ( !thisObj.isValid() ) { + // Window events (window.onload/window.onresize etc.) must have 'this' set to the window. + // DocumentImpl::defaultEventHandler sets currentTarget to 0 to mean 'window'. + thisObj = win; + } + + Window *window = static_cast<Window*>(win.imp()); + // Set the event we're handling in the Window object + window->setCurrentEvent( &evt ); + // ... and in the interpreter + interpreter->setCurrentEvent( &evt ); + + KJSCPUGuard guard; + guard.start(); + Value retval = listener.call(exec, thisObj, args); + guard.stop(); + + window->setCurrentEvent( 0 ); + interpreter->setCurrentEvent( 0 ); + if ( exec->hadException() ) + exec->clearException(); + else if (html) + { + TQVariant ret = ValueToVariant(exec, retval); + if (ret.type() == TQVariant::Bool && ret.toBool() == false) + evt.preventDefault(); + } + window->afterScriptExecution(); + deref(); + } +} + +DOM::DOMString JSEventListener::eventListenerType() +{ + if (html) + return "_tdehtml_HTMLEventListener"; + else + return "_tdehtml_JSEventListener"; +} + +Object JSEventListener::listenerObj() const +{ + return listener; +} + +JSLazyEventListener::JSLazyEventListener(const TQString &_code, const TQString &_name, const Object &_win, DOM::NodeImpl* _originalNode) + : JSEventListener(Object(), 0, _win, true), + code(_code), name(_name), + parsed(false) +{ + // We don't retain the original node, because we assume it + // will stay alive as long as this handler object is around + // and we need to avoid a reference cycle. If JS transfers + // this handler to another node, parseCode will be called and + // then originalNode is no longer needed. + + originalNode = _originalNode; +} + +JSLazyEventListener::~JSLazyEventListener() +{ + if (listener.isValid()) { + static_cast<Window*>(win.imp())->jsEventListeners.remove(listener.imp()); + } +} + +void JSLazyEventListener::handleEvent(DOM::Event &evt) +{ + parseCode(); + if (listener.isValid()) { + JSEventListener::handleEvent(evt); + } +} + + +Object JSLazyEventListener::listenerObj() const +{ + parseCode(); + return listener; +} + +void JSLazyEventListener::parseCode() const +{ + if (!parsed) { + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(static_cast<Window*>(win.imp())->part()); + KJSProxy *proxy = 0L; + if (part) + proxy = part->jScript(); + + if (proxy) { + KJS::ScriptInterpreter *interpreter = static_cast<KJS::ScriptInterpreter *>(proxy->interpreter()); + ExecState *exec = interpreter->globalExec(); + + //KJS::Constructor constr(KJS::Global::current().get("Function").imp()); + KJS::Object constr = interpreter->builtinFunction(); + KJS::List args; + + static KJS::String eventString("event"); + + args.append(eventString); + args.append(KJS::String(code)); + listener = constr.construct(exec, args); // ### is globalExec ok ? + + if (exec->hadException()) { + exec->clearException(); + + // failed to parse, so let's just make this listener a no-op + listener = Object(); + } else if (!listener.inherits(&DeclaredFunctionImp::info)) { + listener = Object();// Error creating function + } else { + DeclaredFunctionImp *declFunc = static_cast<DeclaredFunctionImp*>(listener.imp()); + declFunc->setName(Identifier(static_cast<UString>(name))); + + if (originalNode) + { + // Add the event's home element to the scope + // (and the document, and the form - see KJS::HTMLElement::eventHandlerScope) + ScopeChain scope = listener.scope(); + + Object thisObj = Object::dynamicCast(getDOMNode(exec, originalNode)); + + if (thisObj.isValid()) { + static_cast<DOMNode*>(thisObj.imp())->pushEventHandlerScope(exec, scope); + + listener.setScope(scope); + } + } + } + } + + // no more need to keep the unparsed code around + code = TQString(); + + if (listener.isValid()) { + static_cast<Window*>(win.imp())->jsEventListeners.insert(listener.imp(), + (KJS::JSEventListener *)(this)); + } + + parsed = true; + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMEvent::info = { "Event", 0, &DOMEventTable, 0 }; +/* +@begin DOMEventTable 7 + type DOMEvent::Type DontDelete|ReadOnly + target DOMEvent::Target DontDelete|ReadOnly + currentTarget DOMEvent::CurrentTarget DontDelete|ReadOnly + srcElement DOMEvent::SrcElement DontDelete|ReadOnly + eventPhase DOMEvent::EventPhase DontDelete|ReadOnly + bubbles DOMEvent::Bubbles DontDelete|ReadOnly + cancelable DOMEvent::Cancelable DontDelete|ReadOnly + timeStamp DOMEvent::TimeStamp DontDelete|ReadOnly + returnValue DOMEvent::ReturnValue DontDelete + cancelBubble DOMEvent::CancelBubble DontDelete +@end +@begin DOMEventProtoTable 3 + stopPropagation DOMEvent::StopPropagation DontDelete|Function 0 + preventDefault DOMEvent::PreventDefault DontDelete|Function 0 + initEvent DOMEvent::InitEvent DontDelete|Function 3 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMEventProto) +IMPLEMENT_PROTOFUNC_DOM(DOMEventProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMEvent", DOMEventProto, DOMEventProtoFunc) + +DOMEvent::DOMEvent(ExecState *exec, DOM::Event e) + : DOMObject(DOMEventProto::self(exec)), event(e) { } + +DOMEvent::DOMEvent(const Object &proto, DOM::Event e) + : DOMObject(proto), event(e) { } + +DOMEvent::~DOMEvent() +{ + ScriptInterpreter::forgetDOMObject(event.handle()); +} + +Value DOMEvent::tryGet(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug() << "KJS::DOMEvent::tryGet " << p.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMEvent,DOMObject>(exec, p, &DOMEventTable, this ); +} + +Value DOMEvent::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case Type: + return String(event.type()); + case Target: + case SrcElement: /*MSIE extension - "the object that fired the event"*/ + return getDOMNode(exec,event.target()); + case CurrentTarget: + return getDOMNode(exec,event.currentTarget()); + case EventPhase: + return Number((unsigned int)event.eventPhase()); + case Bubbles: + return Boolean(event.bubbles()); + case Cancelable: + return Boolean(event.cancelable()); + case TimeStamp: + return Number((long unsigned int)event.timeStamp()); // ### long long ? + case ReturnValue: // MSIE extension + // return false == cancel, so this returns the -opposite- of defaultPrevented + return Boolean(!event.handle()->defaultPrevented()); + case CancelBubble: // MSIE extension + return Boolean(event.handle()->propagationStopped()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMEvent::getValueProperty : " << token << endl; + return Value(); + } +} + +Value DOMEvent::defaultValue(ExecState *exec, KJS::Type hint) const +{ + if (event.handle()->id() == EventImpl::ERROR_EVENT && !event.handle()->message().isNull()) { + return String(event.handle()->message()); + } + else + return DOMObject::defaultValue(exec,hint); +} + +void DOMEvent::tryPut(ExecState *exec, const Identifier &propertyName, + const Value& value, int attr) +{ + DOMObjectLookupPut<DOMEvent, DOMObject>(exec, propertyName, value, attr, + &DOMEventTable, this); +} + +void DOMEvent::putValueProperty(ExecState *exec, int token, const Value& value, int) +{ + switch (token) { + case ReturnValue: // MSIE equivalent for "preventDefault" (but with a way to reset it) + // returnValue=false means "default action of the event on the source object is canceled", + // which means preventDefault(true). Hence the '!'. + event.handle()->preventDefault(!value.toBoolean(exec)); + break; + case CancelBubble: // MSIE equivalent for "stopPropagation" (but with a way to reset it) + event.handle()->stopPropagation(value.toBoolean(exec)); + break; + default: + break; + } +} + +Value DOMEventProtoFunc::tryCall(ExecState *exec, Object & thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMEvent, thisObj ); + DOM::Event event = static_cast<DOMEvent *>( thisObj.imp() )->toEvent(); + switch (id) { + case DOMEvent::StopPropagation: + event.stopPropagation(); + return Undefined(); + case DOMEvent::PreventDefault: + event.preventDefault(); + return Undefined(); + case DOMEvent::InitEvent: + event.initEvent(args[0].toString(exec).string(),args[1].toBoolean(exec),args[2].toBoolean(exec)); + return Undefined(); + }; + return Undefined(); +} + +Value getDOMEvent(ExecState *exec, DOM::Event e) +{ + DOM::EventImpl *ei = e.handle(); + if (!ei) + return Null(); + ScriptInterpreter* interp = static_cast<ScriptInterpreter *>(exec->interpreter()); + DOMObject *ret = interp->getDOMObject(ei); + if (!ret) { + if (ei->isTextInputEvent()) + ret = new DOMTextEvent(exec, e); + else if (ei->isKeyboardEvent()) + ret = new DOMKeyboardEvent(exec, e); + else if (ei->isMouseEvent()) + ret = new DOMMouseEvent(exec, e); + else if (ei->isUIEvent()) + ret = new DOMUIEvent(exec, e); + else if (ei->isMutationEvent()) + ret = new DOMMutationEvent(exec, e); + else + ret = new DOMEvent(exec, e); + + interp->putDOMObject(ei, ret); + } + + return Value(ret); +} + +DOM::Event toEvent(const Value& val) +{ + Object obj = Object::dynamicCast(val); + if (!obj.isValid() || !obj.inherits(&DOMEvent::info)) + return DOM::Event(); + + const DOMEvent *dobj = static_cast<const DOMEvent*>(obj.imp()); + return dobj->toEvent(); +} + +// ------------------------------------------------------------------------- +/* +@begin EventConstantsTable 23 + CAPTURING_PHASE DOM::Event::CAPTURING_PHASE DontDelete|ReadOnly + AT_TARGET DOM::Event::AT_TARGET DontDelete|ReadOnly + BUBBLING_PHASE DOM::Event::BUBBLING_PHASE DontDelete|ReadOnly +# Reverse-engineered from Netscape + MOUSEDOWN 1 DontDelete|ReadOnly + MOUSEUP 2 DontDelete|ReadOnly + MOUSEOVER 4 DontDelete|ReadOnly + MOUSEOUT 8 DontDelete|ReadOnly + MOUSEMOVE 16 DontDelete|ReadOnly + MOUSEDRAG 32 DontDelete|ReadOnly + CLICK 64 DontDelete|ReadOnly + DBLCLICK 128 DontDelete|ReadOnly + KEYDOWN 256 DontDelete|ReadOnly + KEYUP 512 DontDelete|ReadOnly + KEYPRESS 1024 DontDelete|ReadOnly + DRAGDROP 2048 DontDelete|ReadOnly + FOCUS 4096 DontDelete|ReadOnly + BLUR 8192 DontDelete|ReadOnly + SELECT 16384 DontDelete|ReadOnly + CHANGE 32768 DontDelete|ReadOnly +@end +*/ +DEFINE_CONSTANT_TABLE(EventConstants) +IMPLEMENT_CONSTANT_TABLE(EventConstants, "EventConstants") + +IMPLEMENT_PSEUDO_CONSTRUCTOR_WITH_PARENT(EventConstructor, "EventConstructor", DOMEventProto, EventConstants) +// ------------------------------------------------------------------------- + + +const ClassInfo EventExceptionConstructor::info = { "EventExceptionConstructor", 0, &EventExceptionConstructorTable, 0 }; +/* +@begin EventExceptionConstructorTable 1 + UNSPECIFIED_EVENT_TYPE_ERR DOM::EventException::UNSPECIFIED_EVENT_TYPE_ERR DontDelete|ReadOnly +@end +*/ +EventExceptionConstructor::EventExceptionConstructor(ExecState *exec) + : DOMObject(exec->interpreter()->builtinObjectPrototype()) +{ +} + +Value EventExceptionConstructor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<EventExceptionConstructor, DOMObject>(exec,p,&EventExceptionConstructorTable,this); +} + +Value EventExceptionConstructor::getValueProperty(ExecState *, int token) const +{ + // We use the token as the value to return directly + return Number(token); +} + +Value getEventExceptionConstructor(ExecState *exec) +{ + return cacheGlobalObject<EventExceptionConstructor>(exec, "[[eventException.constructor]]"); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMUIEvent::info = { "UIEvent", &DOMEvent::info, &DOMUIEventTable, 0 }; +/* +@begin DOMUIEventTable 7 + view DOMUIEvent::View DontDelete|ReadOnly + detail DOMUIEvent::Detail DontDelete|ReadOnly + keyCode DOMUIEvent::KeyCode DontDelete|ReadOnly + charCode DOMUIEvent::CharCode DontDelete|ReadOnly + layerX DOMUIEvent::LayerX DontDelete|ReadOnly + layerY DOMUIEvent::LayerY DontDelete|ReadOnly + pageX DOMUIEvent::PageX DontDelete|ReadOnly + pageY DOMUIEvent::PageY DontDelete|ReadOnly + which DOMUIEvent::Which DontDelete|ReadOnly +@end +@begin DOMUIEventProtoTable 1 + initUIEvent DOMUIEvent::InitUIEvent DontDelete|Function 5 +@end +*/ +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMUIEventProto, DOMEventProto) +IMPLEMENT_PROTOFUNC_DOM(DOMUIEventProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMUIEvent", DOMUIEventProto, DOMUIEventProtoFunc) + +DOMUIEvent::DOMUIEvent(ExecState *exec, DOM::UIEvent ue) : + DOMEvent(DOMUIEventProto::self(exec), ue) {} + +DOMUIEvent::DOMUIEvent(const Object &proto, DOM::UIEvent ue) : + DOMEvent(proto, ue) {} + +DOMUIEvent::~DOMUIEvent() +{ +} + +Value DOMUIEvent::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<DOMUIEvent,DOMEvent>(exec,p,&DOMUIEventTable,this); +} + +Value DOMUIEvent::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case View: + return getDOMAbstractView(exec,static_cast<DOM::UIEvent>(event).view()); + case Detail: + return Number(static_cast<DOM::UIEvent>(event).detail()); + case KeyCode: + // IE-compatibility + return Number(static_cast<DOM::UIEvent>(event).keyCode()); + case CharCode: + // IE-compatibility + return Number(static_cast<DOM::UIEvent>(event).charCode()); + case LayerX: + // NS-compatibility + return Number(static_cast<DOM::UIEvent>(event).layerX()); + case LayerY: + // NS-compatibility + return Number(static_cast<DOM::UIEvent>(event).layerY()); + case PageX: + // NS-compatibility + return Number(static_cast<DOM::UIEvent>(event).pageX()); + case PageY: + // NS-compatibility + return Number(static_cast<DOM::UIEvent>(event).pageY()); + case Which: + // NS-compatibility + return Number(static_cast<DOM::UIEvent>(event).which()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMUIEvent::getValueProperty : " << token << endl; + return Undefined(); + } +} + +Value DOMUIEventProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMUIEvent, thisObj ); + DOM::UIEvent uiEvent = static_cast<DOMUIEvent *>(thisObj.imp())->toUIEvent(); + switch (id) { + case DOMUIEvent::InitUIEvent: { + DOM::AbstractView v = toAbstractView(args[3]); + static_cast<DOM::UIEvent>(uiEvent).initUIEvent(args[0].toString(exec).string(), + args[1].toBoolean(exec), + args[2].toBoolean(exec), + v, + args[4].toInteger(exec)); + } + return Undefined(); + } + return Undefined(); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMMouseEvent::info = { "MouseEvent", &DOMUIEvent::info, &DOMMouseEventTable, 0 }; + +/* +@begin DOMMouseEventTable 2 + screenX DOMMouseEvent::ScreenX DontDelete|ReadOnly + screenY DOMMouseEvent::ScreenY DontDelete|ReadOnly + clientX DOMMouseEvent::ClientX DontDelete|ReadOnly + x DOMMouseEvent::X DontDelete|ReadOnly + clientY DOMMouseEvent::ClientY DontDelete|ReadOnly + y DOMMouseEvent::Y DontDelete|ReadOnly + offsetX DOMMouseEvent::OffsetX DontDelete|ReadOnly + offsetY DOMMouseEvent::OffsetY DontDelete|ReadOnly + ctrlKey DOMMouseEvent::CtrlKey DontDelete|ReadOnly + shiftKey DOMMouseEvent::ShiftKey DontDelete|ReadOnly + altKey DOMMouseEvent::AltKey DontDelete|ReadOnly + metaKey DOMMouseEvent::MetaKey DontDelete|ReadOnly + button DOMMouseEvent::Button DontDelete|ReadOnly + relatedTarget DOMMouseEvent::RelatedTarget DontDelete|ReadOnly + fromElement DOMMouseEvent::FromElement DontDelete|ReadOnly + toElement DOMMouseEvent::ToElement DontDelete|ReadOnly +@end +@begin DOMMouseEventProtoTable 1 + initMouseEvent DOMMouseEvent::InitMouseEvent DontDelete|Function 15 +@end +*/ +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMMouseEventProto, DOMUIEventProto) +IMPLEMENT_PROTOFUNC_DOM(DOMMouseEventProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMMouseEvent", DOMMouseEventProto, DOMMouseEventProtoFunc) + +DOMMouseEvent::DOMMouseEvent(ExecState *exec, DOM::MouseEvent me) : + DOMUIEvent(DOMMouseEventProto::self(exec), me) {} + +DOMMouseEvent::~DOMMouseEvent() +{ +} + +Value DOMMouseEvent::tryGet(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMMouseEvent::tryGet " << p.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMMouseEvent,DOMUIEvent>(exec,p,&DOMMouseEventTable,this); +} + +Value DOMMouseEvent::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case ScreenX: + return Number(static_cast<DOM::MouseEvent>(event).screenX()); + case ScreenY: + return Number(static_cast<DOM::MouseEvent>(event).screenY()); + case ClientX: + case X: + return Number(static_cast<DOM::MouseEvent>(event).clientX()); + case ClientY: + case Y: + return Number(static_cast<DOM::MouseEvent>(event).clientY()); + case OffsetX: + case OffsetY: // MSIE extension + { + DOM::Node node = event.target(); + tdehtml::RenderObject *rend = 0; + if (node.handle()) { + node.handle()->getDocument()->updateRendering(); + rend = node.handle()->renderer(); + } + int x = static_cast<DOM::MouseEvent>(event).clientX(); + int y = static_cast<DOM::MouseEvent>(event).clientY(); + if ( rend ) { + int xPos, yPos; + if ( rend->absolutePosition( xPos, yPos ) ) { + //kdDebug() << "DOMMouseEvent::getValueProperty rend=" << rend << " xPos=" << xPos << " yPos=" << yPos << endl; + x -= xPos; + y -= yPos; + } + if ( rend->canvas() ) { + int cYPos, cXPos; + rend->canvas()->absolutePosition( cXPos, cYPos, true ); + x += cXPos; + y += cYPos; + } + } + return Number( token == OffsetX ? x : y ); + } + case CtrlKey: + return Boolean(static_cast<DOM::MouseEvent>(event).ctrlKey()); + case ShiftKey: + return Boolean(static_cast<DOM::MouseEvent>(event).shiftKey()); + case AltKey: + return Boolean(static_cast<DOM::MouseEvent>(event).altKey()); + case MetaKey: + return Boolean(static_cast<DOM::MouseEvent>(event).metaKey()); + case Button: + { + if ( exec->interpreter()->compatMode() == Interpreter::NetscapeCompat ) { + return Number(static_cast<DOM::MouseEvent>(event).button()); + } + // Tricky. The DOM (and tdehtml) use 0 for LMB, 1 for MMB and 2 for RMB + // but MSIE uses 1=LMB, 2=RMB, 4=MMB, as a bitfield + int domButton = static_cast<DOM::MouseEvent>(event).button(); + int button = domButton==0 ? 1 : domButton==1 ? 4 : domButton==2 ? 2 : 0; + return Number( (unsigned int)button ); + } + case ToElement: + // MSIE extension - "the object toward which the user is moving the mouse pointer" + if (event.handle()->id() == DOM::EventImpl::MOUSEOUT_EVENT) + return getDOMNode(exec,static_cast<DOM::MouseEvent>(event).relatedTarget()); + return getDOMNode(exec,static_cast<DOM::MouseEvent>(event).target()); + case FromElement: + // MSIE extension - "object from which activation + // or the mouse pointer is exiting during the event" (huh?) + if (event.handle()->id() == DOM::EventImpl::MOUSEOUT_EVENT) + return getDOMNode(exec,static_cast<DOM::MouseEvent>(event).target()); + /* fall through */ + case RelatedTarget: + return getDOMNode(exec,static_cast<DOM::MouseEvent>(event).relatedTarget()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMMouseEvent::getValueProperty : " << token << endl; + return Value(); + } +} + +Value DOMMouseEventProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMMouseEvent, thisObj ); + DOM::MouseEvent mouseEvent = static_cast<DOMMouseEvent *>(thisObj.imp())->toMouseEvent(); + switch (id) { + case DOMMouseEvent::InitMouseEvent: + mouseEvent.initMouseEvent(args[0].toString(exec).string(), // typeArg + args[1].toBoolean(exec), // canBubbleArg + args[2].toBoolean(exec), // cancelableArg + toAbstractView(args[3]), // viewArg + args[4].toInteger(exec), // detailArg + args[5].toInteger(exec), // screenXArg + args[6].toInteger(exec), // screenYArg + args[7].toInteger(exec), // clientXArg + args[8].toInteger(exec), // clientYArg + args[9].toBoolean(exec), // ctrlKeyArg + args[10].toBoolean(exec), // altKeyArg + args[11].toBoolean(exec), // shiftKeyArg + args[12].toBoolean(exec), // metaKeyArg + args[13].toInteger(exec), // buttonArg + toNode(args[14])); // relatedTargetArg + return Undefined(); + } + return Undefined(); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMKeyEventBase::info = { "KeyEventBase", &DOMUIEvent::info, &DOMKeyEventBaseTable, 0 }; + +/* +@begin DOMKeyEventBaseTable 5 + keyVal DOMKeyEventBase::Key DontDelete|ReadOnly + virtKeyVal DOMKeyEventBase::VirtKey DontDelete|ReadOnly + ctrlKey DOMKeyEventBase::CtrlKey DontDelete|ReadOnly + altKey DOMKeyEventBase::AltKey DontDelete|ReadOnly + shiftKey DOMKeyEventBase::ShiftKey DontDelete|ReadOnly + altKey DOMKeyEventBase::AltKey DontDelete|ReadOnly +@end +*/ + +DOMKeyEventBase::DOMKeyEventBase(const Object &proto, DOM::TextEvent ke) : + DOMUIEvent(proto, ke) {} + +DOMKeyEventBase::~DOMKeyEventBase() +{} + +Value DOMKeyEventBase::tryGet(ExecState *exec,const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMKeyEventBase::tryGet " << p.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMKeyEventBase,DOMUIEvent>(exec,p,&DOMKeyEventBaseTable,this); +} + +Value DOMKeyEventBase::getValueProperty(ExecState *, int token) const +{ + DOM::KeyEventBaseImpl* tevent = impl(); + switch (token) { + case Key: + return Number(tevent->keyVal()); + case VirtKey: + return Number(tevent->virtKeyVal()); + // these modifier attributes actually belong into a KeyboardEvent interface, + // but we want them on "keypress" as well. + case CtrlKey: + return Boolean(tevent->ctrlKey()); + case ShiftKey: + return Boolean(tevent->shiftKey()); + case AltKey: + return Boolean(tevent->altKey()); + case MetaKey: + return Boolean(tevent->metaKey()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMTextEvent::getValueProperty : " << token << endl; + return KJS::Undefined(); + } +} + +// ------------------------------------------------------------------------- +const ClassInfo DOMTextEvent::info = { "TextEvent", &DOMKeyEventBase::info, &DOMTextEventTable, 0 }; + +/* +@begin DOMTextEventTable 1 + data DOMTextEvent::Data DontDelete|ReadOnly +@end +@begin DOMTextEventProtoTable 1 + initTextEvent DOMTextEvent::InitTextEvent DontDelete|Function 5 + # Missing: initTextEventNS +@end +*/ +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMTextEventProto, DOMUIEventProto) //Note: no proto in KeyBase +IMPLEMENT_PROTOFUNC_DOM(DOMTextEventProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMTextEvent", DOMTextEventProto, DOMTextEventProtoFunc) + +DOMTextEvent::DOMTextEvent(ExecState *exec, DOM::TextEvent ke) : + DOMKeyEventBase(DOMTextEventProto::self(exec), ke) {} + +DOMTextEvent::~DOMTextEvent() +{ +} + +Value DOMTextEvent::tryGet(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMTextEvent::tryGet " << p.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMTextEvent,DOMKeyEventBase>(exec,p,&DOMTextEventTable,this); +} + +Value DOMTextEvent::getValueProperty(ExecState *, int token) const +{ + DOM::TextEventImpl* tevent = impl(); + switch (token) { + case Data: + return String(tevent->data()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMTextEvent::getValueProperty : " << token << endl; + return KJS::Undefined(); + } +} + +Value DOMTextEventProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMTextEvent, thisObj ); + DOM::TextEventImpl* keyEvent = static_cast<DOMTextEvent *>(thisObj.imp())->impl(); + switch (id) { + case DOMTextEvent::InitTextEvent: + keyEvent->initTextEvent(args[0].toString(exec).string(), // typeArg + args[1].toBoolean(exec), // canBubbleArg + args[2].toBoolean(exec), // cancelableArg + toAbstractView(args[3]), // viewArg + args[4].toString(exec).string()); // dataArg + + return Undefined(); + } + return Undefined(); +} +// ------------------------------------------------------------------------- +const ClassInfo DOMKeyboardEvent::info = { "KeyboardEvent", &DOMKeyEventBase::info, &DOMKeyboardEventTable, 0 }; + +/* +@begin DOMKeyboardEventTable 2 + keyIdentifier DOMKeyboardEvent::KeyIdentifier DontDelete|ReadOnly + keyLocation DOMKeyboardEvent::KeyLocation DontDelete|ReadOnly +@end +@begin DOMKeyboardEventProtoTable 2 + initKeyboardEvent DOMKeyboardEvent::InitKeyboardEvent DontDelete|Function 7 + getModifierState DOMKeyboardEvent::GetModifierState DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMKeyboardEventProto, DOMUIEventProto) //Note: no proto in KeyBase +IMPLEMENT_PROTOFUNC_DOM(DOMKeyboardEventProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMKeyboardEvent", DOMKeyboardEventProto, DOMKeyboardEventProtoFunc) + +DOMKeyboardEvent::DOMKeyboardEvent(ExecState *exec, DOM::TextEvent ke) : + DOMKeyEventBase(DOMKeyboardEventProto::self(exec), ke) {} + +DOMKeyboardEvent::~DOMKeyboardEvent() +{ +} + +Value DOMKeyboardEvent::tryGet(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "DOMKeyboardEvent::tryGet " << p.qstring() << endl; +#endif + return DOMObjectLookupGetValue<DOMKeyboardEvent,DOMKeyEventBase>(exec,p,&DOMKeyboardEventTable,this); +} + +Value DOMKeyboardEvent::getValueProperty(ExecState *, int token) const +{ + DOM::KeyboardEventImpl* tevent = impl(); + switch (token) { + case KeyIdentifier: + return String(tevent->keyIdentifier()); + case KeyLocation: + return Number(tevent->keyLocation()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMKeyboardEvent::getValueProperty : " << token << endl; + return KJS::Undefined(); + } +} + +Value DOMKeyboardEventProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMKeyboardEvent, thisObj ); + DOM::KeyboardEventImpl* keyEvent = static_cast<DOMKeyboardEvent *>(thisObj.imp())->impl(); + switch (id) { + case DOMKeyboardEvent::InitKeyboardEvent: + keyEvent->initKeyboardEvent(args[0].toString(exec).string(), // typeArg + args[1].toBoolean(exec), // canBubbleArg + args[2].toBoolean(exec), // cancelableArg + toAbstractView(args[3]), // viewArg + args[4].toString(exec).string(), // keyIdentifierArg + args[5].toInteger(exec), // keyLocationArg + args[6].toString(exec).string()); //modifiersList + break; + case DOMKeyboardEvent::GetModifierState: + return Boolean(keyEvent->getModifierState(args[0].toString(exec).string())); + } + return Undefined(); +} + +// ------------------------------------------------------------------------- +const ClassInfo KeyboardEventConstructor::info = { "KeyboardEventConstructor", 0, &KeyboardEventConstructorTable, 0 }; +/* +@begin KeyboardEventConstructorTable 4 + DOM_KEY_LOCATION_STANDARD DOM::KeyboardEventImpl::DOM_KEY_LOCATION_STANDARD DontDelete|ReadOnly + DOM_KEY_LOCATION_LEFT DOM::KeyboardEventImpl::DOM_KEY_LOCATION_LEFT DontDelete|ReadOnly + DOM_KEY_LOCATION_RIGHT DOM::KeyboardEventImpl::DOM_KEY_LOCATION_RIGHT DontDelete|ReadOnly + DOM_KEY_LOCATION_NUMPAD DOM::KeyboardEventImpl::DOM_KEY_LOCATION_NUMPAD DontDelete|ReadOnly +@end +*/ +KeyboardEventConstructor::KeyboardEventConstructor(ExecState* exec) + : DOMObject(exec->interpreter()->builtinObjectPrototype()) +{} + +Value KeyboardEventConstructor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<KeyboardEventConstructor,DOMObject>(exec,p,&KeyboardEventConstructorTable,this); +} + +Value KeyboardEventConstructor::getValueProperty(ExecState *, int token) const +{ + // We use the token as the value to return directly + return Number(token); +} + +Value getKeyboardEventConstructor(ExecState *exec) +{ + return cacheGlobalObject<KeyboardEventConstructor>(exec, "[[keyboardEvent.constructor]]"); +} + + +// ------------------------------------------------------------------------- +const ClassInfo MutationEventConstructor::info = { "MutationEventConstructor", 0, &MutationEventConstructorTable, 0 }; +/* +@begin MutationEventConstructorTable 3 + MODIFICATION DOM::MutationEvent::MODIFICATION DontDelete|ReadOnly + ADDITION DOM::MutationEvent::ADDITION DontDelete|ReadOnly + REMOVAL DOM::MutationEvent::REMOVAL DontDelete|ReadOnly +@end +*/ +MutationEventConstructor::MutationEventConstructor(ExecState* exec) + : DOMObject(exec->interpreter()->builtinObjectPrototype()) +{ +} + +Value MutationEventConstructor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<MutationEventConstructor,DOMObject>(exec,p,&MutationEventConstructorTable,this); +} + +Value MutationEventConstructor::getValueProperty(ExecState *, int token) const +{ + // We use the token as the value to return directly + return Number(token); +} + +Value getMutationEventConstructor(ExecState *exec) +{ + return cacheGlobalObject<MutationEventConstructor>(exec, "[[mutationEvent.constructor]]"); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMMutationEvent::info = { "MutationEvent", &DOMEvent::info, &DOMMutationEventTable, 0 }; +/* +@begin DOMMutationEventTable 5 + relatedNode DOMMutationEvent::RelatedNode DontDelete|ReadOnly + prevValue DOMMutationEvent::PrevValue DontDelete|ReadOnly + newValue DOMMutationEvent::NewValue DontDelete|ReadOnly + attrName DOMMutationEvent::AttrName DontDelete|ReadOnly + attrChange DOMMutationEvent::AttrChange DontDelete|ReadOnly +@end +@begin DOMMutationEventProtoTable 1 + initMutationEvent DOMMutationEvent::InitMutationEvent DontDelete|Function 8 +@end +*/ +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(DOMMutationEventProto, DOMEventProto) +IMPLEMENT_PROTOFUNC_DOM(DOMMutationEventProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMMutationEvent", DOMMutationEventProto, DOMMutationEventProtoFunc) + +DOMMutationEvent::DOMMutationEvent(ExecState *exec, DOM::MutationEvent me) : + DOMEvent(DOMMutationEventProto::self(exec), me) {} + +DOMMutationEvent::~DOMMutationEvent() +{ +} + +Value DOMMutationEvent::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<DOMMutationEvent,DOMEvent>(exec,p,&DOMMutationEventTable,this); +} + +Value DOMMutationEvent::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case RelatedNode: + return getDOMNode(exec,static_cast<DOM::MutationEvent>(event).relatedNode()); + case PrevValue: + return String(static_cast<DOM::MutationEvent>(event).prevValue()); + case NewValue: + return String(static_cast<DOM::MutationEvent>(event).newValue()); + case AttrName: + return String(static_cast<DOM::MutationEvent>(event).attrName()); + case AttrChange: + return Number((unsigned int)static_cast<DOM::MutationEvent>(event).attrChange()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMMutationEvent::getValueProperty : " << token << endl; + return Value(); + } +} + +Value DOMMutationEventProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMMutationEvent, thisObj ); + DOM::MutationEvent mutationEvent = static_cast<DOMMutationEvent *>(thisObj.imp())->toMutationEvent(); + switch (id) { + case DOMMutationEvent::InitMutationEvent: + mutationEvent.initMutationEvent(args[0].toString(exec).string(), // typeArg, + args[1].toBoolean(exec), // canBubbleArg + args[2].toBoolean(exec), // cancelableArg + toNode(args[3]), // relatedNodeArg + args[4].toString(exec).string(), // prevValueArg + args[5].toString(exec).string(), // newValueArg + args[6].toString(exec).string(), // attrNameArg + args[7].toInteger(exec)); // attrChangeArg + return Undefined(); + } + return Undefined(); +} + +} //namespace KJS diff --git a/tdehtml/ecma/kjs_events.h b/tdehtml/ecma/kjs_events.h new file mode 100644 index 000000000..e48276031 --- /dev/null +++ b/tdehtml/ecma/kjs_events.h @@ -0,0 +1,250 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * 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 + */ + +#ifndef _KJS_EVENTS_H_ +#define _KJS_EVENTS_H_ + +#include "ecma/kjs_dom.h" +#include "dom/dom2_events.h" +#include "dom/dom_misc.h" +#include "xml/dom2_eventsimpl.h" + +namespace KJS { + + class Window; + + class JSEventListener : public DOM::EventListener { + public: + /** + * @param _listener the function object, that will be called when the event is emitted + * @param _compareListenerImp Compare Listener implementation. + * @param _win Window object, for memory management and caching. + * @param _html \c true if it is HTML. + * Never create a JSEventListener directly, use Window::getJSEventListener. + */ + JSEventListener(Object _listener, ObjectImp *_compareListenerImp, const Object &_win, bool _html = false); + virtual ~JSEventListener(); + virtual void handleEvent(DOM::Event &evt); + virtual DOM::DOMString eventListenerType(); + // Return the KJS function object executed when this event is emitted + virtual Object listenerObj() const; + ObjectImp *listenerObjImp() const { return listenerObj().imp(); } + // for Window::clear(). This is a bad hack though. The JSEventListener might not get deleted + // if it was added to a DOM node in another frame (#61467). But calling removeEventListener on + // all nodes we're listening to is quite difficult. + void clear() { listener = Object(); } + bool isHTMLEventListener() const { return html; } + + protected: + mutable Object listener; + // Storing a different ObjectImp ptr is needed to support addEventListener(.. [Object] ..) calls + // In the real-life case (where a 'function' is passed to addEventListener) we can directly call + // the 'listener' object and can cache the 'listener.imp()'. If the event listener should be removed + // the implementation will call removeEventListener(.. [Function] ..), and we can lookup the event + // listener by the passed function's imp() ptr. + // In the only dom-approved way (passing an Object to add/removeEventListener), the 'listener' + // variable stores the function object 'passedListener.handleEvent'. But we need to cache + // the imp() ptr of the 'passedListener' function _object_, as the implementation will + // call removeEventListener(.. [Object ..] on removal, and now we can successfully lookup + // the correct event listener, as well as the 'listener.handleEvent' function, we need to call. + mutable ObjectImp *compareListenerImp; + bool html; + Object win; + }; + + class JSLazyEventListener : public JSEventListener { + public: + JSLazyEventListener(const TQString &_code, const TQString &_name, const Object &_win, DOM::NodeImpl* node); + ~JSLazyEventListener(); + virtual void handleEvent(DOM::Event &evt); + Object listenerObj() const; + private: + void parseCode() const; + + mutable TQString code; + mutable TQString name; + mutable bool parsed; + DOM::NodeImpl *originalNode; + }; + + // Constructor for Event - currently only used for some global vars + DEFINE_PSEUDO_CONSTRUCTOR(EventConstructor) + + class DOMEvent : public DOMObject { + public: + // Build a DOMEvent + DOMEvent(ExecState *exec, DOM::Event e); + // Constructor for inherited classes + DOMEvent(const Object &proto, DOM::Event e); + ~DOMEvent(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, + const Value& value, int attr = None); + virtual Value defaultValue(ExecState *exec, KJS::Type hint) const; + void putValueProperty(ExecState *exec, int token, const Value& value, int); + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Type, Target, CurrentTarget, EventPhase, Bubbles, + Cancelable, TimeStamp, StopPropagation, PreventDefault, InitEvent, + // MS IE equivalents + SrcElement, ReturnValue, CancelBubble }; + DOM::Event toEvent() const { return event; } + protected: + DOM::Event event; + }; + + Value getDOMEvent(ExecState *exec, DOM::Event e); + + /** + * Convert an object to an Event. Returns a null Event if not possible. + */ + DOM::Event toEvent(const Value&); + + // Constructor object EventException + class EventExceptionConstructor : public DOMObject { + public: + EventExceptionConstructor(ExecState *); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + }; + + Value getEventExceptionConstructor(ExecState *exec); + + class DOMUIEvent : public DOMEvent { + public: + // Build a DOMUIEvent + DOMUIEvent(ExecState *exec, DOM::UIEvent ue); + // Constructor for inherited classes + DOMUIEvent(const Object &proto, DOM::UIEvent ue); + ~DOMUIEvent(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { View, Detail, KeyCode, CharCode, LayerX, LayerY, PageX, PageY, Which, InitUIEvent }; + DOM::UIEvent toUIEvent() const { return static_cast<DOM::UIEvent>(event); } + }; + + class DOMMouseEvent : public DOMUIEvent { + public: + DOMMouseEvent(ExecState *exec, DOM::MouseEvent me); + ~DOMMouseEvent(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { ScreenX, ScreenY, ClientX, X, ClientY, Y, OffsetX, OffsetY, + CtrlKey, ShiftKey, AltKey, + MetaKey, Button, RelatedTarget, FromElement, ToElement, + InitMouseEvent + }; + DOM::MouseEvent toMouseEvent() const { return static_cast<DOM::MouseEvent>(event); } + }; + + class DOMKeyEventBase : public DOMUIEvent { + public: + DOMKeyEventBase(const Object &proto, DOM::TextEvent ke); + ~DOMKeyEventBase(); + + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Key, VirtKey, CtrlKey, ShiftKey, AltKey, MetaKey }; + DOM::KeyEventBaseImpl* impl() const { return static_cast<DOM::KeyEventBaseImpl*>(event.handle()); } + }; + + class DOMTextEvent : public DOMKeyEventBase { + public: + DOMTextEvent(ExecState *exec, DOM::TextEvent ke); + ~DOMTextEvent(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum {Data, InitTextEvent}; + DOM::TextEventImpl* impl() const { return static_cast<DOM::TextEventImpl*>(event.handle()); } + }; + + class DOMKeyboardEvent : public DOMKeyEventBase { + public: + DOMKeyboardEvent(ExecState *exec, DOM::TextEvent ke); + ~DOMKeyboardEvent(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum {KeyIdentifier, KeyLocation, GetModifierState, InitKeyboardEvent}; + DOM::KeyboardEventImpl* impl() const { return static_cast<DOM::KeyboardEventImpl*>(event.handle()); } + }; + + // Constructor object KeyboardEvent + class KeyboardEventConstructor : public DOMObject { + public: + KeyboardEventConstructor(ExecState *); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + }; + + Value getKeyboardEventConstructor(ExecState *exec); + + // Constructor object MutationEvent + class MutationEventConstructor : public DOMObject { + public: + MutationEventConstructor(ExecState *); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + }; + + Value getMutationEventConstructor(ExecState *exec); + + class DOMMutationEvent : public DOMEvent { + public: + DOMMutationEvent(ExecState *exec, DOM::MutationEvent me); + ~DOMMutationEvent(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { AttrChange, RelatedNode, AttrName, PrevValue, NewValue, + InitMutationEvent }; + DOM::MutationEvent toMutationEvent() const { return static_cast<DOM::MutationEvent>(event); } + }; + +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_html.cpp b/tdehtml/ecma/kjs_html.cpp new file mode 100644 index 000000000..abd059e75 --- /dev/null +++ b/tdehtml/ecma/kjs_html.cpp @@ -0,0 +1,3946 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 1999-2002 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 "misc/loader.h" +#include "dom/html_block.h" +#include "dom/html_head.h" +#include "dom/html_image.h" +#include "dom/html_inline.h" +#include "dom/html_list.h" +#include "dom/html_table.h" +#include "dom/html_object.h" +#include "dom/dom_exception.h" + +// ### HACK +#include "html/html_baseimpl.h" +#include "html/html_documentimpl.h" +#include "html/html_formimpl.h" +#include "html/html_imageimpl.h" +#include "html/html_miscimpl.h" +#include "xml/dom2_eventsimpl.h" + +#include <tdeparts/browserextension.h> + +#include "tdehtml_part.h" +#include "tdehtmlview.h" + +#include "ecma/kjs_css.h" +#include "ecma/kjs_events.h" +#include "ecma/kjs_html.h" +#include "ecma/kjs_window.h" +#include "kjs_html.lut.h" + +#include "misc/htmltags.h" +#include "misc/htmlattrs.h" +#include "rendering/render_object.h" +#include "rendering/render_canvas.h" +#include "rendering/render_frames.h" +#include "rendering/render_layer.h" + +#include "tdemessagebox.h" +#include <kstringhandler.h> +#include <tdelocale.h> + +#include <kdebug.h> + +namespace KJS { + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLDocumentProto, DOMDocumentProto) +IMPLEMENT_PROTOFUNC_DOM(HTMLDocFunction) +KJS_IMPLEMENT_PROTOTYPE("HTMLDocument", HTMLDocumentProto, HTMLDocFunction) + +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLDocumentPseudoCtor, "HTMLDocument", HTMLDocumentProto) + +/* Source for HTMLDocumentProtoTable. +@begin HTMLDocumentProtoTable 11 + clear HTMLDocument::Clear DontDelete|Function 0 + open HTMLDocument::Open DontDelete|Function 0 + close HTMLDocument::Close DontDelete|Function 0 + write HTMLDocument::Write DontDelete|Function 1 + writeln HTMLDocument::WriteLn DontDelete|Function 1 + getElementsByName HTMLDocument::GetElementsByName DontDelete|Function 1 + getSelection HTMLDocument::GetSelection DontDelete|Function 1 + captureEvents HTMLDocument::CaptureEvents DontDelete|Function 0 + releaseEvents HTMLDocument::ReleaseEvents DontDelete|Function 0 +@end +*/ + + +Value KJS::HTMLDocFunction::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( HTMLDocument, thisObj ); + + DOM::HTMLDocument doc = static_cast<KJS::HTMLDocument *>(thisObj.imp())->toDocument(); + + switch (id) { + case HTMLDocument::Clear: // even IE doesn't support that one... + //doc.clear(); // TODO + return Undefined(); + case HTMLDocument::Open: + if (args.size() >= 3) // IE extension for document.open: it means window.open if it has 3 args or more + { + TDEHTMLView *view = static_cast<DOM::DocumentImpl*>(doc.handle())->view(); + if ( view && view->part() ) { + Window* win = Window::retrieveWindow(view->part()); + if( win ) { + win->openWindow(exec, args); + } + } + } + + doc.open(); + return Undefined(); + case HTMLDocument::Close: + // see tdehtmltests/ecma/tokenizer-script-recursion.html + doc.close(); + return Undefined(); + case HTMLDocument::Write: + case HTMLDocument::WriteLn: { + // DOM only specifies single string argument, but NS & IE allow multiple + // or no arguments + UString str = ""; + for (int i = 0; i < args.size(); i++) + str += args[i].toString(exec); + if (id == HTMLDocument::WriteLn) + str += "\n"; +#ifdef KJS_VERBOSE + kdDebug(6070) << "document.write: " << str.string().string() << endl; +#endif + doc.write(str.string()); + return Undefined(); + } + case HTMLDocument::GetElementsByName: + return getDOMNodeList(exec,doc.getElementsByName(args[0].toString(exec).string())); + case HTMLDocument::GetSelection: { + // NS4 and Mozilla specific. IE uses document.selection.createRange() + // http://docs.sun.com/source/816-6408-10/document.htm#1195981 + TDEHTMLView *view = static_cast<DOM::DocumentImpl*>(doc.handle())->view(); + if ( view && view->part() ) + return String(view->part()->selectedText()); + else + return Undefined(); + } + case HTMLDocument::CaptureEvents: + case HTMLDocument::ReleaseEvents: + // Do nothing for now. These are NS-specific legacy calls. + break; + } + + return Undefined(); +} + +const ClassInfo KJS::HTMLDocument::info = + { "HTMLDocument", &DOMDocument::info, &HTMLDocumentTable, 0 }; +/* Source for HTMLDocumentTable. +@begin HTMLDocumentTable 31 + title HTMLDocument::Title DontDelete + referrer HTMLDocument::Referrer DontDelete|ReadOnly + domain HTMLDocument::Domain DontDelete + URL HTMLDocument::URL DontDelete|ReadOnly + body HTMLDocument::Body DontDelete + location HTMLDocument::Location DontDelete + cookie HTMLDocument::Cookie DontDelete + images HTMLDocument::Images DontDelete|ReadOnly + applets HTMLDocument::Applets DontDelete|ReadOnly + links HTMLDocument::Links DontDelete|ReadOnly + forms HTMLDocument::Forms DontDelete|ReadOnly + anchors HTMLDocument::Anchors DontDelete|ReadOnly + scripts HTMLDocument::Scripts DontDelete|ReadOnly + all HTMLDocument::All DontDelete|ReadOnly + bgColor HTMLDocument::BgColor DontDelete + fgColor HTMLDocument::FgColor DontDelete + alinkColor HTMLDocument::AlinkColor DontDelete + linkColor HTMLDocument::LinkColor DontDelete + vlinkColor HTMLDocument::VlinkColor DontDelete + lastModified HTMLDocument::LastModified DontDelete|ReadOnly + height HTMLDocument::Height DontDelete|ReadOnly + width HTMLDocument::Width DontDelete|ReadOnly + dir HTMLDocument::Dir DontDelete + compatMode HTMLDocument::CompatMode DontDelete|ReadOnly +#IE extension + frames HTMLDocument::Frames DontDelete|ReadOnly +#NS4 extension + layers HTMLDocument::Layers DontDelete|ReadOnly +#potentially obsolete array properties +# plugins +# tags +#potentially obsolete properties +# embeds +# ids +@end +*/ + +KJS::HTMLDocument::HTMLDocument(ExecState *exec, const DOM::HTMLDocument& d) + : DOMDocument(HTMLDocumentProto::self(exec), d) { } + +bool KJS::HTMLDocument::hasProperty(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + //kdDebug(6070) << "KJS::HTMLDocument::hasProperty " << p.qstring() << endl; +#endif + DOM::HTMLDocument doc = static_cast<DOM::HTMLDocument>(node); + DOM::DocumentImpl* docImpl = static_cast<DOM::DocumentImpl*>(doc.handle()); + TDEHTMLView *view = docImpl->view(); + Window* win = view && view->part() ? Window::retrieveWindow(view->part()) : 0L; + if ( !win || !win->isSafeScript(exec) ) + return false; + + + if ( docImpl->underDocNamedCache().contains( p.qstring() ) ) + return true; + + if ( view && view->part() ) + { + TDEHTMLPart *kp = view->part()->findFrame( p.qstring() ); + if (kp) + return true; + } + + return DOMDocument::hasProperty(exec, p); +} + +Value KJS::HTMLDocument::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLDocument::tryGet " << propertyName.qstring() << endl; +#endif + + DOM::HTMLDocument doc = static_cast<DOM::HTMLDocument>(node); + DOM::DocumentImpl* docImpl = static_cast<DOM::DocumentImpl*>(doc.handle()); + TDEHTMLView *view = docImpl->view(); + + Window* win = view && view->part() ? Window::retrieveWindow(view->part()) : 0L; + if ( !win || !win->isSafeScript(exec) ) + return Undefined(); + + //Check for images, forms, objects, etc. + ElementMappingCache::ItemInfo* info = docImpl->underDocNamedCache().get(propertyName.qstring()); + if (info) { + //May be a false positive, but we can try to avoid doing it the hard way in + //simpler cases. The trickiness here is that the cache is kept under both + //name and id, but we sometimes ignore id for IE compat + DOM::DOMString propertyDOMString = propertyName.string(); + + if (info->nd && DOM::HTMLMappedNameCollectionImpl::matchesName(info->nd, + HTMLCollectionImpl::DOCUMENT_NAMED_ITEMS, propertyDOMString)) { + return getDOMNode(exec, info->nd); + } else { + //Can't tell it just like that, so better go through collection and count stuff. This is the slow path... + DOM::HTMLMappedNameCollection coll(docImpl, HTMLCollectionImpl::DOCUMENT_NAMED_ITEMS, propertyDOMString); + + if (coll.length() == 1) { + DOM::Node node = coll.firstItem(); + return getDOMNode(exec, node); + } else if (coll.length() > 1) { + return getHTMLCollection(exec, coll); + } + } + } + + // Check for frames/iframes with name==propertyName + if ( view && view->part() ) + { + // ###### TODO return a collection in case several frames have the same name + // (IE does that). Hard to do with findFrame :} + TDEHTMLPart *kp = view->part()->findFrame( propertyName.qstring() ); + if (kp) + return Window::retrieve(kp); + } + + const HashEntry* entry = Lookup::findEntry(&HTMLDocumentTable, propertyName); + if (entry) { + switch (entry->value) { + case Title: + return String(doc.title()); + case Referrer: + return String(doc.referrer()); + case Domain: + return String(doc.domain()); + case URL: + return String(doc.URL()); + case Body: + return getDOMNode(exec,doc.body()); + case Location: + if (win) + return Value(win->location()); + else + return Undefined(); + case Cookie: + return String(doc.cookie()); + case Images: + return getHTMLCollection(exec,doc.images()); + case Applets: + return getHTMLCollection(exec,doc.applets()); + case Links: + return getHTMLCollection(exec,doc.links()); + case Forms: + return getHTMLCollection(exec,doc.forms()); + case Layers: + // ### Should not be hidden when we emulate Netscape4 + return getHTMLCollection(exec,doc.layers(), true); + case Anchors: + return getHTMLCollection(exec,doc.anchors()); + case Scripts: + return getHTMLCollection(exec,doc.scripts()); + case All: + // Disable document.all when we try to be Netscape-compatible + if ( exec->interpreter()->compatMode() == Interpreter::NetscapeCompat ) + return Undefined(); + else + if ( exec->interpreter()->compatMode() == Interpreter::IECompat ) + return getHTMLCollection(exec,doc.all()); + else // enabled but hidden + return getHTMLCollection(exec,doc.all(), true); + case CompatMode: + return String(static_cast<HTMLDocumentImpl *>(doc.handle())->parseMode() + == DocumentImpl::Compat ? "BackCompat" : "CSS1Compat"); + } + } + // Look for overrides + ValueImp * val = ObjectImp::getDirect(propertyName); + if (val) + return Value(val); + + DOM::HTMLBodyElement body = doc.body(); + if (entry) { + switch (entry->value) { + case BgColor: + return String(body.bgColor()); + case FgColor: + return String(body.text()); + case AlinkColor: + return String(body.aLink()); + case LinkColor: + return String(body.link()); + case VlinkColor: + return String(body.vLink()); + case LastModified: + return String(doc.lastModified()); + case Height: // NS-only, not available in IE + return Number(view ? view->contentsHeight() : 0); + case Width: // NS-only, not available in IE + return Number(view ? view->contentsWidth() : 0); + case Dir: + return String(body.dir()); + case Frames: + if ( win ) + return Value(win->frames(exec)); + else + return Undefined(); + } + } + return DOMDocument::tryGet(exec, propertyName); +} + +void KJS::HTMLDocument::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLDocument::tryPut " << propertyName.qstring() << endl; +#endif + TDEHTMLView *view = static_cast<DOM::DocumentImpl*>(node.handle())->view(); + + Window* win = view && view->part() ? Window::retrieveWindow(view->part()) : 0L; + if ( !win || !win->isSafeScript(exec) ) + return; + + DOMObjectLookupPut<HTMLDocument, DOMDocument>( exec, propertyName, value, attr, &HTMLDocumentTable, this ); +} + +void KJS::HTMLDocument::putValueProperty(ExecState *exec, int token, const Value& value, int /*attr*/) +{ + DOM::HTMLDocument doc = static_cast<DOM::HTMLDocument>(node); + + DOM::HTMLBodyElement body = doc.body(); + DOM::DOMString val = value.toString(exec).string(); + + switch (token) { + case Title: + if (doc.title() != val) doc.setTitle(val); + break; + case Body: { + DOMNode *node = new DOMNode(exec, KJS::toNode(value)); + // This is required to avoid leaking the node. + Value nodeValue(node); + doc.setBody(node->toNode()); + break; + } + case Domain: { // not part of the DOM + DOM::HTMLDocumentImpl* docimpl = static_cast<DOM::HTMLDocumentImpl*>(doc.handle()); + if (docimpl) + docimpl->setDomain(val); + break; + } + case Cookie: + doc.setCookie(val); + break; + case Location: + { + TDEHTMLView *view = static_cast<DOM::DocumentImpl*>(doc.handle())->view(); + if ( view ) + Window::retrieveWindow(view->part())->goURL(exec, value.toString(exec).qstring(), false /*don't lock history*/); + break; + } + case BgColor: + if (body.bgColor() != val) body.setBgColor(val); + break; + case FgColor: + if (body.text() != val) body.setText(val); + break; + case AlinkColor: + if (body.aLink() != val) body.setALink(val); + break; + case LinkColor: + if (body.link() != val) body.setLink(val); + break; + case VlinkColor: + if (body.vLink() != val) body.setVLink(val); + break; + case Dir: + body.setDir(val); + break; + default: + kdDebug(6070) << "WARNING: HTMLDocument::putValueProperty unhandled token " << token << endl; + } +} + +// ------------------------------------------------------------------------- + +const ClassInfo KJS::HTMLElement::info = { "HTMLElement", &DOMElement::info, &HTMLElementTable, 0 }; +const ClassInfo KJS::HTMLElement::html_info = { "HTMLHtmlElement", &KJS::HTMLElement::info, &HTMLHtmlElementTable, 0 }; +const ClassInfo KJS::HTMLElement::head_info = { "HTMLHeadElement", &KJS::HTMLElement::info, &HTMLHeadElementTable, 0 }; +const ClassInfo KJS::HTMLElement::link_info = { "HTMLLinkElement", &KJS::HTMLElement::info, &HTMLLinkElementTable, 0 }; +const ClassInfo KJS::HTMLElement::title_info = { "HTMLTitleElement", &KJS::HTMLElement::info, &HTMLTitleElementTable, 0 }; +const ClassInfo KJS::HTMLElement::meta_info = { "HTMLMetaElement", &KJS::HTMLElement::info, &HTMLMetaElementTable, 0 }; +const ClassInfo KJS::HTMLElement::base_info = { "HTMLBaseElement", &KJS::HTMLElement::info, &HTMLBaseElementTable, 0 }; +const ClassInfo KJS::HTMLElement::isIndex_info = { "HTMLIsIndexElement", &KJS::HTMLElement::info, &HTMLIsIndexElementTable, 0 }; +const ClassInfo KJS::HTMLElement::style_info = { "HTMLStyleElement", &KJS::HTMLElement::info, &HTMLStyleElementTable, 0 }; +const ClassInfo KJS::HTMLElement::body_info = { "HTMLBodyElement", &KJS::HTMLElement::info, &HTMLBodyElementTable, 0 }; +const ClassInfo KJS::HTMLElement::form_info = { "HTMLFormElement", &KJS::HTMLElement::info, &HTMLFormElementTable, 0 }; +const ClassInfo KJS::HTMLElement::select_info = { "HTMLSelectElement", &KJS::HTMLElement::info, &HTMLSelectElementTable, 0 }; +const ClassInfo KJS::HTMLElement::optGroup_info = { "HTMLOptGroupElement", &KJS::HTMLElement::info, &HTMLOptGroupElementTable, 0 }; +const ClassInfo KJS::HTMLElement::option_info = { "HTMLOptionElement", &KJS::HTMLElement::info, &HTMLOptionElementTable, 0 }; +const ClassInfo KJS::HTMLElement::input_info = { "HTMLInputElement", &KJS::HTMLElement::info, &HTMLInputElementTable, 0 }; +const ClassInfo KJS::HTMLElement::textArea_info = { "HTMLTextAreaElement", &KJS::HTMLElement::info, &HTMLTextAreaElementTable, 0 }; +const ClassInfo KJS::HTMLElement::button_info = { "HTMLButtonElement", &KJS::HTMLElement::info, &HTMLButtonElementTable, 0 }; +const ClassInfo KJS::HTMLElement::label_info = { "HTMLLabelElement", &KJS::HTMLElement::info, &HTMLLabelElementTable, 0 }; +const ClassInfo KJS::HTMLElement::fieldSet_info = { "HTMLFieldSetElement", &KJS::HTMLElement::info, &HTMLFieldSetElementTable, 0 }; +const ClassInfo KJS::HTMLElement::legend_info = { "HTMLLegendElement", &KJS::HTMLElement::info, &HTMLLegendElementTable, 0 }; +const ClassInfo KJS::HTMLElement::ul_info = { "HTMLUListElement", &KJS::HTMLElement::info, &HTMLUListElementTable, 0 }; +const ClassInfo KJS::HTMLElement::ol_info = { "HTMLOListElement", &KJS::HTMLElement::info, &HTMLOListElementTable, 0 }; +const ClassInfo KJS::HTMLElement::dl_info = { "HTMLDListElement", &KJS::HTMLElement::info, &HTMLDListElementTable, 0 }; +const ClassInfo KJS::HTMLElement::dir_info = { "HTMLDirectoryElement", &KJS::HTMLElement::info, &HTMLDirectoryElementTable, 0 }; +const ClassInfo KJS::HTMLElement::menu_info = { "HTMLMenuElement", &KJS::HTMLElement::info, &HTMLMenuElementTable, 0 }; +const ClassInfo KJS::HTMLElement::li_info = { "HTMLLIElement", &KJS::HTMLElement::info, &HTMLLIElementTable, 0 }; +const ClassInfo KJS::HTMLElement::div_info = { "HTMLDivElement", &KJS::HTMLElement::info, &HTMLDivElementTable, 0 }; +const ClassInfo KJS::HTMLElement::p_info = { "HTMLParagraphElement", &KJS::HTMLElement::info, &HTMLParagraphElementTable, 0 }; +const ClassInfo KJS::HTMLElement::heading_info = { "HTMLHeadingElement", &KJS::HTMLElement::info, &HTMLHeadingElementTable, 0 }; +const ClassInfo KJS::HTMLElement::blockQuote_info = { "HTMLBlockQuoteElement", &KJS::HTMLElement::info, &HTMLBlockQuoteElementTable, 0 }; +const ClassInfo KJS::HTMLElement::q_info = { "HTMLQuoteElement", &KJS::HTMLElement::info, &HTMLQuoteElementTable, 0 }; +const ClassInfo KJS::HTMLElement::pre_info = { "HTMLPreElement", &KJS::HTMLElement::info, &HTMLPreElementTable, 0 }; +const ClassInfo KJS::HTMLElement::br_info = { "HTMLBRElement", &KJS::HTMLElement::info, &HTMLBRElementTable, 0 }; +const ClassInfo KJS::HTMLElement::baseFont_info = { "HTMLBaseFontElement", &KJS::HTMLElement::info, &HTMLBaseFontElementTable, 0 }; +const ClassInfo KJS::HTMLElement::font_info = { "HTMLFontElement", &KJS::HTMLElement::info, &HTMLFontElementTable, 0 }; +const ClassInfo KJS::HTMLElement::hr_info = { "HTMLHRElement", &KJS::HTMLElement::info, &HTMLHRElementTable, 0 }; +const ClassInfo KJS::HTMLElement::mod_info = { "HTMLModElement", &KJS::HTMLElement::info, &HTMLModElementTable, 0 }; +const ClassInfo KJS::HTMLElement::a_info = { "HTMLAnchorElement", &KJS::HTMLElement::info, &HTMLAnchorElementTable, 0 }; +const ClassInfo KJS::HTMLElement::img_info = { "HTMLImageElement", &KJS::HTMLElement::info, &HTMLImageElementTable, 0 }; +const ClassInfo KJS::HTMLElement::object_info = { "HTMLObjectElement", &KJS::HTMLElement::info, &HTMLObjectElementTable, 0 }; +const ClassInfo KJS::HTMLElement::param_info = { "HTMLParamElement", &KJS::HTMLElement::info, &HTMLParamElementTable, 0 }; +const ClassInfo KJS::HTMLElement::applet_info = { "HTMLAppletElement", &KJS::HTMLElement::info, &HTMLAppletElementTable, 0 }; +const ClassInfo KJS::HTMLElement::map_info = { "HTMLMapElement", &KJS::HTMLElement::info, &HTMLMapElementTable, 0 }; +const ClassInfo KJS::HTMLElement::area_info = { "HTMLAreaElement", &KJS::HTMLElement::info, &HTMLAreaElementTable, 0 }; +const ClassInfo KJS::HTMLElement::script_info = { "HTMLScriptElement", &KJS::HTMLElement::info, &HTMLScriptElementTable, 0 }; +const ClassInfo KJS::HTMLElement::table_info = { "HTMLTableElement", &KJS::HTMLElement::info, &HTMLTableElementTable, 0 }; +const ClassInfo KJS::HTMLElement::caption_info = { "HTMLTableCaptionElement", &KJS::HTMLElement::info, &HTMLTableCaptionElementTable, 0 }; +const ClassInfo KJS::HTMLElement::col_info = { "HTMLTableColElement", &KJS::HTMLElement::info, &HTMLTableColElementTable, 0 }; +const ClassInfo KJS::HTMLElement::tablesection_info = { "HTMLTableSectionElement", &KJS::HTMLElement::info, &HTMLTableSectionElementTable, 0 }; +const ClassInfo KJS::HTMLElement::tr_info = { "HTMLTableRowElement", &KJS::HTMLElement::info, &HTMLTableRowElementTable, 0 }; +const ClassInfo KJS::HTMLElement::tablecell_info = { "HTMLTableCellElement", &KJS::HTMLElement::info, &HTMLTableCellElementTable, 0 }; +const ClassInfo KJS::HTMLElement::frameSet_info = { "HTMLFrameSetElement", &KJS::HTMLElement::info, &HTMLFrameSetElementTable, 0 }; +const ClassInfo KJS::HTMLElement::frame_info = { "HTMLFrameElement", &KJS::HTMLElement::info, &HTMLFrameElementTable, 0 }; +const ClassInfo KJS::HTMLElement::iFrame_info = { "HTMLIFrameElement", &KJS::HTMLElement::info, &HTMLIFrameElementTable, 0 }; +const ClassInfo KJS::HTMLElement::marquee_info = { "HTMLMarqueeElement", &KJS::HTMLElement::info, 0, 0 }; +const ClassInfo KJS::HTMLElement::layer_info = { "HTMLLayerElement", &KJS::HTMLElement::info, &HTMLLayerElementTable, 0 }; + +static Object prototypeForID(ExecState* exec, DOM::NodeImpl::Id id); + +KJS::HTMLElement::HTMLElement(ExecState *exec, const DOM::HTMLElement& e) : + DOMElement(prototypeForID(exec, e.elementId()), e) { } + +const ClassInfo* KJS::HTMLElement::classInfo() const +{ + DOM::HTMLElement element = static_cast<DOM::HTMLElement>(node); + switch (element.elementId()) { + case ID_HTML: + return &html_info; + case ID_HEAD: + return &head_info; + case ID_LINK: + return &link_info; + case ID_TITLE: + return &title_info; + case ID_META: + return &meta_info; + case ID_BASE: + return &base_info; + case ID_ISINDEX: + return &isIndex_info; + case ID_STYLE: + return &style_info; + case ID_BODY: + return &body_info; + case ID_FORM: + return &form_info; + case ID_SELECT: + return &select_info; + case ID_OPTGROUP: + return &optGroup_info; + case ID_OPTION: + return &option_info; + case ID_INPUT: + return &input_info; + case ID_TEXTAREA: + return &textArea_info; + case ID_BUTTON: + return &button_info; + case ID_LABEL: + return &label_info; + case ID_FIELDSET: + return &fieldSet_info; + case ID_LEGEND: + return &legend_info; + case ID_UL: + return &ul_info; + case ID_OL: + return &ol_info; + case ID_DL: + return &dl_info; + case ID_DIR: + return &dir_info; + case ID_MENU: + return &menu_info; + case ID_LI: + return &li_info; + case ID_DIV: + return &div_info; + case ID_P: + return &p_info; + case ID_H1: + case ID_H2: + case ID_H3: + case ID_H4: + case ID_H5: + case ID_H6: + return &heading_info; + case ID_BLOCKQUOTE: + return &blockQuote_info; + case ID_Q: + return &q_info; + case ID_PRE: + return &pre_info; + case ID_BR: + return &br_info; + case ID_BASEFONT: + return &baseFont_info; + case ID_FONT: + return &font_info; + case ID_HR: + return &hr_info; + case ID_INS: + case ID_DEL: + return &mod_info; + case ID_A: + return &a_info; + case ID_IMG: + return &img_info; + case ID_OBJECT: + return &object_info; + case ID_PARAM: + return ¶m_info; + case ID_APPLET: + return &applet_info; + case ID_MAP: + return &map_info; + case ID_AREA: + return &area_info; + case ID_SCRIPT: + return &script_info; + case ID_TABLE: + return &table_info; + case ID_CAPTION: + return &caption_info; + case ID_COL: + case ID_COLGROUP: + return &col_info; + case ID_THEAD: + case ID_TBODY: + case ID_TFOOT: + return &tablesection_info; + case ID_TR: + return &tr_info; + case ID_TH: + case ID_TD: + return &tablecell_info; + case ID_FRAMESET: + return &frameSet_info; + case ID_FRAME: + return &frame_info; + case ID_IFRAME: + return &iFrame_info; + case ID_MARQUEE: + return &marquee_info; + case ID_LAYER: + return &layer_info; + default: + return &info; + } +} +/* +@begin HTMLElementTable 11 + id KJS::HTMLElement::ElementId DontDelete + title KJS::HTMLElement::ElementTitle DontDelete + lang KJS::HTMLElement::ElementLang DontDelete + dir KJS::HTMLElement::ElementDir DontDelete +### isn't this "class" in the HTML spec? + className KJS::HTMLElement::ElementClassName DontDelete + innerHTML KJS::HTMLElement::ElementInnerHTML DontDelete + innerText KJS::HTMLElement::ElementInnerText DontDelete + document KJS::HTMLElement::ElementDocument DontDelete|ReadOnly +# IE extension + children KJS::HTMLElement::ElementChildren DontDelete|ReadOnly + all KJS::HTMLElement::ElementAll DontDelete|ReadOnly +@end +@begin HTMLElementProtoTable 1 + scrollIntoView KJS::HTMLElement::ElementScrollIntoView DontDelete|Function 0 +@end +@begin HTMLHtmlElementTable 1 + version KJS::HTMLElement::HtmlVersion DontDelete +@end +@begin HTMLHeadElementTable 1 + profile KJS::HTMLElement::HeadProfile DontDelete +@end +@begin HTMLLinkElementTable 11 + disabled KJS::HTMLElement::LinkDisabled DontDelete + charset KJS::HTMLElement::LinkCharset DontDelete + href KJS::HTMLElement::LinkHref DontDelete + hreflang KJS::HTMLElement::LinkHrefLang DontDelete + media KJS::HTMLElement::LinkMedia DontDelete + rel KJS::HTMLElement::LinkRel DontDelete + rev KJS::HTMLElement::LinkRev DontDelete + target KJS::HTMLElement::LinkTarget DontDelete + type KJS::HTMLElement::LinkType DontDelete + sheet KJS::HTMLElement::LinkSheet DontDelete|ReadOnly +@end +@begin HTMLTitleElementTable 1 + text KJS::HTMLElement::TitleText DontDelete +@end +@begin HTMLMetaElementTable 4 + content KJS::HTMLElement::MetaContent DontDelete + httpEquiv KJS::HTMLElement::MetaHttpEquiv DontDelete + name KJS::HTMLElement::MetaName DontDelete + scheme KJS::HTMLElement::MetaScheme DontDelete +@end +@begin HTMLBaseElementTable 2 + href KJS::HTMLElement::BaseHref DontDelete + target KJS::HTMLElement::BaseTarget DontDelete +@end +@begin HTMLIsIndexElementTable 2 + form KJS::HTMLElement::IsIndexForm DontDelete|ReadOnly + prompt KJS::HTMLElement::IsIndexPrompt DontDelete +@end +@begin HTMLStyleElementTable 4 + disabled KJS::HTMLElement::StyleDisabled DontDelete + media KJS::HTMLElement::StyleMedia DontDelete + type KJS::HTMLElement::StyleType DontDelete + sheet KJS::HTMLElement::StyleSheet DontDelete|ReadOnly +@end +@begin HTMLBodyElementTable 8 + aLink KJS::HTMLElement::BodyALink DontDelete + background KJS::HTMLElement::BodyBackground DontDelete + bgColor KJS::HTMLElement::BodyBgColor DontDelete + link KJS::HTMLElement::BodyLink DontDelete + text KJS::HTMLElement::BodyText DontDelete + vLink KJS::HTMLElement::BodyVLink DontDelete +# IE extension + onload KJS::HTMLElement::BodyOnLoad DontDelete +@end +@begin HTMLBodyElementProtoTable 2 +# Mozilla'ish extension. Ideally we would want to support this on all elements. +# Not hard, but not an immediate need. + focus KJS::HTMLElement::BodyFocus DontDelete|Function 0 +@end +@begin HTMLFormElementTable 11 +# Also supported, by name/index + elements KJS::HTMLElement::FormElements DontDelete|ReadOnly + length KJS::HTMLElement::FormLength DontDelete|ReadOnly + name KJS::HTMLElement::FormName DontDelete + acceptCharset KJS::HTMLElement::FormAcceptCharset DontDelete + action KJS::HTMLElement::FormAction DontDelete + encoding KJS::HTMLElement::FormEncType DontDelete + enctype KJS::HTMLElement::FormEncType DontDelete + method KJS::HTMLElement::FormMethod DontDelete + target KJS::HTMLElement::FormTarget DontDelete +@end +@begin HTMLFormElementProtoTable 2 + submit KJS::HTMLElement::FormSubmit DontDelete|Function 0 + reset KJS::HTMLElement::FormReset DontDelete|Function 0 +@end +@begin HTMLSelectElementTable 11 +# Also supported, by index + type KJS::HTMLElement::SelectType DontDelete|ReadOnly + selectedIndex KJS::HTMLElement::SelectSelectedIndex DontDelete + value KJS::HTMLElement::SelectValue DontDelete + length KJS::HTMLElement::SelectLength DontDelete + form KJS::HTMLElement::SelectForm DontDelete|ReadOnly + options KJS::HTMLElement::SelectOptions DontDelete|ReadOnly + disabled KJS::HTMLElement::SelectDisabled DontDelete + multiple KJS::HTMLElement::SelectMultiple DontDelete + name KJS::HTMLElement::SelectName DontDelete + size KJS::HTMLElement::SelectSize DontDelete + tabIndex KJS::HTMLElement::SelectTabIndex DontDelete +@end +@begin HTMLSelectElementProtoTable 4 + add KJS::HTMLElement::SelectAdd DontDelete|Function 2 + remove KJS::HTMLElement::SelectRemove DontDelete|Function 1 + blur KJS::HTMLElement::SelectBlur DontDelete|Function 0 + focus KJS::HTMLElement::SelectFocus DontDelete|Function 0 +@end +@begin HTMLOptGroupElementTable 2 + disabled KJS::HTMLElement::OptGroupDisabled DontDelete + label KJS::HTMLElement::OptGroupLabel DontDelete +@end +@begin HTMLOptionElementTable 8 + form KJS::HTMLElement::OptionForm DontDelete|ReadOnly + defaultSelected KJS::HTMLElement::OptionDefaultSelected DontDelete + text KJS::HTMLElement::OptionText DontDelete + index KJS::HTMLElement::OptionIndex DontDelete|ReadOnly + disabled KJS::HTMLElement::OptionDisabled DontDelete + label KJS::HTMLElement::OptionLabel DontDelete + selected KJS::HTMLElement::OptionSelected DontDelete + value KJS::HTMLElement::OptionValue DontDelete +@end +@begin HTMLInputElementTable 25 + defaultValue KJS::HTMLElement::InputDefaultValue DontDelete + defaultChecked KJS::HTMLElement::InputDefaultChecked DontDelete + form KJS::HTMLElement::InputForm DontDelete|ReadOnly + accept KJS::HTMLElement::InputAccept DontDelete + accessKey KJS::HTMLElement::InputAccessKey DontDelete + align KJS::HTMLElement::InputAlign DontDelete + alt KJS::HTMLElement::InputAlt DontDelete + checked KJS::HTMLElement::InputChecked DontDelete + indeterminate KJS::HTMLElement::InputIndeterminate DontDelete + status KJS::HTMLElement::InputChecked DontDelete + disabled KJS::HTMLElement::InputDisabled DontDelete + maxLength KJS::HTMLElement::InputMaxLength DontDelete + name KJS::HTMLElement::InputName DontDelete + readOnly KJS::HTMLElement::InputReadOnly DontDelete + size KJS::HTMLElement::InputSize DontDelete + src KJS::HTMLElement::InputSrc DontDelete + tabIndex KJS::HTMLElement::InputTabIndex DontDelete + type KJS::HTMLElement::InputType DontDelete + useMap KJS::HTMLElement::InputUseMap DontDelete + value KJS::HTMLElement::InputValue DontDelete + selectionStart KJS::HTMLElement::InputSelectionStart DontDelete + selectionEnd KJS::HTMLElement::InputSelectionEnd DontDelete +@end +@begin HTMLInputElementProtoTable 5 + blur KJS::HTMLElement::InputBlur DontDelete|Function 0 + focus KJS::HTMLElement::InputFocus DontDelete|Function 0 + select KJS::HTMLElement::InputSelect DontDelete|Function 0 + click KJS::HTMLElement::InputClick DontDelete|Function 0 + setSelectionRange KJS::HTMLElement::InputSetSelectionRange DontDelete|Function 2 +@end +@begin HTMLTextAreaElementTable 13 + defaultValue KJS::HTMLElement::TextAreaDefaultValue DontDelete + form KJS::HTMLElement::TextAreaForm DontDelete|ReadOnly + accessKey KJS::HTMLElement::TextAreaAccessKey DontDelete + cols KJS::HTMLElement::TextAreaCols DontDelete + disabled KJS::HTMLElement::TextAreaDisabled DontDelete + name KJS::HTMLElement::TextAreaName DontDelete + readOnly KJS::HTMLElement::TextAreaReadOnly DontDelete + rows KJS::HTMLElement::TextAreaRows DontDelete + tabIndex KJS::HTMLElement::TextAreaTabIndex DontDelete + type KJS::HTMLElement::TextAreaType DontDelete|ReadOnly + value KJS::HTMLElement::TextAreaValue DontDelete + selectionStart KJS::HTMLElement::TextAreaSelectionStart DontDelete + selectionEnd KJS::HTMLElement::TextAreaSelectionEnd DontDelete + textLength KJS::HTMLElement::TextAreaTextLength DontDelete|ReadOnly +@end +@begin HTMLTextAreaElementProtoTable 4 + blur KJS::HTMLElement::TextAreaBlur DontDelete|Function 0 + focus KJS::HTMLElement::TextAreaFocus DontDelete|Function 0 + select KJS::HTMLElement::TextAreaSelect DontDelete|Function 0 + setSelectionRange KJS::HTMLElement::TextAreaSetSelectionRange DontDelete|Function 2 +@end +@begin HTMLButtonElementTable 9 + form KJS::HTMLElement::ButtonForm DontDelete|ReadOnly + accessKey KJS::HTMLElement::ButtonAccessKey DontDelete + disabled KJS::HTMLElement::ButtonDisabled DontDelete + name KJS::HTMLElement::ButtonName DontDelete + tabIndex KJS::HTMLElement::ButtonTabIndex DontDelete + type KJS::HTMLElement::ButtonType DontDelete|ReadOnly + value KJS::HTMLElement::ButtonValue DontDelete +@end +@begin HTMLButtonElementProtoTable 2 + blur KJS::HTMLElement::ButtonBlur DontDelete|Function 0 + focus KJS::HTMLElement::ButtonFocus DontDelete|Function 0 +@end +@begin HTMLLabelElementTable 3 + form KJS::HTMLElement::LabelForm DontDelete|ReadOnly + accessKey KJS::HTMLElement::LabelAccessKey DontDelete + htmlFor KJS::HTMLElement::LabelHtmlFor DontDelete +@end +@begin HTMLFieldSetElementTable 1 + form KJS::HTMLElement::FieldSetForm DontDelete|ReadOnly +@end +@begin HTMLLegendElementTable 3 + form KJS::HTMLElement::LegendForm DontDelete|ReadOnly + accessKey KJS::HTMLElement::LegendAccessKey DontDelete + align KJS::HTMLElement::LegendAlign DontDelete +@end +@begin HTMLUListElementTable 2 + compact KJS::HTMLElement::UListCompact DontDelete + type KJS::HTMLElement::UListType DontDelete +@end +@begin HTMLOListElementTable 3 + compact KJS::HTMLElement::OListCompact DontDelete + start KJS::HTMLElement::OListStart DontDelete + type KJS::HTMLElement::OListType DontDelete +@end +@begin HTMLDListElementTable 1 + compact KJS::HTMLElement::DListCompact DontDelete +@end +@begin HTMLDirectoryElementTable 1 + compact KJS::HTMLElement::DirectoryCompact DontDelete +@end +@begin HTMLMenuElementTable 1 + compact KJS::HTMLElement::MenuCompact DontDelete +@end +@begin HTMLLIElementTable 2 + type KJS::HTMLElement::LIType DontDelete + value KJS::HTMLElement::LIValue DontDelete +@end +@begin HTMLDivElementTable 1 + align KJS::HTMLElement::DivAlign DontDelete +@end +@begin HTMLParagraphElementTable 1 + align KJS::HTMLElement::ParagraphAlign DontDelete +@end +@begin HTMLHeadingElementTable 1 + align KJS::HTMLElement::HeadingAlign DontDelete +@end +@begin HTMLBlockQuoteElementTable 1 + cite KJS::HTMLElement::BlockQuoteCite DontDelete +@end +@begin HTMLQuoteElementTable 1 + cite KJS::HTMLElement::QuoteCite DontDelete +@end +@begin HTMLPreElementTable 1 + width KJS::HTMLElement::PreWidth DontDelete +@end +@begin HTMLBRElementTable 1 + clear KJS::HTMLElement::BRClear DontDelete +@end +@begin HTMLBaseFontElementTable 3 + color KJS::HTMLElement::BaseFontColor DontDelete + face KJS::HTMLElement::BaseFontFace DontDelete + size KJS::HTMLElement::BaseFontSize DontDelete +@end +@begin HTMLFontElementTable 3 + color KJS::HTMLElement::FontColor DontDelete + face KJS::HTMLElement::FontFace DontDelete + size KJS::HTMLElement::FontSize DontDelete +@end +@begin HTMLHRElementTable 4 + align KJS::HTMLElement::HRAlign DontDelete + noShade KJS::HTMLElement::HRNoShade DontDelete + size KJS::HTMLElement::HRSize DontDelete + width KJS::HTMLElement::HRWidth DontDelete +@end +@begin HTMLModElementTable 2 + cite KJS::HTMLElement::ModCite DontDelete + dateTime KJS::HTMLElement::ModDateTime DontDelete +@end +@begin HTMLAnchorElementTable 23 + accessKey KJS::HTMLElement::AnchorAccessKey DontDelete + charset KJS::HTMLElement::AnchorCharset DontDelete + coords KJS::HTMLElement::AnchorCoords DontDelete + href KJS::HTMLElement::AnchorHref DontDelete + hreflang KJS::HTMLElement::AnchorHrefLang DontDelete + hash KJS::HTMLElement::AnchorHash DontDelete|ReadOnly + host KJS::HTMLElement::AnchorHost DontDelete|ReadOnly + hostname KJS::HTMLElement::AnchorHostname DontDelete|ReadOnly + name KJS::HTMLElement::AnchorName DontDelete + pathname KJS::HTMLElement::AnchorPathName DontDelete|ReadOnly + port KJS::HTMLElement::AnchorPort DontDelete|ReadOnly + protocol KJS::HTMLElement::AnchorProtocol DontDelete|ReadOnly + rel KJS::HTMLElement::AnchorRel DontDelete + rev KJS::HTMLElement::AnchorRev DontDelete + search KJS::HTMLElement::AnchorSearch DontDelete + shape KJS::HTMLElement::AnchorShape DontDelete + tabIndex KJS::HTMLElement::AnchorTabIndex DontDelete + target KJS::HTMLElement::AnchorTarget DontDelete + text KJS::HTMLElement::AnchorText DontDelete|ReadOnly + type KJS::HTMLElement::AnchorType DontDelete +@end +@begin HTMLAnchorElementProtoTable 3 + blur KJS::HTMLElement::AnchorBlur DontDelete|Function 0 + focus KJS::HTMLElement::AnchorFocus DontDelete|Function 0 + click KJS::HTMLElement::AnchorClick DontDelete|Function 0 +@end +@begin HTMLImageElementTable 15 + name KJS::HTMLElement::ImageName DontDelete + align KJS::HTMLElement::ImageAlign DontDelete + alt KJS::HTMLElement::ImageAlt DontDelete + border KJS::HTMLElement::ImageBorder DontDelete + complete KJS::HTMLElement::ImageComplete DontDelete|ReadOnly + height KJS::HTMLElement::ImageHeight DontDelete + hspace KJS::HTMLElement::ImageHspace DontDelete + isMap KJS::HTMLElement::ImageIsMap DontDelete + longDesc KJS::HTMLElement::ImageLongDesc DontDelete + src KJS::HTMLElement::ImageSrc DontDelete + useMap KJS::HTMLElement::ImageUseMap DontDelete + vspace KJS::HTMLElement::ImageVspace DontDelete + width KJS::HTMLElement::ImageWidth DontDelete + x KJS::HTMLElement::ImageX DontDelete|ReadOnly + y KJS::HTMLElement::ImageY DontDelete|ReadOnly +@end +@begin HTMLObjectElementTable 20 + form KJS::HTMLElement::ObjectForm DontDelete|ReadOnly + code KJS::HTMLElement::ObjectCode DontDelete + align KJS::HTMLElement::ObjectAlign DontDelete + archive KJS::HTMLElement::ObjectArchive DontDelete + border KJS::HTMLElement::ObjectBorder DontDelete + codeBase KJS::HTMLElement::ObjectCodeBase DontDelete + codeType KJS::HTMLElement::ObjectCodeType DontDelete + contentDocument KJS::HTMLElement::ObjectContentDocument DontDelete|ReadOnly + data KJS::HTMLElement::ObjectData DontDelete + declare KJS::HTMLElement::ObjectDeclare DontDelete + height KJS::HTMLElement::ObjectHeight DontDelete + hspace KJS::HTMLElement::ObjectHspace DontDelete + name KJS::HTMLElement::ObjectName DontDelete + standby KJS::HTMLElement::ObjectStandby DontDelete + tabIndex KJS::HTMLElement::ObjectTabIndex DontDelete + type KJS::HTMLElement::ObjectType DontDelete + useMap KJS::HTMLElement::ObjectUseMap DontDelete + vspace KJS::HTMLElement::ObjectVspace DontDelete + width KJS::HTMLElement::ObjectWidth DontDelete +@end +@begin HTMLParamElementTable 4 + name KJS::HTMLElement::ParamName DontDelete + type KJS::HTMLElement::ParamType DontDelete + value KJS::HTMLElement::ParamValue DontDelete + valueType KJS::HTMLElement::ParamValueType DontDelete +@end +@begin HTMLAppletElementTable 11 + align KJS::HTMLElement::AppletAlign DontDelete + alt KJS::HTMLElement::AppletAlt DontDelete + archive KJS::HTMLElement::AppletArchive DontDelete + code KJS::HTMLElement::AppletCode DontDelete + codeBase KJS::HTMLElement::AppletCodeBase DontDelete + height KJS::HTMLElement::AppletHeight DontDelete + hspace KJS::HTMLElement::AppletHspace DontDelete + name KJS::HTMLElement::AppletName DontDelete + object KJS::HTMLElement::AppletObject DontDelete + vspace KJS::HTMLElement::AppletVspace DontDelete + width KJS::HTMLElement::AppletWidth DontDelete +@end +@begin HTMLMapElementTable 2 + areas KJS::HTMLElement::MapAreas DontDelete|ReadOnly + name KJS::HTMLElement::MapName DontDelete +@end +@begin HTMLAreaElementTable 15 + accessKey KJS::HTMLElement::AreaAccessKey DontDelete + alt KJS::HTMLElement::AreaAlt DontDelete + coords KJS::HTMLElement::AreaCoords DontDelete + href KJS::HTMLElement::AreaHref DontDelete + hash KJS::HTMLElement::AreaHash DontDelete|ReadOnly + host KJS::HTMLElement::AreaHost DontDelete|ReadOnly + hostname KJS::HTMLElement::AreaHostName DontDelete|ReadOnly + pathname KJS::HTMLElement::AreaPathName DontDelete|ReadOnly + port KJS::HTMLElement::AreaPort DontDelete|ReadOnly + protocol KJS::HTMLElement::AreaProtocol DontDelete|ReadOnly + search KJS::HTMLElement::AreaSearch DontDelete|ReadOnly + noHref KJS::HTMLElement::AreaNoHref DontDelete + shape KJS::HTMLElement::AreaShape DontDelete + tabIndex KJS::HTMLElement::AreaTabIndex DontDelete + target KJS::HTMLElement::AreaTarget DontDelete +@end +@begin HTMLScriptElementTable 7 + text KJS::HTMLElement::ScriptText DontDelete + htmlFor KJS::HTMLElement::ScriptHtmlFor DontDelete + event KJS::HTMLElement::ScriptEvent DontDelete + charset KJS::HTMLElement::ScriptCharset DontDelete + defer KJS::HTMLElement::ScriptDefer DontDelete + src KJS::HTMLElement::ScriptSrc DontDelete + type KJS::HTMLElement::ScriptType DontDelete +@end +@begin HTMLTableElementTable 23 + caption KJS::HTMLElement::TableCaption DontDelete + tHead KJS::HTMLElement::TableTHead DontDelete + tFoot KJS::HTMLElement::TableTFoot DontDelete + rows KJS::HTMLElement::TableRows DontDelete|ReadOnly + tBodies KJS::HTMLElement::TableTBodies DontDelete|ReadOnly + align KJS::HTMLElement::TableAlign DontDelete + bgColor KJS::HTMLElement::TableBgColor DontDelete + border KJS::HTMLElement::TableBorder DontDelete + cellPadding KJS::HTMLElement::TableCellPadding DontDelete + cellSpacing KJS::HTMLElement::TableCellSpacing DontDelete + frame KJS::HTMLElement::TableFrame DontDelete + rules KJS::HTMLElement::TableRules DontDelete + summary KJS::HTMLElement::TableSummary DontDelete + width KJS::HTMLElement::TableWidth DontDelete +@end +@begin HTMLTableElementProtoTable 8 + createTHead KJS::HTMLElement::TableCreateTHead DontDelete|Function 0 + deleteTHead KJS::HTMLElement::TableDeleteTHead DontDelete|Function 0 + createTFoot KJS::HTMLElement::TableCreateTFoot DontDelete|Function 0 + deleteTFoot KJS::HTMLElement::TableDeleteTFoot DontDelete|Function 0 + createCaption KJS::HTMLElement::TableCreateCaption DontDelete|Function 0 + deleteCaption KJS::HTMLElement::TableDeleteCaption DontDelete|Function 0 + insertRow KJS::HTMLElement::TableInsertRow DontDelete|Function 1 + deleteRow KJS::HTMLElement::TableDeleteRow DontDelete|Function 1 +@end +@begin HTMLTableCaptionElementTable 1 + align KJS::HTMLElement::TableCaptionAlign DontDelete +@end +@begin HTMLTableColElementTable 7 + align KJS::HTMLElement::TableColAlign DontDelete + ch KJS::HTMLElement::TableColCh DontDelete + chOff KJS::HTMLElement::TableColChOff DontDelete + span KJS::HTMLElement::TableColSpan DontDelete + vAlign KJS::HTMLElement::TableColVAlign DontDelete + width KJS::HTMLElement::TableColWidth DontDelete +@end +@begin HTMLTableSectionElementTable 7 + align KJS::HTMLElement::TableSectionAlign DontDelete + ch KJS::HTMLElement::TableSectionCh DontDelete + chOff KJS::HTMLElement::TableSectionChOff DontDelete + vAlign KJS::HTMLElement::TableSectionVAlign DontDelete + rows KJS::HTMLElement::TableSectionRows DontDelete|ReadOnly +@end +@begin HTMLTableSectionElementProtoTable 2 + insertRow KJS::HTMLElement::TableSectionInsertRow DontDelete|Function 1 + deleteRow KJS::HTMLElement::TableSectionDeleteRow DontDelete|Function 1 +@end +@begin HTMLTableRowElementTable 11 + rowIndex KJS::HTMLElement::TableRowRowIndex DontDelete|ReadOnly + sectionRowIndex KJS::HTMLElement::TableRowSectionRowIndex DontDelete|ReadOnly + cells KJS::HTMLElement::TableRowCells DontDelete|ReadOnly + align KJS::HTMLElement::TableRowAlign DontDelete + bgColor KJS::HTMLElement::TableRowBgColor DontDelete + ch KJS::HTMLElement::TableRowCh DontDelete + chOff KJS::HTMLElement::TableRowChOff DontDelete + vAlign KJS::HTMLElement::TableRowVAlign DontDelete +@end +@begin HTMLTableRowElementProtoTable 2 + insertCell KJS::HTMLElement::TableRowInsertCell DontDelete|Function 1 + deleteCell KJS::HTMLElement::TableRowDeleteCell DontDelete|Function 1 +@end +@begin HTMLTableCellElementTable 15 + cellIndex KJS::HTMLElement::TableCellCellIndex DontDelete|ReadOnly + abbr KJS::HTMLElement::TableCellAbbr DontDelete + align KJS::HTMLElement::TableCellAlign DontDelete + axis KJS::HTMLElement::TableCellAxis DontDelete + bgColor KJS::HTMLElement::TableCellBgColor DontDelete + ch KJS::HTMLElement::TableCellCh DontDelete + chOff KJS::HTMLElement::TableCellChOff DontDelete + colSpan KJS::HTMLElement::TableCellColSpan DontDelete + headers KJS::HTMLElement::TableCellHeaders DontDelete + height KJS::HTMLElement::TableCellHeight DontDelete + noWrap KJS::HTMLElement::TableCellNoWrap DontDelete + rowSpan KJS::HTMLElement::TableCellRowSpan DontDelete + scope KJS::HTMLElement::TableCellScope DontDelete + vAlign KJS::HTMLElement::TableCellVAlign DontDelete + width KJS::HTMLElement::TableCellWidth DontDelete +@end +@begin HTMLFrameSetElementTable 2 + cols KJS::HTMLElement::FrameSetCols DontDelete + rows KJS::HTMLElement::FrameSetRows DontDelete +@end +@begin HTMLLayerElementTable 6 + top KJS::HTMLElement::LayerTop DontDelete + left KJS::HTMLElement::LayerLeft DontDelete + visibility KJS::HTMLElement::LayerVisibility DontDelete + bgColor KJS::HTMLElement::LayerBgColor DontDelete + document KJS::HTMLElement::LayerDocument DontDelete|ReadOnly + clip KJS::HTMLElement::LayerClip DontDelete|ReadOnly + layers KJS::HTMLElement::LayerLayers DontDelete|ReadOnly +@end +@begin HTMLFrameElementTable 13 + contentDocument KJS::HTMLElement::FrameContentDocument DontDelete|ReadOnly + contentWindow KJS::HTMLElement::FrameContentWindow DontDelete|ReadOnly + frameBorder KJS::HTMLElement::FrameFrameBorder DontDelete + longDesc KJS::HTMLElement::FrameLongDesc DontDelete + marginHeight KJS::HTMLElement::FrameMarginHeight DontDelete + marginWidth KJS::HTMLElement::FrameMarginWidth DontDelete + name KJS::HTMLElement::FrameName DontDelete + noResize KJS::HTMLElement::FrameNoResize DontDelete + scrolling KJS::HTMLElement::FrameScrolling DontDelete + src KJS::HTMLElement::FrameSrc DontDelete + location KJS::HTMLElement::FrameLocation DontDelete +# IE extension + width KJS::HTMLElement::FrameWidth DontDelete|ReadOnly + height KJS::HTMLElement::FrameHeight DontDelete|ReadOnly +@end +@begin HTMLIFrameElementTable 12 + align KJS::HTMLElement::IFrameAlign DontDelete + contentDocument KJS::HTMLElement::IFrameContentDocument DontDelete|ReadOnly + contentWindow KJS::HTMLElement::IFrameContentWindow DontDelete|ReadOnly + frameBorder KJS::HTMLElement::IFrameFrameBorder DontDelete + height KJS::HTMLElement::IFrameHeight DontDelete + longDesc KJS::HTMLElement::IFrameLongDesc DontDelete + marginHeight KJS::HTMLElement::IFrameMarginHeight DontDelete + marginWidth KJS::HTMLElement::IFrameMarginWidth DontDelete + name KJS::HTMLElement::IFrameName DontDelete + scrolling KJS::HTMLElement::IFrameScrolling DontDelete + src KJS::HTMLElement::IFrameSrc DontDelete + width KJS::HTMLElement::IFrameWidth DontDelete +@end + +@begin HTMLMarqueeElementProtoTable 2 + start KJS::HTMLElement::MarqueeStart DontDelete|Function 0 + stop KJS::HTMLElement::MarqueeStop DontDelete|Function 0 +@end + +*/ + +static KParts::LiveConnectExtension *getLiveConnectExtension(const DOM::HTMLElement & element) +{ + DOM::HTMLDocument doc = element.ownerDocument(); + TDEHTMLView *view = static_cast<DOM::DocumentImpl*>(doc.handle())->view(); + if (view && element.handle()) + return view->part()->liveConnectExtension(static_cast<tdehtml::RenderPart*>(element.handle()->renderer())); + return 0L; +} + +Value KJS::HTMLElement::tryGet(ExecState *exec, const Identifier &propertyName) const +{ + DOM::HTMLElement element = static_cast<DOM::HTMLElement>(node); +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLElement::tryGet " << propertyName.qstring() << " thisTag=" << element.tagName().string() << endl; +#endif + // First look at dynamic properties + switch (element.elementId()) { + case ID_FORM: { + DOM::HTMLFormElement form = element; + // Check if we're retrieving an element (by index or by name) + bool ok; + uint u = propertyName.toULong(&ok); + + if (ok) + return getDOMNode(exec,form.elements().item(u)); + KJS::HTMLCollection coll(exec, form.elements()); + Value namedItems = coll.getNamedItems(exec, propertyName); + if (namedItems.type() != UndefinedType) + return namedItems; + } + break; + case ID_SELECT: { + DOM::HTMLSelectElement select = element; + bool ok; + uint u = propertyName.toULong(&ok); + if (ok) + return getDOMNode(exec,select.options().item(u)); // not specified by DOM(?) but supported in netscape/IE + } + break; + case ID_APPLET: + case ID_OBJECT: + case ID_EMBED: { + KParts::LiveConnectExtension *lc = getLiveConnectExtension(element); + TQString rvalue; + KParts::LiveConnectExtension::Type rtype; + unsigned long robjid; + if (lc && lc->get(0, propertyName.qstring(), rtype, robjid, rvalue)) + return getLiveConnectValue(lc, propertyName.qstring(), rtype, rvalue, robjid); + } + break; + default: + break; + } + + const HashTable* table = classInfo()->propHashTable; // get the right hashtable + const HashEntry* entry = table ? Lookup::findEntry(table, propertyName) : 0; + if (entry) { + if (entry->attr & Function) + return lookupOrCreateFunction<KJS::HTMLElementFunction>(exec, propertyName, this, entry->value, entry->params, entry->attr); + return getValueProperty(exec, entry->value); + } + + // Base HTMLElement stuff or parent class forward, as usual + return DOMObjectLookupGet<KJS::HTMLElementFunction, KJS::HTMLElement, DOMElement>(exec, propertyName, &KJS::HTMLElementTable, this); +} + +Value KJS::HTMLElement::getValueProperty(ExecState *exec, int token) const +{ + DOM::HTMLElement element = static_cast<DOM::HTMLElement>(node); + switch (element.elementId()) { + case ID_HTML: { + DOM::HTMLHtmlElement html = element; + if (token == HtmlVersion) return String(html.version()); + } + break; + case ID_HEAD: { + DOM::HTMLHeadElement head = element; + if (token == HeadProfile) return String(head.profile()); + } + break; + case ID_LINK: { + DOM::HTMLLinkElement link = element; + switch (token) { + case LinkDisabled: return Boolean(link.disabled()); + case LinkCharset: return String(link.charset()); + case LinkHref: return String(link.href()); + case LinkHrefLang: return String(link.hreflang()); + case LinkMedia: return String(link.media()); + case LinkRel: return String(link.rel()); + case LinkRev: return String(link.rev()); + case LinkTarget: return String(link.target()); + case LinkType: return String(link.type()); + case LinkSheet: return getDOMStyleSheet(exec,static_cast<DOM::ProcessingInstruction>(node).sheet()); + } + } + break; + case ID_TITLE: { + DOM::HTMLTitleElement title = element; + switch (token) { + case TitleText: return String(title.text()); + } + } + break; + case ID_META: { + DOM::HTMLMetaElement meta = element; + switch (token) { + case MetaContent: return String(meta.content()); + case MetaHttpEquiv: return String(meta.httpEquiv()); + case MetaName: return String(meta.name()); + case MetaScheme: return String(meta.scheme()); + } + } + break; + case ID_BASE: { + DOM::HTMLBaseElement base = element; + switch (token) { + case BaseHref: return String(base.href()); + case BaseTarget: return String(base.target()); + } + } + break; + case ID_ISINDEX: { + DOM::HTMLIsIndexElement isindex = element; + switch (token) { + case IsIndexForm: return getDOMNode(exec,isindex.form()); // type HTMLFormElement + case IsIndexPrompt: return String(isindex.prompt()); + } + } + break; + case ID_STYLE: { + DOM::HTMLStyleElement style = element; + switch (token) { + case StyleDisabled: return Boolean(style.disabled()); + case StyleMedia: return String(style.media()); + case StyleType: return String(style.type()); + case StyleSheet: return getDOMStyleSheet(exec,style.sheet()); + } + } + break; + case ID_BODY: { + DOM::HTMLBodyElement body = element; + switch (token) { + case BodyALink: return String(body.aLink()); + case BodyBackground: return String(body.background()); + case BodyBgColor: return String(body.bgColor()); + case BodyLink: return String(body.link()); + case BodyText: return String(body.text()); + case BodyVLink: return String(body.vLink()); + case BodyOnLoad: { + DOM::DocumentImpl *doc = static_cast<DOM::DocumentImpl *>(node.ownerDocument().handle()); + if (!doc || !checkNodeSecurity(exec, node)) + return Undefined(); + DOMNode* kjsDocNode = new DOMNode(exec, doc); + // Need to create a Value wrapper to avoid leaking the KJS::DOMNode + Value nodeValue(kjsDocNode); + return kjsDocNode->getListener( DOM::EventImpl::LOAD_EVENT ); + } + } + } + break; + + case ID_FORM: { + DOM::HTMLFormElement form = element; + switch (token) { + case FormElements: return getHTMLCollection(exec,form.elements()); + case FormLength: return Number(form.length()); + case FormName: return String(form.name()); // NOT getString (IE gives empty string) + case FormAcceptCharset: return String(form.acceptCharset()); + case FormAction: return String(form.action()); + case FormEncType: return String(form.enctype()); + case FormMethod: return String(form.method()); + case FormTarget: return String(form.target()); + } + } + break; + case ID_SELECT: { + DOM::HTMLSelectElement select = element; + switch (token) { + case SelectType: return String(select.type()); + case SelectSelectedIndex: return Number(select.selectedIndex()); + case SelectValue: return String(select.value()); + case SelectLength: return Number(select.length()); + case SelectForm: return getDOMNode(exec,select.form()); // type HTMLFormElement + case SelectOptions: return getSelectHTMLCollection(exec, select.options(), select); // type HTMLCollection + case SelectDisabled: return Boolean(select.disabled()); + case SelectMultiple: return Boolean(select.multiple()); + case SelectName: return String(select.name()); + case SelectSize: return Number(select.size()); + case SelectTabIndex: return Number(select.tabIndex()); + } + } + break; + case ID_OPTGROUP: { + DOM::HTMLOptGroupElement optgroup = element; + switch (token) { + case OptGroupDisabled: return Boolean(optgroup.disabled()); + case OptGroupLabel: return String(optgroup.label()); + } + } + break; + case ID_OPTION: { + DOM::HTMLOptionElement option = element; + switch (token) { + case OptionForm: return getDOMNode(exec,option.form()); // type HTMLFormElement + case OptionDefaultSelected: return Boolean(option.defaultSelected()); + case OptionText: return String(option.text()); + case OptionIndex: return Number(option.index()); + case OptionDisabled: return Boolean(option.disabled()); + case OptionLabel: return String(option.label()); + case OptionSelected: return Boolean(option.selected()); + case OptionValue: return String(option.value()); + } + } + break; + case ID_INPUT: { + DOM::HTMLInputElement input = element; + switch (token) { + case InputDefaultValue: return String(input.defaultValue()); + case InputDefaultChecked: return Boolean(input.defaultChecked()); + case InputForm: return getDOMNode(exec,input.form()); // type HTMLFormElement + case InputAccept: return String(input.accept()); + case InputAccessKey: return String(input.accessKey()); + case InputAlign: return String(input.align()); + case InputAlt: return String(input.alt()); + case InputChecked: return Boolean(input.checked()); + case InputIndeterminate: return Boolean(input.indeterminate()); + case InputDisabled: return Boolean(input.disabled()); + case InputMaxLength: return Number(input.maxLength()); + case InputName: return String(input.name()); // NOT getString (IE gives empty string) + case InputReadOnly: return Boolean(input.readOnly()); + case InputSize: return Number(input.getSize()); + case InputSrc: return String(input.src()); + case InputTabIndex: return Number(input.tabIndex()); + case InputType: return String(input.type()); + case InputUseMap: return String(input.useMap()); + case InputValue: return String(input.value()); + case InputSelectionStart: { + long val = input.selectionStart(); + if (val != -1) + return Number(val); + else + return Undefined(); + } + case InputSelectionEnd: { + long val = input.selectionEnd(); + if (val != -1) + return Number(val); + else + return Undefined(); + } + } + } + break; + case ID_TEXTAREA: { + DOM::HTMLTextAreaElement textarea = element; + switch (token) { + case TextAreaDefaultValue: return String(textarea.defaultValue()); + case TextAreaForm: return getDOMNode(exec,textarea.form()); // type HTMLFormElement + case TextAreaAccessKey: return String(textarea.accessKey()); + case TextAreaCols: return Number(textarea.cols()); + case TextAreaDisabled: return Boolean(textarea.disabled()); + case TextAreaName: return String(textarea.name()); + case TextAreaReadOnly: return Boolean(textarea.readOnly()); + case TextAreaRows: return Number(textarea.rows()); + case TextAreaTabIndex: return Number(textarea.tabIndex()); + case TextAreaType: return String(textarea.type()); + case TextAreaValue: return String(textarea.value()); + case TextAreaSelectionStart: return Number(textarea.selectionStart()); + case TextAreaSelectionEnd: return Number(textarea.selectionEnd()); + case TextAreaTextLength: return Number(textarea.textLength()); + } + } + break; + case ID_BUTTON: { + DOM::HTMLButtonElement button = element; + switch (token) { + case ButtonForm: return getDOMNode(exec,button.form()); // type HTMLFormElement + case ButtonAccessKey: return String(button.accessKey()); + case ButtonDisabled: return Boolean(button.disabled()); + case ButtonName: return String(button.name()); + case ButtonTabIndex: return Number(button.tabIndex()); + case ButtonType: return String(button.type()); + case ButtonValue: return String(button.value()); + } + } + break; + case ID_LABEL: { + DOM::HTMLLabelElement label = element; + switch (token) { + case LabelForm: return getDOMNode(exec,label.form()); // type HTMLFormElement + case LabelAccessKey: return String(label.accessKey()); + case LabelHtmlFor: return String(label.htmlFor()); + } + } + break; + case ID_FIELDSET: { + DOM::HTMLFieldSetElement fieldSet = element; + switch (token) { + case FieldSetForm: return getDOMNode(exec,fieldSet.form()); // type HTMLFormElement + } + } + break; + case ID_LEGEND: { + DOM::HTMLLegendElement legend = element; + switch (token) { + case LegendForm: return getDOMNode(exec,legend.form()); // type HTMLFormElement + case LegendAccessKey: return String(legend.accessKey()); + case LegendAlign: return String(legend.align()); + } + } + break; + case ID_UL: { + DOM::HTMLUListElement uList = element; + switch (token) { + case UListCompact: return Boolean(uList.compact()); + case UListType: return String(uList.type()); + } + } + break; + case ID_OL: { + DOM::HTMLOListElement oList = element; + switch (token) { + case OListCompact: return Boolean(oList.compact()); + case OListStart: return Number(oList.start()); + case OListType: return String(oList.type()); + } + } + break; + case ID_DL: { + DOM::HTMLDListElement dList = element; + switch (token) { + case DListCompact: return Boolean(dList.compact()); + } + } + break; + case ID_DIR: { + DOM::HTMLDirectoryElement directory = element; + switch (token) { + case DirectoryCompact: return Boolean(directory.compact()); + } + } + break; + case ID_MENU: { + DOM::HTMLMenuElement menu = element; + switch (token) { + case MenuCompact: return Boolean(menu.compact()); + } + } + break; + case ID_LI: { + DOM::HTMLLIElement li = element; + switch (token) { + case LIType: return String(li.type()); + case LIValue: return Number(li.value()); + } + } + break; + case ID_DIV: { + DOM::HTMLDivElement div = element; + switch (token) { + case DivAlign: return String(div.align()); + } + } + break; + case ID_P: { + DOM::HTMLParagraphElement paragraph = element; + switch (token) { + case ParagraphAlign: return String(paragraph.align()); + } + } + break; + case ID_H1: + case ID_H2: + case ID_H3: + case ID_H4: + case ID_H5: + case ID_H6: { + DOM::HTMLHeadingElement heading = element; + switch (token) { + case HeadingAlign: return String(heading.align()); + } + } + break; + case ID_BLOCKQUOTE: { + DOM::HTMLBlockquoteElement blockquote = element; + switch (token) { + case BlockQuoteCite: return String(blockquote.cite()); + } + } + case ID_Q: { + DOM::HTMLQuoteElement quote = element; + switch (token) { + case QuoteCite: return String(quote.cite()); + } + } + case ID_PRE: { + DOM::HTMLPreElement pre = element; + switch (token) { + case PreWidth: return Number(pre.width()); + } + } + break; + case ID_BR: { + DOM::HTMLBRElement br = element; + switch (token) { + case BRClear: return String(br.clear()); + } + } + break; + case ID_BASEFONT: { + DOM::HTMLBaseFontElement baseFont = element; + switch (token) { + case BaseFontColor: return String(baseFont.color()); + case BaseFontFace: return String(baseFont.face()); + case BaseFontSize: return Number(baseFont.getSize()); + } + } + break; + case ID_FONT: { + DOM::HTMLFontElement font = element; + switch (token) { + case FontColor: return String(font.color()); + case FontFace: return String(font.face()); + case FontSize: return String(font.size()); + } + } + break; + case ID_HR: { + DOM::HTMLHRElement hr = element; + switch (token) { + case HRAlign: return String(hr.align()); + case HRNoShade: return Boolean(hr.noShade()); + case HRSize: return String(hr.size()); + case HRWidth: return String(hr.width()); + } + } + break; + case ID_INS: + case ID_DEL: { + DOM::HTMLModElement mod = element; + switch (token) { + case ModCite: return String(mod.cite()); + case ModDateTime: return String(mod.dateTime()); + } + } + break; + case ID_A: { + DOM::HTMLAnchorElement anchor = element; + switch (token) { + case AnchorAccessKey: return String(anchor.accessKey()); + case AnchorCharset: return String(anchor.charset()); + case AnchorCoords: return String(anchor.coords()); + case AnchorHref: return String(anchor.href()); + case AnchorHrefLang: return String(anchor.hreflang()); + case AnchorHash: return String('#'+KURL(anchor.href().string()).ref()); + case AnchorHost: return String(KURL(anchor.href().string()).host()); + case AnchorHostname: { + KURL url(anchor.href().string()); + kdDebug(6070) << "anchor::hostname uses:" <<url.url()<<endl; + if (url.port()==0) + return String(url.host()); + else + return String(url.host() + ":" + TQString::number(url.port())); + } + case AnchorPathName: return String(KURL(anchor.href().string()).path()); + case AnchorPort: return String(TQString::number(KURL(anchor.href().string()).port())); + case AnchorProtocol: return String(KURL(anchor.href().string()).protocol()+":"); + case AnchorSearch: { KURL u(anchor.href().string()); + TQString q = u.query(); + if (q.length() == 1) + return String(); + return String(q); } + case AnchorName: return String(anchor.name()); + case AnchorRel: return String(anchor.rel()); + case AnchorRev: return String(anchor.rev()); + case AnchorShape: return String(anchor.shape()); + case AnchorTabIndex: return Number(anchor.tabIndex()); + case AnchorTarget: return String(anchor.target()); + // Not specified in http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/a.asp + // Mozilla returns the inner text. + case AnchorText: return String(anchor.innerText()); + case AnchorType: return String(anchor.type()); + } + } + break; + case ID_IMG: { + DOM::HTMLImageElement image = element; + switch (token) { + case ImageName: return String(image.name()); // NOT getString (IE gives empty string) + case ImageAlign: return String(image.align()); + case ImageAlt: return String(image.alt()); + case ImageBorder: return String(image.getBorder()); + case ImageComplete: return Boolean(static_cast<DOM::HTMLImageElementImpl*>( image.handle() )->complete()); + case ImageHeight: return Number(image.height()); + case ImageHspace: return Number(image.hspace()); + case ImageIsMap: return Boolean(image.isMap()); + case ImageLongDesc: return String(image.longDesc()); + case ImageSrc: return String(image.src()); + case ImageUseMap: return String(image.useMap()); + case ImageVspace: return Number(image.vspace()); + case ImageWidth: return Number(image.width()); + case ImageX: return Number(image.x()); + case ImageY: return Number(image.y()); + } + } + break; + case ID_OBJECT: { + DOM::HTMLObjectElement object = element; + switch (token) { + case ObjectForm: return getDOMNode(exec,object.form()); // type HTMLFormElement + case ObjectCode: return String(object.code()); + case ObjectAlign: return String(object.align()); + case ObjectArchive: return String(object.archive()); + case ObjectBorder: return String(object.border()); + case ObjectCodeBase: return String(object.codeBase()); + case ObjectCodeType: return String(object.codeType()); + case ObjectContentDocument: return checkNodeSecurity(exec,object.contentDocument()) ? + getDOMNode(exec, object.contentDocument()) : Undefined(); + case ObjectData: return String(object.data()); + case ObjectDeclare: return Boolean(object.declare()); + case ObjectHeight: return String(object.height()); + case ObjectHspace: return Number(object.getHspace()); + case ObjectName: return String(object.name()); + case ObjectStandby: return String(object.standby()); + case ObjectTabIndex: return Number(object.tabIndex()); + case ObjectType: return String(object.type()); + case ObjectUseMap: return String(object.useMap()); + case ObjectVspace: return Number(object.getVspace()); + case ObjectWidth: return String(object.width()); + } + } + break; + case ID_PARAM: { + DOM::HTMLParamElement param = element; + switch (token) { + case ParamName: return String(param.name()); + case ParamType: return String(param.type()); + case ParamValue: return String(param.value()); + case ParamValueType: return String(param.valueType()); + } + } + break; + case ID_APPLET: { + DOM::HTMLAppletElement applet = element; + switch (token) { + case AppletAlign: return String(applet.align()); + case AppletAlt: return String(applet.alt()); + case AppletArchive: return String(applet.archive()); + case AppletCode: return String(applet.code()); + case AppletCodeBase: return String(applet.codeBase()); + case AppletHeight: return String(applet.height()); + case AppletHspace: return Number(applet.getHspace()); + case AppletName: return String(applet.name()); + case AppletObject: return String(applet.object()); + case AppletVspace: return Number(applet.getVspace()); + case AppletWidth: return String(applet.width()); + } + } + break; + case ID_MAP: { + DOM::HTMLMapElement map = element; + switch (token) { + case MapAreas: return getHTMLCollection(exec, map.areas()); // type HTMLCollection + case MapName: return String(map.name()); + } + } + break; + case ID_AREA: { + DOM::HTMLAreaElement area = element; + switch (token) { + case AreaAccessKey: return String(area.accessKey()); + case AreaAlt: return String(area.alt()); + case AreaCoords: return String(area.coords()); + // Group everything that needs href + case AreaHref: + case AreaHash: + case AreaHost: + case AreaHostName: + case AreaPathName: + case AreaPort: + case AreaProtocol: + case AreaSearch: + { + DOM::Document doc = area.ownerDocument(); + DOM::DOMString href = area.href(); + KURL url; + if ( !href.isNull() ) { + url = doc.completeURL( href ).string(); + if ( href.isEmpty() ) + url.setFileName( TQString::null ); // href="" clears the filename (in IE) + } + switch(token) { + case AreaHref: + return String(url.url()); + case AreaHash: return String(url.isEmpty() ? "" : '#'+url.ref()); + case AreaHost: return String(url.host()); + case AreaHostName: { + if (url.port()==0) + return String(url.host()); + else + return String(url.host() + ":" + TQString::number(url.port())); + } + case AreaPathName: { + return String(url.path()); + } + case AreaPort: return String(TQString::number(url.port())); + case AreaProtocol: return String(url.isEmpty() ? "" : url.protocol()+":"); + case AreaSearch: return String(url.query()); + } + } + case AreaNoHref: return Boolean(area.noHref()); + case AreaShape: return String(area.shape()); + case AreaTabIndex: return Number(area.tabIndex()); + case AreaTarget: return String(area.target()); + } + } + break; + case ID_SCRIPT: { + DOM::HTMLScriptElement script = element; + switch (token) { + case ScriptText: return String(script.text()); + case ScriptHtmlFor: return String(script.htmlFor()); + case ScriptEvent: return String(script.event()); + case ScriptCharset: return String(script.charset()); + case ScriptDefer: return Boolean(script.defer()); + case ScriptSrc: return String(script.src()); + case ScriptType: return String(script.type()); + } + } + break; + case ID_TABLE: { + DOM::HTMLTableElement table = element; + switch (token) { + case TableCaption: return getDOMNode(exec,table.caption()); // type HTMLTableCaptionElement + case TableTHead: return getDOMNode(exec,table.tHead()); // type HTMLTableSectionElement + case TableTFoot: return getDOMNode(exec,table.tFoot()); // type HTMLTableSectionElement + case TableRows: return getHTMLCollection(exec,table.rows()); // type HTMLCollection + case TableTBodies: return getHTMLCollection(exec,table.tBodies()); // type HTMLCollection + case TableAlign: return String(table.align()); + case TableBgColor: return String(table.bgColor()); + case TableBorder: return String(table.border()); + case TableCellPadding: return String(table.cellPadding()); + case TableCellSpacing: return String(table.cellSpacing()); + case TableFrame: return String(table.frame()); + case TableRules: return String(table.rules()); + case TableSummary: return String(table.summary()); + case TableWidth: return String(table.width()); + } + } + break; + case ID_CAPTION: { + DOM::HTMLTableCaptionElement tableCaption = element; + switch (token) { + case TableCaptionAlign: return String(tableCaption.align()); + } + } + break; + case ID_COL: + case ID_COLGROUP: { + DOM::HTMLTableColElement tableCol = element; + switch (token) { + case TableColAlign: return String(tableCol.align()); + case TableColCh: return String(tableCol.ch()); + case TableColChOff: return String(tableCol.chOff()); + case TableColSpan: return Number(tableCol.span()); + case TableColVAlign: return String(tableCol.vAlign()); + case TableColWidth: return String(tableCol.width()); + } + } + break; + case ID_THEAD: + case ID_TBODY: + case ID_TFOOT: { + DOM::HTMLTableSectionElement tableSection = element; + switch (token) { + case TableSectionAlign: return String(tableSection.align()); + case TableSectionCh: return String(tableSection.ch()); + case TableSectionChOff: return String(tableSection.chOff()); + case TableSectionVAlign: return String(tableSection.vAlign()); + case TableSectionRows: return getHTMLCollection(exec,tableSection.rows()); // type HTMLCollection + } + } + break; + case ID_TR: { + DOM::HTMLTableRowElement tableRow = element; + switch (token) { + case TableRowRowIndex: return Number(tableRow.rowIndex()); + case TableRowSectionRowIndex: return Number(tableRow.sectionRowIndex()); + case TableRowCells: return getHTMLCollection(exec,tableRow.cells()); // type HTMLCollection + case TableRowAlign: return String(tableRow.align()); + case TableRowBgColor: return String(tableRow.bgColor()); + case TableRowCh: return String(tableRow.ch()); + case TableRowChOff: return String(tableRow.chOff()); + case TableRowVAlign: return String(tableRow.vAlign()); + } + } + break; + case ID_TH: + case ID_TD: { + DOM::HTMLTableCellElement tableCell = element; + switch (token) { + case TableCellCellIndex: return Number(tableCell.cellIndex()); + case TableCellAbbr: return String(tableCell.abbr()); + case TableCellAlign: return String(tableCell.align()); + case TableCellAxis: return String(tableCell.axis()); + case TableCellBgColor: return String(tableCell.bgColor()); + case TableCellCh: return String(tableCell.ch()); + case TableCellChOff: return String(tableCell.chOff()); + case TableCellColSpan: return Number(tableCell.colSpan()); + case TableCellHeaders: return String(tableCell.headers()); + case TableCellHeight: return String(tableCell.height()); + case TableCellNoWrap: return Boolean(tableCell.noWrap()); + case TableCellRowSpan: return Number(tableCell.rowSpan()); + case TableCellScope: return String(tableCell.scope()); + case TableCellVAlign: return String(tableCell.vAlign()); + case TableCellWidth: return String(tableCell.width()); + } + } + break; + case ID_FRAMESET: { + DOM::HTMLFrameSetElement frameSet = element; + switch (token) { + case FrameSetCols: return String(frameSet.cols()); + case FrameSetRows: return String(frameSet.rows()); + } + } + break; + case ID_LAYER: { + DOM::HTMLLayerElement layerElement = element; + switch (token) { + case LayerTop: return Number(layerElement.top()); + case LayerLeft: return Number(layerElement.left()); + case LayerVisibility: return getString(layerElement.visibility()); + case LayerBgColor: return getString(layerElement.bgColor()); + /*case LayerClip: return getLayerClip(exec, layerElement); */ + case LayerDocument: return Undefined(); + case LayerLayers: return getHTMLCollection(exec,layerElement.layers()); + } + } + break; + case ID_FRAME: { + DOM::HTMLFrameElement frameElement = element; + switch (token) { + case FrameContentDocument: return checkNodeSecurity(exec,frameElement.contentDocument()) ? + getDOMNode(exec, frameElement.contentDocument()) : Undefined(); + case FrameContentWindow: { + TDEHTMLPart* part = static_cast<DOM::HTMLFrameElementImpl*>(frameElement.handle())->contentPart(); + if (part) { + Window *w = Window::retrieveWindow(part); + if (w) + return Value(w); + } + return Undefined(); + } + case FrameFrameBorder: return String(frameElement.frameBorder()); + case FrameLongDesc: return String(frameElement.longDesc()); + case FrameMarginHeight: return String(frameElement.marginHeight()); + case FrameMarginWidth: return String(frameElement.marginWidth()); + case FrameName: return String(frameElement.name()); + case FrameNoResize: return Boolean(frameElement.noResize()); + case FrameScrolling: return String(frameElement.scrolling()); + case FrameSrc: + case FrameLocation: return String(frameElement.src()); + // IE only + case FrameWidth: + case FrameHeight: + { + frameElement.handle()->getDocument()->updateLayout(); + tdehtml::RenderObject* r = frameElement.handle()->renderer(); + return Number( r ? (token == FrameWidth ? r->width() : r->height()) : 0 ); + } + } + } + break; + case ID_IFRAME: { + DOM::HTMLIFrameElement iFrame = element; + switch (token) { + case IFrameAlign: return String(iFrame.align()); + case IFrameContentDocument: return checkNodeSecurity(exec,iFrame.contentDocument()) ? + getDOMNode(exec, iFrame.contentDocument()) : Undefined(); + case IFrameContentWindow: { + TDEHTMLPart* part = static_cast<DOM::HTMLIFrameElementImpl*>(iFrame.handle())->contentPart(); + if (part) { + Window *w = Window::retrieveWindow(part); + if (w) + return Value(w); + } + return Undefined(); + } + case IFrameFrameBorder: return String(iFrame.frameBorder()); + case IFrameHeight: return String(iFrame.height()); + case IFrameLongDesc: return String(iFrame.longDesc()); + case IFrameMarginHeight: return String(iFrame.marginHeight()); + case IFrameMarginWidth: return String(iFrame.marginWidth()); + case IFrameName: return String(iFrame.name()); + case IFrameScrolling: return String(iFrame.scrolling()); + case IFrameSrc: return String(iFrame.src()); + case IFrameWidth: return String(iFrame.width()); + } + break; + } + } // xemacs (or arnt) could be a bit smarter when it comes to indenting switch()es ;) + // its not arnt to blame - its the original Stroustrup style we like :) (Dirk) + + // generic properties + switch (token) { + case ElementId: + return String(element.id()); // String is wrong here. Other browsers return empty string if no id specified. + case ElementTitle: + return String(element.title()); + case ElementLang: + return String(element.lang()); + case ElementDir: + return String(element.dir()); + case ElementClassName: + return String(element.className()); + case ElementInnerHTML: + return String(element.innerHTML()); + case ElementInnerText: + return String(element.innerText()); + case ElementDocument: + return getDOMNode(exec,element.ownerDocument()); + case ElementChildren: + return getHTMLCollection(exec,element.children()); + case ElementAll: + // Disable element.all when we try to be Netscape-compatible + if ( exec->interpreter()->compatMode() == Interpreter::NetscapeCompat ) + return Undefined(); + else + if ( exec->interpreter()->compatMode() == Interpreter::IECompat ) + return getHTMLCollection(exec,element.all()); + else // Enabled but hidden by default + return getHTMLCollection(exec,element.all(), true); + // ### what about style? or is this used instead for DOM2 stylesheets? + } + kdError() << "HTMLElement::getValueProperty unhandled token " << token << endl; + return Undefined(); +} + +bool KJS::HTMLElement::hasProperty(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + //kdDebug(6070) << "HTMLElement::hasProperty " << propertyName.qstring() << endl; +#endif + DOM::HTMLElement element = static_cast<DOM::HTMLElement>(node); + // First look at dynamic properties - keep this in sync with tryGet + switch (element.elementId()) { + case ID_FORM: { + DOM::HTMLFormElement form = element; + // Check if we're retrieving an element (by index or by name) + bool ok; + uint u = propertyName.toULong(&ok); + if (ok && !(form.elements().item(u).isNull())) + return true; + DOM::Node testnode = form.elements().namedItem(propertyName.string()); + if (!testnode.isNull()) + return true; + } + case ID_SELECT: { + DOM::HTMLSelectElement select = element; + bool ok; + uint u = propertyName.toULong(&ok); + if (ok && !(select.options().item(u).isNull())) + return true; + } + default: + break; + } + + return DOMElement::hasProperty(exec, propertyName); +} + +UString KJS::HTMLElement::toString(ExecState *exec) const +{ + if (node.elementId() == ID_A) + return UString(static_cast<const DOM::HTMLAnchorElement&>(node).href()); + else if (node.elementId() == ID_APPLET) { + KParts::LiveConnectExtension *lc = getLiveConnectExtension(node); + TQStringList qargs; + TQString retvalue; + KParts::LiveConnectExtension::Type rettype; + unsigned long retobjid; + if (lc && lc->call(0, "hashCode", qargs, rettype, retobjid, retvalue)) { + TQString str("[object APPLET ref="); + return UString(str + retvalue + TQString("]")); + } + } else if (node.elementId() == ID_IMG) { + DOM::HTMLImageElement image(node); + if (!image.alt().isEmpty()) + return UString(image.alt()) + " " + DOMElement::toString(exec); + } + return DOMElement::toString(exec); +} + +static void getForm(DOM::HTMLFormElement* form, const DOM::HTMLElement& element) +{ + switch (element.elementId()) { + case ID_ISINDEX: { + DOM::HTMLIsIndexElement isindex = element; + *form = isindex.form(); + break; + } + case ID_SELECT: { + DOM::HTMLSelectElement select = element; + *form = select.form(); + break; + } + case ID_OPTION: { + DOM::HTMLOptionElement option = element; + *form = option.form(); + break; + } + case ID_INPUT: { + DOM::HTMLInputElement input = element; + *form = input.form(); + break; + } + case ID_TEXTAREA: { + DOM::HTMLTextAreaElement textarea = element; + *form = textarea.form(); + break; + } + case ID_LABEL: { + DOM::HTMLLabelElement label = element; + *form = label.form(); + break; + } + case ID_FIELDSET: { + DOM::HTMLFieldSetElement fieldset = element; + *form = fieldset.form(); + break; + } + case ID_LEGEND: { + DOM::HTMLLegendElement legend = element; + *form = legend.form(); + break; + } + case ID_OBJECT: { + DOM::HTMLObjectElement object = element; + *form = object.form(); + break; + } + default: + break; + } +} + +void KJS::HTMLElement::pushEventHandlerScope(ExecState *exec, ScopeChain &scope) const +{ + DOM::HTMLElement element = static_cast<DOM::HTMLElement>(node); + + // The document is put on first, fall back to searching it only after the element and form. + scope.push(static_cast<ObjectImp *>(getDOMNode(exec, element.ownerDocument()).imp())); + + // The form is next, searched before the document, but after the element itself. + DOM::HTMLFormElement formElt; + + // First try to obtain the form from the element itself. We do this to deal with + // the malformed case where <form>s aren't in our parent chain (e.g., when they were inside + // <table> or <tbody>. + getForm(&formElt, element); + if (!formElt.isNull()) + scope.push(static_cast<ObjectImp *>(getDOMNode(exec, formElt).imp())); + else { + DOM::Node form = element.parentNode(); + while (!form.isNull() && form.elementId() != ID_FORM) + form = form.parentNode(); + + if (!form.isNull()) + scope.push(static_cast<ObjectImp *>(getDOMNode(exec, form).imp())); + } + + // The element is on top, searched first. + scope.push(static_cast<ObjectImp *>(getDOMNode(exec, element).imp())); +} + +HTMLElementFunction::HTMLElementFunction(ExecState *exec, int i, int len) + : DOMFunction(exec), id(i) +{ + Value protect(this); + put(exec,lengthPropertyName,Number(len),DontDelete|ReadOnly|DontEnum); +} + +Value KJS::HTMLElementFunction::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( HTMLElement, thisObj ); + +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLElementFunction::tryCall " << endl; +#endif + DOM::HTMLElement element = static_cast<KJS::HTMLElement *>(thisObj.imp())->toElement(); + + switch (element.elementId()) { + case ID_FORM: { + DOM::HTMLFormElement form = element; + if (id == KJS::HTMLElement::FormSubmit) { + + + DOM::HTMLDocument doc = element.ownerDocument(); + TDEHTMLView *view = static_cast<DOM::DocumentImpl*>(doc.handle())->view(); + TDEHTMLSettings::KJSWindowOpenPolicy policy = TDEHTMLSettings::KJSWindowOpenAllow; + if (view) + policy = view->part()->settings()->windowOpenPolicy(view->part()->url().host()); + + bool block = false; + + if ( policy != TDEHTMLSettings::KJSWindowOpenAllow ) { + block = true; + + // if this is a form without a target, or a special target, don't block + TQString trg = form.target().lower().string(); + if( trg.isEmpty() || trg == "_top" || trg == "_self" || + trg == "_parent") + block = false; + + TQString caption; + + // if there is a frame with the target name, don't block + if ( view && view->part() ) { + if (!view->part()->url().host().isEmpty()) + caption = view->part()->url().host() + " - "; + // search all (possibly nested) framesets + TDEHTMLPart *currentPart = view->part()->parentPart(); + while( currentPart != 0L ) { + if( currentPart->frameExists( form.target().string() ) ) + block = false; + currentPart = currentPart->parentPart(); + } + } + + if ( block && policy == TDEHTMLSettings::KJSWindowOpenAsk && view ) { + if (view && view->part()) + emit view->part()->browserExtension()->requestFocus(view->part()); + caption += i18n( "Confirmation: JavaScript Popup" ); + if ( KMessageBox::questionYesNo(view, form.action().isEmpty() ? + i18n( "This site is submitting a form which will open up a new browser " + "window via JavaScript.\n" + "Do you want to allow the form to be submitted?" ) : + i18n( "<qt>This site is submitting a form which will open <p>%1</p> in a new browser window via JavaScript.<br />" + "Do you want to allow the form to be submitted?</qt>").arg(KStringHandler::csqueeze(form.action().string(), 100)), + caption, i18n("Allow"), i18n("Do Not Allow") ) == KMessageBox::Yes ) + block = false; + + } else if ( block && policy == TDEHTMLSettings::KJSWindowOpenSmart ) { + if( static_cast<KJS::ScriptInterpreter *>(exec->interpreter())->isWindowOpenAllowed() ) { + // This submission has been triggered by the user + block = false; + } + } + } + + if( !block ) + form.submit(); + + return Undefined(); + } + else if (id == KJS::HTMLElement::FormReset) { + form.reset(); + return Undefined(); + } + } + break; + case ID_BODY: { + if (id == KJS::HTMLElement::BodyFocus) { + // Just blur everything. Not perfect, but good enough for now + if (DOM::NodeImpl* impl = element.handle()) { + impl->getDocument()->setFocusNode(0); + } + } + } + break; + case ID_SELECT: { + DOM::HTMLSelectElement select = element; + if (id == KJS::HTMLElement::SelectAdd) { + select.add(KJS::toNode(args[0]),KJS::toNode(args[1])); + return Undefined(); + } + else if (id == KJS::HTMLElement::SelectRemove) { + select.remove(int(args[0].toNumber(exec))); + return Undefined(); + } + else if (id == KJS::HTMLElement::SelectBlur) { + select.blur(); + return Undefined(); + } + else if (id == KJS::HTMLElement::SelectFocus) { + select.focus(); + return Undefined(); + } + } + break; + case ID_INPUT: { + DOM::HTMLInputElement input = element; + if (id == KJS::HTMLElement::InputBlur) { + input.blur(); + return Undefined(); + } + else if (id == KJS::HTMLElement::InputFocus) { + input.focus(); + return Undefined(); + } + else if (id == KJS::HTMLElement::InputSelect) { + input.select(); + return Undefined(); + } + else if (id == KJS::HTMLElement::InputClick) { + input.click(); + return Undefined(); + } + else if (id == KJS::HTMLElement::InputSetSelectionRange) { + input.setSelectionRange(args[0].toNumber(exec), args[1].toNumber(exec)); + return Undefined(); + } + } + break; + case ID_BUTTON: { + DOM::HTMLButtonElement button = element; + if (id == KJS::HTMLElement::ButtonBlur) { + button.blur(); + return Undefined(); + } + else if (id == KJS::HTMLElement::ButtonFocus) { + button.focus(); + return Undefined(); + } + } + break; + case ID_TEXTAREA: { + DOM::HTMLTextAreaElement textarea = element; + if (id == KJS::HTMLElement::TextAreaBlur) { + textarea.blur(); + return Undefined(); + } + else if (id == KJS::HTMLElement::TextAreaFocus) { + textarea.focus(); + return Undefined(); + } + else if (id == KJS::HTMLElement::TextAreaSelect) { + textarea.select(); + return Undefined(); + } + else if (id == KJS::HTMLElement::TextAreaSetSelectionRange) { + textarea.setSelectionRange(args[0].toNumber(exec), args[1].toNumber(exec)); + return Undefined(); + } + + } + break; + case ID_A: { + DOM::HTMLAnchorElement anchor = element; + if (id == KJS::HTMLElement::AnchorBlur) { + anchor.blur(); + return Undefined(); + } + else if (id == KJS::HTMLElement::AnchorFocus) { + anchor.focus(); + return Undefined(); + } + else if (id == KJS::HTMLElement::AnchorClick) { + static_cast<DOM::HTMLAnchorElementImpl*>(anchor.handle())->click(); + return Undefined(); + } + } + break; + case ID_TABLE: { + DOM::HTMLTableElement table = element; + if (id == KJS::HTMLElement::TableCreateTHead) + return getDOMNode(exec,table.createTHead()); + else if (id == KJS::HTMLElement::TableDeleteTHead) { + table.deleteTHead(); + return Undefined(); + } + else if (id == KJS::HTMLElement::TableCreateTFoot) + return getDOMNode(exec,table.createTFoot()); + else if (id == KJS::HTMLElement::TableDeleteTFoot) { + table.deleteTFoot(); + return Undefined(); + } + else if (id == KJS::HTMLElement::TableCreateCaption) + return getDOMNode(exec,table.createCaption()); + else if (id == KJS::HTMLElement::TableDeleteCaption) { + table.deleteCaption(); + return Undefined(); + } + else if (id == KJS::HTMLElement::TableInsertRow) + return getDOMNode(exec,table.insertRow(args[0].toInteger(exec))); + else if (id == KJS::HTMLElement::TableDeleteRow) { + table.deleteRow(args[0].toInteger(exec)); + return Undefined(); + } + } + break; + case ID_THEAD: + case ID_TBODY: + case ID_TFOOT: { + DOM::HTMLTableSectionElement tableSection = element; + if (id == KJS::HTMLElement::TableSectionInsertRow) + return getDOMNode(exec,tableSection.insertRow(args[0].toInteger(exec))); + else if (id == KJS::HTMLElement::TableSectionDeleteRow) { + tableSection.deleteRow(args[0].toInteger(exec)); + return Undefined(); + } + } + break; + case ID_TR: { + DOM::HTMLTableRowElement tableRow = element; + if (id == KJS::HTMLElement::TableRowInsertCell) + return getDOMNode(exec,tableRow.insertCell(args[0].toInteger(exec))); + else if (id == KJS::HTMLElement::TableRowDeleteCell) { + tableRow.deleteCell(args[0].toInteger(exec)); + return Undefined(); + } + break; + } + case ID_MARQUEE: { + if (id == KJS::HTMLElement::MarqueeStart && element.handle()->renderer() && + element.handle()->renderer()->layer() && + element.handle()->renderer()->layer()->marquee()) { + element.handle()->renderer()->layer()->marquee()->start(); + return Undefined(); + } + else if (id == KJS::HTMLElement::MarqueeStop && element.handle()->renderer() && + element.handle()->renderer()->layer() && + element.handle()->renderer()->layer()->marquee()) { + element.handle()->renderer()->layer()->marquee()->stop(); + return Undefined(); + } + break; + } + } + + if (id == HTMLElement::ElementScrollIntoView) { + bool alignToTop = true; + if (args.size() > 0) + alignToTop = args[0].toBoolean(exec); + static_cast<HTMLElementImpl*>(element.handle())->scrollIntoView(alignToTop); + return Undefined(); + } + + return Undefined(); +} + +void KJS::HTMLElement::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ +#ifdef KJS_VERBOSE + DOM::DOMString str = value.isA(NullType) ? DOM::DOMString() : value.toString(exec).string(); +#endif + DOM::HTMLElement element = static_cast<DOM::HTMLElement>(node); +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLElement::tryPut " << propertyName.qstring() + << " thisTag=" << element.tagName().string() + << " str=" << str.string() << endl; +#endif + // First look at dynamic properties + switch (element.elementId()) { + case ID_SELECT: { + DOM::HTMLSelectElement select = element; + bool ok; + /*uint u =*/ propertyName.toULong(&ok); + if (ok) { + Object coll = Object::dynamicCast( getSelectHTMLCollection(exec, select.options(), select) ); + if ( coll.isValid() ) + coll.put(exec,propertyName,value); + return; + } + break; + } + case ID_APPLET: + case ID_OBJECT: + case ID_EMBED: { + KParts::LiveConnectExtension *lc = getLiveConnectExtension(element); + if (lc && lc->put(0, propertyName.qstring(), value.toString(exec).qstring())) + return; + break; + } + default: + break; + } + + const HashTable* table = classInfo()->propHashTable; // get the right hashtable + const HashEntry* entry = table ? Lookup::findEntry(table, propertyName) : 0; + if (entry) { + if (entry->attr & Function) // function: put as override property + { + ObjectImp::put(exec, propertyName, value, attr); + return; + } + else if ((entry->attr & ReadOnly) == 0) // let DOMObjectLookupPut print the warning if not + { + putValueProperty(exec, entry->value, value, attr); + return; + } + } + DOMObjectLookupPut<KJS::HTMLElement, DOMElement>(exec, propertyName, value, attr, &KJS::HTMLElementTable, this); +} + +void KJS::HTMLElement::putValueProperty(ExecState *exec, int token, const Value& value, int) +{ + DOM::DOMString str = value.isA(NullType) ? DOM::DOMString() : value.toString(exec).string(); + DOMNode *kjsNode = new DOMNode(exec, KJS::toNode(value)); + // Need to create a Value wrapper to avoid leaking the KJS::DOMNode + Value nodeValue(kjsNode); + DOM::Node n = kjsNode->toNode(); + DOM::HTMLElement element = static_cast<DOM::HTMLElement>(node); +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLElement::putValueProperty " + << " thisTag=" << element.tagName().string() + << " token=" << token << endl; +#endif + + switch (element.elementId()) { + case ID_HTML: { + DOM::HTMLHtmlElement html = element; + switch (token) { + case HtmlVersion: { html.setVersion(str); return; } + } + } + break; + case ID_HEAD: { + DOM::HTMLHeadElement head = element; + switch (token) { + case HeadProfile: { head.setProfile(str); return; } + } + } + break; + case ID_LINK: { + DOM::HTMLLinkElement link = element; + switch (token) { + case LinkDisabled: { link.setDisabled(value.toBoolean(exec)); return; } + case LinkCharset: { link.setCharset(str); return; } + case LinkHref: { link.setHref(str); return; } + case LinkHrefLang: { link.setHreflang(str); return; } + case LinkMedia: { link.setMedia(str); return; } + case LinkRel: { link.setRel(str); return; } + case LinkRev: { link.setRev(str); return; } + case LinkTarget: { link.setTarget(str); return; } + case LinkType: { link.setType(str); return; } + } + } + break; + case ID_TITLE: { + DOM::HTMLTitleElement title = element; + switch (token) { + case TitleText: { title.setText(str); return; } + } + } + break; + case ID_META: { + DOM::HTMLMetaElement meta = element; + switch (token) { + case MetaContent: { meta.setContent(str); return; } + case MetaHttpEquiv: { meta.setHttpEquiv(str); return; } + case MetaName: { meta.setName(str); return; } + case MetaScheme: { meta.setScheme(str); return; } + } + } + break; + case ID_BASE: { + DOM::HTMLBaseElement base = element; + switch (token) { + case BaseHref: { base.setHref(str); return; } + case BaseTarget: { base.setTarget(str); return; } + } + } + break; + case ID_ISINDEX: { + DOM::HTMLIsIndexElement isindex = element; + switch (token) { + // read-only: form + case IsIndexPrompt: { isindex.setPrompt(str); return; } + } + } + break; + case ID_STYLE: { + DOM::HTMLStyleElement style = element; + switch (token) { + case StyleDisabled: { style.setDisabled(value.toBoolean(exec)); return; } + case StyleMedia: { style.setMedia(str); return; } + case StyleType: { style.setType(str); return; } + } + } + break; + case ID_BODY: { + DOM::HTMLBodyElement body = element; + switch (token) { + case BodyALink: { body.setALink(str); return; } + case BodyBackground: { body.setBackground(str); return; } + case BodyBgColor: { body.setBgColor(str); return; } + case BodyLink: { body.setLink(str); return; } + case BodyText: { body.setText(str); return; } + case BodyVLink: { body.setVLink(str); return; } + case BodyOnLoad: + DOM::DocumentImpl *doc = static_cast<DOM::DocumentImpl *>(node.ownerDocument().handle()); + if (doc && checkNodeSecurity(exec, node)) + { + DOMNode* kjsDocNode = new DOMNode(exec, doc); + // Need to create a Value wrapper to avoid leaking the KJS::DOMNode + Value nodeValue(kjsDocNode); + kjsDocNode->setListener(exec,DOM::EventImpl::LOAD_EVENT,value); + } + return; + } + } + break; + case ID_FORM: { + DOM::HTMLFormElement form = element; + switch (token) { + // read-only: elements + // read-only: length + case FormName: { form.setName(str); return; } + case FormAcceptCharset: { form.setAcceptCharset(str); return; } + case FormAction: { form.setAction(str.string()); return; } + case FormEncType: { form.setEnctype(str); return; } + case FormMethod: { form.setMethod(str); return; } + case FormTarget: { form.setTarget(str); return; } + } + } + break; + case ID_SELECT: { + DOM::HTMLSelectElement select = element; + switch (token) { + // read-only: type + case SelectSelectedIndex: { select.setSelectedIndex(value.toInteger(exec)); return; } + case SelectValue: { select.setValue(str); return; } + case SelectLength: { // read-only according to the NS spec, but webpages need it writeable + Object coll = Object::dynamicCast( getSelectHTMLCollection(exec, select.options(), select) ); + if ( coll.isValid() ) + coll.put(exec,"length",value); + return; + } + // read-only: form + // read-only: options + case SelectDisabled: { select.setDisabled(value.toBoolean(exec)); return; } + case SelectMultiple: { select.setMultiple(value.toBoolean(exec)); return; } + case SelectName: { select.setName(str); return; } + case SelectSize: { select.setSize(value.toInteger(exec)); return; } + case SelectTabIndex: { select.setTabIndex(value.toInteger(exec)); return; } + } + } + break; + case ID_OPTGROUP: { + DOM::HTMLOptGroupElement optgroup = element; + switch (token) { + case OptGroupDisabled: { optgroup.setDisabled(value.toBoolean(exec)); return; } + case OptGroupLabel: { optgroup.setLabel(str); return; } + } + } + break; + case ID_OPTION: { + DOM::HTMLOptionElement option = element; + switch (token) { + // read-only: form + case OptionDefaultSelected: { option.setDefaultSelected(value.toBoolean(exec)); return; } + // read-only: text <--- According to the DOM, but JavaScript and JScript both allow changes. + // So, we'll do it here and not add it to our DOM headers. + case OptionText: { DOM::NodeList nl(option.childNodes()); + for (unsigned int i = 0; i < nl.length(); i++) { + if (nl.item(i).nodeType() == DOM::Node::TEXT_NODE) { + static_cast<DOM::Text>(nl.item(i)).setData(str); + return; + } + } + // No child text node found, creating one + DOM::Text t = option.ownerDocument().createTextNode(str); + try { option.appendChild(t); } + catch(DOM::DOMException& e) { + // #### exec->setException ? + } + + return; + } + // read-only: index + case OptionDisabled: { option.setDisabled(value.toBoolean(exec)); return; } + case OptionLabel: { option.setLabel(str); return; } + case OptionSelected: { option.setSelected(value.toBoolean(exec)); return; } + case OptionValue: { option.setValue(str); return; } + } + } + break; + case ID_INPUT: { + DOM::HTMLInputElement input = element; + switch (token) { + case InputDefaultValue: { input.setDefaultValue(str); return; } + case InputDefaultChecked: { input.setDefaultChecked(value.toBoolean(exec)); return; } + // read-only: form + case InputAccept: { input.setAccept(str); return; } + case InputAccessKey: { input.setAccessKey(str); return; } + case InputAlign: { input.setAlign(str); return; } + case InputAlt: { input.setAlt(str); return; } + case InputChecked: { input.setChecked(value.toBoolean(exec)); return; } + case InputIndeterminate: { input.setIndeterminate(value.toBoolean(exec)); return; } + case InputDisabled: { input.setDisabled(value.toBoolean(exec)); return; } + case InputMaxLength: { input.setMaxLength(value.toInteger(exec)); return; } + case InputName: { input.setName(str); return; } + case InputReadOnly: { input.setReadOnly(value.toBoolean(exec)); return; } + case InputSize: { input.setSize(value.toInteger(exec)); return; } + case InputSrc: { input.setSrc(str); return; } + case InputTabIndex: { input.setTabIndex(value.toInteger(exec)); return; } + case InputType: { input.setType(str); return; } + case InputUseMap: { input.setUseMap(str); return; } + case InputValue: { input.setValue(str); return; } + case InputSelectionStart: { input.setSelectionStart(value.toInteger(exec)); return; } + case InputSelectionEnd: { input.setSelectionEnd (value.toInteger(exec)); return; } + } + } + break; + case ID_TEXTAREA: { + DOM::HTMLTextAreaElement textarea = element; + switch (token) { + case TextAreaDefaultValue: { textarea.setDefaultValue(str); return; } + // read-only: form + case TextAreaAccessKey: { textarea.setAccessKey(str); return; } + case TextAreaCols: { textarea.setCols(value.toInteger(exec)); return; } + case TextAreaDisabled: { textarea.setDisabled(value.toBoolean(exec)); return; } + case TextAreaName: { textarea.setName(str); return; } + case TextAreaReadOnly: { textarea.setReadOnly(value.toBoolean(exec)); return; } + case TextAreaRows: { textarea.setRows(value.toInteger(exec)); return; } + case TextAreaTabIndex: { textarea.setTabIndex(value.toInteger(exec)); return; } + // read-only: type + case TextAreaValue: { textarea.setValue(str); return; } + case TextAreaSelectionStart: { textarea.setSelectionStart(value.toInteger(exec)); return; } + case TextAreaSelectionEnd: { textarea.setSelectionEnd (value.toInteger(exec)); return; } + } + } + break; + case ID_BUTTON: { + DOM::HTMLButtonElement button = element; + switch (token) { + // read-only: form + case ButtonAccessKey: { button.setAccessKey(str); return; } + case ButtonDisabled: { button.setDisabled(value.toBoolean(exec)); return; } + case ButtonName: { button.setName(str); return; } + case ButtonTabIndex: { button.setTabIndex(value.toInteger(exec)); return; } + // read-only: type + case ButtonValue: { button.setValue(str); return; } + } + } + break; + case ID_LABEL: { + DOM::HTMLLabelElement label = element; + switch (token) { + // read-only: form + case LabelAccessKey: { label.setAccessKey(str); return; } + case LabelHtmlFor: { label.setHtmlFor(str); return; } + } + } + break; +// case ID_FIELDSET: { +// DOM::HTMLFieldSetElement fieldSet = element; +// // read-only: form +// } +// break; + case ID_LEGEND: { + DOM::HTMLLegendElement legend = element; + switch (token) { + // read-only: form + case LegendAccessKey: { legend.setAccessKey(str); return; } + case LegendAlign: { legend.setAlign(str); return; } + } + } + break; + case ID_UL: { + DOM::HTMLUListElement uList = element; + switch (token) { + case UListCompact: { uList.setCompact(value.toBoolean(exec)); return; } + case UListType: { uList.setType(str); return; } + } + } + break; + case ID_OL: { + DOM::HTMLOListElement oList = element; + switch (token) { + case OListCompact: { oList.setCompact(value.toBoolean(exec)); return; } + case OListStart: { oList.setStart(value.toInteger(exec)); return; } + case OListType: { oList.setType(str); return; } + } + } + break; + case ID_DL: { + DOM::HTMLDListElement dList = element; + switch (token) { + case DListCompact: { dList.setCompact(value.toBoolean(exec)); return; } + } + } + break; + case ID_DIR: { + DOM::HTMLDirectoryElement directory = element; + switch (token) { + case DirectoryCompact: { directory.setCompact(value.toBoolean(exec)); return; } + } + } + break; + case ID_MENU: { + DOM::HTMLMenuElement menu = element; + switch (token) { + case MenuCompact: { menu.setCompact(value.toBoolean(exec)); return; } + } + } + break; + case ID_LI: { + DOM::HTMLLIElement li = element; + switch (token) { + case LIType: { li.setType(str); return; } + case LIValue: { li.setValue(value.toInteger(exec)); return; } + } + } + break; + case ID_DIV: { + DOM::HTMLDivElement div = element; + switch (token) { + case DivAlign: { div.setAlign(str); return; } + } + } + break; + case ID_P: { + DOM::HTMLParagraphElement paragraph = element; + switch (token) { + case ParagraphAlign: { paragraph.setAlign(str); return; } + } + } + break; + case ID_H1: + case ID_H2: + case ID_H3: + case ID_H4: + case ID_H5: + case ID_H6: { + DOM::HTMLHeadingElement heading = element; + switch (token) { + case HeadingAlign: { heading.setAlign(str); return; } + } + } + break; + case ID_BLOCKQUOTE: { + DOM::HTMLBlockquoteElement blockquote = element; + switch (token) { + case BlockQuoteCite: { blockquote.setCite(str); return; } + } + } + break; + case ID_Q: { + DOM::HTMLQuoteElement quote = element; + switch (token) { + case QuoteCite: { quote.setCite(str); return; } + } + } + break; + case ID_PRE: { + DOM::HTMLPreElement pre = element; + switch (token) { + case PreWidth: { pre.setWidth(value.toInteger(exec)); return; } + } + } + break; + case ID_BR: { + DOM::HTMLBRElement br = element; + switch (token) { + case BRClear: { br.setClear(str); return; } + } + } + break; + case ID_BASEFONT: { + DOM::HTMLBaseFontElement baseFont = element; + switch (token) { + case BaseFontColor: { baseFont.setColor(str); return; } + case BaseFontFace: { baseFont.setFace(str); return; } + case BaseFontSize: { baseFont.setSize(value.toInteger(exec)); return; } + } + } + break; + case ID_FONT: { + DOM::HTMLFontElement font = element; + switch (token) { + case FontColor: { font.setColor(str); return; } + case FontFace: { font.setFace(str); return; } + case FontSize: { font.setSize(str); return; } + } + } + break; + case ID_HR: { + DOM::HTMLHRElement hr = element; + switch (token) { + case HRAlign: { hr.setAlign(str); return; } + case HRNoShade: { hr.setNoShade(value.toBoolean(exec)); return; } + case HRSize: { hr.setSize(str); return; } + case HRWidth: { hr.setWidth(str); return; } + } + } + break; + case ID_INS: + case ID_DEL: { + DOM::HTMLModElement mod = element; + switch (token) { + case ModCite: { mod.setCite(str); return; } + case ModDateTime: { mod.setDateTime(str); return; } + } + } + break; + case ID_A: { + DOM::HTMLAnchorElement anchor = element; + switch (token) { + case AnchorAccessKey: { anchor.setAccessKey(str); return; } + case AnchorCharset: { anchor.setCharset(str); return; } + case AnchorCoords: { anchor.setCoords(str); return; } + case AnchorHref: { anchor.setHref(str); return; } + case AnchorHrefLang: { anchor.setHreflang(str); return; } + case AnchorSearch: { KURL href(anchor.href().string()); + TQString q = str.isEmpty() ? TQString() : str.string(); + href.setQuery(q); + anchor.setHref(href.url()); return; } + case AnchorName: { anchor.setName(str); return; } + case AnchorRel: { anchor.setRel(str); return; } + case AnchorRev: { anchor.setRev(str); return; } + case AnchorShape: { anchor.setShape(str); return; } + case AnchorTabIndex: { anchor.setTabIndex(value.toInteger(exec)); return; } + case AnchorTarget: { anchor.setTarget(str); return; } + case AnchorType: { anchor.setType(str); return; } + } + } + break; + case ID_IMG: { + DOM::HTMLImageElement image = element; + switch (token) { + case ImageName: { image.setName(str); return; } + case ImageAlign: { image.setAlign(str); return; } + case ImageAlt: { image.setAlt(str); return; } + case ImageBorder: { image.setBorder(str); return; } + case ImageHeight: { image.setHeight(value.toInteger(exec)); return; } + case ImageHspace: { image.setHspace(value.toInteger(exec)); return; } + case ImageIsMap: { image.setIsMap(value.toBoolean(exec)); return; } + case ImageLongDesc: { image.setLongDesc(str); return; } + case ImageSrc: { image.setSrc(str); return; } + case ImageUseMap: { image.setUseMap(str); return; } + case ImageVspace: { image.setVspace(value.toInteger(exec)); return; } + case ImageWidth: { image.setWidth(value.toInteger(exec)); return; } + } + } + break; + case ID_OBJECT: { + DOM::HTMLObjectElement object = element; + switch (token) { + // read-only: form + case ObjectCode: { object.setCode(str); return; } + case ObjectAlign: { object.setAlign(str); return; } + case ObjectArchive: { object.setArchive(str); return; } + case ObjectBorder: { object.setBorder(str); return; } + case ObjectCodeBase: { object.setCodeBase(str); return; } + case ObjectCodeType: { object.setCodeType(str); return; } + // read-only: ObjectContentDocument + case ObjectData: { object.setData(str); return; } + case ObjectDeclare: { object.setDeclare(value.toBoolean(exec)); return; } + case ObjectHeight: { object.setHeight(str); return; } + case ObjectHspace: { object.setHspace(value.toInteger(exec)); return; } + case ObjectName: { object.setName(str); return; } + case ObjectStandby: { object.setStandby(str); return; } + case ObjectTabIndex: { object.setTabIndex(value.toInteger(exec)); return; } + case ObjectType: { object.setType(str); return; } + case ObjectUseMap: { object.setUseMap(str); return; } + case ObjectVspace: { object.setVspace(value.toInteger(exec)); return; } + case ObjectWidth: { object.setWidth(str); return; } + } + } + break; + case ID_PARAM: { + DOM::HTMLParamElement param = element; + switch (token) { + case ParamName: { param.setName(str); return; } + case ParamType: { param.setType(str); return; } + case ParamValue: { param.setValue(str); return; } + case ParamValueType: { param.setValueType(str); return; } + } + } + break; + case ID_APPLET: { + DOM::HTMLAppletElement applet = element; + switch (token) { + case AppletAlign: { applet.setAlign(str); return; } + case AppletAlt: { applet.setAlt(str); return; } + case AppletArchive: { applet.setArchive(str); return; } + case AppletCode: { applet.setCode(str); return; } + case AppletCodeBase: { applet.setCodeBase(str); return; } + case AppletHeight: { applet.setHeight(str); return; } + case AppletHspace: { applet.setHspace(value.toInteger(exec)); return; } + case AppletName: { applet.setName(str); return; } + case AppletObject: { applet.setObject(str); return; } + case AppletVspace: { applet.setVspace(value.toInteger(exec)); return; } + case AppletWidth: { applet.setWidth(str); return; } + } + } + break; + case ID_MAP: { + DOM::HTMLMapElement map = element; + switch (token) { + // read-only: areas + case MapName: { map.setName(str); return; } + } + } + break; + case ID_AREA: { + DOM::HTMLAreaElement area = element; + switch (token) { + case AreaAccessKey: { area.setAccessKey(str); return; } + case AreaAlt: { area.setAlt(str); return; } + case AreaCoords: { area.setCoords(str); return; } + case AreaHref: { area.setHref(str); return; } + case AreaNoHref: { area.setNoHref(value.toBoolean(exec)); return; } + case AreaShape: { area.setShape(str); return; } + case AreaTabIndex: { area.setTabIndex(value.toInteger(exec)); return; } + case AreaTarget: { area.setTarget(str); return; } + } + } + break; + case ID_SCRIPT: { + DOM::HTMLScriptElement script = element; + switch (token) { + case ScriptText: { script.setText(str); return; } + case ScriptHtmlFor: { script.setHtmlFor(str); return; } + case ScriptEvent: { script.setEvent(str); return; } + case ScriptCharset: { script.setCharset(str); return; } + case ScriptDefer: { script.setDefer(value.toBoolean(exec)); return; } + case ScriptSrc: { script.setSrc(str); return; } + case ScriptType: { script.setType(str); return; } + } + } + break; + case ID_TABLE: { + DOM::HTMLTableElement table = element; + switch (token) { + case TableCaption: { table.setCaption(n); return; } // type HTMLTableCaptionElement + case TableTHead: { table.setTHead(n); return; } // type HTMLTableSectionElement + case TableTFoot: { table.setTFoot(n); return; } // type HTMLTableSectionElement + // read-only: rows + // read-only: tbodies + case TableAlign: { table.setAlign(str); return; } + case TableBgColor: { table.setBgColor(str); return; } + case TableBorder: { table.setBorder(str); return; } + case TableCellPadding: { table.setCellPadding(str); return; } + case TableCellSpacing: { table.setCellSpacing(str); return; } + case TableFrame: { table.setFrame(str); return; } + case TableRules: { table.setRules(str); return; } + case TableSummary: { table.setSummary(str); return; } + case TableWidth: { table.setWidth(str); return; } + } + } + break; + case ID_CAPTION: { + DOM::HTMLTableCaptionElement tableCaption = element; + switch (token) { + case TableCaptionAlign: { tableCaption.setAlign(str); return; } + } + } + break; + case ID_COL: + case ID_COLGROUP: { + DOM::HTMLTableColElement tableCol = element; + switch (token) { + case TableColAlign: { tableCol.setAlign(str); return; } + case TableColCh: { tableCol.setCh(str); return; } + case TableColChOff: { tableCol.setChOff(str); return; } + case TableColSpan: { tableCol.setSpan(value.toInteger(exec)); return; } + case TableColVAlign: { tableCol.setVAlign(str); return; } + case TableColWidth: { tableCol.setWidth(str); return; } + } + } + break; + case ID_THEAD: + case ID_TBODY: + case ID_TFOOT: { + DOM::HTMLTableSectionElement tableSection = element; + switch (token) { + case TableSectionAlign: { tableSection.setAlign(str); return; } + case TableSectionCh: { tableSection.setCh(str); return; } + case TableSectionChOff: { tableSection.setChOff(str); return; } + case TableSectionVAlign: { tableSection.setVAlign(str); return; } + // read-only: rows + } + } + break; + case ID_TR: { + DOM::HTMLTableRowElement tableRow = element; + switch (token) { + // read-only: rowIndex + // read-only: sectionRowIndex + // read-only: cells + case TableRowAlign: { tableRow.setAlign(str); return; } + case TableRowBgColor: { tableRow.setBgColor(str); return; } + case TableRowCh: { tableRow.setCh(str); return; } + case TableRowChOff: { tableRow.setChOff(str); return; } + case TableRowVAlign: { tableRow.setVAlign(str); return; } + } + } + break; + case ID_TH: + case ID_TD: { + DOM::HTMLTableCellElement tableCell = element; + switch (token) { + // read-only: cellIndex + case TableCellAbbr: { tableCell.setAbbr(str); return; } + case TableCellAlign: { tableCell.setAlign(str); return; } + case TableCellAxis: { tableCell.setAxis(str); return; } + case TableCellBgColor: { tableCell.setBgColor(str); return; } + case TableCellCh: { tableCell.setCh(str); return; } + case TableCellChOff: { tableCell.setChOff(str); return; } + case TableCellColSpan: { tableCell.setColSpan(value.toInteger(exec)); return; } + case TableCellHeaders: { tableCell.setHeaders(str); return; } + case TableCellHeight: { tableCell.setHeight(str); return; } + case TableCellNoWrap: { tableCell.setNoWrap(value.toBoolean(exec)); return; } + case TableCellRowSpan: { tableCell.setRowSpan(value.toInteger(exec)); return; } + case TableCellScope: { tableCell.setScope(str); return; } + case TableCellVAlign: { tableCell.setVAlign(str); return; } + case TableCellWidth: { tableCell.setWidth(str); return; } + } + } + break; + case ID_FRAMESET: { + DOM::HTMLFrameSetElement frameSet = element; + switch (token) { + case FrameSetCols: { frameSet.setCols(str); return; } + case FrameSetRows: { frameSet.setRows(str); return; } + } + } + break; + case ID_LAYER: { + DOM::HTMLLayerElement layerElement = element; + switch (token) { + case LayerTop: { layerElement.setTop(value.toInteger(exec)); return; } + case LayerLeft: { layerElement.setLeft(value.toInteger(exec)); return; } + case LayerVisibility: { layerElement.setVisibility(str); return; } + case LayerBgColor: { layerElement.setBgColor(str); return; } + // read-only: layers, clip + } + } + break; + case ID_FRAME: { + DOM::HTMLFrameElement frameElement = element; + switch (token) { + // read-only: FrameContentDocument: + case FrameFrameBorder: { frameElement.setFrameBorder(str); return; } + case FrameLongDesc: { frameElement.setLongDesc(str); return; } + case FrameMarginHeight: { frameElement.setMarginHeight(str); return; } + case FrameMarginWidth: { frameElement.setMarginWidth(str); return; } + case FrameName: { frameElement.setName(str); return; } + case FrameNoResize: { frameElement.setNoResize(value.toBoolean(exec)); return; } + case FrameScrolling: { frameElement.setScrolling(str); return; } + case FrameSrc: { frameElement.setSrc(str); return; } + case FrameLocation: { + static_cast<DOM::HTMLFrameElementImpl *>(frameElement.handle())->setLocation(str); + return; + } + } + } + break; + case ID_IFRAME: { + DOM::HTMLIFrameElement iFrame = element; + switch (token) { + case IFrameAlign: { iFrame.setAlign(str); return; } + // read-only: IFrameContentDocument + case IFrameFrameBorder: { iFrame.setFrameBorder(str); return; } + case IFrameHeight: { iFrame.setHeight(str); return; } + case IFrameLongDesc: { iFrame.setLongDesc(str); return; } + case IFrameMarginHeight: { iFrame.setMarginHeight(str); return; } + case IFrameMarginWidth: { iFrame.setMarginWidth(str); return; } + case IFrameName: { iFrame.setName(str); return; } + case IFrameScrolling: { iFrame.setScrolling(str); return; } + case IFrameSrc: { iFrame.setSrc(str); return; } + case IFrameWidth: { iFrame.setWidth(str); return; } + } + break; + } + } + + // generic properties + switch (token) { + case ElementId: + element.setId(str); + return; + case ElementTitle: + element.setTitle(str); + return; + case ElementLang: + element.setLang(str); + return; + case ElementDir: + element.setDir(str); + return; + case ElementClassName: + element.setClassName(str); + return; + case ElementInnerHTML: + element.setInnerHTML(str); + return; + case ElementInnerText: + element.setInnerText(str); + return; + default: + kdDebug(6070) << "WARNING: KJS::HTMLElement::putValueProperty unhandled token " << token << " thisTag=" << element.tagName().string() << " str=" << str.string() << endl; + } +} + +//Prototype mess for this... +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLElementProto, DOMElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLElement", HTMLElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLElementPseudoCtor, "HTMLElement", HTMLElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLHtmlElement", HTMLHtmlElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLHtmlElementPseudoCtor, "HTMLHtmlElement", HTMLHtmlElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLHeadElement", HTMLHeadElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLHeadElementPseudoCtor, "HTMLHeadElement", HTMLHeadElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLLinkElement", HTMLLinkElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLLinkElementPseudoCtor, "HTMLLinkElement", HTMLLinkElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLTitleElement", HTMLTitleElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLTitleElementPseudoCtor, "HTMLTitleElement", HTMLTitleElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLMetaElement", HTMLMetaElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLMetaElementPseudoCtor, "HTMLMetaElement", HTMLMetaElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLBaseElement", HTMLBaseElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLBaseElementPseudoCtor, "HTMLBaseElement", HTMLBaseElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLIsIndexElement", HTMLIsIndexElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLIsIndexElementPseudoCtor, "HTMLIsIndexElement", HTMLIsIndexElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLStyleElement", HTMLStyleElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLStyleElementPseudoCtor, "HTMLStyleElement", HTMLStyleElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLBodyElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLBodyElement", HTMLBodyElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLBodyElementPseudoCtor, "HTMLBodyElement", HTMLBodyElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLFormElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLFormElement", HTMLFormElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLFormElementPseudoCtor, "HTMLFormElement", HTMLFormElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLSelectElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLSelectElement", HTMLSelectElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLSelectElementPseudoCtor, "HTMLSelectElement", HTMLSelectElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLOptGroupElement", HTMLOptGroupElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLOptGroupElementPseudoCtor, "HTMLOptGroupElement", HTMLOptGroupElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLOptionElement", HTMLOptionElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLOptionElementPseudoCtor, "HTMLOptionElement", HTMLOptionElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLInputElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLInputElement", HTMLInputElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLInputElementPseudoCtor, "HTMLInputElement", HTMLInputElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLTextAreaElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLTextAreaElement", HTMLTextAreaElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLTextAreaElementPseudoCtor, "HTMLTextAreaElement", HTMLTextAreaElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLButtonElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLButtonElement", HTMLButtonElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLButtonElementPseudoCtor, "HTMLButtonElement", HTMLButtonElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLLabelElement", HTMLLabelElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLLabelElementPseudoCtor, "HTMLLabelElement", HTMLLabelElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLFieldSetElement", HTMLFieldSetElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLFieldSetElementPseudoCtor, "HTMLFieldSetElement", HTMLFieldSetElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLLegendElement", HTMLLegendElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLLegendElementPseudoCtor, "HTMLLegendElement", HTMLLegendElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLUListElement", HTMLUListElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLUListElementPseudoCtor, "HTMLUListElement", HTMLUListElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLOListElement", HTMLOListElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLOListElementPseudoCtor, "HTMLOListElement", HTMLOListElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLDListElement", HTMLDListElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLDListElementPseudoCtor, "HTMLDListElement", HTMLDListElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLDirectoryElement", HTMLDirectoryElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLDirectoryElementPseudoCtor, "HTMLDirectoryElement", HTMLDirectoryElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLMenuElement", HTMLMenuElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLMenuElementPseudoCtor, "HTMLMenuElement", HTMLMenuElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLLIElement", HTMLLIElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLLIElementPseudoCtor, "HTMLLIElement", HTMLLIElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLDivElement", HTMLDivElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLDivElementPseudoCtor, "HTMLDivElement", HTMLDivElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLParagraphElement", HTMLParagraphElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLParagraphElementPseudoCtor, "HTMLParagraphElement", HTMLParagraphElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLHeadingElement", HTMLHeadingElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLHeadingElementPseudoCtor, "HTMLHeadingElement", HTMLHeadingElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLBlockQuoteElement", HTMLBlockQuoteElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLBlockQuoteElementPseudoCtor, "HTMLBlockQuoteElement", HTMLBlockQuoteElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLQuoteElement", HTMLQuoteElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLQuoteElementPseudoCtor, "HTMLQuoteElement", HTMLQuoteElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLPreElement", HTMLPreElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLPreElementPseudoCtor, "HTMLPreElement", HTMLPreElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLBRElement", HTMLBRElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLBRElementPseudoCtor, "HTMLBRElement", HTMLBRElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLBaseFontElement", HTMLBaseFontElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLBaseFontElementPseudoCtor, "HTMLBaseFontElement", HTMLBaseFontElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLFontElement", HTMLFontElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLFontElementPseudoCtor, "HTMLFontElement", HTMLFontElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLHRElement", HTMLHRElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLHRElementPseudoCtor, "HTMLHRElement", HTMLHRElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLModElement", HTMLModElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLModElementPseudoCtor, "HTMLModElement", HTMLModElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLAnchorElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLAnchorElement", HTMLAnchorElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLAnchorElementPseudoCtor, "HTMLAnchorElement", HTMLAnchorElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLImageElement", HTMLImageElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLImageElementPseudoCtor, "HTMLImageElement", HTMLImageElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLObjectElement", HTMLObjectElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLObjectElementPseudoCtor, "HTMLObjectElement", HTMLObjectElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLParamElement", HTMLParamElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLParamElementPseudoCtor, "HTMLParamElement", HTMLParamElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLAppletElement", HTMLAppletElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLAppletElementPseudoCtor, "HTMLAppletElement", HTMLAppletElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLMapElement", HTMLMapElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLMapElementPseudoCtor, "HTMLMapElement", HTMLMapElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLAreaElement", HTMLAreaElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLAreaElementPseudoCtor, "HTMLAreaElement", HTMLAreaElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLScriptElement", HTMLScriptElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLScriptElementPseudoCtor, "HTMLScriptElement", HTMLScriptElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLTableElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLTableElement", HTMLTableElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLTableElementPseudoCtor, "HTMLTableElement", HTMLTableElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLTableCaptionElement", HTMLTableCaptionElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLTableCaptionElementPseudoCtor, "HTMLTableCaptionElement", HTMLTableCaptionElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLTableColElement", HTMLTableColElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLTableColElementPseudoCtor, "HTMLTableColElement", HTMLTableColElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLTableSectionElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLTableSectionElement", HTMLTableSectionElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLTableSectionElementPseudoCtor, "HTMLTableSectionElement", HTMLTableSectionElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLTableRowElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLTableRowElement", HTMLTableRowElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLTableRowElementPseudoCtor, "HTMLTableRowElement", HTMLTableRowElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLTableCellElement", HTMLTableCellElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLTableCellElementPseudoCtor, "HTMLTableCellElement", HTMLTableCellElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLFrameSetElement", HTMLFrameSetElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLFrameSetElementPseudoCtor, "HTMLFrameSetElement", HTMLFrameSetElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLLayerElement", HTMLLayerElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLLayerElementPseudoCtor, "HTMLLayerElement", HTMLLayerElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLFrameElement", HTMLFrameElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLFrameElementPseudoCtor, "HTMLFrameElement", HTMLFrameElementProto) + +KJS_EMPTY_PROTOTYPE_WITH_PROTOTYPE("HTMLIFrameElement", HTMLIFrameElementProto, HTMLElementProto) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLIFrameElementPseudoCtor, "HTMLIFrameElement", HTMLIFrameElementProto) + +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLMarqueeElementProto, HTMLElementProto) +KJS_IMPLEMENT_PROTOTYPE("HTMLMarqueeElement", HTMLMarqueeElementProto, HTMLElementFunction) +IMPLEMENT_PSEUDO_CONSTRUCTOR(HTMLMarqueeElementPseudoCtor, "HTMLMarqueeElement", HTMLMarqueeElementProto) + +static Object prototypeForID(ExecState* exec, DOM::NodeImpl::Id id) { + switch (id) { + case ID_HTML: + return HTMLHtmlElementProto::self(exec); + case ID_HEAD: + return HTMLHeadElementProto::self(exec); + case ID_LINK: + return HTMLLinkElementProto::self(exec); + case ID_TITLE: + return HTMLTitleElementProto::self(exec); + case ID_META: + return HTMLMetaElementProto::self(exec); + case ID_BASE: + return HTMLBaseElementProto::self(exec); + case ID_ISINDEX: + return HTMLIsIndexElementProto::self(exec); + case ID_STYLE: + return HTMLStyleElementProto::self(exec); + case ID_BODY: + return HTMLBodyElementProto::self(exec); + case ID_FORM: + return HTMLFormElementProto::self(exec); + case ID_SELECT: + return HTMLSelectElementProto::self(exec); + case ID_OPTGROUP: + return HTMLOptGroupElementProto::self(exec); + case ID_OPTION: + return HTMLOptionElementProto::self(exec); + case ID_INPUT: + return HTMLInputElementProto::self(exec); + case ID_TEXTAREA: + return HTMLTextAreaElementProto::self(exec); + case ID_BUTTON: + return HTMLButtonElementProto::self(exec); + case ID_LABEL: + return HTMLLabelElementProto::self(exec); + case ID_FIELDSET: + return HTMLFieldSetElementProto::self(exec); + case ID_LEGEND: + return HTMLLegendElementProto::self(exec); + case ID_UL: + return HTMLUListElementProto::self(exec); + case ID_OL: + return HTMLOListElementProto::self(exec); + case ID_DL: + return HTMLDListElementProto::self(exec); + case ID_DIR: + return HTMLDirectoryElementProto::self(exec); + case ID_MENU: + return HTMLMenuElementProto::self(exec); + case ID_LI: + return HTMLLIElementProto::self(exec); + case ID_DIV: + return HTMLDivElementProto::self(exec); + case ID_P: + return HTMLParagraphElementProto::self(exec); + case ID_H1: + case ID_H2: + case ID_H3: + case ID_H4: + case ID_H5: + case ID_H6: + return HTMLHeadingElementProto::self(exec); + case ID_BLOCKQUOTE: + return HTMLBlockQuoteElementProto::self(exec); + case ID_Q: + return HTMLQuoteElementProto::self(exec); + case ID_PRE: + return HTMLPreElementProto::self(exec); + case ID_BR: + return HTMLBRElementProto::self(exec); + case ID_BASEFONT: + return HTMLBaseFontElementProto::self(exec); + case ID_FONT: + return HTMLFontElementProto::self(exec); + case ID_HR: + return HTMLHRElementProto::self(exec); + case ID_INS: + case ID_DEL: + return HTMLModElementProto::self(exec); + case ID_A: + return HTMLAnchorElementProto::self(exec); + case ID_IMG: + return HTMLImageElementProto::self(exec); + case ID_OBJECT: + return HTMLObjectElementProto::self(exec); + case ID_PARAM: + return HTMLParamElementProto::self(exec); + case ID_APPLET: + return HTMLAppletElementProto::self(exec); + case ID_MAP: + return HTMLMapElementProto::self(exec); + case ID_AREA: + return HTMLAreaElementProto::self(exec); + case ID_SCRIPT: + return HTMLScriptElementProto::self(exec); + case ID_TABLE: + return HTMLTableElementProto::self(exec); + case ID_CAPTION: + return HTMLTableCaptionElementProto::self(exec); + case ID_COL: + case ID_COLGROUP: + return HTMLTableColElementProto::self(exec); + case ID_THEAD: + case ID_TBODY: + case ID_TFOOT: + return HTMLTableSectionElementProto::self(exec); + case ID_TR: + return HTMLTableRowElementProto::self(exec); + case ID_TD: + case ID_TH: + return HTMLTableCellElementProto::self(exec); + case ID_FRAMESET: + return HTMLFrameSetElementProto::self(exec); + case ID_LAYER: + return HTMLLayerElementProto::self(exec); + case ID_FRAME: + return HTMLFrameElementProto::self(exec); + case ID_IFRAME: + return HTMLIFrameElementProto::self(exec); + case ID_MARQUEE: + return HTMLMarqueeElementProto::self(exec); + default: + return HTMLElementProto::self(exec); + } +} + +// ------------------------------------------------------------------------- +/* Source for HTMLCollectionProtoTable. +@begin HTMLCollectionProtoTable 3 + item HTMLCollection::Item DontDelete|Function 1 + namedItem HTMLCollection::NamedItem DontDelete|Function 1 + tags HTMLCollection::Tags DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE(HTMLCollectionProto) +IMPLEMENT_PROTOFUNC_DOM(HTMLCollectionProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("HTMLCollection", HTMLCollectionProto,HTMLCollectionProtoFunc) + +const ClassInfo KJS::HTMLCollection::info = { "HTMLCollection", 0, 0, 0 }; + +KJS::HTMLCollection::HTMLCollection(ExecState *exec, const DOM::HTMLCollection& c) + : DOMObject(HTMLCollectionProto::self(exec)), collection(c), hidden(false) {} + +KJS::HTMLCollection::HTMLCollection(const KJS::Object& proto, const DOM::HTMLCollection& c) + : DOMObject(proto), collection(c), hidden(false) {} + +KJS::HTMLCollection::~HTMLCollection() +{ + ScriptInterpreter::forgetDOMObject(collection.handle()); +} + +bool KJS::HTMLCollection::toBoolean(ExecState *) const { + return !hidden; +} + +// We have to implement hasProperty since we don't use a hashtable for 'selectedIndex' and 'length', +// and for indices in "for (..in..)" +bool KJS::HTMLCollection::hasProperty(ExecState *exec, const Identifier &p) const +{ + if (p == lengthPropertyName) + return true; + if ( collection.handle()->getType() == HTMLCollectionImpl::SELECT_OPTIONS && + ( p == "selectedIndex" || p == "value" ) ) + return true; + + bool ok; + unsigned long pos = p.toULong(&ok); + if (ok && pos < collection.length()) + return true; + + return DOMObject::hasProperty(exec, p); +} + +ReferenceList KJS::HTMLCollection::propList(ExecState *exec, bool recursive) +{ + ReferenceList properties = ObjectImp::propList(exec,recursive); + + for (unsigned i = 0; i < collection.length(); ++i) { + if (!ObjectImp::hasProperty(exec,Identifier::from(i))) { + properties.append(Reference(this, i)); + } + } + + if (!ObjectImp::hasProperty(exec, lengthPropertyName)) + properties.append(Reference(this, lengthPropertyName)); + + return properties; +} + +Value KJS::HTMLCollection::tryGet(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLCollection::tryGet " << propertyName.ascii() << endl; +#endif + if (propertyName == lengthPropertyName) + { +#ifdef KJS_VERBOSE + kdDebug(6070) << " collection length is " << collection.length() << endl; +#endif + return Number(collection.length()); + } + + if (collection.handle()->getType() == HTMLCollectionImpl::SELECT_OPTIONS) { + DOM::HTMLSelectElement parentSelect = collection.base(); + if ( parentSelect.isNull() ) + return Undefined(); + if (propertyName == "selectedIndex") { + // NON-STANDARD options.selectedIndex + return Number(parentSelect.selectedIndex()); + } else if ( propertyName == "value" ) { + // NON-STANDARD options.value + return String(parentSelect.value()); + } + } + + // Look in the prototype (for functions) before assuming it's an item's name + Object proto = Object::dynamicCast(prototype()); + if (proto.isValid() && proto.hasProperty(exec,propertyName)) + return proto.get(exec,propertyName); + + // name or index ? + bool ok; + unsigned int u = propertyName.toULong(&ok); + if (ok) { + if ( u < collection.length() ) { + DOM::Node node = collection.item(u); + return getDOMNode(exec,node); + } else + return Undefined(); + } + else + return getNamedItems(exec,propertyName); +} + +// HTMLCollections are strange objects, they support both get and call, +// so that document.forms.item(0) and document.forms(0) both work. +Value KJS::HTMLCollection::call(ExecState *exec, Object &thisObj, const List &args) +{ + // This code duplication is necessary, HTMLCollection isn't a DOMFunction + Value val; + try { + val = tryCall(exec, thisObj, args); + } + // pity there's no way to distinguish between these in JS code + catch (...) { + Object err = Error::create(exec, GeneralError, "Exception from HTMLCollection"); + exec->setException(err); + } + return val; +} + +Value KJS::HTMLCollection::tryCall(ExecState *exec, Object &, const List &args) +{ + // Do not use thisObj here. It can be the HTMLDocument, in the document.forms(i) case. + /*if( thisObj.imp() != this ) + { + kdDebug(6070) << "WARNING: thisObj.imp() != this in HTMLCollection::tryCall" << endl; + KJS::printInfo(exec,"KJS::HTMLCollection::tryCall thisObj",thisObj,-1); + KJS::printInfo(exec,"KJS::HTMLCollection::tryCall this",Value(this),-1); + }*/ + // Also, do we need the TypeError test here ? + + if (args.size() == 1) { + // support for document.all(<index>) etc. + bool ok; + UString s = args[0].toString(exec); + unsigned int u = s.toULong(&ok); + if (ok) { + DOM::Element element = collection.item(u); + return getDOMNode(exec,element); + } + // support for document.images('<name>') etc. + return getNamedItems(exec,Identifier(s)); + } + else if (args.size() >= 1) // the second arg, if set, is the index of the item we want + { + bool ok; + UString s = args[0].toString(exec); + unsigned int u = args[1].toString(exec).toULong(&ok); + if (ok) + { + DOM::DOMString pstr = s.string(); + DOM::Node node = collection.namedItem(pstr); + while (!node.isNull()) { + if (!u) + return getDOMNode(exec,node); + node = collection.nextNamedItem(pstr); + --u; + } + } + } + return Undefined(); +} + +Value KJS::HTMLCollection::getNamedItems(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLCollection::getNamedItems " << propertyName.ascii() << endl; +#endif + + DOM::DOMString pstr = propertyName.string(); + + TQValueList<DOM::NodeImpl*> matches = collection.handle()->namedItems(pstr); + + if (!matches.isEmpty()) { + if (matches.size() == 1) { + DOM::Node node(matches[0]); +#ifdef KJS_VERBOSE + kdDebug(6070) << "returning single node" << endl; +#endif + return getDOMNode(exec,node); + } + else { + // multiple items, return a collection + TQValueList<DOM::Node> nodes; + for (TQValueList<DOM::NodeImpl*>::const_iterator i = matches.begin(); + i != matches.end(); ++i) + nodes.append(DOM::Node(*i)); +#ifdef KJS_VERBOSE + kdDebug(6070) << "returning list of " << nodes.count() << " nodes" << endl; +#endif + return Value(new DOMNamedNodesCollection(exec, nodes)); + } + } +#ifdef KJS_VERBOSE + kdDebug(6070) << "not found" << endl; +#endif + return Undefined(); +} + +Value KJS::HTMLCollectionProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::HTMLCollection, thisObj ); + DOM::HTMLCollection coll = static_cast<KJS::HTMLCollection *>(thisObj.imp())->toCollection(); + + switch (id) { + case KJS::HTMLCollection::Item: + { + // support for item(<index>) (DOM) + bool ok; + UString s = args[0].toString(exec); + unsigned int u = s.toULong(&ok); + if (ok) { + return getDOMNode(exec,coll.item(u)); + } + // support for item('<name>') (IE only) + kdWarning() << "non-standard HTMLCollection.item('" << s.ascii() << "') called, use namedItem instead" << endl; + return getDOMNode(exec,coll.namedItem(s.string())); + } + case KJS::HTMLCollection::Tags: + { + DOM::DOMString tagName = args[0].toString(exec).string(); + DOM::NodeList list; + // getElementsByTagName exists in Document and in Element, pick up the right one + if ( coll.base().nodeType() == DOM::Node::DOCUMENT_NODE ) + { + DOM::Document doc = coll.base(); + list = doc.getElementsByTagName(tagName); +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLCollectionProtoFunc::tryCall document.tags(" << tagName.string() << ") -> " << list.length() << " items in node list" << endl; +#endif + } else + { + DOM::Element e = coll.base(); + list = e.getElementsByTagName(tagName); +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLCollectionProtoFunc::tryCall element.tags(" << tagName.string() << ") -> " << list.length() << " items in node list" << endl; +#endif + } + return getDOMNodeList(exec, list); + } + case KJS::HTMLCollection::NamedItem: + { + Value val = static_cast<HTMLCollection *>(thisObj.imp())->getNamedItems(exec, Identifier(args[0].toString(exec))); + // Must return null when asking for a named item that isn't in the collection + // (DOM2 testsuite, HTMLCollection12 test) + if ( val.type() == KJS::UndefinedType ) + return Null(); + else + return val; + } + default: + return Undefined(); + } +} + +// ------------------------------------------------------------------------- +/* Source for HTMLSelectCollectionProtoTable. +@begin HTMLSelectCollectionProtoTable 1 + add HTMLSelectCollection::Add DontDelete|Function 2 +@end +*/ +KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE(HTMLSelectCollectionProto, HTMLCollectionProto) +IMPLEMENT_PROTOFUNC_DOM(HTMLSelectCollectionProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("HTMLOptionsCollection", HTMLSelectCollectionProto, HTMLSelectCollectionProtoFunc) + +const ClassInfo KJS::HTMLSelectCollection::info = { "HTMLOptionsCollection", &HTMLCollection::info, 0, 0 }; + +KJS::HTMLSelectCollection::HTMLSelectCollection(ExecState *exec, const DOM::HTMLCollection& c, + const DOM::HTMLSelectElement& e) + : HTMLCollection(HTMLSelectCollectionProto::self(exec), c), element(e) { } + +Value KJS::HTMLSelectCollection::tryGet(ExecState *exec, const Identifier &p) const +{ + if (p == "selectedIndex") + return Number(element.selectedIndex()); + + return HTMLCollection::tryGet(exec, p); +} + +void KJS::HTMLSelectCollection::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int) +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "KJS::HTMLSelectCollection::tryPut " << propertyName.qstring() << endl; +#endif + if ( propertyName == "selectedIndex" ) { + element.setSelectedIndex( value.toInteger( exec ) ); + return; + } + // resize ? + else if (propertyName == lengthPropertyName) { + unsigned newLen; + bool converted = value.toUInt32(newLen); + + if (!converted) { + return; + } + + long diff = element.length() - newLen; + + if (diff < 0) { // add dummy elements + do { + element.add(element.ownerDocument().createElement("OPTION"), DOM::HTMLElement()); + } while (++diff); + } + else // remove elements + while (diff-- > 0) + element.remove(newLen + diff); + + return; + } + // an index ? + bool ok; + unsigned int u = propertyName.toULong(&ok); + if (!ok) + return; + + if (value.isA(NullType) || value.isA(UndefinedType)) { + // null and undefined delete. others, too ? + element.remove(u); + return; + } + + // is v an option element ? + DOM::Node node = KJS::toNode(value); + if (node.isNull() || node.elementId() != ID_OPTION) + return; + + DOM::HTMLOptionElement option = static_cast<DOM::HTMLOptionElement>(node); + if ( option.ownerDocument() != element.ownerDocument() ) + option = static_cast<DOM::HTMLOptionElement>(element.ownerDocument().importNode(option, true)); + long diff = long(u) - element.length(); + DOM::HTMLElement before; + // out of array bounds ? first insert empty dummies + if (diff > 0) { + while (diff--) { + element.add(element.ownerDocument().createElement("OPTION"), before); + } + // replace an existing entry ? + } else if (diff < 0) { + before = element.options().item(u+1); + element.remove(u); + } + // finally add the new element + element.add(option, before); +} + + +Value KJS::HTMLSelectCollectionProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::HTMLSelectCollection, thisObj ); + DOM::HTMLSelectElement element = static_cast<KJS::HTMLSelectCollection *>(thisObj.imp())->toElement(); + + switch (id) { + case KJS::HTMLSelectCollection::Add: + { + //Non-standard select.options.add. + //The first argument is the item, 2nd is offset. + //IE and Mozilla are both quite picky here, too... + DOM::Node node = KJS::toNode(args[0]); + if (node.isNull() || node.elementId() != ID_OPTION) { + Object err = Error::create(exec, GeneralError, "Invalid argument to HTMLOptionsCollection::add"); + exec->setException(err); + return Undefined(); + } + + DOM::HTMLOptionElement option = static_cast<DOM::HTMLOptionElement>(node); + if ( option.ownerDocument() != element.ownerDocument() ) //### remove this once auto-adopt works... + option = static_cast<DOM::HTMLOptionElement>(element.ownerDocument().importNode(option, true)); + + int pos = 0; + //By default append, if not specified or null.. + if (args[1].isA(UndefinedType)) + pos = element.length(); + else + pos = (int)args[1].toNumber(exec); + + if (pos < 0) { + Object err = Error::create(exec, GeneralError, "Invalid index argument to HTMLOptionsCollection::add"); + exec->setException(err); + return Undefined(); + } + + if (pos >= element.length()) { + //Append + element.add(option, DOM::Node()); + } else { + //Find what to prepend before.. + DOM::HTMLSelectElementImpl* impl = static_cast<HTMLSelectElementImpl*>(element.handle()); + TQMemArray<HTMLGenericFormElementImpl*> items = impl->listItems(); + int dummy; + impl->insertBefore(option.handle(), items.at(pos), dummy); + } + return Undefined(); + break; + } + default: + break; + } + return Undefined(); +} + + +////////////////////// Option Object //////////////////////// + +OptionConstructorImp::OptionConstructorImp(ExecState *exec, const DOM::Document &d) + : ObjectImp(), doc(d) +{ + // ## isn't there some redundancy between ObjectImp::_proto and the "prototype" property ? + //put(exec,"prototype", ...,DontEnum|DontDelete|ReadOnly); + + // no. of arguments for constructor + // ## is 4 correct ? 0 to 4, it seems to be + put(exec,lengthPropertyName, Number(4), ReadOnly|DontDelete|DontEnum); +} + +bool OptionConstructorImp::implementsConstruct() const +{ + return true; +} + +Object OptionConstructorImp::construct(ExecState *exec, const List &args) +{ + DOM::Element el = doc.createElement("OPTION"); + DOM::HTMLOptionElement opt = static_cast<DOM::HTMLOptionElement>(el); + int sz = args.size(); + DOM::Text t = doc.createTextNode(""); + try { opt.appendChild(t); } + catch(DOM::DOMException& e) { + // #### exec->setException ? + } + if (sz > 0) + t.setData(args[0].toString(exec).string()); // set the text + if (sz > 1) + opt.setValue(args[1].toString(exec).string()); + if (sz > 2) + opt.setDefaultSelected(args[2].toBoolean(exec)); + if (sz > 3) + opt.setSelected(args[3].toBoolean(exec)); + + return Object::dynamicCast(getDOMNode(exec,opt)); +} + +////////////////////// Image Object //////////////////////// + +//Like in other browsers, we merely make a new HTMLImageElement +//not in tree for this. +ImageConstructorImp::ImageConstructorImp(ExecState *, const DOM::Document &d) + : ObjectImp(), doc(d) +{ +} + +bool ImageConstructorImp::implementsConstruct() const +{ + return true; +} + +Object ImageConstructorImp::construct(ExecState *exec, const List &list) +{ + bool widthSet = false, heightSet = false; + int width = 0, height = 0; + if (list.size() > 0) { + widthSet = true; + Value w = list.at(0); + width = w.toInt32(exec); + } + if (list.size() > 1) { + heightSet = true; + Value h = list.at(1); + height = h.toInt32(exec); + } + + HTMLImageElement image(doc.createElement("image")); + + if (widthSet) + image.setWidth(width); + + if (heightSet) + image.setHeight(height); + + return Object::dynamicCast(getDOMNode(exec,image)); +} + +Value getHTMLCollection(ExecState *exec, const DOM::HTMLCollection& c, bool hide) +{ + Value coll = cacheDOMObject<DOM::HTMLCollection, KJS::HTMLCollection>(exec, c); + if (hide) { + KJS::HTMLCollection *impl = static_cast<KJS::HTMLCollection*>(coll.imp()); + impl->hide(); + } + return coll; +} + +Value getSelectHTMLCollection(ExecState *exec, const DOM::HTMLCollection& c, const DOM::HTMLSelectElement& e) +{ + DOMObject *ret; + if (c.isNull()) + return Null(); + ScriptInterpreter* interp = static_cast<ScriptInterpreter *>(exec->interpreter()); + if ((ret = interp->getDOMObject(c.handle()))) + return Value(ret); + else { + ret = new HTMLSelectCollection(exec, c, e); + interp->putDOMObject(c.handle(),ret); + return Value(ret); + } +} + +} //namespace KJS diff --git a/tdehtml/ecma/kjs_html.h b/tdehtml/ecma/kjs_html.h new file mode 100644 index 000000000..53da38462 --- /dev/null +++ b/tdehtml/ecma/kjs_html.h @@ -0,0 +1,294 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 1999 Harri Porten (porten@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 + */ + +#ifndef _KJS_HTML_H_ +#define _KJS_HTML_H_ + +#include "dom/html_document.h" +#include "dom/html_base.h" +#include "dom/html_misc.h" +#include "dom/html_form.h" +#include "misc/loader_client.h" + +#include "ecma/kjs_binding.h" +#include "ecma/kjs_dom.h" +#include "xml/dom_nodeimpl.h" // for NodeImpl::Id + +namespace KJS { + + class HTMLElement; + + class HTMLDocument : public DOMDocument { + public: + HTMLDocument(ExecState *exec, const DOM::HTMLDocument& d); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + void putValueProperty(ExecState *exec, int token, const Value& value, int /*attr*/); + virtual bool hasProperty(ExecState *exec, const Identifier &propertyName) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Title, Referrer, Domain, URL, Body, Location, Cookie, + Images, Applets, Links, Forms, Layers, Anchors, Scripts, All, Clear, Open, Close, + Write, WriteLn, GetElementsByName, GetSelection, CaptureEvents, ReleaseEvents, + BgColor, FgColor, AlinkColor, LinkColor, VlinkColor, LastModified, + Height, Width, Dir, Frames, CompatMode }; + DOM::Document toDocument() const { return static_cast<DOM::Document>( node ); } + }; + + DEFINE_PSEUDO_CONSTRUCTOR(HTMLDocumentPseudoCtor) + + class HTMLElement : public DOMElement { + public: + HTMLElement(ExecState *exec, const DOM::HTMLElement& e); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + void putValueProperty(ExecState *exec, int token, const Value& value, int); + virtual bool hasProperty(ExecState *exec, const Identifier &propertyName) const; + virtual UString toString(ExecState *exec) const; + virtual void pushEventHandlerScope(ExecState *exec, ScopeChain &scope) const; + virtual const ClassInfo* classInfo() const; + static const ClassInfo info; + + static const ClassInfo html_info, head_info, link_info, title_info, + meta_info, base_info, isIndex_info, style_info, body_info, form_info, + select_info, optGroup_info, option_info, input_info, textArea_info, + button_info, label_info, fieldSet_info, legend_info, ul_info, ol_info, + dl_info, dir_info, menu_info, li_info, div_info, p_info, heading_info, + blockQuote_info, q_info, pre_info, br_info, baseFont_info, font_info, + hr_info, mod_info, a_info, img_info, object_info, param_info, + applet_info, map_info, area_info, script_info, table_info, + caption_info, col_info, tablesection_info, tr_info, + tablecell_info, frameSet_info, frame_info, iFrame_info, marquee_info, layer_info; + + enum { HtmlVersion, HeadProfile, LinkHref, LinkRel, LinkMedia, + LinkCharset, LinkDisabled, LinkHrefLang, LinkRev, LinkTarget, LinkType, + LinkSheet, TitleText, MetaName, MetaHttpEquiv, MetaContent, MetaScheme, + BaseHref, BaseTarget, IsIndexForm, IsIndexPrompt, StyleDisabled, + StyleSheet, StyleType, StyleMedia, BodyBackground, BodyVLink, BodyText, + BodyLink, BodyALink, BodyBgColor, BodyOnLoad, BodyFocus, + FormAction, FormEncType, FormElements, FormLength, FormAcceptCharset, + FormReset, FormTarget, FormName, FormMethod, FormSubmit, SelectAdd, + SelectTabIndex, SelectValue, SelectSelectedIndex, SelectLength, + SelectRemove, SelectForm, SelectBlur, SelectType, SelectOptions, + SelectDisabled, SelectMultiple, SelectName, SelectSize, SelectFocus, + OptGroupDisabled, OptGroupLabel, OptionIndex, OptionSelected, + OptionForm, OptionText, OptionDefaultSelected, OptionDisabled, + OptionLabel, OptionValue, InputBlur, InputReadOnly, InputAccept, + InputSize, InputDefaultValue, InputTabIndex, InputValue, InputType, + InputFocus, InputMaxLength, InputDefaultChecked, InputDisabled, + InputChecked, InputIndeterminate, InputForm, InputAccessKey, InputAlign, InputAlt, + InputName, InputSrc, InputUseMap, InputSelect, InputClick, + InputSelectionStart, InputSelectionEnd, InputSetSelectionRange, + TextAreaAccessKey, TextAreaName, TextAreaDefaultValue, TextAreaSelect, + TextAreaCols, TextAreaDisabled, TextAreaForm, TextAreaType, + TextAreaTabIndex, TextAreaReadOnly, TextAreaRows, TextAreaValue, + TextAreaBlur, TextAreaFocus, TextAreaSelectionStart, TextAreaSelectionEnd, TextAreaSetSelectionRange, + TextAreaTextLength, ButtonBlur, ButtonFocus, ButtonForm, ButtonTabIndex, ButtonName, + ButtonDisabled, ButtonAccessKey, ButtonType, ButtonValue, LabelHtmlFor, + LabelForm, LabelAccessKey, FieldSetForm, LegendForm, LegendAccessKey, + LegendAlign, UListType, UListCompact, OListStart, OListCompact, + OListType, DListCompact, DirectoryCompact, MenuCompact, LIType, + LIValue, DivAlign, ParagraphAlign, HeadingAlign, BlockQuoteCite, + QuoteCite, PreWidth, BRClear, BaseFontColor, BaseFontSize, + BaseFontFace, FontColor, FontSize, FontFace, HRWidth, HRNoShade, + HRAlign, HRSize, ModCite, ModDateTime, AnchorShape, AnchorRel, + AnchorAccessKey, AnchorCoords, AnchorHref, AnchorProtocol, AnchorHost, + AnchorCharset, AnchorHrefLang, AnchorHostname, AnchorType, AnchorFocus, + AnchorPort, AnchorPathName, AnchorHash, AnchorSearch, AnchorName, + AnchorRev, AnchorTabIndex, AnchorTarget, AnchorText, AnchorBlur, AnchorClick, + ImageName, ImageAlign, ImageHspace, ImageVspace, ImageUseMap, ImageAlt, + ImageLowSrc, ImageWidth, ImageIsMap, ImageBorder, ImageHeight, + ImageLongDesc, ImageSrc, ImageX, ImageY, ImageComplete, ObjectHspace, ObjectHeight, ObjectAlign, + ObjectBorder, ObjectCode, ObjectType, ObjectVspace, ObjectArchive, + ObjectDeclare, ObjectForm, ObjectCodeBase, ObjectCodeType, ObjectData, + ObjectName, ObjectStandby, ObjectTabIndex, ObjectUseMap, ObjectWidth, ObjectContentDocument, + ParamName, ParamType, ParamValueType, ParamValue, AppletArchive, + AppletAlt, AppletCode, AppletWidth, AppletAlign, AppletCodeBase, + AppletName, AppletHeight, AppletHspace, AppletObject, AppletVspace, + MapAreas, MapName, AreaHash, AreaHref, AreaTarget, AreaPort, AreaShape, + AreaCoords, AreaAlt, AreaAccessKey, AreaNoHref, AreaHost, AreaProtocol, + AreaHostName, AreaPathName, AreaSearch, AreaTabIndex, ScriptEvent, + ScriptType, ScriptHtmlFor, ScriptText, ScriptSrc, ScriptCharset, + ScriptDefer, TableSummary, TableTBodies, TableTHead, TableCellPadding, + TableDeleteCaption, TableCreateCaption, TableCaption, TableWidth, + TableCreateTFoot, TableAlign, TableTFoot, TableDeleteRow, + TableCellSpacing, TableRows, TableBgColor, TableBorder, TableFrame, + TableRules, TableCreateTHead, TableDeleteTHead, TableDeleteTFoot, + TableInsertRow, TableCaptionAlign, TableColCh, TableColChOff, + TableColAlign, TableColSpan, TableColVAlign, TableColWidth, + TableSectionCh, TableSectionDeleteRow, TableSectionChOff, + TableSectionRows, TableSectionAlign, TableSectionVAlign, + TableSectionInsertRow, TableRowSectionRowIndex, TableRowRowIndex, + TableRowChOff, TableRowCells, TableRowVAlign, TableRowCh, + TableRowAlign, TableRowBgColor, TableRowDeleteCell, TableRowInsertCell, + TableCellColSpan, TableCellNoWrap, TableCellAbbr, TableCellHeight, + TableCellWidth, TableCellCellIndex, TableCellChOff, TableCellBgColor, + TableCellCh, TableCellVAlign, TableCellRowSpan, TableCellHeaders, + TableCellAlign, TableCellAxis, TableCellScope, FrameSetCols, + FrameSetRows, FrameSrc, FrameLocation, FrameFrameBorder, FrameScrolling, + FrameMarginWidth, FrameLongDesc, FrameMarginHeight, FrameName, + FrameContentDocument, FrameContentWindow, + FrameNoResize, FrameWidth, FrameHeight, IFrameLongDesc, IFrameAlign, + IFrameFrameBorder, IFrameSrc, IFrameName, IFrameHeight, + IFrameMarginHeight, IFrameMarginWidth, IFrameScrolling, IFrameWidth, + IFrameContentDocument, IFrameContentWindow, + MarqueeStart, MarqueeStop, + LayerTop, LayerLeft, LayerVisibility, LayerBgColor, LayerClip, LayerDocument, LayerLayers, + ElementInnerHTML, ElementTitle, ElementId, ElementDir, ElementLang, + ElementClassName, ElementInnerText, ElementDocument, + ElementChildren, ElementAll, ElementScrollIntoView }; + + DOM::HTMLElement toElement() const { return static_cast<DOM::HTMLElement>(node); } + }; + + class HTMLElementFunction : public DOMFunction { + public: + HTMLElementFunction(ExecState *exec, int i, int len); + virtual Value tryCall(ExecState *exec, Object &thisObj, const List&args); + private: + int id; + }; + + class HTMLCollection : public DOMObject { + public: + HTMLCollection(ExecState *exec, const DOM::HTMLCollection& c); + HTMLCollection(const KJS::Object& proto, const DOM::HTMLCollection& c); + ~HTMLCollection(); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + virtual Value call(ExecState *exec, Object &thisObj, const List&args); + virtual Value tryCall(ExecState *exec, Object &thisObj, const List&args); + virtual bool implementsCall() const { return true; } + virtual bool toBoolean(ExecState *) const; + virtual bool hasProperty(ExecState *exec, const Identifier &p) const; + virtual ReferenceList propList(ExecState *exec, bool recursive); + enum { Item, NamedItem, Tags }; + Value getNamedItems(ExecState *exec, const Identifier &propertyName) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + DOM::HTMLCollection toCollection() const { return collection; } + virtual void hide() { hidden = true; } + protected: + DOM::HTMLCollection collection; + bool hidden; + }; + + class HTMLSelectCollection : public HTMLCollection { + public: + enum { Add }; + HTMLSelectCollection(ExecState *exec, const DOM::HTMLCollection& c, const DOM::HTMLSelectElement& e); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + + DOM::HTMLSelectElement toElement() const { return element; } + private: + DOM::HTMLSelectElement element; + }; + + ////////////////////// Option Object //////////////////////// + + class OptionConstructorImp : public ObjectImp { + public: + OptionConstructorImp(ExecState *exec, const DOM::Document &d); + virtual bool implementsConstruct() const; + virtual Object construct(ExecState *exec, const List &args); + private: + DOM::Document doc; + }; + + ////////////////////// Image Object //////////////////////// + + class ImageConstructorImp : public ObjectImp { + public: + ImageConstructorImp(ExecState *exec, const DOM::Document &d); + virtual bool implementsConstruct() const; + virtual Object construct(ExecState *exec, const List &args); + private: + DOM::Document doc; + }; + + Value getHTMLCollection(ExecState *exec, const DOM::HTMLCollection& c, bool hide=false); + Value getSelectHTMLCollection(ExecState *exec, const DOM::HTMLCollection& c, const DOM::HTMLSelectElement& e); + + + //All the pseudo constructors.. + DEFINE_PSEUDO_CONSTRUCTOR(HTMLElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLHtmlElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLHeadElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLLinkElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLTitleElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLMetaElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLBaseElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLIsIndexElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLStyleElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLBodyElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLFormElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLSelectElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLOptGroupElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLOptionElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLInputElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLTextAreaElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLButtonElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLLabelElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLFieldSetElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLLegendElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLUListElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLOListElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLDListElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLDirectoryElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLMenuElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLLIElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLDivElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLParagraphElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLHeadingElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLBlockQuoteElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLQuoteElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLPreElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLBRElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLBaseFontElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLFontElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLHRElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLModElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLAnchorElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLImageElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLObjectElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLParamElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLAppletElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLMapElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLAreaElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLScriptElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLTableElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLTableCaptionElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLTableColElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLTableSectionElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLTableRowElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLTableCellElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLFrameSetElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLLayerElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLFrameElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLIFrameElementPseudoCtor) + DEFINE_PSEUDO_CONSTRUCTOR(HTMLMarqueeElementPseudoCtor) +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_mozilla.cpp b/tdehtml/ecma/kjs_mozilla.cpp new file mode 100644 index 000000000..d26aabb5e --- /dev/null +++ b/tdehtml/ecma/kjs_mozilla.cpp @@ -0,0 +1,94 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (c) 2003 George Staikos (staikos@kde.org) + * + * 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 <tdelocale.h> +#include <kdebug.h> + +#include "kjs_mozilla.h" +#include "kjs/lookup.h" +#include "kjs_binding.h" +#include "tdehtml_part.h" +#include "kjs_mozilla.lut.h" + +using namespace KJS; + +namespace KJS { + +const ClassInfo MozillaSidebarExtension::info = { "sidebar", 0, &MozillaSidebarExtensionTable, 0 }; +/* +@begin MozillaSidebarExtensionTable 1 + addPanel MozillaSidebarExtension::addPanel DontDelete|Function 0 +@end +*/ +} +IMPLEMENT_PROTOFUNC_DOM(MozillaSidebarExtensionFunc) + +MozillaSidebarExtension::MozillaSidebarExtension(ExecState *exec, TDEHTMLPart *p) + : ObjectImp(exec->interpreter()->builtinObjectPrototype()), m_part(p) { } + +Value MozillaSidebarExtension::get(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "MozillaSidebarExtension::get " << propertyName.ascii() << endl; +#endif + return lookupGet<MozillaSidebarExtensionFunc,MozillaSidebarExtension,ObjectImp>(exec,propertyName,&MozillaSidebarExtensionTable,this); +} + +Value MozillaSidebarExtension::getValueProperty(ExecState *exec, int token) const +{ + Q_UNUSED(exec); + switch (token) { + default: + kdDebug(6070) << "WARNING: Unhandled token in MozillaSidebarExtension::getValueProperty : " << token << endl; + return Value(); + } +} + +Value MozillaSidebarExtensionFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::MozillaSidebarExtension, thisObj ); + MozillaSidebarExtension *mse = static_cast<MozillaSidebarExtension*>(thisObj.imp()); + + TDEHTMLPart *part = mse->part(); + if (!part) + return Undefined(); + + // addPanel() id == 0 + KParts::BrowserExtension *ext = part->browserExtension(); + if (ext) { + TQString url, name; + if (args.size() == 1) { // I've seen this, don't know if it's legal. + name = TQString::null; + url = args[0].toString(exec).qstring(); + } else if (args.size() == 2 || args.size() == 3) { + name = args[0].toString(exec).qstring(); + url = args[1].toString(exec).qstring(); + // 2 is the "CURL" which I don't understand and don't think we need. + } else { + return Boolean(false); + } + emit ext->addWebSideBar(KURL( url ), name); + return Boolean(true); + } + + return Undefined(); +} + + diff --git a/tdehtml/ecma/kjs_mozilla.h b/tdehtml/ecma/kjs_mozilla.h new file mode 100644 index 000000000..112af1315 --- /dev/null +++ b/tdehtml/ecma/kjs_mozilla.h @@ -0,0 +1,44 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2003 George Staikos (staikos@kde.org) + * + * 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 + */ + +#ifndef _KJS_MOZILLA_H_ +#define _KJS_MOZILLA_H_ + +#include <kjs/object.h> + +class TDEHTMLPart; + +namespace KJS { + + class MozillaSidebarExtension : public ObjectImp { + public: + MozillaSidebarExtension(ExecState *exec, TDEHTMLPart *p); + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { addPanel }; + TDEHTMLPart *part() const { return m_part; } + private: + TDEHTMLPart *m_part; + }; +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_navigator.cpp b/tdehtml/ecma/kjs_navigator.cpp new file mode 100644 index 000000000..296290744 --- /dev/null +++ b/tdehtml/ecma/kjs_navigator.cpp @@ -0,0 +1,670 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2000 Harri Porten (porten@kde.org) + * Copyright (c) 2000 Daniel Molkentin (molkentin@kde.org) + * Copyright (c) 2000 Stefan Schimanski (schimmi@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 <tdelocale.h> + +#include <kstandarddirs.h> +#include <tdeconfig.h> +#include <kdebug.h> + +#include <tdeio/tdeprotocolmanager.h> +#include <tdeio/kmimetype.h> +#include <tdeio/kservice.h> +#include <tdeio/ktrader.h> +#include "kjs_navigator.h" +#include "kjs/lookup.h" +#include "kjs_binding.h" +#include "tdehtml_part.h" +#include <sys/utsname.h> +#include "kjs_navigator.lut.h" + +using namespace KJS; + +namespace KJS { + + // All objects that need plugin info must inherit from PluginBase + // Its ctor and dtor take care of the refcounting on the static lists. + class PluginBase : public ObjectImp { + public: + PluginBase(ExecState *exec, bool loadPluginInfo); + virtual ~PluginBase(); + + struct MimeClassInfo; + struct PluginInfo; + + struct MimeClassInfo { + TQString type; + TQString desc; + TQString suffixes; + PluginInfo *plugin; + }; + + struct PluginInfo { + TQString name; + TQString file; + TQString desc; + TQPtrList<MimeClassInfo> mimes; + }; + + static TQPtrList<PluginInfo> *plugins; + static TQPtrList<MimeClassInfo> *mimes; + + private: + static int m_refCount; + }; + + + class Plugins : public PluginBase { + public: + Plugins(ExecState *exec, bool pluginsEnabled) + : PluginBase(exec, pluginsEnabled), + m_pluginsEnabled(pluginsEnabled) {}; + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + Value pluginByName( ExecState* exec, const TQString& name ) const; + bool pluginsEnabled() const { return m_pluginsEnabled; }; + private: + bool m_pluginsEnabled; + }; + + + class MimeTypes : public PluginBase { + public: + MimeTypes(ExecState *exec, bool pluginsEnabled) + : PluginBase(exec, pluginsEnabled), + m_pluginsEnabled(pluginsEnabled) {}; + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + Value getValueProperty(ExecState *exec, int token) const; + Value mimeTypeByName( ExecState* exec, const TQString& name ) const; + bool pluginsEnabled() const { return m_pluginsEnabled; }; + private: + bool m_pluginsEnabled; + }; + + + class Plugin : public PluginBase { + public: + Plugin( ExecState *exec, PluginBase::PluginInfo *info ) + : PluginBase( exec, true ) + { m_info = info; }; + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + Value mimeByName(ExecState* exec, const TQString& name ) const; + Value getValueProperty(ExecState *exec, int token) const; + PluginBase::PluginInfo *pluginInfo() const { return m_info; } + private: + PluginBase::PluginInfo *m_info; + }; + + + class MimeType : public PluginBase { + public: + MimeType( ExecState *exec, PluginBase::MimeClassInfo *info ) + : PluginBase( exec, true ) + { m_info = info; }; + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + Value getValueProperty(ExecState *exec, int token) const; + private: + PluginBase::MimeClassInfo *m_info; + }; + +} + + +TQPtrList<PluginBase::PluginInfo> *KJS::PluginBase::plugins = 0; +TQPtrList<PluginBase::MimeClassInfo> *KJS::PluginBase::mimes = 0; +int KJS::PluginBase::m_refCount = 0; + +const ClassInfo Navigator::info = { "Navigator", 0, &NavigatorTable, 0 }; +/* +@begin NavigatorTable 12 + appCodeName Navigator::AppCodeName DontDelete|ReadOnly + appName Navigator::AppName DontDelete|ReadOnly + appVersion Navigator::AppVersion DontDelete|ReadOnly + language Navigator::Language DontDelete|ReadOnly + userAgent Navigator::UserAgent DontDelete|ReadOnly + userLanguage Navigator::UserLanguage DontDelete|ReadOnly + browserLanguage Navigator::BrowserLanguage DontDelete|ReadOnly + platform Navigator::Platform DontDelete|ReadOnly + cpuClass Navigator::CpuClass DontDelete|ReadOnly + plugins Navigator::_Plugins DontDelete|ReadOnly + mimeTypes Navigator::_MimeTypes DontDelete|ReadOnly + product Navigator::Product DontDelete|ReadOnly + vendor Navigator::Vendor DontDelete|ReadOnly + productSub Navigator::ProductSub DontDelete|ReadOnly + cookieEnabled Navigator::CookieEnabled DontDelete|ReadOnly + javaEnabled Navigator::JavaEnabled DontDelete|Function 0 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(NavigatorFunc) + +Navigator::Navigator(ExecState *exec, TDEHTMLPart *p) + : ObjectImp(exec->interpreter()->builtinObjectPrototype()), m_part(p) { } + +Value Navigator::get(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "Navigator::get " << propertyName.ascii() << endl; +#endif + return lookupGet<NavigatorFunc,Navigator,ObjectImp>(exec,propertyName,&NavigatorTable,this); +} + +Value Navigator::getValueProperty(ExecState *exec, int token) const +{ + KURL url = m_part->url(); + TQString userAgent = url.host(); + if (userAgent.isEmpty()) + userAgent = "localhost"; + userAgent = KProtocolManager::userAgentForHost(userAgent); + switch (token) { + case AppCodeName: + return String("Mozilla"); + case AppName: + // If we find "Mozilla" but not "(compatible, ...)" we are a real Netscape + if (userAgent.find(TQString::fromLatin1("Mozilla")) >= 0 && + userAgent.find(TQString::fromLatin1("compatible")) == -1) + { + //kdDebug() << "appName -> Mozilla" << endl; + return String("Netscape"); + } + if (userAgent.find(TQString::fromLatin1("Microsoft")) >= 0 || + userAgent.find(TQString::fromLatin1("MSIE")) >= 0) + { + //kdDebug() << "appName -> IE" << endl; + return String("Microsoft Internet Explorer"); + } + //kdDebug() << "appName -> Konqueror" << endl; + return String("Konqueror"); + case AppVersion: + // We assume the string is something like Mozilla/version (properties) + return String(userAgent.mid(userAgent.find('/') + 1)); + case Product: + // We are pretending to be Mozilla or Safari + if (userAgent.find(TQString::fromLatin1("Mozilla")) >= 0 && + userAgent.find(TQString::fromLatin1("compatible")) == -1) + { + return String("Gecko"); + } + // When spoofing as IE, we use Undefined(). + if (userAgent.find(TQString::fromLatin1("Microsoft")) >= 0 || + userAgent.find(TQString::fromLatin1("MSIE")) >= 0) + { + return Undefined(); + } + // We are acting straight + return String("Konqueror/tdehtml"); + case ProductSub: + { + int ix = userAgent.find("Gecko"); + if (ix >= 0 && userAgent.length() >= (uint)ix+14 && userAgent.unicode()[ix+5] == TQChar('/') && + userAgent.find(TQRegExp("\\d{8}"), ix+6) == ix+6) + { + // We have Gecko/<productSub> in the UA string + return String(userAgent.mid(ix+6, 8)); + } + else if (ix >= 0) + { + return String("20040107"); + } + } + return Undefined(); + case Vendor: + return String("KDE"); + case BrowserLanguage: + case Language: + case UserLanguage: + return String(TDEGlobal::locale()->language()); + case UserAgent: + return String(userAgent); + case Platform: + // yet another evil hack, but necessary to spoof some sites... + if ( (userAgent.find(TQString::fromLatin1("Win"),0,false)>=0) ) + return String(TQString::fromLatin1("Win32")); + else if ( (userAgent.find(TQString::fromLatin1("Macintosh"),0,false)>=0) || + (userAgent.find(TQString::fromLatin1("Mac_PowerPC"),0,false)>=0) ) + return String(TQString::fromLatin1("MacPPC")); + else + { + struct utsname name; + int ret = uname(&name); + if ( ret >= 0 ) + return String(TQString(TQString::fromLatin1("%1 %1 X11").arg(name.sysname).arg(name.machine))); + else // can't happen + return String(TQString(TQString::fromLatin1("Unix X11"))); + } + case CpuClass: + { + struct utsname name; + int ret = uname(&name); + if ( ret >= 0 ) + return String(name.machine); + else // can't happen + return String("x86"); + } + case _Plugins: + return Value(new Plugins(exec, m_part->pluginsEnabled())); + case _MimeTypes: + return Value(new MimeTypes(exec, m_part->pluginsEnabled())); + case CookieEnabled: + return Boolean(true); /// ##### FIXME + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMEvent::getValueProperty : " << token << endl; + return Value(); + } +} + +/*******************************************************************/ + +PluginBase::PluginBase(ExecState *exec, bool loadPluginInfo) + : ObjectImp(exec->interpreter()->builtinObjectPrototype() ) +{ + if ( loadPluginInfo && !plugins ) { + plugins = new TQPtrList<PluginInfo>; + mimes = new TQPtrList<MimeClassInfo>; + plugins->setAutoDelete( true ); + mimes->setAutoDelete( true ); + + // read in using TDETrader + TDETrader::OfferList offers = TDETrader::self()->query("Browser/View"); + TDETrader::OfferList::iterator it; + for ( it = offers.begin(); it != offers.end(); ++it ) { + + TQVariant pluginsinfo = (**it).property( "X-TDE-BrowserView-PluginsInfo" ); + if ( !pluginsinfo.isValid() ) { + // <backwards compatible> + if ((**it).library() == TQString("libnsplugin")) + pluginsinfo = TQVariant("nsplugins/pluginsinfo"); + else + // </backwards compatible> + continue; + } + // read configuration + TDEConfig kc( locate ("data", pluginsinfo.toString()) ); + unsigned num = (unsigned int) kc.readNumEntry("number"); + for ( unsigned n = 0; n < num; n++ ) { + kc.setGroup( TQString::number(n) ); + PluginInfo *plugin = new PluginInfo; + + plugin->name = kc.readEntry("name"); + plugin->file = kc.readPathEntry("file"); + plugin->desc = kc.readEntry("description"); + + plugins->append( plugin ); + + // get mime types from string + TQStringList types = TQStringList::split( ';', kc.readEntry("mime") ); + TQStringList::Iterator type; + for ( type=types.begin(); type!=types.end(); ++type ) { + + // get mime information + TQStringList tokens = TQStringList::split(':', *type, true); + if ( tokens.count() < 3 ) // we need 3 items + continue; + + MimeClassInfo *mime = new MimeClassInfo; + TQStringList::Iterator token = tokens.begin(); + mime->type = (*token).lower(); + //kdDebug(6070) << "mime->type=" << mime->type << endl; + ++token; + + mime->suffixes = *token; + ++token; + + mime->desc = *token; + ++token; + + mime->plugin = plugin; + + mimes->append( mime ); + plugin->mimes.append( mime ); + + } + } + } + } + + m_refCount++; +} + +PluginBase::~PluginBase() +{ + m_refCount--; + if ( m_refCount==0 ) { + delete plugins; + delete mimes; + plugins = 0; + mimes = 0; + } +} + + +/*******************************************************************/ + +const ClassInfo Plugins::info = { "PluginArray", 0, &PluginsTable, 0 }; +/* +@begin PluginsTable 4 + length Plugins_Length DontDelete|ReadOnly + refresh Plugins_Refresh DontDelete|Function 0 + item Plugins_Item DontDelete|Function 1 + namedItem Plugins_NamedItem DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(PluginsFunc) + +Value Plugins::get(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "Plugins::get " << propertyName.qstring() << endl; +#endif + if (!pluginsEnabled()) { + if (propertyName == lengthPropertyName ) + return Number(0); + } else { + if ( propertyName == lengthPropertyName ) + return Number(plugins->count()); + + // plugins[#] + bool ok; + unsigned int i = propertyName.toULong(&ok); + if( ok && i<plugins->count() ) + return Value( new Plugin( exec, plugins->at(i) ) ); + + // plugin[name] + Value val = pluginByName( exec, propertyName.qstring() ); + if (!val.isA(UndefinedType)) + return val; + } + + return lookupGet<PluginsFunc,Plugins,ObjectImp>(exec,propertyName,&PluginsTable,this); +} + +Value Plugins::pluginByName( ExecState* exec, const TQString& name ) const +{ + Q_ASSERT(plugins); + for ( PluginInfo *pl = plugins->first(); pl!=0; pl = plugins->next() ) { + if ( pl->name == name ) + return Value( new Plugin( exec, pl ) ); + } + return Undefined(); +} + +Value Plugins::getValueProperty(ExecState* /*exec*/, int token) const +{ + kdDebug(6070) << "WARNING: Unhandled token in Plugins::getValueProperty : " << token << endl; + return Undefined(); +} + +Value PluginsFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::Plugins, thisObj ); + KJS::Plugins* base = static_cast<KJS::Plugins *>(thisObj.imp()); + if (!base->pluginsEnabled()) { + if (id == Plugins_Refresh || //## TODO + id == Plugins_Item || + id == Plugins_NamedItem) + return Undefined(); + } else { + switch( id ) { + case Plugins_Refresh: + return Undefined(); //## TODO + case Plugins_Item: + { + bool ok; + unsigned int i = args[0].toString(exec).toArrayIndex(&ok); + if( ok && i<base->plugins->count() ) + return Value( new Plugin( exec, base->plugins->at(i) ) ); + return Undefined(); + } + case Plugins_NamedItem: + UString s = args[0].toString(exec); + return base->pluginByName( exec, s.qstring() ); + } + } + kdDebug(6070) << "WARNING: Unhandled token in PluginsFunc::tryCall : " << id << endl; + return Undefined(); +} + +/*******************************************************************/ + +const ClassInfo MimeTypes::info = { "MimeTypeArray", 0, &MimeTypesTable, 0 }; +/* +@begin MimeTypesTable 3 + length MimeTypes_Length DontDelete|ReadOnly + item MimeTypes_Item DontDelete|Function 1 + namedItem MimeTypes_NamedItem DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(MimeTypesFunc) + +Value MimeTypes::get(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "MimeTypes::get " << propertyName.qstring() << endl; +#endif + if (!pluginsEnabled()) { + if (propertyName == lengthPropertyName ) + return Number(0); + } else { + if( propertyName==lengthPropertyName ) + return Number( mimes->count() ); + + // mimeTypes[#] + bool ok; + unsigned int i = propertyName.toULong(&ok); + if( ok && i<mimes->count() ) + return Value( new MimeType( exec, mimes->at(i) ) ); + + // mimeTypes[name] + Value val = mimeTypeByName( exec, propertyName.qstring() ); + if (!val.isA(UndefinedType)) + return val; + } + + return lookupGet<MimeTypesFunc,MimeTypes,ObjectImp>(exec,propertyName,&MimeTypesTable,this); +} + +Value MimeTypes::mimeTypeByName( ExecState* exec, const TQString& name ) const +{ + //kdDebug(6070) << "MimeTypes[" << name << "]" << endl; + Q_ASSERT(mimes); + for ( MimeClassInfo *m = mimes->first(); m!=0; m = mimes->next() ) { + if ( m->type == name ) + return Value( new MimeType( exec, m ) ); + } + return Undefined(); +} + +Value MimeTypes::getValueProperty(ExecState* /*exec*/, int token) const +{ + kdDebug(6070) << "WARNING: Unhandled token in MimeTypes::getValueProperty : " << token << endl; + return Undefined(); +} + +Value MimeTypesFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::MimeTypes, thisObj ); + KJS::MimeTypes* base = static_cast<KJS::MimeTypes *>(thisObj.imp()); + if (!base->pluginsEnabled()) { + if (id == MimeTypes_Item || + id == MimeTypes_NamedItem) + return Undefined(); + } else { + switch( id ) { + case MimeTypes_Item: + { + bool ok; + unsigned int i = args[0].toString(exec).toArrayIndex(&ok); + if( ok && i<base->mimes->count() ) + return Value( new MimeType( exec, base->mimes->at(i) ) ); + return Undefined(); + } + case MimeTypes_NamedItem: + UString s = args[0].toString(exec); + return base->mimeTypeByName( exec, s.qstring() ); + } + } + kdDebug(6070) << "WARNING: Unhandled token in MimeTypesFunc::tryCall : " << id << endl; + return Undefined(); +} + +/************************************************************************/ +const ClassInfo Plugin::info = { "Plugin", 0, &PluginTable, 0 }; +/* +@begin PluginTable 7 + name Plugin_Name DontDelete|ReadOnly + filename Plugin_FileName DontDelete|ReadOnly + description Plugin_Description DontDelete|ReadOnly + length Plugin_Length DontDelete|ReadOnly + item Plugin_Item DontDelete|Function 1 + namedItem Plugin_NamedItem DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(PluginFunc) + +Value Plugin::get(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "Plugin::get " << propertyName.qstring() << endl; +#endif + if ( propertyName == lengthPropertyName ) + return Number( m_info->mimes.count() ); + + // plugin[#] + bool ok; + unsigned int i = propertyName.toULong(&ok); + //kdDebug(6070) << "Plugin::get plugin[" << i << "]" << endl; + if( ok && i<m_info->mimes.count() ) + { + //kdDebug(6070) << "returning mimetype " << m_info->mimes.at(i)->type << endl; + return Value(new MimeType(exec, m_info->mimes.at(i))); + } + + // plugin["name"] + Value val = mimeByName( exec, propertyName.qstring() ); + if (!val.isA(UndefinedType)) + return val; + + return lookupGet<PluginFunc,Plugin,ObjectImp>(exec, propertyName, &PluginTable, this ); +} + +Value Plugin::mimeByName(ExecState* exec, const TQString& name) const +{ + for ( PluginBase::MimeClassInfo *m = m_info->mimes.first(); + m != 0; m = m_info->mimes.next() ) { + if ( m->type == name ) + return Value(new MimeType(exec, m)); + } + return Undefined(); +} + +Value Plugin::getValueProperty(ExecState* /*exec*/, int token) const +{ + switch( token ) { + case Plugin_Name: + return String( m_info->name ); + case Plugin_FileName: + return String( m_info->file ); + case Plugin_Description: + return String( m_info->desc ); + default: + kdDebug(6070) << "WARNING: Unhandled token in Plugin::getValueProperty : " << token << endl; + return Undefined(); + } +} + +Value PluginFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::Plugin, thisObj ); + KJS::Plugin* plugin = static_cast<KJS::Plugin *>(thisObj.imp()); + switch( id ) { + case Plugin_Item: + { + bool ok; + unsigned int i = args[0].toString(exec).toArrayIndex(&ok); + if( ok && i< plugin->pluginInfo()->mimes.count() ) + return Value( new MimeType( exec, plugin->pluginInfo()->mimes.at(i) ) ); + return Undefined(); + } + case Plugin_NamedItem: + { + UString s = args[0].toString(exec); + return plugin->mimeByName( exec, s.qstring() ); + } + default: + kdDebug(6070) << "WARNING: Unhandled token in PluginFunc::tryCall : " << id << endl; + return Undefined(); + } +} + +/*****************************************************************************/ + +const ClassInfo MimeType::info = { "MimeType", 0, &MimeTypeTable, 0 }; +/* +@begin MimeTypeTable 4 + description MimeType_Description DontDelete|ReadOnly + enabledPlugin MimeType_EnabledPlugin DontDelete|ReadOnly + suffixes MimeType_Suffixes DontDelete|ReadOnly + type MimeType_Type DontDelete|ReadOnly +@end +*/ + +Value MimeType::get(ExecState *exec, const Identifier &propertyName) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "MimeType::get " << propertyName.qstring() << endl; +#endif + return lookupGetValue<MimeType,ObjectImp>(exec, propertyName, &MimeTypeTable, this ); +} + +Value MimeType::getValueProperty(ExecState* exec, int token) const +{ + switch( token ) { + case MimeType_Type: + return String( m_info->type ); + case MimeType_Suffixes: + return String( m_info->suffixes ); + case MimeType_Description: + return String( m_info->desc ); + case MimeType_EnabledPlugin: + return Value(new Plugin(exec, m_info->plugin)); + default: + kdDebug(6070) << "WARNING: Unhandled token in MimeType::getValueProperty : " << token << endl; + return Undefined(); + } +} + + +Value NavigatorFunc::tryCall(ExecState *exec, Object &thisObj, const List &) +{ + KJS_CHECK_THIS( KJS::Navigator, thisObj ); + Navigator *nav = static_cast<Navigator *>(thisObj.imp()); + // javaEnabled() + return Boolean(nav->part()->javaEnabled()); +} diff --git a/tdehtml/ecma/kjs_navigator.h b/tdehtml/ecma/kjs_navigator.h new file mode 100644 index 000000000..9298b3761 --- /dev/null +++ b/tdehtml/ecma/kjs_navigator.h @@ -0,0 +1,53 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2000 Harri Porten (porten@kde.org) + * + * 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 + */ + +#ifndef _KJS_NAVIGATOR_H_ +#define _KJS_NAVIGATOR_H_ + +#include <kjs/object.h> + +class TDEHTMLPart; + +namespace KJS { + + class Navigator : public ObjectImp { + public: + Navigator(ExecState *exec, TDEHTMLPart *p); + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { AppCodeName, AppName, AppVersion, Language, UserAgent, UserLanguage, Platform, + _Plugins, _MimeTypes, Product, ProductSub, Vendor, CookieEnabled, JavaEnabled, + BrowserLanguage, CpuClass }; + TDEHTMLPart *part() const { return m_part; } + private: + TDEHTMLPart *m_part; + }; + + // Hashtable enums + enum { Plugins_Refresh, Plugins_Length, Plugins_Item, Plugins_NamedItem }; + enum { MimeTypes_Length, MimeTypes_Item, MimeTypes_NamedItem }; + enum { Plugin_Name, Plugin_FileName, Plugin_Description, Plugin_Length, Plugin_Item, Plugin_NamedItem }; + enum { MimeType_Type, MimeType_Description, MimeType_EnabledPlugin, MimeType_Suffixes }; + +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_proxy.cpp b/tdehtml/ecma/kjs_proxy.cpp new file mode 100644 index 000000000..bdd7183fe --- /dev/null +++ b/tdehtml/ecma/kjs_proxy.cpp @@ -0,0 +1,411 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 1999-2001 Harri Porten (porten@kde.org) + * Copyright (C) 2001,2003 Peter Kelly (pmk@post.com) + * Copyright (C) 2001-2003 David Faure (faure@kde.org) + * + * 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 <config.h> + +#if defined(HAVE_VALGRIND_MEMCHECK_H) && !defined(NDEBUG) + +#include <valgrind/memcheck.h> +#define VALGRIND_SUPPORT + +#endif + + +#include "kjs_proxy.h" + +#include "kjs_window.h" +#include "kjs_events.h" +#include "kjs_debugwin.h" +#include "xml/dom_nodeimpl.h" +#include "tdehtmlpart_p.h" +#include <tdehtml_part.h> +#include <tdeprotocolmanager.h> +#include <kdebug.h> +#include <tdemessagebox.h> +#include <tdelocale.h> +#include <unistd.h> +#include <signal.h> +#include <sys/time.h> +#include <assert.h> +#include <kjs/function.h> + +using namespace KJS; + +extern "C" { + KJSProxy *kjs_html_init(tdehtml::ChildFrame *childframe); +} + +namespace KJS { + +class KJSProxyImpl : public KJSProxy { +public: + KJSProxyImpl(tdehtml::ChildFrame *frame); + virtual ~KJSProxyImpl(); + virtual TQVariant evaluate(TQString filename, int baseLine, const TQString &, const DOM::Node &n, + Completion *completion = 0); + virtual void clear(); + virtual DOM::EventListener *createHTMLEventHandler(TQString sourceUrl, TQString name, TQString code, DOM::NodeImpl *node); + virtual void finishedWithEvent(const DOM::Event &event); + virtual KJS::Interpreter *interpreter(); + + virtual void setDebugEnabled(bool enabled); + virtual void showDebugWindow(bool show=true); + virtual bool paused() const; + virtual void dataReceived(); + + void initScript(); + void applyUserAgent(); + +private: + KJS::ScriptInterpreter* m_script; + bool m_debugEnabled; +#ifndef NDEBUG + static int s_count; +#endif +}; + +} // namespace KJS + +#ifndef NDEBUG +int KJSProxyImpl::s_count = 0; +#endif + +KJSProxyImpl::KJSProxyImpl(tdehtml::ChildFrame *frame) +{ + m_script = 0; + m_frame = frame; + m_debugEnabled = false; +#ifndef NDEBUG + s_count++; +#endif +} + +KJSProxyImpl::~KJSProxyImpl() +{ + if ( m_script ) { + //kdDebug() << "KJSProxyImpl::~KJSProxyImpl clearing global object " << m_script->globalObject().imp() << endl; + // This allows to delete the global-object properties, like all the protos + static_cast<ObjectImp*>(m_script->globalObject().imp())->deleteAllProperties( m_script->globalExec() ); + //kdDebug() << "KJSProxyImpl::~KJSProxyImpl garbage collecting" << endl; + while (KJS::Interpreter::collect()) + ; + //kdDebug() << "KJSProxyImpl::~KJSProxyImpl deleting interpreter " << m_script << endl; + delete m_script; + //kdDebug() << "KJSProxyImpl::~KJSProxyImpl garbage collecting again" << endl; + // Garbage collect - as many times as necessary + // (we could delete an object which was holding another object, so + // the deref() will happen too late for deleting the impl of the 2nd object). + while (KJS::Interpreter::collect()) + ; + } + +#ifndef NDEBUG + s_count--; + // If it was the last interpreter, we should have nothing left +#ifdef KJS_DEBUG_MEM + if ( s_count == 0 ) + Interpreter::finalCheck(); +#endif +#endif +} + +TQVariant KJSProxyImpl::evaluate(TQString filename, int baseLine, + const TQString&str, const DOM::Node &n, Completion *completion) { + // evaluate code. Returns the JS return value or an invalid QVariant + // if there was none, an error occurred or the type couldn't be converted. + + initScript(); + // inlineCode is true for <a href="javascript:doSomething()"> + // and false for <script>doSomething()</script>. Check if it has the + // expected value in all cases. + // See smart window.open policy for where this is used. + bool inlineCode = filename.isNull(); + //kdDebug(6070) << "KJSProxyImpl::evaluate inlineCode=" << inlineCode << endl; + +#ifdef KJS_DEBUGGER + if (inlineCode) + filename = "(unknown file)"; + if (KJSDebugWin::debugWindow()) { + KJSDebugWin::debugWindow()->attach(m_script); + KJSDebugWin::debugWindow()->setNextSourceInfo(filename,baseLine); + // KJSDebugWin::debugWindow()->setMode(KJSDebugWin::Step); + } +#else + Q_UNUSED(baseLine); +#endif + + m_script->setInlineCode(inlineCode); + Window* window = Window::retrieveWindow( m_frame->m_part ); + KJS::Value thisNode = n.isNull() ? Window::retrieve( m_frame->m_part ) : getDOMNode(m_script->globalExec(),n); + + UString code( str ); + + KJSCPUGuard guard; + guard.start(); + Completion comp = m_script->evaluate(code, thisNode); + guard.stop(); + + bool success = ( comp.complType() == Normal ) || ( comp.complType() == ReturnValue ); + + if (completion) + *completion = comp; + +#ifdef KJS_DEBUGGER + // KJSDebugWin::debugWindow()->setCode(TQString::null); +#endif + + window->afterScriptExecution(); + + // let's try to convert the return value + if (success && comp.value().isValid()) + return ValueToVariant( m_script->globalExec(), comp.value()); + else + { + if ( comp.complType() == Throw ) + { + UString msg = comp.value().toString(m_script->globalExec()); + kdDebug(6070) << "WARNING: Script threw exception: " << msg.qstring() << endl; + } + return TQVariant(); + } +} + +// Implementation of the debug() function +class TestFunctionImp : public ObjectImp { +public: + TestFunctionImp() : ObjectImp() {} + virtual bool implementsCall() const { return true; } + virtual Value call(ExecState *exec, Object &thisObj, const List &args); +}; + +Value TestFunctionImp::call(ExecState *exec, Object &/*thisObj*/, const List &args) +{ + fprintf(stderr,"--> %s\n",args[0].toString(exec).ascii()); + return Undefined(); +} + +void KJSProxyImpl::clear() { + // clear resources allocated by the interpreter, and make it ready to be used by another page + // We have to keep it, so that the Window object for the part remains the same. + // (we used to delete and re-create it, previously) + if (m_script) { +#ifdef KJS_DEBUGGER + // ### + KJSDebugWin *debugWin = KJSDebugWin::debugWindow(); + if (debugWin) { + if (debugWin->getExecState() && + debugWin->getExecState()->interpreter() == m_script) + debugWin->slotStop(); + debugWin->clearInterpreter(m_script); + } +#endif + m_script->clear(); + + Window *win = static_cast<Window *>(m_script->globalObject().imp()); + if (win) { + win->clear( m_script->globalExec() ); + // re-add "debug", clear() removed it + m_script->globalObject().put(m_script->globalExec(), + "debug", Value(new TestFunctionImp()), Internal); + if ( win->part() ) + applyUserAgent(); + } + + // Really delete everything that can be, so that the DOM nodes get deref'ed + //kdDebug() << k_funcinfo << "all done -> collecting" << endl; + while (KJS::Interpreter::collect()) + ; + } +} + +DOM::EventListener *KJSProxyImpl::createHTMLEventHandler(TQString sourceUrl, TQString name, TQString code, DOM::NodeImpl *node) +{ + initScript(); + +#ifdef KJS_DEBUGGER + if (KJSDebugWin::debugWindow()) { + KJSDebugWin::debugWindow()->attach(m_script); + KJSDebugWin::debugWindow()->setNextSourceInfo(sourceUrl,m_handlerLineno); + } +#else + Q_UNUSED(sourceUrl); +#endif + + return KJS::Window::retrieveWindow(m_frame->m_part)->getJSLazyEventListener(code,name,node); +} + +void KJSProxyImpl::finishedWithEvent(const DOM::Event &event) +{ + // This is called when the DOM implementation has finished with a particular event. This + // is the case in sitations where an event has been created just for temporary usage, + // e.g. an image load or mouse move. Once the event has been dispatched, it is forgotten + // by the DOM implementation and so does not need to be cached still by the interpreter + ScriptInterpreter::forgetDOMObject(event.handle()); +} + +KJS::Interpreter *KJSProxyImpl::interpreter() +{ + if (!m_script) + initScript(); + return m_script; +} + +void KJSProxyImpl::setDebugEnabled(bool enabled) +{ +#ifdef KJS_DEBUGGER + m_debugEnabled = enabled; + //if (m_script) + // m_script->setDebuggingEnabled(enabled); + // NOTE: this is consistent across all KJSProxyImpl instances, as we only + // ever have 1 debug window + if (!enabled && KJSDebugWin::debugWindow()) { + KJSDebugWin::destroyInstance(); + } + else if (enabled && !KJSDebugWin::debugWindow()) { + KJSDebugWin::createInstance(); + initScript(); + KJSDebugWin::debugWindow()->attach(m_script); + } +#else + Q_UNUSED(enabled); +#endif +} + +void KJSProxyImpl::showDebugWindow(bool /*show*/) +{ +#ifdef KJS_DEBUGGER + if (KJSDebugWin::debugWindow()) + KJSDebugWin::debugWindow()->show(); +#else + //Q_UNUSED(show); +#endif +} + +bool KJSProxyImpl::paused() const +{ +#ifdef KJS_DEBUGGER + if (KJSDebugWin::debugWindow()) + return KJSDebugWin::debugWindow()->inSession(); +#endif + return false; +} + +void KJSProxyImpl::dataReceived() +{ +#ifdef KJS_DEBUGGER + if (KJSDebugWin::debugWindow() && m_frame->m_part) + KJSDebugWin::debugWindow()->sourceChanged(m_script,m_frame->m_part->url().url()); +#endif +} + +void KJSProxyImpl::initScript() +{ + if (m_script) + return; + + // Build the global object - which is a Window instance + Object globalObject( new Window(m_frame) ); + + // Create a KJS interpreter for this part + m_script = new KJS::ScriptInterpreter(globalObject, m_frame); + static_cast<ObjectImp*>(globalObject.imp())->setPrototype(m_script->builtinObjectPrototype()); + +#ifdef KJS_DEBUGGER + //m_script->setDebuggingEnabled(m_debugEnabled); +#endif + //m_script->enableDebug(); + globalObject.put(m_script->globalExec(), + "debug", Value(new TestFunctionImp()), Internal); + applyUserAgent(); +} + +void KJSProxyImpl::applyUserAgent() +{ + assert( m_script ); + TQString host = m_frame->m_part->url().isLocalFile() ? "localhost" : m_frame->m_part->url().host(); + TQString userAgent = KProtocolManager::userAgentForHost(host); + if (userAgent.find(TQString::fromLatin1("Microsoft")) >= 0 || + userAgent.find(TQString::fromLatin1("MSIE")) >= 0) + { + m_script->setCompatMode(Interpreter::IECompat); +#ifdef KJS_VERBOSE + kdDebug() << "Setting IE compat mode" << endl; +#endif + } + else + // If we find "Mozilla" but not "(compatible, ...)" we are a real Netscape + if (userAgent.find(TQString::fromLatin1("Mozilla")) >= 0 && + userAgent.find(TQString::fromLatin1("compatible")) == -1 && + userAgent.find(TQString::fromLatin1("TDEHTML")) == -1) + { + m_script->setCompatMode(Interpreter::NetscapeCompat); +#ifdef KJS_VERBOSE + kdDebug() << "Setting NS compat mode" << endl; +#endif + } +} + +// Helper method, so that all classes which need jScript() don't need to be added +// as friend to TDEHTMLPart +KJSProxy * KJSProxy::proxy( TDEHTMLPart *part ) +{ + return part->jScript(); +} + +// initialize HTML module +KJSProxy *kjs_html_init(tdehtml::ChildFrame *childframe) +{ + return new KJSProxyImpl(childframe); +} + +void KJSCPUGuard::start(unsigned int ms, unsigned int i_ms) +{ +#ifdef VALGRIND_SUPPORT + if (RUNNING_ON_VALGRIND) { + ms *= 50; + i_ms *= 50; + } +#endif + + oldAlarmHandler = signal(SIGVTALRM, alarmHandler); + itimerval tv = { + { i_ms / 1000, (i_ms % 1000) * 1000 }, + { ms / 1000, (ms % 1000) * 1000 } + }; + setitimer(ITIMER_VIRTUAL, &tv, &oldtv); +} + +void KJSCPUGuard::stop() +{ + setitimer(ITIMER_VIRTUAL, &oldtv, 0L); + signal(SIGVTALRM, oldAlarmHandler); +} + +bool KJSCPUGuard::confirmTerminate() { + kdDebug(6070) << "alarmhandler" << endl; + return KMessageBox::warningYesNo(0L, i18n("A script on this page is causing TDEHTML to freeze. If it continues to run, other applications may become less responsive.\nDo you want to abort the script?"), i18n("JavaScript"), i18n("&Abort"), KStdGuiItem::cont(), "kjscupguard_alarmhandler") == KMessageBox::Yes; +} + +void KJSCPUGuard::alarmHandler(int) { + ExecState::requestTerminate(); + ExecState::confirmTerminate = KJSCPUGuard::confirmTerminate; +} diff --git a/tdehtml/ecma/kjs_proxy.h b/tdehtml/ecma/kjs_proxy.h new file mode 100644 index 000000000..bac9e9579 --- /dev/null +++ b/tdehtml/ecma/kjs_proxy.h @@ -0,0 +1,91 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 1999 Harri Porten (porten@kde.org) + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * + * 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 + */ + +#ifndef _KJS_PROXY_H_ +#define _KJS_PROXY_H_ + +#include <tqvariant.h> +#include <tqstring.h> +#include <sys/time.h> + +class TDEHTMLPart; + +namespace DOM { + class Node; + class NodeImpl; + class EventListener; + class Event; +} + +namespace KJS { + class List; + class Interpreter; + class Completion; + class KJSDebugWin; +} + +namespace tdehtml { + class ChildFrame; +} + +/** + * @internal + * + * @short Proxy class serving as interface when being dlopen'ed. + */ +class KJSProxy { +public: + KJSProxy() { m_handlerLineno = 0; } + virtual ~KJSProxy() { } + virtual TQVariant evaluate(TQString filename, int baseLine, const TQString &, const DOM::Node &n, + KJS::Completion *completion = 0) = 0; + virtual void clear() = 0; + virtual DOM::EventListener *createHTMLEventHandler(TQString sourceUrl, TQString name, TQString code, DOM::NodeImpl* node) = 0; + virtual void finishedWithEvent(const DOM::Event &event) = 0; + virtual KJS::Interpreter *interpreter() = 0; + + virtual void setDebugEnabled(bool enabled) = 0; + virtual void showDebugWindow(bool show=true) = 0; + virtual bool paused() const = 0; + virtual void dataReceived() = 0; + + void setEventHandlerLineno(int lineno) { m_handlerLineno = lineno; } + + tdehtml::ChildFrame *m_frame; + int m_handlerLineno; + + // Helper method, to access the private TDEHTMLPart::jScript() + static KJSProxy *proxy( TDEHTMLPart *part ); +}; + +class KJSCPUGuard { +public: + KJSCPUGuard() {} + void start(unsigned int msec=5000, unsigned int i_msec=10000); + void stop(); +private: + void (*oldAlarmHandler)(int); + static void alarmHandler(int); + static bool confirmTerminate(); + itimerval oldtv; +}; + +#endif diff --git a/tdehtml/ecma/kjs_range.cpp b/tdehtml/ecma/kjs_range.cpp new file mode 100644 index 000000000..bf148ffe8 --- /dev/null +++ b/tdehtml/ecma/kjs_range.cpp @@ -0,0 +1,233 @@ + +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * 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_range.h" +#include "kjs_range.lut.h" +#include <kdebug.h> + +namespace KJS { + +// ------------------------------------------------------------------------- + +const ClassInfo DOMRange::info = { "Range", 0, &DOMRangeTable, 0 }; +/* +@begin DOMRangeTable 7 + startContainer DOMRange::StartContainer DontDelete|ReadOnly + startOffset DOMRange::StartOffset DontDelete|ReadOnly + endContainer DOMRange::EndContainer DontDelete|ReadOnly + endOffset DOMRange::EndOffset DontDelete|ReadOnly + collapsed DOMRange::Collapsed DontDelete|ReadOnly + commonAncestorContainer DOMRange::CommonAncestorContainer DontDelete|ReadOnly +@end +@begin DOMRangeProtoTable 17 +setStart DOMRange::SetStart DontDelete|Function 2 + setEnd DOMRange::SetEnd DontDelete|Function 2 + setStartBefore DOMRange::SetStartBefore DontDelete|Function 1 + setStartAfter DOMRange::SetStartAfter DontDelete|Function 1 + setEndBefore DOMRange::SetEndBefore DontDelete|Function 1 + setEndAfter DOMRange::SetEndAfter DontDelete|Function 1 + collapse DOMRange::Collapse DontDelete|Function 1 + selectNode DOMRange::SelectNode DontDelete|Function 1 + selectNodeContents DOMRange::SelectNodeContents DontDelete|Function 1 + compareBoundaryPoints DOMRange::CompareBoundaryPoints DontDelete|Function 2 + deleteContents DOMRange::DeleteContents DontDelete|Function 0 + extractContents DOMRange::ExtractContents DontDelete|Function 0 + cloneContents DOMRange::CloneContents DontDelete|Function 0 + insertNode DOMRange::InsertNode DontDelete|Function 1 + surroundContents DOMRange::SurroundContents DontDelete|Function 1 + cloneRange DOMRange::CloneRange DontDelete|Function 0 + toString DOMRange::ToString DontDelete|Function 0 + detach DOMRange::Detach DontDelete|Function 0 + createContextualFragment DOMRange::CreateContextualFragment DontDelete|Function 1 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMRangeProto) +IMPLEMENT_PROTOFUNC_DOM(DOMRangeProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMRange",DOMRangeProto,DOMRangeProtoFunc) + +DOMRange::DOMRange(ExecState *exec, DOM::Range r) + : DOMObject(DOMRangeProto::self(exec)), range(r) {} + +DOMRange::~DOMRange() +{ + ScriptInterpreter::forgetDOMObject(range.handle()); +} + +Value DOMRange::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<DOMRange,DOMObject>(exec,p,&DOMRangeTable,this); +} + +Value DOMRange::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case StartContainer: + return getDOMNode(exec,range.startContainer()); + case StartOffset: + return Number(range.startOffset()); + case EndContainer: + return getDOMNode(exec,range.endContainer()); + case EndOffset: + return Number(range.endOffset()); + case Collapsed: + return Boolean(range.collapsed()); + case CommonAncestorContainer: { + DOM::Range range2 = range; // avoid const error + return getDOMNode(exec,range2.commonAncestorContainer()); + } + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMRange::getValueProperty : " << token << endl; + return Value(); + } +} + +Value DOMRangeProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMRange, thisObj ); + DOM::Range range = static_cast<DOMRange *>(thisObj.imp())->toRange(); + Value result; + + switch (id) { + case DOMRange::SetStart: + range.setStart(toNode(args[0]),args[1].toInteger(exec)); + result = Undefined(); + break; + case DOMRange::SetEnd: + range.setEnd(toNode(args[0]),args[1].toInteger(exec)); + result = Undefined(); + break; + case DOMRange::SetStartBefore: + range.setStartBefore(toNode(args[0])); + result = Undefined(); + break; + case DOMRange::SetStartAfter: + range.setStartAfter(toNode(args[0])); + result = Undefined(); + break; + case DOMRange::SetEndBefore: + range.setEndBefore(toNode(args[0])); + result = Undefined(); + break; + case DOMRange::SetEndAfter: + range.setEndAfter(toNode(args[0])); + result = Undefined(); + break; + case DOMRange::Collapse: + range.collapse(args[0].toBoolean(exec)); + result = Undefined(); + break; + case DOMRange::SelectNode: + range.selectNode(toNode(args[0])); + result = Undefined(); + break; + case DOMRange::SelectNodeContents: + range.selectNodeContents(toNode(args[0])); + result = Undefined(); + break; + case DOMRange::CompareBoundaryPoints: + result = Number(range.compareBoundaryPoints(static_cast<DOM::Range::CompareHow>(args[0].toInteger(exec)),toRange(args[1]))); + break; + case DOMRange::DeleteContents: + range.deleteContents(); + result = Undefined(); + break; + case DOMRange::ExtractContents: + result = getDOMNode(exec,range.extractContents()); + break; + case DOMRange::CloneContents: + result = getDOMNode(exec,range.cloneContents()); + break; + case DOMRange::InsertNode: + range.insertNode(toNode(args[0])); + result = Undefined(); + break; + case DOMRange::SurroundContents: + range.surroundContents(toNode(args[0])); + result = Undefined(); + break; + case DOMRange::CloneRange: + result = getDOMRange(exec,range.cloneRange()); + break; + case DOMRange::ToString: + result = String(range.toString()); + break; + case DOMRange::Detach: + range.detach(); + result = Undefined(); + break; + case DOMRange::CreateContextualFragment: + Value value = args[0]; + DOM::DOMString str = value.isA(NullType) ? DOM::DOMString() : value.toString(exec).string(); + result = getDOMNode(exec, range.createContextualFragment(str)); + break; + }; + + return result; +} + +Value getDOMRange(ExecState *exec, DOM::Range r) +{ + return cacheDOMObject<DOM::Range, KJS::DOMRange>(exec, r); +} + +// ------------------------------------------------------------------------- + +const ClassInfo RangeConstructor::info = { "RangeConstructor", 0, &RangeConstructorTable, 0 }; +/* +@begin RangeConstructorTable 5 + START_TO_START DOM::Range::START_TO_START DontDelete|ReadOnly + START_TO_END DOM::Range::START_TO_END DontDelete|ReadOnly + END_TO_END DOM::Range::END_TO_END DontDelete|ReadOnly + END_TO_START DOM::Range::END_TO_START DontDelete|ReadOnly +@end +*/ + +RangeConstructor::RangeConstructor(ExecState *exec) + : DOMObject(exec->interpreter()->builtinObjectPrototype()) { } + +Value RangeConstructor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<RangeConstructor,DOMObject>(exec,p,&RangeConstructorTable,this); +} + +Value RangeConstructor::getValueProperty(ExecState *, int token) const +{ + return Number(token); +} + +Value getRangeConstructor(ExecState *exec) +{ + return cacheGlobalObject<RangeConstructor>(exec, "[[range.constructor]]"); +} + + +DOM::Range toRange(const Value& val) +{ + Object obj = Object::dynamicCast(val); + if (!obj.isValid() || !obj.inherits(&DOMRange::info)) + return DOM::Range(); + + const DOMRange *dobj = static_cast<const DOMRange*>(obj.imp()); + return dobj->toRange(); +} + +} //namespace KJS diff --git a/tdehtml/ecma/kjs_range.h b/tdehtml/ecma/kjs_range.h new file mode 100644 index 000000000..fbf47020f --- /dev/null +++ b/tdehtml/ecma/kjs_range.h @@ -0,0 +1,71 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * + * 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 + */ + +#ifndef _KJS_RANGE_H_ +#define _KJS_RANGE_H_ + +#include "ecma/kjs_dom.h" +#include "dom/dom2_range.h" + +namespace KJS { + + class DOMRange : public DOMObject { + public: + DOMRange(ExecState *exec, DOM::Range r); + ~DOMRange(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { StartContainer, StartOffset, EndContainer, EndOffset, Collapsed, + CommonAncestorContainer, + SetStart, SetEnd, SetStartBefore, SetStartAfter, SetEndBefore, + SetEndAfter, Collapse, SelectNode, SelectNodeContents, + CompareBoundaryPoints, DeleteContents, ExtractContents, + CloneContents, InsertNode, SurroundContents, CloneRange, ToString, + Detach, CreateContextualFragment }; + DOM::Range toRange() const { return range; } + protected: + DOM::Range range; + }; + + // Constructor object Range + class RangeConstructor : public DOMObject { + public: + RangeConstructor(ExecState *); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + }; + + Value getDOMRange(ExecState *exec, DOM::Range r); + Value getRangeConstructor(ExecState *exec); + + /** + * Convert an object to a Range. Returns a null Node if not possible. + */ + DOM::Range toRange(const Value&); + +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_traversal.cpp b/tdehtml/ecma/kjs_traversal.cpp new file mode 100644 index 000000000..a01d469de --- /dev/null +++ b/tdehtml/ecma/kjs_traversal.cpp @@ -0,0 +1,327 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * + * 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_traversal.h" +#include "kjs_traversal.lut.h" +#include "kjs_proxy.h" +#include <dom/dom_node.h> +#include <xml/dom_nodeimpl.h> +#include <xml/dom_docimpl.h> +#include <tdehtmlview.h> +#include <tdehtml_part.h> +#include <kdebug.h> + +namespace KJS { + +// ------------------------------------------------------------------------- + +const ClassInfo DOMNodeIterator::info = { "NodeIterator", 0, &DOMNodeIteratorTable, 0 }; +/* +@begin DOMNodeIteratorTable 5 + root DOMNodeIterator::Root DontDelete|ReadOnly + whatToShow DOMNodeIterator::WhatToShow DontDelete|ReadOnly + filter DOMNodeIterator::Filter DontDelete|ReadOnly + expandEntityReferences DOMNodeIterator::ExpandEntityReferences DontDelete|ReadOnly +@end +@begin DOMNodeIteratorProtoTable 3 + nextNode DOMNodeIterator::NextNode DontDelete|Function 0 + previousNode DOMNodeIterator::PreviousNode DontDelete|Function 0 + detach DOMNodeIterator::Detach DontDelete|Function 0 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMNodeIteratorProto) +IMPLEMENT_PROTOFUNC_DOM(DOMNodeIteratorProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMNodeIterator", DOMNodeIteratorProto,DOMNodeIteratorProtoFunc) + +DOMNodeIterator::DOMNodeIterator(ExecState *exec, DOM::NodeIterator ni) + : DOMObject(DOMNodeIteratorProto::self(exec)), nodeIterator(ni) {} + +DOMNodeIterator::~DOMNodeIterator() +{ + ScriptInterpreter::forgetDOMObject(nodeIterator.handle()); +} + +Value DOMNodeIterator::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<DOMNodeIterator,DOMObject>(exec,p,&DOMNodeIteratorTable,this); +} + +Value DOMNodeIterator::getValueProperty(ExecState *exec, int token) const +{ + DOM::NodeIterator ni(nodeIterator); + switch (token) { + case Root: + return getDOMNode(exec,ni.root()); + case WhatToShow: + return Number(ni.whatToShow()); + case Filter: + return getDOMNodeFilter(exec,ni.filter()); + case ExpandEntityReferences: + return Boolean(ni.expandEntityReferences()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMNodeIterator::getValueProperty : " << token << endl; + return Value(); + } +} + +Value DOMNodeIteratorProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &) +{ + KJS_CHECK_THIS( KJS::DOMNodeIterator, thisObj ); + DOM::NodeIterator nodeIterator = static_cast<DOMNodeIterator *>(thisObj.imp())->toNodeIterator(); + switch (id) { + case DOMNodeIterator::PreviousNode: + return getDOMNode(exec,nodeIterator.previousNode()); + case DOMNodeIterator::NextNode: + return getDOMNode(exec,nodeIterator.nextNode()); + case DOMNodeIterator::Detach: + nodeIterator.detach(); + return Undefined(); + } + return Undefined(); +} + +Value getDOMNodeIterator(ExecState *exec, DOM::NodeIterator ni) +{ + return cacheDOMObject<DOM::NodeIterator, DOMNodeIterator>(exec, ni); +} + + +// ------------------------------------------------------------------------- + +const ClassInfo NodeFilterConstructor::info = { "NodeFilterConstructor", 0, &NodeFilterConstructorTable, 0 }; +/* +@begin NodeFilterConstructorTable 17 + FILTER_ACCEPT DOM::NodeFilter::FILTER_ACCEPT DontDelete|ReadOnly + FILTER_REJECT DOM::NodeFilter::FILTER_REJECT DontDelete|ReadOnly + FILTER_SKIP DOM::NodeFilter::FILTER_SKIP DontDelete|ReadOnly + SHOW_ALL DOM::NodeFilter::SHOW_ALL DontDelete|ReadOnly + SHOW_ELEMENT DOM::NodeFilter::SHOW_ELEMENT DontDelete|ReadOnly + SHOW_ATTRIBUTE DOM::NodeFilter::SHOW_ATTRIBUTE DontDelete|ReadOnly + SHOW_TEXT DOM::NodeFilter::SHOW_TEXT DontDelete|ReadOnly + SHOW_CDATA_SECTION DOM::NodeFilter::SHOW_CDATA_SECTION DontDelete|ReadOnly + SHOW_ENTITY_REFERENCE DOM::NodeFilter::SHOW_ENTITY_REFERENCE DontDelete|ReadOnly + SHOW_ENTITY DOM::NodeFilter::SHOW_ENTITY DontDelete|ReadOnly + SHOW_PROCESSING_INSTRUCTION DOM::NodeFilter::SHOW_PROCESSING_INSTRUCTION DontDelete|ReadOnly + SHOW_COMMENT DOM::NodeFilter::SHOW_COMMENT DontDelete|ReadOnly + SHOW_DOCUMENT DOM::NodeFilter::SHOW_DOCUMENT DontDelete|ReadOnly + SHOW_DOCUMENT_TYPE DOM::NodeFilter::SHOW_DOCUMENT_TYPE DontDelete|ReadOnly + SHOW_DOCUMENT_FRAGMENT DOM::NodeFilter::SHOW_DOCUMENT_FRAGMENT DontDelete|ReadOnly + SHOW_NOTATION DOM::NodeFilter::SHOW_NOTATION DontDelete|ReadOnly +@end +*/ + +NodeFilterConstructor::NodeFilterConstructor(ExecState* exec) + : DOMObject(exec->interpreter()->builtinObjectPrototype()) +{ +} + +Value NodeFilterConstructor::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<NodeFilterConstructor,DOMObject>(exec,p,&NodeFilterConstructorTable,this); +} + +Value NodeFilterConstructor::getValueProperty(ExecState *, int token) const +{ + // We use the token as the value to return directly + return Number(token); +} + +Value getNodeFilterConstructor(ExecState *exec) +{ + return cacheGlobalObject<NodeFilterConstructor>(exec, "[[nodeFilter.constructor]]"); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMNodeFilter::info = { "NodeFilter", 0, 0, 0 }; +/* +@begin DOMNodeFilterProtoTable 1 + acceptNode DOMNodeFilter::AcceptNode DontDelete|Function 0 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMNodeFilterProto) +IMPLEMENT_PROTOFUNC_DOM(DOMNodeFilterProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMNodeFilter",DOMNodeFilterProto,DOMNodeFilterProtoFunc) + +DOMNodeFilter::DOMNodeFilter(ExecState *exec, DOM::NodeFilter nf) + : DOMObject(DOMNodeFilterProto::self(exec)), nodeFilter(nf) {} + +DOMNodeFilter::~DOMNodeFilter() +{ + ScriptInterpreter::forgetDOMObject(nodeFilter.handle()); +} + +Value DOMNodeFilterProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMNodeFilter, thisObj ); + DOM::NodeFilter nodeFilter = static_cast<DOMNodeFilter *>(thisObj.imp())->toNodeFilter(); + switch (id) { + case DOMNodeFilter::AcceptNode: + return Number(nodeFilter.acceptNode(toNode(args[0]))); + } + return Undefined(); +} + +Value getDOMNodeFilter(ExecState *exec, DOM::NodeFilter nf) +{ + return cacheDOMObject<DOM::NodeFilter, DOMNodeFilter>(exec, nf); +} + +// ------------------------------------------------------------------------- + +const ClassInfo DOMTreeWalker::info = { "TreeWalker", 0, &DOMTreeWalkerTable, 0 }; +/* +@begin DOMTreeWalkerTable 5 + root DOMTreeWalker::Root DontDelete|ReadOnly + whatToShow DOMTreeWalker::WhatToShow DontDelete|ReadOnly + filter DOMTreeWalker::Filter DontDelete|ReadOnly + expandEntityReferences DOMTreeWalker::ExpandEntityReferences DontDelete|ReadOnly + currentNode DOMTreeWalker::CurrentNode DontDelete +@end +@begin DOMTreeWalkerProtoTable 7 + parentNode DOMTreeWalker::ParentNode DontDelete|Function 0 + firstChild DOMTreeWalker::FirstChild DontDelete|Function 0 + lastChild DOMTreeWalker::LastChild DontDelete|Function 0 + previousSibling DOMTreeWalker::PreviousSibling DontDelete|Function 0 + nextSibling DOMTreeWalker::NextSibling DontDelete|Function 0 + previousNode DOMTreeWalker::PreviousNode DontDelete|Function 0 + nextNode DOMTreeWalker::NextNode DontDelete|Function 0 +@end +*/ +KJS_DEFINE_PROTOTYPE(DOMTreeWalkerProto) +IMPLEMENT_PROTOFUNC_DOM(DOMTreeWalkerProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("DOMTreeWalker", DOMTreeWalkerProto,DOMTreeWalkerProtoFunc) + +DOMTreeWalker::DOMTreeWalker(ExecState *exec, DOM::TreeWalker tw) + : DOMObject(DOMTreeWalkerProto::self(exec)), treeWalker(tw) {} + +DOMTreeWalker::~DOMTreeWalker() +{ + ScriptInterpreter::forgetDOMObject(treeWalker.handle()); +} + +Value DOMTreeWalker::tryGet(ExecState *exec, const Identifier &p) const +{ + return DOMObjectLookupGetValue<DOMTreeWalker,DOMObject>(exec,p,&DOMTreeWalkerTable,this); +} + +Value DOMTreeWalker::getValueProperty(ExecState *exec, int token) const +{ + DOM::TreeWalker tw(treeWalker); + switch (token) { + case Root: + return getDOMNode(exec,tw.root()); + case WhatToShow: + return Number(tw.whatToShow()); + case Filter: + return getDOMNodeFilter(exec,tw.filter()); + case ExpandEntityReferences: + return Boolean(tw.expandEntityReferences()); + case CurrentNode: + return getDOMNode(exec,tw.currentNode()); + default: + kdDebug(6070) << "WARNING: Unhandled token in DOMTreeWalker::getValueProperty : " << token << endl; + return Value(); + } +} + +void DOMTreeWalker::tryPut(ExecState *exec, const Identifier &propertyName, + const Value& value, int attr) +{ + if (propertyName == "currentNode") { + treeWalker.setCurrentNode(toNode(value)); + } + else + ObjectImp::put(exec, propertyName, value, attr); +} + +Value DOMTreeWalkerProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &) +{ + KJS_CHECK_THIS( KJS::DOMTreeWalker, thisObj ); + DOM::TreeWalker treeWalker = static_cast<DOMTreeWalker *>(thisObj.imp())->toTreeWalker(); + switch (id) { + case DOMTreeWalker::ParentNode: + return getDOMNode(exec,treeWalker.parentNode()); + case DOMTreeWalker::FirstChild: + return getDOMNode(exec,treeWalker.firstChild()); + case DOMTreeWalker::LastChild: + return getDOMNode(exec,treeWalker.lastChild()); + case DOMTreeWalker::PreviousSibling: + return getDOMNode(exec,treeWalker.previousSibling()); + case DOMTreeWalker::NextSibling: + return getDOMNode(exec,treeWalker.nextSibling()); + case DOMTreeWalker::PreviousNode: + return getDOMNode(exec,treeWalker.previousSibling()); + case DOMTreeWalker::NextNode: + return getDOMNode(exec,treeWalker.nextNode()); + } + return Undefined(); +} + +Value getDOMTreeWalker(ExecState *exec, DOM::TreeWalker tw) +{ + return cacheDOMObject<DOM::TreeWalker, DOMTreeWalker>(exec, tw); +} + +DOM::NodeFilter toNodeFilter(const Value& val) +{ + Object obj = Object::dynamicCast(val); + if (!obj.isValid() || !obj.inherits(&DOMNodeFilter::info)) + return DOM::NodeFilter(); + + const DOMNodeFilter *dobj = static_cast<const DOMNodeFilter*>(obj.imp()); + return dobj->toNodeFilter(); +} + +// ------------------------------------------------------------------------- + +JSNodeFilter::JSNodeFilter(Object & _filter) : DOM::CustomNodeFilter(), filter( _filter ) +{ +} + +JSNodeFilter::~JSNodeFilter() +{ +} + +short JSNodeFilter::acceptNode(const DOM::Node &n) +{ + TDEHTMLView *view = static_cast<DOM::DocumentImpl *>( n.handle()->docPtr() )->view(); + if (!view) + return DOM::NodeFilter::FILTER_REJECT; + + TDEHTMLPart *part = view->part(); + KJSProxy *proxy = part->jScript(); + if (proxy) { + ExecState *exec = proxy->interpreter()->globalExec(); + Object acceptNodeFunc = Object::dynamicCast( filter.get(exec, "acceptNode") ); + if (!acceptNodeFunc.isNull() && acceptNodeFunc.implementsCall()) { + List args; + args.append(getDOMNode(exec,n)); + Value result = acceptNodeFunc.call(exec,filter,args); + if (exec->hadException()) + exec->clearException(); + return result.toInteger(exec); + } + } + + return DOM::NodeFilter::FILTER_REJECT; +} + +} //namespace KJS diff --git a/tdehtml/ecma/kjs_traversal.h b/tdehtml/ecma/kjs_traversal.h new file mode 100644 index 000000000..fd7e064b1 --- /dev/null +++ b/tdehtml/ecma/kjs_traversal.h @@ -0,0 +1,108 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * + * 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 + */ + +#ifndef _KJS_TRAVERSAL_H_ +#define _KJS_TRAVERSAL_H_ + +#include "ecma/kjs_dom.h" +#include "dom/dom2_traversal.h" + +namespace KJS { + + class DOMNodeIterator : public DOMObject { + public: + DOMNodeIterator(ExecState *exec, DOM::NodeIterator ni); + ~DOMNodeIterator(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Filter, Root, WhatToShow, ExpandEntityReferences, + NextNode, PreviousNode, Detach }; + DOM::NodeIterator toNodeIterator() const { return nodeIterator; } + protected: + DOM::NodeIterator nodeIterator; + }; + + // Constructor object NodeFilter + class NodeFilterConstructor : public DOMObject { + public: + NodeFilterConstructor(ExecState *); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *exec, int token) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + }; + + class DOMNodeFilter : public DOMObject { + public: + DOMNodeFilter(ExecState *exec, DOM::NodeFilter nf); + ~DOMNodeFilter(); + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + virtual DOM::NodeFilter toNodeFilter() const { return nodeFilter; } + enum { AcceptNode }; + protected: + DOM::NodeFilter nodeFilter; + }; + + class DOMTreeWalker : public DOMObject { + public: + DOMTreeWalker(ExecState *exec, DOM::TreeWalker tw); + ~DOMTreeWalker(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, + const Value& value, int attr = None); + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Root, WhatToShow, Filter, ExpandEntityReferences, CurrentNode, + ParentNode, FirstChild, LastChild, PreviousSibling, NextSibling, + PreviousNode, NextNode }; + DOM::TreeWalker toTreeWalker() const { return treeWalker; } + protected: + DOM::TreeWalker treeWalker; + }; + + Value getDOMNodeIterator(ExecState *exec, DOM::NodeIterator ni); + Value getNodeFilterConstructor(ExecState *exec); + Value getDOMNodeFilter(ExecState *exec, DOM::NodeFilter nf); + Value getDOMTreeWalker(ExecState *exec, DOM::TreeWalker tw); + + /** + * Convert an object to a NodeFilter. Returns a null Node if not possible. + */ + DOM::NodeFilter toNodeFilter(const Value&); + + class JSNodeFilter : public DOM::CustomNodeFilter { + public: + JSNodeFilter(Object & _filter); + virtual ~JSNodeFilter(); + virtual short acceptNode (const DOM::Node &n); + protected: + Object filter; + }; + +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_views.cpp b/tdehtml/ecma/kjs_views.cpp new file mode 100644 index 000000000..dbf354ce8 --- /dev/null +++ b/tdehtml/ecma/kjs_views.cpp @@ -0,0 +1,91 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * + * 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 "ecma/kjs_views.h" +#include "ecma/kjs_css.h" +#include "ecma/kjs_window.h" +#include "kjs_views.lut.h" + +using namespace KJS; + +// ------------------------------------------------------------------------- + +const ClassInfo DOMAbstractView::info = { "AbstractView", 0, &DOMAbstractViewTable, 0 }; +/* +@begin DOMAbstractViewTable 2 + document DOMAbstractView::Document DontDelete|ReadOnly + getComputedStyle DOMAbstractView::GetComputedStyle DontDelete|Function 2 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(DOMAbstractViewFunc) + +DOMAbstractView::DOMAbstractView(ExecState *exec, DOM::AbstractView av) + : DOMObject(exec->interpreter()->builtinObjectPrototype()), abstractView(av) {} + +DOMAbstractView::~DOMAbstractView() +{ + ScriptInterpreter::forgetDOMObject(abstractView.handle()); +} + +Value DOMAbstractView::tryGet(ExecState *exec, const Identifier &p) const +{ + if ( p == "document" ) + return getDOMNode(exec,abstractView.document()); + else if ( p == "getComputedStyle" ) + return lookupOrCreateFunction<DOMAbstractViewFunc>(exec,p,this,DOMAbstractView::GetComputedStyle,2,DontDelete|Function); + else + return DOMObject::tryGet(exec,p); +} + +Value DOMAbstractViewFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( KJS::DOMAbstractView, thisObj ); + DOM::AbstractView abstractView = static_cast<DOMAbstractView *>(thisObj.imp())->toAbstractView(); + switch (id) { + case DOMAbstractView::GetComputedStyle: { + DOM::Node arg0 = toNode(args[0]); + if (arg0.nodeType() != DOM::Node::ELEMENT_NODE) + return Undefined(); // throw exception? + else + return getDOMCSSStyleDeclaration(exec,abstractView.getComputedStyle(static_cast<DOM::Element>(arg0), + args[1].toString(exec).string())); + } + } + return Undefined(); +} + +Value KJS::getDOMAbstractView(ExecState *exec, DOM::AbstractView av) +{ + return cacheDOMObject<DOM::AbstractView, DOMAbstractView>(exec, av); +} + +DOM::AbstractView KJS::toAbstractView (const Value& val) +{ + Object obj = Object::dynamicCast(val); + if (!obj.isValid() || !obj.inherits(&DOMAbstractView::info)) + return DOM::AbstractView (); + + // the Window object is considered for all practical purposes as a descendant of AbstractView + if (obj.inherits(&Window::info)) + return static_cast<const Window *>(obj.imp())->toAbstractView(); + + const DOMAbstractView *dobj = static_cast<const DOMAbstractView *>(obj.imp()); + return dobj->toAbstractView (); +} diff --git a/tdehtml/ecma/kjs_views.h b/tdehtml/ecma/kjs_views.h new file mode 100644 index 000000000..11e103fde --- /dev/null +++ b/tdehtml/ecma/kjs_views.h @@ -0,0 +1,53 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2001 Peter Kelly (pmk@post.com) + * + * 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 + */ + +#ifndef _KJS_VIEWS_H_ +#define _KJS_VIEWS_H_ + +#include "ecma/kjs_dom.h" +#include "dom/dom2_views.h" + +namespace KJS { + + + class DOMAbstractView : public DOMObject { + public: + DOMAbstractView(ExecState *, DOM::AbstractView av); + ~DOMAbstractView(); + virtual Value tryGet(ExecState *exec,const Identifier &p) const; + // no put - all read-only + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + virtual DOM::AbstractView toAbstractView() const { return abstractView; } + enum { Document, GetComputedStyle }; + protected: + DOM::AbstractView abstractView; + }; + + Value getDOMAbstractView(ExecState *exec, DOM::AbstractView av); + + /** + * Convert an object to an AbstractView. Returns a null Node if not possible. + */ + DOM::AbstractView toAbstractView(const Value&); + +} // namespace + +#endif diff --git a/tdehtml/ecma/kjs_window.cpp b/tdehtml/ecma/kjs_window.cpp new file mode 100644 index 000000000..554781cb9 --- /dev/null +++ b/tdehtml/ecma/kjs_window.cpp @@ -0,0 +1,2935 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2000-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 "config.h" + +#include "tdehtmlview.h" +#include "tdehtml_part.h" +#include "tdehtmlpart_p.h" +#include "tdehtml_settings.h" +#include "xml/dom2_eventsimpl.h" +#include "xml/dom_docimpl.h" +#include "misc/htmltags.h" +#include "html/html_documentimpl.h" +#include "rendering/render_frames.h" + +#include <tqstylesheet.h> +#include <tqtimer.h> +#include <tqpaintdevicemetrics.h> +#include <tqapplication.h> +#include <kdebug.h> +#include <tdemessagebox.h> +#include <kinputdialog.h> +#include <tdelocale.h> +#include <kmdcodec.h> +#include <tdeparts/browserinterface.h> +#include <twin.h> + +#if defined Q_WS_X11 && ! defined K_WS_QTONLY +#include <twinmodule.h> // schroder +#endif + +#ifndef KONQ_EMBEDDED +#include <kbookmarkmanager.h> +#endif +#include <tdeglobalsettings.h> +#include <assert.h> +#include <tqstyle.h> +#include <tqobjectlist.h> +#include <kstringhandler.h> + +#include "kjs_proxy.h" +#include "kjs_window.h" +#include "kjs_navigator.h" +#include "kjs_mozilla.h" +#include "kjs_html.h" +#include "kjs_range.h" +#include "kjs_traversal.h" +#include "kjs_css.h" +#include "kjs_events.h" +#include "kjs_views.h" +#include "xmlhttprequest.h" +#include "xmlserializer.h" +#include "domparser.h" + +using namespace KJS; + +namespace KJS { + + class History : public ObjectImp { + friend class HistoryFunc; + public: + History(ExecState *exec, TDEHTMLPart *p) + : ObjectImp(exec->interpreter()->builtinObjectPrototype()), part(p) { } + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Back, Forward, Go, Length }; + private: + TQGuardedPtr<TDEHTMLPart> part; + }; + + class External : public ObjectImp { + friend class ExternalFunc; + public: + External(ExecState *exec, TDEHTMLPart *p) + : ObjectImp(exec->interpreter()->builtinObjectPrototype()), part(p) { } + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { AddFavorite }; + private: + TQGuardedPtr<TDEHTMLPart> part; + }; + + class FrameArray : public ObjectImp { + public: + FrameArray(ExecState *exec, TDEHTMLPart *p) + : ObjectImp(exec->interpreter()->builtinObjectPrototype()), part(p) { } + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual Value call(ExecState *exec, Object &thisObj, const List &args); + virtual bool implementsCall() const { return true; } + private: + TQGuardedPtr<TDEHTMLPart> part; + }; + +#ifdef Q_WS_QWS + class KonquerorFunc : public DOMFunction { + public: + KonquerorFunc(ExecState *exec, const Konqueror* k, const char* name) + : DOMFunction(exec), konqueror(k), m_name(name) { } + virtual Value tryCall(ExecState *exec, Object &thisObj, const List &args); + + private: + const Konqueror* konqueror; + TQCString m_name; + }; +#endif +} // namespace KJS + +#include "kjs_window.lut.h" +#include "rendering/render_replaced.h" + +////////////////////// Screen Object //////////////////////// +namespace KJS { +// table for screen object +/* +@begin ScreenTable 7 + height Screen::Height DontEnum|ReadOnly + width Screen::Width DontEnum|ReadOnly + colorDepth Screen::ColorDepth DontEnum|ReadOnly + pixelDepth Screen::PixelDepth DontEnum|ReadOnly + availLeft Screen::AvailLeft DontEnum|ReadOnly + availTop Screen::AvailTop DontEnum|ReadOnly + availHeight Screen::AvailHeight DontEnum|ReadOnly + availWidth Screen::AvailWidth DontEnum|ReadOnly +@end +*/ + +const ClassInfo Screen::info = { "Screen", 0, &ScreenTable, 0 }; + +// We set the object prototype so that toString is implemented +Screen::Screen(ExecState *exec) + : ObjectImp(exec->interpreter()->builtinObjectPrototype()) {} + +Value Screen::get(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "Screen::get " << p.qstring() << endl; +#endif + return lookupGetValue<Screen,ObjectImp>(exec,p,&ScreenTable,this); +} + +Value Screen::getValueProperty(ExecState *exec, int token) const +{ +#if defined Q_WS_X11 && ! defined K_WS_QTONLY + KWinModule info(0, KWinModule::INFO_DESKTOP); +#endif + TQWidget *thisWidget = Window::retrieveActive(exec)->part()->widget(); + TQRect sg = TDEGlobalSettings::desktopGeometry(thisWidget); + + switch( token ) { + case Height: + return Number(sg.height()); + case Width: + return Number(sg.width()); + case ColorDepth: + case PixelDepth: { + TQPaintDeviceMetrics m(TQApplication::desktop()); + return Number(m.depth()); + } + case AvailLeft: { +#if defined Q_WS_X11 && ! defined K_WS_QTONLY + TQRect clipped = info.workArea().intersect(sg); + return Number(clipped.x()-sg.x()); +#else + return Number(10); +#endif + } + case AvailTop: { +#if defined Q_WS_X11 && ! defined K_WS_QTONLY + TQRect clipped = info.workArea().intersect(sg); + return Number(clipped.y()-sg.y()); +#else + return Number(10); +#endif + } + case AvailHeight: { +#if defined Q_WS_X11 && ! defined K_WS_QTONLY + TQRect clipped = info.workArea().intersect(sg); + return Number(clipped.height()); +#else + return Number(100); +#endif + } + case AvailWidth: { +#if defined Q_WS_X11 && ! defined K_WS_QTONLY + TQRect clipped = info.workArea().intersect(sg); + return Number(clipped.width()); +#else + return Number(100); +#endif + } + default: + kdDebug(6070) << "WARNING: Screen::getValueProperty unhandled token " << token << endl; + return Undefined(); + } +} + +////////////////////// Window Object //////////////////////// + +const ClassInfo Window::info = { "Window", &DOMAbstractView::info, &WindowTable, 0 }; + +/* +@begin WindowTable 162 + atob Window::AToB DontDelete|Function 1 + btoa Window::BToA DontDelete|Function 1 + closed Window::Closed DontDelete|ReadOnly + crypto Window::Crypto DontDelete|ReadOnly + defaultStatus Window::DefaultStatus DontDelete + defaultstatus Window::DefaultStatus DontDelete + status Window::Status DontDelete + document Window::Document DontDelete|ReadOnly + frameElement Window::FrameElement DontDelete|ReadOnly + frames Window::Frames DontDelete|ReadOnly + history Window::_History DontDelete|ReadOnly + external Window::_External DontDelete|ReadOnly + event Window::Event DontDelete|ReadOnly + innerHeight Window::InnerHeight DontDelete|ReadOnly + innerWidth Window::InnerWidth DontDelete|ReadOnly + length Window::Length DontDelete|ReadOnly + location Window::_Location DontDelete + name Window::Name DontDelete + navigator Window::_Navigator DontDelete|ReadOnly + clientInformation Window::ClientInformation DontDelete|ReadOnly + konqueror Window::_Konqueror DontDelete|ReadOnly + offscreenBuffering Window::OffscreenBuffering DontDelete|ReadOnly + opener Window::Opener DontDelete|ReadOnly + outerHeight Window::OuterHeight DontDelete|ReadOnly + outerWidth Window::OuterWidth DontDelete|ReadOnly + pageXOffset Window::PageXOffset DontDelete|ReadOnly + pageYOffset Window::PageYOffset DontDelete|ReadOnly + parent Window::Parent DontDelete|ReadOnly + personalbar Window::Personalbar DontDelete|ReadOnly + screenX Window::ScreenX DontDelete|ReadOnly + screenY Window::ScreenY DontDelete|ReadOnly + scrollbars Window::Scrollbars DontDelete|ReadOnly + scroll Window::Scroll DontDelete|Function 2 + scrollBy Window::ScrollBy DontDelete|Function 2 + scrollTo Window::ScrollTo DontDelete|Function 2 + scrollX Window::ScrollX DontDelete|ReadOnly + scrollY Window::ScrollY DontDelete|ReadOnly + moveBy Window::MoveBy DontDelete|Function 2 + moveTo Window::MoveTo DontDelete|Function 2 + resizeBy Window::ResizeBy DontDelete|Function 2 + resizeTo Window::ResizeTo DontDelete|Function 2 + self Window::Self DontDelete|ReadOnly + window Window::_Window DontDelete|ReadOnly + top Window::Top DontDelete|ReadOnly + screen Window::_Screen DontDelete|ReadOnly + alert Window::Alert DontDelete|Function 1 + confirm Window::Confirm DontDelete|Function 1 + prompt Window::Prompt DontDelete|Function 2 + open Window::Open DontDelete|Function 3 + setTimeout Window::SetTimeout DontDelete|Function 2 + clearTimeout Window::ClearTimeout DontDelete|Function 1 + focus Window::Focus DontDelete|Function 0 + blur Window::Blur DontDelete|Function 0 + close Window::Close DontDelete|Function 0 + setInterval Window::SetInterval DontDelete|Function 2 + clearInterval Window::ClearInterval DontDelete|Function 1 + captureEvents Window::CaptureEvents DontDelete|Function 0 + releaseEvents Window::ReleaseEvents DontDelete|Function 0 + print Window::Print DontDelete|Function 0 + addEventListener Window::AddEventListener DontDelete|Function 3 + removeEventListener Window::RemoveEventListener DontDelete|Function 3 +# Normally found in prototype. Add to window object itself to make them +# accessible in closed and cross-site windows + valueOf Window::ValueOf DontDelete|Function 0 + toString Window::ToString DontDelete|Function 0 +# IE extension + navigate Window::Navigate DontDelete|Function 1 +# Mozilla extension + sidebar Window::SideBar DontDelete|ReadOnly + getComputedStyle Window::GetComputedStyle DontDelete|Function 2 + +# Warning, when adding a function to this object you need to add a case in Window::get + +# Event handlers +# IE also has: onactivate, onbefore/afterprint, onbeforedeactivate/unload, oncontrolselect, +# ondeactivate, onhelp, onmovestart/end, onresizestart/end, onscroll. +# It doesn't have onabort, onchange, ondragdrop (but NS has that last one). + onabort Window::Onabort DontDelete + onblur Window::Onblur DontDelete + onchange Window::Onchange DontDelete + onclick Window::Onclick DontDelete + ondblclick Window::Ondblclick DontDelete + ondragdrop Window::Ondragdrop DontDelete + onerror Window::Onerror DontDelete + onfocus Window::Onfocus DontDelete + onkeydown Window::Onkeydown DontDelete + onkeypress Window::Onkeypress DontDelete + onkeyup Window::Onkeyup DontDelete + onload Window::Onload DontDelete + onmousedown Window::Onmousedown DontDelete + onmousemove Window::Onmousemove DontDelete + onmouseout Window::Onmouseout DontDelete + onmouseover Window::Onmouseover DontDelete + onmouseup Window::Onmouseup DontDelete + onmove Window::Onmove DontDelete + onreset Window::Onreset DontDelete + onresize Window::Onresize DontDelete + onselect Window::Onselect DontDelete + onsubmit Window::Onsubmit DontDelete + onunload Window::Onunload DontDelete + +# Constructors/constant tables + Node Window::Node DontDelete + Event Window::EventCtor DontDelete + Range Window::Range DontDelete + NodeFilter Window::NodeFilter DontDelete + DOMException Window::DOMException DontDelete + CSSRule Window::CSSRule DontDelete + MutationEvent Window::MutationEventCtor DontDelete + KeyboardEvent Window::KeyboardEventCtor DontDelete + EventException Window::EventExceptionCtor DontDelete + Image Window::Image DontDelete|ReadOnly + Option Window::Option DontDelete|ReadOnly + XMLHttpRequest Window::XMLHttpRequest DontDelete|ReadOnly + XMLSerializer Window::XMLSerializer DontDelete|ReadOnly + DOMParser Window::DOMParser DontDelete|ReadOnly + +# Mozilla dom emulation ones. + Element Window::ElementCtor DontDelete + Document Window::DocumentCtor DontDelete + #this one is an alias since we don't have a separate XMLDocument + XMLDocument Window::DocumentCtor DontDelete + HTMLElement Window::HTMLElementCtor DontDelete + HTMLDocument Window::HTMLDocumentCtor DontDelete + HTMLHtmlElement Window::HTMLHtmlElementCtor DontDelete + HTMLHeadElement Window::HTMLHeadElementCtor DontDelete + HTMLLinkElement Window::HTMLLinkElementCtor DontDelete + HTMLTitleElement Window::HTMLTitleElementCtor DontDelete + HTMLMetaElement Window::HTMLMetaElementCtor DontDelete + HTMLBaseElement Window::HTMLBaseElementCtor DontDelete + HTMLIsIndexElement Window::HTMLIsIndexElementCtor DontDelete + HTMLStyleElement Window::HTMLStyleElementCtor DontDelete + HTMLBodyElement Window::HTMLBodyElementCtor DontDelete + HTMLFormElement Window::HTMLFormElementCtor DontDelete + HTMLSelectElement Window::HTMLSelectElementCtor DontDelete + HTMLOptGroupElement Window::HTMLOptGroupElementCtor DontDelete + HTMLOptionElement Window::HTMLOptionElementCtor DontDelete + HTMLInputElement Window::HTMLInputElementCtor DontDelete + HTMLTextAreaElement Window::HTMLTextAreaElementCtor DontDelete + HTMLButtonElement Window::HTMLButtonElementCtor DontDelete + HTMLLabelElement Window::HTMLLabelElementCtor DontDelete + HTMLFieldSetElement Window::HTMLFieldSetElementCtor DontDelete + HTMLLegendElement Window::HTMLLegendElementCtor DontDelete + HTMLUListElement Window::HTMLUListElementCtor DontDelete + HTMLOListElement Window::HTMLOListElementCtor DontDelete + HTMLDListElement Window::HTMLDListElementCtor DontDelete + HTMLDirectoryElement Window::HTMLDirectoryElementCtor DontDelete + HTMLMenuElement Window::HTMLMenuElementCtor DontDelete + HTMLLIElement Window::HTMLLIElementCtor DontDelete + HTMLDivElement Window::HTMLDivElementCtor DontDelete + HTMLParagraphElement Window::HTMLParagraphElementCtor DontDelete + HTMLHeadingElement Window::HTMLHeadingElementCtor DontDelete + HTMLBlockQuoteElement Window::HTMLBlockQuoteElementCtor DontDelete + HTMLQuoteElement Window::HTMLQuoteElementCtor DontDelete + HTMLPreElement Window::HTMLPreElementCtor DontDelete + HTMLBRElement Window::HTMLBRElementCtor DontDelete + HTMLBaseFontElement Window::HTMLBaseFontElementCtor DontDelete + HTMLFontElement Window::HTMLFontElementCtor DontDelete + HTMLHRElement Window::HTMLHRElementCtor DontDelete + HTMLModElement Window::HTMLModElementCtor DontDelete + HTMLAnchorElement Window::HTMLAnchorElementCtor DontDelete + HTMLImageElement Window::HTMLImageElementCtor DontDelete + HTMLObjectElement Window::HTMLObjectElementCtor DontDelete + HTMLParamElement Window::HTMLParamElementCtor DontDelete + HTMLAppletElement Window::HTMLAppletElementCtor DontDelete + HTMLMapElement Window::HTMLMapElementCtor DontDelete + HTMLAreaElement Window::HTMLAreaElementCtor DontDelete + HTMLScriptElement Window::HTMLScriptElementCtor DontDelete + HTMLTableElement Window::HTMLTableElementCtor DontDelete + HTMLTableCaptionElement Window::HTMLTableCaptionElementCtor DontDelete + HTMLTableColElement Window::HTMLTableColElementCtor DontDelete + HTMLTableSectionElement Window::HTMLTableSectionElementCtor DontDelete + HTMLTableRowElement Window::HTMLTableRowElementCtor DontDelete + HTMLTableCellElement Window::HTMLTableCellElementCtor DontDelete + HTMLFrameSetElement Window::HTMLFrameSetElementCtor DontDelete + HTMLLayerElement Window::HTMLLayerElementCtor DontDelete + HTMLFrameElement Window::HTMLFrameElementCtor DontDelete + HTMLIFrameElement Window::HTMLIFrameElementCtor DontDelete + CSSStyleDeclaration Window::CSSStyleDeclarationCtor DontDelete +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(WindowFunc) + +Window::Window(tdehtml::ChildFrame *p) + : ObjectImp(/*no proto*/), m_frame(p), screen(0), history(0), external(0), m_frames(0), loc(0), m_evt(0) +{ + winq = new WindowQObject(this); + //kdDebug(6070) << "Window::Window this=" << this << " part=" << m_part << " " << m_part->name() << endl; +} + +Window::~Window() +{ + delete winq; +} + +Window *Window::retrieveWindow(KParts::ReadOnlyPart *p) +{ + Object obj = Object::dynamicCast( retrieve( p ) ); +#ifndef NDEBUG + // obj should never be null, except when javascript has been disabled in that part. + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(p); + if ( part && part->jScriptEnabled() ) + { + assert( obj.isValid() ); +#ifndef QWS + assert( dynamic_cast<KJS::Window*>(obj.imp()) ); // type checking +#endif + } +#endif + if ( !obj.isValid() ) // JS disabled + return 0; + return static_cast<KJS::Window*>(obj.imp()); +} + +Window *Window::retrieveActive(ExecState *exec) +{ + ValueImp *imp = exec->interpreter()->globalObject().imp(); + assert( imp ); +#ifndef QWS + assert( dynamic_cast<KJS::Window*>(imp) ); +#endif + return static_cast<KJS::Window*>(imp); +} + +Value Window::retrieve(KParts::ReadOnlyPart *p) +{ + assert(p); + TDEHTMLPart * part = ::tqqt_cast<TDEHTMLPart *>(p); + KJSProxy *proxy = 0L; + if (!part) { + part = ::tqqt_cast<TDEHTMLPart *>(p->parent()); + if (part) + proxy = part->framejScript(p); + } else + proxy = part->jScript(); + if (proxy) { +#ifdef KJS_VERBOSE + kdDebug(6070) << "Window::retrieve part=" << part << " '" << part->name() << "' interpreter=" << proxy->interpreter() << " window=" << proxy->interpreter()->globalObject().imp() << endl; +#endif + return proxy->interpreter()->globalObject(); // the Global object is the "window" + } else { +#ifdef KJS_VERBOSE + kdDebug(6070) << "Window::retrieve part=" << p << " '" << p->name() << "' no jsproxy." << endl; +#endif + return Undefined(); // This can happen with JS disabled on the domain of that window + } +} + +Location *Window::location() const +{ + if (!loc) + const_cast<Window*>(this)->loc = new Location(m_frame); + return loc; +} + +ObjectImp* Window::frames( ExecState* exec ) const +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (part) + return m_frames ? m_frames : + (const_cast<Window*>(this)->m_frames = new FrameArray(exec, part)); + return 0L; +} + +// reference our special objects during garbage collection +void Window::mark() +{ + ObjectImp::mark(); + if (screen && !screen->marked()) + screen->mark(); + if (history && !history->marked()) + history->mark(); + if (external && !external->marked()) + external->mark(); + if (m_frames && !m_frames->marked()) + m_frames->mark(); + //kdDebug(6070) << "Window::mark " << this << " marking loc=" << loc << endl; + if (loc && !loc->marked()) + loc->mark(); + if (winq) + winq->mark(); +} + +bool Window::hasProperty(ExecState *exec, const Identifier &p) const +{ + // we don't want any operations on a closed window + if (m_frame.isNull() || m_frame->m_part.isNull()) + return ( p == "closed" ); + + if (ObjectImp::hasProperty(exec, p)) + return true; + + if (Lookup::findEntry(&WindowTable, p)) + return true; + + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (!part) + return false; + + TQString q = p.qstring(); + if (part->findFramePart(p.qstring())) + return true; + // allow window[1] or parent[1] etc. (#56983) + bool ok; + unsigned int i = p.toArrayIndex(&ok); + if (ok) { + TQPtrList<KParts::ReadOnlyPart> frames = part->frames(); + unsigned int len = frames.count(); + if (i < len) + return true; + } + + // allow shortcuts like 'Image1' instead of document.images.Image1 + if (part->document().isHTMLDocument()) { // might be XML + DOM::HTMLDocument doc = part->htmlDocument(); + // Keep in sync with tryGet + + if (static_cast<DOM::DocumentImpl*>(doc.handle())->underDocNamedCache().get(p.qstring())) + return true; + + return !doc.getElementById(p.string()).isNull(); + } + + return false; +} + +UString Window::toString(ExecState *) const +{ + return "[object Window]"; +} + +Value Window::get(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "Window("<<this<<")::get " << p.qstring() << endl; +#endif + // we want only limited operations on a closed window + if (m_frame.isNull() || m_frame->m_part.isNull()) { + const HashEntry* entry = Lookup::findEntry(&WindowTable, p); + if (entry) { + switch (entry->value) { + case Closed: + return Boolean(true); + case _Location: + return Null(); + case ValueOf: + case ToString: + return lookupOrCreateFunction<WindowFunc>(exec,p, this, entry->value, + entry->params, entry->attr); + default: + break; + } + } + return Undefined(); + } + + // Look for overrides first + ValueImp *val = getDirect(p); + if (val) { + //kdDebug(6070) << "Window::get found dynamic property '" << p.ascii() << "'" << endl; + return isSafeScript(exec) ? Value(val) : Undefined(); + } + + const HashEntry* entry = Lookup::findEntry(&WindowTable, p); + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + + // properties that work on all windows + if (entry) { + // ReadOnlyPart first + switch(entry->value) { + case Closed: + return Boolean( false ); + case _Location: + // No isSafeScript test here, we must be able to _set_ location.href (#49819) + return Value(location()); + case _Window: + case Self: + return retrieve(m_frame->m_part); + default: + break; + } + if (!part) + return Undefined(); + // TDEHTMLPart next + switch(entry->value) { + case Frames: + return Value(frames(exec)); + case Opener: + if (!part->opener()) + return Null(); // ### a null Window might be better, but == null + else // doesn't work yet + return retrieve(part->opener()); + case Parent: + return retrieve(part->parentPart() ? part->parentPart() : (TDEHTMLPart*)part); + case Top: { + TDEHTMLPart *p = part; + while (p->parentPart()) + p = p->parentPart(); + return retrieve(p); + } + case Alert: + case Confirm: + case Prompt: + case Open: + case Close: + case Focus: + case Blur: + case AToB: + case BToA: + case GetComputedStyle: + case ValueOf: + case ToString: + return lookupOrCreateFunction<WindowFunc>(exec,p,this,entry->value,entry->params,entry->attr); + default: + break; + } + } else if (!part) { + // not a TDEHTMLPart + TQString rvalue; + KParts::LiveConnectExtension::Type rtype; + unsigned long robjid; + if (m_frame->m_liveconnect && + isSafeScript(exec) && + m_frame->m_liveconnect->get(0, p.qstring(), rtype, robjid, rvalue)) + return getLiveConnectValue(m_frame->m_liveconnect, p.qstring(), rtype, rvalue, robjid); + return Undefined(); + } + // properties that only work on safe windows + if (isSafeScript(exec) && entry) + { + //kdDebug(6070) << "token: " << entry->value << endl; + switch( entry->value ) { + case Crypto: + return Undefined(); // ### + case DefaultStatus: + return String(UString(part->jsDefaultStatusBarText())); + case Status: + return String(UString(part->jsStatusBarText())); + case Document: + if (part->document().isNull()) { + kdDebug(6070) << "Document.write: adding <HTML><BODY> to create document" << endl; + part->begin(); + part->write("<HTML><BODY>"); + part->end(); + } + return getDOMNode(exec,part->document()); + case FrameElement: + if (m_frame->m_frame) + return getDOMNode(exec,m_frame->m_frame->element()); + else + return Undefined(); + case Node: + return NodeConstructor::self(exec); + case Range: + return getRangeConstructor(exec); + case NodeFilter: + return getNodeFilterConstructor(exec); + case DOMException: + return getDOMExceptionConstructor(exec); + case CSSRule: + return getCSSRuleConstructor(exec); + case ElementCtor: + return ElementPseudoCtor::self(exec); + case HTMLElementCtor: + return HTMLElementPseudoCtor::self(exec); + case HTMLHtmlElementCtor: + return HTMLHtmlElementPseudoCtor::self(exec); + case HTMLHeadElementCtor: + return HTMLHeadElementPseudoCtor::self(exec); + case HTMLLinkElementCtor: + return HTMLLinkElementPseudoCtor::self(exec); + case HTMLTitleElementCtor: + return HTMLTitleElementPseudoCtor::self(exec); + case HTMLMetaElementCtor: + return HTMLMetaElementPseudoCtor::self(exec); + case HTMLBaseElementCtor: + return HTMLBaseElementPseudoCtor::self(exec); + case HTMLIsIndexElementCtor: + return HTMLIsIndexElementPseudoCtor::self(exec); + case HTMLStyleElementCtor: + return HTMLStyleElementPseudoCtor::self(exec); + case HTMLBodyElementCtor: + return HTMLBodyElementPseudoCtor::self(exec); + case HTMLFormElementCtor: + return HTMLFormElementPseudoCtor::self(exec); + case HTMLSelectElementCtor: + return HTMLSelectElementPseudoCtor::self(exec); + case HTMLOptGroupElementCtor: + return HTMLOptGroupElementPseudoCtor::self(exec); + case HTMLOptionElementCtor: + return HTMLOptionElementPseudoCtor::self(exec); + case HTMLInputElementCtor: + return HTMLInputElementPseudoCtor::self(exec); + case HTMLTextAreaElementCtor: + return HTMLTextAreaElementPseudoCtor::self(exec); + case HTMLButtonElementCtor: + return HTMLButtonElementPseudoCtor::self(exec); + case HTMLLabelElementCtor: + return HTMLLabelElementPseudoCtor::self(exec); + case HTMLFieldSetElementCtor: + return HTMLFieldSetElementPseudoCtor::self(exec); + case HTMLLegendElementCtor: + return HTMLLegendElementPseudoCtor::self(exec); + case HTMLUListElementCtor: + return HTMLUListElementPseudoCtor::self(exec); + case HTMLOListElementCtor: + return HTMLOListElementPseudoCtor::self(exec); + case HTMLDListElementCtor: + return HTMLDListElementPseudoCtor::self(exec); + case HTMLDirectoryElementCtor: + return HTMLDirectoryElementPseudoCtor::self(exec); + case HTMLMenuElementCtor: + return HTMLMenuElementPseudoCtor::self(exec); + case HTMLLIElementCtor: + return HTMLLIElementPseudoCtor::self(exec); + case HTMLDivElementCtor: + return HTMLDivElementPseudoCtor::self(exec); + case HTMLParagraphElementCtor: + return HTMLParagraphElementPseudoCtor::self(exec); + case HTMLHeadingElementCtor: + return HTMLHeadingElementPseudoCtor::self(exec); + case HTMLBlockQuoteElementCtor: + return HTMLBlockQuoteElementPseudoCtor::self(exec); + case HTMLQuoteElementCtor: + return HTMLQuoteElementPseudoCtor::self(exec); + case HTMLPreElementCtor: + return HTMLPreElementPseudoCtor::self(exec); + case HTMLBRElementCtor: + return HTMLBRElementPseudoCtor::self(exec); + case HTMLBaseFontElementCtor: + return HTMLBaseFontElementPseudoCtor::self(exec); + case HTMLFontElementCtor: + return HTMLFontElementPseudoCtor::self(exec); + case HTMLHRElementCtor: + return HTMLHRElementPseudoCtor::self(exec); + case HTMLModElementCtor: + return HTMLModElementPseudoCtor::self(exec); + case HTMLAnchorElementCtor: + return HTMLAnchorElementPseudoCtor::self(exec); + case HTMLImageElementCtor: + return HTMLImageElementPseudoCtor::self(exec); + case HTMLObjectElementCtor: + return HTMLObjectElementPseudoCtor::self(exec); + case HTMLParamElementCtor: + return HTMLParamElementPseudoCtor::self(exec); + case HTMLAppletElementCtor: + return HTMLAppletElementPseudoCtor::self(exec); + case HTMLMapElementCtor: + return HTMLMapElementPseudoCtor::self(exec); + case HTMLAreaElementCtor: + return HTMLAreaElementPseudoCtor::self(exec); + case HTMLScriptElementCtor: + return HTMLScriptElementPseudoCtor::self(exec); + case HTMLTableElementCtor: + return HTMLTableElementPseudoCtor::self(exec); + case HTMLTableCaptionElementCtor: + return HTMLTableCaptionElementPseudoCtor::self(exec); + case HTMLTableColElementCtor: + return HTMLTableColElementPseudoCtor::self(exec); + case HTMLTableSectionElementCtor: + return HTMLTableSectionElementPseudoCtor::self(exec); + case HTMLTableRowElementCtor: + return HTMLTableRowElementPseudoCtor::self(exec); + case HTMLTableCellElementCtor: + return HTMLTableCellElementPseudoCtor::self(exec); + case HTMLFrameSetElementCtor: + return HTMLFrameSetElementPseudoCtor::self(exec); + case HTMLLayerElementCtor: + return HTMLLayerElementPseudoCtor::self(exec); + case HTMLFrameElementCtor: + return HTMLFrameElementPseudoCtor::self(exec); + case HTMLIFrameElementCtor: + return HTMLIFrameElementPseudoCtor::self(exec); + case DocumentCtor: + return DocumentPseudoCtor::self(exec); + case HTMLDocumentCtor: + return HTMLDocumentPseudoCtor::self(exec); + case CSSStyleDeclarationCtor: + return CSSStyleDeclarationPseudoCtor::self(exec); + case EventCtor: + return EventConstructor::self(exec); + case MutationEventCtor: + return getMutationEventConstructor(exec); + case KeyboardEventCtor: + return getKeyboardEventConstructor(exec); + case EventExceptionCtor: + return getEventExceptionConstructor(exec); + case _History: + return Value(history ? history : + (const_cast<Window*>(this)->history = new History(exec,part))); + + case _External: + return Value(external ? external : + (const_cast<Window*>(this)->external = new External(exec,part))); + + case Event: + if (m_evt) + return getDOMEvent(exec,*m_evt); + else { +#ifdef KJS_VERBOSE + kdDebug(6070) << "WARNING: window(" << this << "," << part->name() << ").event, no event!" << endl; +#endif + return Undefined(); + } + case InnerHeight: + if (!part->view()) + return Undefined(); + tdehtml::RenderWidget::flushWidgetResizes(); // make sure frames have their final size + return Number(part->view()->visibleHeight()); + case InnerWidth: + if (!part->view()) + return Undefined(); + tdehtml::RenderWidget::flushWidgetResizes(); // make sure frames have their final size + return Number(part->view()->visibleWidth()); + case Length: + return Number(part->frames().count()); + case Name: + return String(part->name()); + case SideBar: + return Value(new MozillaSidebarExtension(exec, part)); + case _Navigator: + case ClientInformation: { + // Store the navigator in the object so we get the same one each time. + Value nav( new Navigator(exec, part) ); + const_cast<Window *>(this)->put(exec, "navigator", nav, DontDelete|ReadOnly|Internal); + const_cast<Window *>(this)->put(exec, "clientInformation", nav, DontDelete|ReadOnly|Internal); + return nav; + } +#ifdef Q_WS_QWS + case _Konqueror: { + Value k( new Konqueror(part) ); + const_cast<Window *>(this)->put(exec, "konqueror", k, DontDelete|ReadOnly|Internal); + return k; + } +#endif + case OffscreenBuffering: + return Boolean(true); + case OuterHeight: + case OuterWidth: + { +#if defined Q_WS_X11 && ! defined K_WS_QTONLY + if (!part->widget()) + return Number(0); + KWin::WindowInfo inf = KWin::windowInfo(part->widget()->topLevelWidget()->winId()); + return Number(entry->value == OuterHeight ? + inf.geometry().height() : inf.geometry().width()); +#else + return Number(entry->value == OuterHeight ? + part->view()->height() : part->view()->width()); +#endif + } + case PageXOffset: + return Number(part->view()->contentsX()); + case PageYOffset: + return Number(part->view()->contentsY()); + case Personalbar: + return Undefined(); // ### + case ScreenLeft: + case ScreenX: { + if (!part->view()) + return Undefined(); + TQRect sg = TDEGlobalSettings::desktopGeometry(part->view()); + return Number(part->view()->mapToGlobal(TQPoint(0,0)).x() + sg.x()); + } + case ScreenTop: + case ScreenY: { + if (!part->view()) + return Undefined(); + TQRect sg = TDEGlobalSettings::desktopGeometry(part->view()); + return Number(part->view()->mapToGlobal(TQPoint(0,0)).y() + sg.y()); + } + case ScrollX: { + if (!part->view()) + return Undefined(); + return Number(part->view()->contentsX()); + } + case ScrollY: { + if (!part->view()) + return Undefined(); + return Number(part->view()->contentsY()); + } + case Scrollbars: + return Undefined(); // ### + case _Screen: + return Value(screen ? screen : + (const_cast<Window*>(this)->screen = new Screen(exec))); + case Image: + return Value(new ImageConstructorImp(exec, part->document())); + case Option: + return Value(new OptionConstructorImp(exec, part->document())); + case XMLHttpRequest: + return Value(new XMLHttpRequestConstructorImp(exec, part->document())); + case XMLSerializer: + return Value(new XMLSerializerConstructorImp(exec)); + case DOMParser: + return Value(new DOMParserConstructorImp(exec, part->xmlDocImpl())); + case Scroll: // compatibility + case ScrollBy: + case ScrollTo: + case MoveBy: + case MoveTo: + case ResizeBy: + case ResizeTo: + case CaptureEvents: + case ReleaseEvents: + case AddEventListener: + case RemoveEventListener: + case SetTimeout: + case ClearTimeout: + case SetInterval: + case ClearInterval: + case Print: + return lookupOrCreateFunction<WindowFunc>(exec,p,this,entry->value,entry->params,entry->attr); + // IE extension + case Navigate: + // Disabled in NS-compat mode. Supported by default - can't hurt, unless someone uses + // if (navigate) to test for IE (unlikely). + if ( exec->interpreter()->compatMode() == Interpreter::NetscapeCompat ) + return Undefined(); + return lookupOrCreateFunction<WindowFunc>(exec,p,this,entry->value,entry->params,entry->attr); + case Onabort: + return getListener(exec,DOM::EventImpl::ABORT_EVENT); + case Onblur: + return getListener(exec,DOM::EventImpl::BLUR_EVENT); + case Onchange: + return getListener(exec,DOM::EventImpl::CHANGE_EVENT); + case Onclick: + return getListener(exec,DOM::EventImpl::TDEHTML_ECMA_CLICK_EVENT); + case Ondblclick: + return getListener(exec,DOM::EventImpl::TDEHTML_ECMA_DBLCLICK_EVENT); + case Ondragdrop: + return getListener(exec,DOM::EventImpl::TDEHTML_DRAGDROP_EVENT); + case Onerror: + return getListener(exec,DOM::EventImpl::ERROR_EVENT); + case Onfocus: + return getListener(exec,DOM::EventImpl::FOCUS_EVENT); + case Onkeydown: + return getListener(exec,DOM::EventImpl::KEYDOWN_EVENT); + case Onkeypress: + return getListener(exec,DOM::EventImpl::KEYPRESS_EVENT); + case Onkeyup: + return getListener(exec,DOM::EventImpl::KEYUP_EVENT); + case Onload: + return getListener(exec,DOM::EventImpl::LOAD_EVENT); + case Onmousedown: + return getListener(exec,DOM::EventImpl::MOUSEDOWN_EVENT); + case Onmousemove: + return getListener(exec,DOM::EventImpl::MOUSEMOVE_EVENT); + case Onmouseout: + return getListener(exec,DOM::EventImpl::MOUSEOUT_EVENT); + case Onmouseover: + return getListener(exec,DOM::EventImpl::MOUSEOVER_EVENT); + case Onmouseup: + return getListener(exec,DOM::EventImpl::MOUSEUP_EVENT); + case Onmove: + return getListener(exec,DOM::EventImpl::TDEHTML_MOVE_EVENT); + case Onreset: + return getListener(exec,DOM::EventImpl::RESET_EVENT); + case Onresize: + return getListener(exec,DOM::EventImpl::RESIZE_EVENT); + case Onselect: + return getListener(exec,DOM::EventImpl::SELECT_EVENT); + case Onsubmit: + return getListener(exec,DOM::EventImpl::SUBMIT_EVENT); + case Onunload: + return getListener(exec,DOM::EventImpl::UNLOAD_EVENT); + } + } + + // doing the remainder of ObjectImp::get() that is not covered by + // the getDirect() call above. + // #### guessed position. move further up or down? + Object proto = Object::dynamicCast(prototype()); + assert(proto.isValid()); + if (p == specialPrototypePropertyName) + return isSafeScript(exec) ? Value(proto) : Undefined(); + Value val2 = proto.get(exec, p); + if (!val2.isA(UndefinedType)) { + return isSafeScript(exec) ? val2 : Undefined(); + } + + KParts::ReadOnlyPart *rop = part->findFramePart( p.qstring() ); + if (rop) + return retrieve(rop); + + // allow window[1] or parent[1] etc. (#56983) + bool ok; + unsigned int i = p.toArrayIndex(&ok); + if (ok) { + TQPtrList<KParts::ReadOnlyPart> frames = part->frames(); + unsigned int len = frames.count(); + if (i < len) { + KParts::ReadOnlyPart* frame = frames.at(i); + if (frame) + return Window::retrieve(frame); + } + } + + //Check for images, forms, objects, etc. + if (isSafeScript(exec) && part->document().isHTMLDocument()) { // might be XML + DOM::DocumentImpl* docImpl = part->xmlDocImpl(); + DOM::ElementMappingCache::ItemInfo* info = docImpl->underDocNamedCache().get(p.qstring()); + if (info) { + //May be a false positive, but we can try to avoid doing it the hard way in + //simpler cases. The trickiness here is that the cache is kept under both + //name and id, but we sometimes ignore id for IE compat + DOM::DOMString propertyDOMString = p.string(); + if (info->nd && DOM::HTMLMappedNameCollectionImpl::matchesName(info->nd, + DOM::HTMLCollectionImpl::WINDOW_NAMED_ITEMS, propertyDOMString)) { + return getDOMNode(exec, info->nd); + } else { + //Can't tell it just like that, so better go through collection and count stuff. This is the slow path... + DOM::HTMLMappedNameCollection coll(docImpl, DOM::HTMLCollectionImpl::WINDOW_NAMED_ITEMS, propertyDOMString); + + if (coll.length() == 1) + return getDOMNode(exec, coll.firstItem()); + else if (coll.length() > 1) + return getHTMLCollection(exec, coll); + } + } + DOM::Element element = part->document().getElementById(p.string()); + if ( !element.isNull() ) + return getDOMNode(exec, element ); + } + + // This isn't necessarily a bug. Some code uses if(!window.blah) window.blah=1 + // But it can also mean something isn't loaded or implemented, hence the WARNING to help grepping. +#ifdef KJS_VERBOSE + kdDebug(6070) << "WARNING: Window::get property not found: " << p.qstring() << endl; +#endif + return Undefined(); +} + +void Window::put(ExecState* exec, const Identifier &propertyName, const Value &value, int attr) +{ + // we don't want any operations on a closed window + if (m_frame.isNull() || m_frame->m_part.isNull()) { + // ### throw exception? allow setting of some props like location? + return; + } + + // Called by an internal KJS call (e.g. InterpreterImp's constructor) ? + // If yes, save time and jump directly to ObjectImp. + if ( (attr != None && attr != DontDelete) || + // Same thing if we have a local override (e.g. "var location") + ( isSafeScript( exec ) && ObjectImp::getDirect(propertyName) ) ) + { + ObjectImp::put( exec, propertyName, value, attr ); + return; + } + + const HashEntry* entry = Lookup::findEntry(&WindowTable, propertyName); + if (entry && !m_frame.isNull() && !m_frame->m_part.isNull()) + { +#ifdef KJS_VERBOSE + kdDebug(6070) << "Window("<<this<<")::put " << propertyName.qstring() << endl; +#endif + switch( entry->value) { + case _Location: + goURL(exec, value.toString(exec).qstring(), false /*don't lock history*/); + return; + default: + break; + } + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (part) { + switch( entry->value ) { + case Status: { + if (isSafeScript(exec) && part->settings()->windowStatusPolicy(part->url().host()) + == TDEHTMLSettings::KJSWindowStatusAllow) { + String s = value.toString(exec); + part->setJSStatusBarText(s.value().qstring()); + } + return; + } + case DefaultStatus: { + if (isSafeScript(exec) && part->settings()->windowStatusPolicy(part->url().host()) + == TDEHTMLSettings::KJSWindowStatusAllow) { + String s = value.toString(exec); + part->setJSDefaultStatusBarText(s.value().qstring()); + } + return; + } + case Onabort: + if (isSafeScript(exec)) + setListener(exec, DOM::EventImpl::ABORT_EVENT,value); + return; + case Onblur: + if (isSafeScript(exec)) + setListener(exec, DOM::EventImpl::BLUR_EVENT,value); + return; + case Onchange: + if (isSafeScript(exec)) + setListener(exec, DOM::EventImpl::CHANGE_EVENT,value); + return; + case Onclick: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::TDEHTML_ECMA_CLICK_EVENT,value); + return; + case Ondblclick: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::TDEHTML_ECMA_DBLCLICK_EVENT,value); + return; + case Ondragdrop: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::TDEHTML_DRAGDROP_EVENT,value); + return; + case Onerror: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::ERROR_EVENT,value); + return; + case Onfocus: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::FOCUS_EVENT,value); + return; + case Onkeydown: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::KEYDOWN_EVENT,value); + return; + case Onkeypress: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::KEYPRESS_EVENT,value); + return; + case Onkeyup: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::KEYUP_EVENT,value); + return; + case Onload: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::LOAD_EVENT,value); + return; + case Onmousedown: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::MOUSEDOWN_EVENT,value); + return; + case Onmousemove: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::MOUSEMOVE_EVENT,value); + return; + case Onmouseout: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::MOUSEOUT_EVENT,value); + return; + case Onmouseover: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::MOUSEOVER_EVENT,value); + return; + case Onmouseup: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::MOUSEUP_EVENT,value); + return; + case Onmove: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::TDEHTML_MOVE_EVENT,value); + return; + case Onreset: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::RESET_EVENT,value); + return; + case Onresize: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::RESIZE_EVENT,value); + return; + case Onselect: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::SELECT_EVENT,value); + return; + case Onsubmit: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::SUBMIT_EVENT,value); + return; + case Onunload: + if (isSafeScript(exec)) + setListener(exec,DOM::EventImpl::UNLOAD_EVENT,value); + return; + case Name: + if (isSafeScript(exec)) + part->setName( value.toString(exec).qstring().local8Bit().data() ); + return; + default: + break; + } + } + } + if (m_frame->m_liveconnect && + isSafeScript(exec) && + m_frame->m_liveconnect->put(0, propertyName.qstring(), value.toString(exec).qstring())) + return; + if (isSafeScript(exec)) { + //kdDebug(6070) << "Window("<<this<<")::put storing " << propertyName.qstring() << endl; + ObjectImp::put(exec, propertyName, value, attr); + } +} + +bool Window::toBoolean(ExecState *) const +{ + return !m_frame.isNull() && !m_frame->m_part.isNull(); +} + +DOM::AbstractView Window::toAbstractView() const +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (!part) + return DOM::AbstractView(); + return part->document().defaultView(); +} + +void Window::scheduleClose() +{ + kdDebug(6070) << "Window::scheduleClose window.close() " << m_frame << endl; + Q_ASSERT(winq); + TQTimer::singleShot( 0, winq, TQT_SLOT( timeoutClose() ) ); +} + +void Window::closeNow() +{ + if (m_frame.isNull() || m_frame->m_part.isNull()) { + kdDebug(6070) << k_funcinfo << "part is deleted already" << endl; + } else { + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (!part) { + kdDebug(6070) << "closeNow on non TDEHTML part" << endl; + } else { + //kdDebug(6070) << k_funcinfo << " -> closing window" << endl; + // We want to make sure that window.open won't find this part by name. + part->setName( 0 ); + part->deleteLater(); + part = 0; + } + } +} + +void Window::afterScriptExecution() +{ + DOM::DocumentImpl::updateDocumentsRendering(); + TQValueList<DelayedAction> delayedActions = m_delayed; + m_delayed.clear(); + TQValueList<DelayedAction>::Iterator it = delayedActions.begin(); + for ( ; it != delayedActions.end() ; ++it ) + { + switch ((*it).actionId) { + case DelayedClose: + scheduleClose(); + return; // stop here, in case of multiple actions + case DelayedGoHistory: + goHistory( (*it).param.toInt() ); + break; + case NullAction: + // FIXME: anything needs to be done here? This is warning anyways. + break; + }; + } +} + +bool Window::checkIsSafeScript(KParts::ReadOnlyPart *activePart) const +{ + if (m_frame.isNull() || m_frame->m_part.isNull()) { // part deleted ? can't grant access + kdDebug(6070) << "Window::isSafeScript: accessing deleted part !" << endl; + return false; + } + if (!activePart) { + kdDebug(6070) << "Window::isSafeScript: current interpreter's part is 0L!" << endl; + return false; + } + if ( activePart == m_frame->m_part ) // Not calling from another frame, no problem. + return true; + + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (!part) + return true; // not a TDEHTMLPart + + if ( part->document().isNull() ) + return true; // allow to access a window that was just created (e.g. with window.open("about:blank")) + + DOM::HTMLDocument thisDocument = part->htmlDocument(); + if ( thisDocument.isNull() ) { + kdDebug(6070) << "Window::isSafeScript: trying to access an XML document !?" << endl; + return false; + } + + TDEHTMLPart *activeTDEHTMLPart = ::tqqt_cast<TDEHTMLPart *>(activePart); + if (!activeTDEHTMLPart) + return true; // not a TDEHTMLPart + + DOM::HTMLDocument actDocument = activeTDEHTMLPart->htmlDocument(); + if ( actDocument.isNull() ) { + kdDebug(6070) << "Window::isSafeScript: active part has no document!" << endl; + return false; + } + DOM::DOMString actDomain = actDocument.domain(); + DOM::DOMString thisDomain = thisDocument.domain(); + + if ( actDomain == thisDomain ) { +#ifdef KJS_VERBOSE + //kdDebug(6070) << "JavaScript: access granted, domain is '" << actDomain.string() << "'" << endl; +#endif + return true; + } + + kdDebug(6070) << "WARNING: JavaScript: access denied for current frame '" << actDomain.string() << "' to frame '" << thisDomain.string() << "'" << endl; + // TODO after 3.1: throw security exception (exec->setException()) + return false; +} + +void Window::setListener(ExecState *exec, int eventId, Value func) +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (!part || !isSafeScript(exec)) + return; + DOM::DocumentImpl *doc = static_cast<DOM::DocumentImpl*>(part->htmlDocument().handle()); + if (!doc) + return; + + doc->setHTMLWindowEventListener(eventId,getJSEventListener(func,true)); +} + +Value Window::getListener(ExecState *exec, int eventId) const +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (!part || !isSafeScript(exec)) + return Undefined(); + DOM::DocumentImpl *doc = static_cast<DOM::DocumentImpl*>(part->htmlDocument().handle()); + if (!doc) + return Undefined(); + + DOM::EventListener *listener = doc->getHTMLWindowEventListener(eventId); + if (listener && static_cast<JSEventListener*>(listener)->listenerObjImp()) + return static_cast<JSEventListener*>(listener)->listenerObj(); + else + return Null(); +} + + +JSEventListener *Window::getJSEventListener(const Value& val, bool html) +{ + // This function is so hot that it's worth coding it directly with imps. + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (!part || val.type() != ObjectType) + return 0; + + // It's ObjectType, so it must be valid. + Object listenerObject = Object::dynamicCast(val); + ObjectImp *listenerObjectImp = listenerObject.imp(); + + // 'listener' is not a simple ecma function. (Always use sanity checks: Better safe than sorry!) + if (!listenerObject.implementsCall() && part && part->jScript() && part->jScript()->interpreter()) + { + Interpreter *interpreter = part->jScript()->interpreter(); + + // 'listener' probably is an EventListener object containing a 'handleEvent' function. + Value handleEventValue = listenerObject.get(interpreter->globalExec(), Identifier("handleEvent")); + Object handleEventObject = Object::dynamicCast(handleEventValue); + + if(handleEventObject.isValid() && handleEventObject.implementsCall()) + { + listenerObject = handleEventObject; + listenerObjectImp = handleEventObject.imp(); + } + } + + JSEventListener *existingListener = jsEventListeners[listenerObjectImp]; + if (existingListener) { + if ( existingListener->isHTMLEventListener() != html ) + // The existingListener will have the wrong type, so onclick= will behave like addEventListener or vice versa. + kdWarning() << "getJSEventListener: event listener already found but with html=" << !html << " - please report this, we thought it would never happen" << endl; + return existingListener; + } + + // Note that the JSEventListener constructor adds it to our jsEventListeners list + return new JSEventListener(listenerObject, listenerObjectImp, Object(this), html); +} + +JSLazyEventListener *Window::getJSLazyEventListener(const TQString& code, const TQString& name, DOM::NodeImpl *node) +{ + return new JSLazyEventListener(code, name, Object(this), node); +} + +void Window::clear( ExecState *exec ) +{ + delete winq; + winq = 0L; + // Get rid of everything, those user vars could hold references to DOM nodes + deleteAllProperties( exec ); + + // Break the dependency between the listeners and their object + TQPtrDictIterator<JSEventListener> it(jsEventListeners); + for (; it.current(); ++it) + it.current()->clear(); + // Forget about the listeners (the DOM::NodeImpls will delete them) + jsEventListeners.clear(); + + if (m_frame) { + KJSProxy* proxy = m_frame->m_jscript; + if (proxy) // i.e. JS not disabled + { + winq = new WindowQObject(this); + // Now recreate a working global object for the next URL that will use us + KJS::Interpreter *interpreter = proxy->interpreter(); + interpreter->initGlobalObject(); + } + } +} + +void Window::setCurrentEvent( DOM::Event *evt ) +{ + m_evt = evt; + //kdDebug(6070) << "Window " << this << " (part=" << m_part << ")::setCurrentEvent m_evt=" << evt << endl; +} + +void Window::goURL(ExecState* exec, const TQString& url, bool lockHistory) +{ + Window* active = Window::retrieveActive(exec); + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + TDEHTMLPart *active_part = ::tqqt_cast<TDEHTMLPart *>(active->part()); + // Complete the URL using the "active part" (running interpreter) + if (active_part && part) { + if (url[0] == TQChar('#')) { + part->gotoAnchor(url.mid(1)); + } else { + TQString dstUrl = active_part->htmlDocument().completeURL(url).string(); + kdDebug(6070) << "Window::goURL dstUrl=" << dstUrl << endl; + + // check if we're allowed to inject javascript + // SYNC check with tdehtml_part.cpp::slotRedirect! + if ( isSafeScript(exec) || + dstUrl.find(TQString::fromLatin1("javascript:"), 0, false) != 0 ) + part->scheduleRedirection(-1, + dstUrl, + lockHistory); + } + } else if (!part && !m_frame->m_part.isNull()) { + KParts::BrowserExtension *b = KParts::BrowserExtension::childObject(m_frame->m_part); + if (b) + b->emit openURLRequest(m_frame->m_frame->element()->getDocument()->completeURL(url)); + kdDebug() << "goURL for ROPart" << endl; + } +} + +KParts::ReadOnlyPart *Window::part() const { + return m_frame.isNull() ? 0L : static_cast<KParts::ReadOnlyPart *>(m_frame->m_part); +} + +void Window::delayedGoHistory( int steps ) +{ + m_delayed.append( DelayedAction( DelayedGoHistory, steps ) ); +} + +void Window::goHistory( int steps ) +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if(!part) + // TODO history readonlypart + return; + KParts::BrowserExtension *ext = part->browserExtension(); + if(!ext) + return; + KParts::BrowserInterface *iface = ext->browserInterface(); + + if ( !iface ) + return; + + iface->callMethod( "goHistory(int)", steps ); + //emit ext->goHistory(steps); +} + +void KJS::Window::resizeTo(TQWidget* tl, int width, int height) +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if(!part) + // TODO resizeTo readonlypart + return; + KParts::BrowserExtension *ext = part->browserExtension(); + if (!ext) { + kdDebug(6070) << "Window::resizeTo found no browserExtension" << endl; + return; + } + + // Security check: within desktop limits and bigger than 100x100 (per spec) + if ( width < 100 || height < 100 ) { + kdDebug(6070) << "Window::resizeTo refused, window would be too small ("<<width<<","<<height<<")" << endl; + return; + } + + TQRect sg = TDEGlobalSettings::desktopGeometry(tl); + + if ( width > sg.width() || height > sg.height() ) { + kdDebug(6070) << "Window::resizeTo refused, window would be too big ("<<width<<","<<height<<")" << endl; + return; + } + + kdDebug(6070) << "resizing to " << width << "x" << height << endl; + + emit ext->resizeTopLevelWidget( width, height ); + + // If the window is out of the desktop, move it up/left + // (maybe we should use workarea instead of sg, otherwise the window ends up below kicker) + int right = tl->x() + tl->frameGeometry().width(); + int bottom = tl->y() + tl->frameGeometry().height(); + int moveByX = 0; + int moveByY = 0; + if ( right > sg.right() ) + moveByX = - right + sg.right(); // always <0 + if ( bottom > sg.bottom() ) + moveByY = - bottom + sg.bottom(); // always <0 + if ( moveByX || moveByY ) + emit ext->moveTopLevelWidget( tl->x() + moveByX , tl->y() + moveByY ); +} + +Value Window::openWindow(ExecState *exec, const List& args) +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + if (!part) + return Undefined(); + TDEHTMLView *widget = part->view(); + Value v = args[0]; + TQString str; + if (v.isValid() && !v.isA(UndefinedType)) + str = v.toString(exec).qstring(); + + // prepare arguments + KURL url; + if (!str.isEmpty()) + { + TDEHTMLPart* p = ::tqqt_cast<TDEHTMLPart *>(Window::retrieveActive(exec)->m_frame->m_part); + if ( p ) + url = p->htmlDocument().completeURL(str).string(); + if ( !p || + !static_cast<DOM::DocumentImpl*>(p->htmlDocument().handle())->isURLAllowed(url.url()) ) + return Undefined(); + } + + TDEHTMLSettings::KJSWindowOpenPolicy policy = + part->settings()->windowOpenPolicy(part->url().host()); + if ( policy == TDEHTMLSettings::KJSWindowOpenAsk ) { + emit part->browserExtension()->requestFocus(part); + TQString caption; + if (!part->url().host().isEmpty()) + caption = part->url().host() + " - "; + caption += i18n( "Confirmation: JavaScript Popup" ); + if ( KMessageBox::questionYesNo(widget, + str.isEmpty() ? + i18n( "This site is requesting to open up a new browser " + "window via JavaScript.\n" + "Do you want to allow this?" ) : + i18n( "<qt>This site is requesting to open<p>%1</p>in a new browser window via JavaScript.<br />" + "Do you want to allow this?</qt>").arg(KStringHandler::csqueeze(url.htmlURL(), 100)), + caption, i18n("Allow"), i18n("Do Not Allow") ) == KMessageBox::Yes ) + policy = TDEHTMLSettings::KJSWindowOpenAllow; + } else if ( policy == TDEHTMLSettings::KJSWindowOpenSmart ) + { + // window.open disabled unless from a key/mouse event + if (static_cast<ScriptInterpreter *>(exec->interpreter())->isWindowOpenAllowed()) + policy = TDEHTMLSettings::KJSWindowOpenAllow; + } + + TQString frameName = args.size() > 1 ? args[1].toString(exec).qstring() : TQString("_blank"); + + v = args[2]; + TQString features; + if (!v.isNull() && v.type() != UndefinedType && v.toString(exec).size() > 0) { + features = v.toString(exec).qstring(); + // Buggy scripts have ' at beginning and end, cut those + if (features.startsWith("\'") && features.endsWith("\'")) + features = features.mid(1, features.length()-2); + } + + if ( policy != TDEHTMLSettings::KJSWindowOpenAllow ) { + if ( url.isEmpty() ) + part->setSuppressedPopupIndicator(true, 0); + else { + part->setSuppressedPopupIndicator(true, part); + m_suppressedWindowInfo.append( SuppressedWindowInfo( url, frameName, features ) ); + } + return Undefined(); + } else { + return executeOpenWindow(exec, url, frameName, features); + } +} + +Value Window::executeOpenWindow(ExecState *exec, const KURL& url, const TQString& frameName, const TQString& features) +{ + TDEHTMLPart *p = ::tqqt_cast<TDEHTMLPart *>(m_frame->m_part); + TDEHTMLView *widget = p->view(); + KParts::WindowArgs winargs; + + // scan feature argument + if (!features.isEmpty()) { + // specifying window params means false defaults + winargs.menuBarVisible = false; + winargs.toolBarsVisible = false; + winargs.statusBarVisible = false; + winargs.scrollBarsVisible = false; + TQStringList flist = TQStringList::split(',', features); + TQStringList::ConstIterator it = flist.begin(); + while (it != flist.end()) { + TQString s = *it++; + TQString key, val; + int pos = s.find('='); + if (pos >= 0) { + key = s.left(pos).stripWhiteSpace().lower(); + val = s.mid(pos + 1).stripWhiteSpace().lower(); + TQRect screen = TDEGlobalSettings::desktopGeometry(widget->topLevelWidget()); + + if (key == "left" || key == "screenx") { + winargs.x = (int)val.toFloat() + screen.x(); + if (winargs.x < screen.x() || winargs.x > screen.right()) + winargs.x = screen.x(); // only safe choice until size is determined + } else if (key == "top" || key == "screeny") { + winargs.y = (int)val.toFloat() + screen.y(); + if (winargs.y < screen.y() || winargs.y > screen.bottom()) + winargs.y = screen.y(); // only safe choice until size is determined + } else if (key == "height") { + winargs.height = (int)val.toFloat() + 2*tqApp->style().pixelMetric( TQStyle::PM_DefaultFrameWidth ) + 2; + if (winargs.height > screen.height()) // should actually check workspace + winargs.height = screen.height(); + if (winargs.height < 100) + winargs.height = 100; + } else if (key == "width") { + winargs.width = (int)val.toFloat() + 2*tqApp->style().pixelMetric( TQStyle::PM_DefaultFrameWidth ) + 2; + if (winargs.width > screen.width()) // should actually check workspace + winargs.width = screen.width(); + if (winargs.width < 100) + winargs.width = 100; + } else { + goto boolargs; + } + continue; + } else { + // leaving away the value gives true + key = s.stripWhiteSpace().lower(); + val = "1"; + } + boolargs: + if (key == "menubar") + winargs.menuBarVisible = (val == "1" || val == "yes"); + else if (key == "toolbar") + winargs.toolBarsVisible = (val == "1" || val == "yes"); + else if (key == "location") // ### missing in WindowArgs + winargs.toolBarsVisible = (val == "1" || val == "yes"); + else if (key == "status" || key == "statusbar") + winargs.statusBarVisible = (val == "1" || val == "yes"); + else if (key == "scrollbars") + winargs.scrollBarsVisible = (val == "1" || val == "yes"); + else if (key == "resizable") + winargs.resizable = (val == "1" || val == "yes"); + else if (key == "fullscreen") + winargs.fullscreen = (val == "1" || val == "yes"); + } + } + + KParts::URLArgs uargs; + uargs.frameName = frameName; + + if ( uargs.frameName.lower() == "_top" ) + { + while ( p->parentPart() ) + p = p->parentPart(); + Window::retrieveWindow(p)->goURL(exec, url.url(), false /*don't lock history*/); + return Window::retrieve(p); + } + if ( uargs.frameName.lower() == "_parent" ) + { + if ( p->parentPart() ) + p = p->parentPart(); + Window::retrieveWindow(p)->goURL(exec, url.url(), false /*don't lock history*/); + return Window::retrieve(p); + } + if ( uargs.frameName.lower() == "_self") + { + Window::retrieveWindow(p)->goURL(exec, url.url(), false /*don't lock history*/); + return Window::retrieve(p); + } + if ( uargs.frameName.lower() == "replace" ) + { + Window::retrieveWindow(p)->goURL(exec, url.url(), true /*lock history*/); + return Window::retrieve(p); + } + uargs.serviceType = "text/html"; + + // request window (new or existing if framename is set) + KParts::ReadOnlyPart *newPart = 0L; + emit p->browserExtension()->createNewWindow(KURL(), uargs,winargs,newPart); + if (newPart && ::tqqt_cast<TDEHTMLPart*>(newPart)) { + TDEHTMLPart *tdehtmlpart = static_cast<TDEHTMLPart*>(newPart); + //tqDebug("opener set to %p (this Window's part) in new Window %p (this Window=%p)",part,win,window); + tdehtmlpart->setOpener(p); + tdehtmlpart->setOpenedByJS(true); + if (tdehtmlpart->document().isNull()) { + tdehtmlpart->begin(); + tdehtmlpart->write("<HTML><BODY>"); + tdehtmlpart->end(); + if ( p->docImpl() ) { + //kdDebug(6070) << "Setting domain to " << p->docImpl()->domain().string() << endl; + tdehtmlpart->docImpl()->setDomain( p->docImpl()->domain()); + tdehtmlpart->docImpl()->setBaseURL( p->docImpl()->baseURL() ); + } + } + uargs.serviceType = TQString::null; + if (uargs.frameName.lower() == "_blank") + uargs.frameName = TQString::null; + if (!url.isEmpty()) + emit tdehtmlpart->browserExtension()->openURLRequest(url,uargs); + return Window::retrieve(tdehtmlpart); // global object + } else + return Undefined(); +} + +void Window::forgetSuppressedWindows() +{ + m_suppressedWindowInfo.clear(); +} + +void Window::showSuppressedWindows() +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>( m_frame->m_part ); + KJS::Interpreter *interpreter = part->jScript()->interpreter(); + ExecState *exec = interpreter->globalExec(); + + TQValueList<SuppressedWindowInfo> suppressedWindowInfo = m_suppressedWindowInfo; + m_suppressedWindowInfo.clear(); + TQValueList<SuppressedWindowInfo>::Iterator it = suppressedWindowInfo.begin(); + for ( ; it != suppressedWindowInfo.end() ; ++it ) { + executeOpenWindow(exec, (*it).url, (*it).frameName, (*it).features); + } +} + +Value WindowFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( Window, thisObj ); + + // these should work no matter whether the window is already + // closed or not + if (id == Window::ValueOf || id == Window::ToString) { + return String("[object Window]"); + } + + Window *window = static_cast<Window *>(thisObj.imp()); + TQString str, str2; + + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(window->m_frame->m_part); + if (!part) + return Undefined(); + + TDEHTMLView *widget = part->view(); + Value v = args[0]; + UString s; + if (v.isValid() && !v.isA(UndefinedType)) { + s = v.toString(exec); + str = s.qstring(); + } + + TQString caption; + if (part && !part->url().host().isEmpty()) + caption = part->url().host() + " - "; + caption += "JavaScript"; // TODO: i18n + // functions that work everywhere + switch(id) { + case Window::Alert: + if (!widget->dialogsAllowed()) + return Undefined(); + if ( part && part->xmlDocImpl() ) + part->xmlDocImpl()->updateRendering(); + if ( part ) + emit part->browserExtension()->requestFocus(part); + KMessageBox::error(widget, TQStyleSheet::convertFromPlainText(str, TQStyleSheetItem::WhiteSpaceNormal), caption); + return Undefined(); + case Window::Confirm: + if (!widget->dialogsAllowed()) + return Undefined(); + if ( part && part->xmlDocImpl() ) + part->xmlDocImpl()->updateRendering(); + if ( part ) + emit part->browserExtension()->requestFocus(part); + return Boolean((KMessageBox::warningYesNo(widget, TQStyleSheet::convertFromPlainText(str), caption, + KStdGuiItem::ok(), KStdGuiItem::cancel()) == KMessageBox::Yes)); + case Window::Prompt: +#ifndef KONQ_EMBEDDED + if (!widget->dialogsAllowed()) + return Undefined(); + if ( part && part->xmlDocImpl() ) + part->xmlDocImpl()->updateRendering(); + if ( part ) + emit part->browserExtension()->requestFocus(part); + bool ok; + if (args.size() >= 2) + str2 = KInputDialog::getText(caption, + TQStyleSheet::convertFromPlainText(str), + args[1].toString(exec).qstring(), &ok, widget); + else + str2 = KInputDialog::getText(caption, + TQStyleSheet::convertFromPlainText(str), + TQString::null, &ok, widget); + if ( ok ) + return String(str2); + else + return Null(); +#else + return Undefined(); +#endif + case Window::GetComputedStyle: { + if ( !part || !part->xmlDocImpl() ) + return Undefined(); + DOM::Node arg0 = toNode(args[0]); + if (arg0.nodeType() != DOM::Node::ELEMENT_NODE) + return Undefined(); // throw exception? + else + return getDOMCSSStyleDeclaration(exec, part->document().defaultView().getComputedStyle(static_cast<DOM::Element>(arg0), + args[1].toString(exec).string())); + } + case Window::Open: + return window->openWindow(exec, args); + case Window::Close: { + /* From http://developer.netscape.com/docs/manuals/js/client/jsref/window.htm : + The close method closes only windows opened by JavaScript using the open method. + If you attempt to close any other window, a confirm is generated, which + lets the user choose whether the window closes. + This is a security feature to prevent "mail bombs" containing self.close(). + However, if the window has only one document (the current one) in its + session history, the close is allowed without any confirm. This is a + special case for one-off windows that need to open other windows and + then dispose of themselves. + */ + bool doClose = false; + if (!part->openedByJS()) + { + // To conform to the SPEC, we only ask if the window + // has more than one entry in the history (NS does that too). + History history(exec,part); + + if ( history.get( exec, "length" ).toInt32(exec) <= 1 ) + { + doClose = true; + } + else + { + // Can we get this dialog with tabs??? Does it close the window or the tab in that case? + emit part->browserExtension()->requestFocus(part); + if ( KMessageBox::questionYesNo( window->part()->widget(), + i18n("Close window?"), i18n("Confirmation Required"), + KStdGuiItem::close(), KStdGuiItem::cancel() ) + == KMessageBox::Yes ) + doClose = true; + } + } + else + doClose = true; + + if (doClose) + { + // If this is the current window (the one the interpreter runs in), + // then schedule a delayed close (so that the script terminates first). + // But otherwise, close immediately. This fixes w=window.open("","name");w.close();window.open("name"); + if ( Window::retrieveActive(exec) == window ) { + if (widget) { + // quit all dialogs of this view + // this fixes 'setTimeout('self.close()',1000); alert("Hi");' crash + widget->closeChildDialogs(); + } + //kdDebug() << "scheduling delayed close" << endl; + // We'll close the window at the end of the script execution + Window* w = const_cast<Window*>(window); + w->m_delayed.append( Window::DelayedAction( Window::DelayedClose ) ); + } else { + //kdDebug() << "closing NOW" << endl; + (const_cast<Window*>(window))->closeNow(); + } + } + return Undefined(); + } + case Window::Navigate: + window->goURL(exec, args[0].toString(exec).qstring(), false /*don't lock history*/); + return Undefined(); + case Window::Focus: { + TDEHTMLSettings::KJSWindowFocusPolicy policy = + part->settings()->windowFocusPolicy(part->url().host()); + if(policy == TDEHTMLSettings::KJSWindowFocusAllow && widget) { + widget->topLevelWidget()->raise(); + KWin::deIconifyWindow( widget->topLevelWidget()->winId() ); + widget->setActiveWindow(); + emit part->browserExtension()->requestFocus(part); + } + return Undefined(); + } + case Window::Blur: + // TODO + return Undefined(); + case Window::BToA: + case Window::AToB: { + if (!s.is8Bit()) + return Undefined(); + TQByteArray in, out; + char *binData = s.ascii(); + in.setRawData( binData, s.size() ); + if (id == Window::AToB) + KCodecs::base64Decode( in, out ); + else + KCodecs::base64Encode( in, out ); + in.resetRawData( binData, s.size() ); + UChar *d = new UChar[out.size()]; + for (uint i = 0; i < out.size(); i++) + d[i].uc = (uchar) out[i]; + UString ret(d, out.size(), false /*no copy*/); + return String(ret); + } + + }; + + + // now unsafe functions.. + if (!window->isSafeScript(exec)) + return Undefined(); + + switch (id) { + case Window::ScrollBy: + if(args.size() == 2 && widget) + widget->scrollBy(args[0].toInt32(exec), args[1].toInt32(exec)); + return Undefined(); + case Window::Scroll: + case Window::ScrollTo: + if(args.size() == 2 && widget) + widget->setContentsPos(args[0].toInt32(exec), args[1].toInt32(exec)); + return Undefined(); + case Window::MoveBy: { + TDEHTMLSettings::KJSWindowMovePolicy policy = + part->settings()->windowMovePolicy(part->url().host()); + if(policy == TDEHTMLSettings::KJSWindowMoveAllow && args.size() == 2 && widget) + { + KParts::BrowserExtension *ext = part->browserExtension(); + if (ext) { + TQWidget * tl = widget->topLevelWidget(); + TQRect sg = TDEGlobalSettings::desktopGeometry(tl); + + TQPoint dest = tl->pos() + TQPoint( args[0].toInt32(exec), args[1].toInt32(exec) ); + // Security check (the spec talks about UniversalBrowserWrite to disable this check...) + if ( dest.x() >= sg.x() && dest.y() >= sg.x() && + dest.x()+tl->width() <= sg.width()+sg.x() && + dest.y()+tl->height() <= sg.height()+sg.y() ) + emit ext->moveTopLevelWidget( dest.x(), dest.y() ); + } + } + return Undefined(); + } + case Window::MoveTo: { + TDEHTMLSettings::KJSWindowMovePolicy policy = + part->settings()->windowMovePolicy(part->url().host()); + if(policy == TDEHTMLSettings::KJSWindowMoveAllow && args.size() == 2 && widget) + { + KParts::BrowserExtension *ext = part->browserExtension(); + if (ext) { + TQWidget * tl = widget->topLevelWidget(); + TQRect sg = TDEGlobalSettings::desktopGeometry(tl); + + TQPoint dest( args[0].toInt32(exec)+sg.x(), args[1].toInt32(exec)+sg.y() ); + // Security check (the spec talks about UniversalBrowserWrite to disable this check...) + if ( dest.x() >= sg.x() && dest.y() >= sg.y() && + dest.x()+tl->width() <= sg.width()+sg.x() && + dest.y()+tl->height() <= sg.height()+sg.y() ) + emit ext->moveTopLevelWidget( dest.x(), dest.y() ); + } + } + return Undefined(); + } + case Window::ResizeBy: { + TDEHTMLSettings::KJSWindowResizePolicy policy = + part->settings()->windowResizePolicy(part->url().host()); + if(policy == TDEHTMLSettings::KJSWindowResizeAllow + && args.size() == 2 && widget) + { + TQWidget * tl = widget->topLevelWidget(); + TQRect geom = tl->frameGeometry(); + window->resizeTo( tl, + geom.width() + args[0].toInt32(exec), + geom.height() + args[1].toInt32(exec) ); + } + return Undefined(); + } + case Window::ResizeTo: { + TDEHTMLSettings::KJSWindowResizePolicy policy = + part->settings()->windowResizePolicy(part->url().host()); + if(policy == TDEHTMLSettings::KJSWindowResizeAllow + && args.size() == 2 && widget) + { + TQWidget * tl = widget->topLevelWidget(); + window->resizeTo( tl, args[0].toInt32(exec), args[1].toInt32(exec) ); + } + return Undefined(); + } + case Window::SetTimeout: + case Window::SetInterval: { + bool singleShot; + int i; // timeout interval + if (args.size() == 0) + return Undefined(); + if (args.size() > 1) { + singleShot = (id == Window::SetTimeout); + i = args[1].toInt32(exec); + } else { + // second parameter is missing. Emulate Mozilla behavior. + singleShot = true; + i = 4; + } + if (v.isA(StringType)) { + int r = (const_cast<Window*>(window))->winq->installTimeout(Identifier(s), i, singleShot ); + return Number(r); + } + else if (v.isA(ObjectType) && Object::dynamicCast(v).implementsCall()) { + Object func = Object::dynamicCast(v); + List funcArgs; + ListIterator it = args.begin(); + int argno = 0; + while (it != args.end()) { + Value arg = it++; + if (argno++ >= 2) + funcArgs.append(arg); + } + if (args.size() < 2) + funcArgs.append(Number(i)); + int r = (const_cast<Window*>(window))->winq->installTimeout(func, funcArgs, i, singleShot ); + return Number(r); + } + else + return Undefined(); + } + case Window::ClearTimeout: + case Window::ClearInterval: + (const_cast<Window*>(window))->winq->clearTimeout(v.toInt32(exec)); + return Undefined(); + case Window::Print: + if ( widget ) { + // ### TODO emit onbeforeprint event + widget->print(); + // ### TODO emit onafterprint event + } + case Window::CaptureEvents: + case Window::ReleaseEvents: + // Do nothing for now. These are NS-specific legacy calls. + break; + case Window::AddEventListener: { + JSEventListener *listener = Window::retrieveActive(exec)->getJSEventListener(args[1]); + if (listener) { + DOM::DocumentImpl* docimpl = static_cast<DOM::DocumentImpl *>(part->document().handle()); + docimpl->addWindowEventListener(DOM::EventImpl::typeToId(args[0].toString(exec).string()),listener,args[2].toBoolean(exec)); + } + return Undefined(); + } + case Window::RemoveEventListener: { + JSEventListener *listener = Window::retrieveActive(exec)->getJSEventListener(args[1]); + if (listener) { + DOM::DocumentImpl* docimpl = static_cast<DOM::DocumentImpl *>(part->document().handle()); + docimpl->removeWindowEventListener(DOM::EventImpl::typeToId(args[0].toString(exec).string()),listener,args[2].toBoolean(exec)); + } + return Undefined(); + } + + } + return Undefined(); +} + +////////////////////// ScheduledAction //////////////////////// + +// KDE 4: Make those parameters const ... & +ScheduledAction::ScheduledAction(Object _func, List _args, DateTimeMS _nextTime, int _interval, bool _singleShot, + int _timerId) +{ + //kdDebug(6070) << "ScheduledAction::ScheduledAction(isFunction) " << this << endl; + func = static_cast<ObjectImp*>(_func.imp()); + args = _args; + isFunction = true; + singleShot = _singleShot; + nextTime = _nextTime; + interval = _interval; + executing = false; + timerId = _timerId; +} + +// KDE 4: Make it const TQString & +ScheduledAction::ScheduledAction(TQString _code, DateTimeMS _nextTime, int _interval, bool _singleShot, int _timerId) +{ + //kdDebug(6070) << "ScheduledAction::ScheduledAction(!isFunction) " << this << endl; + //func = 0; + //args = 0; + func = 0; + code = _code; + isFunction = false; + singleShot = _singleShot; + nextTime = _nextTime; + interval = _interval; + executing = false; + timerId = _timerId; +} + +bool ScheduledAction::execute(Window *window) +{ + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(window->m_frame->m_part); + if (!part || !part->jScriptEnabled()) + return false; + ScriptInterpreter *interpreter = static_cast<ScriptInterpreter *>(part->jScript()->interpreter()); + + interpreter->setProcessingTimerCallback(true); + + //kdDebug(6070) << "ScheduledAction::execute " << this << endl; + if (isFunction) { + if (func->implementsCall()) { + // #### check this + Q_ASSERT( part ); + if ( part ) + { + KJS::Interpreter *interpreter = part->jScript()->interpreter(); + ExecState *exec = interpreter->globalExec(); + Q_ASSERT( window == interpreter->globalObject().imp() ); + Object obj( window ); + func->call(exec,obj,args); // note that call() creates its own execution state for the func call + if (exec->hadException()) + exec->clearException(); + + // Update our document's rendering following the execution of the timeout callback. + part->document().updateRendering(); + } + } + } + else { + part->executeScript(DOM::Node(), code); + } + + interpreter->setProcessingTimerCallback(false); + return true; +} + +void ScheduledAction::mark() +{ + if (func && !func->marked()) + func->mark(); + args.mark(); +} + +ScheduledAction::~ScheduledAction() +{ + //kdDebug(6070) << "ScheduledAction::~ScheduledAction " << this << endl; +} + +////////////////////// WindowQObject //////////////////////// + +WindowQObject::WindowQObject(Window *w) + : parent(w) +{ + //kdDebug(6070) << "WindowQObject::WindowQObject " << this << endl; + if ( !parent->m_frame ) + kdDebug(6070) << "WARNING: null part in " << k_funcinfo << endl; + else + connect( parent->m_frame, TQT_SIGNAL( destroyed() ), + this, TQT_SLOT( parentDestroyed() ) ); + pausedTime = 0; + lastTimerId = 0; + currentlyDispatching = false; +} + +WindowQObject::~WindowQObject() +{ + //kdDebug(6070) << "WindowQObject::~WindowQObject " << this << endl; + parentDestroyed(); // reuse same code +} + +void WindowQObject::parentDestroyed() +{ + killTimers(); + + TQPtrListIterator<ScheduledAction> it(scheduledActions); + for (; it.current(); ++it) + delete it.current(); + scheduledActions.clear(); +} + +int WindowQObject::installTimeout(const Identifier &handler, int t, bool singleShot) +{ + int id = ++lastTimerId; + if (t < 10) t = 10; + DateTimeMS nextTime = DateTimeMS::now().addMSecs(-pausedTime + t); + + ScheduledAction *action = new ScheduledAction(handler.qstring(),nextTime,t,singleShot,id); + scheduledActions.append(action); + setNextTimer(); + return id; +} + +int WindowQObject::installTimeout(const Value &func, List args, int t, bool singleShot) +{ + Object objFunc = Object::dynamicCast( func ); + if (!objFunc.isValid()) + return 0; + int id = ++lastTimerId; + if (t < 10) t = 10; + + DateTimeMS nextTime = DateTimeMS::now().addMSecs(-pausedTime + t); + ScheduledAction *action = new ScheduledAction(objFunc,args,nextTime,t,singleShot,id); + scheduledActions.append(action); + setNextTimer(); + return id; +} + +void WindowQObject::clearTimeout(int timerId) +{ + TQPtrListIterator<ScheduledAction> it(scheduledActions); + for (; it.current(); ++it) { + ScheduledAction *action = it.current(); + if (action->timerId == timerId) { + scheduledActions.removeRef(action); + if (!action->executing) + delete action; + return; + } + } +} + +bool WindowQObject::hasTimers() const +{ + return scheduledActions.count(); +} + +void WindowQObject::mark() +{ + TQPtrListIterator<ScheduledAction> it(scheduledActions); + for (; it.current(); ++it) + it.current()->mark(); +} + +void WindowQObject::timerEvent(TQTimerEvent *) +{ + killTimers(); + + if (scheduledActions.isEmpty()) + return; + + currentlyDispatching = true; + + + DateTimeMS currentActual = DateTimeMS::now(); + DateTimeMS currentAdjusted = currentActual.addMSecs(-pausedTime); + + // Work out which actions are to be executed. We take a separate copy of + // this list since the main one may be modified during action execution + TQPtrList<ScheduledAction> toExecute; + TQPtrListIterator<ScheduledAction> it(scheduledActions); + for (; it.current(); ++it) + if (currentAdjusted >= it.current()->nextTime) + toExecute.append(it.current()); + + // ### verify that the window can't be closed (and action deleted) during execution + it = TQPtrListIterator<ScheduledAction>(toExecute); + for (; it.current(); ++it) { + ScheduledAction *action = it.current(); + if (!scheduledActions.containsRef(action)) // removed by clearTimeout() + continue; + + action->executing = true; // prevent deletion in clearTimeout() + + if (parent->part()) { + bool ok = action->execute(parent); + if ( !ok ) // e.g. JS disabled + scheduledActions.removeRef( action ); + } + + if (action->singleShot) { + scheduledActions.removeRef(action); + } + + action->executing = false; + + if (!scheduledActions.containsRef(action)) + delete action; + else + action->nextTime = action->nextTime.addMSecs(action->interval); + } + + pausedTime += currentActual.msecsTo(DateTimeMS::now()); + + currentlyDispatching = false; + + // Work out when next event is to occur + setNextTimer(); +} + +DateTimeMS DateTimeMS::addMSecs(int s) const +{ + DateTimeMS c = *this; + c.mTime = TQT_TQTIME_OBJECT(mTime.addMSecs(s)); + if (s > 0) + { + if (c.mTime < mTime) + c.mDate = TQT_TQDATE_OBJECT(mDate.addDays(1)); + } + else + { + if (c.mTime > mTime) + c.mDate = TQT_TQDATE_OBJECT(mDate.addDays(-1)); + } + return c; +} + +bool DateTimeMS::operator >(const DateTimeMS &other) const +{ + if (mDate > other.mDate) + return true; + + if (mDate < other.mDate) + return false; + + return mTime > other.mTime; +} + +bool DateTimeMS::operator >=(const DateTimeMS &other) const +{ + if (mDate > other.mDate) + return true; + + if (mDate < other.mDate) + return false; + + return mTime >= other.mTime; +} + +int DateTimeMS::msecsTo(const DateTimeMS &other) const +{ + int d = mDate.daysTo(other.mDate); + int ms = mTime.msecsTo(other.mTime); + return d*24*60*60*1000 + ms; +} + + +DateTimeMS DateTimeMS::now() +{ + DateTimeMS t; + TQTime before = TQTime::currentTime(); + t.mDate = TQDate::currentDate(); + t.mTime = TQTime::currentTime(); + if (t.mTime < before) + t.mDate = TQDate::currentDate(); // prevent race condition in hacky way :) + return t; +} + +void WindowQObject::setNextTimer() +{ + if (currentlyDispatching) + return; // Will schedule at the end + + if (scheduledActions.isEmpty()) + return; + + TQPtrListIterator<ScheduledAction> it(scheduledActions); + DateTimeMS nextTime = it.current()->nextTime; + for (++it; it.current(); ++it) + if (nextTime > it.current()->nextTime) + nextTime = it.current()->nextTime; + + DateTimeMS nextTimeActual = nextTime.addMSecs(pausedTime); + int nextInterval = DateTimeMS::now().msecsTo(nextTimeActual); + if (nextInterval < 0) + nextInterval = 0; + startTimer(nextInterval); +} + +void WindowQObject::timeoutClose() +{ + parent->closeNow(); +} + +Value FrameArray::get(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "FrameArray::get " << p.qstring() << " part=" << (void*)part << endl; +#endif + if (part.isNull()) + return Undefined(); + + TQPtrList<KParts::ReadOnlyPart> frames = part->frames(); + unsigned int len = frames.count(); + if (p == lengthPropertyName) + return Number(len); + else if (p== "location") // non-standard property, but works in NS and IE + { + Object obj = Object::dynamicCast( Window::retrieve( part ) ); + if ( obj.isValid() ) + return obj.get( exec, "location" ); + return Undefined(); + } + + // check for the name or number + KParts::ReadOnlyPart *frame = part->findFramePart(p.qstring()); + if (!frame) { + bool ok; + unsigned int i = p.toArrayIndex(&ok); + if (ok && i < len) + frame = frames.at(i); + } + + // we are potentially fetching a reference to a another Window object here. + // i.e. we may be accessing objects from another interpreter instance. + // Therefore we have to be a bit careful with memory management. + if (frame) { + return Window::retrieve(frame); + } + + // Fun IE quirk: name lookup in there is actually done by document.all + // hence, it can find non-frame things (and even let them hide frame ones!) + // We don't quite do that, but do this as a fallback. + DOM::DocumentImpl* doc = static_cast<DOM::DocumentImpl*>(part->document().handle()); + if (doc) { + DOM::HTMLCollectionImpl docuAll(doc, DOM::HTMLCollectionImpl::DOC_ALL); + DOM::NodeImpl* node = docuAll.namedItem(p.string()); + if (node) { + if (node->id() == ID_FRAME || node->id() == ID_IFRAME) { + //Return the Window object. + TDEHTMLPart* part = static_cast<DOM::HTMLFrameElementImpl*>(node)->contentPart(); + if (part) + return Value(Window::retrieveWindow(part)); + else + return Undefined(); + } else { + //Just a regular node.. + return getDOMNode(exec, node); + } + } + } else { + kdWarning(6070) << "Missing own document in FrameArray::get()" << endl; + } + + return ObjectImp::get(exec, p); +} + +Value FrameArray::call(ExecState *exec, Object &/*thisObj*/, const List &args) +{ + //IE supports a subset of the get functionality as call... + //... basically, when the return is a window, it supports that, otherwise it + //errors out. We do a cheap-and-easy emulation of that, and just do the same + //thing as get does. + if (args.size() == 1) + return get(exec, Identifier(args[0].toString(exec))); + + return Undefined(); +} + + +////////////////////// Location Object //////////////////////// + +const ClassInfo Location::info = { "Location", 0, &LocationTable, 0 }; +/* +@begin LocationTable 11 + hash Location::Hash DontDelete + host Location::Host DontDelete + hostname Location::Hostname DontDelete + href Location::Href DontDelete + pathname Location::Pathname DontDelete + port Location::Port DontDelete + protocol Location::Protocol DontDelete + search Location::Search DontDelete + [[==]] Location::EqualEqual DontDelete|ReadOnly + assign Location::Assign DontDelete|Function 1 + toString Location::ToString DontDelete|Function 0 + replace Location::Replace DontDelete|Function 1 + reload Location::Reload DontDelete|Function 0 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(LocationFunc) +Location::Location(tdehtml::ChildFrame *f) : m_frame(f) +{ + //kdDebug(6070) << "Location::Location " << this << " m_part=" << (void*)m_part << endl; +} + +Location::~Location() +{ + //kdDebug(6070) << "Location::~Location " << this << " m_part=" << (void*)m_part << endl; +} + +KParts::ReadOnlyPart *Location::part() const { + return m_frame ? static_cast<KParts::ReadOnlyPart *>(m_frame->m_part) : 0L; +} + +Value Location::get(ExecState *exec, const Identifier &p) const +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "Location::get " << p.qstring() << " m_part=" << (void*)m_frame->m_part << endl; +#endif + + if (m_frame.isNull() || m_frame->m_part.isNull()) + return Undefined(); + + const HashEntry *entry = Lookup::findEntry(&LocationTable, p); + + // properties that work on all Location objects + if ( entry && entry->value == Replace ) + return lookupOrCreateFunction<LocationFunc>(exec,p,this,entry->value,entry->params,entry->attr); + + // XSS check + const Window* window = Window::retrieveWindow( m_frame->m_part ); + if ( !window || !window->isSafeScript(exec) ) + return Undefined(); + + KURL url = m_frame->m_part->url(); + if (entry) + switch (entry->value) { + case Hash: + return String( url.ref().isNull() ? TQString("") : "#" + url.ref() ); + case Host: { + UString str = url.host(); + if (url.port()) + str += ":" + TQString::number((int)url.port()); + return String(str); + // Note: this is the IE spec. The NS spec swaps the two, it says + // "The hostname property is the concatenation of the host and port properties, separated by a colon." + // Bleh. + } + case Hostname: + return String( url.host() ); + case Href: + if (url.isEmpty()) + return String("about:blank"); + else if (!url.hasPath()) + return String( url.prettyURL()+"/" ); + else + return String( url.prettyURL() ); + case Pathname: + if (url.isEmpty()) + return String(""); + return String( url.path().isEmpty() ? TQString("/") : url.path() ); + case Port: + return String( url.port() ? TQString::number((int)url.port()) : TQString::fromLatin1("") ); + case Protocol: + return String( url.protocol()+":" ); + case Search: + return String( url.query() ); + case EqualEqual: // [[==]] + return String(toString(exec)); + case ToString: + return lookupOrCreateFunction<LocationFunc>(exec,p,this,entry->value,entry->params,entry->attr); + } + // Look for overrides + ValueImp * val = ObjectImp::getDirect(p); + if (val) + return Value(val); + if (entry && (entry->attr & Function)) + return lookupOrCreateFunction<LocationFunc>(exec,p,this,entry->value,entry->params,entry->attr); + + return Undefined(); +} + +void Location::put(ExecState *exec, const Identifier &p, const Value &v, int attr) +{ +#ifdef KJS_VERBOSE + kdDebug(6070) << "Location::put " << p.qstring() << " m_part=" << (void*)m_frame->m_part << endl; +#endif + if (m_frame.isNull() || m_frame->m_part.isNull()) + return; + + const Window* window = Window::retrieveWindow( m_frame->m_part ); + if ( !window ) + return; + + KURL url = m_frame->m_part->url(); + + const HashEntry *entry = Lookup::findEntry(&LocationTable, p); + + if (entry) { + + // XSS check. Only new hrefs can be set from other sites + if (entry->value != Href && !window->isSafeScript(exec)) + return; + + TQString str = v.toString(exec).qstring(); + switch (entry->value) { + case Href: { + TDEHTMLPart* p =::tqqt_cast<TDEHTMLPart*>(Window::retrieveActive(exec)->part()); + if ( p ) + url = p->htmlDocument().completeURL( str ).string(); + else + url = str; + break; + } + case Hash: + // when the hash is already the same ignore it + if (str == url.ref()) return; + url.setRef(str); + break; + case Host: { + TQString host = str.left(str.find(":")); + TQString port = str.mid(str.find(":")+1); + url.setHost(host); + url.setPort(port.toUInt()); + break; + } + case Hostname: + url.setHost(str); + break; + case Pathname: + url.setPath(str); + break; + case Port: + url.setPort(str.toUInt()); + break; + case Protocol: + url.setProtocol(str); + break; + case Search: + url.setQuery(str); + break; + } + } else { + ObjectImp::put(exec, p, v, attr); + return; + } + + Window::retrieveWindow(m_frame->m_part)->goURL(exec, url.url(), false /* don't lock history*/ ); +} + +Value Location::toPrimitive(ExecState *exec, Type) const +{ + if (m_frame) { + Window* window = Window::retrieveWindow( m_frame->m_part ); + if ( window && window->isSafeScript(exec) ) + return String(toString(exec)); + } + return Undefined(); +} + +UString Location::toString(ExecState *exec) const +{ + if (m_frame) { + Window* window = Window::retrieveWindow( m_frame->m_part ); + if ( window && window->isSafeScript(exec) ) + { + KURL url = m_frame->m_part->url(); + if (url.isEmpty()) + return "about:blank"; + else if (!url.hasPath()) + return url.prettyURL()+"/"; + else + return url.prettyURL(); + } + } + return ""; +} + +Value LocationFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( Location, thisObj ); + Location *location = static_cast<Location *>(thisObj.imp()); + KParts::ReadOnlyPart *part = location->part(); + + if (!part) return Undefined(); + + Window* window = Window::retrieveWindow(part); + + if ( !window->isSafeScript(exec) && id != Location::Replace) + return Undefined(); + + switch (id) { + case Location::Assign: + case Location::Replace: + Window::retrieveWindow(part)->goURL(exec, args[0].toString(exec).qstring(), + id == Location::Replace); + break; + case Location::Reload: { + TDEHTMLPart *tdehtmlpart = ::tqqt_cast<TDEHTMLPart *>(part); + if (tdehtmlpart) + tdehtmlpart->scheduleRedirection(-1, part->url().url(), true/*lock history*/); + else + part->openURL(part->url()); + break; + } + case Location::ToString: + return String(location->toString(exec)); + } + return Undefined(); +} + +////////////////////// External Object //////////////////////// + +const ClassInfo External::info = { "External", 0, 0, 0 }; +/* +@begin ExternalTable 4 + addFavorite External::AddFavorite DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(ExternalFunc) + +Value External::get(ExecState *exec, const Identifier &p) const +{ + return lookupGetFunction<ExternalFunc,ObjectImp>(exec,p,&ExternalTable,this); +} + +Value ExternalFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( External, thisObj ); + External *external = static_cast<External *>(thisObj.imp()); + + TDEHTMLPart *part = external->part; + if (!part) + return Undefined(); + + TDEHTMLView *widget = part->view(); + + switch (id) { + case External::AddFavorite: + { +#ifndef KONQ_EMBEDDED + if (!widget->dialogsAllowed()) + return Undefined(); + part->xmlDocImpl()->updateRendering(); + if (args.size() != 1 && args.size() != 2) + return Undefined(); + + TQString url = args[0].toString(exec).qstring(); + TQString title; + if (args.size() == 2) + title = args[1].toString(exec).qstring(); + + // AK - don't do anything yet, for the moment i + // just wanted the base js handling code in cvs + return Undefined(); + + TQString question; + if ( title.isEmpty() ) + question = i18n("Do you want a bookmark pointing to the location \"%1\" to be added to your collection?") + .arg(url); + else + question = i18n("Do you want a bookmark pointing to the location \"%1\" titled \"%2\" to be added to your collection?") + .arg(url).arg(title); + + emit part->browserExtension()->requestFocus(part); + + TQString caption; + if (!part->url().host().isEmpty()) + caption = part->url().host() + " - "; + caption += i18n("JavaScript Attempted Bookmark Insert"); + + if (KMessageBox::warningYesNo( + widget, question, caption, + i18n("Insert"), i18n("Disallow")) == KMessageBox::Yes) + { + KBookmarkManager *mgr = KBookmarkManager::userBookmarksManager(); + mgr->addBookmarkDialog(url,title); + } +#else + return Undefined(); +#endif + break; + } + default: + return Undefined(); + } + + return Undefined(); +} + +////////////////////// History Object //////////////////////// + +const ClassInfo History::info = { "History", 0, 0, 0 }; +/* +@begin HistoryTable 4 + length History::Length DontDelete|ReadOnly + back History::Back DontDelete|Function 0 + forward History::Forward DontDelete|Function 0 + go History::Go DontDelete|Function 1 +@end +*/ +IMPLEMENT_PROTOFUNC_DOM(HistoryFunc) + +Value History::get(ExecState *exec, const Identifier &p) const +{ + return lookupGet<HistoryFunc,History,ObjectImp>(exec,p,&HistoryTable,this); +} + +Value History::getValueProperty(ExecState *, int token) const +{ + // if previous or next is implemented, make sure its not a major + // privacy leak (see i.e. http://security.greymagic.com/adv/gm005-op/) + switch (token) { + case Length: + { + if ( !part ) + return Number( 0 ); + + KParts::BrowserExtension *ext = part->browserExtension(); + if ( !ext ) + return Number( 0 ); + + KParts::BrowserInterface *iface = ext->browserInterface(); + if ( !iface ) + return Number( 0 ); + + TQVariant length = iface->property( "historyLength" ); + + if ( length.type() != TQVariant::UInt ) + return Number( 0 ); + + return Number( length.toUInt() ); + } + default: + kdDebug(6070) << "WARNING: Unhandled token in History::getValueProperty : " << token << endl; + return Undefined(); + } +} + +Value HistoryFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + KJS_CHECK_THIS( History, thisObj ); + History *history = static_cast<History *>(thisObj.imp()); + + Value v = args[0]; + Number n; + if(v.isValid()) + n = v.toInteger(exec); + + int steps; + switch (id) { + case History::Back: + steps = -1; + break; + case History::Forward: + steps = 1; + break; + case History::Go: + steps = n.intValue(); + break; + default: + return Undefined(); + } + + // Special case for go(0) from a frame -> reload only the frame + // go(i!=0) from a frame navigates into the history of the frame only, + // in both IE and NS (but not in Mozilla).... we can't easily do that + // in Konqueror... + if (!steps) // add && history->part->parentPart() to get only frames, but doesn't matter + { + history->part->openURL( history->part->url() ); /// ## need args.reload=true? + } else + { + // Delay it. + // Testcase: history.back(); alert("hello"); + Window* window = Window::retrieveWindow( history->part ); + window->delayedGoHistory( steps ); + } + return Undefined(); +} + +///////////////////////////////////////////////////////////////////////////// + +#ifdef Q_WS_QWS + +const ClassInfo Konqueror::info = { "Konqueror", 0, 0, 0 }; + +bool Konqueror::hasProperty(ExecState *exec, const Identifier &p) const +{ + if ( p.qstring().startsWith( "goHistory" ) ) return false; + + return true; +} + +Value Konqueror::get(ExecState *exec, const Identifier &p) const +{ + if ( p == "goHistory" || part->url().protocol() != "http" || part->url().host() != "localhost" ) + return Undefined(); + + KParts::BrowserExtension *ext = part->browserExtension(); + if ( ext ) { + KParts::BrowserInterface *iface = ext->browserInterface(); + if ( iface ) { + TQVariant prop = iface->property( p.qstring().latin1() ); + + if ( prop.isValid() ) { + switch( prop.type() ) { + case TQVariant::Int: + return Number( prop.toInt() ); + case TQVariant::String: + return String( prop.toString() ); + default: + break; + } + } + } + } + + return Value( new KonquerorFunc(exec, this, p.qstring().latin1() ) ); +} + +Value KonquerorFunc::tryCall(ExecState *exec, Object &, const List &args) +{ + KParts::BrowserExtension *ext = konqueror->part->browserExtension(); + + if (!ext) + return Undefined(); + + KParts::BrowserInterface *iface = ext->browserInterface(); + + if ( !iface ) + return Undefined(); + + TQCString n = m_name.data(); + n += "()"; + iface->callMethod( n.data(), TQVariant() ); + + return Undefined(); +} + +UString Konqueror::toString(ExecState *) const +{ + return UString("[object Konqueror]"); +} + +#endif +///////////////////////////////////////////////////////////////////////////// +} //namespace KJS + +#include "kjs_window.moc" diff --git a/tdehtml/ecma/kjs_window.h b/tdehtml/ecma/kjs_window.h new file mode 100644 index 000000000..c30871692 --- /dev/null +++ b/tdehtml/ecma/kjs_window.h @@ -0,0 +1,309 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * Copyright (C) 2000 Harri Porten (porten@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 + */ + +#ifndef _KJS_WINDOW_H_ +#define _KJS_WINDOW_H_ + +#include <tqobject.h> +#include <tqguardedptr.h> +#include <tqmap.h> +#include <tqptrlist.h> +#include <tqdatetime.h> + +#include "kjs_binding.h" +#include "kjs_views.h" + +class TQTimer; +class TDEHTMLView; +class TDEHTMLPart; + +namespace KParts { + class ReadOnlyPart; +} + +namespace tdehtml { + class ChildFrame; +} + +namespace KJS { + + class WindowFunc; + class WindowQObject; + class Location; + class History; + class External; + class FrameArray; + class JSEventListener; + class JSLazyEventListener; + + class Screen : public ObjectImp { + public: + Screen(ExecState *exec); + enum { + Height, Width, ColorDepth, PixelDepth, AvailLeft, AvailTop, AvailHeight, + AvailWidth + }; + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + private: + TDEHTMLView *view; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + }; + + class KDE_EXPORT Window : public ObjectImp { + friend TQGuardedPtr<TDEHTMLPart> getInstance(); + friend class Location; + friend class WindowFunc; + friend class WindowQObject; + friend class ScheduledAction; + public: + Window(tdehtml::ChildFrame *p); + public: + ~Window(); + /** + * Returns and registers a window object. In case there's already a Window + * for the specified part p this will be returned in order to have unique + * bindings. + */ + static Value retrieve(KParts::ReadOnlyPart *p); + /** + * Returns the Window object for a given part + */ + static Window *retrieveWindow(KParts::ReadOnlyPart *p); + /** + * returns a pointer to the Window object this javascript interpreting instance + * was called from. + */ + static Window *retrieveActive(ExecState *exec); + KParts::ReadOnlyPart *part() const; + virtual void mark(); + virtual bool hasProperty(ExecState *exec, const Identifier &p) const; + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual void put(ExecState *exec, const Identifier &propertyName, const Value &value, int attr = None); + virtual bool toBoolean(ExecState *exec) const; + virtual DOM::AbstractView toAbstractView() const; + void scheduleClose(); + void closeNow(); + void delayedGoHistory(int steps); + void goHistory(int steps); + void goURL(ExecState* exec, const TQString& url, bool lockHistory); + Value openWindow(ExecState *exec, const List &args); + Value executeOpenWindow(ExecState *exec, const KURL& url, const TQString& frameName, const TQString& features); + void resizeTo(TQWidget* tl, int width, int height); + void afterScriptExecution(); + bool isSafeScript(ExecState *exec) const { + KParts::ReadOnlyPart *activePart = static_cast<KJS::ScriptInterpreter *>( exec->interpreter() )->part(); + if ( activePart == part() ) return true; + return checkIsSafeScript( activePart ); + } + Location *location() const; + ObjectImp* frames( ExecState* exec ) const; + JSEventListener *getJSEventListener(const Value &val, bool html = false); + JSLazyEventListener *getJSLazyEventListener(const TQString &code, const TQString &name, DOM::NodeImpl* node); + void clear( ExecState *exec ); + virtual UString toString(ExecState *exec) const; + + // Set the current "event" object + void setCurrentEvent( DOM::Event *evt ); + + TQPtrDict<JSEventListener> jsEventListeners; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Closed, Crypto, DefaultStatus, Status, Document, Node, EventCtor, Range, + NodeFilter, DOMException, CSSRule, Frames, _History, _External, Event, InnerHeight, + InnerWidth, Length, _Location, Navigate, Name, _Navigator, _Konqueror, ClientInformation, + OffscreenBuffering, Opener, OuterHeight, OuterWidth, PageXOffset, PageYOffset, + Parent, Personalbar, ScreenX, ScreenY, Scrollbars, Scroll, ScrollBy, + ScreenTop, ScreenLeft, AToB, BToA, FrameElement, GetComputedStyle, + ScrollTo, ScrollX, ScrollY, MoveBy, MoveTo, ResizeBy, ResizeTo, Self, _Window, Top, _Screen, + Image, Option, Alert, Confirm, Prompt, Open, SetTimeout, ClearTimeout, + XMLHttpRequest, XMLSerializer, DOMParser, + Focus, Blur, Close, SetInterval, ClearInterval, CaptureEvents, ReleaseEvents, + Print, AddEventListener, RemoveEventListener, SideBar, + ValueOf, ToString, + Onabort, Onblur, + Onchange, Onclick, Ondblclick, Ondragdrop, Onerror, Onfocus, + Onkeydown, Onkeypress, Onkeyup, Onload, Onmousedown, Onmousemove, + Onmouseout, Onmouseover, Onmouseup, Onmove, Onreset, Onresize, + Onselect, Onsubmit, Onunload, + MutationEventCtor, KeyboardEventCtor, EventExceptionCtor, + ElementCtor, DocumentCtor, HTMLDocumentCtor, + HTMLElementCtor, HTMLHtmlElementCtor, HTMLHeadElementCtor, HTMLLinkElementCtor, + HTMLTitleElementCtor, HTMLMetaElementCtor, HTMLBaseElementCtor, HTMLIsIndexElementCtor, + HTMLStyleElementCtor, HTMLBodyElementCtor, HTMLFormElementCtor, HTMLSelectElementCtor, + HTMLOptGroupElementCtor, HTMLOptionElementCtor, HTMLInputElementCtor, HTMLTextAreaElementCtor, + HTMLButtonElementCtor, HTMLLabelElementCtor, HTMLFieldSetElementCtor, HTMLLegendElementCtor, + HTMLUListElementCtor, HTMLOListElementCtor, HTMLDListElementCtor, HTMLDirectoryElementCtor, + HTMLMenuElementCtor, HTMLLIElementCtor, HTMLDivElementCtor, HTMLParagraphElementCtor, + HTMLHeadingElementCtor, HTMLBlockQuoteElementCtor, HTMLQuoteElementCtor, HTMLPreElementCtor, + HTMLBRElementCtor, HTMLBaseFontElementCtor, HTMLFontElementCtor, HTMLHRElementCtor, HTMLModElementCtor, + HTMLAnchorElementCtor, HTMLImageElementCtor, HTMLObjectElementCtor, HTMLParamElementCtor, + HTMLAppletElementCtor, HTMLMapElementCtor, HTMLAreaElementCtor, HTMLScriptElementCtor, + HTMLTableElementCtor, HTMLTableCaptionElementCtor, HTMLTableColElementCtor, + HTMLTableSectionElementCtor, HTMLTableRowElementCtor, HTMLTableCellElementCtor, + HTMLFrameSetElementCtor, HTMLLayerElementCtor, HTMLFrameElementCtor, HTMLIFrameElementCtor, + CSSStyleDeclarationCtor}; + WindowQObject *winq; + + void forgetSuppressedWindows(); + void showSuppressedWindows(); + + protected: + enum DelayedActionId { NullAction, DelayedClose, DelayedGoHistory }; + + Value getListener(ExecState *exec, int eventId) const; + void setListener(ExecState *exec, int eventId, Value func); + private: + struct DelayedAction; + friend struct DelayedAction; + + bool checkIsSafeScript( KParts::ReadOnlyPart* activePart ) const; + + TQGuardedPtr<tdehtml::ChildFrame> m_frame; + Screen *screen; + History *history; + External *external; + FrameArray *m_frames; + Location *loc; + DOM::Event *m_evt; + + struct DelayedAction { + DelayedAction() : actionId(NullAction) {} // for QValueList + DelayedAction( DelayedActionId id, TQVariant p = TQVariant() ) : actionId(id), param(p) {} + DelayedActionId actionId; + TQVariant param; // just in case + }; + TQValueList<DelayedAction> m_delayed; + + struct SuppressedWindowInfo { + SuppressedWindowInfo() {} // for QValueList + SuppressedWindowInfo( KURL u, TQString fr, TQString fe ) : url(u), frameName(fr), features(fe) {} + KURL url; + TQString frameName; + TQString features; + }; + TQValueList<SuppressedWindowInfo> m_suppressedWindowInfo; + }; + + /** + * like TQDateTime, but properly handles milliseconds + */ + class DateTimeMS + { + TQDate mDate; + TQTime mTime; + public: + DateTimeMS addMSecs(int s) const; + bool operator >(const DateTimeMS &other) const; + bool operator >=(const DateTimeMS &other) const; + + int msecsTo(const DateTimeMS &other) const; + + static DateTimeMS now(); + }; + + /** + * An action (either function or string) to be executed after a specified + * time interval, either once or repeatedly. Used for window.setTimeout() + * and window.setInterval() + */ + class ScheduledAction { + public: + ScheduledAction(Object _func, List _args, DateTimeMS _nextTime, int _interval, bool _singleShot, int _timerId); + ScheduledAction(TQString _code, DateTimeMS _nextTime, int _interval, bool _singleShot, int _timerId); + ~ScheduledAction(); + bool execute(Window *window); + void mark(); + + ObjectImp *func; + List args; + TQString code; + bool isFunction; + bool singleShot; + + DateTimeMS nextTime; + int interval; + bool executing; + int timerId; + }; + + class KDE_EXPORT WindowQObject : public TQObject { + Q_OBJECT + public: + WindowQObject(Window *w); + ~WindowQObject(); + int installTimeout(const Identifier &handler, int t, bool singleShot); + int installTimeout(const Value &func, List args, int t, bool singleShot); + void clearTimeout(int timerId); + void mark(); + bool hasTimers() const; + public slots: + void timeoutClose(); + protected slots: + void parentDestroyed(); + protected: + void timerEvent(TQTimerEvent *e); + void setNextTimer(); + private: + Window *parent; + TQPtrList<ScheduledAction> scheduledActions; + int pausedTime; + int lastTimerId; + bool currentlyDispatching; + }; + + class Location : public ObjectImp { + public: + ~Location(); + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual void put(ExecState *exec, const Identifier &propertyName, const Value &value, int attr = None); + virtual Value toPrimitive(ExecState *exec, Type preferred) const; + virtual UString toString(ExecState *exec) const; + enum { Hash, Href, Hostname, Host, Pathname, Port, Protocol, Search, EqualEqual, + Assign, Replace, Reload, ToString }; + KParts::ReadOnlyPart *part() const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + private: + friend class Window; + Location(tdehtml::ChildFrame *f); + TQGuardedPtr<tdehtml::ChildFrame> m_frame; + }; + +#ifdef Q_WS_QWS + class Konqueror : public ObjectImp { + friend class KonquerorFunc; + public: + Konqueror(TDEHTMLPart *p) : part(p) { } + virtual Value get(ExecState *exec, const Identifier &propertyName) const; + virtual bool hasProperty(ExecState *exec, const Identifier &p) const; + virtual UString toString(ExecState *exec) const; + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + private: + TDEHTMLPart *part; + }; +#endif + +} // namespace + +#endif diff --git a/tdehtml/ecma/testecma.cpp b/tdehtml/ecma/testecma.cpp new file mode 100644 index 000000000..3bd4bb88d --- /dev/null +++ b/tdehtml/ecma/testecma.cpp @@ -0,0 +1,67 @@ +/* + * This file is part of the KDE libraries + * Copyright (C) 2000 Harri Porten (porten@kde.org) + * + * 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 + */ + +/** + * An interactive interpreter to test the ECMA Script language bindings + * for the DOM of TDEHTML. + * The 'document' property is preset to an instance of Document and serves + * as an entrypoint. + * + * Example session: + * + * KJS> text = document.createTextNode('foo'); + * KJS> document.appendChild(text); + * KJS> debug(document.firstChild.nodeValue); + * ---> foo + */ + +#include <stdio.h> +#include <kjs/object.h> +#include <kjs/interpreter.h> +#include "dom/dom_doc.h" +#include "dom/dom_string.h" +#include "ecma/kjs_dom.h" + + +using namespace KJS; + +int main(int, char **) +{ + KJScript kjs; + kjs.enableDebug(); + DOM::Document doc; + + DOMDocument *dd = new DOMDocument(&doc); + Global::current().put("document", KJSO(dd)); + + printf("Entering interactive mode.\n" + "You may access the DOM via the 'document' property.\n" + "Use debug() to print to the console. Press C-d or C-c to exit.\n\n"); + + char buffer[1000]; + FILE *in = fdopen(0, "r"); + + while (1) { + printf("KJS> "); + if (!fgets(buffer, 999, in)) + break; + kjs.evaluate(buffer); + } + printf("\n"); +} diff --git a/tdehtml/ecma/xmlhttprequest.cpp b/tdehtml/ecma/xmlhttprequest.cpp new file mode 100644 index 000000000..38c0b3ed1 --- /dev/null +++ b/tdehtml/ecma/xmlhttprequest.cpp @@ -0,0 +1,810 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * 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 Lesser 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 + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser 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 "xmlhttprequest.h" +#include "xmlhttprequest.lut.h" +#include "kjs_window.h" +#include "kjs_events.h" + +#include "dom/dom_doc.h" +#include "dom/dom_exception.h" +#include "dom/dom_string.h" +#include "misc/loader.h" +#include "html/html_documentimpl.h" +#include "xml/dom2_eventsimpl.h" + +#include "tdehtml_part.h" +#include "tdehtmlview.h" + +#include <tdeio/scheduler.h> +#include <tdeio/job.h> +#include <tqobject.h> +#include <kdebug.h> + +#ifdef APPLE_CHANGES +#include "KWQLoader.h" +#else +#include <tdeio/netaccess.h> +using TDEIO::NetAccess; +#endif + +#define BANNED_HTTP_HEADERS "authorization,proxy-authorization,"\ + "content-length,host,connect,copy,move,"\ + "delete,head,trace,put,propfind,proppatch,"\ + "mkcol,lock,unlock,options,via,"\ + "accept-charset,accept-encoding,expect,date,"\ + "keep-alive,te,trailer,"\ + "transfer-encoding,upgrade" + +using tdehtml::Decoder; + +namespace KJS { + +////////////////////// XMLHttpRequest Object //////////////////////// + +/* Source for XMLHttpRequestProtoTable. +@begin XMLHttpRequestProtoTable 7 + abort XMLHttpRequest::Abort DontDelete|Function 0 + getAllResponseHeaders XMLHttpRequest::GetAllResponseHeaders DontDelete|Function 0 + getResponseHeader XMLHttpRequest::GetResponseHeader DontDelete|Function 1 + open XMLHttpRequest::Open DontDelete|Function 5 + overrideMimeType XMLHttpRequest::OverrideMIMEType DontDelete|Function 1 + send XMLHttpRequest::Send DontDelete|Function 1 + setRequestHeader XMLHttpRequest::SetRequestHeader DontDelete|Function 2 +@end +*/ +KJS_DEFINE_PROTOTYPE(XMLHttpRequestProto) +IMPLEMENT_PROTOFUNC_DOM(XMLHttpRequestProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("XMLHttpRequest", XMLHttpRequestProto,XMLHttpRequestProtoFunc) + + +XMLHttpRequestQObject::XMLHttpRequestQObject(XMLHttpRequest *_jsObject) +{ + jsObject = _jsObject; +} + +#ifdef APPLE_CHANGES +void XMLHttpRequestQObject::slotData( TDEIO::Job* job, const char *data, int size ) +{ + jsObject->slotData(job, data, size); +} +#else +void XMLHttpRequestQObject::slotData( TDEIO::Job* job, const TQByteArray &data ) +{ + jsObject->slotData(job, data); +} +#endif + +void XMLHttpRequestQObject::slotFinished( TDEIO::Job* job ) +{ + jsObject->slotFinished(job); +} + +void XMLHttpRequestQObject::slotRedirection( TDEIO::Job* job, const KURL& url) +{ + jsObject->slotRedirection( job, url ); +} + +XMLHttpRequestConstructorImp::XMLHttpRequestConstructorImp(ExecState *, const DOM::Document &d) + : ObjectImp(), doc(d) +{ +} + +bool XMLHttpRequestConstructorImp::implementsConstruct() const +{ + return true; +} + +Object XMLHttpRequestConstructorImp::construct(ExecState *exec, const List &) +{ + return Object(new XMLHttpRequest(exec, doc)); +} + +const ClassInfo XMLHttpRequest::info = { "XMLHttpRequest", 0, &XMLHttpRequestTable, 0 }; + + +/* Source for XMLHttpRequestTable. +@begin XMLHttpRequestTable 7 + readyState XMLHttpRequest::ReadyState DontDelete|ReadOnly + responseText XMLHttpRequest::ResponseText DontDelete|ReadOnly + responseXML XMLHttpRequest::ResponseXML DontDelete|ReadOnly + status XMLHttpRequest::Status DontDelete|ReadOnly + statusText XMLHttpRequest::StatusText DontDelete|ReadOnly + onreadystatechange XMLHttpRequest::Onreadystatechange DontDelete + onload XMLHttpRequest::Onload DontDelete +@end +*/ + +Value XMLHttpRequest::tryGet(ExecState *exec, const Identifier &propertyName) const +{ + return DOMObjectLookupGetValue<XMLHttpRequest,DOMObject>(exec, propertyName, &XMLHttpRequestTable, this); +} + +Value XMLHttpRequest::getValueProperty(ExecState *exec, int token) const +{ + switch (token) { + case ReadyState: + return Number(state); + case ResponseText: + return getString(DOM::DOMString(response)); + case ResponseXML: + if (state != Completed) { + return Null(); + } + if (!createdDocument) { + TQString mimeType = "text/xml"; + + if (!m_mimeTypeOverride.isEmpty()) { + mimeType = m_mimeTypeOverride; + } else { + Value header = getResponseHeader("Content-Type"); + if (header.type() != UndefinedType) { + mimeType = TQStringList::split(";", header.toString(exec).qstring())[0].stripWhiteSpace(); + } + } + + if (mimeType == "text/xml" || mimeType == "application/xml" || mimeType == "application/xhtml+xml") { + responseXML = DOM::Document(doc->implementation()->createDocument()); + + DOM::DocumentImpl *docImpl = static_cast<DOM::DocumentImpl *>(responseXML.handle()); + + docImpl->open(); + docImpl->write(response); + docImpl->finishParsing(); + docImpl->close(); + + typeIsXML = true; + } else { + typeIsXML = false; + } + createdDocument = true; + } + + if (!typeIsXML) { + return Undefined(); + } + + return getDOMNode(exec,responseXML); + case Status: + return getStatus(); + case StatusText: + return getStatusText(); + case Onreadystatechange: + if (onReadyStateChangeListener && onReadyStateChangeListener->listenerObjImp()) { + return onReadyStateChangeListener->listenerObj(); + } else { + return Null(); + } + case Onload: + if (onLoadListener && onLoadListener->listenerObjImp()) { + return onLoadListener->listenerObj(); + } else { + return Null(); + } + default: + kdWarning() << "XMLHttpRequest::getValueProperty unhandled token " << token << endl; + return Value(); + } +} + +void XMLHttpRequest::tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr) +{ + DOMObjectLookupPut<XMLHttpRequest,DOMObject>(exec, propertyName, value, attr, &XMLHttpRequestTable, this ); +} + +void XMLHttpRequest::putValueProperty(ExecState *exec, int token, const Value& value, int /*attr*/) +{ + JSEventListener* newListener; + switch(token) { + case Onreadystatechange: + newListener = Window::retrieveActive(exec)->getJSEventListener(value, true); + if (newListener != onReadyStateChangeListener) { + if (onReadyStateChangeListener) onReadyStateChangeListener->deref(); + onReadyStateChangeListener = newListener; + if (onReadyStateChangeListener) onReadyStateChangeListener->ref(); + } + break; + case Onload: + newListener = Window::retrieveActive(exec)->getJSEventListener(value, true); + if (newListener != onLoadListener) { + if (onLoadListener) onLoadListener->deref(); + onLoadListener = newListener; + if (onLoadListener) onLoadListener->ref(); + } + break; + default: + kdWarning() << "XMLHttpRequest::putValue unhandled token " << token << endl; + } +} + +XMLHttpRequest::XMLHttpRequest(ExecState *exec, const DOM::Document &d) + : DOMObject(XMLHttpRequestProto::self(exec)), + qObject(new XMLHttpRequestQObject(this)), + doc(static_cast<DOM::DocumentImpl*>(d.handle())), + async(true), + contentType(TQString::null), + job(0), + state(Uninitialized), + onReadyStateChangeListener(0), + onLoadListener(0), + decoder(0), + createdDocument(false), + aborted(false) +{ +} + +XMLHttpRequest::~XMLHttpRequest() +{ + if (onReadyStateChangeListener) + onReadyStateChangeListener->deref(); + if (onLoadListener) + onLoadListener->deref(); + delete qObject; + qObject = 0; + delete decoder; + decoder = 0; +} + +void XMLHttpRequest::changeState(XMLHttpRequestState newState) +{ + if (state != newState) { + state = newState; + + ref(); + + if (onReadyStateChangeListener != 0 && doc->view() && doc->view()->part()) { + DOM::Event ev = doc->view()->part()->document().createEvent("HTMLEvents"); + ev.initEvent("readystatechange", true, true); + onReadyStateChangeListener->handleEvent(ev); + } + + if (state == Completed && onLoadListener != 0 && doc->view() && doc->view()->part()) { + DOM::Event ev = doc->view()->part()->document().createEvent("HTMLEvents"); + ev.initEvent("load", true, true); + onLoadListener->handleEvent(ev); + } + + deref(); + } +} + +bool XMLHttpRequest::urlMatchesDocumentDomain(const KURL& _url) const +{ + // No need to do work if _url is not valid... + if (!_url.isValid()) + return false; + + KURL documentURL(doc->URL()); + + // a local file can load anything + if (documentURL.protocol().lower() == "file") { + return true; + } + + // but a remote document can only load from the same port on the server + if (documentURL.protocol().lower() == _url.protocol().lower() && + documentURL.host().lower() == _url.host().lower() && + documentURL.port() == _url.port()) { + return true; + } + + return false; +} + +void XMLHttpRequest::open(const TQString& _method, const KURL& _url, bool _async) +{ + abort(); + aborted = false; + + // clear stuff from possible previous load + requestHeaders.clear(); + responseHeaders = TQString(); + response = TQString(); + createdDocument = false; + responseXML = DOM::Document(); + + changeState(Uninitialized); + + if (aborted) { + return; + } + + if (!urlMatchesDocumentDomain(_url)) { + return; + } + + + method = _method.lower(); + url = _url; + async = _async; + + changeState(Loading); +} + +void XMLHttpRequest::send(const TQString& _body) +{ + aborted = false; + + const TQString protocol = url.protocol().lower(); + // Abandon the request when the protocol is other than "http", + // instead of blindly doing a TDEIO::get on other protocols like file:/. + if (!protocol.startsWith("http") && !protocol.startsWith("webdav")) + { + abort(); + return; + } + + if (method == "post") { + + // FIXME: determine post encoding correctly by looking in headers + // for charset. + TQByteArray buf; + TQCString str = _body.utf8(); + buf.duplicate(str.data(), str.size() - 1); + + job = TDEIO::http_post( url, buf, false ); + if(contentType.isNull()) + job->addMetaData( "content-type", "Content-type: text/plain" ); + else + job->addMetaData( "content-type", contentType ); + } + else { + job = TDEIO::get( url, false, false ); + } + + if (!requestHeaders.isEmpty()) { + TQString rh; + TQMap<TQString, TQString>::ConstIterator begin = requestHeaders.begin(); + TQMap<TQString, TQString>::ConstIterator end = requestHeaders.end(); + for (TQMap<TQString, TQString>::ConstIterator i = begin; i != end; ++i) { + TQString key = i.key(); + TQString value = i.data(); + if (key == "accept") { + // The HTTP KIO slave supports an override this way + job->addMetaData("accept", value); + } else { + if (i != begin) + rh += "\r\n"; + rh += key + ": " + value; + } + } + + job->addMetaData("customHTTPHeader", rh); + } + + job->addMetaData("PropagateHttpHeader", "true"); + + // Set the default referrer if one is not already supplied + // through setRequestHeader. NOTE: the user can still disable + // this feature at the protocol level (tdeio_http). + // ### does find() ever succeed? the headers are stored in lower case! + if (requestHeaders.find("Referer") == requestHeaders.end()) { + KURL documentURL(doc->URL()); + documentURL.setPass(TQString::null); + documentURL.setUser(TQString::null); + job->addMetaData("referrer", documentURL.url()); + // kdDebug() << "Adding referrer: " << documentURL << endl; + } + + if (!async) { + TQByteArray data; + KURL finalURL; + TQString headers; + +#ifdef APPLE_CHANGES + data = KWQServeSynchronousRequest(tdehtml::Cache::loader(), doc->docLoader(), job, finalURL, headers); +#else + TQMap<TQString, TQString> metaData; + if ( NetAccess::synchronousRun( job, 0, &data, &finalURL, &metaData ) ) { + headers = metaData[ "HTTP-Headers" ]; + } +#endif + job = 0; + processSyncLoadResults(data, finalURL, headers); + return; + } + + qObject->connect( job, TQT_SIGNAL( result( TDEIO::Job* ) ), + TQT_SLOT( slotFinished( TDEIO::Job* ) ) ); +#ifdef APPLE_CHANGES + qObject->connect( job, TQT_SIGNAL( data( TDEIO::Job*, const char*, int ) ), + TQT_SLOT( slotData( TDEIO::Job*, const char*, int ) ) ); +#else + qObject->connect( job, TQT_SIGNAL( data( TDEIO::Job*, const TQByteArray& ) ), + TQT_SLOT( slotData( TDEIO::Job*, const TQByteArray& ) ) ); +#endif + qObject->connect( job, TQT_SIGNAL(redirection(TDEIO::Job*, const KURL& ) ), + TQT_SLOT( slotRedirection(TDEIO::Job*, const KURL&) ) ); + +#ifdef APPLE_CHANGES + KWQServeRequest(tdehtml::Cache::loader(), doc->docLoader(), job); +#else + TDEIO::Scheduler::scheduleJob( job ); +#endif +} + +void XMLHttpRequest::abort() +{ + if (job) { + job->kill(); + job = 0; + } + delete decoder; + decoder = 0; + aborted = true; +} + +void XMLHttpRequest::overrideMIMEType(const TQString& override) +{ + m_mimeTypeOverride = override; +} + +void XMLHttpRequest::setRequestHeader(const TQString& _name, const TQString &value) +{ + TQString name = _name.lower().stripWhiteSpace(); + + // Content-type needs to be set seperately from the other headers + if(name == "content-type") { + contentType = "Content-type: " + value; + return; + } + + // Sanitize the referrer header to protect against spoofing... + if(name == "referer") { + KURL referrerURL(value); + if (urlMatchesDocumentDomain(referrerURL)) + requestHeaders[name] = referrerURL.url(); + return; + } + + // Sanitize the request headers below and handle them as if they are + // calls to open. Otherwise, we will end up ignoring them all together! + // TODO: Do something about "put" which tdeio_http sort of supports and + // the webDAV headers such as PROPFIND etc... + if (name == "get" || name == "post") { + KURL reqURL (doc->URL(), value.stripWhiteSpace()); + open(name, reqURL, async); + return; + } + + // Reject all banned headers. See BANNED_HTTP_HEADERS above. + // kdDebug() << "Banned HTTP Headers: " << BANNED_HTTP_HEADERS << endl; + TQStringList bannedHeaders = TQStringList::split(',', + TQString::fromLatin1(BANNED_HTTP_HEADERS)); + + if (bannedHeaders.contains(name)) + return; // Denied + + requestHeaders[name] = value.stripWhiteSpace(); +} + +Value XMLHttpRequest::getAllResponseHeaders() const +{ + if (responseHeaders.isEmpty()) { + return Undefined(); + } + + int endOfLine = responseHeaders.find("\n"); + + if (endOfLine == -1) { + return Undefined(); + } + + return String(responseHeaders.mid(endOfLine + 1) + "\n"); +} + +Value XMLHttpRequest::getResponseHeader(const TQString& name) const +{ + if (responseHeaders.isEmpty()) { + return Undefined(); + } + + TQRegExp headerLinePattern(name + ":", false); + + int matchLength; + int headerLinePos = headerLinePattern.search(responseHeaders, 0); + matchLength = headerLinePattern.matchedLength(); + while (headerLinePos != -1) { + if (headerLinePos == 0 || responseHeaders[headerLinePos-1] == '\n') { + break; + } + + headerLinePos = headerLinePattern.search(responseHeaders, headerLinePos + 1); + matchLength = headerLinePattern.matchedLength(); + } + + + if (headerLinePos == -1) { + return Undefined(); + } + + int endOfLine = responseHeaders.find("\n", headerLinePos + matchLength); + + return String(responseHeaders.mid(headerLinePos + matchLength, endOfLine - (headerLinePos + matchLength)).stripWhiteSpace()); +} + +static Value httpStatus(const TQString& response, bool textStatus = false) +{ + if (response.isEmpty()) { + return Undefined(); + } + + int endOfLine = response.find("\n"); + TQString firstLine = (endOfLine == -1) ? response : response.left(endOfLine); + int codeStart = firstLine.find(" "); + int codeEnd = firstLine.find(" ", codeStart + 1); + + if (codeStart == -1 || codeEnd == -1) { + return Undefined(); + } + + if (textStatus) { + TQString statusText = firstLine.mid(codeEnd + 1, endOfLine - (codeEnd + 1)).stripWhiteSpace(); + return String(statusText); + } + + TQString number = firstLine.mid(codeStart + 1, codeEnd - (codeStart + 1)); + + bool ok = false; + int code = number.toInt(&ok); + if (!ok) { + return Undefined(); + } + + return Number(code); +} + +Value XMLHttpRequest::getStatus() const +{ + return httpStatus(responseHeaders); +} + +Value XMLHttpRequest::getStatusText() const +{ + return httpStatus(responseHeaders, true); +} + +void XMLHttpRequest::processSyncLoadResults(const TQByteArray &data, const KURL &finalURL, const TQString &headers) +{ + if (!urlMatchesDocumentDomain(finalURL)) { + abort(); + return; + } + + responseHeaders = headers; + changeState(Loaded); + if (aborted) { + return; + } + +#ifdef APPLE_CHANGES + const char *bytes = (const char *)data.data(); + int len = (int)data.size(); + + slotData(0, bytes, len); +#else + slotData(0, data); +#endif + + if (aborted) { + return; + } + + slotFinished(0); +} + +void XMLHttpRequest::slotFinished(TDEIO::Job *) +{ + if (decoder) { + response += decoder->flush(); + } + + // make sure to forget about the job before emitting completed, + // since changeState triggers JS code, which might e.g. call abort. + job = 0; + changeState(Completed); + + delete decoder; + decoder = 0; +} + +void XMLHttpRequest::slotRedirection(TDEIO::Job*, const KURL& url) +{ + if (!urlMatchesDocumentDomain(url)) { + abort(); + } +} + +#ifdef APPLE_CHANGES +void XMLHttpRequest::slotData( TDEIO::Job*, const char *data, int len ) +#else +void XMLHttpRequest::slotData(TDEIO::Job*, const TQByteArray &_data) +#endif +{ + if (state < Loaded ) { + responseHeaders = job->queryMetaData("HTTP-Headers"); + + // NOTE: Replace a 304 response with a 200! Both IE and Mozilla do this. + // Problem first reported through bug# 110272. + int codeStart = responseHeaders.find("304"); + if ( codeStart != -1) { + int codeEnd = responseHeaders.find("\n", codeStart+3); + if (codeEnd != -1) + responseHeaders.replace(codeStart, (codeEnd-codeStart), "200 OK"); + } + + changeState(Loaded); + } + +#ifndef APPLE_CHANGES + const char *data = (const char *)_data.data(); + int len = (int)_data.size(); +#endif + + if ( decoder == NULL ) { + int pos = responseHeaders.find("content-type:", 0, false); + + if ( pos > -1 ) { + pos += 13; + int index = responseHeaders.find('\n', pos); + TQString type = responseHeaders.mid(pos, (index-pos)); + index = type.find (';'); + if (index > -1) + encoding = TQString(type.mid( index+1 ).remove(TQRegExp("charset[ ]*=[ ]*", false))).stripWhiteSpace(); + } + + decoder = new Decoder; + if (!encoding.isNull()) + decoder->setEncoding(encoding.latin1(), Decoder::EncodingFromHTTPHeader); + else { + // Per section 2 of W3C working draft spec, fall back to "UTF-8". + decoder->setEncoding("UTF-8", Decoder::DefaultEncoding); + } + } + if (len == 0) + return; + + if (len == -1) + len = strlen(data); + + TQString decoded = decoder->decode(data, len); + + response += decoded; + + if (!aborted) { + changeState(Interactive); + } +} + +Value XMLHttpRequestProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + if (!thisObj.inherits(&XMLHttpRequest::info)) { + Object err = Error::create(exec,TypeError); + exec->setException(err); + return err; + } + + XMLHttpRequest *request = static_cast<XMLHttpRequest *>(thisObj.imp()); + switch (id) { + case XMLHttpRequest::Abort: + request->abort(); + return Undefined(); + case XMLHttpRequest::GetAllResponseHeaders: + if (args.size() != 0) { + return Undefined(); + } + + return request->getAllResponseHeaders(); + case XMLHttpRequest::GetResponseHeader: + if (args.size() != 1) { + return Undefined(); + } + + return request->getResponseHeader(args[0].toString(exec).qstring()); + case XMLHttpRequest::Open: + { + if (args.size() < 2 || args.size() > 5) { + return Undefined(); + } + + TQString method = args[0].toString(exec).qstring(); + TDEHTMLPart *part = ::tqqt_cast<TDEHTMLPart *>(Window::retrieveActive(exec)->part()); + if (!part) + return Undefined(); + KURL url = KURL(part->document().completeURL(args[1].toString(exec).qstring()).string()); + + bool async = true; + if (args.size() >= 3) { + async = args[2].toBoolean(exec); + } + + if (args.size() >= 4) { + url.setUser(args[3].toString(exec).qstring()); + } + + if (args.size() >= 5) { + url.setPass(args[4].toString(exec).qstring()); + } + + request->open(method, url, async); + + return Undefined(); + } + case XMLHttpRequest::Send: + { + if (args.size() > 1) { + return Undefined(); + } + + if (request->state != Loading) { + return Undefined(); + } + + TQString body; + if (args.size() >= 1) { + Object obj = Object::dynamicCast(args[0]); + if (obj.isValid() && obj.inherits(&DOMDocument::info)) { + DOM::Node docNode = static_cast<KJS::DOMDocument *>(obj.imp())->toNode(); + DOM::DocumentImpl *doc = static_cast<DOM::DocumentImpl *>(docNode.handle()); + + try { + body = doc->toString().string(); + // FIXME: also need to set content type, including encoding! + + } catch(DOM::DOMException& e) { + Object err = Error::create(exec, GeneralError, "Exception serializing document"); + exec->setException(err); + } + } else { + body = args[0].toString(exec).qstring(); + } + } + + request->send(body); + + return Undefined(); + } + case XMLHttpRequest::SetRequestHeader: + if (args.size() != 2) { + return Undefined(); + } + + request->setRequestHeader(args[0].toString(exec).qstring(), args[1].toString(exec).qstring()); + + return Undefined(); + + case XMLHttpRequest::OverrideMIMEType: + if (args.size() < 1) { + Object err = Error::create(exec, SyntaxError, "Not enough arguments"); + exec->setException(err); + return err; + } + + request->overrideMIMEType(args[0].toString(exec).qstring()); + return Undefined(); + } + + return Undefined(); +} + +} // end namespace + + +#include "xmlhttprequest.moc" diff --git a/tdehtml/ecma/xmlhttprequest.h b/tdehtml/ecma/xmlhttprequest.h new file mode 100644 index 000000000..95a7c9cc2 --- /dev/null +++ b/tdehtml/ecma/xmlhttprequest.h @@ -0,0 +1,142 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * 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 Lesser 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 + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser 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 + */ + +#ifndef _XMLHTTPREQUEST_H_ +#define _XMLHTTPREQUEST_H_ + +#include "ecma/kjs_binding.h" +#include "ecma/kjs_dom.h" +#include "misc/decoder.h" +#include "tdeio/jobclasses.h" + +namespace KJS { + + class JSEventListener; + class XMLHttpRequestQObject; + + // these exact numeric values are important because JS expects them + enum XMLHttpRequestState { + Uninitialized = 0, + Loading = 1, + Loaded = 2, + Interactive = 3, + Completed = 4 + }; + + class XMLHttpRequestConstructorImp : public ObjectImp { + public: + XMLHttpRequestConstructorImp(ExecState *exec, const DOM::Document &d); + virtual bool implementsConstruct() const; + virtual Object construct(ExecState *exec, const List &args); + private: + DOM::Document doc; + }; + + class XMLHttpRequest : public DOMObject { + public: + XMLHttpRequest(ExecState *, const DOM::Document &d); + ~XMLHttpRequest(); + virtual Value tryGet(ExecState *exec, const Identifier &propertyName) const; + Value getValueProperty(ExecState *exec, int token) const; + virtual void tryPut(ExecState *exec, const Identifier &propertyName, const Value& value, int attr = None); + void putValueProperty(ExecState *exec, int token, const Value& value, int /*attr*/); + virtual bool toBoolean(ExecState *) const { return true; } + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { Onload, Onreadystatechange, ReadyState, ResponseText, ResponseXML, Status, StatusText, Abort, + GetAllResponseHeaders, GetResponseHeader, Open, Send, SetRequestHeader, + OverrideMIMEType }; + + private: + friend class XMLHttpRequestProtoFunc; + friend class XMLHttpRequestQObject; + + Value getStatusText() const; + Value getStatus() const; + bool urlMatchesDocumentDomain(const KURL&) const; + + XMLHttpRequestQObject *qObject; + +#ifdef APPLE_CHANGES + void slotData( TDEIO::Job* job, const char *data, int size ); +#else + void slotData( TDEIO::Job* job, const TQByteArray &data ); +#endif + void slotFinished( TDEIO::Job* ); + void slotRedirection( TDEIO::Job*, const KURL& ); + + void processSyncLoadResults(const TQByteArray &data, const KURL &finalURL, const TQString &headers); + + void open(const TQString& _method, const KURL& _url, bool _async); + void send(const TQString& _body); + void abort(); + void setRequestHeader(const TQString& name, const TQString &value); + void overrideMIMEType(const TQString& override); + Value getAllResponseHeaders() const; + Value getResponseHeader(const TQString& name) const; + + void changeState(XMLHttpRequestState newState); + + TQGuardedPtr<DOM::DocumentImpl> doc; + + KURL url; + TQString method; + bool async; + TQMap<TQString,TQString> requestHeaders; + TQString m_mimeTypeOverride; + TQString contentType; + + TDEIO::TransferJob * job; + + XMLHttpRequestState state; + JSEventListener *onReadyStateChangeListener; + JSEventListener *onLoadListener; + + tdehtml::Decoder *decoder; + TQString encoding; + TQString responseHeaders; + + TQString response; + mutable bool createdDocument; + mutable bool typeIsXML; + mutable DOM::Document responseXML; + + bool aborted; + }; + + + class XMLHttpRequestQObject : public TQObject { + Q_OBJECT + + public: + XMLHttpRequestQObject(XMLHttpRequest *_jsObject); + + public slots: + void slotData( TDEIO::Job* job, const TQByteArray &data ); + void slotFinished( TDEIO::Job* job ); + void slotRedirection( TDEIO::Job* job, const KURL& url); + + private: + XMLHttpRequest *jsObject; + }; + +} // namespace + +#endif diff --git a/tdehtml/ecma/xmlserializer.cpp b/tdehtml/ecma/xmlserializer.cpp new file mode 100644 index 000000000..856f35e1f --- /dev/null +++ b/tdehtml/ecma/xmlserializer.cpp @@ -0,0 +1,109 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * 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 Lesser 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 + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser 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 "xmlserializer.h" +#include "xmlserializer.lut.h" + +#include "dom/dom_exception.h" +#include "dom/dom_doc.h" +#include "xml/dom_docimpl.h" + +#include <kdebug.h> + + +////////////////////// XMLSerializer Object //////////////////////// + +/* Source for XMLSerializerProtoTable. +@begin XMLSerializerProtoTable 1 + serializeToString XMLSerializer::SerializeToString DontDelete|Function 1 +@end +*/ + +namespace KJS { + +KJS_DEFINE_PROTOTYPE(XMLSerializerProto) +IMPLEMENT_PROTOFUNC_DOM(XMLSerializerProtoFunc) +KJS_IMPLEMENT_PROTOTYPE("XMLSerializer", XMLSerializerProto, XMLSerializerProtoFunc) + +XMLSerializerConstructorImp::XMLSerializerConstructorImp(ExecState *) + : ObjectImp() +{ +} + +bool XMLSerializerConstructorImp::implementsConstruct() const +{ + return true; +} + +Object XMLSerializerConstructorImp::construct(ExecState *exec, const List &) +{ + return Object(new XMLSerializer(exec)); +} + +const ClassInfo XMLSerializer::info = { "XMLSerializer", 0, 0, 0 }; + +XMLSerializer::XMLSerializer(ExecState *exec) + : DOMObject(XMLSerializerProto::self(exec)) +{ +} + +Value XMLSerializerProtoFunc::tryCall(ExecState *exec, Object &thisObj, const List &args) +{ + if (!thisObj.inherits(&XMLSerializer::info)) { + Object err = Error::create(exec,TypeError); + exec->setException(err); + return err; + } + + switch (id) { + case XMLSerializer::SerializeToString: + { + if (args.size() != 1) { + return Undefined(); + } + + if (!args[0].toObject(exec).inherits(&DOMNode::info)) { + return Undefined(); + } + + DOM::NodeImpl *node = static_cast<DOM::NodeImpl *>(static_cast<KJS::DOMNode *>(args[0].toObject(exec).imp())->toNode().handle()); + + if (!node) { + return Undefined(); + } + + TQString body; + + try { + body = node->toString().string(); + } catch(DOM::DOMException& e) { + Object err = Error::create(exec, GeneralError, "Exception serializing document"); + exec->setException(err); + return err; + } + + return getString(body); + } + } + + return Undefined(); +} + +} // end namespace diff --git a/tdehtml/ecma/xmlserializer.h b/tdehtml/ecma/xmlserializer.h new file mode 100644 index 000000000..a86df3ed4 --- /dev/null +++ b/tdehtml/ecma/xmlserializer.h @@ -0,0 +1,54 @@ +// -*- c-basic-offset: 2 -*- +/* + * This file is part of the KDE libraries + * 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 Lesser 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 + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser 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 + */ + +#ifndef _XMLSERIALIZER_H_ +#define _XMLSERIALIZER_H_ + +#include "ecma/kjs_binding.h" +#include "ecma/kjs_dom.h" +#include "misc/decoder.h" +#include "tdeio/jobclasses.h" + +namespace KJS { + + class JSEventListener; + + class XMLSerializerConstructorImp : public ObjectImp { + public: + XMLSerializerConstructorImp(ExecState *); + virtual bool implementsConstruct() const; + virtual Object construct(ExecState *exec, const List &args); + }; + + class XMLSerializer : public DOMObject { + public: + XMLSerializer(ExecState *); + virtual bool toBoolean(ExecState *) const { return true; } + virtual const ClassInfo* classInfo() const { return &info; } + static const ClassInfo info; + enum { SerializeToString }; + + private: + friend class XMLSerializerProtoFunc; + }; + +} // namespace + +#endif |