Add a sleep function to dart:io

runtime/bin/process.cc

-// Copyright (c) 2012, the Dart project authors.  Please see the AUTHORS file
+// Copyright (c) 2013, 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 "bin/dartutils.h"
 #include "bin/io_buffer.h"
 #include "bin/process.h"
 #include "bin/socket.h"
 
 #include "include/dart_api.h"
 
-
 static const int kProcessIdNativeField = 0;
 
 int Process::global_exit_code_ = 0;
 dart::Mutex Process::global_exit_code_mutex_;
 
 // Extract an array of C strings from a list of Dart strings.
 static char** ExtractCStringList(Dart_Handle strings,
                                  Dart_Handle status_handle,
                                  const char* error_msg,
                                  intptr_t* length) {
@@ skipping 160 matching lines @@
 void FUNCTION_NAME(Process_SetExitCode)(Dart_NativeArguments args) {
   Dart_EnterScope();
   int64_t status = 0;
   // Ignore result if passing invalid argument and just set exit code to 0.
   DartUtils::GetInt64Value(Dart_GetNativeArgument(args, 0), &status);
   Process::SetGlobalExitCode(status);
   Dart_ExitScope();
 }
 
 
+void FUNCTION_NAME(Process_Sleep)(Dart_NativeArguments args) {
+  Dart_EnterScope();
+  int64_t milliseconds = 0;
+  // Ignore result if passing invalid argument and just set exit code to 0.
+  DartUtils::GetInt64Value(Dart_GetNativeArgument(args, 0), &milliseconds);
+  TimerUtils::Sleep(milliseconds);
+  Dart_ExitScope();
+}
+
+
 Dart_Handle Process::GetProcessIdNativeField(Dart_Handle process,
                                              intptr_t* pid) {
   return Dart_GetNativeInstanceField(process, kProcessIdNativeField, pid);
 }
 
 
 Dart_Handle Process::SetProcessIdNativeField(Dart_Handle process,
                                              intptr_t pid) {
   return Dart_SetNativeInstanceField(process, kProcessIdNativeField, pid);
 }
@@ skipping 26 matching lines @@
   const char* utf8 = DartUtils::GetStringValue(str);
   const char* system_string = StringUtils::Utf8ToConsoleString(utf8);
   int external_length = strlen(system_string);
   uint8_t* buffer = NULL;
   Dart_Handle external_array = IOBuffer::Allocate(external_length, &buffer);
   memmove(buffer, system_string, external_length);
   if (utf8 != system_string) free(const_cast<char*>(system_string));
   Dart_SetReturnValue(args, external_array);
   Dart_ExitScope();
 }