mirror of
https://github.com/python/cpython.git
synced 2025-08-04 00:48:58 +00:00
Initial revision
This commit is contained in:
Guido van Rossum
parent
a232536f50
commit
e3db862e5b
1 changed files with 492 additions and 0 deletions
492
Modules/almodule.c
Normal file
492
Modules/almodule.c
Normal file
|
|
@ -0,0 +1,492 @@
|
|||
/**********************************************************
|
||||
Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The
|
||||
Netherlands.
|
||||
|
||||
All Rights Reserved
|
||||
|
||||
Permission to use, copy, modify, and distribute this software and its
|
||||
documentation for any purpose and without fee is hereby granted,
|
||||
provided that the above copyright notice appear in all copies and that
|
||||
both that copyright notice and this permission notice appear in
|
||||
supporting documentation, and that the names of Stichting Mathematisch
|
||||
Centrum or CWI not be used in advertising or publicity pertaining to
|
||||
distribution of the software without specific, written prior permission.
|
||||
|
||||
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
|
||||
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
||||
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
|
||||
FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
||||
OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
|
||||
******************************************************************/
|
||||
|
||||
/* AL module -- interface to Mark Calows' Auido Library (AL). */
|
||||
|
||||
#include "audio.h"
|
||||
|
||||
#include "allobjects.h"
|
||||
#include "import.h"
|
||||
#include "modsupport.h"
|
||||
#include "structmember.h"
|
||||
|
||||
|
||||
/* Config objects */
|
||||
|
||||
typedef struct {
|
||||
OB_HEAD
|
||||
ALconfig ob_config;
|
||||
} configobject;
|
||||
|
||||
extern typeobject Configtype; /* Forward */
|
||||
|
||||
#define is_configobject(v) ((v)->ob_type == &Configtype)
|
||||
|
||||
static object *
|
||||
setConfig (self, args, func)
|
||||
configobject *self;
|
||||
object *args;
|
||||
void (*func)(ALconfig, long);
|
||||
{
|
||||
long par;
|
||||
|
||||
if (!getlongarg(args, &par)) return NULL;
|
||||
|
||||
(*func) (self-> ob_config, par);
|
||||
|
||||
INCREF (None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
getConfig (self, args, func)
|
||||
configobject *self;
|
||||
object *args;
|
||||
long (*func)(ALconfig);
|
||||
{
|
||||
long par;
|
||||
|
||||
if (!getnoarg(args)) return NULL;
|
||||
|
||||
par = (*func) (self-> ob_config);
|
||||
|
||||
return newintobject (par);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_setqueuesize (self, args)
|
||||
configobject *self;
|
||||
object *args;
|
||||
{
|
||||
return (setConfig (self, args, ALsetqueuesize));
|
||||
}
|
||||
|
||||
static object *
|
||||
al_getqueuesize (self, args)
|
||||
configobject *self;
|
||||
object *args;
|
||||
{
|
||||
return (getConfig (self, args, ALgetqueuesize));
|
||||
}
|
||||
|
||||
static object *
|
||||
al_setwidth (self, args)
|
||||
configobject *self;
|
||||
object *args;
|
||||
{
|
||||
return (setConfig (self, args, ALsetwidth));
|
||||
}
|
||||
|
||||
static object *
|
||||
al_getwidth (self, args)
|
||||
configobject *self;
|
||||
object *args;
|
||||
{
|
||||
return (getConfig (self, args, ALgetwidth));
|
||||
}
|
||||
|
||||
static object *
|
||||
al_getchannels (self, args)
|
||||
configobject *self;
|
||||
object *args;
|
||||
{
|
||||
return (getConfig (self, args, ALgetchannels));
|
||||
}
|
||||
|
||||
static object *
|
||||
al_setchannels (self, args)
|
||||
configobject *self;
|
||||
object *args;
|
||||
{
|
||||
return (setConfig (self, args, ALsetchannels));
|
||||
}
|
||||
|
||||
static struct methodlist config_methods[] = {
|
||||
{"getqueuesize", al_getqueuesize},
|
||||
{"setqueuesize", al_setqueuesize},
|
||||
{"getwidth", al_getwidth},
|
||||
{"setwidth", al_setwidth},
|
||||
{"getchannels", al_getchannels},
|
||||
{"setchannels", al_setchannels},
|
||||
{NULL, NULL} /* sentinel */
|
||||
};
|
||||
|
||||
static void
|
||||
config_dealloc(self)
|
||||
configobject *self;
|
||||
{
|
||||
ALfreeconfig(self->ob_config);
|
||||
DEL(self);
|
||||
}
|
||||
|
||||
static object *
|
||||
config_getattr(self, name)
|
||||
configobject *self;
|
||||
char *name;
|
||||
{
|
||||
return findmethod(config_methods, (object *)self, name);
|
||||
}
|
||||
|
||||
typeobject Configtype = {
|
||||
OB_HEAD_INIT(&Typetype)
|
||||
0, /*ob_size*/
|
||||
"config", /*tp_name*/
|
||||
sizeof(configobject), /*tp_size*/
|
||||
0, /*tp_itemsize*/
|
||||
/* methods */
|
||||
config_dealloc, /*tp_dealloc*/
|
||||
0, /*tp_print*/
|
||||
config_getattr, /*tp_getattr*/
|
||||
0, /*tp_setattr*/
|
||||
0, /*tp_compare*/
|
||||
0, /*tp_repr*/
|
||||
};
|
||||
|
||||
static object *
|
||||
newconfigobject(config)
|
||||
ALconfig config;
|
||||
{
|
||||
configobject *p;
|
||||
|
||||
p = NEWOBJ(configobject, &Configtype);
|
||||
if (p == NULL)
|
||||
return NULL;
|
||||
p->ob_config = config;
|
||||
return (object *)p;
|
||||
}
|
||||
|
||||
/* Port objects */
|
||||
|
||||
typedef struct {
|
||||
OB_HEAD
|
||||
ALport ob_port;
|
||||
} portobject;
|
||||
|
||||
extern typeobject Porttype; /* Forward */
|
||||
|
||||
#define is_portobject(v) ((v)->ob_type == &Porttype)
|
||||
|
||||
static object *
|
||||
al_closeport (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
if (!getnoarg(args)) return NULL;
|
||||
|
||||
if (self->ob_port != NULL) {
|
||||
ALcloseport (self-> ob_port);
|
||||
self->ob_port = NULL;
|
||||
/* XXX Using a closed port may dump core! */
|
||||
}
|
||||
|
||||
INCREF (None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
al_getfd (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
int fd;
|
||||
|
||||
if (!getnoarg(args)) return NULL;
|
||||
|
||||
fd = ALgetfd (self-> ob_port);
|
||||
|
||||
return newintobject (fd);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_getfilled (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
long count;
|
||||
|
||||
if (!getnoarg(args)) return NULL;
|
||||
|
||||
count = ALgetfilled (self-> ob_port);
|
||||
|
||||
return newintobject (count);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_getfillable (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
long count;
|
||||
|
||||
if (!getnoarg(args)) return NULL;
|
||||
|
||||
count = ALgetfillable (self-> ob_port);
|
||||
|
||||
return newintobject (count);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_readsamps (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
long count;
|
||||
object *v;
|
||||
int width;
|
||||
|
||||
if (!getlongarg (args, &count)) return NULL;
|
||||
|
||||
if (count <= 0)
|
||||
{
|
||||
err_setstr (RuntimeError, "al.readsamps : arg <= 0");
|
||||
return NULL;
|
||||
}
|
||||
|
||||
width = ALgetwidth(ALgetconfig(self->ob_port));
|
||||
v = newsizedstringobject ((char *)NULL, width * count);
|
||||
if (v == NULL) return NULL;
|
||||
|
||||
ALreadsamps (self-> ob_port, (void *) getstringvalue(v), count);
|
||||
|
||||
return (v);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_writesamps (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
long count;
|
||||
object *v;
|
||||
int width;
|
||||
|
||||
if (!getstrarg (args, &v)) return NULL;
|
||||
|
||||
width = ALgetwidth(ALgetconfig(self->ob_port));
|
||||
ALwritesamps (self-> ob_port, (void *) getstringvalue(v),
|
||||
getstringsize(v) / width);
|
||||
|
||||
INCREF (None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
al_getfillpoint (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
long count;
|
||||
|
||||
if (!getnoarg(args)) return NULL;
|
||||
|
||||
count = ALgetfillpoint (self-> ob_port);
|
||||
|
||||
return newintobject (count);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_setfillpoint (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
long count;
|
||||
|
||||
if (!getlongarg(args, &count)) return NULL;
|
||||
|
||||
ALsetfillpoint (self-> ob_port, count);
|
||||
|
||||
INCREF (None);
|
||||
return (None);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_setconfig (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
ALconfig config;
|
||||
|
||||
if (!getconfigarg(args, &config)) return NULL;
|
||||
|
||||
ALsetconfig (self-> ob_port, config);
|
||||
|
||||
INCREF (None);
|
||||
return (None);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_getconfig (self, args)
|
||||
portobject *self;
|
||||
object *args;
|
||||
{
|
||||
ALconfig config;
|
||||
|
||||
if (!getnoarg(args)) return NULL;
|
||||
|
||||
config = ALgetconfig (self-> ob_port);
|
||||
|
||||
return newconfigobject (config);
|
||||
}
|
||||
|
||||
static struct methodlist port_methods[] = {
|
||||
{"closeport", al_closeport},
|
||||
{"getfd", al_getfd},
|
||||
{"getfilled", al_getfilled},
|
||||
{"getfillable", al_getfillable},
|
||||
{"readsamps", al_readsamps},
|
||||
{"writesamps", al_writesamps},
|
||||
{"setfillpoint", al_setfillpoint},
|
||||
{"getfillpoint", al_getfillpoint},
|
||||
{"setconfig", al_setconfig},
|
||||
{"getconfig", al_getconfig},
|
||||
{NULL, NULL} /* sentinel */
|
||||
};
|
||||
|
||||
static void
|
||||
port_dealloc(p)
|
||||
portobject *p;
|
||||
{
|
||||
if (p->ob_port != NULL)
|
||||
ALcloseport(p->ob_port);
|
||||
DEL(p);
|
||||
}
|
||||
|
||||
static object *
|
||||
port_getattr(p, name)
|
||||
portobject *p;
|
||||
char *name;
|
||||
{
|
||||
return findmethod(port_methods, (object *)p, name);
|
||||
}
|
||||
|
||||
typeobject Porttype = {
|
||||
OB_HEAD_INIT(&Typetype)
|
||||
0, /*ob_size*/
|
||||
"port", /*tp_name*/
|
||||
sizeof(portobject), /*tp_size*/
|
||||
0, /*tp_itemsize*/
|
||||
/* methods */
|
||||
port_dealloc, /*tp_dealloc*/
|
||||
0, /*tp_print*/
|
||||
port_getattr, /*tp_getattr*/
|
||||
0, /*tp_setattr*/
|
||||
0, /*tp_compare*/
|
||||
0, /*tp_repr*/
|
||||
};
|
||||
|
||||
static object *
|
||||
newportobject(port)
|
||||
ALport port;
|
||||
{
|
||||
portobject *p;
|
||||
|
||||
p = NEWOBJ(portobject, &Porttype);
|
||||
if (p == NULL)
|
||||
return NULL;
|
||||
p->ob_port = port;
|
||||
return (object *)p;
|
||||
}
|
||||
|
||||
/* the module al */
|
||||
|
||||
static object *
|
||||
al_openport (self, args)
|
||||
object *self, *args;
|
||||
{
|
||||
object *name, *dir;
|
||||
ALport port;
|
||||
ALconfig config = NULL;
|
||||
int size = gettuplesize(args);
|
||||
|
||||
if (size == 2) {
|
||||
if (!getstrstrarg (args, &name, &dir))
|
||||
return NULL;
|
||||
}
|
||||
else if (size == 3) {
|
||||
if (!getstrstrconfigarg (args, &name, &dir, &config))
|
||||
return NULL;
|
||||
}
|
||||
else {
|
||||
err_badarg();
|
||||
return NULL;
|
||||
}
|
||||
|
||||
port = ALopenport(getstringvalue(name), getstringvalue(dir), config);
|
||||
|
||||
return newportobject (port);
|
||||
}
|
||||
|
||||
static object *
|
||||
al_newconfig (self, args)
|
||||
object *self, *args;
|
||||
{
|
||||
ALconfig config;
|
||||
|
||||
if (!getnoarg (args)) return NULL;
|
||||
|
||||
config = ALnewconfig ();
|
||||
|
||||
return newconfigobject (config);
|
||||
}
|
||||
|
||||
static struct methodlist al_methods[] = {
|
||||
{"openport", al_openport},
|
||||
{"newconfig", al_newconfig},
|
||||
{NULL, NULL} /* sentinel */
|
||||
};
|
||||
|
||||
void
|
||||
inital()
|
||||
{
|
||||
initmodule("al", al_methods);
|
||||
}
|
||||
|
||||
int
|
||||
getconfigarg (o, conf)
|
||||
configobject *o;
|
||||
ALconfig *conf;
|
||||
{
|
||||
if (o == NULL || !is_configobject(o))
|
||||
return err_badarg ();
|
||||
|
||||
*conf = o-> ob_config;
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
getstrstrconfigarg(v, a, b, c)
|
||||
object *v;
|
||||
object **a;
|
||||
object **b;
|
||||
ALconfig *c;
|
||||
{
|
||||
if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
|
||||
return err_badarg();
|
||||
}
|
||||
|
||||
return getstrarg(gettupleitem(v, 0), a) &&
|
||||
getstrarg(gettupleitem(v, 1), b) &&
|
||||
getconfigarg (gettupleitem (v, 2), c);
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue