/**
 * GMyth Library
 *
 * @file gmyth/mmyth_tvplayer.c
 * 
 * @brief <p> This component provides playback of the remote A/V using
 * GStreamer.
 * 
 * Copyright (C) 2006 INdT - Instituto Nokia de Tecnologia.
 * @author Hallyson Luiz de Morais Melo <hallyson.melo@indt.org.br>
 *
 *//*
 * 
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser 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 Lesser 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 "mmyth_tvplayer.h"
 
#include <gdk/gdkx.h>

#include "gmyth_context.h"
#include "gmyth_remote_util.h"

typedef struct _GstPlayerWindowStateChange
{
    GstElement *play;
    GstState old_state, new_state;
    MMythTVPlayer *tvplayer;
} GstPlayerWindowStateChange;

typedef struct _GstPlayerWindowTagFound
{
    GstElement *play;
    GstTagList *taglist;
    MMythTVPlayer *tvplayer;
} GstPlayerWindowTagFound;

/*
static gboolean idle_state (gpointer data);
*/
static gboolean bus_call (GstBus * bus, GstMessage * msg, gpointer data);

static void mmyth_tvplayer_class_init          (MMythTVPlayerClass *klass);
static void mmyth_tvplayer_init                (MMythTVPlayer *object);

static void mmyth_tvplayer_dispose  (GObject *object);
static void mmyth_tvplayer_finalize (GObject *object);

G_DEFINE_TYPE(MMythTVPlayer, mmyth_tvplayer, G_TYPE_OBJECT)

static gboolean mmyth_tvplayer_create_pipeline (MMythTVPlayer* tvplayer);
static void     new_pad_cb (GstElement *element, 
                            GstPad *pad, gpointer data);

static gboolean expose_cb (GtkWidget * widget, 
                           GdkEventExpose * event, 
                           gpointer user_data);

static void
mmyth_tvplayer_class_init (MMythTVPlayerClass *klass)
{
	GObjectClass *gobject_class;

    gobject_class = (GObjectClass *) klass;
	
    gobject_class->dispose  = mmyth_tvplayer_dispose;
    gobject_class->finalize = mmyth_tvplayer_finalize;	
}

static void
new_pad_cb (GstElement *element, GstPad *pad, gpointer data)
{
	MMythTVPlayer *tvplayer = MMYTH_TVPLAYER (data);
	GstPadLinkReturn ret;
	char *s;
	
	s = gst_caps_to_string (pad->caps);

	if ( s[0] == 'a') {
		ret = gst_pad_link (pad, gst_element_get_pad (tvplayer->audioqueue1, "sink"));
	} else {
		ret = gst_pad_link (pad, gst_element_get_pad (tvplayer->videoqueue1, "sink")); 
	}
	
	g_free(s);
}

static gboolean
expose_cb (GtkWidget * widget, GdkEventExpose * event, gpointer user_data)
{
	MMythTVPlayer *tvplayer = MMYTH_TVPLAYER (user_data);

	if (tvplayer && tvplayer->videow) {
		gst_x_overlay_set_xwindow_id (GST_X_OVERLAY (tvplayer->gst_videosink),
				GDK_WINDOW_XWINDOW (widget->window));
		return TRUE;
	}

	g_warning ("MMythTVPlayer expose called before setting video window\n");

	return FALSE;
}

static void
mmyth_tvplayer_init (MMythTVPlayer *tvplayer)
{
	tvplayer->gst_pipeline = NULL;
	tvplayer->gst_source = NULL;
	tvplayer->gst_videodec = NULL;
	tvplayer->gst_videosink = NULL;
	tvplayer->gst_videocolortrs = NULL;
	tvplayer->videoqueue1 = NULL;
	tvplayer->videoqueue2 = NULL;
	tvplayer->audioqueue1 = NULL;
	tvplayer->audioqueue2 = NULL;   

	/* GTKWidget for rendering the video */
	tvplayer->videow = NULL;
	tvplayer->expose_handler = 0;

	tvplayer->backend_hostname = NULL;
	tvplayer->backend_port = 0;
	tvplayer->local_hostname = NULL;

	tvplayer->recorder = NULL;
	tvplayer->tvchain = NULL;
	tvplayer->proginfo = NULL;
}

