[cvslog] Module eggdrop1.6: Change committed

cvslog cvs at tsss.org
Tue Sep 25 18:13:00 CST 2001


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.6
Commit time: 2001-09-25 23:12:09 UTC
Commited by: Jeff Fisher <guppy at techmonkeys.org>

Modified files:
     src/patch.h src/tcl.c src/tclegg.h src/tclhash.c

Log message:

here is the properly indented code for stdarg's uf8 patch

---------------------- diff included ----------------------
Index: eggdrop1.6/src/patch.h
diff -u eggdrop1.6/src/patch.h:1.554 eggdrop1.6/src/patch.h:1.555
--- eggdrop1.6/src/patch.h:1.554	Sun Sep 23 23:25:39 2001
+++ eggdrop1.6/src/patch.h	Tue Sep 25 18:11:59 2001
@@ -10,7 +10,7 @@
  * statement, leave the rest of the file alone, this allows better
  * overlapping patches.
  *
- * $Id: patch.h,v 1.554 2001/09/24 04:25:39 guppy Exp $
+ * $Id: patch.h,v 1.555 2001/09/25 23:11:59 guppy Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -41,12 +41,12 @@
  *
  *
  */
-patch("1001305511");		/* current unixtime */
+patch("1001459487");		/* current unixtime */
 /*
  *
  *
  */
