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