[cvslog] (2006-11-20 13:26:13 UTC) Module eggdrop1.7: Change committed!

cvslog cvs at tsss.org
Mon Nov 20 07:26:14 CST 2006


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.7
Commit time: 2006-11-20 13:26:12 UTC
Commited by: Tothwolf <tothwolf at techmonkeys.org>

Modified files:
     src/dns.c src/help.c src/language.c src/logfile.c src/tcldcc.c
     src/tclegg.h src/tclhash.c src/tclmisc.c src/tcluser.c
     src/traffic.c src/mod/assoc.mod/assoc.c
     src/mod/blowfish.mod/blowfish.c src/mod/channels.mod/tclchan.c
     src/mod/compress.mod/tclcompress.c src/mod/filesys.mod/filesys.c
     src/mod/filesys.mod/tclfiles.c src/mod/irc.mod/irc.c
     src/mod/irc.mod/tclirc.c src/mod/notes.mod/notes.c
     src/mod/server.mod/server.c src/mod/server.mod/tclserv.c
     src/mod/transfer.mod/tcltransfer.c
     src/mod/transfer.mod/transfer.c

Log message:

* Removed STDVAR macro.

---------------------- diff included ----------------------
Index: eggdrop1.7/src/dns.c
diff -u eggdrop1.7/src/dns.c:1.9 eggdrop1.7/src/dns.c:1.10
--- eggdrop1.7/src/dns.c:1.9	Sun Jul 31 00:51:06 2005
+++ eggdrop1.7/src/dns.c	Mon Nov 20 07:26:01 2006
@@ -18,7 +18,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  *
- * $Id: dns.c,v 1.9 2005-07-31 05:51:06 wcc Exp $
+ * $Id: dns.c,v 1.10 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -512,7 +512,8 @@
  */
 
 /* dnslookup <ip-address> <proc> */
-static int tcl_dnslookup STDVAR
+static int tcl_dnslookup(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct in_addr inaddr;
   Tcl_DString paras;
Index: eggdrop1.7/src/help.c
diff -u eggdrop1.7/src/help.c:1.5 eggdrop1.7/src/help.c:1.6
--- eggdrop1.7/src/help.c:1.5	Sat Jul 30 21:57:54 2005
+++ eggdrop1.7/src/help.c	Mon Nov 20 07:26:01 2006
@@ -16,7 +16,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  *
- * $Id: help.c,v 1.5 2005-07-31 02:57:54 wcc Exp $
+ * $Id: help.c,v 1.6 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -689,7 +689,8 @@
   reload_help_data();
 }
 
-static int tcl_loadhelp STDVAR
+static int tcl_loadhelp(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   BADARGS(2, 2, " helpfile");
 
@@ -697,7 +698,8 @@
   return TCL_OK;
 }
 
-static int tcl_unloadhelp STDVAR
+static int tcl_unloadhelp(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   BADARGS(2, 2, " helpfile");
 
@@ -705,7 +707,8 @@
   return TCL_OK;
 }
 
