From f5dd8de68e70d6948005aa8bdcde1a9c80a6c0ea Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 23 Sep 2025 04:30:25 -0400 Subject: Add let --- src/main.c | 34 ---------------------------------- 1 file changed, 34 deletions(-) (limited to 'src/main.c') diff --git a/src/main.c b/src/main.c index c6bd833..215e485 100644 --- a/src/main.c +++ b/src/main.c @@ -5,45 +5,11 @@ #include "parser.h" #include "runtime.h" -pit_value test_print(pit_runtime *rt, pit_value args) { - pit_value x = pit_car(rt, args); - pit_trace(rt, x); - return x; -} - -pit_value test_if(pit_runtime *rt, pit_value args) { - pit_value cform = pit_car(rt, args); - pit_value tform = pit_car(rt, pit_cdr(rt, args)); - pit_value eform = pit_car(rt, pit_cdr(rt, pit_cdr(rt, args))); - pit_value c = pit_eval(rt, cform); - if (c != PIT_NIL) { - return pit_eval(rt, tform); - } else { - return pit_eval(rt, eform); - } -} - -pit_value test_add(pit_runtime *rt, pit_value args) { - i64 x = pit_as_integer(rt, pit_car(rt, args)); - i64 y = pit_as_integer(rt, pit_car(rt, pit_cdr(rt, args))); - return pit_integer_new(rt, x + y); -} - -pit_value test_sub(pit_runtime *rt, pit_value args) { - i64 x = pit_as_integer(rt, pit_car(rt, args)); - i64 y = pit_as_integer(rt, pit_car(rt, pit_cdr(rt, args))); - return pit_integer_new(rt, x - y); -} - int main(int argc, char **argv) { if (argc < 2) pit_panic("usage: %s FILE", argv[0]); pit_runtime *rt = pit_runtime_new(); pit_check_error_maybe_panic(rt); - pit_fset(rt, pit_intern_cstr(rt, "print"), pit_nativefunc_new(rt, test_print)); - pit_fset(rt, pit_intern_cstr(rt, "+"), pit_nativefunc_new(rt, test_add)); - pit_fset(rt, pit_intern_cstr(rt, "-"), pit_nativefunc_new(rt, test_sub)); - pit_mset(rt, pit_intern_cstr(rt, "if"), pit_nativefunc_new(rt, test_if)); pit_lexer *lex = pit_lex_file(argv[1]); -- cgit v1.2.3