(enh) add OS / Process.exit

src/cli/modules.c

@@ -32,6 +32,7 @@ extern void processCwd(WrenVM* vm);
 extern void processPid(WrenVM* vm);
 extern void processPpid(WrenVM* vm);
 extern void processVersion(WrenVM* vm);
+extern void processExit(WrenVM* vm);
 extern void statPath(WrenVM* vm);
 extern void statBlockCount(WrenVM* vm);
 extern void statBlockSize(WrenVM* vm);
@@ -180,6 +181,7 @@ static ModuleRegistry modules[] =
       STATIC_METHOD("pid", processPid)
       STATIC_METHOD("ppid", processPpid)
       STATIC_METHOD("version", processVersion)
+      STATIC_METHOD("exit(_)", processExit)
     END_CLASS
   END_MODULE
   MODULE(repl)

src/cli/vm.c

@@ -286,12 +286,39 @@ static void initVM()
   uv_loop_init(loop);
 }
 
+void on_uvClose(uv_handle_t* handle)
+{
+    if (handle != NULL)
+    {
+        free(handle);
+    }
+}
+
+void on_uvWalkForShutdown(uv_handle_t* handle, void* arg)
+{
+   if (!uv_is_closing(handle))
+    uv_close(handle, on_uvClose);
+}
+
+static void uvShutdown() {
+  uv_loop_t *loop = getLoop();
+  int result = uv_loop_close(loop);
+  if (result != UV_EBUSY) return;
+
+  // walk open handles and shut them down    
+  uv_walk(loop, on_uvWalkForShutdown, NULL);
+  uv_run(loop, UV_RUN_ONCE);
+  result = uv_loop_close(loop);
+  if (result != 0) {
+    fprintf(stderr, "could not close UV event loop completely");
+  }
+}
+
 static void freeVM()
 {
   ioShutdown();
   schedulerShutdown();
-
-  uv_loop_close(loop);
+  uvShutdown();
   free(loop);
 
   wrenFreeVM(vm);

src/module/os.c

@@ -1,6 +1,7 @@
 #include "os.h"
 #include "uv.h"
 #include "wren.h"
+#include "vm.h"
 
 #if __APPLE__
   #include "TargetConditionals.h"
@@ -98,6 +99,12 @@ void processAllArguments(WrenVM* vm)
   }
 }
 
+void processExit(WrenVM* vm) {
+  int code = (int)wrenGetSlotDouble(vm, 1);
+  setExitCode(code);
+  uv_stop(getLoop());
+}
+
 void processCwd(WrenVM* vm)
 {
   wrenEnsureSlots(vm, 1);

src/module/os.wren

@@ -15,4 +15,5 @@ class Process {
   foreign static pid
   foreign static ppid
   foreign static version
+  foreign static exit(code)
 }

src/module/os.wren.inc

@@ -19,4 +19,5 @@ static const char* osModuleSource =
 "  foreign static pid\n"
 "  foreign static ppid\n"
 "  foreign static version\n"
+"  foreign static exit(code)\n"
 "}\n";