Artifact
b6426fbe3c272c8e4a4ef0f1566835ed54a7d6b727aafbfb6a8827bc4db6e88a:
Attachment "diff" to
ticket [7da6c2d04c]
added by
ralfixx
2026-05-26 17:57:28.
0000: 64 69 66 66 20 2d 75 20 74 63 6c 39 2e 30 2e 33 diff -u tcl9.0.3
0010: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 49 4f 2e 63 /generic/tclIO.c
0020: 5c 7e 20 74 63 6c 39 2e 30 2e 33 2f 67 65 6e 65 \~ tcl9.0.3/gene
0030: 72 69 63 2f 74 63 6c 49 4f 2e 63 0a 2d 2d 2d 20 ric/tclIO.c.---
0040: 74 63 6c 39 2e 30 2e 33 2f 67 65 6e 65 72 69 63 tcl9.0.3/generic
0050: 2f 74 63 6c 49 4f 2e 63 7e 09 32 30 32 36 2d 30 /tclIO.c~.2026-0
0060: 35 2d 32 32 20 31 37 3a 35 36 3a 31 37 2e 39 39 5-22 17:56:17.99
0070: 37 38 39 37 31 34 32 20 2b 30 32 30 30 0a 2b 2b 7897142 +0200.++
0080: 2b 20 74 63 6c 39 2e 30 2e 33 2f 67 65 6e 65 72 + tcl9.0.3/gener
0090: 69 63 2f 74 63 6c 49 4f 2e 63 09 32 30 32 36 2d ic/tclIO.c.2026-
00a0: 30 35 2d 32 36 20 31 39 3a 31 34 3a 31 33 2e 31 05-26 19:14:13.1
00b0: 30 30 36 31 37 34 35 36 20 2b 30 32 30 30 0a 40 00617456 +0200.@
00c0: 40 20 2d 39 32 33 39 2c 36 20 2b 39 32 33 39 2c @ -9239,6 +9239,
00d0: 37 20 40 40 0a 20 20 20 20 20 63 6f 6e 73 74 20 7 @@. const
00e0: 63 68 61 72 20 2a 63 68 61 6e 4e 61 6d 65 3b 0a char *chanName;.
00f0: 20 20 20 20 20 69 6e 74 20 6d 6f 64 65 49 6e 64 int modeInd
0100: 65 78 3b 09 09 2f 2a 20 49 6e 64 65 78 20 6f 66 ex;../* Index of
0110: 20 6d 6f 64 65 20 61 72 67 75 6d 65 6e 74 2e 20 mode argument.
0120: 2a 2f 0a 20 20 20 20 20 69 6e 74 20 6d 61 73 6b */. int mask
0130: 3b 0a 2b 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 ;.+ Tcl_Size
0140: 6c 65 6e 67 74 68 3b 20 20 20 20 20 20 20 20 20 length;
0150: 20 20 20 2f 2a 20 6c 6c 65 6e 67 74 68 20 6f 66 /* llength of
0160: 20 63 61 6c 6c 62 61 63 6b 20 73 63 72 69 70 74 callback script
0170: 20 2a 2f 0a 20 20 20 20 20 73 74 61 74 69 63 20 */. static
0180: 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 6f 6e 73 const char *cons
0190: 74 20 6d 6f 64 65 4f 70 74 69 6f 6e 73 5b 5d 20 t modeOptions[]
01a0: 3d 20 7b 22 72 65 61 64 61 62 6c 65 22 2c 20 22 = {"readable", "
01b0: 77 72 69 74 61 62 6c 65 22 2c 20 4e 55 4c 4c 7d writable", NULL}
01c0: 3b 0a 20 20 20 20 20 73 74 61 74 69 63 20 63 6f ;. static co
01d0: 6e 73 74 20 69 6e 74 20 6d 61 73 6b 41 72 72 61 nst int maskArra
01e0: 79 5b 5d 20 3d 20 7b 54 43 4c 5f 52 45 41 44 41 y[] = {TCL_READA
01f0: 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54 41 42 4c BLE, TCL_WRITABL
0200: 45 7d 3b 0a 20 0a 40 40 20 2d 39 32 38 35 2c 38 E};. .@@ -9285,8
0210: 20 2b 39 32 38 36 2c 31 30 20 40 40 0a 20 20 20 +9286,10 @@.
0220: 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 49 66 20 /*. * If
0230: 77 65 20 61 72 65 20 73 75 70 70 6f 73 65 64 20 we are supposed
0240: 74 6f 20 64 65 6c 65 74 65 20 61 20 73 74 6f 72 to delete a stor
0250: 65 64 20 73 63 72 69 70 74 2c 20 64 6f 20 73 6f ed script, do so
0260: 2e 0a 20 20 20 20 20 20 2a 2f 0a 2d 0a 2d 20 20 .. */.-.-
0270: 20 20 69 66 20 28 2a 28 54 63 6c 47 65 74 53 74 if (*(TclGetSt
0280: 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 29 20 3d ring(objv[3])) =
0290: 3d 20 27 5c 30 27 29 20 7b 0a 2b 20 20 20 20 69 = '\0') {.+ i
02a0: 66 20 28 54 63 6c 5f 4c 69 73 74 4f 62 6a 4c 65 f (Tcl_ListObjLe
02b0: 6e 67 74 68 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b ngth(NULL, objv[
02c0: 33 5d 2c 20 26 6c 65 6e 67 74 68 29 20 21 3d 20 3], &length) !=
02d0: 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 20 20 20 20 20 TCL_OK) {.+
02e0: 20 20 20 54 63 6c 47 65 74 53 74 72 69 6e 67 46 TclGetStringF
02f0: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 romObj(objv[3],
0300: 26 6c 65 6e 67 74 68 29 3b 0a 2b 20 20 20 20 7d &length);.+ }
0310: 0a 2b 20 20 20 20 69 66 20 28 30 20 3d 3d 20 6c .+ if (0 == l
0320: 65 6e 67 74 68 29 20 7b 0a 20 09 44 65 6c 65 74 ength) {. .Delet
0330: 65 53 63 72 69 70 74 52 65 63 6f 72 64 28 69 6e eScriptRecord(in
0340: 74 65 72 70 2c 20 63 68 61 6e 50 74 72 2c 20 6d terp, chanPtr, m
0350: 61 73 6b 29 3b 0a 20 09 72 65 74 75 72 6e 20 54 ask);. .return T
0360: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 7d 0a 0a 44 CL_OK;. }..D
0370: 69 66 66 20 66 69 6e 69 73 68 65 64 2e 20 20 54 iff finished. T
0380: 75 65 20 4d 61 79 20 32 36 20 31 39 3a 35 35 3a ue May 26 19:55:
0390: 35 36 20 32 30 32 36 0a 56 2026.
