#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;
}