-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathCallNode.c
35 lines (32 loc) · 857 Bytes
/
CallNode.c
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
#include "CallNode.h"
#include "Scope.h"
#include "Node.h"
#include "_String.h"
#include "_Object.h"
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
CallNode *CallNode_new(const char *function, int argc, Node *argv[]) {
CallNode *node = malloc(sizeof(CallNode));
node->node.type = CALL;
node->node.eval = &CallNode_eval;
strcpy(node->function, function);
node->argc = argc;
node->argv = argv;
return node;
}
void CallNode_delete(CallNode *node) {
free(node);
}
// TODO: allow functions other than print to be called..
_Object *CallNode_eval(Node *node, Scope *scope) {
CallNode *cNode = (CallNode *)node;
if(cNode->argc > 0) {
Node *arg1 = cNode->argv[0];
_Object *obj = (_Object *)arg1->eval(arg1, scope);
printf(obj->toString(obj)->val);
} else {
printf("ERROR: print() requires at least 1 argument.");
}
return NULL;
}