static void
mmyth_tvplayer_dispose (GObject *object)
{

	G_OBJECT_CLASS (mmyth_tvplayer_parent_class)->dispose (object);
}

static void
mmyth_tvplayer_finalize (GObject *object)
{
	g_signal_handlers_destroy (object);

	MMythTVPlayer *tvplayer = MMYTH_TVPLAYER (object);

	g_debug ("[%s] Finalizing tvplayer", __FUNCTION__);
	
	if (tvplayer->videow != NULL) {
		if (g_signal_handler_is_connected (tvplayer->videow, 
						tvplayer->expose_handler)) {
			g_signal_handler_disconnect (tvplayer->videow,
				tvplayer->expose_handler);
		}
		g_object_unref (tvplayer->videow);
	}
	
	if ( tvplayer->recorder != NULL )
		g_object_unref (tvplayer->recorder);
	if ( tvplayer->tvchain != NULL )
		g_object_unref (tvplayer->tvchain);
	if ( tvplayer->proginfo != NULL )
		g_object_unref (tvplayer->proginfo);	

	// Release Gstreamer elements
	if ( tvplayer->gst_pipeline != NULL )
		g_object_unref (tvplayer->gst_pipeline);	
	if ( tvplayer->gst_source != NULL )
		g_object_unref (tvplayer->gst_source);	
	if ( tvplayer->gst_videodec != NULL )
		g_object_unref (tvplayer->gst_videodec);	
	if ( tvplayer->gst_videocolortrs != NULL )
		g_object_unref (tvplayer->gst_videocolortrs);
	if ( tvplayer->gst_videosink != NULL )
		g_object_unref (tvplayer->gst_videosink);	
	if ( tvplayer->videoqueue1 != NULL )
		g_object_unref (tvplayer->videoqueue1);
	if ( tvplayer->videoqueue2 != NULL )
		g_object_unref (tvplayer->videoqueue2);
	if ( tvplayer->audioqueue1 != NULL )
		g_object_unref (tvplayer->audioqueue1);	
	if ( tvplayer->audioqueue2 != NULL )
		g_object_unref (tvplayer->audioqueue2);	

	G_OBJECT_CLASS (mmyth_tvplayer_parent_class)->finalize (object);
}

/** Creates a new instance of MMythTVPlayer. 
 * 
 * @return a new instance of MMythTVPlayer.
 */
MMythTVPlayer *
mmyth_tvplayer_new ()
{
    MMythTVPlayer *tvplayer = 
        MMYTH_TVPLAYER (g_object_new(MMYTH_TVPLAYER_TYPE, NULL));
    
    return tvplayer;
}

/** Initializes the tv player.
 *
 * @param tvplayer the object instance.
 * @return gboolean TRUE if the pipeline was created 
 * successfully, FALSE otherwise.
 */
gboolean
mmyth_tvplayer_initialize (MMythTVPlayer *tvplayer)
{
	
    if (!mmyth_tvplayer_create_pipeline (tvplayer)) {
    	g_warning ("[%s] Error while creating pipeline. TV Player not initialized", __FUNCTION__);
		return FALSE;
	} else {
		g_debug ("[%s] GStreamer pipeline created", __FUNCTION__);	
    }

	return TRUE;
}

/** Creates the GStreamer pipeline used by the player.
 *
 * @param tvplayer the object instance.
 * @return gboolean TRUE if the pipeline was created 
 * successfully, FALSE otherwise.
 */
