/* Copyright 2009-2012 Myhailo Danylenko
*
* This file is part of mcabber-pep
*
* mcabber-pep 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, see <http://www.gnu.org/licenses/>. */
#include <glib.h>
#include <string.h>
#include <mcabber/commands.h>
#include <mcabber/compl.h>
#include <mcabber/utils.h>
#include <mcabber/screen.h>
#include <mcabber/logprint.h>
#include <mcabber/roster.h>
#include <mcabber/hbuf.h> // HBUF_PREFIX_*
#include <mcabber/hooks.h>
#include <mcabber/modules.h>
#include "pep_tune.h"
#include "config.h"
//
// module description
//
void tune_init (void);
void tune_uninit (void);
#define DESCRIPTION ( TUNE_DESCRIPTION )
static const gchar *deps[] = { "pep_tune", NULL };
module_info_t info_tune = {
.branch = MCABBER_BRANCH,
.api = MCABBER_API_VERSION,
.version = PROJECT_VERSION,
.description = DESCRIPTION,
.requires = deps,
.init = tune_init,
.uninit = tune_uninit,
.next = NULL,
};
//
// globals
//
#ifdef MCABBER_API_HAVE_CMD_ID
static gpointer tune_cmid = NULL;
static gboolean tune_set_safe = FALSE;
#endif
static guint tune_cid = 0;
static guint tune_hid_tunein = 0;
//
// code
//
static void do_tune (char *arg)
{
hk_arg_t tags[] = {
{ "artist", NULL },
{ "length", NULL },
{ "rating", NULL },
{ "source", NULL },
{ "title", NULL },
{ "track", NULL },
{ "uri", NULL },
{ NULL, NULL },
};
if (!*arg) { // request
GError *error = NULL;
pep_tune_request ( CURRENT_JID, &error );
if ( error ) {
scr_log_print ( LPRINT_NORMAL, "Error sending request: %s.", error -> message );
g_error_free ( error );
} else
scr_log_print ( LPRINT_NORMAL, "Request sent." ); // XXX
return;
} else if (arg[0] != '-' || arg[1] != '\0') {
char *p;
char *argstart = NULL;
char *argstop = NULL;
char *tagstart = NULL;
char *tagstop = NULL;
char *wordstart = arg;
gboolean proceed = TRUE;
// pt = p, ws = wordstart, ts = tagstart, tt = tagstop, as = argstart, at = argstop
// tag=value value tag=value
// w p
// s t
// t ta
// s t*
// tag=value value tag=value
// t ta p
// s t* t
// t ta aw
// s ts ts
// tag=value value tag=value
// t ta aw p
// s ts ts t
// t ta aw
// s ts ts
// tag=value value tag=value
// t ta aw p
// s ts ts t
// t ta
// s t*
// tag=value value tag=value
// t ta p
// s t* t
// t ta a
// s ts t
for (p = arg; proceed; ++p) {
switch (*p) {
case '=':
if (tagstart && tagstop - tagstart) {
// process previous args
hk_arg_t *tag;
for (tag = tags; tag->name; ++tag) {
if (!strncmp (tag->name, tagstart, tagstop - tagstart)) {
g_free ( (gchar *) tag->value );
if (argstop - argstart) {
*argstop = '\0';
tag->value = to_utf8 (argstart);
}
break;
}
}
}
tagstart = wordstart;
tagstop = p;
argstop = p+1;
argstart = p+1;
break;
case '\0':
argstop = p;
if (tagstop - tagstart) {
// process previous args
hk_arg_t *tag;
for (tag = tags; tag->name; ++tag) {
if (!strncmp (tag->name, tagstart, tagstop - tagstart)) {
g_free ( (gchar *) tag->value );
if (argstop - argstart)
tag->value = to_utf8 (argstart);
break;
}
}
}
proceed = FALSE;
break;
case ' ':
argstop = p;
wordstart = p+1;
break;
default:
break;
}
}
}
hk_run_handlers ( HOOK_TUNE_OUT, tags );
{
hk_arg_t *tag;
for (tag = tags; tag->name; ++tag)
g_free ( (gchar *) tag->value );
}
}
static guint tune_htih ( const gchar *htype, hk_arg_t *args, gpointer udata )
{
GString *mesg = g_string_new ( NULL );
const gchar *from = NULL;
{
hk_arg_t *arg;
for ( arg = args; arg -> name; arg ++ )
if ( arg -> value ) {
if ( ! strcmp ( arg -> name, "from" ) )
from = arg -> value;
else
g_string_append_printf ( mesg, "\n - %s: %s", arg -> name, arg -> value );
}
}
if (mesg->len)
g_string_prepend (mesg, "Now listens to:");
else
g_string_overwrite (mesg, 0, "Now listening to nothing");
{ // print to buddy's buffer
gchar *jid = jidtodisp ( from );
scr_write_incoming_message ( jid, mesg->str, 0, HBB_PREFIX_INFO|HBB_PREFIX_NOFLAG, 0 ); // NO conversion from utf-8
g_free ( jid );
}
g_string_free ( mesg, TRUE );
return HOOK_HANDLER_RESULT_ALLOW_MORE_HANDLERS;
}
void tune_init(void)
{
#ifdef HAVE_MCABBER_COMPLETION_FLAGS
tune_cid = compl_new_category (COMPL_FLAGS_SORT);
#else
tune_cid = compl_new_category ();
#endif
if (tune_cid) {
compl_add_category_word (tune_cid, "artist=");
compl_add_category_word (tune_cid, "length=");
compl_add_category_word (tune_cid, "rating=");
compl_add_category_word (tune_cid, "source=");
compl_add_category_word (tune_cid, "title=");
compl_add_category_word (tune_cid, "track=");
compl_add_category_word (tune_cid, "uri=");
}
#ifndef MCABBER_API_HAVE_CMD_ID
cmd_add ("tune", "", tune_cid, tune_cid, do_tune, NULL);
#else
tune_cmid = cmd_add ("tune", "", tune_cid, tune_cid, do_tune, NULL);
tune_set_safe = cmd_set_safe ("tune", TRUE);
#endif
tune_hid_tunein = hk_add_handler (tune_htih, HOOK_TUNE_IN, G_PRIORITY_DEFAULT, NULL);
}
void tune_uninit(void)
{
hk_del_handler (HOOK_TUNE_IN, tune_hid_tunein);
#ifndef MCABBER_API_HAVE_CMD_ID
cmd_del ("tune");
#else
if (tune_cmid)
cmd_del (tune_cmid);
if (tune_set_safe)
cmd_set_safe ("tune", FALSE);
#endif
if (tune_cid)
compl_del_category (tune_cid);
}
/* vim: se ts=4 sw=4: */