libwren-sys 0.1.0

FFI bindings for the wren embedded programming language
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130

#include <string.h>

#include "maps.h"

static void newMap(WrenVM* vm)
{
  wrenSetSlotNewMap(vm, 0);
}

static void invalidInsert(WrenVM* vm)
{
  wrenSetSlotNewMap(vm, 0);
  
  wrenEnsureSlots(vm, 3);
  // Foreign Class is in slot 1
  wrenSetSlotString(vm, 2, "England");
  wrenSetMapValue(vm, 0, 1, 2); // expect this to cause errors
}

static void insert(WrenVM* vm)
{
  wrenSetSlotNewMap(vm, 0);
  
  wrenEnsureSlots(vm, 3);

  // Insert String
  wrenSetSlotString(vm, 1, "England");
  wrenSetSlotString(vm, 2, "London");
  wrenSetMapValue(vm, 0, 1, 2);

  // Insert Double
  wrenSetSlotDouble(vm, 1, 1.0);
  wrenSetSlotDouble(vm, 2, 42.0);
  wrenSetMapValue(vm, 0, 1, 2);

  // Insert Boolean
  wrenSetSlotBool(vm, 1, false);
  wrenSetSlotBool(vm, 2, true);
  wrenSetMapValue(vm, 0, 1, 2);

  // Insert Null
  wrenSetSlotNull(vm, 1);
  wrenSetSlotNull(vm, 2);
  wrenSetMapValue(vm, 0, 1, 2);

  // Insert List
  wrenSetSlotString(vm, 1, "Empty");
  wrenSetSlotNewList(vm, 2);
  wrenSetMapValue(vm, 0, 1, 2);
}

static void remove(WrenVM* vm)
{
  wrenEnsureSlots(vm, 3);

  wrenSetSlotString(vm, 2, "key");
  wrenRemoveMapValue(vm, 1, 2, 0);
}

static void countWren(WrenVM* vm)
{
  int count = wrenGetMapCount(vm, 1);
  wrenSetSlotDouble(vm, 0, count);
}

static void countAPI(WrenVM* vm)
{
  insert(vm);
  int count = wrenGetMapCount(vm, 0);
  wrenSetSlotDouble(vm, 0, count);
}

static void containsWren(WrenVM* vm)
{
  bool result = wrenGetMapContainsKey(vm, 1, 2);
  wrenSetSlotBool(vm, 0, result);
}


static void containsAPI(WrenVM* vm)
{
  insert(vm);
  
  wrenEnsureSlots(vm, 1);
  wrenSetSlotString(vm, 1, "England");

  bool result = wrenGetMapContainsKey(vm, 0, 1);
  wrenSetSlotBool(vm, 0, result);
}

static void containsAPIFalse(WrenVM* vm)
{
  insert(vm);

  wrenEnsureSlots(vm, 1);
  wrenSetSlotString(vm, 1, "DefinitelyNotARealKey");

  bool result = wrenGetMapContainsKey(vm, 0, 1);
  wrenSetSlotBool(vm, 0, result);
}


WrenForeignMethodFn mapsBindMethod(const char* signature)
{
  if (strcmp(signature, "static Maps.newMap()") == 0) return newMap;
  if (strcmp(signature, "static Maps.insert()") == 0) return insert;
  if (strcmp(signature, "static Maps.remove(_)") == 0) return remove;
  if (strcmp(signature, "static Maps.count(_)") == 0) return countWren;
  if (strcmp(signature, "static Maps.count()") == 0) return countAPI;
  if (strcmp(signature, "static Maps.contains()") == 0) return containsAPI;
  if (strcmp(signature, "static Maps.containsFalse()") == 0) return containsAPIFalse;
  if (strcmp(signature, "static Maps.contains(_,_)") == 0) return containsWren;
  if (strcmp(signature, "static Maps.invalidInsert(_)") == 0) return invalidInsert;

  return NULL;
}

void foreignAllocate(WrenVM* vm) {
  wrenSetSlotNewForeign(vm, 0, 0, 0);
}

void mapBindClass(
    const char* className, WrenForeignClassMethods* methods)
{
  if (strcmp(className, "ForeignClass") == 0)
  {
    methods->allocate = foreignAllocate;
    return;
  }
}