[eggheads-patches] PATCH: remove-time_date.diff

Tothwolf tothwolf at concentric.net
Sun Oct 3 13:42:54 CST 1999


remove-time_date.diff - removes obsolete tcl_time and tcl_date commands
-------------- next part --------------
Index: doc/UPDATES1.3
===================================================================
RCS file: /usr/local/cvsroot/eggdrop1.3/doc/UPDATES1.3,v
retrieving revision 1.166
diff -u -r1.166 UPDATES1.3
--- doc/UPDATES1.3	1999/09/30 21:08:30	1.166
+++ doc/UPDATES1.3	1999/10/01 21:56:57
@@ -4,6 +4,10 @@
 
 1.3.29
 Foundby   Fixedby   What....
+          Tothwolf  Removed obsolete [time] and [date] commands, Tcl7.6 and
+                    later uses [time] to time the execution of code.
+                    Scripts should now use [strftime] or compat.tcl should
+                    be loaded.
           dw        moved 'msg already queued. skipping...' to a debug
                     message and added what it skips for debugging reasons.
 Ben	  Fabian    minor doc changes to eggdrop.conf.dist
Index: src/tclmisc.c
===================================================================
RCS file: /usr/local/cvsroot/eggdrop1.3/src/tclmisc.c,v
retrieving revision 1.4
diff -u -r1.4 tclmisc.c
--- src/tclmisc.c	1999/09/15 06:40:50	1.4
+++ src/tclmisc.c	1999/10/01 21:56:59
@@ -220,34 +220,6 @@
   return TCL_OK;
 }
 
-static int tcl_time STDVAR
-{
-  char s[81];
-
-  context;
-  BADARGS(1, 1, "");
-  strcpy(s, ctime(&now));
-  strcpy(s, &s[11]);
-  s[5] = 0;
-  Tcl_AppendResult(irp, s, NULL);
-  return TCL_OK;
-}
-
-static int tcl_date STDVAR
-{
-  char s[81];
-
-  context;
-  BADARGS(1, 1, "");
-  strcpy(s, ctime(&now));
-  s[10] = s[24] = 0;
-  strcpy(s, &s[8]);
-  strcpy(&s[8], &s[20]);
-  strcpy(&s[2], &s[3]);
-  Tcl_AppendResult(irp, s, NULL);
-  return TCL_OK;
-}
-
 static int tcl_timers STDVAR
 {
   context;
@@ -517,8 +489,6 @@
   {"killtimer", tcl_killtimer},
   {"killutimer", tcl_killutimer},
   {"unixtime", tcl_unixtime},
-  {"time", tcl_time},
-  {"date", tcl_date},
   {"timers", tcl_timers},
   {"utimers", tcl_utimers},
   {"ctime", tcl_ctime},


More information about the Patches mailing list