/*!
 * \file src/Sound.cpp
 * \brief This is the audio manager Implementation
 *
 * \author Mongoose
 * \author xythobuz
 */

#ifdef __APPLE__
#include <OpenAL/al.h>
#else
#include <AL/al.h>
#endif

#include <AL/alut.h>

#include <time.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/time.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include <assert.h>

#include "Sound.h"

Sound::Sound()
{
    mSource[0] = 0;
    mBuffer[0] = 0;
    mNext = 0;
    mInit = false;
}


Sound::~Sound()
{
    if (mInit)
    {
        alutExit();
    }
}


int Sound::init()
{
#ifndef __APPLE__
    int fd;

    fd = open("/dev/dsp", O_RDWR);

    if (fd < 0)
    {
        perror("Sound::Init> Could not open /dev/dsp : ");
        return -1;
    }

    close(fd);
#endif

    ALCdevice *Device = alcOpenDevice("OSS");
    ALCcontext *Context = alcCreateContext(Device, NULL);
    alcMakeContextCurrent(Context);

    if (alutInitWithoutContext(NULL, NULL) == AL_FALSE) {
        printf("Sound::Init> Could not initialize alut (%s)\n", alutGetErrorString(alutGetError()));
        return -2;
    }

    mInit = true;
    printf("Created OpenAL Context\n");

    return 0;
}


int Sound::registeredSources() {
    return mNext;
}


void Sound::listenAt(float pos[3], float angle[3])
{
    assert(mInit == true);
    assert(pos != NULL);
    assert(angle != NULL);

    alListenerfv(AL_POSITION, pos);
    alListenerfv(AL_ORIENTATION, angle);
}


void Sound::sourceAt(int source, float pos[3])
{
    assert(mInit == true);
    assert(source >= 0);
    assert(source < mNext);
    assert(pos != NULL);

    alSourcefv(mSource[source], AL_POSITION, pos);
}


//! \fixme Seperate sourcing and buffering, Mongoose 2002.01.04
int Sound::addFile(const char *filename, int *source, unsigned int flags)
{
    ALsizei size;
    ALfloat freq;
    ALenum format;
    ALvoid *data;

    assert(mInit == true);
    assert(filename != NULL);
    assert(filename[0] != '\0');
    assert(source != NULL);

    *source = -1;

    alGetError();

    alGenBuffers(1, &mBuffer[mNext]);

    if (alGetError() != AL_NO_ERROR)
    {
        fprintf(stderr, "Sound::AddFile> alGenBuffers call failed\n");
        return -1;
    }

    alGetError();

    alGenSources(1, &mSource[mNext]);

    if (alGetError() != AL_NO_ERROR)
    {
        fprintf(stderr, "Sound::AddFile> alGenSources call failed\n");
        return -2;
    }

    // err = alutLoadWAV(filename, &data, &format, &size, &bits, &freq);
    // is deprecated!
    data = alutLoadMemoryFromFile(filename, &format, &size, &freq);

    if (alutGetError() != ALUT_ERROR_NO_ERROR)
    {
        fprintf(stderr, "Could not load %s\n", filename);
        return -3;
    }

    alBufferData(mBuffer[mNext], format, data, size, static_cast<ALsizei>(freq));

    alSourcei(mSource[mNext], AL_BUFFER, mBuffer[mNext]);

    if (flags & SoundFlagsLoop)
    {
        alSourcei(mSource[mNext], AL_LOOPING, 1);
    }

    *source = mNext++;

    return 0;
}

int Sound::addWave(unsigned char *wav, unsigned int length, int *source, unsigned int flags)
{
    ALsizei size;
    ALfloat freq;
    ALenum format;
    ALvoid *data;
    int error = 0;

    assert(mInit == true);
    assert(wav != NULL);
    assert(source != NULL);

    *source = -1;

    data = wav;

    alGetError();

    alGenBuffers(1, &mBuffer[mNext]);

    if (alGetError() != AL_NO_ERROR)
    {
        fprintf(stderr, "Sound::AddWave> alGenBuffers call failed\n");
        return -1;
    }

    alGetError();

    alGenSources(1, &mSource[mNext]);

    if (alGetError() != AL_NO_ERROR)
    {
        fprintf(stderr, "Sound::AddWave> alGenSources call failed\n");
        return -2;
    }

    //AL_FORMAT_WAVE_EXT does not exist on Mac!"
    // alBufferData(mBuffer[mNext], AL_FORMAT_WAVE_EXT, data, size, freq);
    // Idea: Fill Buffer with
    // alutLoadMemoryFromFileImage
    //     (const ALvoid *data, ALsizei length, ALenum *format, ALsizei *size, ALfloat *frequency)

    data = alutLoadMemoryFromFileImage(wav, length, &format, &size, &freq);

    if (((error = alutGetError()) != ALUT_ERROR_NO_ERROR) || (data == NULL)) {
        fprintf(stderr, "Could not load wav buffer (%s)\n", alutGetErrorString(error));
        return -3;
    }


    alBufferData(mBuffer[mNext], format, data, size, static_cast<ALsizei>(freq));

    alSourcei(mSource[mNext], AL_BUFFER, mBuffer[mNext]);

    if (flags & SoundFlagsLoop)
    {
        alSourcei(mSource[mNext], AL_LOOPING, 1);
    }

    *source = mNext++;

    //! \fixme Should free alut buffer?

    return 0;
}


void Sound::remove(int source) {
    assert(source >= 0);
    assert(source < mNext);

    alDeleteSources(1, &mSource[source]);
    alDeleteBuffers(1, &mBuffer[source]);

    if (source == (mNext - 1))
        mNext--;
}


void Sound::play(int source)
{
    assert(mInit == true);
    assert(source >= 0);
    assert(source < mNext);

    alSourcePlay(mSource[source]);
}


void Sound::stop(int source)
{
    assert(mInit == true);
    assert(source >= 0);
    assert(source < mNext);

    alSourceStop(mSource[source]);
}