diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-02-24 18:55:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-02-24 18:55:42 (GMT) |
| commit | f3533a9258ecec84b776d21653f7d91abdf67831 (patch) | |
| tree | f723d3e8039a85dd9ef7a2b6fb219fc521969795 /generic/tclInt.h | |
| parent | 3ca3d6597115aa1983bd3504e95769eadba4a594 (diff) | |
| download | tcl-f3533a9258ecec84b776d21653f7d91abdf67831.zip tcl-f3533a9258ecec84b776d21653f7d91abdf67831.tar.gz tcl-f3533a9258ecec84b776d21653f7d91abdf67831.tar.bz2 | |
* generic/tclBasic.c: Use new interface in Tcl_EvalObjEx so that
the recounting logic of the List internal rep need not be repeated
there. Better encapsulation of internal details.
* generic/tclInt.h: New internal routine TclListObjCopy() used
* generic/tclListObj.c: to efficiently do the equivalent of
[lrange $list 0 end]. After some experience with this, might be
a good candidate for exposure as a public interface. It's useful
for callers of Tcl_ListObjGetElements() who want to control the
ongoing validity of the returned objv pointer.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index e28e849..967cec8 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.300 2006/12/01 15:55:45 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.301 2007/02/24 18:55:43 dgp Exp $ */ #ifndef _TCLINT @@ -2299,6 +2299,7 @@ MODULE_SCOPE Tcl_Obj * TclLindexFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, /* TIP #280 */ MODULE_SCOPE void TclListLines (CONST char* listStr, int line, int n, int* lines); +MODULE_SCOPE Tcl_Obj * TclListObjCopy(Tcl_Interp *interp, Tcl_Obj *listPtr); MODULE_SCOPE int TclLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, int symc, CONST char *symbols[], Tcl_PackageInitProc **procPtrs[], |