diff options
author | dgp <dgp@noemail.net> | 2011-05-10 17:22:11 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-05-10 17:22:11 (GMT) |
commit | 4e26488136dba988638da0b051f4f3261a11b5c0 (patch) | |
tree | e602fe4a2dd5a57b2cb47e427fc0d604d4b82a86 /generic/tclDecls.h | |
parent | 48a3f2ba866eed93945f76da2ef8b1ac2f2cd5a8 (diff) | |
parent | 6fce47f15daf595b21fb82bcf7106164cc902ce8 (diff) | |
download | tcl-4e26488136dba988638da0b051f4f3261a11b5c0.zip tcl-4e26488136dba988638da0b051f4f3261a11b5c0.tar.gz tcl-4e26488136dba988638da0b051f4f3261a11b5c0.tar.bz2 |
New internal routines TclScanElement() and TclConvertElement().
Rewritten guts of machinery to produce string rep of lists. [Bug 3173086]
FossilOrigin-Name: 7720fbb825ec366737ab7e8c577ea25315c0a00e
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 */ |