blob: 40adfa30c33a43b31a375288b149a177481ecc14 [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 */
Peter Maydell6086a562016-01-18 17:33:52 +000024#include "qemu/osdep.h"
Paolo Bonzini87776ab2016-03-15 15:36:13 +010025#include "qemu/host-utils.h"
Paolo Bonzini1de7afc2012-12-17 18:20:00 +010026#include "qemu/timer.h"
pbrook87ecb682007-11-17 17:14:51 +000027#include "audio.h"
bellard85571bc2004-11-07 18:04:02 +000028
bellard1d14ffa2005-10-30 18:58:22 +000029#define AUDIO_CAP "wav"
30#include "audio_int.h"
bellardfb065182004-11-09 23:09:44 +000031
bellard1d14ffa2005-10-30 18:58:22 +000032typedef struct WAVVoiceOut {
33 HWVoiceOut hw;
Juan Quintela27acf662011-09-20 15:16:27 +020034 FILE *f;
bellardfb065182004-11-09 23:09:44 +000035 int64_t old_ticks;
36 void *pcm_buf;
37 int total_samples;
bellard1d14ffa2005-10-30 18:58:22 +000038} WAVVoiceOut;
bellard85571bc2004-11-07 18:04:02 +000039
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +020040typedef struct {
malc1ea879e2008-12-03 22:48:44 +000041 struct audsettings settings;
bellard85571bc2004-11-07 18:04:02 +000042 const char *wav_path;
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +020043} WAVConf;
bellard85571bc2004-11-07 18:04:02 +000044
malcbdff2532009-09-18 11:37:39 +040045static int wav_run_out (HWVoiceOut *hw, int live)
bellard85571bc2004-11-07 18:04:02 +000046{
bellard1d14ffa2005-10-30 18:58:22 +000047 WAVVoiceOut *wav = (WAVVoiceOut *) hw;
malcbdff2532009-09-18 11:37:39 +040048 int rpos, decr, samples;
bellard85571bc2004-11-07 18:04:02 +000049 uint8_t *dst;
malc1ea879e2008-12-03 22:48:44 +000050 struct st_sample *src;
Alex Blighbc72ad62013-08-21 16:03:08 +010051 int64_t now = qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL);
bellard85571bc2004-11-07 18:04:02 +000052 int64_t ticks = now - wav->old_ticks;
malc4f4cc0e2009-09-18 08:16:03 +040053 int64_t bytes =
Rutuja Shah73bcb242016-03-21 21:32:30 +053054 muldiv64(ticks, hw->info.bytes_per_second, NANOSECONDS_PER_SECOND);
bellard85571bc2004-11-07 18:04:02 +000055
bellard1d14ffa2005-10-30 18:58:22 +000056 if (bytes > INT_MAX) {
57 samples = INT_MAX >> hw->info.shift;
58 }
59 else {
60 samples = bytes >> hw->info.shift;
61 }
bellard85571bc2004-11-07 18:04:02 +000062
bellard7372f882004-11-11 16:55:09 +000063 wav->old_ticks = now;
bellard85571bc2004-11-07 18:04:02 +000064 decr = audio_MIN (live, samples);
65 samples = decr;
66 rpos = hw->rpos;
67 while (samples) {
68 int left_till_end_samples = hw->samples - rpos;
69 int convert_samples = audio_MIN (samples, left_till_end_samples);
70
bellard1d14ffa2005-10-30 18:58:22 +000071 src = hw->mix_buf + rpos;
72 dst = advance (wav->pcm_buf, rpos << hw->info.shift);
bellard85571bc2004-11-07 18:04:02 +000073
74 hw->clip (dst, src, convert_samples);
Juan Quintela27acf662011-09-20 15:16:27 +020075 if (fwrite (dst, convert_samples << hw->info.shift, 1, wav->f) != 1) {
76 dolog ("wav_run_out: fwrite of %d bytes failed\nReaons: %s\n",
77 convert_samples << hw->info.shift, strerror (errno));
78 }
bellard85571bc2004-11-07 18:04:02 +000079
80 rpos = (rpos + convert_samples) % hw->samples;
81 samples -= convert_samples;
82 wav->total_samples += convert_samples;
83 }
84
bellard85571bc2004-11-07 18:04:02 +000085 hw->rpos = rpos;
bellard1d14ffa2005-10-30 18:58:22 +000086 return decr;
bellard85571bc2004-11-07 18:04:02 +000087}
88
bellard1d14ffa2005-10-30 18:58:22 +000089static int wav_write_out (SWVoiceOut *sw, void *buf, int len)
bellard85571bc2004-11-07 18:04:02 +000090{
bellard1d14ffa2005-10-30 18:58:22 +000091 return audio_pcm_sw_write (sw, buf, len);
bellard85571bc2004-11-07 18:04:02 +000092}
93
bellard85571bc2004-11-07 18:04:02 +000094/* VICE code: Store number as little endian. */
95static void le_store (uint8_t *buf, uint32_t val, int len)
96{
97 int i;
98 for (i = 0; i < len; i++) {
99 buf[i] = (uint8_t) (val & 0xff);
100 val >>= 8;
101 }
102}
103
Kővágó, Zoltán5706db12015-06-03 23:03:47 +0200104static int wav_init_out(HWVoiceOut *hw, struct audsettings *as,
105 void *drv_opaque)
bellard85571bc2004-11-07 18:04:02 +0000106{
bellard1d14ffa2005-10-30 18:58:22 +0000107 WAVVoiceOut *wav = (WAVVoiceOut *) hw;
bellardc0fe3822005-11-05 18:55:28 +0000108 int bits16 = 0, stereo = 0;
bellard85571bc2004-11-07 18:04:02 +0000109 uint8_t hdr[] = {
110 0x52, 0x49, 0x46, 0x46, 0x00, 0x00, 0x00, 0x00, 0x57, 0x41, 0x56,
111 0x45, 0x66, 0x6d, 0x74, 0x20, 0x10, 0x00, 0x00, 0x00, 0x01, 0x00,
112 0x02, 0x00, 0x44, 0xac, 0x00, 0x00, 0x10, 0xb1, 0x02, 0x00, 0x04,
113 0x00, 0x10, 0x00, 0x64, 0x61, 0x74, 0x61, 0x00, 0x00, 0x00, 0x00
114 };
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200115 WAVConf *conf = drv_opaque;
116 struct audsettings wav_as = conf->settings;
bellard85571bc2004-11-07 18:04:02 +0000117
bellardc0fe3822005-11-05 18:55:28 +0000118 stereo = wav_as.nchannels == 2;
119 switch (wav_as.fmt) {
bellard85571bc2004-11-07 18:04:02 +0000120 case AUD_FMT_S8:
121 case AUD_FMT_U8:
bellard1d14ffa2005-10-30 18:58:22 +0000122 bits16 = 0;
bellard85571bc2004-11-07 18:04:02 +0000123 break;
124
125 case AUD_FMT_S16:
126 case AUD_FMT_U16:
127 bits16 = 1;
128 break;
thsf941aa22007-02-17 22:19:29 +0000129
130 case AUD_FMT_S32:
131 case AUD_FMT_U32:
132 dolog ("WAVE files can not handle 32bit formats\n");
133 return -1;
bellard85571bc2004-11-07 18:04:02 +0000134 }
135
136 hdr[34] = bits16 ? 0x10 : 0x08;
bellardc0fe3822005-11-05 18:55:28 +0000137
bellardd929eba2006-07-04 21:47:22 +0000138 wav_as.endianness = 0;
139 audio_pcm_init_info (&hw->info, &wav_as);
bellardc0fe3822005-11-05 18:55:28 +0000140
141 hw->samples = 1024;
Alistair Francis470bcab2018-02-03 09:43:02 +0100142 wav->pcm_buf = audio_calloc(__func__, hw->samples, 1 << hw->info.shift);
bellard1d14ffa2005-10-30 18:58:22 +0000143 if (!wav->pcm_buf) {
bellardc0fe3822005-11-05 18:55:28 +0000144 dolog ("Could not allocate buffer (%d bytes)\n",
145 hw->samples << hw->info.shift);
bellard85571bc2004-11-07 18:04:02 +0000146 return -1;
bellard1d14ffa2005-10-30 18:58:22 +0000147 }
bellard85571bc2004-11-07 18:04:02 +0000148
bellard1d14ffa2005-10-30 18:58:22 +0000149 le_store (hdr + 22, hw->info.nchannels, 2);
150 le_store (hdr + 24, hw->info.freq, 4);
bellardc0fe3822005-11-05 18:55:28 +0000151 le_store (hdr + 28, hw->info.freq << (bits16 + stereo), 4);
152 le_store (hdr + 32, 1 << (bits16 + stereo), 2);
bellard85571bc2004-11-07 18:04:02 +0000153
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200154 wav->f = fopen (conf->wav_path, "wb");
bellard85571bc2004-11-07 18:04:02 +0000155 if (!wav->f) {
bellard1d14ffa2005-10-30 18:58:22 +0000156 dolog ("Failed to open wave file `%s'\nReason: %s\n",
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200157 conf->wav_path, strerror (errno));
Anthony Liguori7267c092011-08-20 22:09:37 -0500158 g_free (wav->pcm_buf);
bellard7372f882004-11-11 16:55:09 +0000159 wav->pcm_buf = NULL;
bellard85571bc2004-11-07 18:04:02 +0000160 return -1;
161 }
162
Juan Quintela27acf662011-09-20 15:16:27 +0200163 if (fwrite (hdr, sizeof (hdr), 1, wav->f) != 1) {
164 dolog ("wav_init_out: failed to write header\nReason: %s\n",
165 strerror(errno));
166 return -1;
167 }
bellard85571bc2004-11-07 18:04:02 +0000168 return 0;
169}
170
bellard1d14ffa2005-10-30 18:58:22 +0000171static void wav_fini_out (HWVoiceOut *hw)
bellard85571bc2004-11-07 18:04:02 +0000172{
bellard1d14ffa2005-10-30 18:58:22 +0000173 WAVVoiceOut *wav = (WAVVoiceOut *) hw;
bellard85571bc2004-11-07 18:04:02 +0000174 uint8_t rlen[4];
175 uint8_t dlen[4];
bellard50903532005-11-20 16:22:16 +0000176 uint32_t datalen = wav->total_samples << hw->info.shift;
177 uint32_t rifflen = datalen + 36;
bellard85571bc2004-11-07 18:04:02 +0000178
bellardc0fe3822005-11-05 18:55:28 +0000179 if (!wav->f) {
bellard85571bc2004-11-07 18:04:02 +0000180 return;
bellard1d14ffa2005-10-30 18:58:22 +0000181 }
bellard85571bc2004-11-07 18:04:02 +0000182
183 le_store (rlen, rifflen, 4);
184 le_store (dlen, datalen, 4);
185
Juan Quintela27acf662011-09-20 15:16:27 +0200186 if (fseek (wav->f, 4, SEEK_SET)) {
187 dolog ("wav_fini_out: fseek to rlen failed\nReason: %s\n",
188 strerror(errno));
189 goto doclose;
190 }
191 if (fwrite (rlen, 4, 1, wav->f) != 1) {
192 dolog ("wav_fini_out: failed to write rlen\nReason: %s\n",
193 strerror (errno));
194 goto doclose;
195 }
196 if (fseek (wav->f, 32, SEEK_CUR)) {
197 dolog ("wav_fini_out: fseek to dlen failed\nReason: %s\n",
198 strerror (errno));
199 goto doclose;
200 }
201 if (fwrite (dlen, 4, 1, wav->f) != 1) {
202 dolog ("wav_fini_out: failed to write dlen\nReaons: %s\n",
203 strerror (errno));
204 goto doclose;
205 }
bellard85571bc2004-11-07 18:04:02 +0000206
Juan Quintela27acf662011-09-20 15:16:27 +0200207 doclose:
208 if (fclose (wav->f)) {
209 dolog ("wav_fini_out: fclose %p failed\nReason: %s\n",
210 wav->f, strerror (errno));
211 }
bellard85571bc2004-11-07 18:04:02 +0000212 wav->f = NULL;
bellard7372f882004-11-11 16:55:09 +0000213
Anthony Liguori7267c092011-08-20 22:09:37 -0500214 g_free (wav->pcm_buf);
bellard7372f882004-11-11 16:55:09 +0000215 wav->pcm_buf = NULL;
bellard85571bc2004-11-07 18:04:02 +0000216}
217
bellard1d14ffa2005-10-30 18:58:22 +0000218static int wav_ctl_out (HWVoiceOut *hw, int cmd, ...)
bellard85571bc2004-11-07 18:04:02 +0000219{
220 (void) hw;
221 (void) cmd;
222 return 0;
223}
224
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200225static WAVConf glob_conf = {
226 .settings.freq = 44100,
227 .settings.nchannels = 2,
228 .settings.fmt = AUD_FMT_S16,
229 .wav_path = "qemu.wav"
230};
231
bellard85571bc2004-11-07 18:04:02 +0000232static void *wav_audio_init (void)
233{
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200234 WAVConf *conf = g_malloc(sizeof(WAVConf));
235 *conf = glob_conf;
236 return conf;
bellard85571bc2004-11-07 18:04:02 +0000237}
238
239static void wav_audio_fini (void *opaque)
240{
241 ldebug ("wav_fini");
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200242 g_free(opaque);
bellard85571bc2004-11-07 18:04:02 +0000243}
244
blueswir18869def2008-10-05 10:01:05 +0000245static struct audio_option wav_options[] = {
malc98f9f482009-08-11 20:48:02 +0400246 {
247 .name = "FREQUENCY",
248 .tag = AUD_OPT_INT,
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200249 .valp = &glob_conf.settings.freq,
malc98f9f482009-08-11 20:48:02 +0400250 .descr = "Frequency"
251 },
252 {
253 .name = "FORMAT",
254 .tag = AUD_OPT_FMT,
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200255 .valp = &glob_conf.settings.fmt,
malc98f9f482009-08-11 20:48:02 +0400256 .descr = "Format"
257 },
258 {
259 .name = "DAC_FIXED_CHANNELS",
260 .tag = AUD_OPT_INT,
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200261 .valp = &glob_conf.settings.nchannels,
malc98f9f482009-08-11 20:48:02 +0400262 .descr = "Number of channels (1 - mono, 2 - stereo)"
263 },
264 {
265 .name = "PATH",
266 .tag = AUD_OPT_STR,
Kővágó, Zoltánf2dcc6c2015-06-03 23:03:51 +0200267 .valp = &glob_conf.wav_path,
malc98f9f482009-08-11 20:48:02 +0400268 .descr = "Path to wave file"
269 },
Juan Quintela2700efa2009-08-11 02:31:16 +0200270 { /* End of list */ }
bellard85571bc2004-11-07 18:04:02 +0000271};
272
blueswir135f4b582008-10-06 18:08:30 +0000273static struct audio_pcm_ops wav_pcm_ops = {
Juan Quintela1dd3e4d2009-08-11 02:31:15 +0200274 .init_out = wav_init_out,
275 .fini_out = wav_fini_out,
276 .run_out = wav_run_out,
277 .write = wav_write_out,
278 .ctl_out = wav_ctl_out,
bellard1d14ffa2005-10-30 18:58:22 +0000279};
280
Gerd Hoffmannd3893a32018-03-06 08:40:47 +0100281static struct audio_driver wav_audio_driver = {
Juan Quintelabee37f32009-08-11 02:31:14 +0200282 .name = "wav",
283 .descr = "WAV renderer http://wikipedia.org/wiki/WAV",
284 .options = wav_options,
285 .init = wav_audio_init,
286 .fini = wav_audio_fini,
malc98f9f482009-08-11 20:48:02 +0400287 .pcm_ops = &wav_pcm_ops,
Juan Quintelabee37f32009-08-11 02:31:14 +0200288 .can_be_default = 0,
289 .max_voices_out = 1,
290 .max_voices_in = 0,
291 .voice_size_out = sizeof (WAVVoiceOut),
292 .voice_size_in = 0
bellard85571bc2004-11-07 18:04:02 +0000293};
Gerd Hoffmannd3893a32018-03-06 08:40:47 +0100294
295static void register_audio_wav(void)
296{
297 audio_driver_register(&wav_audio_driver);
298}
299type_init(register_audio_wav);