/*  RetroArch - A frontend for libretro.
 *  Copyright (C) 2011-2015 - Daniel De Matteis
 *
 *  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/string_list.h>
#include <string/stdstring.h>
#include <file/file_path.h>

#include "menu.h"
#include "menu_entries_cbs.h"

static INLINE void replace_chars(char *str, char c1, char c2)
{
   char *pos;
   while((pos = strchr(str, c1)))
      *pos = c2;
}

static INLINE void sanitize_to_string(char *s, const char *label, size_t len)
{
   char new_label[PATH_MAX_LENGTH];
   strlcpy(new_label, label, sizeof(new_label));
   strlcpy(s, string_to_upper(new_label), len);
   replace_chars(s, '_', ' ');
}

static int action_get_title_default(const char *path, const char *label, 
      unsigned menu_type, char *s, size_t len)
{
   char elem0[PATH_MAX_LENGTH], elem1[PATH_MAX_LENGTH];
   char elem0_path[PATH_MAX_LENGTH], elem1_path[PATH_MAX_LENGTH];
   struct string_list *list_label = string_split(label, "|");
   struct string_list *list_path  = string_split(path, "|");

   *elem0 = *elem1 = *elem0_path = *elem1_path = 0;

   if (list_label)
   {
      if (list_label->size > 0)
      {
         strlcpy(elem0, list_label->elems[0].data, sizeof(elem0));
         if (list_label->size > 1)
            strlcpy(elem1, list_label->elems[1].data, sizeof(elem1));
      }
      string_list_free(list_label);
   }

   if (list_path)
   {
      if (list_path->size > 0)
      {
         strlcpy(elem0_path, list_path->elems[0].data, sizeof(elem0_path));
         if (list_path->size > 1)
            strlcpy(elem1_path, list_path->elems[1].data, sizeof(elem1_path));
      }
      string_list_free(list_path);
   }

#if 0
   RARCH_LOG("label %s, elem0 %s, elem1 %s\n", label, elem0, elem1);
#endif
   if (!strcmp(label, "deferred_database_manager_list"))
      snprintf(s, len, "DATABASE SELECTION - %s", (elem0_path[0] != '\0') ? path_basename(elem0_path) : "");
   else if (!strcmp(label, "deferred_cursor_manager_list"))
      snprintf(s, len, "DATABASE CURSOR LIST - %s", (elem0_path[0] != '\0') ? path_basename(elem0_path) : "");
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_developer"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: DEVELOPER - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_publisher"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: PUBLISHER - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_origin"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: ORIGIN - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_franchise"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: FRANCHISE - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_edge_magazine_rating"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: EDGE MAGAZINE RATING - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_edge_magazine_issue"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: EDGE MAGAZINE ISSUE - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_releasemonth"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: RELEASEDATE BY MONTH - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_releaseyear"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: RELEASEDATE BY YEAR - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_esrb_rating"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: ESRB RATING - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_elspa_rating"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: ELSPA RATING - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_pegi_rating"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: PEGI RATING - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_cero_rating"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: CERO RATING - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_bbfc_rating"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: BBFC RATING - %s)", elem0_path);
   else if (!strcmp(label, "deferred_cursor_manager_list_rdb_entry_max_users"))
      snprintf(s, len, "DATABASE CURSOR LIST (FILTER: MAX USERS - %s)", elem0_path);
   else if (!strcmp(elem0, "deferred_rdb_entry_detail"))
      snprintf(s, len, "DATABASE INFO: %s", elem1);
   else if (!strcmp(label, "deferred_core_list"))
      snprintf(s, len, "DETECTED CORES %s", path);
   else if (!strcmp(label, "configurations"))
      snprintf(s, len, "CONFIG %s", path);
   else if (!strcmp(label, "disk_image_append"))
      snprintf(s, len, "DISK APPEND %s", path);
   else if (menu_entries_common_is_settings_entry(elem0))
   {
      strlcpy(s, string_to_upper(elem0), len);
      if (elem1[0] != '\0')
      {
         strlcat(s, " - ", len);
         strlcat(s, string_to_upper(elem1), len);
      }
   }
   else if (menu_type == MENU_SETTINGS_CUSTOM_BIND ||
         menu_type == MENU_SETTINGS_CUSTOM_BIND_KEYBOARD)
   {
      strlcpy(s, "INPUT SETTINGS", len);
      if (elem1[0] != '\0')
      {
         strlcat(s, " - ", len);
         strlcat(s, string_to_upper(elem1), len);
      }
   }
   else if (
            !strcmp(label, "performance_counters")
         || !strcmp(label, "core_list")
         || !strcmp(label, "management")
         || !strcmp(label, "options")
         || !strcmp(label, "settings")
         || !strcmp(label, "frontend_counters")
         || !strcmp(label, "core_counters")
         || !strcmp(label, "history_list")
         || !strcmp(label, "info_screen")
         || !strcmp(label, "system_information")
         || !strcmp(label, "core_information")
         || !strcmp(label, "video_shader_parameters")
         || !strcmp(label, "video_shader_preset_parameters")
         || !strcmp(label, "disk_options")
         || !strcmp(label, "core_options")
         || !strcmp(label, "shader_options")
         || !strcmp(label, "video_options")
         || !strcmp(label, "core_cheat_options")
         || !strcmp(label, "core_input_remapping_options")
         || !strcmp(label, "database_manager_list")
         || !strcmp(label, "cursor_manager_list")
         || (!strcmp(label, "deferred_core_updater_list"))
         )
   {
      sanitize_to_string(s, label, len);
   }
   else if (!strcmp(label, "video_shader_pass"))
      snprintf(s, len, "SHADER %s", path);
   else if (!strcmp(label, "video_shader_preset"))
      snprintf(s, len, "SHADER PRESET %s", path);
   else if (!strcmp(label, "cheat_file_load"))
      snprintf(s, len, "CHEAT FILE %s", path);
   else if (!strcmp(label, "remap_file_load"))
      snprintf(s, len, "REMAP FILE %s", path);
   else if (menu_type == MENU_SETTINGS_CUSTOM_VIEWPORT ||
         !strcmp(label, "custom_viewport_2") ||
         !strcmp(label, "help") ||
         menu_type == MENU_SETTINGS)
      snprintf(s, len, "MENU %s", path);
   else if (!strcmp(label, "input_overlay"))
      snprintf(s, len, "OVERLAY %s", path);
   else if (!strcmp(label, "video_font_path"))
      snprintf(s, len, "FONT %s", path);
   else if (!strcmp(label, "video_filter"))
      snprintf(s, len, "FILTER %s", path);
   else if (!strcmp(label, "audio_dsp_plugin"))
      snprintf(s, len, "DSP FILTER %s", path);
   else if (!strcmp(label, "rgui_browser_directory"))
      snprintf(s, len, "BROWSER DIR %s", path);
   else if (!strcmp(label, "playlist_directory"))
      snprintf(s, len, "PLAYLIST DIR %s", path);
   else if (!strcmp(label, "content_directory"))
      snprintf(s, len, "CONTENT DIR %s", path);
   else if (!strcmp(label, "screenshot_directory"))
      snprintf(s, len, "SCREENSHOT DIR %s", path);
   else if (!strcmp(label, "video_shader_dir"))
      snprintf(s, len, "SHADER DIR %s", path);
   else if (!strcmp(label, "video_filter_dir"))
      snprintf(s, len, "FILTER DIR %s", path);
   else if (!strcmp(label, "audio_filter_dir"))
      snprintf(s, len, "DSP FILTER DIR %s", path);
   else if (!strcmp(label, "savestate_directory"))
      snprintf(s, len, "SAVESTATE DIR %s", path);
   else if (!strcmp(label, "libretro_dir_path"))
      snprintf(s, len, "LIBRETRO DIR %s", path);
   else if (!strcmp(label, "libretro_info_path"))
      snprintf(s, len, "LIBRETRO INFO DIR %s", path);
   else if (!strcmp(label, "rgui_config_directory"))
      snprintf(s, len, "CONFIG DIR %s", path);
   else if (!strcmp(label, "savefile_directory"))
      snprintf(s, len, "SAVEFILE DIR %s", path);
   else if (!strcmp(label, "overlay_directory"))
      snprintf(s, len, "OVERLAY DIR %s", path);
   else if (!strcmp(label, "system_directory"))
      snprintf(s, len, "SYSTEM DIR %s", path);
   else if (!strcmp(label, "assets_directory"))
      snprintf(s, len, "ASSETS DIR %s", path);
   else if (!strcmp(label, "extraction_directory"))
      snprintf(s, len, "EXTRACTION DIR %s", path);
   else if (!strcmp(label, "joypad_autoconfig_dir"))
      snprintf(s, len, "AUTOCONFIG DIR %s", path);
   else
   {
      driver_t *driver = driver_get_ptr();

      if (driver->menu->defer_core)
         snprintf(s, len, "CONTENT %s", path);
      else
      {
         global_t *global      = global_get_ptr();
         const char *core_name = global->menu.info.library_name;

         if (!core_name)
            core_name = global->system.info.library_name;
         if (!core_name)
            core_name = "No Core";
         snprintf(s, len, "CONTENT (%s) %s", core_name, path);
      }
   }

   return 0;
}

void menu_entries_cbs_init_bind_title(menu_file_list_cbs_t *cbs,
      const char *path, const char *label, unsigned type, size_t idx,
      const char *elem0, const char *elem1)
{
   if (!cbs)
      return;

   cbs->action_get_title = action_get_title_default;
}