#include "meta.h"
#include <ctype.h>


/* .sli+ogg/opus - KiriKiri engine / WaveLoopManager loop points loader [Fate/Stay Night (PC), World End Economica (PC)] */
VGMSTREAM* init_vgmstream_sli_ogg(STREAMFILE* sf) {
    VGMSTREAM* vgmstream = NULL;
    STREAMFILE* sf_data = NULL;
    int32_t loop_start = -1, loop_length = -1;
    int32_t loop_from = -1, loop_to = -1;

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

    {
        /* try with file.ogg/opus.sli=header and file.ogg/opus=data */
        char basename[PATH_LIMIT];
        get_streamfile_basename(sf,basename,PATH_LIMIT);
        sf_data = open_streamfile_by_filename(sf, basename);
        if (!sf_data) goto fail;
    }

    if (!is_id32be(0x00, sf_data, "OggS"))
        goto fail;

    /* let the real initer do the parsing */
    if (is_id32be(0x1c, sf_data, "Opus")) { /* Sabbat of the Witch (PC) */
        vgmstream = init_vgmstream_ogg_opus(sf_data);
        if (!vgmstream) goto fail;

        /* somehow sli+opus use 0 encoder delay in the OpusHead (to simplify looping?) */
        vgmstream->meta_type = meta_OPUS_SLI;
    }
    else { /* Fate/Stay Night (PC) */
        vgmstream = init_vgmstream_ogg_vorbis(sf_data);
        if (!vgmstream) goto fail;

        vgmstream->meta_type = meta_OGG_SLI;
    }


    /* find loop text */
    {
        char line[PATH_LIMIT];
        size_t bytes_read;
        off_t sli_offset;
        int line_ok;

        sli_offset = 0;
        while ((loop_start == -1 || loop_length == -1) && sli_offset < get_streamfile_size(sf)) {
            char *endptr, *foundptr;

            bytes_read = read_line(line, sizeof(line), sli_offset, sf, &line_ok);
            if (!line_ok) goto fail;
            sli_offset += bytes_read;
            /* files may be padded with 0s */

            /* comments in v2.0 [Sabbath of the Witch (PC), KARAKARA (PC)] */
            if (line[0] == '#')
                continue;

            if (memcmp("LoopStart=", line,10) == 0 && line[10] != '\0') {
                loop_start = strtol(line + 10, &endptr, 10);
                if (*endptr != '\0') {
                    loop_start = -1; /* if it didn't parse cleanly */
                }
            }
            else if (memcmp("LoopLength=", line, 11) == 0 && line[11] != '\0') {
                loop_length = strtol(line + 11, &endptr, 10);
                if (*endptr != '\0') {
                    loop_length = -1; /* if it didn't parse cleanly */
                }
            }

            /* a completely different format ("#2.00"?), can be handled similarly */
            if ((foundptr = strstr(line,"To=")) != NULL && isdigit(foundptr[3])) {
                loop_to = strtol(foundptr + 3, &endptr, 10);
                if (*endptr != ';') {
                    loop_to = -1;
                }
            }
            if ((foundptr = strstr(line,"From=")) != NULL && isdigit(foundptr[5])) {
                loop_from = strtol(foundptr + 5, &endptr, 10);
                if (*endptr != ';') {
                    loop_from = -1;
                }
            }

        }
    }

    if (loop_start != -1 && loop_length != -1) { /* v1 */
        vgmstream_force_loop(vgmstream, 1, loop_start, loop_start + loop_length);
    }
    else if (loop_from != -1 && loop_to != -1) { /* v2 */
        vgmstream_force_loop(vgmstream, 1, loop_to, loop_from);
    }
    else {
        goto fail; /* if there's no loop points the .sli wasn't valid */
    }

    close_streamfile(sf_data);
    return vgmstream;

fail:
    close_streamfile(sf_data);
    close_vgmstream(vgmstream);
    return NULL;
}