audio/wavaudio.c

   1 /*
   2  * QEMU WAV audio driver
   3  *
   4  * Copyright (c) 2004-2005 Vassili Karpov (malc)
   5  *
   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  */
  24
  25 #include "qemu/osdep.h"
  26 #include "qemu/host-utils.h"
  27 #include "qemu/module.h"
  28 #include "qemu/timer.h"
  29 #include "qapi/opts-visitor.h"
  30 #include "audio.h"
  31
  32 #define AUDIO_CAP "wav"
  33 #include "audio_int.h"
  34
  35 typedef struct WAVVoiceOut {
  36     HWVoiceOut hw;
  37     FILE *f;
  38     int64_t old_ticks;
  39     int total_samples;
  40 } WAVVoiceOut;
  41
  42 static size_t wav_write_out(HWVoiceOut *hw, void *buf, size_t len)
  43 {
  44     WAVVoiceOut *wav = (WAVVoiceOut *) hw;
  45     int64_t now = qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL);
  46     int64_t ticks = now - wav->old_ticks;
  47     int64_t bytes =
  48         muldiv64(ticks, hw->info.bytes_per_second, NANOSECONDS_PER_SECOND);
  49
  50     bytes = MIN(bytes, len);
  51     bytes = bytes >> hw->info.shift << hw->info.shift;
  52     wav->old_ticks = now;
  53
  54     if (bytes && fwrite(buf, bytes, 1, wav->f) != 1) {
  55         dolog("wav_write_out: fwrite of %" PRId64 " bytes failed\nReason: %s\n",
  56               bytes, strerror(errno));
  57     }
  58
  59     wav->total_samples += bytes >> hw->info.shift;
  60     return bytes;
  61 }
  62
  63 /* VICE code: Store number as little endian. */
  64 static void le_store (uint8_t *buf, uint32_t val, int len)
  65 {
  66     int i;
  67     for (i = 0; i < len; i++) {
  68         buf[i] = (uint8_t) (val & 0xff);
  69         val >>= 8;
  70     }
  71 }
  72
  73 static int wav_init_out(HWVoiceOut *hw, struct audsettings *as,
  74                         void *drv_opaque)
  75 {
  76     WAVVoiceOut *wav = (WAVVoiceOut *) hw;
  77     int bits16 = 0, stereo = 0;
  78     uint8_t hdr[] = {
  79         0x52, 0x49, 0x46, 0x46, 0x00, 0x00, 0x00, 0x00, 0x57, 0x41, 0x56,
  80         0x45, 0x66, 0x6d, 0x74, 0x20, 0x10, 0x00, 0x00, 0x00, 0x01, 0x00,
  81         0x02, 0x00, 0x44, 0xac, 0x00, 0x00, 0x10, 0xb1, 0x02, 0x00, 0x04,
  82         0x00, 0x10, 0x00, 0x64, 0x61, 0x74, 0x61, 0x00, 0x00, 0x00, 0x00
  83     };
  84     Audiodev *dev = drv_opaque;
  85     AudiodevWavOptions *wopts = &dev->u.wav;
  86     struct audsettings wav_as = audiodev_to_audsettings(dev->u.wav.out);
  87     const char *wav_path = wopts->has_path ? wopts->path : "qemu.wav";
  88
  89     stereo = wav_as.nchannels == 2;
  90     switch (wav_as.fmt) {
  91     case AUDIO_FORMAT_S8:
  92     case AUDIO_FORMAT_U8:
  93         bits16 = 0;
  94         break;
  95
  96     case AUDIO_FORMAT_S16:
  97     case AUDIO_FORMAT_U16:
  98         bits16 = 1;
  99         break;
 100
 101     case AUDIO_FORMAT_S32:
 102     case AUDIO_FORMAT_U32:
 103         dolog ("WAVE files can not handle 32bit formats\n");
 104         return -1;
 105
 106     default:
 107         abort();
 108     }
 109
 110     hdr[34] = bits16 ? 0x10 : 0x08;
 111
 112     wav_as.endianness = 0;
 113     audio_pcm_init_info (&hw->info, &wav_as);
 114
 115     hw->samples = 1024;
 116     le_store (hdr + 22, hw->info.nchannels, 2);
 117     le_store (hdr + 24, hw->info.freq, 4);
 118     le_store (hdr + 28, hw->info.freq << (bits16 + stereo), 4);
 119     le_store (hdr + 32, 1 << (bits16 + stereo), 2);
 120
 121     wav->f = fopen(wav_path, "wb");
 122     if (!wav->f) {
 123         dolog ("Failed to open wave file `%s'\nReason: %s\n",
 124                wav_path, strerror(errno));
 125         return -1;
 126     }
 127
 128     if (fwrite (hdr, sizeof (hdr), 1, wav->f) != 1) {
 129         dolog ("wav_init_out: failed to write header\nReason: %s\n",
 130                strerror(errno));
 131         return -1;
 132     }
 133     return 0;
 134 }
 135
 136 static void wav_fini_out (HWVoiceOut *hw)
 137 {
 138     WAVVoiceOut *wav = (WAVVoiceOut *) hw;
 139     uint8_t rlen[4];
 140     uint8_t dlen[4];
 141     uint32_t datalen = wav->total_samples << hw->info.shift;
 142     uint32_t rifflen = datalen + 36;
 143
 144     if (!wav->f) {
 145         return;
 146     }
 147
 148     le_store (rlen, rifflen, 4);
 149     le_store (dlen, datalen, 4);
 150
 151     if (fseek (wav->f, 4, SEEK_SET)) {
 152         dolog ("wav_fini_out: fseek to rlen failed\nReason: %s\n",
 153                strerror(errno));
 154         goto doclose;
 155     }
 156     if (fwrite (rlen, 4, 1, wav->f) != 1) {
 157         dolog ("wav_fini_out: failed to write rlen\nReason: %s\n",
 158                strerror (errno));
 159         goto doclose;
 160     }
 161     if (fseek (wav->f, 32, SEEK_CUR)) {
 162         dolog ("wav_fini_out: fseek to dlen failed\nReason: %s\n",
 163                strerror (errno));
 164         goto doclose;
 165     }
 166     if (fwrite (dlen, 4, 1, wav->f) != 1) {
 167         dolog ("wav_fini_out: failed to write dlen\nReaons: %s\n",
 168                strerror (errno));
 169         goto doclose;
 170     }
 171
 172  doclose:
 173     if (fclose (wav->f))  {
 174         dolog ("wav_fini_out: fclose %p failed\nReason: %s\n",
 175                wav->f, strerror (errno));
 176     }
 177     wav->f = NULL;
 178 }
 179
 180 static int wav_ctl_out (HWVoiceOut *hw, int cmd, ...)
 181 {
 182     (void) hw;
 183     (void) cmd;
 184     return 0;
 185 }
 186
 187 static void *wav_audio_init(Audiodev *dev)
 188 {
 189     assert(dev->driver == AUDIODEV_DRIVER_WAV);
 190     return dev;
 191 }
 192
 193 static void wav_audio_fini (void *opaque)
 194 {
 195     ldebug ("wav_fini");
 196 }
 197
 198 static struct audio_pcm_ops wav_pcm_ops = {
 199     .init_out = wav_init_out,
 200     .fini_out = wav_fini_out,
 201     .write    = wav_write_out,
 202     .ctl_out  = wav_ctl_out,
 203 };
 204
 205 static struct audio_driver wav_audio_driver = {
 206     .name           = "wav",
 207     .descr          = "WAV renderer http://wikipedia.org/wiki/WAV",
 208     .init           = wav_audio_init,
 209     .fini           = wav_audio_fini,
 210     .pcm_ops        = &wav_pcm_ops,
 211     .can_be_default = 0,
 212     .max_voices_out = 1,
 213     .max_voices_in  = 0,
 214     .voice_size_out = sizeof (WAVVoiceOut),
 215     .voice_size_in  = 0
 216 };
 217
 218 static void register_audio_wav(void)
 219 {
 220     audio_driver_register(&wav_audio_driver);
 221 }
 222 type_init(register_audio_wav);