#include "meta.h"
#include "../coding/coding.h"


/* FDA - from Relic Entertainment games [Warhammer 4000: Dawn of War (PC)] */
VGMSTREAM * init_vgmstream_fda(STREAMFILE *sf) {
    VGMSTREAM * vgmstream = NULL;
    off_t start_offset;
    int loop_flag, channel_count, bitrate, sample_rate, num_samples;


    /* checks */
    if (!check_extensions(sf, "fda"))
        goto fail;

    if (read_u32be(0x00, sf) != 0x52656C69 ||   /* "Reli" */
        read_u32be(0x04, sf) != 0x63204368 ||   /* "c Ch" */
        read_u32be(0x08, sf) != 0x756E6B79 ||   /* "unky" */
        read_u32be(0x0c, sf) != 0x0D0A1A00)     /* "\r\n\1a\00"*/
        goto fail;

    /* version? (later .fda change this) */
    if (read_u32le(0x10, sf) != 1 ||
        read_u32le(0x14, sf) != 1)
        goto fail;

    /* read chunks (abridged) */
    {
        off_t offset = 0x18;
        size_t chunk_size, name_size, data_size;

        /* Relic Chunkys have: type, subtype, version, data size, name size, then
         * name (optional) and data. But format has fixed chunks so we'll simplify a bit. */

        /* DATA-FBIF (file info) */
        chunk_size = read_u32le(offset + 0x0c, sf);
        name_size  = read_u32le(offset + 0x10, sf);
        offset += 0x14 + name_size + chunk_size;

        /* FOLD-FDA (folder of chunks) */
        if (read_u32be(offset + 0x04, sf) != 0x46444120) /* "FDA " */
            goto fail;
        offset += 0x14;

        /* DATA-INFO (header) */
        if (read_u32be(offset + 0x04, sf) != 0x494E464F) /* "INFO" */
            goto fail;
        chunk_size = read_u32le(offset + 0x0c, sf);
        name_size  = read_u32le(offset + 0x10, sf);
        offset += 0x14 + name_size;

        channel_count   = read_s32le(offset + 0x00, sf);
        /* 0x04: bps */
        bitrate         = read_s32le(offset + 0x08, sf);
        sample_rate     = read_s32le(offset + 0x0c, sf);
        /* 0x10: loop start? (always 0) */
        /* 0x14: loop end? (always -1) */
        /* 0x18: loop offset? (always 0) */
        loop_flag = 0; /* never set? */
        offset += chunk_size;

        /* DATA-DATA (data) */
        if (read_u32be(offset + 0x04, sf) != 0x44415441) /* "DATA" */
            goto fail;
        chunk_size = read_u32le(offset + 0x0c, sf);
        name_size  = read_u32le(offset + 0x10, sf);
        offset += 0x14 + name_size;

        data_size = read_s32le(offset + 0x00, sf);

        start_offset = offset + 0x04;
        num_samples = data_size / channel_count / (bitrate / 8) * 512;
    }


    /* build the VGMSTREAM */
    vgmstream = allocate_vgmstream(channel_count, loop_flag);
    if (!vgmstream) goto fail;

    vgmstream->meta_type = meta_FDA;
    vgmstream->sample_rate = 44100; /* fixed output */
    vgmstream->num_samples = num_samples;

    vgmstream->codec_data = init_relic(channel_count, bitrate, sample_rate);
    if (!vgmstream->codec_data) goto fail;
    vgmstream->coding_type = coding_RELIC;
    vgmstream->layout_type = layout_none;

    if (!vgmstream_open_stream(vgmstream, sf, start_offset))
        goto fail;
    return vgmstream;

fail:
    close_vgmstream(vgmstream);
    return NULL;
}