// Compile with:
// gcc -o ecore_audio_playback ecore_audio_playback.c `pkg-config --libs --cflags ecore eina ecore-audio`

#include <config.h>

#include <stdio.h>
#include <string.h>
#include <libgen.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <termios.h>
#include <unistd.h>
#include <fcntl.h>
#include <Ecore.h>
#include <Ecore_Audio.h>
#include <Eina.h>

#if HAVE_PULSE
#include <ecore_audio_obj_out_pulse.h>
#define MY_CLASS ECORE_AUDIO_OBJ_OUT_PULSE_CLASS
#elif HAVE_ALSA
#include <ecore_audio_obj_out_alsa.h>
#define MY_CLASS ECORE_AUDIO_OBJ_OUT_ALSA_CLASS
#else
#warning "Need either pulse or alsa for output"
#define MY_CLASS ECORE_AUDIO_OBJ_OUT_CLASS
#endif

Eo *out = NULL;
double volume = 1;
Eina_List *inputs = NULL;

void
handle_cmd(char *cmd, size_t bread)
{
   const char *name;
   Eina_List *out_inputs, *input;
   Eo *in;
   Eina_Bool paused, ret;
   double pos, length;
   int min;

   if (!out)
     return;

   eo_do(out, ecore_audio_obj_out_inputs_get(&out_inputs));
   EINA_LIST_FOREACH(out_inputs, input, in)
     {
        eo_do(in, ecore_audio_obj_in_seek(0, SEEK_CUR, &pos));
        if (!strncmp(cmd, "<", bread))
          eo_do(in, ecore_audio_obj_in_seek(-10, SEEK_CUR, &pos));
        else if (!strncmp(cmd, ">", bread))
          eo_do(in, ecore_audio_obj_in_seek(10, SEEK_CUR, &pos));

        min = pos / 60;

        eo_do(in, ecore_audio_obj_name_get(&name));
        eo_do(in, ecore_audio_obj_in_length_get(&length));
        printf("Position: %2im %5.02fs (%0.2f%%) - %s\n", min, pos - min * 60, pos/length*100, name);

     }

   if (!strncmp(cmd, "p", bread))
     {
     }
   else if (!strncmp(cmd, "n", bread))
     {
        in = eina_list_data_get(out_inputs);
        eo_do(out, ecore_audio_obj_out_input_detach(in, &ret));
        if (!ret)
          printf("Could not detach input\n");

        inputs = eina_list_remove(inputs, in);

        if (eina_list_count(inputs) > 0)
          {
             in = (Eo *)eina_list_data_get(inputs);

             eo_do(in, ecore_audio_obj_name_get(&name),
                   ecore_audio_obj_in_length_get(&length));

             printf("Start: %s (%0.2fs)\n", name, length);
             eo_do(out, ecore_audio_obj_out_input_attach(in, &ret));
             if (!ret)
               printf("Could not attach input %s\n", name);
          }
       else
         {
           printf("Done\n");
           ecore_main_loop_quit();
         }
     }
   else if (!strncmp(cmd, "m", bread))
     {
        inputs = eina_list_remove(inputs, eina_list_data_get(inputs));
        if (eina_list_count(inputs) > 0)
          {
             in = (Eo *)eina_list_data_get(inputs);

             eo_do(in, ecore_audio_obj_name_get(&name),
                   ecore_audio_obj_in_length_get(&length));

             printf("Start: %s (%0.2fs)\n", name, length);
             eo_do(out, ecore_audio_obj_out_input_attach(in, &ret));
             if (!ret)
               printf("Could not attach input %s\n", name);
          }
     }
   else if (!strncmp(cmd, "l", bread))
     {
        EINA_LIST_FOREACH(out_inputs, input, in)
          {
             Eina_Bool loop;
             eo_do(in, ecore_audio_obj_in_looped_get(&loop),
                   ecore_audio_obj_name_get(&name));

             printf("%s song %s\n", !loop?"Looping":"Not looping", name);
             eo_do(in, ecore_audio_obj_in_looped_set(!loop));
          }
     }
   else if (!strncmp(cmd, "+", bread))
     {
        if (volume < 1.5)
          volume += 0.01;
        eo_do(out, ecore_audio_obj_volume_set(volume));
        printf("Volume: %3.0f%%\n", volume * 100);
     }
   else if (!strncmp(cmd, "-", bread))
     {
        if (volume > 0)
          volume -= 0.01;
        eo_do(out, ecore_audio_obj_volume_set(volume));
        printf("Volume: %3.0f%%\n", volume * 100);
     }
   else if (!strncmp(cmd, "*", bread))
     {
        double speed;
        EINA_LIST_FOREACH(out_inputs, input, in)
          {
             eo_do(in, ecore_audio_obj_in_speed_get(&speed));
             if (speed < 2.0)
               speed += 0.01;
             eo_do(in, ecore_audio_obj_in_speed_set(speed),
                   ecore_audio_obj_name_get(&name));
             printf("Speed: %3.0f%% (%s)\n", speed * 100, name);
          }
     }
   else if (!strncmp(cmd, "/", bread))
     {
        double speed;
        EINA_LIST_FOREACH(out_inputs, input, in)
          {
             eo_do(in, ecore_audio_obj_in_speed_get(&speed));
             if (speed > 0.5)
               speed -= 0.01;
             eo_do(in, ecore_audio_obj_in_speed_set(speed),
                   ecore_audio_obj_name_get(&name));
             printf("Speed: %3.0f%% (%s)\n", speed * 100, name);
          }
     }
   else if (!strncmp(cmd, " ", bread))
     {
        EINA_LIST_FOREACH(out_inputs, input, in)
          {
             eo_do(in, ecore_audio_obj_paused_get(&paused),
                   ecore_audio_obj_name_get(&name),
                   ecore_audio_obj_in_remaining_get(&length));
             printf("%s %s\n%0.2f remaining\n", !paused ? "Paused" : "Unpaused", name, length);
             eo_do(in, ecore_audio_obj_paused_set(!paused));
          }
     }
   else if (!strncmp(cmd, "q", bread))
     {
        ecore_main_loop_quit();
     }
   else
     printf("Unhandled cmd '%s'\n", cmd);

}

