summary refs log tree commit diff stats
path: root/plugins/tcl/tclplugin.c
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/tcl/tclplugin.c')
-rw-r--r--plugins/tcl/tclplugin.c2294
1 files changed, 0 insertions, 2294 deletions
diff --git a/plugins/tcl/tclplugin.c b/plugins/tcl/tclplugin.c
deleted file mode 100644
index b03e7bac..00000000
--- a/plugins/tcl/tclplugin.c
+++ /dev/null
@@ -1,2294 +0,0 @@
-/***************************************************************************
-                           tclplugin.c  -  Tcl plugin for xchat 1.9.x / 2.x.x
-                           -------------------------------------------------s
-    begin                : Sat Nov 19 17:31:20 MST 2002
-    copyright            : Copyright 2002-2012 Daniel P. Stasinski
-    email                : daniel@GenericInbox.com
- ***************************************************************************/
-
-/***************************************************************************
- *                                                                         *
- *   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 2 of the License, or     *
- *   (at your option) any later version.                                   *
- *                                                                         *
- ***************************************************************************/
-
-static char RCSID[] = "$Id: tclplugin.c,v 1.65 2012/07/26 20:02:12 mooooooo Exp $";
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <time.h>
-#include <limits.h>
-#include <ctype.h>
-#include <stdarg.h>
-#include <tcl.h>
-#include <tclDecls.h>
-#include <sys/stat.h>
-
-#ifdef WIN32
-#include <windows.h>
-#include "../../src/common/typedef.h"
-#define bzero(mem, sz) memset((mem), 0, (sz))
-#define bcopy(src, dest, count) memmove((dest), (src), (count))
-#else
-#include <unistd.h>
-#endif
-
-#include "hexchat-plugin.h"
-#include "tclplugin.h"
-#include "printevents.h"
-
-static int nexttimerid = 0;
-static int nexttimerindex = 0;
-static timer timers[MAX_TIMERS];
-
-static char VERSION[16];
-
-static int initialized = 0;
-static int reinit_tried = 0;
-static Tcl_Interp *interp = NULL;
-static hexchat_plugin *ph;
-static hexchat_hook *raw_line_hook;
-static hexchat_hook *Command_TCL_hook;
-static hexchat_hook *Command_Source_hook;
-static hexchat_hook *Command_Reload_hook;
-static hexchat_hook *Command_Load_hook;
-static hexchat_hook *Event_Handler_hook;
-static hexchat_hook *Null_Command_hook;
-
-static int complete_level = 0;
-static t_complete complete[MAX_COMPLETES + 1];
-static Tcl_HashTable cmdTablePtr;
-static Tcl_HashTable aliasTablePtr;
-
-static int nextprocid = 0x1000;
-#define PROCPREFIX "__xctcl_"
-
-static char unknown[] = {
-"rename unknown iunknown\n"
-"proc ::unknown {args} {\n"
-"  global errorInfo errorCode\n"
-"  if { [string index [lindex $args 0] 0] == \"/\" } {\n"
-"    command \"[string range [join $args \" \"] 1 end]\"\n"
-"  } else {\n"
-"    set code [catch {uplevel iunknown $args} msg]\n"
-"    if {$code == 1} {\n"
-"      set new [split $errorInfo \\n]\n"
-"      set new [join [lrange $new 0 [expr {[llength $new] - 8}]] \\n]\n"
-"      return -code error -errorcode $errorCode -errorinfo $new $msg\n"
-"    } else {\n"
-"      return -code $code $msg\n"
-"    }\n"
-"  }\n"
-"}\n"
-"proc unsupported0 {from to {bytes \"\"}} {\n"
-"  set b [expr {$bytes == \"\" ? \"\" : \"-size [list $bytes]\"}]\n"
-"  eval [list fcopy $from $to] $b\n"
-"}\n"
-};
-
-/* don't pollute the filesystem with script files, this only causes misuse of the folders
- * only use ~/.config/hexchat/addons/ and %APPDATA%\HexChat\addons */
-static char sourcedirs[] = {
-    "set files [lsort [glob -nocomplain -directory [configdir] \"/addons/*.tcl\"]]\n"
-        "set init [lsearch -glob $files \"*/init.tcl\"]\n"
-        "if { $init > 0 } {\n"
-        "set initfile [lindex $files $init]\n"
-        "set files [lreplace $files $init $init]\n"
-        "set files [linsert $files 0 $initfile]\n" "}\n" "foreach f $files {\n" "if { [catch { source $f } errMsg] } {\n" "puts \"Tcl plugin\\tError sourcing \\\"$f\\\" ($errMsg)\"\n" "} else {\n" "puts \"Tcl plugin\\tSourced \\\"$f\\\"\"\n" "}\n" "}\n"
-};
-
-static char inlinetcl[] = {
-"proc splitsrc { } {\n"
-"uplevel \"scan \\$_src \\\"%\\\\\\[^!\\\\\\]!%\\\\\\[^@\\\\\\]@%s\\\" _nick _ident _host\"\n"
-"}\n"
-
-"proc ::exit { } {\n"
-"puts \"Using 'exit' is bad\"\n"
-"}\n"
-
-"proc ::away { args } { return [eval [join [list getinfo $args away]]] }\n"
-"proc ::channel { args } { return [eval [join [list getinfo $args channel]]] }\n"
-"proc ::tab { args } { return [eval [join [list getinfo $args channel]]] }\n"
-"proc ::charset { args } { return [eval [join [list getinfo $args charset]]] }\n"
-"proc ::host { args } { return [eval [join [list getinfo $args host]]] }\n"
-"proc ::inputbox { args } { return [eval [join [list getinfo $args inputbox]]] }\n"
-"proc ::libdirfs { args } { return [eval [join [list getinfo $args libdirfs]]] }\n"
-"proc ::network { args } { return [eval [join [list getinfo $args network]]] }\n"
-"proc ::nickserv { args } { return [eval [join [list getinfo $args nickserv]]] }\n"
-"proc ::server { args } { return [eval [join [list getinfo $args server]]] }\n"
-"proc ::version { args } { return [eval [join [list getinfo $args version]]] }\n"
-"proc ::win_status { args } { return [eval [join [list getinfo $args win_status]]] }\n"
-"proc ::configdir { args } { return [eval [join [list getinfo $args configdir]]] }\n"
-
-"proc ::color { {arg {}} } { return \"\\003$arg\" }\n"
-"proc ::bold { } { return \"\\002\" }\n"
-"proc ::underline { } { return \"\\037\" }\n"
-"proc ::reverse { } { return \"\\026\" }\n"
-"proc ::reset { } { return \"\\017\" }\n"
-
-"proc ::__xctcl_errorInfo { } {\n"
-"      set text [split $::errorInfo \\n]\n"
-"      puts [string trim [join [lrange $text 0 [expr {[llength $text] - 4}]] \\n]]\n"
-"}\n"
-
-"proc ::bgerror { message } {\n"
-"      set text [split $::errorInfo \\n]\n"
-"      puts [string trim [join [lrange $text 0 [expr {[llength $text] - 4}]] \\n]]\n"
-"}\n"
-};
-
-static void NiceErrorInfo ()
-{
-    Tcl_Eval(interp, "::__xctcl_errorInfo");
-}
-
-static void Tcl_MyDStringAppend(Tcl_DString * ds, char *string)
-{
-    Tcl_DStringAppend(ds, string, strlen(string));
-}
-
-static char *InternalProcName(int value)
-{
-    static char result[32];
-    sprintf(result, "%s%08x", PROCPREFIX, value);
-    return result;
-}
-
-static int SourceInternalProc(int id, const char *args, const char *source)
-{
-    Tcl_DString ds;
-    int result;
-    Tcl_DStringInit(&ds);
-
-    Tcl_MyDStringAppend(&ds, "proc ");
-    Tcl_MyDStringAppend(&ds, InternalProcName(id));
-    Tcl_MyDStringAppend(&ds, " { ");
-    Tcl_MyDStringAppend(&ds, args);
-    Tcl_MyDStringAppend(&ds, " } {\n");
-    Tcl_MyDStringAppend(&ds, source);
-    Tcl_MyDStringAppend(&ds, "\n}\n\n");
-
-    result = Tcl_Eval(interp, ds.string);
-
-    Tcl_DStringFree(&ds);
-
-    return result;
-}
-
-static int EvalInternalProc(const char *procname, int ct, ...)
-{
-    Tcl_DString ds;
-    int result;
-    va_list ap;
-    char *buf;
-
-    Tcl_DStringInit(&ds);
-
-    Tcl_MyDStringAppend(&ds, procname);
-
-    if (ct) {
-        va_start(ap, ct);
-        while (ct--) {
-            if ((buf = va_arg(ap, char *)) != NULL)
-                 Tcl_DStringAppendElement(&ds, buf);
-            else
-                Tcl_MyDStringAppend(&ds, " \"\"");
-        }
-        va_end(ap);
-    }
-
-    result = Tcl_Eval(interp, ds.string);
-
-    Tcl_DStringFree(&ds);
-
-    return result;
-}
-
-
-static void DeleteInternalProc(const char *proc)
-{
-    Tcl_DString ds;
-
-    Tcl_DStringInit(&ds);
-    Tcl_MyDStringAppend(&ds, "rename ");
-    Tcl_MyDStringAppend(&ds, proc);
-    Tcl_MyDStringAppend(&ds, " {}");
-    Tcl_Eval(interp, ds.string);
-    Tcl_DStringFree(&ds);
-}
-
-static char *StrDup(const char *string, int *length)
-{
-    char *result;
-
-    if (string == NULL)
-        return NULL;
-
-    *length = strlen(string);
-    result = Tcl_Alloc(*length + 1);
-    strncpy(result, string, *length);
-    result[*length] = 0;
-
-    return result;
-}
-
-static char *myitoa(long value)
-{
-    static char result[32];
-    sprintf(result, "%ld", value);
-    return result;
-}
-
-static hexchat_context *atoctx(const char *nptr)
-{
-    int isnum = 1;
-    int x = 0;
-
-    if (!nptr)
-        return NULL;
-
-    while (isnum && nptr[x]) {
-        if (!isdigit(nptr[x++]))
-            isnum--;
-    }
-
-    if (isnum && x)
-        return (hexchat_context *) atol(nptr);
-    else
-        return NULL;
-}
-
-static hexchat_context *xchat_smart_context(const char *arg1, const char *arg2)
-{
-    const char *server, *s, *n;
-    hexchat_context *result = NULL;
-    hexchat_context *ctx = NULL;
-    hexchat_context *actx = NULL;
-    hexchat_list *list;
-
-    if (arg1 == NULL)
-        return hexchat_get_context(ph);;
-
-    if (arg1 && arg2) {
-        result = hexchat_find_context(ph, arg1, arg2);
-        if (result == NULL)
-            result = hexchat_find_context(ph, arg2, arg1);
-        return result;
-    } else {
-
-        actx = atoctx(arg1);
-
-        server = hexchat_get_info(ph, "server");
-
-        list = hexchat_list_get(ph, "channels");
-
-        if (list != NULL) {
-
-            while (hexchat_list_next(ph, list)) {
-
-                ctx = (hexchat_context *)hexchat_list_str(ph, list, "context");
-
-                if (actx) {
-                    if (ctx == actx) {
-                        result = ctx;
-                        break;
-                    }
-                } else {
-
-                    s = hexchat_list_str(ph, list, "server");
-
-                    if (hexchat_list_int(ph, list, "type") == 1) {
-                        if (strcasecmp(arg1, s) == 0) {
-                            result = ctx;
-                            break;
-                        }
-                        n = hexchat_list_str(ph, list, "network");
-                        if (n) {
-                            if (strcasecmp(arg1, n) == 0) {
-                                result = ctx;
-                                break;
-                            }
-                        }
-                    } else {
-                        if ((strcasecmp(server, s) == 0) && (strcasecmp(arg1, hexchat_list_str(ph, list, "channel")) == 0)) {
-                            result = ctx;
-                            break;
-                        }
-                    }
-                }
-            }
-
-            hexchat_list_free(ph, list);
-        }
-
-    }
-
-    return result;
-}
-
-static void queue_nexttimer()
-{
-    int x;
-    time_t then;
-
-    nexttimerindex = 0;
-    then = (time_t) 0x7fffffff;
-
-    for (x = 1; x < MAX_TIMERS; x++) {
-        if (timers[x].timerid) {
-            if (timers[x].timestamp < then) {
-                then = timers[x].timestamp;
-                nexttimerindex = x;
-            }
-        }
-    }
-}
-
-static int insert_timer(int seconds, int count, const char *script)
-{
-    int x;
-    int dummy;
-    time_t now;
-    int id;
-
-    if (script == NULL)
-        return (-1);
-
-    id = (nextprocid++ % INT_MAX) + 1;
-
-    now = time(NULL);
-
-    for (x = 1; x < MAX_TIMERS; x++) {
-        if (timers[x].timerid == 0) {
-            if (SourceInternalProc(id, "", script) == TCL_ERROR) {
-                hexchat_printf(ph, "\0039TCL plugin\003\tERROR (timer %d) ", timers[x].timerid);
-                NiceErrorInfo ();
-                return (-1);
-            }
-            timers[x].timerid = (nexttimerid++ % INT_MAX) + 1;
-            timers[x].timestamp = now + seconds;
-            timers[x].count = count;
-            timers[x].seconds = seconds;
-            timers[x].procPtr = StrDup(InternalProcName(id), &dummy);
-            queue_nexttimer();
-            return (timers[x].timerid);
-        }
-    }
-
-    return (-1);
-}
-
-static void do_timer()
-{
-    hexchat_context *origctx;
-    time_t now;
-    int index;
-
-    if (!nexttimerindex)
-        return;
-
-    now = time(NULL);
-
-    if (now < timers[nexttimerindex].timestamp)
-        return;
-
-    index = nexttimerindex;
-    origctx = hexchat_get_context(ph);
-    if (EvalInternalProc(timers[index].procPtr, 0) == TCL_ERROR) {
-        hexchat_printf(ph, "\0039TCL plugin\003\tERROR (timer %d) ", timers[index].timerid);
-        NiceErrorInfo ();
-    }
-    hexchat_set_context(ph, origctx);
-
-    if (timers[index].count != -1)
-      timers[index].count--;
-
-    if (timers[index].count == 0) {
-      timers[index].timerid = 0;
-      if (timers[index].procPtr != NULL) {
-          DeleteInternalProc(timers[index].procPtr);
-          Tcl_Free(timers[index].procPtr);
-      }
-      timers[index].procPtr = NULL;
-    } else {
-      timers[index].timestamp += timers[index].seconds;
-    }
-
-    queue_nexttimer();
-
-    return;
-
-}
-
-static int Server_raw_line(char *word[], char *word_eol[], void *userdata)
-{
-    char *src, *cmd, *dest, *rest;
-    char *chancmd = NULL;
-    char *procList;
-    Tcl_HashEntry *entry = NULL;
-    hexchat_context *origctx;
-    int len;
-    int dummy;
-    char *string = NULL;
-    int ctcp = 0;
-    int count;
-    int list_argc, proc_argc;
-    const char **list_argv, **proc_argv;
-    int private = 0;
-
-    if (word[0][0] == 0)
-        return HEXCHAT_EAT_NONE;
-
-    if (complete_level == MAX_COMPLETES)
-        return HEXCHAT_EAT_NONE;
-
-    complete_level++;
-    complete[complete_level].defresult = HEXCHAT_EAT_NONE;     /* HEXCHAT_EAT_PLUGIN; */
-    complete[complete_level].result = HEXCHAT_EAT_NONE;
-    complete[complete_level].word = word;
-	complete[complete_level].word_eol = word_eol;
-
-    if (word[1][0] == ':') {
-        src = word[1];
-        cmd = word[2];
-        dest = word[3];
-        rest = word_eol[4];
-    } else {
-        src = "";
-        cmd = word[1];
-        if (word_eol[2][0] == ':') {
-            dest = "";
-            rest = word_eol[2];
-        } else {
-            dest = word[2];
-            rest = word_eol[3];
-        }
-    }
-
-    if (src[0] == ':')
-        src++;
-    if (dest[0] == ':')
-        dest++;
-    if (rest[0] == ':')
-        rest++;
-
-    if (rest[0] == 0x01) {
-        rest++;
-        if (strcasecmp("PRIVMSG", cmd) == 0) {
-            if (strncasecmp(rest, "ACTION ", 7) == 0) {
-                cmd = "ACTION";
-                rest += 7;
-            } else
-                cmd = "CTCP";
-        } else if (!strcasecmp("NOTICE", cmd))
-            cmd = "CTCR";
-        ctcp = 1;
-    } else if (!strcasecmp("NOTICE", cmd) && (strchr(src, '!') == NULL)) {
-        cmd = "SNOTICE";
-    } else if (rest[0] == '!') {
-        chancmd = word[4] + 1;
-    }
-
-    if (chancmd != NULL) {
-        string = StrDup(chancmd, &dummy);
-        Tcl_UtfToUpper(string);
-        if ((entry = Tcl_FindHashEntry(&cmdTablePtr, string)) == NULL) {
-            Tcl_Free(string);
-        } else {
-            cmd = chancmd;
-            rest = word_eol[5];
-        }
-    }
-
-    if (entry == NULL) {
-        string = StrDup(cmd, &dummy);
-        Tcl_UtfToUpper(string);
-        entry = Tcl_FindHashEntry(&cmdTablePtr, string);
-    }
-
-    if (entry != NULL) {
-
-        procList = Tcl_GetHashValue(entry);
-
-        if (isalpha(dest[0]))
-            private = 1;
-
-        rest = StrDup(rest, &len);
-        if (ctcp) {
-            if (rest != NULL) {
-                if ((len > 1) && (rest[len - 1] == 0x01))
-                    rest[len - 1] = 0;
-            }
-        }
-
-        if (Tcl_SplitList(interp, procList, &list_argc, &list_argv) == TCL_OK) {
-
-            for (count = 0; count < list_argc; count++) {
-
-                if (Tcl_SplitList(interp, list_argv[count], &proc_argc, &proc_argv) != TCL_OK)
-                    continue;
-
-                origctx = hexchat_get_context(ph);
-                if (EvalInternalProc(proc_argv[1], 7, src, dest, cmd, rest, word_eol[1], proc_argv[0], myitoa(private)) == TCL_ERROR) {
-                    hexchat_printf(ph, "\0039TCL plugin\003\tERROR (on %s %s) ", cmd, proc_argv[0]);
-                    NiceErrorInfo ();
-                }
-                hexchat_set_context(ph, origctx);
-
-                Tcl_Free((char *) proc_argv);
-
-                if ((complete[complete_level].result ==  HEXCHAT_EAT_PLUGIN) || (complete[complete_level].result == HEXCHAT_EAT_ALL))
-                    break;
-
-            }
-
-            Tcl_Free((char *) list_argv);
-
-        }
-
-        Tcl_Free(rest);
-
-    }
-
-    if (string)
-        Tcl_Free(string);
-
-    return complete[complete_level--].result;
-
-}
-
-static int Print_Hook(char *word[], void *userdata)
-{
-    char *procList;
-    Tcl_HashEntry *entry;
-    hexchat_context *origctx;
-    int count;
-    int list_argc, proc_argc;
-    const char **list_argv, **proc_argv;
-    Tcl_DString ds;
-    int x;
-
-    if (complete_level == MAX_COMPLETES)
-        return HEXCHAT_EAT_NONE;
-
-    complete_level++;
-    complete[complete_level].defresult = HEXCHAT_EAT_NONE;     /* HEXCHAT_EAT_PLUGIN; */
-    complete[complete_level].result = HEXCHAT_EAT_NONE;
-    complete[complete_level].word = word;
-	complete[complete_level].word_eol = word;
-
-    if ((entry = Tcl_FindHashEntry(&cmdTablePtr, xc[(int) userdata].event)) != NULL) {
-
-        procList = Tcl_GetHashValue(entry);
-
-        if (Tcl_SplitList(interp, procList, &list_argc, &list_argv) == TCL_OK) {
-
-            for (count = 0; count < list_argc; count++) {
-
-                if (Tcl_SplitList(interp, list_argv[count], &proc_argc, &proc_argv) != TCL_OK)
-                    continue;
-
-                origctx = hexchat_get_context(ph);
-
-                Tcl_DStringInit(&ds);
-
-                if ((int) userdata == CHAT) {
-                    Tcl_DStringAppend(&ds, word[3], strlen(word[3]));
-                    Tcl_DStringAppend(&ds, "!*@", 3);
-                    Tcl_DStringAppend(&ds, word[1], strlen(word[1]));
-                    if (EvalInternalProc(proc_argv[1], 7, ds.string, word[2], xc[(int) userdata].event, word[4], "", proc_argv[0], "0") == TCL_ERROR) {
-                        hexchat_printf(ph, "\0039TCL plugin\003\tERROR (on %s %s) ", xc[(int) userdata].event, proc_argv[0]);
-                        NiceErrorInfo ();
-                    }
-                } else {
-                    if (xc[(int) userdata].argc > 0) {
-                        for (x = 0; x <= xc[(int) userdata].argc; x++)
-                            Tcl_DStringAppendElement(&ds, word[x]);
-                    }
-                    if (EvalInternalProc(proc_argv[1], 7, "", "", xc[(int) userdata].event, "", ds.string, proc_argv[0], "0") == TCL_ERROR) {
-                        hexchat_printf(ph, "\0039Tcl plugin\003\tERROR (on %s %s) ", xc[(int) userdata].event, proc_argv[0]);
-                        NiceErrorInfo ();
-                    }
-                }
-
-                Tcl_DStringFree(&ds);
-
-                hexchat_set_context(ph, origctx);
-
-                Tcl_Free((char *) proc_argv);
-
-                if ((complete[complete_level].result ==  HEXCHAT_EAT_PLUGIN) || (complete[complete_level].result ==  HEXCHAT_EAT_ALL))
-                    break;
-
-            }
-
-            Tcl_Free((char *) list_argv);
-
-        }
-    }
-
-    return complete[complete_level--].result;
-}
-
-
-static int tcl_timerexists(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int x;
-    int timerid;
-
-    BADARGS(2, 2, " schedid");
-
-    if (Tcl_GetInt(irp, argv[1], &timerid) != TCL_OK) {
-        Tcl_AppendResult(irp, "Invalid timer id", NULL);
-        return TCL_ERROR;
-    }
-
-    if (timerid) {
-        for (x = 1; x < MAX_TIMERS; x++) {
-            if (timers[x].timerid == timerid) {
-                Tcl_AppendResult(irp, "1", NULL);
-                return TCL_OK;
-            }
-        }
-    }
-
-    Tcl_AppendResult(irp, "0", NULL);
-
-    return TCL_OK;
-}
-
-static int tcl_killtimer(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int x;
-    int timerid;
-
-    BADARGS(2, 2, " timerid");
-
-    if (Tcl_GetInt(irp, argv[1], &timerid) != TCL_OK) {
-        Tcl_AppendResult(irp, "Invalid timer id", NULL);
-        return TCL_ERROR;
-    }
-
-    if (timerid) {
-        for (x = 1; x < MAX_TIMERS; x++) {
-            if (timers[x].timerid == timerid) {
-                timers[x].timerid = 0;
-                if (timers[x].procPtr != NULL) {
-                    DeleteInternalProc(timers[x].procPtr);
-                    Tcl_Free(timers[x].procPtr);
-                }
-                timers[x].procPtr = NULL;
-                break;
-            }
-        }
-    }
-
-    queue_nexttimer();
-
-    return TCL_OK;
-}
-
-static int tcl_timers(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int x;
-    Tcl_DString ds;
-    time_t now;
-
-    BADARGS(1, 1, "");
-
-    now = time(NULL);
-
-    Tcl_DStringInit(&ds);
-
-    for (x = 1; x < MAX_TIMERS; x++) {
-        if (timers[x].timerid) {
-            Tcl_DStringStartSublist(&ds);
-            Tcl_DStringAppendElement(&ds, myitoa((long)timers[x].timerid));
-            Tcl_DStringAppendElement(&ds, myitoa((long)timers[x].timestamp - now));
-            Tcl_DStringAppendElement(&ds, timers[x].procPtr);
-            Tcl_DStringAppendElement(&ds, myitoa((long)timers[x].seconds));
-            Tcl_DStringAppendElement(&ds, myitoa((long)timers[x].count));
-            Tcl_DStringEndSublist(&ds);
-        }
-    }
-
-    Tcl_AppendResult(interp, ds.string, NULL);
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-static int tcl_timer(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int seconds;
-    int timerid;
-    int repeat = 0;
-    int count = 0;
-    int first = 1;
-    char reply[32];
-
-    BADARGS(3, 6, " ?-repeat? ?-count times? seconds {script | procname ?args?}");
-
-    while (argc--) {
-        if (strcasecmp(argv[first], "-repeat") == 0) {
-            repeat++;
-        } else if (strcasecmp(argv[first], "-count") == 0) {
-            if (Tcl_GetInt(irp, argv[++first], &count) != TCL_OK)
-                return TCL_ERROR;
-        } else {
-            break;
-        }
-        first++;
-    }
-
-    if (repeat && !count)
-      count = -1;
-
-    if (!count)
-      count = 1;
-
-    if (Tcl_GetInt(irp, argv[first++], &seconds) != TCL_OK)
-        return TCL_ERROR;
-
-    if ((timerid = insert_timer(seconds, count, argv[first++])) == -1) {
-        Tcl_AppendResult(irp, "0", NULL);
-        return TCL_ERROR;
-    }
-
-    sprintf(reply, "%d", timerid);
-
-    Tcl_AppendResult(irp, reply, NULL);
-
-    queue_nexttimer();
-
-    return TCL_OK;
-}
-
-static int tcl_on(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int newentry;
-    char *procList;
-    Tcl_HashEntry *entry;
-    char *token;
-    int dummy;
-    Tcl_DString ds;
-    int index;
-    int count;
-    int list_argc, proc_argc;
-    int id;
-    const char **list_argv, **proc_argv;
-
-    BADARGS(4, 4, " token label {script | procname ?args?}");
-
-    id = (nextprocid++ % INT_MAX) + 1;
-
-    if (SourceInternalProc(id, "_src _dest _cmd _rest _raw _label _private", argv[3]) == TCL_ERROR) {
-        hexchat_printf(ph, "\0039Tcl plugin\003\tERROR (on %s:%s) ", argv[1], argv[2]);
-        NiceErrorInfo ();
-        return TCL_OK;
-    }
-
-    token = StrDup(argv[1], &dummy);
-    Tcl_UtfToUpper(token);
-
-    Tcl_DStringInit(&ds);
-
-    entry = Tcl_CreateHashEntry(&cmdTablePtr, token, &newentry);
-    if (!newentry) {
-        procList = Tcl_GetHashValue(entry);
-        if (Tcl_SplitList(interp, procList, &list_argc, &list_argv) == TCL_OK) {
-            for (count = 0; count < list_argc; count++) {
-                if (Tcl_SplitList(interp, list_argv[count], &proc_argc, &proc_argv) != TCL_OK)
-                    continue;
-                if (strcmp(proc_argv[0], argv[2])) {
-                    Tcl_DStringStartSublist(&ds);
-                    Tcl_DStringAppendElement(&ds, proc_argv[0]);
-                    Tcl_DStringAppendElement(&ds, proc_argv[1]);
-                    Tcl_DStringEndSublist(&ds);
-                } else {
-                    DeleteInternalProc(proc_argv[1]);
-                }
-                Tcl_Free((char *) proc_argv);
-            }
-            Tcl_Free((char *) list_argv);
-        }
-        Tcl_Free(procList);
-    }
-
-    Tcl_DStringStartSublist(&ds);
-    Tcl_DStringAppendElement(&ds, argv[2]);
-    Tcl_DStringAppendElement(&ds, InternalProcName(id));
-    Tcl_DStringEndSublist(&ds);
-
-    procList = StrDup(ds.string, &dummy);
-
-    Tcl_SetHashValue(entry, procList);
-
-    if ((strncmp(token, "XC_", 3) == 0) || (strcmp(token, "CHAT") == 0)) {
-        for (index = 0; index < XC_SIZE; index++) {
-            if (strcmp(xc[index].event, token) == 0) {
-                if (xc[index].hook == NULL) {
-                    xc[index].hook = hexchat_hook_print(ph, xc[index].emit, HEXCHAT_PRI_NORM, Print_Hook, (void *) index);
-                    break;
-                }
-            }
-        }
-    }
-
-    Tcl_Free(token);
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-static int tcl_off(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    char *procList;
-    Tcl_HashEntry *entry;
-    char *token;
-    int dummy;
-    Tcl_DString ds;
-    int index;
-    int count;
-    int list_argc, proc_argc;
-    const char **list_argv, **proc_argv;
-
-    BADARGS(2, 3, " token ?label?");
-
-    token = StrDup(argv[1], &dummy);
-    Tcl_UtfToUpper(token);
-
-    Tcl_DStringInit(&ds);
-
-    if ((entry = Tcl_FindHashEntry(&cmdTablePtr, token)) != NULL) {
-
-        procList = Tcl_GetHashValue(entry);
-
-        if (argc == 3) {
-            if (Tcl_SplitList(interp, procList, &list_argc, &list_argv) == TCL_OK) {
-                for (count = 0; count < list_argc; count++) {
-                    if (Tcl_SplitList(interp, list_argv[count], &proc_argc, &proc_argv) != TCL_OK)
-                        continue;
-                    if (strcmp(proc_argv[0], argv[2])) {
-                        Tcl_DStringStartSublist(&ds);
-                        Tcl_DStringAppendElement(&ds, proc_argv[0]);
-                        Tcl_DStringAppendElement(&ds, proc_argv[1]);
-                        Tcl_DStringEndSublist(&ds);
-                    } else
-                        DeleteInternalProc(proc_argv[1]);
-                    Tcl_Free((char *) proc_argv);
-                }
-                Tcl_Free((char *) list_argv);
-            }
-        }
-
-        Tcl_Free(procList);
-
-        if (ds.length) {
-            procList = StrDup(ds.string, &dummy);
-            Tcl_SetHashValue(entry, procList);
-        } else {
-            Tcl_DeleteHashEntry(entry);
-        }
-
-        if (!ds.length) {
-            if ((strncmp(token, "XC_", 3) == 0) || (strcmp(token, "CHAT") == 0)) {
-                for (index = 0; index < XC_SIZE; index++) {
-                    if (strcmp(xc[index].event, token) == 0) {
-                        if (xc[index].hook != NULL) {
-                            hexchat_unhook(ph, xc[index].hook);
-                            xc[index].hook = NULL;
-                            break;
-                        }
-                    }
-                }
-            }
-        }
-    }
-
-    Tcl_Free(token);
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-static int tcl_alias(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int newentry;
-    alias *aliasPtr;
-    Tcl_HashEntry *entry;
-    char *string;
-    const char *help = NULL;
-    int dummy;
-    int id;
-
-    BADARGS(3, 4, " name ?help? {script | procname ?args?}");
-
-    string = StrDup(argv[1], &dummy);
-    Tcl_UtfToUpper(string);
-
-    if (strlen(argv[argc - 1])) {
-
-        if (argc == 4)
-            help = argv[2];
-
-        id = (nextprocid++ % INT_MAX) + 1;
-
-        if (SourceInternalProc(id, "_cmd _rest", argv[argc - 1]) == TCL_ERROR) {
-            hexchat_printf(ph, "\0039Tcl plugin\003\tERROR (alias %s) ", argv[1]);
-            NiceErrorInfo ();
-            return TCL_OK;
-        }
-
-        entry = Tcl_CreateHashEntry(&aliasTablePtr, string, &newentry);
-        if (newentry) {
-            aliasPtr = (alias *) Tcl_Alloc(sizeof(alias));
-            if (string[0] == '@')
-                aliasPtr->hook = NULL;
-            else
-                aliasPtr->hook = hexchat_hook_command(ph, string, HEXCHAT_PRI_NORM, Command_Alias, help, 0);
-        } else {
-            aliasPtr = Tcl_GetHashValue(entry);
-            DeleteInternalProc(aliasPtr->procPtr);
-            Tcl_Free(aliasPtr->procPtr);
-        }
-
-        aliasPtr->procPtr = StrDup(InternalProcName(id), &dummy);
-
-        Tcl_SetHashValue(entry, aliasPtr);
-
-    } else {
-
-        if ((entry = Tcl_FindHashEntry(&aliasTablePtr, string)) != NULL) {
-            aliasPtr = Tcl_GetHashValue(entry);
-            DeleteInternalProc(aliasPtr->procPtr);
-            Tcl_Free(aliasPtr->procPtr);
-            if (aliasPtr->hook)
-                hexchat_unhook(ph, aliasPtr->hook);
-            Tcl_Free((char *) aliasPtr);
-            Tcl_DeleteHashEntry(entry);
-        }
-    }
-
-    Tcl_Free(string);
-
-    return TCL_OK;
-}
-
-static int tcl_complete(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    BADARGS(1, 2, " ?EAT_NONE|EAT_XCHAT|EAT_PLUGIN|EAT_ALL?");
-
-    if (argc == 2) {
-        if (Tcl_GetInt(irp, argv[1], &complete[complete_level].result) != TCL_OK) {
-            if (strcasecmp("EAT_NONE", argv[1]) == 0)
-                complete[complete_level].result = HEXCHAT_EAT_NONE;
-            else if (strcasecmp("EAT_XCHAT", argv[1]) == 0)
-                complete[complete_level].result = HEXCHAT_EAT_HEXCHAT;
-            else if (strcasecmp("EAT_PLUGIN", argv[1]) == 0)
-                complete[complete_level].result = HEXCHAT_EAT_PLUGIN;
-            else if (strcasecmp("EAT_ALL", argv[1]) == 0)
-                complete[complete_level].result = HEXCHAT_EAT_ALL;
-            else
-                BADARGS(1, 2, " ?EAT_NONE|EAT_XCHAT|EAT_PLUGIN|EAT_ALL?");
-        }
-    } else
-        complete[complete_level].result = complete[complete_level].defresult;
-
-    return TCL_RETURN;
-}
-
-static int tcl_command(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_context *origctx;
-    hexchat_context *ctx = NULL;
-    const char *string = NULL;
-
-    BADARGS(2, 4, " ?server|network|context? ?#channel|nick? text");
-
-    origctx = hexchat_get_context(ph);
-
-    switch (argc) {
-    case 2:
-        ctx = origctx;
-        break;
-    case 3:
-        ctx = xchat_smart_context(argv[1], NULL);
-        break;
-    case 4:
-        ctx = xchat_smart_context(argv[1], argv[2]);
-        break;
-    default:;
-    }
-
-    CHECKCTX(ctx);
-
-    string = argv[argc - 1];
-
-    if (string[0] == '/')
-        string++;
-
-    hexchat_set_context(ph, ctx);
-    hexchat_command(ph, string);
-    hexchat_set_context(ph, origctx);
-
-    return TCL_OK;
-}
-
-static int tcl_raw(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_context *origctx;
-    hexchat_context *ctx = NULL;
-    const char *string = NULL;
-
-    BADARGS(2, 4, " ?server|network|context? ?#channel|nick? text");
-
-    origctx = hexchat_get_context(ph);
-
-    switch (argc) {
-    case 2:
-        ctx = origctx;
-        break;
-    case 3:
-        ctx = xchat_smart_context(argv[1], NULL);
-        break;
-    case 4:
-        ctx = xchat_smart_context(argv[1], argv[2]);
-        break;
-    default:;
-    }
-
-    CHECKCTX(ctx);
-
-    string = argv[argc - 1];
-
-    hexchat_set_context(ph, ctx);
-    hexchat_commandf(ph, "RAW %s", string);
-    hexchat_set_context(ph, origctx);
-
-    return TCL_OK;
-}
-
-
-static int tcl_prefs(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int i;
-    const char *str;
-
-    BADARGS(2, 2, " name");
-
-    switch (hexchat_get_prefs (ph, argv[1], &str, &i)) {
-        case 1:
-            Tcl_AppendResult(irp, str, NULL);
-            break;
-        case 2:
-        case 3:
-            Tcl_AppendResult(irp, myitoa(i), NULL);
-            break;
-        default:
-            Tcl_AppendResult(irp, NULL);
-    }
-
-    return TCL_OK;
-}
-
-static int tcl_info(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[], char *id)
-{
-    char *result;
-    int max_argc;
-    hexchat_context *origctx, *ctx;
-
-    if (id == NULL) {
-        BADARGS(2, 3, " ?server|network|context? id");
-        max_argc = 3;
-    } else {
-        BADARGS(1, 2, " ?server|network|context?");
-        max_argc = 2;
-    }
-
-    origctx = hexchat_get_context(ph);
-
-    if (argc == max_argc) {
-        ctx = xchat_smart_context(argv[1], NULL);
-        CHECKCTX(ctx);
-        hexchat_set_context(ph, ctx);
-    }
-
-    if (id == NULL)
-      id = argv[argc-1];
-
-    if ((result = hexchat_get_info(ph, id)) == NULL)
-        result = "";
-
-    Tcl_AppendResult(irp, result, NULL);
-
-    hexchat_set_context(ph, origctx);
-
-    return TCL_OK;
-}
-
-static int tcl_me(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    return tcl_info(cd, irp, argc, argv, "nick");
-}
-
-static int tcl_getinfo(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    return tcl_info(cd, irp, argc, argv, NULL);
-}
-
-static int tcl_getlist(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_list *list = NULL;
-    const char *name = NULL;
-    const char * const *fields;
-    const char *field;
-    const char *sattr;
-    int iattr;
-    int i;
-    time_t t;
-    Tcl_DString ds;
-    hexchat_context *origctx;
-    hexchat_context *ctx = NULL;
-
-    origctx = hexchat_get_context(ph);
-
-    BADARGS(1, 2, " list");
-
-    Tcl_DStringInit(&ds);
-
-    fields = hexchat_list_fields(ph, "lists");
-
-    if (argc == 1) {
-        for (i = 0; fields[i] != NULL; i++) {
-            Tcl_DStringAppendElement(&ds, fields[i]);
-        }
-        goto done;
-    }
-
-    for (i = 0; fields[i] != NULL; i++) {
-        if (strcmp(fields[i], argv[1]) == 0) {
-            name = fields[i];
-            break;
-        }
-    }
-
-    if (name == NULL)
-        goto done;
-
-    list = hexchat_list_get(ph, name);
-    if (list == NULL)
-        goto done;
-
-    fields = hexchat_list_fields(ph, name);
-
-    Tcl_DStringStartSublist(&ds);
-    for (i = 0; fields[i] != NULL; i++) {
-        field = fields[i] + 1;
-        Tcl_DStringAppendElement(&ds, field);
-    }
-    Tcl_DStringEndSublist(&ds);
-
-    while (hexchat_list_next(ph, list)) {
-
-        Tcl_DStringStartSublist(&ds);
-
-        for (i = 0; fields[i] != NULL; i++) {
-
-            field = fields[i] + 1;
-
-            switch (fields[i][0]) {
-            case 's':
-                sattr = hexchat_list_str(ph, list, (char *) field);
-                Tcl_DStringAppendElement(&ds, sattr);
-                break;
-            case 'i':
-                iattr = hexchat_list_int(ph, list, (char *) field);
-                Tcl_DStringAppendElement(&ds, myitoa((long)iattr));
-                break;
-            case 't':
-                t = hexchat_list_time(ph, list, (char *) field);
-                Tcl_DStringAppendElement(&ds, myitoa((long)t));
-                break;
-            case 'p':
-                sattr = hexchat_list_str(ph, list, (char *) field);
-                if (strcmp(field, "context") == 0) {
-                    ctx = (hexchat_context *) sattr;
-                    Tcl_DStringAppendElement(&ds, myitoa((long)ctx));
-                } else
-                    Tcl_DStringAppendElement(&ds, "*");
-                break;
-            default:
-                Tcl_DStringAppendElement(&ds, "*");
-                break;
-            }
-        }
-
-        Tcl_DStringEndSublist(&ds);
-
-    }
-
-    hexchat_list_free(ph, list);
-
-  done:
-
-    hexchat_set_context(ph, origctx);
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-/*
- * tcl_xchat_puts - stub for tcl puts command
- * This is modified from the original internal "puts" command.  It redirects
- * stdout to the current context, while still allowing all normal puts features
- */
-
-static int tcl_xchat_puts(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    Tcl_Channel chan;
-    const char *string;
-    int newline;
-    const char *channelId = NULL;
-    int result;
-    int mode;
-    int trap_stdout = 0;
-
-    switch (argc) {
-
-    case 2:
-        string = argv[1];
-        newline = 1;
-        trap_stdout = 1;
-        break;
-
-    case 3:
-        if (strcmp(argv[1], "-nonewline") == 0) {
-            newline = 0;
-            trap_stdout = 1;
-        } else {
-            newline = 1;
-            channelId = argv[1];
-        }
-        string = argv[2];
-        break;
-
-    case 4:
-        if (strcmp(argv[1], "-nonewline") == 0) {
-            channelId = argv[2];
-            string = argv[3];
-        } else {
-            if (strcmp(argv[3], "nonewline") != 0) {
-                Tcl_AppendResult(interp, "bad argument \"", argv[3], "\": should be \"nonewline\"", (char *) NULL);
-                return TCL_ERROR;
-            }
-            channelId = argv[1];
-            string = argv[2];
-        }
-        newline = 0;
-        break;
-
-    default:
-        Tcl_AppendResult(interp, argv, "?-nonewline? ?channelId? string", NULL);
-        return TCL_ERROR;
-    }
-
-    if (!trap_stdout && (strcmp(channelId, "stdout") == 0))
-        trap_stdout = 1;
-
-    if (trap_stdout) {
-        if (newline)
-            hexchat_printf(ph, "%s\n", string);
-        else
-            hexchat_print(ph, string);
-        return TCL_OK;
-    }
-
-    chan = Tcl_GetChannel(interp, channelId, &mode);
-    if (chan == (Tcl_Channel) NULL) {
-        return TCL_ERROR;
-    }
-    if ((mode & TCL_WRITABLE) == 0) {
-        Tcl_AppendResult(interp, "channel \"", channelId, "\" wasn't opened for writing", (char *) NULL);
-        return TCL_ERROR;
-    }
-
-    result = Tcl_Write(chan, string, strlen(string));
-    if (result < 0) {
-        goto error;
-    }
-    if (newline != 0) {
-        result = Tcl_WriteChars(chan, "\n", 1);
-        if (result < 0) {
-            goto error;
-        }
-    }
-    return TCL_OK;
-
-  error:
-    Tcl_AppendResult(interp, "error writing \"", channelId, "\": ", Tcl_PosixError(interp), (char *) NULL);
-
-    return TCL_ERROR;
-}
-
-static int tcl_print(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_context *origctx;
-    hexchat_context *ctx = NULL;
-    const char *string = NULL;
-
-    BADARGS(2, 4, " ?server|network|context? ?#channel|nick? text");
-
-    origctx = hexchat_get_context(ph);
-
-    switch (argc) {
-    case 2:
-        ctx = origctx;
-        break;
-    case 3:
-        ctx = xchat_smart_context(argv[1], NULL);
-        break;
-    case 4:
-        ctx = xchat_smart_context(argv[1], argv[2]);
-        break;
-    default:;
-    }
-
-    CHECKCTX(ctx);
-
-    string = argv[argc - 1];
-
-    hexchat_set_context(ph, ctx);
-    hexchat_print(ph, string);
-    hexchat_set_context(ph, origctx);
-
-    return TCL_OK;
-}
-
-static int tcl_setcontext(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_context *ctx = NULL;
-
-    BADARGS(2, 2, " context");
-
-    ctx = xchat_smart_context(argv[1], NULL);
-
-    CHECKCTX(ctx);
-
-    hexchat_set_context(ph, ctx);
-
-    return TCL_OK;
-}
-
-static int tcl_findcontext(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_context *ctx = NULL;
-
-    BADARGS(1, 3, " ?server|network|context? ?channel?");
-
-    switch (argc) {
-    case 1:
-        ctx = hexchat_find_context(ph, NULL, NULL);
-        break;
-    case 2:
-        ctx = xchat_smart_context(argv[1], NULL);
-        break;
-    case 3:
-        ctx = xchat_smart_context(argv[1], argv[2]);
-        break;
-    default:;
-    }
-
-    CHECKCTX(ctx);
-
-    Tcl_AppendResult(irp, myitoa((long)ctx), NULL);
-
-    return TCL_OK;
-}
-
-static int tcl_getcontext(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_context *ctx = NULL;
-
-    BADARGS(1, 1, "");
-
-    ctx = hexchat_get_context(ph);
-
-    Tcl_AppendResult(irp, myitoa((long)ctx), NULL);
-
-    return TCL_OK;
-}
-
-static int tcl_channels(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    const char *server, *channel;
-    hexchat_list *list;
-    Tcl_DString ds;
-    hexchat_context *origctx;
-    hexchat_context *ctx;
-
-    origctx = hexchat_get_context(ph);
-
-    BADARGS(1, 2, " ?server|network|context?");
-
-    if (argc == 2) {
-        ctx = xchat_smart_context(argv[1], NULL);
-        CHECKCTX(ctx);
-        hexchat_set_context(ph, ctx);
-    }
-
-    server = (char *) hexchat_get_info(ph, "server");
-
-    Tcl_DStringInit(&ds);
-
-    list = hexchat_list_get(ph, "channels");
-
-    if (list != NULL) {
-        while (hexchat_list_next(ph, list)) {
-            if (hexchat_list_int(ph, list, "type") != 2)
-                continue;
-            if (strcasecmp(server, hexchat_list_str(ph, list, "server")) != 0)
-                continue;
-            channel = hexchat_list_str(ph, list, "channel");
-            Tcl_DStringAppendElement(&ds, channel);
-        }
-        hexchat_list_free(ph, list);
-    }
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    hexchat_set_context(ph, origctx);
-
-    return TCL_OK;
-}
-
-static int tcl_servers(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    const char *server;
-    hexchat_list *list;
-    Tcl_DString ds;
-
-    BADARGS(1, 1, "");
-
-    Tcl_DStringInit(&ds);
-
-    list = hexchat_list_get(ph, "channels");
-
-    if (list != NULL) {
-        while (hexchat_list_next(ph, list)) {
-            if (hexchat_list_int(ph, list, "type") == 1) {
-                server = hexchat_list_str(ph, list, "server");
-                Tcl_DStringAppendElement(&ds, server);
-            }
-        }
-        hexchat_list_free(ph, list);
-    }
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-static int tcl_queries(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    const char *server, *channel;
-    hexchat_list *list;
-    Tcl_DString ds;
-    hexchat_context *origctx;
-    hexchat_context *ctx;
-
-    origctx = hexchat_get_context(ph);
-
-    BADARGS(1, 2, " ?server|network|context?");
-
-    if (argc == 2) {
-        ctx = xchat_smart_context(argv[1], NULL);
-        CHECKCTX(ctx);
-        hexchat_set_context(ph, ctx);
-    }
-
-    server = (char *) hexchat_get_info(ph, "server");
-
-    Tcl_DStringInit(&ds);
-
-    list = hexchat_list_get(ph, "channels");
-
-    if (list != NULL) {
-        while (hexchat_list_next(ph, list)) {
-            if (hexchat_list_int(ph, list, "type") != 3)
-                continue;
-            if (strcasecmp(server, hexchat_list_str(ph, list, "server")) != 0)
-                continue;
-            channel = hexchat_list_str(ph, list, "channel");
-            Tcl_DStringAppendElement(&ds, channel);
-        }
-        hexchat_list_free(ph, list);
-    }
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    hexchat_set_context(ph, origctx);
-
-    return TCL_OK;
-}
-
-static int tcl_users(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_context *origctx, *ctx = NULL;
-    hexchat_list *list;
-    Tcl_DString ds;
-
-    BADARGS(1, 3, " ?server|network|context? ?channel?");
-
-    origctx = hexchat_get_context(ph);
-
-    switch (argc) {
-    case 1:
-        ctx = origctx;
-        break;
-    case 2:
-        ctx = xchat_smart_context(argv[1], NULL);
-        break;
-    case 3:
-        ctx = xchat_smart_context(argv[1], argv[2]);
-        break;
-    default:;
-    }
-
-    CHECKCTX(ctx);
-
-    hexchat_set_context(ph, ctx);
-
-    Tcl_DStringInit(&ds);
-
-    list = hexchat_list_get(ph, "users");
-
-    if (list != NULL) {
-
-        Tcl_DStringStartSublist(&ds);
-        Tcl_DStringAppendElement(&ds, "nick");
-        Tcl_DStringAppendElement(&ds, "host");
-        Tcl_DStringAppendElement(&ds, "prefix");
-        Tcl_DStringAppendElement(&ds, "away");
-        Tcl_DStringAppendElement(&ds, "lasttalk");
-        Tcl_DStringAppendElement(&ds, "selected");
-        Tcl_DStringEndSublist(&ds);
-
-        while (hexchat_list_next(ph, list)) {
-            Tcl_DStringStartSublist(&ds);
-            Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "nick"));
-            Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "host"));
-            Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "prefix"));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_int(ph, list, "away")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_time(ph, list, "lasttalk")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_int(ph, list, "selected")));
-            Tcl_DStringEndSublist(&ds);
-        }
-
-        hexchat_list_free(ph, list);
-    }
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    hexchat_set_context(ph, origctx);
-
-    return TCL_OK;
-}
-
-static int tcl_notifylist(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_list *list;
-    Tcl_DString ds;
-
-    BADARGS(1, 1, "");
-
-    Tcl_DStringInit(&ds);
-
-    list = hexchat_list_get(ph, "notify");
-
-    if (list != NULL) {
-
-        Tcl_DStringStartSublist(&ds);
-        Tcl_DStringAppendElement(&ds, "nick");
-        Tcl_DStringAppendElement(&ds, "flags");
-        Tcl_DStringAppendElement(&ds, "on");
-        Tcl_DStringAppendElement(&ds, "off");
-        Tcl_DStringAppendElement(&ds, "seen");
-        Tcl_DStringAppendElement(&ds, "networks");
-        Tcl_DStringEndSublist(&ds);
-
-        while (hexchat_list_next(ph, list)) {
-            Tcl_DStringStartSublist(&ds);
-            Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "nick"));
-            Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "flags"));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_time(ph, list, "on")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_time(ph, list, "off")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_time(ph, list, "seen")));
-            Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "networks"));
-            Tcl_DStringEndSublist(&ds);
-        }
-
-        hexchat_list_free(ph, list);
-
-    }
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-static int tcl_chats(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_list *list;
-    Tcl_DString ds;
-
-    BADARGS(1, 1, "");
-
-    Tcl_DStringInit(&ds);
-
-    list = hexchat_list_get(ph, "dcc");
-
-    if (list != NULL) {
-        while (hexchat_list_next(ph, list)) {
-            switch (hexchat_list_int(ph, list, "type")) {
-            case 2:
-            case 3:
-                if (hexchat_list_int(ph, list, "status") == 1)
-                    Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "nick"));
-                break;
-            }
-        }
-        hexchat_list_free(ph, list);
-    }
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-static int tcl_ignores(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_list *list;
-    Tcl_DString ds;
-    int flags;
-
-    BADARGS(1, 1, "");
-
-    Tcl_DStringInit(&ds);
-
-    list = hexchat_list_get(ph, "ignore");
-
-    if (list != NULL) {
-
-        while (hexchat_list_next(ph, list)) {
-            Tcl_DStringStartSublist(&ds);
-            Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "mask"));
-            Tcl_DStringStartSublist(&ds);
-            flags = hexchat_list_int(ph, list, "flags");
-            if (flags & 1)
-                Tcl_DStringAppendElement(&ds, "PRIVMSG");
-            if (flags & 2)
-                Tcl_DStringAppendElement(&ds, "NOTICE");
-            if (flags & 4)
-                Tcl_DStringAppendElement(&ds, "CHANNEL");
-            if (flags & 8)
-                Tcl_DStringAppendElement(&ds, "CTCP");
-            if (flags & 16)
-                Tcl_DStringAppendElement(&ds, "INVITE");
-            if (flags & 32)
-                Tcl_DStringAppendElement(&ds, "UNIGNORE");
-            if (flags & 64)
-                Tcl_DStringAppendElement(&ds, "NOSAVE");
-            Tcl_DStringEndSublist(&ds);
-            Tcl_DStringEndSublist(&ds);
-        }
-        hexchat_list_free(ph, list);
-    }
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-static int tcl_dcclist(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_list *list;
-    Tcl_DString ds;
-    int dcctype;
-
-    BADARGS(1, 1, "");
-
-    Tcl_DStringInit(&ds);
-
-    list = hexchat_list_get(ph, "dcc");
-
-    if (list != NULL) {
-
-        while (hexchat_list_next(ph, list)) {
-            Tcl_DStringStartSublist(&ds);
-            dcctype = hexchat_list_int(ph, list, "type");
-            switch (dcctype) {
-            case 0:
-                Tcl_DStringAppendElement(&ds, "filesend");
-                break;
-            case 1:
-                Tcl_DStringAppendElement(&ds, "filerecv");
-                break;
-            case 2:
-                Tcl_DStringAppendElement(&ds, "chatrecv");
-                break;
-            case 3:
-                Tcl_DStringAppendElement(&ds, "chatsend");
-                break;
-            }
-            switch (hexchat_list_int(ph, list, "status")) {
-            case 0:
-                Tcl_DStringAppendElement(&ds, "queued");
-                break;
-            case 1:
-                Tcl_DStringAppendElement(&ds, "active");
-                break;
-            case 2:
-                Tcl_DStringAppendElement(&ds, "failed");
-                break;
-            case 3:
-                Tcl_DStringAppendElement(&ds, "done");
-                break;
-            case 4:
-                Tcl_DStringAppendElement(&ds, "connecting");
-                break;
-            case 5:
-                Tcl_DStringAppendElement(&ds, "aborted");
-                break;
-            }
-
-            Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "nick"));
-
-            switch (dcctype) {
-            case 0:
-                Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "file"));
-                break;
-            case 1:
-                Tcl_DStringAppendElement(&ds, (const char *) hexchat_list_str(ph, list, "destfile"));
-                break;
-            }
-
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_int(ph, list, "size")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_int(ph, list, "resume")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_int(ph, list, "pos")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_int(ph, list, "cps")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_int(ph, list, "address32")));
-            Tcl_DStringAppendElement(&ds, myitoa((long)hexchat_list_int(ph, list, "port")));
-            Tcl_DStringEndSublist(&ds);
-        }
-        hexchat_list_free(ph, list);
-    }
-
-    Tcl_AppendResult(irp, ds.string, NULL);
-
-    Tcl_DStringFree(&ds);
-
-    return TCL_OK;
-}
-
-
-static int tcl_strip(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    char *new_text;
-    int flags = 1 | 2;
-
-    BADARGS(2, 3, " text ?flags?");
-
-    if (argc == 3) {
-        if (Tcl_GetInt(irp, argv[2], &flags) != TCL_OK)
-            return TCL_ERROR;
-    }
-
-    new_text = hexchat_strip(ph, argv[1], -1, flags);
-
-    if(new_text) {
-        Tcl_AppendResult(irp, new_text, NULL);
-        hexchat_free(ph, new_text);
-    }
-
-    return TCL_OK;
-}
-
-static int tcl_topic(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    hexchat_context *origctx, *ctx = NULL;
-    BADARGS(1, 3, " ?server|network|context? ?channel?");
-
-    origctx = hexchat_get_context(ph);
-
-    switch (argc) {
-    case 1:
-        ctx = origctx;
-        break;
-    case 2:
-        ctx = xchat_smart_context(argv[1], NULL);
-        break;
-    case 3:
-        ctx = xchat_smart_context(argv[1], argv[2]);
-        break;
-    default:;
-    }
-
-    CHECKCTX(ctx);
-
-    hexchat_set_context(ph, ctx);
-    Tcl_AppendResult(irp, hexchat_get_info(ph, "topic"), NULL);
-    hexchat_set_context(ph, origctx);
-
-    return TCL_OK;
-}
-
-static int tcl_hexchat_nickcmp(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    BADARGS(3, 3, " string1 string2");
-    Tcl_AppendResult(irp, myitoa((long)hexchat_nickcmp(ph, argv[1], argv[2])), NULL);
-    return TCL_OK;
-}
-
-static int tcl_word(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int index;
-
-    BADARGS(2, 2, " index");
-
-    if (Tcl_GetInt(irp, argv[1], &index) != TCL_OK)
-        return TCL_ERROR;
-
-    if (!index || (index > 31))
-        Tcl_AppendResult(interp, "", NULL);
-    else
-        Tcl_AppendResult(interp, complete[complete_level].word[index], NULL);
-
-    return TCL_OK;
-}
-
-static int tcl_word_eol(ClientData cd, Tcl_Interp * irp, int argc, const char *argv[])
-{
-    int index;
-
-    BADARGS(2, 2, " index");
-
-    if (Tcl_GetInt(irp, argv[1], &index) != TCL_OK)
-        return TCL_ERROR;
-
-    if (!index || (index > 31))
-        Tcl_AppendResult(interp, "", NULL);
-    else
-        Tcl_AppendResult(interp, complete[complete_level].word_eol[index], NULL);
-
-    return TCL_OK;
-}
-
-static int Command_Alias(char *word[], char *word_eol[], void *userdata)
-{
-    alias *aliasPtr;
-    Tcl_HashEntry *entry;
-    hexchat_context *origctx;
-    int dummy;
-    char *string;
-
-    if (complete_level == MAX_COMPLETES)
-        return HEXCHAT_EAT_NONE;
-
-    complete_level++;
-    complete[complete_level].defresult = HEXCHAT_EAT_ALL;
-    complete[complete_level].result = HEXCHAT_EAT_NONE;
-    complete[complete_level].word = word;
-	complete[complete_level].word_eol = word_eol;
-
-    string = StrDup(word[1], &dummy);
-
-    Tcl_UtfToUpper(string);
-
-    if ((entry = Tcl_FindHashEntry(&aliasTablePtr, string)) != NULL) {
-        aliasPtr = Tcl_GetHashValue(entry);
-        origctx = hexchat_get_context(ph);
-        if (EvalInternalProc(aliasPtr->procPtr, 2, string, word_eol[2]) == TCL_ERROR) {
-            hexchat_printf(ph, "\0039Tcl plugin\003\tERROR (alias %s) ", string);
-            NiceErrorInfo ();
-        }
-        hexchat_set_context(ph, origctx);
-    }
-
-    Tcl_Free(string);
-
-    return complete[complete_level--].result;
-}
-
-static int Null_Command_Alias(char *word[], char *word_eol[], void *userdata)
-{
-    alias *aliasPtr;
-    Tcl_HashEntry *entry;
-    hexchat_context *origctx;
-    int dummy;
-    const char *channel;
-    char *string;
-    Tcl_DString ds;
-    static int recurse = 0;
-
-    if (recurse)
-        return HEXCHAT_EAT_NONE;
-
-    if (complete_level == MAX_COMPLETES)
-        return HEXCHAT_EAT_NONE;
-
-    complete_level++;
-    complete[complete_level].defresult = HEXCHAT_EAT_ALL;
-    complete[complete_level].result = HEXCHAT_EAT_NONE;
-    complete[complete_level].word = word;
-	complete[complete_level].word_eol = word_eol;
-
-    recurse++;
-
-    channel = hexchat_get_info(ph, "channel");
-    Tcl_DStringInit(&ds);
-    Tcl_DStringAppend(&ds, "@", 1);
-    Tcl_DStringAppend(&ds, channel, strlen(channel));
-    string = StrDup(ds.string, &dummy);
-    Tcl_DStringFree(&ds);
-
-    Tcl_UtfToUpper(string);
-
-    if ((entry = Tcl_FindHashEntry(&aliasTablePtr, string)) != NULL) {
-        aliasPtr = Tcl_GetHashValue(entry);
-        origctx = hexchat_get_context(ph);
-        if (EvalInternalProc(aliasPtr->procPtr, 2, string, word_eol[1]) == TCL_ERROR) {
-            hexchat_printf(ph, "\0039Tcl plugin\003\tERROR (alias %s) ", string);
-            NiceErrorInfo ();
-        }
-        hexchat_set_context(ph, origctx);
-    }
-
-    Tcl_Free(string);
-
-    recurse--;
-
-    return complete[complete_level--].result;
-}
-
-static int Command_TCL(char *word[], char *word_eol[], void *userdata)
-{
-    const char *errorInfo;
-
-    complete_level++;
-    complete[complete_level].word = word;
-    complete[complete_level].word_eol = word_eol;
-
-    if (Tcl_Eval(interp, word_eol[2]) == TCL_ERROR) {
-        errorInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
-        hexchat_printf(ph, "\0039Tcl plugin\003\tERROR: %s ", errorInfo);
-    } else
-        hexchat_printf(ph, "\0039Tcl plugin\003\tRESULT: %s ", Tcl_GetStringResult(interp));
-
-    complete_level--;
-
-    return HEXCHAT_EAT_ALL;
-}
-
-static int Command_Source(char *word[], char *word_eol[], void *userdata)
-{
-    const char *hexchatdir;
-    Tcl_DString ds;
-    struct stat dummy;
-    int len;
-    const char *errorInfo;
-
-    if (!strlen(word_eol[2]))
-        return HEXCHAT_EAT_NONE;
-
-    complete_level++;
-    complete[complete_level].word = word;
-    complete[complete_level].word_eol = word_eol;
-
-    len = strlen(word[2]);
-
-    if (len > 4 && strcasecmp(".tcl", word[2] + len - 4) == 0) {
-
-        hexchatdir = hexchat_get_info(ph, "configdir");
-
-        Tcl_DStringInit(&ds);
-
-        if (stat(word_eol[2], &dummy) == 0) {
-            Tcl_DStringAppend(&ds, word_eol[2], strlen(word_eol[2]));
-        } else {
-            if (!strchr(word_eol[2], '/')) {
-                Tcl_DStringAppend(&ds, hexchatdir, strlen(hexchatdir));
-                Tcl_DStringAppend(&ds, "/addons/", 8);
-                Tcl_DStringAppend(&ds, word_eol[2], strlen(word_eol[2]));
-            }
-        }
-
-        if (Tcl_EvalFile(interp, ds.string) == TCL_ERROR) {
-            errorInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
-            hexchat_printf(ph, "\0039Tcl plugin\003\tERROR: %s ", errorInfo);
-        } else
-            hexchat_printf(ph, "\0039Tcl plugin\003\tSourced %s\n", ds.string);
-
-        Tcl_DStringFree(&ds);
-
-        complete_level--;
-
-        return HEXCHAT_EAT_HEXCHAT;
-
-    } else {
-        complete_level--;
-        return HEXCHAT_EAT_NONE;
-    }
-
-}
-
-static int Command_Reloadall(char *word[], char *word_eol[], void *userdata)
-{
-    Tcl_Plugin_DeInit();
-    Tcl_Plugin_Init();
-
-    hexchat_print(ph, "\0039Tcl plugin\003\tRehashed\n");
-
-    return HEXCHAT_EAT_ALL;
-}
-
-static int TCL_Event_Handler(void *userdata)
-{
-    Tcl_DoOneEvent(TCL_DONT_WAIT);
-    do_timer();
-    return 1;
-}
-
-static void Tcl_Plugin_Init()
-{
-    int x;
-    const char *hexchatdir;
-
-    interp = Tcl_CreateInterp();
-
-    Tcl_FindExecutable(NULL);
-
-    Tcl_Init(interp);
-
-    nextprocid = 0x1000;
-
-    Tcl_CreateCommand(interp, "alias", tcl_alias, NULL, NULL);
-    Tcl_CreateCommand(interp, "channels", tcl_channels, NULL, NULL);
-    Tcl_CreateCommand(interp, "chats", tcl_chats, NULL, NULL);
-    Tcl_CreateCommand(interp, "command", tcl_command, NULL, NULL);
-    Tcl_CreateCommand(interp, "complete", tcl_complete, NULL, NULL);
-    Tcl_CreateCommand(interp, "dcclist", tcl_dcclist, NULL, NULL);
-    Tcl_CreateCommand(interp, "notifylist", tcl_notifylist, NULL, NULL);
-    Tcl_CreateCommand(interp, "findcontext", tcl_findcontext, NULL, NULL);
-    Tcl_CreateCommand(interp, "getcontext", tcl_getcontext, NULL, NULL);
-    Tcl_CreateCommand(interp, "getinfo", tcl_getinfo, NULL, NULL);
-    Tcl_CreateCommand(interp, "getlist", tcl_getlist, NULL, NULL);
-    Tcl_CreateCommand(interp, "ignores", tcl_ignores, NULL, NULL);
-    Tcl_CreateCommand(interp, "killtimer", tcl_killtimer, NULL, NULL);
-    Tcl_CreateCommand(interp, "me", tcl_me, NULL, NULL);
-    Tcl_CreateCommand(interp, "on", tcl_on, NULL, NULL);
-    Tcl_CreateCommand(interp, "off", tcl_off, NULL, NULL);
-    Tcl_CreateCommand(interp, "nickcmp", tcl_hexchat_nickcmp, NULL, NULL);
-    Tcl_CreateCommand(interp, "print", tcl_print, NULL, NULL);
-    Tcl_CreateCommand(interp, "prefs", tcl_prefs, NULL, NULL);
-    Tcl_CreateCommand(interp, "::puts", tcl_xchat_puts, NULL, NULL);
-    Tcl_CreateCommand(interp, "queries", tcl_queries, NULL, NULL);
-    Tcl_CreateCommand(interp, "raw", tcl_raw, NULL, NULL);
-    Tcl_CreateCommand(interp, "servers", tcl_servers, NULL, NULL);
-    Tcl_CreateCommand(interp, "setcontext", tcl_setcontext, NULL, NULL);
-    Tcl_CreateCommand(interp, "strip", tcl_strip, NULL, NULL);
-    Tcl_CreateCommand(interp, "timer", tcl_timer, NULL, NULL);
-    Tcl_CreateCommand(interp, "timerexists", tcl_timerexists, NULL, NULL);
-    Tcl_CreateCommand(interp, "timers", tcl_timers, NULL, NULL);
-    Tcl_CreateCommand(interp, "topic", tcl_topic, NULL, NULL);
-    Tcl_CreateCommand(interp, "users", tcl_users, NULL, NULL);
-    Tcl_CreateCommand(interp, "word", tcl_word, NULL, NULL);
-    Tcl_CreateCommand(interp, "word_eol", tcl_word_eol, NULL, NULL);
-
-    Tcl_InitHashTable(&cmdTablePtr, TCL_STRING_KEYS);
-    Tcl_InitHashTable(&aliasTablePtr, TCL_STRING_KEYS);
-
-    bzero(timers, sizeof(timers));
-    nexttimerid = 0;
-    nexttimerindex = 0;
-
-    for (x = 0; x < XC_SIZE; x++)
-        xc[x].hook = NULL;
-
-    hexchatdir = hexchat_get_info(ph, "configdir");
-
-    if (Tcl_Eval(interp, unknown) == TCL_ERROR) {
-        hexchat_printf(ph, "Error sourcing internal 'unknown' (%s)\n", Tcl_GetStringResult(interp));
-    }
-
-    if (Tcl_Eval(interp, inlinetcl) == TCL_ERROR) {
-        hexchat_printf(ph, "Error sourcing internal 'inlinetcl' (%s)\n", Tcl_GetStringResult(interp));
-    }
-
-    if (Tcl_Eval(interp, sourcedirs) == TCL_ERROR) {
-        hexchat_printf(ph, "Error sourcing internal 'sourcedirs' (%s)\n", Tcl_GetStringResult(interp));
-    }
-
-}
-
-static void Tcl_Plugin_DeInit()
-{
-    int x;
-    char *procPtr;
-    alias *aliasPtr;
-    Tcl_HashEntry *entry;
-    Tcl_HashSearch search;
-
-    /* Be sure to free all the memory for ON and ALIAS entries */
-
-    entry = Tcl_FirstHashEntry(&cmdTablePtr, &search);
-    while (entry != NULL) {
-        procPtr = Tcl_GetHashValue(entry);
-        Tcl_Free(procPtr);
-        entry = Tcl_NextHashEntry(&search);
-    }
-
-    Tcl_DeleteHashTable(&cmdTablePtr);
-
-    entry = Tcl_FirstHashEntry(&aliasTablePtr, &search);
-    while (entry != NULL) {
-        aliasPtr = Tcl_GetHashValue(entry);
-        Tcl_Free(aliasPtr->procPtr);
-        if (aliasPtr->hook)
-            hexchat_unhook(ph, aliasPtr->hook);
-        Tcl_Free((char *) aliasPtr);
-        entry = Tcl_NextHashEntry(&search);
-    }
-
-    Tcl_DeleteHashTable(&aliasTablePtr);
-
-    for (x = 1; x < MAX_TIMERS; x++) {
-        if (timers[x].timerid) {
-            timers[x].timerid = 0;
-            if (timers[x].procPtr != NULL)
-                Tcl_Free(timers[x].procPtr);
-            timers[x].procPtr = NULL;
-            break;
-        }
-    }
-
-    for (x = 0; x < XC_SIZE; x++) {
-        if (xc[x].hook != NULL) {
-            hexchat_unhook(ph, xc[x].hook);
-            xc[x].hook = NULL;
-        }
-    }
-
-    Tcl_DeleteInterp(interp);
-}
-
-static void banner()
-{
-#if 0
-    hexchat_printf(ph, "Tcl plugin for HexChat - Version %s\n", VERSION);
-    hexchat_print(ph, "Copyright 2002-2012 Daniel P. Stasinski\n");
-    hexchat_print(ph, "http://www.scriptkitties.com/tclplugin/\n");
-#endif
-}
-
-int hexchat_plugin_init(hexchat_plugin * plugin_handle, char **plugin_name, char **plugin_desc, char **plugin_version, char *arg)
-{
-#ifdef WIN32
-    HINSTANCE lib;
-#endif
-
-    strncpy(VERSION, &RCSID[19], 5);
-
-    ph = plugin_handle;
-
-#ifdef WIN32
-    lib = LoadLibraryA(TCL_DLL);
-    if (!lib) {
-        hexchat_print(ph, "You must have ActiveTCL 8.5 installed in order to run Tcl scripts.\n" "http://www.activestate.com/activetcl/downloads\n" "Make sure Tcl's bin directory is in your PATH.\n");
-        return 0;
-    }
-    FreeLibrary(lib);
-#endif
-
-    if (initialized != 0) {
-        banner();
-        hexchat_print(ph, "Tcl interface already loaded");
-        reinit_tried++;
-        return 0;
-    }
-    initialized = 1;
-
-    *plugin_name = "Tcl";
-    *plugin_desc = "Tcl scripting interface";
-    *plugin_version = VERSION;
-
-    Tcl_Plugin_Init();
-
-    raw_line_hook = hexchat_hook_server(ph, "RAW LINE", HEXCHAT_PRI_NORM, Server_raw_line, NULL);
-    Command_TCL_hook = hexchat_hook_command(ph, "tcl", HEXCHAT_PRI_NORM, Command_TCL, 0, 0);
-    Command_Source_hook = hexchat_hook_command(ph, "source", HEXCHAT_PRI_NORM, Command_Source, 0, 0);
-    Command_Reload_hook = hexchat_hook_command(ph, "reloadall", HEXCHAT_PRI_NORM, Command_Reloadall, 0, 0);
-    Command_Load_hook = hexchat_hook_command(ph, "LOAD", HEXCHAT_PRI_NORM, Command_Source, 0, 0);
-    Event_Handler_hook = hexchat_hook_timer(ph, 100, TCL_Event_Handler, 0);
-    Null_Command_hook = hexchat_hook_command(ph, "", HEXCHAT_PRI_NORM, Null_Command_Alias, "", 0);
-
-    banner();
-    hexchat_print(ph, "Tcl interface loaded\n");
-
-    return 1;                   /* return 1 for success */
-}
-
-int hexchat_plugin_deinit()
-{
-    if (reinit_tried) {
-        reinit_tried--;
-        return 1;
-    }
-
-    hexchat_unhook(ph, raw_line_hook);
-    hexchat_unhook(ph, Command_TCL_hook);
-    hexchat_unhook(ph, Command_Source_hook);
-    hexchat_unhook(ph, Command_Reload_hook);
-    hexchat_unhook(ph, Command_Load_hook);
-    hexchat_unhook(ph, Event_Handler_hook);
-    hexchat_unhook(ph, Null_Command_hook);
-
-    Tcl_Plugin_DeInit();
-
-    hexchat_print(ph, "Tcl interface unloaded\n");
-    initialized = 0;
-
-    return 1;
-}
-
-void hexchat_plugin_get_info(char **name, char **desc, char **version, void **reserved)
-{
-   strncpy(VERSION, &RCSID[19], 5);
-   *name = "tclplugin";
-   *desc = "Tcl plugin for HexChat";
-   *version = VERSION;
-   if (reserved)
-      *reserved = NULL;
-}
-