diff options
Diffstat (limited to 'Modules/almodule.c')
| -rw-r--r-- | Modules/almodule.c | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/Modules/almodule.c b/Modules/almodule.c index 6b1dde3..aef2eee 100644 --- a/Modules/almodule.c +++ b/Modules/almodule.c @@ -26,6 +26,16 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "audio.h" +/* Check which version audio library we have: */ +#ifdef AL_ERROR_NUMBER +#define AL_405 +/* XXXX 4.0.5 libaudio also allows us to provide better error +** handling (with ALseterrorhandler). We should implement that +** sometime. +*/ + +#endif + #include "allobjects.h" #include "import.h" #include "modsupport.h" @@ -127,6 +137,52 @@ al_setchannels (self, args) return (setConfig (self, args, ALsetchannels)); } +#ifdef AL_405 + +static object * +al_getsampfmt (self, args) + configobject *self; + object *args; +{ + return (getConfig (self, args, ALgetsampfmt)); +} + +static object * +al_setsampfmt (self, args) + configobject *self; + object *args; +{ + return (setConfig (self, args, ALsetsampfmt)); +} + +static object * +al_getfloatmax(self, args) + configobject *self; + object *args; +{ + double arg; + + if ( !getnoarg(args) ) + return 0; + arg = ALgetfloatmax(self->ob_config); + return newfloatobject(arg); +} + +static object * +al_setfloatmax(self, args) + configobject *self; + object *args; +{ + double arg; + + if ( !getargs(args, "d", &arg) ) + return 0; + ALsetfloatmax(self->ob_config, arg); + INCREF(None); + return None; +} +#endif /* AL_405 */ + static struct methodlist config_methods[] = { {"getqueuesize", al_getqueuesize}, {"setqueuesize", al_setqueuesize}, @@ -134,6 +190,12 @@ static struct methodlist config_methods[] = { {"setwidth", al_setwidth}, {"getchannels", al_getchannels}, {"setchannels", al_setchannels}, +#ifdef AL_405 + {"getsampfmt", al_getsampfmt}, + {"setsampfmt", al_setsampfmt}, + {"getfloatmax", al_getfloatmax}, + {"setfloatmax", al_setfloatmax}, +#endif /* AL_405 */ {NULL, NULL} /* sentinel */ }; @@ -270,7 +332,17 @@ al_readsamps (self, args) } c = ALgetconfig(self->ob_port); +#ifdef AL_405 + width = ALgetsampfmt(c); + if ( width == AL_SAMPFMT_FLOAT ) + width = sizeof(float); + else if ( width == AL_SAMPFMT_DOUBLE ) + width = sizeof(double); + else + width = ALgetwidth(c); +#else width = ALgetwidth(c); +#endif /* AL_405 */ ALfreeconfig(c); v = newsizedstringobject ((char *)NULL, width * count); if (v == NULL) return NULL; @@ -295,7 +367,17 @@ al_writesamps (self, args) if (!getargs (args, "s#", &buf, &size)) return NULL; c = ALgetconfig(self->ob_port); +#ifdef AL_405 + width = ALgetsampfmt(c); + if ( width == AL_SAMPFMT_FLOAT ) + width = sizeof(float); + else if ( width == AL_SAMPFMT_DOUBLE ) + width = sizeof(double); + else + width = ALgetwidth(c); +#else width = ALgetwidth(c); +#endif /* AL_405 */ ALfreeconfig(c); BGN_SAVE ALwritesamps (self-> ob_port, (void *) buf, (long) size / width); @@ -363,6 +445,49 @@ al_getconfig (self, args) return newconfigobject (config); } +#ifdef AL_405 +static object * +al_getstatus (self, args) + portobject *self; + object *args; +{ + object *list, *v; + long *PVbuffer; + long length; + int i; + + if (!getargs(args, "O", &list)) + return NULL; + if (!is_listobject(list)) { + err_badarg(); + return NULL; + } + length = getlistsize(list); + PVbuffer = NEW(long, length); + if (PVbuffer == NULL) + return err_nomem(); + for (i = 0; i < length; i++) { + v = getlistitem(list, i); + if (!is_intobject(v)) { + DEL(PVbuffer); + err_badarg(); + return NULL; + } + PVbuffer[i] = getintvalue(v); + } + + ALgetstatus(self->ob_port, PVbuffer, length); + + for (i = 0; i < length; i++) + setlistitem(list, i, newintobject(PVbuffer[i])); + + DEL(PVbuffer); + + INCREF(None); + return None; +} +#endif /* AL_405 */ + static struct methodlist port_methods[] = { {"closeport", al_closeport}, {"getfd", al_getfd}, @@ -375,6 +500,9 @@ static struct methodlist port_methods[] = { {"getfillpoint", al_getfillpoint}, {"setconfig", al_setconfig}, {"getconfig", al_getconfig}, +#ifdef AL_405 + {"getstatus", al_getstatus}, +#endif /* AL_405 */ {NULL, NULL} /* sentinel */ }; |