|
Packit |
4a16fb |
/*
|
|
Packit |
4a16fb |
* ALSA lisp implementation - sound related commands
|
|
Packit |
4a16fb |
* Copyright (c) 2003 by Jaroslav Kysela <perex@perex.cz>
|
|
Packit |
4a16fb |
*
|
|
Packit |
4a16fb |
*
|
|
Packit |
4a16fb |
* This library is free software; you can redistribute it and/or modify
|
|
Packit |
4a16fb |
* it under the terms of the GNU Lesser General Public License as
|
|
Packit |
4a16fb |
* published by the Free Software Foundation; either version 2.1 of
|
|
Packit |
4a16fb |
* the License, or (at your option) any later version.
|
|
Packit |
4a16fb |
*
|
|
Packit |
4a16fb |
* This program is distributed in the hope that it will be useful,
|
|
Packit |
4a16fb |
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
4a16fb |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Packit |
4a16fb |
* GNU Lesser General Public License for more details.
|
|
Packit |
4a16fb |
*
|
|
Packit |
4a16fb |
* You should have received a copy of the GNU Lesser General Public
|
|
Packit |
4a16fb |
* License along with this library; if not, write to the Free Software
|
|
Packit |
4a16fb |
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
Packit |
4a16fb |
*
|
|
Packit |
4a16fb |
*/
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
#include "../control/control_local.h"
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
struct acall_table {
|
|
Packit |
4a16fb |
const char *name;
|
|
Packit |
4a16fb |
struct alisp_object * (*func) (struct alisp_instance *instance, struct acall_table * item, struct alisp_object * args);
|
|
Packit |
4a16fb |
void * xfunc;
|
|
Packit |
4a16fb |
const char *prefix;
|
|
Packit |
4a16fb |
};
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
/*
|
|
Packit |
4a16fb |
* helper functions
|
|
Packit |
4a16fb |
*/
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static inline int get_integer(struct alisp_object * obj)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
if (alisp_compare_type(obj, ALISP_OBJ_INTEGER))
|
|
Packit |
4a16fb |
return obj->value.i;
|
|
Packit |
4a16fb |
return 0;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static inline const void *get_pointer(struct alisp_object * obj)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
if (alisp_compare_type(obj, ALISP_OBJ_POINTER))
|
|
Packit |
4a16fb |
return obj->value.ptr;
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static const char *get_string(struct alisp_object * obj, const char * deflt)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
if (obj == &alsa_lisp_t)
|
|
Packit |
4a16fb |
return "true";
|
|
Packit |
4a16fb |
if (alisp_compare_type(obj, ALISP_OBJ_STRING) ||
|
|
Packit |
4a16fb |
alisp_compare_type(obj, ALISP_OBJ_IDENTIFIER))
|
|
Packit |
4a16fb |
return obj->value.s;
|
|
Packit |
4a16fb |
return deflt;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
struct flags {
|
|
Packit |
4a16fb |
const char *key;
|
|
Packit |
4a16fb |
unsigned int mask;
|
|
Packit |
4a16fb |
};
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static unsigned int get_flags(struct alisp_instance * instance,
|
|
Packit |
4a16fb |
struct alisp_object * obj,
|
|
Packit |
4a16fb |
const struct flags * flags,
|
|
Packit |
4a16fb |
unsigned int deflt)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
const char *key;
|
|
Packit |
4a16fb |
int invert;
|
|
Packit |
4a16fb |
unsigned int result;
|
|
Packit |
4a16fb |
const struct flags *ptr;
|
|
Packit |
4a16fb |
struct alisp_object *n;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (obj == &alsa_lisp_nil)
|
|
Packit |
4a16fb |
return deflt;
|
|
Packit |
4a16fb |
result = deflt;
|
|
Packit |
4a16fb |
do {
|
|
Packit |
4a16fb |
key = get_string(obj, NULL);
|
|
Packit |
4a16fb |
if (key) {
|
|
Packit |
4a16fb |
invert = key[0] == '!';
|
|
Packit |
4a16fb |
key += invert;
|
|
Packit |
4a16fb |
ptr = flags;
|
|
Packit |
4a16fb |
while (ptr->key) {
|
|
Packit |
4a16fb |
if (!strcmp(ptr->key, key)) {
|
|
Packit |
4a16fb |
if (invert)
|
|
Packit |
4a16fb |
result &= ~ptr->mask;
|
|
Packit |
4a16fb |
else
|
|
Packit |
4a16fb |
result |= ptr->mask;
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
ptr++;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
delete_tree(instance, car(obj));
|
|
Packit |
4a16fb |
obj = cdr(n = obj);
|
|
Packit |
4a16fb |
delete_object(instance, n);
|
|
Packit |
4a16fb |
} while (obj != &alsa_lisp_nil);
|
|
Packit |
4a16fb |
return result;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static const void *get_ptr(struct alisp_instance * instance,
|
|
Packit |
4a16fb |
struct alisp_object * obj,
|
|
Packit |
4a16fb |
const char *_ptr_id)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
const char *ptr_id;
|
|
Packit |
4a16fb |
const void *ptr;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
ptr_id = get_string(car(obj), NULL);
|
|
Packit |
4a16fb |
if (ptr_id == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
if (strcmp(ptr_id, _ptr_id)) {
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
ptr = get_pointer(cdr(obj));
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
return ptr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * new_lexpr(struct alisp_instance * instance, int err)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object * lexpr;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
lexpr = new_object(instance, ALISP_OBJ_CONS);
|
|
Packit |
4a16fb |
if (lexpr == NULL)
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
lexpr->value.c.car = new_integer(instance, err);
|
|
Packit |
4a16fb |
if (lexpr->value.c.car == NULL) {
|
|
Packit |
4a16fb |
delete_object(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
|
|
Packit |
4a16fb |
if (lexpr->value.c.cdr == NULL) {
|
|
Packit |
4a16fb |
delete_object(instance, lexpr->value.c.car);
|
|
Packit |
4a16fb |
delete_object(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * add_cons(struct alisp_instance * instance,
|
|
Packit |
4a16fb |
struct alisp_object *lexpr,
|
|
Packit |
4a16fb |
int cdr, const char *id,
|
|
Packit |
4a16fb |
struct alisp_object *obj)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object * p1, * p2;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (lexpr == NULL || obj == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
if (cdr) {
|
|
Packit |
4a16fb |
p1 = lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
|
|
Packit |
4a16fb |
} else {
|
|
Packit |
4a16fb |
p1 = lexpr->value.c.car = new_object(instance, ALISP_OBJ_CONS);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
lexpr = p1;
|
|
Packit |
4a16fb |
if (p1 == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
p1->value.c.car = new_object(instance, ALISP_OBJ_CONS);
|
|
Packit |
4a16fb |
if ((p2 = p1->value.c.car) == NULL)
|
|
Packit |
4a16fb |
goto __err;
|
|
Packit |
4a16fb |
p2->value.c.car = new_string(instance, id);
|
|
Packit |
4a16fb |
if (p2->value.c.car == NULL) {
|
|
Packit |
4a16fb |
__err:
|
|
Packit |
4a16fb |
if (cdr)
|
|
Packit |
4a16fb |
lexpr->value.c.cdr = NULL;
|
|
Packit |
4a16fb |
else
|
|
Packit |
4a16fb |
lexpr->value.c.car = NULL;
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
p2->value.c.cdr = obj;
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * add_cons2(struct alisp_instance * instance,
|
|
Packit |
4a16fb |
struct alisp_object *lexpr,
|
|
Packit |
4a16fb |
int cdr, struct alisp_object *obj)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (lexpr == NULL || obj == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
if (cdr) {
|
|
Packit |
4a16fb |
p1 = lexpr->value.c.cdr = new_object(instance, ALISP_OBJ_CONS);
|
|
Packit |
4a16fb |
} else {
|
|
Packit |
4a16fb |
p1 = lexpr->value.c.car = new_object(instance, ALISP_OBJ_CONS);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
lexpr = p1;
|
|
Packit |
4a16fb |
if (p1 == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
p1->value.c.car = obj;
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * new_result1(struct alisp_instance * instance,
|
|
Packit |
4a16fb |
int err, const char *ptr_id, void *ptr)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object * lexpr, * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (err < 0)
|
|
Packit |
4a16fb |
ptr = NULL;
|
|
Packit |
4a16fb |
lexpr = new_object(instance, ALISP_OBJ_CONS);
|
|
Packit |
4a16fb |
if (lexpr == NULL)
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
lexpr->value.c.car = new_integer(instance, err);
|
|
Packit |
4a16fb |
if (lexpr->value.c.car == NULL) {
|
|
Packit |
4a16fb |
delete_object(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
p1 = add_cons(instance, lexpr, 1, ptr_id, new_pointer(instance, ptr));
|
|
Packit |
4a16fb |
if (p1 == NULL) {
|
|
Packit |
4a16fb |
delete_object(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * new_result2(struct alisp_instance * instance,
|
|
Packit |
4a16fb |
int err, int val)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object * lexpr, * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (err < 0)
|
|
Packit |
4a16fb |
val = 0;
|
|
Packit |
4a16fb |
lexpr = new_lexpr(instance, err);
|
|
Packit |
4a16fb |
if (lexpr == NULL)
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
p1 = lexpr->value.c.cdr;
|
|
Packit |
4a16fb |
p1->value.c.car = new_integer(instance, val);
|
|
Packit |
4a16fb |
if (p1->value.c.car == NULL) {
|
|
Packit |
4a16fb |
delete_object(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * new_result3(struct alisp_instance * instance,
|
|
Packit |
4a16fb |
int err, const char *str)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object * lexpr, * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (err < 0)
|
|
Packit |
4a16fb |
str = "";
|
|
Packit |
4a16fb |
lexpr = new_lexpr(instance, err);
|
|
Packit |
4a16fb |
if (lexpr == NULL)
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
p1 = lexpr->value.c.cdr;
|
|
Packit |
4a16fb |
p1->value.c.car = new_string(instance, str);
|
|
Packit |
4a16fb |
if (p1->value.c.car == NULL) {
|
|
Packit |
4a16fb |
delete_object(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
/*
|
|
Packit |
4a16fb |
* macros
|
|
Packit |
4a16fb |
*/
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
/*
|
|
Packit |
4a16fb |
* HCTL functions
|
|
Packit |
4a16fb |
*/
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
typedef int (*snd_int_pp_strp_int_t)(void **rctl, const char *name, int mode);
|
|
Packit |
4a16fb |
typedef int (*snd_int_pp_p_t)(void **rctl, void *handle);
|
|
Packit |
4a16fb |
typedef int (*snd_int_p_t)(void *rctl);
|
|
Packit |
4a16fb |
typedef char * (*snd_str_p_t)(void *rctl);
|
|
Packit |
4a16fb |
typedef int (*snd_int_intp_t)(int *val);
|
|
Packit |
4a16fb |
typedef int (*snd_int_str_t)(const char *str);
|
|
Packit |
4a16fb |
typedef int (*snd_int_int_strp_t)(int val, char **str);
|
|
Packit |
4a16fb |
typedef void *(*snd_p_p_t)(void *handle);
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_int_pp_strp_int(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
const char *name;
|
|
Packit |
4a16fb |
int err, mode;
|
|
Packit |
4a16fb |
void *handle;
|
|
Packit |
4a16fb |
struct alisp_object *p1, *p2;
|
|
Packit |
4a16fb |
static const struct flags flags[] = {
|
|
Packit |
4a16fb |
{ "nonblock", SND_CTL_NONBLOCK },
|
|
Packit |
4a16fb |
{ "async", SND_CTL_ASYNC },
|
|
Packit |
4a16fb |
{ "readonly", SND_CTL_READONLY },
|
|
Packit |
4a16fb |
{ NULL, 0 }
|
|
Packit |
4a16fb |
};
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
name = get_string(p1 = eval(instance, car(args)), NULL);
|
|
Packit |
4a16fb |
if (name == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
mode = get_flags(instance, p2 = eval(instance, car(cdr(args))), flags, 0);
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(cdr(args)));
|
|
Packit |
4a16fb |
delete_object(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
delete_tree(instance, p2);
|
|
Packit |
4a16fb |
err = ((snd_int_pp_strp_int_t)item->xfunc)(&handle, name, mode);
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return new_result1(instance, err, item->prefix, handle);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_int_pp_p(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
void *handle;
|
|
Packit |
4a16fb |
const char *prefix1;
|
|
Packit |
4a16fb |
struct alisp_object *p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (item->xfunc == &snd_hctl_open_ctl)
|
|
Packit |
4a16fb |
prefix1 = "ctl";
|
|
Packit |
4a16fb |
else {
|
|
Packit |
4a16fb |
delete_tree(instance, args);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (void *)get_ptr(instance, p1, prefix1);
|
|
Packit |
4a16fb |
if (handle == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
err = ((snd_int_pp_p_t)item->xfunc)(&handle, handle);
|
|
Packit |
4a16fb |
return new_result1(instance, err, item->prefix, handle);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_p_p(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
void *handle;
|
|
Packit |
4a16fb |
const char *prefix1;
|
|
Packit |
4a16fb |
struct alisp_object * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (item->xfunc == &snd_hctl_first_elem ||
|
|
Packit |
4a16fb |
item->xfunc == &snd_hctl_last_elem ||
|
|
Packit |
4a16fb |
item->xfunc == &snd_hctl_elem_next ||
|
|
Packit |
4a16fb |
item->xfunc == &snd_hctl_elem_prev)
|
|
Packit |
4a16fb |
prefix1 = "hctl_elem";
|
|
Packit |
4a16fb |
else if (item->xfunc == &snd_hctl_ctl)
|
|
Packit |
4a16fb |
prefix1 = "ctl";
|
|
Packit |
4a16fb |
else {
|
|
Packit |
4a16fb |
delete_tree(instance, args);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (void *)get_ptr(instance, p1, item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
handle = ((snd_p_p_t)item->xfunc)(handle);
|
|
Packit |
4a16fb |
return new_cons_pointer(instance, prefix1, handle);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_int_p(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
void *handle;
|
|
Packit |
4a16fb |
struct alisp_object * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (void *)get_ptr(instance, p1, item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
return new_integer(instance, ((snd_int_p_t)item->xfunc)(handle));
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_str_p(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
void *handle;
|
|
Packit |
4a16fb |
struct alisp_object * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (void *)get_ptr(instance, p1, item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
return new_string(instance, ((snd_str_p_t)item->xfunc)(handle));
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_int_intp(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
int val, err;
|
|
Packit |
4a16fb |
struct alisp_object * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
val = p1->value.i;
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
err = ((snd_int_intp_t)item->xfunc)(&val;;
|
|
Packit |
4a16fb |
return new_result2(instance, err, val);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_int_str(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
struct alisp_object * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
if (!alisp_compare_type(p1, ALISP_OBJ_STRING) &&
|
|
Packit |
4a16fb |
!alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER)) {
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
err = ((snd_int_str_t)item->xfunc)(p1->value.s);
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return new_integer(instance, err);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_int_int_strp(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
char *str;
|
|
Packit |
4a16fb |
long val;
|
|
Packit |
4a16fb |
struct alisp_object * p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
val = p1->value.i;
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
err = ((snd_int_int_strp_t)item->xfunc)(val, &str);
|
|
Packit |
4a16fb |
return new_result3(instance, err, str);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_card_info(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
snd_ctl_t *handle;
|
|
Packit |
4a16fb |
struct alisp_object * lexpr, * p1;
|
|
Packit |
4a16fb |
snd_ctl_card_info_t info = {0};
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (snd_ctl_t *)get_ptr(instance, p1, item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
err = snd_ctl_card_info(handle, &info;;
|
|
Packit |
4a16fb |
lexpr = new_lexpr(instance, err);
|
|
Packit |
4a16fb |
if (err < 0)
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", new_string(instance, snd_ctl_card_info_get_id(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "driver", new_string(instance, snd_ctl_card_info_get_driver(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "name", new_string(instance, snd_ctl_card_info_get_name(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "longname", new_string(instance, snd_ctl_card_info_get_longname(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "mixername", new_string(instance, snd_ctl_card_info_get_mixername(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "components", new_string(instance, snd_ctl_card_info_get_components(&info)));
|
|
Packit |
4a16fb |
if (p1 == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * create_ctl_elem_id(struct alisp_instance * instance, snd_ctl_elem_id_t * id, struct alisp_object * cons)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
cons = add_cons(instance, cons, 0, "numid", new_integer(instance, snd_ctl_elem_id_get_numid(id)));
|
|
Packit |
4a16fb |
cons = add_cons(instance, cons, 1, "iface", new_string(instance, snd_ctl_elem_iface_name(snd_ctl_elem_id_get_interface(id))));
|
|
Packit |
4a16fb |
cons = add_cons(instance, cons, 1, "dev", new_integer(instance, snd_ctl_elem_id_get_device(id)));
|
|
Packit |
4a16fb |
cons = add_cons(instance, cons, 1, "subdev", new_integer(instance, snd_ctl_elem_id_get_subdevice(id)));
|
|
Packit |
4a16fb |
cons = add_cons(instance, cons, 1, "name", new_string(instance, snd_ctl_elem_id_get_name(id)));
|
|
Packit |
4a16fb |
cons = add_cons(instance, cons, 1, "index", new_integer(instance, snd_ctl_elem_id_get_index(id)));
|
|
Packit |
4a16fb |
return cons;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static int parse_ctl_elem_id(struct alisp_instance * instance,
|
|
Packit |
4a16fb |
struct alisp_object * cons,
|
|
Packit |
4a16fb |
snd_ctl_elem_id_t * id)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object *p1;
|
|
Packit |
4a16fb |
const char *xid;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (cons == NULL)
|
|
Packit |
4a16fb |
return -ENOMEM;
|
|
Packit |
4a16fb |
snd_ctl_elem_id_clear(id);
|
|
Packit |
4a16fb |
id->numid = 0;
|
|
Packit |
4a16fb |
do {
|
|
Packit |
4a16fb |
p1 = car(cons);
|
|
Packit |
4a16fb |
if (alisp_compare_type(p1, ALISP_OBJ_CONS)) {
|
|
Packit |
4a16fb |
xid = get_string(p1->value.c.car, NULL);
|
|
Packit |
4a16fb |
if (xid == NULL) {
|
|
Packit |
4a16fb |
/* noop */
|
|
Packit |
4a16fb |
} else if (!strcmp(xid, "numid")) {
|
|
Packit |
4a16fb |
snd_ctl_elem_id_set_numid(id, get_integer(p1->value.c.cdr));
|
|
Packit |
4a16fb |
} else if (!strcmp(xid, "iface")) {
|
|
Packit |
4a16fb |
snd_ctl_elem_id_set_interface(id, snd_config_get_ctl_iface_ascii(get_string(p1->value.c.cdr, "0")));
|
|
Packit |
4a16fb |
} else if (!strcmp(xid, "dev")) {
|
|
Packit |
4a16fb |
snd_ctl_elem_id_set_device(id, get_integer(p1->value.c.cdr));
|
|
Packit |
4a16fb |
} else if (!strcmp(xid, "subdev")) {
|
|
Packit |
4a16fb |
snd_ctl_elem_id_set_subdevice(id, get_integer(p1->value.c.cdr));
|
|
Packit |
4a16fb |
} else if (!strcmp(xid, "name")) {
|
|
Packit |
4a16fb |
snd_ctl_elem_id_set_name(id, get_string(p1->value.c.cdr, "?"));
|
|
Packit |
4a16fb |
} else if (!strcmp(xid, "index")) {
|
|
Packit |
4a16fb |
snd_ctl_elem_id_set_index(id, get_integer(p1->value.c.cdr));
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
cons = cdr(p1 = cons);
|
|
Packit |
4a16fb |
delete_object(instance, p1);
|
|
Packit |
4a16fb |
} while (cons != &alsa_lisp_nil);
|
|
Packit |
4a16fb |
return 0;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_hctl_find_elem(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
snd_hctl_t *handle;
|
|
Packit |
4a16fb |
snd_ctl_elem_id_t id = {0};
|
|
Packit |
4a16fb |
struct alisp_object *p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
handle = (snd_hctl_t *)get_ptr(instance, car(args), item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
p1 = car(cdr(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(cdr(args)));
|
|
Packit |
4a16fb |
delete_object(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
if (parse_ctl_elem_id(instance, eval(instance, p1), &id) < 0)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
return new_cons_pointer(instance, "hctl_elem", snd_hctl_find_elem(handle, &id));
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_hctl_elem_info(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
snd_hctl_elem_t *handle;
|
|
Packit |
4a16fb |
struct alisp_object * lexpr, * p1, * p2;
|
|
Packit |
4a16fb |
snd_ctl_elem_info_t info = {0};
|
|
Packit |
4a16fb |
snd_ctl_elem_id_t id = {0};
|
|
Packit |
4a16fb |
snd_ctl_elem_type_t type;
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (snd_hctl_elem_t *)get_ptr(instance, p1, item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
err = snd_hctl_elem_info(handle, &info;;
|
|
Packit |
4a16fb |
lexpr = new_lexpr(instance, err);
|
|
Packit |
4a16fb |
if (err < 0)
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
type = snd_ctl_elem_info_get_type(&info;;
|
|
Packit |
4a16fb |
p1 = add_cons(instance, lexpr->value.c.cdr, 0, "id", p2 = new_object(instance, ALISP_OBJ_CONS));
|
|
Packit |
4a16fb |
snd_ctl_elem_info_get_id(&info, &id;;
|
|
Packit |
4a16fb |
if (create_ctl_elem_id(instance, &id, p2) == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "type", new_string(instance, snd_ctl_elem_type_name(type)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "readable", new_integer(instance, snd_ctl_elem_info_is_readable(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "writable", new_integer(instance, snd_ctl_elem_info_is_writable(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "volatile", new_integer(instance, snd_ctl_elem_info_is_volatile(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "inactive", new_integer(instance, snd_ctl_elem_info_is_inactive(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "locked", new_integer(instance, snd_ctl_elem_info_is_locked(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "isowner", new_integer(instance, snd_ctl_elem_info_is_owner(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "owner", new_integer(instance, snd_ctl_elem_info_get_owner(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "count", new_integer(instance, snd_ctl_elem_info_get_count(&info)));
|
|
Packit |
4a16fb |
err = INTERNAL(snd_ctl_elem_info_get_dimensions)(&info;;
|
|
Packit |
4a16fb |
if (err > 0) {
|
|
Packit |
4a16fb |
int idx;
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "dimensions", p2 = new_object(instance, ALISP_OBJ_CONS));
|
|
Packit |
4a16fb |
for (idx = 0; idx < err; idx++)
|
|
Packit |
4a16fb |
p2 = add_cons2(instance, p2, idx > 0, new_integer(instance, INTERNAL(snd_ctl_elem_info_get_dimension)(&info, idx)));
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
switch (type) {
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_ENUMERATED: {
|
|
Packit |
4a16fb |
unsigned int items, item;
|
|
Packit |
4a16fb |
items = snd_ctl_elem_info_get_items(&info;;
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "items", p2 = new_object(instance, ALISP_OBJ_CONS));
|
|
Packit |
4a16fb |
for (item = 0; item < items; item++) {
|
|
Packit |
4a16fb |
snd_ctl_elem_info_set_item(&info, item);
|
|
Packit |
4a16fb |
err = snd_hctl_elem_info(handle, &info;;
|
|
Packit |
4a16fb |
if (err < 0) {
|
|
Packit |
4a16fb |
p2 = add_cons2(instance, p2, item, &alsa_lisp_nil);
|
|
Packit |
4a16fb |
} else {
|
|
Packit |
4a16fb |
p2 = add_cons2(instance, p2, item, new_string(instance, snd_ctl_elem_info_get_item_name(&info)));
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_INTEGER:
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "min", new_integer(instance, snd_ctl_elem_info_get_min(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "max", new_integer(instance, snd_ctl_elem_info_get_max(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "step", new_integer(instance, snd_ctl_elem_info_get_step(&info)));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_INTEGER64:
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "min64", new_float(instance, snd_ctl_elem_info_get_min64(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "max64", new_float(instance, snd_ctl_elem_info_get_max64(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "step64", new_float(instance, snd_ctl_elem_info_get_step64(&info)));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
default:
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
if (p1 == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, lexpr);
|
|
Packit |
4a16fb |
return NULL;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_hctl_elem_read(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
snd_hctl_elem_t *handle;
|
|
Packit |
4a16fb |
struct alisp_object * lexpr, * p1 = NULL, * obj;
|
|
Packit |
4a16fb |
snd_ctl_elem_info_t info = {0};
|
|
Packit |
4a16fb |
snd_ctl_elem_value_t value = {0};
|
|
Packit |
4a16fb |
snd_ctl_elem_type_t type;
|
|
Packit |
4a16fb |
unsigned int idx, count;
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (snd_hctl_elem_t *)get_ptr(instance, p1, item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
err = snd_hctl_elem_info(handle, &info;;
|
|
Packit |
4a16fb |
if (err >= 0)
|
|
Packit |
4a16fb |
err = snd_hctl_elem_read(handle, &value);
|
|
Packit |
4a16fb |
lexpr = new_lexpr(instance, err);
|
|
Packit |
4a16fb |
if (err < 0)
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
type = snd_ctl_elem_info_get_type(&info;;
|
|
Packit |
4a16fb |
count = snd_ctl_elem_info_get_count(&info;;
|
|
Packit |
4a16fb |
if (type == SND_CTL_ELEM_TYPE_IEC958) {
|
|
Packit |
4a16fb |
count = sizeof(snd_aes_iec958_t);
|
|
Packit |
4a16fb |
type = SND_CTL_ELEM_TYPE_BYTES;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
for (idx = 0; idx < count; idx++) {
|
|
Packit |
4a16fb |
switch (type) {
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_BOOLEAN:
|
|
Packit |
4a16fb |
obj = new_integer(instance, snd_ctl_elem_value_get_boolean(&value, idx));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_INTEGER:
|
|
Packit |
4a16fb |
obj = new_integer(instance, snd_ctl_elem_value_get_integer(&value, idx));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_INTEGER64:
|
|
Packit |
4a16fb |
obj = new_integer(instance, snd_ctl_elem_value_get_integer64(&value, idx));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_ENUMERATED:
|
|
Packit |
4a16fb |
obj = new_integer(instance, snd_ctl_elem_value_get_enumerated(&value, idx));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_BYTES:
|
|
Packit |
4a16fb |
obj = new_integer(instance, snd_ctl_elem_value_get_byte(&value, idx));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
default:
|
|
Packit |
4a16fb |
obj = NULL;
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
if (idx == 0) {
|
|
Packit |
4a16fb |
p1 = add_cons2(instance, lexpr->value.c.cdr, 0, obj);
|
|
Packit |
4a16fb |
} else {
|
|
Packit |
4a16fb |
p1 = add_cons2(instance, p1, 1, obj);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
if (p1 == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, lexpr);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_hctl_elem_write(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
snd_hctl_elem_t *handle;
|
|
Packit |
4a16fb |
struct alisp_object * p1 = NULL, * obj;
|
|
Packit |
4a16fb |
snd_ctl_elem_info_t info = {0};
|
|
Packit |
4a16fb |
snd_ctl_elem_value_t value = {0};
|
|
Packit |
4a16fb |
snd_ctl_elem_type_t type;
|
|
Packit |
4a16fb |
unsigned int idx, count;
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = car(cdr(args));
|
|
Packit |
4a16fb |
obj = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(cdr(args)));
|
|
Packit |
4a16fb |
delete_object(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (snd_hctl_elem_t *)get_ptr(instance, obj, item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
err = snd_hctl_elem_info(handle, &info;;
|
|
Packit |
4a16fb |
if (err < 0) {
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return new_integer(instance, err);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
type = snd_ctl_elem_info_get_type(&info;;
|
|
Packit |
4a16fb |
count = snd_ctl_elem_info_get_count(&info;;
|
|
Packit |
4a16fb |
if (type == SND_CTL_ELEM_TYPE_IEC958) {
|
|
Packit |
4a16fb |
count = sizeof(snd_aes_iec958_t);
|
|
Packit |
4a16fb |
type = SND_CTL_ELEM_TYPE_BYTES;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
idx = -1;
|
|
Packit |
4a16fb |
do {
|
|
Packit |
4a16fb |
if (++idx >= count) {
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
obj = car(p1);
|
|
Packit |
4a16fb |
switch (type) {
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_BOOLEAN:
|
|
Packit |
4a16fb |
snd_ctl_elem_value_set_boolean(&value, idx, get_integer(obj));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_INTEGER:
|
|
Packit |
4a16fb |
snd_ctl_elem_value_set_integer(&value, idx, get_integer(obj));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_INTEGER64:
|
|
Packit |
4a16fb |
snd_ctl_elem_value_set_integer64(&value, idx, get_integer(obj));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_ENUMERATED:
|
|
Packit |
4a16fb |
snd_ctl_elem_value_set_enumerated(&value, idx, get_integer(obj));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
case SND_CTL_ELEM_TYPE_BYTES:
|
|
Packit |
4a16fb |
snd_ctl_elem_value_set_byte(&value, idx, get_integer(obj));
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
default:
|
|
Packit |
4a16fb |
break;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
delete_tree(instance, obj);
|
|
Packit |
4a16fb |
p1 = cdr(obj = p1);
|
|
Packit |
4a16fb |
delete_object(instance, obj);
|
|
Packit |
4a16fb |
} while (p1 != &alsa_lisp_nil);
|
|
Packit |
4a16fb |
err = snd_hctl_elem_write(handle, &value);
|
|
Packit |
4a16fb |
return new_integer(instance, err);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * FA_pcm_info(struct alisp_instance * instance, struct acall_table * item, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
snd_pcm_t *handle;
|
|
Packit |
4a16fb |
struct alisp_object * lexpr, * p1;
|
|
Packit |
4a16fb |
snd_pcm_info_t info = {0};
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
handle = (snd_pcm_t *)get_ptr(instance, p1, item->prefix);
|
|
Packit |
4a16fb |
if (handle == NULL)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
err = snd_pcm_info(handle, &info;;
|
|
Packit |
4a16fb |
lexpr = new_lexpr(instance, err);
|
|
Packit |
4a16fb |
if (err < 0)
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
p1 = add_cons(instance, lexpr->value.c.cdr, 0, "card", new_integer(instance, snd_pcm_info_get_card(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "device", new_integer(instance, snd_pcm_info_get_device(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "subdevice", new_integer(instance, snd_pcm_info_get_subdevice(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "id", new_string(instance, snd_pcm_info_get_id(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "name", new_string(instance, snd_pcm_info_get_name(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "subdevice_name", new_string(instance, snd_pcm_info_get_subdevice_name(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "class", new_integer(instance, snd_pcm_info_get_class(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "subclass", new_integer(instance, snd_pcm_info_get_subclass(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "subdevices_count", new_integer(instance, snd_pcm_info_get_subdevices_count(&info)));
|
|
Packit |
4a16fb |
p1 = add_cons(instance, p1, 1, "subdevices_avail", new_integer(instance, snd_pcm_info_get_subdevices_avail(&info)));
|
|
Packit |
4a16fb |
//p1 = add_cons(instance, p1, 1, "sync", new_string(instance, snd_pcm_info_get_sync(&info)));
|
|
Packit |
4a16fb |
return lexpr;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
/*
|
|
Packit |
4a16fb |
* main code
|
|
Packit |
4a16fb |
*/
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static const struct acall_table acall_table[] = {
|
|
Packit |
4a16fb |
{ "card_get_index", &FA_int_str, (void *)snd_card_get_index, NULL },
|
|
Packit |
4a16fb |
{ "card_get_longname", &FA_int_int_strp, (void *)snd_card_get_longname, NULL },
|
|
Packit |
4a16fb |
{ "card_get_name", &FA_int_int_strp, (void *)snd_card_get_name, NULL },
|
|
Packit |
4a16fb |
{ "card_next", &FA_int_intp, (void *)&snd_card_next, NULL },
|
|
Packit |
4a16fb |
{ "ctl_card_info", &FA_card_info, NULL, "ctl" },
|
|
Packit |
4a16fb |
{ "ctl_close", &FA_int_p, (void *)&snd_ctl_close, "ctl" },
|
|
Packit |
4a16fb |
{ "ctl_open", &FA_int_pp_strp_int, (void *)&snd_ctl_open, "ctl" },
|
|
Packit |
4a16fb |
{ "hctl_close", &FA_int_p, (void *)&snd_hctl_close, "hctl" },
|
|
Packit |
4a16fb |
{ "hctl_ctl", &FA_p_p, (void *)&snd_hctl_ctl, "hctl" },
|
|
Packit |
4a16fb |
{ "hctl_elem_info", &FA_hctl_elem_info, (void *)&snd_hctl_elem_info, "hctl_elem" },
|
|
Packit |
4a16fb |
{ "hctl_elem_next", &FA_p_p, (void *)&snd_hctl_elem_next, "hctl_elem" },
|
|
Packit |
4a16fb |
{ "hctl_elem_prev", &FA_p_p, (void *)&snd_hctl_elem_prev, "hctl_elem" },
|
|
Packit |
4a16fb |
{ "hctl_elem_read", &FA_hctl_elem_read, (void *)&snd_hctl_elem_read, "hctl_elem" },
|
|
Packit |
4a16fb |
{ "hctl_elem_write", &FA_hctl_elem_write, (void *)&snd_hctl_elem_write, "hctl_elem" },
|
|
Packit |
4a16fb |
{ "hctl_find_elem", &FA_hctl_find_elem, (void *)&snd_hctl_find_elem, "hctl" },
|
|
Packit |
4a16fb |
{ "hctl_first_elem", &FA_p_p, (void *)&snd_hctl_first_elem, "hctl" },
|
|
Packit |
4a16fb |
{ "hctl_free", &FA_int_p, (void *)&snd_hctl_free, "hctl" },
|
|
Packit |
4a16fb |
{ "hctl_last_elem", &FA_p_p, (void *)&snd_hctl_last_elem, "hctl" },
|
|
Packit |
4a16fb |
{ "hctl_load", &FA_int_p, (void *)&snd_hctl_load, "hctl" },
|
|
Packit |
4a16fb |
{ "hctl_open", &FA_int_pp_strp_int, (void *)&snd_hctl_open, "hctl" },
|
|
Packit |
4a16fb |
{ "hctl_open_ctl", &FA_int_pp_p, (void *)&snd_hctl_open_ctl, "hctl" },
|
|
Packit |
4a16fb |
{ "pcm_info", &FA_pcm_info, NULL, "pcm" },
|
|
Packit |
4a16fb |
{ "pcm_name", &FA_str_p, (void *)&snd_pcm_name, "pcm" },
|
|
Packit |
4a16fb |
};
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static int acall_compar(const void *p1, const void *p2)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
return strcmp(((struct acall_table *)p1)->name,
|
|
Packit |
4a16fb |
((struct acall_table *)p2)->name);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * F_acall(struct alisp_instance *instance, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object * p1, *p2;
|
|
Packit |
4a16fb |
struct acall_table key, *item;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
p2 = cdr(args);
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
if (!alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER) &&
|
|
Packit |
4a16fb |
!alisp_compare_type(p1, ALISP_OBJ_STRING)) {
|
|
Packit |
4a16fb |
delete_tree(instance, p2);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
key.name = p1->value.s;
|
|
Packit |
4a16fb |
if ((item = bsearch(&key, acall_table,
|
|
Packit |
4a16fb |
sizeof acall_table / sizeof acall_table[0],
|
|
Packit |
4a16fb |
sizeof acall_table[0], acall_compar)) != NULL) {
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return item->func(instance, item, p2);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
delete_tree(instance, p2);
|
|
Packit |
4a16fb |
lisp_warn(instance, "acall function %s' is undefined", p1->value.s);
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * F_ahandle(struct alisp_instance *instance, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object *p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
args = car(cdr(p1));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(cdr(p1)));
|
|
Packit |
4a16fb |
delete_object(instance, cdr(p1));
|
|
Packit |
4a16fb |
delete_tree(instance, car(p1));
|
|
Packit |
4a16fb |
delete_object(instance, p1);
|
|
Packit |
4a16fb |
return args;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * F_aerror(struct alisp_instance *instance, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object *p1;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
p1 = eval(instance, car(args));
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(args));
|
|
Packit |
4a16fb |
delete_object(instance, args);
|
|
Packit |
4a16fb |
args = car(p1);
|
|
Packit |
4a16fb |
if (args == &alsa_lisp_nil) {
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
return new_integer(instance, SND_ERROR_ALISP_NIL);
|
|
Packit |
4a16fb |
} else {
|
|
Packit |
4a16fb |
delete_tree(instance, cdr(p1));
|
|
Packit |
4a16fb |
delete_object(instance, p1);
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
return args;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static int common_error(snd_output_t **rout, struct alisp_instance *instance, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
struct alisp_object * p = args, * p1;
|
|
Packit |
4a16fb |
snd_output_t *out;
|
|
Packit |
4a16fb |
int err;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
err = snd_output_buffer_open(&out;;
|
|
Packit |
4a16fb |
if (err < 0) {
|
|
Packit |
4a16fb |
delete_tree(instance, args);
|
|
Packit |
4a16fb |
return err;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
do {
|
|
Packit |
4a16fb |
p1 = eval(instance, car(p));
|
|
Packit |
4a16fb |
if (alisp_compare_type(p1, ALISP_OBJ_STRING))
|
|
Packit |
4a16fb |
snd_output_printf(out, "%s", p1->value.s);
|
|
Packit |
4a16fb |
else
|
|
Packit |
4a16fb |
princ_object(out, p1);
|
|
Packit |
4a16fb |
delete_tree(instance, p1);
|
|
Packit |
4a16fb |
p = cdr(p1 = p);
|
|
Packit |
4a16fb |
delete_object(instance, p1);
|
|
Packit |
4a16fb |
} while (p != &alsa_lisp_nil);
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
*rout = out;
|
|
Packit |
4a16fb |
return 0;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * F_snderr(struct alisp_instance *instance, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
snd_output_t *out;
|
|
Packit |
4a16fb |
char *str;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (common_error(&out, instance, args) < 0)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
snd_output_buffer_string(out, &str);
|
|
Packit |
4a16fb |
SNDERR(str);
|
|
Packit |
4a16fb |
snd_output_close(out);
|
|
Packit |
4a16fb |
return &alsa_lisp_t;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static struct alisp_object * F_syserr(struct alisp_instance *instance, struct alisp_object * args)
|
|
Packit |
4a16fb |
{
|
|
Packit |
4a16fb |
snd_output_t *out;
|
|
Packit |
4a16fb |
char *str;
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
if (common_error(&out, instance, args) < 0)
|
|
Packit |
4a16fb |
return &alsa_lisp_nil;
|
|
Packit |
4a16fb |
snd_output_buffer_string(out, &str);
|
|
Packit |
4a16fb |
SYSERR(str);
|
|
Packit |
4a16fb |
snd_output_close(out);
|
|
Packit |
4a16fb |
return &alsa_lisp_t;
|
|
Packit |
4a16fb |
}
|
|
Packit |
4a16fb |
|
|
Packit |
4a16fb |
static const struct intrinsic snd_intrinsics[] = {
|
|
Packit |
4a16fb |
{ "Acall", F_acall },
|
|
Packit |
4a16fb |
{ "Aerror", F_aerror },
|
|
Packit |
4a16fb |
{ "Ahandle", F_ahandle },
|
|
Packit |
4a16fb |
{ "Aresult", F_ahandle },
|
|
Packit |
4a16fb |
{ "Asnderr", F_snderr },
|
|
Packit |
4a16fb |
{ "Asyserr", F_syserr }
|
|
Packit |
4a16fb |
};
|