diff options
| author | dgp@users.sourceforge.net <dgp> | 2005-09-09 15:44:26 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2005-09-09 15:44:26 (GMT) |
| commit | 97c58b577fe953ee0dee45713d2237653d529eac (patch) | |
| tree | 1ebbce67249a6ad57eb32c616b35a98b89eaf09e /generic/tclInt.h | |
| parent | 11325218769ae244cfe2d934891ba8ee39d564e0 (diff) | |
| download | tcl-97c58b577fe953ee0dee45713d2237653d529eac.zip tcl-97c58b577fe953ee0dee45713d2237653d529eac.tar.gz tcl-97c58b577fe953ee0dee45713d2237653d529eac.tar.bz2 | |
* generic/tclInt.h: New internal routines TclFormatObj()
* generic/tclStringObj.c: and TclAppendFormattedObjs() to offer
sprintf()-like means to append to Tcl_Obj. Work in progress toward
[RFE 572392].
* generic/tclCmdAH.c: Compiler directive NEW_FORMAT when #define'd
directs the [format] command to be implemented in terms of the new
TclAppendFormattedObjs() routine.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 4ec4f71..25b4b78 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.248 2005/09/06 14:40:11 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.249 2005/09/09 15:44:27 dgp Exp $ */ #ifndef _TCLINT @@ -1950,6 +1950,9 @@ MODULE_SCOPE char tclEmptyString; *---------------------------------------------------------------- */ +MODULE_SCOPE int TclAppendFormattedObjs(Tcl_Interp *interp, + Tcl_Obj *appendObj, CONST char *format, + int objc, Tcl_Obj *CONST objv[]); MODULE_SCOPE void TclAppendLimitedToObj(Tcl_Obj *objPtr, CONST char *bytes, int length, int limit, CONST char *ellipsis); @@ -1998,6 +2001,7 @@ MODULE_SCOPE void TclFinalizePreserve(void); MODULE_SCOPE void TclFinalizeSynchronization(void); MODULE_SCOPE void TclFinalizeThreadData(void); MODULE_SCOPE void TclFormatNaN(double value, char* buffer); +MODULE_SCOPE int TclFormatObj TCL_VARARGS(Tcl_Interp *, arg1); MODULE_SCOPE int TclFSFileAttrIndex(Tcl_Obj *pathPtr, CONST char *attributeName, int *indexPtr); MODULE_SCOPE Tcl_Obj * TclGetBgErrorHandler(Tcl_Interp *interp); |