src/alisp/alisp.c

44 static struct alisp_object * parse_object(struct alisp_instance *instance, int havetoken);
47 static struct alisp_object * eval(struct alisp_instance *instance, struct alisp_object * p);
50 static struct alisp_object *F_eval(struct alisp_instance *instance, struct alisp_object *);
51 static struct alisp_object *F_progn(struct alisp_instance *instance, struct alisp_object *);
52 static struct alisp_object *F_funcall(struct alisp_instance *instance, struct alisp_object *);
55 static int alisp_include_file(struct alisp_instance *instance, const char *filename);
76 static void lisp_verbose(struct alisp_instance *instance, const char *fmt, ...)
89 static void lisp_error(struct alisp_instance *instance, const char *fmt, ...)
102 static void lisp_warn(struct alisp_instance *instance, const char *fmt, ...)
115 static void lisp_debug(struct alisp_instance *instance, const char *fmt, ...)
128 static struct alisp_object * new_object(struct alisp_instance *instance, int type)
175 static void delete_object(struct alisp_instance *instance, struct alisp_object * p)
201 static void delete_tree(struct alisp_instance *instance, struct alisp_object * p)
212 static struct alisp_object * incref_object(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * p)
225 static struct alisp_object * incref_tree(struct alisp_instance *instance, struct alisp_object * p)
239 static struct alisp_object * incref_tree_explicit(struct alisp_instance *instance, struct alisp_object * p, struct alisp_object * e)
258 static void free_objects(struct alisp_instance *instance)
297 static struct alisp_object * search_object_identifier(struct alisp_instance *instance, const char *s)
313 static struct alisp_object * search_object_string(struct alisp_instance *instance, const char *s)
330 static struct alisp_object * search_object_integer(struct alisp_instance *instance, long in)
347 static struct alisp_object * search_object_float(struct alisp_instance *instance, double in)
364 static struct alisp_object * search_object_pointer(struct alisp_instance *instance, const void *ptr)
381 static struct alisp_object * new_integer(struct alisp_instance *instance, long value)
396 static struct alisp_object * new_float(struct alisp_instance *instance, double value)
411 static struct alisp_object * new_string(struct alisp_instance *instance, const char *str)
429 static struct alisp_object * new_identifier(struct alisp_instance *instance, const char *id)
447 static struct alisp_object * new_pointer(struct alisp_instance *instance, const void *ptr)
462 static struct alisp_object * new_cons_pointer(struct alisp_instance * instance, const char *ptr_id, void *ptr)
500 static int xgetc(struct alisp_instance *instance)
508 static inline void xungetc(struct alisp_instance *instance, int c)
514 static int init_lex(struct alisp_instance *instance)
526 static void done_lex(struct alisp_instance *instance)
531 static char * extend_buf(struct alisp_instance *instance, char *p)
545 static int gettoken(struct alisp_instance *instance)
693 static struct alisp_object * parse_form(struct alisp_instance *instance)
742 static struct alisp_object * quote_object(struct alisp_instance *instance, struct alisp_object * obj)
770 static inline struct alisp_object * parse_quote(struct alisp_instance *instance)
775 static struct alisp_object * parse_object(struct alisp_instance *instance, int havetoken)
827 static struct alisp_object_pair * set_object_direct(struct alisp_instance *instance, struct alisp_object * name, struct alisp_object * value)
849 static int check_set_object(struct alisp_instance * instance, struct alisp_object * name)
867 static struct alisp_object_pair * set_object(struct alisp_instance *instance, struct alisp_object * name, struct alisp_object * value)
903 static struct alisp_object * unset_object(struct alisp_instance *instance, struct alisp_object * name)
931 static struct alisp_object * get_object1(struct alisp_instance *instance, const char *id)
945 static struct alisp_object * get_object(struct alisp_instance *instance, struct alisp_object * name)
955 static struct alisp_object * replace_object(struct alisp_instance *instance, struct alisp_object * name, struct alisp_object * onew)
980 static void dump_objects(struct alisp_instance *instance, const char *fname)
1030 static void print_obj_lists(struct alisp_instance *instance, snd_output_t *out)
1055 static void dump_obj_lists(struct alisp_instance *instance, const char *fname)
1109 static struct alisp_object * F_car(struct alisp_instance *instance, struct alisp_object * args)
1124 static struct alisp_object * F_cdr(struct alisp_instance *instance, struct alisp_object * args)
1139 static struct alisp_object * F_add(struct alisp_instance *instance, struct alisp_object * args)
1177 static struct alisp_object * F_concat(struct alisp_instance *instance, struct alisp_object * args)
1218 static struct alisp_object * F_sub(struct alisp_instance *instance, struct alisp_object * args)
1264 static struct alisp_object * F_mul(struct alisp_instance *instance, struct alisp_object * args)
1300 static struct alisp_object * F_div(struct alisp_instance *instance, struct alisp_object * args)
1359 static struct alisp_object * F_mod(struct alisp_instance *instance, struct alisp_object * args)
1406 static struct alisp_object * F_lt(struct alisp_instance *instance, struct alisp_object * args)
1445 static struct alisp_object * F_gt(struct alisp_instance *instance, struct alisp_object * args)
1484 static struct alisp_object * F_le(struct alisp_instance *instance, struct alisp_object * args)
1523 static struct alisp_object * F_ge(struct alisp_instance *instance, struct alisp_object * args)
1562 static struct alisp_object * F_numeq(struct alisp_instance *instance, struct alisp_object * args)
1601 static struct alisp_object * F_numneq(struct alisp_instance *instance, struct alisp_object * args)
1615 static struct alisp_object * F_exfun(struct alisp_instance *instance, struct alisp_object * args)
1706 static struct alisp_object * F_princ(struct alisp_instance *instance, struct alisp_object * args)
1729 static struct alisp_object * F_atom(struct alisp_instance *instance, struct alisp_object * args)
1760 static struct alisp_object * F_cons(struct alisp_instance *instance, struct alisp_object * args)
1781 static struct alisp_object * F_list(struct alisp_instance *instance, struct alisp_object * args)
1849 static struct alisp_object * F_eq(struct alisp_instance *instance, struct alisp_object * args)
1872 static struct alisp_object * F_equal(struct alisp_instance *instance, struct alisp_object * args)
1895 static struct alisp_object * F_quote(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * args)
1907 static struct alisp_object * F_and(struct alisp_instance *instance, struct alisp_object * args)
1931 static struct alisp_object * F_or(struct alisp_instance *instance, struct alisp_object * args)
1955 static struct alisp_object * F_not(struct alisp_instance *instance, struct alisp_object * args)
1973 static struct alisp_object * F_cond(struct alisp_instance *instance, struct alisp_object * args)
2006 static struct alisp_object * F_if(struct alisp_instance *instance, struct alisp_object * args)
2031 static struct alisp_object * F_when(struct alisp_instance *instance, struct alisp_object * args)
2052 static struct alisp_object * F_unless(struct alisp_instance *instance, struct alisp_object * args)
2072 static struct alisp_object * F_while(struct alisp_instance *instance, struct alisp_object * args)
2097 static struct alisp_object * F_progn(struct alisp_instance *instance, struct alisp_object * args)
2116 static struct alisp_object * F_prog1(struct alisp_instance *instance, struct alisp_object * args)
2140 static struct alisp_object * F_prog2(struct alisp_instance *instance, struct alisp_object * args)
2166 static struct alisp_object * F_set(struct alisp_instance *instance, struct alisp_object * args)
2191 static struct alisp_object * F_unset(struct alisp_instance *instance, struct alisp_object * args)
2206 static struct alisp_object * F_setq(struct alisp_instance *instance, struct alisp_object * args)
2238 static struct alisp_object * F_unsetq(struct alisp_instance *instance, struct alisp_object * args)
2259 static struct alisp_object * F_defun(struct alisp_instance *instance, struct alisp_object * args)
2296 static struct alisp_object * eval_func(struct alisp_instance *instance, struct alisp_object * p, struct alisp_object * args)
2379 struct alisp_object * F_gc(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * args ATTRIBUTE_UNUSED)
2389 struct alisp_object * F_path(struct alisp_instance *instance, struct alisp_object * args)
2411 struct alisp_object * F_include(struct alisp_instance *instance, struct alisp_object * args)
2432 struct alisp_object * F_string_to_integer(struct alisp_instance *instance, struct alisp_object * args)
2454 struct alisp_object * F_string_to_float(struct alisp_instance *instance, struct alisp_object * args)
2494 static int format_parse_char(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p)
2506 static int format_parse_integer(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p)
2527 static int format_parse_float(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p)
2548 static int format_parse_string(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p)
2561 struct alisp_object * F_format(struct alisp_instance *instance, struct alisp_object * args)
2660 struct alisp_object * F_compare_strings(struct alisp_instance *instance, struct alisp_object * args)
2750 struct alisp_object * F_assoc(struct alisp_instance *instance, struct alisp_object * args)
2780 struct alisp_object * F_rassoc(struct alisp_instance *instance, struct alisp_object * args)
2810 struct alisp_object * F_assq(struct alisp_instance *instance, struct alisp_object * args)
2840 struct alisp_object * F_nth(struct alisp_instance *instance, struct alisp_object * args)
2877 struct alisp_object * F_rassq(struct alisp_instance *instance, struct alisp_object * args)
2904 static struct alisp_object * F_dump_memory(struct alisp_instance *instance, struct alisp_object * args)
2923 static struct alisp_object * F_stat_memory(struct alisp_instance *instance, struct alisp_object * args)
2937 static struct alisp_object * F_check_memory(struct alisp_instance *instance, struct alisp_object * args)
2948 static struct alisp_object * F_dump_objects(struct alisp_instance *instance, struct alisp_object * args)
2969 	struct alisp_object * (*func)(struct alisp_instance *instance, struct alisp_object * args);
3046 static inline struct alisp_object * eval_cons1(struct alisp_instance *instance, struct alisp_object * p1, struct alisp_object * p2)
3082 static struct alisp_object * F_funcall(struct alisp_instance *instance, struct alisp_object * args)
3099 static inline struct alisp_object * eval_cons(struct alisp_instance *instance, struct alisp_object * p)
3117 static struct alisp_object * eval(struct alisp_instance *instance, struct alisp_object * p)
3139 static struct alisp_object * F_eval(struct alisp_instance *instance, struct alisp_object * args)
3148 static int alisp_include_file(struct alisp_instance *instance, const char *filename)
3199 int alsa_lisp(struct alisp_cfg *cfg, struct alisp_instance **_instance)
3201 	struct alisp_instance *instance;
3205 	instance = (struct alisp_instance *)malloc(sizeof(struct alisp_instance));
3210 	memset(instance, 0, sizeof(struct alisp_instance));
3262 void alsa_lisp_free(struct alisp_instance *instance)
3307 int alsa_lisp_function(struct alisp_instance *instance, struct alisp_seq_iterator **result,
3424 void alsa_lisp_result_free(struct alisp_instance *instance,
3430 int alsa_lisp_seq_first(struct alisp_instance *instance, const char *id,