Add an API to load a top-level variable into a slot.

test/api/get_variable.c

@@ -0,0 +1,44 @@
+#include <string.h>
+
+#include "get_variable.h"
+
+static void beforeDefined(WrenVM* vm)
+{
+  wrenGetVariable(vm, "main", "A", 0);
+}
+
+static void afterDefined(WrenVM* vm)
+{
+  wrenGetVariable(vm, "main", "A", 0);
+}
+
+static void afterAssigned(WrenVM* vm)
+{
+  wrenGetVariable(vm, "main", "A", 0);
+}
+
+static void otherSlot(WrenVM* vm)
+{
+  wrenEnsureSlots(vm, 3);
+  wrenGetVariable(vm, "main", "B", 2);
+  
+  // Move it into return position.
+  const char* string = wrenGetSlotString(vm, 2);
+  wrenSetSlotString(vm, 0, string);
+}
+
+static void otherModule(WrenVM* vm)
+{
+  wrenGetVariable(vm, "get_variable_module", "Variable", 0);
+}
+
+WrenForeignMethodFn getVariableBindMethod(const char* signature)
+{
+  if (strcmp(signature, "static GetVariable.beforeDefined()") == 0) return beforeDefined;
+  if (strcmp(signature, "static GetVariable.afterDefined()") == 0) return afterDefined;
+  if (strcmp(signature, "static GetVariable.afterAssigned()") == 0) return afterAssigned;
+  if (strcmp(signature, "static GetVariable.otherSlot()") == 0) return otherSlot;
+  if (strcmp(signature, "static GetVariable.otherModule()") == 0) return otherModule;
+
+  return NULL;
+}

test/api/get_variable.h

@@ -0,0 +1,3 @@
+#include "wren.h"
+
+WrenForeignMethodFn getVariableBindMethod(const char* signature);

test/api/get_variable.wren

@@ -0,0 +1,24 @@
+import "get_variable_module"
+
+class GetVariable {
+  foreign static beforeDefined()
+  foreign static afterDefined()
+  foreign static afterAssigned()
+  foreign static otherSlot()
+  foreign static otherModule()
+}
+
+System.print(GetVariable.beforeDefined()) // expect: null
+
+var A = "a"
+
+System.print(GetVariable.afterDefined()) // expect: a
+
+A = "changed"
+
+System.print(GetVariable.afterAssigned()) // expect: changed
+
+var B = "b"
+System.print(GetVariable.otherSlot()) // expect: b
+
+System.print(GetVariable.otherModule()) // expect: value

test/api/get_variable_module.wren

@@ -0,0 +1,3 @@
+// nontest
+
+var Variable = "value"

test/api/main.c

@@ -6,6 +6,7 @@
 
 #include "benchmark.h"
 #include "call.h"
+#include "get_variable.h"
 #include "foreign_class.h"
 #include "lists.h"
 #include "slots.h"
@@ -33,7 +34,10 @@ static WrenForeignMethodFn bindForeignMethod(
   
   method = benchmarkBindMethod(fullName);
   if (method != NULL) return method;
-  
+
+  method = getVariableBindMethod(fullName);
+  if (method != NULL) return method;
+
   method = foreignClassBindMethod(fullName);
   if (method != NULL) return method;