remove Hp-s800

1 files changed, 0 insertions, 506 deletions

diff --git a/emu/Hp/devaudio.c b/emu/Hp/devaudio.c
deleted file mode 100644
index c26143e3..00000000
--- a/emu/Hp/devaudio.c
+++ /dev/null
@@ -1,506 +0,0 @@
-#include	"dat.h"
-#include	"fns.h"
-#include	"error.h"
-
-#include	<sys/audio.h>
-
-
-enum{
-	Qdir,
-	Qaudio,
-	Qaudioctl,			/* deprecated */
-	Qvolume,
-
-	Fmono		= 1,
-	Fin		= 2,
-	Fout		= 4,
-	Fhearn	= 8,
-
-	Vaudio		= 0,
-	Vsynth,
-	Vcd,
-	Vline,
-	Vmic,
-	Vspeaker,
-	Vtreb,
-	Vbass,
-	Vspeed,
-	Vbits,
-	Vchans,
-	Venc,
-	Nvol,
-
-	Epcm = 0,
-	Eulaw,
-	Ealaw,
-	Nenc,
-
-	Speed		= 44100,
-	Ncmd		= 50,		/* max volume command words */
-};
-Dirtab audiotab[]={
-	"audio",		{Qaudio, 0},	0,	0666,
-	"audioctl",	{Qaudioctl, 0},	0,	0666,
-	"volume",		{Qvolume, 0},	0,	0666,
-};
-
-typedef struct	Audiodev	Audiodev;
-
-struct Audiodev {
-	int		fd;
-	int		swab;
-	int		repl1;
-	int		repl2;
-};
-
-static	struct
-{
-	QLock;				/* XXX maybe we should use this guy! */
-	int	rivol[Nvol];		/* right/left input/output volumes */
-	int	livol[Nvol];
-	int	rovol[Nvol];
-	int	lovol[Nvol];
-} audio;
-
-static	struct
-{
-	char*	name;
-	int	flag;
-	int	ilval;		/* initial values */
-	int	irval;
-} volumes[] =
-{
-/*[Vaudio]*/	"audio",	Fout, 		50,	50,
-/*[Vsynth]*/	"synth",	Fin|Fout,	0,	0,
-/*[Vcd]*/		"cd",		Fin|Fout,	0,	0,
-/*[Vline]*/		"line",		Fin|Fout,	0,	0,
-/*[Vmic]*/		"mic",		Fin|Fout|Fmono,	0,	0,
-/*[Vspeaker]*/	"speaker",	Fout|Fmono,	0,	0,
-
-/*[Vtreb]*/		"treb",		Fout, 		50,	50,
-/*[Vbass]*/		"bass",		Fout, 		50,	50,
-
-/*[Vspeed]*/	"speed",	Fin|Fout|Fmono,	Speed,	Speed,
-/*[Vbits]*/	"bits",	Fin|Fout|Fmono|Fhearn,	16,	16,
-/*[Vchans]*/	"chans",	Fin|Fout|Fmono|Fhearn,	2,	2,
-/*[Venc]*/	"enc",	Fin|Fout|Fmono|Fhearn,	Epcm,	Epcm,
-		0
-};
-
-static char *encname[] =
-{
-/*Epcm*/	"pcm",
-/*Eulaw*/	"ulaw",
-/*Ealaw*/	"alaw",
-};
-
-static char	Evolume[]	= "illegal volume specifier";
-
-static void
-resetlevel(void)
-{
-	int i;
-
-	for(i=0; volumes[i].name; i++) {
-		audio.lovol[i] = volumes[i].ilval;
-		audio.rovol[i] = volumes[i].irval;
-		audio.livol[i] = volumes[i].ilval;
-		audio.rivol[i] = volumes[i].irval;
-	}
-}
-
-/* Start OS-dependant code */
-static int
-doioctl(int fd, int whim, void *data, char *what)
-{
-	char ebuf[ERRMAX];
-	int r, n;
-
-	osenter();
-	r = ioctl(fd, whim, data);
-	osleave();
-	if (r < 0) {
-		n = snprint(ebuf, ERRMAX, "ioctl %s: ", what);
-		oserrstr(ebuf+n, sizeof ebuf-n);
-		error(ebuf);
-	}
-	return r;
-}
-
-static void
-setlevels(Audiodev *a)
-{
-	struct audio_describe au;
-	struct audio_gain gain;
-	int i, x;
-
-/* XXX todo: simulate it with a data conversion routine (could also do swab...) */
-	if (audio.lovol[Venc] == Epcm && audio.lovol[Vbits] != 16) {
-		audio.lovol[Vbits] = 16;
-		error("pcm must be 16 bits");
-	}
-	if (audio.lovol[Vchans] != 1 && audio.lovol[Vchans] != 2) {
-		audio.lovol[Vchans] = 1;
-		error("bad number of channels");
-	}
-
-	doioctl(a->fd, AUDIO_DESCRIBE, &au, "describe");
-	doioctl(a->fd, AUDIO_SET_SAMPLE_RATE, audio.lovol[Vspeed], "rate");	/* what if input != output??? */
-	doioctl(a->fd, AUDIO_SET_CHANNELS, audio.lovol[Vchans], "channels");
-
-	switch (audio.lovol[Venc]) {
-	default:
-	case Epcm:
-		x = AUDIO_FORMAT_LINEAR16BIT;
-		break;
-	case Eulaw:
-		x = AUDIO_FORMAT_ULAW;
-		break;
-	case Ealaw:
-		x = AUDIO_FORMAT_ALAW;
-		break;
-	}
-	doioctl(a->fd, AUDIO_SET_DATA_FORMAT, x, "set format");
-
-	x = 0;
-	if (audio.lovol[Vspeaker] != 0 || audio.rovol[Vspeaker] != 0)
-		x |= AUDIO_OUT_SPEAKER;
-	if (audio.lovol[Vaudio] != 0 || audio.rovol[Vaudio] != 0)
-		x |= AUDIO_OUT_HEADPHONE;
-	if (audio.lovol[Vline] != 0 || audio.rovol[Vline] != 0)
-		x |= AUDIO_OUT_LINE;
-	doioctl(a->fd, AUDIO_SET_OUTPUT, x, "set output");
-
-	x = 0;
-	if (audio.livol[Vline] != 0 || audio.rivol[Vline] != 0)
-		x |= AUDIO_IN_LINE;
-	if (audio.livol[Vmic] != 0 || audio.rivol[Vmic] != 0 || x == 0)	/* must set at least one */
-		x |= AUDIO_IN_MIKE;
-	doioctl(a->fd, AUDIO_SET_INPUT, x, "set input");
-
-/* XXX todo: get the gains right.  should scale 0-100 into min-max (as in struct audio_describe au) */
-/*	doioctl(a->fd, AUDIO_GET_GAINS, &gain, "get gains"); */
-	gain.channel_mask = AUDIO_CHANNEL_LEFT|AUDIO_CHANNEL_RIGHT;
-	for (i = 0; i < 2; i++) {
-		gain.cgain[i].receive_gain = au.min_receive_gain;
-		gain.cgain[i].monitor_gain = au.min_monitor_gain;
-		gain.cgain[i].transmit_gain = au.max_transmit_gain;
-	}
-	doioctl(a->fd, AUDIO_SET_GAINS, &gain, "set gains");
-}
-
-static char *
-audiofname(int isctl)
-{
-	if (isctl)
-		return "/dev/audioCtl";
-	else
-		return "/dev/audio";
-}
-
-static void
-audioswab(uchar *p, int n)
-{
-	int x;
-
-	/* XXX slow; should check for 16bit mode; should be combined with format conversion; etc */
-	while (n >= 2) {
-		x = p[0];
-		p[0] = p[1];
-		p[1] = x;
-		p +=2;
-		n -=2;
-	}
-}
-/* End OS-dependant code */
-
-static void
-audioinit(void)
-{
-	resetlevel();
-}
-
-static Chan*
-audioattach(char* spec)
-{
-	return devattach('A', spec);
-}
-
-static int
-audiowalk(Chan* c, char* name)
-{
-	return devwalk(c, name, audiotab, nelem(audiotab), devgen);
-}
-
-static void
-audiostat(Chan* c, char* db)
-{
-	devstat(c, db, audiotab, nelem(audiotab), devgen);
-}
-
-static Chan*
-audioopen(Chan *c, int omode)
-{
-	Audiodev *a;
-	long path;
-	char ebuf[ERRMAX];
-
-	path = c->qid.path & ~CHDIR;
-	if (path != Qdir){
-/* XXX Irix portability?  (multiple opens -- how to match ctl with data???) */
-		a = malloc(sizeof(Audiodev));
-		if(a == nil)
-			error(Enomem);
-		if (waserror()) {
-			free(a);
-			nexterror();
-		}
-		a->fd = open(audiofname(path != Qaudio), omode&7);
-		if(a->fd < 0)
-			oserror();
-		if (path == Qaudio)
-			setlevels(a);
-		c->aux = a;
-		poperror();
-	}
-	return devopen(c, omode, audiotab, nelem(audiotab), devgen);
-}
-
-static void
-audioclose(Chan* c)
-{
-	Audiodev *a;
-
-	a = c->aux;
-	if (a != nil) {
-		close(a->fd);
-		free(a);
-	}
-}
-
-static long
-audioread(Chan* c, void *ua, long n, vlong offset)
-{
-	Audiodev *a;
-	char buf[300], ebuf[ERRMAX];
-	int liv, riv, lov, rov;
-	int j, m;
-	long path;
-
-	a = c->aux;
-	path = (c->qid.path & ~CHDIR);
-	switch(path){
-	case Qdir:
-		return devdirread(c, a, n, audiotab, nelem(audiotab), devgen);
-	case Qaudio:
-		osenter();
-		n = read(a->fd, ua, n);
-		osleave();
-		if (n < 0)
-			oserror();
-		audioswab(ua, n);		/* XXX what if n is odd?  also, only if 16 bit... must fix portability */
-		break;
-	case Qaudioctl:
-	case Qvolume:
-		j = 0;
-		buf[0] = 0;
-		for(m=0; volumes[m].name; m++){
-			if ((volumes[m].flag & Fhearn) && path == Qvolume)
-				continue;
-			liv = audio.livol[m];
-			riv = audio.rivol[m];
-			lov = audio.lovol[m];
-			rov = audio.rovol[m];
-			j += snprint(buf+j, sizeof(buf)-j, "%s", volumes[m].name);
-			if(m == Venc)
-				j += snprint(buf+j, sizeof(buf)-j, " %s", encname[lov]);
-			else if((volumes[m].flag & Fmono) || liv==riv && lov==rov){
-				if((volumes[m].flag&(Fin|Fout))==(Fin|Fout) && liv==lov)
-					j += snprint(buf+j, sizeof(buf)-j, " %d", liv);
-				else{
-					if(volumes[m].flag & Fin)
-						j += snprint(buf+j, sizeof(buf)-j, " in %d", liv);
-					if(volumes[m].flag & Fout)
-						j += snprint(buf+j, sizeof(buf)-j, " out %d", lov);
-				}
-			}else{
-				if((volumes[m].flag&(Fin|Fout))==(Fin|Fout) && liv==lov && riv==rov)
-					j += snprint(buf+j, sizeof(buf)-j, " left %d right %d",
-						liv, riv);
-				else{
-					if(volumes[m].flag & Fin)
-						j += snprint(buf+j, sizeof(buf)-j, " in left %d right %d",
-							liv, riv);
-					if(volumes[m].flag & Fout)
-						j += snprint(buf+j, sizeof(buf)-j, " out left %d right %d",
-							lov, rov);
-				}
-			}
-			j += snprint(buf+j, sizeof(buf)-j, "\n");
-		}
-		return readstr(offset, ua, n, buf);
-	default:
-		n=0;
-		break;
-	}
-	return n;
-}
-
-static long
-audiowrite(Chan* c, char *ua, long n, vlong offset)
-{
-	Audiodev *a;
-	long m, n0;
-	int i, nf, v, left, right, in, out;
-	char buf[255], *field[Ncmd], ebuf[ERRMAX], *p;
-
-	a = c->aux;
-	switch(c->qid.path & ~CHDIR){
-	case Qaudio:
-		n &= ~1;
-		audioswab(ua, n);		/* XXX VERY BAD BUG; THIS CHANGES THE CALLER'S DATA */
-		osenter();
-		n = write(a->fd, ua, n);
-		osleave();
-		if (n < 0)
-			oserror();
-		break;
-	case Qaudioctl:
-	case Qvolume:
-		v = Vaudio;
-		left = 1;
-		right = 1;
-		in = 1;
-		out = 1;
-		if(n > sizeof(buf)-1)
-			n = sizeof(buf)-1;
-		memmove(buf, ua, n);
-		buf[n] = '\0';
-
-		nf = getfields(buf, field, Ncmd, 1, " \t\n");
-		for(i = 0; i < nf; i++){
-			/*
-			 * a number is volume
-			 */
-			if(field[i][0] >= '0' && field[i][0] <= '9') {
-				m = strtoul(field[i], &p, 10);
-				if (p != nil && *p == 'k')
-					m *= 1000;
-				if(left && out)
-					audio.lovol[v] = m;
-				if(left && in)
-					audio.livol[v] = m;
-				if(right && out)
-					audio.rovol[v] = m;
-				if(right && in)
-					audio.rivol[v] = m;
-				setlevels(a);
-				goto cont0;
-			}
-
-			for(m=0; volumes[m].name; m++) {
-				if(strcmp(field[i], volumes[m].name) == 0) {
-					v = m;
-					in = 1;
-					out = 1;
-					left = 1;
-					right = 1;
-					goto cont0;
-				}
-			}
-
-			if(strcmp(field[i], "reset") == 0) {
-				resetlevel();
-				setlevels(a);
-				goto cont0;
-			}
-			if(strcmp(field[i], "in") == 0) {
-				in = 1;
-				out = 0;
-				goto cont0;
-			}
-			if(strcmp(field[i], "out") == 0) {
-				in = 0;
-				out = 1;
-				goto cont0;
-			}
-			if(strcmp(field[i], "left") == 0) {
-				left = 1;
-				right = 0;
-				goto cont0;
-			}
-			if(strcmp(field[i], "right") == 0) {
-				left = 0;
-				right = 1;
-				goto cont0;
-			}
-			if(strcmp(field[i], "rate") == 0) {
-				v = Vspeed;
-				in = 1;
-				out = 1;
-				left = 1;
-				right = 1;
-				goto cont0;
-			}
-			if(strcmp(field[i], "chan") == 0) {	/* XXX egregious backward compatibility hack */
-				v = Vchans;
-				in = 1;
-				out = 1;
-				left = 1;
-				right = 1;
-				goto cont0;
-			}
-			if(v == Venc) {
-				if (strcmp(field[i], "pcm") == 0) {
-					audio.lovol[v] = Epcm;
-					goto cont0;
-				}
-				if (strcmp(field[i], "ulaw") == 0) {
-					audio.lovol[v] = Eulaw;
-					goto cont0;
-				}
-				if (strcmp(field[i], "alaw") == 0) {
-					audio.lovol[v] = Ealaw;
-					goto cont0;
-				}
-			}
-			if(v == Vchans) {
-				if (strcmp(field[i], "mono") == 0) {
-					audio.lovol[v] = 1;
-					goto cont0;
-				}
-				if (strcmp(field[i], "stereo") == 0) {
-					audio.lovol[v] = 2;
-					goto cont0;
-				}
-			}
-			error(Evolume);
-			break;
-		cont0:;
-		}
-		break;
-	default:
-		error(Ebadusefd);
-	}
-	return n;
-}
-
-Dev audiodevtab = {
-	'A',
-	"audio",
-
-	audioinit,
-	audioattach,
-	devclone,
-	audiowalk,
-	audiostat,
-	audioopen,
-	devcreate,
-	audioclose,
-	audioread,
-	devbread,
-	audiowrite,
-	devbwrite,
-	devremove,
-	devwstat,
-};