-static int tcl_reloadhelp STDVAR
+static int tcl_reloadhelp(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   BADARGS(1, 1, "");
 
Index: eggdrop1.7/src/language.c
diff -u eggdrop1.7/src/language.c:1.7 eggdrop1.7/src/language.c:1.8
--- eggdrop1.7/src/language.c:1.7	Thu Jan 20 19:43:40 2005
+++ eggdrop1.7/src/language.c	Mon Nov 20 07:26:01 2006
@@ -58,7 +58,7 @@
  *              o  Add add_lang_section("<newsection>"); to your module's
  *                 startup function.
  *
- * $Id: language.c,v 1.7 2005-01-21 01:43:40 wcc Exp $
+ * $Id: language.c,v 1.8 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -669,7 +669,8 @@
 
 /* Compability function to allow scripts to use the old command.
  */
-static int tcl_language STDVAR
+static int tcl_language(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char *lang, *section, *buf;
 
@@ -693,7 +694,8 @@
   return TCL_OK;
 }
 
-static int tcl_plslang STDVAR
+static int tcl_plslang(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(2, 2, " language");
 
@@ -703,7 +705,8 @@
   return TCL_OK;
 }
 
-static int tcl_mnslang STDVAR
+static int tcl_mnslang(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(2, 2, " language");
 
@@ -716,7 +719,8 @@
   return TCL_OK;
 }
 
-static int tcl_addlangsection STDVAR
+static int tcl_addlangsection(ClientData cd, Tcl_Interp *irp,
+                              int argc, char *argv[])
 {
   BADARGS(2, 2, " section");
 
@@ -724,7 +728,8 @@
   return TCL_OK;
 }
 
-static int tcl_dellangsection STDVAR
+static int tcl_dellangsection(ClientData cd, Tcl_Interp *irp,
+                              int argc, char *argv[])
 {
   BADARGS(2, 2, " section");
 
@@ -735,7 +740,8 @@
   return TCL_OK;
 }
 
-static int tcl_relang STDVAR
+static int tcl_relang(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   recheck_lang_sections();
   return TCL_OK;
Index: eggdrop1.7/src/logfile.c
diff -u eggdrop1.7/src/logfile.c:1.9 eggdrop1.7/src/logfile.c:1.10
--- eggdrop1.7/src/logfile.c:1.9	Mon Jul 25 22:31:29 2005
+++ eggdrop1.7/src/logfile.c	Mon Nov 20 07:26:01 2006
@@ -16,7 +16,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  *
- * $Id: logfile.c,v 1.9 2005-07-26 03:31:29 wcc Exp $
+ * $Id: logfile.c,v 1.10 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -573,7 +573,8 @@
   putlog(LOG_MISC, "*", "%s: %s", dcc[idx].nick, par);
 }
 
-static int tcl_logfile STDVAR
+static int tcl_logfile(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int i;
   char s[151];
@@ -648,7 +649,8 @@
   return TCL_ERROR;
 }
 
-static int tcl_putlog STDVAR
+static int tcl_putlog(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   char logtext[501];
 
@@ -660,7 +662,8 @@
   return TCL_OK;
 }
 
-static int tcl_putcmdlog STDVAR
+static int tcl_putcmdlog(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   char logtext[501];
 
@@ -672,7 +675,8 @@
   return TCL_OK;
 }
 
-static int tcl_putxferlog STDVAR
+static int tcl_putxferlog(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   char logtext[501];
 
@@ -684,7 +688,8 @@
   return TCL_OK;
 }
 
-static int tcl_putloglev STDVAR
+static int tcl_putloglev(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   int lev = 0;
   char logtext[501];
Index: eggdrop1.7/src/mod/assoc.mod/assoc.c
diff -u eggdrop1.7/src/mod/assoc.mod/assoc.c:1.5 eggdrop1.7/src/mod/assoc.mod/assoc.c:1.6
--- eggdrop1.7/src/mod/assoc.mod/assoc.c:1.5	Thu Jan 20 19:43:41 2005
+++ eggdrop1.7/src/mod/assoc.mod/assoc.c	Mon Nov 20 07:26:01 2006
@@ -2,7 +2,7 @@
  * assoc.c -- part of assoc.mod
  *   the assoc code, moved here mainly from botnet.c for module work
  *
- * $Id: assoc.c,v 1.5 2005-01-21 01:43:41 wcc Exp $
+ * $Id: assoc.c,v 1.6 2006-11-20 13:26:01 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -252,7 +252,8 @@
   return 0;
 }
 
-static int tcl_killassoc STDVAR
+static int tcl_killassoc(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   int chan;
 
@@ -273,7 +274,8 @@
   return TCL_OK;
 }
 
-static int tcl_assoc STDVAR
+static int tcl_assoc(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   int chan;
   char name[21], *p;
Index: eggdrop1.7/src/mod/blowfish.mod/blowfish.c
diff -u eggdrop1.7/src/mod/blowfish.mod/blowfish.c:1.3 eggdrop1.7/src/mod/blowfish.mod/blowfish.c:1.4
--- eggdrop1.7/src/mod/blowfish.mod/blowfish.c:1.3	Thu Jan 20 19:43:41 2005
+++ eggdrop1.7/src/mod/blowfish.mod/blowfish.c	Mon Nov 20 07:26:01 2006
@@ -2,7 +2,7 @@
  * blowfish.c -- part of blowfish.mod
  *   encryption and decryption of passwords
  *
- * $Id: blowfish.c,v 1.3 2005-01-21 01:43:41 wcc Exp $
+ * $Id: blowfish.c,v 1.4 2006-11-20 13:26:01 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -392,7 +392,8 @@
   return dest;
 }
 
-static int tcl_encrypt STDVAR
+static int tcl_encrypt(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char *p;
 
@@ -404,7 +405,8 @@
   return TCL_OK;
 }
 
-static int tcl_decrypt STDVAR
+static int tcl_decrypt(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char *p;
 
@@ -416,7 +418,8 @@
   return TCL_OK;
 }
 
-static int tcl_encpass STDVAR
+static int tcl_encpass(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(2, 2, " string");
 
Index: eggdrop1.7/src/mod/channels.mod/tclchan.c
diff -u eggdrop1.7/src/mod/channels.mod/tclchan.c:1.5 eggdrop1.7/src/mod/channels.mod/tclchan.c:1.6
--- eggdrop1.7/src/mod/channels.mod/tclchan.c:1.5	Sun Aug 28 21:53:25 2005
+++ eggdrop1.7/src/mod/channels.mod/tclchan.c	Mon Nov 20 07:26:01 2006
@@ -1,7 +1,7 @@
 /*
  * tclchan.c -- part of channels.mod
  *
- * $Id: tclchan.c,v 1.5 2005-08-29 02:53:25 wcc Exp $
+ * $Id: tclchan.c,v 1.6 2006-11-20 13:26:01 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -22,7 +22,8 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  */
 
-static int tcl_killban STDVAR
+static int tcl_killban(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -37,7 +38,8 @@
   return TCL_OK;
 }
 
-static int tcl_killchanban STDVAR
+static int tcl_killchanban(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -56,7 +58,8 @@
   return TCL_OK;
 }
 
-static int tcl_killexempt STDVAR
+static int tcl_killexempt(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -71,7 +74,8 @@
   return TCL_OK;
 }
 
-static int tcl_killchanexempt STDVAR
+static int tcl_killchanexempt(ClientData cd, Tcl_Interp *irp,
+                              int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -90,7 +94,8 @@
   return TCL_OK;
 }
 
-static int tcl_killinvite STDVAR
+static int tcl_killinvite(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -105,7 +110,8 @@
   return TCL_OK;
 }
 
-static int tcl_killchaninvite STDVAR
+static int tcl_killchaninvite(ClientData cd, Tcl_Interp *irp,
+                              int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -124,7 +130,8 @@
   return TCL_OK;
 }
 
-static int tcl_stick STDVAR
+static int tcl_stick(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -150,7 +157,8 @@
   return TCL_OK;
 }
 
-static int tcl_stickinvite STDVAR
+static int tcl_stickinvite(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -176,7 +184,8 @@
   return TCL_OK;
 }
 
-static int tcl_stickexempt STDVAR
+static int tcl_stickexempt(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -202,7 +211,8 @@
   return TCL_OK;
 }
 
-static int tcl_isban STDVAR
+static int tcl_isban(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -227,7 +237,8 @@
   return TCL_OK;
 }
 
-static int tcl_isexempt STDVAR
+static int tcl_isexempt(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -252,7 +263,8 @@
   return TCL_OK;
 }
 
-static int tcl_isinvite STDVAR
+static int tcl_isinvite(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -278,7 +290,8 @@
 }
 
 
-static int tcl_isbansticky STDVAR
+static int tcl_isbansticky(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -303,7 +316,8 @@
   return TCL_OK;
 }
 
-static int tcl_isexemptsticky STDVAR
+static int tcl_isexemptsticky(ClientData cd, Tcl_Interp *irp,
+                              int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -328,7 +342,8 @@
   return TCL_OK;
 }
 
-static int tcl_isinvitesticky STDVAR
+static int tcl_isinvitesticky(ClientData cd, Tcl_Interp *irp,
+                              int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -353,7 +368,8 @@
   return TCL_OK;
 }
 
-static int tcl_ispermban STDVAR
+static int tcl_ispermban(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -378,7 +394,8 @@
   return TCL_OK;
 }
 
-static int tcl_ispermexempt STDVAR
+static int tcl_ispermexempt(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -403,7 +420,8 @@
   return TCL_OK;
 }
 
-static int tcl_isperminvite STDVAR
+static int tcl_isperminvite(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -428,7 +446,8 @@
   return TCL_OK;
 }
 
-static int tcl_matchban STDVAR
+static int tcl_matchban(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -453,7 +472,8 @@
   return TCL_OK;
 }
 
-static int tcl_matchexempt STDVAR
+static int tcl_matchexempt(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -478,7 +498,8 @@
   return TCL_OK;
 }
 
-static int tcl_matchinvite STDVAR
+static int tcl_matchinvite(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
   int ok = 0;
@@ -503,7 +524,8 @@
   return TCL_OK;
 }
 
-static int tcl_newchanban STDVAR
+static int tcl_newchanban(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   time_t expire_time;
   struct chanset_t *chan;
@@ -548,7 +570,8 @@
   return TCL_OK;
 }
 
-static int tcl_newban STDVAR
+static int tcl_newban(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   time_t expire_time;
   struct chanset_t *chan;
@@ -589,7 +612,8 @@
   return TCL_OK;
 }
 
-static int tcl_newchanexempt STDVAR
+static int tcl_newchanexempt(ClientData cd, Tcl_Interp *irp,
+                             int argc, char *argv[])
 {
   time_t expire_time;
   struct chanset_t *chan;
@@ -632,7 +656,8 @@
   return TCL_OK;
 }
 
-static int tcl_newexempt STDVAR
+static int tcl_newexempt(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   time_t expire_time;
   struct chanset_t *chan;
@@ -671,7 +696,8 @@
   return TCL_OK;
 }
 
-static int tcl_newchaninvite STDVAR
+static int tcl_newchaninvite(ClientData cd, Tcl_Interp *irp,
+                             int argc, char *argv[])
 {
   time_t expire_time;
   struct chanset_t *chan;
@@ -714,7 +740,8 @@
   return TCL_OK;
 }
 
-static int tcl_newinvite STDVAR
+static int tcl_newinvite(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   time_t expire_time;
   struct chanset_t *chan;
@@ -1033,7 +1060,8 @@
 }
 
 
-static int tcl_channel STDVAR
+static int tcl_channel(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -1485,7 +1513,8 @@
   return TCL_OK;
 }
 
-static int tcl_banlist STDVAR
+static int tcl_banlist(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -1503,7 +1532,8 @@
   return tcl_do_masklist(global_bans, irp);
 }
 
-static int tcl_exemptlist STDVAR
+static int tcl_exemptlist(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -1521,7 +1551,8 @@
   return tcl_do_masklist(global_exempts, irp);
 }
 
-static int tcl_invitelist STDVAR
+static int tcl_invitelist(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -1538,7 +1569,8 @@
   return tcl_do_masklist(global_invites, irp);
 }
 
-static int tcl_channels STDVAR
+static int tcl_channels(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -1549,7 +1581,8 @@
   return TCL_OK;
 }
 
-static int tcl_savechannels STDVAR
+static int tcl_savechannels(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   BADARGS(1, 1, "");
 
@@ -1561,7 +1594,8 @@
   return TCL_OK;
 }
 
-static int tcl_loadchannels STDVAR
+static int tcl_loadchannels(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   BADARGS(1, 1, "");
 
@@ -1574,7 +1608,8 @@
   return TCL_OK;
 }
 
-static int tcl_validchan STDVAR
+static int tcl_validchan(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -1588,7 +1623,8 @@
   return TCL_OK;
 }
 
-static int tcl_isdynamic STDVAR
+static int tcl_isdynamic(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -1604,7 +1640,8 @@
   return TCL_OK;
 }
 
-static int tcl_getchaninfo STDVAR
+static int tcl_getchaninfo(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   char s[161];
   struct userrec *u;
@@ -1619,7 +1656,8 @@
   return TCL_OK;
 }
 
-static int tcl_setchaninfo STDVAR
+static int tcl_setchaninfo(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -1638,7 +1676,8 @@
   return TCL_OK;
 }
 
-static int tcl_setlaston STDVAR
+static int tcl_setlaston(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   time_t t = now;
   struct userrec *u;
@@ -1661,7 +1700,8 @@
   return TCL_OK;
 }
 
-static int tcl_addchanrec STDVAR
+static int tcl_addchanrec(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct userrec *u;
 
@@ -1685,7 +1725,8 @@
   return TCL_OK;
 }
 
-static int tcl_delchanrec STDVAR
+static int tcl_delchanrec(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct userrec *u;
 
@@ -1705,7 +1746,8 @@
   return TCL_OK;
 }
 
-static int tcl_haschanrec STDVAR
+static int tcl_haschanrec(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct userrec *u;
   struct chanset_t *chan;
@@ -1897,7 +1939,8 @@
   return ret;
 }
 
-static int tcl_setudef STDVAR
+static int tcl_setudef(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int type;
 
@@ -1918,7 +1961,8 @@
   return TCL_OK;
 }
 
-static int tcl_renudef STDVAR
+static int tcl_renudef(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct udef_struct *ul;
   int type, found = 0;
@@ -1951,7 +1995,8 @@
     return TCL_OK;
 }
 
-static int tcl_deludef STDVAR
+static int tcl_deludef(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct udef_struct *ul, *ull;
   int type, found = 0;
Index: eggdrop1.7/src/mod/compress.mod/tclcompress.c
diff -u eggdrop1.7/src/mod/compress.mod/tclcompress.c:1.3 eggdrop1.7/src/mod/compress.mod/tclcompress.c:1.4
--- eggdrop1.7/src/mod/compress.mod/tclcompress.c:1.3	Sun Aug 28 23:04:27 2005
+++ eggdrop1.7/src/mod/compress.mod/tclcompress.c	Mon Nov 20 07:26:01 2006
@@ -4,7 +4,7 @@
  *
  * Written by Fabian Knittel <fknittel at gmx.de>
  *
- * $Id: tclcompress.c,v 1.3 2005-08-29 04:04:27 wcc Exp $
+ * $Id: tclcompress.c,v 1.4 2006-11-20 13:26:01 tothwolf Exp $
  */
 /*
  * Copyright (C) 2000 - 2005 Eggheads Development Team
@@ -27,7 +27,8 @@
 
 #define NEXT_ARG { curr_arg++; argc--; }
 
-static int tcl_compress_file STDVAR
+static int tcl_compress_file(ClientData cd, Tcl_Interp *irp,
+                             int argc, char *argv[])
 {
   int mode_num = compress_level, result, curr_arg = 1;
   char *fn_src = NULL, *fn_target = NULL;
@@ -76,7 +77,8 @@
   return TCL_OK;
 }
 
-static int tcl_uncompress_file STDVAR
+static int tcl_uncompress_file(ClientData cd, Tcl_Interp *irp,
+                               int argc, char *argv[])
 {
   int result;
 
@@ -94,7 +96,8 @@
   return TCL_OK;
 }
 
-static int tcl_iscompressed STDVAR
+static int tcl_iscompressed(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   int result;
 
Index: eggdrop1.7/src/mod/filesys.mod/filesys.c
diff -u eggdrop1.7/src/mod/filesys.mod/filesys.c:1.8 eggdrop1.7/src/mod/filesys.mod/filesys.c:1.9
--- eggdrop1.7/src/mod/filesys.mod/filesys.c:1.8	Sun Jul 31 00:51:07 2005
+++ eggdrop1.7/src/mod/filesys.mod/filesys.c	Mon Nov 20 07:26:02 2006
@@ -2,7 +2,7 @@
  * filesys.c -- part of filesys.mod
  *   main file of the filesys eggdrop module
  *
- * $Id: filesys.c,v 1.8 2005-07-31 05:51:07 wcc Exp $
+ * $Id: filesys.c,v 1.9 2006-11-20 13:26:02 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -503,7 +503,8 @@
   return x;
 }
 
-static int builtin_fil STDVAR
+static int builtin_fil(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int idx;
   Function F = (Function) cd;
Index: eggdrop1.7/src/mod/filesys.mod/tclfiles.c
diff -u eggdrop1.7/src/mod/filesys.mod/tclfiles.c:1.2 eggdrop1.7/src/mod/filesys.mod/tclfiles.c:1.3
--- eggdrop1.7/src/mod/filesys.mod/tclfiles.c:1.2	Thu Jan 20 19:43:42 2005
+++ eggdrop1.7/src/mod/filesys.mod/tclfiles.c	Mon Nov 20 07:26:02 2006
@@ -2,7 +2,7 @@
  * tclfiles.c -- part of filesys.mod
  *   Tcl stubs for file system commands moved here to support modules
  *
- * $Id: tclfiles.c,v 1.2 2005-01-21 01:43:42 wcc Exp $
+ * $Id: tclfiles.c,v 1.3 2006-11-20 13:26:02 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -23,7 +23,8 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  */
 
-static int tcl_getdesc STDVAR
+static int tcl_getdesc(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char *s = NULL;
 
@@ -40,7 +41,8 @@
   }
 }
 
-static int tcl_setdesc STDVAR
+static int tcl_setdesc(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(4, 4, " dir file desc");
 
@@ -48,7 +50,8 @@
   return TCL_OK;
 }
 
-static int tcl_getowner STDVAR
+static int tcl_getowner(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char *s = NULL;
 
@@ -65,7 +68,8 @@
   }
 }
 
-static int tcl_setowner STDVAR
+static int tcl_setowner(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   BADARGS(4, 4, " dir file owner");
 
@@ -73,7 +77,8 @@
   return TCL_OK;
 }
 
-static int tcl_getgots STDVAR
+static int tcl_getgots(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int i;
   char s[10];
@@ -86,7 +91,8 @@
   return TCL_OK;
 }
 
-static int tcl_setlink STDVAR
+static int tcl_setlink(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(4, 4, " dir file link");
 
@@ -94,7 +100,8 @@
   return TCL_OK;
 }
 
-static int tcl_getlink STDVAR
+static int tcl_getlink(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char *s = NULL;
 
@@ -110,7 +117,8 @@
   }
 }
 
