Added 'range' to standard library, adjusted native functions

source/toy_attributes.c

@@ -45,7 +45,9 @@ Toy_Value Toy_private_handleStringAttributes(Toy_VM* vm, Toy_Value compound, Toy
 	}
 }
 
-static void attr_arrayPushBack(Toy_VM* vm) {
+static void attr_arrayPushBack(Toy_VM* vm, Toy_FunctionNative* self) {
+	(void)self;
+
 	Toy_Value compound = Toy_popStack(&vm->stack);
 	Toy_Value element = Toy_popStack(&vm->stack);
 
@@ -69,7 +71,9 @@ static void attr_arrayPushBack(Toy_VM* vm) {
 	array->count++;
 }
 
-static void attr_arrayPopBack(Toy_VM* vm) {
+static void attr_arrayPopBack(Toy_VM* vm, Toy_FunctionNative* self) {
+	(void)self;
+
 	Toy_Value compound = Toy_popStack(&vm->stack);
 
 	Toy_Array* array = TOY_VALUE_AS_ARRAY(compound);
@@ -86,7 +90,9 @@ static void attr_arrayPopBack(Toy_VM* vm) {
 	Toy_pushStack(&vm->stack, element);
 }
 
-static void attr_arrayForEach(Toy_VM* vm) {
+static void attr_arrayForEach(Toy_VM* vm, Toy_FunctionNative* self) {
+	(void)self;
+
 	Toy_Value compound = Toy_popStack(&vm->stack);
 	Toy_Value callback = Toy_popStack(&vm->stack);
 
@@ -133,7 +139,7 @@ static void attr_arrayForEach(Toy_VM* vm) {
 			for (unsigned int iterator = 0; iterator < array->count; iterator++) {
 				Toy_pushStack(&subVM.stack, Toy_copyValue(&subVM.memoryBucket, array->data[iterator]));
 
-				fn->native.callback(&subVM); //NOTE: try not to leave anything on the stack afterwards
+				fn->native.callback(&subVM, &fn->native); //NOTE: try not to leave anything on the stack afterwards
 			}
 		}
 		break;
@@ -147,8 +153,10 @@ static void attr_arrayForEach(Toy_VM* vm) {
 	Toy_freeVM(&subVM);
 }
 
-static void attr_arraySort(Toy_VM* vm) {
+static void attr_arraySort(Toy_VM* vm, Toy_FunctionNative* self) {
 	(void)vm;
+	(void)self;
+
 	//URGENT: attr_arraySort
 }
 
@@ -180,7 +188,9 @@ Toy_Value Toy_private_handleArrayAttributes(Toy_VM* vm, Toy_Value compound, Toy_
 	}
 }
 
-static void attr_tableInsert(Toy_VM* vm) {
+static void attr_tableInsert(Toy_VM* vm, Toy_FunctionNative* self) {
+	(void)self;
+
 	Toy_Value compound = Toy_popStack(&vm->stack);
 	Toy_Value value = Toy_popStack(&vm->stack); //NOTE: the args are still backwards, except compound
 	Toy_Value key = Toy_popStack(&vm->stack);
@@ -202,7 +212,9 @@ static void attr_tableInsert(Toy_VM* vm) {
 	}
 }
 
-static void attr_tableHasKey(Toy_VM* vm) {
+static void attr_tableHasKey(Toy_VM* vm, Toy_FunctionNative* self) {
+	(void)self;
+
 	Toy_Value compound = Toy_popStack(&vm->stack);
 	Toy_Value key = Toy_popStack(&vm->stack);
 
@@ -214,7 +226,9 @@ static void attr_tableHasKey(Toy_VM* vm) {
 	Toy_pushStack(&vm->stack, result);
 }
 
-static void attr_tableRemove(Toy_VM* vm) {
+static void attr_tableRemove(Toy_VM* vm, Toy_FunctionNative* self) {
+	(void)self;
+
 	Toy_Value compound = Toy_popStack(&vm->stack);
 	Toy_Value key = Toy_popStack(&vm->stack);
 
@@ -223,8 +237,10 @@ static void attr_tableRemove(Toy_VM* vm) {
 	Toy_removeTable(&table, key);
 }
 
-static void attr_tableForEach(Toy_VM* vm) {
+static void attr_tableForEach(Toy_VM* vm, Toy_FunctionNative* self) {
 	(void)vm;
+	(void)self;
+
 	//URGENT: attr_tableForEach
 }
 

source/toy_function.c

@@ -16,6 +16,8 @@ Toy_Function* Toy_createFunctionFromCallback(Toy_Bucket** bucketHandle, Toy_nati
 
 	fn->type = TOY_FUNCTION_NATIVE;
 	fn->native.callback = callback;
+	fn->native.meta1 = 0; //BUGFIX: Workaround for native functions lacking access to a closure-like scope
+	fn->native.meta2 = 0;
 
 	return fn;
 }
@@ -23,15 +25,22 @@ Toy_Function* Toy_createFunctionFromCallback(Toy_Bucket** bucketHandle, Toy_nati
 Toy_Function* Toy_copyFunction(Toy_Bucket** bucketHandle, Toy_Function* original) {
 	Toy_Function* fn = (Toy_Function*)Toy_partitionBucket(bucketHandle, sizeof(Toy_Function));
 
-	if (original->type == TOY_FUNCTION_CUSTOM) {
-		fn->type = original->type;
-		fn->bytecode.code = original->bytecode.code;
-		fn->bytecode.parentScope = original->bytecode.parentScope;
-		Toy_private_incrementScopeRefCount(fn->bytecode.parentScope);
-	}
-	else if (fn->type == TOY_FUNCTION_NATIVE) {
-		fn->type = original->type;
-		fn->native.callback = original->native.callback;
+	switch(original->type) {
+		case TOY_FUNCTION_CUSTOM: {
+			fn->type = original->type;
+			fn->bytecode.code = original->bytecode.code;
+			fn->bytecode.parentScope = original->bytecode.parentScope;
+			Toy_private_incrementScopeRefCount(fn->bytecode.parentScope);
+		}
+		break;
+
+		case TOY_FUNCTION_NATIVE: {
+			fn->type = original->type;
+			fn->native.callback = original->native.callback;
+			fn->native.meta1 = original->native.meta1;
+			fn->native.meta2 = original->native.meta2;
+		}
+		break;
 	}
 
 	return fn;

source/toy_function.h

@@ -7,7 +7,9 @@
 
 //forward declare
 struct Toy_VM;
-typedef void (*Toy_nativeCallback)(struct Toy_VM*);
+struct Toy_FunctionNative;
+
+typedef void (*Toy_nativeCallback)(struct Toy_VM*, struct Toy_FunctionNative* self);
 
 typedef enum Toy_FunctionType {
 	TOY_FUNCTION_CUSTOM,
@@ -23,6 +25,8 @@ typedef struct Toy_FunctionBytecode {
 typedef struct Toy_FunctionNative {
 	Toy_FunctionType type;
 	Toy_nativeCallback callback;
+	int meta1;
+	int meta2;
 } Toy_FunctionNative;
 
 typedef union Toy_Function_t {

source/toy_vm.c

@@ -405,7 +405,7 @@ static void processInvoke(Toy_VM* vm) {
 
 		case TOY_FUNCTION_NATIVE: {
 			//NOTE: arguments are on the stack, leave results on the stack
-			fn->native.callback(vm);
+			fn->native.callback(vm, &fn->native);
 		}
 		break;