/* 
 *	
 * (c) 2006 by Kalle Wallin <kaw@linux.se>
 * Thu Dec 28 23:17:38 2006
 *
 * This program 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 Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program 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 this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */

#include <unistd.h>
#include <string.h>

#include "../config.h"
#include "src_lyrics.h"

#define PLUGIN_DIR_USER "/.ncmpc/plugins"

int get_text_line(formed_text *text, int num, char *dest, int len)
{
        memset(dest, '\0', len*sizeof(char));
    if(num >= text->lines->len-1) return -1;	
        int linelen;
        if(num == 0)
        {
                linelen = g_array_index(text->lines, int, num);
                memcpy(dest, text->text->str, linelen*sizeof(char));	
        }
        else if(num == 1)
        { //dont ask me why, but this is needed....
                linelen = g_array_index(text->lines, int, num)
                        - g_array_index(text->lines, int, num-1);
                memcpy(dest, &text->text->str[g_array_index(text->lines, int, num-1)],
                linelen*sizeof(char));	
        }	
        else
        {
                linelen = g_array_index(text->lines, int, num+1)
                        - g_array_index(text->lines, int, num);
                memcpy(dest, &text->text->str[g_array_index(text->lines, int, num)],
                linelen*sizeof(char));	
        }
	dest[linelen] = '\n';
        dest[linelen+1] = '\0';
        
        return 0;
}
        
void add_text_line(formed_text *dest, const char *src, int len)
{

        // need this because g_array_append_val doesnt work with literals
        // and expat sends "\n" as an extra line everytime
        if(len == 0)
        {
                dest->val = strlen(src);
                if(dest->lines->len > 0) dest->val += g_array_index(dest->lines, int,
                                                                        dest->lines->len-1);
                g_string_append(dest->text, src);
                g_array_append_val(dest->lines, dest->val);
                return;
        }
        if(len > 1 || dest->val == 0) 
        {
                dest->val = len;	
                if(dest->lines->len > 0) dest->val += g_array_index(dest->lines, int,
                                                                        dest->lines->len-1);
        }
        else if (len < 6 && dest->val != 0) dest->val = 0;
                                
        if(dest->val > 0)
        { 
                g_string_append_len(dest->text, src, len);
                g_array_append_val(dest->lines, dest->val);
        }
}

void formed_text_init(formed_text *text)
{
        if(text->text != NULL) g_string_free(text->text, TRUE);	
        text->text = g_string_new("");
        
        if(text->lines != NULL) g_array_free(text->lines, TRUE);
        text->lines = g_array_new(FALSE, TRUE, 4);
        
        text->val = 0;
}

#ifdef ENABLE_LYRSRC_LEOSLYRICS
int deregister_lyr_leoslyrics ();
int register_lyr_leoslyrics (src_lyr *source_descriptor);
#endif

#ifdef ENABLE_LYRSRC_HD
int deregister_lyr_hd ();
int register_lyr_hd (src_lyr *source_descriptor);
#endif

int src_lyr_stack_init ()
{
  src_lyr_stack = g_array_new (TRUE, FALSE, sizeof (src_lyr*));

#ifdef ENABLE_LYRSRC_HD
  src_lyr *src_lyr_hd = malloc (sizeof (src_lyr));
  src_lyr_hd->register_src_lyr = register_lyr_hd; 
  g_array_append_val (src_lyr_stack, src_lyr_hd);
#endif
#ifdef ENABLE_LYRSRC_LEOSLYRICS 
  src_lyr *src_lyr_leoslyrics = malloc (sizeof (src_lyr));
  src_lyr_leoslyrics->register_src_lyr = register_lyr_leoslyrics; 
  g_array_append_val (src_lyr_stack, src_lyr_leoslyrics);
#endif

#ifndef DISABLE_PLUGIN_SYSTEM

  src_lyr_plugins_load ();
#endif

}

int src_lyr_init ()
{
  src_lyr_stack_init ();

  int i = 0;
  while (g_array_index (src_lyr_stack, src_lyr*, i) != NULL)
    {
      src_lyr *i_stack;
      i_stack = g_array_index (src_lyr_stack, src_lyr*, i);
      i_stack->register_src_lyr (i_stack);
      i++;
    }
  return 0;
}

int get_lyr_by_src (int priority, char *artist, char *title)
{
  //if (g_array_index (src_lyr_stack, src_lyr*, priority)->check_lyr() == 0)
    //{
       g_array_index (src_lyr_stack, src_lyr*, priority)->get_lyr (artist, title);
    //}
  return 0;
}

int src_lyr_load_plugin_file (const char *file)
{
  GString *path;
  path = g_string_new (PLUGIN_DIR_SYSTEM);
  g_string_append (path, "/");
  g_string_append (path, file);

  src_lyr_plugin_register register_func;
  src_lyr *new_src = malloc (sizeof (src_lyr));
  new_src->module = g_module_open (path->str, G_MODULE_BIND_LAZY);
  //if (new_src->module == NULL) for (;;) fprintf (stderr, g_module_error());
  if (!g_module_symbol (new_src->module, "register_me", (gpointer*) &register_func)) 
    return -1;
  new_src->register_src_lyr = register_func;
  g_array_append_val (src_lyr_stack, new_src);
  return 0;
}
  
void src_lyr_plugins_load_from_dir (GDir *plugin_dir)
{
  const gchar *cur_file;

  for (;;)
    {
      cur_file = g_dir_read_name (plugin_dir);
      if (cur_file == NULL) break;
      src_lyr_load_plugin_file (cur_file);
    }
}



int src_lyr_plugins_load ()
{
  GDir *plugin_dir;

  plugin_dir = g_dir_open (PLUGIN_DIR_SYSTEM, 0, NULL);
  if (plugin_dir == NULL)
    return -1;
  src_lyr_plugins_load_from_dir (plugin_dir);

  GString *user_dir_path;
  user_dir_path = g_string_new (g_get_home_dir());
  g_string_append (user_dir_path, PLUGIN_DIR_USER);
 
  plugin_dir = g_dir_open (user_dir_path->str, 0, NULL);
  if (plugin_dir == NULL)
    return -1;
  src_lyr_plugins_load_from_dir (plugin_dir);

  return 0;
}