Implement fromEnvironment on bool, int and String

runtime/lib/integers.cc

 // Copyright (c) 2012, 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 "vm/bootstrap_natives.h"
 
+#include "include/dart_api.h"
 #include "vm/bigint_operations.h"
 #include "vm/dart_entry.h"
+#include "vm/dart_api_impl.h"
 #include "vm/exceptions.h"
+#include "vm/isolate.h"
 #include "vm/native_entry.h"
 #include "vm/object.h"
 #include "vm/object_store.h"
 #include "vm/symbols.h"
 
 namespace dart {
 
 DEFINE_FLAG(bool, trace_intrinsified_natives, false,
     "Report if any of the intrinsified natives are called");
 
@@ skipping 199 matching lines @@
     }
     String& temp = String::Handle();
     temp = String::Concat(Symbols::Dash(), *int_string);
     return Integer::New(temp);
   }
 
   return Object::null();
 }
 
 
+DEFINE_NATIVE_ENTRY(Integer_fromEnvironment, 3) {
+  GET_NON_NULL_NATIVE_ARGUMENT(String, name, arguments->NativeArgAt(1));
+  GET_NATIVE_ARGUMENT(Integer, default_value, arguments->NativeArgAt(2));
+  // Call the embedder to supply us with the environment.
+  Dart_ConfigCallback callback = isolate->config_callback();
+  if (callback != NULL) {
+    Dart_Handle result = callback(kIntegerConfig,
+                                  Api::NewHandle(isolate, name.raw()));
+    if (Dart_IsString(result)) {
+      int digits_len;
+      Dart_StringLength(result, &digits_len);
+      if (digits_len > 0) {
+        const char *digits;
+        Dart_StringToCString(result, &digits);
+        // TODO(sgjesse): Support hex strings.

[Ivan Posva, 2013/10/29 21:42:59]

Integer::NewCanonical already deals with hex strings.

[Søren Gjesse, 2013/10/30 11:44:02]

Changed checking to check for decimal or hexdecimal string before calling
Integer::NewCanonical.

+        bool is_number = true;
+        for (int i = 0; i < digits_len && is_number; i++) {
+          is_number = ('0' <= digits[i]) && digits[i] <= '9';
+        }
+        if (digits_len > 0 && is_number) {
+          const Object& value =
+              Object::Handle(isolate, Api::UnwrapHandle(result));
+          ASSERT(value.IsString());
+          return Integer::NewCanonical(String::Cast(value));
+        } else {
+          Exceptions::ThrowArgumentError(
+              String::Handle(
+                  String::New("Environment value is not an integer")));
+        }
+      }
+    }
+  }
+  if (default_value.IsNull()) {
+    Exceptions::ThrowArgumentError(
+        String::Handle(String::New("Environment value does not have a value")));
+  }
+  return default_value.raw();
+}
+
+
 // Passing true for 'silent' prevents throwing JavascriptIntegerOverflow.
 static RawInteger* ShiftOperationHelper(Token::Kind kind,
                                         const Integer& value,
                                         const Smi& amount,
                                         const bool silent = false) {
   if (amount.Value() < 0) {
     Exceptions::ThrowArgumentError(amount);
   }
   if (value.IsSmi()) {
     const Smi& smi_value = Smi::Cast(value);
@@ skipping 162 matching lines @@
   // Use the preallocated out of memory exception to avoid calling
   // into dart code or allocating any code.
   const Instance& exception =
       Instance::Handle(isolate->object_store()->out_of_memory());
   Exceptions::Throw(exception);
   UNREACHABLE();
   return 0;
 }
 
 }  // namespace dart