diff options
Diffstat (limited to 'plugins/tcl/tclplugin.c')
-rw-r--r-- | plugins/tcl/tclplugin.c | 2294 |
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; -} - |