Add an interface for retrieving the value of unsigned 64-bit integers.

runtime/vm/dart_api_impl.cc

 // Copyright (c) 2011, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "include/dart_api.h"
 
 #include "vm/bigint_operations.h"
 #include "vm/class_finalizer.h"
 #include "vm/compiler.h"
 #include "vm/dart.h"
@@ skipping 932 matching lines @@
 DART_EXPORT bool Dart_IsInteger(Dart_Handle object) {
   DARTSCOPE(Isolate::Current());
   const Object& obj = Object::Handle(Api::UnwrapHandle(object));
   return obj.IsInteger();
 }
 
 
 DART_EXPORT Dart_Handle Dart_IntegerFitsIntoInt64(Dart_Handle integer,
                                                   bool* fits) {
   DARTSCOPE(Isolate::Current());
-  const Object& obj = Object::Handle(Api::UnwrapHandle(integer));
-  if (obj.IsSmi() || obj.IsMint()) {
+  const Integer& int_obj = Api::UnwrapIntegerHandle(integer);
+  if (int_obj.IsNull()) {
+    RETURN_TYPE_ERROR(integer, Integer);
+  }
+  if (int_obj.IsSmi() || int_obj.IsMint()) {
     *fits = true;
     return Api::Success();

[turnidge, 2011/12/08 22:58:22]

Remove this?

-  } else if (obj.IsBigint()) {
+  } else {
+    ASSERT(int_obj.IsBigint());
 #if defined(DEBUG)
     Bigint& bigint = Bigint::Handle();
-    bigint ^= obj.raw();
+    bigint ^= int_obj.raw();
     ASSERT(!BigintOperations::FitsIntoInt64(bigint));
 #endif
     *fits = false;
-    return Api::Success();
   }
-  return Api::Error("Object is not a Integer");
+  return Api::Success();
 }
 
 
+DART_EXPORT Dart_Handle Dart_IntegerFitsIntoUint64(Dart_Handle integer,
+                                                   bool* fits) {
+  DARTSCOPE(Isolate::Current());
+  const Integer& int_obj = Api::UnwrapIntegerHandle(integer);
+  if (int_obj.IsNull()) {
+    RETURN_TYPE_ERROR(integer, Integer);
+  }
+  if (int_obj.IsSmi() || int_obj.IsMint()) {
+    *fits = !int_obj.IsNegative();
+  } else {
+    ASSERT(int_obj.IsBigint());
+    Bigint& bigint = Bigint::Handle();
+    bigint ^= int_obj.raw();
+    *fits = BigintOperations::FitsIntoUint64(bigint);
+  }
+  return Api::Success();
+}
+
+
 DART_EXPORT Dart_Handle Dart_NewInteger(int64_t value) {
   DARTSCOPE(Isolate::Current());
   const Integer& obj = Integer::Handle(Integer::New(value));
   return Api::NewLocalHandle(obj);
 }
 
 
 DART_EXPORT Dart_Handle Dart_NewIntegerFromHexCString(const char* str) {
   DARTSCOPE(Isolate::Current());
   const String& str_obj = String::Handle(String::New(str));
   const Integer& obj = Integer::Handle(Integer::New(str_obj));
   return Api::NewLocalHandle(obj);
 }
 
 
-DART_EXPORT Dart_Handle Dart_IntegerValue(Dart_Handle integer, int64_t* value) {
+DART_EXPORT Dart_Handle Dart_IntegerToInt64(Dart_Handle integer,
+                                            int64_t* value) {
   DARTSCOPE(Isolate::Current());
-  const Object& obj = Object::Handle(Api::UnwrapHandle(integer));
-  if (obj.IsSmi() || obj.IsMint()) {
-    Integer& integer = Integer::Handle();
-    integer ^= obj.raw();
-    *value = integer.AsInt64Value();
-    return Api::Success();
+  const Integer& int_obj = Api::UnwrapIntegerHandle(integer);
+  if (int_obj.IsNull()) {
+    RETURN_TYPE_ERROR(integer, Integer);
   }
-  if (obj.IsBigint()) {
+  if (int_obj.IsSmi() || int_obj.IsMint()) {
+    *value = int_obj.AsInt64Value();
+  } else {
+    ASSERT(int_obj.IsBigint());
     Bigint& bigint = Bigint::Handle();
-    bigint ^= obj.raw();
+    bigint ^= int_obj.raw();
     if (BigintOperations::FitsIntoInt64(bigint)) {
       *value = BigintOperations::ToInt64(bigint);
-      return Api::Success();
     } else {
-      return Api::Error("Integer too big to fit in int64_t");
+      return Api::Error("%s: Integer %s cannot be represented as an int64_t.",
+                        CURRENT_FUNC, int_obj.ToCString());
     }
   }
-  return Api::Error("Object is not a Integer");
+  return Api::Success();
 }
 
 
-DART_EXPORT Dart_Handle Dart_IntegerValueHexCString(Dart_Handle integer,
-                                                    const char** value) {
+DART_EXPORT Dart_Handle Dart_IntegerToUint64(Dart_Handle integer,
+                                             uint64_t* value) {
   DARTSCOPE(Isolate::Current());
-  const Object& obj = Object::Handle(Api::UnwrapHandle(integer));
-  Bigint& bigint = Bigint::Handle();
-  if (obj.IsSmi() || obj.IsMint()) {
-    Integer& integer = Integer::Handle();
-    integer ^= obj.raw();
-    bigint ^= BigintOperations::NewFromInt64(integer.AsInt64Value());
-    *value = BigintOperations::ToHexCString(bigint, &Api::Allocate);
-    return Api::Success();
+  const Integer& int_obj = Api::UnwrapIntegerHandle(integer);
+  if (int_obj.IsNull()) {
+    RETURN_TYPE_ERROR(integer, Integer);
   }
-  if (obj.IsBigint()) {
-    bigint ^= obj.raw();
-    *value = BigintOperations::ToHexCString(bigint, &Api::Allocate);
-    return Api::Success();
+  if (int_obj.IsSmi() || int_obj.IsMint()) {
+    if (!int_obj.IsNegative()) {
+      *value = int_obj.AsInt64Value();
+      return Api::Success();
+    }
+  } else {
+    ASSERT(int_obj.IsBigint());
+    Bigint& bigint = Bigint::Handle();
+    bigint ^= int_obj.raw();
+    if (BigintOperations::FitsIntoUint64(bigint)) {
+      *value = BigintOperations::ToUint64(bigint);
+      return Api::Success();
+    }
   }
-  return Api::Error("Object is not a Integer");
+  return Api::Error("%s: Integer %s cannot be represented as a uint64_t.",
+                    CURRENT_FUNC, int_obj.ToCString());

[turnidge, 2011/12/08 22:58:22]

Make consistent with IntegerToInt64?  (That is, fall out to Api::Success
instead?)

 }
 
 
+DART_EXPORT Dart_Handle Dart_IntegerToHexCString(Dart_Handle integer,
+                                                 const char** value) {
+  DARTSCOPE(Isolate::Current());
+  const Integer& int_obj = Api::UnwrapIntegerHandle(integer);
+  if (int_obj.IsNull()) {
+    RETURN_TYPE_ERROR(integer, Integer);
+  }
+  Bigint& bigint = Bigint::Handle();
+  if (int_obj.IsSmi() || int_obj.IsMint()) {
+    bigint ^= BigintOperations::NewFromInt64(int_obj.AsInt64Value());
+    *value = BigintOperations::ToHexCString(bigint, &Api::Allocate);
+  } else {
+    ASSERT(int_obj.IsBigint());
+    bigint ^= int_obj.raw();
+    *value = BigintOperations::ToHexCString(bigint, &Api::Allocate);
+  }
+  return Api::Success();
+}
+
+
 // --- Booleans ----
 
 
 DART_EXPORT Dart_Handle Dart_True() {
   CHECK_ISOLATE_SCOPE(Isolate::Current());
   return Api::True();
 }
 
 
 DART_EXPORT Dart_Handle Dart_False() {
@@ skipping 1431 matching lines @@
     }
     delete debug_region;
   } else {
     *buffer = NULL;
     *buffer_size = 0;
   }
 }
 
 
 }  // namespace dart