Changeset 798 in webkit for trunk/JavaScriptCore/kjs/number_object.cpp

Timestamp:

Mar 21, 2002, 4:31:57 PM (23 years ago)

Author:

mjs

Message:

Merged changes from LABYRINTH_KDE_3_MERGE branch.

File:

• trunk/JavaScriptCore/kjs/number_object.cpp (modified) (2 diffs)

trunk/JavaScriptCore/kjs/number_object.cpp

@@ +1 @@
+// -*- c-basic-offset: 2 -*-
 /*
  *  This file is part of the KDE libraries
@@ -16 +17 @@
  *  License along with this library; if not, write to the Free Software
  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ *  $Id$
  */
 
-#include "kjs.h"
+#include "value.h"
+#include "object.h"
+#include "types.h"
+#include "interpreter.h"
 #include "operations.h"
 #include "number_object.h"
+#include "error_object.h"
+
+#include "number_object.lut.h"
 
 using namespace KJS;
 
-NumberObject::NumberObject(const Object& funcProto, const Object &numProto)
-  : ConstructorImp(funcProto, 1)
+
+// ------------------------------ NumberInstanceImp ----------------------------
+
+const ClassInfo NumberInstanceImp::info = {"Number", 0, 0, 0};
+
+NumberInstanceImp::NumberInstanceImp(const Object &proto)
+  : ObjectImp(proto)
 {
-  // Number.Prototype
-  setPrototypeProperty(numProto);
+}
+// ------------------------------ NumberPrototypeImp ---------------------------
+
+// ECMA 15.7.4
+
+NumberPrototypeImp::NumberPrototypeImp(ExecState *exec,
+                                       ObjectPrototypeImp *objProto,
+                                       FunctionPrototypeImp *funcProto)
+  : NumberInstanceImp(Object(objProto))
+{
+  Value protect(this);
+  setInternalValue(Number(0));
+
+  // The constructor will be added later, after NumberObjectImp has been constructed
+
+  put(exec,"toString",       Object(new NumberProtoFuncImp(exec,funcProto,NumberProtoFuncImp::ToString,       1)), DontEnum);
+  put(exec,"toLocaleString", Object(new NumberProtoFuncImp(exec,funcProto,NumberProtoFuncImp::ToLocaleString, 0)), DontEnum);
+  put(exec,"valueOf",        Object(new NumberProtoFuncImp(exec,funcProto,NumberProtoFuncImp::ValueOf,        0)), DontEnum);
 }
 
-// ECMA 15.7.3
-KJSO NumberObject::get(const UString &p) const
+
+// ------------------------------ NumberProtoFuncImp ---------------------------
+
+NumberProtoFuncImp::NumberProtoFuncImp(ExecState *exec,
+                                       FunctionPrototypeImp *funcProto, int i, int len)
+  : InternalFunctionImp(funcProto), id(i)
 {
-  double d;
-
-  if (p == "NaN")
-    d = NaN;
-  else if (p == "NEGATIVE_INFINITY")
-    d = -Inf;
-  else if (p == "POSITIVE_INFINITY")
-    d = Inf;
-  else
-    return Imp::get(p);
-
-  return Number(d);
+  Value protect(this);
+  put(exec,"length",Number(len),DontDelete|ReadOnly|DontEnum);
 }
 
