diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-11-02 16:57:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-11-02 16:57:53 (GMT) |
| commit | ee75480f2f9483654c8f665acd984569f3234ca8 (patch) | |
| tree | 2310e44be176ea7118c46442e8d83a1fb9c699ec /generic/tclInt.h | |
| parent | d21c1ef27faf5fb3983ceaa6fb2f9e4d92fd79fc (diff) | |
| download | tcl-ee75480f2f9483654c8f665acd984569f3234ca8.zip tcl-ee75480f2f9483654c8f665acd984569f3234ca8.tar.gz tcl-ee75480f2f9483654c8f665acd984569f3234ca8.tar.bz2 | |
* generic/tclCmdAH.c: Further revisions to produce the routines
* generic/tclInt.h: TclFormat() and TclAppendFormatToObj() that
* generic/tclNamesp.c: accept (objc, objv) arguments rather than
* generic/tclStringObj.c: any varargs stuff.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 540858e..54a27bc 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.291 2006/11/02 15:58:08 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.292 2006/11/02 16:57:54 dgp Exp $ */ #ifndef _TCLINT @@ -2035,11 +2035,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 int TclAppendFormatToObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, CONST char *format, ...); + 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); @@ -2092,6 +2090,8 @@ MODULE_SCOPE void TclFinalizePreserve(void); MODULE_SCOPE void TclFinalizeSynchronization(void); MODULE_SCOPE void TclFinalizeThreadData(void); MODULE_SCOPE double TclFloor(mp_int *a); +MODULE_SCOPE Tcl_Obj * TclFormat(Tcl_Interp *interp, CONST char *format, + int objc, Tcl_Obj *CONST objv[]); MODULE_SCOPE void TclFormatNaN(double value, char *buffer); MODULE_SCOPE int TclFSFileAttrIndex(Tcl_Obj *pathPtr, CONST char *attributeName, int *indexPtr); @@ -2147,8 +2147,6 @@ MODULE_SCOPE int TclMergeReturnOptions(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], Tcl_Obj **optionsPtrPtr, int *codePtr, int *levelPtr); MODULE_SCOPE int TclNokia770Doubles(); -MODULE_SCOPE Tcl_Obj * TclObjFormat(Tcl_Interp *interp, - CONST char *format, ...); MODULE_SCOPE int TclObjInvokeNamespace(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], Tcl_Namespace *nsPtr, int flags); |