-static int tcl_setpwd STDVAR
+static int tcl_setpwd(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   int i, idx;
 
@@ -127,7 +135,8 @@
   return TCL_OK;
 }
 
-static int tcl_getpwd STDVAR
+static int tcl_getpwd(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   int i, idx;
 
@@ -144,7 +153,8 @@
   return TCL_OK;
 }
 
-static int tcl_getfiles STDVAR
+static int tcl_getfiles(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   BADARGS(2, 2, " dir");
 
@@ -152,7 +162,8 @@
   return TCL_OK;
 }
 
-static int tcl_getdirs STDVAR
+static int tcl_getdirs(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(2, 2, " dir");
 
@@ -160,7 +171,8 @@
   return TCL_OK;
 }
 
-static int tcl_hide STDVAR
+static int tcl_hide(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   BADARGS(3, 3, " dir file");
 
@@ -168,7 +180,8 @@
   return TCL_OK;
 }
 
-static int tcl_unhide STDVAR
+static int tcl_unhide(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   BADARGS(3, 3, " dir file");
 
@@ -176,7 +189,8 @@
   return TCL_OK;
 }
 
-static int tcl_share STDVAR
+static int tcl_share(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   BADARGS(3, 3, " dir file");
 
@@ -184,7 +198,8 @@
   return TCL_OK;
 }
 
-static int tcl_unshare STDVAR
+static int tcl_unshare(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(3, 3, " dir file");
 
@@ -192,7 +207,8 @@
   return TCL_OK;
 }
 
-static int tcl_setflags STDVAR
+static int tcl_setflags(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   FILE *fdb;
   filedb_entry *fdbe;
@@ -250,7 +266,8 @@
   return TCL_OK;
 }
 
-static int tcl_getflags STDVAR
+static int tcl_getflags(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   filedb_entry *fdbe;
   char *s = NULL, *p, *d;
@@ -291,7 +308,8 @@
   return TCL_OK;
 }
 
