From 57eb513547bea5aebac8a4390b1de7cdf03c27ac Mon Sep 17 00:00:00 2001 From: Sebastien Helleu Date: Thu, 2 Aug 2012 22:28:43 +0200 Subject: core: remove directory "src/plugins/scripts", move script plugins in "src/plugins" --- src/plugins/scripts/guile/CMakeLists.txt | 31 - src/plugins/scripts/guile/Makefile.am | 33 - src/plugins/scripts/guile/weechat-guile-api.c | 5587 ------------------------- src/plugins/scripts/guile/weechat-guile-api.h | 30 - src/plugins/scripts/guile/weechat-guile.c | 912 ---- src/plugins/scripts/guile/weechat-guile.h | 47 - 6 files changed, 6640 deletions(-) delete mode 100644 src/plugins/scripts/guile/CMakeLists.txt delete mode 100644 src/plugins/scripts/guile/Makefile.am delete mode 100644 src/plugins/scripts/guile/weechat-guile-api.c delete mode 100644 src/plugins/scripts/guile/weechat-guile-api.h delete mode 100644 src/plugins/scripts/guile/weechat-guile.c delete mode 100644 src/plugins/scripts/guile/weechat-guile.h (limited to 'src/plugins/scripts/guile') diff --git a/src/plugins/scripts/guile/CMakeLists.txt b/src/plugins/scripts/guile/CMakeLists.txt deleted file mode 100644 index 2092f4e49..000000000 --- a/src/plugins/scripts/guile/CMakeLists.txt +++ /dev/null @@ -1,31 +0,0 @@ -# -# Copyright (C) 2011-2012 Sebastien Helleu -# -# This file is part of WeeChat, the extensible chat client. -# -# WeeChat 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. -# -# WeeChat 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 WeeChat. If not, see . -# - -ADD_LIBRARY(guile MODULE weechat-guile.c weechat-guile.h -weechat-guile-api.c weechat-guile-api.h) - -SET_TARGET_PROPERTIES(guile PROPERTIES PREFIX "") - -IF(GUILE_FOUND) - INCLUDE_DIRECTORIES(${GUILE_INCLUDE_DIRS}) - SET(CMAKE_MODULE_LINKER_FLAGS "${CMAKE_MODULE_LINKER_FLAGS} ${GUILE_LFLAGS}") - TARGET_LINK_LIBRARIES(guile ${GUILE_LIBRARY} weechat_scripts) -ENDIF(GUILE_FOUND) - -INSTALL(TARGETS guile LIBRARY DESTINATION ${LIBDIR}/plugins) diff --git a/src/plugins/scripts/guile/Makefile.am b/src/plugins/scripts/guile/Makefile.am deleted file mode 100644 index 47571527d..000000000 --- a/src/plugins/scripts/guile/Makefile.am +++ /dev/null @@ -1,33 +0,0 @@ -# -# Copyright (C) 2011-2012 Sebastien Helleu -# -# This file is part of WeeChat, the extensible chat client. -# -# WeeChat 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. -# -# WeeChat 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 WeeChat. If not, see . -# - -INCLUDES = -DLOCALEDIR=\"$(datadir)/locale\" $(GUILE_CFLAGS) - -libdir = ${weechat_libdir}/plugins - -lib_LTLIBRARIES = guile.la - -guile_la_SOURCES = weechat-guile.c \ - weechat-guile.h \ - weechat-guile-api.c \ - weechat-guile-api.h -guile_la_LDFLAGS = -module -guile_la_LIBADD = ../lib_weechat_plugins_scripts.la $(GUILE_LFLAGS) - -EXTRA_DIST = CMakeLists.txt diff --git a/src/plugins/scripts/guile/weechat-guile-api.c b/src/plugins/scripts/guile/weechat-guile-api.c deleted file mode 100644 index f2523ea4e..000000000 --- a/src/plugins/scripts/guile/weechat-guile-api.c +++ /dev/null @@ -1,5587 +0,0 @@ -/* - * Copyright (C) 2011-2012 Sebastien Helleu - * - * This file is part of WeeChat, the extensible chat client. - * - * WeeChat 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. - * - * WeeChat 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 WeeChat. If not, see . - */ - -/* - * weechat-guile-api.c: guile API functions - */ - -#undef _ - -#include -#include - -#include "../../weechat-plugin.h" -#include "../script.h" -#include "../script-api.h" -#include "../script-callback.h" -#include "weechat-guile.h" - - -#define API_FUNC(__init, __name, __ret) \ - char *guile_function_name = __name; \ - if (__init \ - && (!guile_current_script || !guile_current_script->name)) \ - { \ - WEECHAT_SCRIPT_MSG_NOT_INIT(GUILE_CURRENT_SCRIPT_NAME, \ - guile_function_name); \ - __ret; \ - } -#define API_WRONG_ARGS(__ret) \ - { \ - WEECHAT_SCRIPT_MSG_WRONG_ARGS(GUILE_CURRENT_SCRIPT_NAME, \ - guile_function_name); \ - __ret; \ - } -#define API_STR2PTR(__string) \ - script_str2ptr (weechat_guile_plugin, GUILE_CURRENT_SCRIPT_NAME, \ - guile_function_name, __string) -#define API_RETURN_OK return SCM_BOOL_T; -#define API_RETURN_ERROR return SCM_BOOL_F; -#define API_RETURN_EMPTY \ - return scm_from_locale_string(""); -#define API_RETURN_STRING(__string) \ - if (__string) \ - return scm_from_locale_string(__string); \ - return scm_from_locale_string("") -#define API_RETURN_STRING_FREE(__string) \ - if (__string) \ - { \ - return_value = scm_from_locale_string (__string); \ - free (__string); \ - return return_value; \ - } \ - return scm_from_locale_string("") -#define API_RETURN_INT(__int) \ - return scm_from_int (__int); -#define API_RETURN_LONG(__long) \ - return scm_from_long (__long); - -#define API_DEF_FUNC(__name, __argc) \ - scm_c_define_gsubr ("weechat:" #__name, __argc, 0, 0, \ - &weechat_guile_api_##__name); \ - scm_c_export ("weechat:" #__name, NULL); - - -/* - * weechat_guile_api_register: startup function for all WeeChat Guile scripts - */ - -SCM -weechat_guile_api_register (SCM name, SCM author, SCM version, SCM license, - SCM description, SCM shutdown_func, SCM charset) -{ - API_FUNC(0, "register", API_RETURN_ERROR); - if (guile_registered_script) - { - /* script already registered */ - weechat_printf (NULL, - weechat_gettext ("%s%s: script \"%s\" already " - "registered (register ignored)"), - weechat_prefix ("error"), GUILE_PLUGIN_NAME, - guile_registered_script->name); - API_RETURN_ERROR; - } - guile_current_script = NULL; - guile_registered_script = NULL; - if (!scm_is_string (name) || !scm_is_string (author) - || !scm_is_string (version) || !scm_is_string (license) - || !scm_is_string (description) || !scm_is_string (shutdown_func) - || !scm_is_string (charset)) - API_WRONG_ARGS(API_RETURN_ERROR); - - if (script_search (weechat_guile_plugin, guile_scripts, - scm_i_string_chars (name))) - { - /* another script already exists with same name */ - weechat_printf (NULL, - weechat_gettext ("%s%s: unable to register script " - "\"%s\" (another script already " - "exists with this name)"), - weechat_prefix ("error"), GUILE_PLUGIN_NAME, name); - API_RETURN_ERROR; - } - - /* register script */ - guile_current_script = script_add (weechat_guile_plugin, - &guile_scripts, &last_guile_script, - (guile_current_script_filename) ? - guile_current_script_filename : "", - scm_i_string_chars (name), - scm_i_string_chars (author), - scm_i_string_chars (version), - scm_i_string_chars (license), - scm_i_string_chars (description), - scm_i_string_chars (shutdown_func), - scm_i_string_chars (charset)); - if (guile_current_script) - { - guile_registered_script = guile_current_script; - if ((weechat_guile_plugin->debug >= 2) || !guile_quiet) - { - weechat_printf (NULL, - weechat_gettext ("%s: registered script \"%s\", " - "version %s (%s)"), - GUILE_PLUGIN_NAME, - scm_i_string_chars (name), - scm_i_string_chars (version), - scm_i_string_chars (description)); - } - } - else - { - API_RETURN_ERROR; - } - - API_RETURN_OK; -} - -/* - * weechat_guile_api_plugin_get_name: get name of plugin (return "core" for - * WeeChat core) - */ - -SCM -weechat_guile_api_plugin_get_name (SCM plugin) -{ - const char *result; - - API_FUNC(1, "plugin_get_name", API_RETURN_EMPTY); - if (!scm_is_string (plugin)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_plugin_get_name (API_STR2PTR(scm_i_string_chars (plugin))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_charset_set: set script charset - */ - -SCM -weechat_guile_api_charset_set (SCM charset) -{ - API_FUNC(1, "charset_set", API_RETURN_ERROR); - if (!scm_is_string (charset)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_charset_set (guile_current_script, scm_i_string_chars (charset)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_iconv_to_internal: convert string to internal WeeChat charset - */ - -SCM -weechat_guile_api_iconv_to_internal (SCM charset, SCM string) -{ - char *result; - SCM return_value; - - API_FUNC(1, "iconv_to_internal", API_RETURN_EMPTY); - if (!scm_is_string (charset) || !scm_is_string (string)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_iconv_to_internal (scm_i_string_chars (charset), - scm_i_string_chars (string)); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_iconv_from_internal: convert string from WeeChat internal - * charset to another one - */ - -SCM -weechat_guile_api_iconv_from_internal (SCM charset, SCM string) -{ - char *result; - SCM return_value; - - API_FUNC(1, "iconv_from_internal", API_RETURN_EMPTY); - if (!scm_is_string (charset) || !scm_is_string (string)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_iconv_from_internal (scm_i_string_chars (charset), - scm_i_string_chars (string)); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_gettext: get translated string - */ - -SCM -weechat_guile_api_gettext (SCM string) -{ - const char *result; - - API_FUNC(1, "gettext", API_RETURN_EMPTY); - if (!scm_is_string (string)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_gettext (scm_i_string_chars (string)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_ngettext: get translated string with plural form - */ - -SCM -weechat_guile_api_ngettext (SCM single, SCM plural, SCM count) -{ - const char *result; - - API_FUNC(1, "ngettext", API_RETURN_EMPTY); - if (!scm_is_string (single) || !scm_is_string (plural) - || !scm_is_integer (count)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_ngettext (scm_i_string_chars (single), - scm_i_string_chars (plural), - scm_to_int (count)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_string_match: return 1 if string matches a mask - * mask can begin or end with "*", no other "*" - * are allowed inside mask - */ - -SCM -weechat_guile_api_string_match (SCM string, SCM mask, SCM case_sensitive) -{ - int value; - - API_FUNC(1, "string_match", API_RETURN_INT(0)); - if (!scm_is_string (string) || !scm_is_string (mask) - || !scm_is_integer (case_sensitive)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_string_match (scm_i_string_chars (string), - scm_i_string_chars (mask), - scm_to_int (case_sensitive)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_string_has_highlight: return 1 if string contains a - * highlight (using list of words to - * highlight) - * return 0 if no highlight is found in - * string - */ - -SCM -weechat_guile_api_string_has_highlight (SCM string, SCM highlight_words) -{ - int value; - - API_FUNC(1, "string_has_highlight", API_RETURN_INT(0)); - if (!scm_is_string (string) || !scm_is_string (highlight_words)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_string_has_highlight (scm_i_string_chars (string), - scm_i_string_chars (highlight_words)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_string_has_highlight_regex: return 1 if string contains a - * highlight (using regular - * expression) - * return 0 if no highlight is - * found in string - */ - -SCM -weechat_guile_api_string_has_highlight_regex (SCM string, SCM regex) -{ - int value; - - API_FUNC(1, "string_has_highlight_regex", API_RETURN_INT(0)); - if (!scm_is_string (string) || !scm_is_string (regex)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_string_has_highlight_regex (scm_i_string_chars (string), - scm_i_string_chars (regex)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_string_mask_to_regex: convert a mask (string with only - * "*" as wildcard) to a regex, paying - * attention to special chars in a - * regex - */ - -SCM -weechat_guile_api_string_mask_to_regex (SCM mask) -{ - char *result; - SCM return_value; - - API_FUNC(1, "string_mask_to_regex", API_RETURN_EMPTY); - if (!scm_is_string (mask)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_string_mask_to_regex (scm_i_string_chars (mask)); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_string_remove_color: remove WeeChat color codes from string - */ - -SCM -weechat_guile_api_string_remove_color (SCM string, SCM replacement) -{ - char *result; - SCM return_value; - - API_FUNC(1, "string_remove_color", API_RETURN_EMPTY); - if (!scm_is_string (string) || !scm_is_string (replacement)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_string_remove_color (scm_i_string_chars (string), - scm_i_string_chars (replacement)); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_string_is_command_char: check if first char of string is a - * command char - */ - -SCM -weechat_guile_api_string_is_command_char (SCM string) -{ - int value; - - API_FUNC(1, "string_is_command_char", API_RETURN_INT(0)); - if (!scm_is_string (string)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_string_is_command_char (scm_i_string_chars (string)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_string_input_for_buffer: return string with input text - * for buffer or empty string if - * it's a command - */ - -SCM -weechat_guile_api_string_input_for_buffer (SCM string) -{ - const char *result; - - API_FUNC(1, "string_input_for_buffer", API_RETURN_EMPTY); - if (!scm_is_string (string)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_string_input_for_buffer (scm_i_string_chars (string)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_mkdir_home: create a directory in WeeChat home - */ - -SCM -weechat_guile_api_mkdir_home (SCM directory, SCM mode) -{ - API_FUNC(1, "mkdir_home", API_RETURN_ERROR); - if (!scm_is_string (directory) || !scm_is_integer (mode)) - API_WRONG_ARGS(API_RETURN_ERROR); - - if (weechat_mkdir_home (scm_i_string_chars (directory), scm_to_int (mode))) - API_RETURN_OK; - - API_RETURN_ERROR; -} - -/* - * weechat_guile_api_mkdir: create a directory - */ - -SCM -weechat_guile_api_mkdir (SCM directory, SCM mode) -{ - API_FUNC(1, "mkdir", API_RETURN_ERROR); - if (!scm_is_string (directory) || !scm_is_integer (mode)) - API_WRONG_ARGS(API_RETURN_ERROR); - - if (weechat_mkdir (scm_i_string_chars (directory), scm_to_int (mode))) - API_RETURN_OK; - - API_RETURN_ERROR; -} - -/* - * weechat_guile_api_mkdir_parents: create a directory and make parent - * directories as needed - */ - -SCM -weechat_guile_api_mkdir_parents (SCM directory, SCM mode) -{ - API_FUNC(1, "mkdir_parents", API_RETURN_ERROR); - if (!scm_is_string (directory) || !scm_is_integer (mode)) - API_WRONG_ARGS(API_RETURN_ERROR); - - if (weechat_mkdir_parents (scm_i_string_chars (directory), scm_to_int (mode))) - API_RETURN_OK; - - API_RETURN_ERROR; -} - -/* - * weechat_guile_api_list_new: create a new list - */ - -SCM -weechat_guile_api_list_new () -{ - char *result; - - API_FUNC(1, "list_new", API_RETURN_EMPTY); - - result = script_ptr2str (weechat_list_new ()); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_list_add: add a string to list - */ - -SCM -weechat_guile_api_list_add (SCM weelist, SCM data, SCM where, SCM user_data) -{ - char *result; - - API_FUNC(1, "list_add", API_RETURN_EMPTY); - if (!scm_is_string (weelist) || !scm_is_string (data) - || !scm_is_string (where) || !scm_is_string (user_data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_list_add (API_STR2PTR(scm_i_string_chars (weelist)), - scm_i_string_chars (data), - scm_i_string_chars (where), - API_STR2PTR(scm_i_string_chars (user_data)))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_list_search: search a string in list - */ - -SCM -weechat_guile_api_list_search (SCM weelist, SCM data) -{ - char *result; - - API_FUNC(1, "list_search", API_RETURN_EMPTY); - if (!scm_is_string (weelist) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_list_search (API_STR2PTR(scm_i_string_chars (weelist)), - scm_i_string_chars (data))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_list_search_pos: search position of a string in list - */ - -SCM -weechat_guile_api_list_search_pos (SCM weelist, SCM data) -{ - int pos; - - API_FUNC(1, "list_search_pos", API_RETURN_INT(-1)); - if (!scm_is_string (weelist) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - pos = weechat_list_search_pos (API_STR2PTR(scm_i_string_chars (weelist)), - scm_i_string_chars (data)); - - API_RETURN_INT(pos); -} - -/* - * weechat_guile_api_list_casesearch: search a string in list (ignore case) - */ - -SCM -weechat_guile_api_list_casesearch (SCM weelist, SCM data) -{ - char *result; - - API_FUNC(1, "list_casesearch", API_RETURN_EMPTY); - if (!scm_is_string (weelist) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_list_casesearch (API_STR2PTR(scm_i_string_chars (weelist)), - scm_i_string_chars (data))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_list_casesearch_pos: search position of a string in list - * (ignore case) - */ - -SCM -weechat_guile_api_list_casesearch_pos (SCM weelist, SCM data) -{ - int pos; - - API_FUNC(1, "list_casesearch_pos", API_RETURN_INT(-1)); - if (!scm_is_string (weelist) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - pos = weechat_list_casesearch_pos (API_STR2PTR(scm_i_string_chars (weelist)), - scm_i_string_chars (data)); - - API_RETURN_INT(pos); -} - -/* - * weechat_guile_api_list_get: get item by position - */ - -SCM -weechat_guile_api_list_get (SCM weelist, SCM position) -{ - char *result; - - API_FUNC(1, "list_get", API_RETURN_EMPTY); - if (!scm_is_string (weelist) || !scm_is_integer (position)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_list_get (API_STR2PTR(scm_i_string_chars (weelist)), - scm_to_int (position))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_list_set: set new value for item - */ - -SCM -weechat_guile_api_list_set (SCM item, SCM new_value) -{ - API_FUNC(1, "list_set", API_RETURN_ERROR); - if (!scm_is_string (item) || !scm_is_string (new_value)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_list_set (API_STR2PTR(scm_i_string_chars (item)), - scm_i_string_chars (new_value)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_list_next: get next item - */ - -SCM -weechat_guile_api_list_next (SCM item) -{ - char *result; - - API_FUNC(1, "list_next", API_RETURN_EMPTY); - if (!scm_is_string (item)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_list_next (API_STR2PTR(scm_i_string_chars (item)))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_list_prev: get previous item - */ - -SCM -weechat_guile_api_list_prev (SCM item) -{ - char *result; - - API_FUNC(1, "list_prev", API_RETURN_EMPTY); - if (!scm_is_string (item)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_list_prev (API_STR2PTR(scm_i_string_chars (item)))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_list_string: get string value of item - */ - -SCM -weechat_guile_api_list_string (SCM item) -{ - const char *result; - - API_FUNC(1, "list_string", API_RETURN_EMPTY); - if (!scm_is_string (item)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_list_string (API_STR2PTR(scm_i_string_chars (item))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_list_size: get number of elements in list - */ - -SCM -weechat_guile_api_list_size (SCM weelist) -{ - int size; - - API_FUNC(1, "list_size", API_RETURN_INT(0)); - if (!scm_is_string (weelist)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - size = weechat_list_size (API_STR2PTR(scm_i_string_chars (weelist))); - - API_RETURN_INT(size); -} - -/* - * weechat_guile_api_list_remove: remove item from list - */ - -SCM -weechat_guile_api_list_remove (SCM weelist, SCM item) -{ - API_FUNC(1, "list_remove", API_RETURN_ERROR); - if (!scm_is_string (weelist) || !scm_is_string (item)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_list_remove (API_STR2PTR(scm_i_string_chars (weelist)), - API_STR2PTR(scm_i_string_chars (item))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_list_remove_all: remove all items from list - */ - -SCM -weechat_guile_api_list_remove_all (SCM weelist) -{ - API_FUNC(1, "list_remove_all", API_RETURN_ERROR); - if (!scm_is_string (weelist)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_list_remove_all (API_STR2PTR(scm_i_string_chars (weelist))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_list_free: free list - */ - -SCM -weechat_guile_api_list_free (SCM weelist) -{ - API_FUNC(1, "list_free", API_RETURN_ERROR); - if (!scm_is_string (weelist)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_list_free (API_STR2PTR(scm_i_string_chars (weelist))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_reload_cb: callback for config reload - */ - -int -weechat_guile_api_config_reload_cb (void *data, - struct t_config_file *config_file) -{ - struct t_script_callback *script_callback; - void *func_argv[2]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (config_file); - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ss", func_argv); - - if (!rc) - ret = WEECHAT_CONFIG_READ_FILE_NOT_FOUND; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - - return ret; - } - - return WEECHAT_CONFIG_READ_FILE_NOT_FOUND; -} - -/* - * weechat_guile_api_config_new: create a new configuration file - */ - -SCM -weechat_guile_api_config_new (SCM name, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "config_new", API_RETURN_EMPTY); - if (!scm_is_string (name) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_config_new (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (name), - &weechat_guile_api_config_reload_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_config_read_cb: callback for reading option in section - */ - -int -weechat_guile_api_config_read_cb (void *data, - struct t_config_file *config_file, - struct t_config_section *section, - const char *option_name, const char *value) -{ - struct t_script_callback *script_callback; - void *func_argv[5]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (config_file); - func_argv[2] = script_ptr2str (section); - func_argv[3] = (option_name) ? (char *)option_name : empty_arg; - func_argv[4] = (value) ? (char *)value : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sssss", func_argv); - - if (!rc) - ret = WEECHAT_CONFIG_OPTION_SET_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - if (func_argv[2]) - free (func_argv[2]); - - return ret; - } - - return WEECHAT_CONFIG_OPTION_SET_ERROR; -} - -/* - * weechat_guile_api_config_section_write_cb: callback for writing section - */ - -int -weechat_guile_api_config_section_write_cb (void *data, - struct t_config_file *config_file, - const char *section_name) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (config_file); - func_argv[2] = (section_name) ? (char *)section_name : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sss", func_argv); - - if (!rc) - ret = WEECHAT_CONFIG_WRITE_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - - return ret; - } - - return WEECHAT_CONFIG_WRITE_ERROR; -} - -/* - * weechat_guile_api_config_section_write_default_cb: callback for writing - * default values for section - */ - -int -weechat_guile_api_config_section_write_default_cb (void *data, - struct t_config_file *config_file, - const char *section_name) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (config_file); - func_argv[2] = (section_name) ? (char *)section_name : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sss", func_argv); - - if (!rc) - ret = WEECHAT_CONFIG_WRITE_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - - return ret; - } - - return WEECHAT_CONFIG_WRITE_ERROR; -} - -/* - * weechat_guile_api_config_section_create_option_cb: callback to create an - * option - */ - -int -weechat_guile_api_config_section_create_option_cb (void *data, - struct t_config_file *config_file, - struct t_config_section *section, - const char *option_name, - const char *value) -{ - struct t_script_callback *script_callback; - void *func_argv[5]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (config_file); - func_argv[2] = script_ptr2str (section); - func_argv[3] = (option_name) ? (char *)option_name : empty_arg; - func_argv[4] = (value) ? (char *)value : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sssss", func_argv); - - if (!rc) - ret = WEECHAT_CONFIG_OPTION_SET_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - if (func_argv[2]) - free (func_argv[2]); - - return ret; - } - - return WEECHAT_CONFIG_OPTION_SET_ERROR; -} - -/* - * weechat_guile_api_config_section_delete_option_cb: callback to delete an - * option - */ - -int -weechat_guile_api_config_section_delete_option_cb (void *data, - struct t_config_file *config_file, - struct t_config_section *section, - struct t_config_option *option) -{ - struct t_script_callback *script_callback; - void *func_argv[4]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (config_file); - func_argv[2] = script_ptr2str (section); - func_argv[3] = script_ptr2str (option); - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ssss", func_argv); - - if (!rc) - ret = WEECHAT_CONFIG_OPTION_UNSET_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - if (func_argv[2]) - free (func_argv[2]); - if (func_argv[3]) - free (func_argv[3]); - - return ret; - } - - return WEECHAT_CONFIG_OPTION_UNSET_ERROR; -} - -/* - * weechat_guile_api_config_new_section: create a new section in configuration file - */ - -SCM -weechat_guile_api_config_new_section (SCM args) -{ - SCM config_file, name, user_can_add_options, user_can_delete_options; - SCM function_read, data_read, function_write, data_write; - SCM function_write_default, data_write_default, function_create_option; - SCM data_create_option, function_delete_option, data_delete_option; - char *result; - SCM return_value; - - API_FUNC(1, "config_new_section", API_RETURN_EMPTY); - if (!scm_list_p (args) || (scm_to_int (scm_length (args)) != 14)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - config_file = scm_list_ref (args, scm_from_int (0)); - name = scm_list_ref (args, scm_from_int (1)); - user_can_add_options = scm_list_ref (args, scm_from_int (2)); - user_can_delete_options = scm_list_ref (args, scm_from_int (3)); - function_read = scm_list_ref (args, scm_from_int (4)); - data_read = scm_list_ref (args, scm_from_int (5)); - function_write = scm_list_ref (args, scm_from_int (6)); - data_write = scm_list_ref (args, scm_from_int (7)); - function_write_default = scm_list_ref (args, scm_from_int (8)); - data_write_default = scm_list_ref (args, scm_from_int (9)); - function_create_option = scm_list_ref (args, scm_from_int (10)); - data_create_option = scm_list_ref (args, scm_from_int (11)); - function_delete_option = scm_list_ref (args, scm_from_int (12)); - data_delete_option = scm_list_ref (args, scm_from_int (13)); - - if (!scm_is_string (config_file) || !scm_is_string (name) - || !scm_is_integer (user_can_add_options) || !scm_is_integer (user_can_delete_options) - || !scm_is_string (function_read) || !scm_is_string (data_read) - || !scm_is_string (function_write) || !scm_is_string (data_write) - || !scm_is_string (function_write_default) || !scm_is_string (data_write_default) - || !scm_is_string (function_create_option) || !scm_is_string (data_create_option) - || !scm_is_string (function_delete_option) || !scm_is_string (data_delete_option)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_config_new_section (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (config_file)), - scm_i_string_chars (name), - scm_to_int (user_can_add_options), - scm_to_int (user_can_delete_options), - &weechat_guile_api_config_read_cb, - scm_i_string_chars (function_read), - scm_i_string_chars (data_read), - &weechat_guile_api_config_section_write_cb, - scm_i_string_chars (function_write), - scm_i_string_chars (data_write), - &weechat_guile_api_config_section_write_default_cb, - scm_i_string_chars (function_write_default), - scm_i_string_chars (data_write_default), - &weechat_guile_api_config_section_create_option_cb, - scm_i_string_chars (function_create_option), - scm_i_string_chars (data_create_option), - &weechat_guile_api_config_section_delete_option_cb, - scm_i_string_chars (function_delete_option), - scm_i_string_chars (data_delete_option))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_config_search_section: search section in configuration file - */ - -SCM -weechat_guile_api_config_search_section (SCM config_file, SCM section_name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "config_search_section", API_RETURN_EMPTY); - if (!scm_is_string (config_file) || !scm_is_string (section_name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_config_search_section (API_STR2PTR(scm_i_string_chars (config_file)), - scm_i_string_chars (section_name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_config_option_check_value_cb: callback for checking new - * value for option - */ - -int -weechat_guile_api_config_option_check_value_cb (void *data, - struct t_config_option *option, - const char *value) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (option); - func_argv[2] = (value) ? (char *)value : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sss", func_argv); - - if (!rc) - ret = 0; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - - return ret; - } - - return 0; -} - -/* - * weechat_guile_api_config_option_change_cb: callback for option changed - */ - -void -weechat_guile_api_config_option_change_cb (void *data, - struct t_config_option *option) -{ - struct t_script_callback *script_callback; - void *func_argv[2]; - char empty_arg[1] = { '\0' }; - int *rc; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (option); - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ss", func_argv); - - if (func_argv[1]) - free (func_argv[1]); - - if (rc) - free (rc); - } -} - -/* - * weechat_guile_api_config_option_delete_cb: callback when option is deleted - */ - -void -weechat_guile_api_config_option_delete_cb (void *data, - struct t_config_option *option) -{ - struct t_script_callback *script_callback; - void *func_argv[2]; - char empty_arg[1] = { '\0' }; - int *rc; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (option); - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ss", func_argv); - - if (func_argv[1]) - free (func_argv[1]); - - if (rc) - free (rc); - } -} - -/* - * weechat_guile_api_config_new_option: create a new option in section - */ - -SCM -weechat_guile_api_config_new_option (SCM args) -{ - SCM config_file, section, name, type, description, string_values, min; - SCM max, default_value, value, null_value_allowed, function_check_value; - SCM data_check_value, function_change, data_change, function_delete; - SCM data_delete; - char *result; - SCM return_value; - - API_FUNC(1, "config_new_option", API_RETURN_EMPTY); - if (!scm_list_p (args) || (scm_to_int (scm_length (args)) != 17)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - config_file = scm_list_ref (args, scm_from_int (0)); - section = scm_list_ref (args, scm_from_int (1)); - name = scm_list_ref (args, scm_from_int (2)); - type = scm_list_ref (args, scm_from_int (3)); - description = scm_list_ref (args, scm_from_int (4)); - string_values = scm_list_ref (args, scm_from_int (5)); - min = scm_list_ref (args, scm_from_int (6)); - max = scm_list_ref (args, scm_from_int (7)); - default_value = scm_list_ref (args, scm_from_int (8)); - value = scm_list_ref (args, scm_from_int (9)); - null_value_allowed = scm_list_ref (args, scm_from_int (10)); - function_check_value = scm_list_ref (args, scm_from_int (11)); - data_check_value = scm_list_ref (args, scm_from_int (12)); - function_change = scm_list_ref (args, scm_from_int (13)); - data_change = scm_list_ref (args, scm_from_int (14)); - function_delete = scm_list_ref (args, scm_from_int (15)); - data_delete = scm_list_ref (args, scm_from_int (16)); - - if (!scm_is_string (config_file) || !scm_is_string (section) - || !scm_is_string (name) || !scm_is_string (type) - || !scm_is_string (description) || !scm_is_string (string_values) - || !scm_is_integer (min) || !scm_is_integer (max) - || !scm_is_string (default_value) || !scm_is_string (value) - || !scm_is_integer (null_value_allowed) - || !scm_is_string (function_check_value) - || !scm_is_string (data_check_value) - || !scm_is_string (function_change) || !scm_is_string (data_change) - || !scm_is_string (function_delete) || !scm_is_string (data_delete)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_config_new_option (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (config_file)), - API_STR2PTR(scm_i_string_chars (section)), - scm_i_string_chars (name), - scm_i_string_chars (type), - scm_i_string_chars (description), - scm_i_string_chars (string_values), - scm_to_int (min), - scm_to_int (max), - scm_i_string_chars (default_value), - scm_i_string_chars (value), - scm_to_int (null_value_allowed), - &weechat_guile_api_config_option_check_value_cb, - scm_i_string_chars (function_check_value), - scm_i_string_chars (data_check_value), - &weechat_guile_api_config_option_change_cb, - scm_i_string_chars (function_change), - scm_i_string_chars (data_change), - &weechat_guile_api_config_option_delete_cb, - scm_i_string_chars (function_delete), - scm_i_string_chars (data_delete))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_config_search_option: search option in configuration file - * or section - */ - -SCM -weechat_guile_api_config_search_option (SCM config_file, SCM section, - SCM option_name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "config_search_option", API_RETURN_EMPTY); - if (!scm_is_string (config_file) || !scm_is_string (section) - || !scm_is_string (option_name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_config_search_option (API_STR2PTR(scm_i_string_chars (config_file)), - API_STR2PTR(scm_i_string_chars (section)), - scm_i_string_chars (option_name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_config_string_to_boolean: return boolean value of a string - */ - -SCM -weechat_guile_api_config_string_to_boolean (SCM text) -{ - int value; - - API_FUNC(1, "config_string_to_boolean", API_RETURN_INT(0)); - if (!scm_is_string (text)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_config_string_to_boolean (scm_i_string_chars (text)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_config_option_reset: reset option with default value - */ - -SCM -weechat_guile_api_config_option_reset (SCM option, SCM run_callback) -{ - int rc; - - API_FUNC(1, "config_option_reset", API_RETURN_INT(0)); - if (!scm_is_string (option) || !scm_is_integer (run_callback)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - rc = weechat_config_option_reset (API_STR2PTR(scm_i_string_chars (option)), - scm_to_int (run_callback)); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_option_set: set new value for option - */ - -SCM -weechat_guile_api_config_option_set (SCM option, SCM new_value, - SCM run_callback) -{ - int rc; - - API_FUNC(1, "config_option_set", API_RETURN_INT(WEECHAT_CONFIG_OPTION_SET_ERROR)); - if (!scm_is_string (option) || !scm_is_string (new_value) - || !scm_is_integer (run_callback)) - API_WRONG_ARGS(API_RETURN_INT(WEECHAT_CONFIG_OPTION_SET_ERROR)); - - rc = weechat_config_option_set (API_STR2PTR(scm_i_string_chars (option)), - scm_i_string_chars (new_value), - scm_to_int (run_callback)); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_option_set_null: set null (undefined) value for - * option - */ - -SCM -weechat_guile_api_config_option_set_null (SCM option, SCM run_callback) -{ - int rc; - - API_FUNC(1, "config_option_set_null", API_RETURN_INT(WEECHAT_CONFIG_OPTION_SET_ERROR)); - if (!scm_is_string (option) || !scm_is_integer (run_callback)) - API_WRONG_ARGS(API_RETURN_INT(WEECHAT_CONFIG_OPTION_SET_ERROR)); - - rc = weechat_config_option_set_null (API_STR2PTR(scm_i_string_chars (option)), - scm_to_int (run_callback)); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_option_unset: unset an option - */ - -SCM -weechat_guile_api_config_option_unset (SCM option) -{ - int rc; - - API_FUNC(1, "config_option_unset", API_RETURN_INT(WEECHAT_CONFIG_OPTION_UNSET_ERROR)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(WEECHAT_CONFIG_OPTION_UNSET_ERROR)); - - rc = weechat_config_option_unset (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_option_rename: rename an option - */ - -SCM -weechat_guile_api_config_option_rename (SCM option, SCM new_name) -{ - API_FUNC(1, "config_option_rename", API_RETURN_ERROR); - if (!scm_is_string (option) || !scm_is_string (new_name)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_config_option_rename (API_STR2PTR(scm_i_string_chars (option)), - scm_i_string_chars (new_name)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_option_is_null: return 1 if value of option is null - */ - -SCM -weechat_guile_api_config_option_is_null (SCM option) -{ - int value; - - API_FUNC(1, "config_option_is_null", API_RETURN_INT(1)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(1)); - - value = weechat_config_option_is_null (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_config_option_default_is_null: return 1 if value of option - * is null - */ - -SCM -weechat_guile_api_config_option_default_is_null (SCM option) -{ - int value; - - API_FUNC(1, "config_option_default_is_null", API_RETURN_INT(1)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(1)); - - value = weechat_config_option_default_is_null (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_config_boolean: return boolean value of option - */ - -SCM -weechat_guile_api_config_boolean (SCM option) -{ - int value; - - API_FUNC(1, "config_boolean", API_RETURN_INT(0)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_config_boolean (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_config_boolean_default: return default boolean value of option - */ - -SCM -weechat_guile_api_config_boolean_default (SCM option) -{ - int value; - - API_FUNC(1, "config_boolean_default", API_RETURN_INT(0)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_config_boolean_default (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_config_integer: return integer value of option - */ - -SCM -weechat_guile_api_config_integer (SCM option) -{ - int value; - - API_FUNC(1, "config_integer", API_RETURN_INT(0)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_config_integer (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_config_integer_default: return default integer value of option - */ - -SCM -weechat_guile_api_config_integer_default (SCM option) -{ - int value; - - API_FUNC(1, "config_integer_default", API_RETURN_INT(0)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_config_integer_default (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_config_string: return string value of option - */ - -SCM -weechat_guile_api_config_string (SCM option) -{ - const char *result; - - API_FUNC(1, "config_string", API_RETURN_EMPTY); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_config_string (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_config_string_default: return default string value of option - */ - -SCM -weechat_guile_api_config_string_default (SCM option) -{ - const char *result; - - API_FUNC(1, "config_string_default", API_RETURN_EMPTY); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_config_string_default (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_config_color: return color value of option - */ - -SCM -weechat_guile_api_config_color (SCM option) -{ - const char *result; - - API_FUNC(1, "config_color", API_RETURN_INT(0)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - result = weechat_config_color (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_config_color_default: return default color value of option - */ - -SCM -weechat_guile_api_config_color_default (SCM option) -{ - const char *result; - - API_FUNC(1, "config_color_default", API_RETURN_INT(0)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - result = weechat_config_color_default (API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_config_write_option: write an option in configuration file - */ - -SCM -weechat_guile_api_config_write_option (SCM config_file, SCM option) -{ - API_FUNC(1, "config_write_option", API_RETURN_ERROR); - if (!scm_is_string (config_file) || !scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_config_write_option (API_STR2PTR(scm_i_string_chars (config_file)), - API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_write_line: write a line in configuration file - */ - -SCM -weechat_guile_api_config_write_line (SCM config_file, - SCM option_name, SCM value) -{ - API_FUNC(1, "config_write_line", API_RETURN_ERROR); - if (!scm_is_string (config_file) || !scm_is_string (option_name) || !scm_is_string (value)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_config_write_line (API_STR2PTR(scm_i_string_chars (config_file)), - scm_i_string_chars (option_name), - "%s", - scm_i_string_chars (value)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_write: write configuration file - */ - -SCM -weechat_guile_api_config_write (SCM config_file) -{ - int rc; - - API_FUNC(1, "config_write", API_RETURN_INT(-1)); - if (!scm_is_string (config_file)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - rc = weechat_config_write (API_STR2PTR(scm_i_string_chars (config_file))); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_read: read configuration file - */ - -SCM -weechat_guile_api_config_read (SCM config_file) -{ - int rc; - - API_FUNC(1, "config_read", API_RETURN_INT(-1)); - if (!scm_is_string (config_file)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - rc = weechat_config_read (API_STR2PTR(scm_i_string_chars (config_file))); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_reload: reload configuration file - */ - -SCM -weechat_guile_api_config_reload (SCM config_file) -{ - int rc; - - API_FUNC(1, "config_reload", API_RETURN_INT(-1)); - if (!scm_is_string (config_file)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - rc = weechat_config_reload (API_STR2PTR(scm_i_string_chars (config_file))); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_option_free: free an option in configuration file - */ - -SCM -weechat_guile_api_config_option_free (SCM option) -{ - API_FUNC(1, "config_option_free", API_RETURN_ERROR); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_config_option_free (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (option))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_section_free_options: free all options of a section - * in configuration file - */ - -SCM -weechat_guile_api_config_section_free_options (SCM section) -{ - API_FUNC(1, "config_section_free_options", API_RETURN_ERROR); - if (!scm_is_string (section)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_config_section_free_options (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (section))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_section_free: free section in configuration file - */ - -SCM -weechat_guile_api_config_section_free (SCM section) -{ - API_FUNC(1, "config_section_free", API_RETURN_ERROR); - if (!scm_is_string (section)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_config_section_free (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (section))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_free: free configuration file - */ - -SCM -weechat_guile_api_config_free (SCM config_file) -{ - API_FUNC(1, "config_free", API_RETURN_ERROR); - if (!scm_is_string (config_file)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_config_free (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (config_file))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_get: get config option - */ - -SCM -weechat_guile_api_config_get (SCM option) -{ - char *result; - SCM return_value; - - API_FUNC(1, "config_get", API_RETURN_EMPTY); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_config_get (scm_i_string_chars (option))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_config_get_plugin: get value of a plugin option - */ - -SCM -weechat_guile_api_config_get_plugin (SCM option) -{ - const char *result; - - API_FUNC(1, "config_get_plugin", API_RETURN_EMPTY); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_api_config_get_plugin (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (option)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_config_is_set_plugin: check if a plugin option is set - */ - -SCM -weechat_guile_api_config_is_set_plugin (SCM option) -{ - int rc; - - API_FUNC(1, "config_is_set_plugin", API_RETURN_INT(0)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - rc = script_api_config_is_set_plugin (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (option)); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_set_plugin: set value of a plugin option - */ - -SCM -weechat_guile_api_config_set_plugin (SCM option, SCM value) -{ - int rc; - - API_FUNC(1, "config_set_plugin", API_RETURN_INT(WEECHAT_CONFIG_OPTION_SET_ERROR)); - if (!scm_is_string (option) || !scm_is_string (value)) - API_WRONG_ARGS(API_RETURN_INT(WEECHAT_CONFIG_OPTION_SET_ERROR)); - - rc = script_api_config_set_plugin (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (option), - scm_i_string_chars (value)); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_config_set_desc_plugin: set description of a plugin option - */ - -SCM -weechat_guile_api_config_set_desc_plugin (SCM option, SCM description) -{ - API_FUNC(1, "config_set_desc_plugin", API_RETURN_ERROR); - if (!scm_is_string (option) || !scm_is_string (description)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_config_set_desc_plugin (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (option), - scm_i_string_chars (description)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_config_unset_plugin: unset plugin option - */ - -SCM -weechat_guile_api_config_unset_plugin (SCM option) -{ - int rc; - - API_FUNC(1, "config_unset_plugin", API_RETURN_INT(WEECHAT_CONFIG_OPTION_UNSET_ERROR)); - if (!scm_is_string (option)) - API_WRONG_ARGS(API_RETURN_INT(WEECHAT_CONFIG_OPTION_UNSET_ERROR)); - - rc = script_api_config_unset_plugin (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (option)); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_key_bind: bind key(s) - */ - -SCM -weechat_guile_api_key_bind (SCM context, SCM keys) -{ - struct t_hashtable *c_keys; - int num_keys; - - API_FUNC(1, "key_bind", API_RETURN_INT(0)); - if (!scm_is_string (context) || !scm_list_p (keys)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - c_keys = weechat_guile_alist_to_hashtable (keys, - WEECHAT_SCRIPT_HASHTABLE_DEFAULT_SIZE); - - num_keys = weechat_key_bind (scm_i_string_chars (context), c_keys); - - if (c_keys) - weechat_hashtable_free (c_keys); - - API_RETURN_INT(num_keys); -} - -/* - * weechat_guile_api_key_unbind: unbind key(s) - */ - -SCM -weechat_guile_api_key_unbind (SCM context, SCM key) -{ - int num_keys; - - API_FUNC(1, "key_unbind", API_RETURN_INT(0)); - if (!scm_is_string (context) || !scm_is_string (key)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - num_keys = weechat_key_unbind (scm_i_string_chars (context), - scm_i_string_chars (key)); - - API_RETURN_INT(num_keys); -} - -/* - * weechat_guile_api_prefix: get a prefix, used for display - */ - -SCM -weechat_guile_api_prefix (SCM prefix) -{ - const char *result; - - API_FUNC(0, "prefix", API_RETURN_EMPTY); - if (!scm_is_string (prefix)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_prefix (scm_i_string_chars (prefix)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_color: get a color code, used for display - */ - -SCM -weechat_guile_api_color (SCM color) -{ - const char *result; - - API_FUNC(0, "color", API_RETURN_EMPTY); - if (!scm_is_string (color)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_color (scm_i_string_chars (color)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_print: print message in a buffer - */ - -SCM -weechat_guile_api_print (SCM buffer, SCM message) -{ - API_FUNC(0, "print", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (message)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_printf (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (buffer)), - "%s", scm_i_string_chars (message)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_print_date_tags: print message in a buffer with optional - * date and tags - */ - -SCM -weechat_guile_api_print_date_tags (SCM buffer, SCM date, SCM tags, SCM message) -{ - API_FUNC(1, "print_date_tags", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_integer (date) - || !scm_is_string (tags) || !scm_is_string (message)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_printf_date_tags (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (buffer)), - scm_to_int (date), - scm_i_string_chars (tags), - "%s", scm_i_string_chars (message)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_print_y: print message in a buffer with free content - */ - -SCM -weechat_guile_api_print_y (SCM buffer, SCM y, SCM message) -{ - API_FUNC(1, "print_y", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_integer (y) - || !scm_is_string (message)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_printf_y (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (buffer)), - scm_to_int (y), - "%s", scm_i_string_chars (message)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_log_print: print message in WeeChat log file - */ - -SCM -weechat_guile_api_log_print (SCM message) -{ - API_FUNC(1, "log_print", API_RETURN_ERROR); - if (!scm_is_string (message)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_log_printf (weechat_guile_plugin, - guile_current_script, - "%s", scm_i_string_chars (message)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_hook_command_cb: callback for command hooked - */ - -int -weechat_guile_api_hook_command_cb (void *data, struct t_gui_buffer *buffer, - int argc, char **argv, char **argv_eol) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - /* make C compiler happy */ - (void) argv; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (buffer); - func_argv[2] = (argc > 1) ? argv_eol[1] : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_command: hook a command - */ - -SCM -weechat_guile_api_hook_command (SCM command, SCM description, SCM args, - SCM args_description, SCM completion, - SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_command", API_RETURN_EMPTY); - if (!scm_is_string (command) || !scm_is_string (description) - || !scm_is_string (args) || !scm_is_string (args_description) - || !scm_is_string (completion) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_ERROR); - - result = script_ptr2str (script_api_hook_command (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (command), - scm_i_string_chars (description), - scm_i_string_chars (args), - scm_i_string_chars (args_description), - scm_i_string_chars (completion), - &weechat_guile_api_hook_command_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_command_run_cb: callback for command_run hooked - */ - -int -weechat_guile_api_hook_command_run_cb (void *data, struct t_gui_buffer *buffer, - const char *command) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (buffer); - func_argv[2] = (command) ? (char *)command : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_command_run: hook a command_run - */ - -SCM -weechat_guile_api_hook_command_run (SCM command, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_command_run", API_RETURN_EMPTY); - if (!scm_is_string (command) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_command_run (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (command), - &weechat_guile_api_hook_command_run_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_timer_cb: callback for timer hooked - */ - -int -weechat_guile_api_hook_timer_cb (void *data, int remaining_calls) -{ - struct t_script_callback *script_callback; - void *func_argv[2]; - char str_remaining_calls[32], empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - snprintf (str_remaining_calls, sizeof (str_remaining_calls), - "%d", remaining_calls); - - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = str_remaining_calls; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_timer: hook a timer - */ - -SCM -weechat_guile_api_hook_timer (SCM interval, SCM align_second, SCM max_calls, - SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_timer", API_RETURN_EMPTY); - if (!scm_is_integer (interval) || !scm_is_integer (align_second) - || !scm_is_integer (max_calls) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_timer (weechat_guile_plugin, - guile_current_script, - scm_to_int (interval), - scm_to_int (align_second), - scm_to_int (max_calls), - &weechat_guile_api_hook_timer_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_fd_cb: callback for fd hooked - */ - -int -weechat_guile_api_hook_fd_cb (void *data, int fd) -{ - struct t_script_callback *script_callback; - void *func_argv[2]; - char str_fd[32], empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - snprintf (str_fd, sizeof (str_fd), "%d", fd); - - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = str_fd; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_fd: hook a fd - */ - -SCM -weechat_guile_api_hook_fd (SCM fd, SCM read, SCM write, SCM exception, - SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_fd", API_RETURN_EMPTY); - if (!scm_is_integer (fd) || !scm_is_integer (read) - || !scm_is_integer (write) || !scm_is_integer (exception) - || !scm_is_string (function) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_fd (weechat_guile_plugin, - guile_current_script, - scm_to_int (fd), - scm_to_int (read), - scm_to_int (write), - scm_to_int (exception), - &weechat_guile_api_hook_fd_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_process_cb: callback for process hooked - */ - -int -weechat_guile_api_hook_process_cb (void *data, - const char *command, int return_code, - const char *out, const char *err) -{ - struct t_script_callback *script_callback; - void *func_argv[5]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (command) ? (char *)command : empty_arg; - func_argv[2] = &return_code; - func_argv[3] = (out) ? (char *)out : empty_arg; - func_argv[4] = (err) ? (char *)err : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ssiss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_process: hook a process - */ - -SCM -weechat_guile_api_hook_process (SCM command, SCM timeout, SCM function, - SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_process", API_RETURN_EMPTY); - if (!scm_is_string (command) || !scm_is_integer (timeout) - || !scm_is_string (function) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_process (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (command), - scm_to_int (timeout), - &weechat_guile_api_hook_process_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_process_hashtable: hook a process with options in a - * hashtable - */ - -SCM -weechat_guile_api_hook_process_hashtable (SCM command, SCM options, SCM timeout, - SCM function, SCM data) -{ - char *result; - SCM return_value; - struct t_hashtable *c_options; - - API_FUNC(1, "hook_process_hashtable", API_RETURN_EMPTY); - if (!scm_is_string (command) || !scm_list_p (options) - || !scm_is_integer (timeout) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - c_options = weechat_guile_alist_to_hashtable (options, - WEECHAT_SCRIPT_HASHTABLE_DEFAULT_SIZE); - - result = script_ptr2str (script_api_hook_process_hashtable (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (command), - c_options, - scm_to_int (timeout), - &weechat_guile_api_hook_process_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - if (c_options) - weechat_hashtable_free (c_options); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_connect_cb: callback for connect hooked - */ - -int -weechat_guile_api_hook_connect_cb (void *data, int status, int gnutls_rc, - const char *error, const char *ip_address) -{ - struct t_script_callback *script_callback; - void *func_argv[5]; - char str_status[32], str_gnutls_rc[32]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - snprintf (str_status, sizeof (str_status), "%d", status); - snprintf (str_gnutls_rc, sizeof (str_gnutls_rc), "%d", gnutls_rc); - - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = str_status; - func_argv[2] = str_gnutls_rc; - func_argv[3] = (ip_address) ? (char *)ip_address : empty_arg; - func_argv[4] = (error) ? (char *)error : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sssss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_connect: hook a connection - */ - -SCM -weechat_guile_api_hook_connect (SCM proxy, SCM address, SCM port, SCM sock, - SCM ipv6, SCM local_hostname, SCM function, - SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_connect", API_RETURN_EMPTY); - if (!scm_is_string (proxy) || !scm_is_string (address) - || !scm_is_integer (port) || !scm_is_integer (sock) - || !scm_is_integer (ipv6) || !scm_is_string (local_hostname) - || !scm_is_string (function) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_connect (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (proxy), - scm_i_string_chars (address), - scm_to_int (port), - scm_to_int (sock), - scm_to_int (ipv6), - NULL, /* gnutls session */ - NULL, /* gnutls callback */ - 0, /* gnutls DH key size */ - NULL, /* gnutls priorities */ - scm_i_string_chars (local_hostname), - &weechat_guile_api_hook_connect_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_print_cb: callback for print hooked - */ - -int -weechat_guile_api_hook_print_cb (void *data, struct t_gui_buffer *buffer, - time_t date, - int tags_count, const char **tags, - int displayed, int highlight, - const char *prefix, const char *message) -{ - struct t_script_callback *script_callback; - void *func_argv[8]; - char empty_arg[1] = { '\0' }; - static char timebuffer[64]; - int *rc, ret; - - /* make C compiler happy */ - (void) tags_count; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - snprintf (timebuffer, sizeof (timebuffer) - 1, "%ld", (long int)date); - - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (buffer); - func_argv[2] = timebuffer; - func_argv[3] = weechat_string_build_with_split_string (tags, ","); - if (!func_argv[3]) - func_argv[3] = strdup (""); - func_argv[4] = (displayed) ? strdup ("1") : strdup ("0"); - func_argv[5] = (highlight) ? strdup ("1") : strdup ("0"); - func_argv[6] = (prefix) ? (char *)prefix : empty_arg; - func_argv[7] = (message) ? (char *)message : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ssssssss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - if (func_argv[3]) - free (func_argv[3]); - if (func_argv[4]) - free (func_argv[4]); - if (func_argv[5]) - free (func_argv[5]); - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_print: hook a print - */ - -SCM -weechat_guile_api_hook_print (SCM buffer, SCM tags, SCM message, - SCM strip_colors, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_print", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (tags) - || !scm_is_string (message) || !scm_is_integer (strip_colors) - || !scm_is_string (function) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_print (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (buffer)), - scm_i_string_chars (tags), - scm_i_string_chars (message), - scm_to_int (strip_colors), - &weechat_guile_api_hook_print_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_signal_cb: callback for signal hooked - */ - -int -weechat_guile_api_hook_signal_cb (void *data, const char *signal, - const char *type_data, void *signal_data) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - static char value_str[64]; - int *rc, ret, free_needed; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (signal) ? (char *)signal : empty_arg; - free_needed = 0; - if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0) - { - func_argv[2] = (signal_data) ? (char *)signal_data : empty_arg; - } - else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_INT) == 0) - { - snprintf (value_str, sizeof (value_str) - 1, - "%d", *((int *)signal_data)); - func_argv[2] = value_str; - } - else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0) - { - func_argv[2] = script_ptr2str (signal_data); - free_needed = 1; - } - else - func_argv[2] = empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - if (free_needed && func_argv[2]) - free (func_argv[2]); - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_signal: hook a signal - */ - -SCM -weechat_guile_api_hook_signal (SCM signal, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_signal", API_RETURN_EMPTY); - if (!scm_is_string (signal) || !scm_is_string (function) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_signal (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (signal), - &weechat_guile_api_hook_signal_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_signal_send: send a signal - */ - -SCM -weechat_guile_api_hook_signal_send (SCM signal, SCM type_data, - SCM signal_data) -{ - int number; - - API_FUNC(1, "hook_signal_send", API_RETURN_ERROR); - if (!scm_is_string (signal) || !scm_is_string (type_data)) - API_WRONG_ARGS(API_RETURN_ERROR); - - if (strcmp (scm_i_string_chars (type_data), WEECHAT_HOOK_SIGNAL_STRING) == 0) - { - if (!scm_is_string (signal_data)) - API_WRONG_ARGS(API_RETURN_ERROR); - weechat_hook_signal_send (scm_i_string_chars (signal), - scm_i_string_chars (type_data), - (void *)scm_i_string_chars (signal_data)); - API_RETURN_OK; - } - else if (strcmp (scm_i_string_chars (type_data), WEECHAT_HOOK_SIGNAL_INT) == 0) - { - if (!scm_is_integer (signal_data)) - API_WRONG_ARGS(API_RETURN_ERROR); - number = scm_to_int (signal_data); - weechat_hook_signal_send (scm_i_string_chars (signal), - scm_i_string_chars (type_data), - &number); - API_RETURN_OK; - } - else if (strcmp (scm_i_string_chars (type_data), WEECHAT_HOOK_SIGNAL_POINTER) == 0) - { - if (!scm_is_string (signal_data)) - API_WRONG_ARGS(API_RETURN_ERROR); - weechat_hook_signal_send (scm_i_string_chars (signal), - scm_i_string_chars (type_data), - API_STR2PTR(scm_i_string_chars (signal_data))); - API_RETURN_OK; - } - - API_RETURN_ERROR; -} - -/* - * weechat_guile_api_hook_hsignal_cb: callback for hsignal hooked - */ - -int -weechat_guile_api_hook_hsignal_cb (void *data, const char *signal, - struct t_hashtable *hashtable) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (signal) ? (char *)signal : empty_arg; - func_argv[2] = hashtable; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ssh", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_hsignal: hook a hsignal - */ - -SCM -weechat_guile_api_hook_hsignal (SCM signal, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_hsignal", API_RETURN_EMPTY); - if (!scm_is_string (signal) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_hsignal (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (signal), - &weechat_guile_api_hook_hsignal_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_hsignal_send: send a hsignal - */ - -SCM -weechat_guile_api_hook_hsignal_send (SCM signal, SCM hashtable) -{ - struct t_hashtable *c_hashtable; - - API_FUNC(1, "hook_hsignal_send", API_RETURN_ERROR); - if (!scm_is_string (signal) || !scm_list_p (hashtable)) - API_WRONG_ARGS(API_RETURN_ERROR); - - c_hashtable = weechat_guile_alist_to_hashtable (hashtable, - WEECHAT_SCRIPT_HASHTABLE_DEFAULT_SIZE); - - weechat_hook_hsignal_send (scm_i_string_chars (signal), c_hashtable); - - if (c_hashtable) - weechat_hashtable_free (c_hashtable); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_hook_config_cb: callback for config option hooked - */ - -int -weechat_guile_api_hook_config_cb (void *data, const char *option, const char *value) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (option) ? (char *)option : empty_arg; - func_argv[2] = (value) ? (char *)value : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_config: hook a config option - */ - -SCM -weechat_guile_api_hook_config (SCM option, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_config", API_RETURN_EMPTY); - if (!scm_is_string (option) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_config (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (option), - &weechat_guile_api_hook_config_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_completion_cb: callback for completion hooked - */ - -int -weechat_guile_api_hook_completion_cb (void *data, const char *completion_item, - struct t_gui_buffer *buffer, - struct t_gui_completion *completion) -{ - struct t_script_callback *script_callback; - void *func_argv[4]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (completion_item) ? (char *)completion_item : empty_arg; - func_argv[2] = script_ptr2str (buffer); - func_argv[3] = script_ptr2str (completion); - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ssss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[2]) - free (func_argv[2]); - if (func_argv[3]) - free (func_argv[3]); - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_hook_completion: hook a completion - */ - -SCM -weechat_guile_api_hook_completion (SCM completion, SCM description, - SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_completion", API_RETURN_EMPTY); - if (!scm_is_string (completion) || !scm_is_string (description) - || !scm_is_string (function) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_completion (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (completion), - scm_i_string_chars (description), - &weechat_guile_api_hook_completion_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_completion_list_add: add a word to list for a completion - */ - -SCM -weechat_guile_api_hook_completion_list_add (SCM completion, SCM word, - SCM nick_completion, SCM where) -{ - API_FUNC(1, "hook_completion_list_add", API_RETURN_ERROR); - if (!scm_is_string (completion) || !scm_is_string (word) - || !scm_is_integer (nick_completion) || !scm_is_string (where)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_hook_completion_list_add (API_STR2PTR(scm_i_string_chars (completion)), - scm_i_string_chars (word), - scm_to_int (nick_completion), - scm_i_string_chars (where)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_hook_modifier_cb: callback for modifier hooked - */ - -char * -weechat_guile_api_hook_modifier_cb (void *data, const char *modifier, - const char *modifier_data, const char *string) -{ - struct t_script_callback *script_callback; - void *func_argv[4]; - char empty_arg[1] = { '\0' }; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (modifier) ? (char *)modifier : empty_arg; - func_argv[2] = (modifier_data) ? (char *)modifier_data : empty_arg; - func_argv[3] = (string) ? (char *)string : empty_arg; - - return (char *)weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_STRING, - script_callback->function, - "ssss", func_argv); - } - - return NULL; -} - -/* - * weechat_guile_api_hook_modifier: hook a modifier - */ - -SCM -weechat_guile_api_hook_modifier (SCM modifier, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_modifier", API_RETURN_EMPTY); - if (!scm_is_string (modifier) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_modifier (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (modifier), - &weechat_guile_api_hook_modifier_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_modifier_exec: execute a modifier hook - */ - -SCM -weechat_guile_api_hook_modifier_exec (SCM modifier, SCM modifier_data, - SCM string) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_modifier_exec", API_RETURN_EMPTY); - if (!scm_is_string (modifier) || !scm_is_string (modifier_data) - || !scm_is_string (string)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_hook_modifier_exec (scm_i_string_chars (modifier), - scm_i_string_chars (modifier_data), - scm_i_string_chars (string)); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_info_cb: callback for info hooked - */ - -const char * -weechat_guile_api_hook_info_cb (void *data, const char *info_name, - const char *arguments) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (info_name) ? (char *)info_name : empty_arg; - func_argv[2] = (arguments) ? (char *)arguments : empty_arg; - - return (const char *)weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_STRING, - script_callback->function, - "sss", func_argv); - } - - return NULL; -} - -/* - * weechat_guile_api_hook_info: hook an info - */ - -SCM -weechat_guile_api_hook_info (SCM info_name, SCM description, - SCM args_description, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_info", API_RETURN_EMPTY); - if (!scm_is_string (info_name) || !scm_is_string (description) - || !scm_is_string (args_description) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_info (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (info_name), - scm_i_string_chars (description), - scm_i_string_chars (args_description), - &weechat_guile_api_hook_info_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_info_hashtable_cb: callback for info_hashtable hooked - */ - -struct t_hashtable * -weechat_guile_api_hook_info_hashtable_cb (void *data, const char *info_name, - struct t_hashtable *hashtable) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (info_name) ? (char *)info_name : empty_arg; - func_argv[2] = hashtable; - - return (struct t_hashtable *)weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_HASHTABLE, - script_callback->function, - "ssh", func_argv); - } - - return NULL; -} - -/* - * weechat_guile_api_hook_info_hashtable: hook an info_hashtable - */ - -SCM -weechat_guile_api_hook_info_hashtable (SCM info_name, SCM description, - SCM args_description, - SCM output_description, SCM function, - SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_info_hashtable", API_RETURN_EMPTY); - if (!scm_is_string (info_name) || !scm_is_string (description) - || !scm_is_string (args_description) || !scm_is_string (output_description) - || !scm_is_string (function) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_info_hashtable (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (info_name), - scm_i_string_chars (description), - scm_i_string_chars (args_description), - scm_i_string_chars (output_description), - &weechat_guile_api_hook_info_hashtable_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_infolist_cb: callback for infolist hooked - */ - -struct t_infolist * -weechat_guile_api_hook_infolist_cb (void *data, const char *infolist_name, - void *pointer, const char *arguments) -{ - struct t_script_callback *script_callback; - void *func_argv[4]; - char empty_arg[1] = { '\0' }; - struct t_infolist *result; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = (infolist_name) ? (char *)infolist_name : empty_arg; - func_argv[2] = script_ptr2str (pointer); - func_argv[3] = (arguments) ? (char *)arguments : empty_arg; - - result = (struct t_infolist *)weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_STRING, - script_callback->function, - "ssss", func_argv); - - if (func_argv[2]) - free (func_argv[2]); - - return result; - } - - return NULL; -} - -/* - * weechat_guile_api_hook_infolist: hook an infolist - */ - -SCM -weechat_guile_api_hook_infolist (SCM infolist_name, SCM description, - SCM pointer_description, SCM args_description, - SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_infolist", API_RETURN_EMPTY); - if (!scm_is_string (infolist_name) || !scm_is_string (description) - || !scm_is_string (pointer_description) || !scm_is_string (args_description) - || !scm_is_string (function) || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_infolist (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (infolist_name), - scm_i_string_chars (description), - scm_i_string_chars (pointer_description), - scm_i_string_chars (args_description), - &weechat_guile_api_hook_infolist_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hook_focus_cb: callback for focus hooked - */ - -struct t_hashtable * -weechat_guile_api_hook_focus_cb (void *data, struct t_hashtable *info) -{ - struct t_script_callback *script_callback; - void *func_argv[2]; - char empty_arg[1] = { '\0' }; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = info; - - return (struct t_hashtable *)weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_HASHTABLE, - script_callback->function, - "sh", func_argv); - } - - return NULL; -} - -/* - * weechat_guile_api_hook_focus: hook a focus - */ - -SCM -weechat_guile_api_hook_focus (SCM area, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hook_focus", API_RETURN_EMPTY); - if (!scm_is_string (area) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_hook_focus (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (area), - &weechat_guile_api_hook_focus_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_unhook: unhook something - */ - -SCM -weechat_guile_api_unhook (SCM hook) -{ - API_FUNC(1, "unhook", API_RETURN_ERROR); - if (!scm_is_string (hook)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_unhook (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (hook))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_unhook_all: unhook all for script - */ - -SCM -weechat_guile_api_unhook_all () -{ - API_FUNC(1, "unhook_all", API_RETURN_ERROR); - - script_api_unhook_all (weechat_guile_plugin, guile_current_script); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_buffer_input_data_cb: callback for input data in a buffer - */ - -int -weechat_guile_api_buffer_input_data_cb (void *data, struct t_gui_buffer *buffer, - const char *input_data) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (buffer); - func_argv[2] = (input_data) ? (char *)input_data : empty_arg; - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "sss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_buffer_close_cb: callback for closed buffer - */ - -int -weechat_guile_api_buffer_close_cb (void *data, struct t_gui_buffer *buffer) -{ - struct t_script_callback *script_callback; - void *func_argv[2]; - char empty_arg[1] = { '\0' }; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (buffer); - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_buffer_new: create a new buffer - */ - -SCM -weechat_guile_api_buffer_new (SCM name, SCM function_input, SCM data_input, - SCM function_close, SCM data_close) -{ - char *result; - SCM return_value; - - API_FUNC(1, "buffer_new", API_RETURN_EMPTY); - if (!scm_is_string (name) || !scm_is_string (function_input) - || !scm_is_string (data_input) || !scm_is_string (function_close) - || !scm_is_string (data_close)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_buffer_new (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (name), - &weechat_guile_api_buffer_input_data_cb, - scm_i_string_chars (function_input), - scm_i_string_chars (data_input), - &weechat_guile_api_buffer_close_cb, - scm_i_string_chars (function_close), - scm_i_string_chars (data_close))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_buffer_search: search a buffer - */ - -SCM -weechat_guile_api_buffer_search (SCM plugin, SCM name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "buffer_search", API_RETURN_EMPTY); - if (!scm_is_string (plugin) || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_buffer_search (scm_i_string_chars (plugin), - scm_i_string_chars (name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_buffer_search_main: search main buffer (WeeChat core buffer) - */ - -SCM -weechat_guile_api_buffer_search_main () -{ - char *result; - SCM return_value; - - API_FUNC(1, "buffer_search_main", API_RETURN_EMPTY); - - result = script_ptr2str (weechat_buffer_search_main ()); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_current_buffer: get current buffer - */ - -SCM -weechat_guile_api_current_buffer () -{ - char *result; - SCM return_value; - - API_FUNC(1, "current_buffer", API_RETURN_EMPTY); - - result = script_ptr2str (weechat_current_buffer ()); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_buffer_clear: clear a buffer - */ - -SCM -weechat_guile_api_buffer_clear (SCM buffer) -{ - API_FUNC(1, "buffer_clear", API_RETURN_ERROR); - if (!scm_is_string (buffer)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_buffer_clear (API_STR2PTR(scm_i_string_chars (buffer))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_buffer_close: close a buffer - */ - -SCM -weechat_guile_api_buffer_close (SCM buffer) -{ - API_FUNC(1, "buffer_close", API_RETURN_ERROR); - if (!scm_is_string (buffer)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_buffer_close (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (buffer))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_buffer_merge: merge a buffer to another buffer - */ - -SCM -weechat_guile_api_buffer_merge (SCM buffer, SCM target_buffer) -{ - API_FUNC(1, "buffer_merge", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (target_buffer)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_buffer_merge (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (target_buffer))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_buffer_unmerge: unmerge a buffer from a group of merged - * buffers - */ - -SCM -weechat_guile_api_buffer_unmerge (SCM buffer, SCM number) -{ - API_FUNC(1, "buffer_unmerge", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_integer (number)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_buffer_unmerge (API_STR2PTR(scm_i_string_chars (buffer)), - scm_to_int (number)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_buffer_get_integer: get a buffer property as integer - */ - -SCM -weechat_guile_api_buffer_get_integer (SCM buffer, SCM property) -{ - int value; - - API_FUNC(1, "buffer_get_integer", API_RETURN_INT(-1)); - if (!scm_is_string (buffer) || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - value = weechat_buffer_get_integer (API_STR2PTR(scm_i_string_chars (buffer)), - scm_i_string_chars (property)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_buffer_get_string: get a buffer property as string - */ - -SCM -weechat_guile_api_buffer_get_string (SCM buffer, SCM property) -{ - const char *result; - - API_FUNC(1, "buffer_get_string", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_buffer_get_string (API_STR2PTR(scm_i_string_chars (buffer)), - scm_i_string_chars (property)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_buffer_get_pointer: get a buffer property as pointer - */ - -SCM -weechat_guile_api_buffer_get_pointer (SCM buffer, SCM property) -{ - char *result; - SCM return_value; - - API_FUNC(1, "buffer_get_pointer", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_buffer_get_pointer (API_STR2PTR(scm_i_string_chars (buffer)), - scm_i_string_chars (property))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_buffer_set: set a buffer property - */ - -SCM -weechat_guile_api_buffer_set (SCM buffer, SCM property, SCM value) -{ - API_FUNC(1, "buffer_set", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (property) - || !scm_is_string (value)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_buffer_set (API_STR2PTR(scm_i_string_chars (buffer)), - scm_i_string_chars (property), - scm_i_string_chars (value)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_buffer_string_replace_local_var: replace local variables - * ($var) in a string, using - * value of local variables - */ - -SCM -weechat_guile_api_buffer_string_replace_local_var (SCM buffer, SCM string) -{ - char *result; - SCM return_value; - - API_FUNC(1, "buffer_string_replace_local_var", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (string)) - API_WRONG_ARGS(API_RETURN_ERROR); - - result = weechat_buffer_string_replace_local_var (API_STR2PTR(scm_i_string_chars (buffer)), - scm_i_string_chars (string)); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_buffer_match_list: return 1 if buffer matches list of buffers - */ - -SCM -weechat_guile_api_buffer_match_list (SCM buffer, SCM string) -{ - int value; - - API_FUNC(1, "buffer_match_list", API_RETURN_INT(0)); - if (!scm_is_string (buffer) || !scm_is_string (string)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_buffer_match_list (API_STR2PTR(scm_i_string_chars (buffer)), - scm_i_string_chars (string)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_current_window: get current window - */ - -SCM -weechat_guile_api_current_window () -{ - char *result; - SCM return_value; - - API_FUNC(1, "current_window", API_RETURN_EMPTY); - - result = script_ptr2str (weechat_current_window ()); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_window_search_with_buffer: search a window with buffer - * pointer - */ - -SCM -weechat_guile_api_window_search_with_buffer (SCM buffer) -{ - char *result; - SCM return_value; - - API_FUNC(1, "window_search_with_buffer", API_RETURN_EMPTY); - if (!scm_is_string (buffer)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_window_search_with_buffer (API_STR2PTR(scm_i_string_chars (buffer)))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_window_get_integer: get a window property as integer - */ - -SCM -weechat_guile_api_window_get_integer (SCM window, SCM property) -{ - int value; - - API_FUNC(1, "window_get_integer", API_RETURN_INT(-1)); - if (!scm_is_string (window) || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - value = weechat_window_get_integer (API_STR2PTR(scm_i_string_chars (window)), - scm_i_string_chars (property)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_window_get_string: get a window property as string - */ - -SCM -weechat_guile_api_window_get_string (SCM window, SCM property) -{ - const char *result; - - API_FUNC(1, "window_get_string", API_RETURN_EMPTY); - if (!scm_is_string (window) || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_window_get_string (API_STR2PTR(scm_i_string_chars (window)), - scm_i_string_chars (property)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_window_get_pointer: get a window property as pointer - */ - -SCM -weechat_guile_api_window_get_pointer (SCM window, SCM property) -{ - char *result; - SCM return_value; - - API_FUNC(1, "window_get_pointer", API_RETURN_EMPTY); - if (!scm_is_string (window) || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_window_get_pointer (API_STR2PTR(scm_i_string_chars (window)), - scm_i_string_chars (property))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_window_set_title: set window title - */ - -SCM -weechat_guile_api_window_set_title (SCM title) -{ - API_FUNC(1, "window_set_title", API_RETURN_ERROR); - if (!scm_is_string (title)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_window_set_title (scm_i_string_chars (title)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_nicklist_add_group: add a group in nicklist - */ - -SCM -weechat_guile_api_nicklist_add_group (SCM buffer, SCM parent_group, SCM name, - SCM color, SCM visible) -{ - char *result; - SCM return_value; - - API_FUNC(1, "nicklist_add_group", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (parent_group) - || !scm_is_string (name) || !scm_is_string (color) - || !scm_is_integer (visible)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_nicklist_add_group (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (parent_group)), - scm_i_string_chars (name), - scm_i_string_chars (color), - scm_to_int (visible))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_nicklist_search_group: search a group in nicklist - */ - -SCM -weechat_guile_api_nicklist_search_group (SCM buffer, SCM from_group, SCM name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "nicklist_search_group", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (from_group) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_nicklist_search_group (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (from_group)), - scm_i_string_chars (name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_nicklist_add_nick: add a nick in nicklist - */ - -SCM -weechat_guile_api_nicklist_add_nick (SCM buffer, SCM group, SCM name, - SCM color, SCM prefix, SCM prefix_color, - SCM visible) -{ - char *result; - SCM return_value; - - API_FUNC(1, "nicklist_add_nick", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (group) - || !scm_is_string (name) || !scm_is_string (color) - || !scm_is_string (prefix) || !scm_is_string (prefix_color) - || !scm_is_integer (visible)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_nicklist_add_nick (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (group)), - scm_i_string_chars (name), - scm_i_string_chars (color), - scm_i_string_chars (prefix), - scm_i_string_chars (prefix_color), - scm_to_int (visible))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_nicklist_search_nick: search a nick in nicklist - */ - -SCM -weechat_guile_api_nicklist_search_nick (SCM buffer, SCM from_group, SCM name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "nicklist_search_nick", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (from_group) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_nicklist_search_nick (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (from_group)), - scm_i_string_chars (name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_nicklist_remove_group: remove a group from nicklist - */ - -SCM -weechat_guile_api_nicklist_remove_group (SCM buffer, SCM group) -{ - API_FUNC(1, "nicklist_remove_group", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (group)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_nicklist_remove_group (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (group))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_nicklist_remove_nick: remove a nick from nicklist - */ - -SCM -weechat_guile_api_nicklist_remove_nick (SCM buffer, SCM nick) -{ - API_FUNC(1, "nicklist_remove_nick", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (nick)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_nicklist_remove_nick (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (nick))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_nicklist_remove_all: remove all groups/nicks from nicklist - */ - -SCM -weechat_guile_api_nicklist_remove_all (SCM buffer) -{ - API_FUNC(1, "nicklist_remove_all", API_RETURN_ERROR); - if (!scm_is_string (buffer)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_nicklist_remove_all (API_STR2PTR(scm_i_string_chars (buffer))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_nicklist_group_get_integer: get a group property as integer - */ - -SCM -weechat_guile_api_nicklist_group_get_integer (SCM buffer, SCM group, - SCM property) -{ - int value; - - API_FUNC(1, "nicklist_group_get_integer", API_RETURN_INT(-1)); - if (!scm_is_string (buffer) || !scm_is_string (group) - || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - value = weechat_nicklist_group_get_integer (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (group)), - scm_i_string_chars (property)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_nicklist_group_get_string: get a group property as string - */ - -SCM -weechat_guile_api_nicklist_group_get_string (SCM buffer, SCM group, - SCM property) -{ - const char *result; - - API_FUNC(1, "nicklist_group_get_string", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (group) - || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_nicklist_group_get_string (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (group)), - scm_i_string_chars (property)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_nicklist_group_get_pointer: get a group property as pointer - */ - -SCM -weechat_guile_api_nicklist_group_get_pointer (SCM buffer, SCM group, - SCM property) -{ - char *result; - SCM return_value; - - API_FUNC(1, "nicklist_group_get_pointer", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (group) - || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_nicklist_group_get_pointer (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (group)), - scm_i_string_chars (property))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_nicklist_group_set: set a group property - */ - -SCM -weechat_guile_api_nicklist_group_set (SCM buffer, SCM group, SCM property, - SCM value) -{ - API_FUNC(1, "nicklist_group_set", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (group) || !scm_is_string (property) || !scm_is_string (value)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_nicklist_group_set (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (group)), - scm_i_string_chars (property), - scm_i_string_chars (value)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_nicklist_nick_get_integer: get a nick property as integer - */ - -SCM -weechat_guile_api_nicklist_nick_get_integer (SCM buffer, SCM nick, SCM property) -{ - int value; - - API_FUNC(1, "nicklist_nick_get_integer", API_RETURN_INT(-1)); - if (!scm_is_string (buffer) || !scm_is_string (nick) - || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - value = weechat_nicklist_nick_get_integer (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (nick)), - scm_i_string_chars (property)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_nicklist_nick_get_string: get a nick property as string - */ - -SCM -weechat_guile_api_nicklist_nick_get_string (SCM buffer, SCM nick, SCM property) -{ - const char *result; - - API_FUNC(1, "nicklist_nick_get_string", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (nick) - || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_nicklist_nick_get_string (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (nick)), - scm_i_string_chars (property)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_nicklist_nick_get_pointer: get a nick property as pointer - */ - -SCM -weechat_guile_api_nicklist_nick_get_pointer (SCM buffer, SCM nick, SCM property) -{ - char *result; - SCM return_value; - - API_FUNC(1, "nicklist_nick_get_pointer", API_RETURN_EMPTY); - if (!scm_is_string (buffer) || !scm_is_string (nick) - || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_nicklist_nick_get_pointer (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (nick)), - scm_i_string_chars (property))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_nicklist_nick_set: set a nick property - */ - -SCM -weechat_guile_api_nicklist_nick_set (SCM buffer, SCM nick, SCM property, - SCM value) -{ - API_FUNC(1, "nicklist_nick_set", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (nick) - || !scm_is_string (property) || !scm_is_string (value)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_nicklist_nick_set (API_STR2PTR(scm_i_string_chars (buffer)), - API_STR2PTR(scm_i_string_chars (nick)), - scm_i_string_chars (property), - scm_i_string_chars (value)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_bar_item_search: search a bar item - */ - -SCM -weechat_guile_api_bar_item_search (SCM name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "bar_item_search", API_RETURN_EMPTY); - if (!scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_bar_item_search (scm_i_string_chars (name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_bar_item_build_cb: callback for building bar item - */ - -char * -weechat_guile_api_bar_item_build_cb (void *data, struct t_gui_bar_item *item, - struct t_gui_window *window) -{ - struct t_script_callback *script_callback; - void *func_argv[3]; - char empty_arg[1] = { '\0' }, *ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (item); - func_argv[2] = script_ptr2str (window); - - ret = (char *)weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_STRING, - script_callback->function, - "sss", func_argv); - - if (func_argv[1]) - free (func_argv[1]); - if (func_argv[2]) - free (func_argv[2]); - - return ret; - } - - return NULL; -} - -/* - * weechat_guile_api_bar_item_new: add a new bar item - */ - -SCM -weechat_guile_api_bar_item_new (SCM name, SCM function, SCM data) -{ - char *result; - SCM return_value; - - API_FUNC(1, "bar_item_new", API_RETURN_EMPTY); - if (!scm_is_string (name) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (script_api_bar_item_new (weechat_guile_plugin, - guile_current_script, - scm_i_string_chars (name), - &weechat_guile_api_bar_item_build_cb, - scm_i_string_chars (function), - scm_i_string_chars (data))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_bar_item_update: update a bar item on screen - */ - -SCM -weechat_guile_api_bar_item_update (SCM name) -{ - API_FUNC(1, "bar_item_update", API_RETURN_ERROR); - if (!scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_bar_item_update (scm_i_string_chars (name)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_bar_item_remove: remove a bar item - */ - -SCM -weechat_guile_api_bar_item_remove (SCM item) -{ - API_FUNC(1, "bar_item_remove", API_RETURN_ERROR); - if (!scm_is_string (item)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_bar_item_remove (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (item))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_bar_search: search a bar - */ - -SCM -weechat_guile_api_bar_search (SCM name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "bar_search", API_RETURN_EMPTY); - if (!scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_bar_search (scm_i_string_chars (name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_bar_new: add a new bar - */ - -SCM -weechat_guile_api_bar_new (SCM args) -{ - SCM name, hidden, priority, type, conditions, position, filling_top_bottom; - SCM filling_left_right, size, size_max, color_fg, color_delim, color_bg; - SCM separator, items; - char *result; - SCM return_value; - - API_FUNC(1, "bar_new", API_RETURN_EMPTY); - if (!scm_list_p (args) || (scm_to_int (scm_length (args)) != 15)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - name = scm_list_ref (args, scm_from_int (0)); - hidden = scm_list_ref (args, scm_from_int (1)); - priority = scm_list_ref (args, scm_from_int (2)); - type = scm_list_ref (args, scm_from_int (3)); - conditions = scm_list_ref (args, scm_from_int (4)); - position = scm_list_ref (args, scm_from_int (5)); - filling_top_bottom = scm_list_ref (args, scm_from_int (6)); - filling_left_right = scm_list_ref (args, scm_from_int (7)); - size = scm_list_ref (args, scm_from_int (8)); - size_max = scm_list_ref (args, scm_from_int (9)); - color_fg = scm_list_ref (args, scm_from_int (10)); - color_delim = scm_list_ref (args, scm_from_int (11)); - color_bg = scm_list_ref (args, scm_from_int (12)); - separator = scm_list_ref (args, scm_from_int (13)); - items = scm_list_ref (args, scm_from_int (14)); - - if (!scm_is_string (name) || !scm_is_string (hidden) - || !scm_is_string (priority) || !scm_is_string (type) - || !scm_is_string (conditions) || !scm_is_string (position) - || !scm_is_string (filling_top_bottom) || !scm_is_string (filling_left_right) - || !scm_is_string (size) || !scm_is_string (size_max) - || !scm_is_string (color_fg) || !scm_is_string (color_delim) - || !scm_is_string (color_bg) || !scm_is_string (separator) - || !scm_is_string (items)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_bar_new (scm_i_string_chars (name), - scm_i_string_chars (hidden), - scm_i_string_chars (priority), - scm_i_string_chars (type), - scm_i_string_chars (conditions), - scm_i_string_chars (position), - scm_i_string_chars (filling_top_bottom), - scm_i_string_chars (filling_left_right), - scm_i_string_chars (size), - scm_i_string_chars (size_max), - scm_i_string_chars (color_fg), - scm_i_string_chars (color_delim), - scm_i_string_chars (color_bg), - scm_i_string_chars (separator), - scm_i_string_chars (items))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_bar_set: set a bar property - */ - -SCM -weechat_guile_api_bar_set (SCM bar, SCM property, SCM value) -{ - API_FUNC(1, "bar_set", API_RETURN_ERROR); - if (!scm_is_string (bar) || !scm_is_string (property) - || !scm_is_string (value)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_bar_set (API_STR2PTR(scm_i_string_chars (bar)), - scm_i_string_chars (property), - scm_i_string_chars (value)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_bar_update: update a bar on screen - */ - -SCM -weechat_guile_api_bar_update (SCM name) -{ - API_FUNC(1, "bar_update", API_RETURN_ERROR); - if (!scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_bar_update (scm_i_string_chars (name)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_bar_remove: remove a bar - */ - -SCM -weechat_guile_api_bar_remove (SCM bar) -{ - API_FUNC(1, "bar_remove", API_RETURN_ERROR); - if (!scm_is_string (bar)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_bar_remove (API_STR2PTR(scm_i_string_chars (bar))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_command: send command to server - */ - -SCM -weechat_guile_api_command (SCM buffer, SCM command) -{ - API_FUNC(1, "command", API_RETURN_ERROR); - if (!scm_is_string (buffer) || !scm_is_string (command)) - API_WRONG_ARGS(API_RETURN_ERROR); - - script_api_command (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (buffer)), - scm_i_string_chars (command)); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_info_get: get info (as string) - */ - -SCM -weechat_guile_api_info_get (SCM info_name, SCM arguments) -{ - const char *result; - - API_FUNC(1, "info_get", API_RETURN_EMPTY); - if (!scm_is_string (info_name) || !scm_is_string (arguments)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_info_get (scm_i_string_chars (info_name), - scm_i_string_chars (arguments)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_info_get_hashtable: get info (as hashtable) - */ - -SCM -weechat_guile_api_info_get_hashtable (SCM info_name, SCM hash) -{ - struct t_hashtable *c_hashtable, *result_hashtable; - SCM result_alist; - - API_FUNC(1, "info_get_hashtable", API_RETURN_EMPTY); - if (!scm_is_string (info_name) || !scm_list_p (hash)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - c_hashtable = weechat_guile_alist_to_hashtable (hash, - WEECHAT_SCRIPT_HASHTABLE_DEFAULT_SIZE); - - result_hashtable = weechat_info_get_hashtable (scm_i_string_chars (info_name), - c_hashtable); - result_alist = weechat_guile_hashtable_to_alist (result_hashtable); - - if (c_hashtable) - weechat_hashtable_free (c_hashtable); - if (result_hashtable) - weechat_hashtable_free (result_hashtable); - - return result_alist; -} - -/* - * weechat_guile_api_infolist_new: create new infolist - */ - -SCM -weechat_guile_api_infolist_new () -{ - char *result; - SCM return_value; - - API_FUNC(1, "infolist_new", API_RETURN_EMPTY); - - result = script_ptr2str (weechat_infolist_new ()); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_new_item: create new item in infolist - */ - -SCM -weechat_guile_api_infolist_new_item (SCM infolist) -{ - char *result; - SCM return_value; - - API_FUNC(1, "infolist_new_item", API_RETURN_EMPTY); - if (!scm_is_string (infolist)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_infolist_new_item (API_STR2PTR(scm_i_string_chars (infolist)))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_new_var_integer: create new integer variable in - * infolist - */ - -SCM -weechat_guile_api_infolist_new_var_integer (SCM infolist, SCM name, SCM value) -{ - char *result; - SCM return_value; - - API_FUNC(1, "infolist_new_var_integer", API_RETURN_EMPTY); - if (!scm_is_string (infolist) || !scm_is_string (name) - || !scm_is_integer (value)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_infolist_new_var_integer (API_STR2PTR(scm_i_string_chars (infolist)), - scm_i_string_chars (name), - scm_to_int (value))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_new_var_string: create new string variable in - * infolist - */ - -SCM -weechat_guile_api_infolist_new_var_string (SCM infolist, SCM name, SCM value) -{ - char *result; - SCM return_value; - - API_FUNC(1, "infolist_new_var_string", API_RETURN_EMPTY); - if (!scm_is_string (infolist) || !scm_is_string (name) - || !scm_is_string (value)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_infolist_new_var_string (API_STR2PTR(scm_i_string_chars (infolist)), - scm_i_string_chars (name), - scm_i_string_chars (value))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_new_var_pointer: create new pointer variable in - * infolist - */ - -SCM -weechat_guile_api_infolist_new_var_pointer (SCM infolist, SCM name, SCM value) -{ - char *result; - SCM return_value; - - API_FUNC(1, "infolist_new_var_pointer", API_RETURN_EMPTY); - if (!scm_is_string (infolist) || !scm_is_string (name) - || !scm_is_string (value)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_infolist_new_var_pointer (API_STR2PTR(scm_i_string_chars (infolist)), - scm_i_string_chars (name), - API_STR2PTR(scm_i_string_chars (value)))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_new_var_time: create new time variable in infolist - */ - -SCM -weechat_guile_api_infolist_new_var_time (SCM infolist, SCM name, SCM value) -{ - char *result; - SCM return_value; - - API_FUNC(1, "infolist_new_var_time", API_RETURN_EMPTY); - if (!scm_is_string (infolist) || !scm_is_string (name) - || !scm_is_integer (value)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_infolist_new_var_time (API_STR2PTR(scm_i_string_chars (infolist)), - scm_i_string_chars (name), - scm_to_int (value))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_get: get list with infos - */ - -SCM -weechat_guile_api_infolist_get (SCM name, SCM pointer, SCM arguments) -{ - char *result; - SCM return_value; - - API_FUNC(1, "infolist_get", API_RETURN_EMPTY); - if (!scm_is_string (name) || !scm_is_string (pointer) - || !scm_is_string (arguments)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_infolist_get (scm_i_string_chars (name), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (arguments))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_next: move item pointer to next item in infolist - */ - -SCM -weechat_guile_api_infolist_next (SCM infolist) -{ - int value; - - API_FUNC(1, "infolist_next", API_RETURN_INT(0)); - if (!scm_is_string (infolist)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_infolist_next (API_STR2PTR(scm_i_string_chars (infolist))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_infolist_prev: move item pointer to previous item in - * infolist - */ - -SCM -weechat_guile_api_infolist_prev (SCM infolist) -{ - int value; - - API_FUNC(1, "infolist_prev", API_RETURN_INT(0)); - if (!scm_is_string (infolist)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_infolist_prev (API_STR2PTR(scm_i_string_chars (infolist))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_infolist_reset_item_cursor: reset pointer to current item - * in infolist - */ - -SCM -weechat_guile_api_infolist_reset_item_cursor (SCM infolist) -{ - API_FUNC(1, "infolist_reset_item_cursor", API_RETURN_ERROR); - if (!scm_is_string (infolist)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_infolist_reset_item_cursor (API_STR2PTR(scm_i_string_chars (infolist))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_infolist_fields: get list of fields for current item of infolist - */ - -SCM -weechat_guile_api_infolist_fields (SCM infolist) -{ - const char *result; - - API_FUNC(1, "infolist_fields", API_RETURN_EMPTY); - if (!scm_is_string (infolist)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_infolist_fields (API_STR2PTR(scm_i_string_chars (infolist))); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_infolist_integer: get integer value of a variable in - * infolist - */ - -SCM -weechat_guile_api_infolist_integer (SCM infolist, SCM variable) -{ - int value; - - API_FUNC(1, "infolist_integer", API_RETURN_INT(0)); - if (!scm_is_string (infolist) || !scm_is_string (variable)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_infolist_integer (API_STR2PTR(scm_i_string_chars (infolist)), - scm_i_string_chars (variable)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_infolist_string: get string value of a variable in infolist - */ - -SCM -weechat_guile_api_infolist_string (SCM infolist, SCM variable) -{ - const char *result; - - API_FUNC(1, "infolist_string", API_RETURN_EMPTY); - if (!scm_is_string (infolist) || !scm_is_string (variable)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_infolist_string (API_STR2PTR(scm_i_string_chars (infolist)), - scm_i_string_chars (variable)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_infolist_pointer: get pointer value of a variable in - * infolist - */ - -SCM -weechat_guile_api_infolist_pointer (SCM infolist, SCM variable) -{ - char *result; - SCM return_value; - - API_FUNC(1, "infolist_pointer", API_RETURN_EMPTY); - if (!scm_is_string (infolist) || !scm_is_string (variable)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_infolist_pointer (API_STR2PTR(scm_i_string_chars (infolist)), - scm_i_string_chars (variable))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_time: get time value of a variable in infolist - */ - -SCM -weechat_guile_api_infolist_time (SCM infolist, SCM variable) -{ - char timebuffer[64], *result; - time_t time; - struct tm *date_tmp; - SCM return_value; - - API_FUNC(1, "infolist_time", API_RETURN_EMPTY); - if (!scm_is_string (infolist) || !scm_is_string (variable)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - timebuffer[0] = '\0'; - time = weechat_infolist_time (API_STR2PTR(scm_i_string_chars (infolist)), - scm_i_string_chars (variable)); - date_tmp = localtime (&time); - if (date_tmp) - strftime (timebuffer, sizeof (timebuffer), "%F %T", date_tmp); - result = strdup (timebuffer); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_infolist_free: free infolist - */ - -SCM -weechat_guile_api_infolist_free (SCM infolist) -{ - API_FUNC(1, "infolist_free", API_RETURN_ERROR); - if (!scm_is_string (infolist)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_infolist_free (API_STR2PTR(scm_i_string_chars (infolist))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_hdata_get: get hdata - */ - -SCM -weechat_guile_api_hdata_get (SCM name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hdata_get", API_RETURN_EMPTY); - if (!scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_hdata_get (scm_i_string_chars (name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hdata_get_var_offset: get offset of variable in hdata - */ - -SCM -weechat_guile_api_hdata_get_var_offset (SCM hdata, SCM name) -{ - int value; - - API_FUNC(1, "hdata_get_var_offset", API_RETURN_INT(0)); - if (!scm_is_string (hdata) || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_hdata_get_var_offset (API_STR2PTR(scm_i_string_chars (hdata)), - scm_i_string_chars (name)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_hdata_get_var_type_string: get type of variable as string - * in hdata - */ - -SCM -weechat_guile_api_hdata_get_var_type_string (SCM hdata, SCM name) -{ - const char *result; - - API_FUNC(1, "hdata_get_var_type_string", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_hdata_get_var_type_string (API_STR2PTR(scm_i_string_chars (hdata)), - scm_i_string_chars (name)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_hdata_get_var_array_size: get array size for variable in - * hdata - */ - -SCM -weechat_guile_api_hdata_get_var_array_size (SCM hdata, SCM pointer, SCM name) -{ - int value; - - API_FUNC(1, "hdata_get_var_array_size", API_RETURN_INT(-1)); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_INT(-1)); - - value = weechat_hdata_get_var_array_size (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_hdata_get_var_array_size_string: get array size for variable - * in hdata (as string) - */ - -SCM -weechat_guile_api_hdata_get_var_array_size_string (SCM hdata, SCM pointer, - SCM name) -{ - const char *result; - - API_FUNC(1, "hdata_get_var_array_size_string", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_hdata_get_var_array_size_string (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_hdata_get_var_hdata: get hdata for variable in hdata - */ - -SCM -weechat_guile_api_hdata_get_var_hdata (SCM hdata, SCM name) -{ - const char *result; - - API_FUNC(1, "hdata_get_var_hdata", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_hdata_get_var_hdata (API_STR2PTR(scm_i_string_chars (hdata)), - scm_i_string_chars (name)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_hdata_get_list: get list pointer in hdata - */ - -SCM -weechat_guile_api_hdata_get_list (SCM hdata, SCM name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hdata_get_list", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_hdata_get_list (API_STR2PTR(scm_i_string_chars (hdata)), - scm_i_string_chars (name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hdata_check_pointer: check pointer with hdata/list - */ - -SCM -weechat_guile_api_hdata_check_pointer (SCM hdata, SCM list, SCM pointer) -{ - int value; - - API_FUNC(1, "hdata_check_pointer", API_RETURN_INT(0)); - if (!scm_is_string (hdata) || !scm_is_string (list) - || !scm_is_string (pointer)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_hdata_check_pointer (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (list)), - API_STR2PTR(scm_i_string_chars (pointer))); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_hdata_move: move pointer to another element in list - */ - -SCM -weechat_guile_api_hdata_move (SCM hdata, SCM pointer, SCM count) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hdata_move", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_integer (count)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_hdata_move (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_to_int (count)); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hdata_char: get char value of a variable in structure - * using hdata - */ - -SCM -weechat_guile_api_hdata_char (SCM hdata, SCM pointer, SCM name) -{ - int value; - - API_FUNC(1, "hdata_char", API_RETURN_INT(0)); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = (int)weechat_hdata_char (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_hdata_integer: get integer value of a variable in structure - * using hdata - */ - -SCM -weechat_guile_api_hdata_integer (SCM hdata, SCM pointer, SCM name) -{ - int value; - - API_FUNC(1, "hdata_integer", API_RETURN_INT(0)); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - value = weechat_hdata_integer (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name)); - - API_RETURN_INT(value); -} - -/* - * weechat_guile_api_hdata_long: get long value of a variable in structure using - * hdata - */ - -SCM -weechat_guile_api_hdata_long (SCM hdata, SCM pointer, SCM name) -{ - long value; - - API_FUNC(1, "hdata_long", API_RETURN_LONG(0)); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_LONG(0)); - - value = weechat_hdata_long (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name)); - - API_RETURN_LONG(value); -} - -/* - * weechat_guile_api_hdata_string: get string value of a variable in structure - * using hdata - */ - -SCM -weechat_guile_api_hdata_string (SCM hdata, SCM pointer, SCM name) -{ - const char *result; - - API_FUNC(1, "hdata_string", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_hdata_string (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_hdata_pointer: get pointer value of a variable in structure - * using hdata - */ - -SCM -weechat_guile_api_hdata_pointer (SCM hdata, SCM pointer, SCM name) -{ - char *result; - SCM return_value; - - API_FUNC(1, "hdata_pointer", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_hdata_pointer (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hdata_time: get time value of a variable in structure using - * hdata - */ - -SCM -weechat_guile_api_hdata_time (SCM hdata, SCM pointer, SCM name) -{ - char timebuffer[64], *result; - time_t time; - struct tm *date_tmp; - SCM return_value; - - API_FUNC(1, "hdata_time", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (pointer) || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - timebuffer[0] = '\0'; - time = weechat_hdata_time (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name)); - date_tmp = localtime (&time); - if (date_tmp) - strftime (timebuffer, sizeof (timebuffer), "%F %T", date_tmp); - result = strdup (timebuffer); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_hdata_hashtable: get hashtable value of a variable in - * structure using hdata - */ - -SCM -weechat_guile_api_hdata_hashtable (SCM hdata, SCM pointer, SCM name) -{ - SCM result_alist; - - API_FUNC(1, "hdata_hashtable", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (pointer) - || !scm_is_string (name)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result_alist = weechat_guile_hashtable_to_alist ( - weechat_hdata_hashtable (API_STR2PTR(scm_i_string_chars (hdata)), - API_STR2PTR(scm_i_string_chars (pointer)), - scm_i_string_chars (name))); - - return result_alist; -} - -/* - * weechat_guile_api_hdata_get_string: get hdata property as string - */ - -SCM -weechat_guile_api_hdata_get_string (SCM hdata, SCM property) -{ - const char *result; - - API_FUNC(1, "hdata_get_string", API_RETURN_EMPTY); - if (!scm_is_string (hdata) || !scm_is_string (property)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = weechat_hdata_get_var_type_string (API_STR2PTR(scm_i_string_chars (hdata)), - scm_i_string_chars (property)); - - API_RETURN_STRING(result); -} - -/* - * weechat_guile_api_upgrade_new: create an upgrade file - */ - -SCM -weechat_guile_api_upgrade_new (SCM filename, SCM write) -{ - char *result; - SCM return_value; - - API_FUNC(1, "upgrade_new", API_RETURN_EMPTY); - if (!scm_is_string (filename) || !scm_is_integer (write)) - API_WRONG_ARGS(API_RETURN_EMPTY); - - result = script_ptr2str (weechat_upgrade_new (scm_i_string_chars (filename), - scm_to_int (write))); - - API_RETURN_STRING_FREE(result); -} - -/* - * weechat_guile_api_upgrade_write_object: write object in upgrade file - */ - -SCM -weechat_guile_api_upgrade_write_object (SCM upgrade_file, SCM object_id, - SCM infolist) -{ - int rc; - - API_FUNC(1, "upgrade_write_object", API_RETURN_INT(0)); - if (!scm_is_string (upgrade_file) || !scm_is_integer (object_id) - || !scm_is_string (infolist)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - rc = weechat_upgrade_write_object (API_STR2PTR(scm_i_string_chars (upgrade_file)), - scm_to_int (object_id), - API_STR2PTR(scm_i_string_chars (infolist))); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_upgrade_read_cb: callback for reading object in upgrade - * file - */ - -int -weechat_guile_api_upgrade_read_cb (void *data, - struct t_upgrade_file *upgrade_file, - int object_id, - struct t_infolist *infolist) -{ - struct t_script_callback *script_callback; - void *func_argv[4]; - char empty_arg[1] = { '\0' }, str_object_id[32]; - int *rc, ret; - - script_callback = (struct t_script_callback *)data; - - if (script_callback && script_callback->function && script_callback->function[0]) - { - snprintf (str_object_id, sizeof (str_object_id), "%d", object_id); - - func_argv[0] = (script_callback->data) ? script_callback->data : empty_arg; - func_argv[1] = script_ptr2str (upgrade_file); - func_argv[2] = str_object_id; - func_argv[3] = script_ptr2str (infolist); - - rc = (int *) weechat_guile_exec (script_callback->script, - WEECHAT_SCRIPT_EXEC_INT, - script_callback->function, - "ssss", func_argv); - - if (!rc) - ret = WEECHAT_RC_ERROR; - else - { - ret = *rc; - free (rc); - } - if (func_argv[1]) - free (func_argv[1]); - if (func_argv[3]) - free (func_argv[3]); - - return ret; - } - - return WEECHAT_RC_ERROR; -} - -/* - * weechat_guile_api_upgrade_read: read upgrade file - */ - -SCM -weechat_guile_api_upgrade_read (SCM upgrade_file, SCM function, SCM data) -{ - int rc; - - API_FUNC(1, "upgrade_read", API_RETURN_INT(0)); - if (!scm_is_string (upgrade_file) || !scm_is_string (function) - || !scm_is_string (data)) - API_WRONG_ARGS(API_RETURN_INT(0)); - - rc = script_api_upgrade_read (weechat_guile_plugin, - guile_current_script, - API_STR2PTR(scm_i_string_chars (upgrade_file)), - &weechat_guile_api_upgrade_read_cb, - scm_i_string_chars (function), - scm_i_string_chars (data)); - - API_RETURN_INT(rc); -} - -/* - * weechat_guile_api_upgrade_close: close upgrade file - */ - -SCM -weechat_guile_api_upgrade_close (SCM upgrade_file) -{ - API_FUNC(1, "upgrade_close", API_RETURN_ERROR); - if (!scm_is_string (upgrade_file)) - API_WRONG_ARGS(API_RETURN_ERROR); - - weechat_upgrade_close (API_STR2PTR(scm_i_string_chars (upgrade_file))); - - API_RETURN_OK; -} - -/* - * weechat_guile_api_module_init: init main module with API - */ - -void -weechat_guile_api_module_init (void *data) -{ - scm_t_bits port_type; - - /* make C compiler happy */ - (void) data; - - port_type = scm_make_port_type ("weechat_stdout", - &weechat_guile_port_fill_input, - &weechat_guile_port_write); - guile_port = scm_new_port_table_entry (port_type); - SCM_SET_CELL_TYPE (guile_port, port_type | SCM_OPN | SCM_WRTNG); - scm_set_current_output_port (guile_port); - scm_set_current_error_port (guile_port); - - /* interface functions */ - API_DEF_FUNC(register, 7); - API_DEF_FUNC(plugin_get_name, 1); - API_DEF_FUNC(charset_set, 1); - API_DEF_FUNC(iconv_to_internal, 2); - API_DEF_FUNC(iconv_from_internal, 2); - API_DEF_FUNC(gettext, 1); - API_DEF_FUNC(ngettext, 3); - API_DEF_FUNC(string_match, 3); - API_DEF_FUNC(string_has_highlight, 2); - API_DEF_FUNC(string_has_highlight_regex, 2); - API_DEF_FUNC(string_mask_to_regex, 1); - API_DEF_FUNC(string_remove_color, 2); - API_DEF_FUNC(string_is_command_char, 1); - API_DEF_FUNC(string_input_for_buffer, 1); - API_DEF_FUNC(mkdir_home, 2); - API_DEF_FUNC(mkdir, 2); - API_DEF_FUNC(mkdir_parents, 2); - API_DEF_FUNC(list_new, 0); - API_DEF_FUNC(list_add, 4); - API_DEF_FUNC(list_search, 2); - API_DEF_FUNC(list_search_pos, 2); - API_DEF_FUNC(list_casesearch, 2); - API_DEF_FUNC(list_casesearch_pos, 2); - API_DEF_FUNC(list_get, 2); - API_DEF_FUNC(list_set, 2); - API_DEF_FUNC(list_next, 1); - API_DEF_FUNC(list_prev, 1); - API_DEF_FUNC(list_string, 1); - API_DEF_FUNC(list_size, 1); - API_DEF_FUNC(list_remove, 2); - API_DEF_FUNC(list_remove_all, 1); - API_DEF_FUNC(list_free, 1); - API_DEF_FUNC(config_new, 3); - API_DEF_FUNC(config_new_section, 1); - API_DEF_FUNC(config_search_section, 2); - API_DEF_FUNC(config_new_option, 1); - API_DEF_FUNC(config_search_option, 3); - API_DEF_FUNC(config_string_to_boolean, 1); - API_DEF_FUNC(config_option_reset, 2); - API_DEF_FUNC(config_option_set, 3); - API_DEF_FUNC(config_option_set_null, 2); - API_DEF_FUNC(config_option_unset, 1); - API_DEF_FUNC(config_option_rename, 2); - API_DEF_FUNC(config_option_is_null, 1); - API_DEF_FUNC(config_option_default_is_null, 1); - API_DEF_FUNC(config_boolean, 1); - API_DEF_FUNC(config_boolean_default, 1); - API_DEF_FUNC(config_integer, 1); - API_DEF_FUNC(config_integer_default, 1); - API_DEF_FUNC(config_string, 1); - API_DEF_FUNC(config_string_default, 1); - API_DEF_FUNC(config_color, 1); - API_DEF_FUNC(config_color_default, 1); - API_DEF_FUNC(config_write_option, 2); - API_DEF_FUNC(config_write_line, 3); - API_DEF_FUNC(config_write, 1); - API_DEF_FUNC(config_read, 1); - API_DEF_FUNC(config_reload, 1); - API_DEF_FUNC(config_option_free, 1); - API_DEF_FUNC(config_section_free_options, 1); - API_DEF_FUNC(config_section_free, 1); - API_DEF_FUNC(config_free, 1); - API_DEF_FUNC(config_get, 1); - API_DEF_FUNC(config_get_plugin, 1); - API_DEF_FUNC(config_is_set_plugin, 1); - API_DEF_FUNC(config_set_plugin, 2); - API_DEF_FUNC(config_set_desc_plugin, 2); - API_DEF_FUNC(config_unset_plugin, 1); - API_DEF_FUNC(key_bind, 2); - API_DEF_FUNC(key_unbind, 2); - API_DEF_FUNC(prefix, 1); - API_DEF_FUNC(color, 1); - API_DEF_FUNC(print, 2); - API_DEF_FUNC(print_date_tags, 4); - API_DEF_FUNC(print_y, 3); - API_DEF_FUNC(log_print, 1); - API_DEF_FUNC(hook_command, 7); - API_DEF_FUNC(hook_command_run, 3); - API_DEF_FUNC(hook_timer, 5); - API_DEF_FUNC(hook_fd, 6); - API_DEF_FUNC(hook_process, 4); - API_DEF_FUNC(hook_process_hashtable, 5); - API_DEF_FUNC(hook_connect, 8); - API_DEF_FUNC(hook_print, 6); - API_DEF_FUNC(hook_signal, 3); - API_DEF_FUNC(hook_signal_send, 3); - API_DEF_FUNC(hook_hsignal, 3); - API_DEF_FUNC(hook_hsignal_send, 2); - API_DEF_FUNC(hook_config, 3); - API_DEF_FUNC(hook_completion, 4); - API_DEF_FUNC(hook_completion_list_add, 4); - API_DEF_FUNC(hook_modifier, 3); - API_DEF_FUNC(hook_modifier_exec, 3); - API_DEF_FUNC(hook_info, 5); - API_DEF_FUNC(hook_info_hashtable, 6); - API_DEF_FUNC(hook_infolist, 6); - API_DEF_FUNC(hook_focus, 3); - API_DEF_FUNC(unhook, 1); - API_DEF_FUNC(unhook_all, 0); - API_DEF_FUNC(buffer_new, 5); - API_DEF_FUNC(buffer_search, 2); - API_DEF_FUNC(buffer_search_main, 0); - API_DEF_FUNC(current_buffer, 0); - API_DEF_FUNC(buffer_clear, 1); - API_DEF_FUNC(buffer_close, 1); - API_DEF_FUNC(buffer_merge, 2); - API_DEF_FUNC(buffer_unmerge, 2); - API_DEF_FUNC(buffer_get_integer, 2); - API_DEF_FUNC(buffer_get_string, 2); - API_DEF_FUNC(buffer_get_pointer, 2); - API_DEF_FUNC(buffer_set, 3); - API_DEF_FUNC(buffer_string_replace_local_var, 2); - API_DEF_FUNC(buffer_match_list, 2); - API_DEF_FUNC(current_window, 0); - API_DEF_FUNC(window_search_with_buffer, 1); - API_DEF_FUNC(window_get_integer, 2); - API_DEF_FUNC(window_get_string, 2); - API_DEF_FUNC(window_get_pointer, 2); - API_DEF_FUNC(window_set_title, 1); - API_DEF_FUNC(nicklist_add_group, 5); - API_DEF_FUNC(nicklist_search_group, 3); - API_DEF_FUNC(nicklist_add_nick, 7); - API_DEF_FUNC(nicklist_search_nick, 3); - API_DEF_FUNC(nicklist_remove_group, 2); - API_DEF_FUNC(nicklist_remove_nick, 2); - API_DEF_FUNC(nicklist_remove_all, 1); - API_DEF_FUNC(nicklist_group_get_integer, 3); - API_DEF_FUNC(nicklist_group_get_string, 3); - API_DEF_FUNC(nicklist_group_get_pointer, 3); - API_DEF_FUNC(nicklist_group_set, 4); - API_DEF_FUNC(nicklist_nick_get_integer, 3); - API_DEF_FUNC(nicklist_nick_get_string, 3); - API_DEF_FUNC(nicklist_nick_get_pointer, 3); - API_DEF_FUNC(nicklist_nick_set, 4); - API_DEF_FUNC(bar_item_search, 1); - API_DEF_FUNC(bar_item_new, 3); - API_DEF_FUNC(bar_item_update, 1); - API_DEF_FUNC(bar_item_remove, 1); - API_DEF_FUNC(bar_search, 1); - API_DEF_FUNC(bar_new, 1); - API_DEF_FUNC(bar_set, 3); - API_DEF_FUNC(bar_update, 1); - API_DEF_FUNC(bar_remove, 1); - API_DEF_FUNC(command, 2); - API_DEF_FUNC(info_get, 2); - API_DEF_FUNC(info_get_hashtable, 2); - API_DEF_FUNC(infolist_new, 0); - API_DEF_FUNC(infolist_new_item, 1); - API_DEF_FUNC(infolist_new_var_integer, 3); - API_DEF_FUNC(infolist_new_var_string, 3); - API_DEF_FUNC(infolist_new_var_pointer, 3); - API_DEF_FUNC(infolist_new_var_time, 3); - API_DEF_FUNC(infolist_get, 3); - API_DEF_FUNC(infolist_next, 1); - API_DEF_FUNC(infolist_prev, 1); - API_DEF_FUNC(infolist_reset_item_cursor, 1); - API_DEF_FUNC(infolist_fields, 1); - API_DEF_FUNC(infolist_integer, 2); - API_DEF_FUNC(infolist_string, 2); - API_DEF_FUNC(infolist_pointer, 2); - API_DEF_FUNC(infolist_time, 2); - API_DEF_FUNC(infolist_free, 1); - API_DEF_FUNC(hdata_get, 1); - API_DEF_FUNC(hdata_get_var_offset, 2); - API_DEF_FUNC(hdata_get_var_type_string, 2); - API_DEF_FUNC(hdata_get_var_array_size, 3); - API_DEF_FUNC(hdata_get_var_array_size_string, 3); - API_DEF_FUNC(hdata_get_var_hdata, 2); - API_DEF_FUNC(hdata_get_list, 2); - API_DEF_FUNC(hdata_check_pointer, 3); - API_DEF_FUNC(hdata_move, 3); - API_DEF_FUNC(hdata_char, 3); - API_DEF_FUNC(hdata_integer, 3); - API_DEF_FUNC(hdata_long, 3); - API_DEF_FUNC(hdata_string, 3); - API_DEF_FUNC(hdata_pointer, 3); - API_DEF_FUNC(hdata_time, 3); - API_DEF_FUNC(hdata_hashtable, 3); - API_DEF_FUNC(hdata_get_string, 2); - API_DEF_FUNC(upgrade_new, 2); - API_DEF_FUNC(upgrade_write_object, 3); - API_DEF_FUNC(upgrade_read, 3); - API_DEF_FUNC(upgrade_close, 1); - - /* interface constants */ - scm_c_define ("weechat:WEECHAT_RC_OK", scm_from_int (WEECHAT_RC_OK)); - scm_c_define ("weechat:WEECHAT_RC_OK_EAT", scm_from_int (WEECHAT_RC_OK_EAT)); - scm_c_define ("weechat:WEECHAT_RC_ERROR", scm_from_int (WEECHAT_RC_ERROR)); - - scm_c_define ("weechat:WEECHAT_CONFIG_READ_OK", scm_from_int (WEECHAT_CONFIG_READ_OK)); - scm_c_define ("weechat:WEECHAT_CONFIG_READ_MEMORY_ERROR", scm_from_int (WEECHAT_CONFIG_READ_MEMORY_ERROR)); - scm_c_define ("weechat:WEECHAT_CONFIG_READ_FILE_NOT_FOUND", scm_from_int (WEECHAT_CONFIG_READ_FILE_NOT_FOUND)); - scm_c_define ("weechat:WEECHAT_CONFIG_WRITE_OK", scm_from_int (WEECHAT_CONFIG_WRITE_OK)); - scm_c_define ("weechat:WEECHAT_CONFIG_WRITE_ERROR", scm_from_int (WEECHAT_CONFIG_WRITE_ERROR)); - scm_c_define ("weechat:WEECHAT_CONFIG_WRITE_MEMORY_ERROR", scm_from_int (WEECHAT_CONFIG_WRITE_MEMORY_ERROR)); - scm_c_define ("weechat:WEECHAT_CONFIG_OPTION_SET_OK_CHANGED", scm_from_int (WEECHAT_CONFIG_OPTION_SET_OK_CHANGED)); - scm_c_define ("weechat:WEECHAT_CONFIG_OPTION_SET_OK_SAME_VALUE", scm_from_int (WEECHAT_CONFIG_OPTION_SET_OK_SAME_VALUE)); - scm_c_define ("weechat:WEECHAT_CONFIG_OPTION_SET_ERROR", scm_from_int (WEECHAT_CONFIG_OPTION_SET_ERROR)); - scm_c_define ("weechat:WEECHAT_CONFIG_OPTION_SET_OPTION_NOT_FOUND", scm_from_int (WEECHAT_CONFIG_OPTION_SET_OPTION_NOT_FOUND)); - scm_c_define ("weechat:WEECHAT_CONFIG_OPTION_UNSET_OK_NO_RESET", scm_from_int (WEECHAT_CONFIG_OPTION_UNSET_OK_NO_RESET)); - scm_c_define ("weechat:WEECHAT_CONFIG_OPTION_UNSET_OK_RESET", scm_from_int (WEECHAT_CONFIG_OPTION_UNSET_OK_RESET)); - scm_c_define ("weechat:WEECHAT_CONFIG_OPTION_UNSET_OK_REMOVED", scm_from_int (WEECHAT_CONFIG_OPTION_UNSET_OK_REMOVED)); - scm_c_define ("weechat:WEECHAT_CONFIG_OPTION_UNSET_ERROR", scm_from_int (WEECHAT_CONFIG_OPTION_UNSET_ERROR)); - - scm_c_define ("weechat:WEECHAT_LIST_POS_SORT", scm_from_locale_string (WEECHAT_LIST_POS_SORT)); - scm_c_define ("weechat:WEECHAT_LIST_POS_BEGINNING", scm_from_locale_string (WEECHAT_LIST_POS_BEGINNING)); - scm_c_define ("weechat:WEECHAT_LIST_POS_END", scm_from_locale_string (WEECHAT_LIST_POS_END)); - - scm_c_define ("weechat:WEECHAT_HOTLIST_LOW", scm_from_locale_string (WEECHAT_HOTLIST_LOW)); - scm_c_define ("weechat:WEECHAT_HOTLIST_MESSAGE", scm_from_locale_string (WEECHAT_HOTLIST_MESSAGE)); - scm_c_define ("weechat:WEECHAT_HOTLIST_PRIVATE", scm_from_locale_string (WEECHAT_HOTLIST_PRIVATE)); - scm_c_define ("weechat:WEECHAT_HOTLIST_HIGHLIGHT", scm_from_locale_string (WEECHAT_HOTLIST_HIGHLIGHT)); - - scm_c_define ("weechat:WEECHAT_HOOK_PROCESS_RUNNING", scm_from_int (WEECHAT_HOOK_PROCESS_RUNNING)); - scm_c_define ("weechat:WEECHAT_HOOK_PROCESS_ERROR", scm_from_int (WEECHAT_HOOK_PROCESS_ERROR)); - - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_OK", scm_from_int (WEECHAT_HOOK_CONNECT_OK)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_ADDRESS_NOT_FOUND", scm_from_int (WEECHAT_HOOK_CONNECT_ADDRESS_NOT_FOUND)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_IP_ADDRESS_NOT_FOUND", scm_from_int (WEECHAT_HOOK_CONNECT_IP_ADDRESS_NOT_FOUND)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_CONNECTION_REFUSED", scm_from_int (WEECHAT_HOOK_CONNECT_CONNECTION_REFUSED)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_PROXY_ERROR", scm_from_int (WEECHAT_HOOK_CONNECT_PROXY_ERROR)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_LOCAL_HOSTNAME_ERROR", scm_from_int (WEECHAT_HOOK_CONNECT_LOCAL_HOSTNAME_ERROR)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_GNUTLS_INIT_ERROR", scm_from_int (WEECHAT_HOOK_CONNECT_GNUTLS_INIT_ERROR)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_GNUTLS_HANDSHAKE_ERROR", scm_from_int (WEECHAT_HOOK_CONNECT_GNUTLS_HANDSHAKE_ERROR)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_MEMORY_ERROR", scm_from_int (WEECHAT_HOOK_CONNECT_MEMORY_ERROR)); - scm_c_define ("weechat:WEECHAT_HOOK_CONNECT_TIMEOUT", scm_from_int (WEECHAT_HOOK_CONNECT_TIMEOUT)); - - scm_c_define ("weechat:WEECHAT_HOOK_SIGNAL_STRING", scm_from_locale_string (WEECHAT_HOOK_SIGNAL_STRING)); - scm_c_define ("weechat:WEECHAT_HOOK_SIGNAL_INT", scm_from_locale_string (WEECHAT_HOOK_SIGNAL_INT)); - scm_c_define ("weechat:WEECHAT_HOOK_SIGNAL_POINTER", scm_from_locale_string (WEECHAT_HOOK_SIGNAL_POINTER)); - - scm_c_export ("weechat:WEECHAT_RC_OK", - "weechat:WEECHAT_RC_OK_EAT", - "weechat:WEECHAT_RC_ERROR", - "weechat:WEECHAT_CONFIG_READ_OK", - "weechat:WEECHAT_CONFIG_READ_MEMORY_ERROR", - "weechat:WEECHAT_CONFIG_READ_FILE_NOT_FOUND", - "weechat:WEECHAT_CONFIG_WRITE_OK", - "weechat:WEECHAT_CONFIG_WRITE_ERROR", - "weechat:WEECHAT_CONFIG_WRITE_MEMORY_ERROR", - "weechat:WEECHAT_CONFIG_OPTION_SET_OK_CHANGED", - "weechat:WEECHAT_CONFIG_OPTION_SET_OK_SAME_VALUE", - "weechat:WEECHAT_CONFIG_OPTION_SET_ERROR", - "weechat:WEECHAT_CONFIG_OPTION_SET_OPTION_NOT_FOUND", - "weechat:WEECHAT_CONFIG_OPTION_UNSET_OK_NO_RESET", - "weechat:WEECHAT_CONFIG_OPTION_UNSET_OK_RESET", - "weechat:WEECHAT_CONFIG_OPTION_UNSET_OK_REMOVED", - "weechat:WEECHAT_CONFIG_OPTION_UNSET_ERROR", - "weechat:WEECHAT_LIST_POS_SORT", - "weechat:WEECHAT_LIST_POS_BEGINNING", - "weechat:WEECHAT_LIST_POS_END", - "weechat:WEECHAT_HOTLIST_LOW", - "weechat:WEECHAT_HOTLIST_MESSAGE", - "weechat:WEECHAT_HOTLIST_PRIVATE", - "weechat:WEECHAT_HOTLIST_HIGHLIGHT", - "weechat:WEECHAT_HOOK_PROCESS_RUNNING", - "weechat:WEECHAT_HOOK_PROCESS_ERROR", - "weechat:WEECHAT_HOOK_CONNECT_OK", - "weechat:WEECHAT_HOOK_CONNECT_ADDRESS_NOT_FOUND", - "weechat:WEECHAT_HOOK_CONNECT_IP_ADDRESS_NOT_FOUND", - "weechat:WEECHAT_HOOK_CONNECT_CONNECTION_REFUSED", - "weechat:WEECHAT_HOOK_CONNECT_PROXY_ERROR", - "weechat:WEECHAT_HOOK_CONNECT_LOCAL_HOSTNAME_ERROR", - "weechat:WEECHAT_HOOK_CONNECT_GNUTLS_INIT_ERROR", - "weechat:WEECHAT_HOOK_CONNECT_GNUTLS_HANDSHAKE_ERROR", - "weechat:WEECHAT_HOOK_CONNECT_MEMORY_ERROR", - "weechat:WEECHAT_HOOK_CONNECT_TIMEOUT", - "weechat:WEECHAT_HOOK_SIGNAL_STRING", - "weechat:WEECHAT_HOOK_SIGNAL_INT", - "weechat:WEECHAT_HOOK_SIGNAL_POINTER", - NULL); -} diff --git a/src/plugins/scripts/guile/weechat-guile-api.h b/src/plugins/scripts/guile/weechat-guile-api.h deleted file mode 100644 index aaad60d54..000000000 --- a/src/plugins/scripts/guile/weechat-guile-api.h +++ /dev/null @@ -1,30 +0,0 @@ -/* - * Copyright (C) 2011-2012 Sebastien Helleu - * - * This file is part of WeeChat, the extensible chat client. - * - * WeeChat 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. - * - * WeeChat 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 WeeChat. If not, see . - */ - -#ifndef __WEECHAT_GUILE_API_H -#define __WEECHAT_GUILE_API_H 1 - -extern int weechat_guile_api_buffer_input_data_cb (void *data, - struct t_gui_buffer *buffer, - const char *input_data); -extern int weechat_guile_api_buffer_close_cb (void *data, - struct t_gui_buffer *buffer); -extern void weechat_guile_api_module_init (void *data); - -#endif /* __WEECHAT_GUILE_API_H */ diff --git a/src/plugins/scripts/guile/weechat-guile.c b/src/plugins/scripts/guile/weechat-guile.c deleted file mode 100644 index a7dae1afe..000000000 --- a/src/plugins/scripts/guile/weechat-guile.c +++ /dev/null @@ -1,912 +0,0 @@ -/* - * Copyright (C) 2011-2012 Sebastien Helleu - * - * This file is part of WeeChat, the extensible chat client. - * - * WeeChat 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. - * - * WeeChat 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 WeeChat. If not, see . - */ - -/* - * weechat-guile.c: guile (scheme) plugin for WeeChat - */ - -#undef _ - -#include -#include -#include -#include -#include - -#include "../../weechat-plugin.h" -#include "../script.h" -#include "weechat-guile.h" -#include "weechat-guile-api.h" - - -WEECHAT_PLUGIN_NAME(GUILE_PLUGIN_NAME); -WEECHAT_PLUGIN_DESCRIPTION(N_("Support of scheme scripts (with Guile)")); -WEECHAT_PLUGIN_AUTHOR("Sebastien Helleu "); -WEECHAT_PLUGIN_VERSION(WEECHAT_VERSION); -WEECHAT_PLUGIN_LICENSE(WEECHAT_LICENSE); - -struct t_weechat_plugin *weechat_guile_plugin = NULL; - -int guile_quiet; -struct t_plugin_script *guile_scripts = NULL; -struct t_plugin_script *last_guile_script = NULL; -struct t_plugin_script *guile_current_script = NULL; -struct t_plugin_script *guile_registered_script = NULL; -const char *guile_current_script_filename = NULL; -SCM guile_module_weechat; -SCM guile_port; -char *guile_stdout = NULL; - -struct t_guile_function -{ - SCM proc; - SCM args; -}; - -/* - * string used to execute action "install": - * when signal "guile_install_script" is received, name of string - * is added to this string, to be installed later by a timer (when nothing is - * running in script) - */ -char *guile_action_install_list = NULL; - -/* - * string used to execute action "remove": - * when signal "guile_remove_script" is received, name of string - * is added to this string, to be removed later by a timer (when nothing is - * running in script) - */ -char *guile_action_remove_list = NULL; - - -/* - * weechat_guile_stdout_flush: flush stdout - */ - -void -weechat_guile_stdout_flush () -{ - if (guile_stdout) - { - weechat_printf (NULL, - weechat_gettext ("%s: stdout/stderr: %s%s"), - GUILE_PLUGIN_NAME, guile_stdout, ""); - free (guile_stdout); - guile_stdout = NULL; - } -} - -/* - * weechat_guile_catch: execute scheme procedure with internal catch - * and return value - */ - -SCM -weechat_guile_catch (void *procedure, void *data) -{ - SCM value; - - value = scm_internal_catch (SCM_BOOL_T, - (scm_t_catch_body)procedure, - data, - (scm_t_catch_handler) scm_handle_by_message_noexit, - NULL); - return value; -} - -/* - * weechat_guile_scm_call_1: encapsulate call to scm_call_1 (to give arguments) - */ - -SCM -weechat_guile_scm_call_1 (void *proc) -{ - struct t_guile_function *guile_function; - - guile_function = (struct t_guile_function *)proc; - - return scm_call_1 (guile_function->proc, guile_function->args); -} - -/* - * weechat_guile_exec_function: execute scheme function (with optional args) - * and return value - */ - -SCM -weechat_guile_exec_function (const char *function, SCM args) -{ - SCM func, func2, value; - struct t_guile_function guile_function; - - func = weechat_guile_catch (scm_c_lookup, (void *)function); - func2 = weechat_guile_catch (scm_variable_ref, func); - - if (args) - { - guile_function.proc = func2; - guile_function.args = args; - value = weechat_guile_catch (weechat_guile_scm_call_1, &guile_function); - } - else - { - value = weechat_guile_catch (scm_call_0, func2); - } - - return value; -} - -/* - * weechat_guile_hashtable_map_cb: callback called for each key/value in a - * hashtable - */ - -void -weechat_guile_hashtable_map_cb (void *data, - struct t_hashtable *hashtable, - const char *key, - const char *value) -{ - SCM *alist, pair, list; - - /* make C compiler happy */ - (void) hashtable; - - alist = (SCM *)data; - - pair = scm_cons (scm_from_locale_string (key), - scm_from_locale_string (value)); - list = scm_list_1 (pair); - - *alist = scm_append (scm_list_2 (*alist, list)); -} - -/* - * weechat_guile_hashtable_to_alist: get Guile alist with a WeeChat hashtable - */ - -SCM -weechat_guile_hashtable_to_alist (struct t_hashtable *hashtable) -{ - SCM alist; - - alist = scm_list_n (SCM_UNDEFINED); - - weechat_hashtable_map_string (hashtable, - &weechat_guile_hashtable_map_cb, - &alist); - - return alist; -} - -/* - * weechat_guile_alist_to_hashtable: get WeeChat hashtable with Guile alist - * Hashtable returned has type string for - * both keys and values - * Note: hashtable has to be released after - * use with call to weechat_hashtable_free() - */ - -struct t_hashtable * -weechat_guile_alist_to_hashtable (SCM alist, int hashtable_size) -{ - struct t_hashtable *hashtable; - int length, i; - SCM pair; - - hashtable = weechat_hashtable_new (hashtable_size, - WEECHAT_HASHTABLE_STRING, - WEECHAT_HASHTABLE_STRING, - NULL, - NULL); - if (!hashtable) - return NULL; - - length = scm_to_int (scm_length (alist)); - for (i = 0; i < length; i++) - { - pair = scm_list_ref (alist, scm_from_int (i)); - weechat_hashtable_set (hashtable, - scm_i_string_chars (scm_list_ref (pair, - scm_from_int (0))), - scm_i_string_chars (scm_list_ref (pair, - scm_from_int (1)))); - } - - return hashtable; -} - -/* - * weechat_guile_exec: execute a Guile function - */ - -void * -weechat_guile_exec (struct t_plugin_script *script, - int ret_type, const char *function, - char *format, void **argv) -{ - struct t_plugin_script *old_guile_current_script; - SCM argv_list, rc; - void *argv2[17], *ret_value; - int i, argc, *ret_int; - - old_guile_current_script = guile_current_script; - scm_set_current_module ((SCM)(script->interpreter)); - guile_current_script = script; - - if (argv && argv[0]) - { - argc = strlen (format); - for (i = 0; i < argc; i++) - { - switch (format[i]) - { - case 's': /* string */ - argv2[i] = scm_from_locale_string ((char *)argv[i]); - break; - case 'i': /* integer */ - argv2[i] = scm_from_int (*((int *)argv[i])); - break; - case 'h': /* hash */ - argv2[i] = weechat_guile_hashtable_to_alist (argv[i]); - break; - } - } - for (i = argc; i < 17; i++) - { - argv2[i] = SCM_UNDEFINED; - } - argv_list = scm_list_n (argv2[0], argv2[1], - argv2[2], argv2[3], - argv2[4], argv2[5], - argv2[6], argv2[7], - argv2[8], argv2[9], - argv2[10], argv2[11], - argv2[12], argv2[13], - argv2[14], argv2[15], - argv2[16]); - rc = weechat_guile_exec_function (function, argv_list); - } - else - { - rc = weechat_guile_exec_function (function, NULL); - } - - ret_value = NULL; - - if ((ret_type == WEECHAT_SCRIPT_EXEC_STRING) && (scm_is_string (rc))) - { - ret_value = scm_to_locale_string (rc); - } - else if ((ret_type == WEECHAT_SCRIPT_EXEC_INT) && (scm_is_integer (rc))) - { - ret_int = malloc (sizeof (*ret_int)); - if (ret_int) - *ret_int = scm_to_int (rc); - ret_value = ret_int; - } - else if (ret_type == WEECHAT_SCRIPT_EXEC_HASHTABLE) - { - ret_value = weechat_guile_alist_to_hashtable (rc, - WEECHAT_SCRIPT_HASHTABLE_DEFAULT_SIZE); - } - else - { - weechat_printf (NULL, - weechat_gettext ("%s%s: function \"%s\" must return " - "a valid value"), - weechat_prefix ("error"), GUILE_PLUGIN_NAME, function); - } - - if (ret_value == NULL) - { - weechat_printf (NULL, - weechat_gettext ("%s%s: error in function \"%s\""), - weechat_prefix ("error"), GUILE_PLUGIN_NAME, function); - } - - if (old_guile_current_script) - scm_set_current_module ((SCM)(old_guile_current_script->interpreter)); - - guile_current_script = old_guile_current_script; - - return ret_value; -} - -/* - * weechat_guile_module_init_script: init Guile module for script - */ - -void -weechat_guile_module_init_script (void *data) -{ - SCM rc; - - weechat_guile_catch (scm_c_eval_string, "(use-modules (weechat))"); - rc = weechat_guile_catch (scm_c_primitive_load, data); - - /* error loading script? */ - if (rc == SCM_BOOL_F) - { - /* if script was registered, remove it from list */ - if (guile_current_script) - { - script_remove (weechat_guile_plugin, - &guile_scripts, &last_guile_script, - guile_current_script); - } - guile_current_script = NULL; - guile_registered_script = NULL; - } -} - -/* - * weechat_guile_load: load a Guile script - */ - -int -weechat_guile_load (const char *filename) -{ - char *filename2, *ptr_base_name, *base_name; - SCM module; - - if ((weechat_guile_plugin->debug >= 2) || !guile_quiet) - { - weechat_printf (NULL, - weechat_gettext ("%s: loading script \"%s\""), - GUILE_PLUGIN_NAME, filename); - } - - guile_current_script = NULL; - guile_registered_script = NULL; - guile_current_script_filename = filename; - - filename2 = strdup (filename); - if (!filename2) - return 0; - - ptr_base_name = basename (filename2); - base_name = strdup (ptr_base_name); - module = scm_c_define_module (base_name, - &weechat_guile_module_init_script, filename2); - free (filename2); - - if (!guile_registered_script) - { - weechat_printf (NULL, - weechat_gettext ("%s%s: function \"register\" not " - "found (or failed) in file \"%s\""), - weechat_prefix ("error"), GUILE_PLUGIN_NAME, filename); - return 0; - } - - weechat_guile_catch (scm_gc_protect_object, (void *)module); - - guile_current_script = guile_registered_script; - guile_current_script->interpreter = (void *)module; - - /* - * set input/close callbacks for buffers created by this script - * (to restore callbacks after upgrade) - */ - script_set_buffer_callbacks (weechat_guile_plugin, - guile_scripts, - guile_current_script, - &weechat_guile_api_buffer_input_data_cb, - &weechat_guile_api_buffer_close_cb); - - return 1; -} - -/* - * weechat_guile_load_cb: callback for script_auto_load() function - */ - -void -weechat_guile_load_cb (void *data, const char *filename) -{ - /* make C compiler happy */ - (void) data; - - weechat_guile_load (filename); -} - -/* - * weechat_guile_unload: unload a Guile script - */ - -void -weechat_guile_unload (struct t_plugin_script *script) -{ - int *rc; - void *interpreter; - - if ((weechat_guile_plugin->debug >= 2) || !guile_quiet) - { - weechat_printf (NULL, - weechat_gettext ("%s: unloading script \"%s\""), - GUILE_PLUGIN_NAME, script->name); - } - - if (script->shutdown_func && script->shutdown_func[0]) - { - rc = (int *)weechat_guile_exec (script, WEECHAT_SCRIPT_EXEC_INT, - script->shutdown_func, NULL, NULL); - if (rc) - free (rc); - } - - interpreter = script->interpreter; - - if (guile_current_script == script) - guile_current_script = (guile_current_script->prev_script) ? - guile_current_script->prev_script : guile_current_script->next_script; - - script_remove (weechat_guile_plugin, &guile_scripts, &last_guile_script, - script); - - if (interpreter) - weechat_guile_catch (scm_gc_unprotect_object, interpreter); -} - -/* - * weechat_guile_unload_name: unload a Guile script by name - */ - -void -weechat_guile_unload_name (const char *name) -{ - struct t_plugin_script *ptr_script; - - ptr_script = script_search (weechat_guile_plugin, guile_scripts, name); - if (ptr_script) - { - weechat_guile_unload (ptr_script); - weechat_printf (NULL, - weechat_gettext ("%s: script \"%s\" unloaded"), - GUILE_PLUGIN_NAME, name); - } - else - { - weechat_printf (NULL, - weechat_gettext ("%s%s: script \"%s\" not loaded"), - weechat_prefix ("error"), GUILE_PLUGIN_NAME, name); - } -} - -/* - * weechat_guile_unload_all: unload all Guile scripts - */ - -void -weechat_guile_unload_all () -{ - while (guile_scripts) - { - weechat_guile_unload (guile_scripts); - } -} - -/* - * weechat_guile_reload_name: reload a Guile script by name - */ - -void -weechat_guile_reload_name (const char *name) -{ - struct t_plugin_script *ptr_script; - char *filename; - - ptr_script = script_search (weechat_guile_plugin, guile_scripts, name); - if (ptr_script) - { - filename = strdup (ptr_script->filename); - if (filename) - { - weechat_guile_unload (ptr_script); - weechat_printf (NULL, - weechat_gettext ("%s: script \"%s\" unloaded"), - GUILE_PLUGIN_NAME, name); - weechat_guile_load (filename); - free (filename); - } - } - else - { - weechat_printf (NULL, - weechat_gettext ("%s%s: script \"%s\" not loaded"), - weechat_prefix ("error"), GUILE_PLUGIN_NAME, name); - } -} - -/* - * weechat_guile_cmd: callback for "/guile" command - */ - -int -weechat_guile_command_cb (void *data, struct t_gui_buffer *buffer, - int argc, char **argv, char **argv_eol) -{ - char *path_script; - SCM value; - - /* make C compiler happy */ - (void) data; - (void) buffer; - - if (argc == 1) - { - script_display_list (weechat_guile_plugin, guile_scripts, - NULL, 0); - } - else if (argc == 2) - { - if (weechat_strcasecmp (argv[1], "list") == 0) - { - script_display_list (weechat_guile_plugin, guile_scripts, - NULL, 0); - } - else if (weechat_strcasecmp (argv[1], "listfull") == 0) - { - script_display_list (weechat_guile_plugin, guile_scripts, - NULL, 1); - } - else if (weechat_strcasecmp (argv[1], "autoload") == 0) - { - script_auto_load (weechat_guile_plugin, &weechat_guile_load_cb); - } - else if (weechat_strcasecmp (argv[1], "reload") == 0) - { - weechat_guile_unload_all (); - script_auto_load (weechat_guile_plugin, &weechat_guile_load_cb); - } - else if (weechat_strcasecmp (argv[1], "unload") == 0) - { - weechat_guile_unload_all (); - } - } - else - { - if (weechat_strcasecmp (argv[1], "list") == 0) - { - script_display_list (weechat_guile_plugin, guile_scripts, - argv_eol[2], 0); - } - else if (weechat_strcasecmp (argv[1], "listfull") == 0) - { - script_display_list (weechat_guile_plugin, guile_scripts, - argv_eol[2], 1); - } - else if (weechat_strcasecmp (argv[1], "load") == 0) - { - /* load Guile script */ - path_script = script_search_path (weechat_guile_plugin, - argv_eol[2]); - weechat_guile_load ((path_script) ? path_script : argv_eol[2]); - if (path_script) - free (path_script); - } - else if (weechat_strcasecmp (argv[1], "reload") == 0) - { - /* reload one Guile script */ - weechat_guile_reload_name (argv_eol[2]); - } - else if (weechat_strcasecmp (argv[1], "unload") == 0) - { - /* unload Guile script */ - weechat_guile_unload_name (argv_eol[2]); - } - else if (weechat_strcasecmp (argv[1], "eval") == 0) - { - /* eval Guile code */ - value = weechat_guile_catch (scm_c_eval_string, argv_eol[2]); - if (!SCM_EQ_P (value, SCM_UNDEFINED) - && !SCM_EQ_P (value, SCM_UNSPECIFIED)) - { - scm_display (value, guile_port); - } - weechat_guile_stdout_flush (); - } - else - { - weechat_printf (NULL, - weechat_gettext ("%s%s: unknown option for " - "command \"%s\""), - weechat_prefix ("error"), GUILE_PLUGIN_NAME, - "guile"); - } - } - - return WEECHAT_RC_OK; -} - -/* - * weechat_guile_completion_cb: callback for script completion - */ - -int -weechat_guile_completion_cb (void *data, const char *completion_item, - struct t_gui_buffer *buffer, - struct t_gui_completion *completion) -{ - /* make C compiler happy */ - (void) data; - (void) completion_item; - (void) buffer; - - script_completion (weechat_guile_plugin, completion, guile_scripts); - - return WEECHAT_RC_OK; -} - -/* - * weechat_guile_infolist_cb: callback for infolist - */ - -struct t_infolist * -weechat_guile_infolist_cb (void *data, const char *infolist_name, - void *pointer, const char *arguments) -{ - /* make C compiler happy */ - (void) data; - - if (!infolist_name || !infolist_name[0]) - return NULL; - - if (weechat_strcasecmp (infolist_name, "guile_script") == 0) - { - return script_infolist_list_scripts (weechat_guile_plugin, - guile_scripts, pointer, - arguments); - } - - return NULL; -} - -/* - * weechat_guile_signal_debug_dump_cb: dump Guile plugin data in WeeChat log - * file - */ - -int -weechat_guile_signal_debug_dump_cb (void *data, const char *signal, - const char *type_data, void *signal_data) -{ - /* make C compiler happy */ - (void) data; - (void) signal; - (void) type_data; - - if (!signal_data - || (weechat_strcasecmp ((char *)signal_data, GUILE_PLUGIN_NAME) == 0)) - { - script_print_log (weechat_guile_plugin, guile_scripts); - } - - return WEECHAT_RC_OK; -} - -/* - * weechat_guile_signal_buffer_closed_cb: callback called when a buffer is - * closed - */ - -int -weechat_guile_signal_buffer_closed_cb (void *data, const char *signal, - const char *type_data, - void *signal_data) -{ - /* make C compiler happy */ - (void) data; - (void) signal; - (void) type_data; - - if (signal_data) - script_remove_buffer_callbacks (guile_scripts, signal_data); - - return WEECHAT_RC_OK; -} - -/* - * weechat_guile_timer_action_cb: timer for executing actions - */ - -int -weechat_guile_timer_action_cb (void *data, int remaining_calls) -{ - /* make C compiler happy */ - (void) remaining_calls; - - if (data) - { - if (data == &guile_action_install_list) - { - script_action_install (weechat_guile_plugin, - guile_scripts, - &weechat_guile_unload, - &weechat_guile_load, - &guile_action_install_list); - } - else if (data == &guile_action_remove_list) - { - script_action_remove (weechat_guile_plugin, - guile_scripts, - &weechat_guile_unload, - &guile_action_remove_list); - } - } - - return WEECHAT_RC_OK; -} - -/* - * weechat_guile_signal_script_action_cb: callback called when a script action - * is asked (install/remove a script) - */ - -int -weechat_guile_signal_script_action_cb (void *data, const char *signal, - const char *type_data, - void *signal_data) -{ - /* make C compiler happy */ - (void) data; - - if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0) - { - if (strcmp (signal, "guile_script_install") == 0) - { - script_action_add (&guile_action_install_list, - (const char *)signal_data); - weechat_hook_timer (1, 0, 1, - &weechat_guile_timer_action_cb, - &guile_action_install_list); - } - else if (strcmp (signal, "guile_script_remove") == 0) - { - script_action_add (&guile_action_remove_list, - (const char *)signal_data); - weechat_hook_timer (1, 0, 1, - &weechat_guile_timer_action_cb, - &guile_action_remove_list); - } - } - - return WEECHAT_RC_OK; -} - -/* - * weechat_guile_port_fill_input: fill input - */ - -int -weechat_guile_port_fill_input (SCM port) -{ - /* make C compiler happy */ - (void) port; - - return ' '; -} - -/* - * weechat_guile_port_write: write - */ - -void -weechat_guile_port_write (SCM port, const void *data, size_t size) -{ - char *new_stdout; - int length_stdout; - - /* make C compiler happy */ - (void) port; - - /* concatenate str to guile_stdout */ - if (guile_stdout) - { - length_stdout = strlen (guile_stdout); - new_stdout = realloc (guile_stdout, length_stdout + size + 1); - if (!new_stdout) - { - free (guile_stdout); - return; - } - guile_stdout = new_stdout; - memcpy (guile_stdout + length_stdout, data, size); - guile_stdout[length_stdout + size] = '\0'; - } - else - { - guile_stdout = malloc (size + 1); - if (guile_stdout) - { - memcpy (guile_stdout, data, size); - guile_stdout[size] = '\0'; - } - } - - /* flush stdout if at least "\n" is in string */ - if (guile_stdout && (strchr (guile_stdout, '\n'))) - weechat_guile_stdout_flush (); -} - -/* - * weechat_plugin_init: initialize Guile plugin - */ - -int -weechat_plugin_init (struct t_weechat_plugin *plugin, int argc, char *argv[]) -{ - struct t_plugin_script_init init; - - weechat_guile_plugin = plugin; - - guile_stdout = NULL; - - scm_init_guile (); - - guile_module_weechat = scm_c_define_module ("weechat", - &weechat_guile_api_module_init, - NULL); - scm_c_use_module ("weechat"); - weechat_guile_catch (scm_gc_protect_object, (void *)guile_module_weechat); - - init.callback_command = &weechat_guile_command_cb; - init.callback_completion = &weechat_guile_completion_cb; - init.callback_infolist = &weechat_guile_infolist_cb; - init.callback_signal_debug_dump = &weechat_guile_signal_debug_dump_cb; - init.callback_signal_buffer_closed = &weechat_guile_signal_buffer_closed_cb; - init.callback_signal_script_action = &weechat_guile_signal_script_action_cb; - init.callback_load_file = &weechat_guile_load_cb; - - guile_quiet = 1; - script_init (weechat_guile_plugin, argc, argv, &init); - guile_quiet = 0; - - script_display_short_list (weechat_guile_plugin, - guile_scripts); - - /* init ok */ - return WEECHAT_RC_OK; -} - -/* - * weechat_plugin_end: shutdown Guile interface - */ - -int -weechat_plugin_end (struct t_weechat_plugin *plugin) -{ - /* unload all scripts */ - guile_quiet = 1; - script_end (plugin, &guile_scripts, &weechat_guile_unload_all); - guile_quiet = 0; - - /* unprotect module */ - weechat_guile_catch (scm_gc_unprotect_object, (void *)guile_module_weechat); - - /* free some data */ - if (guile_action_install_list) - free (guile_action_install_list); - if (guile_action_remove_list) - free (guile_action_remove_list); - - return WEECHAT_RC_OK; -} diff --git a/src/plugins/scripts/guile/weechat-guile.h b/src/plugins/scripts/guile/weechat-guile.h deleted file mode 100644 index b868a4c10..000000000 --- a/src/plugins/scripts/guile/weechat-guile.h +++ /dev/null @@ -1,47 +0,0 @@ -/* - * Copyright (C) 2011-2012 Sebastien Helleu - * - * This file is part of WeeChat, the extensible chat client. - * - * WeeChat 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. - * - * WeeChat 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 WeeChat. If not, see . - */ - -#ifndef __WEECHAT_GUILE_H -#define __WEECHAT_GUILE_H 1 - -#define weechat_plugin weechat_guile_plugin -#define GUILE_PLUGIN_NAME "guile" - -#define GUILE_CURRENT_SCRIPT_NAME ((guile_current_script) ? guile_current_script->name : "-") - -extern struct t_weechat_plugin *weechat_guile_plugin; - -extern int guile_quiet; -extern struct t_plugin_script *guile_scripts; -extern struct t_plugin_script *last_guile_script; -extern struct t_plugin_script *guile_current_script; -extern struct t_plugin_script *guile_registered_script; -extern const char *guile_current_script_filename; -extern SCM guile_port; - -extern SCM weechat_guile_hashtable_to_alist (struct t_hashtable *hashtable); -extern struct t_hashtable *weechat_guile_alist_to_hashtable (SCM dict, - int hashtable_size); -extern void *weechat_guile_exec (struct t_plugin_script *script, - int ret_type, const char *function, - char *format, void **argv); -extern int weechat_guile_port_fill_input (SCM port); -extern void weechat_guile_port_write (SCM port, const void *data, size_t size); - -#endif /* __WEECHAT_GUILE_H */ -- cgit v1.2.3