/*

 * OpenAL Bridge - a simple portable library for OpenAL interface

 * Copyright (c) 2009 Vittorio Giovara <vittorio.giovara@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU Lesser General Public License as published by

 * the Free Software Foundation; version 2 of the License

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

 */

#include "loaders.h"

#ifdef __CPLUSPLUS

extern "C" {

#endif 

    int load_wavpcm (const char *filename, ALenum *format, char ** data, ALsizei *bitsize, ALsizei *freq) {

        WAV_header_t WAVHeader;

        FILE *wavfile;

        int32_t t;

        uint32_t n = 0;

        wavfile = Fopen(filename, "rb");

        fread(&WAVHeader.ChunkSize, sizeof(uint32_t), 1, wavfile);

#ifdef DEBUG

#endif

        fread(&WAVHeader.Subchunk1Size, sizeof(uint32_t), 1, wavfile);

        fread(&WAVHeader.AudioFormat, sizeof(uint16_t), 1, wavfile);

        fread(&WAVHeader.NumChannels, sizeof(uint16_t), 1, wavfile);

        fread(&WAVHeader.SampleRate, sizeof(uint32_t), 1, wavfile);

        fread(&WAVHeader.ByteRate, sizeof(uint32_t), 1, wavfile);

        fread(&WAVHeader.BlockAlign, sizeof(uint16_t), 1, wavfile);

        fread(&WAVHeader.BitsPerSample, sizeof(uint16_t), 1, wavfile);

#ifdef DEBUG

#endif

        } while (1);

        fread(&WAVHeader.Subchunk2Size, sizeof(uint32_t), 1, wavfile);

#ifdef DEBUG

#endif

        do {

        fclose(wavfile);	

#ifdef DEBUG

#endif

        /*Valid formats are AL_FORMAT_MONO8, AL_FORMAT_MONO16, AL_FORMAT_STEREO8, and AL_FORMAT_STEREO16*/

                *format = AL_FORMAT_MONO8;

            else {

                    *format = AL_FORMAT_MONO16;

                else {

                    return AL_FALSE;

                }

            } 

        } else {

                    *format = AL_FORMAT_STEREO8;

                else {

                        *format = AL_FORMAT_STEREO16;

                    else {

                        return AL_FALSE;

                    }				

                }

            } else {

                return AL_FALSE;

            }

        }

        return AL_TRUE;

    }

    int load_oggvorbis (const char *filename, ALenum *format, char **data, ALsizei *bitsize, ALsizei *freq) {

        /*implementation inspired from http://www.devmaster.net/forums/showthread.php?t=1153 */

        OggVorbis_File  oggStream;	/*stream handle*/

        vorbis_info	*vorbisInfo;	/*some formatting data*/

        int64_t		pcm_length;	/*length of the decoded data*/

        int             section, result, size = 0;

#ifdef DEBUG

        int i;

        vorbis_comment	*vorbisComment;	/*other less useful data*/

#endif

	result = ov_fopen((char*) filename, &oggStream);

	if (result < 0) {

                ov_clear(&oggStream);

		return -1;

	}

        vorbisInfo = ov_info(&oggStream, -1);

        pcm_length = ov_pcm_total(&oggStream, -1) << vorbisInfo->channels;	

#ifdef DEBUG

        vorbisComment = ov_comment(&oggStream, -1);

        fprintf(stderr, "Version: %d\n", vorbisInfo->version);

        fprintf(stderr, "Channels: %d\n", vorbisInfo->channels);

        fprintf(stderr, "Rate (Hz): %ld\n", vorbisInfo->rate);

        fprintf(stderr, "Bitrate Upper: %ld\n", vorbisInfo->bitrate_upper);

        fprintf(stderr, "Bitrate Nominal: %ld\n", vorbisInfo->bitrate_nominal);

        fprintf(stderr, "Bitrate Lower: %ld\n", vorbisInfo->bitrate_lower);

        fprintf(stderr, "Bitrate Windows: %ld\n", vorbisInfo->bitrate_window);

        fprintf(stderr, "Vendor: %s\n", vorbisComment->vendor);

        fprintf(stderr, "PCM data size: %lld\n", pcm_length);

        fprintf(stderr, "# comment: %d\n", vorbisComment->comments);

        for (i = 0; i < vorbisComment->comments; i++)

#endif

        /*allocates enough room for the decoded data*/

        *data = (char*) Malloc (sizeof(char) * pcm_length);

        /*there *should* not be ogg at 8 bits*/

        if (vorbisInfo->channels == 1)

            *format = AL_FORMAT_MONO16;

        else {

            if (vorbisInfo->channels == 2)

                *format = AL_FORMAT_STEREO16;

            else {

                ov_clear(&oggStream);

                return AL_FALSE;

            }

        }

        while (size < pcm_length) {

            /*ov_read decodes the ogg stream and storse the pcm in data*/

            result = ov_read (&oggStream, *data + size, pcm_length - size, 0, 2, 1, &section);

            if (result > 0) {

                size += result;

            } else {

                if (result == 0)

                    break;

                else { 

                    ov_clear(&oggStream);

                    return AL_FALSE;

                }

            }

        }

        /*set the last fields*/

        *bitsize = size;

        *freq    = vorbisInfo->rate;

	/*cleaning time*/

        ov_clear(&oggStream);

        return AL_TRUE;

    }

#ifdef __CPLUSPLUS

}

#endif