-static int tcl_mkdir STDVAR
+static int tcl_mkdir(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   FILE *fdb;
   filedb_entry *fdbe;
@@ -369,7 +387,8 @@
   return TCL_OK;
 }
 
-static int tcl_rmdir STDVAR
+static int tcl_rmdir(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   FILE *fdb;
   filedb_entry *fdbe;
@@ -616,12 +635,14 @@
   return TCL_OK;
 }
 
-static int tcl_mv STDVAR
+static int tcl_mv(ClientData cd, Tcl_Interp *irp,
+                  int argc, char *argv[])
 {
   return tcl_mv_cp(irp, argc, argv, 0);
 }
 
-static int tcl_cp STDVAR
+static int tcl_cp(ClientData cd, Tcl_Interp *irp,
+                  int argc, char *argv[])
 {
   return tcl_mv_cp(irp, argc, argv, 1);
 }
@@ -649,12 +670,14 @@
   return TCL_OK;
 }
 
-static int tcl_fileresend STDVAR
+static int tcl_fileresend(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   return tcl_fileresend_send(cd, irp, argc, argv, 1);
 }
 
-static int tcl_filesend STDVAR
+static int tcl_filesend(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   return tcl_fileresend_send(cd, irp, argc, argv, 0);
 }
Index: eggdrop1.7/src/mod/irc.mod/irc.c
diff -u eggdrop1.7/src/mod/irc.mod/irc.c:1.12 eggdrop1.7/src/mod/irc.mod/irc.c:1.13
--- eggdrop1.7/src/mod/irc.mod/irc.c:1.12	Sun Aug 28 22:21:10 2005
+++ eggdrop1.7/src/mod/irc.mod/irc.c	Mon Nov 20 07:26:02 2006
@@ -2,7 +2,7 @@
  * irc.c -- part of irc.mod
  *   support for channels within the bot
  *
- * $Id: irc.c,v 1.12 2005-08-29 03:21:10 wcc Exp $
+ * $Id: irc.c,v 1.13 2006-11-20 13:26:02 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -664,7 +664,8 @@
   }
 }
 
-static int channels_6char STDVAR
+static int channels_6char(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   Function F = (Function) cd;
   char x[20];
@@ -677,7 +678,8 @@
   return TCL_OK;
 }
 
-static int channels_5char STDVAR
+static int channels_5char(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -688,7 +690,8 @@
   return TCL_OK;
 }
 
-static int channels_4char STDVAR
+static int channels_4char(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -699,7 +702,8 @@
   return TCL_OK;
 }
 
-static int channels_2char STDVAR
+static int channels_2char(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   Function F = (Function) cd;
 
Index: eggdrop1.7/src/mod/irc.mod/tclirc.c
diff -u eggdrop1.7/src/mod/irc.mod/tclirc.c:1.5 eggdrop1.7/src/mod/irc.mod/tclirc.c:1.6
--- eggdrop1.7/src/mod/irc.mod/tclirc.c:1.5	Thu Jan 20 19:43:42 2005
+++ eggdrop1.7/src/mod/irc.mod/tclirc.c	Mon Nov 20 07:26:02 2006
@@ -1,7 +1,7 @@
 /*
  * tclirc.c -- part of irc.mod
  *
- * $Id: tclirc.c,v 1.5 2005-01-21 01:43:42 wcc Exp $
+ * $Id: tclirc.c,v 1.6 2006-11-20 13:26:02 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -24,7 +24,8 @@
 
 /* Streamlined by answer.
  */
-static int tcl_chanlist STDVAR
+static int tcl_chanlist(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char nuh[1024];
   int f;
@@ -71,7 +72,8 @@
   return TCL_OK;
 }
 
-static int tcl_botisop STDVAR
+static int tcl_botisop(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
 
@@ -98,7 +100,8 @@
   return TCL_OK;
 }
 
-static int tcl_botishalfop STDVAR
+static int tcl_botishalfop(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
 
@@ -125,7 +128,8 @@
   return TCL_OK;
 }
 
-static int tcl_ischanjuped STDVAR
+static int tcl_ischanjuped(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -143,7 +147,8 @@
   return TCL_OK;
 }
 
-static int tcl_botisvoice STDVAR
+static int tcl_botisvoice(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
   memberlist *mx;
@@ -171,7 +176,8 @@
   return TCL_OK;
 }
 
-static int tcl_botonchan STDVAR
+static int tcl_botonchan(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
 
@@ -198,7 +204,8 @@
   return TCL_OK;
 }
 
-static int tcl_isop STDVAR
+static int tcl_isop(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
   memberlist *mx;
@@ -226,7 +233,8 @@
   return TCL_OK;
 }
 
-static int tcl_ishalfop STDVAR
+static int tcl_ishalfop(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
   memberlist *mx;
@@ -254,7 +262,8 @@
   return TCL_OK;
 }
 
-static int tcl_isvoice STDVAR
+static int tcl_isvoice(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
   memberlist *mx;
@@ -282,7 +291,8 @@
   return TCL_OK;
 }
 
-static int tcl_wasop STDVAR
+static int tcl_wasop(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   struct chanset_t *chan;
   memberlist *mx;
@@ -301,7 +311,8 @@
   return TCL_OK;
 }
 
-static int tcl_washalfop STDVAR
+static int tcl_washalfop(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan;
   memberlist *mx;
@@ -320,7 +331,8 @@
   return TCL_OK;
 }
 
-static int tcl_onchan STDVAR
+static int tcl_onchan(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
 
@@ -347,7 +359,8 @@
   return TCL_OK;
 }
 
-static int tcl_handonchan STDVAR
+static int tcl_handonchan(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   char nuh[1024];
   struct chanset_t *chan, *thechan = NULL;
@@ -382,7 +395,8 @@
   return TCL_OK;
 }
 
-static int tcl_ischanban STDVAR
+static int tcl_ischanban(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -400,7 +414,8 @@
   return TCL_OK;
 }
 
-static int tcl_ischanexempt STDVAR
+static int tcl_ischanexempt(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -418,7 +433,8 @@
   return TCL_OK;
 }
 
-static int tcl_ischaninvite STDVAR
+static int tcl_ischaninvite(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -436,7 +452,8 @@
   return TCL_OK;
 }
 
-static int tcl_getchanhost STDVAR
+static int tcl_getchanhost(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
   memberlist *m;
@@ -464,7 +481,8 @@
   return TCL_OK;
 }
 
-static int tcl_onchansplit STDVAR
+static int tcl_onchansplit(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan, *thechan = NULL;
   memberlist *m;
@@ -493,7 +511,8 @@
   return TCL_OK;
 }
 
-static int tcl_maskhost STDVAR
+static int tcl_maskhost(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char new[121];
 
@@ -515,7 +534,8 @@
   return TCL_OK;
 }
 
-static int tcl_getchanidle STDVAR
+static int tcl_getchanidle(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   memberlist *m;
   struct chanset_t *chan;
@@ -557,7 +577,8 @@
   return TCL_OK;
 }
 
-static int tcl_chanbans STDVAR
+static int tcl_chanbans(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -571,7 +592,8 @@
   return tcl_chanmasks(chan->channel.ban, irp);
 }
 
-static int tcl_chanexempts STDVAR
+static int tcl_chanexempts(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -585,7 +607,8 @@
   return tcl_chanmasks(chan->channel.exempt, irp);
 }
 
-static int tcl_chaninvites STDVAR
+static int tcl_chaninvites(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -599,7 +622,8 @@
   return tcl_chanmasks(chan->channel.invite, irp);
 }
 
-static int tcl_getchanmode STDVAR
+static int tcl_getchanmode(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -614,7 +638,8 @@
   return TCL_OK;
 }
 
-static int tcl_getchanjoin STDVAR
+static int tcl_getchanjoin(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   struct chanset_t *chan;
   char s[21];
@@ -638,7 +663,8 @@
   return TCL_OK;
 }
 
-static int tcl_channame2dname STDVAR
+static int tcl_channame2dname(ClientData cd, Tcl_Interp *irp,
+                              int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -654,7 +680,8 @@
   }
 }
 
-static int tcl_chandname2name STDVAR
+static int tcl_chandname2name(ClientData cd, Tcl_Interp *irp,
+                              int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -670,7 +697,8 @@
   }
 }
 
