Attachment "halfclosesock-2.patch" to
ticket [219159ffff]
added by
andreas_kupries
2008-11-28 06:47:12.
0000: 2d 2d 2d 20 74 63 6c 38 36 2e 6f 72 69 67 2f 67 --- tcl86.orig/g
0010: 65 6e 65 72 69 63 2f 74 63 6c 2e 64 65 63 6c 73 eneric/tcl.decls
0020: 09 32 30 30 38 2d 31 31 2d 32 37 20 31 34 3a 34 .2008-11-27 14:4
0030: 38 3a 31 37 2e 30 30 30 30 30 30 30 30 30 20 2d 8:17.000000000 -
0040: 30 38 30 30 0a 2b 2b 2b 20 74 63 6c 38 36 2f 67 0800.+++ tcl86/g
0050: 65 6e 65 72 69 63 2f 74 63 6c 2e 64 65 63 6c 73 eneric/tcl.decls
0060: 09 32 30 30 38 2d 31 31 2d 32 37 20 31 34 3a 35 .2008-11-27 14:5
0070: 39 3a 32 35 2e 30 30 30 30 30 30 30 30 30 20 2d 9:25.000000000 -
0080: 30 38 30 30 0a 40 40 20 2d 32 32 30 34 2c 36 20 0800.@@ -2204,6
0090: 2b 32 32 30 34 2c 31 31 20 40 40 0a 20 09 20 20 +2204,11 @@. .
00a0: 20 20 69 6e 74 20 2a 6f 62 6a 63 50 74 72 2c 20 int *objcPtr,
00b0: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 2a Tcl_Obj *const *
00c0: 6f 62 6a 76 2c 20 54 63 6c 5f 4f 62 6a 20 2a 2a objv, Tcl_Obj **
00d0: 2a 72 65 6d 4f 62 6a 76 29 0a 20 7d 0a 20 0a 2b *remObjv). }. .+
00e0: 23 20 54 49 50 23 33 33 32 2c 20 48 61 6c 66 20 # TIP#332, Half
00f0: 43 6c 6f 73 65 20 6d 61 64 65 20 70 75 62 6c 69 Close made publi
0100: 63 0a 2b 64 65 63 6c 61 72 65 20 36 30 35 20 67 c.+declare 605 g
0110: 65 6e 65 72 69 63 20 7b 0a 2b 20 20 20 20 69 6e eneric {.+ in
0120: 74 20 54 63 6c 5f 43 6c 6f 73 65 45 78 28 54 63 t Tcl_CloseEx(Tc
0130: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0140: 2c 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 , Tcl_Channel ch
0150: 61 6e 2c 20 69 6e 74 20 66 6c 61 67 73 29 0a 2b an, int flags).+
0160: 7d 0a 2b 0a 20 23 23 23 23 23 23 23 23 23 23 23 }.+. ###########
0170: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01b0: 23 23 23 0a 20 0a 20 23 20 44 65 66 69 6e 65 20 ###. . # Define
01c0: 74 68 65 20 70 6c 61 74 66 6f 72 6d 20 73 70 65 the platform spe
01d0: 63 69 66 69 63 20 70 75 62 6c 69 63 20 54 63 6c cific public Tcl
01e0: 20 69 6e 74 65 72 66 61 63 65 2e 20 20 54 68 65 interface. The
01f0: 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 se functions are
0200: 0a 2d 2d 2d 20 74 63 6c 38 36 2e 6f 72 69 67 2f .--- tcl86.orig/
0210: 67 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 6c 73 generic/tclDecls
0220: 2e 68 09 32 30 30 38 2d 31 31 2d 32 37 20 31 34 .h.2008-11-27 14
0230: 3a 34 38 3a 31 37 2e 30 30 30 30 30 30 30 30 30 :48:17.000000000
0240: 20 2d 30 38 30 30 0a 2b 2b 2b 20 74 63 6c 38 36 -0800.+++ tcl86
0250: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 6c /generic/tclDecl
0260: 73 2e 68 09 32 30 30 38 2d 31 31 2d 32 37 20 31 s.h.2008-11-27 1
0270: 35 3a 32 37 3a 30 31 2e 30 30 30 30 30 30 30 30 5:27:01.00000000
0280: 30 20 2d 30 38 30 30 0a 40 40 20 2d 33 36 35 37 0 -0800.@@ -3657
0290: 2c 36 20 2b 33 36 35 37 2c 31 32 20 40 40 0a 20 ,6 +3657,12 @@.
02a0: 09 09 09 09 63 6f 6e 73 74 20 54 63 6c 5f 41 72 ....const Tcl_Ar
02b0: 67 76 49 6e 66 6f 20 2a 20 61 72 67 54 61 62 6c gvInfo * argTabl
02c0: 65 2c 20 69 6e 74 20 2a 20 6f 62 6a 63 50 74 72 e, int * objcPtr
02d0: 2c 0a 20 09 09 09 09 54 63 6c 5f 4f 62 6a 20 2a ,. ....Tcl_Obj *
02e0: 63 6f 6e 73 74 20 2a 20 6f 62 6a 76 2c 20 54 63 const * objv, Tc
02f0: 6c 5f 4f 62 6a 20 2a 2a 2a 20 72 65 6d 4f 62 6a l_Obj *** remObj
0300: 76 29 3b 0a 20 23 65 6e 64 69 66 0a 2b 23 69 66 v);. #endif.+#if
0310: 6e 64 65 66 20 54 63 6c 5f 43 6c 6f 73 65 45 78 ndef Tcl_CloseEx
0320: 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 23 _TCL_DECLARED.+#
0330: 64 65 66 69 6e 65 20 54 63 6c 5f 43 6c 6f 73 65 define Tcl_Close
0340: 45 78 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44 0a Ex_TCL_DECLARED.
0350: 2b 2f 2a 20 36 30 35 20 2a 2f 0a 2b 45 58 54 45 +/* 605 */.+EXTE
0360: 52 4e 20 69 6e 74 09 09 54 63 6c 5f 43 6c 6f 73 RN int..Tcl_Clos
0370: 65 45 78 20 28 54 63 6c 5f 49 6e 74 65 72 70 20 eEx (Tcl_Interp
0380: 2a 20 69 6e 74 65 72 70 2c 20 54 63 6c 5f 43 68 * interp, Tcl_Ch
0390: 61 6e 6e 65 6c 20 63 68 61 6e 2c 0a 2b 09 09 09 annel chan,.+...
03a0: 09 69 6e 74 20 66 6c 61 67 73 29 3b 0a 2b 23 65 .int flags);.+#e
03b0: 6e 64 69 66 0a 20 0a 20 74 79 70 65 64 65 66 20 ndif. . typedef
03c0: 73 74 72 75 63 74 20 54 63 6c 53 74 75 62 48 6f struct TclStubHo
03d0: 6f 6b 73 20 7b 0a 20 20 20 20 20 63 6f 6e 73 74 oks {. const
03e0: 20 73 74 72 75 63 74 20 54 63 6c 50 6c 61 74 53 struct TclPlatS
03f0: 74 75 62 73 20 2a 74 63 6c 50 6c 61 74 53 74 75 tubs *tclPlatStu
0400: 62 73 3b 0a 40 40 20 2d 34 33 32 31 2c 36 20 2b bs;.@@ -4321,6 +
0410: 34 33 32 37 2c 37 20 40 40 0a 20 20 20 20 20 69 4327,7 @@. i
0420: 6e 74 20 28 2a 74 63 6c 5f 53 65 74 45 6e 73 65 nt (*tcl_SetEnse
0430: 6d 62 6c 65 50 61 72 61 6d 65 74 65 72 4c 69 73 mbleParameterLis
0440: 74 29 20 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a t) (Tcl_Interp *
0450: 20 69 6e 74 65 72 70 2c 20 54 63 6c 5f 43 6f 6d interp, Tcl_Com
0460: 6d 61 6e 64 20 74 6f 6b 65 6e 2c 20 54 63 6c 5f mand token, Tcl_
0470: 4f 62 6a 20 2a 20 70 61 72 61 6d 4c 69 73 74 29 Obj * paramList)
0480: 3b 20 2f 2a 20 36 30 32 20 2a 2f 0a 20 20 20 20 ; /* 602 */.
0490: 20 69 6e 74 20 28 2a 74 63 6c 5f 47 65 74 45 6e int (*tcl_GetEn
04a0: 73 65 6d 62 6c 65 50 61 72 61 6d 65 74 65 72 4c sembleParameterL
04b0: 69 73 74 29 20 28 54 63 6c 5f 49 6e 74 65 72 70 ist) (Tcl_Interp
04c0: 20 2a 20 69 6e 74 65 72 70 2c 20 54 63 6c 5f 43 * interp, Tcl_C
04d0: 6f 6d 6d 61 6e 64 20 74 6f 6b 65 6e 2c 20 54 63 ommand token, Tc
04e0: 6c 5f 4f 62 6a 20 2a 2a 20 70 61 72 61 6d 4c 69 l_Obj ** paramLi
04f0: 73 74 50 74 72 29 3b 20 2f 2a 20 36 30 33 20 2a stPtr); /* 603 *
0500: 2f 0a 20 20 20 20 20 69 6e 74 20 28 2a 74 63 6c /. int (*tcl
0510: 5f 50 61 72 73 65 41 72 67 73 4f 62 6a 76 29 20 _ParseArgsObjv)
0520: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e (Tcl_Interp * in
0530: 74 65 72 70 2c 20 63 6f 6e 73 74 20 54 63 6c 5f terp, const Tcl_
0540: 41 72 67 76 49 6e 66 6f 20 2a 20 61 72 67 54 61 ArgvInfo * argTa
0550: 62 6c 65 2c 20 69 6e 74 20 2a 20 6f 62 6a 63 50 ble, int * objcP
0560: 74 72 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e tr, Tcl_Obj *con
0570: 73 74 20 2a 20 6f 62 6a 76 2c 20 54 63 6c 5f 4f st * objv, Tcl_O
0580: 62 6a 20 2a 2a 2a 20 72 65 6d 4f 62 6a 76 29 3b bj *** remObjv);
0590: 20 2f 2a 20 36 30 34 20 2a 2f 0a 2b 20 20 20 20 /* 604 */.+
05a0: 69 6e 74 20 28 2a 74 63 6c 5f 43 6c 6f 73 65 45 int (*tcl_CloseE
05b0: 78 29 20 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a x) (Tcl_Interp *
05c0: 20 69 6e 74 65 72 70 2c 20 54 63 6c 5f 43 68 61 interp, Tcl_Cha
05d0: 6e 6e 65 6c 20 63 68 61 6e 2c 20 69 6e 74 20 66 nnel chan, int f
05e0: 6c 61 67 73 29 3b 20 2f 2a 20 36 30 35 20 2a 2f lags); /* 605 */
05f0: 0a 20 7d 20 54 63 6c 53 74 75 62 73 3b 0a 20 0a . } TclStubs;. .
0600: 20 23 69 66 20 64 65 66 69 6e 65 64 28 55 53 45 #if defined(USE
0610: 5f 54 43 4c 5f 53 54 55 42 53 29 20 26 26 20 21 _TCL_STUBS) && !
0620: 64 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f defined(USE_TCL_
0630: 53 54 55 42 5f 50 52 4f 43 53 29 0a 40 40 20 2d STUB_PROCS).@@ -
0640: 36 38 31 33 2c 36 20 2b 36 38 32 30 2c 31 30 20 6813,6 +6820,10
0650: 40 40 0a 20 23 64 65 66 69 6e 65 20 54 63 6c 5f @@. #define Tcl_
0660: 50 61 72 73 65 41 72 67 73 4f 62 6a 76 20 5c 0a ParseArgsObjv \.
0670: 20 09 28 74 63 6c 53 74 75 62 73 50 74 72 2d 3e .(tclStubsPtr->
0680: 74 63 6c 5f 50 61 72 73 65 41 72 67 73 4f 62 6a tcl_ParseArgsObj
0690: 76 29 20 2f 2a 20 36 30 34 20 2a 2f 0a 20 23 65 v) /* 604 */. #e
06a0: 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20 54 63 ndif.+#ifndef Tc
06b0: 6c 5f 43 6c 6f 73 65 45 78 0a 2b 23 64 65 66 69 l_CloseEx.+#defi
06c0: 6e 65 20 54 63 6c 5f 43 6c 6f 73 65 45 78 20 5c ne Tcl_CloseEx \
06d0: 0a 2b 09 28 74 63 6c 53 74 75 62 73 50 74 72 2d .+.(tclStubsPtr-
06e0: 3e 74 63 6c 5f 43 6c 6f 73 65 45 78 29 20 2f 2a >tcl_CloseEx) /*
06f0: 20 36 30 35 20 2a 2f 0a 2b 23 65 6e 64 69 66 0a 605 */.+#endif.
0700: 20 0a 20 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 . #endif /* def
0710: 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 ined(USE_TCL_STU
0720: 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 BS) && !defined(
0730: 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f USE_TCL_STUB_PRO
0740: 43 53 29 20 2a 2f 0a 20 0a 2d 2d 2d 20 74 63 6c CS) */. .--- tcl
0750: 38 36 2e 6f 72 69 67 2f 67 65 6e 65 72 69 63 2f 86.orig/generic/
0760: 74 63 6c 49 4f 2e 63 09 32 30 30 38 2d 31 31 2d tclIO.c.2008-11-
0770: 32 37 20 31 34 3a 34 38 3a 31 37 2e 30 30 30 30 27 14:48:17.0000
0780: 30 30 30 30 30 20 2d 30 38 30 30 0a 2b 2b 2b 20 00000 -0800.+++
0790: 74 63 6c 38 36 2f 67 65 6e 65 72 69 63 2f 74 63 tcl86/generic/tc
07a0: 6c 49 4f 2e 63 09 32 30 30 38 2d 31 31 2d 32 37 lIO.c.2008-11-27
07b0: 20 31 35 3a 34 32 3a 33 36 2e 30 30 30 30 30 30 15:42:36.000000
07c0: 30 30 30 20 2d 30 38 30 30 0a 40 40 20 2d 33 30 000 -0800.@@ -30
07d0: 32 38 2c 36 20 2b 33 30 32 38 2c 31 33 32 20 40 28,6 +3028,132 @
07e0: 40 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d @. /*. *-------
07f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0830: 20 20 2a 0a 2b 20 2a 20 54 63 6c 5f 43 6c 6f 73 *.+ * Tcl_Clos
0840: 65 45 78 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a 09 48 eEx --.+ *.+ *.H
0850: 61 6c 66 20 63 6c 6f 73 65 73 20 61 20 63 68 61 alf closes a cha
0860: 6e 6e 65 6c 2e 0a 2b 20 2a 0a 2b 20 2a 20 52 65 nnel..+ *.+ * Re
0870: 73 75 6c 74 73 3a 0a 2b 20 2a 09 41 20 73 74 61 sults:.+ *.A sta
0880: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
0890: 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 20 65 ..+ *.+ * Side e
08a0: 66 66 65 63 74 73 3a 0a 2b 20 2a 09 43 6c 6f 73 ffects:.+ *.Clos
08b0: 65 73 20 6f 6e 65 20 64 69 72 65 63 74 69 6f 6e es one direction
08c0: 20 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e of the channel.
08d0: 0a 2b 20 2a 0a 2b 20 2a 20 4e 4f 54 45 3a 0a 2b .+ *.+ * NOTE:.+
08e0: 20 2a 09 54 63 6c 5f 43 6c 6f 73 65 45 78 20 63 *.Tcl_CloseEx c
08f0: 6c 6f 73 65 73 20 74 68 65 20 73 70 65 63 69 66 loses the specif
0900: 69 65 64 20 64 69 72 65 63 74 69 6f 6e 20 6f 66 ied direction of
0910: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 61 73 20 the channel as
0920: 66 61 72 20 61 73 0a 2b 20 2a 09 74 68 65 20 75 far as.+ *.the u
0930: 73 65 72 20 69 73 20 63 6f 6e 63 65 72 6e 65 64 ser is concerned
0940: 2e 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 6b 65 . The channel ke
0950: 65 70 73 20 65 78 69 73 74 69 6e 67 20 68 6f 77 eps existing how
0960: 65 76 65 72 2e 20 59 6f 75 20 63 61 6e 6e 6f 74 ever. You cannot
0970: 0a 2b 20 2a 09 63 61 6c 6c 73 20 74 68 69 73 20 .+ *.calls this
0980: 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 6c 6f 73 function to clos
0990: 65 20 74 68 65 20 6c 61 73 74 20 70 6f 73 73 69 e the last possi
09a0: 62 6c 65 20 64 69 72 65 63 74 69 6f 6e 20 6f 66 ble direction of
09b0: 20 74 68 65 0a 2b 20 2a 09 63 68 61 6e 6e 65 6c the.+ *.channel
09c0: 2e 20 55 73 65 20 54 63 6c 5f 43 6c 6f 73 65 20 . Use Tcl_Close
09d0: 66 6f 72 20 74 68 61 74 2e 0a 2b 20 2a 0a 2b 20 for that..+ *.+
09e0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a20: 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b -------.+ */.+.+
0a30: 09 2f 2a 20 41 52 47 53 55 53 45 44 20 2a 2f 0a ./* ARGSUSED */.
0a40: 2b 69 6e 74 0a 2b 54 63 6c 5f 43 6c 6f 73 65 45 +int.+Tcl_CloseE
0a50: 78 28 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 x(.+ Tcl_Inte
0a60: 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 rp *interp,../*
0a70: 49 6e 74 65 72 70 72 65 74 65 72 20 66 6f 72 20 Interpreter for
0a80: 65 72 72 6f 72 73 2e 20 2a 2f 0a 2b 20 20 20 20 errors. */.+
0a90: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
0aa0: 2c 09 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 ,../* The channe
0ab0: 6c 20 62 65 69 6e 67 20 63 6c 6f 73 65 64 2e 20 l being closed.
0ac0: 4d 61 79 20 73 74 69 6c 6c 20 62 65 20 75 73 65 May still be use
0ad0: 64 20 62 79 20 73 6f 6d 65 20 69 6e 74 65 72 70 d by some interp
0ae0: 72 65 74 65 72 20 2a 2f 0a 2b 20 20 20 20 69 6e reter */.+ in
0af0: 74 20 66 6c 61 67 73 29 20 20 20 20 20 20 20 20 t flags)
0b00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 6c 61 /* Fla
0b10: 67 73 20 74 65 6c 6c 69 6e 67 20 75 73 20 77 68 gs telling us wh
0b20: 69 63 68 20 73 69 64 65 20 74 6f 20 63 6c 6f 73 ich side to clos
0b30: 65 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 43 68 e. */.+{.+ Ch
0b40: 61 6e 6e 65 6c 20 2a 63 68 61 6e 50 74 72 3b 09 annel *chanPtr;.
0b50: 09 2f 2a 20 54 68 65 20 72 65 61 6c 20 49 4f 20 ./* The real IO
0b60: 63 68 61 6e 6e 65 6c 2e 20 2a 2f 0a 2b 20 20 20 channel. */.+
0b70: 20 43 68 61 6e 6e 65 6c 53 74 61 74 65 20 2a 73 ChannelState *s
0b80: 74 61 74 65 50 74 72 3b 09 2f 2a 20 53 74 61 74 tatePtr;./* Stat
0b90: 65 20 6f 66 20 72 65 61 6c 20 49 4f 20 63 68 61 e of real IO cha
0ba0: 6e 6e 65 6c 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e nnel. */.+ in
0bb0: 74 20 72 65 73 75 6c 74 3b 09 09 09 2f 2a 20 4f t result;.../* O
0bc0: 66 20 63 61 6c 6c 69 6e 67 20 46 6c 75 73 68 43 f calling FlushC
0bd0: 68 61 6e 6e 65 6c 2e 20 2a 2f 0a 2b 0a 2b 20 20 hannel. */.+.+
0be0: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 4e 55 if (chan == NU
0bf0: 4c 4c 29 20 7b 0a 2b 09 72 65 74 75 72 6e 20 54 LL) {.+.return T
0c00: 43 4c 5f 4f 4b 3b 0a 2b 20 20 20 20 7d 0a 2b 0a CL_OK;.+ }.+.
0c10: 2b 20 20 20 20 2f 2a 20 54 4f 44 4f 3a 20 61 73 + /* TODO: as
0c20: 73 65 72 74 20 66 6c 61 67 73 20 76 61 6c 69 64 sert flags valid
0c30: 69 74 79 20 3f 20 2a 2f 0a 2b 0a 2b 20 20 20 20 ity ? */.+.+
0c40: 63 68 61 6e 50 74 72 20 3d 20 28 43 68 61 6e 6e chanPtr = (Chann
0c50: 65 6c 20 2a 29 20 63 68 61 6e 3b 0a 2b 20 20 20 el *) chan;.+
0c60: 20 73 74 61 74 65 50 74 72 20 3d 20 63 68 61 6e statePtr = chan
0c70: 50 74 72 2d 3e 73 74 61 74 65 3b 0a 2b 0a 2b 20 Ptr->state;.+.+
0c80: 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 44 6f /*.+ * Do
0c90: 65 73 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 73 es the channel s
0ca0: 75 70 70 6f 72 74 20 68 61 6c 66 2d 63 6c 6f 73 upport half-clos
0cb0: 65 20 61 6e 79 77 61 79 20 3f 20 45 72 72 6f 72 e anyway ? Error
0cc0: 20 69 66 20 6e 6f 74 2e 0a 2b 20 20 20 20 20 2a if not..+ *
0cd0: 2f 0a 2b 0a 2b 20 20 20 20 69 66 20 28 21 63 68 /.+.+ if (!ch
0ce0: 61 6e 50 74 72 2d 3e 74 79 70 65 50 74 72 2d 3e anPtr->typePtr->
0cf0: 63 6c 6f 73 65 32 50 72 6f 63 29 20 7b 0a 2b 09 close2Proc) {.+.
0d00: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
0d10: 20 28 69 6e 74 65 72 70 2c 20 22 48 61 6c 66 2d (interp, "Half-
0d20: 63 6c 6f 73 65 20 6f 66 20 63 68 61 6e 6e 65 6c close of channel
0d30: 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 s not supported
0d40: 62 79 20 22 2c 0a 2b 09 09 09 20 20 63 68 61 6e by ",.+... chan
0d50: 50 74 72 2d 3e 74 79 70 65 50 74 72 2d 3e 74 79 Ptr->typePtr->ty
0d60: 70 65 4e 61 6d 65 2c 20 22 73 22 2c 20 4e 55 4c peName, "s", NUL
0d70: 4c 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c L);.+.return TCL
0d80: 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b _ERROR;.+ }.+
0d90: 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a .+ /*.+ *
0da0: 20 49 73 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 Is the channel
0db0: 75 6e 73 74 61 63 6b 65 64 20 3f 20 49 66 20 6e unstacked ? If n
0dc0: 6f 74 20 77 65 20 66 61 69 6c 2e 0a 2b 20 20 20 ot we fail..+
0dd0: 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 69 66 20 28 */.+.+ if (
0de0: 63 68 61 6e 50 74 72 20 21 3d 20 73 74 61 74 65 chanPtr != state
0df0: 50 74 72 2d 3e 74 6f 70 43 68 61 6e 50 74 72 29 Ptr->topChanPtr)
0e00: 20 7b 0a 2b 09 54 63 6c 5f 41 70 70 65 6e 64 52 {.+.Tcl_AppendR
0e10: 65 73 75 6c 74 20 28 69 6e 74 65 72 70 2c 0a 2b esult (interp,.+
0e20: 09 09 09 20 20 22 48 61 6c 66 2d 63 6c 6f 73 65 ... "Half-close
0e30: 20 6e 6f 74 20 61 70 70 6c 69 63 61 62 6c 65 20 not applicable
0e40: 74 6f 20 73 74 61 63 6b 20 6f 66 20 74 72 61 6e to stack of tran
0e50: 73 66 6f 72 6d 61 74 69 6f 6e 73 22 2c 0a 2b 09 sformations",.+.
0e60: 09 09 20 20 4e 55 4c 4c 29 3b 0a 2b 09 72 65 74 .. NULL);.+.ret
0e70: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b urn TCL_ERROR;.+
0e80: 20 20 20 20 7d 0a 2b 20 20 20 20 0a 2b 20 20 20 }.+ .+
0e90: 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 43 68 65 63 /*.+ * Chec
0ea0: 6b 20 64 69 72 65 63 74 69 6f 6e 20 61 67 61 69 k direction agai
0eb0: 6e 73 74 20 63 68 61 6e 6e 65 6c 20 6d 6f 64 65 nst channel mode
0ec0: 2e 20 49 74 20 69 73 20 61 6e 20 65 72 72 6f 72 . It is an error
0ed0: 20 69 66 20 77 65 20 74 72 79 20 74 6f 20 63 6c if we try to cl
0ee0: 6f 73 65 0a 2b 20 20 20 20 20 2a 20 61 20 64 69 ose.+ * a di
0ef0: 72 65 63 74 69 6f 6e 20 6e 6f 74 20 73 75 70 70 rection not supp
0f00: 6f 72 74 65 64 20 62 79 20 74 68 65 20 63 68 61 orted by the cha
0f10: 6e 6e 65 6c 20 28 61 6c 72 65 61 64 79 20 63 6c nnel (already cl
0f20: 6f 73 65 64 2c 20 6f 72 20 6e 65 76 65 72 0a 2b osed, or never.+
0f30: 20 20 20 20 20 2a 20 6f 70 65 6e 65 64 20 66 6f * opened fo
0f40: 72 20 74 68 61 74 20 64 69 72 65 63 74 69 6f 6e r that direction
0f50: 29 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 )..+ */.+.+
0f60: 20 20 20 69 66 20 28 21 28 73 74 61 74 65 50 74 if (!(statePt
0f70: 72 2d 3e 66 6c 61 67 73 20 26 20 28 54 43 4c 5f r->flags & (TCL_
0f80: 52 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 READABLE | TCL_W
0f90: 52 49 54 41 42 4c 45 29 20 26 20 66 6c 61 67 73 RITABLE) & flags
0fa0: 29 29 20 7b 0a 2b 09 63 6f 6e 73 74 20 63 68 61 )) {.+.const cha
0fb0: 72 20 2a 6d 73 67 3b 0a 2b 09 69 66 20 28 66 6c r *msg;.+.if (fl
0fc0: 61 67 73 20 26 20 54 43 4c 5f 43 4c 4f 53 45 5f ags & TCL_CLOSE_
0fd0: 52 45 41 44 29 20 7b 0a 2b 09 20 20 20 20 6d 73 READ) {.+. ms
0fe0: 67 20 3d 20 22 72 65 61 64 22 3b 0a 2b 09 7d 20 g = "read";.+.}
0ff0: 65 6c 73 65 20 7b 0a 2b 09 20 20 20 20 6d 73 67 else {.+. msg
1000: 20 3d 20 22 77 72 69 74 65 22 3b 0a 2b 09 7d 0a = "write";.+.}.
1010: 2b 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 +.Tcl_AppendResu
1020: 6c 74 20 28 69 6e 74 65 72 70 2c 20 22 48 61 6c lt (interp, "Hal
1030: 66 2d 63 6c 6f 73 65 20 6f 66 20 22 2c 20 6d 73 f-close of ", ms
1040: 67 2c 0a 2b 09 09 09 20 20 20 20 20 20 22 2d 73 g,.+... "-s
1050: 69 64 65 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 ide not possible
1060: 2c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 , not supported
1070: 62 79 20 63 68 61 6e 6e 65 6c 22 2c 0a 2b 09 09 by channel",.+..
1080: 09 20 20 20 20 20 20 4e 55 4c 4c 29 3b 0a 2b 09 . NULL);.+.
1090: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
10a0: 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 ;.+ }.+.+
10b0: 2f 2a 0a 2b 20 20 20 20 20 2a 20 41 20 75 73 65 /*.+ * A use
10c0: 72 20 6d 61 79 20 74 72 79 20 74 6f 20 63 61 6c r may try to cal
10d0: 6c 20 68 61 6c 66 2d 63 6c 6f 73 65 20 66 72 6f l half-close fro
10e0: 6d 20 77 69 74 68 69 6e 20 61 20 63 68 61 6e 6e m within a chann
10f0: 65 6c 20 63 6c 6f 73 65 0a 2b 20 20 20 20 20 2a el close.+ *
1100: 20 68 61 6e 64 6c 65 72 2e 20 54 68 61 74 20 77 handler. That w
1110: 6f 6e 27 74 20 64 6f 2e 0a 2b 20 20 20 20 20 2a on't do..+ *
1120: 2f 0a 2b 0a 2b 20 20 20 20 69 66 20 28 73 74 61 /.+.+ if (sta
1130: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 tePtr->flags & C
1140: 48 41 4e 4e 45 4c 5f 49 4e 43 4c 4f 53 45 29 20 HANNEL_INCLOSE)
1150: 7b 0a 2b 09 69 66 20 28 69 6e 74 65 72 70 29 20 {.+.if (interp)
1160: 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 41 70 70 65 {.+. Tcl_Appe
1170: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1180: 20 22 49 6c 6c 65 67 61 6c 20 72 65 63 75 72 73 "Illegal recurs
1190: 69 76 65 20 63 61 6c 6c 20 74 6f 20 63 6c 6f 73 ive call to clos
11a0: 65 20 22 0a 2b 09 09 20 20 20 20 22 74 68 72 6f e ".+.. "thro
11b0: 75 67 68 20 63 6c 6f 73 65 2d 68 61 6e 64 6c 65 ugh close-handle
11c0: 72 20 6f 66 20 63 68 61 6e 6e 65 6c 22 2c 20 4e r of channel", N
11d0: 55 4c 4c 29 3b 0a 2b 09 7d 0a 2b 09 72 65 74 75 ULL);.+.}.+.retu
11e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 rn TCL_ERROR;.+
11f0: 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b }.+.+ /*.+
1200: 20 20 20 20 20 2a 20 46 69 6e 61 6c 6c 79 20 64 * Finally d
1210: 6f 20 77 68 61 74 20 69 73 20 61 73 6b 65 64 20 o what is asked
1220: 6f 66 20 75 73 2e 0a 2b 20 20 20 20 20 2a 2f 0a of us..+ */.
1230: 2b 0a 2b 20 20 20 20 72 65 73 75 6c 74 20 3d 20 +.+ result =
1240: 63 68 61 6e 50 74 72 2d 3e 74 79 70 65 50 74 72 chanPtr->typePtr
1250: 2d 3e 63 6c 6f 73 65 32 50 72 6f 63 28 63 68 61 ->close2Proc(cha
1260: 6e 50 74 72 2d 3e 69 6e 73 74 61 6e 63 65 44 61 nPtr->instanceDa
1270: 74 61 2c 20 69 6e 74 65 72 70 2c 0a 2b 09 09 09 ta, interp,.+...
1280: 09 09 20 20 66 6c 61 67 73 29 3b 0a 2b 0a 2b 20 .. flags);.+.+
1290: 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 54 49 /*.+ * TI
12a0: 50 20 23 32 31 39 2e 0a 2b 20 20 20 20 20 2a 20 P #219..+ *
12b0: 43 61 70 74 75 72 65 20 65 72 72 6f 72 20 6d 65 Capture error me
12c0: 73 73 61 67 65 73 20 70 75 74 20 62 79 20 74 68 ssages put by th
12d0: 65 20 64 72 69 76 65 72 20 69 6e 74 6f 20 74 68 e driver into th
12e0: 65 20 62 79 70 61 73 73 20 61 72 65 61 20 61 6e e bypass area an
12f0: 64 20 70 75 74 0a 2b 20 20 20 20 20 2a 20 74 68 d put.+ * th
1300: 65 6d 20 69 6e 74 6f 20 74 68 65 20 72 65 67 75 em into the regu
1310: 6c 61 72 20 69 6e 74 65 72 70 72 65 74 65 72 20 lar interpreter
1320: 72 65 73 75 6c 74 2e 0a 2b 20 20 20 20 20 2a 0a result..+ *.
1330: 2b 20 20 20 20 20 2a 20 4e 6f 74 65 73 3a 20 44 + * Notes: D
1340: 75 65 20 74 6f 20 74 68 65 20 61 73 73 65 72 74 ue to the assert
1350: 69 6f 6e 20 6f 66 20 43 48 41 4e 4e 45 4c 5f 43 ion of CHANNEL_C
1360: 4c 4f 53 45 44 20 69 6e 20 74 68 65 20 66 6c 61 LOSED in the fla
1370: 67 73 0a 2b 20 20 20 20 20 2a 20 46 6c 75 73 68 gs.+ * Flush
1380: 43 68 61 6e 6e 65 6c 28 29 20 68 61 73 20 63 61 Channel() has ca
1390: 6c 6c 65 64 20 43 6c 6f 73 65 43 68 61 6e 6e 65 lled CloseChanne
13a0: 6c 28 29 20 61 6e 64 20 74 68 75 73 20 66 72 65 l() and thus fre
13b0: 65 64 20 61 6c 6c 20 74 68 65 20 63 68 61 6e 6e ed all the chann
13c0: 65 6c 0a 2b 20 20 20 20 20 2a 20 73 74 72 75 63 el.+ * struc
13d0: 74 75 72 65 73 2e 20 57 65 20 6d 75 73 74 20 6e tures. We must n
13e0: 6f 74 20 74 72 79 20 74 6f 20 61 63 63 65 73 73 ot try to access
13f0: 20 22 63 68 61 6e 22 20 61 6e 79 6d 6f 72 65 2c "chan" anymore,
1400: 20 68 65 6e 63 65 20 74 68 65 20 4e 55 4c 4c 0a hence the NULL.
1410: 2b 20 20 20 20 20 2a 20 61 72 67 75 6d 65 6e 74 + * argument
1420: 20 69 6e 20 74 68 65 20 63 61 6c 6c 20 62 65 6c in the call bel
1430: 6f 77 2e 20 54 68 65 20 6f 6e 6c 79 20 70 6c 61 ow. The only pla
1440: 63 65 20 77 68 69 63 68 20 6d 61 79 20 73 74 69 ce which may sti
1450: 6c 6c 20 63 6f 6e 74 61 69 6e 20 61 0a 2b 20 20 ll contain a.+
1460: 20 20 20 2a 20 6d 65 73 73 61 67 65 20 69 73 20 * message is
1470: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 the interpreter
1480: 69 74 73 65 6c 66 2c 20 61 6e 64 20 22 43 6c 6f itself, and "Clo
1490: 73 65 43 68 61 6e 6e 65 6c 22 20 6d 61 64 65 20 seChannel" made
14a0: 73 75 72 65 20 74 6f 20 6c 69 66 74 0a 2b 20 20 sure to lift.+
14b0: 20 20 20 2a 20 61 6e 79 20 63 68 61 6e 6e 65 6c * any channel
14c0: 20 6d 65 73 73 61 67 65 20 69 74 20 67 65 6e 65 message it gene
14d0: 72 61 74 65 64 20 69 6e 74 6f 20 69 74 2e 0a 2b rated into it..+
14e0: 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 69 */.+.+ i
14f0: 66 20 28 54 63 6c 43 68 61 6e 43 61 75 67 68 74 f (TclChanCaught
1500: 45 72 72 6f 72 42 79 70 61 73 73 28 69 6e 74 65 ErrorBypass(inte
1510: 72 70 2c 20 4e 55 4c 4c 29 29 20 7b 0a 2b 09 72 rp, NULL)) {.+.r
1520: 65 73 75 6c 74 20 3d 20 45 49 4e 56 41 4c 3b 0a esult = EINVAL;.
1530: 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 69 66 + }.+.+ if
1540: 20 28 72 65 73 75 6c 74 20 21 3d 20 30 29 20 7b (result != 0) {
1550: 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 .+.return TCL_ER
1560: 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 ROR;.+ }.+.+
1570: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
1580: 3b 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d ;.+}.+..+/*.+ *-
1590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15d0: 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 54 63 -----.+ *. * Tc
15e0: 6c 5f 43 6c 65 61 72 43 68 61 6e 6e 65 6c 48 61 l_ClearChannelHa
15f0: 6e 64 6c 65 72 73 20 2d 2d 0a 20 20 2a 0a 20 20 ndlers --. *.
1600: 2a 09 52 65 6d 6f 76 65 73 20 61 6c 6c 20 63 68 *.Removes all ch
1610: 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 61 annel handlers a
1620: 6e 64 20 65 76 65 6e 74 20 73 63 72 69 70 74 73 nd event scripts
1630: 20 66 72 6f 6d 20 74 68 65 20 63 68 61 6e 6e 65 from the channe
1640: 6c 2c 0a 2d 2d 2d 20 74 63 6c 38 36 2e 6f 72 69 l,.--- tcl86.ori
1650: 67 2f 67 65 6e 65 72 69 63 2f 74 63 6c 49 4f 43 g/generic/tclIOC
1660: 6d 64 2e 63 09 32 30 30 38 2d 31 31 2d 32 37 20 md.c.2008-11-27
1670: 31 34 3a 34 35 3a 35 37 2e 30 30 30 30 30 30 30 14:45:57.0000000
1680: 30 30 20 2d 30 38 30 30 0a 2b 2b 2b 20 74 63 6c 00 -0800.+++ tcl
1690: 38 36 2f 67 65 6e 65 72 69 63 2f 74 63 6c 49 4f 86/generic/tclIO
16a0: 43 6d 64 2e 63 09 32 30 30 38 2d 31 31 2d 32 37 Cmd.c.2008-11-27
16b0: 20 31 35 3a 34 31 3a 33 35 2e 30 30 30 30 30 30 15:41:35.000000
16c0: 30 30 30 20 2d 30 38 30 30 0a 40 40 20 2d 36 34 000 -0800.@@ -64
16d0: 38 2c 38 20 2b 36 34 38 2c 38 20 40 40 0a 20 7b 8,8 +648,8 @@. {
16e0: 0a 20 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 . Tcl_Channe
16f0: 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 l chan;../* The
1700: 63 68 61 6e 6e 65 6c 20 74 6f 20 63 6c 6f 73 65 channel to close
1710: 2e 20 2a 2f 0a 20 0a 2d 20 20 20 20 69 66 20 28 . */. .- if (
1720: 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a 2d 09 54 objc != 2) {.-.T
1730: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
1740: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
1750: 20 22 63 68 61 6e 6e 65 6c 49 64 22 29 3b 0a 2b "channelId");.+
1760: 20 20 20 20 69 66 20 28 28 6f 62 6a 63 20 21 3d if ((objc !=
1770: 20 32 29 20 26 26 20 28 6f 62 6a 63 20 21 3d 20 2) && (objc !=
1780: 33 29 29 20 7b 0a 2b 09 54 63 6c 5f 57 72 6f 6e 3)) {.+.Tcl_Wron
1790: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
17a0: 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 1, objv, "chann
17b0: 65 6c 49 64 20 3f 64 69 72 65 63 74 69 6f 6e 3f elId ?direction?
17c0: 22 29 3b 0a 20 09 72 65 74 75 72 6e 20 54 43 4c ");. .return TCL
17d0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 7d 0a 20 _ERROR;. }.
17e0: 0a 40 40 20 2d 36 35 37 2c 36 20 2b 36 35 37 2c .@@ -657,6 +657,
17f0: 34 38 20 40 40 0a 20 09 72 65 74 75 72 6e 20 54 48 @@. .return T
1800: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 7d CL_ERROR;. }
1810: 0a 20 0a 2b 20 20 20 20 69 66 20 28 6f 62 6a 63 . .+ if (objc
1820: 20 3d 3d 20 33 29 20 7b 0a 2b 09 69 6e 74 20 6f == 3) {.+.int o
1830: 70 74 69 6f 6e 49 6e 64 65 78 2c 20 64 69 72 3b ptionIndex, dir;
1840: 0a 2b 09 73 74 61 74 69 63 20 63 6f 6e 73 74 20 .+.static const
1850: 63 68 61 72 20 2a 63 6f 6e 73 74 20 64 69 72 4f char *const dirO
1860: 70 74 69 6f 6e 73 5b 5d 20 3d 20 7b 0a 2b 09 20 ptions[] = {.+.
1870: 20 20 20 22 72 65 61 64 22 2c 20 22 77 72 69 74 "read", "writ
1880: 65 22 2c 20 4e 55 4c 4c 0a 2b 09 7d 3b 0a 2b 09 e", NULL.+.};.+.
1890: 73 74 61 74 69 63 20 69 6e 74 20 64 69 72 41 72 static int dirAr
18a0: 72 61 79 5b 5d 20 3d 20 7b 54 43 4c 5f 43 4c 4f ray[] = {TCL_CLO
18b0: 53 45 5f 52 45 41 44 2c 20 54 43 4c 5f 43 4c 4f SE_READ, TCL_CLO
18c0: 53 45 5f 57 52 49 54 45 7d 3b 0a 2b 0a 2b 09 2f SE_WRITE};.+.+./
18d0: 2a 0a 2b 09 20 2a 20 47 65 74 20 64 69 72 65 63 *.+. * Get direc
18e0: 74 69 6f 6e 20 72 65 71 75 65 73 74 65 64 20 74 tion requested t
18f0: 6f 20 63 6c 6f 73 65 2c 20 61 6e 64 20 63 68 65 o close, and che
1900: 63 6b 20 73 79 6e 74 61 78 2e 0a 2b 09 20 2a 2f ck syntax..+. */
1910: 0a 2b 0a 2b 09 69 66 20 28 54 63 6c 5f 47 65 74 .+.+.if (Tcl_Get
1920: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 IndexFromObj(int
1930: 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 64 69 erp, objv[3], di
1940: 72 4f 70 74 69 6f 6e 73 2c 20 22 64 69 72 65 63 rOptions, "direc
1950: 74 69 6f 6e 22 2c 20 30 2c 0a 2b 09 09 26 6f 70 tion", 0,.+..&op
1960: 74 69 6f 6e 49 6e 64 65 78 29 20 21 3d 20 54 43 tionIndex) != TC
1970: 4c 5f 4f 4b 29 20 7b 0a 2b 09 20 20 20 20 72 65 L_OK) {.+. re
1980: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1990: 2b 09 7d 0a 2b 09 64 69 72 20 3d 20 64 69 72 41 +.}.+.dir = dirA
19a0: 72 72 61 79 5b 6f 70 74 69 6f 6e 49 6e 64 65 78 rray[optionIndex
19b0: 5d 3b 0a 2b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 43 ];.+.+./*.+. * C
19c0: 68 65 63 6b 20 64 69 72 65 63 74 69 6f 6e 20 61 heck direction a
19d0: 67 61 69 6e 73 74 20 63 68 61 6e 6e 65 6c 20 6d gainst channel m
19e0: 6f 64 65 2e 20 49 74 20 69 73 20 61 6e 20 65 72 ode. It is an er
19f0: 72 6f 72 20 69 66 20 77 65 20 74 72 79 20 74 6f ror if we try to
1a00: 0a 2b 09 20 2a 20 63 6c 6f 73 65 20 61 20 64 69 .+. * close a di
1a10: 72 65 63 74 69 6f 6e 20 6e 6f 74 20 73 75 70 70 rection not supp
1a20: 6f 72 74 65 64 20 62 79 20 74 68 65 20 63 68 61 orted by the cha
1a30: 6e 6e 65 6c 20 28 61 6c 72 65 61 64 79 20 63 6c nnel (already cl
1a40: 6f 73 65 64 2c 20 6f 72 0a 2b 09 20 2a 20 6e 65 osed, or.+. * ne
1a50: 76 65 72 20 6f 70 65 6e 65 64 20 66 6f 72 20 74 ver opened for t
1a60: 68 61 74 20 64 69 72 65 63 74 69 6f 6e 29 2e 0a hat direction)..
1a70: 2b 09 20 2a 2f 0a 2b 0a 2b 09 69 66 20 28 21 28 +. */.+.+.if (!(
1a80: 64 69 72 20 26 20 54 63 6c 5f 47 65 74 43 68 61 dir & Tcl_GetCha
1a90: 6e 6e 65 6c 4d 6f 64 65 20 28 63 68 61 6e 29 29 nnelMode (chan))
1aa0: 29 20 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 41 70 ) {.+. Tcl_Ap
1ab0: 70 65 6e 64 52 65 73 75 6c 74 20 28 69 6e 74 65 pendResult (inte
1ac0: 72 70 2c 20 22 48 61 6c 66 2d 63 6c 6f 73 65 20 rp, "Half-close
1ad0: 6f 66 20 22 2c 20 64 69 72 4f 70 74 69 6f 6e 73 of ", dirOptions
1ae0: 5b 6f 70 74 69 6f 6e 49 6e 64 65 78 5d 2c 0a 2b [optionIndex],.+
1af0: 09 09 09 20 20 20 20 20 20 22 2d 73 69 64 65 20 ... "-side
1b00: 6e 6f 74 20 70 6f 73 73 69 62 6c 65 2c 20 6e 6f not possible, no
1b10: 74 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 63 t supported by c
1b20: 68 61 6e 6e 65 6c 22 2c 0a 2b 09 09 09 20 20 20 hannel",.+...
1b30: 20 20 20 4e 55 4c 4c 29 3b 0a 2b 09 20 20 20 20 NULL);.+.
1b40: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1b50: 3b 0a 2b 09 7d 0a 2b 0a 2b 09 2f 2a 0a 2b 09 20 ;.+.}.+.+./*.+.
1b60: 2a 20 53 70 65 63 69 61 6c 20 68 61 6e 64 6c 69 * Special handli
1b70: 6e 67 20 69 73 20 6e 65 65 64 65 64 20 69 66 20 ng is needed if
1b80: 61 6e 64 20 6f 6e 6c 79 20 69 66 20 74 68 65 20 and only if the
1b90: 63 68 61 6e 6e 65 6c 20 6d 6f 64 65 20 73 75 70 channel mode sup
1ba0: 70 6f 72 74 73 0a 2b 09 20 2a 20 6d 6f 72 65 20 ports.+. * more
1bb0: 74 68 61 6e 20 74 68 65 20 64 69 72 65 63 74 69 than the directi
1bc0: 6f 6e 20 74 6f 20 63 6c 6f 73 65 2e 20 42 65 63 on to close. Bec
1bd0: 61 75 73 65 20 69 66 20 74 68 65 20 63 6c 6f 73 ause if the clos
1be0: 65 20 74 68 65 20 6c 61 73 74 0a 2b 09 20 2a 20 e the last.+. *
1bf0: 64 69 72 65 63 74 69 6f 6e 20 73 75 70 70 70 6f direction supppo
1c00: 72 74 65 64 20 77 65 20 63 61 6e 20 61 6e 64 20 rted we can and
1c10: 77 69 6c 6c 20 67 6f 20 74 68 72 6f 75 67 68 20 will go through
1c20: 74 68 65 20 72 65 67 75 6c 61 72 0a 2b 09 20 2a the regular.+. *
1c30: 20 70 72 6f 63 65 73 73 2e 0a 2b 09 20 2a 2f 0a process..+. */.
1c40: 2b 0a 2b 09 69 66 20 28 28 64 69 72 20 26 20 54 +.+.if ((dir & T
1c50: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4d 6f 64 cl_GetChannelMod
1c60: 65 20 28 63 68 61 6e 29 29 20 21 3d 20 64 69 72 e (chan)) != dir
1c70: 29 20 7b 0a 2b 09 20 20 20 20 72 65 74 75 72 6e ) {.+. return
1c80: 20 54 63 6c 5f 43 6c 6f 73 65 45 78 20 28 69 6e Tcl_CloseEx (in
1c90: 74 65 72 70 2c 20 63 68 61 6e 2c 20 64 69 72 29 terp, chan, dir)
1ca0: 20 21 3d 20 54 43 4c 5f 4f 4b 3b 0a 2b 09 7d 0a != TCL_OK;.+.}.
1cb0: 2b 20 20 20 20 7d 0a 2b 0a 20 20 20 20 20 69 66 + }.+. if
1cc0: 20 28 54 63 6c 5f 55 6e 72 65 67 69 73 74 65 72 (Tcl_Unregister
1cd0: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
1ce0: 63 68 61 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 chan) != TCL_OK)
1cf0: 20 7b 0a 20 09 2f 2a 0a 20 09 20 2a 20 49 66 20 {. ./*. . * If
1d00: 74 68 65 72 65 20 69 73 20 61 6e 20 65 72 72 6f there is an erro
1d10: 72 20 6d 65 73 73 61 67 65 20 61 6e 64 20 69 74 r message and it
1d20: 20 65 6e 64 73 20 77 69 74 68 20 61 20 6e 65 77 ends with a new
1d30: 6c 69 6e 65 2c 20 72 65 6d 6f 76 65 20 74 68 65 line, remove the
1d40: 0a 2d 2d 2d 20 74 63 6c 38 36 2e 6f 72 69 67 2f .--- tcl86.orig/
1d50: 67 65 6e 65 72 69 63 2f 74 63 6c 53 74 75 62 49 generic/tclStubI
1d60: 6e 69 74 2e 63 09 32 30 30 38 2d 31 31 2d 32 37 nit.c.2008-11-27
1d70: 20 31 34 3a 34 35 3a 35 37 2e 30 30 30 30 30 30 14:45:57.000000
1d80: 30 30 30 20 2d 30 38 30 30 0a 2b 2b 2b 20 74 63 000 -0800.+++ tc
1d90: 6c 38 36 2f 67 65 6e 65 72 69 63 2f 74 63 6c 53 l86/generic/tclS
1da0: 74 75 62 49 6e 69 74 2e 63 09 32 30 30 38 2d 31 tubInit.c.2008-1
1db0: 31 2d 32 37 20 31 35 3a 32 37 3a 30 32 2e 30 30 1-27 15:27:02.00
1dc0: 30 30 30 30 30 30 30 20 2d 30 38 30 30 0a 40 40 0000000 -0800.@@
1dd0: 20 2d 31 31 33 30 2c 36 20 2b 31 31 33 30 2c 37 -1130,6 +1130,7
1de0: 20 40 40 0a 20 20 20 20 20 54 63 6c 5f 53 65 74 @@. Tcl_Set
1df0: 45 6e 73 65 6d 62 6c 65 50 61 72 61 6d 65 74 65 EnsembleParamete
1e00: 72 4c 69 73 74 2c 20 2f 2a 20 36 30 32 20 2a 2f rList, /* 602 */
1e10: 0a 20 20 20 20 20 54 63 6c 5f 47 65 74 45 6e 73 . Tcl_GetEns
1e20: 65 6d 62 6c 65 50 61 72 61 6d 65 74 65 72 4c 69 embleParameterLi
1e30: 73 74 2c 20 2f 2a 20 36 30 33 20 2a 2f 0a 20 20 st, /* 603 */.
1e40: 20 20 20 54 63 6c 5f 50 61 72 73 65 41 72 67 73 Tcl_ParseArgs
1e50: 4f 62 6a 76 2c 20 2f 2a 20 36 30 34 20 2a 2f 0a Objv, /* 604 */.
1e60: 2b 20 20 20 20 54 63 6c 5f 43 6c 6f 73 65 45 78 + Tcl_CloseEx
1e70: 2c 20 2f 2a 20 36 30 35 20 2a 2f 0a 20 7d 3b 0a , /* 605 */. };.
1e80: 20 0a 20 2f 2a 20 21 45 4e 44 21 3a 20 44 6f 20 . /* !END!: Do
1e90: 6e 6f 74 20 65 64 69 74 20 61 62 6f 76 65 20 74 not edit above t
1ea0: 68 69 73 20 6c 69 6e 65 2e 20 2a 2f 0a 2d 2d 2d his line. */.---
1eb0: 20 74 63 6c 38 36 2e 6f 72 69 67 2f 75 6e 69 78 tcl86.orig/unix
1ec0: 2f 74 63 6c 55 6e 69 78 43 68 61 6e 2e 63 09 32 /tclUnixChan.c.2
1ed0: 30 30 38 2d 31 31 2d 32 37 20 31 34 3a 34 35 3a 008-11-27 14:45:
1ee0: 35 32 2e 30 30 30 30 30 30 30 30 30 20 2d 30 38 52.000000000 -08
1ef0: 30 30 0a 2b 2b 2b 20 74 63 6c 38 36 2f 75 6e 69 00.+++ tcl86/uni
1f00: 78 2f 74 63 6c 55 6e 69 78 43 68 61 6e 2e 63 09 x/tclUnixChan.c.
1f10: 32 30 30 38 2d 31 31 2d 32 37 20 31 35 3a 30 36 2008-11-27 15:06
1f20: 3a 30 37 2e 30 30 30 30 30 30 30 30 30 20 2d 30 :07.000000000 -0
1f30: 38 30 30 0a 40 40 20 2d 32 31 38 2c 36 20 2b 32 800.@@ -218,6 +2
1f40: 31 38 2c 39 20 40 40 0a 20 73 74 61 74 69 63 20 18,9 @@. static
1f50: 69 6e 74 09 09 54 63 70 42 6c 6f 63 6b 4d 6f 64 int..TcpBlockMod
1f60: 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 eProc(ClientData
1f70: 20 64 61 74 61 2c 20 69 6e 74 20 6d 6f 64 65 29 data, int mode)
1f80: 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 54 ;. static int..T
1f90: 63 70 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 65 cpCloseProc(Clie
1fa0: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 ntData instanceD
1fb0: 61 74 61 2c 0a 20 09 09 09 20 20 20 20 54 63 6c ata,. ... Tcl
1fc0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
1fd0: 3b 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 09 54 ;.+static int..T
1fe0: 63 70 43 6c 6f 73 65 32 50 72 6f 63 28 43 6c 69 cpClose2Proc(Cli
1ff0: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
2000: 44 61 74 61 2c 0a 2b 09 09 09 09 20 20 20 20 20 Data,.+....
2010: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
2020: 65 72 70 2c 0a 2b 09 09 09 09 20 20 20 20 20 20 erp,.+....
2030: 69 6e 74 20 66 6c 61 67 73 29 3b 0a 20 73 74 61 int flags);. sta
2040: 74 69 63 20 69 6e 74 09 09 54 63 70 47 65 74 48 tic int..TcpGetH
2050: 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e 74 andleProc(Client
2060: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
2070: 61 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 20 64 a,. ... int d
2080: 69 72 65 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 irection, Client
2090: 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 Data *handlePtr)
20a0: 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 54 ;. static int..T
20b0: 63 70 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 cpGetOptionProc(
20c0: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
20d0: 6e 63 65 44 61 74 61 2c 0a 40 40 20 2d 33 31 38 nceData,.@@ -318
20e0: 2c 37 20 2b 33 32 31 2c 37 20 40 40 0a 20 20 20 ,7 +321,7 @@.
20f0: 20 20 54 63 70 47 65 74 4f 70 74 69 6f 6e 50 72 TcpGetOptionPr
2100: 6f 63 2c 09 09 2f 2a 20 47 65 74 20 6f 70 74 69 oc,../* Get opti
2110: 6f 6e 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 on proc. */.
2120: 20 54 63 70 57 61 74 63 68 50 72 6f 63 2c 09 09 TcpWatchProc,..
2130: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 6e 6f /* Initialize no
2140: 74 69 66 69 65 72 2e 20 2a 2f 0a 20 20 20 20 20 tifier. */.
2150: 54 63 70 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 TcpGetHandleProc
2160: 2c 09 09 2f 2a 20 47 65 74 20 4f 53 20 68 61 6e ,../* Get OS han
2170: 64 6c 65 73 20 6f 75 74 20 6f 66 20 63 68 61 6e dles out of chan
2180: 6e 65 6c 2e 20 2a 2f 0a 2d 20 20 20 20 4e 55 4c nel. */.- NUL
2190: 4c 2c 09 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 L,.../* close2pr
21a0: 6f 63 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 70 43 oc. */.+ TcpC
21b0: 6c 6f 73 65 32 50 72 6f 63 2c 09 09 2f 2a 20 43 lose2Proc,../* C
21c0: 6c 6f 73 65 32 20 70 72 6f 63 2e 20 2a 2f 0a 20 lose2 proc. */.
21d0: 20 20 20 20 54 63 70 42 6c 6f 63 6b 4d 6f 64 65 TcpBlockMode
21e0: 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 62 6c Proc,../* Set bl
21f0: 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 2d 62 6c ocking or non-bl
2200: 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 2a 2f 0a 20 ocking mode.*/.
2210: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 66 NULL,.../* f
2220: 6c 75 73 68 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 lush proc. */.
2230: 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 68 61 NULL,.../* ha
2240: 6e 64 6c 65 72 20 70 72 6f 63 2e 20 2a 2f 0a 40 ndler proc. */.@
2250: 40 20 2d 32 30 31 38 2c 36 20 2b 32 30 32 31 2c @ -2018,6 +2021,
2260: 35 37 20 40 40 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 57 @@. /*. *---
2270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22b0: 2d 2d 2d 0a 20 20 2a 0a 2b 20 2a 20 54 63 70 43 ---. *.+ * TcpC
22c0: 6c 6f 73 65 32 50 72 6f 63 20 2d 2d 0a 2b 20 2a lose2Proc --.+ *
22d0: 0a 2b 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 .+ *.This functi
22e0: 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 62 79 20 on is called by
22f0: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
2300: 65 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d 20 evel to perform
2310: 74 68 65 20 63 68 61 6e 6e 65 6c 0a 2b 20 2a 09 the channel.+ *.
2320: 74 79 70 65 20 73 70 65 63 69 66 69 63 20 70 61 type specific pa
2330: 72 74 20 6f 66 20 61 20 68 61 6c 66 2d 63 6c 6f rt of a half-clo
2340: 73 65 3a 20 6e 61 6d 65 6c 79 2c 20 61 20 73 68 se: namely, a sh
2350: 75 74 64 6f 77 6e 28 29 20 6f 6e 20 61 20 73 6f utdown() on a so
2360: 63 6b 65 74 2e 0a 2b 20 2a 0a 2b 20 2a 20 52 65 cket..+ *.+ * Re
2370: 73 75 6c 74 73 3a 0a 2b 20 2a 09 30 20 69 66 20 sults:.+ *.0 if
2380: 73 75 63 63 65 73 73 66 75 6c 2c 20 74 68 65 20 successful, the
2390: 76 61 6c 75 65 20 6f 66 20 65 72 72 6e 6f 20 69 value of errno i
23a0: 66 20 66 61 69 6c 65 64 2e 0a 2b 20 2a 0a 2b 20 f failed..+ *.+
23b0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
23c0: 2b 20 2a 09 53 68 75 74 73 20 64 6f 77 6e 20 6f + *.Shuts down o
23d0: 6e 65 20 73 69 64 65 20 6f 66 20 74 68 65 20 73 ne side of the s
23e0: 6f 63 6b 65 74 2e 0a 2b 20 2a 0a 2b 20 2a 2d 2d ocket..+ *.+ *--
23f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2430: 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b 73 74 61 ----.+ */.+.+sta
2440: 74 69 63 20 69 6e 74 0a 2b 54 63 70 43 6c 6f 73 tic int.+TcpClos
2450: 65 32 50 72 6f 63 28 0a 2b 20 20 20 20 43 6c 69 e2Proc(.+ Cli
2460: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
2470: 44 61 74 61 2c 09 2f 2a 20 54 68 65 20 73 6f 63 Data,./* The soc
2480: 6b 65 74 20 74 6f 20 63 6c 6f 73 65 2e 20 2a 2f ket to close. */
2490: 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 .+ Tcl_Interp
24a0: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
24b0: 72 20 65 72 72 6f 72 20 72 65 70 6f 72 74 69 6e r error reportin
24c0: 67 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 66 g. */.+ int f
24d0: 6c 61 67 73 29 09 09 09 2f 2a 20 46 6c 61 67 73 lags).../* Flags
24e0: 20 74 68 61 74 20 69 6e 64 69 63 61 74 65 20 77 that indicate w
24f0: 68 69 63 68 20 73 69 64 65 20 74 6f 20 63 6c 6f hich side to clo
2500: 73 65 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 54 se. */.+{.+ T
2510: 63 70 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 cpState *statePt
2520: 72 20 3d 20 28 54 63 70 53 74 61 74 65 20 2a 29 r = (TcpState *)
2530: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 2b instanceData;.+
2540: 20 20 20 20 69 6e 74 20 65 72 72 6f 72 43 6f 64 int errorCod
2550: 65 20 3d 20 30 3b 0a 2b 20 20 20 20 69 6e 74 20 e = 0;.+ int
2560: 73 64 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b 20 sd;.+.+ /*.+
2570: 20 20 20 20 2a 20 53 68 75 74 64 6f 77 6e 20 74 * Shutdown t
2580: 68 65 20 4f 53 20 73 6f 63 6b 65 74 20 68 61 6e he OS socket han
2590: 64 6c 65 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 20 dle..+ */.+
25a0: 20 20 20 73 77 69 74 63 68 28 66 6c 61 67 73 29 switch(flags)
25b0: 0a 2b 09 7b 0a 2b 09 63 61 73 65 20 54 43 4c 5f .+.{.+.case TCL_
25c0: 43 4c 4f 53 45 5f 52 45 41 44 3a 0a 2b 09 20 20 CLOSE_READ:.+.
25d0: 20 20 73 64 3d 53 48 55 54 5f 52 44 3b 0a 2b 09 sd=SHUT_RD;.+.
25e0: 20 20 20 20 62 72 65 61 6b 3b 0a 2b 09 63 61 73 break;.+.cas
25f0: 65 20 54 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 e TCL_CLOSE_WRIT
2600: 45 3a 0a 2b 09 20 20 20 20 73 64 3d 53 48 55 54 E:.+. sd=SHUT
2610: 5f 57 52 3b 0a 2b 09 20 20 20 20 62 72 65 61 6b _WR;.+. break
2620: 3b 0a 2b 09 64 65 66 61 75 6c 74 3a 0a 2b 09 20 ;.+.default:.+.
2630: 20 20 20 69 66 20 28 69 6e 74 65 72 70 29 20 7b if (interp) {
2640: 0a 2b 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 .+..Tcl_AppendRe
2650: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 53 6f sult(interp, "So
2660: 63 6b 65 74 20 63 6c 6f 73 65 32 70 72 6f 63 20 cket close2proc
2670: 63 61 6c 6c 65 64 20 62 69 64 69 72 65 63 74 69 called bidirecti
2680: 6f 6e 61 6c 6c 79 22 2c 20 4e 55 4c 4c 29 3b 0a onally", NULL);.
2690: 2b 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 72 65 +. }.+. re
26a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
26b0: 2b 09 7d 0a 2b 20 20 20 20 69 66 20 28 73 68 75 +.}.+ if (shu
26c0: 74 64 6f 77 6e 28 73 74 61 74 65 50 74 72 2d 3e tdown(statePtr->
26d0: 66 64 2c 73 64 29 3c 30 29 20 7b 0a 2b 09 65 72 fd,sd)<0) {.+.er
26e0: 72 6f 72 43 6f 64 65 20 3d 20 65 72 72 6e 6f 3b rorCode = errno;
26f0: 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 72 .+ }.+.+ r
2700: 65 74 75 72 6e 20 65 72 72 6f 72 43 6f 64 65 3b eturn errorCode;
2710: 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d .+}.+..+/*.+ *--
2720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2760: 2d 2d 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 54 63 70 ----.+ *. * Tcp
2770: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d GetOptionProc --
2780: 0a 20 20 2a 0a 20 20 2a 09 43 6f 6d 70 75 74 65 . *. *.Compute
2790: 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75 s an option valu
27a0: 65 20 66 6f 72 20 61 20 54 43 50 20 73 6f 63 6b e for a TCP sock
27b0: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c et based channel
27c0: 2c 20 6f 72 20 61 20 6c 69 73 74 20 6f 66 0a 2d , or a list of.-
27d0: 2d 2d 20 74 63 6c 38 36 2e 6f 72 69 67 2f 77 69 -- tcl86.orig/wi
27e0: 6e 2f 74 63 6c 57 69 6e 53 6f 63 6b 2e 63 09 32 n/tclWinSock.c.2
27f0: 30 30 38 2d 31 31 2d 32 37 20 31 34 3a 34 35 3a 008-11-27 14:45:
2800: 35 32 2e 30 30 30 30 30 30 30 30 30 20 2d 30 38 52.000000000 -08
2810: 30 30 0a 2b 2b 2b 20 74 63 6c 38 36 2f 77 69 6e 00.+++ tcl86/win
2820: 2f 74 63 6c 57 69 6e 53 6f 63 6b 2e 63 09 32 30 /tclWinSock.c.20
2830: 30 38 2d 31 31 2d 32 37 20 31 34 3a 34 39 3a 34 08-11-27 14:49:4
2840: 33 2e 30 30 30 30 30 30 30 30 30 20 2d 30 38 30 3.000000000 -080
2850: 30 0a 40 40 20 2d 31 36 38 2c 36 20 2b 31 36 38 0.@@ -168,6 +168
2860: 2c 37 20 40 40 0a 20 73 74 61 74 69 63 20 54 63 ,7 @@. static Tc
2870: 6c 5f 45 76 65 6e 74 53 65 74 75 70 50 72 6f 63 l_EventSetupProc
2880: 09 53 6f 63 6b 65 74 53 65 74 75 70 50 72 6f 63 .SocketSetupProc
2890: 3b 0a 20 73 74 61 74 69 63 20 54 63 6c 5f 44 72 ;. static Tcl_Dr
28a0: 69 76 65 72 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f iverBlockModePro
28b0: 63 09 54 63 70 42 6c 6f 63 6b 50 72 6f 63 3b 0a c.TcpBlockProc;.
28c0: 20 73 74 61 74 69 63 20 54 63 6c 5f 44 72 69 76 static Tcl_Driv
28d0: 65 72 43 6c 6f 73 65 50 72 6f 63 09 54 63 70 43 erCloseProc.TcpC
28e0: 6c 6f 73 65 50 72 6f 63 3b 0a 2b 73 74 61 74 69 loseProc;.+stati
28f0: 63 20 54 63 6c 5f 44 72 69 76 65 72 43 6c 6f 73 c Tcl_DriverClos
2900: 65 32 50 72 6f 63 09 54 63 70 43 6c 6f 73 65 32 e2Proc.TcpClose2
2910: 50 72 6f 63 3b 0a 20 73 74 61 74 69 63 20 54 63 Proc;. static Tc
2920: 6c 5f 44 72 69 76 65 72 53 65 74 4f 70 74 69 6f l_DriverSetOptio
2930: 6e 50 72 6f 63 09 54 63 70 53 65 74 4f 70 74 69 nProc.TcpSetOpti
2940: 6f 6e 50 72 6f 63 3b 0a 20 73 74 61 74 69 63 20 onProc;. static
2950: 54 63 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 Tcl_DriverGetOpt
2960: 69 6f 6e 50 72 6f 63 09 54 63 70 47 65 74 4f 70 ionProc.TcpGetOp
2970: 74 69 6f 6e 50 72 6f 63 3b 0a 20 73 74 61 74 69 tionProc;. stati
2980: 63 20 54 63 6c 5f 44 72 69 76 65 72 49 6e 70 75 c Tcl_DriverInpu
2990: 74 50 72 6f 63 09 54 63 70 49 6e 70 75 74 50 72 tProc.TcpInputPr
29a0: 6f 63 3b 0a 40 40 20 2d 31 39 31 2c 37 20 2b 31 oc;.@@ -191,7 +1
29b0: 39 32 2c 37 20 40 40 0a 20 20 20 20 20 54 63 70 92,7 @@. Tcp
29c0: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 20 GetOptionProc,.
29d0: 20 20 20 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e /* Get option
29e0: 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 20 54 proc. */. T
29f0: 63 70 57 61 74 63 68 50 72 6f 63 2c 09 20 20 20 cpWatchProc,.
2a00: 20 2f 2a 20 53 65 74 20 75 70 20 6e 6f 74 69 66 /* Set up notif
2a10: 69 65 72 20 74 6f 20 77 61 74 63 68 20 74 68 69 ier to watch thi
2a20: 73 20 63 68 61 6e 6e 65 6c 2e 20 2a 2f 0a 20 20 s channel. */.
2a30: 20 20 20 54 63 70 47 65 74 48 61 6e 64 6c 65 50 TcpGetHandleP
2a40: 72 6f 63 2c 09 20 20 20 20 2f 2a 20 47 65 74 20 roc,. /* Get
2a50: 61 6e 20 4f 53 20 68 61 6e 64 6c 65 20 66 72 6f an OS handle fro
2a60: 6d 20 63 68 61 6e 6e 65 6c 2e 20 2a 2f 0a 2d 20 m channel. */.-
2a70: 20 20 20 4e 55 4c 4c 2c 09 09 20 20 20 20 2f 2a NULL,.. /*
2a80: 20 63 6c 6f 73 65 32 70 72 6f 63 2e 20 2a 2f 0a close2proc. */.
2a90: 2b 20 20 20 20 54 63 70 43 6c 6f 73 65 32 50 72 + TcpClose2Pr
2aa0: 6f 63 2c 09 20 20 20 20 2f 2a 20 43 6c 6f 73 65 oc,. /* Close
2ab0: 32 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 20 54 2proc. */. T
2ac0: 63 70 42 6c 6f 63 6b 50 72 6f 63 2c 09 20 20 20 cpBlockProc,.
2ad0: 20 2f 2a 20 53 65 74 20 73 6f 63 6b 65 74 20 69 /* Set socket i
2ae0: 6e 74 6f 20 28 6e 6f 6e 2d 29 62 6c 6f 63 6b 69 nto (non-)blocki
2af0: 6e 67 20 6d 6f 64 65 2e 20 2a 2f 0a 20 20 20 20 ng mode. */.
2b00: 20 4e 55 4c 4c 2c 09 09 20 20 20 20 2f 2a 20 66 NULL,.. /* f
2b10: 6c 75 73 68 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 lush proc. */.
2b20: 20 20 20 4e 55 4c 4c 2c 09 09 20 20 20 20 2f 2a NULL,.. /*
2b30: 20 68 61 6e 64 6c 65 72 20 70 72 6f 63 2e 20 2a handler proc. *
2b40: 2f 0a 40 40 20 2d 38 31 38 2c 36 20 2b 38 31 39 /.@@ -818,6 +819
2b50: 2c 35 38 20 40 40 0a 20 2f 2a 0a 20 20 2a 2d 2d ,58 @@. /*. *--
2b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ba0: 2d 2d 2d 2d 0a 20 20 2a 0a 2b 20 2a 20 54 63 70 ----. *.+ * Tcp
2bb0: 43 6c 6f 73 65 32 50 72 6f 63 20 2d 2d 0a 2b 20 Close2Proc --.+
2bc0: 2a 0a 2b 20 2a 09 54 68 69 73 20 66 75 6e 63 74 *.+ *.This funct
2bd0: 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 62 79 ion is called by
2be0: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
2bf0: 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d level to perform
2c00: 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 2b 20 2a the channel.+ *
2c10: 09 74 79 70 65 20 73 70 65 63 69 66 69 63 20 70 .type specific p
2c20: 61 72 74 20 6f 66 20 61 20 68 61 6c 66 2d 63 6c art of a half-cl
2c30: 6f 73 65 3a 20 6e 61 6d 65 6c 79 2c 20 61 20 73 ose: namely, a s
2c40: 68 75 74 64 6f 77 6e 28 29 20 6f 6e 20 61 20 73 hutdown() on a s
2c50: 6f 63 6b 65 74 2e 0a 2b 20 2a 0a 2b 20 2a 20 52 ocket..+ *.+ * R
2c60: 65 73 75 6c 74 73 3a 0a 2b 20 2a 09 30 20 69 66 esults:.+ *.0 if
2c70: 20 73 75 63 63 65 73 73 66 75 6c 2c 20 74 68 65 successful, the
2c80: 20 76 61 6c 75 65 20 6f 66 20 65 72 72 6e 6f 20 value of errno
2c90: 69 66 20 66 61 69 6c 65 64 2e 0a 2b 20 2a 0a 2b if failed..+ *.+
2ca0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2cb0: 0a 2b 20 2a 09 53 68 75 74 73 20 64 6f 77 6e 20 .+ *.Shuts down
2cc0: 6f 6e 65 20 73 69 64 65 20 6f 66 20 74 68 65 20 one side of the
2cd0: 73 6f 63 6b 65 74 2e 0a 2b 20 2a 0a 2b 20 2a 2d socket..+ *.+ *-
2ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d20: 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b 73 74 -----.+ */.+.+st
2d30: 61 74 69 63 20 69 6e 74 0a 2b 54 63 70 43 6c 6f atic int.+TcpClo
2d40: 73 65 32 50 72 6f 63 28 0a 2b 20 20 20 20 43 6c se2Proc(.+ Cl
2d50: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
2d60: 65 44 61 74 61 2c 09 2f 2a 20 54 68 65 20 73 6f eData,./* The so
2d70: 63 6b 65 74 20 74 6f 20 63 6c 6f 73 65 2e 20 2a cket to close. *
2d80: 2f 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 /.+ Tcl_Inter
2d90: 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 p *interp,../* F
2da0: 6f 72 20 65 72 72 6f 72 20 72 65 70 6f 72 74 69 or error reporti
2db0: 6e 67 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 ng. */.+ int
2dc0: 66 6c 61 67 73 29 09 09 09 2f 2a 20 46 6c 61 67 flags).../* Flag
2dd0: 73 20 74 68 61 74 20 69 6e 64 69 63 61 74 65 20 s that indicate
2de0: 77 68 69 63 68 20 73 69 64 65 20 74 6f 20 63 6c which side to cl
2df0: 6f 73 65 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 ose. */.+{.+
2e00: 53 6f 63 6b 65 74 49 6e 66 6f 20 2a 69 6e 66 6f SocketInfo *info
2e10: 50 74 72 20 3d 20 28 53 6f 63 6b 65 74 49 6e 66 Ptr = (SocketInf
2e20: 6f 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 o *) instanceDat
2e30: 61 3b 0a 2b 20 20 20 20 69 6e 74 20 65 72 72 6f a;.+ int erro
2e40: 72 43 6f 64 65 20 3d 20 30 3b 0a 2b 20 20 20 20 rCode = 0;.+
2e50: 69 6e 74 20 73 64 3b 0a 2b 0a 2b 20 20 20 20 2f int sd;.+.+ /
2e60: 2a 0a 2b 20 20 20 20 20 2a 20 53 68 75 74 64 6f *.+ * Shutdo
2e70: 77 6e 20 74 68 65 20 4f 53 20 73 6f 63 6b 65 74 wn the OS socket
2e80: 20 68 61 6e 64 6c 65 2e 0a 2b 20 20 20 20 20 2a handle..+ *
2e90: 2f 0a 2b 20 20 20 20 73 77 69 74 63 68 28 66 6c /.+ switch(fl
2ea0: 61 67 73 29 0a 2b 09 7b 0a 2b 09 63 61 73 65 20 ags).+.{.+.case
2eb0: 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 3a 0a TCL_CLOSE_READ:.
2ec0: 2b 09 20 20 20 20 73 64 3d 53 44 5f 52 45 43 45 +. sd=SD_RECE
2ed0: 49 56 45 3b 0a 2b 09 20 20 20 20 62 72 65 61 6b IVE;.+. break
2ee0: 3b 0a 2b 09 63 61 73 65 20 54 43 4c 5f 43 4c 4f ;.+.case TCL_CLO
2ef0: 53 45 5f 57 52 49 54 45 3a 0a 2b 09 20 20 20 20 SE_WRITE:.+.
2f00: 73 64 3d 53 44 5f 53 45 4e 44 3b 0a 2b 09 20 20 sd=SD_SEND;.+.
2f10: 20 20 62 72 65 61 6b 3b 0a 2b 09 64 65 66 61 75 break;.+.defau
2f20: 6c 74 3a 0a 2b 09 20 20 20 20 69 66 20 28 69 6e lt:.+. if (in
2f30: 74 65 72 70 29 20 7b 0a 2b 09 09 54 63 6c 5f 41 terp) {.+..Tcl_A
2f40: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
2f50: 72 70 2c 20 22 53 6f 63 6b 65 74 20 63 6c 6f 73 rp, "Socket clos
2f60: 65 32 70 72 6f 63 20 63 61 6c 6c 65 64 20 62 69 e2proc called bi
2f70: 64 69 72 65 63 74 69 6f 6e 61 6c 6c 79 22 2c 20 directionally",
2f80: 4e 55 4c 4c 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b NULL);.+. }.+
2f90: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2fa0: 45 52 52 4f 52 3b 0a 2b 09 7d 0a 2b 20 20 20 20 ERROR;.+.}.+
2fb0: 69 66 20 28 73 68 75 74 64 6f 77 6e 28 69 6e 66 if (shutdown(inf
2fc0: 6f 50 74 72 2d 3e 73 6f 63 6b 65 74 2c 73 64 29 oPtr->socket,sd)
2fd0: 20 3d 3d 20 53 4f 43 4b 45 54 5f 45 52 52 4f 52 == SOCKET_ERROR
2fe0: 29 20 7b 0a 2b 09 54 63 6c 57 69 6e 43 6f 6e 76 ) {.+.TclWinConv
2ff0: 65 72 74 57 53 41 45 72 72 6f 72 28 28 44 57 4f ertWSAError((DWO
3000: 52 44 29 20 57 53 41 47 65 74 4c 61 73 74 45 72 RD) WSAGetLastEr
3010: 72 6f 72 28 29 29 3b 0a 2b 09 65 72 72 6f 72 43 ror());.+.errorC
3020: 6f 64 65 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 ode = Tcl_GetErr
3030: 6e 6f 28 29 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b no();.+ }.+.+
3040: 20 20 20 20 72 65 74 75 72 6e 20 65 72 72 6f 72 return error
3050: 43 6f 64 65 3b 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a 0a Code;.+}.+..+/*.
3060: 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d + *-------------
3070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 20 20 ---------.+ *.
30b0: 2a 20 4e 65 77 53 6f 63 6b 65 74 49 6e 66 6f 20 * NewSocketInfo
30c0: 2d 2d 0a 20 20 2a 0a 20 20 2a 09 54 68 69 73 20 --. *. *.This
30d0: 66 75 6e 63 74 69 6f 6e 20 61 6c 6c 6f 63 61 74 function allocat
30e0: 65 73 20 61 6e 64 20 69 6e 69 74 69 61 6c 69 7a es and initializ
30f0: 65 73 20 61 20 6e 65 77 20 53 6f 63 6b 65 74 49 es a new SocketI
3100: 6e 66 6f 20 73 74 72 75 63 74 75 72 65 2e 0a nfo structure..