+
+bool NumberProtoFuncImp::implementsCall() const
+{
+  return true;
+}
+
+// ECMA 15.7.4.2 - 15.7.4.7
+Value NumberProtoFuncImp::call(ExecState *exec, Object &thisObj, const List &/*args*/)
+{
+  Value result;
+
+  // no generic function. "this" has to be a Number object
+  if (!thisObj.inherits(&NumberInstanceImp::info)) {
+    Object err = Error::create(exec,TypeError);
+    exec->setException(err);
+    return err;
+  }
+
+  // execute "toString()" or "valueOf()", respectively
+  Value v = thisObj.internalValue();
+  switch (id) {
+  case ToString:
+  case ToLocaleString: /* TODO */
+    result = String(v.toString(exec));
+    break;
+  case ValueOf:
+    result = Number(v.toNumber(exec));
+    break;
+  }
+
+  return result;
+}
+
+// ------------------------------ NumberObjectImp ------------------------------
+
+const ClassInfo NumberObjectImp::info = {"Number", &InternalFunctionImp::info, &numberTable, 0};
+//const ClassInfo NumberObjectImp::info = {"Number", 0, &numberTable, 0};
+
+/* Source for number_object.lut.h
+@begin numberTable 5
+  NaN                   NumberObjectImp::NaNValue       DontEnum
+  NEGATIVE_INFINITY     NumberObjectImp::NegInfinity    DontEnum
+  POSITIVE_INFINITY     NumberObjectImp::PosInfinity    DontEnum
+  MAX_VALUE             NumberObjectImp::MaxValue       DontEnum
+  MIN_VALUE             NumberObjectImp::MinValue       DontEnum
+@end
+*/
+NumberObjectImp::NumberObjectImp(ExecState *exec,
+                                 FunctionPrototypeImp *funcProto,
+                                 NumberPrototypeImp *numberProto)
+  : InternalFunctionImp(funcProto)
+{
+  Value protect(this);
+  // Number.Prototype
+  put(exec,"prototype", Value(numberProto),DontEnum|DontDelete|ReadOnly);
+
+  // no. of arguments for constructor
+  put(exec,"length", Number(1), ReadOnly|DontDelete|DontEnum);
+}
+
+Value NumberObjectImp::get(ExecState *exec, const UString &propertyName) const
+{
+  return lookupGetValue<NumberObjectImp, InternalFunctionImp>( exec, propertyName, &numberTable, this );
+}
+
+Value NumberObjectImp::getValueProperty(ExecState *, int token) const
+{
+  // ECMA 15.7.3
+  switch(token) {
+  case NaNValue:
+    return Number(NaN);
+  case NegInfinity:
+    return Number(-Inf);
+  case PosInfinity:
+    return Number(Inf);
+  case MaxValue:
+    return Number(1.7976931348623157E+308);
+  case MinValue:
+    return Number(5E-324);
+  }
+  return Null();
+}
+
+bool NumberObjectImp::implementsConstruct() const
+{
+  return true;
+}
+
+
 // ECMA 15.7.1
-Completion NumberObject::execute(const List &args)
+Object NumberObjectImp::construct(ExecState *exec, const List &args)
 {
+  Object proto = exec->interpreter()->builtinNumberPrototype();
+  Object obj(new NumberInstanceImp(proto));
+
   Number n;
   if (args.isEmpty())
     n = Number(0);
   else
-    n = args[0].toNumber();
+    n = args[0].toNumber(exec);
 
-  return Completion(ReturnValue, n);
+  obj.setInternalValue(n);
+
+  return obj;
+}
+
+bool NumberObjectImp::implementsCall() const
+{
+  return true;
 }
 
 // ECMA 15.7.2
-Object NumberObject::construct(const List &args)
+Value NumberObjectImp::call(ExecState *exec, Object &/*thisObj*/, const List &args)
 {
-  Number n;
   if (args.isEmpty())
-    n = Number(0);
+    return Number(0);
   else
-    n = args[0].toNumber();
-
-  return Object::create(NumberClass, n);
+    return Number(args[0].toNumber(exec));
 }
-
-class NumberProtoFunc : public InternalFunctionImp {
-public:
-  NumberProtoFunc(int i) : id (i) { }
-  Completion execute(const List &);
-  enum { ToString, ToLocaleString, ValueOf };
-private:
-  int id;
-};
-
-// ECMA 15.7.4.2 - 15.7.4.7
-Completion NumberProtoFunc::execute(const List &)
-{
-  KJSO result;
-
-  Object thisObj = Object::dynamicCast(thisValue());
-
-  // no generic function. "this" has to be a Number object
-  if (thisObj.isNull() || thisObj.getClass() != NumberClass) {
-    result = Error::create(TypeError);
-    return Completion(ReturnValue, result);
-  }
-
-  // execute "toString()" or "valueOf()", respectively
-  KJSO v = thisObj.internalValue();
-  switch (id) {
-  case ToString:
-  case ToLocaleString: /* TODO */
-    result = v.toString();
-    break;
-  case ValueOf:
-    result = v.toNumber();
-    break;
-  }
-
-  return Completion(ReturnValue, result);
-}
-
-// ECMA 15.7.4
-NumberPrototype::NumberPrototype(const Object& proto)
-  : ObjectImp(NumberClass, Number(0), proto)
-{
-  // The constructor will be added later in NumberObject's constructor
-}
-
-KJSO NumberPrototype::get(const UString &p) const
-{
-  int t;
-  if (p == "toString")
-    t = NumberProtoFunc::ToString;
-  else if (p == "toLocaleString")
-    t = NumberProtoFunc::ToLocaleString;
-  else if (p == "valueOf")
-    t = NumberProtoFunc::ValueOf;
-  else
-    return Imp::get(p);
-
-  return Function(new NumberProtoFunc(t));
-}