/*  RetroArch - A frontend for libretro.
 *  Copyright (C) 2016 - Jean-André Santoni
 *
 *  RetroArch is free software: you can redistribute it and/or modify it under the terms
 *  of the GNU General Public License as published by the Free Software Found-
 *  ation, either version 3 of the License, or (at your option) any later version.
 *
 *  RetroArch 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 General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License along with RetroArch.
 *  If not, see <http://www.gnu.org/licenses/>.
 */

#include <string.h>
#include <errno.h>
#include <file/nbio.h>
#include <formats/image.h>
#include <compat/strl.h>
#include <retro_assert.h>
#include <retro_miscellaneous.h>
#include <lists/string_list.h>
#include <rhash.h>
#include <string/stdstring.h>
#include <file/file_path.h>
#include <lists/dir_list.h>

#include "tasks_internal.h"
#include "../file_path_special.h"
#include "../verbosity.h"
#include "../configuration.h"
#include "../playlist.h"
#include "../command.h"
#include "../core_info.h"
#include "../../runloop.h"

typedef struct
{
   struct string_list *lpl_list;
   char crc[PATH_MAX_LENGTH];
   char path[PATH_MAX_LENGTH];
   char hostname[512];
   char corename[PATH_MAX_LENGTH];
   bool found;
} netplay_crc_handle_t;

static void netplay_crc_scan_callback(void *task_data,
                               void *user_data, const char *error)
{
   int i;
   netplay_crc_handle_t *state     = (netplay_crc_handle_t*)task_data;
   core_info_list_t *info          = NULL;
   content_ctx_info_t content_info = {0};

   core_info_get_list(&info);

   if (!state)
      return;

   for (i=0; i < info->count; i++)
   {
      if(string_is_equal(info->list[i].core_name, state->corename))
         break;
   }
   
   if (!string_is_empty(info->list[i].path) && !string_is_empty(state->path))
   {
      command_event(CMD_EVENT_NETPLAY_INIT_DIRECT_DEFERRED, state->hostname);
      task_push_content_load_default(
            info->list[i].path, state->path,
            &content_info,
            CORE_TYPE_PLAIN,
            CONTENT_MODE_LOAD_CONTENT_WITH_NEW_CORE_FROM_MENU,
            NULL, NULL);
   }
   else
   {
      /* TO-DO: Inform the user no compatible core or content was found */
      RARCH_LOG("Couldn't find a suitable %s\n", 
         string_is_empty(state->path) ? "content file" : "core");
      runloop_msg_queue_push(
            msg_hash_to_str(MENU_ENUM_LABEL_VALUE_NETPLAY_LOAD_CONTENT_MANUALLY),
            1, 480, true);
   }

   free(state);
}

static void task_netplay_crc_scan_handler(retro_task_t *task)
{
   size_t i, j;
   netplay_crc_handle_t *state = (netplay_crc_handle_t*)task->state;

   task_set_progress(task, 0);
   task_set_title(task, strdup("Looking for compatible content..."));
   task_set_finished(task, false);

   if (!state->lpl_list)
   {
      task_set_progress(task, 100);
      task_set_title(task, strdup("Playlist directory not found"));
      task_set_finished(task, true);
      free(state);
      return;
   }

   if (state->lpl_list->size == 0)
      goto no_playlists;

   /* content with no CRC uses 00000000*/
   if (string_is_equal(state->path, "00000000"))
   {
      for (i = 0; i < state->lpl_list->size; i++)
      {
         playlist_t *playlist = NULL;
         const char *lpl_path = state->lpl_list->elems[i].data;

         if (!strstr(lpl_path, file_path_str(FILE_PATH_LPL_EXTENSION)))
            continue;

         playlist = playlist_init(lpl_path, 99999);
         {
            for (j = 0; j < playlist->size; j++)
            {
               printf("CRC Match %s\n", state->crc);
               if (string_is_equal(playlist->entries[j].crc32, state->crc))
               {
                  strlcpy(state->path, playlist->entries[j].path, sizeof(state->path));
                  state->found = true;
                  task_set_data(task, state);
                  task_set_progress(task, 100);
                  task_set_title(task, strdup("Compatible content found"));
                  task_set_finished(task, true);
                  string_list_free(state->lpl_list);
                  return;
               }
               task_set_progress(task, (int)(j/playlist->size*100.0));
            }
         }
      }
   }
   else
   {
      for (i = 0; i < state->lpl_list->size; i++)
      {
         playlist_t *playlist = NULL;
         const char *lpl_path = state->lpl_list->elems[i].data;

         if (!strstr(lpl_path, file_path_str(FILE_PATH_LPL_EXTENSION)))
            continue;

         playlist = playlist_init(lpl_path, 99999);
         {
            for (j = 0; j < playlist->size; j++)
            {
               /*printf("State: %s Entry: %s\n", state->path, playlist->entries[j].path);*/
               if (strstr(playlist->entries[j].path, state->path))
               {
                  printf("Filename Match %s\n", state->path);
                  strlcpy(state->path, playlist->entries[j].path, sizeof(state->path));
                  state->found = true;
                  task_set_data(task, state);
                  task_set_progress(task, 100);
                  task_set_title(task, strdup("Compatible content found"));
                  task_set_finished(task, true);
                  string_list_free(state->lpl_list);
                  return;
               }

               task_set_progress(task, (int)(j/playlist->size*100.0));
            }
         }
      }
   }



/*
else
{

}

*/
no_playlists:
   string_list_free(state->lpl_list);
   task_set_progress(task, 100);
   task_set_title(task, strdup("Couldn't find compatible content"));
   task_set_finished(task, true);
   return;
}

bool task_push_netplay_crc_scan(uint32_t crc, char* name,
      const char *hostname, const char *corename)
{
   settings_t        *settings = config_get_ptr();
   retro_task_t          *task = (retro_task_t *)calloc(1, sizeof(*task));
   netplay_crc_handle_t *state = (netplay_crc_handle_t*)calloc(1, sizeof(*state));

   if (!task || !state)
      goto error;

   state->crc[0] = '\0';
   snprintf(state->crc, sizeof(state->crc), "%08X|crc", crc);
   state->path[0] = '\0';
   snprintf(state->path, sizeof(state->path), "%s", name);

   state->hostname[0] = '\0';
   snprintf(state->hostname, sizeof(state->hostname), "%s", hostname);

   state->corename[0] = '\0';
   snprintf(state->corename, sizeof(state->corename), "%s", corename);

   state->lpl_list = dir_list_new(settings->directory.playlist,
         NULL, true, true, true, false);

   state->found = false;

   /* blocking means no other task can run while this one is running, 
    * which is the default */
   task->type           = TASK_TYPE_BLOCKING;
   task->state          = state;
   task->handler        = task_netplay_crc_scan_handler;
   task->callback       = netplay_crc_scan_callback;
   task->title          = strdup("Looking for matching content...");

   task_queue_ctl(TASK_QUEUE_CTL_PUSH, task);

   return true;

error:
   if (state)
      free(state);
   if (task)
      free(task);

   return false;
}