Lines Matching refs:alisp_object
34 #define alisp_seq_iterator alisp_object
40 struct alisp_object alsa_lisp_nil;
41 struct alisp_object alsa_lisp_t;
44 static struct alisp_object * parse_object(struct alisp_instance *instance, int havetoken);
45 static void princ_cons(snd_output_t *out, struct alisp_object * p);
46 static void princ_object(snd_output_t *out, struct alisp_object * p);
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 *);
128 static struct alisp_object * new_object(struct alisp_instance *instance, int type) in new_object()
130 struct alisp_object * p; in new_object()
133 p = (struct alisp_object *)malloc(sizeof(struct alisp_object)); in new_object()
140 p = (struct alisp_object *)instance->free_objs_list.next; in new_object()
162 static void free_object(struct alisp_object * p) in free_object()
175 static void delete_object(struct alisp_instance *instance, struct alisp_object * p) in delete_object()
201 static void delete_tree(struct alisp_instance *instance, struct alisp_object * p) in delete_tree()
212 static struct alisp_object * incref_object(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct… in incref_object()
225 static struct alisp_object * incref_tree(struct alisp_instance *instance, struct alisp_object * p) in incref_tree()
239 static struct alisp_object * incref_tree_explicit(struct alisp_instance *instance, struct alisp_obj…
261 struct alisp_object * p; in free_objects()
277 p = list_entry(pos, struct alisp_object, list); in free_objects()
290 p = list_entry(pos, struct alisp_object, list); in free_objects()
297 static struct alisp_object * search_object_identifier(struct alisp_instance *instance, const char *… in search_object_identifier()
300 struct alisp_object * p; in search_object_identifier()
303 p = list_entry(pos, struct alisp_object, list); in search_object_identifier()
313 static struct alisp_object * search_object_string(struct alisp_instance *instance, const char *s) in search_object_string()
316 struct alisp_object * p; in search_object_string()
319 p = list_entry(pos, struct alisp_object, list); in search_object_string()
330 static struct alisp_object * search_object_integer(struct alisp_instance *instance, long in) in search_object_integer()
333 struct alisp_object * p; in search_object_integer()
336 p = list_entry(pos, struct alisp_object, list); in search_object_integer()
347 static struct alisp_object * search_object_float(struct alisp_instance *instance, double in) in search_object_float()
350 struct alisp_object * p; in search_object_float()
353 p = list_entry(pos, struct alisp_object, list); in search_object_float()
364 static struct alisp_object * search_object_pointer(struct alisp_instance *instance, const void *ptr) in search_object_pointer()
367 struct alisp_object * p; in search_object_pointer()
370 p = list_entry(pos, struct alisp_object, list); in search_object_pointer()
381 static struct alisp_object * new_integer(struct alisp_instance *instance, long value) in new_integer()
383 struct alisp_object * obj; in new_integer()
396 static struct alisp_object * new_float(struct alisp_instance *instance, double value) in new_float()
398 struct alisp_object * obj; in new_float()
411 static struct alisp_object * new_string(struct alisp_instance *instance, const char *str) in new_string()
413 struct alisp_object * obj; in new_string()
429 static struct alisp_object * new_identifier(struct alisp_instance *instance, const char *id) in new_identifier()
431 struct alisp_object * obj; in new_identifier()
447 static struct alisp_object * new_pointer(struct alisp_instance *instance, const void *ptr) in new_pointer()
449 struct alisp_object * obj; in new_pointer()
462 static struct alisp_object * new_cons_pointer(struct alisp_instance * instance, const char *ptr_id,… in new_cons_pointer()
464 struct alisp_object * lexpr; in new_cons_pointer()
693 static struct alisp_object * parse_form(struct alisp_instance *instance) in parse_form()
696 struct alisp_object * p, * first = NULL, * prev = NULL; in parse_form()
742 static struct alisp_object * quote_object(struct alisp_instance *instance, struct alisp_object * ob… in quote_object()
744 struct alisp_object * p; in quote_object()
770 static inline struct alisp_object * parse_quote(struct alisp_instance *instance) in parse_quote()
775 static struct alisp_object * parse_object(struct alisp_instance *instance, int havetoken) in parse_object()
778 struct alisp_object * p = NULL; in parse_object()
827 …t_object_direct(struct alisp_instance *instance, struct alisp_object * name, struct alisp_object *… in set_object_direct()
849 static int check_set_object(struct alisp_instance * instance, struct alisp_object * name) in check_set_object()
867 …ir * set_object(struct alisp_instance *instance, struct alisp_object * name, struct alisp_object *… in set_object()
903 static struct alisp_object * unset_object(struct alisp_instance *instance, struct alisp_object * na… in unset_object()
906 struct alisp_object *res; in unset_object()
931 static struct alisp_object * get_object1(struct alisp_instance *instance, const char *id) in get_object1()
945 static struct alisp_object * get_object(struct alisp_instance *instance, struct alisp_object * name) in get_object()
955 static struct alisp_object * replace_object(struct alisp_instance *instance, struct alisp_object * … in replace_object()
958 struct alisp_object *r; in replace_object()
1015 static const char *obj_type_str(struct alisp_object * p) in obj_type_str()
1033 struct alisp_object * p; in print_obj_lists()
1040 p = list_entry(pos, struct alisp_object, list); in print_obj_lists()
1050 p = list_entry(pos, struct alisp_object, list); in print_obj_lists()
1078 static int count_list(struct alisp_object * p) in count_list()
1090 static inline struct alisp_object * car(struct alisp_object * p) in car()
1098 static inline struct alisp_object * cdr(struct alisp_object * p) in cdr()
1109 static struct alisp_object * F_car(struct alisp_instance *instance, struct alisp_object * args) in F_car()
1111 struct alisp_object *p1 = car(args), *p2; in F_car()
1124 static struct alisp_object * F_cdr(struct alisp_instance *instance, struct alisp_object * args) in F_cdr()
1126 struct alisp_object *p1 = car(args), *p2; in F_cdr()
1139 static struct alisp_object * F_add(struct alisp_instance *instance, struct alisp_object * args) in F_add()
1141 struct alisp_object * p = args, * p1, * n; in F_add()
1177 static struct alisp_object * F_concat(struct alisp_instance *instance, struct alisp_object * args) in F_concat()
1179 struct alisp_object * p = args, * p1, * n; in F_concat()
1218 static struct alisp_object * F_sub(struct alisp_instance *instance, struct alisp_object * args) in F_sub()
1220 struct alisp_object * p = args, * p1, * n; in F_sub()
1264 static struct alisp_object * F_mul(struct alisp_instance *instance, struct alisp_object * args) in F_mul()
1266 struct alisp_object * p = args, * p1, * n; in F_mul()
1300 static struct alisp_object * F_div(struct alisp_instance *instance, struct alisp_object * args) in F_div()
1302 struct alisp_object * p = args, * p1, * n; in F_div()
1359 static struct alisp_object * F_mod(struct alisp_instance *instance, struct alisp_object * args) in F_mod()
1361 struct alisp_object * p1, * p2, * p3; in F_mod()
1406 static struct alisp_object * F_lt(struct alisp_instance *instance, struct alisp_object * args) in F_lt()
1408 struct alisp_object * p1, * p2; in F_lt()
1445 static struct alisp_object * F_gt(struct alisp_instance *instance, struct alisp_object * args) in F_gt()
1447 struct alisp_object * p1, * p2; in F_gt()
1484 static struct alisp_object * F_le(struct alisp_instance *instance, struct alisp_object * args) in F_le()
1486 struct alisp_object * p1, * p2; in F_le()
1523 static struct alisp_object * F_ge(struct alisp_instance *instance, struct alisp_object * args) in F_ge()
1525 struct alisp_object * p1, * p2; in F_ge()
1562 static struct alisp_object * F_numeq(struct alisp_instance *instance, struct alisp_object * args) in F_numeq()
1564 struct alisp_object * p1, * p2; in F_numeq()
1601 static struct alisp_object * F_numneq(struct alisp_instance *instance, struct alisp_object * args) in F_numneq()
1603 struct alisp_object * p; in F_numneq()
1615 static struct alisp_object * F_exfun(struct alisp_instance *instance, struct alisp_object * args) in F_exfun()
1617 struct alisp_object * p1, * p2; in F_exfun()
1657 static void princ_cons(snd_output_t *out, struct alisp_object * p) in princ_cons()
1672 static void princ_object(snd_output_t *out, struct alisp_object * p) in princ_object()
1706 static struct alisp_object * F_princ(struct alisp_instance *instance, struct alisp_object * args) in F_princ()
1708 struct alisp_object * p = args, * p1 = NULL, * n; in F_princ()
1729 static struct alisp_object * F_atom(struct alisp_instance *instance, struct alisp_object * args) in F_atom()
1731 struct alisp_object * p; in F_atom()
1760 static struct alisp_object * F_cons(struct alisp_instance *instance, struct alisp_object * args) in F_cons()
1762 struct alisp_object * p; in F_cons()
1781 static struct alisp_object * F_list(struct alisp_instance *instance, struct alisp_object * args) in F_list()
1783 struct alisp_object * p = args, * first = NULL, * prev = NULL, * p1; in F_list()
1814 static inline int eq(struct alisp_object * p1, struct alisp_object * p2) in eq()
1819 static int equal(struct alisp_object * p1, struct alisp_object * p2) in equal()
1849 static struct alisp_object * F_eq(struct alisp_instance *instance, struct alisp_object * args) in F_eq()
1851 struct alisp_object * p1, * p2; in F_eq()
1872 static struct alisp_object * F_equal(struct alisp_instance *instance, struct alisp_object * args) in F_equal()
1874 struct alisp_object * p1, * p2; in F_equal()
1895 static struct alisp_object * F_quote(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp… in F_quote()
1897 struct alisp_object *p = car(args); in F_quote()
1907 static struct alisp_object * F_and(struct alisp_instance *instance, struct alisp_object * args) in F_and()
1909 struct alisp_object * p = args, * p1 = NULL, * n; in F_and()
1931 static struct alisp_object * F_or(struct alisp_instance *instance, struct alisp_object * args) in F_or()
1933 struct alisp_object * p = args, * p1 = NULL, * n; in F_or()
1955 static struct alisp_object * F_not(struct alisp_instance *instance, struct alisp_object * args) in F_not()
1957 struct alisp_object * p = eval(instance, car(args)); in F_not()
1973 static struct alisp_object * F_cond(struct alisp_instance *instance, struct alisp_object * args) in F_cond()
1975 struct alisp_object * p = args, * p1, * p2, * p3; in F_cond()
2006 static struct alisp_object * F_if(struct alisp_instance *instance, struct alisp_object * args) in F_if()
2008 struct alisp_object * p1, * p2, * p3; in F_if()
2031 static struct alisp_object * F_when(struct alisp_instance *instance, struct alisp_object * args) in F_when()
2033 struct alisp_object * p1, * p2; in F_when()
2052 static struct alisp_object * F_unless(struct alisp_instance *instance, struct alisp_object * args) in F_unless()
2054 struct alisp_object * p1, * p2; in F_unless()
2072 static struct alisp_object * F_while(struct alisp_instance *instance, struct alisp_object * args) in F_while()
2074 struct alisp_object * p1, * p2, * p3; in F_while()
2097 static struct alisp_object * F_progn(struct alisp_instance *instance, struct alisp_object * args) in F_progn()
2099 struct alisp_object * p = args, * p1 = NULL, * n; in F_progn()
2116 static struct alisp_object * F_prog1(struct alisp_instance *instance, struct alisp_object * args) in F_prog1()
2118 struct alisp_object * p = args, * first = NULL, * p1; in F_prog1()
2140 static struct alisp_object * F_prog2(struct alisp_instance *instance, struct alisp_object * args) in F_prog2()
2142 struct alisp_object * p = args, * second = NULL, * p1; in F_prog2()
2166 static struct alisp_object * F_set(struct alisp_instance *instance, struct alisp_object * args) in F_set()
2168 struct alisp_object * p1 = eval(instance, car(args)), in F_set()
2191 static struct alisp_object * F_unset(struct alisp_instance *instance, struct alisp_object * args) in F_unset()
2193 struct alisp_object * p1 = eval(instance, car(args)); in F_unset()
2206 static struct alisp_object * F_setq(struct alisp_instance *instance, struct alisp_object * args) in F_setq()
2208 struct alisp_object * p = args, * p1, * p2 = NULL, *n; in F_setq()
2238 static struct alisp_object * F_unsetq(struct alisp_instance *instance, struct alisp_object * args) in F_unsetq()
2240 struct alisp_object * p = args, * p1 = NULL, * n; in F_unsetq()
2259 static struct alisp_object * F_defun(struct alisp_instance *instance, struct alisp_object * args) in F_defun()
2261 struct alisp_object * p1 = car(args), in F_defun()
2264 struct alisp_object * lexpr; in F_defun()
2296 static struct alisp_object * eval_func(struct alisp_instance *instance, struct alisp_object * p, st… in eval_func()
2298 struct alisp_object * p1, * p2, * p3, * p4; in eval_func()
2299 struct alisp_object ** eval_objs, ** save_objs; in eval_func()
2313 eval_objs = malloc(2 * i * sizeof(struct alisp_object *)); in eval_func()
2379 struct alisp_object * F_gc(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * … in F_gc()
2389 struct alisp_object * F_path(struct alisp_instance *instance, struct alisp_object * args) in F_path()
2391 struct alisp_object * p1; in F_path()
2411 struct alisp_object * F_include(struct alisp_instance *instance, struct alisp_object * args) in F_include()
2413 struct alisp_object * p = args, * p1; in F_include()
2432 struct alisp_object * F_string_to_integer(struct alisp_instance *instance, struct alisp_object * ar… in F_string_to_integer()
2434 struct alisp_object * p = eval(instance, car(args)), * p1; in F_string_to_integer()
2454 struct alisp_object * F_string_to_float(struct alisp_instance *instance, struct alisp_object * args) in F_string_to_float()
2456 struct alisp_object * p = eval(instance, car(args)), * p1; in F_string_to_float()
2494 … int format_parse_char(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p) in format_parse_char()
2506 …t format_parse_integer(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p) in format_parse_integer()
2527 …int format_parse_float(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p) in format_parse_float()
2548 …nt format_parse_string(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p) in format_parse_string()
2561 struct alisp_object * F_format(struct alisp_instance *instance, struct alisp_object * args) in F_format()
2563 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n; in F_format()
2660 struct alisp_object * F_compare_strings(struct alisp_instance *instance, struct alisp_object * args) in F_compare_strings()
2662 struct alisp_object * p1 = args, * n, * p[7]; in F_compare_strings()
2750 struct alisp_object * F_assoc(struct alisp_instance *instance, struct alisp_object * args) in F_assoc()
2752 struct alisp_object * p1, * p2, * n; in F_assoc()
2780 struct alisp_object * F_rassoc(struct alisp_instance *instance, struct alisp_object * args) in F_rassoc()
2782 struct alisp_object * p1, *p2, * n; in F_rassoc()
2810 struct alisp_object * F_assq(struct alisp_instance *instance, struct alisp_object * args) in F_assq()
2812 struct alisp_object * p1, * p2, * n; in F_assq()
2840 struct alisp_object * F_nth(struct alisp_instance *instance, struct alisp_object * args) in F_nth()
2842 struct alisp_object * p1, * p2, * n; in F_nth()
2877 struct alisp_object * F_rassq(struct alisp_instance *instance, struct alisp_object * args) in F_rassq()
2879 struct alisp_object * p1, * p2, * n; in F_rassq()
2904 static struct alisp_object * F_dump_memory(struct alisp_instance *instance, struct alisp_object * a… in F_dump_memory()
2906 struct alisp_object * p = car(args); in F_dump_memory()
2923 static struct alisp_object * F_stat_memory(struct alisp_instance *instance, struct alisp_object * a… in F_stat_memory()
2930 (int)sizeof(struct alisp_object), in F_stat_memory()
2931 (long)((instance->used_objs + instance->free_objs) * sizeof(struct alisp_object)), in F_stat_memory()
2932 (long)(instance->max_objs * sizeof(struct alisp_object))); in F_stat_memory()
2937 static struct alisp_object * F_check_memory(struct alisp_instance *instance, struct alisp_object * … in F_check_memory()
2948 static struct alisp_object * F_dump_objects(struct alisp_instance *instance, struct alisp_object * … in F_dump_objects()
2950 struct alisp_object * p = car(args); in F_dump_objects()
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… in eval_cons1()
3048 struct alisp_object * p3; in eval_cons1()
3082 static struct alisp_object * F_funcall(struct alisp_instance *instance, struct alisp_object * args) in F_funcall()
3084 struct alisp_object * p = eval(instance, car(args)), * p1; in F_funcall()
3099 static inline struct alisp_object * eval_cons(struct alisp_instance *instance, struct alisp_object … in eval_cons()
3101 struct alisp_object * p1 = car(p), * p2; in eval_cons()
3117 static struct alisp_object * eval(struct alisp_instance *instance, struct alisp_object * p) in eval()
3121 struct alisp_object *r = incref_tree(instance, get_object(instance, p)); in eval()
3139 static struct alisp_object * F_eval(struct alisp_instance *instance, struct alisp_object * args) in F_eval()
3151 struct alisp_object *p, *p1; in alisp_include_file()
3202 struct alisp_object *p, *p1; in alsa_lisp()
3310 struct alisp_object *aargs = NULL, *obj, *res; in alsa_lisp_function()
3314 struct alisp_object *p; in alsa_lisp_function()
3432 struct alisp_object * p1; in alsa_lisp_seq_first()
3443 struct alisp_object * p1 = *seq; in alsa_lisp_seq_next()
3476 struct alisp_object * p2; in alsa_lisp_seq_pointer()