Lines Matching defs:lexpr
125 struct alisp_object * lexpr;
127 lexpr = new_object(instance, ALISP_OBJ_CONS);
128 if (lexpr == NULL)
130 lexpr->value.c.car = new_integer(instance, err);
131 if (lexpr->value.c.car == NULL) {
132 delete_object(instance, lexpr);
135 lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
136 if (lexpr->value.c.cdr == NULL) {
137 delete_object(instance, lexpr->value.c.car);
138 delete_object(instance, lexpr);
141 return lexpr;
145 struct alisp_object *lexpr,
151 if (lexpr == NULL || obj == NULL) {
156 p1 = lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
158 p1 = lexpr->value.c.car = new_object(instance, ALISP_OBJ_CONS);
160 lexpr = p1;
172 lexpr->value.c.cdr = NULL;
174 lexpr->value.c.car = NULL;
180 return lexpr;
184 struct alisp_object *lexpr,
189 if (lexpr == NULL || obj == NULL) {
194 p1 = lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
196 p1 = lexpr->value.c.car = new_object(instance, ALISP_OBJ_CONS);
198 lexpr = p1;
204 return lexpr;
210 struct alisp_object * lexpr, * p1;
214 lexpr = new_object(instance, ALISP_OBJ_CONS);
215 if (lexpr == NULL)
217 lexpr->value.c.car = new_integer(instance, err);
218 if (lexpr->value.c.car == NULL) {
219 delete_object(instance, lexpr);
222 p1 = add_cons(instance, lexpr, 1, ptr_id, new_pointer(instance, ptr));
224 delete_object(instance, lexpr);
227 return lexpr;
233 struct alisp_object * lexpr, * p1;
237 lexpr = new_lexpr(instance, err);
238 if (lexpr == NULL)
240 p1 = lexpr->value.c.cdr;
243 delete_object(instance, lexpr);
246 return lexpr;
252 struct alisp_object * lexpr, * p1;
256 lexpr = new_lexpr(instance, err);
257 if (lexpr == NULL)
259 p1 = lexpr->value.c.cdr;
262 delete_object(instance, lexpr);
265 return lexpr;
448 struct alisp_object * lexpr, * p1;
459 lexpr = new_lexpr(instance, err);
461 return lexpr;
462 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", new_string(instance, snd_ctl_card_info_get_id(&info)));
469 delete_tree(instance, lexpr);
472 return lexpr;
548 struct alisp_object * lexpr, * p1, * p2;
561 lexpr = new_lexpr(instance, err);
563 return lexpr;
565 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", p2 = new_object(instance, ALISP_OBJ_CONS));
568 delete_tree(instance, lexpr);
617 delete_tree(instance, lexpr);
620 return lexpr;
626 struct alisp_object * lexpr, * p1 = NULL, * obj;
642 lexpr = new_lexpr(instance, err);
644 return lexpr;
673 p1 = add_cons2(instance, lexpr->value.c.cdr, 0, obj);
679 delete_tree(instance, lexpr);
682 return lexpr;
753 struct alisp_object * lexpr, * p1;
764 lexpr = new_lexpr(instance, err);
766 return lexpr;
767 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "card", new_integer(instance, snd_pcm_info_get_card(&info)));
778 return lexpr;