static gboolean
mmyth_tvplayer_create_pipeline (MMythTVPlayer* tvplayer)
{
    GstElement *pipeline;
    GstElement *source, *parser;
    GstElement *videodec, *videosink;
    GstElement *videocolortrs;
#ifndef MAEMO_PLATFORM    
    GstElement *audiodec, *audioconv;
#endif
    GstElement *audiosink;
    GstElement *videoqueue1, *videoqueue2, *audioqueue1, *audioqueue2;

    g_debug ("MMythTVPlayer: Setting the Gstreamer pipeline\n");
	
    pipeline = gst_pipeline_new ("video-player");
    source = gst_element_factory_make ("mythtvsrc", "myth-source");
    parser = gst_element_factory_make ("nuvdemux", "nuv-demux");

    /* Gstreamer Video elements */
    videoqueue1 = gst_element_factory_make ("queue", "video-queue1");
    videodec = gst_element_factory_make ("ffdec_mpeg4", "video-decoder");
    videoqueue2 = gst_element_factory_make ("queue", "video-queue2");
    videocolortrs = gst_element_factory_make ("ffmpegcolorspace", "image-color-transforms");

#ifdef MAEMO_PLATFORM
    videosink = gst_element_factory_make ("sdlvideosink", "image-output");
#else
    videosink = gst_element_factory_make ("xvimagesink", "image-output");
#endif
    
    /* Gstreamer Audio elements */
    audioqueue1 = gst_element_factory_make ("queue", "audio-queue1");    
    audioqueue2 = gst_element_factory_make ("queue", "audio-queue2");
#ifdef MAEMO_PLATFORM    
    audiosink = gst_element_factory_make ("dspmp3sink", "audio-output");
#else    
    audiodec = gst_element_factory_make ("mad", "audio-decoder");
    audioconv = gst_element_factory_make ("audioconvert", "audio-converter");
    audiosink = gst_element_factory_make ("alsasink", "audio-output");
#endif    
    
    if (!(pipeline && source && parser && videodec && videosink) ||
    	!(videoqueue1 && videoqueue2 && audioqueue1 && audioqueue2 && audiosink)) {
        /* FIXME: hanlde the error correctly */
        /* video_alignment is not being created (below) 
           and is causing problems to the ui */

	    tvplayer->gst_pipeline = NULL;
	    tvplayer->gst_videodec = NULL;
	    tvplayer->gst_videosink = NULL;
	    tvplayer->gst_videocolortrs = NULL;
           
        g_warning ("GstElement creation error!\n");
        return FALSE;
    }

#ifndef MAEMO_PLATFORM    
    if (!(audiodec && audioconv)) {
        g_warning ("GstElement for audio stream creation error!");
        return FALSE;
    }
#endif    
    
    tvplayer->gst_pipeline = pipeline;
    tvplayer->gst_source = source;
    tvplayer->gst_videodec = videodec;
    tvplayer->gst_videosink = videosink;
    tvplayer->gst_videocolortrs = videocolortrs;
    g_object_ref (tvplayer->gst_pipeline);
    g_object_ref (tvplayer->gst_source);
    g_object_ref (tvplayer->gst_videodec);
    g_object_ref (tvplayer->gst_videosink);
    g_object_ref (tvplayer->gst_videocolortrs);

    tvplayer->videoqueue1 = videoqueue1;
    tvplayer->videoqueue2 = videoqueue2;
    tvplayer->audioqueue1 = audioqueue1;
    tvplayer->audioqueue2 = audioqueue2;
    g_object_ref (tvplayer->videoqueue1);
    g_object_ref (tvplayer->videoqueue2);
    g_object_ref (tvplayer->audioqueue1);
    g_object_ref (tvplayer->audioqueue2);
  	
    g_object_set (G_OBJECT (videosink), "sync", TRUE, NULL);
    g_object_set (G_OBJECT (audiosink), "sync", FALSE, NULL);

    gst_bus_add_watch (gst_pipeline_get_bus (GST_PIPELINE (tvplayer->gst_pipeline)),
                       bus_call, tvplayer);

    gst_bin_add_many (GST_BIN (pipeline), source, parser, videoqueue1,
    			videodec, videoqueue2, videocolortrs, videosink, audioqueue1, 
			audiodec, audioconv, audioqueue2, audiosink, NULL);

    {
//        GstCaps *rtpcaps = gst_caps_new_simple ("application/x-rtp", NULL);
//        gst_element_link_filtered(source, parser, rtpcaps);
    }
    
    gst_element_link (source, parser);
    gst_element_link_many (videoqueue1, videodec, videoqueue2, videocolortrs, videosink, NULL);
    gst_element_link_many (audioqueue1, audiodec, audioconv, audioqueue2, audiosink, NULL);
    
    g_signal_connect (parser, "pad-added", G_CALLBACK (new_pad_cb), tvplayer);
    
    return TRUE;
}

