diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-04-05 01:41:21 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-04-05 01:41:21 (GMT) |
| commit | ad24d78a8ea574457accd30663a366f6502be5bc (patch) | |
| tree | b4566b11868c676dec44dcd91a435f0d783f9e32 /generic/tclDictObj.c | |
| parent | b53447957866538072ba7c85a05786927801ec14 (diff) | |
| download | tcl-ad24d78a8ea574457accd30663a366f6502be5bc.zip tcl-ad24d78a8ea574457accd30663a366f6502be5bc.tar.gz tcl-ad24d78a8ea574457accd30663a366f6502be5bc.tar.bz2 | |
Final stage of getting dictionaries into the core. Test suite should work now!
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 41 |
1 files changed, 1 insertions, 40 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index c59be73..ef88609 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -9,50 +9,11 @@ * See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclDictObj.c,v 1.1 2003/04/05 01:03:20 dkf Exp $
+ * RCS: @(#) $Id: tclDictObj.c,v 1.2 2003/04/05 01:41:23 dkf Exp $
*/
#include "tclInt.h"
-#if 0
-/*
- * Declarations to go to tcl.h
- */
-typedef struct {
- Tcl_HashSearch search;
- int epoch;
- Dict *dictionaryPtr;
-} Tcl_DictSearch;
-/*
- * Prototypes to be moved to tcl.decls...
- */
-int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
- Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
-int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr,
- Tcl_Obj **valuePtrPtr);
-int Tcl_DictObjRemove(Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
-int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr);
-int Tcl_DictObjFirst(Tcl_Interp *interp, Tcl_Obj *dictPtr,
- Tcl_DictSearch *searchPtr,
- Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr);
-void Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
- Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr);
-void Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
-int Tcl_DictObjPutKeyList(Tcl_Interp *interp, Tcl_Obj *dictPtr,
- int keyc, Tcl_Obj *CONST *keyv, Tcl_Obj *valuePtr);
-int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, Tcl_Obj *dictPtr,
- int keyc, Tcl_Obj *CONST *keyv);
-Tcl_Obj *Tcl_NewDictObj(void);
-Tcl_Obj *Tcl_DbNewDictObj(CONST char *file, int line);
-/*
- * Prototypes to be moved to tclInt.h
- */
-int Tcl_DictObjCmd(ClientData clientData, Tcl_Interp *interp,
- int objc, Tcl_Obj *CONST *objv);
-#endif
-
-/*----------------------------------------------------------------------*/
-
/*
* Prototypes for procedures defined later in this file:
*/
|