examples/alrecord.c

   1 /*
   2  * OpenAL Recording Example
   3  *
   4  * Copyright (c) 2017 by Chris Robinson <chris.kcat@gmail.com>
   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 THE
  19  * 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 /* This file contains a relatively simple recorder. */
  26
  27 #include <string.h>
  28 #include <stdlib.h>
  29 #include <stdio.h>
  30 #include <math.h>
  31
  32 #include "AL/al.h"
  33 #include "AL/alc.h"
  34 #include "AL/alext.h"
  35
  36 #include "common/alhelpers.h"
  37
  38
  39 #if defined(_WIN64)
  40 #define SZFMT "%I64u"
  41 #elif defined(_WIN32)
  42 #define SZFMT "%u"
  43 #else
  44 #define SZFMT "%zu"
  45 #endif
  46
  47
  48 static void fwrite16le(ALushort val, FILE *f)
  49 {
  50     ALubyte data[2] = { val&0xff, (val>>8)&0xff };
  51     fwrite(data, 1, 2, f);
  52 }
  53
  54 static void fwrite32le(ALuint val, FILE *f)
  55 {
  56     ALubyte data[4] = { val&0xff, (val>>8)&0xff, (val>>16)&0xff, (val>>24)&0xff };
  57     fwrite(data, 1, 4, f);
  58 }
  59
  60
  61 typedef struct Recorder {
  62     ALCdevice *mDevice;
  63
  64     FILE *mFile;
  65     long mDataSizeOffset;
  66     size_t mDataSize;
  67     float mRecTime;
  68
  69     int mChannels;
  70     int mBits;
  71     int mSampleRate;
  72     size_t mFrameSize;
  73     ALbyte *mBuffer;
  74     ALsizei mBufferSize;
  75 } Recorder;
  76
  77 int main(int argc, char **argv)
  78 {
  79     static const char optlist[] =
  80 "    --channels/-c <channels>  Set channel count (1 or 2)\n"
  81 "    --bits/-b <bits>          Set channel count (8, 16, or 32)\n"
  82 "    --rate/-r <rate>          Set sample rate (8000 to 96000)\n"
  83 "    --time/-t <time>          Time in seconds to record (1 to 10)\n"
  84 "    --outfile/-o <filename>   Output filename (default: record.wav)";
  85     const char *fname = "record.wav";
  86     const char *devname = NULL;
  87     const char *progname;
  88     Recorder recorder;
  89     long total_size;
  90     ALenum format;
  91     ALCenum err;
  92
  93     progname = argv[0];
  94     if(argc < 2)
  95     {
  96         fprintf(stderr, "Record from a device to a wav file.\n\n"
  97                 "Usage: %s [-device <name>] [options...]\n\n"
  98                 "Available options:\n%s\n", progname, optlist);
  99         return 0;
 100     }
 101
 102     recorder.mDevice = NULL;
 103     recorder.mFile = NULL;
 104     recorder.mDataSizeOffset = 0;
 105     recorder.mDataSize = 0;
 106     recorder.mRecTime = 4.0f;
 107     recorder.mChannels = 1;
 108     recorder.mBits = 16;
 109     recorder.mSampleRate = 44100;
 110     recorder.mFrameSize = recorder.mChannels * recorder.mBits / 8;
 111     recorder.mBuffer = NULL;
 112     recorder.mBufferSize = 0;
 113
 114     argv++; argc--;
 115     if(argc > 1 && strcmp(argv[0], "-device") == 0)
 116     {
 117         devname = argv[1];
 118         argv += 2;
 119         argc -= 2;
 120     }
 121
 122     while(argc > 0)
 123     {
 124         char *end;
 125         if(strcmp(argv[0], "--") == 0)
 126             break;
 127         else if(strcmp(argv[0], "--channels") == 0 || strcmp(argv[0], "-c") == 0)
 128         {
 129             if(!(argc > 1))
 130             {
 131                 fprintf(stderr, "Missing argument for option: %s\n", argv[0]);
 132                 return 1;
 133             }
 134
 135             recorder.mChannels = strtol(argv[1], &end, 0);
 136             if((recorder.mChannels != 1 && recorder.mChannels != 2) || (end && *end != '\0'))
 137             {
 138                 fprintf(stderr, "Invalid channels: %s\n", argv[1]);
 139                 return 1;
 140             }
 141             argv += 2;
 142             argc -= 2;
 143         }
 144         else if(strcmp(argv[0], "--bits") == 0 || strcmp(argv[0], "-b") == 0)
 145         {
 146             if(!(argc > 1))
 147             {
 148                 fprintf(stderr, "Missing argument for option: %s\n", argv[0]);
 149                 return 1;
 150             }
 151
 152             recorder.mBits = strtol(argv[1], &end, 0);
 153             if((recorder.mBits != 8 && recorder.mBits != 16 && recorder.mBits != 32) ||
 154                (end && *end != '\0'))
 155             {
 156                 fprintf(stderr, "Invalid bit count: %s\n", argv[1]);
 157                 return 1;
 158             }
 159             argv += 2;
 160             argc -= 2;
 161         }
 162         else if(strcmp(argv[0], "--rate") == 0 || strcmp(argv[0], "-r") == 0)
 163         {
 164             if(!(argc > 1))
 165             {
 166                 fprintf(stderr, "Missing argument for option: %s\n", argv[0]);
 167                 return 1;
 168             }
 169
 170             recorder.mSampleRate = strtol(argv[1], &end, 0);
 171             if(!(recorder.mSampleRate >= 8000 && recorder.mSampleRate <= 96000) || (end && *end != '\0'))
 172             {
 173                 fprintf(stderr, "Invalid sample rate: %s\n", argv[1]);
 174                 return 1;
 175             }
 176             argv += 2;
 177             argc -= 2;
 178         }
 179         else if(strcmp(argv[0], "--time") == 0 || strcmp(argv[0], "-t") == 0)
 180         {
 181             if(!(argc > 1))
 182             {
 183                 fprintf(stderr, "Missing argument for option: %s\n", argv[0]);
 184                 return 1;
 185             }
 186
 187             recorder.mRecTime = strtod(argv[1], &end);
 188             if(!(recorder.mRecTime >= 1.0f && recorder.mRecTime <= 10.0f) || (end && *end != '\0'))
 189             {
 190                 fprintf(stderr, "Invalid record time: %s\n", argv[1]);
 191                 return 1;
 192             }
 193             argv += 2;
 194             argc -= 2;
 195         }
 196         else if(strcmp(argv[0], "--outfile") == 0 || strcmp(argv[0], "-o") == 0)
 197         {
 198             if(!(argc > 1))
 199             {
 200                 fprintf(stderr, "Missing argument for option: %s\n", argv[0]);
 201                 return 1;
 202             }
 203
 204             fname = argv[1];
 205             argv += 2;
 206             argc -= 2;
 207         }
 208         else if(strcmp(argv[0], "--help") == 0 || strcmp(argv[0], "-h") == 0)
 209         {
 210             fprintf(stderr, "Record from a device to a wav file.\n\n"
 211                     "Usage: %s [-device <name>] [options...]\n\n"
 212                     "Available options:\n%s\n", progname, optlist);
 213             return 0;
 214         }
 215         else
 216         {
 217             fprintf(stderr, "Invalid option '%s'.\n\n"
 218                     "Usage: %s [-device <name>] [options...]\n\n"
 219                     "Available options:\n%s\n", argv[0], progname, optlist);
 220             return 0;
 221         }
 222     }
 223
 224     recorder.mFrameSize = recorder.mChannels * recorder.mBits / 8;
 225
 226     format = AL_NONE;
 227     if(recorder.mChannels == 1)
 228     {
 229         if(recorder.mBits == 8)
 230             format = AL_FORMAT_MONO8;
 231         else if(recorder.mBits == 16)
 232             format = AL_FORMAT_MONO16;
 233         else if(recorder.mBits == 32)
 234             format = AL_FORMAT_MONO_FLOAT32;
 235     }
 236     else if(recorder.mChannels == 2)
 237     {
 238         if(recorder.mBits == 8)
 239             format = AL_FORMAT_STEREO8;
 240         else if(recorder.mBits == 16)
 241             format = AL_FORMAT_STEREO16;
 242         else if(recorder.mBits == 32)
 243             format = AL_FORMAT_STEREO_FLOAT32;
 244     }
 245
 246     recorder.mDevice = alcCaptureOpenDevice(devname, recorder.mSampleRate, format, 32768);
 247     if(!recorder.mDevice)
 248     {
 249         fprintf(stderr, "Failed to open %s, %s %d-bit, %s, %dhz (%d samples)\n",
 250             devname ? devname : "default device",
 251             (recorder.mBits == 32) ? "Float" :
 252             (recorder.mBits !=  8) ? "Signed" : "Unsigned", recorder.mBits,
 253             (recorder.mChannels == 1) ? "Mono" : "Stereo", recorder.mSampleRate,
 254             32768
 255         );
 256         return 1;
 257     }
 258     fprintf(stderr, "Opened \"%s\"\n", alcGetString(
 259         recorder.mDevice, ALC_CAPTURE_DEVICE_SPECIFIER
 260     ));
 261
 262     recorder.mFile = fopen(fname, "wb");
 263     if(!recorder.mFile)
 264     {
 265         fprintf(stderr, "Failed to open '%s' for writing\n", fname);
 266         alcCaptureCloseDevice(recorder.mDevice);
 267         return 1;
 268     }
 269
 270     fputs("RIFF", recorder.mFile);
 271     fwrite32le(0xFFFFFFFF, recorder.mFile); // 'RIFF' header len; filled in at close
 272
 273     fputs("WAVE", recorder.mFile);
 274
 275     fputs("fmt ", recorder.mFile);
 276     fwrite32le(18, recorder.mFile); // 'fmt ' header len
 277
 278     // 16-bit val, format type id (1 = integer PCM, 3 = float PCM)
 279     fwrite16le((recorder.mBits == 32) ? 0x0003 : 0x0001, recorder.mFile);
 280     // 16-bit val, channel count
 281     fwrite16le(recorder.mChannels, recorder.mFile);
 282     // 32-bit val, frequency
 283     fwrite32le(recorder.mSampleRate, recorder.mFile);
 284     // 32-bit val, bytes per second
 285     fwrite32le(recorder.mSampleRate * recorder.mFrameSize, recorder.mFile);
 286     // 16-bit val, frame size
 287     fwrite16le(recorder.mFrameSize, recorder.mFile);
 288     // 16-bit val, bits per sample
 289     fwrite16le(recorder.mBits, recorder.mFile);
 290     // 16-bit val, extra byte count
 291     fwrite16le(0, recorder.mFile);
 292
 293     fputs("data", recorder.mFile);
 294     fwrite32le(0xFFFFFFFF, recorder.mFile); // 'data' header len; filled in at close
 295
 296     recorder.mDataSizeOffset = ftell(recorder.mFile) - 4;
 297     if(ferror(recorder.mFile) || recorder.mDataSizeOffset < 0)
 298     {
 299         fprintf(stderr, "Error writing header: %s\n", strerror(errno));
 300         fclose(recorder.mFile);
 301         alcCaptureCloseDevice(recorder.mDevice);
 302         return 1;
 303     }
 304
 305     fprintf(stderr, "Recording '%s', %s %d-bit, %s, %dhz (%g second%s)\n", fname,
 306         (recorder.mBits == 32) ? "Float" :
 307         (recorder.mBits !=  8) ? "Signed" : "Unsigned", recorder.mBits,
 308         (recorder.mChannels == 1) ? "Mono" : "Stereo", recorder.mSampleRate,
 309         recorder.mRecTime, (recorder.mRecTime != 1.0f) ? "s" : ""
 310     );
 311
 312     alcCaptureStart(recorder.mDevice);
 313     while((double)recorder.mDataSize/(double)recorder.mSampleRate < recorder.mRecTime &&
 314           (err=alcGetError(recorder.mDevice)) == ALC_NO_ERROR && !ferror(recorder.mFile))
 315     {
 316         ALCint count = 0;
 317         fprintf(stderr, "\rCaptured "SZFMT" samples", recorder.mDataSize);
 318         alcGetIntegerv(recorder.mDevice, ALC_CAPTURE_SAMPLES, 1, &count);
 319         if(count < 1)
 320         {
 321             al_nssleep(10000000);
 322             continue;
 323         }
 324         if(count > recorder.mBufferSize)
 325         {
 326             ALbyte *data = calloc(recorder.mFrameSize, count);
 327             free(recorder.mBuffer);
 328             recorder.mBuffer = data;
 329             recorder.mBufferSize = count;
 330         }
 331         alcCaptureSamples(recorder.mDevice, recorder.mBuffer, count);
 332 #if defined(__BYTE_ORDER) && __BYTE_ORDER == __BIG_ENDIAN
 333         /* Byteswap multibyte samples on big-endian systems (wav needs little-
 334          * endian, and OpenAL gives the system's native-endian).
 335          */
 336         if(recorder.mBits == 16)
 337         {
 338             ALCint i;
 339             for(i = 0;i < count*recorder.mChannels;i++)
 340             {
 341                 ALbyte b = recorder.mBuffer[i*2 + 0];
 342                 recorder.mBuffer[i*2 + 0] = recorder.mBuffer[i*2 + 1];
 343                 recorder.mBuffer[i*2 + 1] = b;
 344             }
 345         }
 346         else if(recorder.mBits == 32)
 347         {
 348             ALCint i;
 349             for(i = 0;i < count*recorder.mChannels;i++)
 350             {
 351                 ALbyte b0 = recorder.mBuffer[i*4 + 0];
 352                 ALbyte b1 = recorder.mBuffer[i*4 + 1];
 353                 recorder.mBuffer[i*4 + 0] = recorder.mBuffer[i*4 + 3];
 354                 recorder.mBuffer[i*4 + 1] = recorder.mBuffer[i*4 + 2];
 355                 recorder.mBuffer[i*4 + 2] = b1;
 356                 recorder.mBuffer[i*4 + 3] = b0;
 357             }
 358         }
 359 #endif
 360         recorder.mDataSize += fwrite(recorder.mBuffer, recorder.mFrameSize, count, recorder.mFile);
 361     }
 362     alcCaptureStop(recorder.mDevice);
 363     fprintf(stderr, "\rCaptured "SZFMT" samples\n", recorder.mDataSize);
 364     if(err != ALC_NO_ERROR)
 365         fprintf(stderr, "Got device error 0x%04x: %s\n", err, alcGetString(recorder.mDevice, err));
 366
 367     alcCaptureCloseDevice(recorder.mDevice);
 368     recorder.mDevice = NULL;
 369
 370     free(recorder.mBuffer);
 371     recorder.mBuffer = NULL;
 372     recorder.mBufferSize = 0;
 373
 374     total_size = ftell(recorder.mFile);
 375     if(fseek(recorder.mFile, recorder.mDataSizeOffset, SEEK_SET) == 0)
 376     {
 377         fwrite32le(recorder.mDataSize*recorder.mFrameSize, recorder.mFile);
 378         if(fseek(recorder.mFile, 4, SEEK_SET) == 0)
 379             fwrite32le(total_size - 8, recorder.mFile);
 380     }
 381
 382     fclose(recorder.mFile);
 383     recorder.mFile = NULL;
 384
 385     return 0;
 386 }