#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <sysexits.h>
#include <fcntl.h>
#include <math.h>

#include <xas/audio.h>
#include <xas/vox.h>
#include <xas/bank.h>
#include <xas/riff.h>
#include <xas/spatial.h>
#include <xas/drone.h>
#include <xas/seq.h>

static void usage(int argc, char **argv, const char *message, ...) {
    va_list args;

    va_start(args, message);

    if (message) {
        vfprintf(stderr, message, args);
        fputc('\n', stderr);
    }

    va_end(args);

    fprintf(stderr, "usage: %s output.wav\n", argv[0]);

    exit(EX_USAGE);
}

int main(int argc, char **argv) {
    xas_spatial_scene *scene;
    xas_seq *seq;

    xas_audio_stream *wave;

    xas_audio_format format = {
        .channels    = XAS_AUDIO_STEREO,
        .sample_size = XAS_AUDIO_PCM_16_BIT,
        .sample_rate = 44100
    };

    size_t buffer_size = 735;

    xas_spatial_coord speakers[2] = {
        { -0.09, 0.0, 0.0 },
        {  0.09, 0.0, 0.0 }
    };

    xas_drone *drone;

    struct timeval cur = { 0, 0 };

    int mood;

    if (argc < 2) {
        usage(argc, argv, "No output file provided");
    }

    if ((wave = xas_riff_new_file(argv[1],
                                    format,
                                    O_WRONLY | O_CREAT | O_TRUNC)) == NULL) {
        goto error_riff_new_file;
    }

    if ((scene = xas_spatial_scene_new(format,
                                         speakers[0],
                                         speakers[1])) == NULL) {
        goto error_spatial_scene_new;
    }

    if ((seq = xas_seq_new(scene, buffer_size)) == NULL) {
        goto error_seq_new;
    }

    if ((drone = xas_drone_new(scene,
                                 (xas_spatial_coord){ 0.0, 0.0, -1.0 },
                                 2646000,
                                 4)) == NULL) {
        goto error_drone_new;
    }

    timerclear(&cur);

    for (mood=0; mood<6; mood++) {
        struct timeval interval = { 0, 250000 },
                       tmp;

        xas_drone_seq_beep(drone,
                             seq,
                             mood,
                             &cur);

        timeradd(&cur, &interval, &tmp);

        cur = tmp;
    }

    xas_seq_add_stop(seq, cur);

    xas_seq_play(seq, wave);

    xas_drone_destroy(drone);
    xas_seq_destroy(seq);
    xas_spatial_scene_destroy(scene);
    xas_audio_stream_destroy(wave);

    return EX_OK;

error_drone_new:
    xas_seq_destroy(seq);

error_seq_new:
    xas_spatial_scene_destroy(scene);

error_spatial_scene_new:
    xas_audio_stream_destroy(wave);

error_riff_new_file:
    return EX_OSERR;
}