83 lines
2.5 KiB
C
83 lines
2.5 KiB
C
#ifndef _MAIN_H
|
|
#define _MAIN_H
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <stdbool.h>
|
|
#include <string.h>
|
|
#include <math.h>
|
|
|
|
#include "dbg_malloc.h"
|
|
#include "lisp_types.h"
|
|
#include "lisp_string.h"
|
|
#include "parse.h"
|
|
#include "native_funs.h"
|
|
|
|
/* LISP_USE_ATOMS_ALIST:
|
|
* If enabled, atom names will be stored in atoms_alist.
|
|
* This assists debugging and reflection, but makes atom evaluation
|
|
* slightly slower and uses more memory. */
|
|
#define LISP_USE_ATOMS_ALIST
|
|
|
|
extern lisp_cons* syms_alist;
|
|
extern lisp_cons* funs_alist;
|
|
extern lisp_cons* atoms_alist;
|
|
|
|
bool lisp_is_nil(lisp_value value);
|
|
bool lisp_is_equal(lisp_value a, lisp_value b);
|
|
|
|
void lisp_cons_join(lisp_cons* head, lisp_cons* tail);
|
|
__attribute__((always_inline)) static inline lisp_cons* lisp_cons_pop(lisp_cons** head) {
|
|
lisp_cons* old_head = *head;
|
|
*head = old_head->cdr.value.cons;
|
|
return old_head;
|
|
}
|
|
|
|
#define LISP_FFLAG_RAWARG 0x1
|
|
#define LISP_FFLAG_EVALRES 0x2
|
|
#define LISP_FFLAG_EARLY 0x4
|
|
|
|
extern lisp_atom atom_t;
|
|
extern lisp_atom atom_quote;
|
|
|
|
extern lisp_atom atom_cons;
|
|
extern lisp_atom atom_atom;
|
|
extern lisp_atom atom_int;
|
|
extern lisp_atom atom_float;
|
|
extern lisp_atom atom_string;
|
|
extern lisp_atom atom_native_fun;
|
|
|
|
lisp_atom lisp_atomize(lisp_string* atom_lstr);
|
|
|
|
lisp_cons** lisp_alist_getptr(lisp_cons* alist, lisp_value key);
|
|
lisp_cons* lisp_alist_get(lisp_cons* alist, lisp_value key);
|
|
lisp_cons* lisp_alist_put(lisp_cons** alist, lisp_cons* pair);
|
|
lisp_cons* lisp_alist_del(lisp_cons** alist, lisp_value key);
|
|
|
|
void print_cons(lisp_cons* cons);
|
|
void print_value(lisp_value value);
|
|
|
|
lisp_cons* lisp_create_fundef(lisp_atom atom, long flags, lisp_value fun);
|
|
lisp_atom lisp_defun_native(lisp_string* lstr, lisp_native_fun funptr);
|
|
lisp_cons* lisp_defun(lisp_atom atom, lisp_cons* fun);
|
|
|
|
lisp_atom lisp_defun_special_native(lisp_string* lstr, long flags, lisp_native_fun funptr);
|
|
lisp_cons* lisp_defun_special(lisp_atom atom, long flags, lisp_cons* fun);
|
|
|
|
void lisp_evaluate_value(lisp_value input, lisp_value* result);
|
|
void lisp_evaluate(lisp_cons* cons, lisp_value* value);
|
|
extern lisp_atom atom_cond;
|
|
void lisp_sform_cond(lisp_cons* cons, lisp_value* value);
|
|
extern lisp_atom atom_let;
|
|
void lisp_sform_let(lisp_cons* cons, lisp_value* value);
|
|
extern lisp_atom atom_defun;
|
|
void lisp_sform_defun(lisp_cons* cons, lisp_value* value);
|
|
extern lisp_atom atom_defmacro;
|
|
void lisp_sform_defmacro(lisp_cons* cons, lisp_value* value);
|
|
|
|
lisp_cons* recursive_copy(lisp_cons* cons);
|
|
|
|
void lisp_evaluate_defun(lisp_cons* fun, lisp_cons* args, lisp_value* value);
|
|
|
|
#endif
|