From 44944ef01ff2c0b81d4b6d6ce6d0f95ee6dd35a5 Mon Sep 17 00:00:00 2001 From: Sebastien Helleu Date: Sun, 5 Oct 2008 19:06:46 +0200 Subject: [PATCH] Add Tcl script plugin (thanks to Dmitry Kobylin) --- CMakeLists.txt | 1 + ChangeLog | 5 +- configure.in | 62 + doc/de/autogen/tcl_commands.xml | 17 + doc/docgen.pl | 3 +- doc/en/autogen/tcl_commands.xml | 17 + doc/fr/autogen/tcl_commands.xml | 17 + doc/include_autogen.xml | 1 + po/POTFILES.in | 4 + po/cs.po | 14 +- po/de.po | 14 +- po/es.po | 14 +- po/fr.po | 16 +- po/hu.po | 14 +- po/ru.po | 14 +- po/srcfiles.cmake | 4 + po/weechat.pot | 14 +- src/plugins/CMakeLists.txt | 4 +- src/plugins/Makefile.am | 4 + src/plugins/irc/irc-server.h | 1 + src/plugins/scripts/CMakeLists.txt | 7 + src/plugins/scripts/Makefile.am | 6 +- src/plugins/scripts/lua/weechat-lua-api.c | 1 + src/plugins/scripts/lua/weechat-lua.c | 1 + src/plugins/scripts/perl/weechat-perl-api.c | 1 + src/plugins/scripts/perl/weechat-perl.c | 1 + .../scripts/python/weechat-python-api.c | 1 + src/plugins/scripts/python/weechat-python.c | 1 + src/plugins/scripts/ruby/weechat-ruby-api.c | 1 + src/plugins/scripts/ruby/weechat-ruby.c | 1 + src/plugins/scripts/tcl/CMakeLists.txt | 28 + src/plugins/scripts/tcl/Makefile.am | 28 + src/plugins/scripts/tcl/weechat-tcl-api.c | 5162 +++++++++++++++++ src/plugins/scripts/tcl/weechat-tcl-api.h | 25 + src/plugins/scripts/tcl/weechat-tcl.c | 458 ++ src/plugins/scripts/tcl/weechat-tcl.h | 36 + 36 files changed, 5984 insertions(+), 14 deletions(-) create mode 100644 doc/de/autogen/tcl_commands.xml create mode 100644 doc/en/autogen/tcl_commands.xml create mode 100644 doc/fr/autogen/tcl_commands.xml create mode 100644 src/plugins/scripts/tcl/CMakeLists.txt create mode 100644 src/plugins/scripts/tcl/Makefile.am create mode 100644 src/plugins/scripts/tcl/weechat-tcl-api.c create mode 100644 src/plugins/scripts/tcl/weechat-tcl-api.h create mode 100644 src/plugins/scripts/tcl/weechat-tcl.c create mode 100644 src/plugins/scripts/tcl/weechat-tcl.h diff --git a/CMakeLists.txt b/CMakeLists.txt index 250f4ef80..2710f0d08 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -55,6 +55,7 @@ OPTION(DISABLE_PERL "Disable Perl scripting language") OPTION(DISABLE_PYTHON "Disable Python scripting language") OPTION(DISABLE_RUBY "Disable Ruby scripting language") OPTION(DISABLE_LUA "Disable Lua scripting language") +OPTION(DISABLE_TCL "Disable Tcl scripting language") OPTION(ENABLE_TRIGGER "Enable Trigger plugin") OPTION(DISABLE_XFER "Disable Xfer (file transfert) plugin") OPTION(DISABLE_DOC "Disable Doc") diff --git a/ChangeLog b/ChangeLog index 3382d3dd8..77ce5299a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,7 @@ WeeChat - Wee Enhanced Environment for Chat =========================================== -ChangeLog - 2008-10-03 +ChangeLog - 2008-10-05 Version 0.2.7 (under dev!): @@ -39,7 +39,8 @@ Version 0.2.7 (under dev!): * improve main loop: higher timout in select(), less CPU usage * add /reload command to reload WeeChat and plugins config files (signal SIGHUP is catched to reload config files) - * new plugins: alias, debug, demo, fifo, irc, logger, notify, trigger, xfer + * new plugins: alias, debug, demo, fifo, irc, logger, notify, tcl, trigger, + xfer * add hooks: command, timer, file descriptor, connection, print, signal, config, completion, modifier, info, infolist * new plugin API with many new functions: hooks, buffer management, bars, diff --git a/configure.in b/configure.in index cb79828f5..de4c60131 100644 --- a/configure.in +++ b/configure.in @@ -106,6 +106,7 @@ AH_VERBATIM([PLUGIN_PERL], [#undef PLUGIN_PERL]) AH_VERBATIM([PLUGIN_PYTHON], [#undef PLUGIN_PYTHON]) AH_VERBATIM([PLUGIN_RUBY], [#undef PLUGIN_RUBY]) AH_VERBATIM([PLUGIN_LUA], [#undef PLUGIN_LUA]) +AH_VERBATIM([PLUGIN_TCL], [#undef PLUGIN_TCL]) AH_VERBATIM([PLUGIN_TRIGGER], [#undef PLUGIN_TRIGGER]) AH_VERBATIM([PLUGIN_XFER], [#undef PLUGIN_XFER]) AH_VERBATIM([DOC], [#undef DOC]) @@ -132,6 +133,7 @@ AC_ARG_ENABLE(perl, [ --disable-perl turn off Perl script plug AC_ARG_ENABLE(python, [ --disable-python turn off Python script plugin (default=compiled if found)],enable_python=$enableval,enable_python=yes) AC_ARG_ENABLE(ruby, [ --disable-ruby turn off Ruby script plugin (default=compiled if found)],enable_ruby=$enableval,enable_ruby=yes) AC_ARG_ENABLE(lua, [ --disable-lua turn off Lua script plugin (default=compiled if found)],enable_lua=$enableval,enable_lua=yes) +AC_ARG_ENABLE(tcl, [ --disable-tcl turn off Tcl script plugin (default=compiled if found)],enable_tcl=$enableval,enable_tcl=yes) AC_ARG_ENABLE(trigger, [ --enable-trigger turn on Trigger plugin (default=off)],enable_trigger=$enableval,enable_trigger=no) AC_ARG_ENABLE(xfer, [ --disable-xfer turn off Xfer (file transfer) plugin (default=compiled if found)],enable_xfer=$enableval,enable_xfer=yes) AC_ARG_WITH(lua-inc, [ --with-lua-inc=DIR, lua include files are in DIR (default=autodetect)],lua_inc=$withval,lua_inc='') @@ -281,6 +283,7 @@ if test "x$enable_scripts" = "xno" ; then enable_python="no" enable_ruby="no" enable_lua="no" + enable_tcl="no" fi # ---------------------------------- alias ------------------------------------- @@ -684,6 +687,60 @@ if test "x$enable_lua" = "xyes" ; then AC_DEFINE(PLUGIN_LUA) fi +# --------------------------------- tcl ------------------------------------- +TCL_VERSION= + +if test "x$enable_tcl" = "xyes" ; then + enable_plugins="yes" + + AC_PATH_PROGS(TCL, tclsh tclsh8.5 tclsh8.4) + if test -z $TCL ; then + AC_MSG_WARN([ +*** Tcl must be installed on your system but tcl interpreter couldn't be found in path. +*** Please check that tclsh is in path, or install it with your software package manager. +*** WeeChat will be built without Tcl support.]) + enable_tcl="no" + not_found="$not_found tcl" + else + echo "for grepp" + TCL_VERSION=`echo 'puts $tcl_version' | $TCL` + TCL_PATCHLEVEL=`echo 'puts $tcl_patchLevel' | $TCL` + + AC_MSG_CHECKING(for Tcl headers files) + TCL_HEADER_TEST=`TT=tcltest.c ; echo "#include " > $TT; echo "int main() { return 0; }" >> $TT ; $CC -Wall $TT -o $TT.out 1>/dev/null 2>&1; echo $?; rm -f $TT $TT.out 1>/dev/null 2>&1` + if test "x$TCL_HEADER_TEST" = "x0" ; then + TCL_CFLAGS="-fPIC" + AC_MSG_RESULT(found) + AC_MSG_CHECKING(for Tcl library) + TCL_LIB_TEST=`TT=tcltest.c ; echo "int main() { return 0; }" > $TT ; $CC -Wall $TT -o $TT.out -ltcl$TCL_VERSION 1>/dev/null 2>&1; echo $?; rm -f $TT $TT.out 1>/dev/null 2>&1` + if test "x$TCL_LIB_TEST" = "x0" ; then + TCL_LFLAGS="-ltcl$TCL_VERSION -ldl -export-dynamic" + AC_MSG_RESULT(found) + else + AC_MSG_WARN([ +*** Tcl library couldn't be found in your system. +*** Try to install it with your software package manager. +*** WeeChat will be built without Tcl support.]) + enable_tcl="no" + not_found="$not_found tcl" + fi + else + AC_MSG_WARN([ +*** Tcl headers couldn't be found in your system. +*** Try to install it with your software package manager. +*** WeeChat will be built without Tcl support.]) + enable_tcl="no" + not_found="$not_found tcl" + fi + fi +fi + +if test "x$enable_tcl" = "xyes" ; then + AC_SUBST(TCL_CFLAGS) + AC_SUBST(TCL_LFLAGS) + AC_DEFINE(PLUGIN_TCL) +fi + # --------------------------------- trigger ------------------------------------ if test "x$enable_trigger" = "xyes" ; then @@ -923,6 +980,7 @@ AM_CONDITIONAL(PLUGIN_PERL, test "$enable_perl" = "yes") AM_CONDITIONAL(PLUGIN_PYTHON, test "$enable_python" = "yes") AM_CONDITIONAL(PLUGIN_RUBY, test "$enable_ruby" = "yes") AM_CONDITIONAL(PLUGIN_LUA, test "$enable_lua" = "yes") +AM_CONDITIONAL(PLUGIN_TCL, test "$enable_tcl" = "yes") AM_CONDITIONAL(PLUGIN_TRIGGER, test "$enable_trigger" = "yes") AM_CONDITIONAL(PLUGIN_XFER, test "$enable_xfer" = "yes") AM_CONDITIONAL(DOC, test "$enable_doc" = "yes") @@ -954,6 +1012,7 @@ AC_OUTPUT([Makefile src/plugins/scripts/python/Makefile src/plugins/scripts/ruby/Makefile src/plugins/scripts/lua/Makefile + src/plugins/scripts/tcl/Makefile src/plugins/trigger/Makefile src/plugins/xfer/Makefile src/gui/Makefile @@ -1028,6 +1087,9 @@ fi if test "x$enable_lua" = "xyes"; then listplugins="$listplugins lua($LUA_VERSION)" fi +if test "x$enable_tcl" = "xyes"; then + listplugins="$listplugins tcl($TCL_PATCHLEVEL)" +fi if test "x$enable_trigger" = "xyes"; then listplugins="$listplugins trigger" fi diff --git a/doc/de/autogen/tcl_commands.xml b/doc/de/autogen/tcl_commands.xml new file mode 100644 index 000000000..5116dec71 --- /dev/null +++ b/doc/de/autogen/tcl_commands.xml @@ -0,0 +1,17 @@ + + + +tcl [list [name]] | [listfull [name]] [load filename] | [autoload] | [reload] | [unload [name]] + +list/load/unload scripts + +filename: script (file) to load +name: a script name + +Without argument, this command lists all loaded scripts. + diff --git a/doc/docgen.pl b/doc/docgen.pl index c823fcfbe..8a04f2798 100644 --- a/doc/docgen.pl +++ b/doc/docgen.pl @@ -68,7 +68,8 @@ my %plugin_list = ("weechat" => "co", "alias" => "", "irc" => "co", "logger" => "co", "notify" => "co", "perl" => "", "python" => "", "ruby" => "", - "lua" => "", "xfer" => "co"); + "lua" => "", "tcl" => "", + "xfer" => "co"); # options to ignore my @ignore_options = ("weechat\\.bar\\..*", diff --git a/doc/en/autogen/tcl_commands.xml b/doc/en/autogen/tcl_commands.xml new file mode 100644 index 000000000..5116dec71 --- /dev/null +++ b/doc/en/autogen/tcl_commands.xml @@ -0,0 +1,17 @@ + + + +tcl [list [name]] | [listfull [name]] [load filename] | [autoload] | [reload] | [unload [name]] + +list/load/unload scripts + +filename: script (file) to load +name: a script name + +Without argument, this command lists all loaded scripts. + diff --git a/doc/fr/autogen/tcl_commands.xml b/doc/fr/autogen/tcl_commands.xml new file mode 100644 index 000000000..da31e82b5 --- /dev/null +++ b/doc/fr/autogen/tcl_commands.xml @@ -0,0 +1,17 @@ + + + +tcl [list [nom]] | [listfull [nom]] | [load fichier] | [autoload] | [reload] | [unload [nom]] + +liste/charge/décharge des scripts + +fichier: script (fichier) à charger +nom: un nom de script + +Sans argument, cette commande liste tous les scripts chargés. + diff --git a/doc/include_autogen.xml b/doc/include_autogen.xml index dba03e9dd..25d8caffc 100644 --- a/doc/include_autogen.xml +++ b/doc/include_autogen.xml @@ -10,6 +10,7 @@ + diff --git a/po/POTFILES.in b/po/POTFILES.in index d74b21fde..5f973e0ed 100644 --- a/po/POTFILES.in +++ b/po/POTFILES.in @@ -171,6 +171,10 @@ ./src/plugins/scripts/script-callback.c ./src/plugins/scripts/script-callback.h ./src/plugins/scripts/script.h +./src/plugins/scripts/tcl/weechat-tcl-api.c +./src/plugins/scripts/tcl/weechat-tcl-api.h +./src/plugins/scripts/tcl/weechat-tcl.c +./src/plugins/scripts/tcl/weechat-tcl.h ./src/plugins/trigger/dump.c ./src/plugins/trigger/trigger.c ./src/plugins/trigger/trigger.h diff --git a/po/cs.po b/po/cs.po index 9d377655f..73668fab3 100644 --- a/po/cs.po +++ b/po/cs.po @@ -6,7 +6,7 @@ msgid "" msgstr "" "Project-Id-Version: WeeChat 0.2.7-dev\n" "Report-Msgid-Bugs-To: flashcode@flashtux.org\n" -"POT-Creation-Date: 2008-10-03 17:17+0200\n" +"POT-Creation-Date: 2008-10-05 17:39+0200\n" "PO-Revision-Date: 2008-09-17 16:19+0200\n" "Last-Translator: Jiri Golembiovsky \n" "Language-Team: weechat-dev \n" @@ -4382,6 +4382,18 @@ msgstr "%s%s: nemohu zavolat funkci \"%s\", skript není inicializován" msgid "%s%s: wrong arguments for function \"%s\"" msgstr "%s špatné parametry pro příkaz \"%s\"\n" +#, fuzzy, c-format +msgid "%s%s unable to run function \"%s\": %s" +msgstr "Nemůžu zapsat log soubor \"%s\"\n" + +#, fuzzy, c-format +msgid "%s%s: unable to create new interpreter" +msgstr "%s nemohu vytvořit server\n" + +#, fuzzy, c-format +msgid "%s%s: error occured while parsing file \"%s\": %s" +msgstr "Nemůžu zapsat log soubor \"%s\"\n" + msgid "bytes" msgstr "bajtů" diff --git a/po/de.po b/po/de.po index 35ac9aad4..04362fd56 100644 --- a/po/de.po +++ b/po/de.po @@ -9,7 +9,7 @@ msgid "" msgstr "" "Project-Id-Version: WeeChat 0.2.7-dev\n" "Report-Msgid-Bugs-To: flashcode@flashtux.org\n" -"POT-Creation-Date: 2008-10-03 17:17+0200\n" +"POT-Creation-Date: 2008-10-05 17:39+0200\n" "PO-Revision-Date: 2007-09-06 12:44+0200\n" "Last-Translator: Thomas Schuetz \n" "Language-Team: weechat-dev \n" @@ -4284,6 +4284,18 @@ msgstr "" msgid "%s%s: wrong arguments for function \"%s\"" msgstr "%s fehlerhafte Argumente für der \"%s\"-Befehl\n" +#, fuzzy, c-format +msgid "%s%s unable to run function \"%s\": %s" +msgstr "Kann das Logfile nicht schreiben\n" + +#, fuzzy, c-format +msgid "%s%s: unable to create new interpreter" +msgstr "%s kann den Server nicht anlegen\n" + +#, fuzzy, c-format +msgid "%s%s: error occured while parsing file \"%s\": %s" +msgstr "Kann das Logfile nicht schreiben\n" + msgid "bytes" msgstr "Bytes" diff --git a/po/es.po b/po/es.po index 0cf5b0c1c..0fd335959 100644 --- a/po/es.po +++ b/po/es.po @@ -6,7 +6,7 @@ msgid "" msgstr "" "Project-Id-Version: WeeChat 0.2.7-dev\n" "Report-Msgid-Bugs-To: flashcode@flashtux.org\n" -"POT-Creation-Date: 2008-10-03 17:17+0200\n" +"POT-Creation-Date: 2008-10-05 17:39+0200\n" "PO-Revision-Date: 2007-09-19 12:09+0200\n" "Last-Translator: Roberto González Cardenete \n" "Language-Team: weechat-dev \n" @@ -4284,6 +4284,18 @@ msgstr "" msgid "%s%s: wrong arguments for function \"%s\"" msgstr "%s argumentos incorrectos para el comando \"%s\"\n" +#, fuzzy, c-format +msgid "%s%s unable to run function \"%s\": %s" +msgstr "No es posible escribir un fichero de log para un búfer\n" + +#, fuzzy, c-format +msgid "%s%s: unable to create new interpreter" +msgstr "%s no es posible crear el servidor\n" + +#, fuzzy, c-format +msgid "%s%s: error occured while parsing file \"%s\": %s" +msgstr "No es posible escribir un fichero de log para un búfer\n" + msgid "bytes" msgstr "bytes" diff --git a/po/fr.po b/po/fr.po index 088befac0..9f36d1608 100644 --- a/po/fr.po +++ b/po/fr.po @@ -6,8 +6,8 @@ msgid "" msgstr "" "Project-Id-Version: WeeChat 0.2.7-dev\n" "Report-Msgid-Bugs-To: flashcode@flashtux.org\n" -"POT-Creation-Date: 2008-10-03 17:17+0200\n" -"PO-Revision-Date: 2008-10-03 17:17+0200\n" +"POT-Creation-Date: 2008-10-05 17:39+0200\n" +"PO-Revision-Date: 2008-10-05 17:39+0200\n" "Last-Translator: FlashCode \n" "Language-Team: weechat-dev \n" "MIME-Version: 1.0\n" @@ -4328,6 +4328,18 @@ msgstr "" msgid "%s%s: wrong arguments for function \"%s\"" msgstr "%s%s: paramètres invalides pour la fonction \"%s\"" +#, c-format +msgid "%s%s unable to run function \"%s\": %s" +msgstr "%s%s impossible de lancer la fonction \"%s\": %s" + +#, c-format +msgid "%s%s: unable to create new interpreter" +msgstr "%s%s: impossible de créer l'interpréteur" + +#, c-format +msgid "%s%s: error occured while parsing file \"%s\": %s" +msgstr "%s%s: erreur d'analyse du fichier \"%s\": %s" + msgid "bytes" msgstr "octets" diff --git a/po/hu.po b/po/hu.po index 359f4c2ce..c30ac0aad 100644 --- a/po/hu.po +++ b/po/hu.po @@ -12,7 +12,7 @@ msgid "" msgstr "" "Project-Id-Version: WeeChat 0.2.7-dev\n" "Report-Msgid-Bugs-To: flashcode@flashtux.org\n" -"POT-Creation-Date: 2008-10-03 17:17+0200\n" +"POT-Creation-Date: 2008-10-05 17:39+0200\n" "PO-Revision-Date: 2007-10-10 18:07+0200\n" "Last-Translator: Andras Voroskoi \n" "Language-Team: weechat-dev \n" @@ -4309,6 +4309,18 @@ msgstr "" msgid "%s%s: wrong arguments for function \"%s\"" msgstr "%s rossz argumentum a \"%s\" parancsnak\n" +#, fuzzy, c-format +msgid "%s%s unable to run function \"%s\": %s" +msgstr "Nem sikerült a(z) \"%s\" naplófájlt írni\n" + +#, fuzzy, c-format +msgid "%s%s: unable to create new interpreter" +msgstr "%s nem sikerült a szervert létrehozni\n" + +#, fuzzy, c-format +msgid "%s%s: error occured while parsing file \"%s\": %s" +msgstr "Nem sikerült a(z) \"%s\" naplófájlt írni\n" + msgid "bytes" msgstr "byte" diff --git a/po/ru.po b/po/ru.po index 4eef90301..097b71f83 100644 --- a/po/ru.po +++ b/po/ru.po @@ -6,7 +6,7 @@ msgid "" msgstr "" "Project-Id-Version: WeeChat 0.2.7-dev\n" "Report-Msgid-Bugs-To: flashcode@flashtux.org\n" -"POT-Creation-Date: 2008-10-03 17:17+0200\n" +"POT-Creation-Date: 2008-10-05 17:39+0200\n" "PO-Revision-Date: 2007-09-06 12:44+0200\n" "Last-Translator: Pavel Shevchuk \n" "Language-Team: weechat-dev \n" @@ -4297,6 +4297,18 @@ msgstr "" msgid "%s%s: wrong arguments for function \"%s\"" msgstr "%s некорректные аргументы команды \"%s\"\n" +#, fuzzy, c-format +msgid "%s%s unable to run function \"%s\": %s" +msgstr "Не могу записать лог-файл \"%s\"\n" + +#, fuzzy, c-format +msgid "%s%s: unable to create new interpreter" +msgstr "%s не могу создать сервер\n" + +#, fuzzy, c-format +msgid "%s%s: error occured while parsing file \"%s\": %s" +msgstr "Не могу записать лог-файл \"%s\"\n" + msgid "bytes" msgstr "байтов" diff --git a/po/srcfiles.cmake b/po/srcfiles.cmake index cd034a365..f88c32fa3 100644 --- a/po/srcfiles.cmake +++ b/po/srcfiles.cmake @@ -172,6 +172,10 @@ SET(WEECHAT_SOURCES ./src/plugins/scripts/script-callback.c ./src/plugins/scripts/script-callback.h ./src/plugins/scripts/script.h +./src/plugins/scripts/tcl/weechat-tcl-api.c +./src/plugins/scripts/tcl/weechat-tcl-api.h +./src/plugins/scripts/tcl/weechat-tcl.c +./src/plugins/scripts/tcl/weechat-tcl.h ./src/plugins/trigger/dump.c ./src/plugins/trigger/trigger.c ./src/plugins/trigger/trigger.h diff --git a/po/weechat.pot b/po/weechat.pot index 2f7ad1644..88fc75e65 100644 --- a/po/weechat.pot +++ b/po/weechat.pot @@ -7,7 +7,7 @@ msgid "" msgstr "" "Project-Id-Version: PACKAGE VERSION\n" "Report-Msgid-Bugs-To: flashcode@flashtux.org\n" -"POT-Creation-Date: 2008-10-03 17:17+0200\n" +"POT-Creation-Date: 2008-10-05 17:39+0200\n" "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" "Last-Translator: FULL NAME \n" "Language-Team: LANGUAGE \n" @@ -3716,6 +3716,18 @@ msgstr "" msgid "%s%s: wrong arguments for function \"%s\"" msgstr "" +#, c-format +msgid "%s%s unable to run function \"%s\": %s" +msgstr "" + +#, c-format +msgid "%s%s: unable to create new interpreter" +msgstr "" + +#, c-format +msgid "%s%s: error occured while parsing file \"%s\": %s" +msgstr "" + msgid "bytes" msgstr "" diff --git a/src/plugins/CMakeLists.txt b/src/plugins/CMakeLists.txt index 558801092..b9b9e97db 100644 --- a/src/plugins/CMakeLists.txt +++ b/src/plugins/CMakeLists.txt @@ -70,9 +70,9 @@ IF(NOT DISABLE_NOTIFY) ADD_SUBDIRECTORY( notify ) ENDIF(NOT DISABLE_NOTIFY) -IF(NOT DISABLE_SCRIPTS AND NOT DISABLE_PERL AND NOT DISABLE_PYTHON AND NOT DISABLE_RUBY AND NOT DISABLE_LUA) +IF(NOT DISABLE_SCRIPTS AND NOT DISABLE_PERL AND NOT DISABLE_PYTHON AND NOT DISABLE_RUBY AND NOT DISABLE_LUA AND NOT DISABLE_TCL) ADD_SUBDIRECTORY( scripts ) -ENDIF(NOT DISABLE_SCRIPTS AND NOT DISABLE_PERL AND NOT DISABLE_PYTHON AND NOT DISABLE_RUBY AND NOT DISABLE_LUA) +ENDIF(NOT DISABLE_SCRIPTS AND NOT DISABLE_PERL AND NOT DISABLE_PYTHON AND NOT DISABLE_RUBY AND NOT DISABLE_LUA AND NOT DISABLE_TCL) IF(ENABLE_TRIGGER) ADD_SUBDIRECTORY( trigger ) diff --git a/src/plugins/Makefile.am b/src/plugins/Makefile.am index aad9332f8..20761844f 100644 --- a/src/plugins/Makefile.am +++ b/src/plugins/Makefile.am @@ -78,6 +78,10 @@ if PLUGIN_LUA script_dir = scripts endif +if PLUGIN_TCL +script_dir = scripts +endif + if PLUGIN_TRIGGER trigger_dir = trigger endif diff --git a/src/plugins/irc/irc-server.h b/src/plugins/irc/irc-server.h index ddacfdf7c..15fba5ed9 100644 --- a/src/plugins/irc/irc-server.h +++ b/src/plugins/irc/irc-server.h @@ -20,6 +20,7 @@ #ifndef __WEECHAT_IRC_SERVER_H #define __WEECHAT_IRC_SERVER_H 1 +#include #include #ifdef HAVE_GNUTLS diff --git a/src/plugins/scripts/CMakeLists.txt b/src/plugins/scripts/CMakeLists.txt index 653c2237d..0a83ecf1d 100644 --- a/src/plugins/scripts/CMakeLists.txt +++ b/src/plugins/scripts/CMakeLists.txt @@ -48,3 +48,10 @@ IF(NOT DISABLE_LUA) ADD_SUBDIRECTORY( lua ) ENDIF(LUA_FOUND) ENDIF(NOT DISABLE_LUA) + +IF(NOT DISABLE_TCL) + FIND_PACKAGE(TCL) + IF(TCL_FOUND) + ADD_SUBDIRECTORY( tcl ) + ENDIF(TCL_FOUND) +ENDIF(NOT DISABLE_TCL) diff --git a/src/plugins/scripts/Makefile.am b/src/plugins/scripts/Makefile.am index f04b97d59..0d90c7193 100644 --- a/src/plugins/scripts/Makefile.am +++ b/src/plugins/scripts/Makefile.am @@ -41,4 +41,8 @@ if PLUGIN_LUA lua_dir = lua endif -SUBDIRS = . $(perl_dir) $(python_dir) $(ruby_dir) $(lua_dir) +if PLUGIN_TCL +tcl_dir = tcl +endif + +SUBDIRS = . $(perl_dir) $(python_dir) $(ruby_dir) $(lua_dir) $(tcl_dir) diff --git a/src/plugins/scripts/lua/weechat-lua-api.c b/src/plugins/scripts/lua/weechat-lua-api.c index 2bde584c2..07e889ea1 100644 --- a/src/plugins/scripts/lua/weechat-lua-api.c +++ b/src/plugins/scripts/lua/weechat-lua-api.c @@ -18,6 +18,7 @@ /* weechat-lua-api.c: Lua API functions */ + #undef _ #include diff --git a/src/plugins/scripts/lua/weechat-lua.c b/src/plugins/scripts/lua/weechat-lua.c index 636d91c06..a11e54e93 100644 --- a/src/plugins/scripts/lua/weechat-lua.c +++ b/src/plugins/scripts/lua/weechat-lua.c @@ -18,6 +18,7 @@ /* weechat-lua.c: Lua plugin for WeeChat */ + #undef _ #include diff --git a/src/plugins/scripts/perl/weechat-perl-api.c b/src/plugins/scripts/perl/weechat-perl-api.c index c9fb1bd44..fb9d5dfbc 100644 --- a/src/plugins/scripts/perl/weechat-perl-api.c +++ b/src/plugins/scripts/perl/weechat-perl-api.c @@ -18,6 +18,7 @@ /* weechat-perl-api.c: Perl API functions */ + #undef _ #include diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c index e84665abf..ce53758cf 100644 --- a/src/plugins/scripts/perl/weechat-perl.c +++ b/src/plugins/scripts/perl/weechat-perl.c @@ -18,6 +18,7 @@ /* weechat-perl.c: Perl plugin for WeeChat */ + #undef _ #include diff --git a/src/plugins/scripts/python/weechat-python-api.c b/src/plugins/scripts/python/weechat-python-api.c index 4ca9bd331..90f791c5f 100644 --- a/src/plugins/scripts/python/weechat-python-api.c +++ b/src/plugins/scripts/python/weechat-python-api.c @@ -18,6 +18,7 @@ /* weechat-python-api.c: Python API functions */ + #undef _ #include diff --git a/src/plugins/scripts/python/weechat-python.c b/src/plugins/scripts/python/weechat-python.c index 619e5c2e4..ea0fe9bce 100644 --- a/src/plugins/scripts/python/weechat-python.c +++ b/src/plugins/scripts/python/weechat-python.c @@ -18,6 +18,7 @@ /* weechat-python.c: Python plugin for WeeChat */ + #undef _ #include diff --git a/src/plugins/scripts/ruby/weechat-ruby-api.c b/src/plugins/scripts/ruby/weechat-ruby-api.c index d5cdf93fd..9e3d1c81d 100644 --- a/src/plugins/scripts/ruby/weechat-ruby-api.c +++ b/src/plugins/scripts/ruby/weechat-ruby-api.c @@ -18,6 +18,7 @@ /* weechat-ruby-api.c: Ruby API functions */ + #undef _ #include diff --git a/src/plugins/scripts/ruby/weechat-ruby.c b/src/plugins/scripts/ruby/weechat-ruby.c index fa08ab09c..83f96dd50 100644 --- a/src/plugins/scripts/ruby/weechat-ruby.c +++ b/src/plugins/scripts/ruby/weechat-ruby.c @@ -18,6 +18,7 @@ /* weechat-ruby.c: Ruby plugin for WeeChat */ + #undef _ #include diff --git a/src/plugins/scripts/tcl/CMakeLists.txt b/src/plugins/scripts/tcl/CMakeLists.txt new file mode 100644 index 000000000..977a36d4f --- /dev/null +++ b/src/plugins/scripts/tcl/CMakeLists.txt @@ -0,0 +1,28 @@ +# Copyright (c) 2003-2008 FlashCode +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . +# + +ADD_LIBRARY(tcl MODULE weechat-tcl.c weechat-tcl.h +weechat-tcl-api.c weechat-tcl-api.h) + +SET_TARGET_PROPERTIES(tcl PROPERTIES PREFIX "") + +IF(TCL_FOUND) + INCLUDE_DIRECTORIES(${TCL_INCLUDE_PATH}) + SET(CMAKE_MODULE_LINKER_FLAGS "${CMAKE_MODULE_LINKER_FLAGS} ${TCL_LFLAGS}") + TARGET_LINK_LIBRARIES(tcl ${TCL_LIBRARY} weechat_scripts) +ENDIF(TCL_FOUND) + +INSTALL(TARGETS tcl LIBRARY DESTINATION lib/weechat/plugins) diff --git a/src/plugins/scripts/tcl/Makefile.am b/src/plugins/scripts/tcl/Makefile.am new file mode 100644 index 000000000..f703760a2 --- /dev/null +++ b/src/plugins/scripts/tcl/Makefile.am @@ -0,0 +1,28 @@ +# Copyright (c) 2003-2008 FlashCode +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . +# + +INCLUDES = -DLOCALEDIR=\"$(datadir)/locale\" $(TCL_CFLAGS) + +libdir = ${weechat_libdir}/plugins + +lib_LTLIBRARIES = tcl.la + +tcl_la_SOURCES = weechat-tcl.c \ + weechat-tcl.h \ + weechat-tcl-api.c \ + weechat-tcl-api.h +tcl_la_LDFLAGS = -module +tcl_la_LIBADD = ../lib_weechat_plugins_scripts.la $(TCL_LFLAGS) diff --git a/src/plugins/scripts/tcl/weechat-tcl-api.c b/src/plugins/scripts/tcl/weechat-tcl-api.c new file mode 100644 index 000000000..dab0560a4 --- /dev/null +++ b/src/plugins/scripts/tcl/weechat-tcl-api.c @@ -0,0 +1,5162 @@ +/* + * Copyright (C) 2008 Dmitry Kobylin + * See README for License detail, AUTHORS for developers list. + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* weechat-tcl-api.c: Tcl API functions */ + + +#undef _ + +#include +#include +#include +#include + +#include "../../weechat-plugin.h" +#include "../script.h" +#include "../script-api.h" +#include "../script-callback.h" +#include "weechat-tcl.h" + +#define TCL_RETURN_OK \ + { \ + objp = Tcl_GetObjResult (interp); \ + if (Tcl_IsShared (objp)) \ + { \ + objp = Tcl_DuplicateObj (objp); \ + Tcl_IncrRefCount (objp); \ + Tcl_SetIntObj (objp,1); \ + Tcl_SetObjResult (interp, objp); \ + Tcl_DecrRefCount (objp); \ + } \ + else \ + Tcl_SetIntObj (objp,1); \ + return TCL_OK; \ + } +#define TCL_RETURN_ERROR \ + { \ + objp = Tcl_GetObjResult (interp); \ + if (Tcl_IsShared (objp)) \ + { \ + objp = Tcl_DuplicateObj (objp); \ + Tcl_IncrRefCount (objp); \ + Tcl_SetIntObj (objp,0); \ + Tcl_SetObjResult (interp, objp); \ + Tcl_DecrRefCount (objp); \ + } \ + else \ + Tcl_SetIntObj (objp,0); \ + return TCL_ERROR; \ + } +#define TCL_RETURN_EMPTY \ + { \ + objp = Tcl_GetObjResult (interp); \ + if (Tcl_IsShared (objp)) \ + { \ + objp = Tcl_DuplicateObj (objp); \ + Tcl_IncrRefCount (objp); \ + Tcl_SetStringObj (objp,"",-1); \ + Tcl_SetObjResult (interp, objp); \ + Tcl_DecrRefCount (objp); \ + } \ + else \ + Tcl_SetStringObj (objp,"",-1); \ + return TCL_OK; \ + } +#define TCL_RETURN_STRING(__string) \ + { \ + objp = Tcl_GetObjResult (interp); \ + if (Tcl_IsShared (objp)) \ + { \ + objp = Tcl_DuplicateObj (objp); \ + Tcl_IncrRefCount (objp); \ + if (__string) \ + { \ + Tcl_SetStringObj (objp,__string,-1); \ + Tcl_SetObjResult (interp, objp); \ + Tcl_DecrRefCount (objp); \ + return TCL_OK; \ + } \ + Tcl_SetStringObj (objp,"",-1); \ + Tcl_SetObjResult (interp, objp); \ + Tcl_DecrRefCount (objp); \ + } \ + else \ + { \ + if (__string) \ + { \ + Tcl_SetStringObj (objp,__string,-1); \ + return TCL_OK; \ + } \ + Tcl_SetStringObj (objp,"",-1); \ + } \ + return TCL_OK; \ + } +#define TCL_RETURN_STRING_FREE(__string) \ + { \ + objp = Tcl_GetObjResult (interp); \ + if (Tcl_IsShared (objp)) \ + { \ + objp = Tcl_DuplicateObj (objp); \ + Tcl_IncrRefCount (objp); \ + if (__string) \ + { \ + Tcl_SetStringObj (objp,__string,-1); \ + Tcl_SetObjResult (interp, objp); \ + Tcl_DecrRefCount (objp); \ + free (__string); \ + return TCL_OK; \ + } \ + Tcl_SetStringObj (objp,"",-1); \ + Tcl_SetObjResult (interp, objp); \ + Tcl_DecrRefCount (objp); \ + } \ + else \ + { \ + if (__string) \ + { \ + Tcl_SetStringObj (objp,__string,-1); \ + free(__string); \ + return TCL_OK; \ + } \ + Tcl_SetStringObj (objp,"",-1); \ + } \ + return TCL_OK; \ + } +#define TCL_RETURN_INT(__int) \ + { \ + objp = Tcl_GetObjResult (interp); \ + if (Tcl_IsShared (objp)) \ + { \ + objp = Tcl_DuplicateObj (objp); \ + Tcl_IncrRefCount (objp); \ + Tcl_SetIntObj (objp,__int); \ + Tcl_SetObjResult (interp, objp); \ + Tcl_DecrRefCount (objp); \ + } \ + else \ + Tcl_SetIntObj (objp,__int); \ + return TCL_OK; \ + } + + +/* + * weechat::register: startup function for all WeeChat Tcl scripts + */ + +static int +weechat_tcl_api_register (ClientData clientData, Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *name, *author, *version, *license, *description, *shutdown_func; + char *charset; + int i; + + (void) clientData; + + tcl_current_script = NULL; + + if (objc < 8) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("register"); + TCL_RETURN_ERROR; + } + + name = Tcl_GetStringFromObj (objv[1], &i); + author = Tcl_GetStringFromObj (objv[2], &i); + version = Tcl_GetStringFromObj (objv[3], &i); + license = Tcl_GetStringFromObj (objv[4], &i); + description = Tcl_GetStringFromObj (objv[5], &i); + shutdown_func = Tcl_GetStringFromObj (objv[6], &i); + charset = Tcl_GetStringFromObj (objv[7], &i); + + if (script_search (weechat_tcl_plugin, tcl_scripts, name)) + { + /* error: another script already exists with this name! */ + weechat_printf (NULL, + weechat_gettext ("%s%s: unable to register script " + "\"%s\" (another script already " + "exists with this name)"), + weechat_prefix ("error"), TCL_PLUGIN_NAME, name); + TCL_RETURN_ERROR; + } + + /* register script */ + tcl_current_script = script_add (weechat_tcl_plugin, + &tcl_scripts, + (tcl_current_script_filename) ? + tcl_current_script_filename : "", + name, author, version, license, + description, shutdown_func, charset); + if (tcl_current_script) + { + weechat_printf (NULL, + weechat_gettext ("%s: registered script \"%s\", " + "version %s (%s)"), + TCL_PLUGIN_NAME, name, version, description); + tcl_current_script->interpreter = (void *)interp; + } + else + { + TCL_RETURN_ERROR; + } + + TCL_RETURN_OK; +} + +/* + * weechat::charset_set: set script charset + */ + +static int +weechat_tcl_api_charset_set (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("charset_set"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("charset_set"); + TCL_RETURN_ERROR; + } + + script_api_charset_set (tcl_current_script, + Tcl_GetStringFromObj (objv[1], &i)); /* charset */ + + TCL_RETURN_OK; +} + +/* + * weechat::iconv_to_internal: convert string to internal WeeChat charset + */ + +static int +weechat_tcl_api_iconv_to_internal (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *charset, *string; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("iconv_to_internal"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("iconv_to_internal"); + TCL_RETURN_EMPTY; + } + + charset = Tcl_GetStringFromObj (objv[1], &i); + string = Tcl_GetStringFromObj (objv[2], &i); + + result = weechat_iconv_to_internal (charset, string); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::iconv_from_internal: convert string from WeeChat inernal charset + * to another one + */ + +static int +weechat_tcl_api_iconv_from_internal (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *charset, *string; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("iconv_from_internal"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("iconv_from_internal"); + TCL_RETURN_EMPTY; + } + + charset = Tcl_GetStringFromObj (objv[1], &i); + string = Tcl_GetStringFromObj (objv[2], &i); + result = weechat_iconv_from_internal (charset, string); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::gettext: get translated string + */ + +static int +weechat_tcl_api_gettext (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("gettext"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("gettext"); + TCL_RETURN_EMPTY; + } + + result = weechat_gettext (Tcl_GetStringFromObj (objv[1], &i)); /* string */ + + TCL_RETURN_STRING(result); +} + +/* + * weechat::ngettext: get translated string with plural form + */ + +static int +weechat_tcl_api_ngettext (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *single, *plural; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("ngettext"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("ngettext"); + TCL_RETURN_EMPTY; + } + + single = Tcl_GetStringFromObj (objv[1], &i); + plural = Tcl_GetStringFromObj (objv[2], &i); + + if (Tcl_GetIntFromObj (interp, objv[3], &i) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("ngettext"); + TCL_RETURN_EMPTY; + } + + result = weechat_ngettext (single, plural, + i); /* count */ + + TCL_RETURN_STRING(result); +} + +/* + * weechat::mkdir_home: create a directory in WeeChat home + */ + +static int +weechat_tcl_api_mkdir_home (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("mkdir_home"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("mkdir_home"); + TCL_RETURN_ERROR; + } + + if (Tcl_GetIntFromObj (interp, objv[2], &i) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("mkdir_home"); + TCL_RETURN_EMPTY; + } + + if (weechat_mkdir_home (Tcl_GetStringFromObj (objv[1], &i), /* directory */ + i)) /* mode */ + TCL_RETURN_OK; + + TCL_RETURN_ERROR; +} + +/* + * weechat::mkdir: create a directory + */ + +static int +weechat_tcl_api_mkdir (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("mkdir"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("mkdir"); + TCL_RETURN_ERROR; + } + + if (Tcl_GetIntFromObj (interp, objv[2], &i) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("mkdir_home"); + TCL_RETURN_EMPTY; + } + + if (weechat_mkdir (Tcl_GetStringFromObj (objv[1], &i), /* directory */ + i)) /* mode */ + TCL_RETURN_OK; + + TCL_RETURN_ERROR; +} + +/* + * weechat::list_new: create a new list + */ + +static int +weechat_tcl_api_list_new (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result; + + /* make C compiler happy */ + (void) clientData; + (void) objc; + (void) objv; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_new"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_list_new ()); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::list_add: add a string to list + */ + +static int +weechat_tcl_api_list_add (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *weelist, *data, *where; + int i; + + /* make C compiler happy */ + (void) clientData; + + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_add"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_add"); + TCL_RETURN_EMPTY; + } + + weelist = Tcl_GetStringFromObj (objv[1], &i); + data = Tcl_GetStringFromObj (objv[2], &i); + where = Tcl_GetStringFromObj (objv[3], &i); + result = script_ptr2str (weechat_list_add (script_str2ptr (weelist), + data, + where)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::list_search: search a string in list + */ + +static int +weechat_tcl_api_list_search (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *weelist, *data; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_search"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_search"); + TCL_RETURN_EMPTY; + } + + weelist = Tcl_GetStringFromObj (objv[1], &i); + data = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (weechat_list_search (script_str2ptr (weelist), + data)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::list_casesearch: search a string in list (ignore case) + */ + +static int +weechat_tcl_api_list_casesearch (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *weelist, *data; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_casesearch"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_casesearch"); + TCL_RETURN_EMPTY; + } + + weelist = Tcl_GetStringFromObj (objv[1], &i); + data = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (weechat_list_casesearch (script_str2ptr (weelist), + data)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::list_get: get item by position + */ + +static int +weechat_tcl_api_list_get (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_get"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_get"); + TCL_RETURN_EMPTY; + } + + if (Tcl_GetIntFromObj (interp, objv[2], &i) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_get"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_list_get (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i)), /* weelist */ + i)); /* position */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::list_set: set new value for item + */ + +static int +weechat_tcl_api_list_set (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *item, *new_value; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_set"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_set"); + TCL_RETURN_ERROR; + } + + item = Tcl_GetStringFromObj (objv[1], &i); + new_value = Tcl_GetStringFromObj (objv[2], &i); + weechat_list_set (script_str2ptr (item), new_value); + + TCL_RETURN_OK; +} + +/* + * weechat::list_next: get next item + */ + +static int +weechat_tcl_api_list_next (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_next"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_next"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_list_next (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i)))); /* item */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::list_prev: get previous item + */ + +static int +weechat_tcl_api_list_prev (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_prev"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_prev"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_list_prev (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i)))); /* item */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::list_string: get string value of item + */ + +static int +weechat_tcl_api_list_string (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_string"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_string"); + TCL_RETURN_EMPTY; + } + + result = weechat_list_string (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* item */ + + TCL_RETURN_STRING(result); +} + +/* + * weechat::list_size: get number of elements in list + */ + +static int +weechat_tcl_api_list_size (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int size; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_size"); + TCL_RETURN_INT(0); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_size"); + TCL_RETURN_INT(0); + } + + size = weechat_list_size (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* weelist */ + + TCL_RETURN_INT(size); +} + +/* + * weechat::list_remove: remove item from list + */ + +static int +weechat_tcl_api_list_remove (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *weelist, *item; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_remove"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_remove"); + TCL_RETURN_ERROR; + } + + weelist = Tcl_GetStringFromObj (objv[1], &i); + item = Tcl_GetStringFromObj (objv[2], &i); + weechat_list_remove (script_str2ptr (weelist), script_str2ptr (item)); + + TCL_RETURN_OK; +} + +/* + * weechat::list_remove_all: remove all items from list + */ + +static int +weechat_tcl_api_list_remove_all (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int i; + + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_remove_all"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_remove_all"); + TCL_RETURN_ERROR; + } + + weechat_list_remove_all (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* weelist */ + + TCL_RETURN_OK; +} + +/* + * weechat::list_free: free list + */ + +static int +weechat_tcl_api_list_free (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("list_free"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("list_free"); + TCL_RETURN_ERROR; + } + + weechat_list_free (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* weelist */ + + TCL_RETURN_OK; +} + +/* + * weechat_tcl_api_config_reload_cb: callback for config reload + */ + +int +weechat_tcl_api_config_reload_cb (void *data, + struct t_config_file *config_file) +{ + struct t_script_callback *script_callback; + char *tcl_argv[2]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + + if (script_callback->function && script_callback->function[0]) + { + tcl_argv[0] = script_ptr2str (config_file); + tcl_argv[1] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (tcl_argv[0]) + free (tcl_argv[0]); + + return ret; + } + + return 0; +} + +/* + * weechat::config_new: create a new configuration file + */ + +static int +weechat_tcl_api_config_new (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *name, *function; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_new"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_new"); + TCL_RETURN_EMPTY; + } + + name = Tcl_GetStringFromObj (objv[1], &i); + function = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (script_api_config_new (weechat_tcl_plugin, + tcl_current_script, + name, + &weechat_tcl_api_config_reload_cb, + function)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_config_section_read_cb: callback for reading option in section + */ + +void +weechat_tcl_api_config_section_read_cb (void *data, + struct t_config_file *config_file, + const char *option_name, const char *value) +{ + struct t_script_callback *script_callback; + char *tcl_argv[4]; + int *rc; + + script_callback = (struct t_script_callback *)data; + + if (script_callback->function && script_callback->function[0]) + { + tcl_argv[0] = script_ptr2str (config_file); + tcl_argv[1] = (char *)option_name; + tcl_argv[2] = (char *)value; + tcl_argv[3] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (rc) + free (rc); + if (tcl_argv[0]) + free (tcl_argv[0]); + } +} + +/* + * weechat_tcl_api_config_section_write_cb: callback for writing section + */ + +void +weechat_tcl_api_config_section_write_cb (void *data, + struct t_config_file *config_file, + const char *section_name) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3]; + int *rc; + + script_callback = (struct t_script_callback *)data; + + if (script_callback->function && script_callback->function[0]) + { + tcl_argv[0] = script_ptr2str (config_file); + tcl_argv[1] = (char *)section_name; + tcl_argv[2] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (rc) + free (rc); + if (tcl_argv[0]) + free (tcl_argv[0]); + } +} + +/* + * weechat_tcl_api_config_section_write_default_cb: callback for writing + * default values for section + */ + +void +weechat_tcl_api_config_section_write_default_cb (void *data, + struct t_config_file *config_file, + const char *section_name) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3]; + int *rc; + + script_callback = (struct t_script_callback *)data; + + if (script_callback->function && script_callback->function[0]) + { + tcl_argv[0] = script_ptr2str (config_file); + tcl_argv[1] = (char *)section_name; + tcl_argv[2] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (rc) + free (rc); + if (tcl_argv[0]) + free (tcl_argv[0]); + } +} + +/* + * weechat_tcl_api_config_section_create_option_cb: callback to create an option + */ + +int +weechat_tcl_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; + char *tcl_argv[5]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + if (script_callback->function && script_callback->function[0]) + { + tcl_argv[0] = script_ptr2str (config_file); + tcl_argv[1] = script_ptr2str (section); + tcl_argv[2] = (char *)option_name; + tcl_argv[3] = (char *)value; + tcl_argv[4] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (tcl_argv[0]) + free (tcl_argv[0]); + if (tcl_argv[1]) + free (tcl_argv[1]); + + return ret; + } + + return 0; +} + +/* + * weechat::config_new_section: create a new section in configuration file + */ + +static int +weechat_tcl_api_config_new_section (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *cfg_file, *name, *function_read, *function_write; + char *function_write_default, *function_create_option; + int i,can_add,can_delete; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_new_section"); + TCL_RETURN_EMPTY; + } + + if (objc < 9) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_new_section"); + TCL_RETURN_EMPTY; + } + + if ((Tcl_GetIntFromObj (interp, objv[3], &can_add) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[4], &can_delete) != TCL_OK)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_new_section"); + TCL_RETURN_EMPTY; + } + + cfg_file = Tcl_GetStringFromObj (objv[1], &i); + name = Tcl_GetStringFromObj (objv[2], &i); + function_read = Tcl_GetStringFromObj (objv[5], &i); + function_write = Tcl_GetStringFromObj (objv[6], &i); + function_write_default = Tcl_GetStringFromObj (objv[7], &i); + function_create_option = Tcl_GetStringFromObj (objv[8], &i); + result = script_ptr2str (script_api_config_new_section (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (cfg_file), + name, + can_add, /* user_can_add_options */ + can_delete, /* user_can_delete_options */ + &weechat_tcl_api_config_section_read_cb, + function_read, + &weechat_tcl_api_config_section_write_cb, + function_write, + &weechat_tcl_api_config_section_write_default_cb, + function_write_default, + &weechat_tcl_api_config_section_create_option_cb, + function_create_option)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::config_search_section: search section in configuration file + */ + +static int +weechat_tcl_api_config_search_section (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *config_file, *section_name; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_search_section"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_search_section"); + TCL_RETURN_EMPTY; + } + + config_file = Tcl_GetStringFromObj (objv[1], &i); + section_name = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (weechat_config_search_section (script_str2ptr (config_file), + section_name)); + + TCL_RETURN_STRING_FREE(result); +} + + +/* + * weechat_tcl_api_config_option_check_value_cb: callback for checking new + * value for option + */ + +void +weechat_tcl_api_config_option_check_value_cb (void *data, + struct t_config_option *option, + const char *value) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3]; + int *rc; + + script_callback = (struct t_script_callback *)data; + + if (script_callback->function && script_callback->function[0]) + { + tcl_argv[0] = script_ptr2str (option); + tcl_argv[1] = (char *)value; + tcl_argv[2] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (tcl_argv[0]) + free (tcl_argv[0]); + + if (rc) + free (rc); + } +} + +/* + * weechat_tcl_api_config_option_change_cb: callback for option changed + */ + +void +weechat_tcl_api_config_option_change_cb (void *data, + struct t_config_option *option) +{ + struct t_script_callback *script_callback; + char *tcl_argv[2]; + int *rc; + + script_callback = (struct t_script_callback *)data; + + if (script_callback->function && script_callback->function[0]) + { + tcl_argv[0] = script_ptr2str (option); + tcl_argv[1] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (tcl_argv[0]) + free (tcl_argv[0]); + + if (rc) + free (rc); + } +} + +/* + * weechat_tcl_api_config_option_delete_cb: callback when option is deleted + */ + +void +weechat_tcl_api_config_option_delete_cb (void *data, + struct t_config_option *option) +{ + struct t_script_callback *script_callback; + char *tcl_argv[2]; + int *rc; + + script_callback = (struct t_script_callback *)data; + + if (script_callback->function && script_callback->function[0]) + { + tcl_argv[0] = script_ptr2str (option); + tcl_argv[1] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (tcl_argv[0]) + free (tcl_argv[0]); + + if (rc) + free (rc); + } +} + + + + + +/* + * weechat::config_new_option: create a new option in section + */ + +static int +weechat_tcl_api_config_new_option (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *config_file, *section, *name, *type; + char *description, *string_values, *default_value, *function_check_value, *function_change, *function_delete; + int i,min,max; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_new_option"); + TCL_RETURN_EMPTY; + } + + if (objc < 13) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_new_option"); + TCL_RETURN_EMPTY; + } + + if ((Tcl_GetIntFromObj (interp, objv[7], &min) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[8], &max) != TCL_OK)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_new_option"); + TCL_RETURN_EMPTY; + } + + config_file = Tcl_GetStringFromObj (objv[1], &i); + section = Tcl_GetStringFromObj (objv[2], &i); + name = Tcl_GetStringFromObj (objv[3], &i); + type = Tcl_GetStringFromObj (objv[4], &i); + description = Tcl_GetStringFromObj (objv[5], &i); + string_values = Tcl_GetStringFromObj (objv[6], &i); + default_value = Tcl_GetStringFromObj (objv[9], &i); + function_check_value = Tcl_GetStringFromObj (objv[10], &i); + function_change = Tcl_GetStringFromObj (objv[11], &i); + function_delete = Tcl_GetStringFromObj (objv[12], &i); + + result = script_ptr2str (script_api_config_new_option (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (config_file), + script_str2ptr (section), + name, + type, + description, + string_values, + min, /* min */ + max, /* max */ + default_value, + &weechat_tcl_api_config_option_check_value_cb, + function_check_value, + &weechat_tcl_api_config_option_change_cb, + function_change, + &weechat_tcl_api_config_option_delete_cb, + function_delete)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::config_search_option: search option in configuration file or section + */ + +static int +weechat_tcl_api_config_search_option (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *config_file, *section, *option_name; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_search_option"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_search_option"); + TCL_RETURN_EMPTY; + } + + config_file = Tcl_GetStringFromObj (objv[1], &i); + section = Tcl_GetStringFromObj (objv[2], &i); + option_name = Tcl_GetStringFromObj (objv[3], &i); + result = script_ptr2str (weechat_config_search_option (script_str2ptr (config_file), + script_str2ptr (section), + option_name)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::config_string_to_boolean: return boolean value of a string + */ + +static int +weechat_tcl_api_config_string_to_boolean (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int result, i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_string_to_boolean"); + TCL_RETURN_INT(0); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_string_to_boolean"); + TCL_RETURN_INT(0); + } + + result = weechat_config_string_to_boolean (Tcl_GetStringFromObj (objv[1], &i)); /* text */ + + TCL_RETURN_INT(result); +} + +/* + * weechat::config_option_reset: reset an option with default value + */ + +static int +weechat_tcl_api_config_option_reset (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int rc; + char *option; + int i,run_cb; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_option_reset"); + TCL_RETURN_INT(0); + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_option_reset"); + TCL_RETURN_INT(0); + } + + if (Tcl_GetIntFromObj (interp, objv[2], &run_cb) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_option_reset"); + TCL_RETURN_INT(0); + } + + option = Tcl_GetStringFromObj (objv[1], &i); + rc = weechat_config_option_reset (script_str2ptr (option), + run_cb); /* run_callback */ + + TCL_RETURN_INT(rc); +} + +/* + * weechat::config_option_set: set new value for option + */ + +static int +weechat_tcl_api_config_option_set (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int rc; + char *option, *new_value; + int i,run_cb; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_option_set"); + TCL_RETURN_INT(0); + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_option_set"); + TCL_RETURN_INT(0); + } + + if (Tcl_GetIntFromObj (interp, objv[3], &run_cb) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_option_set"); + TCL_RETURN_INT(0); + } + + option = Tcl_GetStringFromObj (objv[1], &i); + new_value = Tcl_GetStringFromObj (objv[2], &i); + rc = weechat_config_option_set (script_str2ptr (option), + new_value, + run_cb); /* run_callback */ + + TCL_RETURN_INT(rc); +} + +/* + * weechat::config_option_unset: unset an option + */ + +static int +weechat_tcl_api_config_option_unset (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int rc; + char *option; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_option_unset"); + TCL_RETURN_INT(0); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_option_unset"); + TCL_RETURN_INT(0); + } + + option = Tcl_GetStringFromObj (objv[1], &i); + rc = weechat_config_option_unset (script_str2ptr (option)); + + TCL_RETURN_INT(rc); +} + +/* + * weechat::config_option_rename: rename an option + */ + +static int +weechat_tcl_api_config_option_rename (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *option, *new_name; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_option_rename"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_option_rename"); + TCL_RETURN_ERROR; + } + + option = Tcl_GetStringFromObj (objv[1], &i); + new_name = Tcl_GetStringFromObj (objv[2], &i); + weechat_config_option_rename (script_str2ptr (option), + new_name); + + TCL_RETURN_OK; +} + +/* + * weechat::config_boolean: return boolean value of option + */ + +static int +weechat_tcl_api_config_boolean (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int result, i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_boolean"); + TCL_RETURN_INT(0); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_boolean"); + TCL_RETURN_INT(0); + } + + result = weechat_config_boolean (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* option */ + + TCL_RETURN_INT(result); +} + +/* + * weechat::config_integer: return integer value of option + */ + +static int +weechat_tcl_api_config_integer (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + int result, i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_integer"); + TCL_RETURN_INT(0); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_integer"); + TCL_RETURN_INT(0); + } + + result = weechat_config_integer (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* option */ + + TCL_RETURN_INT(result); +} + +/* + * weechat::config_string: return string value of option + */ + +static int +weechat_tcl_api_config_string (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_string"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_string"); + TCL_RETURN_EMPTY; + } + + result = weechat_config_string (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* option */ + + TCL_RETURN_STRING(result); +} + +/* + * weechat::config_color: return color value of option + */ + +static int +weechat_tcl_api_config_color (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int result, i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_color"); + TCL_RETURN_INT(0); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_color"); + TCL_RETURN_INT(0); + } + + result = weechat_config_color (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* option */ + + TCL_RETURN_INT(result); +} + +/* + * weechat::config_write_line: write a line in configuration file + */ + +static int +weechat_tcl_api_config_write_line (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *config_file, *option_name, *value; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_write_line"); + TCL_RETURN_ERROR; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_write_line"); + TCL_RETURN_ERROR; + } + + config_file = Tcl_GetStringFromObj (objv[1], &i); + option_name = Tcl_GetStringFromObj (objv[2], &i); + value = Tcl_GetStringFromObj (objv[3], &i); + weechat_config_write_line (script_str2ptr (config_file), option_name, + "%s", value); + + TCL_RETURN_OK; +} + +/* + * weechat::config_write: write configuration file + */ + +static int +weechat_tcl_api_config_write (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int rc; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_write"); + TCL_RETURN_INT(-1); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_write"); + TCL_RETURN_INT(-1); + } + + rc = weechat_config_write (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* config_file */ + + TCL_RETURN_INT(rc); +} + +/* + * weechat::config_read: read configuration file + */ + +static int +weechat_tcl_api_config_read (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int rc; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_read"); + TCL_RETURN_INT(-1); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_read"); + TCL_RETURN_INT(-1); + } + + rc = weechat_config_read (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* config_file */ + + TCL_RETURN_INT(rc); +} + +/* + * weechat::config_reload: reload configuration file + */ + +static int +weechat_tcl_api_config_reload (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int rc; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_reload"); + TCL_RETURN_INT(-1); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_reload"); + TCL_RETURN_INT(-1); + } + + rc = weechat_config_reload (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* config_file */ + + TCL_RETURN_INT(rc); +} + +/* + * weechat::config_free: free configuration file + */ + +static int +weechat_tcl_api_config_free (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_free"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_free"); + TCL_RETURN_ERROR; + } + + script_api_config_free (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* config_file */ + + TCL_RETURN_OK; +} + +/* + * weechat::config_get: get config option + */ + +static int +weechat_tcl_api_config_get (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_get"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_get"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_config_get (Tcl_GetStringFromObj (objv[1], &i))); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::config_get_plugin: get value of a plugin option + */ + +static int +weechat_tcl_api_config_get_plugin (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_get_plugin"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_get_plugin"); + TCL_RETURN_EMPTY; + } + + result = script_api_config_get_plugin (weechat_tcl_plugin, + tcl_current_script, + Tcl_GetStringFromObj (objv[1], &i)); + + TCL_RETURN_STRING(result); +} + +/* + * weechat::config_set_plugin: set value of a plugin option + */ + +static int +weechat_tcl_api_config_set_plugin (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *option, *value; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("config_set_plugin"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("config_set_plugin"); + TCL_RETURN_ERROR; + } + + option = Tcl_GetStringFromObj (objv[1], &i); + value = Tcl_GetStringFromObj (objv[2], &i); + if (script_api_config_set_plugin (weechat_tcl_plugin, + tcl_current_script, + option, + value)) + TCL_RETURN_OK; + + TCL_RETURN_ERROR; +} + +/* + * weechat::prefix: get a prefix, used for display + */ + +static int +weechat_tcl_api_prefix (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("prefix"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("prefix"); + TCL_RETURN_EMPTY; + } + + result = weechat_prefix (Tcl_GetStringFromObj (objv[1], &i)); /* prefix */ + + TCL_RETURN_STRING(result); +} + +/* + * weechat::color: get a color code, used for display + */ + +static int +weechat_tcl_api_color (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("color"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("color"); + TCL_RETURN_EMPTY; + } + + result = weechat_color (Tcl_GetStringFromObj (objv[1], &i)); /* color */ + + TCL_RETURN_STRING(result); +} + +/* + * weechat::print: print message in a buffer + */ + +static int +weechat_tcl_api_print (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *buffer, *message; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("print"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("print"); + TCL_RETURN_ERROR; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + message = Tcl_GetStringFromObj (objv[2], &i); + script_api_printf (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (buffer), + "%s", message); + + TCL_RETURN_OK; +} + +/* + * weechat::print_date_tags: print message in a buffer with optional date and + * tags + */ + +static int +weechat_tcl_api_print_date_tags (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *buffer, *tags, *message; + int i,tdate; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("print_date_tags"); + TCL_RETURN_ERROR; + } + + if (objc < 5) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("print_date_tags"); + TCL_RETURN_ERROR; + } + + if (Tcl_GetIntFromObj (interp, objv[2], &tdate) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("print_date_tags"); + TCL_RETURN_EMPTY; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + tags = Tcl_GetStringFromObj (objv[3], &i); + message = Tcl_GetStringFromObj (objv[4], &i); + script_api_printf_date_tags (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (buffer), + tdate, + tags, + "%s", message); + + TCL_RETURN_OK; +} + +/* + * weechat::print_y: print message in a buffer with free content + */ + +static int +weechat_tcl_api_print_y (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *buffer, *message; + int i,y; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("print_y"); + TCL_RETURN_ERROR; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("print_y"); + TCL_RETURN_ERROR; + } + + if (Tcl_GetIntFromObj (interp, objv[2], &y) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("print_y"); + TCL_RETURN_ERROR; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + message = Tcl_GetStringFromObj (objv[3], &i); + script_api_printf_y (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (buffer), + y, + "%s", message); + + TCL_RETURN_OK; +} + +/* + * weechat::log_print: print message in WeeChat log file + */ + +static int +weechat_tcl_api_log_print (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("log_print"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("log_print"); + TCL_RETURN_ERROR; + } + + script_api_log_printf (weechat_tcl_plugin, + tcl_current_script, + "%s", Tcl_GetStringFromObj (objv[1], &i)); /* message */ + + TCL_RETURN_OK; +} + +/* + * weechat_tcl_api_hook_command_cb: callback for command hooked + */ + +int +weechat_tcl_api_hook_command_cb (void *data, struct t_gui_buffer *buffer, + int argc, char **argv, char **argv_eol) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3], empty_arg[1] = { '\0' }; + int *rc, ret; + + /* make C compiler happy */ + (void) argv; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = script_ptr2str (buffer); + tcl_argv[1] = (argc > 1) ? argv_eol[1] : empty_arg; + tcl_argv[2] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (tcl_argv[0]) + free (tcl_argv[0]); + + return ret; +} + +/* + * weechat::hook_command: hook a command + */ + +static int +weechat_tcl_api_hook_command (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *command, *description, *args, *args_description; + char *completion, *function; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_command"); + TCL_RETURN_EMPTY; + } + + if (objc < 7) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_command"); + TCL_RETURN_EMPTY; + } + + command = Tcl_GetStringFromObj (objv[1], &i); + description = Tcl_GetStringFromObj (objv[2], &i); + args = Tcl_GetStringFromObj (objv[3], &i); + args_description = Tcl_GetStringFromObj (objv[4], &i); + completion = Tcl_GetStringFromObj (objv[5], &i); + function = Tcl_GetStringFromObj (objv[6], &i); + result = script_ptr2str (script_api_hook_command (weechat_tcl_plugin, + tcl_current_script, + command, + description, + args, + args_description, + completion, + &weechat_tcl_api_hook_command_cb, + function)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_hook_timer_cb: callback for timer hooked + */ + +int +weechat_tcl_api_hook_timer_cb (void *data) +{ + struct t_script_callback *script_callback; + char *tcl_argv[1]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + + return ret; +} + +/* + * weechat::hook_timer: hook a timer + */ + +static int +weechat_tcl_api_hook_timer (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i,interval,align_second,max_calls; + + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_timer"); + TCL_RETURN_EMPTY; + } + + if (objc < 5) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_timer"); + TCL_RETURN_EMPTY; + } + + if ((Tcl_GetIntFromObj (interp, objv[1], &interval) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[2], &align_second) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[3], &max_calls) != TCL_OK)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_timer"); + TCL_RETURN_EMPTY; + } + + + result = script_ptr2str (script_api_hook_timer (weechat_tcl_plugin, + tcl_current_script, + interval, /* interval */ + align_second, /* align_second */ + max_calls, /* max_calls */ + &weechat_tcl_api_hook_timer_cb, + Tcl_GetStringFromObj (objv[4], &i))); /* tcl function */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_hook_fd_cb: callback for fd hooked + */ + +int +weechat_tcl_api_hook_fd_cb (void *data) +{ + struct t_script_callback *script_callback; + char *tcl_argv[1]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + + return ret; +} + +/* + * weechat::hook_fd: hook a fd + */ + +static int +weechat_tcl_api_hook_fd (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i,fd,read,write,exception; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_fd"); + TCL_RETURN_EMPTY; + } + + if (objc < 6) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_fd"); + TCL_RETURN_EMPTY; + } + + if ((Tcl_GetIntFromObj (interp, objv[1], &fd) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[2], &read) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[3], &write) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[4], &exception) != TCL_OK)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_fd"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (script_api_hook_fd (weechat_tcl_plugin, + tcl_current_script, + fd, /* fd */ + read, /* read */ + write, /* write */ + exception, /* exception */ + &weechat_tcl_api_hook_fd_cb, + Tcl_GetStringFromObj (objv[5], &i))); /* tcl function */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_hook_connect_cb: callback for connect hooked + */ + +int +weechat_tcl_api_hook_connect_cb (void *data, int status, + const char *ip_address) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3], str_status[32]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + snprintf (str_status, sizeof (str_status), "%d", status); + + tcl_argv[0] = str_status; + tcl_argv[1] = (char *)ip_address; + tcl_argv[2] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + + return ret; +} + +/* + * weechat::hook_connect: hook a connection + */ + +static int +weechat_tcl_api_hook_connect (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *address, *local_hostname, *result; + int i, port, sock, ipv6; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_connect"); + TCL_RETURN_EMPTY; + } + + if (objc < 6) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_connect"); + TCL_RETURN_EMPTY; + } + + if ((Tcl_GetIntFromObj (interp, objv[2], &port) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[3], &sock) != TCL_OK) + || (Tcl_GetIntFromObj (interp, objv[4], &ipv6) != TCL_OK)) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_connect"); + TCL_RETURN_EMPTY; + } + + address = Tcl_GetStringFromObj (objv[1], &i); + local_hostname = Tcl_GetStringFromObj (objv[5], &i); + + result = script_ptr2str (script_api_hook_connect (weechat_tcl_plugin, + tcl_current_script, + address, + port, + sock, + ipv6, + NULL, /* gnutls session */ + local_hostname, + &weechat_tcl_api_hook_connect_cb, + Tcl_GetStringFromObj (objv[6], &i))); /* tcl function */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_hook_print_cb: callback for print hooked + */ + +int +weechat_tcl_api_hook_print_cb (void *data, struct t_gui_buffer *buffer, + time_t date, int tags_count, char **tags, + const char *prefix, const char *message) +{ + struct t_script_callback *script_callback; + char *tcl_argv[6]; + static char timebuffer[64]; + int *rc, ret; + + /* make C compiler happy */ + (void) tags_count; + + script_callback = (struct t_script_callback *)data; + + snprintf (timebuffer, sizeof (timebuffer) - 1, "%ld", (long int)date); + + tcl_argv[0] = script_ptr2str (buffer); + tcl_argv[1] = timebuffer; + tcl_argv[2] = weechat_string_build_with_exploded (tags, ","); + tcl_argv[3] = (char *)prefix; + tcl_argv[4] = (char *)message; + tcl_argv[5] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (tcl_argv[0]) + free (tcl_argv[0]); + if (tcl_argv[2]) + free (tcl_argv[2]); + + return ret; +} + +/* + * weechat::hook_print: hook a print + */ + +static int +weechat_tcl_api_hook_print (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *buffer, *tags, *message, *function; + int i,strip_colors; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_print"); + TCL_RETURN_EMPTY; + } + + if (objc < 6) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_print"); + TCL_RETURN_EMPTY; + } + + if (Tcl_GetIntFromObj (interp, objv[4], &strip_colors) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_print"); + TCL_RETURN_EMPTY; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + tags = Tcl_GetStringFromObj (objv[2], &i); + message = Tcl_GetStringFromObj (objv[3], &i); + function = Tcl_GetStringFromObj (objv[5], &i); + result = script_ptr2str (script_api_hook_print (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (buffer), + tags, + message, + strip_colors, /* strip_colors */ + &weechat_tcl_api_hook_print_cb, + function)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_hook_signal_cb: callback for signal hooked + */ + +int +weechat_tcl_api_hook_signal_cb (void *data, const char *signal, const char *type_data, + void *signal_data) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3]; + static char value_str[64], empty_value[1] = { '\0' }; + int *rc, ret, free_needed; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = (char *)signal; + free_needed = 0; + if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0) + { + tcl_argv[1] = (signal_data) ? (char *)signal_data : empty_value; + } + else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_INT) == 0) + { + snprintf (value_str, sizeof (value_str) - 1, + "%d", *((int *)signal_data)); + tcl_argv[1] = value_str; + } + else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0) + { + tcl_argv[1] = script_ptr2str (signal_data); + free_needed = 1; + } + else + tcl_argv[1] = NULL; + tcl_argv[2] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (free_needed && tcl_argv[1]) + free (tcl_argv[1]); + + return ret; +} + +/* + * weechat::hook_signal: hook a signal + */ + +static int +weechat_tcl_api_hook_signal (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *signal, *function; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_signal"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_signal"); + TCL_RETURN_EMPTY; + } + + signal = Tcl_GetStringFromObj (objv[1], &i); + function = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (script_api_hook_signal (weechat_tcl_plugin, + tcl_current_script, + signal, + &weechat_tcl_api_hook_signal_cb, + function)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::hook_signal_send: send a signal + */ + +static int +weechat_tcl_api_hook_signal_send (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *signal, *type_data; + int number; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_signal_send"); + TCL_RETURN_ERROR; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_signal_send"); + TCL_RETURN_ERROR; + } + + signal = Tcl_GetStringFromObj (objv[1], &i); + type_data = Tcl_GetStringFromObj (objv[2], &i); + if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_STRING) == 0) + { + weechat_hook_signal_send (signal, + type_data, + Tcl_GetStringFromObj (objv[3], &i)); /* signal_data */ + TCL_RETURN_OK; + } + else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_INT) == 0) + { + if (Tcl_GetIntFromObj (interp, objv[3], &number) != TCL_OK) + { + TCL_RETURN_ERROR; + } + weechat_hook_signal_send (signal, + type_data, + &number); /* signal_data */ + TCL_RETURN_OK; + } + else if (strcmp (type_data, WEECHAT_HOOK_SIGNAL_POINTER) == 0) + { + weechat_hook_signal_send (signal, + type_data, + Tcl_GetStringFromObj (objv[3], &i)); /* signal_data */ + TCL_RETURN_OK; + } + + TCL_RETURN_ERROR; +} + +/* + * weechat_tcl_api_hook_config_cb: callback for config option hooked + */ + +int +weechat_tcl_api_hook_config_cb (void *data, const char *option, const char *value) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = (char *)option; + tcl_argv[1] = (char *)value; + tcl_argv[2] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + + return ret; +} + +/* + * weechat::hook_config: hook a config option + */ + +static int +weechat_tcl_api_hook_config (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *option, *function; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_config"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_config"); + TCL_RETURN_EMPTY; + } + + option = Tcl_GetStringFromObj (objv[1], &i); + function = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (script_api_hook_config (weechat_tcl_plugin, + tcl_current_script, + option, + &weechat_tcl_api_hook_config_cb, + function)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_hook_completion_cb: callback for completion hooked + */ + +int +weechat_tcl_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; + char *tcl_argv[4]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = (char *)completion_item; + tcl_argv[1] = script_ptr2str (buffer); + tcl_argv[2] = script_ptr2str (completion); + tcl_argv[3] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (tcl_argv[1]) + free (tcl_argv[1]); + if (tcl_argv[2]) + free (tcl_argv[2]); + + return ret; +} + +/* + * weechat::hook_completion: hook a completion + */ + +static int +weechat_tcl_api_hook_completion (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *completion, *function; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_completion"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_completion"); + TCL_RETURN_EMPTY; + } + + completion = Tcl_GetStringFromObj (objv[1], &i); + function = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (script_api_hook_completion (weechat_tcl_plugin, + tcl_current_script, + completion, + &weechat_tcl_api_hook_completion_cb, + function)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::hook_completion_list_add: add a word to list for a completion + */ + +static int +weechat_tcl_api_hook_completion_list_add (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *completion, *word, *where; + int i,nick_completion; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_completion_list_add"); + TCL_RETURN_ERROR; + } + + if (objc < 5) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_completion_list_add"); + TCL_RETURN_ERROR; + } + + if (Tcl_GetIntFromObj (interp, objv[3], &nick_completion) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_completion_list_add"); + TCL_RETURN_ERROR; + } + + completion = Tcl_GetStringFromObj (objv[1], &i); + word = Tcl_GetStringFromObj (objv[2], &i); + where = Tcl_GetStringFromObj (objv[4], &i); + + weechat_hook_completion_list_add (script_str2ptr (completion), + word, + nick_completion, /* nick_completion */ + where); + + TCL_RETURN_OK; +} + +/* + * weechat_tcl_api_hook_modifier_cb: callback for modifier hooked + */ + +char * +weechat_tcl_api_hook_modifier_cb (void *data, const char *modifier, + const char *modifier_data, const char *string) +{ + struct t_script_callback *script_callback; + char *tcl_argv[4]; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = (char *)modifier; + tcl_argv[1] = (char *)modifier_data; + tcl_argv[2] = (char *)string; + tcl_argv[3] = NULL; + + return (char *)weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_STRING, + script_callback->function, + tcl_argv); +} + +/* + * weechat::hook_modifier: hook a modifier + */ + +static int +weechat_tcl_api_hook_modifier (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *modifier, *tcl_fn; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_modifier"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_modifier"); + TCL_RETURN_EMPTY; + } + + modifier = Tcl_GetStringFromObj (objv[1], &i); + tcl_fn = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (script_api_hook_modifier (weechat_tcl_plugin, + tcl_current_script, + modifier, + &weechat_tcl_api_hook_modifier_cb, + tcl_fn)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::hook_modifier_exec: execute a modifier hook + */ + +static int +weechat_tcl_api_hook_modifier_exec (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *modifier, *modifier_data, *string; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_modifier_exec"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_modifier_exec"); + TCL_RETURN_EMPTY; + } + + modifier = Tcl_GetStringFromObj (objv[1], &i); + modifier_data = Tcl_GetStringFromObj (objv[2], &i); + string = Tcl_GetStringFromObj (objv[3], &i); + result = weechat_hook_modifier_exec (modifier, modifier_data, string); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_hook_info_cb: callback for info hooked + */ + +char * +weechat_tcl_api_hook_info_cb (void *data, const char *info_name, + const char *arguments) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3]; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = (char *)info_name; + tcl_argv[1] = (char *)arguments; + tcl_argv[2] = NULL; + + return (char *)weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_STRING, + script_callback->function, + tcl_argv); +} + +/* + * weechat::hook_info: hook an info + */ + +static int +weechat_tcl_api_hook_info (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *info_name, *description, *tcl_fn; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_info"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_info"); + TCL_RETURN_EMPTY; + } + + info_name = Tcl_GetStringFromObj (objv[1], &i); + description = Tcl_GetStringFromObj (objv[2], &i); + tcl_fn = Tcl_GetStringFromObj (objv[3], &i); + result = script_ptr2str (script_api_hook_info (weechat_tcl_plugin, + tcl_current_script, + info_name, + description, + &weechat_tcl_api_hook_info_cb, + tcl_fn)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_hook_infolist_cb: callback for infolist hooked + */ + +struct t_infolist * +weechat_tcl_api_hook_infolist_cb (void *data, const char *infolist_name, + void *pointer, const char *arguments) +{ + struct t_script_callback *script_callback; + char *tcl_argv[4]; + struct t_infolist *result; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = (char *)infolist_name; + tcl_argv[1] = script_ptr2str (pointer); + tcl_argv[2] = (char *)arguments; + tcl_argv[3] = NULL; + + result = (struct t_infolist *)weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_STRING, + script_callback->function, + tcl_argv); + + if (tcl_argv[1]) + free (tcl_argv[1]); + + return result; +} + +/* + * weechat::hook_infolist: hook an infolist + */ + +static int +weechat_tcl_api_hook_infolist (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *infolist_name, *description, *tcl_fn; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("hook_infolist"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("hook_infolist"); + TCL_RETURN_EMPTY; + } + + infolist_name = Tcl_GetStringFromObj (objv[1], &i); + description = Tcl_GetStringFromObj (objv[2], &i); + tcl_fn = Tcl_GetStringFromObj (objv[3], &i); + result = script_ptr2str (script_api_hook_infolist (weechat_tcl_plugin, + tcl_current_script, + infolist_name, + description, + &weechat_tcl_api_hook_infolist_cb, + tcl_fn)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::unhook: unhook something + */ + +static int +weechat_tcl_api_unhook (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("unhook"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("unhook"); + TCL_RETURN_ERROR; + } + + script_api_unhook (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* hook */ + + TCL_RETURN_OK; +} + +/* + * weechat::unhook_all: unhook all for script + */ + +static int +weechat_tcl_api_unhook_all (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + + /* make C compiler happy */ + (void) clientData; + (void) objc; + (void) objv; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("unhook_all"); + TCL_RETURN_ERROR; + } + + script_api_unhook_all (tcl_current_script); + + TCL_RETURN_OK; +} + +/* + * weechat_tcl_api_buffer_input_data_cb: callback for input data in a buffer + */ + +int +weechat_tcl_api_buffer_input_data_cb (void *data, struct t_gui_buffer *buffer, + const char *input_data) +{ + struct t_script_callback *script_callback; + char *tcl_argv[3]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = script_ptr2str (buffer); + tcl_argv[1] = (char *)input_data; + tcl_argv[2] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (tcl_argv[0]) + free (tcl_argv[0]); + + return ret; +} + +/* + * weechat_tcl_api_buffer_close_cb: callback for buffer closed + */ + +int +weechat_tcl_api_buffer_close_cb (void *data, struct t_gui_buffer *buffer) +{ + struct t_script_callback *script_callback; + char *tcl_argv[2]; + int *rc, ret; + + script_callback = (struct t_script_callback *)data; + + tcl_argv[0] = script_ptr2str (buffer); + tcl_argv[1] = NULL; + + rc = (int *) weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_INT, + script_callback->function, + tcl_argv); + if (!rc) + ret = WEECHAT_RC_ERROR; + else + { + ret = *rc; + free (rc); + } + if (tcl_argv[0]) + free (tcl_argv[0]); + + return ret; +} + +/* + * weechat::buffer_new: create a new buffer + */ + +static int +weechat_tcl_api_buffer_new (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *name, *function_input, *function_close; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_new"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_new"); + TCL_RETURN_EMPTY; + } + + name = Tcl_GetStringFromObj (objv[1], &i); + function_input = Tcl_GetStringFromObj (objv[2], &i); + function_close = Tcl_GetStringFromObj (objv[3], &i); + result = script_ptr2str (script_api_buffer_new (weechat_tcl_plugin, + tcl_current_script, + name, + &weechat_tcl_api_buffer_input_data_cb, + function_input, + &weechat_tcl_api_buffer_close_cb, + function_close)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::buffer_search: search a buffer + */ + +static int +weechat_tcl_api_buffer_search (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *plugin, *name; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_search"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_search"); + TCL_RETURN_EMPTY; + } + + plugin = Tcl_GetStringFromObj (objv[1], &i); + name = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (weechat_buffer_search (plugin, name)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::buffer_clear: clear a buffer + */ + +static int +weechat_tcl_api_buffer_clear (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_clear"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_clear"); + TCL_RETURN_ERROR; + } + + weechat_buffer_clear (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* buffer */ + + TCL_RETURN_OK; +} + +/* + * weechat::buffer_close: close a buffer + */ + +static int +weechat_tcl_api_buffer_close (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i,switch_to_another; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_close"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_close"); + TCL_RETURN_ERROR; + } + + if (Tcl_GetIntFromObj (interp, objv[2], &switch_to_another) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_close"); + TCL_RETURN_ERROR; + } + + script_api_buffer_close (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (Tcl_GetStringFromObj (objv[1], &i)), /* buffer */ + switch_to_another); /* switch_to_another */ + + TCL_RETURN_OK; +} + +/* + * weechat::buffer_get_integer: get a buffer property as integer + */ + +static int +weechat_tcl_api_buffer_get_integer (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *buffer, *property; + int result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_get_integer"); + TCL_RETURN_INT(-1); + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_get_integer"); + TCL_RETURN_INT(-1); + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + property = Tcl_GetStringFromObj (objv[2], &i); + + result = weechat_buffer_get_integer (script_str2ptr (buffer), property); + + TCL_RETURN_INT(result); +} + +/* + * weechat::buffer_get_string: get a buffer property as string + */ + +static int +weechat_tcl_api_buffer_get_string (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *buffer, *property; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_get_string"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_get_string"); + TCL_RETURN_EMPTY; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + property = Tcl_GetStringFromObj (objv[2], &i); + + result = weechat_buffer_get_string (script_str2ptr (buffer), property); + + TCL_RETURN_STRING(result); +} + +/* + * weechat::buffer_get_pointer: get a buffer property as pointer + */ + +static int +weechat_tcl_api_buffer_get_pointer (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *buffer, *property; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_get_pointer"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_get_pointer"); + TCL_RETURN_EMPTY; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + property = Tcl_GetStringFromObj (objv[2], &i); + + result = script_ptr2str (weechat_buffer_get_pointer (script_str2ptr (buffer), + property)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::buffer_set: set a buffer property + */ + +static int +weechat_tcl_api_buffer_set (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *buffer, *property, *value; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("buffer_set"); + TCL_RETURN_ERROR; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("buffer_set"); + TCL_RETURN_ERROR; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + property = Tcl_GetStringFromObj (objv[2], &i); + value = Tcl_GetStringFromObj (objv[3], &i); + + weechat_buffer_set (script_str2ptr (buffer), property, value); + + TCL_RETURN_OK; +} + +/* + * weechat::nicklist_add_group: add a group in nicklist + */ + +static int +weechat_tcl_api_nicklist_add_group (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *buffer, *parent_group, *name, *color; + int i,visible; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_add_group"); + TCL_RETURN_EMPTY; + } + + if (objc < 6) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_add_group"); + TCL_RETURN_EMPTY; + } + + if (Tcl_GetIntFromObj (interp, objv[5], &visible) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_add_group"); + TCL_RETURN_EMPTY; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + parent_group = Tcl_GetStringFromObj (objv[2], &i); + name = Tcl_GetStringFromObj (objv[3], &i); + color = Tcl_GetStringFromObj (objv[4], &i); + result = script_ptr2str (weechat_nicklist_add_group (script_str2ptr (buffer), + script_str2ptr (parent_group), + name, + color, + visible)); /* visible */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::nicklist_search_group: search a group in nicklist + */ + +static int +weechat_tcl_api_nicklist_search_group (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result, *buffer, *from_group, *name; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_search_group"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_search_group"); + TCL_RETURN_EMPTY; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + from_group = Tcl_GetStringFromObj (objv[2], &i); + name = Tcl_GetStringFromObj (objv[3], &i); + result = script_ptr2str (weechat_nicklist_search_group (script_str2ptr (buffer), + script_str2ptr (from_group), + name)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::nicklist_add_nick: add a nick in nicklist + */ + +static int +weechat_tcl_api_nicklist_add_nick (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *prefix, char_prefix, *result, *buffer, *group, *name, *color; + char *prefix_color; + int i,visible; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_add_nick"); + TCL_RETURN_EMPTY; + } + + if (objc < 8) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_add_nick"); + TCL_RETURN_EMPTY; + } + + prefix = Tcl_GetStringFromObj (objv[5], &i); + if (prefix && prefix[0]) + char_prefix = prefix[0]; + else + char_prefix = ' '; + + if (Tcl_GetIntFromObj (interp, objv[7], &visible) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_add_nick"); + TCL_RETURN_EMPTY; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + group = Tcl_GetStringFromObj (objv[2], &i); + name = Tcl_GetStringFromObj (objv[3], &i); + color = Tcl_GetStringFromObj (objv[4], &i); + prefix_color = Tcl_GetStringFromObj (objv[6], &i); + result = script_ptr2str (weechat_nicklist_add_nick (script_str2ptr (buffer), + script_str2ptr (group), + name, + color, + char_prefix, + prefix_color, + visible)); /* visible */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::nicklist_search_nick: search a nick in nicklist + */ + +static int +weechat_tcl_api_nicklist_search_nick (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *buffer, *from_group, *name; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_search_nick"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_search_nick"); + TCL_RETURN_EMPTY; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + from_group = Tcl_GetStringFromObj (objv[2], &i); + name = Tcl_GetStringFromObj (objv[3], &i); + result = script_ptr2str (weechat_nicklist_search_nick (script_str2ptr (buffer), + script_str2ptr (from_group), + name)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::nicklist_remove_group: remove a group from nicklist + */ + +static int +weechat_tcl_api_nicklist_remove_group (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *buffer, *group; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_group"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_group"); + TCL_RETURN_ERROR; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + group = Tcl_GetStringFromObj (objv[2], &i); + weechat_nicklist_remove_group (script_str2ptr (buffer), + script_str2ptr (group)); + + TCL_RETURN_OK; +} + +/* + * weechat::nicklist_remove_nick: remove a nick from nicklist + */ + +static int +weechat_tcl_api_nicklist_remove_nick (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *buffer, *nick; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_nick"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_nick"); + TCL_RETURN_ERROR; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + nick = Tcl_GetStringFromObj (objv[2], &i); + weechat_nicklist_remove_nick (script_str2ptr (buffer), + script_str2ptr (nick)); + + TCL_RETURN_OK; +} + +/* + * weechat::nicklist_remove_all: remove all groups/nicks from nicklist + */ + +static int +weechat_tcl_api_nicklist_remove_all (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("nicklist_remove_all"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("nicklist_remove_all"); + TCL_RETURN_ERROR; + } + + weechat_nicklist_remove_all (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* buffer */ + + TCL_RETURN_OK; +} + +/* + * weechat::bar_item_search: search a bar item + */ + +static int +weechat_tcl_api_bar_item_search (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_item_search"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_item_search"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_bar_item_search (Tcl_GetStringFromObj (objv[1], &i))); /* name */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat_tcl_api_bar_item_build_cb: callback for building bar item + */ + +char * +weechat_tcl_api_bar_item_build_cb (void *data, struct t_gui_bar_item *item, + struct t_gui_window *window, + int max_width, int max_height) +{ + struct t_script_callback *script_callback; + char *tcl_argv[5], *ret; + static char str_width[32], str_height[32]; + + script_callback = (struct t_script_callback *)data; + + snprintf (str_width, sizeof (str_width), "%d", max_width); + snprintf (str_height, sizeof (str_height), "%d", max_height); + + tcl_argv[0] = script_ptr2str (item); + tcl_argv[1] = script_ptr2str (window); + tcl_argv[2] = str_width; + tcl_argv[3] = str_height; + tcl_argv[4] = NULL; + + ret = (char *)weechat_tcl_exec (script_callback->script, + WEECHAT_SCRIPT_EXEC_STRING, + script_callback->function, + tcl_argv); + + if (tcl_argv[0]) + free (tcl_argv[0]); + if (tcl_argv[1]) + free (tcl_argv[1]); + + return ret; +} + +/* + * weechat::bar_item_new: add a new bar item + */ + +static int +weechat_tcl_api_bar_item_new (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *name, *function_build; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_item_new"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_item_new"); + TCL_RETURN_EMPTY; + } + + name = Tcl_GetStringFromObj (objv[1], &i); + function_build = Tcl_GetStringFromObj (objv[2], &i); + result = script_ptr2str (script_api_bar_item_new (weechat_tcl_plugin, + tcl_current_script, + name, + &weechat_tcl_api_bar_item_build_cb, + function_build)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::bar_item_update: update a bar item on screen + */ + +static int +weechat_tcl_api_bar_item_update (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_item_update"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_item_update"); + TCL_RETURN_ERROR; + } + + weechat_bar_item_update (Tcl_GetStringFromObj (objv[1], &i)); /* name */ + + TCL_RETURN_OK; +} + +/* + * weechat::bar_item_remove: remove a bar item + */ + +static int +weechat_tcl_api_bar_item_remove (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_item_remove"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_item_remove"); + TCL_RETURN_ERROR; + } + + script_api_bar_item_remove (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* item */ + + TCL_RETURN_OK; +} + +/* + * weechat::bar_search: search a bar + */ + +static int +weechat_tcl_api_bar_search (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_search"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_search"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_bar_search (Tcl_GetStringFromObj (objv[1], &i))); /* name */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::bar_new: add a new bar + */ + +static int +weechat_tcl_api_bar_new (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *name, *hidden, *priority, *type, *conditions, *position; + char *filling_top_bottom, *filling_left_right, *size, *size_max, *color_fg; + char *color_delim, *color_bg, *separator, *bar_items; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_new"); + TCL_RETURN_EMPTY; + } + + if (objc < 16) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_new"); + TCL_RETURN_EMPTY; + } + + name = Tcl_GetStringFromObj (objv[1], &i); + hidden = Tcl_GetStringFromObj (objv[2], &i); + priority = Tcl_GetStringFromObj (objv[3], &i); + type = Tcl_GetStringFromObj (objv[4], &i); + conditions = Tcl_GetStringFromObj (objv[5], &i); + position = Tcl_GetStringFromObj (objv[6], &i); + filling_top_bottom = Tcl_GetStringFromObj (objv[7], &i); + filling_left_right = Tcl_GetStringFromObj (objv[8], &i); + size = Tcl_GetStringFromObj (objv[9], &i); + size_max = Tcl_GetStringFromObj (objv[10], &i); + color_fg = Tcl_GetStringFromObj (objv[11], &i); + color_delim = Tcl_GetStringFromObj (objv[12], &i); + color_bg = Tcl_GetStringFromObj (objv[13], &i); + separator = Tcl_GetStringFromObj (objv[14], &i); + bar_items = Tcl_GetStringFromObj (objv[15], &i); + result = script_ptr2str (weechat_bar_new (name, + hidden, + priority, + type, + conditions, + position, + filling_top_bottom, + filling_left_right, + size, + size_max, + color_fg, + color_delim, + color_bg, + separator, + bar_items)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::bar_set: set a bar property + */ + +static int +weechat_tcl_api_bar_set (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *bar, *property, *value; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_set"); + TCL_RETURN_ERROR; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_set"); + TCL_RETURN_ERROR; + } + + bar = Tcl_GetStringFromObj (objv[1], &i); + property = Tcl_GetStringFromObj (objv[2], &i); + value = Tcl_GetStringFromObj (objv[3], &i); + + weechat_bar_set (script_str2ptr (bar), property, value); + + TCL_RETURN_OK; +} + +/* + * weechat::bar_update: update a bar on screen + */ + +static int +weechat_tcl_api_bar_update (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_update"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_update"); + TCL_RETURN_ERROR; + } + + weechat_bar_update (Tcl_GetStringFromObj (objv[1], &i)); /* name */ + + TCL_RETURN_OK; +} + +/* + * weechat::bar_remove: remove a bar + */ + +static int +weechat_tcl_api_bar_remove (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("bar_remove"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_remove"); + TCL_RETURN_ERROR; + } + + weechat_bar_remove (script_str2ptr(Tcl_GetStringFromObj (objv[1], &i))); /* bar */ + + TCL_RETURN_OK; +} + +/* + * weechat::command: execute a command on a buffer + */ + +static int +weechat_tcl_api_command (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *buffer, *command; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("command"); + TCL_RETURN_ERROR; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("command"); + TCL_RETURN_ERROR; + } + + buffer = Tcl_GetStringFromObj (objv[1], &i); + command = Tcl_GetStringFromObj (objv[2], &i); + script_api_command (weechat_tcl_plugin, + tcl_current_script, + script_str2ptr (buffer), + command); + + TCL_RETURN_OK; +} + +/* + * weechat::info_get: get info about WeeChat + */ + +static int +weechat_tcl_api_info_get (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("info_get"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("info_get"); + TCL_RETURN_EMPTY; + } + + result = weechat_info_get (Tcl_GetStringFromObj (objv[1], &i), + Tcl_GetStringFromObj (objv[2], &i)); + + TCL_RETURN_STRING(result); +} + +/* + * weechat::infolist_new: create a new infolist + */ + +static int +weechat_tcl_api_infolist_new (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj* objp; + char *result; + + /* make C compiler happy */ + (void) clientData; + (void) objc; + (void) objv; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_new"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_infolist_new ()); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::infolist_new_var_integer: create new integer variable in infolist + */ + +static int +weechat_tcl_api_infolist_new_var_integer (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i, value; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_new_var_integer"); + TCL_RETURN_INT(0); + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_new_var_integer"); + TCL_RETURN_INT(0); + } + + if (Tcl_GetIntFromObj (interp, objv[3], &value) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolits_new_var_integer"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_infolist_new_var_integer (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i)), /* infolist */ + Tcl_GetStringFromObj (objv[2], &i), /* name */ + value)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::infolist_new_var_string: create new string variable in infolist + */ + +static int +weechat_tcl_api_infolist_new_var_string (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_new_var_string"); + TCL_RETURN_INT(0); + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_new_var_string"); + TCL_RETURN_INT(0); + } + + result = script_ptr2str (weechat_infolist_new_var_string (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i)), /* infolist */ + Tcl_GetStringFromObj (objv[2], &i), /* name */ + Tcl_GetStringFromObj (objv[3], &i))); /* value */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::infolist_new_var_pointer: create new pointer variable in infolist + */ + +static int +weechat_tcl_api_infolist_new_var_pointer (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_new_var_pointer"); + TCL_RETURN_INT(0); + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_new_var_pointer"); + TCL_RETURN_INT(0); + } + + result = script_ptr2str (weechat_infolist_new_var_string (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i)), /* infolist */ + Tcl_GetStringFromObj (objv[2], &i), /* name */ + script_str2ptr (Tcl_GetStringFromObj (objv[3], &i)))); /* value */ + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::infolist_new_var_time: create new time variable in infolist + */ + +static int +weechat_tcl_api_infolist_new_var_time (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i, value; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_new_var_time"); + TCL_RETURN_INT(0); + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_new_var_time"); + TCL_RETURN_INT(0); + } + + if (Tcl_GetIntFromObj (interp, objv[3], &value) != TCL_OK) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolits_new_var_time"); + TCL_RETURN_EMPTY; + } + + result = script_ptr2str (weechat_infolist_new_var_time (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i)), /* infolist */ + Tcl_GetStringFromObj (objv[2], &i), /* name */ + value)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::infolist_get: get list with infos + */ + +static int +weechat_tcl_api_infolist_get (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result, *name, *pointer, *arguments; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_get"); + TCL_RETURN_EMPTY; + } + + if (objc < 4) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_get"); + TCL_RETURN_EMPTY; + } + + name = Tcl_GetStringFromObj (objv[1], &i); + pointer = Tcl_GetStringFromObj (objv[2], &i); + arguments = Tcl_GetStringFromObj (objv[3], &i); + result = script_ptr2str (weechat_infolist_get (name, + script_str2ptr (pointer), + arguments)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::infolist_next: move item pointer to next item in infolist + */ + +static int +weechat_tcl_api_infolist_next (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int result, i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_next"); + TCL_RETURN_INT(0); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_next"); + TCL_RETURN_INT(0); + } + + result = weechat_infolist_next (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* infolist */ + + TCL_RETURN_INT(result); +} + +/* + * weechat::infolist_prev: move item pointer to previous item in infolist + */ + +static int +weechat_tcl_api_infolist_prev (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int result, i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_prev"); + TCL_RETURN_INT(0); + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_prev"); + TCL_RETURN_INT(0); + } + + result = weechat_infolist_prev (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* infolist */ + + TCL_RETURN_INT(result); +} + +/* + * weechat::infolist_fields: get list of fields for current item of infolist + */ + +static int +weechat_tcl_api_infolist_fields (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_fields"); + TCL_RETURN_EMPTY; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_fields"); + TCL_RETURN_EMPTY; + } + + result = weechat_infolist_fields (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* infolist */ + + TCL_RETURN_STRING(result); +} + +/* + * weechat::infolist_integer: get integer value of a variable in infolist + */ + +static int +weechat_tcl_api_infolist_integer (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *infolist, *variable; + int result, i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_integer"); + TCL_RETURN_INT(0); + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_integer"); + TCL_RETURN_INT(0); + } + + infolist = Tcl_GetStringFromObj (objv[1], &i); + variable = Tcl_GetStringFromObj (objv[2], &i); + + result = weechat_infolist_integer (script_str2ptr (infolist), variable); + + TCL_RETURN_INT(result); +} + +/* + * weechat::infolist_string: get string value of a variable in infolist + */ + +static int +weechat_tcl_api_infolist_string (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *infolist, *variable, *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_string"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_string"); + TCL_RETURN_EMPTY; + } + + infolist = Tcl_GetStringFromObj (objv[1], &i); + variable = Tcl_GetStringFromObj (objv[2], &i); + + result = weechat_infolist_string (script_str2ptr (infolist), variable); + + TCL_RETURN_STRING(result); +} + +/* + * weechat::infolist_pointer: get pointer value of a variable in infolist + */ + +static int +weechat_tcl_api_infolist_pointer (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + char *infolist, *variable, *result; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_pointer"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_pointer"); + TCL_RETURN_EMPTY; + } + + infolist = Tcl_GetStringFromObj (objv[1], &i); + variable = Tcl_GetStringFromObj (objv[2], &i); + + result = script_ptr2str (weechat_infolist_pointer (script_str2ptr (infolist), variable)); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::infolist_time: get time value of a variable in infolist + */ + +static int +weechat_tcl_api_infolist_time (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + time_t time; + char timebuffer[64], *result, *infolist, *variable; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_time"); + TCL_RETURN_EMPTY; + } + + if (objc < 3) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_time"); + TCL_RETURN_EMPTY; + } + + infolist = Tcl_GetStringFromObj (objv[1], &i); + variable = Tcl_GetStringFromObj (objv[2], &i); + time = weechat_infolist_time (script_str2ptr (infolist), variable); + strftime (timebuffer, sizeof (timebuffer), "%F %T", localtime (&time)); + + result = strdup (timebuffer); + + TCL_RETURN_STRING_FREE(result); +} + +/* + * weechat::infolist_free: free infolist + */ + +static int +weechat_tcl_api_infolist_free (ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]) +{ + Tcl_Obj *objp; + int i; + + /* make C compiler happy */ + (void) clientData; + + if (!tcl_current_script) + { + WEECHAT_SCRIPT_MSG_NOT_INITIALIZED("infolist_free"); + TCL_RETURN_ERROR; + } + + if (objc < 2) + { + WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("infolist_free"); + TCL_RETURN_ERROR; + } + + weechat_infolist_free (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* infolist */ + + TCL_RETURN_OK; +} + + + +/* + * weechat_tcl_api_init: initialize subroutines + */ + +void weechat_tcl_api_init (Tcl_Interp *interp) { + int i; + Tcl_Obj *objp; + + /* standard initializer */ + Tcl_Init (interp); + + /* create weechat namespace */ + Tcl_CreateNamespace (interp, "weechat",(ClientData)0,NULL); + + /* interface constants */ + /* set variables, TODO: make them unmodifiable (thru Tcl_TraceVar) ? */ + /* NOTE: it is not good for performance to convert "defines" to Tcl_Obj */ + objp = Tcl_NewIntObj (WEECHAT_RC_OK); + Tcl_IncrRefCount (objp); + + Tcl_SetVar (interp, "weechat::WEECHAT_RC_OK", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_RC_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_RC_ERROR", Tcl_GetStringFromObj (objp, &i),0); + + Tcl_SetIntObj (objp,WEECHAT_CONFIG_READ_OK); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_READ_OK", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_READ_MEMORY_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_READ_MEMORY_ERROR", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_READ_FILE_NOT_FOUND); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_READ_FILE_NOT_FOUND", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_WRITE_OK); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_WRITE_OK", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_WRITE_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_WRITE_ERROR", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_WRITE_MEMORY_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_WRITE_MEMORY_ERROR", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_OPTION_SET_OK_CHANGED); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_OPTION_SET_OK_CHANGED", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_OPTION_SET_OK_SAME_VALUE); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_OPTION_SET_OK_SAME_VALUE", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_OPTION_SET_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_OPTION_SET_ERROR", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_OPTION_SET_OPTION_NOT_FOUND); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_OPTION_SET_OPTION_NOT_FOUND", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_OPTION_UNSET_OK_NO_RESET); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_OPTION_UNSET_OK_NO_RESET", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_OPTION_UNSET_OK_RESET); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_OPTION_UNSET_OK_RESET", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_OPTION_UNSET_OK_REMOVED); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_OPTION_UNSET_OK_REMOVED", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_CONFIG_OPTION_UNSET_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_CONFIG_OPTION_UNSET_ERROR", Tcl_GetStringFromObj (objp, &i),0); + + Tcl_SetStringObj (objp,WEECHAT_LIST_POS_SORT,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_LIST_POS_SORT", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetStringObj (objp,WEECHAT_LIST_POS_BEGINNING,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_LIST_POS_BEGINNING", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetStringObj (objp,WEECHAT_LIST_POS_END,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_LIST_POS_END", Tcl_GetStringFromObj (objp, &i),0); + + Tcl_SetStringObj (objp,WEECHAT_HOTLIST_LOW,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_HOTLIST_LOW", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetStringObj (objp,WEECHAT_HOTLIST_MESSAGE,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_HOTLIST_MESSAGE", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetStringObj (objp,WEECHAT_HOTLIST_PRIVATE,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_HOTLIST_PRIVATE", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetStringObj (objp,WEECHAT_HOTLIST_HIGHLIGHT,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_HOTLIST_HIGHLIGHT", Tcl_GetStringFromObj (objp, &i),0); + + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_OK); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_OK", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_ADDRESS_NOT_FOUND); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_ADDRESS_NOT_FOUND", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_IP_ADDRESS_NOT_FOUND); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_IP_ADDRESS_NOT_FOUND", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_CONNECTION_REFUSED); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_CONNECTION_REFUSED", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_PROXY_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_PROXY_ERROR", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_LOCAL_HOSTNAME_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_LOCAL_HOSTNAME_ERROR", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_GNUTLS_INIT_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_GNUTLS_INIT_ERROR", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_GNUTLS_HANDSHAKE_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_GNUTLS_HANDSHAKE_ERROR", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetIntObj (objp,WEECHAT_HOOK_CONNECT_MEMORY_ERROR); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_CONNECT_MEMORY_ERROR", Tcl_GetStringFromObj (objp, &i),0); + + Tcl_SetStringObj (objp,WEECHAT_HOOK_SIGNAL_STRING,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_SIGNAL_STRING", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetStringObj (objp,WEECHAT_HOOK_SIGNAL_INT,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_SIGNAL_INT", Tcl_GetStringFromObj (objp, &i),0); + Tcl_SetStringObj (objp,WEECHAT_HOOK_SIGNAL_POINTER,-1); + Tcl_SetVar (interp, "weechat::WEECHAT_HOOK_SIGNAL_POINTER", Tcl_GetStringFromObj (objp, &i),0); + + Tcl_DecrRefCount (objp); + + /* interface functions */ + Tcl_CreateObjCommand (interp,"weechat::register", + weechat_tcl_api_register, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::charset_set", + weechat_tcl_api_charset_set, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::iconv_to_internal", + weechat_tcl_api_iconv_to_internal, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::iconv_from_internal", + weechat_tcl_api_iconv_from_internal, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::gettext", + weechat_tcl_api_gettext, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::ngettext", + weechat_tcl_api_ngettext, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::mkdir_home", + weechat_tcl_api_mkdir_home, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::mkdir", + weechat_tcl_api_mkdir, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_new", + weechat_tcl_api_list_new, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_add", + weechat_tcl_api_list_add, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_search", + weechat_tcl_api_list_search, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_casesearch", + weechat_tcl_api_list_casesearch, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_get", + weechat_tcl_api_list_get, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_set", + weechat_tcl_api_list_set, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_next", + weechat_tcl_api_list_next, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_prev", + weechat_tcl_api_list_prev, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_string", + weechat_tcl_api_list_string, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_size", + weechat_tcl_api_list_size, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_remove", + weechat_tcl_api_list_remove, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_remove_all", + weechat_tcl_api_list_remove_all, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::list_free", + weechat_tcl_api_list_free, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_new", + weechat_tcl_api_config_new, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_new_section", + weechat_tcl_api_config_new_section, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_search_section", + weechat_tcl_api_config_search_section, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_new_option", + weechat_tcl_api_config_new_option, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_search_option", + weechat_tcl_api_config_search_option, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_string_to_boolean", + weechat_tcl_api_config_string_to_boolean, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_option_reset", + weechat_tcl_api_config_option_reset, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_option_set", + weechat_tcl_api_config_option_set, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_option_unset", + weechat_tcl_api_config_option_unset, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_option_rename", + weechat_tcl_api_config_option_rename, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_boolean", + weechat_tcl_api_config_boolean, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_integer", + weechat_tcl_api_config_integer, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_string", + weechat_tcl_api_config_string, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_color", + weechat_tcl_api_config_color, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_write_line", + weechat_tcl_api_config_write_line, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_write", + weechat_tcl_api_config_write, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_read", + weechat_tcl_api_config_read, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_reload", + weechat_tcl_api_config_reload, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_free", + weechat_tcl_api_config_free, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_get", + weechat_tcl_api_config_get, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_get_plugin", + weechat_tcl_api_config_get_plugin, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::config_set_plugin", + weechat_tcl_api_config_set_plugin, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::prefix", + weechat_tcl_api_prefix, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::color", + weechat_tcl_api_color, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::print", + weechat_tcl_api_print, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::print_date_tags", + weechat_tcl_api_print_date_tags, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::print_y", + weechat_tcl_api_print_y, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::log_print", + weechat_tcl_api_log_print, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_command", + weechat_tcl_api_hook_command, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_timer", + weechat_tcl_api_hook_timer, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_fd", + weechat_tcl_api_hook_fd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_connect", + weechat_tcl_api_hook_connect, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_print", + weechat_tcl_api_hook_print, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_signal", + weechat_tcl_api_hook_signal, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_signal_send", + weechat_tcl_api_hook_signal_send, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_config", + weechat_tcl_api_hook_config, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_completion", + weechat_tcl_api_hook_completion, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_completion_list_add", + weechat_tcl_api_hook_completion_list_add, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_modifier", + weechat_tcl_api_hook_modifier, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_modifier_exec", + weechat_tcl_api_hook_modifier_exec, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_info", + weechat_tcl_api_hook_info, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::hook_infolist", + weechat_tcl_api_hook_infolist, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::unhook", + weechat_tcl_api_unhook, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::unhook_all", + weechat_tcl_api_unhook_all, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::buffer_new", + weechat_tcl_api_buffer_new, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::buffer_search", + weechat_tcl_api_buffer_search, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::buffer_clear", + weechat_tcl_api_buffer_clear, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::buffer_close", + weechat_tcl_api_buffer_close, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::buffer_get_integer", + weechat_tcl_api_buffer_get_integer, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::buffer_get_string", + weechat_tcl_api_buffer_get_string, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::buffer_get_pointer", + weechat_tcl_api_buffer_get_pointer, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::buffer_set", + weechat_tcl_api_buffer_set, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::nicklist_add_group", + weechat_tcl_api_nicklist_add_group, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::nicklist_search_group", + weechat_tcl_api_nicklist_search_group, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::nicklist_add_nick", + weechat_tcl_api_nicklist_add_nick, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::nicklist_search_nick", + weechat_tcl_api_nicklist_search_nick, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::nicklist_remove_group", + weechat_tcl_api_nicklist_remove_group, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::nicklist_remove_nick", + weechat_tcl_api_nicklist_remove_nick, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::nicklist_remove_all", + weechat_tcl_api_nicklist_remove_all, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_item_search", + weechat_tcl_api_bar_item_search, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_item_new", + weechat_tcl_api_bar_item_new, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_item_update", + weechat_tcl_api_bar_item_update, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_item_remove", + weechat_tcl_api_bar_item_remove, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_search", + weechat_tcl_api_bar_search, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_new", + weechat_tcl_api_bar_new, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_set", + weechat_tcl_api_bar_set, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_update", + weechat_tcl_api_bar_update, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::bar_remove", + weechat_tcl_api_bar_remove, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::command", + weechat_tcl_api_command, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::info_get", + weechat_tcl_api_info_get, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_new", + weechat_tcl_api_infolist_new, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_new_var_integer", + weechat_tcl_api_infolist_new_var_integer, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_new_var_string", + weechat_tcl_api_infolist_new_var_string, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_new_var_pointer", + weechat_tcl_api_infolist_new_var_pointer, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_new_var_time", + weechat_tcl_api_infolist_new_var_time, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_get", + weechat_tcl_api_infolist_get, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_next", + weechat_tcl_api_infolist_next, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_prev", + weechat_tcl_api_infolist_prev, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_fields", + weechat_tcl_api_infolist_fields, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_integer", + weechat_tcl_api_infolist_integer, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_string", + weechat_tcl_api_infolist_string, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_pointer", + weechat_tcl_api_infolist_pointer, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_time", + weechat_tcl_api_infolist_time, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); + Tcl_CreateObjCommand (interp,"weechat::infolist_free", + weechat_tcl_api_infolist_free, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); +} diff --git a/src/plugins/scripts/tcl/weechat-tcl-api.h b/src/plugins/scripts/tcl/weechat-tcl-api.h new file mode 100644 index 000000000..567ce60c1 --- /dev/null +++ b/src/plugins/scripts/tcl/weechat-tcl-api.h @@ -0,0 +1,25 @@ +/* + * Copyright (c) 2003-2008 by FlashCode + * See README for License detail, AUTHORS for developers list. + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + + +#ifndef __WEECHAT_TCL_API_H +#define __WEECHAT_TCL_API_H 1 + +extern void weechat_tcl_api_init (Tcl_Interp *interp); + +#endif /* weechat-tcl.h */ diff --git a/src/plugins/scripts/tcl/weechat-tcl.c b/src/plugins/scripts/tcl/weechat-tcl.c new file mode 100644 index 000000000..b3350e191 --- /dev/null +++ b/src/plugins/scripts/tcl/weechat-tcl.c @@ -0,0 +1,458 @@ +/* + * Copyright (C) 2008 Dmitry Kobylin + * See README for License detail, AUTHORS for developers list. + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* weechat-tcl.c: Tcl plugin for WeeChat */ + + +#undef _ + +#include +#include +#include +#include +#include +#include + +#include "../../weechat-plugin.h" +#include "../script.h" +#include "weechat-tcl.h" +#include "weechat-tcl-api.h" + + +WEECHAT_PLUGIN_NAME(TCL_PLUGIN_NAME); +WEECHAT_PLUGIN_DESCRIPTION("Tcl plugin for WeeChat"); +WEECHAT_PLUGIN_AUTHOR("Dmitry Kobylin "); +WEECHAT_PLUGIN_VERSION(WEECHAT_VERSION); +WEECHAT_PLUGIN_WEECHAT_VERSION(WEECHAT_VERSION); +WEECHAT_PLUGIN_LICENSE("GPL3"); + +struct t_weechat_plugin *weechat_tcl_plugin = NULL; + +struct t_plugin_script *tcl_scripts = NULL; +struct t_plugin_script *tcl_current_script = NULL; +const char *tcl_current_script_filename = NULL; + +Tcl_Interp* cinterp; + + +/* + * weechat_tcl_exec: execute a Tcl script + */ + +void * +weechat_tcl_exec (struct t_plugin_script *script, + int ret_type, const char *function, char **argv) +{ + int i; + int *ret_i; + char *ret_cv; + void *ret_val; + Tcl_DString ds; + Tcl_Obj *scptr; + Tcl_Interp *interp; + struct t_plugin_script *old_tcl_script; + + old_tcl_script = tcl_current_script; + tcl_current_script = script; + interp = (Tcl_Interp*)script->interpreter; + + Tcl_DStringInit (&ds); + if (function && function[0]) + Tcl_DStringAppend (&ds,function, -1); + else + { + tcl_current_script = old_tcl_script; + return NULL; + } + + if (argv) + { + for (i = 0; argv[i] && (i<6); i++) + { + Tcl_DStringAppend (&ds, " \"", -1); + Tcl_DStringAppend (&ds, argv[i], -1); + Tcl_DStringAppend (&ds, "\"", -1); + } + } + + scptr = Tcl_NewStringObj (Tcl_DStringValue(&ds), -1); + Tcl_IncrRefCount (scptr); + Tcl_DStringFree (&ds); + + if (Tcl_EvalObjEx (interp, scptr, TCL_EVAL_DIRECT) == TCL_OK) + { + Tcl_DecrRefCount (scptr); + ret_val = NULL; + if (ret_type == WEECHAT_SCRIPT_EXEC_STRING) + { + ret_cv = Tcl_GetStringFromObj (Tcl_GetObjResult (interp), &i); + if (ret_cv && ret_cv[0]) + ret_val = (void *)strdup (ret_cv); + else + ret_val = NULL; + } + else if ( ret_type == WEECHAT_SCRIPT_EXEC_INT + && Tcl_GetIntFromObj (interp, Tcl_GetObjResult (interp), &i) == TCL_OK) + { + ret_i = (int *)malloc (sizeof (*ret_i)); + if (ret_i) + *ret_i = i; + ret_val = (void *)ret_i; + } + + tcl_current_script = old_tcl_script; + if (ret_val) + return ret_val; + + weechat_printf (NULL, + weechat_gettext ("%s%s: function \"%s\" must return a " + "valid value"), + weechat_prefix ("error"), TCL_PLUGIN_NAME, function); + return NULL; + } + + Tcl_DecrRefCount(scptr); + weechat_printf (NULL, + weechat_gettext ("%s%s unable to run function \"%s\": %s"), + weechat_prefix ("error"), TCL_PLUGIN_NAME, function, + Tcl_GetStringFromObj (Tcl_GetObjResult (interp), &i)); + tcl_current_script = old_tcl_script; + + return NULL; +} + +/* + * weechat_tcl_load: load a Tcl script + */ + +int +weechat_tcl_load (const char *filename) +{ + int i; + Tcl_Interp *interp; + struct stat buf; + + if (stat (filename, &buf) != 0) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: script \"%s\" not found"), + weechat_prefix ("error"), TCL_PLUGIN_NAME, filename); + return 0; + } + + weechat_printf (NULL, + weechat_gettext ("%s: loading script \"%s\""), + TCL_PLUGIN_NAME, filename); + + tcl_current_script = NULL; + + if (!(interp = Tcl_CreateInterp ())) { + weechat_printf (NULL, + weechat_gettext ("%s%s: unable to create new " + "interpreter"), + weechat_prefix ("error"), TCL_PLUGIN_NAME); + return 0; + } + tcl_current_script_filename = filename; + + weechat_tcl_api_init (interp); + + if (Tcl_EvalFile (interp, filename) != TCL_OK) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: error occured while " + "parsing file \"%s\": %s"), + weechat_prefix ("error"), TCL_PLUGIN_NAME, filename, + Tcl_GetStringFromObj (Tcl_GetObjResult (interp), &i)); + /* this ok, maybe "register" was called, so not return */ + /* return 0; */ + } + + if (!tcl_current_script) + { + weechat_printf (NULL, + weechat_gettext ("%s%s: function \"register\" not " + "found (or failed) in file \"%s\""), + weechat_prefix ("error"), TCL_PLUGIN_NAME, filename); + Tcl_DeleteInterp (interp); + return 0; + } + + return 1; +} + +/* + * weechat_tcl_load_cb: callback for weechat_script_auto_load() function + */ + +void +weechat_tcl_load_cb (void *data, const char *filename) +{ + /* make C compiler happy */ + (void) data; + + weechat_tcl_load (filename); +} + +/* + * weechat_tcl_unload: unload a Tcl script + */ + +void +weechat_tcl_unload (struct t_plugin_script *script) +{ + Tcl_Interp* interp; + void *pointer; + + weechat_printf (NULL, + weechat_gettext ("%s: unloading script \"%s\""), + TCL_PLUGIN_NAME, script->name); + + if (script->shutdown_func && script->shutdown_func[0]) + { + pointer = weechat_tcl_exec (script, + WEECHAT_SCRIPT_EXEC_INT, + script->shutdown_func, + NULL); + if (pointer) + free (pointer); + } + + interp = (Tcl_Interp*)script->interpreter; + + script_remove (weechat_tcl_plugin, &tcl_scripts, script); + + Tcl_DeleteInterp(interp); +} + +/* + * weechat_tcl_unload_name: unload a Tcl script by name + */ + +void +weechat_tcl_unload_name (const char *name) +{ + struct t_plugin_script *ptr_script; + + ptr_script = script_search (weechat_tcl_plugin, tcl_scripts, name); + if (ptr_script) + { + weechat_tcl_unload (ptr_script); + weechat_printf (NULL, + weechat_gettext ("%s: script \"%s\" unloaded"), + TCL_PLUGIN_NAME, name); + } + else + { + weechat_printf (NULL, + weechat_gettext ("%s%s: script \"%s\" not loaded"), + weechat_prefix ("error"), TCL_PLUGIN_NAME, name); + } +} + +/* + * weechat_tcl_unload_all: unload all Tcl scripts + */ + +void +weechat_tcl_unload_all () +{ + while (tcl_scripts) + { + weechat_tcl_unload (tcl_scripts); + } +} + +/* + * weechat_tcl_command_cb: callback for "/tcl" command + */ + +int +weechat_tcl_command_cb (void *data, struct t_gui_buffer *buffer, + int argc, char **argv, char **argv_eol) +{ + char *path_script; + + /* make C compiler happy */ + (void) data; + (void) buffer; + + if (argc == 1) + { + script_display_list (weechat_tcl_plugin, tcl_scripts, + NULL, 0); + } + else if (argc == 2) + { + if (weechat_strcasecmp (argv[1], "list") == 0) + { + script_display_list (weechat_tcl_plugin, tcl_scripts, + NULL, 0); + } + else if (weechat_strcasecmp (argv[1], "listfull") == 0) + { + script_display_list (weechat_tcl_plugin, tcl_scripts, + NULL, 1); + } + else if (weechat_strcasecmp (argv[1], "autoload") == 0) + { + script_auto_load (weechat_tcl_plugin, &weechat_tcl_load_cb); + } + else if (weechat_strcasecmp (argv[1], "reload") == 0) + { + weechat_tcl_unload_all (); + script_auto_load (weechat_tcl_plugin, &weechat_tcl_load_cb); + } + else if (weechat_strcasecmp (argv[1], "unload") == 0) + { + weechat_tcl_unload_all (); + } + } + else + { + if (weechat_strcasecmp (argv[1], "list") == 0) + { + script_display_list (weechat_tcl_plugin, tcl_scripts, + argv_eol[2], 0); + } + else if (weechat_strcasecmp (argv[1], "listfull") == 0) + { + script_display_list (weechat_tcl_plugin, tcl_scripts, + argv_eol[2], 1); + } + else if (weechat_strcasecmp (argv[1], "load") == 0) + { + /* load Tcl script */ + path_script = script_search_full_name (weechat_tcl_plugin, + argv_eol[2]); + weechat_tcl_load ((path_script) ? path_script : argv_eol[2]); + if (path_script) + free (path_script); + } + else if (weechat_strcasecmp (argv[1], "unload") == 0) + { + /* unload Tcl script */ + weechat_tcl_unload_name (argv_eol[2]); + } + else + { + weechat_printf (NULL, + weechat_gettext ("%s%s: unknown option for " + "command \"%s\""), + weechat_prefix ("error"), TCL_PLUGIN_NAME, "tcl"); + } + } + + return WEECHAT_RC_OK; +} + +/* + * weechat_tcl_completion_cb: callback for script completion + */ + +int +weechat_tcl_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_tcl_plugin, completion, tcl_scripts); + + return WEECHAT_RC_OK; +} + +/* + * weechat_tcl_debug_dump_cb: dump Tcl plugin data in WeeChat log file + */ + +int +weechat_tcl_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; + (void) signal_data; + + script_print_log (weechat_tcl_plugin, tcl_scripts); + + return WEECHAT_RC_OK; +} + +/* + * weechat_tcl_buffer_closed_cb: callback called when a buffer is closed + */ + +int +weechat_tcl_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 (tcl_scripts, signal_data); + + return WEECHAT_RC_OK; +} + +/* + * weechat_plugin_init: initialize Tcl plugin + */ + +int +weechat_plugin_init (struct t_weechat_plugin *plugin, int argc, char *argv[]) +{ + /* make C compiler happy */ + (void) argc; + (void) argv; + + weechat_tcl_plugin = plugin; + + script_init (weechat_tcl_plugin, + weechat_tcl_command_cb, + weechat_tcl_completion_cb, + weechat_tcl_debug_dump_cb, + weechat_tcl_buffer_closed_cb, + weechat_tcl_load_cb); + + /* init ok */ + return WEECHAT_RC_OK; +} + +/* + * weechat_plugin_end: end Tcl plugin + */ + +int +weechat_plugin_end (struct t_weechat_plugin *plugin) +{ + (void) plugin; + + /* unload all scripts */ + weechat_tcl_unload_all (); + + return WEECHAT_RC_OK; +} diff --git a/src/plugins/scripts/tcl/weechat-tcl.h b/src/plugins/scripts/tcl/weechat-tcl.h new file mode 100644 index 000000000..e963294d2 --- /dev/null +++ b/src/plugins/scripts/tcl/weechat-tcl.h @@ -0,0 +1,36 @@ +/* + * Copyright (c) 2003-2008 by FlashCode + * See README for License detail, AUTHORS for developers list. + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + + +#ifndef __WEECHAT_TCL_H +#define __WEECHAT_TCL_H 1 + +#define weechat_plugin weechat_tcl_plugin +#define TCL_PLUGIN_NAME "tcl" + +extern struct t_weechat_plugin *weechat_tcl_plugin; + +extern struct t_plugin_script *tcl_scripts; +extern struct t_plugin_script *tcl_current_script; +extern const char *tcl_current_script_filename; + +extern void *weechat_tcl_exec (struct t_plugin_script *script, + int ret_type, const char *function, + char **argv); + +#endif /* weechat-tcl.h */