blob: 2dbc58cbe1e6287543d5b5bbc379f56deee75fd1 [file] [log] [blame]
bellard85571bc2004-11-07 18:04:02 +00001/*
bellard1d14ffa2005-10-30 18:58:22 +00002 * QEMU WAV audio driver
3 *
4 * Copyright (c) 2004-2005 Vassili Karpov (malc)
5 *
bellard85571bc2004-11-07 18:04:02 +00006 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
12 *
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
15 *
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22 * THE SOFTWARE.
23 */
24#include "vl.h"
25
bellard1d14ffa2005-10-30 18:58:22 +000026#define AUDIO_CAP "wav"
27#include "audio_int.h"
bellardfb065182004-11-09 23:09:44 +000028
bellard1d14ffa2005-10-30 18:58:22 +000029typedef struct WAVVoiceOut {
30 HWVoiceOut hw;
bellardfb065182004-11-09 23:09:44 +000031 QEMUFile *f;
32 int64_t old_ticks;
33 void *pcm_buf;
34 int total_samples;
bellard1d14ffa2005-10-30 18:58:22 +000035} WAVVoiceOut;
bellard85571bc2004-11-07 18:04:02 +000036
37static struct {
bellardc0fe3822005-11-05 18:55:28 +000038 audsettings_t settings;
bellard85571bc2004-11-07 18:04:02 +000039 const char *wav_path;
40} conf = {
bellardc0fe3822005-11-05 18:55:28 +000041 {
42 44100,
43 2,
thsf941aa22007-02-17 22:19:29 +000044 AUD_FMT_S16,
45 AUDIO_HOST_ENDIANNESS
bellardc0fe3822005-11-05 18:55:28 +000046 },
47 "qemu.wav"
bellard85571bc2004-11-07 18:04:02 +000048};
49
bellard1d14ffa2005-10-30 18:58:22 +000050static int wav_run_out (HWVoiceOut *hw)
bellard85571bc2004-11-07 18:04:02 +000051{
bellard1d14ffa2005-10-30 18:58:22 +000052 WAVVoiceOut *wav = (WAVVoiceOut *) hw;
bellard85571bc2004-11-07 18:04:02 +000053 int rpos, live, decr, samples;
54 uint8_t *dst;
55 st_sample_t *src;
56 int64_t now = qemu_get_clock (vm_clock);
57 int64_t ticks = now - wav->old_ticks;
bellard1d14ffa2005-10-30 18:58:22 +000058 int64_t bytes = (ticks * hw->info.bytes_per_second) / ticks_per_sec;
bellard85571bc2004-11-07 18:04:02 +000059
bellard1d14ffa2005-10-30 18:58:22 +000060 if (bytes > INT_MAX) {
61 samples = INT_MAX >> hw->info.shift;
62 }
63 else {
64 samples = bytes >> hw->info.shift;
65 }
bellard85571bc2004-11-07 18:04:02 +000066
bellard1d14ffa2005-10-30 18:58:22 +000067 live = audio_pcm_hw_get_live_out (hw);
68 if (!live) {
69 return 0;
70 }
bellard85571bc2004-11-07 18:04:02 +000071
bellard7372f882004-11-11 16:55:09 +000072 wav->old_ticks = now;
bellard85571bc2004-11-07 18:04:02 +000073 decr = audio_MIN (live, samples);
74 samples = decr;
75 rpos = hw->rpos;
76 while (samples) {
77 int left_till_end_samples = hw->samples - rpos;
78 int convert_samples = audio_MIN (samples, left_till_end_samples);
79
bellard1d14ffa2005-10-30 18:58:22 +000080 src = hw->mix_buf + rpos;
81 dst = advance (wav->pcm_buf, rpos << hw->info.shift);
bellard85571bc2004-11-07 18:04:02 +000082
83 hw->clip (dst, src, convert_samples);
bellard1d14ffa2005-10-30 18:58:22 +000084 qemu_put_buffer (wav->f, dst, convert_samples << hw->info.shift);
bellard85571bc2004-11-07 18:04:02 +000085
86 rpos = (rpos + convert_samples) % hw->samples;
87 samples -= convert_samples;
88 wav->total_samples += convert_samples;
89 }
90
bellard85571bc2004-11-07 18:04:02 +000091 hw->rpos = rpos;
bellard1d14ffa2005-10-30 18:58:22 +000092 return decr;
bellard85571bc2004-11-07 18:04:02 +000093}
94
bellard1d14ffa2005-10-30 18:58:22 +000095static int wav_write_out (SWVoiceOut *sw, void *buf, int len)
bellard85571bc2004-11-07 18:04:02 +000096{
bellard1d14ffa2005-10-30 18:58:22 +000097 return audio_pcm_sw_write (sw, buf, len);
bellard85571bc2004-11-07 18:04:02 +000098}
99
bellard85571bc2004-11-07 18:04:02 +0000100/* VICE code: Store number as little endian. */
101static void le_store (uint8_t *buf, uint32_t val, int len)
102{
103 int i;
104 for (i = 0; i < len; i++) {
105 buf[i] = (uint8_t) (val & 0xff);
106 val >>= 8;
107 }
108}
109
bellardc0fe3822005-11-05 18:55:28 +0000110static int wav_init_out (HWVoiceOut *hw, audsettings_t *as)
bellard85571bc2004-11-07 18:04:02 +0000111{
bellard1d14ffa2005-10-30 18:58:22 +0000112 WAVVoiceOut *wav = (WAVVoiceOut *) hw;
bellardc0fe3822005-11-05 18:55:28 +0000113 int bits16 = 0, stereo = 0;
bellard85571bc2004-11-07 18:04:02 +0000114 uint8_t hdr[] = {
115 0x52, 0x49, 0x46, 0x46, 0x00, 0x00, 0x00, 0x00, 0x57, 0x41, 0x56,
116 0x45, 0x66, 0x6d, 0x74, 0x20, 0x10, 0x00, 0x00, 0x00, 0x01, 0x00,
117 0x02, 0x00, 0x44, 0xac, 0x00, 0x00, 0x10, 0xb1, 0x02, 0x00, 0x04,
118 0x00, 0x10, 0x00, 0x64, 0x61, 0x74, 0x61, 0x00, 0x00, 0x00, 0x00
119 };
bellardc0fe3822005-11-05 18:55:28 +0000120 audsettings_t wav_as = conf.settings;
bellard85571bc2004-11-07 18:04:02 +0000121
bellardc0fe3822005-11-05 18:55:28 +0000122 (void) as;
bellard1d14ffa2005-10-30 18:58:22 +0000123
bellardc0fe3822005-11-05 18:55:28 +0000124 stereo = wav_as.nchannels == 2;
125 switch (wav_as.fmt) {
bellard85571bc2004-11-07 18:04:02 +0000126 case AUD_FMT_S8:
127 case AUD_FMT_U8:
bellard1d14ffa2005-10-30 18:58:22 +0000128 bits16 = 0;
bellard85571bc2004-11-07 18:04:02 +0000129 break;
130
131 case AUD_FMT_S16:
132 case AUD_FMT_U16:
133 bits16 = 1;
134 break;
thsf941aa22007-02-17 22:19:29 +0000135
136 case AUD_FMT_S32:
137 case AUD_FMT_U32:
138 dolog ("WAVE files can not handle 32bit formats\n");
139 return -1;
bellard85571bc2004-11-07 18:04:02 +0000140 }
141
142 hdr[34] = bits16 ? 0x10 : 0x08;
bellardc0fe3822005-11-05 18:55:28 +0000143
bellardd929eba2006-07-04 21:47:22 +0000144 wav_as.endianness = 0;
145 audio_pcm_init_info (&hw->info, &wav_as);
bellardc0fe3822005-11-05 18:55:28 +0000146
147 hw->samples = 1024;
148 wav->pcm_buf = audio_calloc (AUDIO_FUNC, hw->samples, 1 << hw->info.shift);
bellard1d14ffa2005-10-30 18:58:22 +0000149 if (!wav->pcm_buf) {
bellardc0fe3822005-11-05 18:55:28 +0000150 dolog ("Could not allocate buffer (%d bytes)\n",
151 hw->samples << hw->info.shift);
bellard85571bc2004-11-07 18:04:02 +0000152 return -1;
bellard1d14ffa2005-10-30 18:58:22 +0000153 }
bellard85571bc2004-11-07 18:04:02 +0000154
bellard1d14ffa2005-10-30 18:58:22 +0000155 le_store (hdr + 22, hw->info.nchannels, 2);
156 le_store (hdr + 24, hw->info.freq, 4);
bellardc0fe3822005-11-05 18:55:28 +0000157 le_store (hdr + 28, hw->info.freq << (bits16 + stereo), 4);
158 le_store (hdr + 32, 1 << (bits16 + stereo), 2);
bellard85571bc2004-11-07 18:04:02 +0000159
bellarde70332b2006-08-05 21:31:46 +0000160 wav->f = qemu_fopen (conf.wav_path, "wb");
bellard85571bc2004-11-07 18:04:02 +0000161 if (!wav->f) {
bellard1d14ffa2005-10-30 18:58:22 +0000162 dolog ("Failed to open wave file `%s'\nReason: %s\n",
bellard85571bc2004-11-07 18:04:02 +0000163 conf.wav_path, strerror (errno));
bellard7372f882004-11-11 16:55:09 +0000164 qemu_free (wav->pcm_buf);
165 wav->pcm_buf = NULL;
bellard85571bc2004-11-07 18:04:02 +0000166 return -1;
167 }
168
169 qemu_put_buffer (wav->f, hdr, sizeof (hdr));
170 return 0;
171}
172
bellard1d14ffa2005-10-30 18:58:22 +0000173static void wav_fini_out (HWVoiceOut *hw)
bellard85571bc2004-11-07 18:04:02 +0000174{
bellard1d14ffa2005-10-30 18:58:22 +0000175 WAVVoiceOut *wav = (WAVVoiceOut *) hw;
bellard85571bc2004-11-07 18:04:02 +0000176 uint8_t rlen[4];
177 uint8_t dlen[4];
bellard50903532005-11-20 16:22:16 +0000178 uint32_t datalen = wav->total_samples << hw->info.shift;
179 uint32_t rifflen = datalen + 36;
bellard85571bc2004-11-07 18:04:02 +0000180
bellardc0fe3822005-11-05 18:55:28 +0000181 if (!wav->f) {
bellard85571bc2004-11-07 18:04:02 +0000182 return;
bellard1d14ffa2005-10-30 18:58:22 +0000183 }
bellard85571bc2004-11-07 18:04:02 +0000184
185 le_store (rlen, rifflen, 4);
186 le_store (dlen, datalen, 4);
187
188 qemu_fseek (wav->f, 4, SEEK_SET);
189 qemu_put_buffer (wav->f, rlen, 4);
190
191 qemu_fseek (wav->f, 32, SEEK_CUR);
192 qemu_put_buffer (wav->f, dlen, 4);
193
bellarde70332b2006-08-05 21:31:46 +0000194 qemu_fclose (wav->f);
bellard85571bc2004-11-07 18:04:02 +0000195 wav->f = NULL;
bellard7372f882004-11-11 16:55:09 +0000196
197 qemu_free (wav->pcm_buf);
198 wav->pcm_buf = NULL;
bellard85571bc2004-11-07 18:04:02 +0000199}
200
bellard1d14ffa2005-10-30 18:58:22 +0000201static int wav_ctl_out (HWVoiceOut *hw, int cmd, ...)
bellard85571bc2004-11-07 18:04:02 +0000202{
203 (void) hw;
204 (void) cmd;
205 return 0;
206}
207
208static void *wav_audio_init (void)
209{
210 return &conf;
211}
212
213static void wav_audio_fini (void *opaque)
214{
bellard1d14ffa2005-10-30 18:58:22 +0000215 (void) opaque;
bellard85571bc2004-11-07 18:04:02 +0000216 ldebug ("wav_fini");
217}
218
bellard1d14ffa2005-10-30 18:58:22 +0000219struct audio_option wav_options[] = {
bellardc0fe3822005-11-05 18:55:28 +0000220 {"FREQUENCY", AUD_OPT_INT, &conf.settings.freq,
221 "Frequency", NULL, 0},
222
223 {"FORMAT", AUD_OPT_FMT, &conf.settings.fmt,
224 "Format", NULL, 0},
225
226 {"DAC_FIXED_CHANNELS", AUD_OPT_INT, &conf.settings.nchannels,
227 "Number of channels (1 - mono, 2 - stereo)", NULL, 0},
228
bellard1d14ffa2005-10-30 18:58:22 +0000229 {"PATH", AUD_OPT_STR, &conf.wav_path,
230 "Path to wave file", NULL, 0},
231 {NULL, 0, NULL, NULL, NULL, 0}
bellard85571bc2004-11-07 18:04:02 +0000232};
233
bellard1d14ffa2005-10-30 18:58:22 +0000234struct audio_pcm_ops wav_pcm_ops = {
235 wav_init_out,
236 wav_fini_out,
237 wav_run_out,
238 wav_write_out,
239 wav_ctl_out,
240
241 NULL,
242 NULL,
243 NULL,
244 NULL,
245 NULL
246};
247
248struct audio_driver wav_audio_driver = {
249 INIT_FIELD (name = ) "wav",
250 INIT_FIELD (descr = )
251 "WAV renderer http://wikipedia.org/wiki/WAV",
252 INIT_FIELD (options = ) wav_options,
253 INIT_FIELD (init = ) wav_audio_init,
254 INIT_FIELD (fini = ) wav_audio_fini,
255 INIT_FIELD (pcm_ops = ) &wav_pcm_ops,
256 INIT_FIELD (can_be_default = ) 0,
257 INIT_FIELD (max_voices_out = ) 1,
258 INIT_FIELD (max_voices_in = ) 0,
259 INIT_FIELD (voice_size_out = ) sizeof (WAVVoiceOut),
260 INIT_FIELD (voice_size_in = ) 0
bellard85571bc2004-11-07 18:04:02 +0000261};