diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2022-09-12 10:47:30 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2022-09-12 10:47:30 (GMT) |
| commit | f5846ef8f5f21d1aad31894ecee56c0c5cd5c3c1 (patch) | |
| tree | a19618a056051e6a2c862414758f9731637f2f54 /generic/tclIO.c | |
| parent | 74efc2944882b5bd6d2835d3759035ee13f4ea87 (diff) | |
| download | tcl-f5846ef8f5f21d1aad31894ecee56c0c5cd5c3c1.zip tcl-f5846ef8f5f21d1aad31894ecee56c0c5cd5c3c1.tar.gz tcl-f5846ef8f5f21d1aad31894ecee56c0c5cd5c3c1.tar.bz2 | |
TIP633 fconfigure -strictencoding: implement write -strictencoding 0.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 37bef84..4715954 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -4345,6 +4345,16 @@ Write( } dst = InsertPoint(bufPtr); dstLen = SpaceLeft(bufPtr); + + /* + * Transfer encoding strict option to the encoding flags + */ + + if (statePtr->flags & CHANNEL_ENCODING_NOCOMPLAIN) { + statePtr->outputEncodingFlags |= TCL_ENCODING_NOCOMPLAIN; + } else { + statePtr->outputEncodingFlags &= ~TCL_ENCODING_NOCOMPLAIN; + } result = Tcl_UtfToExternal(NULL, encoding, src, srcLimit, statePtr->outputEncodingFlags, |