Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 192 insertions, 0 deletions

diff --git a/kjs/error_object.cpp b/kjs/error_object.cpp
new file mode 100644
index 000000000..1b2451489
--- /dev/null
+++ b/kjs/error_object.cpp
@@ -0,0 +1,192 @@
+// -*- c-basic-offset: 2 -*-
+/*
+ *  This file is part of the KDE libraries
+ *  Copyright (C) 1999-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 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 "value.h"
+#include "object.h"
+#include "types.h"
+#include "interpreter.h"
+#include "operations.h"
+#include "error_object.h"
+//#include "debugger.h"
+
+using namespace KJS;
+
+// ------------------------------ ErrorInstanceImp ----------------------------
+
+const ClassInfo ErrorInstanceImp::info = {"Error", 0, 0, 0};
+
+ErrorInstanceImp::ErrorInstanceImp(ObjectImp *proto)
+  : ObjectImp(proto)
+{
+}
+
+// ------------------------------ ErrorPrototypeImp ----------------------------
+
+// ECMA 15.9.4
+ErrorPrototypeImp::ErrorPrototypeImp(ExecState *exec,
+                                     ObjectPrototypeImp *objectProto,
+                                     FunctionPrototypeImp *funcProto)
+  : ObjectImp(objectProto)
+{
+  Value protect(this);
+  setInternalValue(Undefined());
+  // The constructor will be added later in ErrorObjectImp's constructor
+
+  put(exec, namePropertyName,     String("Error"), DontEnum);
+  put(exec, messagePropertyName,  String("Unknown error"), DontEnum);
+  putDirect(toStringPropertyName, new ErrorProtoFuncImp(exec,funcProto), DontEnum);
+}
+
+// ------------------------------ ErrorProtoFuncImp ----------------------------
+
+ErrorProtoFuncImp::ErrorProtoFuncImp(ExecState * /*exec*/, FunctionPrototypeImp *funcProto)
+  : InternalFunctionImp(funcProto)
+{
+  Value protect(this);
+  putDirect(lengthPropertyName, NumberImp::zero(), DontDelete|ReadOnly|DontEnum);
+  ident = "toString";
+}
+
+bool ErrorProtoFuncImp::implementsCall() const
+{
+  return true;
+}
+
+Value ErrorProtoFuncImp::call(ExecState *exec, Object &thisObj, const List &/*args*/)
+{
+  // toString()
+  UString s = "Error";
+
+  Value v = thisObj.get(exec, namePropertyName);
+  if (v.type() != UndefinedType) {
+    s = v.toString(exec);
+  }
+
+  v = thisObj.get(exec, messagePropertyName);
+  if (v.type() != UndefinedType) {
+    s += ": " + v.toString(exec); // Mozilla compatible format
+  }
+
+  return String(s);
+}
+
+// ------------------------------ ErrorObjectImp -------------------------------
+
+ErrorObjectImp::ErrorObjectImp(ExecState * /*exec*/, FunctionPrototypeImp *funcProto,
+                               ErrorPrototypeImp *errorProto)
+  : InternalFunctionImp(funcProto)
+{
+  Value protect(this);
+  // ECMA 15.11.3.1 Error.prototype
+  putDirect(prototypePropertyName, errorProto, DontEnum|DontDelete|ReadOnly);
+  putDirect(lengthPropertyName, NumberImp::one(), DontDelete|ReadOnly|DontEnum);
+  //putDirect(namePropertyName, String(n));
+}
+
+bool ErrorObjectImp::implementsConstruct() const
+{
+  return true;
+}
+
+// ECMA 15.9.3
+Object ErrorObjectImp::construct(ExecState *exec, const List &args)
+{
+  Object proto = Object::dynamicCast(exec->lexicalInterpreter()->builtinErrorPrototype());
+  ObjectImp *imp = new ErrorInstanceImp(proto.imp());
+  Object obj(imp);
+
+  if (!args.isEmpty() && args[0].type() != UndefinedType) {
+    imp->putDirect(messagePropertyName, new StringImp(args[0].toString(exec)));
+  }
+
+  return obj;
+}
+
+bool ErrorObjectImp::implementsCall() const
+{
+  return true;
+}
+
+// ECMA 15.9.2
+Value ErrorObjectImp::call(ExecState *exec, Object &/*thisObj*/, const List &args)
+{
+  // "Error()" gives the sames result as "new Error()"
+  return construct(exec,args);
+}
+
+// ------------------------------ NativeErrorPrototypeImp ----------------------
+
+NativeErrorPrototypeImp::NativeErrorPrototypeImp(ExecState * /*exec*/, ErrorPrototypeImp *errorProto,
+                                                 ErrorType et, UString name, UString message)
+  : ObjectImp(errorProto)
+{
+  Value protect(this);
+  errType = et;
+  putDirect(namePropertyName, new StringImp(name), 0);
+  putDirect(messagePropertyName, new StringImp(message), 0);
+}
+
+// ------------------------------ NativeErrorImp -------------------------------
+
+const ClassInfo NativeErrorImp::info = {"Function", &InternalFunctionImp::info, 0, 0};
+
+NativeErrorImp::NativeErrorImp(ExecState * /*exec*/, FunctionPrototypeImp *funcProto,
+                               const Object &prot)
+  : InternalFunctionImp(funcProto), proto(0)
+{
+  Value protect(this);
+  proto = static_cast<ObjectImp*>(prot.imp());
+
+  putDirect(lengthPropertyName, NumberImp::one(), DontDelete|ReadOnly|DontEnum); // ECMA 15.11.7.5
+  putDirect(prototypePropertyName, proto, DontDelete|ReadOnly|DontEnum);
+}
+
+bool NativeErrorImp::implementsConstruct() const
+{
+  return true;
+}
+
+Object NativeErrorImp::construct(ExecState *exec, const List &args)
+{
+  ObjectImp *imp = new ErrorInstanceImp(proto);
+  Object obj(imp);
+  if (args[0].type() != UndefinedType)
+    imp->putDirect(messagePropertyName, new StringImp(args[0].toString(exec)));
+  return obj;
+}
+
+bool NativeErrorImp::implementsCall() const
+{
+  return true;
+}
+
+Value NativeErrorImp::call(ExecState *exec, Object &/*thisObj*/, const List &args)
+{
+  return construct(exec,args);
+}
+
+void NativeErrorImp::mark()
+{
+  ObjectImp::mark();
+  if (proto && !proto->marked())
+    proto->mark();
+}