Lines Matching defs:args
26 struct alisp_object * (*func) (struct alisp_instance *instance, struct acall_table * item, struct alisp_object * args);
285 static struct alisp_object * FA_int_pp_strp_int(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
298 name = get_string(p1 = eval(instance, car(args)), NULL);
301 mode = get_flags(instance, p2 = eval(instance, car(cdr(args))), flags, 0);
302 delete_tree(instance, cdr(cdr(args)));
303 delete_object(instance, cdr(args));
304 delete_object(instance, args);
311 static struct alisp_object * FA_int_pp_p(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
321 delete_tree(instance, args);
324 p1 = eval(instance, car(args));
325 delete_tree(instance, cdr(args));
326 delete_object(instance, args);
334 static struct alisp_object * FA_p_p(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
348 delete_tree(instance, args);
351 p1 = eval(instance, car(args));
352 delete_tree(instance, cdr(args));
353 delete_object(instance, args);
361 static struct alisp_object * FA_int_p(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
366 p1 = eval(instance, car(args));
367 delete_tree(instance, cdr(args));
368 delete_object(instance, args);
375 static struct alisp_object * FA_str_p(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
380 p1 = eval(instance, car(args));
381 delete_tree(instance, cdr(args));
382 delete_object(instance, args);
389 static struct alisp_object * FA_int_intp(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
394 p1 = eval(instance, car(args));
395 delete_tree(instance, cdr(args));
396 delete_object(instance, args);
407 static struct alisp_object * FA_int_str(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
412 p1 = eval(instance, car(args));
413 delete_tree(instance, cdr(args));
414 delete_object(instance, args);
425 static struct alisp_object * FA_int_int_strp(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
432 p1 = eval(instance, car(args));
433 delete_tree(instance, cdr(args));
434 delete_object(instance, args);
445 static struct alisp_object * FA_card_info(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
452 p1 = eval(instance, car(args));
453 delete_tree(instance, cdr(args));
454 delete_object(instance, args);
524 static struct alisp_object * FA_hctl_find_elem(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
530 handle = (snd_hctl_t *)get_ptr(instance, car(args), item->prefix);
532 delete_tree(instance, cdr(args));
533 delete_object(instance, args);
536 p1 = car(cdr(args));
537 delete_tree(instance, cdr(cdr(args)));
538 delete_object(instance, cdr(args));
539 delete_object(instance, args);
545 static struct alisp_object * FA_hctl_elem_info(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
554 p1 = eval(instance, car(args));
555 delete_tree(instance, cdr(args));
556 delete_object(instance, args);
623 static struct alisp_object * FA_hctl_elem_read(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
633 p1 = eval(instance, car(args));
634 delete_tree(instance, cdr(args));
635 delete_object(instance, args);
685 static struct alisp_object * FA_hctl_elem_write(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
695 p1 = car(cdr(args));
696 obj = eval(instance, car(args));
697 delete_tree(instance, cdr(cdr(args)));
698 delete_object(instance, cdr(args));
699 delete_object(instance, args);
750 static struct alisp_object * FA_pcm_info(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
757 p1 = eval(instance, car(args));
758 delete_tree(instance, cdr(args));
759 delete_object(instance, args);
817 static struct alisp_object * F_acall(struct alisp_instance *instance, struct alisp_object * args)
822 p1 = eval(instance, car(args));
823 p2 = cdr(args);
824 delete_object(instance, args);
843 static struct alisp_object * F_ahandle(struct alisp_instance *instance, struct alisp_object * args)
847 p1 = eval(instance, car(args));
848 delete_tree(instance, cdr(args));
849 delete_object(instance, args);
850 args = car(cdr(p1));
855 return args;
858 static struct alisp_object * F_aerror(struct alisp_instance *instance, struct alisp_object * args)
862 p1 = eval(instance, car(args));
863 delete_tree(instance, cdr(args));
864 delete_object(instance, args);
865 args = car(p1);
866 if (args == &alsa_lisp_nil) {
873 return args;
876 static int common_error(snd_output_t **rout, struct alisp_instance *instance, struct alisp_object * args)
878 struct alisp_object * p = args, * p1;
884 delete_tree(instance, args);
903 static struct alisp_object * F_snderr(struct alisp_instance *instance, struct alisp_object * args)
908 if (common_error(&out, instance, args) < 0)
916 static struct alisp_object * F_syserr(struct alisp_instance *instance, struct alisp_object * args)
921 if (common_error(&out, instance, args) < 0)