summaryrefslogtreecommitdiff
path: root/src/plugins/scripts/tcl
diff options
context:
space:
mode:
Diffstat (limited to 'src/plugins/scripts/tcl')
-rw-r--r--src/plugins/scripts/tcl/weechat-tcl.c37
1 files changed, 37 insertions, 0 deletions
diff --git a/src/plugins/scripts/tcl/weechat-tcl.c b/src/plugins/scripts/tcl/weechat-tcl.c
index 61d08bb8c..89c7e40c4 100644
--- a/src/plugins/scripts/tcl/weechat-tcl.c
+++ b/src/plugins/scripts/tcl/weechat-tcl.c
@@ -302,6 +302,38 @@ weechat_tcl_unload_all ()
}
/*
+ * weechat_tcl_reload_name: reload a Tcl script by name
+ */
+
+void
+weechat_tcl_reload_name (const char *name)
+{
+ struct t_plugin_script *ptr_script;
+ char *filename;
+
+ ptr_script = script_search (weechat_tcl_plugin, tcl_scripts, name);
+ if (ptr_script)
+ {
+ filename = strdup (ptr_script->filename);
+ if (filename)
+ {
+ weechat_tcl_unload (ptr_script);
+ weechat_printf (NULL,
+ weechat_gettext ("%s: script \"%s\" unloaded"),
+ TCL_PLUGIN_NAME, name);
+ weechat_tcl_load (filename);
+ free (filename);
+ }
+ }
+ else
+ {
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: script \"%s\" not loaded"),
+ weechat_prefix ("error"), TCL_PLUGIN_NAME, name);
+ }
+}
+
+/*
* weechat_tcl_command_cb: callback for "/tcl" command
*/
@@ -367,6 +399,11 @@ weechat_tcl_command_cb (void *data, struct t_gui_buffer *buffer,
if (path_script)
free (path_script);
}
+ else if (weechat_strcasecmp (argv[1], "reload") == 0)
+ {
+ /* reload one Tcl script */
+ weechat_tcl_reload_name (argv_eol[2]);
+ }
else if (weechat_strcasecmp (argv[1], "unload") == 0)
{
/* unload Tcl script */