/*****************************************************************************
 * specific.c: stubs for POSIX OS-specific initialization
 *****************************************************************************
 * Copyright © 2008 Rémi Denis-Courmont
 *
 * 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.1 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 Lesser 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., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
 *****************************************************************************/

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

#include <vlc_common.h>
#include "../libvlc.h"
#include "../lib/libvlc_internal.h"

#ifdef HAVE_DBUS
/* used for one-instance mode */
# include <dbus/dbus.h>
# include <vlc_url.h>
#endif

void system_Init (void)
{
}

static void system_ConfigureDbus(libvlc_int_t *vlc, int argc,
                                 const char *const argv[])
{
/* FIXME: could be replaced by using Unix sockets */
#ifdef HAVE_DBUS
# define MPRIS_APPEND "/org/mpris/MediaPlayer2/TrackList/Append"
# define MPRIS_BUS_NAME "org.mpris.MediaPlayer2.vlc"
# define MPRIS_OBJECT_PATH "/org/mpris/MediaPlayer2"
# define MPRIS_TRACKLIST_INTERFACE "org.mpris.MediaPlayer2.TrackList"

    dbus_threads_init_default();

    if (var_InheritBool(vlc, "dbus"))
        libvlc_InternalAddIntf(vlc, "dbus,none");

    if (!var_InheritBool(vlc, "one-instance")
     && !(var_InheritBool(vlc, "one-instance-when-started-from-file")
       && var_InheritBool(vlc, "started-from-file")))
         return;

    for (int i = 0; i < argc; i++)
        if (argv[i][0] == ':')
        {
            msg_Err(vlc, "item option %s incompatible with single instance",
                    argv[i]);
            return;
        }

    char *name = var_GetString(vlc, "dbus-mpris-name");
    if (name != NULL)
    {
        bool singleton = !strcmp(name, MPRIS_BUS_NAME);
        free(name);
        if (singleton)
        {
            msg_Dbg(vlc, "no running VLC instance - continuing normally...");
            return; /* This is the single instance */
        }
    }

    /* Initialise D-Bus interface, check for other instances */
    DBusError err;
    dbus_error_init(&err);

    /* connect to the session bus */
    DBusConnection *conn = dbus_bus_get(DBUS_BUS_SESSION, &err);
    if (conn == NULL)
    {
        msg_Err(vlc, "D-Bus session bus connection failure: %s",
                 err.message);
        dbus_error_free(&err);
        return;
    }

    msg_Warn(vlc, "running VLC instance - exiting...");

    const dbus_bool_t play = !var_InheritBool(vlc, "playlist-enqueue");

    for (int i = 0; i < argc; i++)
    {
        DBusMessage *req = dbus_message_new_method_call(MPRIS_BUS_NAME,
            MPRIS_OBJECT_PATH, MPRIS_TRACKLIST_INTERFACE, "AddTrack");
        if (unlikely(req == NULL))
            continue;

        /* We need to resolve relative paths in this instance */
        char *mrlbuf = NULL;
        const char *mrl;

        if (strstr(argv[i], "://"))
            mrl = argv[i];
        else
        {
            mrlbuf = vlc_path2uri(argv[i], NULL);
            if (unlikely(mrlbuf == NULL))
            {
                dbus_message_unref(req);
                continue;
            }
            mrl = mrlbuf;
        }

        /* append MRLs */
        msg_Dbg(vlc, "adding track %s to running instance", mrl);

        const char *after_track = MPRIS_APPEND;
        dbus_bool_t ok = dbus_message_append_args(req, DBUS_TYPE_STRING, &mrl,
                                           DBUS_TYPE_OBJECT_PATH, &after_track,
                                           DBUS_TYPE_BOOLEAN, &play,
                                           DBUS_TYPE_INVALID);
        free(mrlbuf);
        if (unlikely(!ok))
        {
             dbus_message_unref(req);
             continue;
        }

        /* send message and get a handle for a reply */
        DBusMessage *reply = dbus_connection_send_with_reply_and_block(conn,
                                                                req, -1, &err);
        dbus_message_unref(req);
        if (reply == NULL)
        {
            msg_Err(vlc, "D-Bus error: %s", err.message);
            dbus_error_free(&err);
            continue;
        }
        dbus_message_unref(reply);
    }

    /* we unreference the connection when we've finished with it */
    dbus_connection_unref(conn);
    exit(0);
#else
    (void) vlc; (void) argc; (void) argv;
#endif // HAVE_DBUS
}

void system_Configure(libvlc_int_t *libvlc,
                      int argc, const char *const argv[])
{
    system_ConfigureDbus(libvlc, argc, argv);
}