From 700c3b1d1b3ed835ffab3fd502ab91baba8e2d1f Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 1 Sep 2025 21:26:01 +0100 Subject: Move implementation files into their own folder main.c and test.c generate binary executables so they can stay in the main folder, but the rest can go into their own dedicated folder to make it look nicer --- constructor.c | 64 ----------------------------------------------------------- 1 file changed, 64 deletions(-) delete mode 100644 constructor.c (limited to 'constructor.c') diff --git a/constructor.c b/constructor.c deleted file mode 100644 index e0fab52..0000000 --- a/constructor.c +++ /dev/null @@ -1,64 +0,0 @@ -/* Copyright (C) 2025 Aryadev Chavali - - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS - * FOR A PARTICULAR PURPOSE. See the Unlicense for details. - - * You may distribute and modify this code under the terms of the Unlicense, - * which you should have received a copy of along with this program. If not, - * please go to . - - * Created: 2025-08-20 - * Description: Lisp constructors/destructors - */ - -#include - -#include "./alisp.h" - -lisp_t *make_int(i64 i) -{ - return tag_int(i); -} - -lisp_t *cons(sys_t *sys, lisp_t *car, lisp_t *cdr) -{ - cons_t *cons = calloc(1, sizeof(*cons)); - cons->car = car; - cons->cdr = cdr; - - lisp_t *lcons = tag_cons(cons); - sys_register(sys, lcons); - return lcons; -} - -lisp_t *make_vec(sys_t *sys, u64 capacity) -{ - vec_t *vec = calloc(1, sizeof(*vec)); - vec_init(vec, capacity); - lisp_t *ptr = tag_vec(vec); - sys_register(sys, ptr); - return ptr; -} - -lisp_t *intern(sys_t *sys, sv_t sv) -{ - char *str = sym_table_find(&sys->symtable, sv); - return tag_sym(str); -} - -lisp_t *car(lisp_t *lsp) -{ - if (!IS_TAG(lsp, CONS)) - return NIL; - else - return CAR(lsp); -} - -lisp_t *cdr(lisp_t *lsp) -{ - if (!IS_TAG(lsp, CONS)) - return NIL; - else - return CDR(lsp); -} -- cgit v1.2.3-13-gbd6f