diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-07-19 15:08:23 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-07-19 15:08:23 (GMT) |
| commit | 5bf41fe2eb79370375e30562f224f88cb98b33a5 (patch) | |
| tree | d94b750cf65002836c0ef8fe10e84b9cd2b4aea6 /generic/tclInt.h | |
| parent | bc2133334d0fb3580be3b1cd65ed85b991887e68 (diff) | |
| parent | 830b7864006fbd3ee3ac120aa17bf2416483a08d (diff) | |
| download | tcl-5bf41fe2eb79370375e30562f224f88cb98b33a5.zip tcl-5bf41fe2eb79370375e30562f224f88cb98b33a5.tar.gz tcl-5bf41fe2eb79370375e30562f224f88cb98b33a5.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 56dc4a0..feb7fd4 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2904,6 +2904,10 @@ MODULE_SCOPE void TclCreateLateExitHandler(Tcl_ExitProc *proc, ClientData clientData); MODULE_SCOPE void TclDeleteLateExitHandler(Tcl_ExitProc *proc, ClientData clientData); +MODULE_SCOPE char * TclDStringAppendObj(Tcl_DString *dsPtr, + Tcl_Obj *objPtr); +MODULE_SCOPE char * TclDStringAppendDString(Tcl_DString *dsPtr, + Tcl_DString *toAppendPtr); MODULE_SCOPE Tcl_Obj * TclDStringToObj(Tcl_DString *dsPtr); MODULE_SCOPE void TclFinalizeAllocSubsystem(void); MODULE_SCOPE void TclFinalizeAsync(void); @@ -4436,6 +4440,21 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; /* *---------------------------------------------------------------- + * Convenience macros for DStrings. + * The ANSI C "prototypes" for these macros are: + * + * MODULE_SCOPE char * TclDStringAppendLiteral(Tcl_DString *dsPtr, + * const char *sLiteral); + * MODULE_SCOPE void TclDStringClear(Tcl_DString *dsPtr); + */ + +#define TclDStringAppendLiteral(dsPtr, sLiteral) \ + Tcl_DStringAppend((dsPtr), (sLiteral), (int) (sizeof(sLiteral "") - 1)) +#define TclDStringClear(dsPtr) \ + Tcl_DStringSetLength((dsPtr), 0) + +/* + *---------------------------------------------------------------- * Macros used by the Tcl core to test for some special double values. * The ANSI C "prototypes" for these macros are: * |