38 lines
898 B
C
38 lines
898 B
C
#include "lisp.h"
|
|
|
|
Node *lisp_function_addition(Nodes *args, Scopes *scopes) {
|
|
(void)(scopes);
|
|
|
|
if (args->count != 2) {
|
|
printf("'+' expects two arguments!\n");
|
|
return NULL;
|
|
}
|
|
|
|
if (args->items[0].kind != NODE_KIND_NUMBER ||
|
|
args->items[1].kind != NODE_KIND_NUMBER) {
|
|
printf("'+' can only add numbers, you specified something else!\n");
|
|
return NULL;
|
|
}
|
|
|
|
Node *node = malloc(sizeof(Node));
|
|
node->kind = NODE_KIND_NUMBER;
|
|
|
|
intptr_t a = args->items[0].as_number;
|
|
intptr_t b = args->items[1].as_number;
|
|
node->as_number = a + b;
|
|
return node;
|
|
}
|
|
|
|
Node *lisp_function_println(Nodes *args, Scopes *scopes) {
|
|
if (args->count != 1) {
|
|
printf("'+' expects one argument!\n");
|
|
return NULL;
|
|
}
|
|
|
|
Node *result = eval(&args->items[0], scopes);
|
|
node_print(*result);
|
|
printf("\n");
|
|
|
|
return result;
|
|
}
|