/** Configures the backend and the tv player 
 * for playing the recorded content A/V.
 *
 * FIXME: Change filename to program info or other structure about the recorded
 *
 * @param tvplayer the object instance.
 * @param filename the file uri of the recorded content to be played.
 * @return TRUE if successfull, FALSE if any error happens.
 */
gboolean
mmyth_tvplayer_record_setup (MMythTVPlayer *tvplayer, gchar *filename)
{
	GMythSettings *msettings = gmyth_context_get_settings();
	
	// FIXME: we should receive the uri instead of filename
	GString *hostname = gmyth_settings_get_backend_hostname (msettings);
	int port = gmyth_settings_get_backend_port(msettings);
	
	GString *fullpath = g_string_new ("myth://");
	g_string_append_printf (fullpath, "%s:%d/%s", hostname->str, port, filename);
	
	tvplayer->is_livetv = FALSE;

	g_debug ("[%s] Setting record uri to gstreamer pipeline to %s", __FUNCTION__, fullpath->str);
		
    g_object_set (G_OBJECT (tvplayer->gst_source), "location",
          fullpath->str, NULL);
          
    return TRUE;
}

/** Configures the backend and the tv player 
 * for playing the live tv.
 *
 * @param tvplayer the object instance.
 * @return TRUE if successfull, FALSE if any error happens.
 */
gboolean
mmyth_tvplayer_livetv_setup (MMythTVPlayer *tvplayer)
{
	GMythSettings *msettings = gmyth_context_get_settings ();
	gboolean res = TRUE;

	res = gmyth_context_check_connection();
	if (!res) {
		g_warning ("[%s] LiveTV can not connect to backend", __FUNCTION__);	
		res = FALSE;
		goto error;
	}

	tvplayer->backend_hostname = gmyth_settings_get_backend_hostname(msettings);
	tvplayer->backend_port = gmyth_settings_get_backend_port (msettings);

	tvplayer->local_hostname  = g_string_new("");    
	gmyth_context_get_local_hostname (tvplayer->local_hostname);

	if ( tvplayer->local_hostname == NULL ) {
		res = FALSE;
		goto error;
	}

	// Gets the remote encoder num
	tvplayer->recorder = remote_request_next_free_recorder (-1);

	if ( tvplayer->recorder == NULL ) {
		g_warning ("[%s] None remote encoder available", __FUNCTION__);
		res = FALSE;
		goto error;
	}

	// Creates livetv chain handler
	tvplayer->tvchain = GMYTH_TVCHAIN ( g_object_new(GMYTH_TVCHAIN_TYPE, NULL) );
	gmyth_tvchain_initialize ( tvplayer->tvchain, tvplayer->local_hostname );

	if ( tvplayer->tvchain == NULL || tvplayer->tvchain->tvchain_id == NULL ) {
		res = FALSE;
		goto error;
	}

	// Init remote encoder. Opens its control socket.
	res = gmyth_recorder_setup(tvplayer->recorder);
	if ( !res ) {
		g_warning ("[%s] Fail while setting remote encoder\n", __FUNCTION__);
		res = FALSE;
		goto error;
	}
	// Spawn live tv. Uses the socket to send mythprotocol data to start livetv in the backend (remotelly)
	res = gmyth_recorder_spawntv ( tvplayer->recorder,
			gmyth_tvchain_get_id(tvplayer->tvchain) );
	if (!res) {
		g_warning ("[%s] Fail while spawn tv\n", __FUNCTION__);
		res = FALSE;
		goto error;
	}

	// Reload all TV chain from Mysql database.
	gmyth_tvchain_reload_all (tvplayer->tvchain);

	if ( tvplayer->tvchain == NULL ) {
		res = FALSE;
		goto error;
	}

	// Get program info from database using chanid and starttime
	tvplayer->proginfo = gmyth_tvchain_get_program_at (tvplayer->tvchain, -1);
	if ( tvplayer->proginfo == NULL ) {
		g_warning ("[%s] LiveTV not successfully started.\n", __FUNCTION__ );
		res = FALSE;
		goto error;
	} else {
		g_debug ("[%s] MythLiveTV: All requests to backend to start TV were OK.\n", __FUNCTION__ );
	}

	return res;

error:
	if ( tvplayer->backend_hostname != NULL ) {
		g_string_free( tvplayer->backend_hostname, TRUE );
		res = FALSE;
	}

	if ( tvplayer->local_hostname != NULL ) {
		g_string_free( tvplayer->local_hostname, TRUE );
		res = FALSE;
	}

	if ( tvplayer->recorder != NULL ) {
		g_object_unref (tvplayer->recorder);
		tvplayer->recorder = NULL;
	}

	if ( tvplayer->tvchain != NULL ) {
		g_object_unref (tvplayer->tvchain);
		tvplayer->tvchain = NULL;
	}

	if ( tvplayer->proginfo != NULL ) {
		g_object_unref (tvplayer->proginfo);
		tvplayer->proginfo = NULL;
	}

	return res;

}

