|
|
1.1 root 1: /*
1.1.1.2 root 2: * QEMU WAV audio driver
3: *
4: * Copyright (c) 2004-2005 Vassili Karpov (malc)
5: *
1.1 root 6: * 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: */
1.1.1.5 ! root 24: #include "hw/hw.h"
! 25: #include "qemu-timer.h"
! 26: #include "audio.h"
1.1 root 27:
1.1.1.2 root 28: #define AUDIO_CAP "wav"
29: #include "audio_int.h"
1.1 root 30:
1.1.1.2 root 31: typedef struct WAVVoiceOut {
32: HWVoiceOut hw;
1.1 root 33: QEMUFile *f;
34: int64_t old_ticks;
35: void *pcm_buf;
36: int total_samples;
1.1.1.2 root 37: } WAVVoiceOut;
1.1 root 38:
39: static struct {
1.1.1.2 root 40: audsettings_t settings;
1.1 root 41: const char *wav_path;
42: } conf = {
1.1.1.2 root 43: {
44: 44100,
45: 2,
1.1.1.5 ! root 46: AUD_FMT_S16,
! 47: AUDIO_HOST_ENDIANNESS
1.1.1.2 root 48: },
49: "qemu.wav"
1.1 root 50: };
51:
1.1.1.2 root 52: static int wav_run_out (HWVoiceOut *hw)
1.1 root 53: {
1.1.1.2 root 54: WAVVoiceOut *wav = (WAVVoiceOut *) hw;
1.1 root 55: int rpos, live, decr, samples;
56: uint8_t *dst;
57: st_sample_t *src;
58: int64_t now = qemu_get_clock (vm_clock);
59: int64_t ticks = now - wav->old_ticks;
1.1.1.2 root 60: int64_t bytes = (ticks * hw->info.bytes_per_second) / ticks_per_sec;
1.1 root 61:
1.1.1.2 root 62: if (bytes > INT_MAX) {
63: samples = INT_MAX >> hw->info.shift;
64: }
65: else {
66: samples = bytes >> hw->info.shift;
67: }
1.1 root 68:
1.1.1.2 root 69: live = audio_pcm_hw_get_live_out (hw);
70: if (!live) {
71: return 0;
72: }
1.1 root 73:
74: wav->old_ticks = now;
75: decr = audio_MIN (live, samples);
76: samples = decr;
77: rpos = hw->rpos;
78: while (samples) {
79: int left_till_end_samples = hw->samples - rpos;
80: int convert_samples = audio_MIN (samples, left_till_end_samples);
81:
1.1.1.2 root 82: src = hw->mix_buf + rpos;
83: dst = advance (wav->pcm_buf, rpos << hw->info.shift);
1.1 root 84:
85: hw->clip (dst, src, convert_samples);
1.1.1.2 root 86: qemu_put_buffer (wav->f, dst, convert_samples << hw->info.shift);
1.1 root 87:
88: rpos = (rpos + convert_samples) % hw->samples;
89: samples -= convert_samples;
90: wav->total_samples += convert_samples;
91: }
92:
93: hw->rpos = rpos;
1.1.1.2 root 94: return decr;
1.1 root 95: }
96:
1.1.1.2 root 97: static int wav_write_out (SWVoiceOut *sw, void *buf, int len)
1.1 root 98: {
1.1.1.2 root 99: return audio_pcm_sw_write (sw, buf, len);
1.1 root 100: }
101:
102: /* VICE code: Store number as little endian. */
103: static void le_store (uint8_t *buf, uint32_t val, int len)
104: {
105: int i;
106: for (i = 0; i < len; i++) {
107: buf[i] = (uint8_t) (val & 0xff);
108: val >>= 8;
109: }
110: }
111:
1.1.1.2 root 112: static int wav_init_out (HWVoiceOut *hw, audsettings_t *as)
1.1 root 113: {
1.1.1.2 root 114: WAVVoiceOut *wav = (WAVVoiceOut *) hw;
115: int bits16 = 0, stereo = 0;
1.1 root 116: uint8_t hdr[] = {
117: 0x52, 0x49, 0x46, 0x46, 0x00, 0x00, 0x00, 0x00, 0x57, 0x41, 0x56,
118: 0x45, 0x66, 0x6d, 0x74, 0x20, 0x10, 0x00, 0x00, 0x00, 0x01, 0x00,
119: 0x02, 0x00, 0x44, 0xac, 0x00, 0x00, 0x10, 0xb1, 0x02, 0x00, 0x04,
120: 0x00, 0x10, 0x00, 0x64, 0x61, 0x74, 0x61, 0x00, 0x00, 0x00, 0x00
121: };
1.1.1.2 root 122: audsettings_t wav_as = conf.settings;
123:
124: (void) as;
1.1 root 125:
1.1.1.2 root 126: stereo = wav_as.nchannels == 2;
127: switch (wav_as.fmt) {
1.1 root 128: case AUD_FMT_S8:
129: case AUD_FMT_U8:
1.1.1.2 root 130: bits16 = 0;
1.1 root 131: break;
132:
133: case AUD_FMT_S16:
134: case AUD_FMT_U16:
135: bits16 = 1;
136: break;
1.1.1.5 ! root 137:
! 138: case AUD_FMT_S32:
! 139: case AUD_FMT_U32:
! 140: dolog ("WAVE files can not handle 32bit formats\n");
! 141: return -1;
1.1 root 142: }
143:
144: hdr[34] = bits16 ? 0x10 : 0x08;
1.1.1.2 root 145:
1.1.1.3 root 146: wav_as.endianness = 0;
147: audio_pcm_init_info (&hw->info, &wav_as);
1.1.1.2 root 148:
149: hw->samples = 1024;
150: wav->pcm_buf = audio_calloc (AUDIO_FUNC, hw->samples, 1 << hw->info.shift);
151: if (!wav->pcm_buf) {
152: dolog ("Could not allocate buffer (%d bytes)\n",
153: hw->samples << hw->info.shift);
1.1 root 154: return -1;
1.1.1.2 root 155: }
1.1 root 156:
1.1.1.2 root 157: le_store (hdr + 22, hw->info.nchannels, 2);
158: le_store (hdr + 24, hw->info.freq, 4);
159: le_store (hdr + 28, hw->info.freq << (bits16 + stereo), 4);
1.1 root 160: le_store (hdr + 32, 1 << (bits16 + stereo), 2);
161:
1.1.1.4 root 162: wav->f = qemu_fopen (conf.wav_path, "wb");
1.1 root 163: if (!wav->f) {
1.1.1.2 root 164: dolog ("Failed to open wave file `%s'\nReason: %s\n",
1.1 root 165: conf.wav_path, strerror (errno));
166: qemu_free (wav->pcm_buf);
167: wav->pcm_buf = NULL;
168: return -1;
169: }
170:
171: qemu_put_buffer (wav->f, hdr, sizeof (hdr));
172: return 0;
173: }
174:
1.1.1.2 root 175: static void wav_fini_out (HWVoiceOut *hw)
1.1 root 176: {
1.1.1.2 root 177: WAVVoiceOut *wav = (WAVVoiceOut *) hw;
1.1 root 178: uint8_t rlen[4];
179: uint8_t dlen[4];
1.1.1.2 root 180: uint32_t datalen = wav->total_samples << hw->info.shift;
181: uint32_t rifflen = datalen + 36;
1.1 root 182:
1.1.1.2 root 183: if (!wav->f) {
1.1 root 184: return;
1.1.1.2 root 185: }
1.1 root 186:
187: le_store (rlen, rifflen, 4);
188: le_store (dlen, datalen, 4);
189:
190: qemu_fseek (wav->f, 4, SEEK_SET);
191: qemu_put_buffer (wav->f, rlen, 4);
192:
193: qemu_fseek (wav->f, 32, SEEK_CUR);
194: qemu_put_buffer (wav->f, dlen, 4);
195:
1.1.1.4 root 196: qemu_fclose (wav->f);
1.1 root 197: wav->f = NULL;
198:
199: qemu_free (wav->pcm_buf);
200: wav->pcm_buf = NULL;
201: }
202:
1.1.1.2 root 203: static int wav_ctl_out (HWVoiceOut *hw, int cmd, ...)
1.1 root 204: {
205: (void) hw;
206: (void) cmd;
207: return 0;
208: }
209:
210: static void *wav_audio_init (void)
211: {
212: return &conf;
213: }
214:
215: static void wav_audio_fini (void *opaque)
216: {
1.1.1.2 root 217: (void) opaque;
1.1 root 218: ldebug ("wav_fini");
219: }
220:
1.1.1.2 root 221: struct audio_option wav_options[] = {
222: {"FREQUENCY", AUD_OPT_INT, &conf.settings.freq,
223: "Frequency", NULL, 0},
224:
225: {"FORMAT", AUD_OPT_FMT, &conf.settings.fmt,
226: "Format", NULL, 0},
227:
228: {"DAC_FIXED_CHANNELS", AUD_OPT_INT, &conf.settings.nchannels,
229: "Number of channels (1 - mono, 2 - stereo)", NULL, 0},
230:
231: {"PATH", AUD_OPT_STR, &conf.wav_path,
232: "Path to wave file", NULL, 0},
233: {NULL, 0, NULL, NULL, NULL, 0}
234: };
235:
236: struct audio_pcm_ops wav_pcm_ops = {
237: wav_init_out,
238: wav_fini_out,
239: wav_run_out,
240: wav_write_out,
241: wav_ctl_out,
242:
243: NULL,
244: NULL,
245: NULL,
246: NULL,
247: NULL
1.1 root 248: };
249:
1.1.1.2 root 250: struct audio_driver wav_audio_driver = {
251: INIT_FIELD (name = ) "wav",
252: INIT_FIELD (descr = )
253: "WAV renderer http://wikipedia.org/wiki/WAV",
254: INIT_FIELD (options = ) wav_options,
255: INIT_FIELD (init = ) wav_audio_init,
256: INIT_FIELD (fini = ) wav_audio_fini,
257: INIT_FIELD (pcm_ops = ) &wav_pcm_ops,
258: INIT_FIELD (can_be_default = ) 0,
259: INIT_FIELD (max_voices_out = ) 1,
260: INIT_FIELD (max_voices_in = ) 0,
261: INIT_FIELD (voice_size_out = ) sizeof (WAVVoiceOut),
262: INIT_FIELD (voice_size_in = ) 0
1.1 root 263: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.