Lines Matching refs:lexpr
123 struct alisp_object * lexpr;
125 lexpr = new_object(instance, ALISP_OBJ_CONS);
126 if (lexpr == NULL)
128 lexpr->value.c.car = new_integer(instance, err);
129 if (lexpr->value.c.car == NULL) {
130 delete_object(instance, lexpr);
133 lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
134 if (lexpr->value.c.cdr == NULL) {
135 delete_object(instance, lexpr->value.c.car);
136 delete_object(instance, lexpr);
139 return lexpr;
143 struct alisp_object *lexpr,
149 if (lexpr == NULL || obj == NULL) {
154 p1 = lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
156 p1 = lexpr->value.c.car = new_object(instance, ALISP_OBJ_CONS);
158 lexpr = p1;
170 lexpr->value.c.cdr = NULL;
172 lexpr->value.c.car = NULL;
178 return lexpr;
182 struct alisp_object *lexpr,
187 if (lexpr == NULL || obj == NULL) {
192 p1 = lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
194 p1 = lexpr->value.c.car = new_object(instance, ALISP_OBJ_CONS);
196 lexpr = p1;
202 return lexpr;
208 struct alisp_object * lexpr, * p1;
212 lexpr = new_object(instance, ALISP_OBJ_CONS);
213 if (lexpr == NULL)
215 lexpr->value.c.car = new_integer(instance, err);
216 if (lexpr->value.c.car == NULL) {
217 delete_object(instance, lexpr);
220 p1 = add_cons(instance, lexpr, 1, ptr_id, new_pointer(instance, ptr));
222 delete_object(instance, lexpr);
225 return lexpr;
231 struct alisp_object * lexpr, * p1;
235 lexpr = new_lexpr(instance, err);
236 if (lexpr == NULL)
238 p1 = lexpr->value.c.cdr;
241 delete_object(instance, lexpr);
244 return lexpr;
250 struct alisp_object * lexpr, * p1;
254 lexpr = new_lexpr(instance, err);
255 if (lexpr == NULL)
257 p1 = lexpr->value.c.cdr;
260 delete_object(instance, lexpr);
263 return lexpr;
446 struct alisp_object * lexpr, * p1;
458 lexpr = new_lexpr(instance, err);
460 return lexpr;
461 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", new_string(instance, snd_ctl_card_info_get_id(info)));
468 delete_tree(instance, lexpr);
471 return lexpr;
548 struct alisp_object * lexpr, * p1, * p2;
563 lexpr = new_lexpr(instance, err);
565 return lexpr;
567 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", p2 = new_object(instance, ALISP_OBJ_CONS));
570 delete_tree(instance, lexpr);
619 delete_tree(instance, lexpr);
622 return lexpr;
628 struct alisp_object * lexpr, * p1 = NULL, * obj;
646 lexpr = new_lexpr(instance, err);
648 return lexpr;
677 p1 = add_cons2(instance, lexpr->value.c.cdr, 0, obj);
683 delete_tree(instance, lexpr);
686 return lexpr;
759 struct alisp_object * lexpr, * p1;
771 lexpr = new_lexpr(instance, err);
773 return lexpr;
774 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "card", new_integer(instance, snd_pcm_info_get_card(info)));
785 return lexpr;