/** Sets the GTK video widget for the tv player. 
 *
 * @param tvplayer the object instance.
 * @param videow the GTK video window.
 * @return TRUE if successfull, FALSE if any error happens.
 */
gboolean
mmyth_tvplayer_set_widget (MMythTVPlayer *tvplayer, GtkWidget *videow)
{
	tvplayer->videow = videow;
	g_object_ref (videow);
	
	g_debug ("[%s] Setting widget for tv player render", __FUNCTION__);
	
    tvplayer->expose_handler = g_signal_connect (tvplayer->videow, "expose-event", 
                                                 G_CALLBACK (expose_cb), tvplayer);

    //g_signal_connect(miptv_ui->videow, "size_request", G_CALLBACK(cb_preferred_video_size), miptv_ui);

    return TRUE;
}

static gboolean
bus_call (GstBus * bus, GstMessage * msg, gpointer data)
{
    //MMythTVPlayer *tvplayer = MMYTH_TVPLAYER ( data );
    //GMainLoop *loop = tvplayer->loop;

    switch (GST_MESSAGE_TYPE (msg)) {
        case GST_MESSAGE_EOS:
			printf ("End of stream\n");
            //g_idle_add ((GSourceFunc) idle_eos, data);
            gst_element_set_state ( GST_ELEMENT (GST_MESSAGE_SRC (msg)), GST_STATE_NULL );
	    gst_element_set_locked_state ( GST_ELEMENT (GST_MESSAGE_SRC (msg)), TRUE );
            break;
        case GST_MESSAGE_ERROR:
        {
                gchar *debug;
                GError *err;

                gst_message_parse_error (msg, &err, &debug);
                g_free (debug);

                printf ("Error: %s\n", err->message);
                g_error_free (err);

                //g_main_loop_quit (loop);
        }
            break;
        default:
            printf (gst_message_type_get_name (GST_MESSAGE_TYPE (msg)));
            printf ("\n");
            break;
    }

    return TRUE;
}


#if 0
static gboolean
idle_state (gpointer data)
{
    GstPlayerWindowStateChange *st = data;

    if (st->old_state == GST_STATE_PLAYING) {
        if (st->miptv_ui->idle_id != 0) {
            g_source_remove (st->miptv_ui->idle_id);
            st->miptv_ui->idle_id = 0;
        }
    }
    else if (st->new_state == GST_STATE_PLAYING) {
        if (st->miptv_ui->idle_id != 0)
            g_source_remove (st->miptv_ui->idle_id);

        st->miptv_ui->idle_id = g_idle_add (cb_iterate, st->miptv_ui);
    }

    /* new movie loaded? */
    if (st->old_state == GST_STATE_READY && st->new_state > GST_STATE_READY) {

        /* gboolean have_video = FALSE; */

        gtk_widget_show (st->miptv_ui->videow);

        gtk_window_resize (GTK_WINDOW (st->miptv_ui->main_window), 1, 1);

    }

    /* discarded movie? */
    if (st->old_state > GST_STATE_READY && st->new_state == GST_STATE_READY) {

        if (st->miptv_ui->tagcache) {
            gst_tag_list_free (st->miptv_ui->tagcache);
            st->miptv_ui->tagcache = NULL;
        }
    }

    gst_object_unref (GST_OBJECT (st->play));
    //g_object_unref (G_OBJECT (st->win));
    g_free (st);

    /* once */
    return FALSE;
}

