Lines Matching refs:alisp_object
24 #define alisp_seq_iterator alisp_object
41 struct alisp_object alsa_lisp_nil;
42 struct alisp_object alsa_lisp_t;
45 static struct alisp_object * parse_object(struct alisp_instance *instance, int havetoken);
46 static void princ_cons(snd_output_t *out, struct alisp_object * p);
47 static void princ_object(snd_output_t *out, struct alisp_object * p);
48 static struct alisp_object * eval(struct alisp_instance *instance, struct alisp_object * p);
51 static struct alisp_object *F_eval(struct alisp_instance *instance, struct alisp_object *);
52 static struct alisp_object *F_progn(struct alisp_instance *instance, struct alisp_object *);
53 static struct alisp_object *F_funcall(struct alisp_instance *instance, struct alisp_object *);
129 static struct alisp_object * new_object(struct alisp_instance *instance, int type)
131 struct alisp_object * p;
134 p = (struct alisp_object *)malloc(sizeof(struct alisp_object));
141 p = (struct alisp_object *)instance->free_objs_list.next;
163 static void free_object(struct alisp_object * p)
176 static void delete_object(struct alisp_instance *instance, struct alisp_object * p)
202 static void delete_tree(struct alisp_instance *instance, struct alisp_object * p)
213 static struct alisp_object * incref_object(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * p)
226 static struct alisp_object * incref_tree(struct alisp_instance *instance, struct alisp_object * p)
240 static struct alisp_object * incref_tree_explicit(struct alisp_instance *instance, struct alisp_object * p, struct alisp_object * e)
262 struct alisp_object * p;
278 p = list_entry(pos, struct alisp_object, list);
291 p = list_entry(pos, struct alisp_object, list);
298 static struct alisp_object * search_object_identifier(struct alisp_instance *instance, const char *s)
301 struct alisp_object * p;
304 p = list_entry(pos, struct alisp_object, list);
314 static struct alisp_object * search_object_string(struct alisp_instance *instance, const char *s)
317 struct alisp_object * p;
320 p = list_entry(pos, struct alisp_object, list);
331 static struct alisp_object * search_object_integer(struct alisp_instance *instance, long in)
334 struct alisp_object * p;
337 p = list_entry(pos, struct alisp_object, list);
348 static struct alisp_object * search_object_float(struct alisp_instance *instance, double in)
351 struct alisp_object * p;
354 p = list_entry(pos, struct alisp_object, list);
365 static struct alisp_object * search_object_pointer(struct alisp_instance *instance, const void *ptr)
368 struct alisp_object * p;
371 p = list_entry(pos, struct alisp_object, list);
382 static struct alisp_object * new_integer(struct alisp_instance *instance, long value)
384 struct alisp_object * obj;
397 static struct alisp_object * new_float(struct alisp_instance *instance, double value)
399 struct alisp_object * obj;
412 static struct alisp_object * new_string(struct alisp_instance *instance, const char *str)
414 struct alisp_object * obj;
430 static struct alisp_object * new_identifier(struct alisp_instance *instance, const char *id)
432 struct alisp_object * obj;
448 static struct alisp_object * new_pointer(struct alisp_instance *instance, const void *ptr)
450 struct alisp_object * obj;
463 static struct alisp_object * new_cons_pointer(struct alisp_instance * instance, const char *ptr_id, void *ptr)
465 struct alisp_object * lexpr;
694 static struct alisp_object * parse_form(struct alisp_instance *instance)
697 struct alisp_object * p, * first = NULL, * prev = NULL;
743 static struct alisp_object * quote_object(struct alisp_instance *instance, struct alisp_object * obj)
745 struct alisp_object * p;
771 static inline struct alisp_object * parse_quote(struct alisp_instance *instance)
776 static struct alisp_object * parse_object(struct alisp_instance *instance, int havetoken)
779 struct alisp_object * p = NULL;
828 static struct alisp_object_pair * set_object_direct(struct alisp_instance *instance, struct alisp_object * name, struct alisp_object * value)
850 static int check_set_object(struct alisp_instance * instance, struct alisp_object * name)
868 static struct alisp_object_pair * set_object(struct alisp_instance *instance, struct alisp_object * name, struct alisp_object * value)
904 static struct alisp_object * unset_object(struct alisp_instance *instance, struct alisp_object * name)
907 struct alisp_object *res;
932 static struct alisp_object * get_object1(struct alisp_instance *instance, const char *id)
946 static struct alisp_object * get_object(struct alisp_instance *instance, struct alisp_object * name)
956 static struct alisp_object * replace_object(struct alisp_instance *instance, struct alisp_object * name, struct alisp_object * onew)
959 struct alisp_object *r;
1016 static const char *obj_type_str(struct alisp_object * p)
1034 struct alisp_object * p;
1041 p = list_entry(pos, struct alisp_object, list);
1051 p = list_entry(pos, struct alisp_object, list);
1079 static int count_list(struct alisp_object * p)
1091 static inline struct alisp_object * car(struct alisp_object * p)
1099 static inline struct alisp_object * cdr(struct alisp_object * p)
1110 static struct alisp_object * F_car(struct alisp_instance *instance, struct alisp_object * args)
1112 struct alisp_object *p1 = car(args), *p2;
1125 static struct alisp_object * F_cdr(struct alisp_instance *instance, struct alisp_object * args)
1127 struct alisp_object *p1 = car(args), *p2;
1140 static struct alisp_object * F_add(struct alisp_instance *instance, struct alisp_object * args)
1142 struct alisp_object * p = args, * p1, * n;
1178 static struct alisp_object * F_concat(struct alisp_instance *instance, struct alisp_object * args)
1180 struct alisp_object * p = args, * p1, * n;
1219 static struct alisp_object * F_sub(struct alisp_instance *instance, struct alisp_object * args)
1221 struct alisp_object * p = args, * p1, * n;
1265 static struct alisp_object * F_mul(struct alisp_instance *instance, struct alisp_object * args)
1267 struct alisp_object * p = args, * p1, * n;
1301 static struct alisp_object * F_div(struct alisp_instance *instance, struct alisp_object * args)
1303 struct alisp_object * p = args, * p1, * n;
1360 static struct alisp_object * F_mod(struct alisp_instance *instance, struct alisp_object * args)
1362 struct alisp_object * p1, * p2, * p3;
1407 static struct alisp_object * F_lt(struct alisp_instance *instance, struct alisp_object * args)
1409 struct alisp_object * p1, * p2;
1446 static struct alisp_object * F_gt(struct alisp_instance *instance, struct alisp_object * args)
1448 struct alisp_object * p1, * p2;
1485 static struct alisp_object * F_le(struct alisp_instance *instance, struct alisp_object * args)
1487 struct alisp_object * p1, * p2;
1524 static struct alisp_object * F_ge(struct alisp_instance *instance, struct alisp_object * args)
1526 struct alisp_object * p1, * p2;
1563 static struct alisp_object * F_numeq(struct alisp_instance *instance, struct alisp_object * args)
1565 struct alisp_object * p1, * p2;
1602 static struct alisp_object * F_numneq(struct alisp_instance *instance, struct alisp_object * args)
1604 struct alisp_object * p;
1616 static struct alisp_object * F_exfun(struct alisp_instance *instance, struct alisp_object * args)
1618 struct alisp_object * p1, * p2;
1658 static void princ_cons(snd_output_t *out, struct alisp_object * p)
1673 static void princ_object(snd_output_t *out, struct alisp_object * p)
1707 static struct alisp_object * F_princ(struct alisp_instance *instance, struct alisp_object * args)
1709 struct alisp_object * p = args, * p1 = NULL, * n;
1730 static struct alisp_object * F_atom(struct alisp_instance *instance, struct alisp_object * args)
1732 struct alisp_object * p;
1761 static struct alisp_object * F_cons(struct alisp_instance *instance, struct alisp_object * args)
1763 struct alisp_object * p;
1782 static struct alisp_object * F_list(struct alisp_instance *instance, struct alisp_object * args)
1784 struct alisp_object * p = args, * first = NULL, * prev = NULL, * p1;
1815 static inline int eq(struct alisp_object * p1, struct alisp_object * p2)
1820 static int equal(struct alisp_object * p1, struct alisp_object * p2)
1850 static struct alisp_object * F_eq(struct alisp_instance *instance, struct alisp_object * args)
1852 struct alisp_object * p1, * p2;
1873 static struct alisp_object * F_equal(struct alisp_instance *instance, struct alisp_object * args)
1875 struct alisp_object * p1, * p2;
1896 static struct alisp_object * F_quote(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * args)
1898 struct alisp_object *p = car(args);
1908 static struct alisp_object * F_and(struct alisp_instance *instance, struct alisp_object * args)
1910 struct alisp_object * p = args, * p1 = NULL, * n;
1932 static struct alisp_object * F_or(struct alisp_instance *instance, struct alisp_object * args)
1934 struct alisp_object * p = args, * p1 = NULL, * n;
1956 static struct alisp_object * F_not(struct alisp_instance *instance, struct alisp_object * args)
1958 struct alisp_object * p = eval(instance, car(args));
1974 static struct alisp_object * F_cond(struct alisp_instance *instance, struct alisp_object * args)
1976 struct alisp_object * p = args, * p1, * p2, * p3;
2007 static struct alisp_object * F_if(struct alisp_instance *instance, struct alisp_object * args)
2009 struct alisp_object * p1, * p2, * p3;
2032 static struct alisp_object * F_when(struct alisp_instance *instance, struct alisp_object * args)
2034 struct alisp_object * p1, * p2;
2053 static struct alisp_object * F_unless(struct alisp_instance *instance, struct alisp_object * args)
2055 struct alisp_object * p1, * p2;
2073 static struct alisp_object * F_while(struct alisp_instance *instance, struct alisp_object * args)
2075 struct alisp_object * p1, * p2, * p3;
2098 static struct alisp_object * F_progn(struct alisp_instance *instance, struct alisp_object * args)
2100 struct alisp_object * p = args, * p1 = NULL, * n;
2117 static struct alisp_object * F_prog1(struct alisp_instance *instance, struct alisp_object * args)
2119 struct alisp_object * p = args, * first = NULL, * p1;
2141 static struct alisp_object * F_prog2(struct alisp_instance *instance, struct alisp_object * args)
2143 struct alisp_object * p = args, * second = NULL, * p1;
2167 static struct alisp_object * F_set(struct alisp_instance *instance, struct alisp_object * args)
2169 struct alisp_object * p1 = eval(instance, car(args)),
2192 static struct alisp_object * F_unset(struct alisp_instance *instance, struct alisp_object * args)
2194 struct alisp_object * p1 = eval(instance, car(args));
2207 static struct alisp_object * F_setq(struct alisp_instance *instance, struct alisp_object * args)
2209 struct alisp_object * p = args, * p1, * p2 = NULL, *n;
2239 static struct alisp_object * F_unsetq(struct alisp_instance *instance, struct alisp_object * args)
2241 struct alisp_object * p = args, * p1 = NULL, * n;
2260 static struct alisp_object * F_defun(struct alisp_instance *instance, struct alisp_object * args)
2262 struct alisp_object * p1 = car(args),
2265 struct alisp_object * lexpr;
2297 static struct alisp_object * eval_func(struct alisp_instance *instance, struct alisp_object * p, struct alisp_object * args)
2299 struct alisp_object * p1, * p2, * p3, * p4;
2300 struct alisp_object ** eval_objs, ** save_objs;
2314 eval_objs = malloc(2 * i * sizeof(struct alisp_object *));
2380 struct alisp_object * F_gc(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * args ATTRIBUTE_UNUSED)
2390 struct alisp_object * F_path(struct alisp_instance *instance, struct alisp_object * args)
2392 struct alisp_object * p1;
2412 struct alisp_object * F_include(struct alisp_instance *instance, struct alisp_object * args)
2414 struct alisp_object * p = args, * p1;
2433 struct alisp_object * F_string_to_integer(struct alisp_instance *instance, struct alisp_object * args)
2435 struct alisp_object * p = eval(instance, car(args)), * p1;
2455 struct alisp_object * F_string_to_float(struct alisp_instance *instance, struct alisp_object * args)
2457 struct alisp_object * p = eval(instance, car(args)), * p1;
2495 static int format_parse_char(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p)
2507 static int format_parse_integer(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p)
2528 static int format_parse_float(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p)
2549 static int format_parse_string(struct alisp_instance *instance, char **s, int *len, struct alisp_object *p)
2562 struct alisp_object * F_format(struct alisp_instance *instance, struct alisp_object * args)
2564 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2661 struct alisp_object * F_compare_strings(struct alisp_instance *instance, struct alisp_object * args)
2663 struct alisp_object * p1 = args, * n, * p[7];
2751 struct alisp_object * F_assoc(struct alisp_instance *instance, struct alisp_object * args)
2753 struct alisp_object * p1, * p2, * n;
2781 struct alisp_object * F_rassoc(struct alisp_instance *instance, struct alisp_object * args)
2783 struct alisp_object * p1, *p2, * n;
2811 struct alisp_object * F_assq(struct alisp_instance *instance, struct alisp_object * args)
2813 struct alisp_object * p1, * p2, * n;
2841 struct alisp_object * F_nth(struct alisp_instance *instance, struct alisp_object * args)
2843 struct alisp_object * p1, * p2, * n;
2878 struct alisp_object * F_rassq(struct alisp_instance *instance, struct alisp_object * args)
2880 struct alisp_object * p1, * p2, * n;
2905 static struct alisp_object * F_dump_memory(struct alisp_instance *instance, struct alisp_object * args)
2907 struct alisp_object * p = car(args);
2924 static struct alisp_object * F_stat_memory(struct alisp_instance *instance, struct alisp_object * args)
2931 (int)sizeof(struct alisp_object),
2932 (long)((instance->used_objs + instance->free_objs) * sizeof(struct alisp_object)),
2933 (long)(instance->max_objs * sizeof(struct alisp_object)));
2938 static struct alisp_object * F_check_memory(struct alisp_instance *instance, struct alisp_object * args)
2949 static struct alisp_object * F_dump_objects(struct alisp_instance *instance, struct alisp_object * args)
2951 struct alisp_object * p = car(args);
2970 struct alisp_object * (*func)(struct alisp_instance *instance, struct alisp_object * args);
3047 static inline struct alisp_object * eval_cons1(struct alisp_instance *instance, struct alisp_object * p1, struct alisp_object * p2)
3049 struct alisp_object * p3;
3083 static struct alisp_object * F_funcall(struct alisp_instance *instance, struct alisp_object * args)
3085 struct alisp_object * p = eval(instance, car(args)), * p1;
3100 static inline struct alisp_object * eval_cons(struct alisp_instance *instance, struct alisp_object * p)
3102 struct alisp_object * p1 = car(p), * p2;
3118 static struct alisp_object * eval(struct alisp_instance *instance, struct alisp_object * p)
3122 struct alisp_object *r = incref_tree(instance, get_object(instance, p));
3140 static struct alisp_object * F_eval(struct alisp_instance *instance, struct alisp_object * args)
3152 struct alisp_object *p, *p1;
3203 struct alisp_object *p, *p1;
3311 struct alisp_object *aargs = NULL, *obj, *res;
3315 struct alisp_object *p;
3433 struct alisp_object * p1;
3444 struct alisp_object * p1 = *seq;
3477 struct alisp_object * p2;