Lines Matching refs:p1
149 struct alisp_object * p1, * p2;
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;
161 if (p1 == NULL) {
165 p1->value.c.car = new_object(instance, ALISP_OBJ_CONS);
166 if ((p2 = p1->value.c.car) == NULL)
175 delete_tree(instance, p1);
187 struct alisp_object * p1;
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;
199 if (p1 == NULL) {
203 p1->value.c.car = obj;
210 struct alisp_object * lexpr, * p1;
222 p1 = add_cons(instance, lexpr, 1, ptr_id, new_pointer(instance, ptr));
223 if (p1 == NULL) {
233 struct alisp_object * lexpr, * p1;
240 p1 = lexpr->value.c.cdr;
241 p1->value.c.car = new_integer(instance, val);
242 if (p1->value.c.car == NULL) {
252 struct alisp_object * lexpr, * p1;
259 p1 = lexpr->value.c.cdr;
260 p1->value.c.car = new_string(instance, str);
261 if (p1->value.c.car == NULL) {
290 struct alisp_object *p1, *p2;
298 name = get_string(p1 = eval(instance, car(args)), NULL);
307 delete_tree(instance, p1);
316 struct alisp_object *p1;
324 p1 = eval(instance, car(args));
327 handle = (void *)get_ptr(instance, p1, prefix1);
338 struct alisp_object * p1;
351 p1 = eval(instance, car(args));
354 handle = (void *)get_ptr(instance, p1, item->prefix);
364 struct alisp_object * p1;
366 p1 = eval(instance, car(args));
369 handle = (void *)get_ptr(instance, p1, item->prefix);
378 struct alisp_object * p1;
380 p1 = eval(instance, car(args));
383 handle = (void *)get_ptr(instance, p1, item->prefix);
392 struct alisp_object * p1;
394 p1 = eval(instance, car(args));
397 if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
398 delete_tree(instance, p1);
401 val = p1->value.i;
402 delete_tree(instance, p1);
410 struct alisp_object * p1;
412 p1 = eval(instance, car(args));
415 if (!alisp_compare_type(p1, ALISP_OBJ_STRING) &&
416 !alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER)) {
417 delete_tree(instance, p1);
420 err = ((snd_int_str_t)item->xfunc)(p1->value.s);
421 delete_tree(instance, p1);
430 struct alisp_object * p1;
432 p1 = eval(instance, car(args));
435 if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
436 delete_tree(instance, p1);
439 val = p1->value.i;
440 delete_tree(instance, p1);
448 struct alisp_object * lexpr, * p1;
452 p1 = eval(instance, car(args));
455 handle = (snd_ctl_t *)get_ptr(instance, p1, item->prefix);
462 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", new_string(instance, snd_ctl_card_info_get_id(&info)));
463 p1 = add_cons(instance, p1, 1, "driver", new_string(instance, snd_ctl_card_info_get_driver(&info)));
464 p1 = add_cons(instance, p1, 1, "name", new_string(instance, snd_ctl_card_info_get_name(&info)));
465 p1 = add_cons(instance, p1, 1, "longname", new_string(instance, snd_ctl_card_info_get_longname(&info)));
466 p1 = add_cons(instance, p1, 1, "mixername", new_string(instance, snd_ctl_card_info_get_mixername(&info)));
467 p1 = add_cons(instance, p1, 1, "components", new_string(instance, snd_ctl_card_info_get_components(&info)));
468 if (p1 == NULL) {
490 struct alisp_object *p1;
498 p1 = car(cons);
499 if (alisp_compare_type(p1, ALISP_OBJ_CONS)) {
500 xid = get_string(p1->value.c.car, NULL);
504 snd_ctl_elem_id_set_numid(id, get_integer(p1->value.c.cdr));
506 snd_ctl_elem_id_set_interface(id, snd_config_get_ctl_iface_ascii(get_string(p1->value.c.cdr, "0")));
508 snd_ctl_elem_id_set_device(id, get_integer(p1->value.c.cdr));
510 snd_ctl_elem_id_set_subdevice(id, get_integer(p1->value.c.cdr));
512 snd_ctl_elem_id_set_name(id, get_string(p1->value.c.cdr, "?"));
514 snd_ctl_elem_id_set_index(id, get_integer(p1->value.c.cdr));
517 delete_tree(instance, p1);
518 cons = cdr(p1 = cons);
519 delete_object(instance, p1);
528 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);
565 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", p2 = new_object(instance, ALISP_OBJ_CONS));
571 p1 = add_cons(instance, p1, 1, "type", new_string(instance, snd_ctl_elem_type_name(type)));
572 p1 = add_cons(instance, p1, 1, "readable", new_integer(instance, snd_ctl_elem_info_is_readable(&info)));
573 p1 = add_cons(instance, p1, 1, "writable", new_integer(instance, snd_ctl_elem_info_is_writable(&info)));
574 p1 = add_cons(instance, p1, 1, "volatile", new_integer(instance, snd_ctl_elem_info_is_volatile(&info)));
575 p1 = add_cons(instance, p1, 1, "inactive", new_integer(instance, snd_ctl_elem_info_is_inactive(&info)));
576 p1 = add_cons(instance, p1, 1, "locked", new_integer(instance, snd_ctl_elem_info_is_locked(&info)));
577 p1 = add_cons(instance, p1, 1, "isowner", new_integer(instance, snd_ctl_elem_info_is_owner(&info)));
578 p1 = add_cons(instance, p1, 1, "owner", new_integer(instance, snd_ctl_elem_info_get_owner(&info)));
579 p1 = add_cons(instance, p1, 1, "count", new_integer(instance, snd_ctl_elem_info_get_count(&info)));
583 p1 = add_cons(instance, p1, 1, "dimensions", p2 = new_object(instance, ALISP_OBJ_CONS));
591 p1 = add_cons(instance, p1, 1, "items", p2 = new_object(instance, ALISP_OBJ_CONS));
604 p1 = add_cons(instance, p1, 1, "min", new_integer(instance, snd_ctl_elem_info_get_min(&info)));
605 p1 = add_cons(instance, p1, 1, "max", new_integer(instance, snd_ctl_elem_info_get_max(&info)));
606 p1 = add_cons(instance, p1, 1, "step", new_integer(instance, snd_ctl_elem_info_get_step(&info)));
609 p1 = add_cons(instance, p1, 1, "min64", new_float(instance, snd_ctl_elem_info_get_min64(&info)));
610 p1 = add_cons(instance, p1, 1, "max64", new_float(instance, snd_ctl_elem_info_get_max64(&info)));
611 p1 = add_cons(instance, p1, 1, "step64", new_float(instance, snd_ctl_elem_info_get_step64(&info)));
616 if (p1 == NULL) {
626 struct alisp_object * lexpr, * p1 = NULL, * obj;
633 p1 = eval(instance, car(args));
636 handle = (snd_hctl_elem_t *)get_ptr(instance, p1, item->prefix);
673 p1 = add_cons2(instance, lexpr->value.c.cdr, 0, obj);
675 p1 = add_cons2(instance, p1, 1, obj);
678 if (p1 == NULL) {
688 struct alisp_object * p1 = NULL, * obj;
695 p1 = car(cdr(args));
702 delete_tree(instance, p1);
707 delete_tree(instance, p1);
719 delete_tree(instance, p1);
722 obj = car(p1);
743 p1 = cdr(obj = p1);
745 } while (p1 != &alsa_lisp_nil);
753 struct alisp_object * lexpr, * p1;
757 p1 = eval(instance, car(args));
760 handle = (snd_pcm_t *)get_ptr(instance, p1, item->prefix);
767 p1 = add_cons(instance, lexpr->value.c.cdr, 0, "card", new_integer(instance, snd_pcm_info_get_card(&info)));
768 p1 = add_cons(instance, p1, 1, "device", new_integer(instance, snd_pcm_info_get_device(&info)));
769 p1 = add_cons(instance, p1, 1, "subdevice", new_integer(instance, snd_pcm_info_get_subdevice(&info)));
770 p1 = add_cons(instance, p1, 1, "id", new_string(instance, snd_pcm_info_get_id(&info)));
771 p1 = add_cons(instance, p1, 1, "name", new_string(instance, snd_pcm_info_get_name(&info)));
772 p1 = add_cons(instance, p1, 1, "subdevice_name", new_string(instance, snd_pcm_info_get_subdevice_name(&info)));
773 p1 = add_cons(instance, p1, 1, "class", new_integer(instance, snd_pcm_info_get_class(&info)));
774 p1 = add_cons(instance, p1, 1, "subclass", new_integer(instance, snd_pcm_info_get_subclass(&info)));
775 p1 = add_cons(instance, p1, 1, "subdevices_count", new_integer(instance, snd_pcm_info_get_subdevices_count(&info)));
776 p1 = add_cons(instance, p1, 1, "subdevices_avail", new_integer(instance, snd_pcm_info_get_subdevices_avail(&info)));
777 //p1 = add_cons(instance, p1, 1, "sync", new_string(instance, snd_pcm_info_get_sync(&info)));
811 static int acall_compar(const void *p1, const void *p2)
813 return strcmp(((struct acall_table *)p1)->name,
819 struct alisp_object * p1, *p2;
822 p1 = eval(instance, car(args));
825 if (!alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER) &&
826 !alisp_compare_type(p1, ALISP_OBJ_STRING)) {
830 key.name = p1->value.s;
834 delete_tree(instance, p1);
837 delete_tree(instance, p1);
839 lisp_warn(instance, "acall function %s' is undefined", p1->value.s);
845 struct alisp_object *p1;
847 p1 = eval(instance, car(args));
850 args = car(cdr(p1));
851 delete_tree(instance, cdr(cdr(p1)));
852 delete_object(instance, cdr(p1));
853 delete_tree(instance, car(p1));
854 delete_object(instance, p1);
860 struct alisp_object *p1;
862 p1 = eval(instance, car(args));
865 args = car(p1);
867 delete_tree(instance, p1);
870 delete_tree(instance, cdr(p1));
871 delete_object(instance, p1);
878 struct alisp_object * p = args, * p1;
889 p1 = eval(instance, car(p));
890 if (alisp_compare_type(p1, ALISP_OBJ_STRING))
891 snd_output_printf(out, "%s", p1->value.s);
893 princ_object(out, p1);
894 delete_tree(instance, p1);
895 p = cdr(p1 = p);
896 delete_object(instance, p1);