#endif

/** Stops playing the current A/V.
 *
 * FIXME: How to proceed differently between livetv 
 * and recorded content?
 *
 * @param tvplayer the object instance.
 * @return void 
 */
void
mmyth_tvplayer_stop_playing (MMythTVPlayer *tvplayer) 
{
    g_debug ("[%s] Setting gstreamer pipeline state to NULL", __FUNCTION__);

    gst_element_set_state (tvplayer->gst_pipeline, GST_STATE_NULL);
    
    if (tvplayer->is_livetv) {
	    if (!gmyth_recorder_stop_livetv (tvplayer->recorder)) {
	    	g_warning ("[%s] Error while stoping remote encoder", __FUNCTION__);	
	    }
    }
}

/** Queries if the tvplayer is active playing A/V content.
 *
 * @param tvplayer the object instance.
 * @return TRUE if the tvplayer is active, FALSE otherwise.
 */
gboolean
mmyth_tvplayer_is_playing (MMythTVPlayer *tvplayer)
{
	return (GST_STATE (tvplayer->gst_pipeline) == GST_STATE_PLAYING);
}

/** Static function that sets the tvplayer state to PLAYING.
 *
 * @param tvplayer the object instance.
 * @return TRUE if the tvplayer is active, FALSE otherwise.
 */
static gboolean
idle_play (gpointer data)
{
    MMythTVPlayer *tvplayer = MMYTH_TVPLAYER (data);

	g_debug ("MMythTVPlayer: Setting pipeline state to PLAYING\n");

    gst_element_set_state (tvplayer->gst_pipeline, GST_STATE_PLAYING);

    return FALSE;
}

/** Start playing A/V with the tvplayer attributes.
 *
 * @param tvplayer the object instance.
 */
void
mmyth_tvplayer_start_playing (MMythTVPlayer *tvplayer)
{

	// FIXME: Move this to livetv_setup??
	if (tvplayer->is_livetv) {

	#if 0
		if (!tvplayer || !(tvplayer->proginfo) || !(tvplayer->local_hostname)
				|| !(tvplayer->gst_source)) {
			g_warning ("GMythtvPlayer not ready to start playing\n");		
		}

		if (!(tvplayer->proginfo->pathname)) {
			g_warning ("[%s] Playback url is null, could not play the myth content", __FUNCTION__);
			return;
		}

		g_debug ("MMythTVPlayer: Start playing %s", tvplayer->proginfo->pathname->str);
#endif
		g_object_set (G_OBJECT (tvplayer->gst_source), "mythtv-live",
				TRUE, NULL);
#if 0
		if ( tvplayer->tvchain != NULL ) {
			GString *str_chainid = gmyth_tvchain_get_id(tvplayer->tvchain);
			g_print( "[%s]\tCHAIN ID: %s\n", __FUNCTION__, str_chainid->str );

			g_object_set (G_OBJECT (tvplayer->gst_source), "mythtv-live-chainid", 
					g_strdup( str_chainid->str ), NULL);      
			if ( str_chainid!=NULL)
				g_string_free( str_chainid, FALSE );
		}

		if ( tvplayer->recorder != NULL )	
			g_object_set (G_OBJECT (tvplayer->gst_source), "mythtv-live-id",
					tvplayer->recorder->recorder_num, NULL );
		g_debug ("[%s] Setting location to %s", __FUNCTION__, 
				tvplayer->proginfo->pathname->str);

		/* Sets the gstreamer properties acording to the service access address */
		g_object_set (G_OBJECT (tvplayer->gst_source), "location",
				tvplayer->proginfo->pathname->str, NULL);              
#endif
	}

	g_object_set (G_OBJECT (tvplayer->gst_source), "mythtv-version",
              MYTHTV_VERSION_DEFAULT, NULL);

    g_object_set (G_OBJECT (tvplayer->gst_source), "mythtv-debug",
              TRUE, NULL);

    g_idle_add (idle_play, tvplayer);

}