summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorSebastien Helleu <flashcode@flashtux.org>2008-01-09 18:26:17 +0100
committerSebastien Helleu <flashcode@flashtux.org>2008-01-09 18:26:17 +0100
commit9f2fc59569d03d660e2108e21ae5d7b6fb7c1469 (patch)
tree794efb76225b4cc1e5e89f94d0cfc4e4e9fa79fb /src
parentf94b679a4a97365de29bb99ede3b2bc5c44cd93f (diff)
downloadweechat-9f2fc59569d03d660e2108e21ae5d7b6fb7c1469.zip
Partial migration of Perl plugin to new API
Diffstat (limited to 'src')
-rw-r--r--src/core/wee-command.c6
-rw-r--r--src/core/wee-config-file.c40
-rw-r--r--src/core/wee-hook.c42
-rw-r--r--src/core/wee-hook.h5
-rw-r--r--src/core/wee-list.c11
-rw-r--r--src/core/wee-list.h4
-rw-r--r--src/core/weechat.c2
-rw-r--r--src/gui/curses/gui-curses-window.c14
-rw-r--r--src/gui/gtk/gui-gtk-window.c10
-rw-r--r--src/gui/gui-buffer.c36
-rw-r--r--src/gui/gui-completion.c54
-rw-r--r--src/gui/gui-hotlist.c8
-rw-r--r--src/gui/gui-window.c18
-rw-r--r--src/plugins/alias/alias.c4
-rw-r--r--src/plugins/demo/demo.c36
-rw-r--r--src/plugins/irc/irc-channel.c17
-rw-r--r--src/plugins/irc/irc-color.c1
-rw-r--r--src/plugins/irc/irc-command.c1
-rw-r--r--src/plugins/irc/irc-completion.c1
-rw-r--r--src/plugins/irc/irc-config.c1
-rw-r--r--src/plugins/irc/irc-dcc.c11
-rw-r--r--src/plugins/irc/irc-display.c1
-rw-r--r--src/plugins/irc/irc-input.c1
-rw-r--r--src/plugins/irc/irc-mode.c1
-rw-r--r--src/plugins/irc/irc-nick.c7
-rw-r--r--src/plugins/irc/irc-protocol.c1
-rw-r--r--src/plugins/irc/irc-server.c22
-rw-r--r--src/plugins/irc/irc.c30
-rw-r--r--src/plugins/irc/irc.h2
-rw-r--r--src/plugins/logger/logger.c34
-rw-r--r--src/plugins/plugin-infolist.c30
-rw-r--r--src/plugins/plugin.c10
-rw-r--r--src/plugins/scripts/perl/Makefile.am4
-rw-r--r--src/plugins/scripts/perl/perl.c2444
-rw-r--r--src/plugins/scripts/perl/weechat-perl-api.c1865
-rw-r--r--src/plugins/scripts/perl/weechat-perl-api.h29
-rw-r--r--src/plugins/scripts/perl/weechat-perl.c734
-rw-r--r--src/plugins/scripts/perl/weechat-perl.h37
-rw-r--r--src/plugins/scripts/script.c774
-rw-r--r--src/plugins/scripts/script.h154
-rw-r--r--src/plugins/weechat-plugin.h39
41 files changed, 3536 insertions, 3005 deletions
diff --git a/src/core/wee-command.c b/src/core/wee-command.c
index 5c515d161..993b4ea07 100644
--- a/src/core/wee-command.c
+++ b/src/core/wee-command.c
@@ -475,7 +475,8 @@ command_debug (void *data, struct t_gui_buffer *buffer,
}
else
{
- hook_signal_send ("debug", argv_eol[1]);
+ hook_signal_send ("debug",
+ WEECHAT_HOOK_SIGNAL_STRING, argv_eol[1]);
}
}
@@ -1142,6 +1143,7 @@ command_quit (void *data, struct t_gui_buffer *buffer,
(void) argv;
hook_signal_send ("quit",
+ WEECHAT_HOOK_SIGNAL_STRING,
(argc > 1) ?
argv_eol[1] : CONFIG_STRING(config_look_default_msg_quit));
@@ -1186,7 +1188,7 @@ command_reload (void *data, struct t_gui_buffer *buffer,
gui_chat_prefix[GUI_CHAT_PREFIX_ERROR]);
/* tell to plugins to reload their configuration */
- hook_signal_send ("config_reload", NULL);
+ hook_signal_send ("config_reload", WEECHAT_HOOK_SIGNAL_STRING, NULL);
return WEECHAT_RC_OK;
}
diff --git a/src/core/wee-config-file.c b/src/core/wee-config-file.c
index cc5ea3693..ec7b5ce8f 100644
--- a/src/core/wee-config-file.c
+++ b/src/core/wee-config-file.c
@@ -1399,38 +1399,38 @@ config_file_print_log ()
ptr_config_file = ptr_config_file->next_config)
{
log_printf ("");
- log_printf ("[config (addr:0x%X)]", ptr_config_file);
- log_printf (" plugin . . . . . . . . : 0x%X", ptr_config_file->plugin);
+ log_printf ("[config (addr:0x%x)]", ptr_config_file);
+ log_printf (" plugin . . . . . . . . : 0x%x", ptr_config_file->plugin);
log_printf (" filename . . . . . . . : '%s'", ptr_config_file->filename);
- log_printf (" file . . . . . . . . . : 0x%X", ptr_config_file->file);
- log_printf (" sections . . . . . . . : 0x%X", ptr_config_file->sections);
- log_printf (" last_section . . . . . : 0x%X", ptr_config_file->last_section);
- log_printf (" prev_config. . . . . . : 0x%X", ptr_config_file->prev_config);
- log_printf (" next_config. . . . . . : 0x%X", ptr_config_file->next_config);
+ log_printf (" file . . . . . . . . . : 0x%x", ptr_config_file->file);
+ log_printf (" sections . . . . . . . : 0x%x", ptr_config_file->sections);
+ log_printf (" last_section . . . . . : 0x%x", ptr_config_file->last_section);
+ log_printf (" prev_config. . . . . . : 0x%x", ptr_config_file->prev_config);
+ log_printf (" next_config. . . . . . : 0x%x", ptr_config_file->next_config);
for (ptr_section = ptr_config_file->sections; ptr_section;
ptr_section = ptr_section->next_section)
{
log_printf ("");
- log_printf (" [section (addr:0x%X)]", ptr_section);
+ log_printf (" [section (addr:0x%x)]", ptr_section);
log_printf (" name . . . . . . . . . : '%s'", ptr_section->name);
- log_printf (" callback_read. . . . . : 0x%X", ptr_section->callback_read);
- log_printf (" callback_write . . . . : 0x%X", ptr_section->callback_write);
- log_printf (" callback_write_default : 0x%X", ptr_section->callback_write_default);
- log_printf (" options. . . . . . . . : 0x%X", ptr_section->options);
- log_printf (" last_option. . . . . . : 0x%X", ptr_section->last_option);
- log_printf (" prev_section . . . . . : 0x%X", ptr_section->prev_section);
- log_printf (" next_section . . . . . : 0x%X", ptr_section->next_section);
+ log_printf (" callback_read. . . . . : 0x%x", ptr_section->callback_read);
+ log_printf (" callback_write . . . . : 0x%x", ptr_section->callback_write);
+ log_printf (" callback_write_default : 0x%x", ptr_section->callback_write_default);
+ log_printf (" options. . . . . . . . : 0x%x", ptr_section->options);
+ log_printf (" last_option. . . . . . : 0x%x", ptr_section->last_option);
+ log_printf (" prev_section . . . . . : 0x%x", ptr_section->prev_section);
+ log_printf (" next_section . . . . . : 0x%x", ptr_section->next_section);
for (ptr_option = ptr_section->options; ptr_option;
ptr_option = ptr_option->next_option)
{
log_printf ("");
- log_printf (" [option (addr:0x%X)]", ptr_option);
+ log_printf (" [option (addr:0x%x)]", ptr_option);
log_printf (" name . . . . . . . . : '%s'", ptr_option->name);
log_printf (" type . . . . . . . . : %d", ptr_option->type);
log_printf (" description. . . . . : '%s'", ptr_option->description);
- log_printf (" string_values. . . . : 0x%X", ptr_option->string_values);
+ log_printf (" string_values. . . . : 0x%x", ptr_option->string_values);
log_printf (" min. . . . . . . . . : %d", ptr_option->min);
log_printf (" max. . . . . . . . . : %d", ptr_option->max);
switch (ptr_option->type)
@@ -1470,10 +1470,10 @@ config_file_print_log ()
gui_color_get_name (CONFIG_COLOR(ptr_option)));
break;
}
- log_printf (" callback_change. . . : 0x%X", ptr_option->callback_change);
+ log_printf (" callback_change. . . : 0x%x", ptr_option->callback_change);
log_printf (" loaded . . . . . . . : %d", ptr_option->loaded);
- log_printf (" prev_option. . . . . : 0x%X", ptr_option->prev_option);
- log_printf (" next_option. . . . . : 0x%X", ptr_option->next_option);
+ log_printf (" prev_option. . . . . : 0x%x", ptr_option->prev_option);
+ log_printf (" next_option. . . . . : 0x%x", ptr_option->next_option);
}
}
}
diff --git a/src/core/wee-hook.c b/src/core/wee-hook.c
index 0bec00964..02e92de78 100644
--- a/src/core/wee-hook.c
+++ b/src/core/wee-hook.c
@@ -849,7 +849,7 @@ hook_signal (struct t_weechat_plugin *plugin, char *signal,
*/
void
-hook_signal_send (char *signal, void *signal_data)
+hook_signal_send (char *signal, char *type_data, void *signal_data)
{
struct t_hook *ptr_hook, *next_hook;
@@ -867,7 +867,7 @@ hook_signal_send (char *signal, void *signal_data)
{
ptr_hook->running = 1;
(void) (HOOK_SIGNAL(ptr_hook, callback))
- (ptr_hook->callback_data, signal, signal_data);
+ (ptr_hook->callback_data, signal, type_data, signal_data);
ptr_hook->running = 0;
}
@@ -1188,8 +1188,8 @@ hook_print_log ()
ptr_hook = ptr_hook->next_hook)
{
log_printf ("");
- log_printf ("[hook (addr:0x%X)]", ptr_hook);
- log_printf (" plugin . . . . . . . . : 0x%X ('%s')",
+ log_printf ("[hook (addr:0x%x)]", ptr_hook);
+ log_printf (" plugin . . . . . . . . : 0x%x ('%s')",
ptr_hook->plugin,
(ptr_hook->plugin) ? ptr_hook->plugin->name : "");
log_printf (" deleted. . . . . . . . : %d", ptr_hook->deleted);
@@ -1198,11 +1198,11 @@ hook_print_log ()
{
case HOOK_TYPE_COMMAND:
log_printf (" type . . . . . . . . . : %d (command)", ptr_hook->type);
- log_printf (" callback_data. . . . . : 0x%X", ptr_hook->callback_data);
+ log_printf (" callback_data. . . . . : 0x%x", ptr_hook->callback_data);
if (!ptr_hook->deleted)
{
log_printf (" command data:");
- log_printf (" callback . . . . . . : 0x%X", HOOK_COMMAND(ptr_hook, callback));
+ log_printf (" callback . . . . . . : 0x%x", HOOK_COMMAND(ptr_hook, callback));
log_printf (" command. . . . . . . : '%s'", HOOK_COMMAND(ptr_hook, command));
log_printf (" level. . . . . . . . : %d", HOOK_COMMAND(ptr_hook, level));
log_printf (" command_desc . . . . : '%s'", HOOK_COMMAND(ptr_hook, description));
@@ -1213,11 +1213,11 @@ hook_print_log ()
break;
case HOOK_TYPE_TIMER:
log_printf (" type . . . . . . . . . : %d (timer)", ptr_hook->type);
- log_printf (" callback_data. . . . . : 0x%X", ptr_hook->callback_data);
+ log_printf (" callback_data. . . . . : 0x%x", ptr_hook->callback_data);
if (!ptr_hook->deleted)
{
log_printf (" timer data:");
- log_printf (" callback . . . . . . : 0x%X", HOOK_TIMER(ptr_hook, callback));
+ log_printf (" callback . . . . . . : 0x%x", HOOK_TIMER(ptr_hook, callback));
log_printf (" interval . . . . . . : %ld", HOOK_TIMER(ptr_hook, interval));
local_time = localtime (&HOOK_TIMER(ptr_hook, last_exec).tv_sec);
strftime (text_time, sizeof (text_time),
@@ -1237,54 +1237,54 @@ hook_print_log ()
break;
case HOOK_TYPE_FD:
log_printf (" type . . . . . . . . . : %d (fd)", ptr_hook->type);
- log_printf (" callback_data. . . . . : 0x%X", ptr_hook->callback_data);
+ log_printf (" callback_data. . . . . : 0x%x", ptr_hook->callback_data);
if (!ptr_hook->deleted)
{
log_printf (" fd data:");
- log_printf (" callback . . . . . . : 0x%X", HOOK_FD(ptr_hook, callback));
+ log_printf (" callback . . . . . . : 0x%x", HOOK_FD(ptr_hook, callback));
log_printf (" fd . . . . . . . . . : %ld", HOOK_FD(ptr_hook, fd));
log_printf (" flags. . . . . . . . : %ld", HOOK_FD(ptr_hook, flags));
}
break;
case HOOK_TYPE_PRINT:
log_printf (" type . . . . . . . . . : %d (print)", ptr_hook->type);
- log_printf (" callback_data. . . . . : 0x%X", ptr_hook->callback_data);
+ log_printf (" callback_data. . . . . : 0x%x", ptr_hook->callback_data);
if (!ptr_hook->deleted)
{
log_printf (" print data:");
- log_printf (" callback . . . . . . : 0x%X", HOOK_PRINT(ptr_hook, callback));
- log_printf (" buffer . . . . . . . : 0x%X", HOOK_PRINT(ptr_hook, buffer));
+ log_printf (" callback . . . . . . : 0x%x", HOOK_PRINT(ptr_hook, callback));
+ log_printf (" buffer . . . . . . . : 0x%x", HOOK_PRINT(ptr_hook, buffer));
log_printf (" message. . . . . . . : '%s'", HOOK_PRINT(ptr_hook, message));
}
break;
case HOOK_TYPE_SIGNAL:
log_printf (" type . . . . . . . . . : %d (signal)", ptr_hook->type);
- log_printf (" callback_data. . . . . : 0x%X", ptr_hook->callback_data);
+ log_printf (" callback_data. . . . . : 0x%x", ptr_hook->callback_data);
if (!ptr_hook->deleted)
{
log_printf (" signal data:");
- log_printf (" callback . . . . . . : 0x%X", HOOK_SIGNAL(ptr_hook, callback));
+ log_printf (" callback . . . . . . : 0x%x", HOOK_SIGNAL(ptr_hook, callback));
log_printf (" signal . . . . . . . : '%s'", HOOK_SIGNAL(ptr_hook, signal));
}
break;
case HOOK_TYPE_CONFIG:
log_printf (" type . . . . . . . . . : %d (config)", ptr_hook->type);
- log_printf (" callback_data. . . . . : 0x%X", ptr_hook->callback_data);
+ log_printf (" callback_data. . . . . : 0x%x", ptr_hook->callback_data);
if (!ptr_hook->deleted)
{
log_printf (" config data:");
- log_printf (" callback . . . . . . : 0x%X", HOOK_CONFIG(ptr_hook, callback));
+ log_printf (" callback . . . . . . : 0x%x", HOOK_CONFIG(ptr_hook, callback));
log_printf (" type . . . . . . . . : '%s'", HOOK_CONFIG(ptr_hook, type));
log_printf (" option . . . . . . . : '%s'", HOOK_CONFIG(ptr_hook, option));
}
break;
case HOOK_TYPE_COMPLETION:
log_printf (" type . . . . . . . . . : %d (completion)", ptr_hook->type);
- log_printf (" callback_data. . . . . : 0x%X", ptr_hook->callback_data);
+ log_printf (" callback_data. . . . . : 0x%x", ptr_hook->callback_data);
if (!ptr_hook->deleted)
{
log_printf (" completion data:");
- log_printf (" callback . . . . . . : 0x%X", HOOK_COMPLETION(ptr_hook, callback));
+ log_printf (" callback . . . . . . : 0x%x", HOOK_COMPLETION(ptr_hook, callback));
log_printf (" completion . . . . . : '%s'", HOOK_COMPLETION(ptr_hook, completion));
}
break;
@@ -1293,8 +1293,8 @@ hook_print_log ()
it is never used as type */
break;
}
- log_printf (" prev_hook. . . . . . . : 0x%X", ptr_hook->prev_hook);
- log_printf (" next_hook. . . . . . . : 0x%X", ptr_hook->next_hook);
+ log_printf (" prev_hook. . . . . . . : 0x%x", ptr_hook->prev_hook);
+ log_printf (" next_hook. . . . . . . : 0x%x", ptr_hook->next_hook);
}
}
}
diff --git a/src/core/wee-hook.h b/src/core/wee-hook.h
index dfa293b83..0975aef37 100644
--- a/src/core/wee-hook.h
+++ b/src/core/wee-hook.h
@@ -113,7 +113,7 @@ struct t_hook_print
};
typedef int (t_hook_callback_signal)(void *data, char *signal,
- void *signal_data);
+ char *type_data, void *signal_data);
struct t_hook_signal
{
@@ -188,7 +188,8 @@ extern struct t_hook *hook_signal (struct t_weechat_plugin *plugin,
char *signal,
t_hook_callback_signal *callback,
void *callback_data);
-extern void hook_signal_send (char *signal, void *signal_data);
+extern void hook_signal_send (char *signal, char *type_data,
+ void *signal_data);
extern struct t_hook *hook_config (struct t_weechat_plugin *, char *type,
char *option,
t_hook_callback_config *callback,
diff --git a/src/core/wee-list.c b/src/core/wee-list.c
index c92fcdac8..8f5e23262 100644
--- a/src/core/wee-list.c
+++ b/src/core/wee-list.c
@@ -30,6 +30,7 @@
#include "wee-list.h"
#include "wee-log.h"
#include "wee-string.h"
+#include "../plugins/weechat-plugin.h"
/*
@@ -97,9 +98,9 @@ weelist_insert (struct t_weelist *weelist, struct t_weelist_item *item,
{
/* search position for new element, according to pos asked */
pos_item = NULL;
- if (string_strcasecmp (where, WEELIST_POS_BEGINNING) == 0)
+ if (string_strcasecmp (where, WEECHAT_LIST_POS_BEGINNING) == 0)
pos_item = weelist->items;
- else if (string_strcasecmp (where, WEELIST_POS_END) == 0)
+ else if (string_strcasecmp (where, WEECHAT_LIST_POS_END) == 0)
pos_item = NULL;
else
pos_item = weelist_find_pos (weelist, item->data);
@@ -353,13 +354,13 @@ weelist_print_log (struct t_weelist *weelist, char *name)
{
struct t_weelist_item *ptr_item;
- log_printf ("[%s (addr:0x%X)]", name, weelist);
+ log_printf ("[%s (addr:0x%x)]", name, weelist);
for (ptr_item = weelist->items; ptr_item;
ptr_item = ptr_item->next_item)
{
log_printf (" data . . . . . . . . . : '%s'", ptr_item->data);
- log_printf (" prev_item. . . . . . . : 0x%X", ptr_item->prev_item);
- log_printf (" next_item. . . . . . . : 0x%X", ptr_item->next_item);
+ log_printf (" prev_item. . . . . . . : 0x%x", ptr_item->prev_item);
+ log_printf (" next_item. . . . . . . : 0x%x", ptr_item->next_item);
}
}
diff --git a/src/core/wee-list.h b/src/core/wee-list.h
index 857bdeadd..3562217fe 100644
--- a/src/core/wee-list.h
+++ b/src/core/wee-list.h
@@ -20,10 +20,6 @@
#ifndef __WEECHAT_LIST_H
#define __WEECHAT_LIST_H 1
-#define WEELIST_POS_SORT "sort"
-#define WEELIST_POS_BEGINNING "beginning"
-#define WEELIST_POS_END "end"
-
struct t_weelist_item
{
char *data; /* item data */
diff --git a/src/core/weechat.c b/src/core/weechat.c
index d2119745b..d2121a71a 100644
--- a/src/core/weechat.c
+++ b/src/core/weechat.c
@@ -521,7 +521,7 @@ weechat_dump (int crash)
plugin_print_log ();
- hook_signal_send ("dump_data", NULL);
+ hook_signal_send ("dump_data", WEECHAT_HOOK_SIGNAL_STRING, NULL);
log_printf ("");
log_printf ("****** End of WeeChat dump ******");
diff --git a/src/gui/curses/gui-curses-window.c b/src/gui/curses/gui-curses-window.c
index 951de91db..3742a857f 100644
--- a/src/gui/curses/gui-curses-window.c
+++ b/src/gui/curses/gui-curses-window.c
@@ -1426,11 +1426,11 @@ gui_window_title_reset ()
void
gui_window_objects_print_log (struct t_gui_window *window)
{
- log_printf (" win_title . . . . . : 0x%X", GUI_CURSES(window)->win_title);
- log_printf (" win_chat. . . . . . : 0x%X", GUI_CURSES(window)->win_chat);
- log_printf (" win_nick. . . . . . : 0x%X", GUI_CURSES(window)->win_nick);
- log_printf (" win_status. . . . . : 0x%X", GUI_CURSES(window)->win_status);
- log_printf (" win_infobar . . . . : 0x%X", GUI_CURSES(window)->win_infobar);
- log_printf (" win_input . . . . . : 0x%X", GUI_CURSES(window)->win_input);
- log_printf (" win_separator . . . : 0x%X", GUI_CURSES(window)->win_separator);
+ log_printf (" win_title . . . . . : 0x%x", GUI_CURSES(window)->win_title);
+ log_printf (" win_chat. . . . . . : 0x%x", GUI_CURSES(window)->win_chat);
+ log_printf (" win_nick. . . . . . : 0x%x", GUI_CURSES(window)->win_nick);
+ log_printf (" win_status. . . . . : 0x%x", GUI_CURSES(window)->win_status);
+ log_printf (" win_infobar . . . . : 0x%x", GUI_CURSES(window)->win_infobar);
+ log_printf (" win_input . . . . . : 0x%x", GUI_CURSES(window)->win_input);
+ log_printf (" win_separator . . . : 0x%x", GUI_CURSES(window)->win_separator);
}
diff --git a/src/gui/gtk/gui-gtk-window.c b/src/gui/gtk/gui-gtk-window.c
index f59021ba2..12526333c 100644
--- a/src/gui/gtk/gui-gtk-window.c
+++ b/src/gui/gtk/gui-gtk-window.c
@@ -919,9 +919,9 @@ gui_window_title_reset ()
void
gui_window_objects_print_log (struct t_gui_window *window)
{
- log_printf (" textview_chat . . . : 0x%X", GUI_GTK(window)->textview_chat);
- log_printf (" textbuffer_chat . . : 0x%X", GUI_GTK(window)->textbuffer_chat);
- log_printf (" texttag_chat. . . . : 0x%X", GUI_GTK(window)->texttag_chat);
- log_printf (" textview_nicklist . : 0x%X", GUI_GTK(window)->textview_nicklist);
- log_printf (" textbuffer_nicklist : 0x%X", GUI_GTK(window)->textbuffer_nicklist);
+ log_printf (" textview_chat . . . : 0x%x", GUI_GTK(window)->textview_chat);
+ log_printf (" textbuffer_chat . . : 0x%x", GUI_GTK(window)->textbuffer_chat);
+ log_printf (" texttag_chat. . . . : 0x%x", GUI_GTK(window)->texttag_chat);
+ log_printf (" textview_nicklist . : 0x%x", GUI_GTK(window)->textview_nicklist);
+ log_printf (" textbuffer_nicklist : 0x%x", GUI_GTK(window)->textbuffer_nicklist);
}
diff --git a/src/gui/gui-buffer.c b/src/gui/gui-buffer.c
index 4423c67bb..444bf3f46 100644
--- a/src/gui/gui-buffer.c
+++ b/src/gui/gui-buffer.c
@@ -178,7 +178,8 @@ gui_buffer_new (struct t_weechat_plugin *plugin, char *category, char *name,
gui_window_redraw_buffer (new_buffer);
}
- hook_signal_send ("buffer_open", new_buffer);
+ hook_signal_send ("buffer_open",
+ WEECHAT_HOOK_SIGNAL_POINTER, new_buffer);
}
else
return NULL;
@@ -619,7 +620,8 @@ gui_buffer_close (struct t_gui_buffer *buffer, int switch_to_another)
struct t_gui_buffer *ptr_buffer;
struct t_gui_line *ptr_line;
- hook_signal_send ("buffer_close", buffer);
+ hook_signal_send ("buffer_close",
+ WEECHAT_HOOK_SIGNAL_POINTER, buffer);
if (switch_to_another)
{
@@ -942,7 +944,7 @@ gui_buffer_dump_hexa (struct t_gui_buffer *buffer)
char hexa[(16 * 3) + 1], ascii[(16 * 2) + 1];
int hexa_pos, ascii_pos;
- log_printf ("[buffer dump hexa (addr:0x%X)]", buffer);
+ log_printf ("[buffer dump hexa (addr:0x%x)]", buffer);
num_line = 1;
for (ptr_line = buffer->lines; ptr_line; ptr_line = ptr_line->next_line)
{
@@ -1007,8 +1009,8 @@ gui_buffer_print_log ()
ptr_buffer = ptr_buffer->next_buffer)
{
log_printf ("");
- log_printf ("[buffer (addr:0x%X)]", ptr_buffer);
- log_printf (" plugin . . . . . . . . : 0x%X", ptr_buffer->plugin);
+ log_printf ("[buffer (addr:0x%x)]", ptr_buffer);
+ log_printf (" plugin . . . . . . . . : 0x%x", ptr_buffer->plugin);
log_printf (" number . . . . . . . . : %d", ptr_buffer->number);
log_printf (" category . . . . . . . : '%s'", ptr_buffer->category);
log_printf (" name . . . . . . . . . : '%s'", ptr_buffer->name);
@@ -1016,21 +1018,21 @@ gui_buffer_print_log ()
log_printf (" notify_level . . . . . : %d", ptr_buffer->notify_level);
log_printf (" num_displayed. . . . . : %d", ptr_buffer->num_displayed);
log_printf (" title. . . . . . . . . : '%s'", ptr_buffer->title);
- log_printf (" lines. . . . . . . . . : 0x%X", ptr_buffer->lines);
- log_printf (" last_line. . . . . . . : 0x%X", ptr_buffer->last_line);
- log_printf (" last_read_line . . . . : 0x%X", ptr_buffer->last_read_line);
+ log_printf (" lines. . . . . . . . . : 0x%x", ptr_buffer->lines);
+ log_printf (" last_line. . . . . . . : 0x%x", ptr_buffer->last_line);
+ log_printf (" last_read_line . . . . : 0x%x", ptr_buffer->last_read_line);
log_printf (" lines_count. . . . . . : %d", ptr_buffer->lines_count);
log_printf (" prefix_max_length. . . : %d", ptr_buffer->prefix_max_length);
log_printf (" chat_refresh_needed. . : %d", ptr_buffer->chat_refresh_needed);
log_printf (" nicklist . . . . . . . : %d", ptr_buffer->nicklist);
log_printf (" nicklist_case_sensitive: %d", ptr_buffer->nicklist_case_sensitive);
- log_printf (" nicklist_root. . . . . : 0x%X", ptr_buffer->nicklist_root);
+ log_printf (" nicklist_root. . . . . : 0x%x", ptr_buffer->nicklist_root);
log_printf (" nicklist_max_length. . : %d", ptr_buffer->nicklist_max_length);
log_printf (" nicklist_display_groups: %d", ptr_buffer->nicklist_display_groups);
log_printf (" nicklist_visible_count.: %d", ptr_buffer->nicklist_visible_count);
log_printf (" nicklist_refresh_needed: %d", ptr_buffer->nicklist_refresh_needed);
log_printf (" input. . . . . . . . . : %d", ptr_buffer->input);
- log_printf (" input_data_cb. . . . . : 0x%X", ptr_buffer->input_data_cb);
+ log_printf (" input_data_cb. . . . . : 0x%x", ptr_buffer->input_data_cb);
log_printf (" input_nick . . . . . . : '%s'", ptr_buffer->input_nick);
log_printf (" input_buffer . . . . . : '%s'", ptr_buffer->input_buffer);
log_printf (" input_buffer_color_mask: '%s'", ptr_buffer->input_buffer_color_mask);
@@ -1039,20 +1041,20 @@ gui_buffer_print_log ()
log_printf (" input_buffer_length. . : %d", ptr_buffer->input_buffer_length);
log_printf (" input_buffer_pos . . . : %d", ptr_buffer->input_buffer_pos);
log_printf (" input_buffer_1st_disp. : %d", ptr_buffer->input_buffer_1st_display);
- log_printf (" completion . . . . . . : 0x%X", ptr_buffer->completion);
- log_printf (" history. . . . . . . . : 0x%X", ptr_buffer->history);
- log_printf (" last_history . . . . . : 0x%X", ptr_buffer->last_history);
- log_printf (" ptr_history. . . . . . : 0x%X", ptr_buffer->ptr_history);
+ log_printf (" completion . . . . . . : 0x%x", ptr_buffer->completion);
+ log_printf (" history. . . . . . . . : 0x%x", ptr_buffer->history);
+ log_printf (" last_history . . . . . : 0x%x", ptr_buffer->last_history);
+ log_printf (" ptr_history. . . . . . : 0x%x", ptr_buffer->ptr_history);
log_printf (" num_history. . . . . . : %d", ptr_buffer->num_history);
log_printf (" text_search. . . . . . : %d", ptr_buffer->text_search);
log_printf (" text_search_exact. . . : %d", ptr_buffer->text_search_exact);
log_printf (" text_search_found. . . : %d", ptr_buffer->text_search_found);
log_printf (" text_search_input. . . : '%s'", ptr_buffer->text_search_input);
- log_printf (" prev_buffer. . . . . . : 0x%X", ptr_buffer->prev_buffer);
- log_printf (" next_buffer. . . . . . : 0x%X", ptr_buffer->next_buffer);
+ log_printf (" prev_buffer. . . . . . : 0x%x", ptr_buffer->prev_buffer);
+ log_printf (" next_buffer. . . . . . : 0x%x", ptr_buffer->next_buffer);
log_printf ("");
- log_printf (" => nicklist_root (addr:0x%X):", ptr_buffer->nicklist_root);
+ log_printf (" => nicklist_root (addr:0x%x):", ptr_buffer->nicklist_root);
gui_nicklist_print_log (ptr_buffer->nicklist_root, 0);
log_printf ("");
diff --git a/src/gui/gui-completion.c b/src/gui/gui-completion.c
index bef3970c7..fde152aef 100644
--- a/src/gui/gui-completion.c
+++ b/src/gui/gui-completion.c
@@ -256,7 +256,7 @@ gui_completion_list_add_buffers_names (struct t_gui_completion *completion)
ptr_buffer = ptr_buffer->next_buffer)
{
gui_completion_list_add (completion, ptr_buffer->name,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
@@ -274,7 +274,7 @@ gui_completion_list_add_buffers_categories (struct t_gui_completion *completion)
ptr_buffer = ptr_buffer->next_buffer)
{
gui_completion_list_add (completion, ptr_buffer->category,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
@@ -359,7 +359,7 @@ gui_completion_list_add_filename (struct t_gui_completion *completion)
S_ISDIR(statbuf.st_mode) ? DIR_SEPARATOR : "");
gui_completion_list_add (completion, buffer,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
}
@@ -389,7 +389,7 @@ gui_completion_list_add_command_hooks (struct t_gui_completion *completion)
&& (HOOK_COMMAND(ptr_hook, command)[0]))
gui_completion_list_add (completion,
HOOK_COMMAND(ptr_hook, command),
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
@@ -406,7 +406,7 @@ gui_completion_list_add_key_cmd (struct t_gui_completion *completion)
for (i = 0; gui_key_functions[i].function_name; i++)
{
gui_completion_list_add (completion, gui_key_functions[i].function_name,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
@@ -420,7 +420,7 @@ gui_completion_list_add_self_nick (struct t_gui_completion *completion)
if (completion->buffer->input_nick)
gui_completion_list_add (completion,
completion->buffer->input_nick,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
/*
@@ -441,7 +441,7 @@ gui_completion_list_add_option (struct t_gui_completion *completion)
{
gui_completion_list_add (completion,
ptr_option->name,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
}
@@ -459,7 +459,7 @@ gui_completion_list_add_plugin_option (struct t_gui_completion *completion)
ptr_option = ptr_option->next_option)
{
gui_completion_list_add (completion, ptr_option->name,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
@@ -476,7 +476,7 @@ gui_completion_list_add_plugin (struct t_gui_completion *completion)
ptr_plugin = ptr_plugin->next_plugin)
{
gui_completion_list_add (completion, ptr_plugin->name,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
@@ -491,7 +491,7 @@ gui_completion_list_add_quit (struct t_gui_completion *completion)
&& CONFIG_STRING(config_look_default_msg_quit)[0])
gui_completion_list_add (completion,
CONFIG_STRING(config_look_default_msg_quit),
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
/*
@@ -519,10 +519,10 @@ gui_completion_list_add_option_value (struct t_gui_completion *completion)
case CONFIG_OPTION_BOOLEAN:
if (CONFIG_BOOLEAN(ptr_option) == CONFIG_BOOLEAN_TRUE)
gui_completion_list_add (completion, "on",
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
else
gui_completion_list_add (completion, "off",
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
break;
case CONFIG_OPTION_INTEGER:
if (ptr_option->string_values)
@@ -533,21 +533,21 @@ gui_completion_list_add_option_value (struct t_gui_completion *completion)
snprintf (option_string, sizeof (option_string) - 1,
"%d", CONFIG_INTEGER(ptr_option));
gui_completion_list_add (completion, option_string,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
break;
case CONFIG_OPTION_STRING:
snprintf (option_string, sizeof (option_string) - 1,
"\"%s\"",
CONFIG_STRING(ptr_option));
gui_completion_list_add (completion, option_string,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
break;
case CONFIG_OPTION_COLOR:
color_name = gui_color_get_name (CONFIG_INTEGER(ptr_option));
if (color_name)
gui_completion_list_add (completion,
color_name,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
break;
}
}
@@ -575,7 +575,7 @@ gui_completion_list_add_plugin_option_value (struct t_gui_completion *completion
ptr_option = plugin_config_search_internal (completion->args);
if (ptr_option)
gui_completion_list_add (completion, ptr_option->value,
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
if (pos)
pos[0] = ' ';
@@ -601,7 +601,7 @@ gui_completion_list_add_weechat_cmd (struct t_gui_completion *completion)
{
gui_completion_list_add (completion,
HOOK_COMMAND(ptr_hook, command),
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
}
@@ -647,7 +647,7 @@ gui_completion_build_list_template (struct t_gui_completion *completion,
{
word[word_offset] = '\0';
weelist_add (completion->completion_list,
- word, WEELIST_POS_SORT);
+ word, WEECHAT_LIST_POS_SORT);
}
word_offset = 0;
break;
@@ -948,7 +948,7 @@ gui_completion_command (struct t_gui_completion *completion)
{
gui_completion_list_add (completion,
HOOK_COMMAND(ptr_hook, command),
- 0, WEELIST_POS_SORT);
+ 0, WEECHAT_LIST_POS_SORT);
}
}
}
@@ -1108,10 +1108,10 @@ gui_completion_nick (struct t_gui_completion *completion)
{
weelist_add (completion->completion_list,
((t_irc_channel *)(completion->channel))->name,
- WEELIST_POS_SORT);
+ WEECHAT_LIST_POS_SORT);
weelist_add (completion->completion_list,
((t_irc_server *)(completion->server))->nick,
- WEELIST_POS_SORT);
+ WEECHAT_LIST_POS_SORT);
}
gui_completion_command_arg (completion, 1);
return;
@@ -1135,7 +1135,7 @@ gui_completion_nick (struct t_gui_completion *completion)
{
weelist_add (completion->completion_list,
ptr_nick->nick,
- WEELIST_POS_SORT);
+ WEECHAT_LIST_POS_SORT);
}
// add nicks speaking recently on this channel
@@ -1148,7 +1148,7 @@ gui_completion_nick (struct t_gui_completion *completion)
ptr_item->data))
weelist_add (completion->completion_list,
ptr_item->data,
- WEELIST_POS_BEGINNING);
+ WEECHAT_LIST_POS_BEGINNING);
}
}
@@ -1156,7 +1156,7 @@ gui_completion_nick (struct t_gui_completion *completion)
if (completion->server)
weelist_add (completion->completion_list,
((t_irc_server *)(completion->server))->nick,
- WEELIST_POS_END);
+ WEECHAT_LIST_POS_END);
((t_irc_channel *)(completion->channel))->nick_completion_reset = 0;
}
@@ -1343,8 +1343,8 @@ gui_completion_search (struct t_gui_completion *completion, int direction,
void
gui_completion_print_log (struct t_gui_completion *completion)
{
- log_printf ("[completion (addr:0x%X)]", completion);
- log_printf (" buffer . . . . . . . . : 0x%X", completion->buffer);
+ log_printf ("[completion (addr:0x%x)]", completion);
+ log_printf (" buffer . . . . . . . . : 0x%x", completion->buffer);
log_printf (" context. . . . . . . . : %d", completion->context);
log_printf (" base_command . . . . . : '%s'", completion->base_command);
log_printf (" base_command_arg . . . : %d", completion->base_command_arg);
@@ -1355,7 +1355,7 @@ gui_completion_print_log (struct t_gui_completion *completion)
log_printf (" args . . . . . . . . . : '%s'", completion->args);
log_printf (" direction. . . . . . . : %d", completion->direction);
log_printf (" add_space. . . . . . . : %d", completion->add_space);
- log_printf (" completion_list. . . . : 0x%X", completion->completion_list);
+ log_printf (" completion_list. . . . : 0x%x", completion->completion_list);
log_printf (" word_found . . . . . . : '%s'", completion->word_found);
log_printf (" position_replace . . . : %d", completion->position_replace);
log_printf (" diff_size. . . . . . . : %d", completion->diff_size);
diff --git a/src/gui/gui-hotlist.c b/src/gui/gui-hotlist.c
index 5843236e2..a24adec88 100644
--- a/src/gui/gui-hotlist.c
+++ b/src/gui/gui-hotlist.c
@@ -355,13 +355,13 @@ gui_hotlist_print_log ()
for (ptr_hotlist = gui_hotlist; ptr_hotlist;
ptr_hotlist = ptr_hotlist->next_hotlist)
{
- log_printf ("[hotlist (addr:0x%X)]", ptr_hotlist);
+ log_printf ("[hotlist (addr:0x%x)]", ptr_hotlist);
log_printf (" priority . . . . . . . : %d", ptr_hotlist->priority);
log_printf (" creation_time. . . . . : tv_sec:%d, tv_usec:%d",
ptr_hotlist->creation_time.tv_sec,
ptr_hotlist->creation_time.tv_usec);
- log_printf (" buffer . . . . . . . . : 0x%X", ptr_hotlist->buffer);
- log_printf (" prev_hotlist . . . . . : 0x%X", ptr_hotlist->prev_hotlist);
- log_printf (" next_hotlist . . . . . : 0x%X", ptr_hotlist->next_hotlist);
+ log_printf (" buffer . . . . . . . . : 0x%x", ptr_hotlist->buffer);
+ log_printf (" prev_hotlist . . . . . : 0x%x", ptr_hotlist->prev_hotlist);
+ log_printf (" next_hotlist . . . . . : 0x%x", ptr_hotlist->next_hotlist);
}
}
diff --git a/src/gui/gui-window.c b/src/gui/gui-window.c
index 33f8edb66..a07329d82 100644
--- a/src/gui/gui-window.c
+++ b/src/gui/gui-window.c
@@ -772,12 +772,12 @@ gui_window_print_log ()
struct t_gui_window *ptr_window;
log_printf ("");
- log_printf ("current window = 0x%X", gui_current_window);
+ log_printf ("current window = 0x%x", gui_current_window);
for (ptr_window = gui_windows; ptr_window; ptr_window = ptr_window->next_window)
{
log_printf ("");
- log_printf ("[window (addr:0x%X)]", ptr_window);
+ log_printf ("[window (addr:0x%x)]", ptr_window);
log_printf (" win_x . . . . . . . : %d", ptr_window->win_x);
log_printf (" win_y . . . . . . . : %d", ptr_window->win_y);
log_printf (" win_width . . . . . : %d", ptr_window->win_width);
@@ -814,14 +814,14 @@ gui_window_print_log ()
log_printf (" win_input_height. . : %d", ptr_window->win_input_height);
log_printf (" win_input_cursor_x. : %d", ptr_window->win_input_cursor_x);
gui_window_objects_print_log (ptr_window);
- log_printf (" dcc_first . . . . . : 0x%X", ptr_window->dcc_first);
- log_printf (" dcc_selected. . . . : 0x%X", ptr_window->dcc_selected);
- log_printf (" dcc_last_displayed. : 0x%X", ptr_window->dcc_last_displayed);
- log_printf (" buffer. . . . . . . : 0x%X", ptr_window->buffer);
+ log_printf (" dcc_first . . . . . : 0x%x", ptr_window->dcc_first);
+ log_printf (" dcc_selected. . . . : 0x%x", ptr_window->dcc_selected);
+ log_printf (" dcc_last_displayed. : 0x%x", ptr_window->dcc_last_displayed);
+ log_printf (" buffer. . . . . . . : 0x%x", ptr_window->buffer);
log_printf (" first_line_displayed: %d", ptr_window->first_line_displayed);
- log_printf (" start_line. . . . . : 0x%X", ptr_window->start_line);
+ log_printf (" start_line. . . . . : 0x%x", ptr_window->start_line);
log_printf (" start_line_pos. . . : %d", ptr_window->start_line_pos);
- log_printf (" prev_window . . . . : 0x%X", ptr_window->prev_window);
- log_printf (" next_window . . . . : 0x%X", ptr_window->next_window);
+ log_printf (" prev_window . . . . : 0x%x", ptr_window->prev_window);
+ log_printf (" next_window . . . . : 0x%x", ptr_window->next_window);
}
}
diff --git a/src/plugins/alias/alias.c b/src/plugins/alias/alias.c
index 128df444c..bce60d65f 100644
--- a/src/plugins/alias/alias.c
+++ b/src/plugins/alias/alias.c
@@ -542,11 +542,13 @@ alias_config_read ()
*/
int
-alias_config_reload_signal_cb (void *data, char *signal, void *signal_data)
+alias_config_reload_signal_cb (void *data, char *signal, char *type_data,
+ void *signal_data)
{
/* make C compiler happy */
(void) data;
(void) signal;
+ (void) type_data;
(void) signal_data;
alias_free_all ();
diff --git a/src/plugins/demo/demo.c b/src/plugins/demo/demo.c
index e65bfd533..fb99f86b1 100644
--- a/src/plugins/demo/demo.c
+++ b/src/plugins/demo/demo.c
@@ -134,7 +134,8 @@ demo_buffer_command_cb (void *data, struct t_gui_buffer *buffer, int argc,
demo_buffer_input_data_cb);
if (new_buffer)
weechat_buffer_set (new_buffer, "display", "1");
- weechat_hook_signal_send ("logger_backlog", new_buffer);
+ weechat_hook_signal_send ("logger_backlog",
+ WEECHAT_HOOK_SIGNAL_POINTER, new_buffer);
}
return WEECHAT_RC_OK;
@@ -281,14 +282,39 @@ demo_info_command_cb (void *data, struct t_gui_buffer *buffer, int argc,
*/
int
-demo_signal_cb (void *data, char *signal, void *signal_data)
+demo_signal_cb (void *data, char *signal, char *type_data, void *signal_data)
{
/* make C compiler happy */
(void) data;
- weechat_printf (NULL,
- _("demo_signal: signal: %s, signal_data: %X"),
- signal, signal_data);
+ if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0)
+ {
+ weechat_printf (NULL,
+ _("demo_signal: signal: %s, type_data: %s, "
+ "signal_data: '%s'"),
+ signal, type_data, (char *)signal_data);
+ }
+ else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_INT) == 0)
+ {
+ weechat_printf (NULL,
+ _("demo_signal: signal: %s, type_data: %s, "
+ "signal_data: %d"),
+ signal, type_data, *((int *)signal_data));
+ }
+ else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0)
+ {
+ weechat_printf (NULL,
+ _("demo_signal: signal: %s, type_data: %s, "
+ "signal_data: 0x%x"),
+ signal, type_data, signal_data);
+ }
+ else
+ {
+ weechat_printf (NULL,
+ _("demo_signal: signal: %s, type_data: %s, "
+ "signal_data: 0x%x (unknown type)"),
+ signal, type_data, signal_data);
+ }
return WEECHAT_RC_OK;
}
diff --git a/src/plugins/irc/irc-channel.c b/src/plugins/irc/irc-channel.c
index d501aa8d5..b75e9102a 100644
--- a/src/plugins/irc/irc-channel.c
+++ b/src/plugins/irc/irc-channel.c
@@ -27,6 +27,7 @@
#include <unistd.h>
#include <string.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-channel.h"
#include "irc-config.h"
@@ -495,9 +496,9 @@ irc_channel_print_log (struct t_irc_channel *channel)
struct t_irc_nick *ptr_nick;
weechat_log_printf ("");
- weechat_log_printf (" => channel %s (addr:0x%X)]", channel->name, channel);
+ weechat_log_printf (" => channel %s (addr:0x%x)]", channel->name, channel);
weechat_log_printf (" type . . . . . . . . : %d", channel->type);
- weechat_log_printf (" dcc_chat . . . . . . : 0x%X", channel->dcc_chat);
+ weechat_log_printf (" dcc_chat . . . . . . : 0x%x", channel->dcc_chat);
weechat_log_printf (" topic. . . . . . . . : '%s'", channel->topic);
weechat_log_printf (" modes. . . . . . . . : '%s'", channel->modes);
weechat_log_printf (" limit. . . . . . . . : %d", channel->limit);
@@ -507,12 +508,12 @@ irc_channel_print_log (struct t_irc_channel *channel)
weechat_log_printf (" cycle. . . . . . . . : %d", channel->cycle);
weechat_log_printf (" close. . . . . . . . : %d", channel->close);
weechat_log_printf (" display_creation_date: %d", channel->display_creation_date);
- weechat_log_printf (" nicks. . . . . . . . : 0x%X", channel->nicks);
- weechat_log_printf (" last_nick. . . . . . : 0x%X", channel->last_nick);
- weechat_log_printf (" buffer . . . . . . . : 0x%X", channel->buffer);
- weechat_log_printf (" nicks_speaking . . . : 0x%X", channel->nicks_speaking);
- weechat_log_printf (" prev_channel . . . . : 0x%X", channel->prev_channel);
- weechat_log_printf (" next_channel . . . . : 0x%X", channel->next_channel);
+ weechat_log_printf (" nicks. . . . . . . . : 0x%x", channel->nicks);
+ weechat_log_printf (" last_nick. . . . . . : 0x%x", channel->last_nick);
+ weechat_log_printf (" buffer . . . . . . . : 0x%x", channel->buffer);
+ weechat_log_printf (" nicks_speaking . . . : 0x%x", channel->nicks_speaking);
+ weechat_log_printf (" prev_channel . . . . : 0x%x", channel->prev_channel);
+ weechat_log_printf (" next_channel . . . . : 0x%x", channel->next_channel);
if (channel->nicks_speaking)
{
weechat_log_printf ("");
diff --git a/src/plugins/irc/irc-color.c b/src/plugins/irc/irc-color.c
index 947b056fd..b8912edb6 100644
--- a/src/plugins/irc/irc-color.c
+++ b/src/plugins/irc/irc-color.c
@@ -27,6 +27,7 @@
#include <string.h>
#include <ctype.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-color.h"
diff --git a/src/plugins/irc/irc-command.c b/src/plugins/irc/irc-command.c
index 0bb4ad114..859c180c5 100644
--- a/src/plugins/irc/irc-command.c
+++ b/src/plugins/irc/irc-command.c
@@ -30,6 +30,7 @@
#include <sys/time.h>
#include <time.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-command.h"
#include "irc-color.h"
diff --git a/src/plugins/irc/irc-completion.c b/src/plugins/irc/irc-completion.c
index b86cc6440..773a4f2f8 100644
--- a/src/plugins/irc/irc-completion.c
+++ b/src/plugins/irc/irc-completion.c
@@ -27,6 +27,7 @@
#include <stdio.h>
#include <string.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-completion.h"
#include "irc-config.h"
diff --git a/src/plugins/irc/irc-config.c b/src/plugins/irc/irc-config.c
index 3c25788d8..f163e84a9 100644
--- a/src/plugins/irc/irc-config.c
+++ b/src/plugins/irc/irc-config.c
@@ -29,6 +29,7 @@
#include <limits.h>
#include <pwd.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-config.h"
#include "irc-dcc.h"
diff --git a/src/plugins/irc/irc-dcc.c b/src/plugins/irc/irc-dcc.c
index e8157ae18..020e1be30 100644
--- a/src/plugins/irc/irc-dcc.c
+++ b/src/plugins/irc/irc-dcc.c
@@ -39,6 +39,7 @@
#include <arpa/inet.h>
#include <netdb.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-dcc.h"
#include "irc-config.h"
@@ -1899,9 +1900,9 @@ irc_dcc_print_log ()
for (ptr_dcc = irc_dcc_list; ptr_dcc; ptr_dcc = ptr_dcc->next_dcc)
{
weechat_log_printf ("");
- weechat_log_printf ("[DCC (addr:0x%X)]", ptr_dcc);
- weechat_log_printf (" server. . . . . . . : 0x%X", ptr_dcc->server);
- weechat_log_printf (" channel . . . . . . : 0x%X", ptr_dcc->channel);
+ weechat_log_printf ("[DCC (addr:0x%x)]", ptr_dcc);
+ weechat_log_printf (" server. . . . . . . : 0x%x", ptr_dcc->server);
+ weechat_log_printf (" channel . . . . . . : 0x%x", ptr_dcc->channel);
weechat_log_printf (" type. . . . . . . . : %d", ptr_dcc->type);
weechat_log_printf (" status. . . . . . . : %d", ptr_dcc->status);
weechat_log_printf (" start_time. . . . . : %ld", ptr_dcc->start_time);
@@ -1929,7 +1930,7 @@ irc_dcc_print_log ()
weechat_log_printf (" last_activity . . . : %ld", ptr_dcc->last_activity);
weechat_log_printf (" bytes_per_sec . . . : %lu", ptr_dcc->bytes_per_sec);
weechat_log_printf (" eta . . . . . . . . : %lu", ptr_dcc->eta);
- weechat_log_printf (" prev_dcc. . . . . . : 0x%X", ptr_dcc->prev_dcc);
- weechat_log_printf (" next_dcc. . . . . . : 0x%X", ptr_dcc->next_dcc);
+ weechat_log_printf (" prev_dcc. . . . . . : 0x%x", ptr_dcc->prev_dcc);
+ weechat_log_printf (" next_dcc. . . . . . : 0x%x", ptr_dcc->next_dcc);
}
}
diff --git a/src/plugins/irc/irc-display.c b/src/plugins/irc/irc-display.c
index 9378136fe..fd869b009 100644
--- a/src/plugins/irc/irc-display.c
+++ b/src/plugins/irc/irc-display.c
@@ -28,6 +28,7 @@
#include <stdio.h>
#include <string.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-channel.h"
#include "irc-command.h"
diff --git a/src/plugins/irc/irc-input.c b/src/plugins/irc/irc-input.c
index bf3e40b8e..72e37a6f6 100644
--- a/src/plugins/irc/irc-input.c
+++ b/src/plugins/irc/irc-input.c
@@ -26,6 +26,7 @@
#include <stdlib.h>
#include <string.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-server.h"
#include "irc-channel.h"
diff --git a/src/plugins/irc/irc-mode.c b/src/plugins/irc/irc-mode.c
index 1d6f66eb3..34c17d1e8 100644
--- a/src/plugins/irc/irc-mode.c
+++ b/src/plugins/irc/irc-mode.c
@@ -26,6 +26,7 @@
#include <stdlib.h>
#include <string.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-mode.h"
#include "irc-server.h"
diff --git a/src/plugins/irc/irc-nick.c b/src/plugins/irc/irc-nick.c
index e24ab7aaa..6cf854ea4 100644
--- a/src/plugins/irc/irc-nick.c
+++ b/src/plugins/irc/irc-nick.c
@@ -28,6 +28,7 @@
#include <string.h>
#include <limits.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-nick.h"
#include "irc-config.h"
@@ -470,10 +471,10 @@ void
irc_nick_print_log (struct t_irc_nick *nick)
{
weechat_log_printf ("");
- weechat_log_printf (" => nick %s (addr:0x%X):", nick->name, nick);
+ weechat_log_printf (" => nick %s (addr:0x%x):", nick->name, nick);
weechat_log_printf (" host . . . . . : %s", nick->host);
weechat_log_printf (" flags. . . . . : %d", nick->flags);
weechat_log_printf (" color. . . . . : '%s'", nick->color);
- weechat_log_printf (" prev_nick. . . : 0x%X", nick->prev_nick);
- weechat_log_printf (" next_nick. . . : 0x%X", nick->next_nick);
+ weechat_log_printf (" prev_nick. . . : 0x%x", nick->prev_nick);
+ weechat_log_printf (" next_nick. . . : 0x%x", nick->next_nick);
}
diff --git a/src/plugins/irc/irc-protocol.c b/src/plugins/irc/irc-protocol.c
index 424b3c0d2..07c3f0f46 100644
--- a/src/plugins/irc/irc-protocol.c
+++ b/src/plugins/irc/irc-protocol.c
@@ -43,6 +43,7 @@
#include <sys/time.h>
#include <time.h>
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-protocol.h"
#include "irc-command.h"
diff --git a/src/plugins/irc/irc-server.c b/src/plugins/irc/irc-server.c
index 9ac403326..953e650f7 100644
--- a/src/plugins/irc/irc-server.c
+++ b/src/plugins/irc/irc-server.c
@@ -44,6 +44,7 @@
#include <gnutls/gnutls.h>
#endif
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-server.h"
#include "irc-channel.h"
@@ -2187,7 +2188,8 @@ irc_server_connect (struct t_irc_server *server, int disable_autojoin)
if (!server->buffer)
return 0;
weechat_buffer_set (server->buffer, "display", "1");
- weechat_hook_signal_send ("logger_backlog", server->buffer);
+ weechat_hook_signal_send ("logger_backlog",
+ WEECHAT_HOOK_SIGNAL_POINTER, server->buffer);
}
#ifndef HAVE_GNUTLS
@@ -2733,7 +2735,7 @@ irc_server_print_log ()
ptr_server = ptr_server->next_server)
{
weechat_log_printf ("");
- weechat_log_printf ("[server %s (addr:0x%X)]", ptr_server->name, ptr_server);
+ weechat_log_printf ("[server %s (addr:0x%x)]", ptr_server->name, ptr_server);
weechat_log_printf (" autoconnect . . . . : %d", ptr_server->autoconnect);
weechat_log_printf (" autoreconnect . . . : %d", ptr_server->autoreconnect);
weechat_log_printf (" autoreconnect_delay : %d", ptr_server->autoreconnect_delay);
@@ -2762,7 +2764,7 @@ irc_server_print_log ()
weechat_log_printf (" child_read . . . . : %d", ptr_server->child_read);
weechat_log_printf (" child_write . . . . : %d", ptr_server->child_write);
weechat_log_printf (" sock. . . . . . . . : %d", ptr_server->sock);
- weechat_log_printf (" hook_fd . . . . . . : 0x%X", ptr_server->hook_fd);
+ weechat_log_printf (" hook_fd . . . . . . : 0x%x", ptr_server->hook_fd);
weechat_log_printf (" is_connected. . . . : %d", ptr_server->is_connected);
weechat_log_printf (" ssl_connected . . . : %d", ptr_server->ssl_connected);
weechat_log_printf (" unterminated_message: '%s'", ptr_server->unterminated_message);
@@ -2782,13 +2784,13 @@ irc_server_print_log ()
ptr_server->lag_check_time.tv_usec);
weechat_log_printf (" lag_next_check. . . : %ld", ptr_server->lag_next_check);
weechat_log_printf (" last_user_message . : %ld", ptr_server->last_user_message);
- weechat_log_printf (" outqueue. . . . . . : 0x%X", ptr_server->outqueue);
- weechat_log_printf (" last_outqueue . . . : 0x%X", ptr_server->last_outqueue);
- weechat_log_printf (" buffer. . . . . . . : 0x%X", ptr_server->buffer);
- weechat_log_printf (" channels. . . . . . : 0x%X", ptr_server->channels);
- weechat_log_printf (" last_channel. . . . : 0x%X", ptr_server->last_channel);
- weechat_log_printf (" prev_server . . . . : 0x%X", ptr_server->prev_server);
- weechat_log_printf (" next_server . . . . : 0x%X", ptr_server->next_server);
+ weechat_log_printf (" outqueue. . . . . . : 0x%x", ptr_server->outqueue);
+ weechat_log_printf (" last_outqueue . . . : 0x%x", ptr_server->last_outqueue);
+ weechat_log_printf (" buffer. . . . . . . : 0x%x", ptr_server->buffer);
+ weechat_log_printf (" channels. . . . . . : 0x%x", ptr_server->channels);
+ weechat_log_printf (" last_channel. . . . : 0x%x", ptr_server->last_channel);
+ weechat_log_printf (" prev_server . . . . : 0x%x", ptr_server->prev_server);
+ weechat_log_printf (" next_server . . . . : 0x%x", ptr_server->next_server);
for (ptr_channel = ptr_server->channels; ptr_channel;
ptr_channel = ptr_channel->next_channel)
diff --git a/src/plugins/irc/irc.c b/src/plugins/irc/irc.c
index 31cec28a2..d04bd7a03 100644
--- a/src/plugins/irc/irc.c
+++ b/src/plugins/irc/irc.c
@@ -24,11 +24,13 @@
#endif
#include <stdlib.h>
+#include <string.h>
#ifdef HAVE_GNUTLS
#include <gnutls/gnutls.h>
#endif
+#include "../weechat-plugin.h"
#include "irc.h"
#include "irc-command.h"
#include "irc-completion.h"
@@ -62,12 +64,13 @@ gnutls_certificate_credentials gnutls_xcred; /* gnutls client credentials */
*/
int
-irc_dump_data_cb (void *data, char *signal, void *pointer)
+irc_dump_data_cb (void *data, char *signal, char *type_data, void *signal_data)
{
/* make C compiler happy */
(void) data;
(void) signal;
- (void) pointer;
+ (void) type_data;
+ (void) signal_data;
weechat_log_printf ("");
weechat_log_printf ("***** IRC plugin dump *****");
@@ -112,19 +115,21 @@ irc_create_directories ()
*/
int
-irc_quit_cb (void *data, char *signal, void *pointer)
+irc_quit_cb (void *data, char *signal, char *type_data, void *signal_data)
{
struct t_irc_server *ptr_server;
/* make C compiler happy */
(void) data;
(void) signal;
- (void) pointer;
- for (ptr_server = irc_servers; ptr_server;
- ptr_server = ptr_server->next_server)
+ if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0)
{
- irc_command_quit_server (ptr_server, (char *)pointer);
+ for (ptr_server = irc_servers; ptr_server;
+ ptr_server = ptr_server->next_server)
+ {
+ irc_command_quit_server (ptr_server, (char *)signal_data);
+ }
}
return WEECHAT_RC_OK;
@@ -135,14 +140,17 @@ irc_quit_cb (void *data, char *signal, void *pointer)
*/
int
-irc_debug_cb (void *data, char *signal, void *pointer)
+irc_debug_cb (void *data, char *signal, char *type_data, void *signal_data)
{
/* make C compiler happy */
(void) data;
(void) signal;
-
- if (weechat_strcasecmp ((char *)pointer, "irc") == 0)
- irc_debug ^= 1;
+
+ if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0)
+ {
+ if (weechat_strcasecmp ((char *)signal_data, "irc") == 0)
+ irc_debug ^= 1;
+ }
return WEECHAT_RC_OK;
}
diff --git a/src/plugins/irc/irc.h b/src/plugins/irc/irc.h
index 1c5effa4f..3c458fd3c 100644
--- a/src/plugins/irc/irc.h
+++ b/src/plugins/irc/irc.h
@@ -24,8 +24,6 @@
#include <gnutls/gnutls.h>
#endif
-#include "../weechat-plugin.h"
-
#define weechat_plugin weechat_irc_plugin
#define IRC_GET_SERVER(__buffer) \
diff --git a/src/plugins/logger/logger.c b/src/plugins/logger/logger.c
index 379c0482a..3c82642ce 100644
--- a/src/plugins/logger/logger.c
+++ b/src/plugins/logger/logger.c
@@ -409,14 +409,15 @@ logger_stop_all ()
*/
int
-logger_buffer_open_signal_cb (void *data, char *signal, void *pointer)
+logger_buffer_open_signal_cb (void *data, char *signal, char *type_data,
+ void *signal_data)
{
/* make C compiler happy */
(void) data;
(void) signal;
- (void) pointer;
+ (void) type_data;
- logger_start_buffer (pointer);
+ logger_start_buffer (signal_data);
return WEECHAT_RC_OK;
}
@@ -426,14 +427,15 @@ logger_buffer_open_signal_cb (void *data, char *signal, void *pointer)
*/
int
-logger_buffer_close_signal_cb (void *data, char *signal, void *pointer)
+logger_buffer_close_signal_cb (void *data, char *signal, char *type_data,
+ void *signal_data)
{
/* make C compiler happy */
(void) data;
(void) signal;
- (void) pointer;
+ (void) type_data;
- logger_stop (logger_buffer_search (pointer), 1);
+ logger_stop (logger_buffer_search (signal_data), 1);
return WEECHAT_RC_OK;
}
@@ -494,23 +496,25 @@ logger_backlog (struct t_gui_buffer *buffer, char *filename, int lines)
*/
int
-logger_backlog_signal_cb (void *data, char *signal, void *pointer)
+logger_backlog_signal_cb (void *data, char *signal, char *type_data,
+ void *signal_data)
{
struct t_logger_buffer *ptr_logger_buffer;
/* make C compiler happy */
(void) data;
(void) signal;
+ (void) type_data;
if (logger_option_backlog >= 0)
{
- ptr_logger_buffer = logger_buffer_search (pointer);
+ ptr_logger_buffer = logger_buffer_search (signal_data);
if (ptr_logger_buffer && ptr_logger_buffer->log_filename
&& ptr_logger_buffer->log_enabled)
{
ptr_logger_buffer->log_enabled = 0;
- logger_backlog (pointer,
+ logger_backlog (signal_data,
ptr_logger_buffer->log_filename,
logger_option_backlog);
@@ -526,13 +530,15 @@ logger_backlog_signal_cb (void *data, char *signal, void *pointer)
*/
int
-logger_start_signal_cb (void *data, char *signal, void *pointer)
+logger_start_signal_cb (void *data, char *signal, char *type_data,
+ void *signal_data)
{
/* make C compiler happy */
(void) data;
(void) signal;
+ (void) type_data;
- logger_start_buffer (pointer);
+ logger_start_buffer (signal_data);
return WEECHAT_RC_OK;
}
@@ -542,15 +548,17 @@ logger_start_signal_cb (void *data, char *signal, void *pointer)
*/
int
-logger_stop_signal_cb (void *data, char *signal, void *pointer)
+logger_stop_signal_cb (void *data, char *signal, char *type_data,
+ void *signal_data)
{
struct t_logger_buffer *ptr_logger_buffer;
/* make C compiler happy */
(void) data;
(void) signal;
+ (void) type_data;
- ptr_logger_buffer = logger_buffer_search (pointer);
+ ptr_logger_buffer = logger_buffer_search (signal_data);
if (ptr_logger_buffer)
logger_stop (ptr_logger_buffer, 0);
diff --git a/src/plugins/plugin-infolist.c b/src/plugins/plugin-infolist.c
index 36d34b4bb..cebdc6e87 100644
--- a/src/plugins/plugin-infolist.c
+++ b/src/plugins/plugin-infolist.c
@@ -561,28 +561,28 @@ plugin_infolist_print_log ()
ptr_infolist = ptr_infolist->next_infolist)
{
log_printf ("");
- log_printf ("[plugin infolist (addr:0x%X)]", ptr_infolist);
- log_printf (" items. . . . . . . . . : 0x%X", ptr_infolist->items);
- log_printf (" last_item. . . . . . . : 0x%X", ptr_infolist->last_item);
- log_printf (" ptr_item . . . . . . . : 0x%X", ptr_infolist->ptr_item);
- log_printf (" prev_infolist. . . . . : 0x%X", ptr_infolist->prev_infolist);
- log_printf (" next_infolist. . . . . : 0x%X", ptr_infolist->next_infolist);
+ log_printf ("[plugin infolist (addr:0x%x)]", ptr_infolist);
+ log_printf (" items. . . . . . . . . : 0x%x", ptr_infolist->items);
+ log_printf (" last_item. . . . . . . : 0x%x", ptr_infolist->last_item);
+ log_printf (" ptr_item . . . . . . . : 0x%x", ptr_infolist->ptr_item);
+ log_printf (" prev_infolist. . . . . : 0x%x", ptr_infolist->prev_infolist);
+ log_printf (" next_infolist. . . . . : 0x%x", ptr_infolist->next_infolist);
for (ptr_item = ptr_infolist->items; ptr_item;
ptr_item = ptr_item->next_item)
{
log_printf ("");
- log_printf (" [item (addr:0x%X)]", ptr_item);
- log_printf (" vars . . . . . . . . . : 0x%X", ptr_item->vars);
- log_printf (" last_var . . . . . . . : 0x%X", ptr_item->last_var);
- log_printf (" prev_item. . . . . . . : 0x%X", ptr_item->prev_item);
- log_printf (" next_item. . . . . . . : 0x%X", ptr_item->next_item);
+ log_printf (" [item (addr:0x%x)]", ptr_item);
+ log_printf (" vars . . . . . . . . . : 0x%x", ptr_item->vars);
+ log_printf (" last_var . . . . . . . : 0x%x", ptr_item->last_var);
+ log_printf (" prev_item. . . . . . . : 0x%x", ptr_item->prev_item);
+ log_printf (" next_item. . . . . . . : 0x%x", ptr_item->next_item);
for (ptr_var = ptr_item->vars; ptr_var;
ptr_var = ptr_var->next_var)
{
log_printf ("");
- log_printf (" [var (addr:0x%X)]", ptr_var);
+ log_printf (" [var (addr:0x%x)]", ptr_var);
log_printf (" name . . . . . . . . : '%s'", ptr_var->name);
log_printf (" type . . . . . . . . : %d", ptr_var->type);
switch (ptr_var->type)
@@ -594,14 +594,14 @@ plugin_infolist_print_log ()
log_printf (" value (string) . . . : '%s'", (char *)ptr_var->value);
break;
case PLUGIN_INFOLIST_POINTER:
- log_printf (" value (pointer). . . : 0x%X", ptr_var->value);
+ log_printf (" value (pointer). . . : 0x%x", ptr_var->value);
break;
case PLUGIN_INFOLIST_TIME:
log_printf (" value (time) . . . . : %ld", *((time_t *)ptr_var->value));
break;
}
- log_printf (" prev_var . . . . . . : 0x%X", ptr_var->prev_var);
- log_printf (" next_var . . . . . . : 0x%X", ptr_var->next_var);
+ log_printf (" prev_var . . . . . . : 0x%x", ptr_var->prev_var);
+ log_printf (" next_var . . . . . . : 0x%x", ptr_var->next_var);
}
}
}
diff --git a/src/plugins/plugin.c b/src/plugins/plugin.c
index 3661b4fea..6405c3da9 100644
--- a/src/plugins/plugin.c
+++ b/src/plugins/plugin.c
@@ -302,9 +302,9 @@ plugin_load (char *filename)
new_plugin->prefix = &plugin_api_prefix;
new_plugin->color = &plugin_api_color;
new_plugin->printf_date = &gui_chat_printf_date;
- new_plugin->log_printf = &log_printf;
new_plugin->infobar_printf = &plugin_api_infobar_printf;
new_plugin->infobar_remove = &plugin_api_infobar_remove;
+ new_plugin->log_printf = &log_printf;
new_plugin->hook_command = &hook_command;
new_plugin->hook_timer = &hook_timer;
@@ -676,15 +676,15 @@ plugin_print_log ()
ptr_plugin = ptr_plugin->next_plugin)
{
log_printf ("");
- log_printf ("[plugin (addr:0x%X)]", ptr_plugin);
+ log_printf ("[plugin (addr:0x%x)]", ptr_plugin);
log_printf (" filename . . . . . . . : '%s'", ptr_plugin->filename);
- log_printf (" handle . . . . . . . . : 0x%X", ptr_plugin->handle);
+ log_printf (" handle . . . . . . . . : 0x%x", ptr_plugin->handle);
log_printf (" name . . . . . . . . . : '%s'", ptr_plugin->name);
log_printf (" description. . . . . . : '%s'", ptr_plugin->description);
log_printf (" version. . . . . . . . : '%s'", ptr_plugin->version);
log_printf (" charset. . . . . . . . : '%s'", ptr_plugin->charset);
- log_printf (" prev_plugin. . . . . . : 0x%X", ptr_plugin->prev_plugin);
- log_printf (" next_plugin. . . . . . : 0x%X", ptr_plugin->next_plugin);
+ log_printf (" prev_plugin. . . . . . : 0x%x", ptr_plugin->prev_plugin);
+ log_printf (" next_plugin. . . . . . : 0x%x", ptr_plugin->next_plugin);
}
plugin_infolist_print_log ();
diff --git a/src/plugins/scripts/perl/Makefile.am b/src/plugins/scripts/perl/Makefile.am
index 1d88ce204..a064a3a1f 100644
--- a/src/plugins/scripts/perl/Makefile.am
+++ b/src/plugins/scripts/perl/Makefile.am
@@ -20,6 +20,8 @@ libdir = ${weechat_libdir}/plugins
lib_LTLIBRARIES = perl.la
-perl_la_SOURCES = perl.c
+perl_la_SOURCES = weechat-perl.c \
+ weechat-perl.h \
+ weechat-perl-api.c
perl_la_LDFLAGS = -module
perl_la_LIBADD = ../lib_weechat_plugins_scripts.la $(PERL_LFLAGS)
diff --git a/src/plugins/scripts/perl/perl.c b/src/plugins/scripts/perl/perl.c
deleted file mode 100644
index a1eeef6ae..000000000
--- a/src/plugins/scripts/perl/perl.c
+++ /dev/null
@@ -1,2444 +0,0 @@
-/*
- * Copyright (c) 2003-2008 by FlashCode <flashcode@flashtux.org>
- * See README for License detail, AUTHORS for developers list.
- *
- * 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 3 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/>.
- */
-
-/* weechat-perl.c: Perl plugin support for WeeChat */
-
-#undef _
-
-#include <EXTERN.h>
-#include <perl.h>
-#include <XSUB.h>
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <stdarg.h>
-#include <time.h>
-
-#include <sys/socket.h>
-#include <netinet/in.h>
-#include <arpa/inet.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-
-#include "../../weechat-plugin.h"
-#include "../weechat-script.h"
-
-WEECHAT_PLUGIN_NAME("perl");
-WEECHAT_PLUGIN_DESCRIPTION("Perl plugin for WeeChat");
-WEECHAT_PLUGIN_AUTHOR("FlashCode <flashcode@flashtux.org>");
-WEECHAT_PLUGIN_VERSION("0.1");
-WEECHAT_PLUGIN_LICENSE("GPL");
-
-t_weechat_plugin *perl_plugin;
-
-t_plugin_script *perl_scripts = NULL;
-t_plugin_script *perl_current_script = NULL;
-char *perl_current_script_filename = NULL;
-
-extern void boot_DynaLoader (pTHX_ CV* cv);
-
-#ifdef NO_PERL_MULTIPLICITY
-#undef MULTIPLICITY
-#endif
-
-#ifndef MULTIPLICITY
-#define PKG_NAME_PREFIX "WeechatPerlPackage"
-static PerlInterpreter *perl_main = NULL;
-int perl_num = 0;
-#endif
-
-char *perl_weechat_code =
-{
-#ifndef MULTIPLICITY
- "package WeechatPerlScriptLoader;"
-#endif
- "$weechat_perl_load_eval_file_error = \"\";"
- "sub weechat_perl_load_file"
- "{"
- " my $filename = shift;"
- " local $/ = undef;"
- " open FILE, $filename or return \"__WEECHAT_PERL_ERROR__\";"
- " $_ = <FILE>;"
- " close FILE;"
- " return $_;"
- "}"
- "sub weechat_perl_load_eval_file"
- "{"
-#ifndef MULTIPLICITY
- " my ($filename, $package) = @_;"
-#else
- " my $filename = shift;"
-#endif
- " my $content = weechat_perl_load_file ($filename);"
- " if ($content eq \"__WEECHAT_PERL_ERROR__\")"
- " {"
- " return 1;"
- " }"
-#ifndef MULTIPLICITY
- " my $eval = qq{package $package; $content;};"
-#else
- " my $eval = $content;"
-#endif
- " {"
- " eval $eval;"
- " }"
- " if ($@)"
- " {"
- " $weechat_perl_load_eval_file_error = $@;"
- " return 2;"
- " }"
- " return 0;"
- "}"
- "$SIG{__WARN__} = sub { weechat::print \"Perl error: $_[0]\", \"\"; };"
- "$SIG{__DIE__} = sub { weechat::print \"Perl error: $_[0]\", \"\"; };"
-};
-
-/*
- * weechat_perl_exec: execute a Perl script
- */
-
-void *
-weechat_perl_exec (t_weechat_plugin *plugin,
- t_plugin_script *script,
- int ret_type,
- char *function, char *arg1, char *arg2, char *arg3)
-{
- char empty_arg[1] = { '\0' };
- char *func;
- char *argv[4];
- unsigned int count;
- void *ret_value;
- int *ret_i;
- SV *ret_s;
- int mem_err;
-
- /* this code is placed here to conform ISO C90 */
- dSP;
-
-#ifndef MULTIPLICITY
- int size = strlen (script->interpreter) + strlen(function) + 3;
- func = (char *)malloc (size * sizeof(char));
- if (!func)
- return NULL;
- snprintf (func, size, "%s::%s", (char *) script->interpreter, function);
-#else
- func = function;
- PERL_SET_CONTEXT (script->interpreter);
-#endif
-
- ENTER;
- SAVETMPS;
- PUSHMARK(sp);
-
- /* are we loading the script file ? */
- if (strcmp (function, "weechat_perl_load_eval_file") != 0)
- perl_current_script = script;
-
- if (arg1)
- {
- argv[0] = (arg1) ? arg1 : empty_arg;
- if (arg2)
- {
- argv[1] = (arg2) ? arg2 : empty_arg;
- if (arg3)
- {
- argv[2] = (arg3) ? arg3 : empty_arg;
- argv[3] = NULL;
- }
- else
- argv[2] = NULL;
- }
- else
- argv[1] = NULL;
- }
- else
- argv[0] = NULL;
-
- count = perl_call_argv (func, G_EVAL | G_SCALAR, argv);
- ret_value = NULL;
- mem_err = 1;
-
- SPAGAIN;
-
- if (SvTRUE (ERRSV))
- {
- plugin->print_server (plugin, "Perl error: %s", SvPV_nolen (ERRSV));
- (void) POPs; /* poping the 'undef' */
- mem_err = 0;
- }
- else
- {
- if (count != 1)
- {
- plugin->print_server (plugin,
- "Perl error: function \"%s\" must return 1 valid value (%d)",
- function, count);
- mem_err = 0;
- }
- else
- {
- if (ret_type == SCRIPT_EXEC_STRING)
- {
- ret_s = newSVsv(POPs);
- ret_value = strdup (SvPV_nolen (ret_s));
- SvREFCNT_dec (ret_s);
- }
- else if (ret_type == SCRIPT_EXEC_INT)
- {
- ret_i = (int *)malloc (sizeof(int));
- if (ret_i)
- *ret_i = POPi;
- ret_value = ret_i;
- }
- else
- {
- plugin->print_server (plugin,
- "Perl error: function \"%s\" is internally misused.",
- function);
- mem_err = 0;
- }
- }
- }
-
- PUTBACK;
- FREETMPS;
- LEAVE;
-
-#ifndef MULTIPLICITY
- free (func);
-#endif
-
- if (ret_value == NULL && mem_err == 1)
- {
- plugin->print_server (plugin,
- "Perl error: unable to alloc memory in function \"%s\"",
- function);
- return NULL;
- }
-
- return ret_value;
-}
-
-/*
- * weechat_perl_cmd_msg_handler: general command/message handler for Perl
- */
-
-int
-weechat_perl_cmd_msg_handler (t_weechat_plugin *plugin,
- int argc, char **argv,
- char *handler_args, void *handler_pointer)
-{
- int *r;
- int ret;
-
- if (argc >= 3)
- {
- r = (int *) weechat_perl_exec (plugin, (t_plugin_script *)handler_pointer,
- SCRIPT_EXEC_INT,
- handler_args, argv[0], argv[2], NULL);
- if (r == NULL)
- ret = PLUGIN_RC_KO;
- else
- {
- ret = *r;
- free (r);
- }
- return ret;
- }
- else
- return PLUGIN_RC_KO;
-}
-
-/*
- * weechat_perl_timer_handler: general timer handler for Perl
- */
-
-int
-weechat_perl_timer_handler (t_weechat_plugin *plugin,
- int argc, char **argv,
- char *handler_args, void *handler_pointer)
-{
- int *r, ret;
-
- /* make C compiler happy */
- (void) argc;
- (void) argv;
-
- r = (int *) weechat_perl_exec (plugin, (t_plugin_script *)handler_pointer,
- SCRIPT_EXEC_INT,
- handler_args, NULL, NULL, NULL);
- if (r == NULL)
- ret = PLUGIN_RC_KO;
- else
- {
- ret = *r;
- free (r);
- }
- return ret;
-}
-
-/*
- * weechat_perl_keyboard_handler: general keyboard handler for Perl
- */
-
-int
-weechat_perl_keyboard_handler (t_weechat_plugin *plugin,
- int argc, char **argv,
- char *handler_args, void *handler_pointer)
-{
- int *r;
- int ret;
-
- if (argc >= 3)
- {
- r = (int *) weechat_perl_exec (plugin, (t_plugin_script *)handler_pointer,
- SCRIPT_EXEC_INT,
- handler_args, argv[0], argv[1], argv[2]);
- if (r == NULL)
- ret = PLUGIN_RC_KO;
- else
- {
- ret = *r;
- free (r);
- }
- return ret;
- }
- else
- return PLUGIN_RC_KO;
-}
-
-/*
- * weechat_perl_event_handler: general event handler for Perl
- */
-
-int
-weechat_perl_event_handler (t_weechat_plugin *plugin,
- int argc, char **argv,
- char *handler_args, void *handler_pointer)
-{
- int *r, ret;
-
- if (argc >= 1)
- {
- r = (int *) weechat_perl_exec (plugin, (t_plugin_script *)handler_pointer,
- SCRIPT_EXEC_INT,
- handler_args,
- argv[0],
- (argc >= 2) ? argv[1] : NULL,
- (argc >= 3) ? argv[2] : NULL);
- if (r == NULL)
- ret = PLUGIN_RC_KO;
- else
- {
- ret = *r;
- free (r);
- }
- return ret;
- }
- else
- return PLUGIN_RC_KO;
-}
-
-/*
- * weechat_perl_modifier: general modifier for Perl
- */
-
-char *
-weechat_perl_modifier (t_weechat_plugin *plugin,
- int argc, char **argv,
- char *modifier_args, void *modifier_pointer)
-{
- if (argc >= 2)
- return (char *) weechat_perl_exec (plugin, (t_plugin_script *)modifier_pointer,
- SCRIPT_EXEC_STRING,
- modifier_args, argv[0], argv[1], NULL);
- else
- return NULL;
-}
-
-/*
- * weechat::register: startup function for all WeeChat Perl scripts
- */
-
-static XS (XS_weechat_register)
-{
- char *name, *version, *shutdown_func, *description, *charset;
- dXSARGS;
-
- /* make C compiler happy */
- (void) items;
- (void) cv;
-
- perl_current_script = NULL;
-
- if ((items < 4) || (items > 5))
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"register\" function");
- XSRETURN_NO;
- }
-
- name = SvPV (ST (0), PL_na);
- version = SvPV (ST (1), PL_na);
- shutdown_func = SvPV (ST (2), PL_na);
- description = SvPV (ST (3), PL_na);
- charset = (items == 5) ? SvPV (ST (4), PL_na) : NULL;
-
- if (weechat_script_search (perl_plugin, &perl_scripts, name))
- {
- /* error: another script already exists with this name! */
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to register "
- "\"%s\" script (another script "
- "already exists with this name)",
- name);
- XSRETURN_NO;
- }
-
- /* register script */
- perl_current_script = weechat_script_add (perl_plugin,
- &perl_scripts,
- (perl_current_script_filename) ?
- perl_current_script_filename : "",
- name, version, shutdown_func,
- description, charset);
- if (perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl: registered script \"%s\", "
- "version %s (%s)",
- name, version, description);
- }
- else
- {
- XSRETURN_NO;
- }
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::set_charset: set script charset
- */
-
-static XS (XS_weechat_set_charset)
-{
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to set charset, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"set_charset\" function");
- XSRETURN_EMPTY;
- }
-
- weechat_script_set_charset (perl_plugin,
- perl_current_script,
- SvPV (ST (0), PL_na));
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::print: print message into a buffer (current or specified one)
- */
-
-static XS (XS_weechat_print)
-{
- char *message, *channel_name, *server_name;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to print message, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"print\" function");
- XSRETURN_NO;
- }
-
- message = SvPV (ST (0), PL_na);
-
- channel_name = NULL;
- server_name = NULL;
-
- if (items > 1)
- {
- channel_name = SvPV (ST (1), PL_na);
- if (items > 2)
- server_name = SvPV (ST (2), PL_na);
- }
-
- weechat_script_print (perl_plugin, perl_current_script,
- server_name, channel_name,
- "%s", message);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::print_server: print message into a server buffer
- */
-
-static XS (XS_weechat_print_server)
-{
- char *message;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to print message, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"print_server\" function");
- XSRETURN_NO;
- }
-
- message = SvPV (ST (0), PL_na);
-
- weechat_script_print_server (perl_plugin, perl_current_script,
- "%s", message);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::print_infobar: print message to infobar
- */
-
-static XS (XS_weechat_print_infobar)
-{
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to print infobar message, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"print_infobar\" function");
- XSRETURN_NO;
- }
-
- weechat_script_print_infobar (perl_plugin, perl_current_script,
- SvIV (ST (0)),
- "%s", SvPV (ST (1), PL_na));
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::remove_infobar: remove message(s) from infobar
- */
-
-static XS (XS_weechat_remove_infobar)
-{
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to remove infobar message(s), "
- "script not initialized");
- XSRETURN_NO;
- }
-
- perl_plugin->infobar_remove (perl_plugin,
- (items >= 1) ? SvIV (ST (0)) : 0);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::log: log message in server/channel (current or specified ones)
- */
-
-static XS (XS_weechat_log)
-{
- char *message, *channel_name, *server_name;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to print message, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"log\" function");
- XSRETURN_NO;
- }
-
- message = SvPV (ST (0), PL_na);
-
- channel_name = NULL;
- server_name = NULL;
-
- if (items > 1)
- {
- channel_name = SvPV (ST (1), PL_na);
- if (items > 2)
- server_name = SvPV (ST (2), PL_na);
- }
-
- weechat_script_log (perl_plugin, perl_current_script,
- server_name, channel_name,
- "%s", message);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::command: send command to server
- */
-
-static XS (XS_weechat_command)
-{
- char *channel_name, *server_name;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to run command, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"command\" function");
- XSRETURN_NO;
- }
-
- channel_name = NULL;
- server_name = NULL;
-
- if (items > 1)
- {
- channel_name = SvPV (ST (1), PL_na);
- if (items > 2)
- server_name = SvPV (ST (2), PL_na);
- }
-
- weechat_script_exec_command (perl_plugin, perl_current_script,
- server_name, channel_name,
- SvPV (ST (0), PL_na));
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::add_message_handler: add a handler for messages (privmsg, ...)
- */
-
-static XS (XS_weechat_add_message_handler)
-{
- char *irc_command, *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to add message handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"add_message_handler\" function");
- XSRETURN_NO;
- }
-
- irc_command = SvPV (ST (0), PL_na);
- function = SvPV (ST (1), PL_na);
-
- if (perl_plugin->msg_handler_add (perl_plugin, irc_command,
- weechat_perl_cmd_msg_handler, function,
- (void *)perl_current_script))
- XSRETURN_YES;
-
- XSRETURN_NO;
-}
-
-/*
- * weechat::add_command_handler: add a command handler (define/redefine commands)
- */
-
-static XS (XS_weechat_add_command_handler)
-{
- char *command, *function, *description, *arguments, *arguments_description;
- char *completion_template;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to add command handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"add_command_handler\" function");
- XSRETURN_NO;
- }
-
- command = SvPV (ST (0), PL_na);
- function = SvPV (ST (1), PL_na);
- description = (items >= 3) ? SvPV (ST (2), PL_na) : NULL;
- arguments = (items >= 4) ? SvPV (ST (3), PL_na) : NULL;
- arguments_description = (items >= 5) ? SvPV (ST (4), PL_na) : NULL;
- completion_template = (items >= 6) ? SvPV (ST (5), PL_na) : NULL;
-
- if (perl_plugin->cmd_handler_add (perl_plugin,
- command,
- description,
- arguments,
- arguments_description,
- completion_template,
- weechat_perl_cmd_msg_handler,
- function,
- (void *)perl_current_script))
- XSRETURN_YES;
-
- XSRETURN_NO;
-}
-
-/*
- * weechat::add_timer_handler: add a timer handler
- */
-
-static XS (XS_weechat_add_timer_handler)
-{
- int interval;
- char *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to add timer handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"add_timer_handler\" function");
- XSRETURN_NO;
- }
-
- interval = SvIV (ST (0));
- function = SvPV (ST (1), PL_na);
-
- if (perl_plugin->timer_handler_add (perl_plugin, interval,
- weechat_perl_timer_handler, function,
- (void *)perl_current_script))
- XSRETURN_YES;
-
- XSRETURN_NO;
-}
-
-/*
- * weechat::add_keyboard_handler: add a keyboard handler
- */
-
-static XS (XS_weechat_add_keyboard_handler)
-{
- char *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to add keyboard handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"add_keyboard_handler\" function");
- XSRETURN_NO;
- }
-
- function = SvPV (ST (0), PL_na);
-
- if (perl_plugin->keyboard_handler_add (perl_plugin,
- weechat_perl_keyboard_handler,
- function,
- (void *)perl_current_script))
- XSRETURN_YES;
-
- XSRETURN_NO;
-}
-
-/*
- * weechat::add_event_handler: add an event handler
- */
-
-static XS (XS_weechat_add_event_handler)
-{
- char *event, *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to add event handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"add_event_handler\" function");
- XSRETURN_NO;
- }
-
- event = SvPV (ST (0), PL_na);
- function = SvPV (ST (1), PL_na);
-
- if (perl_plugin->event_handler_add (perl_plugin, event,
- weechat_perl_event_handler, function,
- (void *)perl_current_script))
- XSRETURN_YES;
-
- XSRETURN_NO;
-}
-
-/*
- * weechat::remove_handler: remove a message/command handler
- */
-
-static XS (XS_weechat_remove_handler)
-{
- char *command, *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to remove handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"remove_handler\" function");
- XSRETURN_NO;
- }
-
- command = SvPV (ST (0), PL_na);
- function = SvPV (ST (1), PL_na);
-
- weechat_script_remove_handler (perl_plugin, perl_current_script,
- command, function);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::remove_timer_handler: remove a timer handler
- */
-
-static XS (XS_weechat_remove_timer_handler)
-{
- char *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to remove timer handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"remove_timer_handler\" function");
- XSRETURN_NO;
- }
-
- function = SvPV (ST (0), PL_na);
-
- weechat_script_remove_timer_handler (perl_plugin, perl_current_script,
- function);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::remove_keyboard_handler: remove a keyboard handler
- */
-
-static XS (XS_weechat_remove_keyboard_handler)
-{
- char *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to remove keyboard handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"remove_keyboard_handler\" function");
- XSRETURN_NO;
- }
-
- function = SvPV (ST (0), PL_na);
-
- weechat_script_remove_keyboard_handler (perl_plugin, perl_current_script,
- function);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::remove_event_handler: remove an event handler
- */
-
-static XS (XS_weechat_remove_event_handler)
-{
- char *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to remove event handler, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"remove_event_handler\" function");
- XSRETURN_NO;
- }
-
- function = SvPV (ST (0), PL_na);
-
- weechat_script_remove_event_handler (perl_plugin, perl_current_script,
- function);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::add_modifier: add a modifier
- */
-
-static XS (XS_weechat_add_modifier)
-{
- char *type, *command, *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to add modifier, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 3)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"add_modifier\" function");
- XSRETURN_NO;
- }
-
- type = SvPV (ST (0), PL_na);
- command = SvPV (ST (1), PL_na);
- function = SvPV (ST (2), PL_na);
-
- if (perl_plugin->modifier_add (perl_plugin, type, command,
- weechat_perl_modifier, function,
- (void *)perl_current_script))
- XSRETURN_YES;
-
- XSRETURN_NO;
-}
-
-/*
- * weechat::remove_modifier: remove a modifier
- */
-
-static XS (XS_weechat_remove_modifier)
-{
- char *type, *command, *function;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to remove modifier, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"remove_modifier\" function");
- XSRETURN_NO;
- }
-
- type = SvPV (ST (0), PL_na);
- command = SvPV (ST (1), PL_na);
- function = SvPV (ST (2), PL_na);
-
- weechat_script_remove_modifier (perl_plugin, perl_current_script,
- type, command, function);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::get_info: get various infos
- */
-
-static XS (XS_weechat_get_info)
-{
- char *arg, *info, *server_name;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get info, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"get_info\" function");
- XSRETURN_NO;
- }
-
- server_name = (items == 2) ? SvPV (ST (1), PL_na) : NULL;
-
- arg = SvPV (ST (0), PL_na);
- if (arg)
- {
- info = perl_plugin->get_info (perl_plugin, arg, server_name);
-
- if (info)
- {
- XST_mPV (0, info);
- free (info);
- XSRETURN (1);
- }
- }
-
- XST_mPV (0, "");
- XSRETURN (1);
-}
-
-/*
- * weechat::get_dcc_info: get infos about DCC
- */
-
-static XS (XS_weechat_get_dcc_info)
-{
- t_plugin_dcc_info *dcc_info, *ptr_dcc;
- int count;
- char timebuffer1[64];
- char timebuffer2[64];
- struct in_addr in;
- HV *dcc_hash_member;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
- (void) items;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get DCC info, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- dcc_info = perl_plugin->get_dcc_info (perl_plugin);
- count = 0;
- if (!dcc_info)
- XSRETURN_EMPTY;
-
- for (ptr_dcc = dcc_info; ptr_dcc; ptr_dcc = ptr_dcc->next_dcc)
- {
- strftime(timebuffer1, sizeof(timebuffer1), "%F %T",
- localtime(&ptr_dcc->start_time));
- strftime(timebuffer2, sizeof(timebuffer2), "%F %T",
- localtime(&ptr_dcc->start_transfer));
- in.s_addr = htonl(ptr_dcc->addr);
-
- dcc_hash_member = (HV *) sv_2mortal ((SV *) newHV());
-
- hv_store (dcc_hash_member, "server", 6, newSVpv (ptr_dcc->server, 0), 0);
- hv_store (dcc_hash_member, "channel", 7, newSVpv (ptr_dcc->channel, 0), 0);
- hv_store (dcc_hash_member, "type", 4, newSViv (ptr_dcc->type), 0);
- hv_store (dcc_hash_member, "status", 6, newSViv (ptr_dcc->status), 0);
- hv_store (dcc_hash_member, "start_time", 10, newSVpv (timebuffer1, 0), 0);
- hv_store (dcc_hash_member, "start_transfer", 14, newSVpv (timebuffer2, 0), 0);
- hv_store (dcc_hash_member, "address", 7, newSVpv (inet_ntoa(in), 0), 0);
- hv_store (dcc_hash_member, "port", 4, newSViv (ptr_dcc->port), 0);
- hv_store (dcc_hash_member, "nick", 4, newSVpv (ptr_dcc->nick, 0), 0);
- hv_store (dcc_hash_member, "remote_file", 11, newSVpv (ptr_dcc->filename, 0), 0);
- hv_store (dcc_hash_member, "local_file", 10, newSVpv (ptr_dcc->local_filename, 0), 0);
- hv_store (dcc_hash_member, "filename_suffix", 15, newSViv (ptr_dcc->filename_suffix), 0);
- hv_store (dcc_hash_member, "size", 4, newSVnv (ptr_dcc->size), 0);
- hv_store (dcc_hash_member, "pos", 3, newSVnv (ptr_dcc->pos), 0);
- hv_store (dcc_hash_member, "start_resume", 12, newSVnv (ptr_dcc->start_resume), 0);
- hv_store (dcc_hash_member, "cps", 3, newSViv (ptr_dcc->bytes_per_sec), 0);
-
- XPUSHs(newRV_inc((SV *) dcc_hash_member));
- count++;
- }
- perl_plugin->free_dcc_info (perl_plugin, dcc_info);
-
- XSRETURN (count);
-}
-
-/*
- * weechat::get_config: get value of a WeeChat config option
- */
-
-static XS (XS_weechat_get_config)
-{
- char *option, *return_value;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get config option, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"get_config\" function");
- XSRETURN_EMPTY;
- }
-
- option = SvPV (ST (0), PL_na);
-
- if (option)
- {
- return_value = perl_plugin->get_config (perl_plugin, option);
-
- if (return_value)
- {
- XST_mPV (0, return_value);
- free (return_value);
- XSRETURN (1);
- }
- }
-
- XST_mPV (0, "");
- XSRETURN (1);
-}
-
-/*
- * weechat::set_config: set value of a WeeChat config option
- */
-
-static XS (XS_weechat_set_config)
-{
- char *option, *value;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to set config option, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"set_config\" function");
- XSRETURN_NO;
- }
-
- option = SvPV (ST (0), PL_na);
- value = SvPV (ST (1), PL_na);
-
- if (option && value)
- {
- if (perl_plugin->set_config (perl_plugin, option, value))
- XSRETURN_YES;
- }
-
- XSRETURN_NO;
-}
-
-/*
- * weechat::get_plugin_config: get value of a plugin config option
- */
-
-static XS (XS_weechat_get_plugin_config)
-{
- char *option, *return_value;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get plugin config option, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- if (items < 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"get_plugin_config\" function");
- XSRETURN_EMPTY;
- }
-
- option = SvPV (ST (0), PL_na);
-
- if (option)
- {
- return_value = weechat_script_get_plugin_config (perl_plugin,
- perl_current_script,
- option);
-
- if (return_value)
- {
- XST_mPV (0, return_value);
- free (return_value);
- XSRETURN (1);
- }
- }
-
- XST_mPV (0, "");
- XSRETURN (1);
-}
-
-/*
- * weechat::set_plugin_config: set value of a WeeChat config option
- */
-
-static XS (XS_weechat_set_plugin_config)
-{
- char *option, *value;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to set plugin config option, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"set_plugin_config\" function");
- XSRETURN_NO;
- }
-
- option = SvPV (ST (0), PL_na);
- value = SvPV (ST (1), PL_na);
-
- if (option && value)
- {
- if (weechat_script_set_plugin_config (perl_plugin,
- perl_current_script,
- option, value))
- XSRETURN_YES;
- }
-
- XSRETURN_NO;
-}
-
-/*
- * weechat::get_server_info: get infos about servers
- */
-
-static XS (XS_weechat_get_server_info)
-{
- t_plugin_server_info *server_info, *ptr_server;
- char timebuffer[64];
- HV *server_hash, *server_hash_member;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
- (void) items;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get server info, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- server_info = perl_plugin->get_server_info (perl_plugin);
- if (!server_info)
- {
- XSRETURN_EMPTY;
- }
-
- server_hash = (HV *) sv_2mortal((SV *) newHV());
- if (!server_hash)
- {
- perl_plugin->free_server_info (perl_plugin, server_info);
- XSRETURN_EMPTY;
- }
-
- for (ptr_server = server_info; ptr_server; ptr_server = ptr_server->next_server)
- {
- strftime(timebuffer, sizeof(timebuffer), "%F %T",
- localtime(&ptr_server->away_time));
-
- server_hash_member = (HV *) sv_2mortal((SV *) newHV());
-
- hv_store (server_hash_member, "autoconnect", 11, newSViv (ptr_server->autoconnect), 0);
- hv_store (server_hash_member, "autoreconnect", 13, newSViv (ptr_server->autoreconnect), 0);
- hv_store (server_hash_member, "autoreconnect_delay", 19, newSViv (ptr_server->autoreconnect_delay), 0);
- hv_store (server_hash_member, "temp_server", 11, newSViv (ptr_server->temp_server), 0);
- hv_store (server_hash_member, "address", 7, newSVpv (ptr_server->address, 0), 0);
- hv_store (server_hash_member, "port", 4, newSViv (ptr_server->port), 0);
- hv_store (server_hash_member, "ipv6", 4, newSViv (ptr_server->ipv6), 0);
- hv_store (server_hash_member, "ssl", 3, newSViv (ptr_server->ssl), 0);
- hv_store (server_hash_member, "password", 8, newSVpv (ptr_server->password, 0), 0);
- hv_store (server_hash_member, "nick1", 5, newSVpv (ptr_server->nick1, 0), 0);
- hv_store (server_hash_member, "nick2", 5, newSVpv (ptr_server->nick2, 0), 0);
- hv_store (server_hash_member, "nick3", 5, newSVpv (ptr_server->nick3, 0), 0);
- hv_store (server_hash_member, "username", 8, newSVpv (ptr_server->username, 0), 0);
- hv_store (server_hash_member, "realname", 8, newSVpv (ptr_server->realname, 0), 0);
- hv_store (server_hash_member, "command", 7, newSVpv (ptr_server->command, 0), 0);
- hv_store (server_hash_member, "command_delay", 13, newSViv (ptr_server->command_delay), 0);
- hv_store (server_hash_member, "autojoin", 8, newSVpv (ptr_server->autojoin, 0), 0);
- hv_store (server_hash_member, "autorejoin", 10, newSViv (ptr_server->autorejoin), 0);
- hv_store (server_hash_member, "notify_levels", 13, newSVpv (ptr_server->notify_levels, 0), 0);
- hv_store (server_hash_member, "is_connected", 12, newSViv (ptr_server->is_connected), 0);
- hv_store (server_hash_member, "ssl_connected", 13, newSViv (ptr_server->ssl_connected), 0);
- hv_store (server_hash_member, "nick", 4, newSVpv (ptr_server->nick, 0), 0);
- hv_store (server_hash_member, "nick_modes", 10, newSVpv (ptr_server->nick_modes, 0), 0);
- hv_store (server_hash_member, "away_time", 9, newSVpv (timebuffer, 0), 0);
- hv_store (server_hash_member, "lag", 3, newSViv (ptr_server->lag), 0);
-
- hv_store (server_hash, ptr_server->name, strlen(ptr_server->name), newRV_inc((SV *) server_hash_member), 0);
- }
- perl_plugin->free_server_info (perl_plugin, server_info);
-
- ST (0) = newRV_inc((SV *) server_hash);
- if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
-
- XSRETURN (1);
-}
-
-/*
- * weechat::get_channel_info: get infos about channels
- */
-
-static XS (XS_weechat_get_channel_info)
-{
- t_plugin_channel_info *channel_info, *ptr_channel;
- char *server;
- HV *channel_hash, *channel_hash_member;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get channel info, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- if (items != 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"get_channel_info\" function");
- XSRETURN_EMPTY;
- }
-
- server = SvPV (ST (0), PL_na);
- if (!server)
- XSRETURN_EMPTY;
-
- channel_info = perl_plugin->get_channel_info (perl_plugin, server);
- if (!channel_info)
- {
- XSRETURN_EMPTY;
- }
-
- channel_hash = (HV *) sv_2mortal((SV *) newHV());
- if (!channel_hash)
- {
- perl_plugin->free_channel_info (perl_plugin, channel_info);
- XSRETURN_EMPTY;
- }
-
- for (ptr_channel = channel_info; ptr_channel; ptr_channel = ptr_channel->next_channel)
- {
- channel_hash_member = (HV *) sv_2mortal((SV *) newHV());
-
- hv_store (channel_hash_member, "type", 4, newSViv (ptr_channel->type), 0);
- hv_store (channel_hash_member, "topic", 5, newSVpv (ptr_channel->topic, 0), 0);
- hv_store (channel_hash_member, "modes", 5, newSVpv (ptr_channel->modes, 0), 0);
- hv_store (channel_hash_member, "limit", 5, newSViv (ptr_channel->limit), 0);
- hv_store (channel_hash_member, "key", 3, newSVpv (ptr_channel->key, 0), 0);
- hv_store (channel_hash_member, "nicks_count", 11, newSViv (ptr_channel->nicks_count), 0);
-
- hv_store (channel_hash, ptr_channel->name, strlen(ptr_channel->name), newRV_inc((SV *) channel_hash_member), 0);
- }
- perl_plugin->free_channel_info (perl_plugin, channel_info);
-
- ST (0) = newRV_inc((SV *) channel_hash);
- if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
-
- XSRETURN (1);
-}
-
-/*
- * weechat::get_nick_info: get infos about nicks
- */
-
-static XS (XS_weechat_get_nick_info)
-{
- t_plugin_nick_info *nick_info, *ptr_nick;
- char *server, *channel;
- HV *nick_hash;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get nick info, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- if (items != 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"get_nick_info\" function");
- XSRETURN_EMPTY;
- }
-
- server = SvPV (ST (0), PL_na);
- channel = SvPV (ST (1), PL_na);
- if (!server || !channel)
- XSRETURN_EMPTY;
-
- nick_info = perl_plugin->get_nick_info (perl_plugin, server, channel);
- if (!nick_info)
- {
- XSRETURN_EMPTY;
- }
-
- nick_hash = (HV *) sv_2mortal((SV *) newHV());
- if (!nick_hash)
- {
- perl_plugin->free_nick_info (perl_plugin, nick_info);
- XSRETURN_EMPTY;
- }
-
- for (ptr_nick = nick_info; ptr_nick; ptr_nick = ptr_nick->next_nick)
- {
- HV *nick_hash_member = (HV *) sv_2mortal((SV *) newHV());
-
- hv_store (nick_hash_member, "flags", 5, newSViv (ptr_nick->flags), 0);
- hv_store (nick_hash_member, "host", 4, newSVpv (
- ptr_nick->host ? ptr_nick->host : "", 0), 0);
-
- hv_store (nick_hash, ptr_nick->nick, strlen(ptr_nick->nick), newRV_inc((SV *) nick_hash_member), 0);
- }
- perl_plugin->free_nick_info (perl_plugin, nick_info);
-
- ST (0) = newRV_inc((SV *) nick_hash);
- if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
-
- XSRETURN (1);
-}
-
-/*
- * weechat::color_input: add color in input buffer
- */
-
-static XS (XS_weechat_input_color)
-{
- int color, start, length;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to colorize input, "
- "script not initialized");
- XSRETURN_NO;
- }
-
- if (items < 3)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"color_input\" function");
- XSRETURN_NO;
- }
-
- color = SvIV (ST (0));
- start = SvIV (ST (1));
- length = SvIV (ST (2));
-
- perl_plugin->input_color (perl_plugin, color, start, length);
-
- XSRETURN_YES;
-}
-
-/*
- * weechat::get_irc_color:
- * get the numeric value which identify an irc color by its name
- */
-
-static XS (XS_weechat_get_irc_color)
-{
- char *color;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get irc color, "
- "script not initialized");
- XST_mIV (0, -1);
- XSRETURN (1);
- }
-
- if (items != 1)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"get_irc_info\" function");
- XST_mIV (0, -1);
- XSRETURN (1);
- }
-
- color = SvPV (ST (0), PL_na);
- if (color)
- {
- XST_mIV (0, perl_plugin->get_irc_color (perl_plugin, color));
- XSRETURN (1);
- }
-
- XST_mIV (0, -1);
- XSRETURN (-1);
-}
-
-/*
- * weechat::get_window_info: get infos about windows
- */
-
-static XS (XS_weechat_get_window_info)
-{
- t_plugin_window_info *window_info, *ptr_win;
- int count;
- HV *window_hash_member;
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
- (void) items;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get window info, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- window_info = perl_plugin->get_window_info (perl_plugin);
- count = 0;
- if (!window_info)
- XSRETURN_EMPTY;
-
- for (ptr_win = window_info; ptr_win; ptr_win = ptr_win->next_window)
- {
- window_hash_member = (HV *) sv_2mortal((SV *) newHV());
-
- hv_store (window_hash_member, "num_buffer", 10, newSViv (ptr_win->num_buffer), 0);
- hv_store (window_hash_member, "win_x", 5, newSViv (ptr_win->win_x), 0);
- hv_store (window_hash_member, "win_y", 5, newSViv (ptr_win->win_y), 0);
- hv_store (window_hash_member, "win_width", 9, newSViv (ptr_win->win_width), 0);
- hv_store (window_hash_member, "win_height", 10, newSViv (ptr_win->win_height), 0);
- hv_store (window_hash_member, "win_width_pct", 13, newSViv (ptr_win->win_width_pct), 0);
- hv_store (window_hash_member, "win_height_pct", 14, newSViv (ptr_win->win_height_pct), 0);
-
- XPUSHs(newRV_inc((SV *) window_hash_member));
- count++;
- }
- perl_plugin->free_window_info (perl_plugin, window_info);
-
- XSRETURN (count);
-}
-
-/*
- * weechat::get_buffer_info: get infos about buffers
- */
-
-static XS (XS_weechat_get_buffer_info)
-{
- t_plugin_buffer_info *buffer_info, *ptr_buffer;
- HV *buffer_hash, *buffer_hash_member;
- char conv[8];
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
- (void) items;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get buffer info, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- buffer_info = perl_plugin->get_buffer_info (perl_plugin);
- if (!buffer_info)
- {
- XSRETURN_EMPTY;
- }
-
- buffer_hash = (HV *) sv_2mortal((SV *) newHV());
- if (!buffer_hash)
- {
- perl_plugin->free_buffer_info (perl_plugin, buffer_info);
- XSRETURN_EMPTY;
- }
-
- for (ptr_buffer = buffer_info; ptr_buffer; ptr_buffer = ptr_buffer->next_buffer)
- {
- buffer_hash_member = (HV *) sv_2mortal((SV *) newHV());
-
- hv_store (buffer_hash_member, "type", 4, newSViv (ptr_buffer->type), 0);
- hv_store (buffer_hash_member, "num_displayed", 13, newSViv (ptr_buffer->num_displayed), 0);
- hv_store (buffer_hash_member, "server", 6,
- newSVpv (ptr_buffer->server_name == NULL ? "" : ptr_buffer->server_name, 0), 0);
- hv_store (buffer_hash_member, "channel", 7,
- newSVpv (ptr_buffer->channel_name == NULL ? "" : ptr_buffer->channel_name, 0), 0);
- hv_store (buffer_hash_member, "notify_level", 12, newSViv (ptr_buffer->notify_level), 0);
- hv_store (buffer_hash_member, "log_filename", 12,
- newSVpv (ptr_buffer->log_filename == NULL ? "" : ptr_buffer->log_filename, 0), 0);
- snprintf(conv, sizeof(conv), "%d", ptr_buffer->number);
- hv_store (buffer_hash, conv, strlen(conv), newRV_inc((SV *) buffer_hash_member), 0);
- }
- perl_plugin->free_buffer_info (perl_plugin, buffer_info);
-
- ST (0) = newRV_inc((SV *) buffer_hash);
- if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
-
- XSRETURN (1);
-}
-
-/*
- * weechat::get_buffer_data: get buffer content
- */
-
-static XS (XS_weechat_get_buffer_data)
-{
- t_plugin_buffer_line *buffer_data, *ptr_data;
- HV *data_list_member;
- char *server, *channel;
- char timebuffer[64];
- int count;
-
- dXSARGS;
-
- /* make C compiler happy */
- (void) cv;
- (void) items;
-
- if (!perl_current_script)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: unable to get buffer data, "
- "script not initialized");
- XSRETURN_EMPTY;
- }
-
- if (items != 2)
- {
- perl_plugin->print_server (perl_plugin,
- "Perl error: wrong parameters for "
- "\"get_buffer_data\" function");
- XSRETURN_EMPTY;
- }
-
- channel = NULL;
- server = NULL;
-
- if (items >= 1)
- server = SvPV (ST (0), PL_na);
- if (items >= 2)
- channel = SvPV (ST (1), PL_na);
-
- SP -= items;
-
- buffer_data = perl_plugin->get_buffer_data (perl_plugin, server, channel);
- count = 0;
- if (!buffer_data)
- XSRETURN_EMPTY;
-
- for (ptr_data = buffer_data; ptr_data; ptr_data = ptr_data->next_line)
- {
- data_list_member = (HV *) sv_2mortal((SV *) newHV());
-
- strftime(timebuffer, sizeof(timebuffer), "%F %T",
- localtime(&ptr_data->date));
-
- hv_store (data_list_member, "date", 4, newSVpv (timebuffer, 0), 0);
- hv_store (data_list_member, "nick", 4,
- newSVpv (ptr_data->nick == NULL ? "" : ptr_data->nick, 0), 0);
- hv_store (data_list_member, "data", 4,
- newSVpv (ptr_data->data == NULL ? "" : ptr_data->data, 0), 0);
-
- XPUSHs(newRV_inc((SV *) data_list_member));
- count++;
- }
- perl_plugin->free_buffer_data (perl_plugin, buffer_data);
-
- XSRETURN (count);
-}
-
-/*
- * weechat_perl_xs_init: initialize subroutines
- */
-
-void
-weechat_perl_xs_init (pTHX)
-{
- HV *stash;
-
- newXS ("DynaLoader::boot_DynaLoader", boot_DynaLoader, __FILE__);
-
- /* interface functions */
- newXS ("weechat::register", XS_weechat_register, "weechat");
- newXS ("weechat::set_charset", XS_weechat_set_charset, "weechat");
- newXS ("weechat::print", XS_weechat_print, "weechat");
- newXS ("weechat::print_server", XS_weechat_print_server, "weechat");
- newXS ("weechat::print_infobar", XS_weechat_print_infobar, "weechat");
- newXS ("weechat::remove_infobar", XS_weechat_remove_infobar, "weechat");
- newXS ("weechat::log", XS_weechat_log, "weechat");
- newXS ("weechat::command", XS_weechat_command, "weechat");
- newXS ("weechat::add_message_handler", XS_weechat_add_message_handler, "weechat");
- newXS ("weechat::add_command_handler", XS_weechat_add_command_handler, "weechat");
- newXS ("weechat::add_timer_handler", XS_weechat_add_timer_handler, "weechat");
- newXS ("weechat::add_keyboard_handler", XS_weechat_add_keyboard_handler, "weechat");
- newXS ("weechat::add_event_handler", XS_weechat_add_event_handler, "weechat");
- newXS ("weechat::remove_handler", XS_weechat_remove_handler, "weechat");
- newXS ("weechat::remove_timer_handler", XS_weechat_remove_timer_handler, "weechat");
- newXS ("weechat::remove_keyboard_handler", XS_weechat_remove_keyboard_handler, "weechat");
- newXS ("weechat::remove_event_handler", XS_weechat_remove_event_handler, "weechat");
- newXS ("weechat::add_modifier", XS_weechat_add_modifier, "weechat");
- newXS ("weechat::remove_modifier", XS_weechat_remove_modifier, "weechat");
- newXS ("weechat::get_info", XS_weechat_get_info, "weechat");
- newXS ("weechat::get_dcc_info", XS_weechat_get_dcc_info, "weechat");
- newXS ("weechat::get_config", XS_weechat_get_config, "weechat");
- newXS ("weechat::set_config", XS_weechat_set_config, "weechat");
- newXS ("weechat::get_plugin_config", XS_weechat_get_plugin_config, "weechat");
- newXS ("weechat::set_plugin_config", XS_weechat_set_plugin_config, "weechat");
- newXS ("weechat::get_server_info", XS_weechat_get_server_info, "weechat");
- newXS ("weechat::get_channel_info", XS_weechat_get_channel_info, "weechat");
- newXS ("weechat::get_nick_info", XS_weechat_get_nick_info, "weechat");
- newXS ("weechat::input_color", XS_weechat_input_color, "weechat");
- newXS ("weechat::get_irc_color", XS_weechat_get_irc_color, "weechat");
- newXS ("weechat::get_window_info", XS_weechat_get_window_info, "weechat");
- newXS ("weechat::get_buffer_info", XS_weechat_get_buffer_info, "weechat");
- newXS ("weechat::get_buffer_data", XS_weechat_get_buffer_data, "weechat");
-
- /* interface constants */
- stash = gv_stashpv ("weechat", TRUE);
- newCONSTSUB (stash, "weechat::PLUGIN_RC_KO", newSViv (PLUGIN_RC_KO));
- newCONSTSUB (stash, "weechat::PLUGIN_RC_OK", newSViv (PLUGIN_RC_OK));
- newCONSTSUB (stash, "weechat::PLUGIN_RC_OK_IGNORE_WEECHAT", newSViv (PLUGIN_RC_OK_IGNORE_WEECHAT));
- newCONSTSUB (stash, "weechat::PLUGIN_RC_OK_IGNORE_PLUGINS", newSViv (PLUGIN_RC_OK_IGNORE_PLUGINS));
- newCONSTSUB (stash, "weechat::PLUGIN_RC_OK_IGNORE_ALL", newSViv (PLUGIN_RC_OK_IGNORE_ALL));
- newCONSTSUB (stash, "weechat::PLUGIN_RC_OK_WITH_HIGHLIGHT", newSViv (PLUGIN_RC_OK_WITH_HIGHLIGHT));
-}
-
-/*
- * weechat_perl_load: load a Perl script
- */
-
-int
-weechat_perl_load (t_weechat_plugin *plugin, char *filename)
-{
- STRLEN len;
- t_plugin_script tempscript;
- int *eval;
- struct stat buf;
-
-#ifndef MULTIPLICITY
- char pkgname[64];
-#else
- PerlInterpreter *perl_current_interpreter;
- char *perl_args[] = { "", "-e", "0" };
-#endif
-
- plugin->print_server (plugin, "Loading Perl script \"%s\"", filename);
-
- if (stat (filename, &buf) != 0)
- {
- plugin->print_server (plugin, "Perl error: script \"%s\" not found",
- filename);
- return 0;
- }
-
- perl_current_script = NULL;
-
-#ifndef MULTIPLICITY
- snprintf(pkgname, sizeof(pkgname), "%s%d", PKG_NAME_PREFIX, perl_num);
- perl_num++;
- tempscript.interpreter = "WeechatPerlScriptLoader";
- eval = weechat_perl_exec (plugin, &tempscript,
- SCRIPT_EXEC_INT,
- "weechat_perl_load_eval_file", filename, pkgname, "");
-#else
- perl_current_interpreter = perl_alloc();
-
- if (perl_current_interpreter == NULL)
- {
- plugin->print_server (plugin,
- "Perl error: unable to create new sub-interpreter");
- return 0;
- }
-
- perl_current_script_filename = filename;
-
- PERL_SET_CONTEXT (perl_current_interpreter);
- perl_construct (perl_current_interpreter);
- tempscript.interpreter = (PerlInterpreter *) perl_current_interpreter;
- perl_parse (perl_current_interpreter, weechat_perl_xs_init, 3, perl_args, NULL);
-
- eval_pv (perl_weechat_code, TRUE);
- eval = weechat_perl_exec (plugin, &tempscript,
- SCRIPT_EXEC_INT,
- "weechat_perl_load_eval_file", filename, "", "");
-#endif
- if (eval == NULL)
- {
- plugin->print_server (plugin,
- "Perl error: memory error while parsing file \"%s\"",
- filename);
- return 0;
- }
-
- if ( *eval != 0)
- {
- if (*eval == 2)
- {
- plugin->print_server (plugin,
- "Perl error: unable to parse file \"%s\"",
- filename);
- plugin->print_server (plugin,
- "Perl error: %s",
-#ifndef MULTIPLICITY
- SvPV(perl_get_sv("WeechatPerlScriptLoader::weechat_perl_load_eval_file_error", FALSE), len)
-#else
- SvPV(perl_get_sv("weechat_perl_load_eval_file_error", FALSE), len)
-#endif
- );
- }
- else if (*eval == 1)
- {
- plugin->print_server (plugin,
- "Perl error: unable to run file \"%s\"",
- filename);
- }
- else {
- plugin->print_server (plugin,
- "Perl error: unknown error while loading file \"%s\"",
- filename);
- }
-#ifdef MULTIPLICITY
- perl_destruct (perl_current_interpreter);
- perl_free (perl_current_interpreter);
-#endif
- if ((perl_current_script != NULL) && (perl_current_script != &tempscript))
- weechat_script_remove (plugin, &perl_scripts, perl_current_script);
-
- free (eval);
- return 0;
- }
-
- free (eval);
-
- if (perl_current_script == NULL)
- {
- plugin->print_server (plugin,
- "Perl error: function \"register\" not found "
- "(or failed) in file \"%s\"",
- filename);
-#ifdef MULTIPLICITY
- perl_destruct (perl_current_interpreter);
- perl_free (perl_current_interpreter);
-#endif
- return 0;
- }
-
-#ifndef MULTIPLICITY
- perl_current_script->interpreter = strdup(pkgname);
-#else
- perl_current_script->interpreter = (PerlInterpreter *) perl_current_interpreter;
-#endif
-
- return 1;
-}
-
-/*
- * weechat_perl_unload: unload a Perl script
- */
-
-void
-weechat_perl_unload (t_weechat_plugin *plugin, t_plugin_script *script)
-{
- int *r;
-
- plugin->print_server (plugin,
- "Unloading Perl script \"%s\"",
- script->name);
-
-#ifndef MULTIPLICITY
- eval_pv(script->interpreter, TRUE);
-#else
- PERL_SET_CONTEXT (script->interpreter);
-#endif
-
- if (script->shutdown_func[0])
- {
- r = (int *) weechat_perl_exec (plugin, script, SCRIPT_EXEC_INT,
- script->shutdown_func, NULL, NULL, NULL);
- if (r)
- free (r);
- }
-
-#ifndef MULTIPLICITY
- if (script->interpreter)
- free (script->interpreter);
-#else
- perl_destruct (script->interpreter);
- perl_free (script->interpreter);
-#endif
-
- weechat_script_remove (plugin, &perl_scripts, script);
-}
-
-/*
- * weechat_perl_unload_name: unload a Perl script by name
- */
-
-void
-weechat_perl_unload_name (t_weechat_plugin *plugin, char *name)
-{
- t_plugin_script *ptr_script;
-
- ptr_script = weechat_script_search (plugin, &perl_scripts, name);
- if (ptr_script)
- {
- weechat_perl_unload (plugin, ptr_script);
- plugin->print_server (plugin,
- "Perl script \"%s\" unloaded",
- name);
- }
- else
- {
- plugin->print_server (plugin,
- "Perl error: script \"%s\" not loaded",
- name);
- }
-}
-
-/*
- * weechat_perl_unload_all: unload all Perl scripts
- */
-
-void
-weechat_perl_unload_all (t_weechat_plugin *plugin)
-{
- plugin->print_server (plugin,
- "Unloading all Perl scripts");
- while (perl_scripts)
- weechat_perl_unload (plugin, perl_scripts);
-
- plugin->print_server (plugin,
- "Perl scripts unloaded");
-}
-
-/*
- * weechat_perl_cmd: /perl command handler
- */
-
-int
-weechat_perl_cmd (t_weechat_plugin *plugin,
- int cmd_argc, char **cmd_argv,
- char *handler_args, void *handler_pointer)
-{
- int argc, handler_found, modifier_found;
- char **argv, *path_script;
- t_plugin_script *ptr_script;
- t_plugin_handler *ptr_handler;
- t_plugin_modifier *ptr_modifier;
-
- if (cmd_argc < 3)
- return PLUGIN_RC_KO;
-
- /* make C compiler happy */
- (void) handler_args;
- (void) handler_pointer;
-
- if (cmd_argv[2])
- argv = plugin->explode_string (plugin, cmd_argv[2], " ", 0, &argc);
- else
- {
- argv = NULL;
- argc = 0;
- }
-
- switch (argc)
- {
- case 0:
- /* list registered Perl scripts */
- plugin->print_server (plugin, "");
- plugin->print_server (plugin, "Registered Perl scripts:");
- if (perl_scripts)
- {
- for (ptr_script = perl_scripts;
- ptr_script; ptr_script = ptr_script->next_script)
- {
- plugin->print_server (plugin, " %s v%s%s%s",
- ptr_script->name,
- ptr_script->version,
- (ptr_script->description[0]) ? " - " : "",
- ptr_script->description);
- }
- }
- else
- plugin->print_server (plugin, " (none)");
-
- /* list Perl message handlers */
- plugin->print_server (plugin, "");
- plugin->print_server (plugin, "Perl message handlers:");
- handler_found = 0;
- for (ptr_handler = plugin->handlers;
- ptr_handler; ptr_handler = ptr_handler->next_handler)
- {
- if ((ptr_handler->type == PLUGIN_HANDLER_MESSAGE)
- && (ptr_handler->handler_args))
- {
- handler_found = 1;
- plugin->print_server (plugin, " IRC(%s) => Perl(%s)",
- ptr_handler->irc_command,
- ptr_handler->handler_args);
- }
- }
- if (!handler_found)
- plugin->print_server (plugin, " (none)");
-
- /* list Perl command handlers */
- plugin->print_server (plugin, "");
- plugin->print_server (plugin, "Perl command handlers:");
- handler_found = 0;
- for (ptr_handler = plugin->handlers;
- ptr_handler; ptr_handler = ptr_handler->next_handler)
- {
- if ((ptr_handler->type == PLUGIN_HANDLER_COMMAND)
- && (ptr_handler->handler_args))
- {
- handler_found = 1;
- plugin->print_server (plugin, " /%s => Perl(%s)",
- ptr_handler->command,
- ptr_handler->handler_args);
- }
- }
- if (!handler_found)
- plugin->print_server (plugin, " (none)");
-
- /* list Perl timer handlers */
- plugin->print_server (plugin, "");
- plugin->print_server (plugin, "Perl timer handlers:");
- handler_found = 0;
- for (ptr_handler = plugin->handlers;
- ptr_handler; ptr_handler = ptr_handler->next_handler)
- {
- if ((ptr_handler->type == PLUGIN_HANDLER_TIMER)
- && (ptr_handler->handler_args))
- {
- handler_found = 1;
- plugin->print_server (plugin, " %d seconds => Perl(%s)",
- ptr_handler->interval,
- ptr_handler->handler_args);
- }
- }
- if (!handler_found)
- plugin->print_server (plugin, " (none)");
-
- /* list Perl keyboard handlers */
- plugin->print_server (plugin, "");
- plugin->print_server (plugin, "Perl keyboard handlers:");
- handler_found = 0;
- for (ptr_handler = plugin->handlers;
- ptr_handler; ptr_handler = ptr_handler->next_handler)
- {
- if ((ptr_handler->type == PLUGIN_HANDLER_KEYBOARD)
- && (ptr_handler->handler_args))
- {
- handler_found = 1;
- plugin->print_server (plugin, " Perl(%s)",
- ptr_handler->handler_args);
- }
- }
- if (!handler_found)
- plugin->print_server (plugin, " (none)");
-
- /* list Perl event handlers */
- plugin->print_server (plugin, "");
- plugin->print_server (plugin, "Perl event handlers:");
- handler_found = 0;
- for (ptr_handler = plugin->handlers;
- ptr_handler; ptr_handler = ptr_handler->next_handler)
- {
- if ((ptr_handler->type == PLUGIN_HANDLER_EVENT)
- && (ptr_handler->handler_args))
- {
- handler_found = 1;
- plugin->print_server (plugin, " %s => Perl(%s)",
- ptr_handler->event,
- ptr_handler->handler_args);
- }
- }
- if (!handler_found)
- plugin->print_server (plugin, " (none)");
-
- /* List Perl modifiers */
- plugin->print_server (plugin, "");
- plugin->print_server (plugin, "Perl modifiers:");
- modifier_found = 0;
- for (ptr_modifier = plugin->modifiers;
- ptr_modifier; ptr_modifier = ptr_modifier->next_modifier)
- {
- modifier_found = 1;
- if (ptr_modifier->type == PLUGIN_MODIFIER_IRC_IN)
- plugin->print_server (plugin, " IRC(%s, %s) => Perl(%s)",
- ptr_modifier->command,
- PLUGIN_MODIFIER_IRC_IN_STR,
- ptr_modifier->modifier_args);
- else if (ptr_modifier->type == PLUGIN_MODIFIER_IRC_USER)
- plugin->print_server (plugin, " IRC(%s, %s) => Perl(%s)",
- ptr_modifier->command,
- PLUGIN_MODIFIER_IRC_USER_STR,
- ptr_modifier->modifier_args);
- else if (ptr_modifier->type == PLUGIN_MODIFIER_IRC_OUT)
- plugin->print_server (plugin, " IRC(%s, %s) => Perl(%s)",
- ptr_modifier->command,
- PLUGIN_MODIFIER_IRC_OUT_STR,
- ptr_modifier->modifier_args);
- }
- if (!modifier_found)
- plugin->print_server (plugin, " (none)");
- break;
-
- case 1:
- if (plugin->strcasecmp (plugin, argv[0], "autoload") == 0)
- weechat_script_auto_load (plugin, "perl", weechat_perl_load);
- else if (plugin->strcasecmp (plugin, argv[0], "reload") == 0)
- {
- weechat_perl_unload_all (plugin);
- weechat_script_auto_load (plugin, "perl", weechat_perl_load);
- }
- else if (plugin->strcasecmp (plugin, argv[0], "unload") == 0)
- weechat_perl_unload_all (plugin);
- break;
- case 2:
- if (plugin->strcasecmp (plugin, argv[0], "load") == 0)
- {
- /* load Perl script */
- path_script = weechat_script_search_full_name (plugin, "perl", argv[1]);
- weechat_perl_load (plugin, (path_script) ? path_script : argv[1]);
- if (path_script)
- free (path_script);
- }
- else if (plugin->strcasecmp (plugin, argv[0], "unload") == 0)
- {
- /* unload Perl script */
- weechat_perl_unload_name (plugin, argv[1]);
- }
- else
- {
- plugin->print_server (plugin,
- "Perl error: unknown option for "
- "\"perl\" command");
- }
- break;
- default:
- plugin->print_server (plugin,
- "Perl error: wrong argument count for \"perl\" command");
- }
-
- if (argv)
- plugin->free_exploded_string (plugin, argv);
-
- return PLUGIN_RC_OK;
-}
-
-/*
- * weechat_plugin_init: initialize Perl plugin
- */
-
-int
-weechat_plugin_init (t_weechat_plugin *plugin)
-{
- perl_plugin = plugin;
-
-#ifdef MULTIPLICITY
- plugin->print_server (plugin, "Loading Perl module \"weechat\"");
-#else
- char *perl_args[] = { "", "-e", "0" };
-
- plugin->print_server (plugin, "Loading Perl module \"weechat\" (without multiplicity)");
-
- perl_main = perl_alloc ();
-
- if (!perl_main)
- {
- plugin->print_server (plugin,
- "Perl error: unable to initialize Perl");
- return PLUGIN_RC_KO;
- }
-
- perl_construct (perl_main);
- perl_parse (perl_main, weechat_perl_xs_init, 3, perl_args, NULL);
- eval_pv (perl_weechat_code, TRUE);
-#endif
-
- plugin->cmd_handler_add (plugin, "perl",
- "list/load/unload Perl scripts",
- "[load filename] | [autoload] | [reload] | [unload [script]]",
- "filename: Perl script (file) to load\n"
- "script: script name to unload\n\n"
- "Without argument, /perl command lists all loaded Perl scripts.",
- "load|autoload|reload|unload %f",
- weechat_perl_cmd, NULL, NULL);
-
- plugin->mkdir_home (plugin, "perl");
- plugin->mkdir_home (plugin, "perl/autoload");
-
- weechat_script_auto_load (plugin, "perl", weechat_perl_load);
-
- /* init ok */
- return PLUGIN_RC_OK;
-}
-
-/*
- * weechat_plugin_end: shutdown Perl interface
- */
-
-void
-weechat_plugin_end (t_weechat_plugin *plugin)
-{
- /* unload all scripts */
- weechat_perl_unload_all (plugin);
-
-#ifndef MULTIPLICITY
- /* free perl intepreter */
- if (perl_main)
- {
- perl_destruct (perl_main);
- perl_free (perl_main);
- perl_main = NULL;
- }
-#endif
-
- perl_plugin->print_server (perl_plugin,
- "Perl plugin ended");
-}
diff --git a/src/plugins/scripts/perl/weechat-perl-api.c b/src/plugins/scripts/perl/weechat-perl-api.c
new file mode 100644
index 000000000..4ccbe7dbf
--- /dev/null
+++ b/src/plugins/scripts/perl/weechat-perl-api.c
@@ -0,0 +1,1865 @@
+/*
+ * Copyright (c) 2003-2008 by FlashCode <flashcode@flashtux.org>
+ * See README for License detail, AUTHORS for developers list.
+ *
+ * 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 3 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/>.
+ */
+
+/* weechat-perl-api.c: Perl API functions */
+
+#undef _
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <EXTERN.h>
+#include <perl.h>
+#include <XSUB.h>
+
+#include "../../weechat-plugin.h"
+#include "../script.h"
+#include "weechat-perl.h"
+
+
+extern void boot_DynaLoader (pTHX_ CV* cv);
+
+
+/*
+ * weechat::register: startup function for all WeeChat Perl scripts
+ */
+
+static XS (XS_weechat_register)
+{
+ char *name, *version, *shutdown_func, *description, *charset;
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) items;
+ (void) cv;
+
+ perl_current_script = NULL;
+
+ if ((items < 4) || (items > 5))
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "register");
+ XSRETURN_NO;
+ }
+
+ name = SvPV (ST (0), PL_na);
+ version = SvPV (ST (1), PL_na);
+ shutdown_func = SvPV (ST (2), PL_na);
+ description = SvPV (ST (3), PL_na);
+ charset = (items == 5) ? SvPV (ST (4), PL_na) : NULL;
+
+ if (weechat_script_search (weechat_perl_plugin, &perl_scripts, name))
+ {
+ /* error: another script already exists with this name! */
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: unable to register script "
+ "\"%s\" (another script already "
+ "exists with this name)"),
+ weechat_prefix ("error"), "perl", name);
+ XSRETURN_NO;
+ }
+
+ /* register script */
+ perl_current_script = weechat_script_add (weechat_perl_plugin,
+ &perl_scripts,
+ (perl_current_script_filename) ?
+ perl_current_script_filename : "",
+ name, version, shutdown_func,
+ description, charset);
+ if (perl_current_script)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: registered script \"%s\", "
+ "version %s (%s)"),
+ weechat_prefix ("info"), "perl",
+ name, version, description);
+ }
+ else
+ {
+ XSRETURN_NO;
+ }
+
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::charser_set: set script charset
+ */
+
+static XS (XS_weechat_charset_set)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "charset_set");
+ XSRETURN_NO;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "charset_set");
+ XSRETURN_NO;
+ }
+
+ weechat_script_charset_set (perl_current_script,
+ SvPV (ST (0), PL_na));
+
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::iconv_to_internal: convert string to internal WeeChat charset
+ */
+
+static XS (XS_weechat_iconv_to_internal)
+{
+ char *charset, *string, *result;
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "iconv_to_internal");
+ XSRETURN_EMPTY;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "iconv_to_internal");
+ XSRETURN_EMPTY;
+ }
+
+ if (items > 1)
+ {
+ charset = SvPV (ST (0), PL_na);
+ string = SvPV (ST (1), PL_na);
+ }
+ else
+ {
+ charset = (perl_current_script->charset) ?
+ perl_current_script->charset : weechat_perl_plugin->charset;
+ string = SvPV (ST (0), PL_na);
+ }
+
+ result = weechat_iconv_to_internal (charset, string);
+ if (result)
+ {
+ XST_mPV (0, result);
+ free (result);
+ XSRETURN (1);
+ }
+
+ XST_mPV (0, "");
+ XSRETURN (1);
+}
+
+/*
+ * weechat::iconv_from_internal: convert string from WeeChat inernal to other
+ */
+
+static XS (XS_weechat_iconv_from_internal)
+{
+ char *charset, *string, *result;
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "iconv_from_internal");
+ XSRETURN_EMPTY;
+ }
+
+ if (items < 2)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "iconv_from_internal");
+ XSRETURN_EMPTY;
+ }
+
+ charset = SvPV (ST (0), PL_na);
+ string = SvPV (ST (1), PL_na);
+
+ result = weechat_iconv_from_internal (charset, string);
+ if (result)
+ {
+ XST_mPV (0, result);
+ free (result);
+ XSRETURN (1);
+ }
+
+ XST_mPV (0, "");
+ XSRETURN (1);
+}
+
+/*
+ * weechat::mkdir_home: create a directory in WeeChat home
+ */
+
+static XS (XS_weechat_mkdir_home)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "mkdir_home");
+ XSRETURN_NO;
+ }
+
+ if (items < 2)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "mkdir_home");
+ XSRETURN_NO;
+ }
+
+ weechat_mkdir_home (SvPV (ST (0), PL_na), /* directory */
+ SvIV (ST (1))); /* mode */
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::mkdir: create a directory
+ */
+
+static XS (XS_weechat_mkdir)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "mkdir");
+ XSRETURN_NO;
+ }
+
+ if (items < 2)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "mkdir");
+ XSRETURN_NO;
+ }
+
+ weechat_mkdir (SvPV (ST (0), PL_na), /* directory */
+ SvIV (ST (1))); /* mode */
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::prefix: get a prefix, used for display
+ */
+
+static XS (XS_weechat_prefix)
+{
+ char *result;
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "prefix");
+ XSRETURN_EMPTY;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "prefix");
+ XSRETURN_EMPTY;
+ }
+
+ result = weechat_prefix (SvPV (ST (0), PL_na));
+ if (result)
+ {
+ XST_mPV (0, result);
+ XSRETURN (1);
+ }
+
+ XST_mPV (0, "");
+ XSRETURN (1);
+}
+
+/*
+ * weechat::color: get a color code, used for display
+ */
+
+static XS (XS_weechat_color)
+{
+ char *result;
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "color");
+ XSRETURN_EMPTY;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "color");
+ XSRETURN_EMPTY;
+ }
+
+ result = weechat_color (SvPV (ST (0), PL_na));
+ if (result)
+ {
+ XST_mPV (0, result);
+ XSRETURN (1);
+ }
+
+ XST_mPV (0, "");
+ XSRETURN (1);
+}
+
+/*
+ * weechat::print: print message into a buffer (current or specified one)
+ */
+
+static XS (XS_weechat_print)
+{
+ char *buffer, *message;
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "print");
+ XSRETURN_NO;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "print");
+ XSRETURN_NO;
+ }
+
+ if (items > 1)
+ {
+ buffer = SvPV (ST (0), PL_na);
+ message = SvPV (ST (1), PL_na);
+ }
+ else
+ {
+ buffer = NULL;
+ message = SvPV (ST (0), PL_na);
+ }
+
+ weechat_script_printf (weechat_perl_plugin, perl_current_script,
+ weechat_script_string_to_pointer (buffer),
+ "%s", message);
+
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::infobar_print: print message to infobar
+ */
+
+static XS (XS_weechat_infobar_print)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "infobar_print");
+ XSRETURN_NO;
+ }
+
+ if (items < 3)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "infobar_print");
+ XSRETURN_NO;
+ }
+
+ weechat_script_infobar_printf (weechat_perl_plugin, perl_current_script,
+ SvIV (ST (0)),
+ SvPV (ST (1), PL_na),
+ "%s", SvPV (ST (1), PL_na));
+
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::infobar_remove: remove message(s) from infobar
+ */
+
+static XS (XS_weechat_infobar_remove)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "infobar_remove");
+ XSRETURN_NO;
+ }
+
+ weechat_infobar_remove ((items >= 1) ? SvIV (ST (0)) : 0);
+
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::log_print: log message in server/channel (current or specified ones)
+ */
+
+static XS (XS_weechat_log_print)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "log_print");
+ XSRETURN_NO;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "log_print");
+ XSRETURN_NO;
+ }
+
+ weechat_script_log_printf (weechat_perl_plugin, perl_current_script,
+ "%s", SvPV (ST (0), PL_na));
+
+ XSRETURN_YES;
+}
+
+/*
+ * weechat_perl_api_hook_command_cb: callback for command hooked
+ */
+
+int
+weechat_perl_api_hook_command_cb (void *data, struct t_gui_buffer *buffer,
+ int argc, char **argv, char **argv_eol)
+{
+ struct t_script_hook *script_hook;
+ char *perl_argv[3];
+ int *r, ret;
+
+ /* make C compiler happy */
+ (void) argv;
+
+ script_hook = (struct t_script_hook *)data;
+
+ perl_argv[0] = weechat_script_pointer_to_string (buffer);
+ if (argc > 1)
+ {
+ perl_argv[1] = argv_eol[1];
+ perl_argv[2] = NULL;
+ }
+ else
+ {
+ perl_argv[1] = NULL;
+ }
+ r = (int *) weechat_perl_exec (script_hook->script,
+ WEECHAT_SCRIPT_EXEC_INT,
+ script_hook->function,
+ perl_argv);
+ if (!r)
+ ret = WEECHAT_RC_ERROR;
+ else
+ {
+ ret = *r;
+ free (r);
+ }
+ if (perl_argv[0])
+ free (perl_argv[0]);
+ return ret;
+}
+
+/*
+ * weechat::hook_command: hook a command
+ */
+
+static XS (XS_weechat_hook_command)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "hook_command");
+ XSRETURN_NO;
+ }
+
+ if (items < 6)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "hook_command");
+ XSRETURN_NO;
+ }
+
+ if (weechat_script_hook_command (weechat_perl_plugin,
+ perl_current_script,
+ SvPV (ST (0), PL_na), /* command */
+ SvPV (ST (1), PL_na), /* description */
+ SvPV (ST (2), PL_na), /* args */
+ SvPV (ST (3), PL_na), /* args_description */
+ SvPV (ST (4), PL_na), /* completion */
+ weechat_perl_api_hook_command_cb,
+ SvPV (ST (5), PL_na)))
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+/*
+ * weechat_perl_api_hook_timer_cb: callback for timer hooked
+ */
+
+int
+weechat_perl_api_hook_timer_cb (void *data)
+{
+ struct t_script_hook *script_hook;
+ char *perl_argv[1] = { NULL };
+ int *r, ret;
+
+ script_hook = (struct t_script_hook *)data;
+
+ r = (int *) weechat_perl_exec (script_hook->script,
+ WEECHAT_SCRIPT_EXEC_INT,
+ script_hook->function,
+ perl_argv);
+ if (!r)
+ ret = WEECHAT_RC_ERROR;
+ else
+ {
+ ret = *r;
+ free (r);
+ }
+ return ret;
+}
+
+/*
+ * weechat::hook_timer: hook a timer
+ */
+
+static XS (XS_weechat_hook_timer)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "hook_timer");
+ XSRETURN_NO;
+ }
+
+ if (items < 4)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "hook_timer");
+ XSRETURN_NO;
+ }
+
+ if (weechat_script_hook_timer (weechat_perl_plugin,
+ perl_current_script,
+ SvIV (ST (0)), /* interval */
+ SvIV (ST (1)), /* align_second */
+ SvIV (ST (2)), /* max_calls */
+ weechat_perl_api_hook_timer_cb,
+ SvPV (ST (3), PL_na)))
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+/*
+ * weechat_perl_api_hook_fd_cb: callback for fd hooked
+ */
+
+int
+weechat_perl_api_hook_fd_cb (void *data)
+{
+ struct t_script_hook *script_hook;
+ char *perl_argv[1] = { NULL };
+ int *r;
+ int ret;
+
+ script_hook = (struct t_script_hook *)data;
+
+ r = (int *) weechat_perl_exec (script_hook->script,
+ WEECHAT_SCRIPT_EXEC_INT,
+ script_hook->function,
+ perl_argv);
+ if (!r)
+ ret = WEECHAT_RC_ERROR;
+ else
+ {
+ ret = *r;
+ free (r);
+ }
+ return ret;
+}
+
+/*
+ * weechat::hook_fd: hook a fd
+ */
+
+static XS (XS_weechat_hook_fd)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "hook_fd");
+ XSRETURN_NO;
+ }
+
+ if (items < 5)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "hook_fd");
+ XSRETURN_NO;
+ }
+
+ if (weechat_script_hook_fd (weechat_perl_plugin,
+ perl_current_script,
+ SvIV (ST (0)), /* fd */
+ SvIV (ST (1)), /* read */
+ SvIV (ST (2)), /* write */
+ SvIV (ST (3)), /* exception */
+ weechat_perl_api_hook_fd_cb,
+ SvPV (ST (4), PL_na)))
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+/*
+ * weechat_perl_api_hook_print_cb: callback for print hooked
+ */
+
+int
+weechat_perl_api_hook_print_cb (void *data, struct t_gui_buffer *buffer,
+ time_t date, char *prefix, char *message)
+{
+ struct t_script_hook *script_hook;
+ char *perl_argv[5];
+ static char timebuffer[64];
+ int *r, ret;
+
+ script_hook = (struct t_script_hook *)data;
+
+ snprintf (timebuffer, sizeof (timebuffer) - 1, "%ld", date);
+
+ perl_argv[0] = weechat_script_pointer_to_string (buffer);
+ perl_argv[1] = timebuffer;
+ perl_argv[2] = prefix;
+ perl_argv[3] = message;
+ perl_argv[4] = NULL;
+
+ r = (int *) weechat_perl_exec (script_hook->script,
+ WEECHAT_SCRIPT_EXEC_INT,
+ script_hook->function,
+ perl_argv);
+ if (!r)
+ ret = WEECHAT_RC_ERROR;
+ else
+ {
+ ret = *r;
+ free (r);
+ }
+ if (perl_argv[0])
+ free (perl_argv[0]);
+ return ret;
+}
+
+/*
+ * weechat::hook_print: hook a print
+ */
+
+static XS (XS_weechat_hook_print)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "hook_print");
+ XSRETURN_NO;
+ }
+
+ if (items < 4)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "hook_print");
+ XSRETURN_NO;
+ }
+
+ if (weechat_script_hook_print (weechat_perl_plugin,
+ perl_current_script,
+ weechat_script_string_to_pointer (SvPV (ST (0), PL_na)), /* buffer */
+ SvPV (ST (1), PL_na), /* message */
+ SvIV (ST (2)), /* strip_colors */
+ weechat_perl_api_hook_print_cb,
+ SvPV (ST (3), PL_na)))
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+/*
+ * weechat_perl_api_hook_signal_cb: callback for signal hooked
+ */
+
+int
+weechat_perl_api_hook_signal_cb (void *data, char *signal, char *type_data,
+ void *signal_data)
+{
+ struct t_script_hook *script_hook;
+ char *perl_argv[3];
+ static char value_str[64];
+ int *r, ret, free_needed;
+
+ script_hook = (struct t_script_hook *)data;
+
+ perl_argv[0] = signal;
+ free_needed = 0;
+ if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0)
+ {
+ perl_argv[1] = (char *)signal_data;
+ }
+ else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_INT) == 0)
+ {
+ snprintf (value_str, sizeof (value_str) - 1,
+ "%d", *((int *)signal_data));
+ perl_argv[1] = value_str;
+ }
+ else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0)
+ {
+ perl_argv[1] = weechat_script_pointer_to_string (signal_data);
+ free_needed = 1;
+ }
+ else
+ perl_argv[1] = NULL;
+ perl_argv[2] = NULL;
+
+ r = (int *) weechat_perl_exec (script_hook->script,
+ WEECHAT_SCRIPT_EXEC_INT,
+ script_hook->function,
+ perl_argv);
+ if (!r)
+ ret = WEECHAT_RC_ERROR;
+ else
+ {
+ ret = *r;
+ free (r);
+ }
+ if (free_needed && perl_argv[1])
+ free (perl_argv[1]);
+ return ret;
+}
+
+/*
+ * weechat::hook_signal: hook a signal
+ */
+
+static XS (XS_weechat_hook_signal)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "hook_signal");
+ XSRETURN_NO;
+ }
+
+ if (items < 2)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "hook_signal");
+ XSRETURN_NO;
+ }
+
+ if (weechat_script_hook_signal (weechat_perl_plugin,
+ perl_current_script,
+ SvPV (ST (0), PL_na), /* signal */
+ weechat_perl_api_hook_signal_cb,
+ SvPV (ST (1), PL_na)))
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+/*
+ * weechat_perl_api_hook_config_cb: callback for config option hooked
+ */
+
+int
+weechat_perl_api_hook_config_cb (void *data, char *type, char *option,
+ char *value)
+{
+ struct t_script_hook *script_hook;
+ char *perl_argv[4];
+ int *r, ret;
+
+ script_hook = (struct t_script_hook *)data;
+
+ perl_argv[0] = type;
+ perl_argv[1] = option;
+ perl_argv[2] = value;
+ perl_argv[3] = NULL;
+
+ r = (int *) weechat_perl_exec (script_hook->script,
+ WEECHAT_SCRIPT_EXEC_INT,
+ script_hook->function,
+ perl_argv);
+ if (!r)
+ ret = WEECHAT_RC_ERROR;
+ else
+ {
+ ret = *r;
+ free (r);
+ }
+ return ret;
+}
+
+/*
+ * weechat::hook_config: hook a config option
+ */
+
+static XS (XS_weechat_hook_config)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "hook_config");
+ XSRETURN_NO;
+ }
+
+ if (items < 3)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "hook_config");
+ XSRETURN_NO;
+ }
+
+ if (weechat_script_hook_config (weechat_perl_plugin,
+ perl_current_script,
+ SvPV (ST (0), PL_na), /* type */
+ SvPV (ST (1), PL_na), /* option */
+ weechat_perl_api_hook_config_cb,
+ SvPV (ST (2), PL_na)))
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+/*
+ * weechat_perl_api_hook_completion_cb: callback for completion hooked
+ */
+
+int
+weechat_perl_api_hook_completion_cb (void *data, char *completion,
+ struct t_gui_buffer *buffer,
+ struct t_weelist *list)
+{
+ struct t_script_hook *script_hook;
+ char *perl_argv[4];
+ int *r, ret;
+
+ script_hook = (struct t_script_hook *)data;
+
+ perl_argv[0] = completion;
+ perl_argv[1] = weechat_script_pointer_to_string (buffer);
+ perl_argv[2] = weechat_script_pointer_to_string (list);
+ perl_argv[3] = NULL;
+
+ r = (int *) weechat_perl_exec (script_hook->script,
+ WEECHAT_SCRIPT_EXEC_INT,
+ script_hook->function,
+ perl_argv);
+ if (!r)
+ ret = WEECHAT_RC_ERROR;
+ else
+ {
+ ret = *r;
+ free (r);
+ }
+ if (perl_argv[1])
+ free (perl_argv[1]);
+ if (perl_argv[2])
+ free (perl_argv[2]);
+ return ret;
+}
+
+/*
+ * weechat::hook_completion: hook a completion
+ */
+
+static XS (XS_weechat_hook_completion)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "hook_completion");
+ XSRETURN_NO;
+ }
+
+ if (items < 2)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "hook_completion");
+ XSRETURN_NO;
+ }
+
+ if (weechat_script_hook_completion (weechat_perl_plugin,
+ perl_current_script,
+ SvPV (ST (0), PL_na), /* completion */
+ weechat_perl_api_hook_completion_cb,
+ SvPV (ST (1), PL_na)))
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+/*
+ * weechat::unhook: unhook something
+ */
+
+static XS (XS_weechat_unhook)
+{
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "unhook");
+ XSRETURN_NO;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "unhook");
+ XSRETURN_NO;
+ }
+
+ weechat_script_unhook (weechat_perl_plugin, perl_current_script,
+ weechat_script_string_to_pointer (SvPV (ST (0), PL_na)));
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::command: execute a command on a buffer
+ */
+
+static XS (XS_weechat_command)
+{
+ char *buffer, *command;
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "command");
+ XSRETURN_NO;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "command");
+ XSRETURN_NO;
+ }
+
+ if (items > 1)
+ {
+ buffer = SvPV (ST (0), PL_na);
+ command = SvPV (ST (1), PL_na);
+ }
+ else
+ {
+ buffer = NULL;
+ command = SvPV (ST (0), PL_na);
+ }
+
+ weechat_script_command (weechat_perl_plugin, perl_current_script,
+ weechat_script_string_to_pointer (buffer),
+ command);
+
+ XSRETURN_YES;
+}
+
+/*
+ * weechat::info_get: get info about WeeChat
+ */
+
+static XS (XS_weechat_info_get)
+{
+ char *value;
+ dXSARGS;
+
+ /* make C compiler happy */
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "info_get");
+ XSRETURN_EMPTY;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "info_get");
+ XSRETURN_EMPTY;
+ }
+
+ value = weechat_info_get (SvPV (ST (0), PL_na));
+ if (value)
+ {
+ XST_mPV (0, value);
+ XSRETURN (1);
+ }
+
+ XST_mPV (0, "");
+ XSRETURN (1);
+}
+
+/*
+ * weechat::get_dcc_info: get infos about DCC
+ */
+
+/*
+static XS (XS_weechat_get_dcc_info)
+{
+ t_plugin_dcc_info *dcc_info, *ptr_dcc;
+ int count;
+ char timebuffer1[64];
+ char timebuffer2[64];
+ struct in_addr in;
+ HV *dcc_hash_member;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+ (void) items;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get DCC info, "
+ "script not initialized");
+ XSRETURN_EMPTY;
+ }
+
+ dcc_info = weechat_perl_plugin->get_dcc_info (weechat_perl_plugin);
+ count = 0;
+ if (!dcc_info)
+ XSRETURN_EMPTY;
+
+ for (ptr_dcc = dcc_info; ptr_dcc; ptr_dcc = ptr_dcc->next_dcc)
+ {
+ strftime(timebuffer1, sizeof(timebuffer1), "%F %T",
+ localtime(&ptr_dcc->start_time));
+ strftime(timebuffer2, sizeof(timebuffer2), "%F %T",
+ localtime(&ptr_dcc->start_transfer));
+ in.s_addr = htonl(ptr_dcc->addr);
+
+ dcc_hash_member = (HV *) sv_2mortal ((SV *) newHV());
+
+ hv_store (dcc_hash_member, "server", 6, newSVpv (ptr_dcc->server, 0), 0);
+ hv_store (dcc_hash_member, "channel", 7, newSVpv (ptr_dcc->channel, 0), 0);
+ hv_store (dcc_hash_member, "type", 4, newSViv (ptr_dcc->type), 0);
+ hv_store (dcc_hash_member, "status", 6, newSViv (ptr_dcc->status), 0);
+ hv_store (dcc_hash_member, "start_time", 10, newSVpv (timebuffer1, 0), 0);
+ hv_store (dcc_hash_member, "start_transfer", 14, newSVpv (timebuffer2, 0), 0);
+ hv_store (dcc_hash_member, "address", 7, newSVpv (inet_ntoa(in), 0), 0);
+ hv_store (dcc_hash_member, "port", 4, newSViv (ptr_dcc->port), 0);
+ hv_store (dcc_hash_member, "nick", 4, newSVpv (ptr_dcc->nick, 0), 0);
+ hv_store (dcc_hash_member, "remote_file", 11, newSVpv (ptr_dcc->filename, 0), 0);
+ hv_store (dcc_hash_member, "local_file", 10, newSVpv (ptr_dcc->local_filename, 0), 0);
+ hv_store (dcc_hash_member, "filename_suffix", 15, newSViv (ptr_dcc->filename_suffix), 0);
+ hv_store (dcc_hash_member, "size", 4, newSVnv (ptr_dcc->size), 0);
+ hv_store (dcc_hash_member, "pos", 3, newSVnv (ptr_dcc->pos), 0);
+ hv_store (dcc_hash_member, "start_resume", 12, newSVnv (ptr_dcc->start_resume), 0);
+ hv_store (dcc_hash_member, "cps", 3, newSViv (ptr_dcc->bytes_per_sec), 0);
+
+ XPUSHs(newRV_inc((SV *) dcc_hash_member));
+ count++;
+ }
+ weechat_perl_plugin->free_dcc_info (weechat_perl_plugin, dcc_info);
+
+ XSRETURN (count);
+}
+*/
+
+/*
+ * weechat::config_get_weechat: get value of a WeeChat config option
+ */
+
+ /*
+static XS (XS_weechat_config_get_weechat)
+{
+ char *option;
+ struct t_config_option *value;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("perl", "config_get_weechat");
+ XSRETURN_EMPTY;
+ }
+
+ if (items < 1)
+ {
+ WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("perl", "config_get_weechat");
+ XSRETURN_EMPTY;
+ }
+
+ option = SvPV (ST (0), PL_na);
+
+ if (option)
+ {
+ value = weechat_config_get_weechat (option);
+
+ if (return_value)
+ {
+ XST_mPV (0, return_value);
+ free (return_value);
+ XSRETURN (1);
+ }
+ }
+
+ XST_mPV (0, "");
+ XSRETURN (1);
+}
+*/
+
+/*
+ * weechat::set_config: set value of a WeeChat config option
+ */
+
+/*
+static XS (XS_weechat_set_config)
+{
+ char *option, *value;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to set config option, "
+ "script not initialized");
+ XSRETURN_NO;
+ }
+
+ if (items < 2)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: wrong parameters for "
+ "\"set_config\" function");
+ XSRETURN_NO;
+ }
+
+ option = SvPV (ST (0), PL_na);
+ value = SvPV (ST (1), PL_na);
+
+ if (option && value)
+ {
+ if (weechat_perl_plugin->set_config (weechat_perl_plugin, option, value))
+ XSRETURN_YES;
+ }
+
+ XSRETURN_NO;
+}
+*/
+
+/*
+ * weechat::get_plugin_config: get value of a plugin config option
+ */
+
+/*
+static XS (XS_weechat_get_plugin_config)
+{
+ char *option, *return_value;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get plugin config option, "
+ "script not initialized");
+ XSRETURN_EMPTY;
+ }
+
+ if (items < 1)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: wrong parameters for "
+ "\"get_plugin_config\" function");
+ XSRETURN_EMPTY;
+ }
+
+ option = SvPV (ST (0), PL_na);
+
+ if (option)
+ {
+ return_value = weechat_script_get_plugin_config (weechat_perl_plugin,
+ perl_current_script,
+ option);
+
+ if (return_value)
+ {
+ XST_mPV (0, return_value);
+ free (return_value);
+ XSRETURN (1);
+ }
+ }
+
+ XST_mPV (0, "");
+ XSRETURN (1);
+}
+*/
+
+/*
+ * weechat::set_plugin_config: set value of a WeeChat config option
+ */
+
+/*
+static XS (XS_weechat_set_plugin_config)
+{
+ char *option, *value;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to set plugin config option, "
+ "script not initialized");
+ XSRETURN_NO;
+ }
+
+ if (items < 2)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: wrong parameters for "
+ "\"set_plugin_config\" function");
+ XSRETURN_NO;
+ }
+
+ option = SvPV (ST (0), PL_na);
+ value = SvPV (ST (1), PL_na);
+
+ if (option && value)
+ {
+ if (weechat_script_set_plugin_config (weechat_perl_plugin,
+ perl_current_script,
+ option, value))
+ XSRETURN_YES;
+ }
+
+ XSRETURN_NO;
+}
+*/
+
+/*
+ * weechat::get_server_info: get infos about servers
+ */
+
+/*
+static XS (XS_weechat_get_server_info)
+{
+ t_plugin_server_info *server_info, *ptr_server;
+ char timebuffer[64];
+ HV *server_hash, *server_hash_member;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+ (void) items;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get server info, "
+ "script not initialized");
+ XSRETURN_EMPTY;
+ }
+
+ server_info = weechat_perl_plugin->get_server_info (weechat_perl_plugin);
+ if (!server_info)
+ {
+ XSRETURN_EMPTY;
+ }
+
+ server_hash = (HV *) sv_2mortal((SV *) newHV());
+ if (!server_hash)
+ {
+ weechat_perl_plugin->free_server_info (weechat_perl_plugin, server_info);
+ XSRETURN_EMPTY;
+ }
+
+ for (ptr_server = server_info; ptr_server; ptr_server = ptr_server->next_server)
+ {
+ strftime(timebuffer, sizeof(timebuffer), "%F %T",
+ localtime(&ptr_server->away_time));
+
+ server_hash_member = (HV *) sv_2mortal((SV *) newHV());
+
+ hv_store (server_hash_member, "autoconnect", 11, newSViv (ptr_server->autoconnect), 0);
+ hv_store (server_hash_member, "autoreconnect", 13, newSViv (ptr_server->autoreconnect), 0);
+ hv_store (server_hash_member, "autoreconnect_delay", 19, newSViv (ptr_server->autoreconnect_delay), 0);
+ hv_store (server_hash_member, "temp_server", 11, newSViv (ptr_server->temp_server), 0);
+ hv_store (server_hash_member, "address", 7, newSVpv (ptr_server->address, 0), 0);
+ hv_store (server_hash_member, "port", 4, newSViv (ptr_server->port), 0);
+ hv_store (server_hash_member, "ipv6", 4, newSViv (ptr_server->ipv6), 0);
+ hv_store (server_hash_member, "ssl", 3, newSViv (ptr_server->ssl), 0);
+ hv_store (server_hash_member, "password", 8, newSVpv (ptr_server->password, 0), 0);
+ hv_store (server_hash_member, "nick1", 5, newSVpv (ptr_server->nick1, 0), 0);
+ hv_store (server_hash_member, "nick2", 5, newSVpv (ptr_server->nick2, 0), 0);
+ hv_store (server_hash_member, "nick3", 5, newSVpv (ptr_server->nick3, 0), 0);
+ hv_store (server_hash_member, "username", 8, newSVpv (ptr_server->username, 0), 0);
+ hv_store (server_hash_member, "realname", 8, newSVpv (ptr_server->realname, 0), 0);
+ hv_store (server_hash_member, "command", 7, newSVpv (ptr_server->command, 0), 0);
+ hv_store (server_hash_member, "command_delay", 13, newSViv (ptr_server->command_delay), 0);
+ hv_store (server_hash_member, "autojoin", 8, newSVpv (ptr_server->autojoin, 0), 0);
+ hv_store (server_hash_member, "autorejoin", 10, newSViv (ptr_server->autorejoin), 0);
+ hv_store (server_hash_member, "notify_levels", 13, newSVpv (ptr_server->notify_levels, 0), 0);
+ hv_store (server_hash_member, "is_connected", 12, newSViv (ptr_server->is_connected), 0);
+ hv_store (server_hash_member, "ssl_connected", 13, newSViv (ptr_server->ssl_connected), 0);
+ hv_store (server_hash_member, "nick", 4, newSVpv (ptr_server->nick, 0), 0);
+ hv_store (server_hash_member, "nick_modes", 10, newSVpv (ptr_server->nick_modes, 0), 0);
+ hv_store (server_hash_member, "away_time", 9, newSVpv (timebuffer, 0), 0);
+ hv_store (server_hash_member, "lag", 3, newSViv (ptr_server->lag), 0);
+
+ hv_store (server_hash, ptr_server->name, strlen(ptr_server->name), newRV_inc((SV *) server_hash_member), 0);
+ }
+ weechat_perl_plugin->free_server_info (weechat_perl_plugin, server_info);
+
+ ST (0) = newRV_inc((SV *) server_hash);
+ if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
+
+ XSRETURN (1);
+}
+*/
+
+/*
+ * weechat::get_channel_info: get infos about channels
+ */
+
+/*
+static XS (XS_weechat_get_channel_info)
+{
+ t_plugin_channel_info *channel_info, *ptr_channel;
+ char *server;
+ HV *channel_hash, *channel_hash_member;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get channel info, "
+ "script not initialized");
+ XSRETURN_EMPTY;
+ }
+
+ if (items != 1)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: wrong parameters for "
+ "\"get_channel_info\" function");
+ XSRETURN_EMPTY;
+ }
+
+ server = SvPV (ST (0), PL_na);
+ if (!server)
+ XSRETURN_EMPTY;
+
+ channel_info = weechat_perl_plugin->get_channel_info (weechat_perl_plugin, server);
+ if (!channel_info)
+ {
+ XSRETURN_EMPTY;
+ }
+
+ channel_hash = (HV *) sv_2mortal((SV *) newHV());
+ if (!channel_hash)
+ {
+ weechat_perl_plugin->free_channel_info (weechat_perl_plugin, channel_info);
+ XSRETURN_EMPTY;
+ }
+
+ for (ptr_channel = channel_info; ptr_channel; ptr_channel = ptr_channel->next_channel)
+ {
+ channel_hash_member = (HV *) sv_2mortal((SV *) newHV());
+
+ hv_store (channel_hash_member, "type", 4, newSViv (ptr_channel->type), 0);
+ hv_store (channel_hash_member, "topic", 5, newSVpv (ptr_channel->topic, 0), 0);
+ hv_store (channel_hash_member, "modes", 5, newSVpv (ptr_channel->modes, 0), 0);
+ hv_store (channel_hash_member, "limit", 5, newSViv (ptr_channel->limit), 0);
+ hv_store (channel_hash_member, "key", 3, newSVpv (ptr_channel->key, 0), 0);
+ hv_store (channel_hash_member, "nicks_count", 11, newSViv (ptr_channel->nicks_count), 0);
+
+ hv_store (channel_hash, ptr_channel->name, strlen(ptr_channel->name), newRV_inc((SV *) channel_hash_member), 0);
+ }
+ weechat_perl_plugin->free_channel_info (weechat_perl_plugin, channel_info);
+
+ ST (0) = newRV_inc((SV *) channel_hash);
+ if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
+
+ XSRETURN (1);
+}
+*/
+
+/*
+ * weechat::get_nick_info: get infos about nicks
+ */
+
+/*
+static XS (XS_weechat_get_nick_info)
+{
+ t_plugin_nick_info *nick_info, *ptr_nick;
+ char *server, *channel;
+ HV *nick_hash;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get nick info, "
+ "script not initialized");
+ XSRETURN_EMPTY;
+ }
+
+ if (items != 2)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: wrong parameters for "
+ "\"get_nick_info\" function");
+ XSRETURN_EMPTY;
+ }
+
+ server = SvPV (ST (0), PL_na);
+ channel = SvPV (ST (1), PL_na);
+ if (!server || !channel)
+ XSRETURN_EMPTY;
+
+ nick_info = weechat_perl_plugin->get_nick_info (weechat_perl_plugin, server, channel);
+ if (!nick_info)
+ {
+ XSRETURN_EMPTY;
+ }
+
+ nick_hash = (HV *) sv_2mortal((SV *) newHV());
+ if (!nick_hash)
+ {
+ weechat_perl_plugin->free_nick_info (weechat_perl_plugin, nick_info);
+ XSRETURN_EMPTY;
+ }
+
+ for (ptr_nick = nick_info; ptr_nick; ptr_nick = ptr_nick->next_nick)
+ {
+ HV *nick_hash_member = (HV *) sv_2mortal((SV *) newHV());
+
+ hv_store (nick_hash_member, "flags", 5, newSViv (ptr_nick->flags), 0);
+ hv_store (nick_hash_member, "host", 4, newSVpv (
+ ptr_nick->host ? ptr_nick->host : "", 0), 0);
+
+ hv_store (nick_hash, ptr_nick->nick, strlen(ptr_nick->nick), newRV_inc((SV *) nick_hash_member), 0);
+ }
+ weechat_perl_plugin->free_nick_info (weechat_perl_plugin, nick_info);
+
+ ST (0) = newRV_inc((SV *) nick_hash);
+ if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
+
+ XSRETURN (1);
+}
+*/
+
+/*
+ * weechat::color_input: add color in input buffer
+ */
+
+/*
+static XS (XS_weechat_input_color)
+{
+ int color, start, length;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to colorize input, "
+ "script not initialized");
+ XSRETURN_NO;
+ }
+
+ if (items < 3)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: wrong parameters for "
+ "\"color_input\" function");
+ XSRETURN_NO;
+ }
+
+ color = SvIV (ST (0));
+ start = SvIV (ST (1));
+ length = SvIV (ST (2));
+
+ weechat_perl_plugin->input_color (weechat_perl_plugin, color, start, length);
+
+ XSRETURN_YES;
+}
+*/
+
+/*
+ * weechat::get_irc_color:
+ * get the numeric value which identify an irc color by its name
+ */
+
+/*
+static XS (XS_weechat_get_irc_color)
+{
+ char *color;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get irc color, "
+ "script not initialized");
+ XST_mIV (0, -1);
+ XSRETURN (1);
+ }
+
+ if (items != 1)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: wrong parameters for "
+ "\"get_irc_info\" function");
+ XST_mIV (0, -1);
+ XSRETURN (1);
+ }
+
+ color = SvPV (ST (0), PL_na);
+ if (color)
+ {
+ XST_mIV (0, weechat_perl_plugin->get_irc_color (weechat_perl_plugin, color));
+ XSRETURN (1);
+ }
+
+ XST_mIV (0, -1);
+ XSRETURN (-1);
+}
+*/
+
+/*
+ * weechat::get_window_info: get infos about windows
+ */
+
+/*
+static XS (XS_weechat_get_window_info)
+{
+ t_plugin_window_info *window_info, *ptr_win;
+ int count;
+ HV *window_hash_member;
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+ (void) items;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get window info, "
+ "script not initialized");
+ XSRETURN_EMPTY;
+ }
+
+ window_info = weechat_perl_plugin->get_window_info (weechat_perl_plugin);
+ count = 0;
+ if (!window_info)
+ XSRETURN_EMPTY;
+
+ for (ptr_win = window_info; ptr_win; ptr_win = ptr_win->next_window)
+ {
+ window_hash_member = (HV *) sv_2mortal((SV *) newHV());
+
+ hv_store (window_hash_member, "num_buffer", 10, newSViv (ptr_win->num_buffer), 0);
+ hv_store (window_hash_member, "win_x", 5, newSViv (ptr_win->win_x), 0);
+ hv_store (window_hash_member, "win_y", 5, newSViv (ptr_win->win_y), 0);
+ hv_store (window_hash_member, "win_width", 9, newSViv (ptr_win->win_width), 0);
+ hv_store (window_hash_member, "win_height", 10, newSViv (ptr_win->win_height), 0);
+ hv_store (window_hash_member, "win_width_pct", 13, newSViv (ptr_win->win_width_pct), 0);
+ hv_store (window_hash_member, "win_height_pct", 14, newSViv (ptr_win->win_height_pct), 0);
+
+ XPUSHs(newRV_inc((SV *) window_hash_member));
+ count++;
+ }
+ weechat_perl_plugin->free_window_info (weechat_perl_plugin, window_info);
+
+ XSRETURN (count);
+}
+*/
+
+/*
+ * weechat::get_buffer_info: get infos about buffers
+ */
+
+/*
+static XS (XS_weechat_get_buffer_info)
+{
+ t_plugin_buffer_info *buffer_info, *ptr_buffer;
+ HV *buffer_hash, *buffer_hash_member;
+ char conv[8];
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+ (void) items;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get buffer info, "
+ "script not initialized");
+ XSRETURN_EMPTY;
+ }
+
+ buffer_info = weechat_perl_plugin->get_buffer_info (weechat_perl_plugin);
+ if (!buffer_info)
+ {
+ XSRETURN_EMPTY;
+ }
+
+ buffer_hash = (HV *) sv_2mortal((SV *) newHV());
+ if (!buffer_hash)
+ {
+ weechat_perl_plugin->free_buffer_info (weechat_perl_plugin, buffer_info);
+ XSRETURN_EMPTY;
+ }
+
+ for (ptr_buffer = buffer_info; ptr_buffer; ptr_buffer = ptr_buffer->next_buffer)
+ {
+ buffer_hash_member = (HV *) sv_2mortal((SV *) newHV());
+
+ hv_store (buffer_hash_member, "type", 4, newSViv (ptr_buffer->type), 0);
+ hv_store (buffer_hash_member, "num_displayed", 13, newSViv (ptr_buffer->num_displayed), 0);
+ hv_store (buffer_hash_member, "server", 6,
+ newSVpv ((ptr_buffer->server_name == NULL) ? "" : ptr_buffer->server_name, 0), 0);
+ hv_store (buffer_hash_member, "channel", 7,
+ newSVpv ((ptr_buffer->channel_name == NULL) ? "" : ptr_buffer->channel_name, 0), 0);
+ hv_store (buffer_hash_member, "notify_level", 12, newSViv (ptr_buffer->notify_level), 0);
+ hv_store (buffer_hash_member, "log_filename", 12,
+ newSVpv ((ptr_buffer->log_filename == NULL) ? "" : ptr_buffer->log_filename, 0), 0);
+ snprintf(conv, sizeof(conv), "%d", ptr_buffer->number);
+ hv_store (buffer_hash, conv, strlen(conv), newRV_inc((SV *) buffer_hash_member), 0);
+ }
+ weechat_perl_plugin->free_buffer_info (weechat_perl_plugin, buffer_info);
+
+ ST (0) = newRV_inc((SV *) buffer_hash);
+ if (SvREFCNT(ST(0))) sv_2mortal(ST(0));
+
+ XSRETURN (1);
+}
+*/
+
+/*
+ * weechat::get_buffer_data: get buffer content
+ */
+
+/*
+static XS (XS_weechat_get_buffer_data)
+{
+ t_plugin_buffer_line *buffer_data, *ptr_data;
+ HV *data_list_member;
+ char *server, *channel;
+ char timebuffer[64];
+ int count;
+
+ dXSARGS;
+
+ // make C compiler happy
+ (void) cv;
+ (void) items;
+
+ if (!perl_current_script)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: unable to get buffer data, "
+ "script not initialized");
+ XSRETURN_EMPTY;
+ }
+
+ if (items != 2)
+ {
+ weechat_perl_plugin->print_server (weechat_perl_plugin,
+ "Perl error: wrong parameters for "
+ "\"get_buffer_data\" function");
+ XSRETURN_EMPTY;
+ }
+
+ channel = NULL;
+ server = NULL;
+
+ if (items >= 1)
+ server = SvPV (ST (0), PL_na);
+ if (items >= 2)
+ channel = SvPV (ST (1), PL_na);
+
+ SP -= items;
+
+ buffer_data = weechat_perl_plugin->get_buffer_data (weechat_perl_plugin, server, channel);
+ count = 0;
+ if (!buffer_data)
+ XSRETURN_EMPTY;
+
+ for (ptr_data = buffer_data; ptr_data; ptr_data = ptr_data->next_line)
+ {
+ data_list_member = (HV *) sv_2mortal((SV *) newHV());
+
+ strftime(timebuffer, sizeof(timebuffer), "%F %T",
+ localtime(&ptr_data->date));
+
+ hv_store (data_list_member, "date", 4, newSVpv (timebuffer, 0), 0);
+ hv_store (data_list_member, "nick", 4,
+ newSVpv ((ptr_data->nick == NULL) ? "" : ptr_data->nick, 0), 0);
+ hv_store (data_list_member, "data", 4,
+ newSVpv ((ptr_data->data == NULL) ? "" : ptr_data->data, 0), 0);
+
+ XPUSHs(newRV_inc((SV *) data_list_member));
+ count++;
+ }
+ weechat_perl_plugin->free_buffer_data (weechat_perl_plugin, buffer_data);
+
+ XSRETURN (count);
+}
+*/
+
+/*
+ * weechat_perl_xs_init: initialize subroutines
+ */
+
+void
+weechat_perl_xs_init (pTHX)
+{
+ HV *stash;
+
+ newXS ("DynaLoader::boot_DynaLoader", boot_DynaLoader, __FILE__);
+
+ /* interface functions */
+ newXS ("weechat::register", XS_weechat_register, "weechat");
+ newXS ("weechat::charset_set", XS_weechat_charset_set, "weechat");
+ newXS ("weechat::iconv_to_internal", XS_weechat_iconv_to_internal, "weechat");
+ newXS ("weechat::iconv_from_internal", XS_weechat_iconv_from_internal, "weechat");
+ newXS ("weechat::mkdir_home", XS_weechat_mkdir_home, "weechat");
+ newXS ("weechat::mkdir", XS_weechat_mkdir, "weechat");
+ newXS ("weechat::prefix", XS_weechat_prefix, "weechat");
+ newXS ("weechat::color", XS_weechat_color, "weechat");
+ newXS ("weechat::print", XS_weechat_print, "weechat");
+ newXS ("weechat::infobar_print", XS_weechat_infobar_print, "weechat");
+ newXS ("weechat::infobar_remove", XS_weechat_infobar_remove, "weechat");
+ newXS ("weechat::log_print", XS_weechat_log_print, "weechat");
+ newXS ("weechat::hook_command", XS_weechat_hook_command, "weechat");
+ newXS ("weechat::hook_timer", XS_weechat_hook_timer, "weechat");
+ newXS ("weechat::hook_fd", XS_weechat_hook_fd, "weechat");
+ newXS ("weechat::hook_print", XS_weechat_hook_print, "weechat");
+ newXS ("weechat::hook_signal", XS_weechat_hook_signal, "weechat");
+ newXS ("weechat::hook_config", XS_weechat_hook_config, "weechat");
+ newXS ("weechat::hook_completion", XS_weechat_hook_completion, "weechat");
+ newXS ("weechat::unhook", XS_weechat_unhook, "weechat");
+ newXS ("weechat::command", XS_weechat_command, "weechat");
+ newXS ("weechat::info_get", XS_weechat_info_get, "weechat");
+ //newXS ("weechat::get_dcc_info", XS_weechat_get_dcc_info, "weechat");
+ //newXS ("weechat::get_config", XS_weechat_get_config, "weechat");
+ //newXS ("weechat::set_config", XS_weechat_set_config, "weechat");
+ //newXS ("weechat::get_plugin_config", XS_weechat_get_plugin_config, "weechat");
+ //newXS ("weechat::set_plugin_config", XS_weechat_set_plugin_config, "weechat");
+ //newXS ("weechat::get_server_info", XS_weechat_get_server_info, "weechat");
+ //newXS ("weechat::get_channel_info", XS_weechat_get_channel_info, "weechat");
+ //newXS ("weechat::get_nick_info", XS_weechat_get_nick_info, "weechat");
+ //newXS ("weechat::input_color", XS_weechat_input_color, "weechat");
+ //newXS ("weechat::get_irc_color", XS_weechat_get_irc_color, "weechat");
+ //newXS ("weechat::get_window_info", XS_weechat_get_window_info, "weechat");
+ //newXS ("weechat::get_buffer_info", XS_weechat_get_buffer_info, "weechat");
+ //newXS ("weechat::get_buffer_data", XS_weechat_get_buffer_data, "weechat");
+
+ /* interface constants */
+ stash = gv_stashpv ("weechat", TRUE);
+ newCONSTSUB (stash, "weechat::WEECHAT_RC_ERROR", newSViv (WEECHAT_RC_ERROR));
+ newCONSTSUB (stash, "weechat::WEECHAT_RC_OK", newSViv (WEECHAT_RC_OK));
+ newCONSTSUB (stash, "weechat::WEECHAT_RC_OK_IGNORE_WEECHAT", newSViv (WEECHAT_RC_OK_IGNORE_WEECHAT));
+ newCONSTSUB (stash, "weechat::WEECHAT_RC_OK_IGNORE_PLUGINS", newSViv (WEECHAT_RC_OK_IGNORE_PLUGINS));
+ newCONSTSUB (stash, "weechat::WEECHAT_RC_OK_IGNORE_ALL", newSViv (WEECHAT_RC_OK_IGNORE_ALL));
+ newCONSTSUB (stash, "weechat::WEECHAT_RC_OK_WITH_HIGHLIGHT", newSViv (WEECHAT_RC_OK_WITH_HIGHLIGHT));
+}
diff --git a/src/plugins/scripts/perl/weechat-perl-api.h b/src/plugins/scripts/perl/weechat-perl-api.h
new file mode 100644
index 000000000..90a9b3777
--- /dev/null
+++ b/src/plugins/scripts/perl/weechat-perl-api.h
@@ -0,0 +1,29 @@
+/*
+ * Copyright (c) 2003-2008 by FlashCode <flashcode@flashtux.org>
+ * See README for License detail, AUTHORS for developers list.
+ *
+ * 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 3 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/>.
+ */
+
+
+#ifndef __WEECHAT_PERL_API_H
+#define __WEECHAT_PERL_API_H 1
+
+#define weechat_plugin weechat_perl_plugin
+
+extern struct t_weechat_plugin *weechat_perl_plugin;
+
+extern void weechat_perl_xs_init (pTHX);
+
+#endif /* weechat-perl.h */
diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
new file mode 100644
index 000000000..f52137d75
--- /dev/null
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -0,0 +1,734 @@
+/*
+ * Copyright (c) 2003-2008 by FlashCode <flashcode@flashtux.org>
+ * See README for License detail, AUTHORS for developers list.
+ *
+ * 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 3 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/>.
+ */
+
+/* weechat-perl.c: Perl plugin for WeeChat */
+
+#undef _
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <EXTERN.h>
+#include <perl.h>
+#include <XSUB.h>
+
+#include "../../weechat-plugin.h"
+#include "../script.h"
+#include "weechat-perl.h"
+#include "weechat-perl-api.h"
+
+
+WEECHAT_PLUGIN_NAME("perl");
+WEECHAT_PLUGIN_DESCRIPTION("Perl plugin for WeeChat");
+WEECHAT_PLUGIN_AUTHOR("FlashCode <flashcode@flashtux.org>");
+WEECHAT_PLUGIN_VERSION("0.1");
+WEECHAT_PLUGIN_LICENSE("GPL");
+
+struct t_weechat_plugin *weechat_perl_plugin = NULL;
+
+struct t_plugin_script *perl_scripts = NULL;
+struct t_plugin_script *perl_current_script = NULL;
+char *perl_current_script_filename = NULL;
+
+#ifdef NO_PERL_MULTIPLICITY
+#undef MULTIPLICITY
+#endif
+
+#ifndef MULTIPLICITY
+#define PKG_NAME_PREFIX "WeechatPerlPackage"
+static PerlInterpreter *perl_main = NULL;
+int perl_num = 0;
+#endif
+
+char *perl_weechat_code =
+{
+#ifndef MULTIPLICITY
+ "package WeechatPerlScriptLoader;"
+#endif
+ "$weechat_perl_load_eval_file_error = \"\";"
+ "sub weechat_perl_load_file"
+ "{"
+ " my $filename = shift;"
+ " local $/ = undef;"
+ " open FILE, $filename or return \"__WEECHAT_PERL_ERROR__\";"
+ " $_ = <FILE>;"
+ " close FILE;"
+ " return $_;"
+ "}"
+ "sub weechat_perl_load_eval_file"
+ "{"
+#ifndef MULTIPLICITY
+ " my ($filename, $package) = @_;"
+#else
+ " my $filename = shift;"
+#endif
+ " my $content = weechat_perl_load_file ($filename);"
+ " if ($content eq \"__WEECHAT_PERL_ERROR__\")"
+ " {"
+ " return 1;"
+ " }"
+#ifndef MULTIPLICITY
+ " my $eval = qq{package $package; $content;};"
+#else
+ " my $eval = $content;"
+#endif
+ " {"
+ " eval $eval;"
+ " }"
+ " if ($@)"
+ " {"
+ " $weechat_perl_load_eval_file_error = $@;"
+ " return 2;"
+ " }"
+ " return 0;"
+ "}"
+ "$SIG{__WARN__} = sub { weechat::print \"Perl error: $_[0]\", \"\"; };"
+ "$SIG{__DIE__} = sub { weechat::print \"Perl error: $_[0]\", \"\"; };"
+};
+
+
+/*
+ * weechat_perl_exec: execute a Perl script
+ */
+
+void *
+weechat_perl_exec (struct t_plugin_script *script,
+ int ret_type, char *function, char **argv)
+{
+ char *func;
+ unsigned int count;
+ void *ret_value;
+ int *ret_i, mem_err;
+ SV *ret_s;
+
+ /* this code is placed here to conform ISO C90 */
+ dSP;
+
+#ifndef MULTIPLICITY
+ int size = strlen (script->interpreter) + strlen(function) + 3;
+ func = (char *)malloc (size * sizeof(char));
+ if (!func)
+ return NULL;
+ snprintf (func, size, "%s::%s", (char *) script->interpreter, function);
+#else
+ func = function;
+ PERL_SET_CONTEXT (script->interpreter);
+#endif
+
+ ENTER;
+ SAVETMPS;
+ PUSHMARK(sp);
+
+ /* are we loading the script file ? */
+ if (strcmp (function, "weechat_perl_load_eval_file") != 0)
+ perl_current_script = script;
+
+ count = perl_call_argv (func, G_EVAL | G_SCALAR, argv);
+ ret_value = NULL;
+ mem_err = 1;
+
+ SPAGAIN;
+
+ if (SvTRUE (ERRSV))
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: error: %s"),
+ weechat_prefix ("error"), "perl", SvPV_nolen (ERRSV));
+ (void) POPs; /* poping the 'undef' */
+ mem_err = 0;
+ }
+ else
+ {
+ if (count != 1)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: function \"%s\" must "
+ "return one valid value (%d)"),
+ weechat_prefix ("error"), "perl", function, count);
+ mem_err = 0;
+ }
+ else
+ {
+ if (ret_type == WEECHAT_SCRIPT_EXEC_STRING)
+ {
+ ret_s = newSVsv(POPs);
+ ret_value = strdup (SvPV_nolen (ret_s));
+ SvREFCNT_dec (ret_s);
+ }
+ else if (ret_type == WEECHAT_SCRIPT_EXEC_INT)
+ {
+ ret_i = (int *)malloc (sizeof(int));
+ if (ret_i)
+ *ret_i = POPi;
+ ret_value = ret_i;
+ }
+ else
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: function \"%s\" is "
+ "internally misused"),
+ weechat_prefix ("error"), "perl", function);
+ mem_err = 0;
+ }
+ }
+ }
+
+ PUTBACK;
+ FREETMPS;
+ LEAVE;
+
+#ifndef MULTIPLICITY
+ free (func);
+#endif
+
+ if (!ret_value && (mem_err == 1))
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: not enough memory in function "
+ "\"%s\""),
+ weechat_prefix ("error"), "perl", function);
+ return NULL;
+ }
+
+ return ret_value;
+}
+
+/*
+ * weechat_perl_load: load a Perl script
+ */
+
+int
+weechat_perl_load (char *filename)
+{
+ STRLEN len;
+ struct t_plugin_script tempscript;
+ int *eval;
+ struct stat buf;
+ char *perl_argv[2];
+
+#ifndef MULTIPLICITY
+ char pkgname[64];
+#else
+ PerlInterpreter *perl_current_interpreter;
+ char *perl_args[] = { "", "-e", "0" };
+#endif
+
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: loading Perl script \"%s\""),
+ weechat_prefix ("info"), "perl", filename);
+
+ if (stat (filename, &buf) != 0)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: script \"%s\" not found"),
+ weechat_prefix ("error"), "perl", filename);
+ return 0;
+ }
+
+ perl_current_script = NULL;
+
+#ifndef MULTIPLICITY
+ snprintf(pkgname, sizeof(pkgname), "%s%d", PKG_NAME_PREFIX, perl_num);
+ perl_num++;
+ tempscript.interpreter = "WeechatPerlScriptLoader";
+ perl_argv[0] = filename;
+ perl_argv[1] = pkgname;
+ perl_argv[2] = NULL;
+ eval = weechat_perl_exec (plugin, &tempscript,
+ WEECHAT_SCRIPT_EXEC_INT,
+ "weechat_perl_load_eval_file", perl_argv);
+#else
+ perl_current_interpreter = perl_alloc();
+
+ if (!perl_current_interpreter)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: unable to create new "
+ "sub-interpreter"),
+ weechat_prefix ("error"), "perl");
+ return 0;
+ }
+
+ perl_current_script_filename = filename;
+
+ PERL_SET_CONTEXT (perl_current_interpreter);
+ perl_construct (perl_current_interpreter);
+ tempscript.interpreter = (PerlInterpreter *) perl_current_interpreter;
+ perl_parse (perl_current_interpreter, weechat_perl_xs_init, 3, perl_args,
+ NULL);
+
+ eval_pv (perl_weechat_code, TRUE);
+ perl_argv[0] = filename;
+ perl_argv[1] = NULL;
+ eval = weechat_perl_exec (&tempscript,
+ WEECHAT_SCRIPT_EXEC_INT,
+ "weechat_perl_load_eval_file",
+ perl_argv);
+#endif
+ if (!eval)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: not enough memory to parse "
+ "file \"%s\""),
+ weechat_prefix ("error"), "perl", filename);
+ return 0;
+ }
+
+ if ( *eval != 0)
+ {
+ if (*eval == 2)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: unable to parse file "
+ "\"%s\""),
+ weechat_prefix ("error"), "perl", filename);
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: error: %s"),
+ weechat_prefix ("error"), "perl",
+#ifndef MULTIPLICITY
+ SvPV(perl_get_sv("WeechatPerlScriptLoader::"
+ "weechat_perl_load_eval_file_error",
+ FALSE), len)
+#else
+ SvPV(perl_get_sv("weechat_perl_load_eval_file_error",
+ FALSE), len)
+#endif
+ );
+ }
+ else if (*eval == 1)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: unable to run file \"%s\""),
+ weechat_prefix ("error"), "perl", filename);
+ }
+ else
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: unknown error while "
+ "loading file \"%s\""),
+ weechat_prefix ("error"), "perl", filename);
+ }
+#ifdef MULTIPLICITY
+ perl_destruct (perl_current_interpreter);
+ perl_free (perl_current_interpreter);
+#endif
+ if (perl_current_script && (perl_current_script != &tempscript))
+ weechat_script_remove (weechat_perl_plugin,
+ &perl_scripts, perl_current_script);
+
+ free (eval);
+ return 0;
+ }
+
+ free (eval);
+
+ if (!perl_current_script)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: function \"register\" not "
+ "found (or failed) in file \"%s\""),
+ weechat_prefix ("error"), "perl", filename);
+#ifdef MULTIPLICITY
+ perl_destruct (perl_current_interpreter);
+ perl_free (perl_current_interpreter);
+#endif
+ return 0;
+ }
+
+#ifndef MULTIPLICITY
+ perl_current_script->interpreter = strdup (pkgname);
+#else
+ perl_current_script->interpreter = (PerlInterpreter *)perl_current_interpreter;
+#endif
+
+ return 1;
+}
+
+/*
+ * weechat_perl_load_cb: callback for weechat_script_auto_load() function
+ */
+
+int
+weechat_perl_load_cb (void *data, char *filename)
+{
+ /* make C compiler happy */
+ (void) data;
+
+ return weechat_perl_load (filename);
+}
+
+/*
+ * weechat_perl_unload: unload a Perl script
+ */
+
+void
+weechat_perl_unload (struct t_plugin_script *script)
+{
+ int *r;
+ char *perl_argv[1] = { NULL };
+
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: unloading script \"%s\""),
+ weechat_prefix ("info"), "perl", script->name);
+
+#ifndef MULTIPLICITY
+ eval_pv (script->interpreter, TRUE);
+#else
+ PERL_SET_CONTEXT (script->interpreter);
+#endif
+
+ if (script->shutdown_func[0])
+ {
+ r = (int *) weechat_perl_exec (script,
+ WEECHAT_SCRIPT_EXEC_INT,
+ script->shutdown_func,
+ perl_argv);
+ if (r)
+ free (r);
+ }
+
+#ifndef MULTIPLICITY
+ if (script->interpreter)
+ free (script->interpreter);
+#else
+ perl_destruct (script->interpreter);
+ perl_free (script->interpreter);
+#endif
+
+ weechat_script_remove (weechat_perl_plugin, &perl_scripts, script);
+}
+
+/*
+ * weechat_perl_unload_name: unload a Perl script by name
+ */
+
+void
+weechat_perl_unload_name (char *name)
+{
+ struct t_plugin_script *ptr_script;
+
+ ptr_script = weechat_script_search (weechat_perl_plugin,
+ &perl_scripts, name);
+ if (ptr_script)
+ {
+ weechat_perl_unload (ptr_script);
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: script \"%s\" unloaded"),
+ weechat_prefix ("info"), "perl", name);
+ }
+ else
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: script \"%s\" not loaded"),
+ weechat_prefix ("error"), "perl", name);
+ }
+}
+
+/*
+ * weechat_perl_unload_all: unload all Perl scripts
+ */
+
+void
+weechat_perl_unload_all ()
+{
+ while (perl_scripts)
+ {
+ weechat_perl_unload (perl_scripts);
+ }
+}
+
+/*
+ * weechat_perl_command_cb: callback for "/perl" command
+ */
+
+int
+weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
+ int argc, char **argv, char **argv_eol)
+{
+ //int handler_found, modifier_found;
+ char *path_script;
+ struct t_plugin_script *ptr_script;
+ //struct t_plugin_handler *ptr_handler;
+ //struct t_plugin_modifier *ptr_modifier;
+
+ /* make C compiler happy */
+ (void) data;
+ (void) buffer;
+
+ if (argc == 1)
+ {
+ /* list registered Perl scripts */
+ weechat_printf (NULL, "");
+ weechat_printf (NULL, weechat_gettext ("Registered Perl scripts:"));
+ if (perl_scripts)
+ {
+ for (ptr_script = perl_scripts;
+ ptr_script; ptr_script = ptr_script->next_script)
+ {
+ weechat_printf (NULL,
+ " %s v%s%s%s",
+ ptr_script->name,
+ ptr_script->version,
+ (ptr_script->description[0]) ? " - " : "",
+ ptr_script->description);
+ }
+ }
+ else
+ weechat_printf (NULL, " (none)");
+
+ /* list Perl message handlers */
+ /*plugin->print_server (plugin, "");
+ plugin->print_server (plugin, "Perl message handlers:");
+ handler_found = 0;
+ for (ptr_handler = plugin->handlers;
+ ptr_handler; ptr_handler = ptr_handler->next_handler)
+ {
+ if ((ptr_handler->type == PLUGIN_HANDLER_MESSAGE)
+ && (ptr_handler->handler_args))
+ {
+ handler_found = 1;
+ plugin->print_server (plugin, " IRC(%s) => Perl(%s)",
+ ptr_handler->irc_command,
+ ptr_handler->handler_args);
+ }
+ }
+ if (!handler_found)
+ plugin->print_server (plugin, " (none)");
+ */
+ /* list Perl command handlers */
+ /*plugin->print_server (plugin, "");
+ plugin->print_server (plugin, "Perl command handlers:");
+ handler_found = 0;
+ for (ptr_handler = plugin->handlers;
+ ptr_handler; ptr_handler = ptr_handler->next_handler)
+ {
+ if ((ptr_handler->type == PLUGIN_HANDLER_COMMAND)
+ && (ptr_handler->handler_args))
+ {
+ handler_found = 1;
+ plugin->print_server (plugin, " /%s => Perl(%s)",
+ ptr_handler->command,
+ ptr_handler->handler_args);
+ }
+ }
+ if (!handler_found)
+ plugin->print_server (plugin, " (none)");
+ */
+ /* list Perl timer handlers */
+ /*plugin->print_server (plugin, "");
+ plugin->print_server (plugin, "Perl timer handlers:");
+ handler_found = 0;
+ for (ptr_handler = plugin->handlers;
+ ptr_handler; ptr_handler = ptr_handler->next_handler)
+ {
+ if ((ptr_handler->type == PLUGIN_HANDLER_TIMER)
+ && (ptr_handler->handler_args))
+ {
+ handler_found = 1;
+ plugin->print_server (plugin, " %d seconds => Perl(%s)",
+ ptr_handler->interval,
+ ptr_handler->handler_args);
+ }
+ }
+ if (!handler_found)
+ plugin->print_server (plugin, " (none)");
+ */
+ /* list Perl keyboard handlers */
+ /*plugin->print_server (plugin, "");
+ plugin->print_server (plugin, "Perl keyboard handlers:");
+ handler_found = 0;
+ for (ptr_handler = plugin->handlers;
+ ptr_handler; ptr_handler = ptr_handler->next_handler)
+ {
+ if ((ptr_handler->type == PLUGIN_HANDLER_KEYBOARD)
+ && (ptr_handler->handler_args))
+ {
+ handler_found = 1;
+ plugin->print_server (plugin, " Perl(%s)",
+ ptr_handler->handler_args);
+ }
+ }
+ if (!handler_found)
+ plugin->print_server (plugin, " (none)");
+ */
+ /* list Perl event handlers */
+ /*plugin->print_server (plugin, "");
+ plugin->print_server (plugin, "Perl event handlers:");
+ handler_found = 0;
+ for (ptr_handler = plugin->handlers;
+ ptr_handler; ptr_handler = ptr_handler->next_handler)
+ {
+ if ((ptr_handler->type == PLUGIN_HANDLER_EVENT)
+ && (ptr_handler->handler_args))
+ {
+ handler_found = 1;
+ plugin->print_server (plugin, " %s => Perl(%s)",
+ ptr_handler->event,
+ ptr_handler->handler_args);
+ }
+ }
+ if (!handler_found)
+ plugin->print_server (plugin, " (none)");
+ */
+ /* List Perl modifiers */
+ /*plugin->print_server (plugin, "");
+ plugin->print_server (plugin, "Perl modifiers:");
+ modifier_found = 0;
+ for (ptr_modifier = plugin->modifiers;
+ ptr_modifier; ptr_modifier = ptr_modifier->next_modifier)
+ {
+ modifier_found = 1;
+ if (ptr_modifier->type == PLUGIN_MODIFIER_IRC_IN)
+ plugin->print_server (plugin, " IRC(%s, %s) => Perl(%s)",
+ ptr_modifier->command,
+ PLUGIN_MODIFIER_IRC_IN_STR,
+ ptr_modifier->modifier_args);
+ else if (ptr_modifier->type == PLUGIN_MODIFIER_IRC_USER)
+ plugin->print_server (plugin, " IRC(%s, %s) => Perl(%s)",
+ ptr_modifier->command,
+ PLUGIN_MODIFIER_IRC_USER_STR,
+ ptr_modifier->modifier_args);
+ else if (ptr_modifier->type == PLUGIN_MODIFIER_IRC_OUT)
+ plugin->print_server (plugin, " IRC(%s, %s) => Perl(%s)",
+ ptr_modifier->command,
+ PLUGIN_MODIFIER_IRC_OUT_STR,
+ ptr_modifier->modifier_args);
+ }
+ if (!modifier_found)
+ plugin->print_server (plugin, " (none)");
+ */
+ }
+ else if (argc == 2)
+ {
+ if (weechat_strcasecmp (argv[1], "autoload") == 0)
+ {
+ weechat_script_auto_load (weechat_perl_plugin,
+ "perl", &weechat_perl_load_cb);
+ }
+ else if (weechat_strcasecmp (argv[1], "reload") == 0)
+ {
+ weechat_perl_unload_all ();
+ weechat_script_auto_load (weechat_perl_plugin,
+ "perl", &weechat_perl_load_cb);
+ }
+ else if (weechat_strcasecmp (argv[1], "unload") == 0)
+ {
+ weechat_perl_unload_all ();
+ }
+ }
+ else
+ {
+ if (weechat_strcasecmp (argv[1], "load") == 0)
+ {
+ /* load Perl script */
+ path_script = weechat_script_search_full_name (weechat_perl_plugin,
+ "perl", argv_eol[2]);
+ weechat_perl_load ((path_script) ? path_script : argv_eol[2]);
+ if (path_script)
+ free (path_script);
+ }
+ else if (weechat_strcasecmp (argv[1], "unload") == 0)
+ {
+ /* unload Perl script */
+ weechat_perl_unload_name (argv_eol[2]);
+ }
+ else
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: unknown option for "
+ "command \"%s\""),
+ weechat_prefix ("error"), "perl", "perl");
+ }
+ }
+
+ return WEECHAT_RC_OK;
+}
+
+/*
+ * weechat_plugin_init: initialize Perl plugin
+ */
+
+int
+weechat_plugin_init (struct t_weechat_plugin *plugin)
+{
+ weechat_perl_plugin = plugin;
+
+#ifndef MULTIPLICITY
+ char *perl_args[] = { "", "-e", "0" };
+
+ perl_main = perl_alloc ();
+
+ if (!perl_main)
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: unable to initialize Perl"),
+ weechat_prefix ("error"), "perl");
+ return WEECHAT_RC_ERROR;
+ }
+
+ perl_construct (perl_main);
+ perl_parse (perl_main, weechat_perl_xs_init, 3, perl_args, NULL);
+ eval_pv (perl_weechat_code, TRUE);
+#endif
+
+ weechat_hook_command ("perl",
+ weechat_gettext ("list/load/unload Perl scripts"),
+ weechat_gettext ("[load filename] | [autoload] | "
+ "[reload] | [unload [script]]"),
+ weechat_gettext ("filename: Perl script (file) to "
+ "load\n"
+ "script: script name to unload\n\n"
+ "Without argument, /perl command "
+ "lists all loaded Perl scripts."),
+ "load|autoload|reload|unload %f",
+ &weechat_perl_command_cb, NULL);
+
+ weechat_mkdir_home ("perl", 0644);
+ weechat_mkdir_home ("perl/autoload", 0644);
+
+ weechat_script_auto_load (weechat_perl_plugin,
+ "perl", &weechat_perl_load_cb);
+
+ /* init ok */
+ return WEECHAT_RC_OK;
+}
+
+/*
+ * weechat_plugin_end: end Perl plugin
+ */
+
+void
+weechat_plugin_end (struct t_weechat_plugin *plugin)
+{
+ /* make C compiler happy */
+ (void) plugin;
+
+ /* unload all scripts */
+ weechat_perl_unload_all (weechat_perl_plugin);
+
+#ifndef MULTIPLICITY
+ /* free perl intepreter */
+ if (perl_main)
+ {
+ perl_destruct (perl_main);
+ perl_free (perl_main);
+ perl_main = NULL;
+ }
+#endif
+}
diff --git a/src/plugins/scripts/perl/weechat-perl.h b/src/plugins/scripts/perl/weechat-perl.h
new file mode 100644
index 000000000..3aab01578
--- /dev/null
+++ b/src/plugins/scripts/perl/weechat-perl.h
@@ -0,0 +1,37 @@
+/*
+ * Copyright (c) 2003-2008 by FlashCode <flashcode@flashtux.org>
+ * See README for License detail, AUTHORS for developers list.
+ *
+ * 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 3 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/>.
+ */
+
+
+#ifndef __WEECHAT_PERL_H
+#define __WEECHAT_PERL_H 1
+
+#include "../../weechat-plugin.h"
+#include "../script.h"
+
+#define weechat_plugin weechat_perl_plugin
+
+extern struct t_weechat_plugin *weechat_perl_plugin;
+
+extern struct t_plugin_script *perl_scripts;
+extern struct t_plugin_script *perl_current_script;
+extern char *perl_current_script_filename;
+
+extern void * weechat_perl_exec (struct t_plugin_script *script,
+ int ret_type, char *function, char **argv);
+
+#endif /* weechat-perl.h */
diff --git a/src/plugins/scripts/script.c b/src/plugins/scripts/script.c
index f9340c917..42f3365eb 100644
--- a/src/plugins/scripts/script.c
+++ b/src/plugins/scripts/script.c
@@ -33,50 +33,84 @@
/*
+ * weechat_script_pointer_to_string: convert pointer to string for usage
+ * in a script (any language)
+ * WARNING: result has to be free() after use
+ */
+
+char *
+weechat_script_pointer_to_string (void *pointer)
+{
+ char pointer_str[128];
+
+ if (!pointer)
+ return strdup ("");
+
+ snprintf (pointer_str, sizeof (pointer_str) - 1,
+ "0x%x", (unsigned int)pointer);
+
+ return strdup (pointer_str);
+}
+
+/*
+ * weechat_script_string_to_pointer: convert stirng to pointer for usage
+ * outside script
+ */
+
+void *
+weechat_script_string_to_pointer (char *pointer_str)
+{
+ unsigned int value;
+
+ if (!pointer_str || (pointer_str[0] != '0') || (pointer_str[0] != 'x'))
+ return NULL;
+
+ sscanf (pointer_str + 2, "%x", &value);
+
+ return (void *)value;
+}
+
+/*
* weechat_script_auto_load: auto-load all scripts in a directory
*/
void
-weechat_script_auto_load (struct t_weechat_plugin *plugin, char *language,
+weechat_script_auto_load (struct t_weechat_plugin *weechat_plugin,
+ char *language,
int (*callback)(void *data, char *filename))
{
char *dir_home, *dir_name;
int dir_length;
/* build directory, adding WeeChat home */
- dir_home = plugin->get_info (plugin, "weechat_dir", NULL);
+ dir_home = weechat_info_get ("weechat_dir");
if (!dir_home)
return;
dir_length = strlen (dir_home) + strlen (language) + 16;
- dir_name =
- (char *)malloc (dir_length * sizeof (char));
+ dir_name = (char *)malloc (dir_length * sizeof (char));
if (!dir_name)
- {
- free (dir_home);
return;
- }
- snprintf (dir_name, dir_length, "%s/%s/autoload", dir_home, language);
- plugin->exec_on_files (dir_name, plugin, callback);
+ snprintf (dir_name, dir_length, "%s/%s/autoload", dir_home, language);
+ weechat_exec_on_files (dir_name, NULL, callback);
free (dir_name);
- free (dir_home);
}
/*
* weechat_script_search: search a script in list
*/
-t_plugin_script *
-weechat_script_search (struct t_weechat_plugin *plugin,
- t_plugin_script **list, char *name)
+struct t_plugin_script *
+weechat_script_search (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script **list, char *name)
{
- t_plugin_script *ptr_script;
+ struct t_plugin_script *ptr_script;
for (ptr_script = *list; ptr_script;
ptr_script = ptr_script->next_script)
{
- if (plugin->strcasecmp (plugin, ptr_script->name, name) == 0)
+ if (weechat_strcasecmp (ptr_script->name, name) == 0)
return ptr_script;
}
@@ -89,7 +123,7 @@ weechat_script_search (struct t_weechat_plugin *plugin,
*/
char *
-weechat_script_search_full_name (struct t_weechat_plugin *plugin,
+weechat_script_search_full_name (struct t_weechat_plugin *weechat_plugin,
char *language, char *filename)
{
char *final_name, *dir_home, *dir_system;
@@ -110,110 +144,90 @@ weechat_script_search_full_name (struct t_weechat_plugin *plugin,
}
return NULL;
}
-
- /* try WeeChat user's autoload dir */
- dir_home = plugin->get_info (plugin, "weechat_dir", NULL);
+
+ dir_home = weechat_info_get ("weechat_dir");
if (dir_home)
{
+ /* try WeeChat user's autoload dir */
length = strlen (dir_home) + strlen (language) + 8 + strlen (filename) + 16;
final_name = (char *)malloc (length);
if (final_name)
{
- snprintf (final_name, length, "%s/%s/autoload/%s", dir_home, language, filename);
+ snprintf (final_name, length,
+ "%s/%s/autoload/%s", dir_home, language, filename);
if ((stat (final_name, &st) == 0) && (st.st_size > 0))
- {
- free (dir_home);
return final_name;
- }
free (final_name);
}
- free (dir_home);
- }
-
- /* try WeeChat language user's dir */
- dir_home = plugin->get_info (plugin, "weechat_dir", NULL);
- if (dir_home)
- {
+
+ /* try WeeChat language user's dir */
length = strlen (dir_home) + strlen (language) + strlen (filename) + 16;
final_name = (char *)malloc (length);
if (final_name)
{
- snprintf (final_name, length, "%s/%s/%s", dir_home, language, filename);
+ snprintf (final_name, length,
+ "%s/%s/%s", dir_home, language, filename);
if ((stat (final_name, &st) == 0) && (st.st_size > 0))
- {
- free (dir_home);
return final_name;
- }
free (final_name);
}
- free (dir_home);
- }
-
- /* try WeeChat user's dir */
- dir_home = plugin->get_info (plugin, "weechat_dir", NULL);
- if (dir_home)
- {
+
+ /* try WeeChat user's dir */
length = strlen (dir_home) + strlen (filename) + 16;
final_name = (char *)malloc (length);
if (final_name)
{
- snprintf (final_name, length, "%s/%s", dir_home, filename);
+ snprintf (final_name, length,
+ "%s/%s", dir_home, filename);
if ((stat (final_name, &st) == 0) && (st.st_size > 0))
- {
- free (dir_home);
return final_name;
- }
free (final_name);
}
- free (dir_home);
}
-
+
/* try WeeChat system dir */
- dir_system = plugin->get_info (plugin, "weechat_sharedir", NULL);
+ dir_system = weechat_info_get ("weechat_sharedir");
if (dir_system)
{
length = strlen (dir_system) + strlen (dir_system) + strlen (filename) + 16;
final_name = (char *)malloc (length);
if (final_name)
{
- snprintf (final_name,length, "%s/%s/%s", dir_system, language, filename);
+ snprintf (final_name,length,
+ "%s/%s/%s", dir_system, language, filename);
if ((stat (final_name, &st) == 0) && (st.st_size > 0))
- {
- free (dir_system);
return final_name;
- }
free (final_name);
}
- free (dir_system);
}
-
- return strdup(filename);
+
+ return strdup (filename);
}
/*
* weechat_script_add: add a script to list of scripts
*/
-t_plugin_script *
-weechat_script_add (struct t_weechat_plugin *plugin,
- t_plugin_script **script_list,
+struct t_plugin_script *
+weechat_script_add (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script **script_list,
char *filename,
char *name, char *version,
char *shutdown_func, char *description,
char *charset)
{
- t_plugin_script *new_script;
+ struct t_plugin_script *new_script;
if (strchr (name, ' '))
{
- plugin->print_server (plugin,
- "Error: unable to load script "
- "\"%s\" (bad name, spaces are forbidden)",
- name);
+ weechat_printf (NULL,
+ _("%s: error loading script \"%s\" (bad name, spaces "
+ "are forbidden)"),
+ weechat_plugin->name, name);
return NULL;
}
- new_script = (t_plugin_script *)malloc (sizeof (t_plugin_script));
+ new_script = (struct t_plugin_script *)malloc (sizeof (struct t_plugin_script));
if (new_script)
{
new_script->filename = strdup (filename);
@@ -224,59 +238,64 @@ weechat_script_add (struct t_weechat_plugin *plugin,
new_script->description = strdup (description);
new_script->charset = (charset) ? strdup (charset) : NULL;
+ new_script->hooks = NULL;
+
/* add new script to list */
if ((*script_list))
(*script_list)->prev_script = new_script;
new_script->prev_script = NULL;
new_script->next_script = (*script_list);
(*script_list) = new_script;
+
return new_script;
}
-
- plugin->print_server (plugin,
- "Error: unable to load script "
- "\"%s\" (not enough memory)",
- name);
+
+ weechat_printf (NULL,
+ _("%s: error loading script \"%s\" (not enough memory)"),
+ weechat_plugin->name, name);
+
return NULL;
}
/*
+ * weechat_script_remove_script_hook: remove a script_hook from script
+ */
+
+void
+weechat_script_remove_script_hook (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ struct t_script_hook *script_hook)
+{
+ /* remove script_hook from list */
+ if (script_hook->prev_hook)
+ script_hook->prev_hook->next_hook = script_hook->next_hook;
+ if (script_hook->next_hook)
+ script_hook->next_hook->prev_hook = script_hook->prev_hook;
+ if (script->hooks == script_hook)
+ script->hooks = script_hook->next_hook;
+
+ /* unhook and free data */
+ if (script_hook->hook)
+ weechat_unhook (script_hook->hook);
+ if (script_hook->function)
+ free (script_hook->function);
+}
+
+/*
* weechat_script_remove: remove a script from list of scripts
*/
void
-weechat_script_remove (struct t_weechat_plugin *plugin,
- t_plugin_script **script_list, t_plugin_script *script)
+weechat_script_remove (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script **script_list,
+ struct t_plugin_script *script)
{
- t_plugin_handler *ptr_handler, *next_handler;
- t_plugin_modifier *ptr_modifier, *next_modifier;
-
- /* remove all handlers pointing to script */
- ptr_handler = plugin->handlers;
- while (ptr_handler)
+ /* remove all hooks created by this script */
+ while (script->hooks)
{
- if ((t_plugin_script *)ptr_handler->handler_pointer == script)
- {
- next_handler = ptr_handler->next_handler;
- plugin->handler_remove (plugin, ptr_handler);
- ptr_handler = next_handler;
- }
- else
- ptr_handler = ptr_handler->next_handler;
- }
-
- /* remove all modifiers pointing to script */
- ptr_modifier = plugin->modifiers;
- while (ptr_modifier)
- {
- if ((t_plugin_script *)ptr_modifier->modifier_pointer == script)
- {
- next_modifier = ptr_modifier->next_modifier;
- plugin->modifier_remove (plugin, ptr_modifier);
- ptr_modifier = next_modifier;
- }
- else
- ptr_modifier = ptr_modifier->next_modifier;
+ weechat_script_remove_script_hook (weechat_plugin,
+ script,
+ script->hooks);
}
/* free data */
@@ -306,296 +325,469 @@ weechat_script_remove (struct t_weechat_plugin *plugin,
}
/*
- * weechat_script_print: print a message on a server or channel buffer
+ * weechat_script_charset_set: set charset for script
*/
void
-weechat_script_print (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *server, char *channel,
- char *message, ...)
+weechat_script_charset_set (struct t_plugin_script *script,
+ char *charset)
{
- va_list argptr;
- static char buf[8192];
- char *buf2;
-
- va_start (argptr, message);
- vsnprintf (buf, sizeof (buf) - 1, message, argptr);
- va_end (argptr);
+ if (script->charset)
+ free (script->charset);
- buf2 = (script->charset && script->charset[0]) ?
- plugin->iconv_to_internal (plugin, script->charset, buf) : NULL;
- plugin->print (plugin, server, channel, "%s", (buf2) ? buf2 : buf);
- if (buf2)
- free (buf2);
+ script->charset = (charset) ? strdup (charset) : NULL;
}
/*
- * weechat_script_print_server: print a message on server buffer
+ * weechat_script_printf: print a message
*/
void
-weechat_script_print_server (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *message, ...)
+weechat_script_printf (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ struct t_gui_buffer *buffer, char *format, ...)
{
va_list argptr;
static char buf[8192];
char *buf2;
- va_start (argptr, message);
- vsnprintf (buf, sizeof (buf) - 1, message, argptr);
+ va_start (argptr, format);
+ vsnprintf (buf, sizeof (buf) - 1, format, argptr);
va_end (argptr);
buf2 = (script->charset && script->charset[0]) ?
- plugin->iconv_to_internal (plugin, script->charset, buf) : NULL;
- plugin->print_server (plugin, "%s", (buf2) ? buf2 : buf);
+ weechat_iconv_to_internal (script->charset, buf) : NULL;
+ weechat_printf (buffer, "%s", (buf2) ? buf2 : buf);
if (buf2)
free (buf2);
}
/*
- * weechat_script_print_infobar: print a message in infobar
+ * weechat_script_infobar_printf: print a message in infobar
*/
void
-weechat_script_print_infobar (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- int delay, char *message, ...)
+weechat_script_infobar_printf (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ int delay, char *color_name, char *format, ...)
{
va_list argptr;
static char buf[1024];
char *buf2;
- va_start (argptr, message);
- vsnprintf (buf, sizeof (buf) - 1, message, argptr);
+ va_start (argptr, format);
+ vsnprintf (buf, sizeof (buf) - 1, format, argptr);
va_end (argptr);
buf2 = (script->charset && script->charset[0]) ?
- plugin->iconv_to_internal (plugin, script->charset, buf) : NULL;
- plugin->print_infobar (plugin, delay, "%s", (buf2) ? buf2 : buf);
+ weechat_iconv_to_internal (script->charset, buf) : NULL;
+ weechat_infobar_printf (delay, color_name, "%s", (buf2) ? buf2 : buf);
if (buf2)
free (buf2);
}
/*
- * weechat_script_log: add a message in buffer log file
+ * weechat_script_log_printf: add a message in WeeChat log file
*/
void
-weechat_script_log (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *server, char *channel, char *message, ...)
+weechat_script_log_printf (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *format, ...)
{
va_list argptr;
static char buf[1024];
char *buf2;
- va_start (argptr, message);
- vsnprintf (buf, sizeof (buf) - 1, message, argptr);
+ va_start (argptr, format);
+ vsnprintf (buf, sizeof (buf) - 1, format, argptr);
va_end (argptr);
buf2 = (script->charset && script->charset[0]) ?
- plugin->iconv_to_internal (plugin, script->charset, buf) : NULL;
- plugin->log (plugin, server, channel, "%s", (buf2) ? buf2 : buf);
+ weechat_iconv_to_internal (script->charset, buf) : NULL;
+ weechat_log_printf ("%s", (buf2) ? buf2 : buf);
if (buf2)
free (buf2);
}
/*
- * weechat_script_exec_command: execute a command (simulate user entry)
+ * weechat_script_hook_command: hook a command
+ * return 1 if ok, 0 if error
*/
-void
-weechat_script_exec_command (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *server, char *channel, char *command)
+int
+weechat_script_hook_command (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *command, char *description,
+ char *args, char *args_description,
+ char *completion,
+ int (*callback)(void *data,
+ struct t_gui_buffer *buffer,
+ int argc, char **argv,
+ char **argv_eol),
+ char *function)
{
- char *command2;
+ struct t_script_hook *new_script_hook;
+ struct t_hook *new_hook;
+
+ new_script_hook = (struct t_script_hook *)malloc (sizeof (struct t_script_hook));
+ if (!new_script_hook)
+ return 0;
+
+ new_script_hook->hook = NULL;
+ new_script_hook->function = NULL;
+ new_script_hook->script = NULL;
- command2 = (script->charset && script->charset[0]) ?
- plugin->iconv_to_internal (plugin, script->charset, command) : NULL;
- plugin->exec_command (plugin, server, channel,
- (command2) ? command2 : command);
- if (command2)
- free (command2);
+ new_hook = weechat_hook_command (command, description, args,
+ args_description, completion,
+ callback, new_script_hook);
+ if (!new_hook)
+ {
+ free (new_script_hook);
+ return 0;
+ }
+
+ new_script_hook->hook = new_hook;
+ new_script_hook->function = strdup (function);
+ new_script_hook->script = script;
+
+ /* add script_hook to list of hooks for current script */
+ if (script->hooks)
+ script->hooks->prev_hook = new_script_hook;
+ new_script_hook->prev_hook = NULL;
+ new_script_hook->next_hook = script->hooks;
+ script->hooks = new_script_hook;
+
+ return 1;
}
/*
- * weechat_script_remove_handler: remove a handler for a script
- * for a msg handler, arg1=irc command, arg2=function
- * for a cmd handler, arg1=command, arg2=function
+ * weechat_script_hook_timer: hook a timer
+ * return 1 if ok, 0 if error
*/
-void
-weechat_script_remove_handler (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *arg1, char *arg2)
+int
+weechat_script_hook_timer (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ int interval, int align_second, int max_calls,
+ int (*callback)(void *data),
+ char *function)
{
- t_plugin_handler *ptr_handler, *next_handler;
- char *ptr_arg1;
+ struct t_script_hook *new_script_hook;
+ struct t_hook *new_hook;
+
+ new_script_hook = (struct t_script_hook *)malloc (sizeof (struct t_script_hook));
+ if (!new_script_hook)
+ return 0;
+
+ new_script_hook->hook = NULL;
+ new_script_hook->function = NULL;
+ new_script_hook->script = NULL;
- /* search and remove handlers */
- ptr_handler = plugin->handlers;
- while (ptr_handler)
+ new_hook = weechat_hook_timer (interval, align_second, max_calls,
+ callback, new_script_hook);
+ if (!new_hook)
{
- ptr_arg1 = NULL;
- if (ptr_handler->type == PLUGIN_HANDLER_MESSAGE)
- ptr_arg1 = ptr_handler->irc_command;
- else if (ptr_handler->type == PLUGIN_HANDLER_COMMAND)
- ptr_arg1 = ptr_handler->command;
-
- if ((ptr_arg1)
- && ((t_plugin_script *)ptr_handler->handler_pointer == script)
- && (plugin->strcasecmp (plugin, ptr_arg1, arg1) == 0)
- && (plugin->strcasecmp (plugin, ptr_handler->handler_args, arg2) == 0))
- {
- next_handler = ptr_handler->next_handler;
- plugin->handler_remove (plugin, ptr_handler);
- ptr_handler = next_handler;
- }
- else
- ptr_handler = ptr_handler->next_handler;
+ free (new_script_hook);
+ return 0;
}
+
+ new_script_hook->hook = new_hook;
+ new_script_hook->function = strdup (function);
+ new_script_hook->script = script;
+
+ /* add script_hook to list of hooks for current script */
+ if (script->hooks)
+ script->hooks->prev_hook = new_script_hook;
+ new_script_hook->prev_hook = NULL;
+ new_script_hook->next_hook = script->hooks;
+ script->hooks = new_script_hook;
+
+ return 1;
}
/*
- * weechat_script_remove_timer_handler: remove a timer handler for a script
+ * weechat_script_hook_fd: hook a fd
+ * return 1 if ok, 0 if error
*/
-void
-weechat_script_remove_timer_handler (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *function)
+int
+weechat_script_hook_fd (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ int fd, int flag_read, int flag_write,
+ int flag_exception,
+ int (*callback)(void *data),
+ char *function)
{
- t_plugin_handler *ptr_handler, *next_handler;
+ struct t_script_hook *new_script_hook;
+ struct t_hook *new_hook;
+
+ new_script_hook = (struct t_script_hook *)malloc (sizeof (struct t_script_hook));
+ if (!new_script_hook)
+ return 0;
+
+ new_script_hook->hook = NULL;
+ new_script_hook->function = NULL;
+ new_script_hook->script = NULL;
- /* search and remove timer handlers */
- ptr_handler = plugin->handlers;
- while (ptr_handler)
+ new_hook = weechat_hook_fd (fd, flag_read, flag_write, flag_exception,
+ callback, new_script_hook);
+ if (!new_hook)
{
- if ((ptr_handler->type == PLUGIN_HANDLER_TIMER)
- && ((t_plugin_script *)ptr_handler->handler_pointer == script)
- && (plugin->strcasecmp (plugin, ptr_handler->handler_args, function) == 0))
- {
- next_handler = ptr_handler->next_handler;
- plugin->handler_remove (plugin, ptr_handler);
- ptr_handler = next_handler;
- }
- else
- ptr_handler = ptr_handler->next_handler;
+ free (new_script_hook);
+ return 0;
}
+
+ new_script_hook->hook = new_hook;
+ new_script_hook->function = strdup (function);
+ new_script_hook->script = script;
+
+ /* add script_hook to list of hooks for current script */
+ if (script->hooks)
+ script->hooks->prev_hook = new_script_hook;
+ new_script_hook->prev_hook = NULL;
+ new_script_hook->next_hook = script->hooks;
+ script->hooks = new_script_hook;
+
+ return 1;
}
/*
- * weechat_script_remove_keyboard_handler: remove a keyboard handler for a script
+ * weechat_script_hook_print: hook a print
+ * return 1 if ok, 0 if error
*/
-void
-weechat_script_remove_keyboard_handler (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *function)
+int
+weechat_script_hook_print (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ struct t_gui_buffer *buffer,
+ char *message, int strip_colors,
+ int (*callback)(void *data,
+ struct t_gui_buffer *buffer,
+ time_t date, char *prefix,
+ char *message),
+ char *function)
{
- t_plugin_handler *ptr_handler, *next_handler;
+ struct t_script_hook *new_script_hook;
+ struct t_hook *new_hook;
+
+ new_script_hook = (struct t_script_hook *)malloc (sizeof (struct t_script_hook));
+ if (!new_script_hook)
+ return 0;
+
+ new_script_hook->hook = NULL;
+ new_script_hook->function = NULL;
+ new_script_hook->script = NULL;
- /* search and remove keyboard handlers */
- ptr_handler = plugin->handlers;
- while (ptr_handler)
+ new_hook = weechat_hook_print (buffer, message, strip_colors,
+ callback, new_script_hook);
+ if (!new_hook)
{
- if ((ptr_handler->type == PLUGIN_HANDLER_KEYBOARD)
- && ((t_plugin_script *)ptr_handler->handler_pointer == script)
- && (plugin->strcasecmp (plugin, ptr_handler->handler_args, function) == 0))
- {
- next_handler = ptr_handler->next_handler;
- plugin->handler_remove (plugin, ptr_handler);
- ptr_handler = next_handler;
- }
- else
- ptr_handler = ptr_handler->next_handler;
+ free (new_script_hook);
+ return 0;
}
+
+ new_script_hook->hook = new_hook;
+ new_script_hook->function = strdup (function);
+ new_script_hook->script = script;
+
+ /* add script_hook to list of hooks for current script */
+ if (script->hooks)
+ script->hooks->prev_hook = new_script_hook;
+ new_script_hook->prev_hook = NULL;
+ new_script_hook->next_hook = script->hooks;
+ script->hooks = new_script_hook;
+
+ return 1;
}
/*
- * weechat_script_remove_event_handler: remove an event handler for a script
+ * weechat_script_hook_signal: hook a signal
+ * return 1 if ok, 0 if error
*/
-void
-weechat_script_remove_event_handler (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *function)
+int
+weechat_script_hook_signal (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *signal,
+ int (*callback)(void *data, char *signal,
+ char *type_data,
+ void *signal_data),
+ char *function)
{
- t_plugin_handler *ptr_handler, *next_handler;
+ struct t_script_hook *new_script_hook;
+ struct t_hook *new_hook;
+
+ new_script_hook = (struct t_script_hook *)malloc (sizeof (struct t_script_hook));
+ if (!new_script_hook)
+ return 0;
+
+ new_script_hook->hook = NULL;
+ new_script_hook->function = NULL;
+ new_script_hook->script = NULL;
- /* search and remove timer handlers */
- ptr_handler = plugin->handlers;
- while (ptr_handler)
+ new_hook = weechat_hook_signal (signal, callback, new_script_hook);
+ if (!new_hook)
{
- if ((ptr_handler->type == PLUGIN_HANDLER_EVENT)
- && ((t_plugin_script *)ptr_handler->handler_pointer == script)
- && (plugin->strcasecmp (plugin, ptr_handler->handler_args, function) == 0))
- {
- next_handler = ptr_handler->next_handler;
- plugin->handler_remove (plugin, ptr_handler);
- ptr_handler = next_handler;
- }
- else
- ptr_handler = ptr_handler->next_handler;
+ free (new_script_hook);
+ return 0;
}
+
+ new_script_hook->hook = new_hook;
+ new_script_hook->function = strdup (function);
+ new_script_hook->script = script;
+
+ /* add script_hook to list of hooks for current script */
+ if (script->hooks)
+ script->hooks->prev_hook = new_script_hook;
+ new_script_hook->prev_hook = NULL;
+ new_script_hook->next_hook = script->hooks;
+ script->hooks = new_script_hook;
+
+ return 1;
}
/*
- * weechat_script_remove_modifier: remove a modifier
- * arg1=type, arg2=command, arg3=function
+ * weechat_script_hook_config: hook a config option
+ * return 1 if ok, 0 if error
*/
-void
-weechat_script_remove_modifier (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *arg1, char *arg2, char *arg3)
+int
+weechat_script_hook_config (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *type, char *option,
+ int (*callback)(void *data, char *type,
+ char *option, char *value),
+ char *function)
{
- t_plugin_modifier *ptr_modifier, *next_modifier;
- t_plugin_modifier_type type;
- char *ptr_arg2;
-
- if (strcasecmp (arg1, PLUGIN_MODIFIER_IRC_IN_STR) == 0)
- type = PLUGIN_MODIFIER_IRC_IN;
- else if (strcasecmp (arg1, PLUGIN_MODIFIER_IRC_USER_STR) == 0)
- type = PLUGIN_MODIFIER_IRC_USER;
- else if (strcasecmp (arg1, PLUGIN_MODIFIER_IRC_OUT_STR) == 0)
- type = PLUGIN_MODIFIER_IRC_OUT;
- else
- return;
+ struct t_script_hook *new_script_hook;
+ struct t_hook *new_hook;
+
+ new_script_hook = (struct t_script_hook *)malloc (sizeof (struct t_script_hook));
+ if (!new_script_hook)
+ return 0;
+
+ new_script_hook->hook = NULL;
+ new_script_hook->function = NULL;
+ new_script_hook->script = NULL;
- /* search and remove modifiers */
- ptr_modifier = plugin->modifiers;
- while (ptr_modifier)
+ new_hook = weechat_hook_config (type, option, callback, new_script_hook);
+ if (!new_hook)
{
- ptr_arg2 = NULL;
- if (ptr_modifier->type == type)
- ptr_arg2 = ptr_modifier->command;
-
- if ((ptr_arg2)
- && ((t_plugin_script *)ptr_modifier->modifier_pointer == script)
- && (plugin->strcasecmp (plugin, ptr_arg2, arg2) == 0)
- && (plugin->strcasecmp (plugin, ptr_modifier->modifier_args, arg3) == 0))
- {
- next_modifier = ptr_modifier->next_modifier;
- plugin->modifier_remove (plugin, ptr_modifier);
- ptr_modifier = next_modifier;
- }
- else
- ptr_modifier = ptr_modifier->next_modifier;
+ free (new_script_hook);
+ return 0;
}
+
+ new_script_hook->hook = new_hook;
+ new_script_hook->function = strdup (function);
+ new_script_hook->script = script;
+
+ /* add script_hook to list of hooks for current script */
+ if (script->hooks)
+ script->hooks->prev_hook = new_script_hook;
+ new_script_hook->prev_hook = NULL;
+ new_script_hook->next_hook = script->hooks;
+ script->hooks = new_script_hook;
+
+ return 1;
}
/*
- * weechat_script_get_plugin_config: get a value of a script option
+ * weechat_script_hook_completion: hook a completion
+ * return 1 if ok, 0 if error
+ */
+
+int
+weechat_script_hook_completion (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *completion,
+ int (*callback)(void *data, char *completion,
+ struct t_gui_buffer *buffer,
+ struct t_weelist *list),
+ char *function)
+{
+ struct t_script_hook *new_script_hook;
+ struct t_hook *new_hook;
+
+ new_script_hook = (struct t_script_hook *)malloc (sizeof (struct t_script_hook));
+ if (!new_script_hook)
+ return 0;
+
+ new_script_hook->hook = NULL;
+ new_script_hook->function = NULL;
+ new_script_hook->script = NULL;
+
+ new_hook = weechat_hook_completion (completion, callback, new_script_hook);
+ if (!new_hook)
+ {
+ free (new_script_hook);
+ return 0;
+ }
+
+ new_script_hook->hook = new_hook;
+ new_script_hook->function = strdup (function);
+ new_script_hook->script = script;
+
+ /* add script_hook to list of hooks for current script */
+ if (script->hooks)
+ script->hooks->prev_hook = new_script_hook;
+ new_script_hook->prev_hook = NULL;
+ new_script_hook->next_hook = script->hooks;
+ script->hooks = new_script_hook;
+
+ return 1;
+}
+
+/*
+ * weechat_script_unhook: unhook something
+ */
+
+void
+weechat_script_unhook (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ struct t_hook *hook)
+{
+ struct t_script_hook *ptr_script_hook;
+
+ for (ptr_script_hook = script->hooks; ptr_script_hook;
+ ptr_script_hook = ptr_script_hook->next_hook)
+ {
+ if (ptr_script_hook->hook == hook)
+ break;
+ }
+
+ if (ptr_script_hook)
+ weechat_script_remove_script_hook (weechat_plugin,
+ script,
+ ptr_script_hook);
+}
+
+/*
+ * weechat_script_command: execute a command (simulate user entry)
+ */
+
+void
+weechat_script_command (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ struct t_gui_buffer *buffer, char *command)
+{
+ char *command2;
+
+ command2 = (script->charset && script->charset[0]) ?
+ weechat_iconv_to_internal (script->charset, command) : NULL;
+ weechat_command (buffer, (command2) ? command2 : command);
+ if (command2)
+ free (command2);
+}
+
+/*
+ * weechat_script_config_get_plugin: get a value of a script option
* format in file is: plugin.script.option=value
*/
char *
-weechat_script_get_plugin_config (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
+weechat_script_config_get_plugin (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
char *option)
{
char *option_fullname, *return_value;
@@ -609,20 +801,20 @@ weechat_script_get_plugin_config (struct t_weechat_plugin *plugin,
strcat (option_fullname, ".");
strcat (option_fullname, option);
- return_value = plugin->get_plugin_config (plugin, option_fullname);
+ return_value = weechat_config_get_plugin (option_fullname);
free (option_fullname);
return return_value;
}
/*
- * weechat_script_set_plugin_config: set value of a script config option
+ * weechat_script_config_set_plugin: set value of a script config option
* format in file is: plugin.script.option=value
*/
int
-weechat_script_set_plugin_config (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
+weechat_script_config_set_plugin (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
char *option, char *value)
{
char *option_fullname;
@@ -637,26 +829,8 @@ weechat_script_set_plugin_config (struct t_weechat_plugin *plugin,
strcat (option_fullname, ".");
strcat (option_fullname, option);
- return_code = plugin->set_plugin_config (plugin, option_fullname, value);
+ return_code = weechat_config_set_plugin (option_fullname, value);
free (option_fullname);
return return_code;
}
-
-/*
- * weechat_script_set_charset: set charset for script
- */
-
-void
-weechat_script_set_charset (struct t_weechat_plugin *plugin,
- t_plugin_script *script,
- char *charset)
-{
- /* make C compiler happy */
- (void) plugin;
-
- if (script->charset)
- free (script->charset);
-
- script->charset = (charset) ? strdup (charset) : NULL;
-}
diff --git a/src/plugins/scripts/script.h b/src/plugins/scripts/script.h
index 3ca18ae7f..3fad8624e 100644
--- a/src/plugins/scripts/script.h
+++ b/src/plugins/scripts/script.h
@@ -23,8 +23,29 @@
#define __WEECHAT_SCRIPT_H 1
/* constants which defines return types for weechat_<lang>_exec functions */
-#define SCRIPT_EXEC_INT 1
-#define SCRIPT_EXEC_STRING 2
+#define WEECHAT_SCRIPT_EXEC_INT 1
+#define WEECHAT_SCRIPT_EXEC_STRING 2
+
+#define WEECHAT_SCRIPT_MSG_NOT_INITIALIZED(__language, __function) \
+ weechat_printf (NULL, \
+ weechat_gettext("%s%s: unable to call function " \
+ "\"%s\", script is not " \
+ "initialized"), \
+ weechat_prefix ("error"), __language, __function)
+#define WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS(__language, __function) \
+ weechat_printf (NULL, \
+ weechat_gettext("%s%s: wrong arguments for " \
+ "function \"%s\""), \
+ weechat_prefix ("error"), __language, __function)
+
+struct t_script_hook
+{
+ struct t_hook *hook; /* pointer to hook */
+ char *function; /* script function called */
+ void *script; /* pointer to script */
+ struct t_script_hook *prev_hook; /* link to next script hook */
+ struct t_script_hook *next_hook; /* link to previous hook */
+};
struct t_plugin_script
{
@@ -37,69 +58,112 @@ struct t_plugin_script
char *shutdown_func; /* function when script is unloaded*/
char *charset; /* script charset */
+ struct t_script_hook *hooks; /* hooks for script */
+
struct t_plugin_script *prev_script; /* link to previous script */
struct t_plugin_script *next_script; /* link to next script */
};
-extern void weechat_script_auto_load (struct t_weechat_plugin *plugin, char *language,
+extern char *weechat_script_pointer_to_string (void *pointer);
+extern void *weechat_script_string_to_pointer (char *pointer_str);
+extern void weechat_script_auto_load (struct t_weechat_plugin *weechat_plugin,
+ char *language,
int (*callback)(void *data, char *filename));
-extern struct t_plugin_script *weechat_script_search (struct t_weechat_plugin *plugin,
+extern struct t_plugin_script *weechat_script_search (struct t_weechat_plugin *weechat_plugin,
struct t_plugin_script **list,
char *name);
-extern char *weechat_script_search_full_name (struct t_weechat_plugin *plugin,
+extern char *weechat_script_search_full_name (struct t_weechat_plugin *weechat_plugin,
char *language, char *filename);
-extern struct t_plugin_script *weechat_script_add (struct t_weechat_plugin *plugin,
+extern struct t_plugin_script *weechat_script_add (struct t_weechat_plugin *weechat_plugin,
struct t_plugin_script **script_list,
char *filename, char *name,
char *version,
char *shutdown_func,
char *description,
char *charset);
-extern void weechat_script_remove (struct t_weechat_plugin *plugin,
+extern void weechat_script_remove (struct t_weechat_plugin *weechat_plugin,
struct t_plugin_script **script_list,
struct t_plugin_script *script);
-extern void weechat_script_print (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *server, char *channel,
- char *message, ...);
-extern void weechat_script_print_server (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *message, ...);
-extern void weechat_script_print_infobar (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- int delay, char *message, ...);
-extern void weechat_script_log (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *server, char *channel,
- char *message, ...);
-extern void weechat_script_exec_command (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *server, char *channel,
- char *command);
-extern void weechat_script_remove_handler (struct t_weechat_plugin *plugin,
+extern void weechat_script_charset_set (struct t_plugin_script *script,
+ char *charset);
+extern void weechat_script_printf (struct t_weechat_plugin *plugin,
+ struct t_plugin_script *script,
+ struct t_gui_buffer *buffer,
+ char *format, ...);
+extern void weechat_script_infobar_printf (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ int delay, char *color_name,
+ char *format, ...);
+extern void weechat_script_log_printf (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *format, ...);
+extern int weechat_script_hook_command (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *command, char *description,
+ char *args, char *args_description,
+ char *completion,
+ int (*callback)(void *data,
+ struct t_gui_buffer *buffer,
+ int argc, char **argv,
+ char **argv_eol),
+ char *function);
+extern int weechat_script_hook_timer (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ int interval, int align_second,
+ int max_calls,
+ int (*callback)(void *data),
+ char *function);
+extern int weechat_script_hook_fd (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ int fd, int flag_read, int flag_write,
+ int flag_exception,
+ int (*callback)(void *data),
+ char *function);
+extern int weechat_script_hook_print (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ struct t_gui_buffer *buffer,
+ char *message, int strip_colors,
+ int (*callback)(void *data,
+ struct t_gui_buffer *buffer,
+ time_t date,
+ char *prefix,
+ char *message),
+ char *function);
+extern int weechat_script_hook_signal (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *signal,
+ int (*callback)(void *data,
+ char *signal,
+ char *type_data,
+ void *signal_data),
+ char *function);
+extern int weechat_script_hook_config (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ char *type, char *option,
+ int (*callback)(void *data, char *type,
+ char *option,
+ char *value),
+ char *function);
+extern int weechat_script_hook_completion (struct t_weechat_plugin *weechat_plugin,
struct t_plugin_script *script,
- char *arg1, char *arg2);
-extern void weechat_script_remove_timer_handler (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *function);
-extern void weechat_script_remove_keyboard_handler (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *function);
-extern void weechat_script_remove_event_handler (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *function);
-extern void weechat_script_remove_modifier (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *arg1, char *arg2,
- char *arg3);
-extern char *weechat_script_get_plugin_config (struct t_weechat_plugin *plugin,
+ char *completion,
+ int (*callback)(void *data,
+ char *completion,
+ struct t_gui_buffer *buffer,
+ struct t_weelist *list),
+ char *function);
+extern void weechat_script_unhook (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ struct t_hook *hook);
+extern void weechat_script_command (struct t_weechat_plugin *weechat_plugin,
+ struct t_plugin_script *script,
+ struct t_gui_buffer *buffer,
+ char *command);
+extern char *weechat_script_config_get_plugin (struct t_weechat_plugin *weechat_plugin,
struct t_plugin_script *script,
char *option);
-extern int weechat_script_set_plugin_config (struct t_weechat_plugin *plugin,
+extern int weechat_script_config_set_plugin (struct t_weechat_plugin *weechat_plugin,
struct t_plugin_script *script,
char *option, char *value);
-extern void weechat_script_set_charset (struct t_weechat_plugin *plugin,
- struct t_plugin_script *script,
- char *charset);
#endif /* script.h */
diff --git a/src/plugins/weechat-plugin.h b/src/plugins/weechat-plugin.h
index 5fe6c9c52..d9c778ebb 100644
--- a/src/plugins/weechat-plugin.h
+++ b/src/plugins/weechat-plugin.h
@@ -44,13 +44,13 @@ struct t_weelist;
/* return codes specific to message handlers: messages can be discarded for
WeeChat, for plugins, or both */
-#define WEECHAT_RC_IGNORE_WEECHAT 1 /* ignore WeeChat for this message */
-#define WEECHAT_RC_IGNORE_PLUGINS 2 /* ignore other plugins for msg */
-#define WEECHAT_RC_IGNORE_ALL (PLUGIN_RC_OK_IGNORE_WEECHAT \
- | PLUGIN_RC_OK_IGNORE_PLUGINS)
- /* ignore WeeChat and other plugins */
-#define WEECHAT_RC_WITH_HIGHLIGHT 4 /* ok and ask for highlight */
- /* (for message handler only) */
+#define WEECHAT_RC_OK_IGNORE_WEECHAT 1 /* ignore WeeChat for this message */
+#define WEECHAT_RC_OK_IGNORE_PLUGINS 2 /* ignore other plugins for msg */
+#define WEECHAT_RC_OK_IGNORE_ALL (WEECHAT_RC_OK_IGNORE_WEECHAT \
+ | WEECHAT_RC_OK_IGNORE_PLUGINS)
+ /* ignore WeeChat and other plugins */
+#define WEECHAT_RC_OK_WITH_HIGHLIGHT 4 /* ok and ask for highlight */
+ /* (for message handler only) */
/* list management (order of elements) */
#define WEECHAT_LIST_POS_SORT "sort"
@@ -63,6 +63,11 @@ struct t_weelist;
#define WEECHAT_HOTLIST_PRIVATE "2"
#define WEECHAT_HOTLIST_HIGHLIGHT "3"
+/* type of data for signal hooked */
+#define WEECHAT_HOOK_SIGNAL_STRING "string"
+#define WEECHAT_HOOK_SIGNAL_INT "int"
+#define WEECHAT_HOOK_SIGNAL_POINTER "pointer"
+
struct t_weechat_plugin
{
/* plugin variables */
@@ -197,10 +202,10 @@ struct t_weechat_plugin
char *(*color) (char *color_name);
void (*printf_date) (struct t_gui_buffer *buffer, time_t date,
char *message, ...);
- void (*log_printf) (char *message, ...);
void (*infobar_printf) (struct t_weechat_plugin *plugin, int delay,
char *color_name, char *format, ...);
void (*infobar_remove) (int how_many);
+ void (*log_printf) (char *message, ...);
/* hooks */
struct t_hook *(*hook_command) (struct t_weechat_plugin *plugin,
@@ -233,9 +238,11 @@ struct t_weechat_plugin
struct t_hook *(*hook_signal) (struct t_weechat_plugin *plugin,
char *signal,
int (*callback)(void *data, char *signal,
+ char *type_data,
void *signal_data),
void *callback_data);
- void (*hook_signal_send) (char *signal, void *signal_data);
+ void (*hook_signal_send) (char *signal, char *type_data,
+ void *signal_data);
struct t_hook *(*hook_config) (struct t_weechat_plugin *plugin,
char *type, char *option,
int (*callback)(void *data, char *type,
@@ -315,11 +322,16 @@ struct t_weechat_plugin
#define weechat_iconv_from_internal(__charset, __string) \
weechat_plugin->iconv_from_internal(__charset, __string)
#ifndef __WEECHAT_H
+#ifndef _
#define _(string) weechat_plugin->gettext(string)
#define N_(string) (string)
#define NG_(single,plural,number) \
weechat_plugin->ngettext(single, plural, number)
#endif
+#endif
+#define weechat_gettext(string) weechat_plugin->gettext(string)
+#define weechat_ngettext(single,plural,number) \
+ weechat_plugin->ngettext(single, plural, number)
#define weechat_strcasecmp(__string1, __string2) \
weechat_plugin->strcasecmp(__string1, __string2)
#define weechat_strncasecmp(__string1, __string2, __max) \
@@ -472,14 +484,14 @@ struct t_weechat_plugin
weechat_plugin->printf_date(__buffer, 0, __message, ##__argz)
#define weechat_printf_date(__buffer, __date, __message, __argz...) \
weechat_plugin->printf_date(__buffer, __date, __message, ##__argz)
-#define weechat_log_printf(__message, __argz...) \
- weechat_plugin->log_printf(__message, ##__argz)
#define weechat_infobar_printf(__delay, __color_name, __message, \
__argz...) \
weechat_plugin->infobar_printf(weechat_plugin, __delay, \
__color_name, __message, ##__argz)
#define weechat_infobar_remove(__how_many) \
weechat_plugin->infobar_remove(__how_many)
+#define weechat_log_printf(__message, __argz...) \
+ weechat_plugin->log_printf(__message, ##__argz)
/* hooks */
#define weechat_hook_command(__command, __description, __args, \
@@ -505,8 +517,9 @@ struct t_weechat_plugin
#define weechat_hook_signal(__signal, __callback, __data) \
weechat_plugin->hook_signal(weechat_plugin, __signal, __callback, \
__data)
-#define weechat_hook_signal_send(__signal, __pointer) \
- weechat_plugin->hook_signal_send(__signal, __pointer)
+#define weechat_hook_signal_send(__signal, __type_data, __signal_data) \
+ weechat_plugin->hook_signal_send(__signal, __type_data, \
+ __signal_data)
#define weechat_hook_config(__type, __option, __callback, __data) \
weechat_plugin->hook_config(weechat_plugin, __type, __option, \
__callback, __data)