ref: 568002402f2e2c18e807e80903c20337af523412
dir: /emu/port/devaudio.c/
#include "dat.h"
#include "fns.h"
#include "error.h"
#include "audio.h"
Dirtab audiotab[] =
{
".", {Qdir, 0, QTDIR}, 0, 0555,
"audio", {Qaudio}, 0, 0666,
"audioctl", {Qaudioctl}, 0, 0666,
};
static void
audioinit(void)
{
audio_file_init();
}
static Chan*
audioattach(char *spec)
{
return devattach('A', spec);
}
static Walkqid*
audiowalk(Chan *c, Chan *nc, char **name, int nname)
{
return devwalk(c, nc, name, nname, audiotab, nelem(audiotab), devgen);
}
static int
audiostat(Chan *c, uchar *db, int n)
{
return devstat(c, db, n, audiotab, nelem(audiotab), devgen);
}
static Chan*
audioopen(Chan *c, int omode)
{
c = devopen(c, omode, audiotab, nelem(audiotab), devgen);
if(waserror()){
c->flag &= ~COPEN;
nexterror();
}
switch(c->qid.path) {
case Qdir:
case Qaudioctl:
break;
case Qaudio:
audio_file_open(c, c->mode);
break;
default:
error(Egreg);
}
poperror();
return c;
}
static void
audioclose(Chan *c)
{
if((c->flag & COPEN) == 0)
return;
switch(c->qid.path) {
case Qdir:
case Qaudioctl:
break;
case Qaudio:
audio_file_close(c);
break;
default:
error(Egreg);
}
}
static int ctlsummary(char*, int, Audio_t*);
static long
audioread(Chan *c, void *va, long count, vlong offset)
{
char *buf;
int n;
if(c->qid.type & QTDIR)
return devdirread(c, va, count, audiotab, nelem(audiotab), devgen);
switch(c->qid.path) {
case Qaudio:
return audio_file_read(c, va, count, offset);
case Qaudioctl:
buf = smalloc(READSTR);
if(waserror()){
free(buf);
nexterror();
}
n = ctlsummary(buf, READSTR, getaudiodev());
count = readstr(offset, va, n, buf);
poperror();
free(buf);
return count;
}
return 0;
}
static long
audiowrite(Chan *c, void *va, long count, vlong offset)
{
switch(c->qid.path) {
case Qaudio:
return audio_file_write(c, va, count, offset);
case Qaudioctl:
return audio_ctl_write(c, va, count, offset);
}
return 0;
}
static int sval(char*, unsigned long*, ulong, ulong);
static int str2val(svp_t*, char*, ulong*);
static char* val2str(svp_t*, ulong);
int
audioparse(char* args, int len, Audio_t *t)
{
int i, n;
ulong v;
Cmdbuf *cb;
ulong tf;
Audio_t info = *t;
cb = parsecmd(args, len);
if(waserror()){
free(cb);
return 0;
}
tf = 0;
n = cb->nf;
for(i = 0; i < cb->nf-1; i++) {
if(strcmp(cb->f[i], "in") == 0){
tf |= AUDIO_IN_FLAG;
continue;
}
if(strcmp(cb->f[i], "out") == 0) {
tf |= AUDIO_OUT_FLAG;
continue;
}
if(tf == 0)
tf = AUDIO_IN_FLAG | AUDIO_OUT_FLAG;
if(strcmp(cb->f[i], "bits") == 0) {
if(!str2val(audio_bits_tbl, cb->f[i+1], &v))
break;
i++;
if(tf & AUDIO_IN_FLAG) {
info.in.flags |= AUDIO_BITS_FLAG | AUDIO_MOD_FLAG;
info.in.bits = v;
}
if(tf & AUDIO_OUT_FLAG) {
info.out.flags |= AUDIO_BITS_FLAG | AUDIO_MOD_FLAG;
info.out.bits = v;
}
} else if(strcmp(cb->f[i], "buf") == 0) {
if(!sval(cb->f[i+1], &v, Audio_Max_Val, Audio_Min_Val))
break;
i++;
if(tf & AUDIO_IN_FLAG) {
info.in.flags |= AUDIO_BUF_FLAG | AUDIO_MOD_FLAG;
info.in.buf = v;
}
if(tf & AUDIO_OUT_FLAG) {
info.out.flags |= AUDIO_BUF_FLAG | AUDIO_MOD_FLAG;
info.out.buf = v;
}
} else if(strcmp(cb->f[i], "chans") == 0) {
if(!str2val(audio_chan_tbl, cb->f[i+1], &v))
break;
i++;
if(tf & AUDIO_IN_FLAG) {
info.in.flags |= AUDIO_CHAN_FLAG | AUDIO_MOD_FLAG;
info.in.chan = v;
}
if(tf & AUDIO_OUT_FLAG) {
info.out.flags |= AUDIO_CHAN_FLAG | AUDIO_MOD_FLAG;
info.out.chan = v;
}
} else if(strcmp(cb->f[i], "indev") == 0) {
if(!str2val(audio_indev_tbl, cb->f[i+1], &v))
break;
i++;
info.in.flags |= AUDIO_DEV_FLAG | AUDIO_MOD_FLAG;
info.in.dev = v;
} else if(strcmp(cb->f[i], "outdev") == 0) {
if(!str2val(audio_outdev_tbl, cb->f[i+1], &v))
break;
i++;
info.out.flags |= AUDIO_DEV_FLAG | AUDIO_MOD_FLAG;
info.out.dev = v;
} else if(strcmp(cb->f[i], "enc") == 0) {
if(!str2val(audio_enc_tbl, cb->f[i+1], &v))
break;
i++;
if(tf & AUDIO_IN_FLAG) {
info.in.flags |= AUDIO_ENC_FLAG | AUDIO_MOD_FLAG;
info.in.enc = v;
}
if(tf & AUDIO_OUT_FLAG) {
info.out.flags |= AUDIO_ENC_FLAG | AUDIO_MOD_FLAG;
info.out.enc = v;
}
} else if(strcmp(cb->f[i], "rate") == 0) {
if(!str2val(audio_rate_tbl, cb->f[i+1], &v))
break;
i++;
if(tf & AUDIO_IN_FLAG) {
info.in.flags |= AUDIO_RATE_FLAG | AUDIO_MOD_FLAG;
info.in.rate = v;
}
if(tf & AUDIO_OUT_FLAG) {
info.out.flags |= AUDIO_RATE_FLAG | AUDIO_MOD_FLAG;
info.out.rate = v;
}
} else if(strcmp(cb->f[i], "vol") == 0) {
if(!sval(cb->f[i+1], &v, Audio_Max_Val, Audio_Min_Val))
break;
i++;
if(tf & AUDIO_IN_FLAG) {
info.in.flags |= AUDIO_VOL_FLAG | AUDIO_MOD_FLAG;
info.in.left = v;
info.in.right = v;
}
if(tf & AUDIO_OUT_FLAG) {
info.out.flags |= AUDIO_VOL_FLAG | AUDIO_MOD_FLAG;
info.out.left = v;
info.out.right = v;
}
} else if(strcmp(cb->f[i], "left") == 0) {
if(!sval(cb->f[i+1], &v, Audio_Max_Val, Audio_Min_Val))
break;
i++;
if(tf & AUDIO_IN_FLAG) {
info.in.flags |= AUDIO_LEFT_FLAG | AUDIO_MOD_FLAG;
info.in.left = v;
}
if(tf & AUDIO_OUT_FLAG) {
info.out.flags |= AUDIO_LEFT_FLAG | AUDIO_MOD_FLAG;
info.out.left = v;
}
} else if(strcmp(cb->f[i], "right") == 0) {
if(!sval(cb->f[i+1], &v, Audio_Max_Val, Audio_Min_Val))
break;
i++;
if(tf & AUDIO_IN_FLAG) {
info.in.flags |= AUDIO_RIGHT_FLAG | AUDIO_MOD_FLAG;
info.in.right = v;
}
if(tf & AUDIO_OUT_FLAG) {
info.out.flags |= AUDIO_RIGHT_FLAG | AUDIO_MOD_FLAG;
info.out.right = v;
}
}else
break;
}
poperror();
free(cb);
if(i < n)
return 0;
*t = info; /* set information back */
return 1;
}
static char*
audioparam(char* p, char* e, char* name, int val, svp_t* tbl)
{
char *s;
svp_t *sv;
if((s = val2str(tbl, val)) != nil){
p = seprint(p, e, "%s %s", name, s); /* current setting */
for(sv = tbl; sv->s != nil; sv++)
if(sv->v != val)
p = seprint(p, e, " %s", sv->s); /* other possible values */
p = seprint(p, e, "\n");
}else
p = seprint(p, e, "%s unknown\n", name);
return p;
}
static char*
audioioparam(char* p, char* e, char* name, int ival, int oval, svp_t* tbl)
{
if(ival == oval)
return audioparam(p, e, name, ival, tbl);
p = audioparam(seprint(p, e, "in "), e, name, ival, tbl);
p = audioparam(seprint(p, e, "out "), e, name, oval, tbl);
return p;
}
static int
ctlsummary(char *buf, int bsize, Audio_t *adev)
{
Audio_d *in, *out;
char *p, *e;
in = &adev->in;
out = &adev->out;
p = buf;
e = p + bsize;
p = audioparam(p, e, "indev", in->dev, audio_indev_tbl);
p = audioparam(p, e, "outdev", out->dev, audio_outdev_tbl);
p = audioioparam(p, e, "enc", in->enc, out->enc, audio_enc_tbl);
p = audioioparam(p, e, "rate", in->rate, out->rate, audio_rate_tbl);
p = audioioparam(p, e, "bits", in->bits, out->bits, audio_bits_tbl); /* this one is silly */
p = audioioparam(p, e, "chans", in->chan, out->chan, audio_chan_tbl);
/* TO DO: minimise in/out left/right where possible */
if(in->left != in->right){
p = seprint(p, e, "in left %d 0 100\n", in->left);
p = seprint(p, e, "in right %d 0 100\n", in->right);
}else
p = seprint(p, e, "in %d 0 100\n", in->right);
if(out->left != out->right){
p = seprint(p, e, "out left %d 0 100\n", out->left);
p = seprint(p, e, "out right %d 0 100\n", out->right);
}else
p = seprint(p, e, "out %d 0 100\n", out->right);
p = seprint(p, e, "in buf %d %d %d\n", in->buf, Audio_Min_Val, Audio_Max_Val);
p = seprint(p, e, "out buf %d %d %d\n", out->buf, Audio_Min_Val, Audio_Max_Val);
return p-buf;
}
void
audio_info_init(Audio_t *t)
{
t->in = Default_Audio_Format;
t->in.dev = Default_Audio_Input;
t->out = Default_Audio_Format;
t->out.dev = Default_Audio_Output;
}
static int
str2val(svp_t* t, char* s, ulong *v)
{
if(t == nil || s == nil)
return 0;
for(; t->s != nil; t++) {
if(strncmp(t->s, s, strlen(t->s)) == 0) {
*v = t->v;
return 1;
}
}
return 0;
}
static char*
val2str(svp_t* t, ulong v)
{
if(t == nil)
return nil;
for(; t->s != nil; t++)
if(t->v == v)
return t->s;
return nil;
}
static int
sval(char* buf, ulong* v, ulong max, ulong min)
{
unsigned long val = strtoul(buf, 0, 10);
if(val > max || val < min)
return 0;
*v = val;
return 1;
}
Dev audiodevtab = {
'A',
"audio",
audioinit,
audioattach,
audiowalk,
audiostat,
audioopen,
devcreate,
audioclose,
audioread,
devbread,
audiowrite,
devbwrite,
devremove,
devwstat
};