summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-10-23 09:55:13 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-10-23 09:55:13 (GMT)
commit77a18596d7c565b3bc303059ca71fcb6be07ba95 (patch)
tree0c3855a285316911c8de6770d5e5d6d1f309ebf3
parent7f3b35ca1686f77e0da2d493f29614bdcbd04e86 (diff)
downloadtcl-77a18596d7c565b3bc303059ca71fcb6be07ba95.zip
tcl-77a18596d7c565b3bc303059ca71fcb6be07ba95.tar.gz
tcl-77a18596d7c565b3bc303059ca71fcb6be07ba95.tar.bz2
Removed obsolete history-related structures.
-rw-r--r--ChangeLog6
-rw-r--r--generic/tclInt.h40
2 files changed, 7 insertions, 39 deletions
diff --git a/ChangeLog b/ChangeLog
index d0417d6..1fcfe69 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-23 Donal K. Fellows <fellowsd@cs.man.ac.uk>
+
+ * generic/tclInt.h: Removed definitions of obsolete HistoryEvent
+ and HistoryRev structures (the history mechanism has been written
+ in Tcl for some time now.)
+
2002-10-22 Jeff Hobbs <jeffh@ActiveState.com>
*** 8.4.1 TAGGED FOR RELEASE ***
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 2c8f413..e5e6408 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclInt.h,v 1.111 2002/08/14 17:31:43 msofer Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.112 2002/10/23 09:55:14 dkf Exp $
*/
#ifndef _TCLINT
@@ -766,44 +766,6 @@ typedef VOID **TclHandle;
/*
*----------------------------------------------------------------
- * Data structures related to history. These are used primarily
- * in tclHistory.c
- *----------------------------------------------------------------
- */
-
-/*
- * The structure below defines one history event (a previously-executed
- * command that can be re-executed in whole or in part).
- */
-
-typedef struct {
- char *command; /* String containing previously-executed
- * command. */
- int bytesAvl; /* Total # of bytes available at *event (not
- * all are necessarily in use now). */
-} HistoryEvent;
-
-/*
- * The structure below defines a pending revision to the most recent
- * history event. Changes are linked together into a list and applied
- * during the next call to Tcl_RecordHistory. See the comments at the
- * beginning of tclHistory.c for information on revisions.
- */
-
-typedef struct HistoryRev {
- int firstIndex; /* Index of the first byte to replace in
- * current history event. */
- int lastIndex; /* Index of last byte to replace in
- * current history event. */
- int newSize; /* Number of bytes in newBytes. */
- char *newBytes; /* Replacement for the range given by
- * firstIndex and lastIndex (malloced). */
- struct HistoryRev *nextPtr; /* Next in chain of revisions to apply, or
- * NULL for end of list. */
-} HistoryRev;
-
-/*
- *----------------------------------------------------------------
* Data structures related to expressions. These are used only in
* tclExpr.c.
*----------------------------------------------------------------