-static int tcl_flushmode STDVAR
+static int tcl_flushmode(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -685,7 +713,8 @@
   return TCL_OK;
 }
 
-static int tcl_pushmode STDVAR
+static int tcl_pushmode(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct chanset_t *chan;
   char plus, mode;
@@ -711,7 +740,8 @@
   return TCL_OK;
 }
 
-static int tcl_resetbans STDVAR
+static int tcl_resetbans(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -726,7 +756,8 @@
   return TCL_OK;
 }
 
-static int tcl_resetexempts STDVAR
+static int tcl_resetexempts(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -741,7 +772,8 @@
   return TCL_OK;
 }
 
-static int tcl_resetinvites STDVAR
+static int tcl_resetinvites(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -756,7 +788,8 @@
   return TCL_OK;
 }
 
-static int tcl_resetchan STDVAR
+static int tcl_resetchan(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -771,7 +804,8 @@
   return TCL_OK;
 }
 
-static int tcl_topic STDVAR
+static int tcl_topic(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   struct chanset_t *chan;
 
@@ -786,7 +820,8 @@
   return TCL_OK;
 }
 
-static int tcl_hand2nick STDVAR
+static int tcl_hand2nick(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   char nuh[1024];
   memberlist *m;
@@ -821,7 +856,8 @@
   return TCL_OK;
 }
 
-static int tcl_nick2hand STDVAR
+static int tcl_nick2hand(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   char nuh[1024];
   memberlist *m;
@@ -854,7 +890,8 @@
   return TCL_OK;
 }
 
-static int tcl_putkick STDVAR
+static int tcl_putkick(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct chanset_t *chan;
   int k = 0, l;
Index: eggdrop1.7/src/mod/notes.mod/notes.c
diff -u eggdrop1.7/src/mod/notes.mod/notes.c:1.5 eggdrop1.7/src/mod/notes.mod/notes.c:1.6
--- eggdrop1.7/src/mod/notes.mod/notes.c:1.5	Thu Jan 20 19:43:42 2005
+++ eggdrop1.7/src/mod/notes.mod/notes.c	Mon Nov 20 07:26:02 2006
@@ -5,7 +5,7 @@
  *   note cmds
  *   note ignores
  *
- * $Id: notes.c,v 1.5 2005-01-21 01:43:42 wcc Exp $
+ * $Id: notes.c,v 1.6 2006-11-20 13:26:02 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -206,7 +206,8 @@
 
 /* Add note to notefile.
  */
-static int tcl_storenote STDVAR
+static int tcl_storenote(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   FILE *f;
   int idx;
@@ -370,7 +371,8 @@
   return 0;
 }
 
-static int tcl_erasenotes STDVAR
+static int tcl_erasenotes(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   FILE *f, *g;
   char s[601], *to, *s1;
@@ -432,7 +434,8 @@
   return TCL_OK;
 }
 
-static int tcl_listnotes STDVAR
+static int tcl_listnotes(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   int i, numnotes;
   int ln[128]; /* Is it enough? */
@@ -658,7 +661,8 @@
   }
 }
 
-static int tcl_notes STDVAR
+static int tcl_notes(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   int count, read, nl[128]; /* Is it enough? */
   char s[601], *to, *from, *dt, *s1, *p;
Index: eggdrop1.7/src/mod/server.mod/server.c
diff -u eggdrop1.7/src/mod/server.mod/server.c:1.11 eggdrop1.7/src/mod/server.mod/server.c:1.12
--- eggdrop1.7/src/mod/server.mod/server.c:1.11	Sun Oct 16 00:59:21 2005
+++ eggdrop1.7/src/mod/server.mod/server.c	Mon Nov 20 07:26:02 2006
@@ -2,7 +2,7 @@
  * server.c -- part of server.mod
  *   basic irc server support
  *
- * $Id: server.c,v 1.11 2005-10-16 05:59:21 wcc Exp $
+ * $Id: server.c,v 1.12 2006-11-20 13:26:02 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -1072,7 +1072,8 @@
     pass[0] = 0;
 }
 
-static int server_6char STDVAR
+static int server_6char(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   Function F = (Function) cd;
   char x[20];
@@ -1086,7 +1087,8 @@
   return TCL_OK;
 }
 
-static int server_5char STDVAR
+static int server_5char(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -1097,7 +1099,8 @@
   return TCL_OK;
 }
 
-static int server_2char STDVAR
+static int server_2char(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -1108,7 +1111,8 @@
   return TCL_OK;
 }
 
-static int server_msg STDVAR
+static int server_msg(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -1119,7 +1123,8 @@
   return TCL_OK;
 }
 
