diff options
Diffstat (limited to 'src/plugins/scripts/ruby')
| -rw-r--r-- | src/plugins/scripts/ruby/Makefile.am | 5 | ||||
| -rw-r--r-- | src/plugins/scripts/ruby/ruby.c | 2700 | ||||
| -rw-r--r-- | src/plugins/scripts/ruby/weechat-ruby-api.c | 2817 | ||||
| -rw-r--r-- | src/plugins/scripts/ruby/weechat-ruby-api.h | 25 | ||||
| -rw-r--r-- | src/plugins/scripts/ruby/weechat-ruby.c | 845 | ||||
| -rw-r--r-- | src/plugins/scripts/ruby/weechat-ruby.h | 34 |
6 files changed, 3725 insertions, 2701 deletions
diff --git a/src/plugins/scripts/ruby/Makefile.am b/src/plugins/scripts/ruby/Makefile.am index cd295f33a..e2501a047 100644 --- a/src/plugins/scripts/ruby/Makefile.am +++ b/src/plugins/scripts/ruby/Makefile.am @@ -20,6 +20,9 @@ libdir = ${weechat_libdir}/plugins lib_LTLIBRARIES = ruby.la -ruby_la_SOURCES = ruby.c +ruby_la_SOURCES = weechat-ruby.c \ + weechat-ruby.h \ + weechat-ruby-api.c \ + weechat-ruby-api.h ruby_la_LDFLAGS = -module ruby_la_LIBADD = ../lib_weechat_plugins_scripts.la $(RUBY_LFLAGS) diff --git a/src/plugins/scripts/ruby/ruby.c b/src/plugins/scripts/ruby/ruby.c deleted file mode 100644 index f749465f3..000000000 --- a/src/plugins/scripts/ruby/ruby.c +++ /dev/null @@ -1,2700 +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-ruby.c: Ruby plugin support for WeeChat */ - -#undef _ - -#include <ruby.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("ruby"); -WEECHAT_PLUGIN_DESCRIPTION("Ruby plugin for WeeChat"); -WEECHAT_PLUGIN_AUTHOR("FlashCode <flashcode@flashtux.org>"); -WEECHAT_PLUGIN_VERSION("0.1"); -WEECHAT_PLUGIN_LICENSE("GPL"); - -t_weechat_plugin *ruby_plugin; - -t_plugin_script *ruby_scripts = NULL; -t_plugin_script *ruby_current_script = NULL; -char *ruby_current_script_filename = NULL; - -VALUE ruby_mWeechat, ruby_mWeechatOutputs; - -#define MOD_NAME_PREFIX "WeechatRubyModule" -int ruby_num = 0; - -char ruby_buffer_output[128]; - -typedef struct protect_call_arg { - VALUE recv; - ID mid; - int argc; - VALUE *argv; -} protect_call_arg_t; - -/* - * protect_funcall0 : used to protect a function call - */ - -static VALUE -protect_funcall0(VALUE arg) -{ - return rb_funcall2(((protect_call_arg_t *) arg)->recv, - ((protect_call_arg_t *) arg)->mid, - ((protect_call_arg_t *) arg)->argc, - ((protect_call_arg_t *) arg)->argv); -} - -/* - * rb_protect_funcall : function call in protect mode - */ - -VALUE -rb_protect_funcall (VALUE recv, ID mid, int *state, int argc, ...) -{ - va_list ap; - VALUE *argv; - struct protect_call_arg arg; - - if (argc > 0) - { - int i; - argv = ALLOCA_N(VALUE, argc); - va_start(ap, argc); - for (i = 0; i < argc; i++) - argv[i] = va_arg(ap, VALUE); - va_end(ap); - } - else - argv = 0; - arg.recv = recv; - arg.mid = mid; - arg.argc = argc; - arg.argv = argv; - return rb_protect(protect_funcall0, (VALUE) &arg, state); -} - -/* - * weechat_ruby_exec: execute a Ruby script - */ - -void * -weechat_ruby_exec (t_weechat_plugin *plugin, - t_plugin_script *script, - int ret_type, - char *function, char *arg1, char *arg2, char *arg3) -{ - VALUE rc, err; - int ruby_error, *ret_i; - void *ret_value; - /* make C compiler happy */ - (void) plugin; - - ruby_current_script = script; - - if (arg1) - { - if (arg2) - { - if (arg3) - rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), - &ruby_error, 3, - rb_str_new2(arg1), - rb_str_new2(arg2), - rb_str_new2(arg3)); - else - rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), - &ruby_error, 2, - rb_str_new2(arg1), - rb_str_new2(arg2)); - } - else - rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), - &ruby_error, 1, - rb_str_new2(arg1)); - } - else - rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), - &ruby_error, 0); - - if (ruby_error) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to run function \"%s\"", - function); - - err = rb_inspect(rb_gv_get("$!")); - ruby_plugin->print_server (ruby_plugin, "Ruby error: \"%s\"", STR2CSTR(err)); - - return NULL; - } - - if ((TYPE(rc) == T_STRING) && ret_type == SCRIPT_EXEC_STRING) - { - if (STR2CSTR (rc)) - ret_value = strdup (STR2CSTR (rc)); - else - ret_value = NULL; - } - else if ((TYPE(rc) == T_FIXNUM) && ret_type == SCRIPT_EXEC_INT) - { - ret_i = (int *)malloc (sizeof(int)); - if (ret_i) - *ret_i = NUM2INT(rc); - ret_value = ret_i; - } - else - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: function \"%s\" must return a valid value", - function); - return PLUGIN_RC_OK; - } - - if (ret_value == NULL) - { - plugin->print_server (plugin, - "Ruby error: unable to alloc memory in function \"%s\"", - function); - return NULL; - } - - return ret_value; -} - -/* - * weechat_ruby_cmd_msg_handler: general command/message handler for Ruby - */ - -int -weechat_ruby_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_ruby_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_ruby_timer_handler: general timer handler for Ruby - */ - -int -weechat_ruby_timer_handler (t_weechat_plugin *plugin, - int argc, char **argv, - char *handler_args, void *handler_pointer) -{ - /* make C compiler happy */ - (void) argc; - (void) argv; - int *r; - int ret; - - r = (int *) weechat_ruby_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_ruby_keyboard_handler: general keyboard handler for Ruby - */ - -int -weechat_ruby_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_ruby_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_ruby_event_handler: general event handler for Ruby - */ - -int -weechat_ruby_event_handler (t_weechat_plugin *plugin, - int argc, char **argv, - char *handler_args, void *handler_pointer) -{ - int *r; - int ret; - - if (argc >= 1) - { - r = (int *) weechat_ruby_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_ruby_modifier: general modifier for Ruby - */ - -char * -weechat_ruby_modifier (t_weechat_plugin *plugin, - int argc, char **argv, - char *modifier_args, void *modifier_pointer) -{ - if (argc >= 2) - return (char *) weechat_ruby_exec (plugin, (t_plugin_script *)modifier_pointer, - SCRIPT_EXEC_STRING, - modifier_args, argv[0], argv[1], NULL); - else - return NULL; -} - -/* - * weechat_ruby_register: startup function for all WeeChat Ruby scripts - */ - -static VALUE -weechat_ruby_register (int argc, VALUE *argv, VALUE class) -{ - VALUE name, version, shutdown_func, description, charset; - char *c_name, *c_version, *c_shutdown_func, *c_description, *c_charset; - - /* make C compiler happy */ - (void) class; - - ruby_current_script = NULL; - - name = Qnil; - version = Qnil; - shutdown_func = Qnil; - description = Qnil; - charset = Qnil; - c_name = NULL; - c_version = NULL; - c_shutdown_func = NULL; - c_description = NULL; - c_charset = NULL; - - rb_scan_args (argc, argv, "41", &name, &version, &shutdown_func, &description, &charset); - - if (NIL_P (name) || NIL_P (version) || NIL_P (shutdown_func) || NIL_P (description)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"register\" function"); - return INT2FIX (0); - } - - Check_Type (name, T_STRING); - Check_Type (version, T_STRING); - Check_Type (shutdown_func, T_STRING); - Check_Type (description, T_STRING); - - c_name = STR2CSTR (name); - c_version = STR2CSTR (version); - c_shutdown_func = STR2CSTR (shutdown_func); - c_description = STR2CSTR (description); - - if (!NIL_P (charset)) - { - Check_Type (charset, T_STRING); - c_charset = STR2CSTR (charset); - } - - if (weechat_script_search (ruby_plugin, &ruby_scripts, c_name)) - { - /* error: another scripts already exists with this name! */ - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to register " - "\"%s\" script (another script " - "already exists with this name)", - c_name); - return INT2FIX (0); - } - - /* register script */ - ruby_current_script = weechat_script_add (ruby_plugin, - &ruby_scripts, - (ruby_current_script_filename) ? - ruby_current_script_filename : "", - c_name, c_version, c_shutdown_func, - c_description, c_charset); - if (ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby: registered script \"%s\", " - "version %s (%s)", - c_name, c_version, c_description); - } - else - return INT2FIX (0); - - return INT2FIX (1); -} - -/* - * weechat_ruby_set_charset: set script charset - */ - -static VALUE -weechat_ruby_set_charset (VALUE class, VALUE charset) -{ - char *c_charset; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to set charset, " - "script not initialized"); - return INT2FIX (0); - } - - c_charset = NULL; - - if (NIL_P (c_charset)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"set_charset\" function"); - return INT2FIX (0); - } - - Check_Type (charset, T_STRING); - c_charset = STR2CSTR (charset); - - if (c_charset) - weechat_script_set_charset (ruby_plugin, - ruby_current_script, - c_charset); - - return INT2FIX (1); -} - -/* - * weechat_ruby_print: print message into a buffer (current or specified one) - */ - -static VALUE -weechat_ruby_print (int argc, VALUE *argv, VALUE class) -{ - VALUE message, channel_name, server_name; - char *c_message, *c_channel_name, *c_server_name; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to print message, " - "script not initialized"); - return INT2FIX (0); - } - - message = Qnil; - channel_name = Qnil; - server_name = Qnil; - c_message = NULL; - c_channel_name = NULL; - c_server_name = NULL; - - rb_scan_args (argc, argv, "12", &message, &channel_name, &server_name); - - if (NIL_P (message)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"print\" function"); - return INT2FIX (0); - } - - Check_Type (message, T_STRING); - c_message = STR2CSTR (message); - - if (!NIL_P (channel_name)) - { - Check_Type (channel_name, T_STRING); - c_channel_name = STR2CSTR (channel_name); - } - - if (!NIL_P (server_name)) - { - Check_Type (server_name, T_STRING); - c_server_name = STR2CSTR (server_name); - } - - ruby_plugin->print (ruby_plugin, - c_server_name, c_channel_name, - "%s", c_message); - - return INT2FIX (1); -} - -/* - * weechat_ruby_print_server: print message into a buffer server - */ - -static VALUE -weechat_ruby_print_server (VALUE class, VALUE message) -{ - char *c_message; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to print message, " - "script not initialized"); - return INT2FIX (0); - } - - c_message = NULL; - - if (NIL_P (message)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"print_server\" function"); - return INT2FIX (0); - } - - Check_Type (message, T_STRING); - c_message = STR2CSTR (message); - - ruby_plugin->print_server (ruby_plugin, "%s", c_message); - - return INT2FIX (1); -} - -/* - * weechat_ruby_print_infobar: print message to infobar - */ - -static VALUE -weechat_ruby_print_infobar (VALUE class, VALUE delay, VALUE message) -{ - int c_delay; - char *c_message; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to print infobar message, " - "script not initialized"); - return INT2FIX (0); - } - - c_delay = 1; - c_message = NULL; - - if (NIL_P (delay) || NIL_P (message)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"print_infobar\" function"); - return INT2FIX (0); - } - - Check_Type (delay, T_FIXNUM); - Check_Type (message, T_STRING); - - c_delay = FIX2INT (delay); - c_message = STR2CSTR (message); - - ruby_plugin->print_infobar (ruby_plugin, c_delay, "%s", c_message); - - return INT2FIX (1); -} - -/* - * weechat_ruby_remove_infobar: remove message(s) from infobar - */ - -static VALUE -weechat_ruby_remove_infobar (int argc, VALUE *argv, VALUE class) -{ - VALUE how_many; - int c_how_many; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to remove infobar message(s), " - "script not initialized"); - return INT2FIX (0); - } - - how_many = Qnil; - - rb_scan_args (argc, argv, "01", &how_many); - - if (!NIL_P (how_many)) - { - Check_Type (how_many, T_FIXNUM); - c_how_many = FIX2INT (how_many); - } - else - c_how_many = 0; - - ruby_plugin->infobar_remove (ruby_plugin, c_how_many); - - return INT2FIX (1); -} - -/* - * weechat_ruby_log: log message in server/channel (current or specified ones) - */ - -static VALUE -weechat_ruby_log (int argc, VALUE *argv, VALUE class) -{ - VALUE message, channel_name, server_name; - char *c_message, *c_channel_name, *c_server_name; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to log message, " - "script not initialized"); - return INT2FIX (0); - } - - message = Qnil; - channel_name = Qnil; - server_name = Qnil; - c_message = NULL; - c_channel_name = NULL; - c_server_name = NULL; - - rb_scan_args (argc, argv, "12", &message, &channel_name, &server_name); - - if (NIL_P (message)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"log\" function"); - return INT2FIX (0); - } - - Check_Type (message, T_STRING); - c_message = STR2CSTR (message); - - if (!NIL_P (channel_name)) - { - Check_Type (channel_name, T_STRING); - c_channel_name = STR2CSTR (channel_name); - } - - if (!NIL_P (server_name)) - { - Check_Type (server_name, T_STRING); - c_server_name = STR2CSTR (server_name); - } - - ruby_plugin->log (ruby_plugin, - c_server_name, c_channel_name, - "%s", c_message); - - return INT2FIX (1); -} - -/* - * weechat_ruby_command: send command to server - */ - -static VALUE -weechat_ruby_command (int argc, VALUE *argv, VALUE class) -{ - VALUE command, channel_name, server_name; - char *c_command, *c_channel_name, *c_server_name; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to run command, " - "script not initialized"); - return INT2FIX (0); - } - - command = Qnil; - channel_name = Qnil; - server_name = Qnil; - c_command = NULL; - c_channel_name = NULL; - c_server_name = NULL; - - rb_scan_args(argc, argv, "12", &command, &channel_name, &server_name); - - if (NIL_P (command)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"command\" function"); - return INT2FIX (0); - } - - Check_Type (command, T_STRING); - c_command = STR2CSTR (command); - - if (!NIL_P (channel_name)) - { - Check_Type (channel_name, T_STRING); - c_channel_name = STR2CSTR (channel_name); - } - - if (!NIL_P (server_name)) - { - Check_Type (server_name, T_STRING); - c_server_name = STR2CSTR (server_name); - } - - ruby_plugin->exec_command (ruby_plugin, - c_server_name, c_channel_name, - c_command); - - return INT2FIX (1); -} - -/* - * weechat_ruby_add_message_handler: add a handler for messages (privmsg, ...) - */ - -static VALUE -weechat_ruby_add_message_handler (VALUE class, VALUE message, VALUE function) -{ - char *c_message, *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to add message handler, " - "script not initialized"); - return INT2FIX (0); - } - - c_message = NULL; - c_function = NULL; - - if (NIL_P (message) || NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"add_message_handler\" function"); - return INT2FIX (0); - } - - Check_Type (message, T_STRING); - Check_Type (function, T_STRING); - - c_message = STR2CSTR (message); - c_function = STR2CSTR (function); - - if (ruby_plugin->msg_handler_add (ruby_plugin, c_message, - weechat_ruby_cmd_msg_handler, - c_function, - (void *)ruby_current_script)) - return INT2FIX (1); - - return INT2FIX (0); -} - -/* - * weechat_ruby_add_command_handler: add a command handler (define/redefine commands) - */ - -static VALUE -weechat_ruby_add_command_handler (int argc, VALUE *argv, VALUE class) -{ - VALUE command, function, description, arguments, arguments_description; - VALUE completion_template; - char *c_command, *c_function, *c_description, *c_arguments, *c_arguments_description; - char *c_completion_template; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to add command handler, " - "script not initialized"); - return INT2FIX (0); - } - - command = Qnil; - function = Qnil; - description = Qnil; - arguments = Qnil; - arguments_description = Qnil; - completion_template = Qnil; - c_command = NULL; - c_function = NULL; - c_description = NULL; - c_arguments = NULL; - c_arguments_description = NULL; - c_completion_template = NULL; - - rb_scan_args (argc, argv, "24", &command, &function, &description, - &arguments, &arguments_description, &completion_template); - - if (NIL_P (command) || NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"add_command_handler\" function"); - return INT2FIX (0); - } - - Check_Type (command, T_STRING); - c_command = STR2CSTR (command); - Check_Type (function, T_STRING); - c_function = STR2CSTR (function); - - if (!NIL_P (description)) - { - Check_Type (description, T_STRING); - c_description = STR2CSTR (description); - } - - if (!NIL_P (arguments)) - { - Check_Type (arguments, T_STRING); - c_arguments = STR2CSTR (arguments); - } - - if (!NIL_P (arguments_description)) - { - Check_Type (arguments_description, T_STRING); - c_arguments_description = STR2CSTR (arguments_description); - } - - if (!NIL_P (completion_template)) - { - Check_Type (completion_template, T_STRING); - c_completion_template = STR2CSTR (completion_template); - } - - if (ruby_plugin->cmd_handler_add (ruby_plugin, - c_command, - c_description, - c_arguments, - c_arguments_description, - c_completion_template, - weechat_ruby_cmd_msg_handler, - c_function, - (void *)ruby_current_script)) - return INT2FIX (1); - - return INT2FIX (0); -} - -/* - * weechat_ruby_add_timer_handler: add a timer handler - */ - -static VALUE -weechat_ruby_add_timer_handler (VALUE class, VALUE interval, VALUE function) -{ - int c_interval; - char *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to add timer handler, " - "script not initialized"); - return INT2FIX (0); - } - - c_interval = 10; - c_function = NULL; - - if (NIL_P (interval) || NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"add_timer_handler\" function"); - return INT2FIX (0); - } - - Check_Type (interval, T_FIXNUM); - Check_Type (function, T_STRING); - - c_interval = FIX2INT (interval); - c_function = STR2CSTR (function); - - if (ruby_plugin->timer_handler_add (ruby_plugin, c_interval, - weechat_ruby_timer_handler, - c_function, - (void *)ruby_current_script)) - return INT2FIX (1); - - return INT2FIX (0); -} - -/* - * weechat_ruby_add_keyboard_handler: add a keyboard handler - */ - -static VALUE -weechat_ruby_add_keyboard_handler (VALUE class, VALUE function) -{ - char *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to add keyboard handler, " - "script not initialized"); - return INT2FIX (0); - } - - c_function = NULL; - - if (NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"add_keyboard_handler\" function"); - return INT2FIX (0); - } - - Check_Type (function, T_STRING); - - c_function = STR2CSTR (function); - - if (ruby_plugin->keyboard_handler_add (ruby_plugin, - weechat_ruby_keyboard_handler, - c_function, - (void *)ruby_current_script)) - return INT2FIX (1); - - return INT2FIX (0); -} - -/* - * weechat_ruby_add_event_handler: add a handler for events - */ - -static VALUE -weechat_ruby_add_event_handler (VALUE class, VALUE event, VALUE function) -{ - char *c_event, *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to add event handler, " - "script not initialized"); - return INT2FIX (0); - } - - c_event = NULL; - c_function = NULL; - - if (NIL_P (event) || NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"add_event_handler\" function"); - return INT2FIX (0); - } - - Check_Type (event, T_STRING); - Check_Type (function, T_STRING); - - c_event = STR2CSTR (event); - c_function = STR2CSTR (function); - - if (ruby_plugin->event_handler_add (ruby_plugin, c_event, - weechat_ruby_event_handler, - c_function, - (void *)ruby_current_script)) - return INT2FIX (1); - - return INT2FIX (0); -} - -/* - * weechat_ruby_remove_handler: remove a handler - */ - -static VALUE -weechat_ruby_remove_handler (VALUE class, VALUE command, VALUE function) -{ - char *c_command, *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to remove handler, " - "script not initialized"); - return INT2FIX (0); - } - - c_command = NULL; - c_function = NULL; - - if (NIL_P (command) || NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"remove_handler\" function"); - return INT2FIX (0); - } - - Check_Type (command, T_STRING); - Check_Type (function, T_STRING); - - c_command = STR2CSTR (command); - c_function = STR2CSTR (function); - - weechat_script_remove_handler (ruby_plugin, ruby_current_script, - c_command, c_function); - - return INT2FIX (1); -} - -/* - * weechat_ruby_remove_timer_handler: remove a timer handler - */ - -static VALUE -weechat_ruby_remove_timer_handler (VALUE class, VALUE function) -{ - char *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to remove timer handler, " - "script not initialized"); - return INT2FIX (0); - } - - c_function = NULL; - - if (NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"remove_timer_handler\" function"); - return INT2FIX (0); - } - - Check_Type (function, T_STRING); - - c_function = STR2CSTR (function); - - weechat_script_remove_timer_handler (ruby_plugin, ruby_current_script, - c_function); - - return INT2FIX (1); -} - -/* - * weechat_ruby_remove_keyboard_handler: remove a keyboard handler - */ - -static VALUE -weechat_ruby_remove_keyboard_handler (VALUE class, VALUE function) -{ - char *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to remove keyboard handler, " - "script not initialized"); - return INT2FIX (0); - } - - c_function = NULL; - - if (NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"remove_keyboard_handler\" function"); - return INT2FIX (0); - } - - Check_Type (function, T_STRING); - - c_function = STR2CSTR (function); - - weechat_script_remove_keyboard_handler (ruby_plugin, ruby_current_script, - c_function); - - return INT2FIX (1); -} - -/* - * weechat_ruby_remove_event_handler: remove an event handler - */ - -static VALUE -weechat_ruby_remove_event_handler (VALUE class, VALUE function) -{ - char *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to remove event handler, " - "script not initialized"); - return INT2FIX (0); - } - - c_function = NULL; - - if (NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"remove_event_handler\" function"); - return INT2FIX (0); - } - - Check_Type (function, T_STRING); - - c_function = STR2CSTR (function); - - weechat_script_remove_event_handler (ruby_plugin, ruby_current_script, - c_function); - - return INT2FIX (1); -} - -/* - * weechat_ruby_add_modifier: add a modifier - */ - -static VALUE -weechat_ruby_add_modifier (VALUE class, VALUE type, VALUE message, VALUE function) -{ - char *c_type, *c_message, *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to add modifier, " - "script not initialized"); - return INT2FIX (0); - } - - c_type = NULL; - c_message = NULL; - c_function = NULL; - - if (NIL_P (type) || NIL_P (message) || NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"add_modifier\" function"); - return INT2FIX (0); - } - - Check_Type (type, T_STRING); - Check_Type (message, T_STRING); - Check_Type (function, T_STRING); - - c_type = STR2CSTR (type); - c_message = STR2CSTR (message); - c_function = STR2CSTR (function); - - if (ruby_plugin->modifier_add (ruby_plugin, c_type, c_message, - weechat_ruby_modifier, - c_function, - (void *)ruby_current_script)) - return INT2FIX (1); - - return INT2FIX (0); -} - -/* - * weechat_ruby_remove_modifier: remove a modifier - */ - -static VALUE -weechat_ruby_remove_modifier (VALUE class, VALUE type, VALUE command, VALUE function) -{ - char *c_type, *c_command, *c_function; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to remove modifier, " - "script not initialized"); - return INT2FIX (0); - } - - c_type = NULL; - c_command = NULL; - c_function = NULL; - - if (NIL_P (type) || NIL_P (command) || NIL_P (function)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"remove_modifier\" function"); - return INT2FIX (0); - } - - Check_Type (type, T_STRING); - Check_Type (command, T_STRING); - Check_Type (function, T_STRING); - - c_type = STR2CSTR (type); - c_command = STR2CSTR (command); - c_function = STR2CSTR (function); - - weechat_script_remove_modifier (ruby_plugin, ruby_current_script, - c_type, c_command, c_function); - - return INT2FIX (1); -} - -/* - * weechat_ruby_get_info: get various infos - */ - -static VALUE -weechat_ruby_get_info (int argc, VALUE *argv, VALUE class) -{ - char *c_arg, *c_server_name, *info; - VALUE arg, server_name, return_value; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get info, " - "script not initialized"); - return INT2FIX (0); - } - - arg = Qnil; - server_name = Qnil; - c_arg = NULL; - c_server_name = NULL; - - rb_scan_args (argc, argv, "11", &arg, &server_name); - - if (NIL_P (arg)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"get_info\" function"); - return INT2FIX (0); - } - - Check_Type (arg, T_STRING); - c_arg = STR2CSTR (arg); - - if (!NIL_P (server_name)) - { - Check_Type (server_name, T_STRING); - c_server_name = STR2CSTR (server_name); - } - - if (c_arg) - { - info = ruby_plugin->get_info (ruby_plugin, c_arg, c_server_name); - - if (info) - { - return_value = rb_str_new2 (info); - free (info); - return return_value; - } - } - - return rb_str_new2 (""); -} - -/* - * weechat_ruby_get_dcc_info: get infos about DCC - */ - -static VALUE -weechat_ruby_get_dcc_info (VALUE class) -{ - t_plugin_dcc_info *dcc_info, *ptr_dcc; - VALUE dcc_list, dcc_list_member; - char timebuffer1[64]; - char timebuffer2[64]; - struct in_addr in; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get DCC info, " - "script not initialized"); - return INT2FIX (0); - } - - dcc_list = rb_ary_new(); - - if (NIL_P (dcc_list)) - return Qnil; - - dcc_info = ruby_plugin->get_dcc_info (ruby_plugin); - if (!dcc_info) - return dcc_list; - - 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_list_member = rb_hash_new (); - - if (!NIL_P (dcc_list_member)) - { - rb_hash_aset (dcc_list_member, rb_str_new2("server"), - rb_str_new2(ptr_dcc->server)); - rb_hash_aset (dcc_list_member, rb_str_new2("channel"), - rb_str_new2(ptr_dcc->channel)); - rb_hash_aset (dcc_list_member, rb_str_new2("type"), - INT2FIX(ptr_dcc->type)); - rb_hash_aset (dcc_list_member, rb_str_new2("status"), - INT2FIX(ptr_dcc->status)); - rb_hash_aset (dcc_list_member, rb_str_new2("start_time"), - rb_str_new2(timebuffer1)); - rb_hash_aset (dcc_list_member, rb_str_new2("start_transfer"), - rb_str_new2(timebuffer2)); - rb_hash_aset (dcc_list_member, rb_str_new2("address"), - rb_str_new2(inet_ntoa(in))); - rb_hash_aset (dcc_list_member, rb_str_new2("port"), - INT2FIX(ptr_dcc->port)); - rb_hash_aset (dcc_list_member, rb_str_new2("nick"), - rb_str_new2(ptr_dcc->nick)); - rb_hash_aset (dcc_list_member, rb_str_new2("remote_file"), - rb_str_new2(ptr_dcc->filename)); - rb_hash_aset (dcc_list_member, rb_str_new2("local_file"), - rb_str_new2(ptr_dcc->local_filename)); - rb_hash_aset (dcc_list_member, rb_str_new2("filename_suffix"), - INT2FIX(ptr_dcc->filename_suffix)); - rb_hash_aset (dcc_list_member, rb_str_new2("size"), - INT2FIX(ptr_dcc->size)); - rb_hash_aset (dcc_list_member, rb_str_new2("pos"), - INT2FIX(ptr_dcc->pos)); - rb_hash_aset (dcc_list_member, rb_str_new2("start_resume"), - INT2FIX(ptr_dcc->start_resume)); - rb_hash_aset (dcc_list_member, rb_str_new2("cps"), - INT2FIX(ptr_dcc->bytes_per_sec)); - - rb_ary_push (dcc_list, dcc_list_member); - } - } - - ruby_plugin->free_dcc_info (ruby_plugin, dcc_info); - - return dcc_list; -} - -/* - * weechat_ruby_get_config: get value of a WeeChat config option - */ - -static VALUE -weechat_ruby_get_config (VALUE class, VALUE option) -{ - char *c_option, *return_value; - VALUE ruby_return_value; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get config option, " - "script not initialized"); - return INT2FIX (0); - } - - c_option = NULL; - - if (NIL_P (option)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"get_config\" function"); - return INT2FIX (0); - } - - Check_Type (option, T_STRING); - c_option = STR2CSTR (option); - - if (c_option) - { - return_value = ruby_plugin->get_config (ruby_plugin, c_option); - - if (return_value) - { - ruby_return_value = rb_str_new2 (return_value); - free (return_value); - return ruby_return_value; - } - } - - return rb_str_new2 (""); -} - -/* - * weechat_ruby_set_config: set value of a WeeChat config option - */ - -static VALUE -weechat_ruby_set_config (VALUE class, VALUE option, VALUE value) -{ - char *c_option, *c_value; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to set config option, " - "script not initialized"); - return INT2FIX (0); - } - - c_option = NULL; - c_value = NULL; - - if (NIL_P (option)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"set_config\" function"); - return INT2FIX (0); - } - - Check_Type (option, T_STRING); - Check_Type (value, T_STRING); - - c_option = STR2CSTR (option); - c_value = STR2CSTR (value); - - if (c_option && c_value) - { - if (ruby_plugin->set_config (ruby_plugin, c_option, c_value)) - return INT2FIX (1); - } - - return INT2FIX (0); -} - -/* - * weechat_ruby_get_plugin_config: get value of a plugin config option - */ - -static VALUE -weechat_ruby_get_plugin_config (VALUE class, VALUE option) -{ - char *c_option, *return_value; - VALUE ruby_return_value; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get plugin config option, " - "script not initialized"); - return INT2FIX (0); - } - - c_option = NULL; - - if (NIL_P (option)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"get_plugin_config\" function"); - return INT2FIX (0); - } - - Check_Type (option, T_STRING); - c_option = STR2CSTR (option); - - if (c_option) - { - return_value = weechat_script_get_plugin_config (ruby_plugin, - ruby_current_script, - c_option); - - if (return_value) - { - ruby_return_value = rb_str_new2 (return_value); - free (return_value); - return ruby_return_value; - } - } - - return rb_str_new2 (""); -} - -/* - * weechat_ruby_set_plugin_config: set value of a plugin config option - */ - -static VALUE -weechat_ruby_set_plugin_config (VALUE class, VALUE option, VALUE value) -{ - char *c_option, *c_value; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to set plugin config option, " - "script not initialized"); - return INT2FIX (0); - } - - c_option = NULL; - c_value = NULL; - - if (NIL_P (option)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"set_plugin_config\" function"); - return INT2FIX (0); - } - - Check_Type (option, T_STRING); - Check_Type (value, T_STRING); - - c_option = STR2CSTR (option); - c_value = STR2CSTR (value); - - if (c_option && c_value) - { - if (weechat_script_set_plugin_config (ruby_plugin, - ruby_current_script, - c_option, c_value)) - return INT2FIX (1); - } - - return INT2FIX (0); -} - -/* - * weechat_ruby_get_server_info: get infos about servers - */ - -static VALUE -weechat_ruby_get_server_info (VALUE class) -{ - t_plugin_server_info *server_info, *ptr_server; - VALUE server_hash, server_hash_member; - char timebuffer[64]; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get server infos, " - "script not initialized"); - return INT2FIX (0); - } - - server_hash = rb_hash_new (); - if (!server_hash) - return Qnil; - - server_info = ruby_plugin->get_server_info (ruby_plugin); - if (!server_info) - return server_hash; - - 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 = rb_hash_new (); - - if (server_hash_member) - { - rb_hash_aset (server_hash_member, rb_str_new2("autoconnect"), - INT2FIX(ptr_server->autoconnect)); - rb_hash_aset (server_hash_member, rb_str_new2("autoreconnect"), - INT2FIX(ptr_server->autoreconnect)); - rb_hash_aset (server_hash_member, rb_str_new2("autoreconnect_delay"), - INT2FIX(ptr_server->autoreconnect_delay)); - rb_hash_aset (server_hash_member, rb_str_new2("temp_server"), - INT2FIX(ptr_server->temp_server)); - rb_hash_aset (server_hash_member, rb_str_new2("address"), - rb_str_new2(ptr_server->address)); - rb_hash_aset (server_hash_member, rb_str_new2("port"), - INT2FIX(ptr_server->port)); - rb_hash_aset (server_hash_member, rb_str_new2("ipv6"), - INT2FIX(ptr_server->ipv6)); - rb_hash_aset (server_hash_member, rb_str_new2("ssl"), - INT2FIX(ptr_server->ssl)); - rb_hash_aset (server_hash_member, rb_str_new2("password"), - rb_str_new2(ptr_server->password)); - rb_hash_aset (server_hash_member, rb_str_new2("nick1"), - rb_str_new2(ptr_server->nick1)); - rb_hash_aset (server_hash_member, rb_str_new2("nick2"), - rb_str_new2(ptr_server->nick2)); - rb_hash_aset (server_hash_member, rb_str_new2("nick3"), - rb_str_new2(ptr_server->nick3)); - rb_hash_aset (server_hash_member, rb_str_new2("username"), - rb_str_new2(ptr_server->username)); - rb_hash_aset (server_hash_member, rb_str_new2("realname"), - rb_str_new2(ptr_server->realname)); - rb_hash_aset (server_hash_member, rb_str_new2("command"), - rb_str_new2(ptr_server->command)); - rb_hash_aset (server_hash_member, rb_str_new2("command_delay"), - INT2FIX(ptr_server->command_delay)); - rb_hash_aset (server_hash_member, rb_str_new2("autojoin"), - rb_str_new2(ptr_server->autojoin)); - rb_hash_aset (server_hash_member, rb_str_new2("autorejoin"), - INT2FIX(ptr_server->autorejoin)); - rb_hash_aset (server_hash_member, rb_str_new2("notify_levels"), - rb_str_new2(ptr_server->notify_levels)); - rb_hash_aset (server_hash_member, rb_str_new2("is_connected"), - INT2FIX(ptr_server->is_connected)); - rb_hash_aset (server_hash_member, rb_str_new2("ssl_connected"), - INT2FIX(ptr_server->ssl_connected)); - rb_hash_aset (server_hash_member, rb_str_new2("nick"), - rb_str_new2(ptr_server->nick)); - rb_hash_aset (server_hash_member, rb_str_new2("nick_modes"), - rb_str_new2(ptr_server->nick_modes)); - rb_hash_aset (server_hash_member, rb_str_new2("away_time"), - rb_str_new2(timebuffer)); - rb_hash_aset (server_hash_member, rb_str_new2("lag"), - INT2FIX(ptr_server->lag)); - - rb_hash_aset (server_hash, rb_str_new2(ptr_server->name), server_hash_member); - } - } - - ruby_plugin->free_server_info(ruby_plugin, server_info); - - return server_hash; -} - -/* - * weechat_ruby_get_channel_info: get infos about channels - */ - -static VALUE -weechat_ruby_get_channel_info (VALUE class, VALUE server) -{ - t_plugin_channel_info *channel_info, *ptr_channel; - VALUE channel_hash, channel_hash_member; - char *c_server; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get channel infos, " - "script not initialized"); - return INT2FIX (0); - } - - c_server = NULL; - if (NIL_P (server)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"get_channel_info\" function"); - return INT2FIX (0); - } - - Check_Type (server, T_STRING); - c_server = STR2CSTR (server); - - if (!c_server) - return INT2FIX (0); - - channel_hash = rb_hash_new (); - if (!channel_hash) - return Qnil; - - channel_info = ruby_plugin->get_channel_info (ruby_plugin, c_server); - if (!channel_info) - return channel_hash; - - for(ptr_channel = channel_info; ptr_channel; ptr_channel = ptr_channel->next_channel) - { - channel_hash_member = rb_hash_new (); - - if (channel_hash_member) - { - rb_hash_aset (channel_hash_member, rb_str_new2("type"), - INT2FIX(ptr_channel->type)); - rb_hash_aset (channel_hash_member, rb_str_new2("topic"), - rb_str_new2(ptr_channel->topic)); - rb_hash_aset (channel_hash_member, rb_str_new2("modes"), - rb_str_new2(ptr_channel->modes)); - rb_hash_aset (channel_hash_member, rb_str_new2("limit"), - INT2FIX(ptr_channel->limit)); - rb_hash_aset (channel_hash_member, rb_str_new2("key"), - rb_str_new2(ptr_channel->key)); - rb_hash_aset (channel_hash_member, rb_str_new2("nicks_count"), - INT2FIX(ptr_channel->nicks_count)); - - rb_hash_aset (channel_hash, rb_str_new2(ptr_channel->name), channel_hash_member); - } - } - - ruby_plugin->free_channel_info(ruby_plugin, channel_info); - - return channel_hash; -} - -/* - * weechat_ruby_get_nick_info: get infos about nicks - */ - -static VALUE -weechat_ruby_get_nick_info (VALUE class, VALUE server, VALUE channel) -{ - t_plugin_nick_info *nick_info, *ptr_nick; - VALUE nick_hash, nick_hash_member; - char *c_server, *c_channel; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get channel infos, " - "script not initialized"); - return INT2FIX (0); - } - - c_server = NULL; - c_channel = NULL; - if (NIL_P (server) || NIL_P (channel)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"get_nick_info\" function"); - return INT2FIX (0); - } - - Check_Type (server, T_STRING); - Check_Type (channel, T_STRING); - - c_server = STR2CSTR (server); - c_channel = STR2CSTR (channel); - - if (!c_server || !c_channel) - return INT2FIX (0); - - nick_hash = rb_hash_new (); - if (!nick_hash) - return Qnil; - - nick_info = ruby_plugin->get_nick_info (ruby_plugin, c_server, c_channel); - if (!nick_info) - return nick_hash; - - for(ptr_nick = nick_info; ptr_nick; ptr_nick = ptr_nick->next_nick) - { - nick_hash_member = rb_hash_new (); - - if (nick_hash_member) - { - rb_hash_aset (nick_hash_member, rb_str_new2("flags"), - INT2FIX(ptr_nick->flags)); - rb_hash_aset (nick_hash_member, rb_str_new2("host"), - rb_str_new2(ptr_nick->host ? ptr_nick->host : "")); - - rb_hash_aset (nick_hash, rb_str_new2(ptr_nick->nick), nick_hash_member); - } - } - - ruby_plugin->free_nick_info(ruby_plugin, nick_info); - - return nick_hash; -} - -/* - * weechat_ruby_get_irc_color: - * get the numeric value which identify an irc color by its name - */ - -static VALUE -weechat_ruby_get_irc_color (VALUE class, VALUE color) -{ - char *c_color; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get irc color, " - "script not initialized"); - return INT2FIX (-1); - } - - c_color = NULL; - - if (NIL_P (color)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"get_irc_color\" function"); - return INT2FIX (-1); - } - - Check_Type (color, T_STRING); - - c_color = STR2CSTR (color); - - return INT2FIX (ruby_plugin->get_irc_color (ruby_plugin, c_color)); -} - -/* - * weechat_ruby_get_window_info: get infos about windows - */ - -static VALUE -weechat_ruby_get_window_info (VALUE class) -{ - t_plugin_window_info *window_info, *ptr_win; - VALUE window_list, window_list_member; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get window info, " - "script not initialized"); - return INT2FIX (0); - } - - window_list = rb_ary_new(); - - if (NIL_P (window_list)) - return Qnil; - - window_info = ruby_plugin->get_window_info (ruby_plugin); - if (!window_info) - return window_list; - - for (ptr_win = window_info; ptr_win; ptr_win = ptr_win->next_window) - { - window_list_member = rb_hash_new (); - - if (!NIL_P (window_list_member)) - { - rb_hash_aset (window_list_member, rb_str_new2("num_buffer"), - INT2FIX(ptr_win->num_buffer)); - rb_hash_aset (window_list_member, rb_str_new2("win_x"), - INT2FIX(ptr_win->win_x)); - rb_hash_aset (window_list_member, rb_str_new2("win_y"), - INT2FIX(ptr_win->win_y)); - rb_hash_aset (window_list_member, rb_str_new2("win_width"), - INT2FIX(ptr_win->win_width)); - rb_hash_aset (window_list_member, rb_str_new2("win_height"), - INT2FIX(ptr_win->win_height)); - rb_hash_aset (window_list_member, rb_str_new2("win_width_pct"), - INT2FIX(ptr_win->win_width_pct)); - rb_hash_aset (window_list_member, rb_str_new2("win_height_pct"), - INT2FIX(ptr_win->win_height_pct)); - - rb_ary_push (window_list, window_list_member); - } - } - - ruby_plugin->free_window_info (ruby_plugin, window_info); - - return window_list; -} - -/* - * weechat_ruby_get_buffer_info: get infos about buffers - */ - -static VALUE -weechat_ruby_get_buffer_info (VALUE class) -{ - t_plugin_buffer_info *buffer_info, *ptr_buffer; - VALUE buffer_hash, buffer_hash_member; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get buffer info, " - "script not initialized"); - return INT2FIX (0); - } - - buffer_hash = rb_hash_new (); - if (!buffer_hash) - return Qnil; - - buffer_info = ruby_plugin->get_buffer_info (ruby_plugin); - if (!buffer_info) - return buffer_hash; - - for(ptr_buffer = buffer_info; ptr_buffer; ptr_buffer = ptr_buffer->next_buffer) - { - buffer_hash_member = rb_hash_new (); - - if (buffer_hash_member) - { - rb_hash_aset (buffer_hash_member, rb_str_new2("type"), - INT2FIX(ptr_buffer->type)); - rb_hash_aset (buffer_hash_member, rb_str_new2("num_displayed"), - INT2FIX(ptr_buffer->num_displayed)); - rb_hash_aset (buffer_hash_member, rb_str_new2("server"), - rb_str_new2(ptr_buffer->server_name == NULL ? "" : ptr_buffer->server_name)); - rb_hash_aset (buffer_hash_member, rb_str_new2("channel"), - rb_str_new2(ptr_buffer->channel_name == NULL ? "" : ptr_buffer->channel_name)); - rb_hash_aset (buffer_hash_member, rb_str_new2("notify_level"), - INT2FIX(ptr_buffer->notify_level)); - rb_hash_aset (buffer_hash_member, rb_str_new2("log_filename"), - rb_str_new2(ptr_buffer->log_filename == NULL ? "" : ptr_buffer->log_filename)); - - rb_hash_aset (buffer_hash, INT2FIX(ptr_buffer->number), buffer_hash_member); - } - } - - ruby_plugin->free_buffer_info(ruby_plugin, buffer_info); - - return buffer_hash; -} - -/* - * weechat_ruby_get_buffer_data: get buffer content - */ - -static VALUE -weechat_ruby_get_buffer_data (VALUE class, VALUE server, VALUE channel) -{ - t_plugin_buffer_line *buffer_data, *ptr_data; - VALUE data_list, data_list_member; - char *c_server, *c_channel; - char timebuffer[64]; - - /* make C compiler happy */ - (void) class; - - if (!ruby_current_script) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to get buffer data, " - "script not initialized"); - return INT2FIX (0); - } - - c_server = NULL; - c_channel = NULL; - - if (NIL_P (server) || NIL_P (channel)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: wrong parameters for " - "\"get_buffer_data\" function"); - return INT2FIX (0); - } - - Check_Type (server, T_STRING); - Check_Type (channel, T_STRING); - - c_server = STR2CSTR (server); - c_channel = STR2CSTR (channel); - - if (!c_server || !c_channel) - return INT2FIX (0); - - data_list = rb_ary_new(); - if (NIL_P (data_list)) - return Qnil; - - buffer_data = ruby_plugin->get_buffer_data (ruby_plugin, c_server, c_channel); - if (!buffer_data) - return data_list; - - for(ptr_data = buffer_data; ptr_data; ptr_data = ptr_data->next_line) - { - data_list_member = rb_hash_new (); - - if (!NIL_P (data_list_member)) - { - strftime(timebuffer, sizeof(timebuffer), "%F %T", - localtime(&ptr_data->date)); - - rb_hash_aset (data_list_member, rb_str_new2("date"), - rb_str_new2(timebuffer)); - rb_hash_aset (data_list_member, rb_str_new2("nick"), - rb_str_new2(ptr_data->nick == NULL ? "" : ptr_data->nick)); - rb_hash_aset (data_list_member, rb_str_new2("data"), - rb_str_new2(ptr_data->data == NULL ? "" : ptr_data->data)); - - rb_ary_push (data_list, data_list_member); - } - } - - ruby_plugin->free_buffer_data (ruby_plugin, buffer_data); - - return data_list; -} - -/* - * weechat_ruby_output : redirection for stdout and stderr - */ - -static VALUE -weechat_ruby_output(VALUE self, VALUE str) -{ - char *msg, *p, *m; - - /* make C compiler happy */ - (void) self; - - msg = strdup(STR2CSTR(str)); - - m = msg; - while ((p = strchr (m, '\n')) != NULL) - { - *p = '\0'; - if (strlen (m) + strlen (ruby_buffer_output) > 0) - ruby_plugin->print_server (ruby_plugin, - "Ruby stdout/stderr : %s%s", - ruby_buffer_output, m); - *p = '\n'; - ruby_buffer_output[0] = '\0'; - m = ++p; - } - - if (strlen(m) + strlen(ruby_buffer_output) > sizeof(ruby_buffer_output)) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby stdout/stderr : %s%s", - ruby_buffer_output, m); - ruby_buffer_output[0] = '\0'; - } - else - strcat (ruby_buffer_output, m); - - if (msg) - free (msg); - - return Qnil; -} - -/* - * weechat_ruby_output_flush : just for compatibility - */ - -static VALUE -weechat_ruby_output_flush(VALUE self) -{ - /* make C compiler happy */ - (void) self; - - return Qnil; -} - - -/* - * weechat_ruby_load: load a Ruby script - */ - -int -weechat_ruby_load (t_weechat_plugin *plugin, char *filename) -{ - char modname[64]; - VALUE curModule, ruby_retcode, err; - int ruby_error; - struct stat buf; - - plugin->print_server (plugin, "Loading Ruby script \"%s\"", filename); - - if (stat (filename, &buf) != 0) - { - plugin->print_server (plugin, "Ruby error: script \"%s\" not found", - filename); - return 0; - } - - ruby_current_script = NULL; - - snprintf(modname, sizeof(modname), "%s%d", MOD_NAME_PREFIX, ruby_num); - ruby_num++; - - curModule = rb_define_module(modname); - - ruby_current_script_filename = filename; - - ruby_retcode = rb_protect_funcall (curModule, rb_intern("load_eval_file"), - &ruby_error, 1, rb_str_new2(filename)); - - if (ruby_retcode == Qnil) { - err = rb_inspect(rb_gv_get("$!")); - ruby_plugin->print_server (ruby_plugin, "Ruby error: \"%s\"", STR2CSTR(err)); - return 0; - } - - if (NUM2INT(ruby_retcode) != 0) - { - VALUE ruby_eval_error; - - switch (NUM2INT(ruby_retcode)) - { - case 1: - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to read file \"%s\"", - filename); - break; - case 2: - - - ruby_plugin->print_server (ruby_plugin, - "Ruby error: error while loading file \"%s\"", - filename); - break; - case 3: - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to find \"weechat_init\" function in file \"%s\"", - filename); - break; - } - - if (NUM2INT(ruby_retcode) == 1 || NUM2INT(ruby_retcode) == 2) - { - ruby_eval_error = rb_iv_get(curModule, "@load_eval_file_error"); - if (ruby_eval_error) - ruby_plugin->print_server (ruby_plugin, - "Ruby error: %s", STR2CSTR(ruby_eval_error)); - } - - return 0; - } - - ruby_retcode = rb_protect_funcall (curModule, rb_intern("weechat_init"), &ruby_error, 0); - - if (ruby_error) - { - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to eval weechat_init in file \"%s\"", - filename); - - err = rb_inspect(rb_gv_get("$!")); - ruby_plugin->print_server (ruby_plugin, "Ruby error: \"%s\"", STR2CSTR(err)); - - if (ruby_current_script != NULL) - weechat_script_remove (plugin, &ruby_scripts, ruby_current_script); - return 0; - } - - if (ruby_current_script == NULL) { - plugin->print_server (plugin, - "Ruby error: function \"register\" not found " - "(or failed) in file \"%s\"", - filename); - return 0; - } - - ruby_current_script->interpreter = (VALUE *) curModule; - rb_gc_register_address (ruby_current_script->interpreter); - - return 1; -} - -/* - * weechat_ruby_unload: unload a Ruby script - */ - -void -weechat_ruby_unload (t_weechat_plugin *plugin, t_plugin_script *script) -{ - int *r; - - plugin->print_server (plugin, - "Unloading Ruby script \"%s\"", - script->name); - - if (script->shutdown_func && script->shutdown_func[0]) - { - r = (int *) weechat_ruby_exec (plugin, script, SCRIPT_EXEC_INT, - script->shutdown_func, NULL, NULL, NULL); - if (r) - free (r); - } - - if (script->interpreter) - rb_gc_unregister_address (script->interpreter); - - weechat_script_remove (plugin, &ruby_scripts, script); -} - -/* - * weechat_ruby_unload_name: unload a Ruby script by name - */ - -void -weechat_ruby_unload_name (t_weechat_plugin *plugin, char *name) -{ - t_plugin_script *ptr_script; - - ptr_script = weechat_script_search (plugin, &ruby_scripts, name); - if (ptr_script) - { - weechat_ruby_unload (plugin, ptr_script); - plugin->print_server (plugin, - "Ruby script \"%s\" unloaded", - name); - } - else - { - plugin->print_server (plugin, - "Ruby error: script \"%s\" not loaded", - name); - } -} - -/* - * weechat_ruby_unload_all: unload all Ruby scripts - */ - -void -weechat_ruby_unload_all (t_weechat_plugin *plugin) -{ - - plugin->print_server (plugin, - "Unloading all Ruby scripts"); - while (ruby_scripts) - weechat_ruby_unload (plugin, ruby_scripts); - - plugin->print_server (plugin, - "Ruby scripts unloaded"); -} - -/* - * weechat_ruby_cmd: /ruby command handler - */ - -int -weechat_ruby_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; - - /* make C compiler happy */ - (void) handler_args; - (void) handler_pointer; - - if (cmd_argc < 3) - return PLUGIN_RC_KO; - - 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 Ruby scripts */ - plugin->print_server (plugin, ""); - plugin->print_server (plugin, "Registered Ruby scripts:"); - if (ruby_scripts) - { - for (ptr_script = ruby_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 Ruby message handlers */ - plugin->print_server (plugin, ""); - plugin->print_server (plugin, "Ruby 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) => Ruby(%s)", - ptr_handler->irc_command, - ptr_handler->handler_args); - } - } - if (!handler_found) - plugin->print_server (plugin, " (none)"); - - /* list Ruby command handlers */ - plugin->print_server (plugin, ""); - plugin->print_server (plugin, "Ruby 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 => Ruby(%s)", - ptr_handler->command, - ptr_handler->handler_args); - } - } - if (!handler_found) - plugin->print_server (plugin, " (none)"); - - /* list Ruby timer handlers */ - plugin->print_server (plugin, ""); - plugin->print_server (plugin, "Ruby 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 => Ruby(%s)", - ptr_handler->interval, - ptr_handler->handler_args); - } - } - if (!handler_found) - plugin->print_server (plugin, " (none)"); - - /* list Ruby keyboard handlers */ - plugin->print_server (plugin, ""); - plugin->print_server (plugin, "Ruby 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, " Ruby(%s)", - ptr_handler->handler_args); - } - } - if (!handler_found) - plugin->print_server (plugin, " (none)"); - - /* list Ruby event handlers */ - plugin->print_server (plugin, ""); - plugin->print_server (plugin, "Ruby 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 => Ruby(%s)", - ptr_handler->event, - ptr_handler->handler_args); - } - } - if (!handler_found) - plugin->print_server (plugin, " (none)"); - - /* list Ruby modifiers */ - plugin->print_server (plugin, ""); - plugin->print_server (plugin, "Ruby 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) => Ruby(%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) => Ruby(%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) => Ruby(%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, "ruby", weechat_ruby_load); - else if (plugin->strcasecmp (plugin, argv[0], "reload") == 0) - { - weechat_ruby_unload_all (plugin); - weechat_script_auto_load (plugin, "ruby", weechat_ruby_load); - } - else if (plugin->strcasecmp (plugin, argv[0], "unload") == 0) - weechat_ruby_unload_all (plugin); - break; - case 2: - if (plugin->strcasecmp (plugin, argv[0], "load") == 0) - { - /* load Ruby script */ - path_script = weechat_script_search_full_name (plugin, "ruby", argv[1]); - weechat_ruby_load (plugin, (path_script) ? path_script : argv[1]); - if (path_script) - free (path_script); - } - else if (plugin->strcasecmp (plugin, argv[0], "unload") == 0) - { - /* unload Ruby script */ - weechat_ruby_unload_name (plugin, argv[1]); - } - else - { - plugin->print_server (plugin, - "Ruby error: unknown option for " - "\"ruby\" command"); - } - break; - default: - plugin->print_server (plugin, - "Ruby error: wrong argument count for \"ruby\" command"); - } - - if (argv) - plugin->free_exploded_string (plugin, argv); - - return PLUGIN_RC_OK; -} - -/* - * weechat_plugin_init: initialize Ruby plugin - */ - -int -weechat_plugin_init (t_weechat_plugin *plugin) -{ - int ruby_error; - char *weechat_ruby_code = - { - "$stdout = WeechatOutputs\n" - "$stderr = WeechatOutputs\n" - "\n" - "class Module\n" - " @load_eval_file_error = ''\n" - "\n" - " def load_eval_file (file)\n" - " lines = ''\n" - " begin\n" - " f = File.open(file, 'r')\n" - " lines = f.readlines.join\n" - " rescue => e\n" - " @load_eval_file_error = e\n" - " return 1\n" - " end\n" - "\n" - " begin\n" - " module_eval(lines)\n" - " rescue => e\n" - " @load_eval_file_error = e\n" - " return 2\n" - " end\n" - "\n" - " has_init = false\n" - "\n" - " instance_methods.each do |meth|\n" - " if meth == 'weechat_init'\n" - " has_init = true\n" - " end\n" - " module_eval('module_function :' + meth)\n" - " end\n" - "\n" - " unless has_init\n" - " return 3\n" - " end\n" - "\n" - " return 0\n" - " end\n" - "end\n" - }; - ruby_plugin = plugin; - ruby_error = 0; - - plugin->print_server (plugin, "Loading Ruby module \"weechat\""); - - /* init stdout/stderr buffer */ - ruby_buffer_output[0] = '\0'; - - ruby_init (); - ruby_init_loadpath (); - ruby_script ("__weechat_plugin__"); - - ruby_mWeechat = rb_define_module("Weechat"); - rb_define_const(ruby_mWeechat, "PLUGIN_RC_OK", INT2NUM(PLUGIN_RC_OK)); - rb_define_const(ruby_mWeechat, "PLUGIN_RC_KO", INT2NUM(PLUGIN_RC_KO)); - rb_define_const(ruby_mWeechat, "PLUGIN_RC_OK_IGNORE_WEECHAT", INT2NUM(PLUGIN_RC_OK_IGNORE_WEECHAT)); - rb_define_const(ruby_mWeechat, "PLUGIN_RC_OK_IGNORE_PLUGINS", INT2NUM(PLUGIN_RC_OK_IGNORE_PLUGINS)); - rb_define_const(ruby_mWeechat, "PLUGIN_RC_OK_IGNORE_ALL", INT2NUM(PLUGIN_RC_OK_IGNORE_ALL)); - rb_define_const(ruby_mWeechat, "PLUGIN_RC_OK_WITH_HIGHLIGHT", INT2NUM(PLUGIN_RC_OK_WITH_HIGHLIGHT)); - rb_define_module_function (ruby_mWeechat, "register", weechat_ruby_register, -1); - rb_define_module_function (ruby_mWeechat, "set_charset", weechat_ruby_set_charset, 1); - rb_define_module_function (ruby_mWeechat, "print", weechat_ruby_print, -1); - rb_define_module_function (ruby_mWeechat, "print_server", weechat_ruby_print_server, 1); - rb_define_module_function (ruby_mWeechat, "print_infobar", weechat_ruby_print_infobar, 2); - rb_define_module_function (ruby_mWeechat, "remove_infobar", weechat_ruby_remove_infobar, -1); - rb_define_module_function (ruby_mWeechat, "log", weechat_ruby_log, -1); - rb_define_module_function (ruby_mWeechat, "command", weechat_ruby_command, -1); - rb_define_module_function (ruby_mWeechat, "add_message_handler", weechat_ruby_add_message_handler, 2); - rb_define_module_function (ruby_mWeechat, "add_command_handler", weechat_ruby_add_command_handler, -1); - rb_define_module_function (ruby_mWeechat, "add_timer_handler", weechat_ruby_add_timer_handler, 2); - rb_define_module_function (ruby_mWeechat, "add_keyboard_handler", weechat_ruby_add_keyboard_handler, 1); - rb_define_module_function (ruby_mWeechat, "add_event_handler", weechat_ruby_add_event_handler, 2); - rb_define_module_function (ruby_mWeechat, "remove_handler", weechat_ruby_remove_handler, 2); - rb_define_module_function (ruby_mWeechat, "remove_timer_handler", weechat_ruby_remove_timer_handler, 1); - rb_define_module_function (ruby_mWeechat, "remove_keyboard_handler", weechat_ruby_remove_keyboard_handler, 1); - rb_define_module_function (ruby_mWeechat, "remove_event_handler", weechat_ruby_remove_event_handler, 1); - rb_define_module_function (ruby_mWeechat, "add_modifier", weechat_ruby_add_modifier, 3); - rb_define_module_function (ruby_mWeechat, "remove_modifier", weechat_ruby_remove_modifier, 3); - rb_define_module_function (ruby_mWeechat, "get_info", weechat_ruby_get_info, -1); - rb_define_module_function (ruby_mWeechat, "get_dcc_info", weechat_ruby_get_dcc_info, 0); - rb_define_module_function (ruby_mWeechat, "get_config", weechat_ruby_get_config, 1); - rb_define_module_function (ruby_mWeechat, "set_config", weechat_ruby_set_config, 2); - rb_define_module_function (ruby_mWeechat, "get_plugin_config", weechat_ruby_get_plugin_config, 1); - rb_define_module_function (ruby_mWeechat, "set_plugin_config", weechat_ruby_set_plugin_config, 2); - rb_define_module_function (ruby_mWeechat, "get_server_info", weechat_ruby_get_server_info, 0); - rb_define_module_function (ruby_mWeechat, "get_channel_info", weechat_ruby_get_channel_info, 1); - rb_define_module_function (ruby_mWeechat, "get_nick_info", weechat_ruby_get_nick_info, 2); - rb_define_module_function (ruby_mWeechat, "get_irc_color", weechat_ruby_get_irc_color, 1); - rb_define_module_function (ruby_mWeechat, "get_window_info", weechat_ruby_get_window_info, 0); - rb_define_module_function (ruby_mWeechat, "get_buffer_info", weechat_ruby_get_buffer_info, 0); - rb_define_module_function (ruby_mWeechat, "get_buffer_data", weechat_ruby_get_buffer_data, 2); - - /* redirect stdin and stdout */ - ruby_mWeechatOutputs = rb_define_module("WeechatOutputs"); - rb_define_singleton_method(ruby_mWeechatOutputs, "write", weechat_ruby_output, 1); - rb_define_singleton_method(ruby_mWeechatOutputs, "puts", weechat_ruby_output, 1); - rb_define_singleton_method(ruby_mWeechatOutputs, "p", weechat_ruby_output, 1); - rb_define_singleton_method(ruby_mWeechatOutputs, "flush", weechat_ruby_output_flush, 0); - - - plugin->cmd_handler_add (plugin, "ruby", - "list/load/unload Ruby scripts", - "[load filename] | [autoload] | [reload] | [unload [script]]", - "filename: Ruby script (file) to load\n" - "script: script name to unload\n\n" - "Without argument, /ruby command lists all loaded Ruby scripts.", - "load|autoload|reload|unload %f", - weechat_ruby_cmd, NULL, NULL); - - plugin->mkdir_home (plugin, "ruby"); - plugin->mkdir_home (plugin, "ruby/autoload"); - - rb_eval_string_protect(weechat_ruby_code, &ruby_error); - if (ruby_error) { - VALUE ruby_error_info = rb_inspect(ruby_errinfo); - ruby_plugin->print_server (ruby_plugin, - "Ruby error: unable to eval weechat ruby internal code"); - ruby_plugin->print_server (ruby_plugin, - "Ruby error: %s", STR2CSTR(ruby_error_info)); - return PLUGIN_RC_KO; - } - - script_init (weechat_ruby_plugin); - weechat_script_auto_load (plugin, "ruby", weechat_ruby_load); - - /* init ok */ - return PLUGIN_RC_OK; -} - -/* - * weechat_plugin_end: shutdown Ruby interface - */ - -void -weechat_plugin_end (t_weechat_plugin *plugin) -{ - /* unload all scripts */ - weechat_ruby_unload_all (plugin); - - ruby_finalize(); - - ruby_plugin->print_server (ruby_plugin, - "Ruby plugin ended"); -} diff --git a/src/plugins/scripts/ruby/weechat-ruby-api.c b/src/plugins/scripts/ruby/weechat-ruby-api.c new file mode 100644 index 000000000..1f244f59e --- /dev/null +++ b/src/plugins/scripts/ruby/weechat-ruby-api.c @@ -0,0 +1,2817 @@ +/* + * 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-ruby-api.c: Ruby API functions */ + +#undef _ + +#include <ruby.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 "../script.h" +#include "../script-api.h" +#include "../script-callback.h" +#include "weechat-ruby.h" + + +#define RUBY_RETURN_OK return INT2FIX (1); +#define RUBY_RETURN_ERROR return INT2FIX (0); +#define RUBY_RETURN_EMPTY return Qnil; +#define RUBY_RETURN_STRING(__string) \ + if (__string) \ + return rb_str_new2 (__string); \ + return rb_str_new2 (""); +#define RUBY_RETURN_STRING_FREE(__string) \ + if (__string) \ + { \ + return_value = rb_str_new2 (__string); \ + free (__string); \ + return return_value; \ + } \ + return rb_str_new2 (""); + + +/* + * weechat_ruby_api_register: startup function for all WeeChat Ruby scripts + */ + +static VALUE +weechat_ruby_api_register (VALUE class, VALUE name, VALUE author, + VALUE version, VALUE license, VALUE description, + VALUE shutdown_func, VALUE charset) +{ + char *c_name, *c_author, *c_version, *c_license, *c_description; + char *c_shutdown_func, *c_charset; + + /* make C compiler happy */ + (void) class; + + ruby_current_script = NULL; + + c_name = NULL; + c_author = NULL; + c_version = NULL; + c_license = NULL; + c_description = NULL; + c_shutdown_func = NULL; + c_charset = NULL; + + if (NIL_P (name) || NIL_P (author) || NIL_P (version) + || NIL_P (license) || NIL_P (description) || NIL_P (shutdown_func) + || NIL_P (charset)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("register"); + return INT2FIX (0); + } + + Check_Type (name, T_STRING); + Check_Type (author, T_STRING); + Check_Type (version, T_STRING); + Check_Type (license, T_STRING); + Check_Type (description, T_STRING); + Check_Type (shutdown_func, T_STRING); + Check_Type (charset, T_STRING); + + c_name = STR2CSTR (name); + c_author = STR2CSTR (author); + c_version = STR2CSTR (version); + c_license = STR2CSTR (license); + c_description = STR2CSTR (description); + c_shutdown_func = STR2CSTR (shutdown_func); + c_charset = STR2CSTR (charset); + + if (script_search (weechat_ruby_plugin, ruby_scripts, c_name)) + { + /* error: another scripts 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"), "ruby", c_name); + RUBY_RETURN_ERROR; + } + + /* register script */ + ruby_current_script = script_add (weechat_ruby_plugin, + &ruby_scripts, + (ruby_current_script_filename) ? + ruby_current_script_filename : "", + c_name, c_author, c_version, c_license, + c_description, c_shutdown_func, + c_charset); + + if (ruby_current_script) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: registered script \"%s\", " + "version %s (%s)"), + weechat_prefix ("info"), "ruby", + c_name, c_version, c_description); + } + else + { + RUBY_RETURN_ERROR; + } + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_charset_set: set script charset + */ + +static VALUE +weechat_ruby_api_charset_set (VALUE class, VALUE charset) +{ + char *c_charset; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("charset_set"); + RUBY_RETURN_ERROR; + } + + c_charset = NULL; + + if (NIL_P (charset)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("charset_set"); + RUBY_RETURN_ERROR; + } + + Check_Type (charset, T_STRING); + + c_charset = STR2CSTR (charset); + + script_api_charset_set (ruby_current_script, c_charset); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_iconv_to_internal: convert string to internal WeeChat charset + */ + +static VALUE +weechat_ruby_api_iconv_to_internal (VALUE class, VALUE charset, VALUE string) +{ + char *c_charset, *c_string, *result; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("iconv_to_internal"); + RUBY_RETURN_EMPTY; + } + + c_charset = NULL; + c_string = NULL; + + if (NIL_P (charset) || NIL_P (string)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("iconv_to_internal"); + RUBY_RETURN_EMPTY; + } + + Check_Type (charset, T_STRING); + Check_Type (string, T_STRING); + + c_charset = STR2CSTR (charset); + c_string = STR2CSTR (string); + + result = weechat_iconv_to_internal (c_charset, c_string); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_iconv_from_internal: convert string from WeeChat internal + * charset to another one + */ + +static VALUE +weechat_ruby_api_iconv_from_internal (VALUE class, VALUE charset, VALUE string) +{ + char *c_charset, *c_string, *result; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("iconv_from_internal"); + RUBY_RETURN_EMPTY; + } + + c_charset = NULL; + c_string = NULL; + + if (NIL_P (charset) || NIL_P (string)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("iconv_from_internal"); + RUBY_RETURN_ERROR; + } + + Check_Type (charset, T_STRING); + Check_Type (string, T_STRING); + + c_charset = STR2CSTR (charset); + c_string = STR2CSTR (string); + + result = weechat_iconv_from_internal (c_charset, c_string); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_mkdir_home: create a directory in WeeChat home + */ + +static VALUE +weechat_ruby_api_mkdir_home (VALUE class, VALUE directory, VALUE mode) +{ + char *c_directory; + int c_mode; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("mkdir_home"); + RUBY_RETURN_ERROR; + } + + c_directory = NULL; + c_mode = 0; + + if (NIL_P (directory) || NIL_P (mode)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("mkdir_home"); + RUBY_RETURN_ERROR; + } + + Check_Type (directory, T_STRING); + Check_Type (mode, T_FIXNUM); + + c_directory = STR2CSTR (directory); + c_mode = FIX2INT (mode); + + if (weechat_mkdir_home (c_directory, c_mode)) + RUBY_RETURN_OK; + + RUBY_RETURN_ERROR; +} + +/* + * weechat_ruby_api_mkdir: create a directory + */ + +static VALUE +weechat_ruby_api_mkdir (VALUE class, VALUE directory, VALUE mode) +{ + char *c_directory; + int c_mode; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("mkdir"); + RUBY_RETURN_ERROR; + } + + c_directory = NULL; + c_mode = 0; + + if (NIL_P (directory) || NIL_P (mode)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("mkdir"); + RUBY_RETURN_ERROR; + } + + Check_Type (directory, T_STRING); + Check_Type (mode, T_FIXNUM); + + c_directory = STR2CSTR (directory); + c_mode = FIX2INT (mode); + + if (weechat_mkdir (c_directory, c_mode)) + RUBY_RETURN_OK; + + RUBY_RETURN_ERROR; +} + +/* + * weechat_ruby_api_prefix: get a prefix, used for display + */ + +static VALUE +weechat_ruby_api_prefix (VALUE class, VALUE prefix) +{ + char *c_prefix, *result; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("prefix"); + RUBY_RETURN_EMPTY; + } + + c_prefix = NULL; + + if (NIL_P (prefix)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("prefix"); + RUBY_RETURN_EMPTY; + } + + Check_Type (prefix, T_STRING); + + c_prefix = STR2CSTR (prefix); + + result = weechat_prefix (c_prefix); + RUBY_RETURN_STRING(result); +} + +/* + * weechat_ruby_api_color: get a color code, used for display + */ + +static VALUE +weechat_ruby_api_color (VALUE class, VALUE color) +{ + char *c_color, *result; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("color"); + RUBY_RETURN_EMPTY; + } + + c_color = NULL; + + if (NIL_P (color)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("color"); + RUBY_RETURN_EMPTY; + } + + Check_Type (color, T_STRING); + + c_color = STR2CSTR (color); + + result = weechat_color (c_color); + RUBY_RETURN_STRING(result); +} + +/* + * weechat_ruby_api_print: print message into a buffer (current or specified one) + */ + +static VALUE +weechat_ruby_api_print (VALUE class, VALUE buffer, VALUE message) +{ + char *c_buffer, *c_message; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("print"); + RUBY_RETURN_ERROR; + } + + c_buffer = NULL; + c_message = NULL; + + if (NIL_P (buffer) || NIL_P (message)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("print"); + RUBY_RETURN_ERROR; + } + + Check_Type (buffer, T_STRING); + Check_Type (message, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_message = STR2CSTR (message); + + script_api_printf (weechat_ruby_plugin, + ruby_current_script, + script_string_to_pointer (c_buffer), + "%s", c_message); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_infobar_print: print message to infobar + */ + +static VALUE +weechat_ruby_api_infobar_print (VALUE class, VALUE delay, VALUE color, + VALUE message) +{ + int c_delay; + char *c_color, *c_message; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infobar_print"); + RUBY_RETURN_ERROR; + } + + c_delay = 1; + c_color = NULL; + c_message = NULL; + + if (NIL_P (delay) || NIL_P (color) || NIL_P (message)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infobar_print"); + RUBY_RETURN_ERROR; + } + + Check_Type (delay, T_FIXNUM); + Check_Type (color, T_STRING); + Check_Type (message, T_STRING); + + c_delay = FIX2INT (delay); + c_color = STR2CSTR (color); + c_message = STR2CSTR (message); + + script_api_infobar_printf (weechat_ruby_plugin, + ruby_current_script, + c_delay, c_color, "%s", c_message); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_infobar_remove: remove message(s) from infobar + */ + +static VALUE +weechat_ruby_api_infobar_remove (int argc, VALUE *argv, VALUE class) +{ + VALUE how_many; + int c_how_many; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infobar_remove"); + RUBY_RETURN_ERROR; + } + + how_many = Qnil; + + rb_scan_args (argc, argv, "01", &how_many); + + if (!NIL_P (how_many)) + { + Check_Type (how_many, T_FIXNUM); + c_how_many = FIX2INT (how_many); + } + else + c_how_many = 0; + + weechat_infobar_remove (c_how_many); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_log_print: print message in WeeChat log file + */ + +static VALUE +weechat_ruby_api_log_print (VALUE class, VALUE message) +{ + char *c_message; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("log_print"); + RUBY_RETURN_ERROR; + } + + c_message = NULL; + + if (NIL_P (message)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("log_print"); + RUBY_RETURN_ERROR; + } + + Check_Type (message, T_STRING); + + c_message = STR2CSTR (message); + + script_api_log_printf (weechat_ruby_plugin, + ruby_current_script, + "%s", c_message); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_hook_command_cb: callback for command hooked + */ + +int +weechat_ruby_api_hook_command_cb (void *data, struct t_gui_buffer *buffer, + int argc, char **argv, char **argv_eol) +{ + struct t_script_callback *script_callback; + char *ruby_argv[3], empty_arg[1] = { '\0' }; + int *rc, ret; + + /* make C compiler happy */ + (void) argv; + + script_callback = (struct t_script_callback *)data; + + ruby_argv[0] = script_pointer_to_string (buffer); + ruby_argv[1] = (argc > 1) ? argv_eol[1] : empty_arg; + ruby_argv[2] = NULL; + + rc = (int *) weechat_ruby_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + ruby_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (ruby_argv[0]) + free (ruby_argv[0]); + + return ret; +} + +/* + * weechat_ruby_api_hook_command: hook a command + */ + +static VALUE +weechat_ruby_api_hook_command (VALUE class, VALUE command, VALUE description, + VALUE args, VALUE args_description, + VALUE completion, VALUE function) +{ + char *c_command, *c_description, *c_args, *c_args_description; + char *c_completion, *c_function, *result; + struct t_hook *new_hook; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_command"); + RUBY_RETURN_EMPTY; + } + + c_command = NULL; + c_description = NULL; + c_args = NULL; + c_args_description = NULL; + c_completion = NULL; + c_function = NULL; + + if (NIL_P (command) || NIL_P (description) || NIL_P (args) + || NIL_P (args_description) || NIL_P (completion) || NIL_P (function)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_command"); + RUBY_RETURN_EMPTY; + } + + Check_Type (command, T_STRING); + Check_Type (description, T_STRING); + Check_Type (args, T_STRING); + Check_Type (args_description, T_STRING); + Check_Type (completion, T_STRING); + Check_Type (function, T_STRING); + + c_command = STR2CSTR (command); + c_description = STR2CSTR (description); + c_args = STR2CSTR (args); + c_args_description = STR2CSTR (args_description); + c_completion = STR2CSTR (completion); + c_function = STR2CSTR (function); + + new_hook = script_api_hook_command (weechat_ruby_plugin, + ruby_current_script, + c_command, + c_description, + c_args, + c_args_description, + c_completion, + &weechat_ruby_api_hook_command_cb, + c_function); + + result = script_pointer_to_string (new_hook); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_hook_timer_cb: callback for timer hooked + */ + +int +weechat_ruby_api_hook_timer_cb (void *data) +{ + struct t_script_callback *script_callback; + char *ruby_argv[1] = { NULL }; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + rc = (int *) weechat_ruby_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + ruby_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + + return ret; +} + +/* + * weechat_ruby_api_hook_timer: hook a timer + */ + +static VALUE +weechat_ruby_api_hook_timer (VALUE class, VALUE interval, VALUE align_second, + VALUE max_calls, VALUE function) +{ + int c_interval, c_align_second, c_max_calls; + char *c_function, *result; + struct t_hook *new_hook; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_timer"); + RUBY_RETURN_EMPTY; + } + + c_interval = 0; + c_align_second = 0; + c_max_calls = 0; + c_function = NULL; + + if (NIL_P (interval) || NIL_P (align_second) || NIL_P (max_calls) + || NIL_P (function)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_timer"); + RUBY_RETURN_EMPTY; + } + + Check_Type (interval, T_FIXNUM); + Check_Type (align_second, T_FIXNUM); + Check_Type (max_calls, T_FIXNUM); + Check_Type (function, T_STRING); + + c_interval = FIX2INT (interval); + c_align_second = FIX2INT (align_second); + c_max_calls = FIX2INT (max_calls); + c_function = STR2CSTR (function); + + new_hook = script_api_hook_timer (weechat_ruby_plugin, + ruby_current_script, + c_interval, + c_align_second, + c_max_calls, + &weechat_ruby_api_hook_timer_cb, + c_function); + + result = script_pointer_to_string (new_hook); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_hook_fd_cb: callback for fd hooked + */ + +int +weechat_ruby_api_hook_fd_cb (void *data) +{ + struct t_script_callback *script_callback; + char *ruby_argv[1] = { NULL }; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + rc = (int *) weechat_ruby_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + ruby_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + + return ret; +} + +/* + * weechat_ruby_api_hook_fd: hook a fd + */ + +static VALUE +weechat_ruby_api_hook_fd (VALUE class, VALUE fd, VALUE read, VALUE write, + VALUE exception, VALUE function) +{ + int c_fd, c_read, c_write, c_exception; + char *c_function, *result; + struct t_hook *new_hook; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_fd"); + RUBY_RETURN_EMPTY; + } + + c_fd = 0; + c_read = 0; + c_write = 0; + c_exception = 0; + c_function = NULL; + + if (NIL_P (fd) || NIL_P (read) || NIL_P (write) || NIL_P (exception) + || NIL_P (function)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_fd"); + RUBY_RETURN_EMPTY; + } + + Check_Type (fd, T_FIXNUM); + Check_Type (read, T_FIXNUM); + Check_Type (write, T_FIXNUM); + Check_Type (exception, T_FIXNUM); + Check_Type (function, T_STRING); + + c_fd = FIX2INT (fd); + c_read = FIX2INT (read); + c_write = FIX2INT (write); + c_exception = FIX2INT (exception); + c_function = STR2CSTR (function); + + new_hook = script_api_hook_fd (weechat_ruby_plugin, + ruby_current_script, + c_fd, + c_read, + c_write, + c_exception, + &weechat_ruby_api_hook_fd_cb, + c_function); + + result = script_pointer_to_string (new_hook); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_hook_print_cb: callback for print hooked + */ + +int +weechat_ruby_api_hook_print_cb (void *data, struct t_gui_buffer *buffer, + time_t date, char *prefix, char *message) +{ + struct t_script_callback *script_callback; + char *ruby_argv[5]; + static char timebuffer[64]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + snprintf (timebuffer, sizeof (timebuffer) - 1, "%ld", date); + + ruby_argv[0] = script_pointer_to_string (buffer); + ruby_argv[1] = timebuffer; + ruby_argv[2] = prefix; + ruby_argv[3] = message; + ruby_argv[4] = NULL; + + rc = (int *) weechat_ruby_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + ruby_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (ruby_argv[0]) + free (ruby_argv[0]); + + return ret; +} + +/* + * weechat_ruby_api_hook_print: hook a print + */ + +static VALUE +weechat_ruby_api_hook_print (VALUE class, VALUE buffer, VALUE message, + VALUE strip_colors, VALUE function) +{ + char *c_buffer, *c_message, *c_function, *result; + int c_strip_colors; + struct t_hook *new_hook; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_print"); + RUBY_RETURN_EMPTY; + } + + c_buffer = NULL; + c_message = NULL; + c_strip_colors = 0; + c_function = NULL; + + if (NIL_P (buffer) || NIL_P (message) || NIL_P (strip_colors) + || NIL_P (function)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_print"); + RUBY_RETURN_EMPTY; + } + + Check_Type (buffer, T_STRING); + Check_Type (message, T_STRING); + Check_Type (strip_colors, T_FIXNUM); + Check_Type (function, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_message = STR2CSTR (message); + c_strip_colors = FIX2INT (strip_colors); + c_function = STR2CSTR (function); + + new_hook = script_api_hook_print (weechat_ruby_plugin, + ruby_current_script, + script_string_to_pointer (c_buffer), + c_message, + c_strip_colors, + &weechat_ruby_api_hook_print_cb, + c_function); + + result = script_pointer_to_string (new_hook); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_hook_signal_cb: callback for signal hooked + */ + +int +weechat_ruby_api_hook_signal_cb (void *data, char *signal, char *type_data, + void *signal_data) +{ + struct t_script_callback *script_callback; + char *ruby_argv[3]; + static char value_str[64]; + int *rc, ret, free_needed; + + script_callback = (struct t_script_callback *)data; + + ruby_argv[0] = signal; + free_needed = 0; + if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0) + { + ruby_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)); + ruby_argv[1] = value_str; + } + else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0) + { + ruby_argv[1] = script_pointer_to_string (signal_data); + free_needed = 1; + } + else + ruby_argv[1] = NULL; + ruby_argv[2] = NULL; + + rc = (int *) weechat_ruby_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + ruby_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (free_needed && ruby_argv[1]) + free (ruby_argv[1]); + + return ret; +} + +/* + * weechat_ruby_api_hook_signal: hook a signal + */ + +static VALUE +weechat_ruby_api_hook_signal (VALUE class, VALUE signal, VALUE function) +{ + char *c_signal, *c_function, *result; + struct t_hook *new_hook; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_signal"); + RUBY_RETURN_EMPTY; + } + + c_signal = NULL; + c_function = NULL; + + if (NIL_P (signal) || NIL_P (function)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_signal"); + RUBY_RETURN_EMPTY; + } + + Check_Type (signal, T_STRING); + Check_Type (function, T_STRING); + + c_signal = STR2CSTR (signal); + c_function = STR2CSTR (function); + + new_hook = script_api_hook_signal (weechat_ruby_plugin, + ruby_current_script, + c_signal, + &weechat_ruby_api_hook_signal_cb, + c_function); + + result = script_pointer_to_string (new_hook); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_hook_signal_send: send a signal + */ + +static VALUE +weechat_ruby_api_hook_signal_send (VALUE class, VALUE signal, VALUE type_data, + VALUE signal_data) +{ + char *c_signal, *c_type_data, *c_signal_data; + int int_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_signal_send"); + RUBY_RETURN_EMPTY; + } + + c_signal = NULL; + c_type_data = NULL; + c_signal_data = NULL; + + if (NIL_P (signal) || NIL_P (type_data) || NIL_P (signal_data)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_signal_send"); + RUBY_RETURN_EMPTY; + } + + Check_Type (signal, T_STRING); + Check_Type (type_data, T_STRING); + + c_signal = STR2CSTR (signal); + c_type_data = STR2CSTR (type_data); + + if (strcmp (c_type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0) + { + Check_Type (signal_data, T_STRING); + c_signal_data = STR2CSTR (signal_data); + weechat_hook_signal_send (c_signal, c_type_data, c_signal_data); + RUBY_RETURN_OK; + } + else if (strcmp (c_type_data, WEECHAT_HOOK_SIGNAL_INT) == 0) + { + Check_Type (signal_data, T_STRING); + int_value = FIX2INT (signal_data); + weechat_hook_signal_send (c_signal, c_type_data, &int_value); + RUBY_RETURN_OK; + } + else if (strcmp (c_type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0) + { + Check_Type (signal_data, T_STRING); + c_signal_data = STR2CSTR (signal_data); + weechat_hook_signal_send (c_signal, c_type_data, + script_string_to_pointer (c_signal_data)); + RUBY_RETURN_OK; + } + + RUBY_RETURN_ERROR; +} + +/* + * weechat_ruby_api_hook_config_cb: callback for config option hooked + */ + +int +weechat_ruby_api_hook_config_cb (void *data, char *type, char *option, char *value) +{ + struct t_script_callback *script_callback; + char *ruby_argv[4]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + ruby_argv[0] = type; + ruby_argv[1] = option; + ruby_argv[2] = value; + ruby_argv[3] = NULL; + + rc = (int *) weechat_ruby_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + ruby_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + + return ret; +} + +/* + * weechat_ruby_api_hook_config: hook a config option + */ + +static VALUE +weechat_ruby_api_hook_config (VALUE class, VALUE type, VALUE option, VALUE function) +{ + char *c_type, *c_option, *c_function, *result; + struct t_hook *new_hook; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_config"); + RUBY_RETURN_EMPTY; + } + + c_type = NULL; + c_option = NULL; + c_function = NULL; + + if (NIL_P (type) || NIL_P (option) || NIL_P (function)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_config"); + RUBY_RETURN_EMPTY; + } + + Check_Type (type, T_STRING); + Check_Type (option, T_STRING); + Check_Type (function, T_STRING); + + c_type = STR2CSTR (type); + c_option = STR2CSTR (option); + c_function = STR2CSTR (function); + + new_hook = script_api_hook_config (weechat_ruby_plugin, + ruby_current_script, + c_type, + c_option, + &weechat_ruby_api_hook_config_cb, + c_function); + + result = script_pointer_to_string (new_hook); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_hook_completion_cb: callback for completion hooked + */ + +int +weechat_ruby_api_hook_completion_cb (void *data, char *completion, struct t_gui_buffer *buffer, + struct t_weelist *list) +{ + struct t_script_callback *script_callback; + char *ruby_argv[4]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + ruby_argv[0] = completion; + ruby_argv[1] = script_pointer_to_string (buffer); + ruby_argv[2] = script_pointer_to_string (list); + ruby_argv[3] = NULL; + + rc = (int *) weechat_ruby_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + ruby_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (ruby_argv[1]) + free (ruby_argv[1]); + if (ruby_argv[2]) + free (ruby_argv[2]); + + return ret; +} + +/* + * weechat_ruby_api_hook_completion: hook a completion + */ + +static VALUE +weechat_ruby_api_hook_completion (VALUE class, VALUE completion, VALUE function) +{ + char *c_completion, *c_function, *result; + struct t_hook *new_hook; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_completion"); + RUBY_RETURN_EMPTY; + } + + c_completion = NULL; + c_function = NULL; + + if (NIL_P (completion) || NIL_P (function)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_completion"); + RUBY_RETURN_EMPTY; + } + + Check_Type (completion, T_STRING); + Check_Type (function, T_STRING); + + c_completion = STR2CSTR (completion); + c_function = STR2CSTR (function); + + new_hook = script_api_hook_completion (weechat_ruby_plugin, + ruby_current_script, + c_completion, + &weechat_ruby_api_hook_completion_cb, + c_function); + + result = script_pointer_to_string (new_hook); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_unhook: unhook something + */ + +static VALUE +weechat_ruby_api_unhook (VALUE class, VALUE hook) +{ + char *c_hook; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("unhook"); + RUBY_RETURN_ERROR; + } + + c_hook = NULL; + + if (NIL_P (hook)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("unhook"); + RUBY_RETURN_EMPTY; + } + + Check_Type (hook, T_STRING); + + c_hook = STR2CSTR (hook); + + if (script_api_unhook (weechat_ruby_plugin, + ruby_current_script, + script_string_to_pointer (c_hook))) + RUBY_RETURN_OK; + + RUBY_RETURN_ERROR; +} + +/* + * weechat_ruby_api_unhook_all: unhook all for script + */ + +static VALUE +weechat_ruby_api_unhook_all (VALUE class) +{ + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("unhook_all"); + RUBY_RETURN_ERROR; + } + + script_api_unhook_all (weechat_ruby_plugin, + ruby_current_script); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_input_data_cb: callback for input data in a buffer + */ + +int +weechat_ruby_api_input_data_cb (void *data, struct t_gui_buffer *buffer, + char *input_data) +{ + struct t_script_callback *script_callback; + char *ruby_argv[3]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + ruby_argv[0] = script_pointer_to_string (buffer); + ruby_argv[1] = input_data; + ruby_argv[2] = NULL; + + rc = (int *) weechat_ruby_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + ruby_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (ruby_argv[0]) + free (ruby_argv[0]); + + return ret; +} + +/* + * weechat_ruby_api_buffer_new: create a new buffer + */ + +static VALUE +weechat_ruby_api_buffer_new (VALUE class, VALUE category, VALUE name, VALUE function) +{ + char *c_category, *c_name, *c_function, *result; + struct t_gui_buffer *new_buffer; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_new"); + RUBY_RETURN_EMPTY; + } + + c_category = NULL; + c_name = NULL; + c_function = NULL; + + if (NIL_P (category) || NIL_P (name) || NIL_P (function)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_new"); + RUBY_RETURN_EMPTY; + } + + Check_Type (category, T_STRING); + Check_Type (name, T_STRING); + Check_Type (function, T_STRING); + + c_category = STR2CSTR (category); + c_name = STR2CSTR (name); + c_function = STR2CSTR (function); + + new_buffer = script_api_buffer_new (weechat_ruby_plugin, + ruby_current_script, + c_category, + c_name, + &weechat_ruby_api_input_data_cb, + c_function); + + result = script_pointer_to_string (new_buffer); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_buffer_search: search a buffer + */ + +static VALUE +weechat_ruby_api_buffer_search (VALUE class, VALUE category, VALUE name) +{ + char *c_category, *c_name, *result; + struct t_gui_buffer *ptr_buffer; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_search"); + RUBY_RETURN_EMPTY; + } + + c_category = NULL; + c_name = NULL; + + if (NIL_P (category) || NIL_P (name)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_search"); + RUBY_RETURN_EMPTY; + } + + Check_Type (category, T_STRING); + Check_Type (name, T_STRING); + + c_category = STR2CSTR (category); + c_name = STR2CSTR (name); + + ptr_buffer = weechat_buffer_search (c_category, c_name); + + result = script_pointer_to_string (ptr_buffer); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_buffer_close: close a buffer + */ + +static VALUE +weechat_ruby_api_buffer_close (VALUE class, VALUE buffer, VALUE switch_to_another) +{ + char *c_buffer; + int c_switch_to_another; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_close"); + RUBY_RETURN_ERROR; + } + + c_buffer = NULL; + c_switch_to_another = 0; + + if (NIL_P (buffer) || NIL_P (switch_to_another)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_close"); + RUBY_RETURN_ERROR; + } + + Check_Type (buffer, T_STRING); + Check_Type (switch_to_another, T_FIXNUM); + + c_buffer = STR2CSTR (buffer); + c_switch_to_another = FIX2INT (switch_to_another); + + script_api_buffer_close (weechat_ruby_plugin, + ruby_current_script, + script_string_to_pointer (c_buffer), + c_switch_to_another); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_buffer_get: get a buffer property + */ + +static VALUE +weechat_ruby_api_buffer_get (VALUE class, VALUE buffer, VALUE property) +{ + char *c_buffer, *c_property, *value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_get"); + RUBY_RETURN_EMPTY; + } + + if (NIL_P (buffer) || NIL_P (property)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_get"); + RUBY_RETURN_EMPTY; + } + + Check_Type (buffer, T_STRING); + Check_Type (property, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_property = STR2CSTR (property); + + value = weechat_buffer_get (script_string_to_pointer (c_buffer), + c_property); + RUBY_RETURN_STRING(value); +} + +/* + * weechat_ruby_api_buffer_set: set a buffer property + */ + +static VALUE +weechat_ruby_api_buffer_set (VALUE class, VALUE buffer, VALUE property, VALUE value) +{ + char *c_buffer, *c_property, *c_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_set"); + RUBY_RETURN_ERROR; + } + + if (NIL_P (buffer) || NIL_P (property) || NIL_P (value)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_set"); + RUBY_RETURN_ERROR; + } + + Check_Type (buffer, T_STRING); + Check_Type (property, T_STRING); + Check_Type (value, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_property = STR2CSTR (property); + c_value = STR2CSTR (value); + + weechat_buffer_set (script_string_to_pointer (c_buffer), + c_property, + c_value); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_nicklist_add_group: add a group in nicklist + */ + +static VALUE +weechat_ruby_api_nicklist_add_group (VALUE class, VALUE buffer, + VALUE parent_group, VALUE name, + VALUE color, VALUE visible) +{ + char *c_buffer, *c_parent_group, *c_name, *c_color, *result; + int c_visible; + struct t_gui_nick_group *new_group; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_add_group"); + RUBY_RETURN_EMPTY; + } + + c_buffer = NULL; + c_parent_group = NULL; + c_name = NULL; + c_color = NULL; + c_visible = 0; + + if (NIL_P (buffer) || NIL_P (parent_group) || NIL_P (name) || NIL_P (color) + || NIL_P (visible)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_add_group"); + RUBY_RETURN_EMPTY; + } + + Check_Type (buffer, T_STRING); + Check_Type (parent_group, T_STRING); + Check_Type (name, T_STRING); + Check_Type (color, T_STRING); + Check_Type (visible, T_FIXNUM); + + c_buffer = STR2CSTR (buffer); + c_parent_group = STR2CSTR (parent_group); + c_name = STR2CSTR (name); + c_color = STR2CSTR (color); + c_visible = FIX2INT (visible); + + new_group = weechat_nicklist_add_group (script_string_to_pointer (c_buffer), + script_string_to_pointer (c_parent_group), + c_name, + c_color, + c_visible); + + result = script_pointer_to_string (new_group); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_nicklist_search_group: search a group in nicklist + */ + +static VALUE +weechat_ruby_api_nicklist_search_group (VALUE class, VALUE buffer, + VALUE from_group, VALUE name) +{ + char *c_buffer, *c_from_group, *c_name, *result; + struct t_gui_nick_group *ptr_group; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_search_group"); + RUBY_RETURN_EMPTY; + } + + c_buffer = NULL; + c_from_group = NULL; + c_name = NULL; + + if (NIL_P (buffer) || NIL_P (from_group) || NIL_P (name)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_search_group"); + RUBY_RETURN_EMPTY; + } + + Check_Type (buffer, T_STRING); + Check_Type (from_group, T_STRING); + Check_Type (name, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_from_group = STR2CSTR (from_group); + c_name = STR2CSTR (name); + + ptr_group = weechat_nicklist_search_group (script_string_to_pointer (c_buffer), + script_string_to_pointer (c_from_group), + c_name); + + result = script_pointer_to_string (ptr_group); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_nicklist_add_nick: add a nick in nicklist + */ + +static VALUE +weechat_ruby_api_nicklist_add_nick (VALUE class, VALUE buffer, VALUE group, + VALUE name, VALUE color, VALUE prefix, + VALUE prefix_color, VALUE visible) +{ + char *c_buffer, *c_group, *c_name, *c_color, *c_prefix, char_prefix; + char *c_prefix_color, *result; + int c_visible; + struct t_gui_nick *new_nick; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_add_nick"); + RUBY_RETURN_EMPTY; + } + + c_buffer = NULL; + c_group = NULL; + c_name = NULL; + c_color = NULL; + c_prefix = NULL; + c_prefix_color = NULL; + c_visible = 0; + + if (NIL_P (buffer) || NIL_P (group) || NIL_P (name) || NIL_P (color) + || NIL_P (prefix) || NIL_P (prefix_color) || NIL_P (visible)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_add_nick"); + RUBY_RETURN_EMPTY; + } + + Check_Type (buffer, T_STRING); + Check_Type (group, T_STRING); + Check_Type (name, T_STRING); + Check_Type (color, T_STRING); + Check_Type (prefix, T_STRING); + Check_Type (prefix_color, T_STRING); + Check_Type (visible, T_FIXNUM); + + c_buffer = STR2CSTR (buffer); + c_group = STR2CSTR (group); + c_name = STR2CSTR (name); + c_color = STR2CSTR (color); + c_prefix = STR2CSTR (prefix); + c_prefix_color = STR2CSTR (prefix_color); + c_visible = FIX2INT (visible); + + if (c_prefix && c_prefix[0]) + char_prefix = c_prefix[0]; + else + char_prefix = ' '; + + new_nick = weechat_nicklist_add_nick (script_string_to_pointer (c_buffer), + script_string_to_pointer (c_group), + c_name, + c_color, + prefix, + c_prefix_color, + c_visible); + + result = script_pointer_to_string (new_nick); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_nicklist_search_nick: search a nick in nicklist + */ + +static VALUE +weechat_ruby_api_nicklist_search_nick (VALUE class, VALUE buffer, + VALUE from_group, VALUE name) +{ + char *c_buffer, *c_from_group, *c_name, *result; + struct t_gui_nick *ptr_nick; + VALUE return_value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_search_nick"); + RUBY_RETURN_EMPTY; + } + + c_buffer = NULL; + c_from_group = NULL; + c_name = NULL; + + if (NIL_P (buffer) || NIL_P (from_group) || NIL_P (name)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_search_nick"); + RUBY_RETURN_EMPTY; + } + + Check_Type (buffer, T_STRING); + Check_Type (from_group, T_STRING); + Check_Type (name, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_from_group = STR2CSTR (from_group); + c_name = STR2CSTR (name); + + ptr_nick = weechat_nicklist_search_nick (script_string_to_pointer (c_buffer), + script_string_to_pointer (c_from_group), + c_name); + + result = script_pointer_to_string (ptr_nick); + RUBY_RETURN_STRING_FREE(result); +} + +/* + * weechat_ruby_api_nicklist_remove_group: remove a group from nicklist + */ + +static VALUE +weechat_ruby_api_nicklist_remove_group (VALUE class, VALUE buffer, VALUE group) +{ + char *c_buffer, *c_group; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_group"); + RUBY_RETURN_ERROR; + } + + if (NIL_P (buffer) || NIL_P (group)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_group"); + RUBY_RETURN_ERROR; + } + + Check_Type (buffer, T_STRING); + Check_Type (group, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_group = STR2CSTR (group); + + weechat_nicklist_remove_group (script_string_to_pointer (c_buffer), + script_string_to_pointer (c_group)); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_nicklist_remove_nick: remove a nick from nicklist + */ + +static VALUE +weechat_ruby_api_nicklist_remove_nick (VALUE class, VALUE buffer, VALUE nick) +{ + char *c_buffer, *c_nick; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_nick"); + RUBY_RETURN_ERROR; + } + + if (NIL_P (buffer) || NIL_P (nick)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_nick"); + RUBY_RETURN_ERROR; + } + + Check_Type (buffer, T_STRING); + Check_Type (nick, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_nick = STR2CSTR (nick); + + weechat_nicklist_remove_nick (script_string_to_pointer (c_buffer), + script_string_to_pointer (c_nick)); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_nicklist_remove_all: remove all groups/nicks from nicklist + */ + +static VALUE +weechat_ruby_api_nicklist_remove_all (VALUE class, VALUE buffer) +{ + char *c_buffer; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_all"); + RUBY_RETURN_ERROR; + } + + if (NIL_P (buffer)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_all"); + RUBY_RETURN_ERROR; + } + + Check_Type (buffer, T_STRING); + + c_buffer = STR2CSTR (buffer); + + weechat_nicklist_remove_all (script_string_to_pointer (c_buffer)); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_command: send command to server + */ + +static VALUE +weechat_ruby_api_command (VALUE class, VALUE buffer, VALUE command) +{ + char *c_buffer, *c_command; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("command"); + RUBY_RETURN_ERROR; + } + + if (NIL_P (buffer) || NIL_P (command)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("command"); + RUBY_RETURN_ERROR; + } + + Check_Type (buffer, T_STRING); + Check_Type (command, T_STRING); + + c_buffer = STR2CSTR (buffer); + c_command = STR2CSTR (command); + + script_api_command (weechat_ruby_plugin, + ruby_current_script, + script_string_to_pointer (c_buffer), + c_command); + + RUBY_RETURN_OK; +} + +/* + * weechat_ruby_api_info_get: get info about WeeChat + */ + +static VALUE +weechat_ruby_api_info_get (VALUE class, VALUE info) +{ + char *c_info, *value; + + /* make C compiler happy */ + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("info_get"); + RUBY_RETURN_EMPTY; + } + + if (NIL_P (info)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("info_get"); + RUBY_RETURN_ERROR; + } + + Check_Type (info, T_STRING); + + c_info = STR2CSTR (info); + + value = weechat_info_get (c_info); + RUBY_RETURN_STRING(value); +} + +/* + * weechat_ruby_api_get_dcc_info: get infos about DCC + */ + +/* +static VALUE +weechat_ruby_api_get_dcc_info (VALUE class) +{ + t_plugin_dcc_info *dcc_info, *ptr_dcc; + VALUE dcc_list, dcc_list_member; + char timebuffer1[64]; + char timebuffer2[64]; + struct in_addr in; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("charset_set"); + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get DCC info, " + "script not initialized"); + return INT2FIX (0); + } + + dcc_list = rb_ary_new(); + + if (NIL_P (dcc_list)) + return Qnil; + + dcc_info = ruby_plugin->get_dcc_info (ruby_plugin); + if (!dcc_info) + return dcc_list; + + 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_list_member = rb_hash_new (); + + if (!NIL_P (dcc_list_member)) + { + rb_hash_aset (dcc_list_member, rb_str_new2("server"), + rb_str_new2(ptr_dcc->server)); + rb_hash_aset (dcc_list_member, rb_str_new2("channel"), + rb_str_new2(ptr_dcc->channel)); + rb_hash_aset (dcc_list_member, rb_str_new2("type"), + INT2FIX(ptr_dcc->type)); + rb_hash_aset (dcc_list_member, rb_str_new2("status"), + INT2FIX(ptr_dcc->status)); + rb_hash_aset (dcc_list_member, rb_str_new2("start_time"), + rb_str_new2(timebuffer1)); + rb_hash_aset (dcc_list_member, rb_str_new2("start_transfer"), + rb_str_new2(timebuffer2)); + rb_hash_aset (dcc_list_member, rb_str_new2("address"), + rb_str_new2(inet_ntoa(in))); + rb_hash_aset (dcc_list_member, rb_str_new2("port"), + INT2FIX(ptr_dcc->port)); + rb_hash_aset (dcc_list_member, rb_str_new2("nick"), + rb_str_new2(ptr_dcc->nick)); + rb_hash_aset (dcc_list_member, rb_str_new2("remote_file"), + rb_str_new2(ptr_dcc->filename)); + rb_hash_aset (dcc_list_member, rb_str_new2("local_file"), + rb_str_new2(ptr_dcc->local_filename)); + rb_hash_aset (dcc_list_member, rb_str_new2("filename_suffix"), + INT2FIX(ptr_dcc->filename_suffix)); + rb_hash_aset (dcc_list_member, rb_str_new2("size"), + INT2FIX(ptr_dcc->size)); + rb_hash_aset (dcc_list_member, rb_str_new2("pos"), + INT2FIX(ptr_dcc->pos)); + rb_hash_aset (dcc_list_member, rb_str_new2("start_resume"), + INT2FIX(ptr_dcc->start_resume)); + rb_hash_aset (dcc_list_member, rb_str_new2("cps"), + INT2FIX(ptr_dcc->bytes_per_sec)); + + rb_ary_push (dcc_list, dcc_list_member); + } + } + + ruby_plugin->free_dcc_info (ruby_plugin, dcc_info); + + return dcc_list; +} +*/ + +/* + * weechat_ruby_api_get_config: get value of a WeeChat config option + */ + +/* +static VALUE +weechat_ruby_api_get_config (VALUE class, VALUE option) +{ + char *c_option, *return_value; + VALUE ruby_return_value; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("charset_set"); + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get config option, " + "script not initialized"); + return INT2FIX (0); + } + + c_option = NULL; + + if (NIL_P (option)) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: wrong parameters for " + "\"get_config\" function"); + return INT2FIX (0); + } + + Check_Type (option, T_STRING); + c_option = STR2CSTR (option); + + if (c_option) + { + return_value = ruby_plugin->get_config (ruby_plugin, c_option); + + if (return_value) + { + ruby_return_value = rb_str_new2 (return_value); + free (return_value); + return ruby_return_value; + } + } + + return rb_str_new2 (""); +} +*/ + +/* + * weechat_ruby_api_set_config: set value of a WeeChat config option + */ + +/* +static VALUE +weechat_ruby_api_set_config (VALUE class, VALUE option, VALUE value) +{ + char *c_option, *c_value; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to set config option, " + "script not initialized"); + return INT2FIX (0); + } + + c_option = NULL; + c_value = NULL; + + if (NIL_P (option)) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: wrong parameters for " + "\"set_config\" function"); + return INT2FIX (0); + } + + Check_Type (option, T_STRING); + Check_Type (value, T_STRING); + + c_option = STR2CSTR (option); + c_value = STR2CSTR (value); + + if (c_option && c_value) + { + if (ruby_plugin->set_config (ruby_plugin, c_option, c_value)) + return INT2FIX (1); + } + + return INT2FIX (0); +} +*/ + +/* + * weechat_ruby_api_get_plugin_config: get value of a plugin config option + */ + +/* +static VALUE +weechat_ruby_api_get_plugin_config (VALUE class, VALUE option) +{ + char *c_option, *return_value; + VALUE ruby_return_value; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get plugin config option, " + "script not initialized"); + return INT2FIX (0); + } + + c_option = NULL; + + if (NIL_P (option)) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: wrong parameters for " + "\"get_plugin_config\" function"); + return INT2FIX (0); + } + + Check_Type (option, T_STRING); + c_option = STR2CSTR (option); + + if (c_option) + { + return_value = script_get_plugin_config (ruby_plugin, + ruby_current_script, + c_option); + + if (return_value) + { + ruby_return_value = rb_str_new2 (return_value); + free (return_value); + return ruby_return_value; + } + } + + return rb_str_new2 (""); +} +*/ + +/* + * weechat_ruby_api_set_plugin_config: set value of a plugin config option + */ + +/* +static VALUE +weechat_ruby_api_set_plugin_config (VALUE class, VALUE option, VALUE value) +{ + char *c_option, *c_value; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to set plugin config option, " + "script not initialized"); + return INT2FIX (0); + } + + c_option = NULL; + c_value = NULL; + + if (NIL_P (option)) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: wrong parameters for " + "\"set_plugin_config\" function"); + return INT2FIX (0); + } + + Check_Type (option, T_STRING); + Check_Type (value, T_STRING); + + c_option = STR2CSTR (option); + c_value = STR2CSTR (value); + + if (c_option && c_value) + { + if (script_set_plugin_config (ruby_plugin, + ruby_current_script, + c_option, c_value)) + RUBY_RETURN_OK; + } + + RUBY_RETURN_ERROR; +} +*/ + +/* + * weechat_ruby_api_get_server_info: get infos about servers + */ + +/* +static VALUE +weechat_ruby_api_get_server_info (VALUE class) +{ + t_plugin_server_info *server_info, *ptr_server; + VALUE server_hash, server_hash_member; + char timebuffer[64]; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get server infos, " + "script not initialized"); + return INT2FIX (0); + } + + server_hash = rb_hash_new (); + if (!server_hash) + return Qnil; + + server_info = ruby_plugin->get_server_info (ruby_plugin); + if (!server_info) + return server_hash; + + 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 = rb_hash_new (); + + if (server_hash_member) + { + rb_hash_aset (server_hash_member, rb_str_new2("autoconnect"), + INT2FIX(ptr_server->autoconnect)); + rb_hash_aset (server_hash_member, rb_str_new2("autoreconnect"), + INT2FIX(ptr_server->autoreconnect)); + rb_hash_aset (server_hash_member, rb_str_new2("autoreconnect_delay"), + INT2FIX(ptr_server->autoreconnect_delay)); + rb_hash_aset (server_hash_member, rb_str_new2("temp_server"), + INT2FIX(ptr_server->temp_server)); + rb_hash_aset (server_hash_member, rb_str_new2("address"), + rb_str_new2(ptr_server->address)); + rb_hash_aset (server_hash_member, rb_str_new2("port"), + INT2FIX(ptr_server->port)); + rb_hash_aset (server_hash_member, rb_str_new2("ipv6"), + INT2FIX(ptr_server->ipv6)); + rb_hash_aset (server_hash_member, rb_str_new2("ssl"), + INT2FIX(ptr_server->ssl)); + rb_hash_aset (server_hash_member, rb_str_new2("password"), + rb_str_new2(ptr_server->password)); + rb_hash_aset (server_hash_member, rb_str_new2("nick1"), + rb_str_new2(ptr_server->nick1)); + rb_hash_aset (server_hash_member, rb_str_new2("nick2"), + rb_str_new2(ptr_server->nick2)); + rb_hash_aset (server_hash_member, rb_str_new2("nick3"), + rb_str_new2(ptr_server->nick3)); + rb_hash_aset (server_hash_member, rb_str_new2("username"), + rb_str_new2(ptr_server->username)); + rb_hash_aset (server_hash_member, rb_str_new2("realname"), + rb_str_new2(ptr_server->realname)); + rb_hash_aset (server_hash_member, rb_str_new2("command"), + rb_str_new2(ptr_server->command)); + rb_hash_aset (server_hash_member, rb_str_new2("command_delay"), + INT2FIX(ptr_server->command_delay)); + rb_hash_aset (server_hash_member, rb_str_new2("autojoin"), + rb_str_new2(ptr_server->autojoin)); + rb_hash_aset (server_hash_member, rb_str_new2("autorejoin"), + INT2FIX(ptr_server->autorejoin)); + rb_hash_aset (server_hash_member, rb_str_new2("notify_levels"), + rb_str_new2(ptr_server->notify_levels)); + rb_hash_aset (server_hash_member, rb_str_new2("is_connected"), + INT2FIX(ptr_server->is_connected)); + rb_hash_aset (server_hash_member, rb_str_new2("ssl_connected"), + INT2FIX(ptr_server->ssl_connected)); + rb_hash_aset (server_hash_member, rb_str_new2("nick"), + rb_str_new2(ptr_server->nick)); + rb_hash_aset (server_hash_member, rb_str_new2("nick_modes"), + rb_str_new2(ptr_server->nick_modes)); + rb_hash_aset (server_hash_member, rb_str_new2("away_time"), + rb_str_new2(timebuffer)); + rb_hash_aset (server_hash_member, rb_str_new2("lag"), + INT2FIX(ptr_server->lag)); + + rb_hash_aset (server_hash, rb_str_new2(ptr_server->name), server_hash_member); + } + } + + ruby_plugin->free_server_info(ruby_plugin, server_info); + + return server_hash; +} +*/ + +/* + * weechat_ruby_api_get_channel_info: get infos about channels + */ + +/* +static VALUE +weechat_ruby_api_get_channel_info (VALUE class, VALUE server) +{ + t_plugin_channel_info *channel_info, *ptr_channel; + VALUE channel_hash, channel_hash_member; + char *c_server; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get channel infos, " + "script not initialized"); + return INT2FIX (0); + } + + c_server = NULL; + if (NIL_P (server)) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: wrong parameters for " + "\"get_channel_info\" function"); + return INT2FIX (0); + } + + Check_Type (server, T_STRING); + c_server = STR2CSTR (server); + + if (!c_server) + return INT2FIX (0); + + channel_hash = rb_hash_new (); + if (!channel_hash) + return Qnil; + + channel_info = ruby_plugin->get_channel_info (ruby_plugin, c_server); + if (!channel_info) + return channel_hash; + + for(ptr_channel = channel_info; ptr_channel; ptr_channel = ptr_channel->next_channel) + { + channel_hash_member = rb_hash_new (); + + if (channel_hash_member) + { + rb_hash_aset (channel_hash_member, rb_str_new2("type"), + INT2FIX(ptr_channel->type)); + rb_hash_aset (channel_hash_member, rb_str_new2("topic"), + rb_str_new2(ptr_channel->topic)); + rb_hash_aset (channel_hash_member, rb_str_new2("modes"), + rb_str_new2(ptr_channel->modes)); + rb_hash_aset (channel_hash_member, rb_str_new2("limit"), + INT2FIX(ptr_channel->limit)); + rb_hash_aset (channel_hash_member, rb_str_new2("key"), + rb_str_new2(ptr_channel->key)); + rb_hash_aset (channel_hash_member, rb_str_new2("nicks_count"), + INT2FIX(ptr_channel->nicks_count)); + + rb_hash_aset (channel_hash, rb_str_new2(ptr_channel->name), channel_hash_member); + } + } + + ruby_plugin->free_channel_info(ruby_plugin, channel_info); + + return channel_hash; +} +*/ + +/* + * weechat_ruby_api_get_nick_info: get infos about nicks + */ + +/* +static VALUE +weechat_ruby_api_get_nick_info (VALUE class, VALUE server, VALUE channel) +{ + t_plugin_nick_info *nick_info, *ptr_nick; + VALUE nick_hash, nick_hash_member; + char *c_server, *c_channel; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get channel infos, " + "script not initialized"); + return INT2FIX (0); + } + + c_server = NULL; + c_channel = NULL; + if (NIL_P (server) || NIL_P (channel)) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: wrong parameters for " + "\"get_nick_info\" function"); + return INT2FIX (0); + } + + Check_Type (server, T_STRING); + Check_Type (channel, T_STRING); + + c_server = STR2CSTR (server); + c_channel = STR2CSTR (channel); + + if (!c_server || !c_channel) + return INT2FIX (0); + + nick_hash = rb_hash_new (); + if (!nick_hash) + return Qnil; + + nick_info = ruby_plugin->get_nick_info (ruby_plugin, c_server, c_channel); + if (!nick_info) + return nick_hash; + + for(ptr_nick = nick_info; ptr_nick; ptr_nick = ptr_nick->next_nick) + { + nick_hash_member = rb_hash_new (); + + if (nick_hash_member) + { + rb_hash_aset (nick_hash_member, rb_str_new2("flags"), + INT2FIX(ptr_nick->flags)); + rb_hash_aset (nick_hash_member, rb_str_new2("host"), + rb_str_new2(ptr_nick->host ? ptr_nick->host : "")); + + rb_hash_aset (nick_hash, rb_str_new2(ptr_nick->nick), nick_hash_member); + } + } + + ruby_plugin->free_nick_info(ruby_plugin, nick_info); + + return nick_hash; +} +*/ + +/* + * weechat_ruby_api_get_irc_color: + * get the numeric value which identify an irc color by its name + */ + +/* +static VALUE +weechat_ruby_api_get_irc_color (VALUE class, VALUE color) +{ + char *c_color; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get irc color, " + "script not initialized"); + return INT2FIX (-1); + } + + c_color = NULL; + + if (NIL_P (color)) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: wrong parameters for " + "\"get_irc_color\" function"); + return INT2FIX (-1); + } + + Check_Type (color, T_STRING); + + c_color = STR2CSTR (color); + + return INT2FIX (ruby_plugin->get_irc_color (ruby_plugin, c_color)); +} +*/ + +/* + * weechat_ruby_api_get_window_info: get infos about windows + */ + +/* +static VALUE +weechat_ruby_api_get_window_info (VALUE class) +{ + t_plugin_window_info *window_info, *ptr_win; + VALUE window_list, window_list_member; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get window info, " + "script not initialized"); + return INT2FIX (0); + } + + window_list = rb_ary_new(); + + if (NIL_P (window_list)) + return Qnil; + + window_info = ruby_plugin->get_window_info (ruby_plugin); + if (!window_info) + return window_list; + + for (ptr_win = window_info; ptr_win; ptr_win = ptr_win->next_window) + { + window_list_member = rb_hash_new (); + + if (!NIL_P (window_list_member)) + { + rb_hash_aset (window_list_member, rb_str_new2("num_buffer"), + INT2FIX(ptr_win->num_buffer)); + rb_hash_aset (window_list_member, rb_str_new2("win_x"), + INT2FIX(ptr_win->win_x)); + rb_hash_aset (window_list_member, rb_str_new2("win_y"), + INT2FIX(ptr_win->win_y)); + rb_hash_aset (window_list_member, rb_str_new2("win_width"), + INT2FIX(ptr_win->win_width)); + rb_hash_aset (window_list_member, rb_str_new2("win_height"), + INT2FIX(ptr_win->win_height)); + rb_hash_aset (window_list_member, rb_str_new2("win_width_pct"), + INT2FIX(ptr_win->win_width_pct)); + rb_hash_aset (window_list_member, rb_str_new2("win_height_pct"), + INT2FIX(ptr_win->win_height_pct)); + + rb_ary_push (window_list, window_list_member); + } + } + + ruby_plugin->free_window_info (ruby_plugin, window_info); + + return window_list; +} +*/ + +/* + * weechat_ruby_api_get_buffer_info: get infos about buffers + */ + +/* +static VALUE +weechat_ruby_api_get_buffer_info (VALUE class) +{ + t_plugin_buffer_info *buffer_info, *ptr_buffer; + VALUE buffer_hash, buffer_hash_member; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get buffer info, " + "script not initialized"); + return INT2FIX (0); + } + + buffer_hash = rb_hash_new (); + if (!buffer_hash) + return Qnil; + + buffer_info = ruby_plugin->get_buffer_info (ruby_plugin); + if (!buffer_info) + return buffer_hash; + + for(ptr_buffer = buffer_info; ptr_buffer; ptr_buffer = ptr_buffer->next_buffer) + { + buffer_hash_member = rb_hash_new (); + + if (buffer_hash_member) + { + rb_hash_aset (buffer_hash_member, rb_str_new2("type"), + INT2FIX(ptr_buffer->type)); + rb_hash_aset (buffer_hash_member, rb_str_new2("num_displayed"), + INT2FIX(ptr_buffer->num_displayed)); + rb_hash_aset (buffer_hash_member, rb_str_new2("server"), + rb_str_new2(ptr_buffer->server_name == NULL ? "" : ptr_buffer->server_name)); + rb_hash_aset (buffer_hash_member, rb_str_new2("channel"), + rb_str_new2(ptr_buffer->channel_name == NULL ? "" : ptr_buffer->channel_name)); + rb_hash_aset (buffer_hash_member, rb_str_new2("notify_level"), + INT2FIX(ptr_buffer->notify_level)); + rb_hash_aset (buffer_hash_member, rb_str_new2("log_filename"), + rb_str_new2(ptr_buffer->log_filename == NULL ? "" : ptr_buffer->log_filename)); + + rb_hash_aset (buffer_hash, INT2FIX(ptr_buffer->number), buffer_hash_member); + } + } + + ruby_plugin->free_buffer_info(ruby_plugin, buffer_info); + + return buffer_hash; +} +*/ + +/* + * weechat_ruby_api_get_buffer_data: get buffer content + */ + +/* +static VALUE +weechat_ruby_api_get_buffer_data (VALUE class, VALUE server, VALUE channel) +{ + t_plugin_buffer_line *buffer_data, *ptr_data; + VALUE data_list, data_list_member; + char *c_server, *c_channel; + char timebuffer[64]; + + // make C compiler happy + (void) class; + + if (!ruby_current_script) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: unable to get buffer data, " + "script not initialized"); + return INT2FIX (0); + } + + c_server = NULL; + c_channel = NULL; + + if (NIL_P (server) || NIL_P (channel)) + { + ruby_plugin->print_server (ruby_plugin, + "Ruby error: wrong parameters for " + "\"get_buffer_data\" function"); + return INT2FIX (0); + } + + Check_Type (server, T_STRING); + Check_Type (channel, T_STRING); + + c_server = STR2CSTR (server); + c_channel = STR2CSTR (channel); + + if (!c_server || !c_channel) + return INT2FIX (0); + + data_list = rb_ary_new(); + if (NIL_P (data_list)) + return Qnil; + + buffer_data = ruby_plugin->get_buffer_data (ruby_plugin, c_server, c_channel); + if (!buffer_data) + return data_list; + + for(ptr_data = buffer_data; ptr_data; ptr_data = ptr_data->next_line) + { + data_list_member = rb_hash_new (); + + if (!NIL_P (data_list_member)) + { + strftime(timebuffer, sizeof(timebuffer), "%F %T", + localtime(&ptr_data->date)); + + rb_hash_aset (data_list_member, rb_str_new2("date"), + rb_str_new2(timebuffer)); + rb_hash_aset (data_list_member, rb_str_new2("nick"), + rb_str_new2(ptr_data->nick == NULL ? "" : ptr_data->nick)); + rb_hash_aset (data_list_member, rb_str_new2("data"), + rb_str_new2(ptr_data->data == NULL ? "" : ptr_data->data)); + + rb_ary_push (data_list, data_list_member); + } + } + + ruby_plugin->free_buffer_data (ruby_plugin, buffer_data); + + return data_list; +} +*/ + +/* + * weechat_ruby_api_init: init Ruby API: add variables and functions + */ + +void +weechat_ruby_api_init (VALUE ruby_mWeechat) +{ + rb_define_const(ruby_mWeechat, "WEECHAT_RC_OK", INT2NUM(WEECHAT_RC_OK)); + rb_define_const(ruby_mWeechat, "WEECHAT_RC_ERROR", INT2NUM(WEECHAT_RC_ERROR)); + rb_define_const(ruby_mWeechat, "WEECHAT_RC_OK_IGNORE_WEECHAT", INT2NUM(WEECHAT_RC_OK_IGNORE_WEECHAT)); + rb_define_const(ruby_mWeechat, "WEECHAT_RC_OK_IGNORE_PLUGINS", INT2NUM(WEECHAT_RC_OK_IGNORE_PLUGINS)); + rb_define_const(ruby_mWeechat, "WEECHAT_RC_OK_IGNORE_ALL", INT2NUM(WEECHAT_RC_OK_IGNORE_ALL)); + rb_define_const(ruby_mWeechat, "WEECHAT_RC_OK_WITH_HIGHLIGHT", INT2NUM(WEECHAT_RC_OK_WITH_HIGHLIGHT)); + rb_define_const(ruby_mWeechat, "WEECHAT_LIST_POS_SORT", rb_str_new2(WEECHAT_LIST_POS_SORT)); + rb_define_const(ruby_mWeechat, "WEECHAT_LIST_POS_BEGINNING", rb_str_new2(WEECHAT_LIST_POS_BEGINNING)); + rb_define_const(ruby_mWeechat, "WEECHAT_LIST_POS_END", rb_str_new2(WEECHAT_LIST_POS_END)); + rb_define_const(ruby_mWeechat, "WEECHAT_HOTLIST_LOW", rb_str_new2(WEECHAT_HOTLIST_LOW)); + rb_define_const(ruby_mWeechat, "WEECHAT_HOTLIST_MESSAGE", rb_str_new2(WEECHAT_HOTLIST_MESSAGE)); + rb_define_const(ruby_mWeechat, "WEECHAT_HOTLIST_PRIVATE", rb_str_new2(WEECHAT_HOTLIST_PRIVATE)); + rb_define_const(ruby_mWeechat, "WEECHAT_HOTLIST_HIGHLIGHT", rb_str_new2(WEECHAT_HOTLIST_HIGHLIGHT)); + rb_define_const(ruby_mWeechat, "WEECHAT_HOOK_SIGNAL_STRING", rb_str_new2(WEECHAT_HOOK_SIGNAL_STRING)); + rb_define_const(ruby_mWeechat, "WEECHAT_HOOK_SIGNAL_INT", rb_str_new2(WEECHAT_HOOK_SIGNAL_INT)); + rb_define_const(ruby_mWeechat, "WEECHAT_HOOK_SIGNAL_POINTER", rb_str_new2(WEECHAT_HOOK_SIGNAL_POINTER)); + rb_define_module_function (ruby_mWeechat, "register", &weechat_ruby_api_register, 7); + rb_define_module_function (ruby_mWeechat, "charset_set", &weechat_ruby_api_charset_set, 1); + rb_define_module_function (ruby_mWeechat, "iconv_to_internal", &weechat_ruby_api_iconv_to_internal, 2); + rb_define_module_function (ruby_mWeechat, "iconv_from_internal", &weechat_ruby_api_iconv_from_internal, 2); + rb_define_module_function (ruby_mWeechat, "mkdir_home", &weechat_ruby_api_mkdir_home, 2); + rb_define_module_function (ruby_mWeechat, "mkdir", &weechat_ruby_api_mkdir, 2); + rb_define_module_function (ruby_mWeechat, "prefix", &weechat_ruby_api_prefix, 1); + rb_define_module_function (ruby_mWeechat, "color", &weechat_ruby_api_color, 1); + rb_define_module_function (ruby_mWeechat, "print", &weechat_ruby_api_print, 2); + rb_define_module_function (ruby_mWeechat, "infobar_print", &weechat_ruby_api_infobar_print, 3); + rb_define_module_function (ruby_mWeechat, "infobar_remove", &weechat_ruby_api_infobar_remove, -1); + rb_define_module_function (ruby_mWeechat, "log_print", &weechat_ruby_api_log_print, 1); + rb_define_module_function (ruby_mWeechat, "hook_command", &weechat_ruby_api_hook_command, 6); + rb_define_module_function (ruby_mWeechat, "hook_timer", &weechat_ruby_api_hook_timer, 4); + rb_define_module_function (ruby_mWeechat, "hook_fd", &weechat_ruby_api_hook_fd, 5); + rb_define_module_function (ruby_mWeechat, "hook_print", &weechat_ruby_api_hook_print, 4); + rb_define_module_function (ruby_mWeechat, "hook_signal", &weechat_ruby_api_hook_signal, 2); + rb_define_module_function (ruby_mWeechat, "hook_signal_send", &weechat_ruby_api_hook_signal_send, 3); + rb_define_module_function (ruby_mWeechat, "hook_config", &weechat_ruby_api_hook_config, 3); + rb_define_module_function (ruby_mWeechat, "hook_completion", &weechat_ruby_api_hook_completion, 2); + rb_define_module_function (ruby_mWeechat, "unhook", &weechat_ruby_api_unhook, 1); + rb_define_module_function (ruby_mWeechat, "unhook_all", &weechat_ruby_api_unhook_all, 0); + rb_define_module_function (ruby_mWeechat, "buffer_new", &weechat_ruby_api_buffer_new, 3); + rb_define_module_function (ruby_mWeechat, "buffer_search", &weechat_ruby_api_buffer_search, 2); + rb_define_module_function (ruby_mWeechat, "buffer_close", &weechat_ruby_api_buffer_close, 1); + rb_define_module_function (ruby_mWeechat, "buffer_get", &weechat_ruby_api_buffer_get, 2); + rb_define_module_function (ruby_mWeechat, "buffer_set", &weechat_ruby_api_buffer_set, 3); + rb_define_module_function (ruby_mWeechat, "nicklist_add_group", &weechat_ruby_api_nicklist_add_group, 5); + rb_define_module_function (ruby_mWeechat, "nicklist_search_group", &weechat_ruby_api_nicklist_search_group, 3); + rb_define_module_function (ruby_mWeechat, "nicklist_add_nick", &weechat_ruby_api_nicklist_add_nick, 7); + rb_define_module_function (ruby_mWeechat, "nicklist_search_nick", &weechat_ruby_api_nicklist_search_nick, 3); + rb_define_module_function (ruby_mWeechat, "nicklist_remove_group", &weechat_ruby_api_nicklist_remove_group, 2); + rb_define_module_function (ruby_mWeechat, "nicklist_remove_nick", &weechat_ruby_api_nicklist_remove_nick, 2); + rb_define_module_function (ruby_mWeechat, "nicklist_remove_all", &weechat_ruby_api_nicklist_remove_all, 1); + rb_define_module_function (ruby_mWeechat, "command", &weechat_ruby_api_command, 2); + rb_define_module_function (ruby_mWeechat, "info_get", &weechat_ruby_api_info_get, 1); + //rb_define_module_function (ruby_mWeechat, "get_dcc_info", &weechat_ruby_api_get_dcc_info, 0); + //rb_define_module_function (ruby_mWeechat, "get_config", &weechat_ruby_api_get_config, 1); + //rb_define_module_function (ruby_mWeechat, "set_config", &weechat_ruby_api_set_config, 2); + //rb_define_module_function (ruby_mWeechat, "get_plugin_config", &weechat_ruby_api_get_plugin_config, 1); + //rb_define_module_function (ruby_mWeechat, "set_plugin_config", &weechat_ruby_api_set_plugin_config, 2); + //rb_define_module_function (ruby_mWeechat, "get_server_info", &weechat_ruby_api_get_server_info, 0); + //rb_define_module_function (ruby_mWeechat, "get_channel_info", &weechat_ruby_api_get_channel_info, 1); + //rb_define_module_function (ruby_mWeechat, "get_nick_info", &weechat_ruby_api_get_nick_info, 2); + //rb_define_module_function (ruby_mWeechat, "get_irc_color", &weechat_ruby_api_get_irc_color, 1); + //rb_define_module_function (ruby_mWeechat, "get_window_info", &weechat_ruby_api_get_window_info, 0); + //rb_define_module_function (ruby_mWeechat, "get_buffer_info", &weechat_ruby_api_get_buffer_info, 0); + //rb_define_module_function (ruby_mWeechat, "get_buffer_data", &weechat_ruby_api_get_buffer_data, 2); +} diff --git a/src/plugins/scripts/ruby/weechat-ruby-api.h b/src/plugins/scripts/ruby/weechat-ruby-api.h new file mode 100644 index 000000000..33eaa0ab8 --- /dev/null +++ b/src/plugins/scripts/ruby/weechat-ruby-api.h @@ -0,0 +1,25 @@ +/* + * 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_RUBY_API_H +#define __WEECHAT_RUBY_API_H 1 + +extern void weechat_ruby_api_init (VALUE ruby_mWeechat); + +#endif /* weechat-ruby.h */ diff --git a/src/plugins/scripts/ruby/weechat-ruby.c b/src/plugins/scripts/ruby/weechat-ruby.c new file mode 100644 index 000000000..6e307e7b6 --- /dev/null +++ b/src/plugins/scripts/ruby/weechat-ruby.c @@ -0,0 +1,845 @@ +/* + * 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-ruby.c: Ruby plugin for WeeChat */ + +#undef _ + +#include <ruby.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 "../script.h" +#include "weechat-ruby.h" +#include "weechat-ruby-api.h" + + +WEECHAT_PLUGIN_NAME("ruby"); +WEECHAT_PLUGIN_DESCRIPTION("Ruby plugin for WeeChat"); +WEECHAT_PLUGIN_AUTHOR("FlashCode <flashcode@flashtux.org>"); +WEECHAT_PLUGIN_VERSION("0.1"); +WEECHAT_PLUGIN_LICENSE("GPL"); + +struct t_weechat_plugin *weechat_ruby_plugin = NULL; + +struct t_plugin_script *ruby_scripts = NULL; +struct t_plugin_script *ruby_current_script = NULL; +char *ruby_current_script_filename = NULL; + +VALUE ruby_mWeechat, ruby_mWeechatOutputs; + +#define MOD_NAME_PREFIX "WeechatRubyModule" +int ruby_num = 0; + +char ruby_buffer_output[128]; + +typedef struct protect_call_arg { + VALUE recv; + ID mid; + int argc; + VALUE *argv; +} protect_call_arg_t; + + +/* + * protect_funcall0 : used to protect a function call + */ + +static VALUE +protect_funcall0(VALUE arg) +{ + return rb_funcall2(((protect_call_arg_t *) arg)->recv, + ((protect_call_arg_t *) arg)->mid, + ((protect_call_arg_t *) arg)->argc, + ((protect_call_arg_t *) arg)->argv); +} + +/* + * rb_protect_funcall : function call in protect mode + */ + +VALUE +rb_protect_funcall (VALUE recv, ID mid, int *state, int argc, ...) +{ + va_list ap; + VALUE *argv; + struct protect_call_arg arg; + + if (argc > 0) + { + int i; + argv = ALLOCA_N(VALUE, argc); + va_start(ap, argc); + for (i = 0; i < argc; i++) + argv[i] = va_arg(ap, VALUE); + va_end(ap); + } + else + argv = 0; + arg.recv = recv; + arg.mid = mid; + arg.argc = argc; + arg.argv = argv; + return rb_protect(protect_funcall0, (VALUE) &arg, state); +} + +/* + * weechat_ruby_exec: execute a Ruby script + */ + +void * +weechat_ruby_exec (struct t_plugin_script *script, + int ret_type, char *function, char **argv) +{ + VALUE rc, err; + int ruby_error, *ret_i; + void *ret_value; + + ruby_current_script = script; + + if (argv && argv[0]) + { + if (argv[1]) + { + if (argv[2]) + { + if (argv[3]) + { + if (argv[4]) + { + rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), + &ruby_error, 5, + rb_str_new2(argv[0]), + rb_str_new2(argv[1]), + rb_str_new2(argv[2]), + rb_str_new2(argv[3]), + rb_str_new2(argv[4])); + } + else + rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), + &ruby_error, 4, + rb_str_new2(argv[0]), + rb_str_new2(argv[1]), + rb_str_new2(argv[2]), + rb_str_new2(argv[3])); + } + else + rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), + &ruby_error, 3, + rb_str_new2(argv[0]), + rb_str_new2(argv[1]), + rb_str_new2(argv[2])); + } + else + rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), + &ruby_error, 2, + rb_str_new2(argv[0]), + rb_str_new2(argv[1])); + } + else + rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), + &ruby_error, 1, + rb_str_new2(argv[0])); + } + else + rc = rb_protect_funcall ((VALUE) script->interpreter, rb_intern(function), + &ruby_error, 0); + + if (ruby_error) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: unable to run function \"%s\""), + weechat_prefix ("error"), "ruby", function); + + err = rb_inspect(rb_gv_get("$!")); + weechat_printf (NULL, + weechat_gettext ("%s%s: error: \"%s\""), + weechat_prefix ("error"), "ruby", STR2CSTR(err)); + + return NULL; + } + + if ((TYPE(rc) == T_STRING) && (ret_type == WEECHAT_SCRIPT_EXEC_STRING)) + { + if (STR2CSTR (rc)) + ret_value = strdup (STR2CSTR (rc)); + else + ret_value = NULL; + } + else if ((TYPE(rc) == T_FIXNUM) && (ret_type == WEECHAT_SCRIPT_EXEC_INT)) + { + ret_i = (int *)malloc (sizeof(int)); + if (ret_i) + *ret_i = NUM2INT(rc); + ret_value = ret_i; + } + else + { + weechat_printf (NULL, + weechat_gettext ("%s%s: function \"%s\" must return a " + "valid value"), + weechat_prefix ("error"), "ruby", function); + return WEECHAT_RC_OK; + } + + if (ret_value == NULL) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: not enough memory in function " + "\"%s\""), + weechat_prefix ("error"), "ruby", function); + return NULL; + } + + return ret_value; +} + +/* + * weechat_ruby_output: redirection for stdout and stderr + */ + +static VALUE +weechat_ruby_output (VALUE self, VALUE str) +{ + char *msg, *p, *m; + + /* make C compiler happy */ + (void) self; + + msg = strdup(STR2CSTR(str)); + + m = msg; + while ((p = strchr (m, '\n')) != NULL) + { + *p = '\0'; + if (strlen (m) + strlen (ruby_buffer_output) > 0) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: stdout/stderr : %s%s"), + weechat_prefix ("error"), "ruby", + ruby_buffer_output, m); + } + *p = '\n'; + ruby_buffer_output[0] = '\0'; + m = ++p; + } + + if (strlen(m) + strlen(ruby_buffer_output) > sizeof(ruby_buffer_output)) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: stdout/stderr : %s%s"), + weechat_prefix ("error"), "ruby", + ruby_buffer_output, m); + ruby_buffer_output[0] = '\0'; + } + else + strcat (ruby_buffer_output, m); + + if (msg) + free (msg); + + return Qnil; +} + +/* + * weechat_ruby_output_flush: just for compatibility + */ + +static VALUE +weechat_ruby_output_flush (VALUE self) +{ + /* make C compiler happy */ + (void) self; + + return Qnil; +} + + +/* + * weechat_ruby_load: load a Ruby script + */ + +int +weechat_ruby_load (char *filename) +{ + char modname[64]; + VALUE curModule, ruby_retcode, err; + int ruby_error; + struct stat buf; + + if (stat (filename, &buf) != 0) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: script \"%s\" not found"), + weechat_prefix ("error"), "ruby", filename); + return 0; + } + + weechat_printf (NULL, + weechat_gettext ("%s%s: loading script \"%s\""), + weechat_prefix ("info"), "ruby", filename); + + ruby_current_script = NULL; + + snprintf (modname, sizeof(modname), "%s%d", MOD_NAME_PREFIX, ruby_num); + ruby_num++; + + curModule = rb_define_module(modname); + + ruby_current_script_filename = filename; + + ruby_retcode = rb_protect_funcall (curModule, rb_intern("load_eval_file"), + &ruby_error, 1, rb_str_new2(filename)); + + if (ruby_retcode == Qnil) + { + err = rb_inspect(rb_gv_get("$!")); + weechat_printf (NULL, + weechat_gettext ("%s%s: error: \"%s\""), + weechat_prefix ("error"), "ruby", STR2CSTR(err)); + return 0; + } + + if (NUM2INT(ruby_retcode) != 0) + { + VALUE ruby_eval_error; + + switch (NUM2INT(ruby_retcode)) + { + case 1: + weechat_printf (NULL, + weechat_gettext ("%s%s: unable to read file " + "\"%s\""), + weechat_prefix ("error"), "ruby", filename); + break; + case 2: + weechat_printf (NULL, + weechat_gettext ("%s%s: error while loading " + "file \"%s\""), + weechat_prefix ("error"), "ruby", filename); + break; + case 3: + weechat_printf (NULL, + weechat_gettext ("%s%s: unable to find " + "\"weechat_init\" function " + "in file \"%s\""), + weechat_prefix ("error"), "ruby", filename); + break; + } + + if (NUM2INT(ruby_retcode) == 1 || NUM2INT(ruby_retcode) == 2) + { + ruby_eval_error = rb_iv_get(curModule, "@load_eval_file_error"); + if (ruby_eval_error) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: error: %s"), + weechat_prefix ("error"), "ruby", + STR2CSTR(ruby_eval_error)); + } + } + + return 0; + } + + ruby_retcode = rb_protect_funcall (curModule, rb_intern("weechat_init"), &ruby_error, 0); + + if (ruby_error) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: unable to eval " + "\"weechat_init\" in file \"%s\""), + weechat_prefix ("error"), "ruby", filename); + + err = rb_inspect(rb_gv_get("$!")); + weechat_printf (NULL, + weechat_gettext ("%s%s: error: \"%s\""), + weechat_prefix ("error"), "ruby", STR2CSTR(err)); + + if (ruby_current_script != NULL) + { + script_remove (weechat_ruby_plugin, + &ruby_scripts, ruby_current_script); + } + + return 0; + } + + if (ruby_current_script == NULL) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: function \"register\" not " + "found (or failed) in file \"%s\""), + weechat_prefix ("error"), "ruby", filename); + return 0; + } + + ruby_current_script->interpreter = (VALUE *) curModule; + rb_gc_register_address (ruby_current_script->interpreter); + + return 1; +} + +/* + * weechat_ruby_load_cb: callback for weechat_script_auto_load() function + */ + +int +weechat_ruby_load_cb (void *data, char *filename) +{ + /* make C compiler happy */ + (void) data; + + return weechat_ruby_load (filename); +} + +/* + * weechat_ruby_unload: unload a Ruby script + */ + +void +weechat_ruby_unload (struct t_plugin_script *script) +{ + int *r; + char *ruby_argv[1] = { NULL }; + + weechat_printf (NULL, + weechat_gettext ("%s%s: unloading script \"%s\""), + weechat_prefix ("info"), "ruby", script->name); + + if (script->shutdown_func && script->shutdown_func[0]) + { + r = (int *) weechat_ruby_exec (script, + WEECHAT_SCRIPT_EXEC_INT, + script->shutdown_func, + ruby_argv); + if (r) + free (r); + } + + if (script->interpreter) + rb_gc_unregister_address (script->interpreter); + + script_remove (weechat_ruby_plugin, &ruby_scripts, script); +} + +/* + * weechat_ruby_unload_name: unload a Ruby script by name + */ + +void +weechat_ruby_unload_name (char *name) +{ + struct t_plugin_script *ptr_script; + + ptr_script = script_search (weechat_ruby_plugin, ruby_scripts, name); + if (ptr_script) + { + weechat_ruby_unload (ptr_script); + weechat_printf (NULL, + weechat_gettext ("%s%s: script \"%s\" unloaded"), + weechat_prefix ("info"), "ruby", name); + } + else + { + weechat_printf (NULL, + weechat_gettext ("%s%s: script \"%s\" not loaded"), + weechat_prefix ("error"), "ruby", name); + } +} + +/* + * weechat_ruby_unload_all: unload all Ruby scripts + */ + +void +weechat_ruby_unload_all () +{ + while (ruby_scripts) + { + weechat_ruby_unload (ruby_scripts); + } +} + +/* + * weechat_ruby_command_cb: callback for "/ruby" command + */ + +int +weechat_ruby_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; + //t_plugin_handler *ptr_handler; + //t_plugin_modifier *ptr_modifier; + + /* make C compiler happy */ + (void) data; + (void) buffer; + + if (argc == 1) + { + /* list registered Ruby scripts */ + weechat_printf (NULL, ""); + weechat_printf (NULL, + weechat_gettext ("Registered %s scripts:"), + "ruby"); + if (ruby_scripts) + { + for (ptr_script = ruby_scripts; ptr_script; + ptr_script = ptr_script->next_script) + { + weechat_printf (NULL, + weechat_gettext (" %s v%s (%s), by %s, " + "license %s"), + ptr_script->name, + ptr_script->version, + ptr_script->description, + ptr_script->author, + ptr_script->license); + } + } + else + weechat_printf (NULL, weechat_gettext (" (none)")); + + /* + // list Ruby message handlers + plugin->print_server (plugin, ""); + plugin->print_server (plugin, "Ruby 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) => Ruby(%s)", + ptr_handler->irc_command, + ptr_handler->handler_args); + } + } + if (!handler_found) + plugin->print_server (plugin, " (none)"); + + // list Ruby command handlers + plugin->print_server (plugin, ""); + plugin->print_server (plugin, "Ruby 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 => Ruby(%s)", + ptr_handler->command, + ptr_handler->handler_args); + } + } + if (!handler_found) + plugin->print_server (plugin, " (none)"); + + // list Ruby timer handlers + plugin->print_server (plugin, ""); + plugin->print_server (plugin, "Ruby 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 => Ruby(%s)", + ptr_handler->interval, + ptr_handler->handler_args); + } + } + if (!handler_found) + plugin->print_server (plugin, " (none)"); + + // list Ruby keyboard handlers + plugin->print_server (plugin, ""); + plugin->print_server (plugin, "Ruby 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, " Ruby(%s)", + ptr_handler->handler_args); + } + } + if (!handler_found) + plugin->print_server (plugin, " (none)"); + + // list Ruby event handlers + plugin->print_server (plugin, ""); + plugin->print_server (plugin, "Ruby 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 => Ruby(%s)", + ptr_handler->event, + ptr_handler->handler_args); + } + } + if (!handler_found) + plugin->print_server (plugin, " (none)"); + + // list Ruby modifiers + plugin->print_server (plugin, ""); + plugin->print_server (plugin, "Ruby 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) => Ruby(%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) => Ruby(%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) => Ruby(%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) + { + script_auto_load (weechat_ruby_plugin, + "ruby", &weechat_ruby_load_cb); + } + else if (weechat_strcasecmp (argv[1], "reload") == 0) + { + weechat_ruby_unload_all (); + script_auto_load (weechat_ruby_plugin, + "ruby", &weechat_ruby_load_cb); + } + else if (weechat_strcasecmp (argv[1], "unload") == 0) + { + weechat_ruby_unload_all (); + } + } + else + { + if (weechat_strcasecmp (argv[1], "load") == 0) + { + /* load Ruby script */ + path_script = script_search_full_name (weechat_ruby_plugin, + "ruby", argv_eol[2]); + weechat_ruby_load ((path_script) ? path_script : argv_eol[2]); + if (path_script) + free (path_script); + } + else if (weechat_strcasecmp (argv[1], "unload") == 0) + { + /* unload Ruby script */ + weechat_ruby_unload_name (argv_eol[2]); + } + else + { + weechat_printf (NULL, + weechat_gettext ("%s%s: unknown option for " + "command \"%s\""), + weechat_prefix ("error"), "ruby", "ruby"); + } + } + + return WEECHAT_RC_OK; +} + +/* + * weechat_ruby_dump_data_cb: dump Ruby plugin data in WeeChat log file + */ + +int +weechat_ruby_dump_data_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; + + script_print_log (weechat_ruby_plugin, ruby_scripts); + + return WEECHAT_RC_OK; +} + +/* + * weechat_plugin_init: initialize Ruby plugin + */ + +int +weechat_plugin_init (struct t_weechat_plugin *plugin) +{ + int ruby_error; + char *weechat_ruby_code = + { + "$stdout = WeechatOutputs\n" + "$stderr = WeechatOutputs\n" + "\n" + "class Module\n" + " @load_eval_file_error = ''\n" + "\n" + " def load_eval_file (file)\n" + " lines = ''\n" + " begin\n" + " f = File.open(file, 'r')\n" + " lines = f.readlines.join\n" + " rescue => e\n" + " @load_eval_file_error = e\n" + " return 1\n" + " end\n" + "\n" + " begin\n" + " module_eval(lines)\n" + " rescue => e\n" + " @load_eval_file_error = e\n" + " return 2\n" + " end\n" + "\n" + " has_init = false\n" + "\n" + " instance_methods.each do |meth|\n" + " if meth == 'weechat_init'\n" + " has_init = true\n" + " end\n" + " module_eval('module_function :' + meth)\n" + " end\n" + "\n" + " unless has_init\n" + " return 3\n" + " end\n" + "\n" + " return 0\n" + " end\n" + "end\n" + }; + + weechat_ruby_plugin = plugin; + + ruby_error = 0; + + /* init stdout/stderr buffer */ + ruby_buffer_output[0] = '\0'; + + ruby_init (); + ruby_init_loadpath (); + ruby_script ("__weechat_plugin__"); + + ruby_mWeechat = rb_define_module("Weechat"); + weechat_ruby_api_init (ruby_mWeechat); + + /* redirect stdin and stdout */ + ruby_mWeechatOutputs = rb_define_module("WeechatOutputs"); + rb_define_singleton_method(ruby_mWeechatOutputs, "write", weechat_ruby_output, 1); + rb_define_singleton_method(ruby_mWeechatOutputs, "puts", weechat_ruby_output, 1); + rb_define_singleton_method(ruby_mWeechatOutputs, "p", weechat_ruby_output, 1); + rb_define_singleton_method(ruby_mWeechatOutputs, "flush", weechat_ruby_output_flush, 0); + + rb_eval_string_protect(weechat_ruby_code, &ruby_error); + if (ruby_error) + { + VALUE ruby_error_info = rb_inspect(ruby_errinfo); + weechat_printf (NULL, + weechat_gettext ("%s%s: unable to eval weechat ruby " + "internal code"), + weechat_prefix ("error"), "ruby"); + weechat_printf (NULL, + weechat_gettext ("%s%s: error: %s"), + weechat_prefix ("error"), "ruby", + STR2CSTR(ruby_error_info)); + return WEECHAT_RC_ERROR; + } + + weechat_hook_command ("ruby", + weechat_gettext ("list/load/unload Ruby scripts"), + weechat_gettext ("[load filename] | [autoload] | " + "[reload] | [unload [script]]"), + weechat_gettext ("filename: Ruby script (file) to " + "load\n" + "script: script name to unload\n\n" + "Without argument, /ruby command " + "lists all loaded Ruby scripts."), + "load|autoload|reload|unload %f", + &weechat_ruby_command_cb, NULL); + + weechat_mkdir_home ("ruby", 0644); + weechat_mkdir_home ("ruby/autoload", 0644); + + weechat_hook_signal ("dump_data", &weechat_ruby_dump_data_cb, NULL); + + script_init (weechat_ruby_plugin); + script_auto_load (weechat_ruby_plugin, + "ruby", &weechat_ruby_load_cb); + + /* init ok */ + return WEECHAT_RC_OK; +} + +/* + * weechat_plugin_end: shutdown Ruby interface + */ + +void +weechat_plugin_end (struct t_weechat_plugin *plugin) +{ + /* make C compiler happy */ + (void) plugin; + + /* unload all scripts */ + weechat_ruby_unload_all (); + + ruby_finalize(); +} diff --git a/src/plugins/scripts/ruby/weechat-ruby.h b/src/plugins/scripts/ruby/weechat-ruby.h new file mode 100644 index 000000000..db07bd5be --- /dev/null +++ b/src/plugins/scripts/ruby/weechat-ruby.h @@ -0,0 +1,34 @@ +/* + * 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_RUBY_H +#define __WEECHAT_RUBY_H 1 + +#define weechat_plugin weechat_ruby_plugin + +extern struct t_weechat_plugin *weechat_ruby_plugin; + +extern struct t_plugin_script *ruby_scripts; +extern struct t_plugin_script *ruby_current_script; +extern char *ruby_current_script_filename; + +extern void * weechat_ruby_exec (struct t_plugin_script *script, + int ret_type, char *function, char **argv); + +#endif /* weechat-perl.h */ |