diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-30 21:26:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-30 21:26:39 (GMT) |
| commit | 19592f48720d9e5acc55f0b9086d0a9c380b82a1 (patch) | |
| tree | dff97bf5517c86961d95833865c2e04da7a4365f /generic/tclStringObj.c | |
| parent | 6a4ce2b6c03f5c2a44621116154867ef8ab48b2e (diff) | |
| download | tcl-19592f48720d9e5acc55f0b9086d0a9c380b82a1.zip tcl-19592f48720d9e5acc55f0b9086d0a9c380b82a1.tar.gz tcl-19592f48720d9e5acc55f0b9086d0a9c380b82a1.tar.bz2 | |
Let's [9c258a841a|fix] the j%j/%q type specifiers, so they behave like C in scripts, and document them
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 494451d..b4da1a9 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2457,6 +2457,12 @@ Tcl_AppendFormatToObj( format += step; step = TclUtfToUniChar(format, &ch); } + } else if ((ch == 'q') || (ch == 'j')) { + format += step; + step = TclUtfToUniChar(format, &ch); +#ifndef TCL_WIDE_INT_IS_LONG + useWide = 1; +#endif } else if ((ch == 't') || (ch == 'z')) { format += step; step = TclUtfToUniChar(format, &ch); @@ -2465,7 +2471,7 @@ Tcl_AppendFormatToObj( useWide = 1; } #endif - } else if ((ch == 'q') || (ch == 'j') || (ch == 'L')) { + } else if (ch == 'L') { format += step; step = TclUtfToUniChar(format, &ch); useBig = 1; |