1004 lines
30 KiB
C
1004 lines
30 KiB
C
#include "lib_compound.h"
|
|
|
|
#include "toy_memory.h"
|
|
|
|
#include <ctype.h>
|
|
#include <stdio.h>
|
|
|
|
static int nativeConcat(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
//no arguments
|
|
if (arguments->count != 2) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _concat\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the args
|
|
Toy_Literal otherLiteral = Toy_popLiteralArray(arguments);
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
//parse to value if needed
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
Toy_Literal otherLiteralIdn = otherLiteral;
|
|
if (TOY_IS_IDENTIFIER(otherLiteral) && Toy_parseIdentifierToValue(interpreter, &otherLiteral)) {
|
|
Toy_freeLiteral(otherLiteralIdn);
|
|
}
|
|
|
|
//for each self type
|
|
if (TOY_IS_ARRAY(selfLiteral)) {
|
|
if (!TOY_IS_ARRAY(otherLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _concat (unknown type for other)\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
Toy_freeLiteral(otherLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//append each element of other to self, one-by-one
|
|
for (int i = 0; i < TOY_AS_ARRAY(otherLiteral)->count; i++) {
|
|
Toy_pushLiteralArray(TOY_AS_ARRAY(selfLiteral), TOY_AS_ARRAY(otherLiteral)->literals[i]);
|
|
}
|
|
|
|
//return and clean up
|
|
Toy_pushLiteralArray(&interpreter->stack, selfLiteral);
|
|
|
|
Toy_freeLiteral(selfLiteral);
|
|
Toy_freeLiteral(otherLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
if (TOY_IS_DICTIONARY(selfLiteral)) {
|
|
if (!TOY_IS_DICTIONARY(otherLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _concat (unknown type for other)\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
Toy_freeLiteral(otherLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//append each element of self to other, which will overwrite existing entries
|
|
for (int i = 0; i < TOY_AS_DICTIONARY(selfLiteral)->capacity; i++) {
|
|
if (!TOY_IS_NULL(TOY_AS_DICTIONARY(selfLiteral)->entries[i].key)) {
|
|
Toy_setLiteralDictionary(TOY_AS_DICTIONARY(otherLiteral), TOY_AS_DICTIONARY(selfLiteral)->entries[i].key, TOY_AS_DICTIONARY(selfLiteral)->entries[i].value);
|
|
}
|
|
}
|
|
|
|
//return and clean up
|
|
Toy_pushLiteralArray(&interpreter->stack, otherLiteral);
|
|
|
|
Toy_freeLiteral(selfLiteral);
|
|
Toy_freeLiteral(otherLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
if (TOY_IS_STRING(selfLiteral)) { //a little redundant
|
|
if (!TOY_IS_STRING(otherLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _concat (unknown type for other)\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
Toy_freeLiteral(otherLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//get the combined length for the new string
|
|
int length = TOY_AS_STRING(selfLiteral)->length + TOY_AS_STRING(otherLiteral)->length + 1;
|
|
|
|
if (length > TOY_MAX_STRING_LENGTH) {
|
|
interpreter->errorOutput("Can't concatenate these strings, result is too long (error found in _concat)\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
Toy_freeLiteral(otherLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//allocate the space and generate
|
|
char* buffer = TOY_ALLOCATE(char, length);
|
|
snprintf(buffer, length, "%s%s", Toy_toCString(TOY_AS_STRING(selfLiteral)), Toy_toCString(TOY_AS_STRING(otherLiteral)));
|
|
|
|
Toy_Literal result = TOY_TO_STRING_LITERAL(Toy_createRefString(buffer));
|
|
|
|
//push and clean up
|
|
Toy_pushLiteralArray(&interpreter->stack, result);
|
|
|
|
TOY_FREE_ARRAY(char, buffer, length);
|
|
Toy_freeLiteral(selfLiteral);
|
|
Toy_freeLiteral(otherLiteral);
|
|
Toy_freeLiteral(result);
|
|
|
|
return 1;
|
|
}
|
|
|
|
interpreter->errorOutput("Incorrect argument type passed to _concat (unknown type for self)\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
Toy_freeLiteral(otherLiteral);
|
|
return -1;
|
|
}
|
|
|
|
static int nativeForEach(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
//no arguments
|
|
if (arguments->count != 2) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _forEach\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the args
|
|
Toy_Literal fnLiteral = Toy_popLiteralArray(arguments);
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
//parse to value if needed
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
Toy_Literal fnLiteralIdn = fnLiteral;
|
|
if (TOY_IS_IDENTIFIER(fnLiteral) && Toy_parseIdentifierToValue(interpreter, &fnLiteral)) {
|
|
Toy_freeLiteral(fnLiteralIdn);
|
|
}
|
|
|
|
//check type
|
|
if (!( TOY_IS_ARRAY(selfLiteral) || TOY_IS_DICTIONARY(selfLiteral) ) || !( TOY_IS_FUNCTION(fnLiteral) || TOY_IS_FUNCTION_NATIVE(fnLiteral) )) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _forEach\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//call the given function on each element, based on the compound type
|
|
if (TOY_IS_ARRAY(selfLiteral)) {
|
|
for (int i = 0; i < TOY_AS_ARRAY(selfLiteral)->count; i++) {
|
|
Toy_Literal indexLiteral = TOY_TO_INTEGER_LITERAL(i);
|
|
|
|
Toy_LiteralArray arguments;
|
|
Toy_initLiteralArray(&arguments);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_ARRAY(selfLiteral)->literals[i]);
|
|
Toy_pushLiteralArray(&arguments, indexLiteral);
|
|
|
|
Toy_LiteralArray returns;
|
|
Toy_initLiteralArray(&returns);
|
|
|
|
Toy_callLiteralFn(interpreter, fnLiteral, &arguments, &returns);
|
|
|
|
Toy_freeLiteralArray(&arguments);
|
|
Toy_freeLiteralArray(&returns);
|
|
Toy_freeLiteral(indexLiteral);
|
|
}
|
|
}
|
|
|
|
if (TOY_IS_DICTIONARY(selfLiteral)) {
|
|
for (int i = 0; i < TOY_AS_DICTIONARY(selfLiteral)->capacity; i++) {
|
|
//skip nulls
|
|
if (TOY_IS_NULL(TOY_AS_DICTIONARY(selfLiteral)->entries[i].key)) {
|
|
continue;
|
|
}
|
|
|
|
Toy_LiteralArray arguments;
|
|
Toy_initLiteralArray(&arguments);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_DICTIONARY(selfLiteral)->entries[i].value);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_DICTIONARY(selfLiteral)->entries[i].key);
|
|
|
|
Toy_LiteralArray returns;
|
|
Toy_initLiteralArray(&returns);
|
|
|
|
Toy_callLiteralFn(interpreter, fnLiteral, &arguments, &returns);
|
|
|
|
Toy_freeLiteralArray(&arguments);
|
|
Toy_freeLiteralArray(&returns);
|
|
}
|
|
}
|
|
|
|
Toy_freeLiteral(fnLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int nativeGetKeys(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
if (arguments->count != 1) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _getKeys\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the self
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
//parse to value if needed
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
//check type
|
|
if (!TOY_IS_DICTIONARY(selfLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _getKeys\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//generate the result literal
|
|
Toy_LiteralArray* resultPtr = TOY_ALLOCATE(Toy_LiteralArray, 1);
|
|
Toy_initLiteralArray(resultPtr);
|
|
|
|
//get each key from the dictionary, pass it to the array
|
|
for (int i = 0; i < TOY_AS_DICTIONARY(selfLiteral)->capacity; i++) {
|
|
if (!TOY_IS_NULL( TOY_AS_DICTIONARY(selfLiteral)->entries[i].key )) {
|
|
Toy_pushLiteralArray(resultPtr, TOY_AS_DICTIONARY(selfLiteral)->entries[i].key);
|
|
}
|
|
}
|
|
|
|
//return the result
|
|
Toy_Literal result = TOY_TO_ARRAY_LITERAL(resultPtr); //no copy
|
|
Toy_pushLiteralArray(&interpreter->stack, result); //internal copy
|
|
|
|
//clean up
|
|
Toy_freeLiteralArray(resultPtr);
|
|
TOY_FREE(Toy_LiteralArray, resultPtr);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static int nativeGetValues(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
if (arguments->count != 1) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _getValues\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the self
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
//parse to value if needed
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
//check type
|
|
if (!TOY_IS_DICTIONARY(selfLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _getValues\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//generate the result literal
|
|
Toy_LiteralArray* resultPtr = TOY_ALLOCATE(Toy_LiteralArray, 1);
|
|
Toy_initLiteralArray(resultPtr);
|
|
|
|
//get each key from the dictionary, pass it to the array
|
|
for (int i = 0; i < TOY_AS_DICTIONARY(selfLiteral)->capacity; i++) {
|
|
if (!TOY_IS_NULL( TOY_AS_DICTIONARY(selfLiteral)->entries[i].key )) {
|
|
Toy_pushLiteralArray(resultPtr, TOY_AS_DICTIONARY(selfLiteral)->entries[i].value);
|
|
}
|
|
}
|
|
|
|
//return the result
|
|
Toy_Literal result = TOY_TO_ARRAY_LITERAL(resultPtr); //no copy
|
|
Toy_pushLiteralArray(&interpreter->stack, result); //internal copy
|
|
|
|
//clean up
|
|
Toy_freeLiteralArray(resultPtr);
|
|
TOY_FREE(Toy_LiteralArray, resultPtr);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static int nativeMap(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
//no arguments
|
|
if (arguments->count != 2) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _map\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the args
|
|
Toy_Literal fnLiteral = Toy_popLiteralArray(arguments);
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
//parse to value if needed
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
Toy_Literal fnLiteralIdn = fnLiteral;
|
|
if (TOY_IS_IDENTIFIER(fnLiteral) && Toy_parseIdentifierToValue(interpreter, &fnLiteral)) {
|
|
Toy_freeLiteral(fnLiteralIdn);
|
|
}
|
|
|
|
//check type
|
|
if (!( TOY_IS_ARRAY(selfLiteral) || TOY_IS_DICTIONARY(selfLiteral) ) || !( TOY_IS_FUNCTION(fnLiteral) || TOY_IS_FUNCTION_NATIVE(fnLiteral) )) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _map\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//call the given function on each element, based on the compound type
|
|
if (TOY_IS_ARRAY(selfLiteral)) {
|
|
Toy_LiteralArray* returnsPtr = TOY_ALLOCATE(Toy_LiteralArray, 1);
|
|
Toy_initLiteralArray(returnsPtr);
|
|
|
|
for (int i = 0; i < TOY_AS_ARRAY(selfLiteral)->count; i++) {
|
|
Toy_Literal indexLiteral = TOY_TO_INTEGER_LITERAL(i);
|
|
|
|
Toy_LiteralArray arguments;
|
|
Toy_initLiteralArray(&arguments);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_ARRAY(selfLiteral)->literals[i]);
|
|
Toy_pushLiteralArray(&arguments, indexLiteral);
|
|
|
|
Toy_LiteralArray returns;
|
|
Toy_initLiteralArray(&returns);
|
|
|
|
Toy_callLiteralFn(interpreter, fnLiteral, &arguments, &returns);
|
|
|
|
//grab the results
|
|
Toy_Literal lit = Toy_popLiteralArray(&returns);
|
|
Toy_pushLiteralArray(returnsPtr, lit);
|
|
Toy_freeLiteral(lit);
|
|
|
|
Toy_freeLiteralArray(&arguments);
|
|
Toy_freeLiteralArray(&returns);
|
|
Toy_freeLiteral(indexLiteral);
|
|
}
|
|
|
|
Toy_Literal returnsLiteral = TOY_TO_ARRAY_LITERAL(returnsPtr);
|
|
Toy_pushLiteralArray(&interpreter->stack, returnsLiteral);
|
|
Toy_freeLiteral(returnsLiteral);
|
|
}
|
|
|
|
if (TOY_IS_DICTIONARY(selfLiteral)) {
|
|
Toy_LiteralArray* returnsPtr = TOY_ALLOCATE(Toy_LiteralArray, 1);
|
|
Toy_initLiteralArray(returnsPtr);
|
|
|
|
for (int i = 0; i < TOY_AS_DICTIONARY(selfLiteral)->capacity; i++) {
|
|
//skip nulls
|
|
if (TOY_IS_NULL(TOY_AS_DICTIONARY(selfLiteral)->entries[i].key)) {
|
|
continue;
|
|
}
|
|
|
|
Toy_LiteralArray arguments;
|
|
Toy_initLiteralArray(&arguments);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_DICTIONARY(selfLiteral)->entries[i].value);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_DICTIONARY(selfLiteral)->entries[i].key);
|
|
|
|
Toy_LiteralArray returns;
|
|
Toy_initLiteralArray(&returns);
|
|
|
|
Toy_callLiteralFn(interpreter, fnLiteral, &arguments, &returns);
|
|
|
|
//grab the results
|
|
Toy_Literal lit = Toy_popLiteralArray(&returns);
|
|
Toy_pushLiteralArray(returnsPtr, lit);
|
|
Toy_freeLiteral(lit);
|
|
|
|
Toy_freeLiteralArray(&arguments);
|
|
Toy_freeLiteralArray(&returns);
|
|
}
|
|
|
|
Toy_Literal returnsLiteral = TOY_TO_ARRAY_LITERAL(returnsPtr);
|
|
Toy_pushLiteralArray(&interpreter->stack, returnsLiteral);
|
|
Toy_freeLiteral(returnsLiteral);
|
|
}
|
|
|
|
Toy_freeLiteral(fnLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int nativeReduce(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
//no arguments
|
|
if (arguments->count != 3) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _reduce\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the args
|
|
Toy_Literal fnLiteral = Toy_popLiteralArray(arguments);
|
|
Toy_Literal defaultLiteral = Toy_popLiteralArray(arguments);
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
//parse to value if needed
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
Toy_Literal defaultLiteralIdn = defaultLiteral;
|
|
if (TOY_IS_IDENTIFIER(defaultLiteral) && Toy_parseIdentifierToValue(interpreter, &defaultLiteral)) {
|
|
Toy_freeLiteral(defaultLiteralIdn);
|
|
}
|
|
|
|
Toy_Literal fnLiteralIdn = fnLiteral;
|
|
if (TOY_IS_IDENTIFIER(fnLiteral) && Toy_parseIdentifierToValue(interpreter, &fnLiteral)) {
|
|
Toy_freeLiteral(fnLiteralIdn);
|
|
}
|
|
|
|
//check type
|
|
if (!( TOY_IS_ARRAY(selfLiteral) || TOY_IS_DICTIONARY(selfLiteral) ) || !( TOY_IS_FUNCTION(fnLiteral) || TOY_IS_FUNCTION_NATIVE(fnLiteral) )) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _reduce\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//call the given function on each element, based on the compound type
|
|
if (TOY_IS_ARRAY(selfLiteral)) {
|
|
for (int i = 0; i < TOY_AS_ARRAY(selfLiteral)->count; i++) {
|
|
Toy_Literal indexLiteral = TOY_TO_INTEGER_LITERAL(i);
|
|
|
|
Toy_LiteralArray arguments;
|
|
Toy_initLiteralArray(&arguments);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_ARRAY(selfLiteral)->literals[i]);
|
|
Toy_pushLiteralArray(&arguments, indexLiteral);
|
|
Toy_pushLiteralArray(&arguments, defaultLiteral);
|
|
|
|
Toy_LiteralArray returns;
|
|
Toy_initLiteralArray(&returns);
|
|
|
|
Toy_callLiteralFn(interpreter, fnLiteral, &arguments, &returns);
|
|
|
|
//grab the results
|
|
Toy_freeLiteral(defaultLiteral);
|
|
defaultLiteral = Toy_popLiteralArray(&returns);
|
|
|
|
Toy_freeLiteralArray(&arguments);
|
|
Toy_freeLiteralArray(&returns);
|
|
Toy_freeLiteral(indexLiteral);
|
|
}
|
|
|
|
Toy_pushLiteralArray(&interpreter->stack, defaultLiteral);
|
|
}
|
|
|
|
if (TOY_IS_DICTIONARY(selfLiteral)) {
|
|
for (int i = 0; i < TOY_AS_DICTIONARY(selfLiteral)->capacity; i++) {
|
|
//skip nulls
|
|
if (TOY_IS_NULL(TOY_AS_DICTIONARY(selfLiteral)->entries[i].key)) {
|
|
continue;
|
|
}
|
|
|
|
Toy_LiteralArray arguments;
|
|
Toy_initLiteralArray(&arguments);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_DICTIONARY(selfLiteral)->entries[i].value);
|
|
Toy_pushLiteralArray(&arguments, TOY_AS_DICTIONARY(selfLiteral)->entries[i].key);
|
|
Toy_pushLiteralArray(&arguments, defaultLiteral);
|
|
|
|
Toy_LiteralArray returns;
|
|
Toy_initLiteralArray(&returns);
|
|
|
|
Toy_callLiteralFn(interpreter, fnLiteral, &arguments, &returns);
|
|
|
|
//grab the results
|
|
Toy_freeLiteral(defaultLiteral);
|
|
defaultLiteral = Toy_popLiteralArray(&returns);
|
|
|
|
Toy_freeLiteralArray(&arguments);
|
|
Toy_freeLiteralArray(&returns);
|
|
}
|
|
|
|
Toy_pushLiteralArray(&interpreter->stack, defaultLiteral);
|
|
}
|
|
|
|
Toy_freeLiteral(fnLiteral);
|
|
Toy_freeLiteral(defaultLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int nativeToLower(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
//no arguments
|
|
if (arguments->count != 1) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _toLower\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the argument to a C-string
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
if (!TOY_IS_STRING(selfLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _toLower\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
Toy_RefString* selfRefString = TOY_AS_STRING(selfLiteral);
|
|
const char* self = Toy_toCString(selfRefString);
|
|
|
|
//allocate buffer space for the result
|
|
char* result = TOY_ALLOCATE(char, Toy_lengthRefString(selfRefString) + 1);
|
|
|
|
//set each new character
|
|
for (int i = 0; i < (int)Toy_lengthRefString(selfRefString); i++) {
|
|
result[i] = tolower(self[i]);
|
|
}
|
|
result[Toy_lengthRefString(selfRefString)] = '\0'; //end the string
|
|
|
|
//wrap up and push the new result onto the stack
|
|
Toy_RefString* resultRefString = Toy_createRefStringLength(result, Toy_lengthRefString(selfRefString)); //internal copy
|
|
Toy_Literal resultLiteral = TOY_TO_STRING_LITERAL(resultRefString); //NO copy
|
|
|
|
Toy_pushLiteralArray(&interpreter->stack, resultLiteral); //internal copy
|
|
|
|
//cleanup
|
|
TOY_FREE_ARRAY(char, result, Toy_lengthRefString(resultRefString) + 1);
|
|
Toy_freeLiteral(resultLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static char* toStringUtilObject = NULL;
|
|
static void toStringUtil(const char* input) {
|
|
size_t len = strlen(input) + 1;
|
|
|
|
if (len > TOY_MAX_STRING_LENGTH) {
|
|
len = TOY_MAX_STRING_LENGTH; //TODO: don't truncate
|
|
}
|
|
|
|
toStringUtilObject = TOY_ALLOCATE(char, len);
|
|
|
|
snprintf(toStringUtilObject, len, "%s", input);
|
|
}
|
|
|
|
static int nativeToString(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
//no arguments
|
|
if (arguments->count != 1) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _toString\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the argument
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
//parse to a value
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
//BUGFIX: probably an undefined variable
|
|
if (TOY_IS_IDENTIFIER(selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//print it to a custom function
|
|
Toy_printLiteralCustom(selfLiteral, toStringUtil);
|
|
|
|
//create the resulting string and push it
|
|
Toy_Literal result = TOY_TO_STRING_LITERAL(Toy_createRefString(toStringUtilObject)); //internal copy
|
|
|
|
Toy_pushLiteralArray(&interpreter->stack, result);
|
|
|
|
//cleanup
|
|
TOY_FREE_ARRAY(char, toStringUtilObject, Toy_lengthRefString( TOY_AS_STRING(result) ) + 1);
|
|
toStringUtilObject = NULL;
|
|
|
|
Toy_freeLiteral(result);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static int nativeToUpper(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
//no arguments
|
|
if (arguments->count != 1) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _toUpper\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the argument to a C-string
|
|
Toy_Literal selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
if (!TOY_IS_STRING(selfLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _toUpper\n");
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
Toy_RefString* selfRefString = TOY_AS_STRING(selfLiteral);
|
|
const char* self = Toy_toCString(selfRefString);
|
|
|
|
//allocate buffer space for the result
|
|
char* result = TOY_ALLOCATE(char, Toy_lengthRefString(selfRefString) + 1);
|
|
|
|
//set each new character
|
|
for (int i = 0; i < (int)Toy_lengthRefString(selfRefString); i++) {
|
|
result[i] = toupper(self[i]);
|
|
}
|
|
result[Toy_lengthRefString(selfRefString)] = '\0'; //end the string
|
|
|
|
//wrap up and push the new result onto the stack
|
|
Toy_RefString* resultRefString = Toy_createRefStringLength(result, Toy_lengthRefString(selfRefString)); //internal copy
|
|
Toy_Literal resultLiteral = TOY_TO_STRING_LITERAL(resultRefString); //NO copy
|
|
|
|
Toy_pushLiteralArray(&interpreter->stack, resultLiteral); //internal copy
|
|
|
|
//cleanup
|
|
TOY_FREE_ARRAY(char, result, Toy_lengthRefString(resultRefString) + 1);
|
|
Toy_freeLiteral(resultLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static int nativeTrim(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
if (arguments->count < 1 || arguments->count > 2) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _trim\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the arguments
|
|
Toy_Literal trimCharsLiteral;
|
|
Toy_Literal selfLiteral;
|
|
|
|
if (arguments->count == 2) {
|
|
trimCharsLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
Toy_Literal trimCharsLiteralIdn = trimCharsLiteral;
|
|
if (TOY_IS_IDENTIFIER(trimCharsLiteral) && Toy_parseIdentifierToValue(interpreter, &trimCharsLiteral)) {
|
|
Toy_freeLiteral(trimCharsLiteralIdn);
|
|
}
|
|
}
|
|
else {
|
|
trimCharsLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(" \t\n\r"));
|
|
}
|
|
selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
if (!TOY_IS_STRING(selfLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _trim\n");
|
|
Toy_freeLiteral(trimCharsLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//unwrap the arguments
|
|
Toy_RefString* trimCharsRefString = TOY_AS_STRING(trimCharsLiteral);
|
|
Toy_RefString* selfRefString = TOY_AS_STRING(selfLiteral);
|
|
|
|
//allocate space for the new string
|
|
int bufferBegin = 0;
|
|
int bufferEnd = Toy_lengthRefString(selfRefString);
|
|
|
|
//for each character in self, check it against each character in trimChars - on a fail, go to end
|
|
for (int i = 0; i < (int)Toy_lengthRefString(selfRefString); i++) {
|
|
int trimIndex = 0;
|
|
|
|
while (trimIndex < (int)Toy_lengthRefString(trimCharsRefString)) {
|
|
//there is a match - DON'T increment anymore
|
|
if (Toy_toCString(selfRefString)[i] == Toy_toCString(trimCharsRefString)[trimIndex]) {
|
|
break;
|
|
}
|
|
|
|
trimIndex++;
|
|
}
|
|
|
|
//if the match is found, increment buffer begin
|
|
if (trimIndex < (int)Toy_lengthRefString(trimCharsRefString)) {
|
|
bufferBegin++;
|
|
continue;
|
|
}
|
|
else {
|
|
break;
|
|
}
|
|
}
|
|
|
|
//again, from the back
|
|
for (int i = Toy_lengthRefString(selfRefString); i >= 0; i--) {
|
|
int trimIndex = 0;
|
|
|
|
while (trimIndex < (int)Toy_lengthRefString(trimCharsRefString)) {
|
|
//there is a match - DON'T increment anymore
|
|
if (Toy_toCString(selfRefString)[i-1] == Toy_toCString(trimCharsRefString)[trimIndex]) {
|
|
break;
|
|
}
|
|
|
|
trimIndex++;
|
|
}
|
|
|
|
//if the match is found, increment buffer begin
|
|
if (trimIndex < (int)Toy_lengthRefString(trimCharsRefString)) {
|
|
bufferEnd--;
|
|
continue;
|
|
}
|
|
else {
|
|
break;
|
|
}
|
|
}
|
|
|
|
//generate the result
|
|
Toy_Literal resultLiteral;
|
|
if (bufferBegin >= bufferEnd) { //catch errors
|
|
resultLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(""));
|
|
}
|
|
else {
|
|
char buffer[TOY_MAX_STRING_LENGTH];
|
|
snprintf(buffer, bufferEnd - bufferBegin + 1, "%s", &Toy_toCString(selfRefString)[ bufferBegin ]);
|
|
resultLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(buffer)); //internal copy
|
|
}
|
|
|
|
//wrap up the buffer and return it
|
|
Toy_pushLiteralArray(&interpreter->stack, resultLiteral); //internal copy
|
|
|
|
//cleanup
|
|
Toy_freeLiteral(resultLiteral);
|
|
Toy_freeLiteral(trimCharsLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static int nativeTrimBegin(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
if (arguments->count < 1 || arguments->count > 2) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _trimBegin\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the arguments
|
|
Toy_Literal trimCharsLiteral;
|
|
Toy_Literal selfLiteral;
|
|
|
|
if (arguments->count == 2) {
|
|
trimCharsLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
Toy_Literal trimCharsLiteralIdn = trimCharsLiteral;
|
|
if (TOY_IS_IDENTIFIER(trimCharsLiteral) && Toy_parseIdentifierToValue(interpreter, &trimCharsLiteral)) {
|
|
Toy_freeLiteral(trimCharsLiteralIdn);
|
|
}
|
|
}
|
|
else {
|
|
trimCharsLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(" \t\n\r"));
|
|
}
|
|
selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
if (!TOY_IS_STRING(selfLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _trimBegin\n");
|
|
Toy_freeLiteral(trimCharsLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//unwrap the arguments
|
|
Toy_RefString* trimCharsRefString = TOY_AS_STRING(trimCharsLiteral);
|
|
Toy_RefString* selfRefString = TOY_AS_STRING(selfLiteral);
|
|
|
|
//allocate space for the new string
|
|
int bufferBegin = 0;
|
|
int bufferEnd = Toy_lengthRefString(selfRefString);
|
|
|
|
//for each character in self, check it against each character in trimChars - on a fail, go to end
|
|
for (int i = 0; i < (int)Toy_lengthRefString(selfRefString); i++) {
|
|
int trimIndex = 0;
|
|
|
|
while (trimIndex < (int)Toy_lengthRefString(trimCharsRefString)) {
|
|
//there is a match - DON'T increment anymore
|
|
if (Toy_toCString(selfRefString)[i] == Toy_toCString(trimCharsRefString)[trimIndex]) {
|
|
break;
|
|
}
|
|
|
|
trimIndex++;
|
|
}
|
|
|
|
//if the match is found, increment buffer begin
|
|
if (trimIndex < (int)Toy_lengthRefString(trimCharsRefString)) {
|
|
bufferBegin++;
|
|
continue;
|
|
}
|
|
else {
|
|
break;
|
|
}
|
|
}
|
|
|
|
//generate the result
|
|
Toy_Literal resultLiteral;
|
|
if (bufferBegin >= bufferEnd) { //catch errors
|
|
resultLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(""));
|
|
}
|
|
else {
|
|
char buffer[TOY_MAX_STRING_LENGTH];
|
|
snprintf(buffer, bufferEnd - bufferBegin + 1, "%s", &Toy_toCString(selfRefString)[ bufferBegin ]);
|
|
resultLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(buffer)); //internal copy
|
|
}
|
|
|
|
//wrap up the buffer and return it
|
|
Toy_pushLiteralArray(&interpreter->stack, resultLiteral); //internal copy
|
|
|
|
//cleanup
|
|
Toy_freeLiteral(resultLiteral);
|
|
Toy_freeLiteral(trimCharsLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static int nativeTrimEnd(Toy_Interpreter* interpreter, Toy_LiteralArray* arguments) {
|
|
if (arguments->count < 1 || arguments->count > 2) {
|
|
interpreter->errorOutput("Incorrect number of arguments to _trimEnd\n");
|
|
return -1;
|
|
}
|
|
|
|
//get the arguments
|
|
Toy_Literal trimCharsLiteral;
|
|
Toy_Literal selfLiteral;
|
|
|
|
if (arguments->count == 2) {
|
|
trimCharsLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
Toy_Literal trimCharsLiteralIdn = trimCharsLiteral;
|
|
if (TOY_IS_IDENTIFIER(trimCharsLiteral) && Toy_parseIdentifierToValue(interpreter, &trimCharsLiteral)) {
|
|
Toy_freeLiteral(trimCharsLiteralIdn);
|
|
}
|
|
}
|
|
else {
|
|
trimCharsLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(" \t\n\r"));
|
|
}
|
|
selfLiteral = Toy_popLiteralArray(arguments);
|
|
|
|
Toy_Literal selfLiteralIdn = selfLiteral;
|
|
if (TOY_IS_IDENTIFIER(selfLiteral) && Toy_parseIdentifierToValue(interpreter, &selfLiteral)) {
|
|
Toy_freeLiteral(selfLiteralIdn);
|
|
}
|
|
|
|
if (!TOY_IS_STRING(selfLiteral)) {
|
|
interpreter->errorOutput("Incorrect argument type passed to _trimEnd\n");
|
|
Toy_freeLiteral(trimCharsLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
return -1;
|
|
}
|
|
|
|
//unwrap the arguments
|
|
Toy_RefString* trimCharsRefString = TOY_AS_STRING(trimCharsLiteral);
|
|
Toy_RefString* selfRefString = TOY_AS_STRING(selfLiteral);
|
|
|
|
//allocate space for the new string
|
|
int bufferBegin = 0;
|
|
int bufferEnd = Toy_lengthRefString(selfRefString);
|
|
|
|
//again, from the back
|
|
for (int i = (int)Toy_lengthRefString(selfRefString); i >= 0; i--) {
|
|
int trimIndex = 0;
|
|
|
|
while (trimIndex < (int)Toy_lengthRefString(trimCharsRefString)) {
|
|
//there is a match - DON'T increment anymore
|
|
if (Toy_toCString(selfRefString)[i-1] == Toy_toCString(trimCharsRefString)[trimIndex]) {
|
|
break;
|
|
}
|
|
|
|
trimIndex++;
|
|
}
|
|
|
|
//if the match is found, increment buffer begin
|
|
if (trimIndex < (int)Toy_lengthRefString(trimCharsRefString)) {
|
|
bufferEnd--;
|
|
continue;
|
|
}
|
|
else {
|
|
break;
|
|
}
|
|
}
|
|
|
|
//generate the result
|
|
Toy_Literal resultLiteral;
|
|
if (bufferBegin >= bufferEnd) { //catch errors
|
|
resultLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(""));
|
|
}
|
|
else {
|
|
char buffer[TOY_MAX_STRING_LENGTH];
|
|
snprintf(buffer, bufferEnd - bufferBegin + 1, "%s", &Toy_toCString(selfRefString)[ bufferBegin ]);
|
|
resultLiteral = TOY_TO_STRING_LITERAL(Toy_createRefString(buffer)); //internal copy
|
|
}
|
|
|
|
//wrap up the buffer and return it
|
|
Toy_pushLiteralArray(&interpreter->stack, resultLiteral); //internal copy
|
|
|
|
//cleanup
|
|
Toy_freeLiteral(resultLiteral);
|
|
Toy_freeLiteral(trimCharsLiteral);
|
|
Toy_freeLiteral(selfLiteral);
|
|
|
|
return 1;
|
|
}
|
|
|
|
//call the hook
|
|
typedef struct Natives {
|
|
char* name;
|
|
Toy_NativeFn fn;
|
|
} Natives;
|
|
|
|
int Toy_hookCompound(Toy_Interpreter* interpreter, Toy_Literal identifier, Toy_Literal alias) {
|
|
//build the natives list
|
|
Natives natives[] = {
|
|
{"_concat", nativeConcat}, //array, dictionary, string
|
|
// {"_containsKey", native}, //dictionary
|
|
// {"_containsValue", native}, //array, dictionary
|
|
// {"_every", native}, //array, dictionary, string
|
|
// {"_filter", native}, //array, dictionary
|
|
{"_forEach", nativeForEach}, //array, dictionary
|
|
{"_getKeys", nativeGetKeys}, //dictionary
|
|
{"_getValues", nativeGetValues}, //dictionary
|
|
// {"_indexOf", native}, //array, string
|
|
// {"_insert", native}, //array, dictionary, string
|
|
{"_map", nativeMap}, //array, dictionary
|
|
{"_reduce", nativeReduce}, //array, dictionary
|
|
// {"_remove", native}, //array, dictionary
|
|
// {"_replace", native}, //string
|
|
// {"_some", native}, //array, dictionary, string
|
|
// {"_sort", native}, //array
|
|
{"_toLower", nativeToLower}, //string
|
|
{"_toString", nativeToString}, //array, dictionary
|
|
{"_toUpper", nativeToUpper}, //string
|
|
{"_trim", nativeTrim}, //string
|
|
{"_trimBegin", nativeTrimBegin}, //string
|
|
{"_trimEnd", nativeTrimEnd}, //string
|
|
{NULL, NULL}
|
|
};
|
|
|
|
//store the library in an aliased dictionary
|
|
if (!TOY_IS_NULL(alias)) {
|
|
//make sure the name isn't taken
|
|
if (Toy_isDelcaredScopeVariable(interpreter->scope, alias)) {
|
|
interpreter->errorOutput("Can't override an existing variable\n");
|
|
Toy_freeLiteral(alias);
|
|
return -1;
|
|
}
|
|
|
|
//create the dictionary to load up with functions
|
|
Toy_LiteralDictionary* dictionary = TOY_ALLOCATE(Toy_LiteralDictionary, 1);
|
|
Toy_initLiteralDictionary(dictionary);
|
|
|
|
//load the dict with functions
|
|
for (int i = 0; natives[i].name; i++) {
|
|
Toy_Literal name = TOY_TO_STRING_LITERAL(Toy_createRefString(natives[i].name));
|
|
Toy_Literal func = TOY_TO_FUNCTION_NATIVE_LITERAL(natives[i].fn);
|
|
|
|
Toy_setLiteralDictionary(dictionary, name, func);
|
|
|
|
Toy_freeLiteral(name);
|
|
Toy_freeLiteral(func);
|
|
}
|
|
|
|
//build the type
|
|
Toy_Literal type = TOY_TO_TYPE_LITERAL(TOY_LITERAL_DICTIONARY, true);
|
|
Toy_Literal strType = TOY_TO_TYPE_LITERAL(TOY_LITERAL_STRING, true);
|
|
Toy_Literal fnType = TOY_TO_TYPE_LITERAL(TOY_LITERAL_FUNCTION_NATIVE, true);
|
|
TOY_TYPE_PUSH_SUBTYPE(&type, strType);
|
|
TOY_TYPE_PUSH_SUBTYPE(&type, fnType);
|
|
|
|
//set scope
|
|
Toy_Literal dict = TOY_TO_DICTIONARY_LITERAL(dictionary);
|
|
Toy_declareScopeVariable(interpreter->scope, alias, type);
|
|
Toy_setScopeVariable(interpreter->scope, alias, dict, false);
|
|
|
|
//cleanup
|
|
Toy_freeLiteral(dict);
|
|
Toy_freeLiteral(type);
|
|
return 0;
|
|
}
|
|
|
|
//default
|
|
for (int i = 0; natives[i].name; i++) {
|
|
Toy_injectNativeFn(interpreter, natives[i].name, natives[i].fn);
|
|
}
|
|
|
|
return 0;
|
|
}
|