-static int server_raw STDVAR
+static int server_raw(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   Function F = (Function) cd;
 
Index: eggdrop1.7/src/mod/server.mod/tclserv.c
diff -u eggdrop1.7/src/mod/server.mod/tclserv.c:1.2 eggdrop1.7/src/mod/server.mod/tclserv.c:1.3
--- eggdrop1.7/src/mod/server.mod/tclserv.c:1.2	Thu Jan 20 19:43:42 2005
+++ eggdrop1.7/src/mod/server.mod/tclserv.c	Mon Nov 20 07:26:02 2006
@@ -1,7 +1,7 @@
 /*
  * tclserv.c -- part of server.mod
  *
- * $Id: tclserv.c,v 1.2 2005-01-21 01:43:42 wcc Exp $
+ * $Id: tclserv.c,v 1.3 2006-11-20 13:26:02 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -22,7 +22,8 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  */
 
-static int tcl_isbotnick STDVAR
+static int tcl_isbotnick(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   BADARGS(2, 2, " nick");
 
@@ -33,7 +34,8 @@
   return TCL_OK;
 }
 
-static int tcl_putquick STDVAR
+static int tcl_putquick(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char s[511], *p;
 
@@ -61,7 +63,8 @@
   return TCL_OK;
 }
 
-static int tcl_putserv STDVAR
+static int tcl_putserv(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char s[511], *p;
 
@@ -89,7 +92,8 @@
   return TCL_OK;
 }
 
-static int tcl_puthelp STDVAR
+static int tcl_puthelp(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char s[511], *p;
 
@@ -117,7 +121,8 @@
   return TCL_OK;
 }
 
-static int tcl_jump STDVAR
+static int tcl_jump(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   BADARGS(1, 4, " ?server? ?port? ?pass?");
 
@@ -136,7 +141,8 @@
   return TCL_OK;
 }
 
-static int tcl_clearqueue STDVAR
+static int tcl_clearqueue(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   struct msgq *q, *qq;
   int msgs = 0;
@@ -219,7 +225,8 @@
   return TCL_ERROR;
 }
 
-static int tcl_queuesize STDVAR
+static int tcl_queuesize(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   char s[20];
   int x;
Index: eggdrop1.7/src/mod/transfer.mod/tcltransfer.c
diff -u eggdrop1.7/src/mod/transfer.mod/tcltransfer.c:1.3 eggdrop1.7/src/mod/transfer.mod/tcltransfer.c:1.4
--- eggdrop1.7/src/mod/transfer.mod/tcltransfer.c:1.3	Sun Aug 28 23:04:27 2005
+++ eggdrop1.7/src/mod/transfer.mod/tcltransfer.c	Mon Nov 20 07:26:02 2006
@@ -1,7 +1,7 @@
 /*
  * tcltransfer.c -- part of transfer.mod
  *
- * $Id: tcltransfer.c,v 1.3 2005-08-29 04:04:27 wcc Exp $
+ * $Id: tcltransfer.c,v 1.4 2006-11-20 13:26:02 tothwolf Exp $
  *
  * Copyright (C) 2003 - 2005 Eggheads Development Team
  *
@@ -20,7 +20,8 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  */
 
-static int tcl_dccsend STDVAR
+static int tcl_dccsend(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char s[10], *sys, *nfn;
   int i;
@@ -73,7 +74,8 @@
   return TCL_OK;
 }
 
-static int tcl_getfileq STDVAR
+static int tcl_getfileq(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char *s = NULL;
   fileq_t *q;
@@ -95,7 +97,8 @@
   return TCL_OK;
 }
 
-static int tcl_getfilesendtime STDVAR
+static int tcl_getfilesendtime(ClientData cd, Tcl_Interp *irp,
+                               int argc, char *argv[])
 {
   int sock, i;
   char s[15];
Index: eggdrop1.7/src/mod/transfer.mod/transfer.c
diff -u eggdrop1.7/src/mod/transfer.mod/transfer.c:1.6 eggdrop1.7/src/mod/transfer.mod/transfer.c:1.7
--- eggdrop1.7/src/mod/transfer.mod/transfer.c:1.6	Thu Jan 20 19:43:42 2005
+++ eggdrop1.7/src/mod/transfer.mod/transfer.c	Mon Nov 20 07:26:02 2006
@@ -1,7 +1,7 @@
 /*
  * transfer.c -- part of transfer.mod
  *
- * $Id: transfer.c,v 1.6 2005-01-21 01:43:42 wcc Exp $
+ * $Id: transfer.c,v 1.7 2006-11-20 13:26:02 tothwolf Exp $
  *
  * Copyright (C) 1997 Robey Pointer
  * Copyright (C) 1999 - 2005 Eggheads Development Team
@@ -162,7 +162,8 @@
 }
 
 
-static int builtin_sentrcvd STDVAR
+static int builtin_sentrcvd(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -173,7 +174,8 @@
   return TCL_OK;
 }
 
-static int builtin_toutlost STDVAR
+static int builtin_toutlost(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   Function F = (Function) cd;
 
Index: eggdrop1.7/src/tcldcc.c
diff -u eggdrop1.7/src/tcldcc.c:1.14 eggdrop1.7/src/tcldcc.c:1.15
--- eggdrop1.7/src/tcldcc.c:1.14	Thu Jan 20 19:43:40 2005
+++ eggdrop1.7/src/tcldcc.c	Mon Nov 20 07:26:01 2006
@@ -17,7 +17,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  *
- * $Id: tcldcc.c,v 1.14 2005-01-21 01:43:40 wcc Exp $
+ * $Id: tcldcc.c,v 1.15 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -63,7 +63,8 @@
   return tot;
 }
 
-static int tcl_putdcc STDVAR
+static int tcl_putdcc(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   int i, j;
 
@@ -89,7 +90,8 @@
  *
  * Added by <drummer at sophia.jpte.hu>.
  */
-static int tcl_putdccraw STDVAR
+static int tcl_putdccraw(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   int i, j = 0, z;
 
@@ -113,7 +115,8 @@
   return TCL_OK;
 }
 
-static int tcl_dccsimul STDVAR
+static int tcl_dccsimul(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   int idx;
 
@@ -138,7 +141,8 @@
 }
 
 
-static int tcl_dccbroadcast STDVAR
+static int tcl_dccbroadcast(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   char msg[401];
 
@@ -151,7 +155,8 @@
   return TCL_OK;
 }
 
-static int tcl_hand2idx STDVAR
+static int tcl_hand2idx(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   int i;
   char s[11];
@@ -169,7 +174,8 @@
   return TCL_OK;
 }
 
-static int tcl_getchan STDVAR
+static int tcl_getchan(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char s[7];
   int idx;
@@ -192,7 +198,8 @@
   return TCL_OK;
 }
 
-static int tcl_setchan STDVAR
+static int tcl_setchan(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int idx, chan;
   module_entry *me;
@@ -250,7 +257,8 @@
   return TCL_OK;
 }
 
-static int tcl_dccputchan STDVAR
+static int tcl_dccputchan(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   int chan;
   char msg[401];
@@ -270,7 +278,8 @@
   return TCL_OK;
 }
 
-static int tcl_console STDVAR
+static int tcl_console(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int i, j, pls, arg;
   module_entry *me;
@@ -329,7 +338,8 @@
   return TCL_OK;
 }
 
-static int tcl_strip STDVAR
+static int tcl_strip(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   int i, j, pls, arg;
   module_entry *me;
@@ -373,7 +383,8 @@
   return TCL_OK;
 }
 
-static int tcl_echo STDVAR
+static int tcl_echo(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   int i;
   module_entry *me;
@@ -404,7 +415,8 @@
   return TCL_OK;
 }
 
-static int tcl_page STDVAR
+static int tcl_page(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   int i;
   char x[20];
@@ -441,7 +453,8 @@
   return TCL_OK;
 }
 
-static int tcl_control STDVAR
+static int tcl_control(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int idx;
   void *hold;
@@ -475,7 +488,8 @@
   return TCL_OK;
 }
 
-static int tcl_valididx STDVAR
+static int tcl_valididx(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   int idx;
 
@@ -489,7 +503,8 @@
    return TCL_OK;
 }
 
-static int tcl_killdcc STDVAR
+static int tcl_killdcc(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int idx;
 
@@ -522,7 +537,8 @@
   return TCL_OK;
 }
 
-static int tcl_putbot STDVAR
+static int tcl_putbot(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   int i;
   char msg[401];
@@ -540,7 +556,8 @@
   return TCL_OK;
 }
 
-static int tcl_putallbots STDVAR
+static int tcl_putallbots(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   char msg[401];
 
@@ -551,7 +568,8 @@
   return TCL_OK;
 }
 
-static int tcl_idx2hand STDVAR
+static int tcl_idx2hand(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   int idx;
 
@@ -567,7 +585,8 @@
   return TCL_OK;
 }
 
-static int tcl_islinked STDVAR
+static int tcl_islinked(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   int i;
 
@@ -581,7 +600,8 @@
   return TCL_OK;
 }
 
-static int tcl_bots STDVAR
+static int tcl_bots(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   tand_t *bot;
 
@@ -592,7 +612,8 @@
   return TCL_OK;
 }
 
-static int tcl_botlist STDVAR
+static int tcl_botlist(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char *p, sh[2], string[20];
   EGG_CONST char *list[4];
@@ -615,7 +636,8 @@
   return TCL_OK;
 }
 
-static int tcl_dcclist STDVAR
+static int tcl_dcclist(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int i;
   char *p, idxstr[10], timestamp[11], other[160];
@@ -649,7 +671,8 @@
   return TCL_OK;
 }
 
-static int tcl_whom STDVAR
+static int tcl_whom(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   int chan, i;
   char c[2], idle[11], work[20], *p;
@@ -723,7 +746,8 @@
   return TCL_OK;
 }
 
-static int tcl_dccused STDVAR
+static int tcl_dccused(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char s[20];
 
@@ -734,7 +758,8 @@
   return TCL_OK;
 }
 
-static int tcl_getdccidle STDVAR
+static int tcl_getdccidle(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   int x, idx;
   char s[21];
@@ -753,7 +778,8 @@
   return TCL_OK;
 }
 
-static int tcl_getdccaway STDVAR
+static int tcl_getdccaway(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   int idx;
 
@@ -771,7 +797,8 @@
   return TCL_OK;
 }
 
-static int tcl_setdccaway STDVAR
+static int tcl_setdccaway(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   int idx;
 
@@ -791,7 +818,8 @@
   return TCL_OK;
 }
 
-static int tcl_link STDVAR
+static int tcl_link(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   int x, i;
   char bot[HANDLEN + 1], bot2[HANDLEN + 1];
@@ -815,7 +843,8 @@
   return TCL_OK;
 }
 
-static int tcl_unlink STDVAR
+static int tcl_unlink(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   int i, x;
   char bot[HANDLEN + 1];
@@ -839,7 +868,8 @@
   return TCL_OK;
 }
 
-static int tcl_connect STDVAR
+static int tcl_connect(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int i, z, sock;
   char s[81];
@@ -882,7 +912,8 @@
  * listen <port> script <proc> [flag]
  * listen <port> off
  */
-static int tcl_listen STDVAR
+static int tcl_listen(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   int i, j, idx = -1, port, realport;
   char s[11], msg[256];
@@ -1004,7 +1035,8 @@
   return TCL_OK;
 }
 
-static int tcl_boot STDVAR
+static int tcl_boot(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   char who[NOTENAMELEN + 1];
   int i, ok = 0;
@@ -1038,7 +1070,8 @@
   return TCL_OK;
 }
 
-static int tcl_rehash STDVAR
+static int tcl_rehash(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   BADARGS(1, 1, " ");
 
@@ -1053,7 +1086,8 @@
   return TCL_OK;
 }
 
-static int tcl_restart STDVAR
+static int tcl_restart(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(1, 1, " ");
 
Index: eggdrop1.7/src/tclegg.h
diff -u eggdrop1.7/src/tclegg.h:1.5 eggdrop1.7/src/tclegg.h:1.6
--- eggdrop1.7/src/tclegg.h:1.5	Sat Jul 30 22:49:35 2005
+++ eggdrop1.7/src/tclegg.h	Mon Nov 20 07:26:01 2006
@@ -2,7 +2,7 @@
  * tclegg.h
  *   stuff used by tcl.c and tclhash.c
  *
- * $Id: tclegg.h,v 1.5 2005-07-31 03:49:35 wcc Exp $
+ * $Id: tclegg.h,v 1.6 2006-11-20 13:26:01 tothwolf Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -100,13 +100,7 @@
 } tcl_timer_t;
 
 
-/* Used for Tcl stub functions */
-#define STDVAR (cd, irp, argc, argv)                                    \
-        ClientData cd;                                                  \
-        Tcl_Interp *irp;                                                \
-        int argc;                                                       \
-        char *argv[];
-
+/* Argument check for eggdrop-added Tcl commands */
 #define BADARGS(nl, nh, example) do {                                   \
         if ((argc < (nl)) || (argc > (nh))) {                           \
                 Tcl_AppendResult(irp, "wrong # args: should be \"",     \
Index: eggdrop1.7/src/tclhash.c
diff -u eggdrop1.7/src/tclhash.c:1.20 eggdrop1.7/src/tclhash.c:1.21
--- eggdrop1.7/src/tclhash.c:1.20	Sun Aug 28 23:04:27 2005
+++ eggdrop1.7/src/tclhash.c	Mon Nov 20 07:26:01 2006
@@ -17,7 +17,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  *
- * $Id: tclhash.c,v 1.20 2005-08-29 04:04:27 wcc Exp $
+ * $Id: tclhash.c,v 1.21 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -459,7 +459,8 @@
   return TCL_OK;
 }
 
-static int tcl_bind STDVAR
+static int tcl_bind(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   tcl_bind_list_t *tl;
 
@@ -514,7 +515,8 @@
   return 1;
 }
 
-static int builtin_3char STDVAR
+static int builtin_3char(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -525,7 +527,8 @@
   return TCL_OK;
 }
 
-static int builtin_2char STDVAR
+static int builtin_2char(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -536,7 +539,8 @@
   return TCL_OK;
 }
 
-static int builtin_5int STDVAR
+static int builtin_5int(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -547,7 +551,8 @@
   return TCL_OK;
 }
 
-static int builtin_char STDVAR
+static int builtin_char(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -558,7 +563,8 @@
   return TCL_OK;
 }
 
-static int builtin_chpt STDVAR
+static int builtin_chpt(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -569,7 +575,8 @@
   return TCL_OK;
 }
 
-static int builtin_chjn STDVAR
+static int builtin_chjn(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   Function F = (Function) cd;
 
@@ -581,7 +588,8 @@
   return TCL_OK;
 }
 
-static int builtin_idxchar STDVAR
+static int builtin_idxchar(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   Function F = (Function) cd;
   int idx;
@@ -602,7 +610,8 @@
   return TCL_OK;
 }
 
-static int builtin_charidx STDVAR
+static int builtin_charidx(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   Function F = (Function) cd;
   int idx;
@@ -620,7 +629,8 @@
   return TCL_OK;
 }
 
-static int builtin_chat STDVAR
+static int builtin_chat(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   Function F = (Function) cd;
   int ch;
@@ -633,7 +643,8 @@
   return TCL_OK;
 }
 
-static int builtin_dcc STDVAR
+static int builtin_dcc(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int idx;
   Function F = (Function) cd;
Index: eggdrop1.7/src/tclmisc.c
diff -u eggdrop1.7/src/tclmisc.c:1.13 eggdrop1.7/src/tclmisc.c:1.14
--- eggdrop1.7/src/tclmisc.c:1.13	Thu Jan 20 19:43:40 2005
+++ eggdrop1.7/src/tclmisc.c	Mon Nov 20 07:26:01 2006
@@ -17,7 +17,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  *
- * $Id: tclmisc.c,v 1.13 2005-01-21 01:43:40 wcc Exp $
+ * $Id: tclmisc.c,v 1.14 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -61,7 +61,8 @@
 extern Tcl_Interp *interp;
 
 
-static int tcl_binds STDVAR
+static int tcl_binds(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   int matching = 0;
   char *g, flg[100], hits[11];
@@ -109,7 +110,8 @@
   return TCL_OK;
 }
 
-static int tcl_timer STDVAR
+static int tcl_timer(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   unsigned long x;
   char s[16];
@@ -128,7 +130,8 @@
   return TCL_OK;
 }
 
-static int tcl_utimer STDVAR
+static int tcl_utimer(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   unsigned long x;
   char s[16];
@@ -147,7 +150,8 @@
   return TCL_OK;
 }
 
-static int tcl_killtimer STDVAR
+static int tcl_killtimer(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   BADARGS(2, 2, " timerID");
 
@@ -161,7 +165,8 @@
   return TCL_ERROR;
 }
 
-static int tcl_killutimer STDVAR
+static int tcl_killutimer(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   BADARGS(2, 2, " timerID");
 
@@ -175,7 +180,8 @@
   return TCL_ERROR;
 }
 
-static int tcl_timers STDVAR
+static int tcl_timers(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   BADARGS(1, 1, "");
 
@@ -183,7 +189,8 @@
   return TCL_OK;
 }
 
-static int tcl_utimers STDVAR
+static int tcl_utimers(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(1, 1, "");
 
@@ -191,7 +198,8 @@
   return TCL_OK;
 }
 
-static int tcl_duration STDVAR
+static int tcl_duration(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char s[70];
   unsigned long sec, tmp;
@@ -240,7 +248,8 @@
   return TCL_OK;
 }
 
-static int tcl_unixtime STDVAR
+static int tcl_unixtime(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char s[11];
   time_t now2 = time(NULL);
@@ -252,7 +261,8 @@
   return TCL_OK;
 }
 
-static int tcl_ctime STDVAR
+static int tcl_ctime(ClientData cd, Tcl_Interp *irp,
+                     int argc, char *argv[])
 {
   time_t tt;
   char s[25];
@@ -265,7 +275,8 @@
   return TCL_OK;
 }
 
-static int tcl_strftime STDVAR
+static int tcl_strftime(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char buf[512];
   struct tm *tm1;
@@ -286,7 +297,8 @@
   return TCL_ERROR;
 }
 
-static int tcl_myip STDVAR
+static int tcl_myip(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   char s[16];
 
@@ -297,7 +309,8 @@
   return TCL_OK;
 }
 
-static int tcl_rand STDVAR
+static int tcl_rand(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   unsigned long x;
   char s[11];
@@ -316,7 +329,8 @@
   return TCL_OK;
 }
 
-static int tcl_sendnote STDVAR
+static int tcl_sendnote(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char s[5], from[NOTENAMELEN + 1], to[NOTENAMELEN + 1], msg[451];
 
@@ -330,7 +344,8 @@
   return TCL_OK;
 }
 
-static int tcl_dumpfile STDVAR
+static int tcl_dumpfile(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   char nick[NICKLEN];
   struct flag_record fr = { FR_GLOBAL | FR_CHAN, 0, 0, 0, 0, 0 };
@@ -343,7 +358,8 @@
   return TCL_OK;
 }
 
-static int tcl_dccdumpfile STDVAR
+static int tcl_dccdumpfile(ClientData cd, Tcl_Interp *irp,
+                           int argc, char *argv[])
 {
   int idx, i;
   struct flag_record fr = { FR_GLOBAL | FR_CHAN | FR_ANYWH, 0, 0, 0, 0, 0 };
@@ -362,7 +378,8 @@
   return TCL_OK;
 }
 
-static int tcl_backup STDVAR
+static int tcl_backup(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   BADARGS(1, 1, "");
 
@@ -370,7 +387,8 @@
   return TCL_OK;
 }
 
-static int tcl_die STDVAR
+static int tcl_die(ClientData cd, Tcl_Interp *irp,
+                   int argc, char *argv[])
 {
   char s[1024];
 
@@ -387,7 +405,8 @@
   return TCL_OK;
 }
 
-static int tcl_loadmodule STDVAR
+static int tcl_loadmodule(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   const char *p;
 
@@ -400,7 +419,8 @@
   return TCL_OK;
 }
 
-static int tcl_unloadmodule STDVAR
+static int tcl_unloadmodule(ClientData cd, Tcl_Interp *irp,
+                            int argc, char *argv[])
 {
   BADARGS(2, 2, " module-name");
 
@@ -408,7 +428,8 @@
   return TCL_OK;
 }
 
-static int tcl_unames STDVAR
+static int tcl_unames(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   char *unix_n, *vers_n;
 #ifdef HAVE_UNAME
@@ -428,7 +449,8 @@
   return TCL_OK;
 }
 
-static int tcl_modules STDVAR
+static int tcl_modules(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   int i;
   char *p, s[24], s2[24];
@@ -463,7 +485,8 @@
   return TCL_OK;
 }
 
-static int tcl_callevent STDVAR
+static int tcl_callevent(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   BADARGS(2, 2, " event");
 
@@ -471,7 +494,8 @@
   return TCL_OK;
 }
 
-static int tcl_stripcodes STDVAR
+static int tcl_stripcodes(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   int flags = 0;
   char *p;
@@ -516,7 +540,8 @@
 Tcl_Obj *CONST objv[];
 {
 #else
-static int tcl_md5 STDVAR
+static int tcl_md5(ClientData cd, Tcl_Interp *irp,
+                   int argc, char *argv[])
 {
 #endif /* USE_TCL_OBJ */
   MD5_CTX md5context;
Index: eggdrop1.7/src/tcluser.c
diff -u eggdrop1.7/src/tcluser.c:1.10 eggdrop1.7/src/tcluser.c:1.11
--- eggdrop1.7/src/tcluser.c:1.10	Thu Jan 20 19:43:40 2005
+++ eggdrop1.7/src/tcluser.c	Mon Nov 20 07:26:01 2006
@@ -17,7 +17,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  *
- * $Id: tcluser.c,v 1.10 2005-01-21 01:43:40 wcc Exp $
+ * $Id: tcluser.c,v 1.11 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -45,7 +45,8 @@
 extern time_t now;
 
 
-static int tcl_countusers STDVAR
+static int tcl_countusers(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   BADARGS(1, 1, "");
 
@@ -53,7 +54,8 @@
   return TCL_OK;
 }
 
-static int tcl_validuser STDVAR
+static int tcl_validuser(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   BADARGS(2, 2, " handle");
 
@@ -62,7 +64,8 @@
   return TCL_OK;
 }
 
-static int tcl_finduser STDVAR
+static int tcl_finduser(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct userrec *u;
 
@@ -73,7 +76,8 @@
   return TCL_OK;
 }
 
-static int tcl_passwdOk STDVAR
+static int tcl_passwdOk(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct userrec *u;
 
@@ -84,7 +88,8 @@
   return TCL_OK;
 }
 
-static int tcl_chattr STDVAR
+static int tcl_chattr(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   char *chan, *chg, work[100];
   struct flag_record pls, mns, user;
@@ -159,7 +164,8 @@
   return TCL_OK;
 }
 
-static int tcl_botattr STDVAR
+static int tcl_botattr(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   char *chan, *chg, work[100];
   struct flag_record pls, mns, user;
@@ -234,7 +240,8 @@
   return TCL_OK;
 }
 
-static int tcl_matchattr STDVAR
+static int tcl_matchattr(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   struct userrec *u;
   struct flag_record plus, minus, user;
@@ -263,7 +270,8 @@
   return TCL_OK;
 }
 
-static int tcl_adduser STDVAR
+static int tcl_adduser(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(2, 3, " handle ?hostmask?");
 
@@ -278,7 +286,8 @@
   return TCL_OK;
 }
 
-static int tcl_addbot STDVAR
+static int tcl_addbot(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   struct bot_addr *bi;
   char *p, *q;
@@ -318,7 +327,8 @@
   return TCL_OK;
 }
 
-static int tcl_deluser STDVAR
+static int tcl_deluser(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(2, 2, " handle");
 
@@ -327,7 +337,8 @@
   return TCL_OK;
 }
 
-static int tcl_delhost STDVAR
+static int tcl_delhost(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   BADARGS(3, 3, " handle hostmask");
 
@@ -339,7 +350,8 @@
   return TCL_OK;
 }
 
-static int tcl_userlist STDVAR
+static int tcl_userlist(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct userrec *u;
   struct flag_record user, plus, minus;
@@ -376,19 +388,22 @@
   return TCL_OK;
 }
 
-static int tcl_save STDVAR
+static int tcl_save(ClientData cd, Tcl_Interp *irp,
+                    int argc, char *argv[])
 {
   writeuserfile(-1);
   return TCL_OK;
 }
 
-static int tcl_reload STDVAR
+static int tcl_reload(ClientData cd, Tcl_Interp *irp,
+                      int argc, char *argv[])
 {
   reloaduserfile();
   return TCL_OK;
 }
 
-static int tcl_chhandle STDVAR
+static int tcl_chhandle(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   struct userrec *u;
   char newhand[HANDLEN + 1];
@@ -423,7 +438,8 @@
   return TCL_OK;
 }
 
-static int tcl_getting_users STDVAR
+static int tcl_getting_users(ClientData cd, Tcl_Interp *irp,
+                             int argc, char *argv[])
 {
   int i;
 
@@ -439,7 +455,8 @@
   return TCL_OK;
 }
 
-static int tcl_isignore STDVAR
+static int tcl_isignore(ClientData cd, Tcl_Interp *irp,
+                        int argc, char *argv[])
 {
   BADARGS(2, 2, " nick!user at host");
 
@@ -447,7 +464,8 @@
   return TCL_OK;
 }
 
-static int tcl_newignore STDVAR
+static int tcl_newignore(ClientData cd, Tcl_Interp *irp,
+                         int argc, char *argv[])
 {
   time_t expire_time;
   char ign[UHOSTLEN], cmt[66], from[HANDLEN + 1];
@@ -470,7 +488,8 @@
   return TCL_OK;
 }
 
-static int tcl_killignore STDVAR
+static int tcl_killignore(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   BADARGS(2, 2, " hostmask");
 
@@ -478,7 +497,8 @@
   return TCL_OK;
 }
 
-static int tcl_ignorelist STDVAR
+static int tcl_ignorelist(ClientData cd, Tcl_Interp *irp,
+                          int argc, char *argv[])
 {
   char expire[11], added[11], *p;
   EGG_CONST char *list[5];
@@ -501,7 +521,8 @@
   return TCL_OK;
 }
 
-static int tcl_getuser STDVAR
+static int tcl_getuser(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct user_entry_type *et;
   struct userrec *u;
@@ -530,7 +551,8 @@
   return TCL_OK;
 }
 
-static int tcl_setuser STDVAR
+static int tcl_setuser(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   struct user_entry_type *et;
   struct userrec *u;
Index: eggdrop1.7/src/traffic.c
diff -u eggdrop1.7/src/traffic.c:1.5 eggdrop1.7/src/traffic.c:1.6
--- eggdrop1.7/src/traffic.c:1.5	Thu Jan 20 19:43:40 2005
+++ eggdrop1.7/src/traffic.c	Mon Nov 20 07:26:01 2006
@@ -16,7 +16,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  *
- * $Id: traffic.c,v 1.5 2005-01-21 01:43:40 wcc Exp $
+ * $Id: traffic.c,v 1.6 2006-11-20 13:26:01 tothwolf Exp $
  */
 
 #include "main.h"
@@ -206,7 +206,8 @@
   putlog(LOG_CMDS, "*", "#%s# traffic", dcc[idx].nick);
 }
 
-static int tcl_traffic STDVAR
+static int tcl_traffic(ClientData cd, Tcl_Interp *irp,
+                       int argc, char *argv[])
 {
   unsigned long in_today, in_total, out_today, out_total;
   char buf[1024];
----------------------- End of diff -----------------------



More information about the Changes mailing list