max/uclisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactor with new name uclisp

Browse Source
This commit is contained in:
Max Regan
2022-10-28 23:19:19 -04:00
parent 26a0d17074
commit d97be8ec4b
22 changed files with 596 additions and 580 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/main.c
View File

@@ -1,27 +1,27 @@
#include <assert.h>
#include <stdio.h>
#include "nihilispm.h"
#include "nihilispm_state.h"
#include "nihilispm_internal.h"
#include "nihilispm_utility.h"
#include "uclisp.h"
#include "state.h"
#include "internal.h"
#include "utility.h"
#include "builtins.h"
int main(int argc, const char **argv) {
(void) argc, (void) argv;
struct nl_state *state = nl_state_create();
struct ucl_state *state = ucl_state_create();
nl_state_put(state, "+", nl_builtin_create(nl_builtin_add));
nl_state_put(state, "-", nl_builtin_create(nl_builtin_sub));
nl_state_put(state, "*", nl_builtin_create(nl_builtin_mul));
nl_state_put(state, "/", nl_builtin_create(nl_builtin_div));
nl_state_put(state, "%", nl_builtin_create(nl_builtin_mod));
ucl_state_put(state, "+", ucl_builtin_create(ucl_builtin_add));
ucl_state_put(state, "-", ucl_builtin_create(ucl_builtin_sub));
ucl_state_put(state, "*", ucl_builtin_create(ucl_builtin_mul));
ucl_state_put(state, "/", ucl_builtin_create(ucl_builtin_div));
ucl_state_put(state, "%", ucl_builtin_create(ucl_builtin_mod));
struct nl_object *sexp = nl_parse(argv[1]);
struct nl_object *result = nl_evaluate(state, nl_car(sexp));
struct ucl_object *sexp = ucl_parse(argv[1]);
struct ucl_object *result = ucl_evaluate(state, ucl_car(sexp));
assert(result != NULL);
assert(result->type == NL_TYPE_INT);
assert(result->type == UCL_TYPE_INT);
printf("%d\n", result->integer);