diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-11 12:33:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-11 12:33:16 (GMT) |
| commit | c7e8d507d9233725a4629931bbceeea7ac23f699 (patch) | |
| tree | cedf1bdd26675be6cadb2414a4057c19611f5868 /generic/tclInt.h | |
| parent | cb242c0d50a43eddaa567d50717b5367658eb934 (diff) | |
| parent | e7be4a19a0cdf781b241095a0aba272ff7b35ffd (diff) | |
| download | tcl-c7e8d507d9233725a4629931bbceeea7ac23f699.zip tcl-c7e8d507d9233725a4629931bbceeea7ac23f699.tar.gz tcl-c7e8d507d9233725a4629931bbceeea7ac23f699.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 83fb420..316bfe2 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3998,6 +3998,21 @@ MODULE_SCOPE TCL_HASH_TYPE TclHashObjKey(Tcl_HashTable *tablePtr, void *keyPtr); MODULE_SCOPE int TclFullFinalizationRequested(void); /* + * Utility routines for encoding index values as integers. Used by both + * some of the command compilers and by [lsort] and [lsearch]. + */ + +MODULE_SCOPE int TclIndexEncode(Tcl_Interp *interp, Tcl_Obj *objPtr, + int before, int after, int *indexPtr); +MODULE_SCOPE int TclIndexDecode(int encoded, int endValue); + +/* Constants used in index value encoding routines. */ +#define TCL_INDEX_END (-2) +#define TCL_INDEX_BEFORE (-1) +#define TCL_INDEX_START (0) +#define TCL_INDEX_AFTER (INT_MAX) + +/* *---------------------------------------------------------------- * Macros used by the Tcl core to create and release Tcl objects. * TclNewObj(objPtr) creates a new object denoting an empty string. |