diff options
author | dgp <dgp@users.sourceforge.net> | 2011-05-10 17:22:11 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-05-10 17:22:11 (GMT) |
commit | 5e902ae378db6fa9d0ef3272832d1a14bde3b44d (patch) | |
tree | e602fe4a2dd5a57b2cb47e427fc0d604d4b82a86 /generic/tclDecls.h | |
parent | 2ab84f74c362dd589f01ba696fde1b00d14fe1e5 (diff) | |
parent | d8668e5c5d98e9b11f6c85e8bd3c7c6ac6834838 (diff) | |
download | tcl-5e902ae378db6fa9d0ef3272832d1a14bde3b44d.zip tcl-5e902ae378db6fa9d0ef3272832d1a14bde3b44d.tar.gz tcl-5e902ae378db6fa9d0ef3272832d1a14bde3b44d.tar.bz2 |
New internal routines TclScanElement() and TclConvertElement().
Rewritten guts of machinery to produce string rep of lists. [Bug 3173086]
Diffstat (limited to 'generic/tclDecls.h')
-rw-r--r-- | generic/tclDecls.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index f83bff7..1df7e14 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -651,9 +651,9 @@ EXTERN void Tcl_Release(ClientData clientData); /* 217 */ EXTERN void Tcl_ResetResult(Tcl_Interp *interp); /* 218 */ -EXTERN int Tcl_ScanElement(const char *str, int *flagPtr); +EXTERN int Tcl_ScanElement(const char *src, int *flagPtr); /* 219 */ -EXTERN int Tcl_ScanCountedElement(const char *str, int length, +EXTERN int Tcl_ScanCountedElement(const char *src, int length, int *flagPtr); /* 220 */ EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); @@ -2060,8 +2060,8 @@ typedef struct TclStubs { void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */ void (*tcl_Release) (ClientData clientData); /* 216 */ void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ - int (*tcl_ScanElement) (const char *str, int *flagPtr); /* 218 */ - int (*tcl_ScanCountedElement) (const char *str, int length, int *flagPtr); /* 219 */ + int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */ + int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */ int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ int (*tcl_ServiceAll) (void); /* 221 */ int (*tcl_ServiceEvent) (int flags); /* 222 */ |