Lines Matching refs:p1
147 struct alisp_object * p1, * p2;
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;
159 if (p1 == NULL) {
163 p1->value.c.car = new_object(instance, ALISP_OBJ_CONS);
164 if ((p2 = p1->value.c.car) == NULL)
173 delete_tree(instance, p1);
185 struct alisp_object * p1;
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;
197 if (p1 == NULL) {
201 p1->value.c.car = obj;
208 struct alisp_object * lexpr, * p1;
220 p1 = add_cons(instance, lexpr, 1, ptr_id, new_pointer(instance, ptr));
221 if (p1 == NULL) {
231 struct alisp_object * lexpr, * p1;
238 p1 = lexpr->value.c.cdr;
239 p1->value.c.car = new_integer(instance, val);
240 if (p1->value.c.car == NULL) {
250 struct alisp_object * lexpr, * p1;
257 p1 = lexpr->value.c.cdr;
258 p1->value.c.car = new_string(instance, str);
259 if (p1->value.c.car == NULL) {
288 struct alisp_object *p1, *p2;
296 name = get_string(p1 = eval(instance, car(args)), NULL);
305 delete_tree(instance, p1);
314 struct alisp_object *p1;
322 p1 = eval(instance, car(args));
325 handle = (void *)get_ptr(instance, p1, prefix1);
336 struct alisp_object * p1;
349 p1 = eval(instance, car(args));
352 handle = (void *)get_ptr(instance, p1, item->prefix);
362 struct alisp_object * p1;
364 p1 = eval(instance, car(args));
367 handle = (void *)get_ptr(instance, p1, item->prefix);
376 struct alisp_object * p1;
378 p1 = eval(instance, car(args));
381 handle = (void *)get_ptr(instance, p1, item->prefix);
390 struct alisp_object * p1;
392 p1 = eval(instance, car(args));
395 if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
396 delete_tree(instance, p1);
399 val = p1->value.i;
400 delete_tree(instance, p1);
408 struct alisp_object * p1;
410 p1 = eval(instance, car(args));
413 if (!alisp_compare_type(p1, ALISP_OBJ_STRING) &&
414 !alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER)) {
415 delete_tree(instance, p1);
418 err = ((snd_int_str_t)item->xfunc)(p1->value.s);
419 delete_tree(instance, p1);
428 struct alisp_object * p1;
430 p1 = eval(instance, car(args));
433 if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
434 delete_tree(instance, p1);
437 val = p1->value.i;
438 delete_tree(instance, p1);
446 struct alisp_object * lexpr, * p1;
450 p1 = eval(instance, car(args));
453 handle = (snd_ctl_t *)get_ptr(instance, p1, item->prefix);
461 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", new_string(instance, snd_ctl_card_info_get_id(info)));
462 p1 = add_cons(instance, p1, 1, "driver", new_string(instance, snd_ctl_card_info_get_driver(info)));
463 p1 = add_cons(instance, p1, 1, "name", new_string(instance, snd_ctl_card_info_get_name(info)));
464 p1 = add_cons(instance, p1, 1, "longname", new_string(instance, snd_ctl_card_info_get_longname(info)));
465 p1 = add_cons(instance, p1, 1, "mixername", new_string(instance, snd_ctl_card_info_get_mixername(info)));
466 p1 = add_cons(instance, p1, 1, "components", new_string(instance, snd_ctl_card_info_get_components(info)));
467 if (p1 == NULL) {
489 struct alisp_object *p1;
497 p1 = car(cons);
498 if (alisp_compare_type(p1, ALISP_OBJ_CONS)) {
499 xid = get_string(p1->value.c.car, NULL);
503 snd_ctl_elem_id_set_numid(id, get_integer(p1->value.c.cdr));
505 snd_ctl_elem_id_set_interface(id, snd_config_get_ctl_iface_ascii(get_string(p1->value.c.cdr, "0")));
507 snd_ctl_elem_id_set_device(id, get_integer(p1->value.c.cdr));
509 snd_ctl_elem_id_set_subdevice(id, get_integer(p1->value.c.cdr));
511 snd_ctl_elem_id_set_name(id, get_string(p1->value.c.cdr, "?"));
513 snd_ctl_elem_id_set_index(id, get_integer(p1->value.c.cdr));
516 delete_tree(instance, p1);
517 cons = cdr(p1 = cons);
518 delete_object(instance, p1);
527 struct alisp_object *p1;
536 p1 = car(cdr(args));
540 if (parse_ctl_elem_id(instance, eval(instance, p1), id) < 0)
548 struct alisp_object * lexpr, * p1, * p2;
554 p1 = eval(instance, car(args));
557 handle = (snd_hctl_elem_t *)get_ptr(instance, p1, item->prefix);
567 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", p2 = new_object(instance, ALISP_OBJ_CONS));
573 p1 = add_cons(instance, p1, 1, "type", new_string(instance, snd_ctl_elem_type_name(type)));
574 p1 = add_cons(instance, p1, 1, "readable", new_integer(instance, snd_ctl_elem_info_is_readable(info)));
575 p1 = add_cons(instance, p1, 1, "writeable", new_integer(instance, snd_ctl_elem_info_is_writable(info)));
576 p1 = add_cons(instance, p1, 1, "volatile", new_integer(instance, snd_ctl_elem_info_is_volatile(info)));
577 p1 = add_cons(instance, p1, 1, "inactive", new_integer(instance, snd_ctl_elem_info_is_inactive(info)));
578 p1 = add_cons(instance, p1, 1, "locked", new_integer(instance, snd_ctl_elem_info_is_locked(info)));
579 p1 = add_cons(instance, p1, 1, "isowner", new_integer(instance, snd_ctl_elem_info_is_owner(info)));
580 p1 = add_cons(instance, p1, 1, "owner", new_integer(instance, snd_ctl_elem_info_get_owner(info)));
581 p1 = add_cons(instance, p1, 1, "count", new_integer(instance, snd_ctl_elem_info_get_count(info)));
585 p1 = add_cons(instance, p1, 1, "dimensions", p2 = new_object(instance, ALISP_OBJ_CONS));
593 p1 = add_cons(instance, p1, 1, "items", p2 = new_object(instance, ALISP_OBJ_CONS));
606 p1 = add_cons(instance, p1, 1, "min", new_integer(instance, snd_ctl_elem_info_get_min(info)));
607 p1 = add_cons(instance, p1, 1, "max", new_integer(instance, snd_ctl_elem_info_get_max(info)));
608 p1 = add_cons(instance, p1, 1, "step", new_integer(instance, snd_ctl_elem_info_get_step(info)));
611 p1 = add_cons(instance, p1, 1, "min64", new_float(instance, snd_ctl_elem_info_get_min64(info)));
612 p1 = add_cons(instance, p1, 1, "max64", new_float(instance, snd_ctl_elem_info_get_max64(info)));
613 p1 = add_cons(instance, p1, 1, "step64", new_float(instance, snd_ctl_elem_info_get_step64(info)));
618 if (p1 == NULL) {
628 struct alisp_object * lexpr, * p1 = NULL, * obj;
635 p1 = eval(instance, car(args));
638 handle = (snd_hctl_elem_t *)get_ptr(instance, p1, item->prefix);
677 p1 = add_cons2(instance, lexpr->value.c.cdr, 0, obj);
679 p1 = add_cons2(instance, p1, 1, obj);
682 if (p1 == NULL) {
692 struct alisp_object * p1 = NULL, * obj;
699 p1 = car(cdr(args));
706 delete_tree(instance, p1);
713 delete_tree(instance, p1);
725 delete_tree(instance, p1);
728 obj = car(p1);
749 p1 = cdr(obj = p1);
751 } while (p1 != &alsa_lisp_nil);
759 struct alisp_object * lexpr, * p1;
763 p1 = eval(instance, car(args));
766 handle = (snd_pcm_t *)get_ptr(instance, p1, item->prefix);
774 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "card", new_integer(instance, snd_pcm_info_get_card(info)));
775 p1 = add_cons(instance, p1, 1, "device", new_integer(instance, snd_pcm_info_get_device(info)));
776 p1 = add_cons(instance, p1, 1, "subdevice", new_integer(instance, snd_pcm_info_get_subdevice(info)));
777 p1 = add_cons(instance, p1, 1, "id", new_string(instance, snd_pcm_info_get_id(info)));
778 p1 = add_cons(instance, p1, 1, "name", new_string(instance, snd_pcm_info_get_name(info)));
779 p1 = add_cons(instance, p1, 1, "subdevice_name", new_string(instance, snd_pcm_info_get_subdevice_name(info)));
780 p1 = add_cons(instance, p1, 1, "class", new_integer(instance, snd_pcm_info_get_class(info)));
781 p1 = add_cons(instance, p1, 1, "subclass", new_integer(instance, snd_pcm_info_get_subclass(info)));
782 p1 = add_cons(instance, p1, 1, "subdevices_count", new_integer(instance, snd_pcm_info_get_subdevices_count(info)));
783 p1 = add_cons(instance, p1, 1, "subdevices_avail", new_integer(instance, snd_pcm_info_get_subdevices_avail(info)));
784 //p1 = add_cons(instance, p1, 1, "sync", new_string(instance, snd_pcm_info_get_sync(info)));
818 static int acall_compar(const void *p1, const void *p2)
820 return strcmp(((struct acall_table *)p1)->name,
826 struct alisp_object * p1, *p2;
829 p1 = eval(instance, car(args));
832 if (!alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER) &&
833 !alisp_compare_type(p1, ALISP_OBJ_STRING)) {
837 key.name = p1->value.s;
841 delete_tree(instance, p1);
844 delete_tree(instance, p1);
846 lisp_warn(instance, "acall function %s' is undefined", p1->value.s);
852 struct alisp_object *p1;
854 p1 = eval(instance, car(args));
857 args = car(cdr(p1));
858 delete_tree(instance, cdr(cdr(p1)));
859 delete_object(instance, cdr(p1));
860 delete_tree(instance, car(p1));
861 delete_object(instance, p1);
867 struct alisp_object *p1;
869 p1 = eval(instance, car(args));
872 args = car(p1);
874 delete_tree(instance, p1);
877 delete_tree(instance, cdr(p1));
878 delete_object(instance, p1);
885 struct alisp_object * p = args, * p1;
896 p1 = eval(instance, car(p));
897 if (alisp_compare_type(p1, ALISP_OBJ_STRING))
898 snd_output_printf(out, "%s", p1->value.s);
900 princ_object(out, p1);
901 delete_tree(instance, p1);
902 p = cdr(p1 = p);
903 delete_object(instance, p1);