Alc/wave.c

   1 /**
   2  * OpenAL cross platform audio library
   3  * Copyright (C) 1999-2007 by authors.
   4  * This library is free software; you can redistribute it and/or
   5  *  modify it under the terms of the GNU Library General Public
   6  *  License as published by the Free Software Foundation; either
   7  *  version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  *  Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  *  License along with this library; if not, write to the
  16  *  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17  *  Boston, MA  02111-1307, USA.
  18  * Or go to http://www.gnu.org/copyleft/lgpl.html
  19  */
  20
  21 #include "config.h"
  22
  23 #include <stdlib.h>
  24 #include <stdio.h>
  25 #include <memory.h>
  26 #include "alMain.h"
  27 #include "AL/al.h"
  28 #include "AL/alc.h"
  29
  30
  31 typedef struct {
  32     FILE *f;
  33     long DataStart;
  34
  35     ALvoid *buffer;
  36     ALuint size;
  37
  38     volatile int killNow;
  39     ALvoid *thread;
  40 } wave_data;
  41
  42
  43 static const ALCchar waveDevice[] = "Wave File Writer";
  44
  45 static const ALubyte SUBTYPE_PCM[] = {
  46     0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x80, 0x00, 0x00, 0xaa,
  47     0x00, 0x38, 0x9b, 0x71
  48 };
  49 static const ALubyte SUBTYPE_FLOAT[] = {
  50     0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x80, 0x00, 0x00, 0xaa,
  51     0x00, 0x38, 0x9b, 0x71
  52 };
  53
  54 static const ALuint channel_masks[] = {
  55     0, /* invalid */
  56     0x4, /* Mono */
  57     0x1 | 0x2, /* Stereo */
  58     0, /* 3 channel */
  59     0x1 | 0x2 | 0x10 | 0x20, /* Quad */
  60     0, /* 5 channel */
  61     0x1 | 0x2 | 0x4 | 0x8 | 0x10 | 0x20, /* 5.1 */
  62     0x1 | 0x2 | 0x4 | 0x8 | 0x100 | 0x200 | 0x400, /* 6.1 */
  63     0x1 | 0x2 | 0x4 | 0x8 | 0x10 | 0x20 | 0x200 | 0x400, /* 7.1 */
  64 };
  65
  66 static ALuint WaveProc(ALvoid *ptr)
  67 {
  68     ALCdevice *pDevice = (ALCdevice*)ptr;
  69     wave_data *data = (wave_data*)pDevice->ExtraData;
  70     ALuint frameSize;
  71     ALuint now, last;
  72     size_t fs;
  73     ALuint avail;
  74     union {
  75         short s;
  76         char b[sizeof(short)];
  77     } uSB;
  78
  79     uSB.s = 1;
  80     frameSize = aluBytesFromFormat(pDevice->Format) *
  81                 aluChannelsFromFormat(pDevice->Format);
  82
  83     last = timeGetTime()<<8;
  84     while(!data->killNow && pDevice->Connected)
  85     {
  86         now = timeGetTime()<<8;
  87
  88         avail = (ALuint64)(now-last) * pDevice->Frequency / (1000<<8);
  89         if(avail < pDevice->UpdateSize)
  90         {
  91             Sleep(1);
  92             continue;
  93         }
  94
  95         while(avail >= pDevice->UpdateSize)
  96         {
  97             aluMixData(pDevice, data->buffer, pDevice->UpdateSize);
  98
  99             if(uSB.b[0] != 1)
 100             {
 101                 ALubyte *bytes = data->buffer;
 102                 ALuint i;
 103
 104                 if(aluBytesFromFormat(pDevice->Format) == 1)
 105                 {
 106                     for(i = 0;i < data->size;i++)
 107                         fputc(bytes[i], data->f);
 108                 }
 109                 else if(aluBytesFromFormat(pDevice->Format) == 2)
 110                 {
 111                     for(i = 0;i < data->size;i++)
 112                         fputc(bytes[i^1], data->f);
 113                 }
 114                 else if(aluBytesFromFormat(pDevice->Format) == 4)
 115                 {
 116                     for(i = 0;i < data->size;i++)
 117                         fputc(bytes[i^3], data->f);
 118                 }
 119             }
 120             else
 121                 fs = fwrite(data->buffer, frameSize, pDevice->UpdateSize,
 122                             data->f);
 123             if(ferror(data->f))
 124             {
 125                 AL_PRINT("Error writing to file\n");
 126                 aluHandleDisconnect(pDevice);
 127                 break;
 128             }
 129
 130             avail -= pDevice->UpdateSize;
 131             last += (ALuint64)pDevice->UpdateSize * (1000<<8) / pDevice->Frequency;
 132         }
 133     }
 134
 135     return 0;
 136 }
 137
 138 static ALCboolean wave_open_playback(ALCdevice *device, const ALCchar *deviceName)
 139 {
 140     wave_data *data;
 141     const char *fname;
 142
 143     fname = GetConfigValue("wave", "file", "");
 144     if(!fname[0])
 145         return ALC_FALSE;
 146
 147     if(!deviceName)
 148         deviceName = waveDevice;
 149     else if(strcmp(deviceName, waveDevice) != 0)
 150         return ALC_FALSE;
 151
 152     data = (wave_data*)calloc(1, sizeof(wave_data));
 153
 154     data->f = fopen(fname, "wb");
 155     if(!data->f)
 156     {
 157         free(data);
 158         AL_PRINT("Could not open file '%s': %s\n", fname, strerror(errno));
 159         return ALC_FALSE;
 160     }
 161
 162     device->szDeviceName = strdup(deviceName);
 163     device->ExtraData = data;
 164     return ALC_TRUE;
 165 }
 166
 167 static void wave_close_playback(ALCdevice *device)
 168 {
 169     wave_data *data = (wave_data*)device->ExtraData;
 170
 171     fclose(data->f);
 172     free(data);
 173     device->ExtraData = NULL;
 174 }
 175
 176 static ALCboolean wave_reset_playback(ALCdevice *device)
 177 {
 178     wave_data *data = (wave_data*)device->ExtraData;
 179     ALuint channels, bits, i;
 180     size_t val;
 181
 182     fseek(data->f, 0, SEEK_SET);
 183     clearerr(data->f);
 184
 185     bits = aluBytesFromFormat(device->Format) * 8;
 186     channels = aluChannelsFromFormat(device->Format);
 187
 188     /* 7.1 max */
 189     if(channels > 8)
 190     {
 191         if(bits == 8)
 192             device->Format = AL_FORMAT_71CHN8;
 193         else if(bits == 16)
 194             device->Format = AL_FORMAT_71CHN16;
 195         else
 196         {
 197             device->Format = AL_FORMAT_71CHN32;
 198             bits = 32;
 199         }
 200         channels = 8;
 201     }
 202
 203     fprintf(data->f, "RIFF");
 204     fputc(0xFF, data->f); // 'RIFF' header len; filled in at close
 205     fputc(0xFF, data->f);
 206     fputc(0xFF, data->f);
 207     fputc(0xFF, data->f);
 208
 209     fprintf(data->f, "WAVE");
 210
 211     fprintf(data->f, "fmt ");
 212     fputc(40, data->f); // 'fmt ' header len; 40 bytes for EXTENSIBLE
 213     fputc(0, data->f);
 214     fputc(0, data->f);
 215     fputc(0, data->f);
 216     // 16-bit val, format type id (extensible: 0xFFFE)
 217     fputc(0xFE, data->f);
 218     fputc(0xFF, data->f);
 219     // 16-bit val, channel count
 220     fputc(channels&0xff, data->f);
 221     fputc((channels>>8)&0xff, data->f);
 222     // 32-bit val, frequency
 223     fputc(device->Frequency&0xff, data->f);
 224     fputc((device->Frequency>>8)&0xff, data->f);
 225     fputc((device->Frequency>>16)&0xff, data->f);
 226     fputc((device->Frequency>>24)&0xff, data->f);
 227     // 32-bit val, bytes per second
 228     i = device->Frequency * channels * bits / 8;
 229     fputc(i&0xff, data->f);
 230     fputc((i>>8)&0xff, data->f);
 231     fputc((i>>16)&0xff, data->f);
 232     fputc((i>>24)&0xff, data->f);
 233     // 16-bit val, frame size
 234     i = channels * bits / 8;
 235     fputc(i&0xff, data->f);
 236     fputc((i>>8)&0xff, data->f);
 237     // 16-bit val, bits per sample
 238     fputc(bits&0xff, data->f);
 239     fputc((bits>>8)&0xff, data->f);
 240     // 16-bit val, extra byte count
 241     fputc(22, data->f);
 242     fputc(0, data->f);
 243     // 16-bit val, valid bits per sample
 244     fputc(bits&0xff, data->f);
 245     fputc((bits>>8)&0xff, data->f);
 246     // 32-bit val, channel mask
 247     i = channel_masks[channels];
 248     fputc(i&0xff, data->f);
 249     fputc((i>>8)&0xff, data->f);
 250     fputc((i>>16)&0xff, data->f);
 251     fputc((i>>24)&0xff, data->f);
 252     // 16 byte GUID, sub-type format
 253     val = fwrite(((bits==32) ? SUBTYPE_FLOAT : SUBTYPE_PCM), 1, 16, data->f);
 254
 255     fprintf(data->f, "data");
 256     fputc(0xFF, data->f); // 'data' header len; filled in at close
 257     fputc(0xFF, data->f);
 258     fputc(0xFF, data->f);
 259     fputc(0xFF, data->f);
 260
 261     if(ferror(data->f))
 262     {
 263         AL_PRINT("Error writing header: %s\n", strerror(errno));
 264         return ALC_FALSE;
 265     }
 266
 267     data->DataStart = ftell(data->f);
 268
 269     data->size = device->UpdateSize * channels * bits / 8;
 270     data->buffer = malloc(data->size);
 271     if(!data->buffer)
 272     {
 273         AL_PRINT("buffer malloc failed\n");
 274         return ALC_FALSE;
 275     }
 276
 277     SetDefaultWFXChannelOrder(device);
 278
 279     data->thread = StartThread(WaveProc, device);
 280     if(data->thread == NULL)
 281     {
 282         free(data->buffer);
 283         data->buffer = NULL;
 284         return ALC_FALSE;
 285     }
 286
 287     return ALC_TRUE;
 288 }
 289
 290 static void wave_stop_playback(ALCdevice *device)
 291 {
 292     wave_data *data = (wave_data*)device->ExtraData;
 293     ALuint dataLen;
 294     long size;
 295
 296     if(!data->thread)
 297         return;
 298
 299     data->killNow = 1;
 300     StopThread(data->thread);
 301     data->thread = NULL;
 302
 303     data->killNow = 0;
 304
 305     free(data->buffer);
 306     data->buffer = NULL;
 307
 308     size = ftell(data->f);
 309     if(size > 0)
 310     {
 311         dataLen = size - data->DataStart;
 312         if(fseek(data->f, data->DataStart-4, SEEK_SET) == 0)
 313         {
 314             fputc(dataLen&0xff, data->f); // 'data' header len
 315             fputc((dataLen>>8)&0xff, data->f);
 316             fputc((dataLen>>16)&0xff, data->f);
 317             fputc((dataLen>>24)&0xff, data->f);
 318         }
 319         if(fseek(data->f, 4, SEEK_SET) == 0)
 320         {
 321             size -= 8;
 322             fputc(size&0xff, data->f); // 'WAVE' header len
 323             fputc((size>>8)&0xff, data->f);
 324             fputc((size>>16)&0xff, data->f);
 325             fputc((size>>24)&0xff, data->f);
 326         }
 327     }
 328 }
 329
 330
 331 static ALCboolean wave_open_capture(ALCdevice *pDevice, const ALCchar *deviceName)
 332 {
 333     (void)pDevice;
 334     (void)deviceName;
 335     return ALC_FALSE;
 336 }
 337
 338
 339 BackendFuncs wave_funcs = {
 340     wave_open_playback,
 341     wave_close_playback,
 342     wave_reset_playback,
 343     wave_stop_playback,
 344     wave_open_capture,
 345     NULL,
 346     NULL,
 347     NULL,
 348     NULL,
 349     NULL
 350 };
 351
 352 void alc_wave_init(BackendFuncs *func_list)
 353 {
 354     *func_list = wave_funcs;
 355 }
 356
 357 void alc_wave_deinit(void)
 358 {
 359 }
 360
 361 void alc_wave_probe(int type)
 362 {
 363     if(!ConfigValueExists("wave", "file"))
 364         return;
 365
 366     if(type == DEVICE_PROBE)
 367         AppendDeviceList(waveDevice);
 368     else if(type == ALL_DEVICE_PROBE)
 369         AppendAllDeviceList(waveDevice);
 370 }