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)
130 struct alisp_object * p;
133 p = (struct alisp_object *)malloc(sizeof(struct alisp_object));
140 p = (struct alisp_object *)instance->free_objs_list.next;
162 static void free_object(struct alisp_object * p)
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)
261 struct alisp_object * p;
277 p = list_entry(pos, struct alisp_object, list);
290 p = list_entry(pos, struct alisp_object, list);
297 static struct alisp_object * search_object_identifier(struct alisp_instance *instance, const char *s)
300 struct alisp_object * p;
303 p = list_entry(pos, struct alisp_object, list);
313 static struct alisp_object * search_object_string(struct alisp_instance *instance, const char *s)
316 struct alisp_object * p;
319 p = list_entry(pos, struct alisp_object, list);
330 static struct alisp_object * search_object_integer(struct alisp_instance *instance, long in)
333 struct alisp_object * p;
336 p = list_entry(pos, struct alisp_object, list);
347 static struct alisp_object * search_object_float(struct alisp_instance *instance, double in)
350 struct alisp_object * p;
353 p = list_entry(pos, struct alisp_object, list);
364 static struct alisp_object * search_object_pointer(struct alisp_instance *instance, const void *ptr)
367 struct alisp_object * p;
370 p = list_entry(pos, struct alisp_object, list);
381 static struct alisp_object * new_integer(struct alisp_instance *instance, long value)
383 struct alisp_object * obj;
396 static struct alisp_object * new_float(struct alisp_instance *instance, double value)
398 struct alisp_object * obj;
411 static struct alisp_object * new_string(struct alisp_instance *instance, const char *str)
413 struct alisp_object * obj;
429 static struct alisp_object * new_identifier(struct alisp_instance *instance, const char *id)
431 struct alisp_object * obj;
447 static struct alisp_object * new_pointer(struct alisp_instance *instance, const void *ptr)
449 struct alisp_object * obj;
462 static struct alisp_object * new_cons_pointer(struct alisp_instance * instance, const char *ptr_id, void *ptr)
464 struct alisp_object * lexpr;
693 static struct alisp_object * parse_form(struct alisp_instance *instance)
696 struct alisp_object * p, * first = NULL, * prev = NULL;
742 static struct alisp_object * quote_object(struct alisp_instance *instance, struct alisp_object * obj)
744 struct alisp_object * p;
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)
778 struct alisp_object * p = NULL;
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)
906 struct alisp_object *res;
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)
958 struct alisp_object *r;
1015 static const char *obj_type_str(struct alisp_object * p)
1033 struct alisp_object * p;
1040 p = list_entry(pos, struct alisp_object, list);
1050 p = list_entry(pos, struct alisp_object, list);
1078 static int count_list(struct alisp_object * p)
1090 static inline struct alisp_object * car(struct alisp_object * p)
1098 static inline struct alisp_object * cdr(struct alisp_object * p)
1109 static struct alisp_object * F_car(struct alisp_instance *instance, struct alisp_object * args)
1111 struct alisp_object *p1 = car(args), *p2;
1124 static struct alisp_object * F_cdr(struct alisp_instance *instance, struct alisp_object * args)
1126 struct alisp_object *p1 = car(args), *p2;
1139 static struct alisp_object * F_add(struct alisp_instance *instance, struct alisp_object * args)
1141 struct alisp_object * p = args, * p1, * n;
1177 static struct alisp_object * F_concat(struct alisp_instance *instance, struct alisp_object * args)
1179 struct alisp_object * p = args, * p1, * n;
1218 static struct alisp_object * F_sub(struct alisp_instance *instance, struct alisp_object * args)
1220 struct alisp_object * p = args, * p1, * n;
1264 static struct alisp_object * F_mul(struct alisp_instance *instance, struct alisp_object * args)
1266 struct alisp_object * p = args, * p1, * n;
1300 static struct alisp_object * F_div(struct alisp_instance *instance, struct alisp_object * args)
1302 struct alisp_object * p = args, * p1, * n;
1359 static struct alisp_object * F_mod(struct alisp_instance *instance, struct alisp_object * args)
1361 struct alisp_object * p1, * p2, * p3;
1406 static struct alisp_object * F_lt(struct alisp_instance *instance, struct alisp_object * args)
1408 struct alisp_object * p1, * p2;
1445 static struct alisp_object * F_gt(struct alisp_instance *instance, struct alisp_object * args)
1447 struct alisp_object * p1, * p2;
1484 static struct alisp_object * F_le(struct alisp_instance *instance, struct alisp_object * args)
1486 struct alisp_object * p1, * p2;
1523 static struct alisp_object * F_ge(struct alisp_instance *instance, struct alisp_object * args)
1525 struct alisp_object * p1, * p2;
1562 static struct alisp_object * F_numeq(struct alisp_instance *instance, struct alisp_object * args)
1564 struct alisp_object * p1, * p2;
1601 static struct alisp_object * F_numneq(struct alisp_instance *instance, struct alisp_object * args)
1603 struct alisp_object * p;
1615 static struct alisp_object * F_exfun(struct alisp_instance *instance, struct alisp_object * args)
1617 struct alisp_object * p1, * p2;
1657 static void princ_cons(snd_output_t *out, struct alisp_object * p)
1672 static void princ_object(snd_output_t *out, struct alisp_object * p)
1706 static struct alisp_object * F_princ(struct alisp_instance *instance, struct alisp_object * args)
1708 struct alisp_object * p = args, * p1 = NULL, * n;
1729 static struct alisp_object * F_atom(struct alisp_instance *instance, struct alisp_object * args)
1731 struct alisp_object * p;
1760 static struct alisp_object * F_cons(struct alisp_instance *instance, struct alisp_object * args)
1762 struct alisp_object * p;
1781 static struct alisp_object * F_list(struct alisp_instance *instance, struct alisp_object * args)
1783 struct alisp_object * p = args, * first = NULL, * prev = NULL, * p1;
1814 static inline int eq(struct alisp_object * p1, struct alisp_object * p2)
1819 static int equal(struct alisp_object * p1, struct alisp_object * p2)
1849 static struct alisp_object * F_eq(struct alisp_instance *instance, struct alisp_object * args)
1851 struct alisp_object * p1, * p2;
1872 static struct alisp_object * F_equal(struct alisp_instance *instance, struct alisp_object * args)
1874 struct alisp_object * p1, * p2;
1895 static struct alisp_object * F_quote(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * args)
1897 struct alisp_object *p = car(args);
1907 static struct alisp_object * F_and(struct alisp_instance *instance, struct alisp_object * args)
1909 struct alisp_object * p = args, * p1 = NULL, * n;
1931 static struct alisp_object * F_or(struct alisp_instance *instance, struct alisp_object * args)
1933 struct alisp_object * p = args, * p1 = NULL, * n;
1955 static struct alisp_object * F_not(struct alisp_instance *instance, struct alisp_object * args)
1957 struct alisp_object * p = eval(instance, car(args));
1973 static struct alisp_object * F_cond(struct alisp_instance *instance, struct alisp_object * args)
1975 struct alisp_object * p = args, * p1, * p2, * p3;
2006 static struct alisp_object * F_if(struct alisp_instance *instance, struct alisp_object * args)
2008 struct alisp_object * p1, * p2, * p3;
2031 static struct alisp_object * F_when(struct alisp_instance *instance, struct alisp_object * args)
2033 struct alisp_object * p1, * p2;
2052 static struct alisp_object * F_unless(struct alisp_instance *instance, struct alisp_object * args)
2054 struct alisp_object * p1, * p2;
2072 static struct alisp_object * F_while(struct alisp_instance *instance, struct alisp_object * args)
2074 struct alisp_object * p1, * p2, * p3;
2097 static struct alisp_object * F_progn(struct alisp_instance *instance, struct alisp_object * args)
2099 struct alisp_object * p = args, * p1 = NULL, * n;
2116 static struct alisp_object * F_prog1(struct alisp_instance *instance, struct alisp_object * args)
2118 struct alisp_object * p = args, * first = NULL, * p1;
2140 static struct alisp_object * F_prog2(struct alisp_instance *instance, struct alisp_object * args)
2142 struct alisp_object * p = args, * second = NULL, * p1;
2166 static struct alisp_object * F_set(struct alisp_instance *instance, struct alisp_object * args)
2168 struct alisp_object * p1 = eval(instance, car(args)),
2191 static struct alisp_object * F_unset(struct alisp_instance *instance, struct alisp_object * args)
2193 struct alisp_object * p1 = eval(instance, car(args));
2206 static struct alisp_object * F_setq(struct alisp_instance *instance, struct alisp_object * args)
2208 struct alisp_object * p = args, * p1, * p2 = NULL, *n;
2238 static struct alisp_object * F_unsetq(struct alisp_instance *instance, struct alisp_object * args)
2240 struct alisp_object * p = args, * p1 = NULL, * n;
2259 static struct alisp_object * F_defun(struct alisp_instance *instance, struct alisp_object * args)
2261 struct alisp_object * p1 = car(args),
2264 struct alisp_object * lexpr;
2296 static struct alisp_object * eval_func(struct alisp_instance *instance, struct alisp_object * p, struct alisp_object * args)
2298 struct alisp_object * p1, * p2, * p3, * p4;
2299 struct alisp_object ** eval_objs, ** save_objs;
2313 eval_objs = malloc(2 * i * sizeof(struct alisp_object *));
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)
2391 struct alisp_object * p1;
2411 struct alisp_object * F_include(struct alisp_instance *instance, struct alisp_object * args)
2413 struct alisp_object * p = args, * p1;
2432 struct alisp_object * F_string_to_integer(struct alisp_instance *instance, struct alisp_object * args)
2434 struct alisp_object * p = eval(instance, car(args)), * p1;
2454 struct alisp_object * F_string_to_float(struct alisp_instance *instance, struct alisp_object * args)
2456 struct alisp_object * p = eval(instance, car(args)), * p1;
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)
2563 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2660 struct alisp_object * F_compare_strings(struct alisp_instance *instance, struct alisp_object * args)
2662 struct alisp_object * p1 = args, * n, * p[7];
2750 struct alisp_object * F_assoc(struct alisp_instance *instance, struct alisp_object * args)
2752 struct alisp_object * p1, * p2, * n;
2780 struct alisp_object * F_rassoc(struct alisp_instance *instance, struct alisp_object * args)
2782 struct alisp_object * p1, *p2, * n;
2810 struct alisp_object * F_assq(struct alisp_instance *instance, struct alisp_object * args)
2812 struct alisp_object * p1, * p2, * n;
2840 struct alisp_object * F_nth(struct alisp_instance *instance, struct alisp_object * args)
2842 struct alisp_object * p1, * p2, * n;
2877 struct alisp_object * F_rassq(struct alisp_instance *instance, struct alisp_object * args)
2879 struct alisp_object * p1, * p2, * n;
2904 static struct alisp_object * F_dump_memory(struct alisp_instance *instance, struct alisp_object * args)
2906 struct alisp_object * p = car(args);
2923 static struct alisp_object * F_stat_memory(struct alisp_instance *instance, struct alisp_object * args)
2930 (int)sizeof(struct alisp_object),
2931 (long)((instance->used_objs + instance->free_objs) * sizeof(struct alisp_object)),
2932 (long)(instance->max_objs * sizeof(struct alisp_object)));
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)
2950 struct alisp_object * p = car(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)
3048 struct alisp_object * p3;
3082 static struct alisp_object * F_funcall(struct alisp_instance *instance, struct alisp_object * args)
3084 struct alisp_object * p = eval(instance, car(args)), * p1;
3099 static inline struct alisp_object * eval_cons(struct alisp_instance *instance, struct alisp_object * p)
3101 struct alisp_object * p1 = car(p), * p2;
3117 static struct alisp_object * eval(struct alisp_instance *instance, struct alisp_object * p)
3121 struct alisp_object *r = incref_tree(instance, get_object(instance, p));
3139 static struct alisp_object * F_eval(struct alisp_instance *instance, struct alisp_object * args)
3151 struct alisp_object *p, *p1;
3202 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;