oreodave/alisp
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Basic template for a system context and constructors

Browse Source
This commit is contained in:
Aryadev Chavali
2025-08-20 00:00:33 +01:00
parent f8c2ec86ae
commit 0d6b0de88d
1 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
base.h
View File

@@ -97,6 +97,27 @@ typedef struct
void *data; void *data;
} lvec_t; } lvec_t;
/// System context - essentially something to help with system management
typedef struct
{
lisp_t *memory;
sym_table_t symtable;
} context_t;
void context_init(context_t *);
void context_cleanup(context_t *);
/// Constructors and destructors
lisp_t *make_int(i64 i);
lisp_t *intern(context_t *context, char *str);
lisp_t *cons(context_t *context, lisp_t *car, lisp_t *cdr);
lisp_t *make_vec(context_t *context, u64 capacity);
i64 as_int(lisp_t *);
char *as_sym(lisp_t *);
cons_t *as_cons(lisp_t *);
void *as_vec(lisp_t *);
/// Pointer tagging scheme for lisps /// Pointer tagging scheme for lisps
typedef enum Tag typedef enum Tag
@@ -137,9 +158,4 @@ lisp_t *tag_sym(char *str);
lisp_t *tag_cons(cons_t *cons); lisp_t *tag_cons(cons_t *cons);
lisp_t *tag_vec(lvec_t *lvec); lisp_t *tag_vec(lvec_t *lvec);
i64 as_int(lisp_t *);
char *as_sym(lisp_t *);
cons_t *as_cons(lisp_t *);
void *as_vec(lisp_t *);
#endif #endif