summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-09-09 15:44:26 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-09-09 15:44:26 (GMT)
commit9d73340679f7c5a710e47d19fe4cdfc41461afe3 (patch)
tree1ebbce67249a6ad57eb32c616b35a98b89eaf09e /generic/tclInt.h
parent8edbe2e47e1209c5af81525c10cf38d303a796c5 (diff)
downloadtcl-9d73340679f7c5a710e47d19fe4cdfc41461afe3.zip
tcl-9d73340679f7c5a710e47d19fe4cdfc41461afe3.tar.gz
tcl-9d73340679f7c5a710e47d19fe4cdfc41461afe3.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.h6
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);