mirror of
https://github.com/wren-lang/wren.git
synced 2026-01-11 22:28:45 +01:00
7fcdcf2f1a
This turns those functions into general-purpose functions for writing raw C values into slots on the foreign call stack. Writing a return just means writing a value to slot 0.
84 lines
2.0 KiB
C
84 lines
2.0 KiB
C
#include <string.h>
|
|
|
|
#include "slots.h"
|
|
|
|
static void noSet(WrenVM* vm)
|
|
{
|
|
// Do nothing.
|
|
}
|
|
|
|
static void getSlots(WrenVM* vm)
|
|
{
|
|
bool result = true;
|
|
if (wrenGetSlotBool(vm, 1) != true) result = false;
|
|
// TODO: Test wrenGetSlotForeign().
|
|
|
|
int length;
|
|
const char* bytes = wrenGetSlotBytes(vm, 2, &length);
|
|
if (length != 5) result = false;
|
|
if (memcmp(bytes, "by\0te", length) != 0) result = false;
|
|
|
|
if (wrenGetSlotDouble(vm, 3) != 12.34) result = false;
|
|
if (strcmp(wrenGetSlotString(vm, 4), "str") != 0) result = false;
|
|
|
|
WrenValue* value = wrenGetSlotValue(vm, 5);
|
|
|
|
if (result)
|
|
{
|
|
// Otherwise, return the value so we can tell if we captured it correctly.
|
|
wrenSetSlotValue(vm, 0, value);
|
|
wrenReleaseValue(vm, value);
|
|
}
|
|
else
|
|
{
|
|
// If anything failed, return false.
|
|
wrenSetSlotBool(vm, 0, false);
|
|
}
|
|
}
|
|
|
|
static void setSlots(WrenVM* vm)
|
|
{
|
|
WrenValue* value = wrenGetSlotValue(vm, 1);
|
|
|
|
wrenSetSlotBool(vm, 1, true);
|
|
wrenSetSlotBytes(vm, 2, "by\0te", 5);
|
|
wrenSetSlotDouble(vm, 3, 12.34);
|
|
wrenSetSlotString(vm, 4, "str");
|
|
|
|
// TODO: wrenSetSlotNull().
|
|
|
|
// Read the slots back to make sure they were set correctly.
|
|
|
|
bool result = true;
|
|
if (wrenGetSlotBool(vm, 1) != true) result = false;
|
|
|
|
int length;
|
|
const char* bytes = wrenGetSlotBytes(vm, 2, &length);
|
|
if (length != 5) result = false;
|
|
if (memcmp(bytes, "by\0te", length) != 0) result = false;
|
|
|
|
if (wrenGetSlotDouble(vm, 3) != 12.34) result = false;
|
|
if (strcmp(wrenGetSlotString(vm, 4), "str") != 0) result = false;
|
|
|
|
if (result)
|
|
{
|
|
// Move the value into the return position.
|
|
wrenSetSlotValue(vm, 0, value);
|
|
wrenReleaseValue(vm, value);
|
|
}
|
|
else
|
|
{
|
|
// If anything failed, return false.
|
|
wrenSetSlotBool(vm, 0, false);
|
|
}
|
|
}
|
|
|
|
WrenForeignMethodFn slotsBindMethod(const char* signature)
|
|
{
|
|
if (strcmp(signature, "static Slots.noSet") == 0) return noSet;
|
|
if (strcmp(signature, "static Slots.getSlots(_,_,_,_,_)") == 0) return getSlots;
|
|
if (strcmp(signature, "static Slots.setSlots(_,_,_,_)") == 0) return setSlots;
|
|
|
|
return NULL;
|
|
}
|