diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-26 12:31:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-26 12:31:57 (GMT) |
| commit | 622d68eaef01f805e3e214a12128488c505fd3d2 (patch) | |
| tree | 11a59fda312d5cad839cdb86888909efb33ead09 /generic/tclTest.c | |
| parent | 606baf39a5ea4daea70730647a6c5e435db9df03 (diff) | |
| parent | 0adb13141f071fa8517c6620e3a402d8408d438d (diff) | |
| download | tcl-622d68eaef01f805e3e214a12128488c505fd3d2.zip tcl-622d68eaef01f805e3e214a12128488c505fd3d2.tar.gz tcl-622d68eaef01f805e3e214a12128488c505fd3d2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index f6515c1..dcd86db 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -6041,6 +6041,45 @@ TestChannelCmd( return TCL_OK; } + if ((cmdName[0] == 'm') && (strncmp(cmdName, "maxmode", len) == 0)) { + if (argc != 3) { + Tcl_AppendResult(interp, "channel name required", NULL); + return TCL_ERROR; + } + + if (statePtr->maxPerms & TCL_READABLE) { + Tcl_AppendElement(interp, "read"); + } else { + Tcl_AppendElement(interp, ""); + } + if (statePtr->maxPerms & TCL_WRITABLE) { + Tcl_AppendElement(interp, "write"); + } else { + Tcl_AppendElement(interp, ""); + } + return TCL_OK; + } + + if ((cmdName[0] == 'm') && (strncmp(cmdName, "mremove-rd", len) == 0)) { + if (argc != 3) { + Tcl_AppendResult(interp, "channel name required", + (char *) NULL); + return TCL_ERROR; + } + + return Tcl_RemoveChannelMode(interp, chan, TCL_READABLE); + } + + if ((cmdName[0] == 'm') && (strncmp(cmdName, "mremove-wr", len) == 0)) { + if (argc != 3) { + Tcl_AppendResult(interp, "channel name required", + (char *) NULL); + return TCL_ERROR; + } + + return Tcl_RemoveChannelMode(interp, chan, TCL_WRITABLE); + } + if ((cmdName[0] == 'm') && (strncmp(cmdName, "mthread", len) == 0)) { if (argc != 3) { Tcl_AppendResult(interp, "channel name required", NULL); |