/* * Copyright (c) 2003-2008 by FlashCode * 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 . */ /* weechat-perl-api.c: Perl API functions */ #undef _ #include #include #include #include "../../weechat-plugin.h" #include "../script.h" #include "../script-api.h" #include "../script-callback.h" #include "weechat-perl.h" #define PERL_RETURN_OK XSRETURN_YES #define PERL_RETURN_ERROR XSRETURN_NO #define PERL_RETURN_EMPTY XSRETURN_EMPTY #define PERL_RETURN_STRING(__string) \ if (__string) \ { \ XST_mPV (0, __string); \ XSRETURN (1); \ } \ XST_mPV (0, ""); \ XSRETURN (1) #define PERL_RETURN_STRING_FREE(__string) \ if (__string) \ { \ XST_mPV (0, __string); \ free (__string); \ XSRETURN (1); \ } \ XST_mPV (0, ""); \ XSRETURN (1) #define PERL_RETURN_INT(__int) \ XST_mIV (0, __int); \ XSRETURN (1); extern void boot_DynaLoader (pTHX_ CV* cv); /* * weechat::register: startup function for all WeeChat Perl scripts */ static XS (XS_weechat_register) { char *name, *author, *version, *license, *description, *shutdown_func; char *charset; dXSARGS; /* make C compiler happy */ (void) items; (void) cv; perl_current_script = NULL; if (items < 7) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("register"); PERL_RETURN_ERROR; } name = SvPV (ST (0), PL_na); author = SvPV (ST (1), PL_na); version = SvPV (ST (2), PL_na); license = SvPV (ST (3), PL_na); description = SvPV (ST (4), PL_na); shutdown_func = SvPV (ST (5), PL_na); charset = SvPV (ST (6), PL_na); if (script_search (weechat_perl_plugin, perl_scripts, name)) { /* error: another script already exists with this name! */ weechat_printf (NULL, weechat_gettext ("%s%s: unable to register script " "\"%s\" (another script already " "exists with this name)"), weechat_prefix ("error"), "perl", name); PERL_RETURN_ERROR; } /* register script */ perl_current_script = script_add (weechat_perl_plugin, &perl_scripts, (perl_current_script_filename) ? perl_current_script_filename : "", name, author, version, license, description, shutdown_func, charset); if (perl_current_script) { weechat_printf (NULL, weechat_gettext ("%s%s: registered script \"%s\", " "version %s (%s)"), weechat_prefix ("info"), "perl", name, version, description); } else { PERL_RETURN_ERROR; } PERL_RETURN_OK; } /* * weechat::charser_set: set script charset */ static XS (XS_weechat_charset_set) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("charset_set"); PERL_RETURN_ERROR; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("charset_set"); PERL_RETURN_ERROR; } script_api_charset_set (perl_current_script, SvPV (ST (0), PL_na)); /* charset */ PERL_RETURN_OK; } /* * weechat::iconv_to_internal: convert string to internal WeeChat charset */ static XS (XS_weechat_iconv_to_internal) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("iconv_to_internal"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("iconv_to_internal"); PERL_RETURN_EMPTY; } result = weechat_iconv_to_internal (SvPV (ST (0), PL_na), /* charset */ SvPV (ST (1), PL_na)); /* string */ PERL_RETURN_STRING_FREE(result); } /* * weechat::iconv_from_internal: convert string from WeeChat inernal charset * to another one */ static XS (XS_weechat_iconv_from_internal) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("iconv_from_internal"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("iconv_from_internal"); PERL_RETURN_EMPTY; } result = weechat_iconv_from_internal (SvPV (ST (0), PL_na), /* charset */ SvPV (ST (1), PL_na)); /* string */ PERL_RETURN_STRING_FREE(result); } /* * weechat::gettext: get translated string */ static XS (XS_weechat_gettext) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("gettext"); PERL_RETURN_EMPTY; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("gettext"); PERL_RETURN_EMPTY; } result = weechat_gettext (SvPV (ST (0), PL_na)); /* string */ PERL_RETURN_STRING(result); } /* * weechat::ngettext: get translated string with plural form */ static XS (XS_weechat_ngettext) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("ngettext"); PERL_RETURN_EMPTY; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("ngettext"); PERL_RETURN_EMPTY; } result = weechat_ngettext (SvPV (ST (0), PL_na), /* single */ SvPV (ST (1), PL_na), /* plural */ SvIV (ST (2))); /* count */ PERL_RETURN_STRING(result); } /* * weechat::mkdir_home: create a directory in WeeChat home */ static XS (XS_weechat_mkdir_home) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("mkdir_home"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("mkdir_home"); PERL_RETURN_ERROR; } if (weechat_mkdir_home (SvPV (ST (0), PL_na), /* directory */ SvIV (ST (1)))) /* mode */ PERL_RETURN_OK; PERL_RETURN_ERROR; } /* * weechat::mkdir: create a directory */ static XS (XS_weechat_mkdir) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("mkdir"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("mkdir"); PERL_RETURN_ERROR; } if (weechat_mkdir (SvPV (ST (0), PL_na), /* directory */ SvIV (ST (1)))) /* mode */ PERL_RETURN_OK; PERL_RETURN_ERROR; } /* * weechat::list_new: create a new list */ static XS (XS_weechat_list_new) { char *result; dXSARGS; /* make C compiler happy */ (void) items; (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_new"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_list_new ()); PERL_RETURN_STRING_FREE(result); } /* * weechat::list_add: add a string to list */ static XS (XS_weechat_list_add) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_add"); PERL_RETURN_EMPTY; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_add"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_list_add (script_str2ptr (SvPV (ST (0), PL_na)), /* weelist */ SvPV (ST (1), PL_na), /* data */ SvPV (ST (2), PL_na))); /* where */ PERL_RETURN_STRING_FREE(result); } /* * weechat::list_search: search a string in list */ static XS (XS_weechat_list_search) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_search"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_search"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_list_search (script_str2ptr (SvPV (ST (0), PL_na)), /* weelist */ SvPV (ST (1), PL_na))); /* data */ PERL_RETURN_STRING_FREE(result); } /* * weechat::list_casesearch: search a string in list (ignore case) */ static XS (XS_weechat_list_casesearch) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_casesearch"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_casesearch"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_list_casesearch (script_str2ptr (SvPV (ST (0), PL_na)), /* weelist */ SvPV (ST (1), PL_na))); /* data */ PERL_RETURN_STRING_FREE(result); } /* * weechat::list_get: get item by position */ static XS (XS_weechat_list_get) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_get"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_get"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_list_get (script_str2ptr (SvPV (ST (0), PL_na)), /* weelist */ SvIV (ST (1)))); /* position */ PERL_RETURN_STRING_FREE(result); } /* * weechat::list_set: set new value for item */ static XS (XS_weechat_list_set) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_set"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_set"); PERL_RETURN_ERROR; } weechat_list_set (script_str2ptr (SvPV (ST (0), PL_na)), /* item */ SvPV (ST (1), PL_na)); /* new_value */ PERL_RETURN_OK; } /* * weechat::list_next: get next item */ static XS (XS_weechat_list_next) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_next"); PERL_RETURN_EMPTY; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_next"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_list_next (script_str2ptr (SvPV (ST (0), PL_na)))); /* item */ PERL_RETURN_STRING_FREE(result); } /* * weechat::list_prev: get previous item */ static XS (XS_weechat_list_prev) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_prev"); PERL_RETURN_EMPTY; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_prev"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_list_prev (script_str2ptr (SvPV (ST (0), PL_na)))); /* item */ PERL_RETURN_STRING_FREE(result); } /* * weechat::list_string: get string value of item */ static XS (XS_weechat_list_string) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_string"); PERL_RETURN_EMPTY; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_string"); PERL_RETURN_EMPTY; } result = weechat_list_string (script_str2ptr (SvPV (ST (0), PL_na))); /* item */ PERL_RETURN_STRING(result); } /* * weechat::list_size: get number of elements in list */ static XS (XS_weechat_list_size) { int size; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_size"); PERL_RETURN_INT(0); } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_size"); PERL_RETURN_INT(0); } size = weechat_list_size (script_str2ptr (SvPV (ST (0), PL_na))); /* weelist */ PERL_RETURN_INT(size); } /* * weechat::list_remove: remove item from list */ static XS (XS_weechat_list_remove) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_remove"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_remove"); PERL_RETURN_ERROR; } weechat_list_remove (script_str2ptr (SvPV (ST (0), PL_na)), /* weelist */ script_str2ptr (SvPV (ST (1), PL_na))); /* item */ PERL_RETURN_OK; } /* * weechat::list_remove_all: remove all items from list */ static XS (XS_weechat_list_remove_all) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_remove_all"); PERL_RETURN_ERROR; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_remove_all"); PERL_RETURN_ERROR; } weechat_list_remove_all (script_str2ptr (SvPV (ST (0), PL_na))); /* weelist */ PERL_RETURN_OK; } /* * weechat::list_free: free list */ static XS (XS_weechat_list_free) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_free"); PERL_RETURN_ERROR; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_free"); PERL_RETURN_ERROR; } weechat_list_free (script_str2ptr (SvPV (ST (0), PL_na))); /* weelist */ PERL_RETURN_OK; } /* * weechat::prefix: get a prefix, used for display */ static XS (XS_weechat_prefix) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("prefix"); PERL_RETURN_EMPTY; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("prefix"); PERL_RETURN_EMPTY; } result = weechat_prefix (SvPV (ST (0), PL_na)); PERL_RETURN_STRING(result); } /* * weechat::color: get a color code, used for display */ static XS (XS_weechat_color) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("color"); PERL_RETURN_EMPTY; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("color"); PERL_RETURN_EMPTY; } result = weechat_color (SvPV (ST (0), PL_na)); PERL_RETURN_STRING(result); } /* * weechat::print: print message in a buffer */ static XS (XS_weechat_print) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("print"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("print"); PERL_RETURN_ERROR; } script_api_printf (weechat_perl_plugin, perl_current_script, script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ "%s", SvPV (ST (1), PL_na)); /* message */ PERL_RETURN_OK; } /* * weechat::infobar_print: print message to infobar */ static XS (XS_weechat_infobar_print) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infobar_print"); PERL_RETURN_ERROR; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infobar_print"); PERL_RETURN_ERROR; } script_api_infobar_printf (weechat_perl_plugin, perl_current_script, SvIV (ST (0)), /* delay */ SvPV (ST (1), PL_na), /* color */ "%s", SvPV (ST (1), PL_na)); /* message */ PERL_RETURN_OK; } /* * weechat::infobar_remove: remove message(s) from infobar */ static XS (XS_weechat_infobar_remove) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infobar_remove"); PERL_RETURN_ERROR; } weechat_infobar_remove ((items >= 1) ? SvIV (ST (0)) : 0); PERL_RETURN_OK; } /* * weechat::log_print: print message in WeeChat log file */ static XS (XS_weechat_log_print) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("log_print"); PERL_RETURN_ERROR; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("log_print"); PERL_RETURN_ERROR; } script_api_log_printf (weechat_perl_plugin, perl_current_script, "%s", SvPV (ST (0), PL_na)); /* message */ PERL_RETURN_OK; } /* * weechat_perl_api_hook_command_cb: callback for command hooked */ int weechat_perl_api_hook_command_cb (void *data, struct t_gui_buffer *buffer, int argc, char **argv, char **argv_eol) { struct t_script_callback *script_callback; char *perl_argv[3], empty_arg[1] = { '\0' }; int *rc, ret; /* make C compiler happy */ (void) argv; script_callback = (struct t_script_callback *)data; perl_argv[0] = script_ptr2str (buffer); perl_argv[1] = (argc > 1) ? argv_eol[1] : empty_arg; perl_argv[2] = NULL; rc = (int *) weechat_perl_exec (script_callback->script, WEECHAT_SCRIPT_EXEC_INT, script_callback->function, perl_argv); if (!rc) ret = WEECHAT_RC_ERROR; else { ret = *rc; free (rc); } if (perl_argv[0]) free (perl_argv[0]); return ret; } /* * weechat::hook_command: hook a command */ static XS (XS_weechat_hook_command) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_command"); PERL_RETURN_EMPTY; } if (items < 6) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_command"); PERL_RETURN_EMPTY; } result = script_ptr2str (script_api_hook_command (weechat_perl_plugin, perl_current_script, SvPV (ST (0), PL_na), /* command */ SvPV (ST (1), PL_na), /* description */ SvPV (ST (2), PL_na), /* args */ SvPV (ST (3), PL_na), /* args_description */ SvPV (ST (4), PL_na), /* completion */ &weechat_perl_api_hook_command_cb, SvPV (ST (5), PL_na))); /* perl function */ PERL_RETURN_STRING_FREE(result); } /* * weechat_perl_api_hook_timer_cb: callback for timer hooked */ int weechat_perl_api_hook_timer_cb (void *data) { struct t_script_callback *script_callback; char *perl_argv[1] = { NULL }; int *rc, ret; script_callback = (struct t_script_callback *)data; rc = (int *) weechat_perl_exec (script_callback->script, WEECHAT_SCRIPT_EXEC_INT, script_callback->function, perl_argv); if (!rc) ret = WEECHAT_RC_ERROR; else { ret = *rc; free (rc); } return ret; } /* * weechat::hook_timer: hook a timer */ static XS (XS_weechat_hook_timer) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_timer"); PERL_RETURN_EMPTY; } if (items < 4) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_timer"); PERL_RETURN_EMPTY; } result = script_ptr2str (script_api_hook_timer (weechat_perl_plugin, perl_current_script, SvIV (ST (0)), /* interval */ SvIV (ST (1)), /* align_second */ SvIV (ST (2)), /* max_calls */ &weechat_perl_api_hook_timer_cb, SvPV (ST (3), PL_na))); /* perl function */ PERL_RETURN_STRING_FREE(result); } /* * weechat_perl_api_hook_fd_cb: callback for fd hooked */ int weechat_perl_api_hook_fd_cb (void *data) { struct t_script_callback *script_callback; char *perl_argv[1] = { NULL }; int *rc, ret; script_callback = (struct t_script_callback *)data; rc = (int *) weechat_perl_exec (script_callback->script, WEECHAT_SCRIPT_EXEC_INT, script_callback->function, perl_argv); if (!rc) ret = WEECHAT_RC_ERROR; else { ret = *rc; free (rc); } return ret; } /* * weechat::hook_fd: hook a fd */ static XS (XS_weechat_hook_fd) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_fd"); PERL_RETURN_EMPTY; } if (items < 5) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_fd"); PERL_RETURN_EMPTY; } result = script_ptr2str (script_api_hook_fd (weechat_perl_plugin, perl_current_script, SvIV (ST (0)), /* fd */ SvIV (ST (1)), /* read */ SvIV (ST (2)), /* write */ SvIV (ST (3)), /* exception */ &weechat_perl_api_hook_fd_cb, SvPV (ST (4), PL_na))); /* perl function */ PERL_RETURN_STRING_FREE(result); } /* * weechat_perl_api_hook_print_cb: callback for print hooked */ int weechat_perl_api_hook_print_cb (void *data, struct t_gui_buffer *buffer, time_t date, char *prefix, char *message) { struct t_script_callback *script_callback; char *perl_argv[5]; static char timebuffer[64]; int *rc, ret; script_callback = (struct t_script_callback *)data; snprintf (timebuffer, sizeof (timebuffer) - 1, "%ld", date); perl_argv[0] = script_ptr2str (buffer); perl_argv[1] = timebuffer; perl_argv[2] = prefix; perl_argv[3] = message; perl_argv[4] = NULL; rc = (int *) weechat_perl_exec (script_callback->script, WEECHAT_SCRIPT_EXEC_INT, script_callback->function, perl_argv); if (!rc) ret = WEECHAT_RC_ERROR; else { ret = *rc; free (rc); } if (perl_argv[0]) free (perl_argv[0]); return ret; } /* * weechat::hook_print: hook a print */ static XS (XS_weechat_hook_print) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_print"); PERL_RETURN_EMPTY; } if (items < 4) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_print"); PERL_RETURN_EMPTY; } result = script_ptr2str (script_api_hook_print (weechat_perl_plugin, perl_current_script, script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ SvPV (ST (1), PL_na), /* message */ SvIV (ST (2)), /* strip_colors */ &weechat_perl_api_hook_print_cb, SvPV (ST (3), PL_na))); /* perl function */ PERL_RETURN_STRING_FREE(result); } /* * weechat_perl_api_hook_signal_cb: callback for signal hooked */ int weechat_perl_api_hook_signal_cb (void *data, char *signal, char *type_data, void *signal_data) { struct t_script_callback *script_callback; char *perl_argv[3]; static char value_str[64]; int *rc, ret, free_needed; script_callback = (struct t_script_callback *)data; perl_argv[0] = signal; free_needed = 0; if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0) { perl_argv[1] = (char *)signal_data; } else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_INT) == 0) { snprintf (value_str, sizeof (value_str) - 1, "%d", *((int *)signal_data)); perl_argv[1] = value_str; } else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0) { perl_argv[1] = script_ptr2str (signal_data); free_needed = 1; } else perl_argv[1] = NULL; perl_argv[2] = NULL; rc = (int *) weechat_perl_exec (script_callback->script, WEECHAT_SCRIPT_EXEC_INT, script_callback->function, perl_argv); if (!rc) ret = WEECHAT_RC_ERROR; else { ret = *rc; free (rc); } if (free_needed && perl_argv[1]) free (perl_argv[1]); return ret; } /* * weechat::hook_signal: hook a signal */ static XS (XS_weechat_hook_signal) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_signal"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_signal"); PERL_RETURN_EMPTY; } result = script_ptr2str (script_api_hook_signal (weechat_perl_plugin, perl_current_script, SvPV (ST (0), PL_na), /* signal */ &weechat_perl_api_hook_signal_cb, SvPV (ST (1), PL_na))); /* perl function */ PERL_RETURN_STRING_FREE(result); } /* * weechat::hook_signal_send: send a signal */ static XS (XS_weechat_hook_signal_send) { char *type_data; int number; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_signal_send"); PERL_RETURN_ERROR; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_signal_send"); PERL_RETURN_ERROR; } type_data = SvPV (ST (1), PL_na); if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0) { weechat_hook_signal_send (SvPV (ST (0), PL_na), /* signal */ type_data, SvPV (ST (2), PL_na)); /* signal_data */ PERL_RETURN_OK; } else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_INT) == 0) { number = SvIV(ST (2)); weechat_hook_signal_send (SvPV (ST (0), PL_na), /* signal */ type_data, &number); /* signal_data */ PERL_RETURN_OK; } else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0) { weechat_hook_signal_send (SvPV (ST (0), PL_na), /* signal */ type_data, script_str2ptr (SvPV (ST (2), PL_na))); /* signal_data */ PERL_RETURN_OK; } PERL_RETURN_ERROR; } /* * weechat_perl_api_hook_config_cb: callback for config option hooked */ int weechat_perl_api_hook_config_cb (void *data, char *type, char *option, char *value) { struct t_script_callback *script_callback; char *perl_argv[4]; int *rc, ret; script_callback = (struct t_script_callback *)data; perl_argv[0] = type; perl_argv[1] = option; perl_argv[2] = value; perl_argv[3] = NULL; rc = (int *) weechat_perl_exec (script_callback->script, WEECHAT_SCRIPT_EXEC_INT, script_callback->function, perl_argv); if (!rc) ret = WEECHAT_RC_ERROR; else { ret = *rc; free (rc); } return ret; } /* * weechat::hook_config: hook a config option */ static XS (XS_weechat_hook_config) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_config"); PERL_RETURN_EMPTY; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_config"); PERL_RETURN_EMPTY; } result = script_ptr2str (script_api_hook_config (weechat_perl_plugin, perl_current_script, SvPV (ST (0), PL_na), /* type */ SvPV (ST (1), PL_na), /* option */ &weechat_perl_api_hook_config_cb, SvPV (ST (2), PL_na))); /* perl function */ PERL_RETURN_STRING_FREE(result); } /* * weechat_perl_api_hook_completion_cb: callback for completion hooked */ int weechat_perl_api_hook_completion_cb (void *data, char *completion, struct t_gui_buffer *buffer, struct t_weelist *list) { struct t_script_callback *script_callback; char *perl_argv[4]; int *rc, ret; script_callback = (struct t_script_callback *)data; perl_argv[0] = completion; perl_argv[1] = script_ptr2str (buffer); perl_argv[2] = script_ptr2str (list); perl_argv[3] = NULL; rc = (int *) weechat_perl_exec (script_callback->script, WEECHAT_SCRIPT_EXEC_INT, script_callback->function, perl_argv); if (!rc) ret = WEECHAT_RC_ERROR; else { ret = *rc; free (rc); } if (perl_argv[1]) free (perl_argv[1]); if (perl_argv[2]) free (perl_argv[2]); return ret; } /* * weechat::hook_completion: hook a completion */ static XS (XS_weechat_hook_completion) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_completion"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_completion"); PERL_RETURN_EMPTY; } result = script_ptr2str (script_api_hook_completion (weechat_perl_plugin, perl_current_script, SvPV (ST (0), PL_na), /* completion */ &weechat_perl_api_hook_completion_cb, SvPV (ST (1), PL_na))); /* perl function */ PERL_RETURN_STRING_FREE(result); } /* * weechat::unhook: unhook something */ static XS (XS_weechat_unhook) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("unhook"); PERL_RETURN_ERROR; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("unhook"); PERL_RETURN_ERROR; } if (script_api_unhook (weechat_perl_plugin, perl_current_script, script_str2ptr (SvPV (ST (0), PL_na)))) PERL_RETURN_OK; PERL_RETURN_ERROR; } /* * weechat::unhook_all: unhook all for script */ static XS (XS_weechat_unhook_all) { dXSARGS; /* make C compiler happy */ (void) cv; (void) items; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("unhook_all"); PERL_RETURN_ERROR; } script_api_unhook_all (weechat_perl_plugin, perl_current_script); PERL_RETURN_OK; } /* * weechat_perl_api_input_data_cb: callback for input data in a buffer */ int weechat_perl_api_input_data_cb (void *data, struct t_gui_buffer *buffer, char *input_data) { struct t_script_callback *script_callback; char *perl_argv[3]; int *r, ret; script_callback = (struct t_script_callback *)data; perl_argv[0] = script_ptr2str (buffer); perl_argv[1] = input_data; perl_argv[2] = NULL; r = (int *) weechat_perl_exec (script_callback->script, WEECHAT_SCRIPT_EXEC_INT, script_callback->function, perl_argv); if (!r) ret = WEECHAT_RC_ERROR; else { ret = *r; free (r); } if (perl_argv[0]) free (perl_argv[0]); return ret; } /* * weechat::buffer_new: create a new buffer */ static XS (XS_weechat_buffer_new) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_new"); PERL_RETURN_EMPTY; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_new"); PERL_RETURN_EMPTY; } result = script_ptr2str (script_api_buffer_new (weechat_perl_plugin, perl_current_script, SvPV (ST (0), PL_na), /* category */ SvPV (ST (1), PL_na), /* name */ &weechat_perl_api_input_data_cb, SvPV (ST (2), PL_na))); /* perl function */ PERL_RETURN_STRING_FREE(result); } /* * weechat::buffer_search: search a buffer */ static XS (XS_weechat_buffer_search) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_search"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_search"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_buffer_search (SvPV (ST (0), PL_na), /* category */ SvPV (ST (1), PL_na))); /* name */ PERL_RETURN_STRING_FREE(result); } /* * weechat::buffer_close: close a buffer */ static XS (XS_weechat_buffer_close) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_close"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_close"); PERL_RETURN_ERROR; } script_api_buffer_close (weechat_perl_plugin, perl_current_script, script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ SvIV (ST (1))); /* switch_to_another */ PERL_RETURN_OK; } /* * weechat::buffer_get: get a buffer property */ static XS (XS_weechat_buffer_get) { char *value; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_get"); PERL_RETURN_EMPTY; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_get"); PERL_RETURN_EMPTY; } value = weechat_buffer_get (script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ SvPV (ST (1), PL_na)); /* property */ PERL_RETURN_STRING(value); } /* * weechat::buffer_set: set a buffer property */ static XS (XS_weechat_buffer_set) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_set"); PERL_RETURN_ERROR; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_set"); PERL_RETURN_ERROR; } weechat_buffer_set (script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ SvPV (ST (1), PL_na), /* property */ SvPV (ST (2), PL_na)); /* value */ PERL_RETURN_OK; } /* * weechat::nicklist_add_group: add a group in nicklist */ static XS (XS_weechat_nicklist_add_group) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_add_group"); PERL_RETURN_EMPTY; } if (items < 5) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_add_group"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_nicklist_add_group (script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ script_str2ptr (SvPV (ST (1), PL_na)), /* parent_group */ SvPV (ST (2), PL_na), /* name */ SvPV (ST (3), PL_na), /* color */ SvIV (ST (4)))); /* visible */ PERL_RETURN_STRING_FREE(result); } /* * weechat::nicklist_search_group: search a group in nicklist */ static XS (XS_weechat_nicklist_search_group) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_search_group"); PERL_RETURN_EMPTY; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_search_group"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_nicklist_search_group (script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ script_str2ptr (SvPV (ST (1), PL_na)), /* from_group */ SvPV (ST (2), PL_na))); /* name */ PERL_RETURN_STRING_FREE(result); } /* * weechat::nicklist_add_nick: add a nick in nicklist */ static XS (XS_weechat_nicklist_add_nick) { char *prefix, char_prefix, *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_add_nick"); PERL_RETURN_EMPTY; } if (items < 7) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_add_nick"); PERL_RETURN_EMPTY; } prefix = SvPV(ST (4), PL_na); if (prefix && prefix[0]) char_prefix = prefix[0]; else char_prefix = ' '; result = script_ptr2str (weechat_nicklist_add_nick (script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ script_str2ptr (SvPV (ST (1), PL_na)), /* group */ SvPV (ST (2), PL_na), /* name */ SvPV (ST (3), PL_na), /* color */ char_prefix, SvPV (ST (5), PL_na), /* prefix_color */ SvIV (ST (6)))); /* visible */ PERL_RETURN_STRING_FREE(result); } /* * weechat::nicklist_search_nick: search a nick in nicklist */ static XS (XS_weechat_nicklist_search_nick) { char *result; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_search_nick"); PERL_RETURN_EMPTY; } if (items < 3) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_search_nick"); PERL_RETURN_EMPTY; } result = script_ptr2str (weechat_nicklist_search_nick (script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ script_str2ptr (SvPV (ST (1), PL_na)), /* from_group */ SvPV (ST (2), PL_na))); /* name */ PERL_RETURN_STRING_FREE(result); } /* * weechat::nicklist_remove_group: remove a group from nicklist */ static XS (XS_weechat_nicklist_remove_group) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_group"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_group"); PERL_RETURN_ERROR; } weechat_nicklist_remove_group (script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ script_str2ptr (SvPV (ST (1), PL_na))); /* group */ PERL_RETURN_OK; } /* * weechat::nicklist_remove_nick: remove a nick from nicklist */ static XS (XS_weechat_nicklist_remove_nick) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_nick"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_nick"); PERL_RETURN_ERROR; } weechat_nicklist_remove_nick (script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ script_str2ptr (SvPV (ST (1), PL_na))); /* nick */ PERL_RETURN_OK; } /* * weechat::nicklist_remove_all: remove all groups/nicks from nicklist */ static XS (XS_weechat_nicklist_remove_all) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_all"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_all"); PERL_RETURN_ERROR; } weechat_nicklist_remove_all (script_str2ptr (SvPV (ST (0), PL_na))); /* buffer */ PERL_RETURN_OK; } /* * weechat::command: execute a command on a buffer */ static XS (XS_weechat_command) { dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("command"); PERL_RETURN_ERROR; } if (items < 2) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("command"); PERL_RETURN_ERROR; } script_api_command (weechat_perl_plugin, perl_current_script, script_str2ptr (SvPV (ST (0), PL_na)), /* buffer */ SvPV (ST (1), PL_na)); /* command */ PERL_RETURN_OK; } /* * weechat::info_get: get info about WeeChat */ static XS (XS_weechat_info_get) { char *value; dXSARGS; /* make C compiler happy */ (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("info_get"); PERL_RETURN_EMPTY; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("info_get"); PERL_RETURN_EMPTY; } value = weechat_info_get (SvPV (ST (0), PL_na)); PERL_RETURN_STRING(value); } /* * weechat::get_dcc_info: get infos about DCC */ /* static XS (XS_weechat_get_dcc_info) { t_plugin_dcc_info *dcc_info, *ptr_dcc; int count; char timebuffer1[64]; char timebuffer2[64]; struct in_addr in; HV *dcc_hash_member; dXSARGS; // make C compiler happy (void) cv; (void) items; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get DCC info, " "script not initialized"); PERL_RETURN_EMPTY; } dcc_info = weechat_perl_plugin->get_dcc_info (weechat_perl_plugin); count = 0; if (!dcc_info) PERL_RETURN_EMPTY; for (ptr_dcc = dcc_info; ptr_dcc; ptr_dcc = ptr_dcc->next_dcc) { strftime(timebuffer1, sizeof(timebuffer1), "%F %T", localtime(&ptr_dcc->start_time)); strftime(timebuffer2, sizeof(timebuffer2), "%F %T", localtime(&ptr_dcc->start_transfer)); in.s_addr = htonl(ptr_dcc->addr); dcc_hash_member = (HV *) sv_2mortal ((SV *) newHV()); hv_store (dcc_hash_member, "server", 6, newSVpv (ptr_dcc->server, 0), 0); hv_store (dcc_hash_member, "channel", 7, newSVpv (ptr_dcc->channel, 0), 0); hv_store (dcc_hash_member, "type", 4, newSViv (ptr_dcc->type), 0); hv_store (dcc_hash_member, "status", 6, newSViv (ptr_dcc->status), 0); hv_store (dcc_hash_member, "start_time", 10, newSVpv (timebuffer1, 0), 0); hv_store (dcc_hash_member, "start_transfer", 14, newSVpv (timebuffer2, 0), 0); hv_store (dcc_hash_member, "address", 7, newSVpv (inet_ntoa(in), 0), 0); hv_store (dcc_hash_member, "port", 4, newSViv (ptr_dcc->port), 0); hv_store (dcc_hash_member, "nick", 4, newSVpv (ptr_dcc->nick, 0), 0); hv_store (dcc_hash_member, "remote_file", 11, newSVpv (ptr_dcc->filename, 0), 0); hv_store (dcc_hash_member, "local_file", 10, newSVpv (ptr_dcc->local_filename, 0), 0); hv_store (dcc_hash_member, "filename_suffix", 15, newSViv (ptr_dcc->filename_suffix), 0); hv_store (dcc_hash_member, "size", 4, newSVnv (ptr_dcc->size), 0); hv_store (dcc_hash_member, "pos", 3, newSVnv (ptr_dcc->pos), 0); hv_store (dcc_hash_member, "start_resume", 12, newSVnv (ptr_dcc->start_resume), 0); hv_store (dcc_hash_member, "cps", 3, newSViv (ptr_dcc->bytes_per_sec), 0); XPUSHs(newRV_inc((SV *) dcc_hash_member)); count++; } weechat_perl_plugin->free_dcc_info (weechat_perl_plugin, dcc_info); XSRETURN (count); } */ /* * weechat::config_get_weechat: get value of a WeeChat config option */ /* static XS (XS_weechat_config_get_weechat) { char *option; struct t_config_option *value; dXSARGS; // make C compiler happy (void) cv; if (!perl_current_script) { WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_get_weechat"); PERL_RETURN_EMPTY; } if (items < 1) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_get_weechat"); PERL_RETURN_EMPTY; } option = SvPV (ST (0), PL_na); if (option) { value = weechat_config_get_weechat (option); if (return_value) { XST_mPV (0, return_value); free (return_value); XSRETURN (1); } } XST_mPV (0, ""); XSRETURN (1); } */ /* * weechat::set_config: set value of a WeeChat config option */ /* static XS (XS_weechat_set_config) { char *option, *value; dXSARGS; // make C compiler happy (void) cv; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to set config option, " "script not initialized"); PERL_RETURN_ERROR; } if (items < 2) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: wrong parameters for " "\"set_config\" function"); PERL_RETURN_ERROR; } option = SvPV (ST (0), PL_na); value = SvPV (ST (1), PL_na); if (option && value) { if (weechat_perl_plugin->set_config (weechat_perl_plugin, option, value)) PERL_RETURN_OK; } PERL_RETURN_ERROR; } */ /* * weechat::get_plugin_config: get value of a plugin config option */ /* static XS (XS_weechat_get_plugin_config) { char *option, *return_value; dXSARGS; // make C compiler happy (void) cv; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get plugin config option, " "script not initialized"); PERL_RETURN_EMPTY; } if (items < 1) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: wrong parameters for " "\"get_plugin_config\" function"); PERL_RETURN_EMPTY; } option = SvPV (ST (0), PL_na); if (option) { return_value = weechat_script_get_plugin_config (weechat_perl_plugin, perl_current_script, option); if (return_value) { XST_mPV (0, return_value); free (return_value); XSRETURN (1); } } XST_mPV (0, ""); XSRETURN (1); } */ /* * weechat::set_plugin_config: set value of a WeeChat config option */ /* static XS (XS_weechat_set_plugin_config) { char *option, *value; dXSARGS; // make C compiler happy (void) cv; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to set plugin config option, " "script not initialized"); PERL_RETURN_ERROR; } if (items < 2) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: wrong parameters for " "\"set_plugin_config\" function"); PERL_RETURN_ERROR; } option = SvPV (ST (0), PL_na); value = SvPV (ST (1), PL_na); if (option && value) { if (weechat_script_set_plugin_config (weechat_perl_plugin, perl_current_script, option, value)) PERL_RETURN_OK; } PERL_RETURN_ERROR; } */ /* * weechat::get_server_info: get infos about servers */ /* static XS (XS_weechat_get_server_info) { t_plugin_server_info *server_info, *ptr_server; char timebuffer[64]; HV *server_hash, *server_hash_member; dXSARGS; // make C compiler happy (void) cv; (void) items; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get server info, " "script not initialized"); PERL_RETURN_EMPTY; } server_info = weechat_perl_plugin->get_server_info (weechat_perl_plugin); if (!server_info) { PERL_RETURN_EMPTY; } server_hash = (HV *) sv_2mortal((SV *) newHV()); if (!server_hash) { weechat_perl_plugin->free_server_info (weechat_perl_plugin, server_info); PERL_RETURN_EMPTY; } for (ptr_server = server_info; ptr_server; ptr_server = ptr_server->next_server) { strftime(timebuffer, sizeof(timebuffer), "%F %T", localtime(&ptr_server->away_time)); server_hash_member = (HV *) sv_2mortal((SV *) newHV()); hv_store (server_hash_member, "autoconnect", 11, newSViv (ptr_server->autoconnect), 0); hv_store (server_hash_member, "autoreconnect", 13, newSViv (ptr_server->autoreconnect), 0); hv_store (server_hash_member, "autoreconnect_delay", 19, newSViv (ptr_server->autoreconnect_delay), 0); hv_store (server_hash_member, "temp_server", 11, newSViv (ptr_server->temp_server), 0); hv_store (server_hash_member, "address", 7, newSVpv (ptr_server->address, 0), 0); hv_store (server_hash_member, "port", 4, newSViv (ptr_server->port), 0); hv_store (server_hash_member, "ipv6", 4, newSViv (ptr_server->ipv6), 0); hv_store (server_hash_member, "ssl", 3, newSViv (ptr_server->ssl), 0); hv_store (server_hash_member, "password", 8, newSVpv (ptr_server->password, 0), 0); hv_store (server_hash_member, "nick1", 5, newSVpv (ptr_server->nick1, 0), 0); hv_store (server_hash_member, "nick2", 5, newSVpv (ptr_server->nick2, 0), 0); hv_store (server_hash_member, "nick3", 5, newSVpv (ptr_server->nick3, 0), 0); hv_store (server_hash_member, "username", 8, newSVpv (ptr_server->username, 0), 0); hv_store (server_hash_member, "realname", 8, newSVpv (ptr_server->realname, 0), 0); hv_store (server_hash_member, "command", 7, newSVpv (ptr_server->command, 0), 0); hv_store (server_hash_member, "command_delay", 13, newSViv (ptr_server->command_delay), 0); hv_store (server_hash_member, "autojoin", 8, newSVpv (ptr_server->autojoin, 0), 0); hv_store (server_hash_member, "autorejoin", 10, newSViv (ptr_server->autorejoin), 0); hv_store (server_hash_member, "notify_levels", 13, newSVpv (ptr_server->notify_levels, 0), 0); hv_store (server_hash_member, "is_connected", 12, newSViv (ptr_server->is_connected), 0); hv_store (server_hash_member, "ssl_connected", 13, newSViv (ptr_server->ssl_connected), 0); hv_store (server_hash_member, "nick", 4, newSVpv (ptr_server->nick, 0), 0); hv_store (server_hash_member, "nick_modes", 10, newSVpv (ptr_server->nick_modes, 0), 0); hv_store (server_hash_member, "away_time", 9, newSVpv (timebuffer, 0), 0); hv_store (server_hash_member, "lag", 3, newSViv (ptr_server->lag), 0); hv_store (server_hash, ptr_server->name, strlen(ptr_server->name), newRV_inc((SV *) server_hash_member), 0); } weechat_perl_plugin->free_server_info (weechat_perl_plugin, server_info); ST (0) = newRV_inc((SV *) server_hash); if (SvREFCNT(ST(0))) sv_2mortal(ST(0)); XSRETURN (1); } */ /* * weechat::get_channel_info: get infos about channels */ /* static XS (XS_weechat_get_channel_info) { t_plugin_channel_info *channel_info, *ptr_channel; char *server; HV *channel_hash, *channel_hash_member; dXSARGS; // make C compiler happy (void) cv; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get channel info, " "script not initialized"); PERL_RETURN_EMPTY; } if (items != 1) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: wrong parameters for " "\"get_channel_info\" function"); PERL_RETURN_EMPTY; } server = SvPV (ST (0), PL_na); if (!server) PERL_RETURN_EMPTY; channel_info = weechat_perl_plugin->get_channel_info (weechat_perl_plugin, server); if (!channel_info) { PERL_RETURN_EMPTY; } channel_hash = (HV *) sv_2mortal((SV *) newHV()); if (!channel_hash) { weechat_perl_plugin->free_channel_info (weechat_perl_plugin, channel_info); PERL_RETURN_EMPTY; } for (ptr_channel = channel_info; ptr_channel; ptr_channel = ptr_channel->next_channel) { channel_hash_member = (HV *) sv_2mortal((SV *) newHV()); hv_store (channel_hash_member, "type", 4, newSViv (ptr_channel->type), 0); hv_store (channel_hash_member, "topic", 5, newSVpv (ptr_channel->topic, 0), 0); hv_store (channel_hash_member, "modes", 5, newSVpv (ptr_channel->modes, 0), 0); hv_store (channel_hash_member, "limit", 5, newSViv (ptr_channel->limit), 0); hv_store (channel_hash_member, "key", 3, newSVpv (ptr_channel->key, 0), 0); hv_store (channel_hash_member, "nicks_count", 11, newSViv (ptr_channel->nicks_count), 0); hv_store (channel_hash, ptr_channel->name, strlen(ptr_channel->name), newRV_inc((SV *) channel_hash_member), 0); } weechat_perl_plugin->free_channel_info (weechat_perl_plugin, channel_info); ST (0) = newRV_inc((SV *) channel_hash); if (SvREFCNT(ST(0))) sv_2mortal(ST(0)); XSRETURN (1); } */ /* * weechat::get_nick_info: get infos about nicks */ /* static XS (XS_weechat_get_nick_info) { t_plugin_nick_info *nick_info, *ptr_nick; char *server, *channel; HV *nick_hash; dXSARGS; // make C compiler happy (void) cv; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get nick info, " "script not initialized"); PERL_RETURN_EMPTY; } if (items != 2) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: wrong parameters for " "\"get_nick_info\" function"); PERL_RETURN_EMPTY; } server = SvPV (ST (0), PL_na); channel = SvPV (ST (1), PL_na); if (!server || !channel) PERL_RETURN_EMPTY; nick_info = weechat_perl_plugin->get_nick_info (weechat_perl_plugin, server, channel); if (!nick_info) { PERL_RETURN_EMPTY; } nick_hash = (HV *) sv_2mortal((SV *) newHV()); if (!nick_hash) { weechat_perl_plugin->free_nick_info (weechat_perl_plugin, nick_info); PERL_RETURN_EMPTY; } for (ptr_nick = nick_info; ptr_nick; ptr_nick = ptr_nick->next_nick) { HV *nick_hash_member = (HV *) sv_2mortal((SV *) newHV()); hv_store (nick_hash_member, "flags", 5, newSViv (ptr_nick->flags), 0); hv_store (nick_hash_member, "host", 4, newSVpv ( ptr_nick->host ? ptr_nick->host : "", 0), 0); hv_store (nick_hash, ptr_nick->nick, strlen(ptr_nick->nick), newRV_inc((SV *) nick_hash_member), 0); } weechat_perl_plugin->free_nick_info (weechat_perl_plugin, nick_info); ST (0) = newRV_inc((SV *) nick_hash); if (SvREFCNT(ST(0))) sv_2mortal(ST(0)); XSRETURN (1); } */ /* * weechat::color_input: add color in input buffer */ /* static XS (XS_weechat_input_color) { int color, start, length; dXSARGS; // make C compiler happy (void) cv; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to colorize input, " "script not initialized"); PERL_RETURN_ERROR; } if (items < 3) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: wrong parameters for " "\"color_input\" function"); PERL_RETURN_ERROR; } color = SvIV (ST (0)); start = SvIV (ST (1)); length = SvIV (ST (2)); weechat_perl_plugin->input_color (weechat_perl_plugin, color, start, length); PERL_RETURN_OK; } */ /* * weechat::get_irc_color: * get the numeric value which identify an irc color by its name */ /* static XS (XS_weechat_get_irc_color) { char *color; dXSARGS; // make C compiler happy (void) cv; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get irc color, " "script not initialized"); XST_mIV (0, -1); XSRETURN (1); } if (items != 1) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: wrong parameters for " "\"get_irc_info\" function"); XST_mIV (0, -1); XSRETURN (1); } color = SvPV (ST (0), PL_na); if (color) { XST_mIV (0, weechat_perl_plugin->get_irc_color (weechat_perl_plugin, color)); XSRETURN (1); } XST_mIV (0, -1); XSRETURN (-1); } */ /* * weechat::get_window_info: get infos about windows */ /* static XS (XS_weechat_get_window_info) { t_plugin_window_info *window_info, *ptr_win; int count; HV *window_hash_member; dXSARGS; // make C compiler happy (void) cv; (void) items; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get window info, " "script not initialized"); PERL_RETURN_EMPTY; } window_info = weechat_perl_plugin->get_window_info (weechat_perl_plugin); count = 0; if (!window_info) PERL_RETURN_EMPTY; for (ptr_win = window_info; ptr_win; ptr_win = ptr_win->next_window) { window_hash_member = (HV *) sv_2mortal((SV *) newHV()); hv_store (window_hash_member, "num_buffer", 10, newSViv (ptr_win->num_buffer), 0); hv_store (window_hash_member, "win_x", 5, newSViv (ptr_win->win_x), 0); hv_store (window_hash_member, "win_y", 5, newSViv (ptr_win->win_y), 0); hv_store (window_hash_member, "win_width", 9, newSViv (ptr_win->win_width), 0); hv_store (window_hash_member, "win_height", 10, newSViv (ptr_win->win_height), 0); hv_store (window_hash_member, "win_width_pct", 13, newSViv (ptr_win->win_width_pct), 0); hv_store (window_hash_member, "win_height_pct", 14, newSViv (ptr_win->win_height_pct), 0); XPUSHs(newRV_inc((SV *) window_hash_member)); count++; } weechat_perl_plugin->free_window_info (weechat_perl_plugin, window_info); XSRETURN (count); } */ /* * weechat::get_buffer_info: get infos about buffers */ /* static XS (XS_weechat_get_buffer_info) { t_plugin_buffer_info *buffer_info, *ptr_buffer; HV *buffer_hash, *buffer_hash_member; char conv[8]; dXSARGS; // make C compiler happy (void) cv; (void) items; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get buffer info, " "script not initialized"); PERL_RETURN_EMPTY; } buffer_info = weechat_perl_plugin->get_buffer_info (weechat_perl_plugin); if (!buffer_info) { PERL_RETURN_EMPTY; } buffer_hash = (HV *) sv_2mortal((SV *) newHV()); if (!buffer_hash) { weechat_perl_plugin->free_buffer_info (weechat_perl_plugin, buffer_info); PERL_RETURN_EMPTY; } for (ptr_buffer = buffer_info; ptr_buffer; ptr_buffer = ptr_buffer->next_buffer) { buffer_hash_member = (HV *) sv_2mortal((SV *) newHV()); hv_store (buffer_hash_member, "type", 4, newSViv (ptr_buffer->type), 0); hv_store (buffer_hash_member, "num_displayed", 13, newSViv (ptr_buffer->num_displayed), 0); hv_store (buffer_hash_member, "server", 6, newSVpv ((ptr_buffer->server_name == NULL) ? "" : ptr_buffer->server_name, 0), 0); hv_store (buffer_hash_member, "channel", 7, newSVpv ((ptr_buffer->channel_name == NULL) ? "" : ptr_buffer->channel_name, 0), 0); hv_store (buffer_hash_member, "notify_level", 12, newSViv (ptr_buffer->notify_level), 0); hv_store (buffer_hash_member, "log_filename", 12, newSVpv ((ptr_buffer->log_filename == NULL) ? "" : ptr_buffer->log_filename, 0), 0); snprintf(conv, sizeof(conv), "%d", ptr_buffer->number); hv_store (buffer_hash, conv, strlen(conv), newRV_inc((SV *) buffer_hash_member), 0); } weechat_perl_plugin->free_buffer_info (weechat_perl_plugin, buffer_info); ST (0) = newRV_inc((SV *) buffer_hash); if (SvREFCNT(ST(0))) sv_2mortal(ST(0)); XSRETURN (1); } */ /* * weechat::get_buffer_data: get buffer content */ /* static XS (XS_weechat_get_buffer_data) { t_plugin_buffer_line *buffer_data, *ptr_data; HV *data_list_member; char *server, *channel; char timebuffer[64]; int count; dXSARGS; // make C compiler happy (void) cv; (void) items; if (!perl_current_script) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: unable to get buffer data, " "script not initialized"); PERL_RETURN_EMPTY; } if (items != 2) { weechat_perl_plugin->print_server (weechat_perl_plugin, "Perl error: wrong parameters for " "\"get_buffer_data\" function"); PERL_RETURN_EMPTY; } channel = NULL; server = NULL; if (items >= 1) server = SvPV (ST (0), PL_na); if (items >= 2) channel = SvPV (ST (1), PL_na); SP -= items; buffer_data = weechat_perl_plugin->get_buffer_data (weechat_perl_plugin, server, channel); count = 0; if (!buffer_data) PERL_RETURN_EMPTY; for (ptr_data = buffer_data; ptr_data; ptr_data = ptr_data->next_line) { data_list_member = (HV *) sv_2mortal((SV *) newHV()); strftime(timebuffer, sizeof(timebuffer), "%F %T", localtime(&ptr_data->date)); hv_store (data_list_member, "date", 4, newSVpv (timebuffer, 0), 0); hv_store (data_list_member, "nick", 4, newSVpv ((ptr_data->nick == NULL) ? "" : ptr_data->nick, 0), 0); hv_store (data_list_member, "data", 4, newSVpv ((ptr_data->data == NULL) ? "" : ptr_data->data, 0), 0); XPUSHs(newRV_inc((SV *) data_list_member)); count++; } weechat_perl_plugin->free_buffer_data (weechat_perl_plugin, buffer_data); XSRETURN (count); } */ /* * weechat_perl_xs_init: initialize subroutines */ void weechat_perl_api_init (pTHX) { HV *stash; newXS ("DynaLoader::boot_DynaLoader", boot_DynaLoader, __FILE__); /* interface functions */ newXS ("weechat::register", XS_weechat_register, "weechat"); newXS ("weechat::charset_set", XS_weechat_charset_set, "weechat"); newXS ("weechat::iconv_to_internal", XS_weechat_iconv_to_internal, "weechat"); newXS ("weechat::iconv_from_internal", XS_weechat_iconv_from_internal, "weechat"); newXS ("weechat::gettext", XS_weechat_gettext, "weechat"); newXS ("weechat::ngettext", XS_weechat_ngettext, "weechat"); newXS ("weechat::mkdir_home", XS_weechat_mkdir_home, "weechat"); newXS ("weechat::mkdir", XS_weechat_mkdir, "weechat"); newXS ("weechat::list_new", XS_weechat_list_new, "weechat"); newXS ("weechat::list_add", XS_weechat_list_add, "weechat"); newXS ("weechat::list_search", XS_weechat_list_search, "weechat"); newXS ("weechat::list_casesearch", XS_weechat_list_casesearch, "weechat"); newXS ("weechat::list_get", XS_weechat_list_get, "weechat"); newXS ("weechat::list_set", XS_weechat_list_set, "weechat"); newXS ("weechat::list_next", XS_weechat_list_next, "weechat"); newXS ("weechat::list_prev", XS_weechat_list_prev, "weechat"); newXS ("weechat::list_string", XS_weechat_list_string, "weechat"); newXS ("weechat::list_size", XS_weechat_list_size, "weechat"); newXS ("weechat::list_remove", XS_weechat_list_remove, "weechat"); newXS ("weechat::list_remove_all", XS_weechat_list_remove_all, "weechat"); newXS ("weechat::list_free", XS_weechat_list_free, "weechat"); newXS ("weechat::prefix", XS_weechat_prefix, "weechat"); newXS ("weechat::color", XS_weechat_color, "weechat"); newXS ("weechat::print", XS_weechat_print, "weechat"); newXS ("weechat::infobar_print", XS_weechat_infobar_print, "weechat"); newXS ("weechat::infobar_remove", XS_weechat_infobar_remove, "weechat"); newXS ("weechat::log_print", XS_weechat_log_print, "weechat"); newXS ("weechat::hook_command", XS_weechat_hook_command, "weechat"); newXS ("weechat::hook_timer", XS_weechat_hook_timer, "weechat"); newXS ("weechat::hook_fd", XS_weechat_hook_fd, "weechat"); newXS ("weechat::hook_print", XS_weechat_hook_print, "weechat"); newXS ("weechat::hook_signal", XS_weechat_hook_signal, "weechat"); newXS ("weechat::hook_signal_send", XS_weechat_hook_signal_send, "weechat"); newXS ("weechat::hook_config", XS_weechat_hook_config, "weechat"); newXS ("weechat::hook_completion", XS_weechat_hook_completion, "weechat"); newXS ("weechat::unhook", XS_weechat_unhook, "weechat"); newXS ("weechat::unhook_all", XS_weechat_unhook_all, "weechat"); newXS ("weechat::buffer_new", XS_weechat_buffer_new, "weechat"); newXS ("weechat::buffer_search", XS_weechat_buffer_search, "weechat"); newXS ("weechat::buffer_close", XS_weechat_buffer_close, "weechat"); newXS ("weechat::buffer_get", XS_weechat_buffer_get, "weechat"); newXS ("weechat::buffer_set", XS_weechat_buffer_set, "weechat"); newXS ("weechat::nicklist_add_group", XS_weechat_nicklist_add_group, "weechat"); newXS ("weechat::nicklist_search_group", XS_weechat_nicklist_search_group, "weechat"); newXS ("weechat::nicklist_add_nick", XS_weechat_nicklist_add_nick, "weechat"); newXS ("weechat::nicklist_search_nick", XS_weechat_nicklist_search_nick, "weechat"); newXS ("weechat::nicklist_remove_group", XS_weechat_nicklist_remove_group, "weechat"); newXS ("weechat::nicklist_remove_nick", XS_weechat_nicklist_remove_nick, "weechat"); newXS ("weechat::nicklist_remove_all", XS_weechat_nicklist_remove_all, "weechat"); newXS ("weechat::command", XS_weechat_command, "weechat"); newXS ("weechat::info_get", XS_weechat_info_get, "weechat"); //newXS ("weechat::get_dcc_info", XS_weechat_get_dcc_info, "weechat"); //newXS ("weechat::get_config", XS_weechat_get_config, "weechat"); //newXS ("weechat::set_config", XS_weechat_set_config, "weechat"); //newXS ("weechat::get_plugin_config", XS_weechat_get_plugin_config, "weechat"); //newXS ("weechat::set_plugin_config", XS_weechat_set_plugin_config, "weechat"); //newXS ("weechat::get_server_info", XS_weechat_get_server_info, "weechat"); //newXS ("weechat::get_channel_info", XS_weechat_get_channel_info, "weechat"); //newXS ("weechat::get_nick_info", XS_weechat_get_nick_info, "weechat"); //newXS ("weechat::input_color", XS_weechat_input_color, "weechat"); //newXS ("weechat::get_irc_color", XS_weechat_get_irc_color, "weechat"); //newXS ("weechat::get_window_info", XS_weechat_get_window_info, "weechat"); //newXS ("weechat::get_buffer_info", XS_weechat_get_buffer_info, "weechat"); //newXS ("weechat::get_buffer_data", XS_weechat_get_buffer_data, "weechat"); /* interface constants */ stash = gv_stashpv ("weechat", TRUE); newCONSTSUB (stash, "weechat::WEECHAT_RC_OK", newSViv (WEECHAT_RC_OK)); newCONSTSUB (stash, "weechat::WEECHAT_RC_ERROR", newSViv (WEECHAT_RC_ERROR)); newCONSTSUB (stash, "weechat::WEECHAT_RC_OK_IGNORE_WEECHAT", newSViv (WEECHAT_RC_OK_IGNORE_WEECHAT)); newCONSTSUB (stash, "weechat::WEECHAT_RC_OK_IGNORE_PLUGINS", newSViv (WEECHAT_RC_OK_IGNORE_PLUGINS)); newCONSTSUB (stash, "weechat::WEECHAT_RC_OK_IGNORE_ALL", newSViv (WEECHAT_RC_OK_IGNORE_ALL)); newCONSTSUB (stash, "weechat::WEECHAT_RC_OK_WITH_HIGHLIGHT", newSViv (WEECHAT_RC_OK_WITH_HIGHLIGHT)); newCONSTSUB (stash, "weechat::WEECHAT_LIST_POS_SORT", newSVpv (WEECHAT_LIST_POS_SORT, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_LIST_POS_BEGINNING", newSVpv (WEECHAT_LIST_POS_BEGINNING, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_LIST_POS_END", newSVpv (WEECHAT_LIST_POS_END, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_HOTLIST_LOW", newSVpv (WEECHAT_HOTLIST_LOW, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_HOTLIST_MESSAGE", newSVpv (WEECHAT_HOTLIST_MESSAGE, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_HOTLIST_PRIVATE", newSVpv (WEECHAT_HOTLIST_PRIVATE, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_HOTLIST_HIGHLIGHT", newSVpv (WEECHAT_HOTLIST_HIGHLIGHT, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_HOOK_SIGNAL_STRING", newSVpv (WEECHAT_HOOK_SIGNAL_STRING, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_HOOK_SIGNAL_INT", newSVpv (WEECHAT_HOOK_SIGNAL_INT, PL_na)); newCONSTSUB (stash, "weechat::WEECHAT_HOOK_SIGNAL_POINTER", newSVpv (WEECHAT_HOOK_SIGNAL_POINTER, PL_na)); }