trunk/rdesktop/rdpsnd_libao.c

/* 
   rdesktop: A Remote Desktop Protocol client.
   Sound Channel Process Functions - libao-driver
   Copyright (C) Matthew Chapman 2003
   Copyright (C) GuoJunBo guojunbo@ict.ac.cn 2003
   Copyright (C) Michael Gernoth mike@zerfleddert.de 2005

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#include "rdesktop.h"
#include <unistd.h>
#include <fcntl.h>
#include <errno.h>
#include <ao/ao.h>

#define MAX_QUEUE       10
#define WAVEOUTBUF      32

int g_dsp_fd;
ao_device *o_device = NULL;
int default_driver;
int g_samplerate;
BOOL g_dsp_busy = False;
static short g_samplewidth;

static struct audio_packet
{
        struct stream s;
        uint16 tick;
        uint8 index;
} packet_queue[MAX_QUEUE];
static unsigned int queue_hi, queue_lo;

BOOL
wave_out_open(void)
{
        ao_sample_format format;

        ao_initialize();
        default_driver = ao_default_driver_id();

        format.bits = 16;
        format.channels = 2;
        format.rate = 44100;
        g_samplerate = 44100;
        format.byte_format = AO_FMT_LITTLE;

        o_device = ao_open_live(default_driver, &format, NULL);
        if (o_device == NULL)
        {
                return False;
        }

        g_dsp_fd = 0;
        queue_lo = queue_hi = 0;

        return True;
}

void
wave_out_close(void)
{
        /* Ack all remaining packets */
        while (queue_lo != queue_hi)
        {
                rdpsnd_send_completion(packet_queue[queue_lo].tick, packet_queue[queue_lo].index);
                free(packet_queue[queue_lo].s.data);
                queue_lo = (queue_lo + 1) % MAX_QUEUE;
        }

        if (o_device != NULL)
                ao_close(o_device);

        ao_shutdown();
}

BOOL
wave_out_format_supported(WAVEFORMATEX * pwfx)
{
        if (pwfx->wFormatTag != WAVE_FORMAT_PCM)
                return False;
        if ((pwfx->nChannels != 1) && (pwfx->nChannels != 2))
                return False;
        if ((pwfx->wBitsPerSample != 8) && (pwfx->wBitsPerSample != 16))
                return False;
        /* The only common denominator between libao output drivers is a sample-rate of
           44100, we need to upsample 22050 to it */
        if ((pwfx->nSamplesPerSec != 44100) && (pwfx->nSamplesPerSec != 22050))
                return False;

        return True;
}

BOOL
wave_out_set_format(WAVEFORMATEX * pwfx)
{
        ao_sample_format format;

        format.bits = pwfx->wBitsPerSample;
        format.channels = pwfx->nChannels;
        format.rate = 44100;
        g_samplerate = pwfx->nSamplesPerSec;
        format.byte_format = AO_FMT_LITTLE;

        g_samplewidth = pwfx->wBitsPerSample / 8;

        if (o_device != NULL)
                ao_close(o_device);

        o_device = ao_open_live(default_driver, &format, NULL);
        if (o_device == NULL)
        {
                return False;
        }


        return True;
}

void
wave_out_volume(uint16 left, uint16 right)
{
        warning("volume changes not supported with libao-output\n");
}

void
wave_out_write(STREAM s, uint16 tick, uint8 index)
{
        struct audio_packet *packet = &packet_queue[queue_hi];
        unsigned int next_hi = (queue_hi + 1) % MAX_QUEUE;

        if (next_hi == queue_lo)
        {
                error("No space to queue audio packet\n");
                return;
        }

        queue_hi = next_hi;

        packet->s = *s;
        packet->tick = tick;
        packet->index = index;
        packet->s.p += 4;

        /* we steal the data buffer from s, give it a new one */
        s->data = malloc(s->size);

        if (!g_dsp_busy)
                wave_out_play();
}

