TIP633 fconfigure -strictencoding: TCL 9 command line implementation

1 files changed, 25 insertions, 0 deletions

diff --git a/generic/tclIO.c b/generic/tclIO.c
index 5317e30..d8a9760 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -7869,6 +7869,19 @@ Tcl_GetChannelOption(
 	    return TCL_OK;
 	}
     }
+    if (len == 0 || HaveOpt(1, "-strictencoding")) {
+	if (len == 0) {
+	    Tcl_DStringAppendElement(dsPtr, "-strictencoding");
+	}
+	Tcl_DStringAppendElement(dsPtr,
+		(flags & CHANNEL_ENCODING_NOCOMPLAIN) ? "0" : "1");
+	if (len > 0) {
+	    return TCL_OK;
+	}
+	if (len > 0) {
+	    return TCL_OK;
+	}
+    }
     if (len == 0 || HaveOpt(1, "-translation")) {
 	if (len == 0) {
 	    Tcl_DStringAppendElement(dsPtr, "-translation");
@@ -8132,6 +8145,18 @@ Tcl_SetChannelOption(
 	ResetFlag(statePtr, CHANNEL_EOF|CHANNEL_STICKY_EOF|CHANNEL_BLOCKED);
 	statePtr->inputEncodingFlags &= ~TCL_ENCODING_END;
 	return TCL_OK;
+    } else if (HaveOpt(1, "-strictencoding")) {
+	int newMode;
+
+	if (Tcl_GetBoolean(interp, newValue, &newMode) == TCL_ERROR) {
+	    return TCL_ERROR;
+	}
+	if (newMode) {
+	    statePtr->flags &= ~CHANNEL_ENCODING_NOCOMPLAIN;
+	} else {
+	    statePtr->flags |= CHANNEL_ENCODING_NOCOMPLAIN;
+	}
+	return TCL_OK;
     } else if (HaveOpt(1, "-translation")) {
 	const char *readMode, *writeMode;