Eina_Bool
handle_input(void *data EINA_UNUSED, Ecore_Fd_Handler *handler)
{
   size_t bread;
   char buf[20];
   int fd;

   if (!ecore_main_fd_handler_active_get(handler, ECORE_FD_READ))
     return EINA_TRUE;

   fd = ecore_main_fd_handler_fd_get(handler);

   bread = read(fd, buf, sizeof(buf));
   if (bread == 0)
     {
        printf("Ctrl-D?\n");
        ecore_main_loop_quit();

        return EINA_FALSE;
     }

   handle_cmd(buf, bread);

   return EINA_TRUE;
}

static Eina_Bool _play_finished(void *data EINA_UNUSED, Eo *in, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
{
  const char *name;
  Eina_Bool ret;

  eo_do(in, ecore_audio_obj_name_get(&name));
  printf("Done: %s\n", name);

  inputs = eina_list_remove(inputs, in);
  eo_do(out, ecore_audio_obj_out_input_detach(in, &ret));
  eo_del(in);

  if (!ret)
    printf("Could not detach input %s\n", name);


  if (eina_list_count(inputs) > 0)
    {
      const char *name;
      in = (Eo *)eina_list_data_get(inputs);

      eo_do(in, ecore_audio_obj_name_get(&name));
      printf("Start: %s\n", name);
      eo_do(out, ecore_audio_obj_out_input_attach(in, &ret));
      if (!ret)
        printf("Could not attach input %s\n", name);
    }
  else
    {
      printf("Stream done\n");
      ecore_main_loop_quit();
    }

  return EINA_TRUE;
}

int
main(int argc, const char *argv[])
{
   int i, freq;

   Eina_Bool ret;
   struct termios tcorig, tcnew;
   Eo *in;
   char *tmp, *tmp2, *val;

   if (argc < 2)
     {
       printf("Please provide a filename\n");
       exit(EXIT_FAILURE);
     }

   ecore_init();
   ecore_audio_init();

   ecore_app_args_set(argc, argv);

   for (i=1;i<argc;i++)
     {
       if (!strncmp(argv[i], "tone:", 5))
         {
            in = eo_add(ECORE_AUDIO_OBJ_IN_TONE_CLASS, NULL);
            if (!in)
              {
                 printf("error when creating ecore audio source.\n");
                 goto end;
              }
            /* The name has the format "tone:freq=x,duration=y */
            tmp = strdup(argv[i]);
            val = strtok_r(tmp, ":", &tmp2);

            while ((val = strtok_r(NULL, ",", &tmp2)) != NULL)
              {
                 if (!strncmp(val, "freq=", 5)) {
                   freq = atoi(&val[5]);
                   eo_do(in, eo_base_data_set(ECORE_AUDIO_ATTR_TONE_FREQ, &freq, NULL));
                 } else if (!strncmp(val, "duration=", 9)) {
                   eo_do(in, ecore_audio_obj_in_length_set(atof(&val[9])));
                 }
              }
            free(tmp);
            eo_do(in, ecore_audio_obj_name_set(argv[i]));
         }
       else
         {
            in = eo_add(ECORE_AUDIO_OBJ_IN_SNDFILE_CLASS, NULL);
            if (!in)
              {
                 printf("error when creating ecore audio source.\n");
                 goto end;
              }
            tmp = strdup(argv[i]);
            eo_do(in, ecore_audio_obj_name_set(basename(tmp)));
            free(tmp);
            eo_do(in, ecore_audio_obj_source_set(argv[i], &ret));
            if (!ret) {
              printf("Could not set %s as input\n", argv[i]);
              continue;
            }
         }
       eo_do(in, eo_event_callback_add(ECORE_AUDIO_EV_IN_STOPPED, _play_finished, NULL));
       inputs = eina_list_append(inputs, in);
     }

   const char *name;
   double length;
   in = (Eo *)eina_list_data_get(inputs);

   if (!in)
     return 1;

   eo_do(in, ecore_audio_obj_name_get(&name),
         ecore_audio_obj_in_length_get(&length));

   printf("Start: %s (%0.2fs)\n", name, length);

   out = eo_add(MY_CLASS, NULL);
   eo_do(out, ecore_audio_obj_out_input_attach(in, &ret));
   if (!ret)
     printf("Could not attach input %s\n", name);


   /* Disable canonical mode for stdin */
   if (tcgetattr(0, &tcorig) == -1)
     printf("Problem getting termcaps: %s\n", strerror(errno));

   tcnew = tcorig;
   tcnew.c_lflag &= ~(ICANON | ECHO);
   if (tcsetattr(0, TCSANOW, &tcnew) == -1)
     printf("Problem setting termcaps: %s\n", strerror(errno));

   ecore_main_fd_handler_add(0, ECORE_FD_READ, handle_input, NULL, NULL, NULL);

   ecore_main_loop_begin();

end:
   ecore_audio_shutdown();
   ecore_shutdown();

   /* Reset stdin */
   if (tcsetattr(0, TCSANOW, &tcorig) == -1)
     printf("Problem restoring termcaps: %s\n", strerror(errno));

   return 0;
}