void
wave_out_play(void)
{
        struct audio_packet *packet;
        STREAM out;
        unsigned char outbuf[WAVEOUTBUF];
        int offset, len, i;

        if (queue_lo == queue_hi)
        {
                g_dsp_busy = 0;
                return;
        }

        packet = &packet_queue[queue_lo];
        out = &packet->s;

        len = 0;

        if (g_samplerate == 22050)
        {
                /* Resample to 44100 */
                for (i = 0; (i < ((WAVEOUTBUF / 8) * (3 - g_samplewidth))) && (out->p < out->end);
                     i++)
                {
                        offset = i * 4 * g_samplewidth;
                        memcpy(&outbuf[0 * g_samplewidth + offset], out->p, g_samplewidth);
                        memcpy(&outbuf[2 * g_samplewidth + offset], out->p, g_samplewidth);
                        out->p += 2;

                        memcpy(&outbuf[1 * g_samplewidth + offset], out->p, g_samplewidth);
                        memcpy(&outbuf[3 * g_samplewidth + offset], out->p, g_samplewidth);
                        out->p += 2;
                        len += 4 * g_samplewidth;
                }
        }
        else
        {
                len = (WAVEOUTBUF > (out->end - out->p)) ? (out->end - out->p) : WAVEOUTBUF;
                memcpy(outbuf, out->p, len);
                out->p += len;
        }

        ao_play(o_device, outbuf, len);

        if (out->p == out->end)
        {
                rdpsnd_send_completion(packet->tick, packet->index);
                free(out->data);
                queue_lo = (queue_lo + 1) % MAX_QUEUE;
        }

        g_dsp_busy = 1;
        return;
}
1	stargo	833	/*
2			rdesktop: A Remote Desktop Protocol client.
3			Sound Channel Process Functions - libao-driver
4			Copyright (C) Matthew Chapman 2003
5			Copyright (C) GuoJunBo guojunbo@ict.ac.cn 2003
6			Copyright (C) Michael Gernoth mike@zerfleddert.de 2005
7
8			This program is free software; you can redistribute it and/or modify
9			it under the terms of the GNU General Public License as published by
10			the Free Software Foundation; either version 2 of the License, or
11			(at your option) any later version.
12
13			This program is distributed in the hope that it will be useful,
14			but WITHOUT ANY WARRANTY; without even the implied warranty of
15			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16			GNU General Public License for more details.
17
18			You should have received a copy of the GNU General Public License
19			along with this program; if not, write to the Free Software
20			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21			*/
22
23			#include "rdesktop.h"
24			#include <unistd.h>
25			#include <fcntl.h>
26			#include <errno.h>
27			#include <ao/ao.h>
28
29			#define MAX_QUEUE 10
30	stargo	836	#define WAVEOUTBUF 32
31	stargo	833
32			int g_dsp_fd;
33			ao_device *o_device = NULL;
34			int default_driver;
35	stargo	835	int g_samplerate;
36	stargo	833	BOOL g_dsp_busy = False;
37			static short g_samplewidth;
38
39			static struct audio_packet
40			{
41			struct stream s;
42			uint16 tick;
43			uint8 index;
44			} packet_queue[MAX_QUEUE];
45			static unsigned int queue_hi, queue_lo;
46
47			BOOL
48			wave_out_open(void)
49			{
50			ao_sample_format format;
51
52			ao_initialize();
53			default_driver = ao_default_driver_id();
54
55			format.bits = 16;
56			format.channels = 2;
57			format.rate = 44100;
58	stargo	835	g_samplerate = 44100;
59	stargo	833	format.byte_format = AO_FMT_LITTLE;
60
61			o_device = ao_open_live(default_driver, &format, NULL);
62			if (o_device == NULL)
63			{
64			return False;
65			}
66
67			g_dsp_fd = 0;
68			queue_lo = queue_hi = 0;
69
70			return True;
71			}
72
73			void
74			wave_out_close(void)
75			{
76			/* Ack all remaining packets */
77			while (queue_lo != queue_hi)
78			{
79			rdpsnd_send_completion(packet_queue[queue_lo].tick, packet_queue[queue_lo].index);
80			free(packet_queue[queue_lo].s.data);
81			queue_lo = (queue_lo + 1) % MAX_QUEUE;
82			}
83
84			if (o_device != NULL)
85			ao_close(o_device);
86	stargo	838
87	stargo	833	ao_shutdown();
88			}
89
90			BOOL
91			wave_out_format_supported(WAVEFORMATEX * pwfx)
92			{
93			if (pwfx->wFormatTag != WAVE_FORMAT_PCM)
94			return False;
95			if ((pwfx->nChannels != 1) && (pwfx->nChannels != 2))
96			return False;
97			if ((pwfx->wBitsPerSample != 8) && (pwfx->wBitsPerSample != 16))
98			return False;
99			/* The only common denominator between libao output drivers is a sample-rate of
100	stargo	835	44100, we need to upsample 22050 to it */
101			if ((pwfx->nSamplesPerSec != 44100) && (pwfx->nSamplesPerSec != 22050))
102	stargo	833	return False;
103
104			return True;
105			}
106
107			BOOL
108			wave_out_set_format(WAVEFORMATEX * pwfx)
109			{
110			ao_sample_format format;
111
112			format.bits = pwfx->wBitsPerSample;
113			format.channels = pwfx->nChannels;
114			format.rate = 44100;
115	stargo	835	g_samplerate = pwfx->nSamplesPerSec;
116	stargo	833	format.byte_format = AO_FMT_LITTLE;
117
118			g_samplewidth = pwfx->wBitsPerSample / 8;
119
120	stargo	837	if (o_device != NULL)
121	stargo	833	ao_close(o_device);
122
123			o_device = ao_open_live(default_driver, &format, NULL);
124			if (o_device == NULL)
125			{
126			return False;
127			}
128
129
130			return True;
131			}
132
133			void
134			wave_out_volume(uint16 left, uint16 right)
135			{
136	stargo	838	warning("volume changes not supported with libao-output\n");
137	stargo	833	}
138
139			void
140			wave_out_write(STREAM s, uint16 tick, uint8 index)
141			{
142			struct audio_packet *packet = &packet_queue[queue_hi];
143			unsigned int next_hi = (queue_hi + 1) % MAX_QUEUE;
144
145			if (next_hi == queue_lo)
146			{
147			error("No space to queue audio packet\n");
148			return;
149			}
150
151			queue_hi = next_hi;
152
153			packet->s = *s;
154			packet->tick = tick;
155			packet->index = index;
156			packet->s.p += 4;
157
158			/* we steal the data buffer from s, give it a new one */
159			s->data = malloc(s->size);
160
161			if (!g_dsp_busy)
162			wave_out_play();
163			}
164
165			void
166			wave_out_play(void)
167			{
168			struct audio_packet *packet;
169			STREAM out;
170	stargo	837	unsigned char outbuf[WAVEOUTBUF];
171			int offset, len, i;
172	stargo	833
173	stargo	835	if (queue_lo == queue_hi)
174	stargo	833	{
175	stargo	835	g_dsp_busy = 0;
176			return;
177			}
178	stargo	833
179	stargo	835	packet = &packet_queue[queue_lo];
180			out = &packet->s;
181	stargo	833
182	stargo	835	len = 0;
183	stargo	833
184	stargo	837	if (g_samplerate == 22050)
185	stargo	835	{
186			/* Resample to 44100 */
187	stargo	837	for (i = 0; (i < ((WAVEOUTBUF / 8) * (3 - g_samplewidth))) && (out->p < out->end);
188			i++)
189	stargo	835	{
190	stargo	837	offset = i * 4 * g_samplewidth;
191			memcpy(&outbuf[0 * g_samplewidth + offset], out->p, g_samplewidth);
192			memcpy(&outbuf[2 * g_samplewidth + offset], out->p, g_samplewidth);
193	stargo	835	out->p += 2;
194	stargo	833
195	stargo	837	memcpy(&outbuf[1 * g_samplewidth + offset], out->p, g_samplewidth);
196			memcpy(&outbuf[3 * g_samplewidth + offset], out->p, g_samplewidth);
197	stargo	835	out->p += 2;
198	stargo	837	len += 4 * g_samplewidth;
199	stargo	833	}
200			}
201	stargo	835	else
202			{
203	stargo	836	len = (WAVEOUTBUF > (out->end - out->p)) ? (out->end - out->p) : WAVEOUTBUF;
204	stargo	837	memcpy(outbuf, out->p, len);
205	stargo	835	out->p += len;
206			}
207
208	stargo	837	ao_play(o_device, outbuf, len);
209	stargo	835
210			if (out->p == out->end)
211			{
212			rdpsnd_send_completion(packet->tick, packet->index);
213			free(out->data);
214			queue_lo = (queue_lo + 1) % MAX_QUEUE;
215			}
216
217			g_dsp_busy = 1;
218			return;
219	stargo	833	}