-patch("backports");
+patch("indent_ut8f");
 /*
  *
  *
Index: eggdrop1.6/src/tcl.c
diff -u eggdrop1.6/src/tcl.c:1.38 eggdrop1.6/src/tcl.c:1.39
--- eggdrop1.6/src/tcl.c:1.38	Sun Sep 23 23:25:40 2001
+++ eggdrop1.6/src/tcl.c	Tue Sep 25 18:11:59 2001
@@ -4,7 +4,7 @@
  *   Tcl initialization
  *   getting and setting Tcl/eggdrop variables
  *
- * $Id: tcl.c,v 1.38 2001/09/24 04:25:40 guppy Exp $
+ * $Id: tcl.c,v 1.39 2001/09/25 23:11:59 guppy Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -291,111 +291,115 @@
 
 #if ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 1)) || (TCL_MAJOR_VERSION > 8)
 
-static int utf_converter(ClientData cdata, Tcl_Interp *myinterp, int objc, Tcl_Obj *CONST objv[])
+static int utf_converter(ClientData cdata, Tcl_Interp *myinterp, int objc,
+			 Tcl_Obj *CONST objv[])
 {
-	char **strings, *byteptr;
-	int i, len, retval, *intarray, diff;
-	Function func;
-	ClientData cd;
-
-	strings = (char **)nmalloc(sizeof(char *) * objc);
-	diff = utftot;
-	utftot += sizeof(char *) * objc;
-	for (i = 0; i < objc; i++) {
-		byteptr = (char *)Tcl_GetByteArrayFromObj(objv[i], &len);
-		strings[i] = (char *)nmalloc(len+1);
-		utftot += len+1;
-		strncpy(strings[i], byteptr, len);
-		strings[i][len] = 0;
-	}
-	intarray = (int *)cdata;
-	func = (Function) intarray[0];
-	cd = (ClientData) intarray[1];
-	diff -= utftot;
-	retval = func(cd, myinterp, objc, strings);
-	for (i = 0; i < objc; i++) nfree(strings[i]);
-	nfree(strings);
-	utftot += diff;
-	return(retval);
+  char **strings, *byteptr;
+  int i, len, retval, *intarray, diff;
+  Function func;
+  ClientData cd;
+
+  strings = (char **)nmalloc(sizeof(char *) * objc);
+  diff = utftot;
+  utftot += sizeof(char *) * objc;
+  for (i = 0; i < objc; i++) {
+    byteptr = (char *)Tcl_GetByteArrayFromObj(objv[i], &len);
+    strings[i] = (char *)nmalloc(len+1);
+    utftot += len+1;
+    strncpy(strings[i], byteptr, len);
+    strings[i][len] = 0;
+  }
+  intarray = (int *)cdata;
+  func = (Function) intarray[0];
+  cd = (ClientData) intarray[1];
+  diff -= utftot;
+  retval = func(cd, myinterp, objc, strings);
+  for (i = 0; i < objc; i++) nfree(strings[i]);
+  nfree(strings);
+  utftot += diff;
+  return(retval);
 }
 
 void cmd_delete_callback(ClientData cdata)
 {
-	nfree(cdata);
-	clientdata_stuff -= sizeof(int) * 2;
+  nfree(cdata);
+  clientdata_stuff -= sizeof(int) * 2;
 }
 
-void add_tcl_commands(tcl_cmds *tab)
+void add_tcl_commands(tcl_cmds *table)
 {
-	int *cdata;
+  int *cdata;
 
-	while (tab->name) {
-		cdata = (int *)nmalloc(sizeof(int) * 2);
-		clientdata_stuff += sizeof(int) * 2;
-		cdata[0] = (int) tab->func;
-		cdata[1] = (int) NULL;
-		Tcl_CreateObjCommand(interp, tab->name, utf_converter, (ClientData) cdata, cmd_delete_callback);
-		tab++;
-	}
+  while (table->name) {
+    cdata = (int *)nmalloc(sizeof(int) * 2);
+    clientdata_stuff += sizeof(int) * 2;
+    cdata[0] = (int) table->func;
+    cdata[1] = (int) NULL;
+    Tcl_CreateObjCommand(interp, table->name, utf_converter, (ClientData) cdata,
+			 cmd_delete_callback);
+    table++;
+  }
 }
 
 void add_cd_tcl_cmds(cd_tcl_cmd *table)
 {
-	int *cdata;
+  int *cdata;
 
-	while (table->name) {
-		cdata = (int *)nmalloc(sizeof(int) * 2);
-		clientdata_stuff += sizeof(int) * 2;
-		cdata[0] = (int) table->callback;
-		cdata[1] = (int) table->cdata;
-		Tcl_CreateObjCommand(interp, table->name, utf_converter, (ClientData) cdata, cmd_delete_callback);
-		table++;
-	}
+  while (table->name) {
+    cdata = (int *)nmalloc(sizeof(int) * 2);
+    clientdata_stuff += sizeof(int) * 2;
+    cdata[0] = (int) table->callback;
+    cdata[1] = (int) table->cdata;
+    Tcl_CreateObjCommand(interp, table->name, utf_converter, (ClientData) cdata, 
+			 cmd_delete_callback);
+    table++;
+  }
 }
 
 #else
 
-void add_tcl_commands(tcl_cmds *tab)
+void add_tcl_commands(tcl_cmds *table)
 {
   int i;
 
-  for (i = 0; tab[i].name; i++)
-    Tcl_CreateCommand(interp, tab[i].name, tab[i].func, NULL, NULL);
+  for (i = 0; table[i].name; i++)
+    Tcl_CreateCommand(interp, table[i].name, table[i].func, NULL, NULL);
 }
 
 void add_cd_tcl_cmds(cd_tcl_cmd *table)
 {
-	while (table->name) {
-		Tcl_CreateCommand(interp, table->name, table->callback, (ClientData) table->cdata, NULL);
-		table++;
-	}
+  while (table->name) {
+    Tcl_CreateCommand(interp, table->name, table->callback, 
+		      (ClientData) table->cdata, NULL);
+    table++;
+  }
 }
 
 #endif
 
-void rem_tcl_commands(tcl_cmds *tab)
+void rem_tcl_commands(tcl_cmds *table)
 {
   int i;
 
-  for (i = 0; tab[i].name; i++)
-    Tcl_DeleteCommand(interp, tab[i].name);
+  for (i = 0; table[i].name; i++)
+    Tcl_DeleteCommand(interp, table[i].name);
 }
 
 void rem_cd_tcl_cmds(cd_tcl_cmd *table)
 {
-	while (table->name) {
-		Tcl_DeleteCommand(interp, table->name);
-		table++;
-	}
+  while (table->name) {
+    Tcl_DeleteCommand(interp, table->name);
+    table++;
+  }
 }
 
-void add_tcl_objcommands(tcl_cmds *tab)
+void add_tcl_objcommands(tcl_cmds *table)
 {
 #if (TCL_MAJOR_VERSION >= 8)
   int i;
 
-  for (i = 0; tab[i].name; i++)
-    Tcl_CreateObjCommand(interp, tab[i].name, tab[i].func, (ClientData) 0, NULL);
+  for (i = 0; table[i].name; i++)
+    Tcl_CreateObjCommand(interp, table[i].name, table[i].func, (ClientData) 0, NULL);
 #endif
 }
 
Index: eggdrop1.6/src/tclegg.h
diff -u eggdrop1.6/src/tclegg.h:1.14 eggdrop1.6/src/tclegg.h:1.15
--- eggdrop1.6/src/tclegg.h:1.14	Sun Sep 23 15:17:47 2001
+++ eggdrop1.6/src/tclegg.h	Tue Sep 25 18:11:59 2001
@@ -2,7 +2,7 @@
  * tclegg.h
  *   stuff used by tcl.c and tclhash.c
  *
- * $Id: tclegg.h,v 1.14 2001/09/23 20:17:47 guppy Exp $
+ * $Id: tclegg.h,v 1.15 2001/09/25 23:11:59 guppy Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -115,9 +115,9 @@
 } tcl_cmds;
 
 typedef struct _cd_tcl_cmd {
-	char *name;
-	Function callback;
-	void *cdata;
+  char *name;
+  Function callback;
+  void *cdata;
 } cd_tcl_cmd;
 
 void add_tcl_commands(tcl_cmds *);
Index: eggdrop1.6/src/tclhash.c
diff -u eggdrop1.6/src/tclhash.c:1.29 eggdrop1.6/src/tclhash.c:1.30
--- eggdrop1.6/src/tclhash.c:1.29	Sun Sep 23 15:17:47 2001
+++ eggdrop1.6/src/tclhash.c	Tue Sep 25 18:11:59 2001
@@ -7,7 +7,7 @@
  *   (non-Tcl) procedure lookups for msg/dcc/file commands
  *   (Tcl) binding internal procedures to msg/dcc/file commands
  *
- * $Id: tclhash.c,v 1.29 2001/09/23 20:17:47 guppy Exp $
+ * $Id: tclhash.c,v 1.30 2001/09/25 23:11:59 guppy Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -207,8 +207,8 @@
 static int tcl_bind();
 
 static cd_tcl_cmd cd_cmd_table[] = {
-	{"bind", tcl_bind, (void *)0},
-	{"unbind", tcl_bind, (void *)1}
+  {"bind", tcl_bind, (void *)0},
+  {"unbind", tcl_bind, (void *)1}
 };
 
 void init_bind(void)
----------------------- End of diff -----------------------



More information about the Changes mailing list