0000: 2f 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73 20 49 /*. * Provides I
0010: 4f 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 69 O functions to i
0020: 6e 74 65 72 66 61 63 65 20 62 65 74 77 65 65 6e nterface between
0030: 20 74 68 65 20 42 49 4f 20 62 75 66 66 65 72 73 the BIO buffers
0040: 20 61 6e 64 20 54 43 4c 0a 20 2a 20 61 70 70 6c and TCL. * appl
0050: 69 63 61 74 69 6f 6e 73 20 77 68 65 6e 20 75 73 ications when us
0060: 69 6e 67 20 73 74 61 63 6b 65 64 20 63 68 61 6e ing stacked chan
0070: 6e 65 6c 73 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 nels.. *. * Copy
0080: 72 69 67 68 74 20 28 43 29 20 31 39 39 37 2d 32 right (C) 1997-2
0090: 30 30 30 20 4d 61 74 74 20 4e 65 77 6d 61 6e 20 000 Matt Newman
00a0: 3c 6d 61 74 74 40 6e 6f 76 61 64 69 67 6d 2e 63 <matt@novadigm.c
00b0: 6f 6d 3e 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 om>. * Copyright
00c0: 20 28 43 29 20 32 30 30 30 20 41 6a 75 62 61 20 (C) 2000 Ajuba
00d0: 53 6f 6c 75 74 69 6f 6e 73 0a 20 2a 20 43 6f 70 Solutions. * Cop
00e0: 79 72 69 67 68 74 20 28 43 29 20 32 30 32 34 2d yright (C) 2024-
00f0: 32 30 32 35 20 42 72 69 61 6e 20 4f 27 48 61 67 2025 Brian O'Hag
0100: 61 6e 0a 20 2a 0a 20 2a 20 41 64 64 69 74 69 6f an. *. * Additio
0110: 6e 61 6c 20 63 72 65 64 69 74 20 69 73 20 64 75 nal credit is du
0120: 65 20 66 6f 72 20 41 6e 64 72 65 61 73 20 4b 75 e for Andreas Ku
0130: 70 72 69 65 73 20 28 61 2e 6b 75 70 72 69 65 73 pries (a.kupries
0140: 40 77 65 73 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 @westend.com), f
0150: 6f 72 0a 20 2a 20 70 72 6f 76 69 64 69 6e 67 20 or. * providing
0160: 74 68 65 20 54 63 6c 5f 52 65 70 6c 61 63 65 43 the Tcl_ReplaceC
0170: 68 61 6e 6e 65 6c 20 6d 65 63 68 61 6e 69 73 6d hannel mechanism
0180: 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 63 6c 6f and working clo
0190: 73 65 6c 79 20 77 69 74 68 20 6d 65 0a 20 2a 20 sely with me. *
01a0: 74 6f 20 65 6e 68 61 6e 63 65 20 69 74 20 74 6f to enhance it to
01b0: 20 73 75 70 70 6f 72 74 20 66 75 6c 6c 20 66 69 support full fi
01c0: 6c 65 65 76 65 6e 74 20 73 65 6d 61 6e 74 69 63 leevent semantic
01d0: 73 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f s.. *. * Also wo
01e0: 72 6b 20 64 6f 6e 65 20 62 79 20 74 68 65 20 66 rk done by the f
01f0: 6f 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 70 72 6f ollow people pro
0200: 76 69 64 65 64 20 74 68 65 20 69 6d 70 65 74 75 vided the impetu
0210: 73 20 74 6f 20 64 6f 20 74 68 69 73 20 22 72 69 s to do this "ri
0220: 67 68 74 22 3a 0a 20 2a 09 74 63 6c 53 53 4c 20 ght":. *.tclSSL
0230: 28 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b (Colin McCormack
0240: 2c 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c , Shared Technol
0250: 6f 67 79 29 0a 20 2a 09 53 53 4c 74 63 6c 20 28 ogy). *.SSLtcl (
0260: 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a 20 2a Peter Antman). *
0270: 0a 20 2a 2f 0a 0a 2f 2a 0a 4e 6f 72 6d 61 6c 0a . */../*.Normal.
0280: 09 09 74 6c 73 42 49 4f 2e 63 09 09 09 74 6c 73 ..tlsBIO.c...tls
0290: 49 4f 2e 63 0a 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 IO.c. +------+
02a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02b0: 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 +-----+
02c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d +-
02e0: 2d 2d 2b 0a 20 7c 20 20 20 20 20 20 7c 54 63 6c --+. | |Tcl
02f0: 5f 57 72 69 74 65 52 61 77 3c 2d 2d 42 69 6f 4f _WriteRaw<--BioO
0300: 75 74 70 75 74 7c 20 53 53 4c 20 7c 42 49 4f 5f utput| SSL |BIO_
0310: 77 72 69 74 65 3c 2d 2d 54 6c 73 4f 75 74 70 75 write<--TlsOutpu
0320: 74 50 72 6f 63 20 3c 2d 2d 70 75 74 73 7c 20 20 tProc <--puts|
0330: 20 7c 0a 20 7c 73 6f 63 6b 65 74 7c 20 20 20 20 |. |socket|
0340: 20 20 3c 65 6e 63 72 79 70 74 65 64 3e 20 20 20 <encrypted>
0350: 20 20 20 20 7c 20 42 49 4f 20 7c 20 20 20 20 20 | BIO |
0360: 20 20 20 20 20 20 20 3c 75 6e 65 6e 63 72 79 70 <unencryp
0370: 74 65 64 3e 20 20 20 20 20 20 20 20 7c 41 70 70 ted> |App
0380: 7c 0a 20 7c 20 20 20 20 20 20 7c 54 63 6c 5f 52 |. | |Tcl_R
0390: 65 61 64 52 61 77 20 2d 2d 3e 20 42 69 6f 49 6e eadRaw --> BioIn
03a0: 70 75 74 7c 20 20 20 20 20 7c 42 49 4f 5f 52 65 put| |BIO_Re
03b0: 61 64 20 2d 2d 3e 54 6c 73 49 6e 70 75 74 50 72 ad -->TlsInputPr
03c0: 6f 63 20 2d 2d 3e 20 72 65 61 64 7c 20 20 20 7c oc --> read| |
03d0: 0a 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 . +------+
03e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03f0: 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 +-----+
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0410: 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2b 0a +---+.
0420: 0a 0a 46 61 73 74 20 50 61 74 68 0a 09 09 09 09 ..Fast Path.....
0430: 09 09 74 6c 73 49 4f 2e 63 0a 20 20 2b 2d 2d 2d ..tlsIO.c. +---
0440: 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 ---+
0450: 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 +-----+
0460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0470: 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d +---
0480: 2d 2d 2b 0a 20 20 7c 20 20 20 20 20 20 7c 3c 2d --+. | |<-
0490: 2d 20 77 72 69 74 65 20 3c 2d 2d 7c 20 53 53 4c - write <--| SSL
04a0: 20 7c 42 49 4f 5f 77 72 69 74 65 20 3c 2d 2d 20 |BIO_write <--
04b0: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 3c 2d TlsOutputProc <-
04c0: 2d 20 70 75 74 73 7c 20 20 20 20 20 7c 0a 20 20 - puts| |.
04d0: 7c 73 6f 63 6b 65 74 7c 20 3c 65 6e 63 72 79 70 |socket| <encryp
04e0: 74 65 64 3e 20 7c 20 42 49 4f 20 7c 20 20 20 20 ted> | BIO |
04f0: 20 20 20 20 20 20 20 20 3c 75 6e 65 6e 63 72 79 <unencry
0500: 70 74 65 64 3e 20 20 20 20 20 20 20 20 20 20 20 pted>
0510: 7c 20 41 70 70 20 7c 0a 20 20 7c 20 20 20 20 20 | App |. |
0520: 20 7c 2d 2d 3e 20 20 72 65 61 64 20 2d 2d 3e 7c |--> read -->|
0530: 20 20 20 20 20 7c 42 49 4f 5f 52 65 61 64 20 20 |BIO_Read
0540: 2d 2d 3e 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 --> TlsInputProc
0550: 20 2d 2d 3e 20 20 72 65 61 64 7c 20 20 20 20 20 --> read|
0560: 7c 0a 20 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 |. +------+
0570: 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b +-----+
0580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
05a0: 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 0a 2a 2f 0a 0a +-----+.*/..
05b0: 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 6e 74 #include "tlsInt
05c0: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 65 72 .h".#include <er
05d0: 72 6e 6f 2e 68 3e 0a 0a 2f 2a 0a 20 2a 2d 2d 2d rno.h>../*. *---
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
0630: 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f TlsBlockModePro
0640: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 c --. *. *.This
0650: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
0660: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 oked by the gene
0670: 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 ric IO level to
0680: 73 65 74 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 set the channel
0690: 74 6f 0a 20 2a 09 62 6c 6f 63 6b 69 6e 67 20 6f to. *.blocking o
06a0: 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f r nonblocking mo
06b0: 64 65 2e 20 43 61 6c 6c 65 64 20 62 79 20 74 68 de. Called by th
06c0: 65 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c 61 e generic I/O la
06d0: 79 65 72 20 77 68 65 6e 65 76 65 72 0a 20 2a 09 yer whenever. *.
06e0: 74 68 65 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e the Tcl_SetChann
06f0: 65 6c 4f 70 74 69 6f 6e 28 29 20 66 75 6e 63 74 elOption() funct
0700: 69 6f 6e 20 69 73 20 75 73 65 64 20 77 69 74 68 ion is used with
0710: 20 6f 70 74 69 6f 6e 20 2d 62 6c 6f 63 6b 69 6e option -blockin
0720: 67 2e 20 45 61 63 68 0a 20 2a 09 73 74 61 63 6b g. Each. *.stack
0730: 65 64 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 6f ed channel is co
0740: 6e 66 69 67 75 72 65 64 20 69 6e 64 69 76 69 64 nfigured individ
0750: 75 61 6c 6c 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 ually.. *. * Res
0760: 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 20 73 75 ults:. *.0 if su
0770: 63 63 65 73 73 66 75 6c 20 6f 72 20 50 4f 53 49 ccessful or POSI
0780: 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 20 X error code if
0790: 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 failed.. *. * Si
07a0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 de effects:. *.S
07b0: 65 74 73 20 74 68 65 20 64 65 76 69 63 65 20 69 ets the device i
07c0: 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 nto blocking or
07d0: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 nonblocking mode
07e0: 2e 0a 20 2a 0a 20 2a 2d 2d 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 2d ----------------
0830: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
0840: 69 6e 74 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 int TlsBlockMode
0850: 50 72 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 Proc(. Client
0860: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
0870: 61 2c 09 2f 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e a,./* Connection
0880: 20 73 74 61 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 state info */.
0890: 20 20 20 69 6e 74 20 6d 6f 64 65 29 09 09 09 2f int mode).../
08a0: 2a 20 42 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f * Blocking or no
08b0: 6e 2d 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 20 n-blocking mode
08c0: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a */.{. State *
08d0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
08e0: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
08f0: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
0900: 22 43 61 6c 6c 65 64 20 77 69 74 68 20 6d 6f 64 "Called with mod
0910: 65 20 25 64 22 2c 20 6d 6f 64 65 29 3b 0a 0a 20 e %d", mode);..
0920: 20 20 20 69 66 20 28 6d 6f 64 65 20 3d 3d 20 54 if (mode == T
0930: 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b CL_MODE_NONBLOCK
0940: 49 4e 47 29 20 7b 0a 09 73 74 61 74 65 50 74 72 ING) {..statePtr
0950: 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 ->flags |= TLS_T
0960: 43 4c 5f 41 53 59 4e 43 3b 0a 20 20 20 20 7d 20 CL_ASYNC;. }
0970: 65 6c 73 65 20 7b 0a 09 73 74 61 74 65 50 74 72 else {..statePtr
0980: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 ->flags &= ~(TLS
0990: 5f 54 43 4c 5f 41 53 59 4e 43 29 3b 0a 20 20 20 _TCL_ASYNC);.
09a0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b }. return 0;
09b0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
09c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09e0: 2d 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 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
0a10: 43 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a CloseProc --. *.
0a20: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
0a30: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 e is invoked by
0a40: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
0a50: 65 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d 20 evel to perform
0a60: 63 68 61 6e 6e 65 6c 0a 20 2a 09 74 79 70 65 20 channel. *.type
0a70: 73 70 65 63 69 66 69 63 20 63 6c 65 61 6e 75 70 specific cleanup
0a80: 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b when a SSL sock
0a90: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c et based channel
0aa0: 20 69 73 20 63 6c 6f 73 65 64 2e 20 43 61 6c 6c is closed. Call
0ab0: 65 64 0a 20 2a 09 62 79 20 74 68 65 20 67 65 6e ed. *.by the gen
0ac0: 65 72 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 eric I/O layer w
0ad0: 68 65 6e 65 76 65 72 20 74 68 65 20 54 63 6c 5f henever the Tcl_
0ae0: 43 6c 6f 73 65 28 29 20 66 75 6e 63 74 69 6f 6e Close() function
0af0: 20 69 73 20 75 73 65 64 2e 0a 20 2a 0a 20 2a 20 is used.. *. *
0b00: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 Results:. *.0 if
0b10: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 successful or P
0b20: 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 OSIX error code
0b30: 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a if failed.. *. *
0b40: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
0b50: 2a 09 43 6c 6f 73 65 73 20 74 68 65 20 73 6f 63 *.Closes the soc
0b60: 6b 65 74 20 66 6f 72 20 74 68 65 20 63 68 61 6e ket for the chan
0b70: 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d nel.. *. *------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
0bd0: 69 63 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 50 ic int TlsCloseP
0be0: 72 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 roc(. ClientD
0bf0: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
0c00: 2c 09 2f 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 ,./* Connection
0c10: 73 74 61 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 state info */.
0c20: 20 20 54 43 4c 5f 55 4e 55 53 45 44 28 54 63 6c TCL_UNUSED(Tcl
0c30: 5f 49 6e 74 65 72 70 20 2a 29 29 09 2f 2a 20 54 _Interp *))./* T
0c40: 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 cl interpreter t
0c50: 6f 20 72 65 70 6f 72 74 20 65 72 72 6f 72 73 20 o report errors
0c60: 74 6f 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 to */.{. Stat
0c70: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
0c80: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
0c90: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e Data;.. dprin
0ca0: 74 66 28 22 43 6c 6f 73 65 28 25 70 29 22 2c 20 tf("Close(%p)",
0cb0: 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 (void *) statePt
0cc0: 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 65 6e 64 r);.. /* Send
0cd0: 20 22 63 6c 6f 73 65 20 6e 6f 74 69 66 79 22 20 "close notify"
0ce0: 73 68 75 74 64 6f 77 6e 20 6e 6f 74 69 66 69 63 shutdown notific
0cf0: 61 74 69 6f 6e 2e 20 57 69 6c 6c 20 72 65 74 75 ation. Will retu
0d00: 72 6e 20 30 20 69 66 20 69 6e 20 70 72 6f 67 72 rn 0 if in progr
0d10: 65 73 73 2c 0a 09 61 6e 64 20 31 20 77 68 65 6e ess,..and 1 when
0d20: 20 63 6f 6d 70 6c 65 74 65 2e 20 4f 6e 6c 79 20 complete. Only
0d30: 63 6c 6f 73 65 73 20 74 68 65 20 77 72 69 74 65 closes the write
0d40: 20 64 69 72 65 63 74 69 6f 6e 20 6f 66 20 74 68 direction of th
0d50: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 3b 0a 09 74 e connection;..t
0d60: 68 65 20 72 65 61 64 20 64 69 72 65 63 74 69 6f he read directio
0d70: 6e 20 69 73 20 63 6c 6f 73 65 64 20 62 79 20 74 n is closed by t
0d80: 68 65 20 70 65 65 72 2e 20 44 6f 65 73 20 6e 6f he peer. Does no
0d90: 74 20 61 66 66 65 63 74 20 74 68 65 20 73 6f 63 t affect the soc
0da0: 6b 65 74 20 0a 09 73 74 61 74 65 2e 20 44 6f 6e ket ..state. Don
0db0: 27 74 20 63 61 6c 6c 20 61 66 74 65 72 20 66 61 't call after fa
0dc0: 74 61 6c 20 65 72 72 6f 72 2e 20 2a 2f 0a 20 20 tal error. */.
0dd0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0de0: 73 73 6c 20 21 3d 20 4e 55 4c 4c 20 26 26 20 21 ssl != NULL && !
0df0: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
0e00: 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 & TLS_TCL_INIT)
0e10: 20 26 26 0a 09 20 20 20 20 21 28 73 74 61 74 65 &&.. !(state
0e20: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
0e30: 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 _TCL_FATAL_ERROR
0e40: 29 29 20 7b 0a 09 42 49 4f 5f 66 6c 75 73 68 28 )) {..BIO_flush(
0e50: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
0e60: 09 53 53 4c 5f 73 68 75 74 64 6f 77 6e 28 73 74 .SSL_shutdown(st
0e70: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 73 atePtr->ssl);..s
0e80: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
0e90: 3d 20 54 4c 53 5f 54 43 4c 5f 43 4c 4f 53 45 44 = TLS_TCL_CLOSED
0ea0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
0eb0: 52 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 Remove pending t
0ec0: 69 6d 65 72 2c 20 69 66 20 61 6e 79 20 2a 2f 0a imer, if any */.
0ed0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
0ee0: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
0ef0: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
0f00: 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 ) {..Tcl_DeleteT
0f10: 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 imerHandler(stat
0f20: 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 ePtr->timer);..s
0f30: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
0f40: 20 4e 55 4c 4c 3b 0a 09 54 63 6c 5f 52 65 6c 65 NULL;..Tcl_Rele
0f50: 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 ase((ClientData)
0f60: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
0f70: 7d 0a 0a 20 20 20 20 2f 2a 20 54 6c 73 5f 46 72 }.. /* Tls_Fr
0f80: 65 65 20 63 61 6c 6c 73 20 54 6c 73 5f 43 6c 65 ee calls Tls_Cle
0f90: 61 6e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 45 76 an */. Tcl_Ev
0fa0: 65 6e 74 75 61 6c 6c 79 46 72 65 65 28 28 43 6c entuallyFree((Cl
0fb0: 69 65 6e 74 44 61 74 61 29 73 74 61 74 65 50 74 ientData)statePt
0fc0: 72 2c 20 54 6c 73 5f 46 72 65 65 29 3b 0a 20 20 r, Tls_Free);.
0fd0: 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f return 0;.}../
0fe0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1030: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73 65 -. *. * TlsClose
1040: 32 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 2Proc --. *. *.S
1050: 69 6d 69 6c 61 72 20 74 6f 20 54 6c 73 43 6c 6f imilar to TlsClo
1060: 73 65 50 72 6f 63 2c 20 62 75 74 20 61 6c 6c 6f seProc, but allo
1070: 77 73 20 66 6f 72 20 73 65 70 61 72 61 74 65 20 ws for separate
1080: 63 6c 6f 73 65 20 6f 66 20 74 68 65 20 72 65 61 close of the rea
1090: 64 20 6f 72 0a 20 2a 09 77 72 69 74 65 20 73 69 d or. *.write si
10a0: 64 65 20 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 de of the channe
10b0: 6c 2e 20 57 65 20 64 6f 6e 27 74 20 73 75 70 70 l. We don't supp
10c0: 6f 72 74 20 74 68 65 73 65 20 73 69 6e 63 65 20 ort these since
10d0: 54 4c 53 20 69 73 20 61 0a 20 2a 09 62 69 2d 64 TLS is a. *.bi-d
10e0: 69 72 65 63 74 69 6f 6e 61 6c 20 70 72 6f 74 6f irectional proto
10f0: 63 6f 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c col.. *. * Resul
1100: 74 73 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 63 ts:. *.0 if succ
1110: 65 73 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 essful or POSIX
1120: 65 72 72 6f 72 20 63 6f 64 65 20 69 66 20 66 61 error code if fa
1130: 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 iled.. *. * Side
1140: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 6c 6f effects:. *.Clo
1150: 73 65 73 20 74 68 65 20 73 6f 63 6b 65 74 20 66 ses the socket f
1160: 6f 72 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a or the channel..
1170: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
1180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11c0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
11d0: 74 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 t TlsClose2Proc(
11e0: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
11f0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a instanceData,./*
1200: 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 Connection stat
1210: 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 54 63 e info */. Tc
1220: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1230: 2c 09 09 2f 2a 20 54 63 6c 20 69 6e 74 65 72 70 ,../* Tcl interp
1240: 72 65 74 65 72 20 74 6f 20 72 65 70 6f 72 74 20 reter to report
1250: 65 72 72 6f 72 73 20 74 6f 20 2a 2f 0a 20 20 20 errors to */.
1260: 20 69 6e 74 20 66 6c 61 67 73 29 09 09 09 2f 2a int flags).../*
1270: 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65 20 Flags to close
1280: 72 65 61 64 2f 77 72 69 74 65 20 73 69 64 65 20 read/write side
1290: 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b 0a of channel */.{.
12a0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
12b0: 6c 65 64 20 77 69 74 68 20 66 6c 61 67 73 20 25 led with flags %
12c0: 64 22 2c 20 66 6c 61 67 73 29 3b 0a 0a 20 20 20 d", flags);..
12d0: 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 28 54 if ((flags & (T
12e0: 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 7c 54 43 CL_CLOSE_READ|TC
12f0: 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 L_CLOSE_WRITE))
1300: 3d 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 0) {..return
1310: 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 69 6e 73 TlsCloseProc(ins
1320: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 65 72 tanceData, inter
1330: 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 p);. }. re
1340: 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a turn EINVAL;.}..
1350: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
1360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13a0: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 57 61 69 --. *. * Tls_Wai
13b0: 74 46 6f 72 43 6f 6e 6e 65 63 74 20 2d 2d 0a 20 tForConnect --.
13c0: 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 63 6f 6e *. *.Perform con
13d0: 6e 65 63 74 20 28 63 6c 69 65 6e 74 29 20 6f 72 nect (client) or
13e0: 20 61 63 63 65 70 74 20 28 73 65 72 76 65 72 29 accept (server)
13f0: 20 66 75 6e 63 74 69 6f 6e 2e 20 41 6c 73 6f 20 function. Also
1400: 70 65 72 66 6f 72 6d 73 0a 20 2a 09 65 71 75 69 performs. *.equi
1410: 76 61 6c 65 6e 74 20 6f 66 20 68 61 6e 64 73 68 valent of handsh
1420: 61 6b 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a ake function.. *
1430: 0a 20 2a 20 52 65 73 75 6c 74 3a 0a 20 2a 09 31 . * Result:. *.1
1440: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 if successful,
1450: 30 20 69 66 20 77 61 69 74 69 6e 67 20 66 6f 72 0 if waiting for
1460: 20 63 6f 6e 6e 65 63 74 2c 20 61 6e 64 20 2d 31 connect, and -1
1470: 20 69 66 20 66 61 69 6c 65 64 2e 20 53 65 74 73 if failed. Sets
1480: 0a 20 2a 09 65 72 72 6f 72 43 6f 64 65 50 74 72 . *.errorCodePtr
1490: 20 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f to a POSIX erro
14a0: 72 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 r code if an err
14b0: 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 or occurred, or
14c0: 30 20 69 66 20 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 0 if not.. *. *
14d0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
14e0: 09 50 65 72 66 6f 72 6d 73 20 53 53 4c 5f 61 63 .Performs SSL_ac
14f0: 63 65 70 74 20 6f 72 20 53 53 4c 5f 63 6f 6e 6e cept or SSL_conn
1500: 65 63 74 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ect.. *. *------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1550: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
1560: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
1570: 63 74 28 0a 20 20 20 20 53 74 61 74 65 20 2a 73 ct(. State *s
1580: 74 61 74 65 50 74 72 2c 09 09 09 2f 2a 20 43 6f tatePtr,.../* Co
1590: 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 nnection state i
15a0: 6e 66 6f 20 2a 2f 0a 20 20 20 20 69 6e 74 20 2a nfo */. int *
15b0: 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 09 09 09 errorCodePtr,...
15c0: 2f 2a 20 53 74 6f 72 61 67 65 20 66 6f 72 20 65 /* Storage for e
15d0: 72 72 6f 72 20 63 6f 64 65 20 74 6f 20 72 65 74 rror code to ret
15e0: 75 72 6e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 68 urn */. int h
15f0: 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 49 andshakeFailureI
1600: 73 50 65 72 6d 61 6e 65 6e 74 29 09 2f 2a 20 49 sPermanent)./* I
1610: 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 20 66 61 s the connect fa
1620: 69 6c 75 72 65 20 70 65 72 6d 61 6e 65 6e 74 20 ilure permanent
1630: 2a 2f 0a 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 */.{. unsigne
1640: 64 20 6c 6f 6e 67 20 65 72 72 3b 0a 20 20 20 20 d long err;.
1650: 69 6e 74 20 72 65 74 2c 20 72 63 2c 20 72 65 61 int ret, rc, rea
1660: 73 6f 6e 2c 20 69 73 5f 66 61 74 61 6c 2c 20 62 son, is_fatal, b
1670: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 ioShouldRetry, i
1680: 6f 5f 65 72 72 3b 0a 20 20 20 20 2a 65 72 72 6f o_err;. *erro
1690: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 rCodePtr = 0;.
16a0: 20 20 69 6e 74 20 72 65 74 72 69 65 73 20 3d 20 int retries =
16b0: 31 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 10;.. dprintf
16c0: 28 22 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 ("WaitForConnect
16d0: 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 (%p)", (void *)
16e0: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 64 statePtr);. d
16f0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 77 printf("Called w
1700: 69 74 68 20 68 61 6e 64 73 68 61 6b 65 46 61 69 ith handshakeFai
1710: 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 20 lureIsPermanent
1720: 25 64 22 2c 20 68 61 6e 64 73 68 61 6b 65 46 61 %d", handshakeFa
1730: 69 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 ilureIsPermanent
1740: 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 46 6c 61 );. dprintFla
1750: 67 73 28 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 gs(statePtr);..
1760: 20 20 20 2f 2a 20 43 61 6e 20 61 6c 73 6f 20 63 /* Can also c
1770: 68 65 63 6b 20 53 53 4c 5f 69 73 5f 69 6e 69 74 heck SSL_is_init
1780: 5f 66 69 6e 69 73 68 65 64 28 73 73 6c 29 20 2a _finished(ssl) *
1790: 2f 0a 20 20 20 20 69 66 20 28 21 28 73 74 61 74 /. if (!(stat
17a0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
17b0: 53 5f 54 43 4c 5f 49 4e 49 54 29 29 20 7b 0a 09 S_TCL_INIT)) {..
17c0: 64 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 dprintf("Tls_Wai
17d0: 74 46 6f 72 43 6f 6e 6e 65 63 74 20 63 61 6c 6c tForConnect call
17e0: 65 64 20 6f 6e 20 61 6c 72 65 61 64 79 20 69 6e ed on already in
17f0: 69 74 69 61 6c 69 7a 65 64 20 63 68 61 6e 6e 65 itialized channe
1800: 6c 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 77 l -- returning w
1810: 69 74 68 20 69 6d 6d 65 64 69 61 74 65 20 73 75 ith immediate su
1820: 63 63 65 73 73 22 29 3b 0a 09 72 65 74 75 72 6e ccess");..return
1830: 20 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 1;. }.. /
1840: 2a 20 44 69 66 66 65 72 65 6e 74 20 74 79 70 65 * Different type
1850: 73 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e 73 20 s of operations
1860: 68 61 76 65 20 64 69 66 66 65 72 65 6e 74 20 72 have different r
1870: 65 71 75 69 72 65 6d 65 6e 74 73 20 66 6f 72 20 equirements for
1880: 53 53 4c 20 62 65 69 6e 67 20 65 73 74 61 62 6c SSL being establ
1890: 69 73 68 65 64 2e 20 2a 2f 0a 20 20 20 20 69 66 ished. */. if
18a0: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
18b0: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 s & TLS_TCL_FATA
18c0: 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 69 66 20 28 L_ERROR) {..if (
18d0: 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 handshakeFailure
18e0: 49 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 IsPermanent) {..
18f0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b dprintf("Ask
1900: 65 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 ed to wait for a
1910: 20 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 TLS handshake t
1920: 68 61 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 hat has already
1930: 66 61 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 failed. Returni
1940: 6e 67 20 66 61 74 61 6c 20 65 72 72 6f 72 22 29 ng fatal error")
1950: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
1960: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 ePtr = ECONNABOR
1970: 54 45 44 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 TED;..} else {..
1980: 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b dprintf("Ask
1990: 65 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 ed to wait for a
19a0: 20 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 TLS handshake t
19b0: 68 61 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 hat has already
19c0: 66 61 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 failed. Returni
19d0: 6e 67 20 73 6f 66 74 20 65 72 72 6f 72 22 29 3b ng soft error");
19e0: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
19f0: 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 Ptr = ECONNRESET
1a00: 3b 0a 09 7d 0a 09 72 65 74 75 72 6e 20 2d 31 3b ;..}..return -1;
1a10: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 20 . }.. for
1a20: 28 3b 3b 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 (;;) {..Tcl_SetE
1a30: 72 72 6e 6f 28 30 29 3b 0a 09 45 52 52 5f 63 6c rrno(0);..ERR_cl
1a40: 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 09 42 49 ear_error();..BI
1a50: 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 5f 66 6c O_clear_retry_fl
1a60: 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ags(statePtr->bi
1a70: 6f 29 3b 0a 0a 09 2f 2a 20 4e 6f 74 20 69 6e 69 o);.../* Not ini
1a80: 74 69 61 6c 69 7a 65 64 20 79 65 74 21 20 41 6c tialized yet! Al
1a90: 73 6f 20 63 61 6c 6c 73 20 53 53 4c 5f 64 6f 5f so calls SSL_do_
1aa0: 68 61 6e 64 73 68 61 6b 65 28 29 2e 20 2a 2f 0a handshake(). */.
1ab0: 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 .if (statePtr->f
1ac0: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 lags & TLS_TCL_S
1ad0: 45 52 56 45 52 29 20 7b 0a 09 20 20 20 20 64 70 ERVER) {.. dp
1ae0: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 rintf("Calling S
1af0: 53 4c 5f 61 63 63 65 70 74 28 29 22 29 3b 0a 09 SL_accept()");..
1b00: 20 20 20 20 72 65 74 20 3d 20 53 53 4c 5f 61 63 ret = SSL_ac
1b10: 63 65 70 74 28 73 74 61 74 65 50 74 72 2d 3e 73 cept(statePtr->s
1b20: 73 6c 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a sl);...} else {.
1b30: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
1b40: 6c 6c 69 6e 67 20 53 53 4c 5f 63 6f 6e 6e 65 63 lling SSL_connec
1b50: 74 28 29 22 29 3b 0a 09 20 20 20 20 72 65 74 20 t()");.. ret
1b60: 3d 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 28 73 74 = SSL_connect(st
1b70: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 7d atePtr->ssl);..}
1b80: 0a 0a 09 2f 2a 20 31 3d 73 75 63 63 65 73 73 66 .../* 1=successf
1b90: 75 6c 2c 20 30 3d 6e 6f 74 20 73 75 63 63 65 73 ul, 0=not succes
1ba0: 73 66 75 6c 20 61 6e 64 20 73 68 75 74 20 64 6f sful and shut do
1bb0: 77 6e 2c 20 3c 30 3d 66 61 74 61 6c 20 65 72 72 wn, <0=fatal err
1bc0: 6f 72 20 2a 2f 0a 09 69 66 20 28 72 65 74 20 3e or */..if (ret >
1bd0: 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 0) {.. dprin
1be0: 74 66 28 22 41 63 63 65 70 74 20 6f 72 20 63 6f tf("Accept or co
1bf0: 6e 6e 65 63 74 20 77 61 73 20 73 75 63 63 65 73 nnect was succes
1c00: 73 66 75 6c 22 29 3b 0a 0a 09 20 20 20 20 69 66 sful");... if
1c10: 20 28 42 49 4f 5f 66 6c 75 73 68 28 73 74 61 74 (BIO_flush(stat
1c20: 65 50 74 72 2d 3e 62 69 6f 29 20 3c 3d 20 30 29 ePtr->bio) <= 0)
1c30: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 46 6c {...dprintf("Fl
1c40: 75 73 68 69 6e 67 20 74 68 65 20 6c 6f 77 65 72 ushing the lower
1c50: 20 6c 61 79 65 72 73 20 66 61 69 6c 65 64 2c 20 layers failed,
1c60: 74 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 61 62 this will probab
1c70: 6c 79 20 74 65 72 6d 69 6e 61 74 65 20 74 68 69 ly terminate thi
1c80: 73 20 73 65 73 73 69 6f 6e 22 29 3b 0a 09 20 20 s session");..
1c90: 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 }..} else {..
1ca0: 20 20 20 64 70 72 69 6e 74 66 28 22 41 63 63 65 dprintf("Acce
1cb0: 70 74 20 6f 72 20 63 6f 6e 6e 65 63 74 20 66 61 pt or connect fa
1cc0: 69 6c 65 64 22 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 iled");..}.../*
1cd0: 53 61 6d 65 20 61 73 20 53 53 4c 5f 77 61 6e 74 Same as SSL_want
1ce0: 2c 20 62 75 74 20 61 6c 73 6f 20 63 68 65 63 6b , but also check
1cf0: 73 20 74 68 65 20 65 72 72 6f 72 20 71 75 65 75 s the error queu
1d00: 65 20 2a 2f 0a 09 72 63 20 3d 20 53 53 4c 5f 67 e */..rc = SSL_g
1d10: 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 et_error(statePt
1d20: 72 2d 3e 73 73 6c 2c 20 72 65 74 29 3b 0a 09 65 r->ssl, ret);..e
1d30: 72 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 rr = ERR_get_err
1d40: 6f 72 28 29 3b 0a 09 72 65 61 73 6f 6e 20 3d 20 or();..reason =
1d50: 45 52 52 5f 47 45 54 5f 52 45 41 53 4f 4e 28 65 ERR_GET_REASON(e
1d60: 72 72 29 3b 0a 09 69 73 5f 66 61 74 61 6c 20 3d rr);..is_fatal =
1d70: 20 45 52 52 5f 46 41 54 41 4c 5f 45 52 52 4f 52 ERR_FATAL_ERROR
1d80: 28 65 72 72 29 3b 0a 09 2f 2a 20 54 68 65 20 72 (err);../* The r
1d90: 65 74 72 79 20 66 6c 61 67 20 69 73 20 73 65 74 etry flag is set
1da0: 20 62 79 20 74 68 65 20 42 49 4f 5f 73 65 74 5f by the BIO_set_
1db0: 72 65 74 72 79 5f 2a 20 66 75 6e 63 74 69 6f 6e retry_* function
1dc0: 73 20 2a 2f 0a 09 62 69 6f 53 68 6f 75 6c 64 52 s */..bioShouldR
1dd0: 65 74 72 79 20 3d 20 42 49 4f 5f 73 68 6f 75 6c etry = BIO_shoul
1de0: 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 d_retry(statePtr
1df0: 2d 3e 62 69 6f 29 3b 0a 09 69 6f 5f 65 72 72 20 ->bio);..io_err
1e00: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 = Tcl_GetErrno()
1e10: 3b 0a 09 64 70 72 69 6e 74 66 28 22 43 6f 6e 6e ;..dprintf("Conn
1e20: 65 63 74 3a 20 72 65 74 3d 25 64 2c 20 72 63 3d ect: ret=%d, rc=
1e30: 25 64 2c 20 65 72 72 3d 25 6c 64 2c 20 72 65 61 %d, err=%ld, rea
1e40: 73 6f 6e 3d 25 64 2c 20 69 73 5f 66 61 74 61 6c son=%d, is_fatal
1e50: 3d 25 64 2c 20 6c 69 62 3d 25 73 2c 20 6d 73 67 =%d, lib=%s, msg
1e60: 3d 25 73 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 =%s, bioShouldRe
1e70: 74 72 79 3d 25 64 2c 20 65 72 72 6e 6f 3d 25 64 try=%d, errno=%d
1e80: 2c 20 69 64 3d 25 73 2c 20 6d 73 67 3d 25 73 22 , id=%s, msg=%s"
1e90: 2c 20 5c 0a 09 20 20 20 20 72 65 74 2c 20 72 63 , \.. ret, rc
1ea0: 2c 20 65 72 72 2c 20 72 65 61 73 6f 6e 2c 20 69 , err, reason, i
1eb0: 73 5f 66 61 74 61 6c 2c 20 45 52 52 5f 6c 69 62 s_fatal, ERR_lib
1ec0: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 _error_string(er
1ed0: 72 29 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 r), ERR_reason_e
1ee0: 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 rror_string(err)
1ef0: 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 , bioShouldRetry
1f00: 2c 20 69 6f 5f 65 72 72 2c 20 54 63 6c 5f 45 72 , io_err, Tcl_Er
1f10: 72 6e 6f 49 64 28 29 2c 20 54 63 6c 5f 45 72 72 rnoId(), Tcl_Err
1f20: 6e 6f 4d 73 67 28 69 6f 5f 65 72 72 29 29 3b 0a noMsg(io_err));.
1f30: 0a 09 69 66 20 28 72 65 74 20 3c 3d 20 30 29 20 ..if (ret <= 0)
1f40: 7b 0a 09 20 20 20 20 69 66 20 28 72 63 20 3d 3d {.. if (rc ==
1f50: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
1f60: 43 4f 4e 4e 45 43 54 20 7c 7c 20 72 63 20 3d 3d CONNECT || rc ==
1f70: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
1f80: 41 43 43 45 50 54 29 20 7b 0a 09 09 62 69 6f 53 ACCEPT) {...bioS
1f90: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a houldRetry = 1;.
1fa0: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
1fb0: 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f rc == SSL_ERROR_
1fc0: 57 41 4e 54 5f 52 45 41 44 29 20 7b 0a 09 09 62 WANT_READ) {...b
1fd0: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 ioShouldRetry =
1fe0: 31 3b 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 77 1;...statePtr->w
1ff0: 61 6e 74 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ant |= TCL_READA
2000: 42 4c 45 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 BLE;.. } else
2010: 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f 45 if (rc == SSL_E
2020: 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 29 RROR_WANT_WRITE)
2030: 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 {...bioShouldRe
2040: 74 72 79 20 3d 20 31 3b 0a 09 09 73 74 61 74 65 try = 1;...state
2050: 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c Ptr->want |= TCL
2060: 5f 57 52 49 54 41 42 4c 45 3b 0a 09 20 20 20 20 _WRITABLE;..
2070: 7d 0a 09 7d 0a 0a 09 69 66 20 28 62 69 6f 53 68 }..}...if (bioSh
2080: 6f 75 6c 64 52 65 74 72 79 29 20 7b 0a 09 20 20 ouldRetry) {..
2090: 20 20 64 70 72 69 6e 74 66 28 22 54 68 65 20 49 dprintf("The I
20a0: 2f 4f 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c /O did not compl
20b0: 65 74 65 20 2d 2d 20 62 75 74 20 77 65 20 73 68 ete -- but we sh
20c0: 6f 75 6c 64 20 74 72 79 20 69 74 20 61 67 61 69 ould try it agai
20d0: 6e 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 73 n");... if (s
20e0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
20f0: 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 TLS_TCL_ASYNC)
2100: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 52 65 74 {...dprintf("Ret
2110: 75 72 6e 69 6e 67 20 45 41 47 41 49 4e 20 73 6f urning EAGAIN so
2120: 20 74 68 61 74 20 69 74 20 63 61 6e 20 62 65 20 that it can be
2130: 72 65 74 72 69 65 64 20 6c 61 74 65 72 22 29 3b retried later");
2140: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
2150: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 72 65 74 = EAGAIN;...ret
2160: 75 72 6e 20 30 3b 0a 09 20 20 20 20 7d 20 65 6c urn 0;.. } el
2170: 73 65 20 69 66 20 28 72 65 74 72 69 65 73 20 3e se if (retries >
2180: 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 0) {...dprintf(
2190: 22 44 6f 69 6e 67 20 73 6f 20 6e 6f 77 22 29 3b "Doing so now");
21a0: 0a 09 09 54 63 6c 5f 53 6c 65 65 70 28 35 30 29 ...Tcl_Sleep(50)
21b0: 3b 0a 09 09 72 65 74 72 69 65 73 2d 2d 3b 0a 09 ;...retries--;..
21c0: 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 20 20 20 20 .continue;..
21d0: 7d 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 }..}...dprintf("
21e0: 57 65 20 68 61 76 65 20 65 69 74 68 65 72 20 63 We have either c
21f0: 6f 6d 70 6c 65 74 65 6c 79 20 65 73 74 61 62 6c ompletely establ
2200: 69 73 68 65 64 20 74 68 65 20 73 65 73 73 69 6f ished the sessio
2210: 6e 20 6f 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 n or completely
2220: 66 61 69 6c 65 64 20 69 74 20 2d 2d 20 74 68 65 failed it -- the
2230: 72 65 20 69 73 20 6e 6f 20 6d 6f 72 65 20 6e 65 re is no more ne
2240: 65 64 20 74 6f 20 65 76 65 72 20 72 65 74 72 79 ed to ever retry
2250: 20 69 74 20 74 68 6f 75 67 68 22 29 3b 0a 09 62 it though");..b
2260: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 reak;. }..
2270: 20 2f 2a 20 42 61 73 65 64 20 6f 6e 20 65 72 72 /* Based on err
2280: 6f 72 2c 20 64 6f 20 72 65 74 72 79 20 6f 72 20 or, do retry or
2290: 61 62 6f 72 74 20 2a 2f 0a 20 20 20 20 73 77 69 abort */. swi
22a0: 74 63 68 20 28 72 63 29 20 7b 0a 09 63 61 73 65 tch (rc) {..case
22b0: 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a SSL_ERROR_NONE:
22c0: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 54 4c 53 .. /* The TLS
22d0: 2f 53 53 4c 20 49 2f 4f 20 6f 70 65 72 61 74 69 /SSL I/O operati
22e0: 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 20 73 75 63 on completed suc
22f0: 63 65 73 73 66 75 6c 6c 79 20 2a 2f 0a 09 20 20 cessfully */..
2300: 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 dprintf("SSL_E
2310: 52 52 4f 52 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 RROR_NONE");..
2320: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
2330: 3d 20 30 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b = 0;.. break;
2340: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
2350: 52 5f 53 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 R_SSL:.. /* A
2360: 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 non-recoverable
2370: 2c 20 66 61 74 61 6c 20 65 72 72 6f 72 20 69 6e , fatal error in
2380: 20 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 the SSL library
2390: 20 6f 63 63 75 72 72 65 64 2c 0a 09 20 20 20 20 occurred,..
23a0: 20 20 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f usually a pro
23b0: 74 6f 63 6f 6c 20 65 72 72 6f 72 2e 20 54 68 69 tocol error. Thi
23c0: 73 20 69 6e 63 6c 75 64 65 73 20 63 65 72 74 69 s includes certi
23d0: 66 69 63 61 74 65 20 76 61 6c 69 64 61 74 69 6f ficate validatio
23e0: 6e 0a 09 20 20 20 20 20 20 20 65 72 72 6f 72 73 n.. errors
23f0: 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
2400: 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c f("SSL_ERROR_SSL
2410: 3a 20 46 61 74 61 6c 20 53 53 4c 20 70 72 6f 74 : Fatal SSL prot
2420: 6f 63 6f 6c 20 65 72 72 6f 72 20 6f 63 63 75 72 ocol error occur
2430: 72 65 64 22 29 3b 0a 09 20 20 20 20 69 66 20 28 red");.. if (
2440: 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 SSL_get_verify_r
2450: 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e esult(statePtr->
2460: 73 73 6c 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f ssl) != X509_V_O
2470: 4b 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 K) {...Tls_Error
2480: 28 73 74 61 74 65 50 74 72 2c 0a 09 09 20 20 20 (statePtr,...
2490: 20 58 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 X509_verify_cer
24a0: 74 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 53 t_error_string(S
24b0: 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 SL_get_verify_re
24c0: 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 sult(statePtr->s
24d0: 73 6c 29 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 sl)));.. }..
24e0: 20 20 20 69 66 20 28 65 72 72 20 21 3d 20 30 29 if (err != 0)
24f0: 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 {...Tls_Error(s
2500: 74 61 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 tatePtr, ERR_rea
2510: 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 son_error_string
2520: 28 65 72 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 (err));.. }..
2530: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
2540: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
2550: 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
2560: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
2570: 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 L_FATAL_ERROR;..
2580: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c statePtr->fl
2590: 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 ags |= TLS_TCL_E
25a0: 4f 46 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 OF;.. return
25b0: 2d 31 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 -1;...case SSL_E
25c0: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a RROR_WANT_READ:.
25d0: 09 20 20 20 20 2f 2a 20 4d 6f 72 65 20 64 61 74 . /* More dat
25e0: 61 20 6d 75 73 74 20 62 65 20 72 65 61 64 20 66 a must be read f
25f0: 72 6f 6d 20 74 68 65 20 75 6e 64 65 72 6c 79 69 rom the underlyi
2600: 6e 67 20 42 49 4f 20 6c 61 79 65 72 20 69 6e 20 ng BIO layer in
2610: 6f 72 64 65 72 20 74 6f 0a 09 20 20 20 20 20 20 order to..
2620: 20 63 6f 6d 70 6c 65 74 65 20 74 68 65 20 61 63 complete the ac
2630: 74 75 61 6c 20 53 53 4c 5f 2a 28 29 20 6f 70 65 tual SSL_*() ope
2640: 72 61 74 69 6f 6e 2e 20 20 2a 2f 0a 09 20 20 20 ration. */..
2650: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 dprintf("SSL_ER
2660: 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 20 45 ROR_WANT_READ: E
2670: 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 42 49 AGAIN");.. BI
2680: 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 O_set_retry_read
2690: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
26a0: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
26b0: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 Ptr = EAGAIN;..
26c0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e statePtr->wan
26d0: 74 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c t |= TCL_READABL
26e0: 45 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 E;.. return 0
26f0: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
2700: 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 OR_WANT_WRITE:..
2710: 20 20 20 20 2f 2a 20 54 68 65 72 65 20 69 73 20 /* There is
2720: 64 61 74 61 20 69 6e 20 74 68 65 20 53 53 4c 20 data in the SSL
2730: 62 75 66 66 65 72 20 74 68 61 74 20 6d 75 73 74 buffer that must
2740: 20 62 65 20 77 72 69 74 74 65 6e 20 74 6f 20 74 be written to t
2750: 68 65 0a 09 20 20 20 20 20 20 20 75 6e 64 65 72 he.. under
2760: 6c 79 69 6e 67 20 42 49 4f 20 69 6e 20 6f 72 64 lying BIO in ord
2770: 65 72 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 74 er to complete t
2780: 68 65 20 53 53 4c 5f 2a 28 29 20 6f 70 65 72 61 he SSL_*() opera
2790: 74 69 6f 6e 2e 20 2a 2f 0a 09 20 20 20 20 64 70 tion. */.. dp
27a0: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
27b0: 5f 57 41 4e 54 5f 57 52 49 54 45 3a 20 45 41 47 _WANT_WRITE: EAG
27c0: 41 49 4e 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f AIN");.. BIO_
27d0: 73 65 74 5f 72 65 74 72 79 5f 77 72 69 74 65 28 set_retry_write(
27e0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
27f0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
2800: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 tr = EAGAIN;..
2810: 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 statePtr->want
2820: 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 |= TCL_WRITABLE
2830: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 3b ;.. return 0;
2840: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
2850: 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b R_WANT_X509_LOOK
2860: 55 50 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 UP:.. /* The
2870: 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f operation did no
2880: 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 t complete becau
2890: 73 65 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f se an applicatio
28a0: 6e 20 63 61 6c 6c 62 61 63 6b 0a 09 20 20 20 20 n callback..
28b0: 20 20 20 73 65 74 20 62 79 20 53 53 4c 5f 43 54 set by SSL_CT
28c0: 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 X_set_client_cer
28d0: 74 5f 63 62 28 29 20 68 61 73 20 61 73 6b 65 64 t_cb() has asked
28e0: 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 61 67 to be called ag
28f0: 61 69 6e 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 ain. */.. dpr
2900: 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f intf("SSL_ERROR_
2910: 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 WANT_X509_LOOKUP
2920: 3a 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 : EAGAIN");..
2930: 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 73 BIO_set_retry_s
2940: 70 65 63 69 61 6c 28 73 74 61 74 65 50 74 72 2d pecial(statePtr-
2950: 3e 62 69 6f 29 3b 0a 09 20 20 20 20 42 49 4f 5f >bio);.. BIO_
2960: 73 65 74 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e set_retry_reason
2970: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 (statePtr->bio,
2980: 42 49 4f 5f 52 52 5f 53 53 4c 5f 58 35 30 39 5f BIO_RR_SSL_X509_
2990: 4c 4f 4f 4b 55 50 29 3b 0a 09 20 20 20 20 2a 65 LOOKUP);.. *e
29a0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
29b0: 47 41 49 4e 3b 0a 09 20 20 20 20 72 65 74 75 72 GAIN;.. retur
29c0: 6e 20 30 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f n 0;...case SSL_
29d0: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 ERROR_SYSCALL:..
29e0: 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d /* Some non-
29f0: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
2a00: 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 al I/O error occ
2a10: 75 72 72 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 urred */.. dp
2a20: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
2a30: 5f 53 59 53 43 41 4c 4c 3a 20 46 61 74 61 6c 20 _SYSCALL: Fatal
2a40: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
2a50: 65 64 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 ed");... if (
2a60: 65 72 72 20 3d 3d 20 30 20 26 26 20 72 65 74 20 err == 0 && ret
2a70: 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 55 6e 65 == 0) {.../* Une
2a80: 78 70 65 63 74 65 64 20 45 4f 46 20 66 6f 72 20 xpected EOF for
2a90: 31 2e 31 2e 31 20 2a 2f 0a 09 09 64 70 72 69 6e 1.1.1 */...dprin
2aa0: 74 66 28 22 45 4f 46 20 72 65 61 63 68 65 64 22 tf("EOF reached"
2ab0: 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 )...*errorCodePt
2ac0: 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a r = ECONNRESET;.
2ad0: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
2ae0: 65 50 74 72 2c 20 22 28 75 6e 65 78 70 65 63 74 ePtr, "(unexpect
2af0: 65 64 29 20 45 4f 46 20 72 65 61 63 68 65 64 22 ed) EOF reached"
2b00: 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 );... } else
2b10: 69 66 20 28 65 72 72 20 3d 3d 20 30 20 26 26 20 if (err == 0 &&
2b20: 72 65 74 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 ret == -1) {...d
2b30: 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f printf("I/O erro
2b40: 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e r occurred (errn
2b50: 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 o = %lu)", (unsi
2b60: 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 gned long) Tcl_G
2b70: 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 etErrno());...*e
2b80: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 rrorCodePtr = Tc
2b90: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 l_GetErrno();...
2ba0: 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 if (*errorCodePt
2bb0: 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 r == ECONNRESET)
2bc0: 20 7b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 {... *errorC
2bd0: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 odePtr = ECONNAB
2be0: 4f 52 54 45 44 3b 0a 09 09 7d 0a 09 09 73 74 61 ORTED;...}...sta
2bf0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
2c00: 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 TLS_TCL_FATAL_ER
2c10: 52 4f 52 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 ROR;...Tls_Error
2c20: 28 73 74 61 74 65 50 74 72 2c 20 54 63 6c 5f 45 (statePtr, Tcl_E
2c30: 72 72 6e 6f 4d 73 67 28 2a 65 72 72 6f 72 43 6f rrnoMsg(*errorCo
2c40: 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 20 7d dePtr));... }
2c50: 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 else {...dprint
2c60: 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 f("I/O error occ
2c70: 75 72 72 65 64 20 28 65 72 72 20 3d 20 25 6c 75 urred (err = %lu
2c80: 29 22 2c 20 65 72 72 29 3b 0a 09 09 2a 65 72 72 )", err);...*err
2c90: 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f orCodePtr = Tcl_
2ca0: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 GetErrno();...if
2cb0: 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 (*errorCodePtr
2cc0: 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b == ECONNRESET) {
2cd0: 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ... *errorCod
2ce0: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 ePtr = ECONNABOR
2cf0: 54 45 44 3b 0a 09 09 7d 0a 09 09 73 74 61 74 65 TED;...}...state
2d00: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c Ptr->flags |= TL
2d10: 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f S_TCL_FATAL_ERRO
2d20: 52 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 R;...Tls_Error(s
2d30: 74 61 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 tatePtr, ERR_rea
2d40: 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 son_error_string
2d50: 28 65 72 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 (err));.. }..
2d60: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c statePtr->fl
2d70: 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 ags |= TLS_TCL_E
2d80: 4f 46 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 OF;.. return
2d90: 2d 31 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 -1;...case SSL_E
2da0: 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e RROR_ZERO_RETURN
2db0: 3a 0a 09 20 20 20 20 2f 2a 20 50 65 65 72 20 68 :.. /* Peer h
2dc0: 61 73 20 63 6c 65 61 6e 6c 79 20 63 6c 6f 73 65 as cleanly close
2dd0: 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e d the connection
2de0: 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 by sending the
2df0: 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 0a 09 20 20 close_notify..
2e00: 20 20 20 20 20 61 6c 65 72 74 2e 20 43 61 6e 27 alert. Can'
2e10: 74 20 72 65 61 64 2c 20 62 75 74 20 63 61 6e 20 t read, but can
2e20: 77 72 69 74 65 2e 20 4e 65 65 64 20 74 6f 20 72 write. Need to r
2e30: 65 74 75 72 6e 20 61 6e 20 45 4f 46 2c 20 73 6f eturn an EOF, so
2e40: 20 74 68 65 0a 09 20 20 20 20 20 20 20 63 68 61 the.. cha
2e50: 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 65 64 20 77 nnel is closed w
2e60: 68 69 63 68 20 77 69 6c 6c 20 73 65 6e 64 20 61 hich will send a
2e70: 6e 20 53 53 4c 5f 73 68 75 74 64 6f 77 6e 28 29 n SSL_shutdown()
2e80: 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
2e90: 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 f("SSL_ERROR_ZER
2ea0: 4f 5f 52 45 54 55 52 4e 3a 20 50 65 65 72 20 68 O_RETURN: Peer h
2eb0: 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f as closed the co
2ec0: 6e 6e 65 63 74 69 6f 6e 22 29 3b 0a 09 20 20 20 nnection");..
2ed0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
2ee0: 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 20 20 ECONNRESET;..
2ef0: 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 statePtr->flag
2f00: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 s |= TLS_TCL_EOF
2f10: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
2f20: 28 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 72 (statePtr, "Peer
2f30: 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 has closed the
2f40: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 connection for w
2f50: 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 6e riting by sendin
2f60: 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 g the close_noti
2f70: 66 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 fy alert");..
2f80: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 return -1;...ca
2f90: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
2fa0: 54 5f 43 4f 4e 4e 45 43 54 3a 0a 09 20 20 20 20 T_CONNECT:..
2fb0: 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 6f 6e /* The operation
2fc0: 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 did not complet
2fd0: 65 20 61 6e 64 20 63 6f 6e 6e 65 63 74 20 77 6f e and connect wo
2fe0: 75 6c 64 20 68 61 76 65 20 62 6c 6f 63 6b 65 64 uld have blocked
2ff0: 2e 0a 09 20 20 20 20 20 20 20 52 65 74 72 79 20 ... Retry
3000: 61 67 61 69 6e 20 61 66 74 65 72 20 63 6f 6e 6e again after conn
3010: 65 63 74 69 6f 6e 20 69 73 20 65 73 74 61 62 6c ection is establ
3020: 69 73 68 65 64 2e 20 2a 2f 0a 09 20 20 20 20 64 ished. */.. d
3030: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
3040: 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 3a 20 R_WANT_CONNECT:
3050: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 42 EAGAIN");.. B
3060: 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 73 70 65 IO_set_retry_spe
3070: 63 69 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 cial(statePtr->b
3080: 69 6f 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 io);.. BIO_se
3090: 74 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 t_retry_reason(s
30a0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 42 49 tatePtr->bio, BI
30b0: 4f 5f 52 52 5f 43 4f 4e 4e 45 43 54 29 3b 0a 09 O_RR_CONNECT);..
30c0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
30d0: 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 r = EAGAIN;..
30e0: 20 72 65 74 75 72 6e 20 30 3b 0a 0a 09 63 61 73 return 0;...cas
30f0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 e SSL_ERROR_WANT
3100: 5f 41 43 43 45 50 54 3a 0a 09 20 20 20 20 2f 2a _ACCEPT:.. /*
3110: 20 54 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 64 The operation d
3120: 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 id not complete
3130: 61 6e 64 20 61 63 63 65 70 74 20 77 6f 75 6c 64 and accept would
3140: 20 68 61 76 65 20 62 6c 6f 63 6b 65 64 2e 0a 09 have blocked...
3150: 20 20 20 20 20 20 20 52 65 74 72 79 20 61 67 61 Retry aga
3160: 69 6e 20 61 66 74 65 72 20 63 6f 6e 6e 65 63 74 in after connect
3170: 69 6f 6e 20 69 73 20 65 73 74 61 62 6c 69 73 68 ion is establish
3180: 65 64 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 ed. */.. dpri
3190: 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 57 ntf("SSL_ERROR_W
31a0: 41 4e 54 5f 41 43 43 45 50 54 3a 20 45 41 47 41 ANT_ACCEPT: EAGA
31b0: 49 4e 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 IN");.. BIO_s
31c0: 65 74 5f 72 65 74 72 79 5f 73 70 65 63 69 61 6c et_retry_special
31d0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
31e0: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
31f0: 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 61 74 65 try_reason(state
3200: 50 74 72 2d 3e 62 69 6f 2c 20 42 49 4f 5f 52 52 Ptr->bio, BIO_RR
3210: 5f 41 43 43 45 50 54 29 3b 0a 09 20 20 20 20 2a _ACCEPT);.. *
3220: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
3230: 41 47 41 49 4e 3b 0a 09 20 20 20 20 72 65 74 75 AGAIN;.. retu
3240: 72 6e 20 30 3b 0a 0a 09 63 61 73 65 20 53 53 4c rn 0;...case SSL
3250: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e _ERROR_WANT_ASYN
3260: 43 3a 0a 09 20 20 20 20 2f 2a 20 55 73 65 64 20 C:.. /* Used
3270: 77 69 74 68 20 66 6c 61 67 20 53 53 4c 5f 4d 4f with flag SSL_MO
3280: 44 45 5f 41 53 59 4e 43 2c 20 6f 70 20 64 69 64 DE_ASYNC, op did
3290: 6e 27 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 n't complete bec
32a0: 61 75 73 65 20 61 6e 0a 09 20 20 20 20 20 20 20 ause an..
32b0: 61 73 79 6e 63 20 65 6e 67 69 6e 65 20 69 73 20 async engine is
32c0: 73 74 69 6c 6c 20 70 72 6f 63 65 73 73 69 6e 67 still processing
32d0: 20 64 61 74 61 20 2a 2f 0a 09 63 61 73 65 20 53 data */..case S
32e0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 SL_ERROR_WANT_AS
32f0: 59 4e 43 5f 4a 4f 42 3a 0a 09 20 20 20 20 2f 2a YNC_JOB:.. /*
3300: 20 54 68 65 20 61 73 79 6e 63 68 72 6f 6e 6f 75 The asynchronou
3310: 73 20 6a 6f 62 20 63 6f 75 6c 64 20 6e 6f 74 20 s job could not
3320: 62 65 20 73 74 61 72 74 65 64 20 62 65 63 61 75 be started becau
3330: 73 65 20 74 68 65 72 65 20 77 65 72 65 20 6e 6f se there were no
3340: 0a 09 20 20 20 20 20 20 20 61 73 79 6e 63 20 6a .. async j
3350: 6f 62 73 20 61 76 61 69 6c 61 62 6c 65 20 69 6e obs available in
3360: 20 74 68 65 20 70 6f 6f 6c 2e 20 2a 2f 0a 09 63 the pool. */..c
3370: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
3380: 4e 54 5f 43 4c 49 45 4e 54 5f 48 45 4c 4c 4f 5f NT_CLIENT_HELLO_
3390: 43 42 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 CB:.. /* The
33a0: 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f operation did no
33b0: 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 t complete becau
33c0: 73 65 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f se an applicatio
33d0: 6e 20 63 61 6c 6c 62 61 63 6b 0a 09 20 20 20 20 n callback..
33e0: 20 20 20 73 65 74 20 62 79 20 53 53 4c 5f 43 54 set by SSL_CT
33f0: 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 68 65 6c X_set_client_hel
3400: 6c 6f 5f 63 62 28 29 20 68 61 73 20 61 73 6b 65 lo_cb() has aske
3410: 64 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 61 d to be called a
3420: 67 61 69 6e 2e 20 2a 2f 0a 23 69 66 20 4f 50 45 gain. */.#if OPE
3430: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
3440: 42 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 BER >= 0x3000000
3450: 30 4c 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 0L..case SSL_ERR
3460: 4f 52 5f 57 41 4e 54 5f 52 45 54 52 59 5f 56 45 OR_WANT_RETRY_VE
3470: 52 49 46 59 3a 0a 09 20 20 20 20 2f 2a 20 54 68 RIFY:.. /* Th
3480: 65 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 e operation did
3490: 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 not complete bec
34a0: 61 75 73 65 20 61 20 63 65 72 74 69 66 69 63 61 ause a certifica
34b0: 74 65 20 76 65 72 69 66 69 63 61 74 69 6f 6e 0a te verification.
34c0: 09 20 20 20 20 20 20 20 63 61 6c 6c 62 61 63 6b . callback
34d0: 20 68 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 has asked to be
34e0: 20 63 61 6c 6c 65 64 20 61 67 61 69 6e 20 76 69 called again vi
34f0: 61 20 53 53 4c 5f 73 65 74 5f 72 65 74 72 79 5f a SSL_set_retry_
3500: 76 65 72 69 66 79 28 33 29 2e 20 2a 2f 0a 23 65 verify(3). */.#e
3510: 6e 64 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a 09 ndif..default:..
3520: 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 /* The opera
3530: 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d tion did not com
3540: 70 6c 65 74 65 20 61 6e 64 20 73 68 6f 75 6c 64 plete and should
3550: 20 62 65 20 72 65 74 72 69 65 64 20 6c 61 74 65 be retried late
3560: 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e r. */.. dprin
3570: 74 66 28 22 4f 70 65 72 61 74 69 6f 6e 20 64 69 tf("Operation di
3580: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 2c 20 d not complete,
3590: 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 67 call function ag
35a0: 61 69 6e 20 6c 61 74 65 72 22 29 3b 0a 09 20 20 ain later");..
35b0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
35c0: 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 64 = EAGAIN;.. d
35d0: 70 72 69 6e 74 66 28 22 45 52 52 28 4f 74 68 65 printf("ERR(Othe
35e0: 72 2c 20 45 41 47 41 49 4e 29 22 29 3b 0a 09 20 r, EAGAIN)");..
35f0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 return 0;.
3600: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 }.. dprintf(
3610: 22 52 65 6d 6f 76 69 6e 67 20 74 68 65 20 5c 22 "Removing the \"
3620: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 5c 22 20 66 TLS_TCL_INIT\" f
3630: 6c 61 67 20 73 69 6e 63 65 20 77 65 20 68 61 76 lag since we hav
3640: 65 20 63 6f 6d 70 6c 65 74 65 64 20 74 68 65 20 e completed the
3650: 68 61 6e 64 73 68 61 6b 65 22 29 3b 0a 20 20 20 handshake");.
3660: 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 statePtr->flags
3670: 20 26 3d 20 7e 54 4c 53 5f 54 43 4c 5f 49 4e 49 &= ~TLS_TCL_INI
3680: 54 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 T;.. dprintf(
3690: 22 52 65 74 75 72 6e 69 6e 67 20 73 75 63 63 65 "Returning succe
36a0: 73 73 22 29 3b 0a 20 20 20 20 2a 65 72 72 6f 72 ss");. *error
36b0: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 CodePtr = 0;.
36c0: 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a return 1;.}../*
36d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3720: 0a 20 2a 0a 20 2a 20 54 6c 73 49 6e 70 75 74 50 . *. * TlsInputP
3730: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 roc --. *. *.Thi
3740: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 s procedure is i
3750: 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 nvoked by the ge
3760: 6e 65 72 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 neric I/O layer
3770: 74 6f 20 72 65 61 64 20 64 61 74 61 20 66 72 6f to read data fro
3780: 6d 0a 20 2a 09 74 68 65 20 42 49 4f 20 77 68 65 m. *.the BIO whe
3790: 6e 65 76 65 72 20 74 68 65 20 54 63 6c 5f 52 65 never the Tcl_Re
37a0: 61 64 2c 20 54 63 6c 5f 52 65 61 64 43 68 61 72 ad, Tcl_ReadChar
37b0: 73 2c 20 54 63 6c 5f 47 65 74 73 2c 20 61 6e 64 s, Tcl_Gets, and
37c0: 20 54 63 6c 5f 47 65 74 73 4f 62 6a 0a 20 2a 09 Tcl_GetsObj. *.
37d0: 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 75 73 functions are us
37e0: 65 64 2e 20 45 71 75 69 76 61 6c 65 6e 74 20 74 ed. Equivalent t
37f0: 6f 20 53 53 4c 5f 72 65 61 64 5f 65 78 20 61 6e o SSL_read_ex an
3800: 64 20 53 53 4c 5f 72 65 61 64 2e 0a 20 2a 0a 20 d SSL_read.. *.
3810: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 * Results:. *.Re
3820: 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 turns the number
3830: 20 6f 66 20 62 79 74 65 73 20 72 65 61 64 20 6f of bytes read o
3840: 72 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e 20 53 r -1 on error. S
3850: 65 74 73 20 65 72 72 6f 72 43 6f 64 65 50 74 72 ets errorCodePtr
3860: 20 74 6f 0a 20 2a 09 61 20 50 4f 53 49 58 20 65 to. *.a POSIX e
3870: 72 72 6f 72 20 63 6f 64 65 20 69 66 20 61 6e 20 rror code if an
3880: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 error occurred,
3890: 6f 72 20 30 20 69 66 20 73 75 63 63 65 73 73 66 or 0 if successf
38a0: 75 6c 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ul.. *. * Side e
38b0: 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 ffects:. *.Reads
38c0: 20 64 61 74 61 20 66 72 6f 6d 20 53 53 4c 2f 42 data from SSL/B
38d0: 49 4f 2e 0a 20 2a 0a 20 2a 20 4e 6f 74 65 73 3a IO.. *. * Notes:
38e0: 0a 20 2a 09 44 61 74 61 20 69 73 20 72 65 63 65 . *.Data is rece
38f0: 69 76 65 64 20 69 6e 20 77 68 6f 6c 65 20 62 6c ived in whole bl
3900: 6f 63 6b 73 20 6b 6e 6f 77 6e 20 61 73 20 72 65 ocks known as re
3910: 63 6f 72 64 73 20 66 72 6f 6d 20 74 68 65 20 70 cords from the p
3920: 65 65 72 2e 20 41 20 0a 20 2a 09 77 68 6f 6c 65 eer. A . *.whole
3930: 20 72 65 63 6f 72 64 20 69 73 20 70 72 6f 63 65 record is proce
3940: 73 73 65 64 20 28 65 2e 67 2e 20 64 65 63 72 79 ssed (e.g. decry
3950: 70 74 65 64 29 20 69 6e 20 6f 6e 65 20 67 6f 20 pted) in one go
3960: 61 6e 64 20 69 73 20 62 75 66 66 65 72 65 64 20 and is buffered
3970: 62 79 0a 20 2a 09 4f 70 65 6e 53 53 4c 20 75 6e by. *.OpenSSL un
3980: 74 69 6c 20 69 74 20 69 73 20 72 65 61 64 20 62 til it is read b
3990: 79 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f y the applicatio
39a0: 6e 20 76 69 61 20 61 20 63 61 6c 6c 20 74 6f 20 n via a call to
39b0: 53 53 4c 5f 72 65 61 64 28 29 20 6f 72 0a 20 2a SSL_read() or. *
39c0: 09 42 49 4f 5f 72 65 61 64 28 29 20 69 6e 20 6f .BIO_read() in o
39d0: 75 72 20 63 61 73 65 2e 20 53 53 4c 5f 70 65 6e ur case. SSL_pen
39e0: 64 69 6e 67 28 29 20 72 65 74 75 72 6e 73 20 74 ding() returns t
39f0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 he number of byt
3a00: 65 73 20 77 68 69 63 68 0a 20 2a 09 68 61 76 65 es which. *.have
3a10: 20 62 65 65 6e 20 70 72 6f 63 65 73 73 65 64 2c been processed,
3a20: 20 62 75 66 66 65 72 65 64 2c 20 61 6e 64 20 61 buffered, and a
3a30: 72 65 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 73 re available ins
3a40: 69 64 65 20 73 73 6c 20 66 6f 72 0a 20 2a 09 69 ide ssl for. *.i
3a50: 6d 6d 65 64 69 61 74 65 20 72 65 61 64 2e 20 53 mmediate read. S
3a60: 53 4c 5f 68 61 73 5f 70 65 6e 64 69 6e 67 28 29 SL_has_pending()
3a70: 20 72 65 74 75 72 6e 73 20 31 20 69 66 20 64 61 returns 1 if da
3a80: 74 61 20 69 73 20 62 75 66 66 65 72 65 64 0a 20 ta is buffered.
3a90: 2a 09 28 77 68 65 74 68 65 72 20 70 72 6f 63 65 *.(whether proce
3aa0: 73 73 65 64 20 6f 72 20 75 6e 70 72 6f 63 65 73 ssed or unproces
3ab0: 73 65 64 29 20 61 6e 64 20 30 20 6f 74 68 65 72 sed) and 0 other
3ac0: 77 69 73 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d wise.. *. *-----
3ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b10: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
3b20: 74 69 63 20 69 6e 74 20 54 6c 73 49 6e 70 75 74 tic int TlsInput
3b30: 50 72 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 Proc(. Client
3b40: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
3b50: 61 2c 09 2f 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e a,./* Connection
3b60: 20 73 74 61 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 state info */.
3b70: 20 20 20 63 68 61 72 20 2a 62 75 66 2c 09 09 09 char *buf,...
3b80: 2f 2a 20 42 75 66 66 65 72 20 74 6f 20 73 74 6f /* Buffer to sto
3b90: 72 65 20 64 61 74 61 20 72 65 61 64 20 66 72 6f re data read fro
3ba0: 6d 20 42 49 4f 20 2a 2f 0a 20 20 20 20 69 6e 74 m BIO */. int
3bb0: 20 62 75 66 53 69 7a 65 2c 09 09 2f 2a 20 42 75 bufSize,../* Bu
3bc0: 66 66 65 72 20 73 69 7a 65 20 69 6e 20 62 79 74 ffer size in byt
3bd0: 65 73 20 2a 2f 0a 20 20 20 20 69 6e 74 20 2a 65 es */. int *e
3be0: 72 72 6f 72 43 6f 64 65 50 74 72 29 09 09 2f 2a rrorCodePtr)../*
3bf0: 20 53 74 6f 72 61 67 65 20 66 6f 72 20 65 72 72 Storage for err
3c00: 6f 72 20 63 6f 64 65 20 74 6f 20 72 65 74 75 72 or code to retur
3c10: 6e 20 2a 2f 0a 7b 0a 20 20 20 20 75 6e 73 69 67 n */.{. unsig
3c20: 6e 65 64 20 6c 6f 6e 67 20 65 72 72 3b 0a 20 20 ned long err;.
3c30: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
3c40: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
3c50: 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 stanceData;.
3c60: 69 6e 74 20 62 79 74 65 73 52 65 61 64 2c 20 72 int bytesRead, r
3c70: 63 2c 20 72 65 61 73 6f 6e 2c 20 69 73 5f 66 61 c, reason, is_fa
3c80: 74 61 6c 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 tal, bioShouldRe
3c90: 74 72 79 2c 20 69 6f 5f 65 72 72 3b 0a 20 20 20 try, io_err;.
3ca0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
3cb0: 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 0;.. dprintf
3cc0: 28 22 52 65 61 64 20 25 64 20 62 79 74 65 73 22 ("Read %d bytes"
3cd0: 2c 20 62 75 66 53 69 7a 65 29 3b 0a 0a 20 20 20 , bufSize);..
3ce0: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 74 68 65 /* Abort if the
3cf0: 20 75 73 65 72 20 76 65 72 69 66 79 20 63 61 6c user verify cal
3d00: 6c 62 61 63 6b 20 69 73 20 73 74 69 6c 6c 20 72 lback is still r
3d10: 75 6e 6e 69 6e 67 20 74 6f 20 61 76 6f 69 64 20 unning to avoid
3d20: 74 72 69 67 67 65 72 69 6e 67 0a 20 20 20 20 20 triggering.
3d30: 2a 20 61 6e 6f 74 68 65 72 20 63 61 6c 6c 20 62 * another call b
3d40: 65 66 6f 72 65 20 74 68 65 20 63 75 72 72 65 6e efore the curren
3d50: 74 20 6f 6e 65 20 69 73 20 63 6f 6d 70 6c 65 74 t one is complet
3d60: 65 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 e. */. if (st
3d70: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
3d80: 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b TLS_TCL_CALLBACK
3d90: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 61 ) {..dprintf("Ca
3da0: 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e llback is runnin
3db0: 67 2c 20 72 65 61 64 69 6e 67 20 30 20 62 79 74 g, reading 0 byt
3dc0: 65 73 22 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b es");..return 0;
3dd0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 . }.. /* A
3de0: 62 6f 72 74 20 69 66 20 63 6f 6e 6e 65 63 74 69 bort if connecti
3df0: 6f 6e 20 68 61 73 20 66 61 69 6c 65 64 20 6f 72 on has failed or
3e00: 20 45 4f 46 20 61 6c 72 65 61 64 79 20 64 65 74 EOF already det
3e10: 65 63 74 65 64 2e 20 43 61 6e 27 74 20 72 65 61 ected. Can't rea
3e20: 64 2c 20 62 75 74 20 63 61 6e 20 77 72 69 74 65 d, but can write
3e30: 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 . */. if (sta
3e40: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 tePtr->flags & T
3e50: 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 52 LS_TCL_FATAL_ERR
3e60: 4f 52 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 OR) {..dprintf("
3e70: 46 61 74 61 6c 20 65 72 72 6f 72 20 61 6c 72 65 Fatal error alre
3e80: 61 64 79 20 64 65 74 65 63 74 65 64 2c 20 61 62 ady detected, ab
3e90: 6f 72 74 20 72 65 61 64 22 29 3b 0a 09 2a 65 72 ort read");..*er
3ea0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
3eb0: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
3ec0: 20 65 6c 73 65 20 69 66 20 28 73 74 61 74 65 50 else if (stateP
3ed0: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
3ee0: 54 43 4c 5f 45 4f 46 29 20 7b 0a 09 64 70 72 69 TCL_EOF) {..dpri
3ef0: 6e 74 66 28 22 45 4f 46 20 61 6c 72 65 61 64 79 ntf("EOF already
3f00: 20 64 65 74 65 63 74 65 64 2c 20 61 62 6f 72 74 detected, abort
3f10: 20 72 65 61 64 22 29 3b 0a 09 2a 65 72 72 6f 72 read");..*error
3f20: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 72 65 CodePtr = 0;..re
3f30: 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 turn 0;. }..
3f40: 20 20 20 2f 2a 20 49 66 20 6e 6f 74 20 69 6e 69 /* If not ini
3f50: 74 69 61 6c 69 7a 65 64 2c 20 64 6f 20 63 6f 6e tialized, do con
3f60: 6e 65 63 74 2e 20 43 61 6e 20 61 6c 73 6f 20 63 nect. Can also c
3f70: 68 65 63 6b 20 53 53 4c 5f 69 73 5f 69 6e 69 74 heck SSL_is_init
3f80: 5f 66 69 6e 69 73 68 65 64 28 29 2e 20 2a 2f 0a _finished(). */.
3f90: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
3fa0: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
3fb0: 4c 5f 49 4e 49 54 29 20 7b 0a 09 69 6e 74 20 74 L_INIT) {..int t
3fc0: 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 70 72 lsConnect;...dpr
3fd0: 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c intf("Calling Tl
3fe0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
3ff0: 22 29 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 63 74 ");...tlsConnect
4000: 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f = Tls_WaitForCo
4010: 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 nnect(statePtr,
4020: 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 30 29 errorCodePtr, 0)
4030: 3b 0a 09 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 ;..if (tlsConnec
4040: 74 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 2f 2a t < 0) {.. /*
4050: 20 46 61 69 6c 75 72 65 2c 20 73 6f 20 61 62 6f Failure, so abo
4060: 72 74 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e rt */.. dprin
4070: 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 tf("Got an error
4080: 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e waiting to conn
4090: 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 ect (tlsConnect
40a0: 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 = %i, *errorCode
40b0: 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 Ptr = %i)", tlsC
40c0: 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43 6f onnect, *errorCo
40d0: 64 65 50 74 72 29 3b 0a 0a 09 20 20 20 20 62 79 dePtr);... by
40e0: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 tesRead = -1;..
40f0: 20 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 if (*errorCod
4100: 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 ePtr == ECONNRES
4110: 45 54 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 ET) {...dprintf(
4120: 22 47 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 "Got connection
4130: 72 65 73 65 74 22 29 3b 0a 09 09 2f 2a 20 53 6f reset");.../* So
4140: 66 74 20 45 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 ft EOF */...*err
4150: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 orCodePtr = 0;..
4160: 09 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a .bytesRead = 0;.
4170: 09 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
4180: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 s |= TLS_TCL_EOF
4190: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 72 65 ;.. }.. re
41a0: 74 75 72 6e 20 62 79 74 65 73 52 65 61 64 3b 0a turn bytesRead;.
41b0: 09 7d 20 65 6c 73 65 20 69 66 20 28 74 6c 73 43 .} else if (tlsC
41c0: 6f 6e 6e 65 63 74 20 3d 3d 20 30 29 20 7b 0a 09 onnect == 0) {..
41d0: 20 20 20 20 2f 2a 20 54 72 79 20 61 67 61 69 6e /* Try again
41e0: 20 2a 2f 0a 09 20 20 20 20 62 79 74 65 73 52 65 */.. bytesRe
41f0: 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 72 65 ad = -1;.. re
4200: 74 75 72 6e 20 62 79 74 65 73 52 65 61 64 3b 0a turn bytesRead;.
4210: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a .}. }.. /*
4220: 0a 20 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 . * We need
4230: 74 6f 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c to clear the SSL
4240: 20 65 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 error stack now
4250: 20 62 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65 because we some
4260: 74 69 6d 65 73 20 72 65 61 63 68 0a 20 20 20 20 times reach.
4270: 20 2a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e * this function
4280: 20 77 69 74 68 20 6c 65 66 74 6f 76 65 72 20 65 with leftover e
4290: 72 72 6f 72 73 20 69 6e 20 74 68 65 20 73 74 61 rrors in the sta
42a0: 63 6b 2e 20 20 49 66 20 42 49 4f 5f 72 65 61 64 ck. If BIO_read
42b0: 0a 20 20 20 20 20 2a 20 72 65 74 75 72 6e 73 20 . * returns
42c0: 2d 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 -1 and intends E
42d0: 41 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 20 AGAIN, there is
42e0: 61 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 a leftover error
42f0: 2c 20 69 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 , it will be.
4300: 20 20 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 * misconstrued
4310: 20 61 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f as an error, no
4320: 74 20 45 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a t EAGAIN.. *
4330: 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 /. dprintf("B
4340: 49 4f 5f 72 65 61 64 20 65 6f 66 3d 25 64 2c 20 IO_read eof=%d,
4350: 62 75 66 66 65 72 65 64 3d 25 64 2c 20 69 6e 70 buffered=%d, inp
4360: 75 74 3d 25 64 2c 20 6f 75 74 70 75 74 3d 25 64 ut=%d, output=%d
4370: 22 2c 20 54 63 6c 5f 45 6f 66 28 73 74 61 74 65 ", Tcl_Eof(state
4380: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f Ptr->self), Tcl_
4390: 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 65 64 28 ChannelBuffered(
43a0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
43b0: 20 5c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 49 \. Tcl_I
43c0: 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 nputBuffered(sta
43d0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 63 tePtr->self), Tc
43e0: 6c 5f 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 l_OutputBuffered
43f0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
4400: 29 3b 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f ); ERR_clear_
4410: 65 72 72 6f 72 28 29 3b 0a 20 20 20 20 54 63 6c error();. Tcl
4420: 5f 53 65 74 45 72 72 6e 6f 28 30 29 3b 0a 20 20 _SetErrno(0);.
4430: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
4440: 72 28 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 r();. BIO_cle
4450: 61 72 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 73 ar_retry_flags(s
4460: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 20 tatePtr->bio);.
4470: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 42 bytesRead = B
4480: 49 4f 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 IO_read(statePtr
4490: 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 53 ->bio, buf, bufS
44a0: 69 7a 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 ize);. dprint
44b0: 66 28 22 42 49 4f 5f 72 65 61 64 20 2d 3e 20 25 f("BIO_read -> %
44c0: 64 22 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a d", bytesRead);.
44d0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
44e0: 5f 72 65 61 64 20 65 6f 66 3d 25 64 2c 20 62 75 _read eof=%d, bu
44f0: 66 66 65 72 65 64 3d 25 64 2c 20 69 6e 70 75 74 ffered=%d, input
4500: 3d 25 64 2c 20 6f 75 74 70 75 74 3d 25 64 22 2c =%d, output=%d",
4510: 20 54 63 6c 5f 45 6f 66 28 73 74 61 74 65 50 74 Tcl_Eof(statePt
4520: 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f 43 68 r->self), Tcl_Ch
4530: 61 6e 6e 65 6c 42 75 66 66 65 72 65 64 28 73 74 annelBuffered(st
4540: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 5c atePtr->self), \
4550: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e 70 . Tcl_Inp
4560: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 utBuffered(state
4570: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f Ptr->self), Tcl_
4580: 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 28 73 OutputBuffered(s
4590: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b tatePtr->self));
45a0: 0a 0a 20 20 20 20 2f 2a 20 53 61 6d 65 20 61 73 .. /* Same as
45b0: 20 53 53 4c 5f 77 61 6e 74 2c 20 62 75 74 20 61 SSL_want, but a
45c0: 6c 73 6f 20 63 68 65 63 6b 73 20 74 68 65 20 65 lso checks the e
45d0: 72 72 6f 72 20 71 75 65 75 65 20 2a 2f 0a 20 20 rror queue */.
45e0: 20 20 72 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 rc = SSL_get_e
45f0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 rror(statePtr->s
4600: 73 6c 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a sl, bytesRead);.
4610: 20 20 20 20 65 72 72 20 3d 20 45 52 52 5f 67 65 err = ERR_ge
4620: 74 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 20 72 t_error();. r
4630: 65 61 73 6f 6e 20 3d 20 45 52 52 5f 47 45 54 5f eason = ERR_GET_
4640: 52 45 41 53 4f 4e 28 65 72 72 29 3b 0a 20 20 20 REASON(err);.
4650: 20 69 73 5f 66 61 74 61 6c 20 3d 20 45 52 52 5f is_fatal = ERR_
4660: 46 41 54 41 4c 5f 45 52 52 4f 52 28 65 72 72 29 FATAL_ERROR(err)
4670: 3b 0a 20 20 20 20 2f 2a 20 54 68 65 20 72 65 74 ;. /* The ret
4680: 72 79 20 66 6c 61 67 20 69 73 20 73 65 74 20 62 ry flag is set b
4690: 79 20 74 68 65 20 42 49 4f 5f 73 65 74 5f 72 65 y the BIO_set_re
46a0: 74 72 79 5f 2a 20 66 75 6e 63 74 69 6f 6e 73 20 try_* functions
46b0: 2a 2f 0a 20 20 20 20 62 69 6f 53 68 6f 75 6c 64 */. bioShould
46c0: 52 65 74 72 79 20 3d 20 42 49 4f 5f 73 68 6f 75 Retry = BIO_shou
46d0: 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 ld_retry(statePt
46e0: 72 2d 3e 62 69 6f 29 3b 0a 20 20 20 20 69 6f 5f r->bio);. io_
46f0: 65 72 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 err = Tcl_GetErr
4700: 6e 6f 28 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 no();. dprint
4710: 66 28 22 52 65 61 64 3a 20 62 79 74 65 73 52 65 f("Read: bytesRe
4720: 61 64 3d 25 64 2c 20 72 63 3d 25 64 2c 20 65 72 ad=%d, rc=%d, er
4730: 72 3d 25 6c 64 2c 20 72 65 61 73 6f 6e 3d 25 64 r=%ld, reason=%d
4740: 2c 20 69 73 5f 66 61 74 61 6c 3d 25 64 2c 20 6c , is_fatal=%d, l
4750: 69 62 3d 25 73 2c 20 6d 73 67 3d 25 73 2c 20 62 ib=%s, msg=%s, b
4760: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 3d 25 64 ioShouldRetry=%d
4770: 2c 20 65 72 72 6e 6f 3d 25 64 2c 20 69 64 3d 25 , errno=%d, id=%
4780: 73 2c 20 6d 73 67 3d 25 73 22 2c 20 5c 0a 20 20 s, msg=%s", \.
4790: 20 20 20 20 20 20 62 79 74 65 73 52 65 61 64 2c bytesRead,
47a0: 20 72 63 2c 20 65 72 72 2c 20 72 65 61 73 6f 6e rc, err, reason
47b0: 2c 20 69 73 5f 66 61 74 61 6c 2c 20 45 52 52 5f , is_fatal, ERR_
47c0: 6c 69 62 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 lib_error_string
47d0: 28 65 72 72 29 2c 20 45 52 52 5f 72 65 61 73 6f (err), ERR_reaso
47e0: 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 n_error_string(e
47f0: 72 72 29 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 rr), bioShouldRe
4800: 74 72 79 2c 20 69 6f 5f 65 72 72 2c 20 54 63 6c try, io_err, Tcl
4810: 5f 45 72 72 6e 6f 49 64 28 29 2c 20 54 63 6c 5f _ErrnoId(), Tcl_
4820: 45 72 72 6e 6f 4d 73 67 28 69 6f 5f 65 72 72 29 ErrnoMsg(io_err)
4830: 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 79 74 65 );.. if (byte
4840: 73 52 65 61 64 20 3c 3d 20 30 29 20 7b 0a 09 2f sRead <= 0) {../
4850: 2a 20 54 68 65 20 72 65 74 72 79 20 66 6c 61 67 * The retry flag
4860: 20 69 73 20 73 65 74 20 62 79 20 74 68 65 20 42 is set by the B
4870: 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 2a 20 66 IO_set_retry_* f
4880: 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 09 64 70 72 unctions */..dpr
4890: 69 6e 74 66 28 22 52 65 61 64 20 66 61 69 6c 65 intf("Read faile
48a0: 64 3a 20 69 73 20 45 4f 46 3d 25 64 2c 20 73 68 d: is EOF=%d, sh
48b0: 6f 75 6c 64 20 72 65 74 72 79 3d 25 64 2c 20 72 ould retry=%d, r
48c0: 65 74 72 79 20 72 65 61 64 3d 25 64 2c 20 72 65 etry read=%d, re
48d0: 74 72 79 20 77 72 69 74 65 3d 25 64 2c 20 6f 74 try write=%d, ot
48e0: 68 65 72 3d 25 64 22 2c 0a 09 20 20 20 20 42 49 her=%d",.. BI
48f0: 4f 5f 65 6f 66 28 73 74 61 74 65 50 74 72 2d 3e O_eof(statePtr->
4900: 62 69 6f 29 2c 20 42 49 4f 5f 73 68 6f 75 6c 64 bio), BIO_should
4910: 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 2d _retry(statePtr-
4920: 3e 62 69 6f 29 2c 20 42 49 4f 5f 73 68 6f 75 6c >bio), BIO_shoul
4930: 64 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 2d d_read(statePtr-
4940: 3e 62 69 6f 29 2c 0a 09 20 20 20 20 42 49 4f 5f >bio),.. BIO_
4950: 73 68 6f 75 6c 64 5f 77 72 69 74 65 28 73 74 61 should_write(sta
4960: 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 42 49 4f tePtr->bio), BIO
4970: 5f 73 68 6f 75 6c 64 5f 69 6f 5f 73 70 65 63 69 _should_io_speci
4980: 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f al(statePtr->bio
4990: 29 29 3b 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f ));..if (BIO_sho
49a0: 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 uld_retry(stateP
49b0: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 tr->bio)) {..
49c0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
49d0: 20 45 41 47 41 49 4e 3b 0a 09 7d 0a 20 20 20 20 EAGAIN;..}.
49e0: 7d 0a 0a 20 20 20 20 2f 2a 20 42 61 73 65 64 20 }.. /* Based
49f0: 6f 6e 20 65 72 72 6f 72 2c 20 64 6f 20 72 65 74 on error, do ret
4a00: 72 79 20 6f 72 20 61 62 6f 72 74 20 2a 2f 0a 20 ry or abort */.
4a10: 20 20 20 73 77 69 74 63 68 20 28 72 63 29 20 7b switch (rc) {
4a20: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
4a30: 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 49 _NONE:.. /* I
4a40: 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6d /O operation com
4a50: 70 6c 65 74 65 64 20 2a 2f 0a 09 20 20 20 20 64 pleted */.. d
4a60: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
4a70: 52 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 20 20 64 R_NONE");.. d
4a80: 70 72 69 6e 74 42 75 66 66 65 72 28 62 75 66 2c printBuffer(buf,
4a90: 20 62 79 74 65 73 52 65 61 64 29 3b 0a 09 20 20 bytesRead);..
4aa0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
4ab0: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 SSL_ERROR_SSL:..
4ac0: 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 /* A non-rec
4ad0: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
4ae0: 65 72 72 6f 72 20 69 6e 20 74 68 65 20 53 53 4c error in the SSL
4af0: 20 6c 69 62 72 61 72 79 20 6f 63 63 75 72 72 65 library occurre
4b00: 64 2c 0a 09 20 20 20 20 20 20 20 75 73 75 61 6c d,.. usual
4b10: 6c 79 20 61 20 70 72 6f 74 6f 63 6f 6c 20 65 72 ly a protocol er
4b20: 72 6f 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 ror. */.. dpr
4b30: 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f intf("SSL_ERROR_
4b40: 53 53 4c 3a 20 46 61 74 61 6c 20 53 53 4c 20 70 SSL: Fatal SSL p
4b50: 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 6f 63 rotocol error oc
4b60: 63 75 72 72 65 64 22 29 3b 0a 09 20 20 20 20 69 curred");.. i
4b70: 66 20 28 65 72 72 20 21 3d 20 30 29 20 7b 0a 09 f (err != 0) {..
4b80: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
4b90: 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f Ptr, ERR_reason_
4ba0: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 error_string(err
4bb0: 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 ));.. } else
4bc0: 69 66 20 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 if (SSL_get_veri
4bd0: 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 fy_result(stateP
4be0: 74 72 2d 3e 73 73 6c 29 20 21 3d 20 58 35 30 39 tr->ssl) != X509
4bf0: 5f 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 73 5f 45 _V_OK) {...Tls_E
4c00: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 0a 09 rror(statePtr,..
4c10: 09 20 20 20 20 58 35 30 39 5f 76 65 72 69 66 79 . X509_verify
4c20: 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 69 _cert_error_stri
4c30: 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 ng(SSL_get_verif
4c40: 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 y_result(statePt
4c50: 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 20 20 r->ssl)));..
4c60: 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c 73 5f 45 } else {...Tls_E
4c70: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 rror(statePtr, "
4c80: 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 72 72 6f Unknown SSL erro
4c90: 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 r");.. }..
4ca0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
4cb0: 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 ECONNABORTED;..
4cc0: 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 bytesRead =
4cd0: 2d 31 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c -1;..#if OPENSSL
4ce0: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
4cf0: 3e 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 >= 0x30000000L..
4d00: 20 20 20 20 2f 2a 20 55 6e 65 78 70 65 63 74 65 /* Unexpecte
4d10: 64 20 45 4f 46 20 66 72 6f 6d 20 74 68 65 20 70 d EOF from the p
4d20: 65 65 72 20 66 6f 72 20 4f 70 65 6e 53 53 4c 20 eer for OpenSSL
4d30: 33 2e 30 2b 20 2a 2f 0a 09 20 20 20 20 69 66 20 3.0+ */.. if
4d40: 28 45 52 52 5f 47 45 54 5f 52 45 41 53 4f 4e 28 (ERR_GET_REASON(
4d50: 65 72 72 29 20 3d 3d 20 53 53 4c 5f 52 5f 55 4e err) == SSL_R_UN
4d60: 45 58 50 45 43 54 45 44 5f 45 4f 46 5f 57 48 49 EXPECTED_EOF_WHI
4d70: 4c 45 5f 52 45 41 44 49 4e 47 29 20 7b 0a 09 09 LE_READING) {...
4d80: 64 70 72 69 6e 74 66 28 22 28 55 6e 65 78 70 65 dprintf("(Unexpe
4d90: 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 68 65 cted) EOF reache
4da0: 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 d")...*errorCode
4db0: 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 73 Ptr = 0;...bytes
4dc0: 52 65 61 64 20 3d 20 30 3b 0a 09 09 54 6c 73 5f Read = 0;...Tls_
4dd0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
4de0: 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b 0a "EOF reached");.
4df0: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 . } else {...
4e00: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
4e10: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c |= TLS_TCL_FATAL
4e20: 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 23 _ERROR;.. }.#
4e30: 65 6c 73 65 0a 09 20 20 20 20 73 74 61 74 65 50 else.. stateP
4e40: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
4e50: 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 _TCL_FATAL_ERROR
4e60: 3b 0a 23 65 6e 64 69 66 0a 09 20 20 20 20 0a 09 ;.#endif.. ..
4e70: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c statePtr->fl
4e80: 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 ags |= TLS_TCL_E
4e90: 4f 46 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a OF;.. break;.
4ea0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
4eb0: 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 20 _WANT_READ:..
4ec0: 20 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 64 69 /* Operation di
4ed0: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 64 d not complete d
4ee0: 75 65 20 74 6f 20 6e 6f 74 20 65 6e 6f 75 67 68 ue to not enough
4ef0: 20 64 61 74 61 20 77 61 73 20 61 76 61 69 6c 61 data was availa
4f00: 62 6c 65 2e 0a 09 20 20 20 20 20 20 20 52 65 74 ble... Ret
4f10: 72 79 20 61 67 61 69 6e 20 6c 61 74 65 72 2e 20 ry again later.
4f20: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
4f30: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
4f40: 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e ANT_READ, mappin
4f50: 67 20 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e g this to EAGAIN
4f60: 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ");.. *errorC
4f70: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
4f80: 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 .. bytesRead
4f90: 3d 20 2d 31 3b 0a 09 20 20 20 20 73 74 61 74 65 = -1;.. state
4fa0: 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c Ptr->want |= TCL
4fb0: 5f 52 45 41 44 41 42 4c 45 3b 0a 09 20 20 20 20 _READABLE;..
4fc0: 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 BIO_set_retry_re
4fd0: 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ad(statePtr->bio
4fe0: 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a );.. break;..
4ff0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
5000: 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 20 WANT_WRITE:..
5010: 20 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 64 69 /* Operation di
5020: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 64 d not complete d
5030: 75 65 20 74 6f 20 75 6e 61 62 6c 65 20 74 6f 20 ue to unable to
5040: 73 65 6e 64 20 61 6c 6c 20 64 61 74 61 20 74 6f send all data to
5050: 20 74 68 65 0a 09 20 20 20 20 20 20 20 42 49 4f the.. BIO
5060: 2e 20 52 65 74 72 79 20 61 67 61 69 6e 20 6c 61 . Retry again la
5070: 74 65 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 ter. */.. dpr
5080: 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 intf("Got SSL_ER
5090: 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 2c 20 ROR_WANT_WRITE,
50a0: 6d 61 70 70 69 6e 67 20 74 68 69 73 20 74 6f 20 mapping this to
50b0: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a EAGAIN");.. *
50c0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
50d0: 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 74 65 AGAIN;.. byte
50e0: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 sRead = -1;..
50f0: 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 statePtr->want
5100: 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b |= TCL_WRITABLE;
5110: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
5120: 74 72 79 5f 77 72 69 74 65 28 73 74 61 74 65 50 try_write(stateP
5130: 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 62 tr->bio);.. b
5140: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c reak;...case SSL
5150: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 _ERROR_WANT_X509
5160: 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 2f 2a _LOOKUP:.. /*
5170: 20 54 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 64 The operation d
5180: 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 id not complete
5190: 62 65 63 61 75 73 65 20 61 6e 20 61 70 70 6c 69 because an appli
51a0: 63 61 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b 0a cation callback.
51b0: 09 20 20 20 20 20 20 20 73 65 74 20 62 79 20 53 . set by S
51c0: 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 6e SL_CTX_set_clien
51d0: 74 5f 63 65 72 74 5f 63 62 28 29 20 68 61 73 20 t_cert_cb() has
51e0: 61 73 6b 65 64 20 74 6f 20 62 65 20 63 61 6c 6c asked to be call
51f0: 65 64 20 61 67 61 69 6e 2e 20 2a 2f 0a 09 20 20 ed again. */..
5200: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
5210: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 SL_ERROR_WANT_X5
5220: 30 39 5f 4c 4f 4f 4b 55 50 2c 20 6d 61 70 70 69 09_LOOKUP, mappi
5230: 6e 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 ng it to EAGAIN"
5240: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
5250: 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a dePtr = EAGAIN;.
5260: 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d . bytesRead =
5270: 20 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b -1;.. break;
5280: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
5290: 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 20 20 20 R_SYSCALL:..
52a0: 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 6f /* Some non-reco
52b0: 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 49 verable, fatal I
52c0: 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 /O error occurre
52d0: 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 d */.. dprint
52e0: 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 f("SSL_ERROR_SYS
52f0: 43 41 4c 4c 3a 20 46 61 74 61 6c 20 49 2f 4f 20 CALL: Fatal I/O
5300: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 22 29 error occurred")
5310: 3b 0a 0a 09 20 20 20 20 69 66 20 28 65 72 72 20 ;... if (err
5320: 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 == 0 && bytesRea
5330: 64 20 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 55 d == 0) {.../* U
5340: 6e 65 78 70 65 63 74 65 64 20 45 4f 46 20 66 72 nexpected EOF fr
5350: 6f 6d 20 74 68 65 20 70 65 65 72 20 66 6f 72 20 om the peer for
5360: 4f 70 65 6e 53 53 4c 20 31 2e 31 20 2a 2f 0a 09 OpenSSL 1.1 */..
5370: 09 64 70 72 69 6e 74 66 28 22 28 55 6e 65 78 70 .dprintf("(Unexp
5380: 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 68 ected) EOF reach
5390: 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ed")...*errorCod
53a0: 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 ePtr = 0;...byte
53b0: 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 54 6c 73 sRead = 0;...Tls
53c0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
53d0: 20 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b "EOF reached");
53e0: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
53f0: 20 28 65 72 72 20 3d 3d 20 30 20 26 26 20 62 79 (err == 0 && by
5400: 74 65 73 52 65 61 64 20 3d 3d 20 2d 31 29 20 7b tesRead == -1) {
5410: 0a 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 ...dprintf("I/O
5420: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 error occurred (
5430: 65 72 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 errno = %lu)", (
5440: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 unsigned long) T
5450: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a cl_GetErrno());.
5460: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
5470: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 = Tcl_GetErrno()
5480: 3b 0a 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ;...bytesRead =
5490: 2d 31 3b 0a 09 09 73 74 61 74 65 50 74 72 2d 3e -1;...statePtr->
54a0: 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c flags |= TLS_TCL
54b0: 5f 46 41 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 09 _FATAL_ERROR;...
54c0: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
54d0: 74 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 tr, Tcl_ErrnoMsg
54e0: 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 (*errorCodePtr))
54f0: 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;... } else {
5500: 0a 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 ...dprintf("I/O
5510: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 error occurred (
5520: 65 72 72 20 3d 20 25 6c 75 29 22 2c 20 65 72 72 err = %lu)", err
5530: 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 );...*errorCodeP
5540: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
5550: 6f 28 29 3b 0a 09 09 62 79 74 65 73 52 65 61 64 o();...bytesRead
5560: 20 3d 20 2d 31 3b 0a 09 09 73 74 61 74 65 50 74 = -1;...statePt
5570: 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f r->flags |= TLS_
5580: 54 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 3b TCL_FATAL_ERROR;
5590: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
55a0: 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f tePtr, ERR_reaso
55b0: 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 n_error_string(e
55c0: 72 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 rr));.. }..
55d0: 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 statePtr->flag
55e0: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 s |= TLS_TCL_EOF
55f0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
5600: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a case SSL_ERROR_Z
5610: 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 ERO_RETURN:..
5620: 20 2f 2a 20 50 65 65 72 20 68 61 73 20 63 6c 65 /* Peer has cle
5630: 61 6e 6c 79 20 63 6c 6f 73 65 64 20 74 68 65 20 anly closed the
5640: 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 79 20 73 65 connection by se
5650: 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f nding the close_
5660: 6e 6f 74 69 66 79 0a 09 20 20 20 20 20 20 20 61 notify.. a
5670: 6c 65 72 74 2e 20 43 61 6e 27 74 20 72 65 61 64 lert. Can't read
5680: 2c 20 62 75 74 20 63 61 6e 20 77 72 69 74 65 2e , but can write.
5690: 20 4e 65 65 64 20 74 6f 20 72 65 74 75 72 6e 20 Need to return
56a0: 61 6e 20 45 4f 46 2c 20 73 6f 20 74 68 65 0a 09 an EOF, so the..
56b0: 20 20 20 20 20 20 20 63 68 61 6e 6e 65 6c 20 69 channel i
56c0: 73 20 63 6c 6f 73 65 64 20 77 68 69 63 68 20 77 s closed which w
56d0: 69 6c 6c 20 73 65 6e 64 20 61 6e 20 53 53 4c 5f ill send an SSL_
56e0: 73 68 75 74 64 6f 77 6e 28 29 2e 20 2a 2f 0a 09 shutdown(). */..
56f0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
5700: 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 _ERROR_ZERO_RETU
5710: 52 4e 3a 20 50 65 65 72 20 68 61 73 20 63 6c 6f RN: Peer has clo
5720: 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 sed the connecti
5730: 6f 6e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f on");.. *erro
5740: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 rCodePtr = 0;..
5750: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 bytesRead = 0
5760: 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
5770: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
5780: 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 54 6c 73 5f L_EOF;.. Tls_
5790: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
57a0: 22 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 64 "Peer has closed
57b0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 the connection
57c0: 66 6f 72 20 77 72 69 74 69 6e 67 20 62 79 20 73 for writing by s
57d0: 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 ending the close
57e0: 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 22 29 3b _notify alert");
57f0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
5800: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
5810: 4e 54 5f 41 53 59 4e 43 3a 0a 09 20 20 20 20 2f NT_ASYNC:.. /
5820: 2a 20 55 73 65 64 20 77 69 74 68 20 66 6c 61 67 * Used with flag
5830: 20 53 53 4c 5f 4d 4f 44 45 5f 41 53 59 4e 43 2c SSL_MODE_ASYNC,
5840: 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 6e 27 operation didn'
5850: 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 t complete becau
5860: 73 65 0a 09 20 20 20 20 20 20 20 61 6e 20 61 73 se.. an as
5870: 79 6e 63 20 65 6e 67 69 6e 65 20 69 73 20 73 74 ync engine is st
5880: 69 6c 6c 20 70 72 6f 63 65 73 73 69 6e 67 20 64 ill processing d
5890: 61 74 61 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 ata. */.. dpr
58a0: 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 intf("Got SSL_ER
58b0: 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 2c 20 ROR_WANT_ASYNC,
58c0: 6d 61 70 70 69 6e 67 20 74 68 69 73 20 74 6f 20 mapping this to
58d0: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a EAGAIN");.. *
58e0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
58f0: 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 74 65 AGAIN;.. byte
5900: 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 sRead = 0;..
5910: 62 72 65 61 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 break;...default
5920: 3a 0a 09 20 20 20 20 2f 2a 20 4f 74 68 65 72 20 :.. /* Other
5930: 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 64 70 error */.. dp
5940: 72 69 6e 74 66 28 22 4f 74 68 65 72 20 65 72 72 rintf("Other err
5950: 6f 72 2c 20 61 62 6f 72 74 22 29 3b 0a 09 20 20 or, abort");..
5960: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
5970: 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 65 73 52 = 0;.. bytesR
5980: 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 54 6c ead = 0;.. Tl
5990: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
59a0: 2c 20 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 , "Unknown error
59b0: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ");.. break;.
59c0: 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e }.. dprin
59d0: 74 66 28 22 49 6e 70 75 74 28 25 64 29 20 2d 3e tf("Input(%d) ->
59e0: 20 25 64 20 5b 25 64 5d 22 2c 20 62 75 66 53 69 %d [%d]", bufSi
59f0: 7a 65 2c 20 62 79 74 65 73 52 65 61 64 2c 20 2a ze, bytesRead, *
5a00: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 20 errorCodePtr);.
5a10: 20 20 20 72 65 74 75 72 6e 20 62 79 74 65 73 52 return bytesR
5a20: 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d ead;.}../*. *---
5a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
5a80: 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 2d TlsOutputProc -
5a90: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f -. *. *.This pro
5aa0: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
5ab0: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
5ac0: 20 49 2f 4f 20 6c 61 79 65 72 20 74 6f 20 77 72 I/O layer to wr
5ad0: 69 74 65 20 64 61 74 61 20 74 6f 20 74 68 65 0a ite data to the.
5ae0: 20 2a 09 42 49 4f 20 77 68 65 6e 65 76 65 72 20 *.BIO whenever
5af0: 74 68 65 20 74 68 65 20 54 63 6c 5f 57 72 69 74 the the Tcl_Writ
5b00: 65 28 29 2c 20 54 63 6c 5f 57 72 69 74 65 43 68 e(), Tcl_WriteCh
5b10: 61 72 73 2c 20 61 6e 64 20 54 63 6c 5f 57 72 69 ars, and Tcl_Wri
5b20: 74 65 4f 62 6a 0a 20 2a 09 66 75 6e 63 74 69 6f teObj. *.functio
5b30: 6e 73 20 61 72 65 20 75 73 65 64 2e 20 45 71 75 ns are used. Equ
5b40: 69 76 61 6c 65 6e 74 20 74 6f 20 53 53 4c 5f 77 ivalent to SSL_w
5b50: 72 69 74 65 5f 65 78 20 61 6e 64 20 53 53 4c 5f rite_ex and SSL_
5b60: 77 72 69 74 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 write.. *. * Res
5b70: 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 ults:. *.Returns
5b80: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 the number of b
5b90: 79 74 65 73 20 77 72 69 74 74 65 6e 20 6f 72 20 ytes written or
5ba0: 2d 31 20 6f 6e 20 65 72 72 6f 72 2e 20 53 65 74 -1 on error. Set
5bb0: 73 20 65 72 72 6f 72 43 6f 64 65 50 74 72 0a 20 s errorCodePtr.
5bc0: 2a 09 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 *.to a POSIX err
5bd0: 6f 72 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 or code if an er
5be0: 72 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 ror occurred, or
5bf0: 20 30 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 0 if successful
5c00: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
5c10: 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 ects:. *.Writes
5c20: 64 61 74 61 20 74 6f 20 53 53 4c 2f 42 49 4f 2e data to SSL/BIO.
5c30: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
5c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c80: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
5c90: 6e 74 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 nt TlsOutputProc
5ca0: 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 (. ClientData
5cb0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f instanceData,./
5cc0: 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 * Connection sta
5cd0: 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 63 te info */. c
5ce0: 6f 6e 73 74 20 63 68 61 72 20 2a 62 75 66 2c 09 onst char *buf,.
5cf0: 09 2f 2a 20 42 75 66 66 65 72 20 77 69 74 68 20 ./* Buffer with
5d00: 64 61 74 61 20 74 6f 20 77 72 69 74 65 20 74 6f data to write to
5d10: 20 42 49 4f 20 2a 2f 0a 20 20 20 20 69 6e 74 20 BIO */. int
5d20: 74 6f 57 72 69 74 65 2c 09 09 2f 2a 20 53 69 7a toWrite,../* Siz
5d30: 65 20 6f 66 20 64 61 74 61 20 74 6f 20 77 72 69 e of data to wri
5d40: 74 65 20 69 6e 20 62 79 74 65 73 20 2a 2f 0a 20 te in bytes */.
5d50: 20 20 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 int *errorCod
5d60: 65 50 74 72 29 09 09 2f 2a 20 53 74 6f 72 61 67 ePtr)../* Storag
5d70: 65 20 66 6f 72 20 65 72 72 6f 72 20 63 6f 64 65 e for error code
5d80: 20 74 6f 20 72 65 74 75 72 6e 20 2a 2f 0a 7b 0a to return */.{.
5d90: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e unsigned lon
5da0: 67 20 65 72 72 3b 0a 20 20 20 20 53 74 61 74 65 g err;. State
5db0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
5dc0: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
5dd0: 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 77 72 69 ata;. int wri
5de0: 74 74 65 6e 2c 20 72 63 2c 20 72 65 61 73 6f 6e tten, rc, reason
5df0: 2c 20 69 73 5f 66 61 74 61 6c 2c 20 62 69 6f 53 , is_fatal, bioS
5e00: 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 6f 5f 65 houldRetry, io_e
5e10: 72 72 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f rr;. *errorCo
5e20: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 dePtr = 0;..
5e30: 64 70 72 69 6e 74 66 28 22 57 72 69 74 65 20 25 dprintf("Write %
5e40: 64 20 62 79 74 65 73 22 2c 20 74 6f 57 72 69 74 d bytes", toWrit
5e50: 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 42 75 e);. dprintBu
5e60: 66 66 65 72 28 62 75 66 2c 20 74 6f 57 72 69 74 ffer(buf, toWrit
5e70: 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 e);.. /* Abor
5e80: 74 20 69 66 20 74 68 65 20 75 73 65 72 20 76 65 t if the user ve
5e90: 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 rify callback is
5ea0: 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 74 still running t
5eb0: 6f 20 61 76 6f 69 64 20 74 72 69 67 67 65 72 69 o avoid triggeri
5ec0: 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f 74 68 65 ng. * anothe
5ed0: 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 20 74 68 r call before th
5ee0: 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 69 73 e current one is
5ef0: 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f 0a 20 20 complete. */.
5f00: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
5f10: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
5f20: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
5f30: 69 6e 74 66 28 22 44 6f 6e 27 74 20 70 72 6f 63 intf("Don't proc
5f40: 65 73 73 20 6f 75 74 70 75 74 20 77 68 69 6c 65 ess output while
5f50: 20 63 61 6c 6c 62 61 63 6b 73 20 61 72 65 20 72 callbacks are r
5f60: 75 6e 6e 69 6e 67 22 29 3b 0a 09 77 72 69 74 74 unning");..writt
5f70: 65 6e 20 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f 72 en = -1;..*error
5f80: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
5f90: 3b 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 ;..return -1;.
5fa0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 }.. /* Abor
5fb0: 74 20 69 66 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 t if connection
5fc0: 68 61 73 20 66 61 69 6c 65 64 2e 20 2a 2f 0a 20 has failed. */.
5fd0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
5fe0: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
5ff0: 5f 46 41 54 41 4c 5f 45 52 52 4f 52 29 20 7b 0a _FATAL_ERROR) {.
6000: 09 64 70 72 69 6e 74 66 28 22 46 61 74 61 6c 20 .dprintf("Fatal
6010: 65 72 72 6f 72 20 61 6c 72 65 61 64 79 20 64 65 error already de
6020: 74 65 63 74 65 64 2c 20 61 62 6f 72 74 20 77 72 tected, abort wr
6030: 69 74 65 22 29 3b 0a 09 2a 65 72 72 6f 72 43 6f ite");..*errorCo
6040: 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f dePtr = ECONNABO
6050: 52 54 45 44 3b 0a 09 72 65 74 75 72 6e 20 2d 31 RTED;..return -1
6060: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
6070: 49 66 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a If not initializ
6080: 65 64 2c 20 64 6f 20 63 6f 6e 6e 65 63 74 2e 20 ed, do connect.
6090: 43 61 6e 20 61 6c 73 6f 20 63 68 65 63 6b 20 53 Can also check S
60a0: 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 SL_is_init_finis
60b0: 68 65 64 28 29 2e 20 2a 2f 0a 20 20 20 20 69 66 hed(). */. if
60c0: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
60d0: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 s & TLS_TCL_INIT
60e0: 29 20 7b 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e ) {..int tlsConn
60f0: 65 63 74 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 ect;...dprintf("
6100: 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 Calling Tls_Wait
6110: 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a 09 ForConnect");...
6120: 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 tlsConnect = Tls
6130: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 _WaitForConnect(
6140: 73 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 43 statePtr, errorC
6150: 6f 64 65 50 74 72 2c 20 31 29 3b 0a 09 69 66 20 odePtr, 1);..if
6160: 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 (tlsConnect < 0)
6170: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
6180: 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 61 "Got an error wa
6190: 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 iting to connect
61a0: 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 (tlsConnect = %
61b0: 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 i, *errorCodePtr
61c0: 20 3d 20 25 69 29 22 2c 0a 09 09 74 6c 73 43 6f = %i)",...tlsCo
61d0: 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 nnect, *errorCod
61e0: 65 50 74 72 29 3b 0a 0a 09 20 20 20 20 77 72 69 ePtr);... wri
61f0: 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 tten = -1;..
6200: 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 if (*errorCodePt
6210: 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 r == ECONNRESET)
6220: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f {...dprintf("Go
6230: 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 t connection res
6240: 65 74 22 29 3b 0a 09 09 2f 2a 20 53 6f 66 74 20 et");.../* Soft
6250: 45 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 6f 72 43 EOF */...*errorC
6260: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 77 72 odePtr = 0;...wr
6270: 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 73 74 61 itten = 0;...sta
6280: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
6290: 54 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 TLS_TCL_EOF;..
62a0: 20 20 7d 0a 09 20 20 20 20 72 65 74 75 72 6e 20 }.. return
62b0: 77 72 69 74 74 65 6e 3b 0a 09 7d 20 65 6c 73 65 written;..} else
62c0: 20 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 if (tlsConnect
62d0: 3d 3d 20 30 29 20 7b 0a 09 20 20 20 20 2f 2a 20 == 0) {.. /*
62e0: 54 72 79 20 61 67 61 69 6e 20 2a 2f 0a 09 20 20 Try again */..
62f0: 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a written = -1;.
6300: 09 20 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 . return writ
6310: 74 65 6e 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 ten;..}. }..
6320: 20 20 20 2f 2a 20 46 6c 75 73 68 20 2a 2f 0a 20 /* Flush */.
6330: 20 20 20 69 66 20 28 74 6f 57 72 69 74 65 20 3d if (toWrite =
6340: 3d 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 = 0) {..dprintf(
6350: 22 7a 65 72 6f 2d 77 72 69 74 65 22 29 3b 0a 0a "zero-write");..
6360: 09 69 66 20 28 42 49 4f 5f 66 6c 75 73 68 28 73 .if (BIO_flush(s
6370: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 3c 3d tatePtr->bio) <=
6380: 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 0) {.. dprin
6390: 74 66 28 22 46 6c 75 73 68 69 6e 67 20 66 61 69 tf("Flushing fai
63a0: 6c 65 64 22 29 3b 0a 09 20 20 20 20 54 6c 73 5f led");.. Tls_
63b0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
63c0: 22 46 6c 75 73 68 20 66 61 69 6c 65 64 22 29 3b "Flush failed");
63d0: 0a 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ... *errorCod
63e0: 65 50 74 72 20 3d 20 45 49 4f 3b 0a 09 20 20 20 ePtr = EIO;..
63f0: 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 written = 0;..
6400: 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 09 7d return -1;..}
6410: 0a 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
6420: 20 3d 20 30 3b 0a 09 77 72 69 74 74 65 6e 20 3d = 0;..written =
6430: 20 30 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 0;..return 0;.
6440: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 }.. /*.
6450: 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 * We need to c
6460: 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 lear the SSL err
6470: 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 or stack now bec
6480: 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 ause we sometime
6490: 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a 20 74 s reach. * t
64a0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 his function wit
64b0: 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 h leftover error
64c0: 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 s in the stack.
64d0: 20 49 66 20 42 49 4f 5f 77 72 69 74 65 0a 20 20 If BIO_write.
64e0: 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 * returns -1
64f0: 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 and intends EAGA
6500: 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c IN, there is a l
6510: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 eftover error, i
6520: 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a t will be. *
6530: 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 misconstrued as
6540: 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 an error, not E
6550: 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 2f 0a 20 AGAIN.. */.
6560: 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f dprintf("BIO_
6570: 77 72 69 74 65 20 65 6f 66 3d 25 64 2c 20 62 75 write eof=%d, bu
6580: 66 66 65 72 65 64 3d 25 64 2c 20 69 6e 70 75 74 ffered=%d, input
6590: 3d 25 64 2c 20 6f 75 74 70 75 74 3d 25 64 22 2c =%d, output=%d",
65a0: 20 54 63 6c 5f 45 6f 66 28 73 74 61 74 65 50 74 Tcl_Eof(statePt
65b0: 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f 43 68 r->self), Tcl_Ch
65c0: 61 6e 6e 65 6c 42 75 66 66 65 72 65 64 28 73 74 annelBuffered(st
65d0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 5c atePtr->self), \
65e0: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e 70 . Tcl_Inp
65f0: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 utBuffered(state
6600: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f Ptr->self), Tcl_
6610: 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 28 73 OutputBuffered(s
6620: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b tatePtr->self));
6630: 0a 20 20 20 20 54 63 6c 5f 53 65 74 45 72 72 6e . Tcl_SetErrn
6640: 6f 28 30 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c o(0);. ERR_cl
6650: 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 ear_error();.
6660: 20 42 49 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 BIO_clear_retry
6670: 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d _flags(statePtr-
6680: 3e 62 69 6f 29 3b 0a 20 20 20 20 77 72 69 74 74 >bio);. writt
6690: 65 6e 20 3d 20 42 49 4f 5f 77 72 69 74 65 28 73 en = BIO_write(s
66a0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 tatePtr->bio, bu
66b0: 66 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20 20 f, toWrite);.
66c0: 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 dprintf("BIO_wr
66d0: 69 74 65 28 25 70 2c 20 25 64 29 20 2d 3e 20 5b ite(%p, %d) -> [
66e0: 25 64 5d 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 %d]", (void *) s
66f0: 74 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 tatePtr, toWrite
6700: 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 , written);.
6710: 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 69 dprintf("BIO_wri
6720: 74 65 20 65 6f 66 3d 25 64 2c 20 62 75 66 66 65 te eof=%d, buffe
6730: 72 65 64 3d 25 64 2c 20 69 6e 70 75 74 3d 25 64 red=%d, input=%d
6740: 2c 20 6f 75 74 70 75 74 3d 25 64 22 2c 20 54 63 , output=%d", Tc
6750: 6c 5f 45 6f 66 28 73 74 61 74 65 50 74 72 2d 3e l_Eof(statePtr->
6760: 73 65 6c 66 29 2c 20 54 63 6c 5f 43 68 61 6e 6e self), Tcl_Chann
6770: 65 6c 42 75 66 66 65 72 65 64 28 73 74 61 74 65 elBuffered(state
6780: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 5c 0a 20 20 Ptr->self), \.
6790: 20 20 20 20 20 20 54 63 6c 5f 49 6e 70 75 74 42 Tcl_InputB
67a0: 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 uffered(statePtr
67b0: 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f 4f 75 74 ->self), Tcl_Out
67c0: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 putBuffered(stat
67d0: 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 0a 20 ePtr->self));..
67e0: 20 20 20 2f 2a 20 53 61 6d 65 20 61 73 20 53 53 /* Same as SS
67f0: 4c 5f 77 61 6e 74 2c 20 62 75 74 20 61 6c 73 6f L_want, but also
6800: 20 63 68 65 63 6b 73 20 74 68 65 20 65 72 72 6f checks the erro
6810: 72 20 71 75 65 75 65 20 2a 2f 0a 20 20 20 20 72 r queue */. r
6820: 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f c = SSL_get_erro
6830: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c r(statePtr->ssl,
6840: 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 65 written);. e
6850: 72 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 rr = ERR_get_err
6860: 6f 72 28 29 3b 0a 20 20 20 20 72 65 61 73 6f 6e or();. reason
6870: 20 3d 20 45 52 52 5f 47 45 54 5f 52 45 41 53 4f = ERR_GET_REASO
6880: 4e 28 65 72 72 29 3b 0a 20 20 20 20 69 73 5f 66 N(err);. is_f
6890: 61 74 61 6c 20 3d 20 45 52 52 5f 46 41 54 41 4c atal = ERR_FATAL
68a0: 5f 45 52 52 4f 52 28 65 72 72 29 3b 0a 20 20 20 _ERROR(err);.
68b0: 20 2f 2a 20 54 68 65 20 72 65 74 72 79 20 66 6c /* The retry fl
68c0: 61 67 20 69 73 20 73 65 74 20 62 79 20 74 68 65 ag is set by the
68d0: 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 2a BIO_set_retry_*
68e0: 20 66 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 20 20 functions */.
68f0: 20 20 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 bioShouldRetry
6900: 20 3d 20 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 = BIO_should_re
6910: 74 72 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 try(statePtr->bi
6920: 6f 29 3b 0a 20 20 20 20 69 6f 5f 65 72 72 20 3d o);. io_err =
6930: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b Tcl_GetErrno();
6940: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 57 72 . dprintf("Wr
6950: 69 74 65 3a 20 77 72 69 74 74 65 6e 3d 25 64 2c ite: written=%d,
6960: 20 72 63 3d 25 64 2c 20 65 72 72 3d 25 6c 64 2c rc=%d, err=%ld,
6970: 20 72 65 61 73 6f 6e 3d 25 64 2c 20 69 73 5f 66 reason=%d, is_f
6980: 61 74 61 6c 3d 25 64 2c 20 6c 69 62 3d 25 73 2c atal=%d, lib=%s,
6990: 20 6d 73 67 3d 25 73 2c 20 62 69 6f 53 68 6f 75 msg=%s, bioShou
69a0: 6c 64 52 65 74 72 79 3d 25 64 2c 20 65 72 72 6e ldRetry=%d, errn
69b0: 6f 3d 25 64 2c 20 69 64 3d 25 73 2c 20 6d 73 67 o=%d, id=%s, msg
69c0: 3d 25 73 22 2c 20 5c 0a 20 20 20 20 20 20 20 20 =%s", \.
69d0: 77 72 69 74 74 65 6e 2c 20 72 63 2c 20 65 72 72 written, rc, err
69e0: 2c 20 72 65 61 73 6f 6e 2c 20 69 73 5f 66 61 74 , reason, is_fat
69f0: 61 6c 2c 20 45 52 52 5f 6c 69 62 5f 65 72 72 6f al, ERR_lib_erro
6a00: 72 5f 73 74 72 69 6e 67 28 65 72 72 29 2c 20 45 r_string(err), E
6a10: 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f RR_reason_error_
6a20: 73 74 72 69 6e 67 28 65 72 72 29 2c 20 62 69 6f string(err), bio
6a30: 53 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 6f 5f ShouldRetry, io_
6a40: 65 72 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 49 64 err, Tcl_ErrnoId
6a50: 28 29 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 (), Tcl_ErrnoMsg
6a60: 28 69 6f 5f 65 72 72 29 29 3b 0a 0a 20 20 20 20 (io_err));..
6a70: 69 66 20 28 77 72 69 74 74 65 6e 20 3c 3d 20 30 if (written <= 0
6a80: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 57 72 ) {..dprintf("Wr
6a90: 69 74 65 20 66 61 69 6c 65 64 3a 20 69 73 20 45 ite failed: is E
6aa0: 4f 46 3d 25 64 2c 20 73 68 6f 75 6c 64 20 72 65 OF=%d, should re
6ab0: 74 72 79 3d 25 64 2c 20 72 65 74 72 79 20 72 65 try=%d, retry re
6ac0: 61 64 3d 25 64 2c 20 72 65 74 72 79 20 77 72 69 ad=%d, retry wri
6ad0: 74 65 3d 25 64 2c 20 6f 74 68 65 72 3d 25 64 22 te=%d, other=%d"
6ae0: 2c 0a 09 20 20 20 20 42 49 4f 5f 65 6f 66 28 73 ,.. BIO_eof(s
6af0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 42 tatePtr->bio), B
6b00: 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 IO_should_retry(
6b10: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 statePtr->bio),
6b20: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 61 64 28 BIO_should_read(
6b30: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 0a statePtr->bio),.
6b40: 09 20 20 20 20 42 49 4f 5f 73 68 6f 75 6c 64 5f . BIO_should_
6b50: 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d 3e write(statePtr->
6b60: 62 69 6f 29 2c 20 42 49 4f 5f 73 68 6f 75 6c 64 bio), BIO_should
6b70: 5f 69 6f 5f 73 70 65 63 69 61 6c 28 73 74 61 74 _io_special(stat
6b80: 65 50 74 72 2d 3e 62 69 6f 29 29 3b 0a 09 69 66 ePtr->bio));..if
6b90: 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 (BIO_should_ret
6ba0: 72 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ry(statePtr->bio
6bb0: 29 29 20 7b 0a 09 20 20 20 20 2a 65 72 72 6f 72 )) {.. *error
6bc0: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
6bd0: 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 ;..}. } else
6be0: 7b 0a 09 42 49 4f 5f 66 6c 75 73 68 28 73 74 61 {..BIO_flush(sta
6bf0: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 20 20 20 tePtr->bio);.
6c00: 20 7d 0a 0a 20 20 20 20 2f 2a 20 42 61 73 65 64 }.. /* Based
6c10: 20 6f 6e 20 65 72 72 6f 72 2c 20 64 6f 20 72 65 on error, do re
6c20: 74 72 79 20 6f 72 20 61 62 6f 72 74 20 2a 2f 0a try or abort */.
6c30: 20 20 20 20 73 77 69 74 63 68 20 28 72 63 29 20 switch (rc)
6c40: 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f {..case SSL_ERRO
6c50: 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 R_NONE:.. /*
6c60: 49 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f I/O operation co
6c70: 6d 70 6c 65 74 65 64 20 2a 2f 0a 09 20 20 20 20 mpleted */..
6c80: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
6c90: 4f 52 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 20 20 OR_NONE");..
6ca0: 69 66 20 28 77 72 69 74 74 65 6e 20 3c 20 30 29 if (written < 0)
6cb0: 20 7b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 {...written = 0
6cc0: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 ;.. }.. br
6cd0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
6ce0: 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 ERROR_SSL:..
6cf0: 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 /* A non-recover
6d00: 61 62 6c 65 2c 20 66 61 74 61 6c 20 65 72 72 6f able, fatal erro
6d10: 72 20 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62 r in the SSL lib
6d20: 72 61 72 79 20 6f 63 63 75 72 72 65 64 2c 0a 09 rary occurred,..
6d30: 20 20 20 20 20 20 20 75 73 75 61 6c 6c 79 20 61 usually a
6d40: 20 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 protocol error
6d50: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
6d60: 22 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 "SSL_ERROR_SSL:
6d70: 46 61 74 61 6c 20 53 53 4c 20 70 72 6f 74 6f 63 Fatal SSL protoc
6d80: 6f 6c 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 ol error occurre
6d90: 64 22 29 3b 0a 09 20 20 20 20 69 66 20 28 65 72 d");.. if (er
6da0: 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c 73 5f r != 0) {...Tls_
6db0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
6dc0: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
6dd0: 5f 73 74 72 69 6e 67 28 65 72 72 29 29 3b 0a 09 _string(err));..
6de0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 53 } else if (S
6df0: 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 SL_get_verify_re
6e00: 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 sult(statePtr->s
6e10: 73 6c 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b sl) != X509_V_OK
6e20: 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 ) {...Tls_Error(
6e30: 73 74 61 74 65 50 74 72 2c 0a 09 09 20 20 20 20 statePtr,...
6e40: 58 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 X509_verify_cert
6e50: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 53 53 _error_string(SS
6e60: 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 L_get_verify_res
6e70: 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ult(statePtr->ss
6e80: 6c 29 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 l)));.. } els
6e90: 65 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 e {...Tls_Error(
6ea0: 73 74 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e 6f statePtr, "Unkno
6eb0: 77 6e 20 53 53 4c 20 65 72 72 6f 72 22 29 3b 0a wn SSL error");.
6ec0: 09 20 20 20 20 7d 0a 09 20 20 20 20 2a 65 72 72 . }.. *err
6ed0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
6ee0: 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 73 NABORTED;.. s
6ef0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
6f00: 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f = TLS_TCL_FATAL_
6f10: 45 52 52 4f 52 3b 0a 09 20 20 20 20 73 74 61 74 ERROR;.. stat
6f20: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
6f30: 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 LS_TCL_EOF;..
6f40: 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 written = -1;..
6f50: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
6f60: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 e SSL_ERROR_WANT
6f70: 5f 52 45 41 44 3a 0a 09 20 20 20 20 2f 2a 20 4f _READ:.. /* O
6f80: 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 peration did not
6f90: 20 63 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f complete due to
6fa0: 20 6e 6f 74 20 65 6e 6f 75 67 68 20 64 61 74 61 not enough data
6fb0: 20 77 61 73 20 61 76 61 69 6c 61 62 6c 65 2e 0a was available..
6fc0: 09 20 20 20 20 20 20 20 52 65 74 72 79 20 61 67 . Retry ag
6fd0: 61 69 6e 20 6c 61 74 65 72 20 77 69 74 68 20 73 ain later with s
6fe0: 61 6d 65 20 64 61 74 61 2e 20 2a 2f 0a 09 20 20 ame data. */..
6ff0: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
7000: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
7010: 41 44 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 AD, mapping it t
7020: 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 o EAGAIN");..
7030: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
7040: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 EAGAIN;.. wr
7050: 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 itten = -1;..
7060: 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 statePtr->want
7070: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b |= TCL_READABLE;
7080: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
7090: 74 72 79 5f 72 65 61 64 28 73 74 61 74 65 50 74 try_read(statePt
70a0: 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 62 72 r->bio);.. br
70b0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
70c0: 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 ERROR_WANT_WRITE
70d0: 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 65 72 61 74 :.. /* Operat
70e0: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 ion did not comp
70f0: 6c 65 74 65 20 64 75 65 20 74 6f 20 75 6e 61 62 lete due to unab
7100: 6c 65 20 74 6f 20 73 65 6e 64 20 61 6c 6c 20 64 le to send all d
7110: 61 74 61 20 74 6f 20 74 68 65 0a 09 20 20 20 20 ata to the..
7120: 20 20 20 42 49 4f 2e 20 52 65 74 72 79 20 6c 61 BIO. Retry la
7130: 74 65 72 20 77 69 74 68 20 73 61 6d 65 20 64 61 ter with same da
7140: 74 61 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 ta. */.. dpri
7150: 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 ntf("Got SSL_ERR
7160: 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 2c 20 6d OR_WANT_WRITE, m
7170: 61 70 70 69 6e 67 20 69 74 20 74 6f 20 45 41 47 apping it to EAG
7180: 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 AIN");.. *err
7190: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
71a0: 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e IN;.. written
71b0: 20 3d 20 2d 31 3b 0a 09 20 20 20 20 73 74 61 74 = -1;.. stat
71c0: 65 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 ePtr->want |= TC
71d0: 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 09 20 20 20 L_WRITABLE;..
71e0: 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 77 BIO_set_retry_w
71f0: 72 69 74 65 28 73 74 61 74 65 50 74 72 2d 3e 62 rite(statePtr->b
7200: 69 6f 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b io);.. break;
7210: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
7220: 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b R_WANT_X509_LOOK
7230: 55 50 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 UP:.. /* The
7240: 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f operation did no
7250: 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 t complete becau
7260: 73 65 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f se an applicatio
7270: 6e 20 63 61 6c 6c 62 61 63 6b 0a 09 20 20 20 20 n callback..
7280: 20 20 20 73 65 74 20 62 79 20 53 53 4c 5f 43 54 set by SSL_CT
7290: 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 X_set_client_cer
72a0: 74 5f 63 62 28 29 20 68 61 73 20 61 73 6b 65 64 t_cb() has asked
72b0: 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 61 67 to be called ag
72c0: 61 69 6e 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 ain. */.. dpr
72d0: 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 intf("Got SSL_ER
72e0: 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f ROR_WANT_X509_LO
72f0: 4f 4b 55 50 2c 20 6d 61 70 70 69 6e 67 20 69 74 OKUP, mapping it
7300: 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 to EAGAIN");..
7310: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
7320: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
7330: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 written = -1;..
7340: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 break;...case
7350: 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 SSL_ERROR_SYSCA
7360: 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 LL:.. /* Some
7370: 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 non-recoverable
7380: 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f , fatal I/O erro
7390: 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 r occurred */..
73a0: 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f dprintf("SSL_
73b0: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 20 46 ERROR_SYSCALL: F
73c0: 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f atal I/O error o
73d0: 63 63 75 72 72 65 64 22 29 3b 0a 0a 09 20 20 20 ccurred");...
73e0: 20 69 66 20 28 65 72 72 20 3d 3d 20 30 20 26 26 if (err == 0 &&
73f0: 20 77 72 69 74 74 65 6e 20 3d 3d 20 30 29 20 7b written == 0) {
7400: 0a 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 20 ...dprintf("EOF
7410: 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 72 reached")...*err
7420: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 orCodePtr = 0;..
7430: 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 .written = 0;...
7440: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
7450: 74 72 2c 20 22 45 4f 46 20 72 65 61 63 68 65 64 tr, "EOF reached
7460: 22 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 ");... } else
7470: 20 69 66 20 28 65 72 72 20 3d 3d 20 30 20 26 26 if (err == 0 &&
7480: 20 77 72 69 74 74 65 6e 20 3d 3d 20 2d 31 29 20 written == -1)
7490: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f {...dprintf("I/O
74a0: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 error occurred
74b0: 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 (errno = %lu)",
74c0: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 (unsigned long)
74d0: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b Tcl_GetErrno());
74e0: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
74f0: 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 = Tcl_GetErrno(
7500: 29 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d );...written = -
7510: 31 3b 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 66 1;...statePtr->f
7520: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
7530: 46 41 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 09 54 FATAL_ERROR;...T
7540: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
7550: 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 r, Tcl_ErrnoMsg(
7560: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b *errorCodePtr));
7570: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ... } else {.
7580: 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 ..dprintf("I/O e
7590: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 rror occurred (e
75a0: 72 72 20 3d 20 25 6c 75 29 22 2c 20 65 72 72 29 rr = %lu)", err)
75b0: 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ;...*errorCodePt
75c0: 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f r = Tcl_GetErrno
75d0: 28 29 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 ();...written =
75e0: 2d 31 3b 0a 09 09 73 74 61 74 65 50 74 72 2d 3e -1;...statePtr->
75f0: 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c flags |= TLS_TCL
7600: 5f 46 41 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 09 _FATAL_ERROR;...
7610: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
7620: 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 tr, ERR_reason_e
7630: 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 rror_string(err)
7640: 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 73 );.. }.. s
7650: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
7660: 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 = TLS_TCL_EOF;..
7670: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
7680: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f e SSL_ERROR_ZERO
7690: 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 2f 2a _RETURN:.. /*
76a0: 20 50 65 65 72 20 68 61 73 20 63 6c 65 61 6e 6c Peer has cleanl
76b0: 79 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e y closed the con
76c0: 6e 65 63 74 69 6f 6e 20 62 79 20 73 65 6e 64 69 nection by sendi
76d0: 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 ng the close_not
76e0: 69 66 79 0a 09 20 20 20 20 20 20 20 61 6c 65 72 ify.. aler
76f0: 74 2e 20 43 61 6e 27 74 20 72 65 61 64 2c 20 62 t. Can't read, b
7700: 75 74 20 63 61 6e 20 77 72 69 74 65 2e 20 4e 65 ut can write. Ne
7710: 65 64 20 74 6f 20 72 65 74 75 72 6e 20 61 6e 20 ed to return an
7720: 45 4f 46 2c 20 73 6f 20 74 68 65 0a 09 20 20 20 EOF, so the..
7730: 20 20 20 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 channel is c
7740: 6c 6f 73 65 64 20 77 68 69 63 68 20 77 69 6c 6c losed which will
7750: 20 73 65 6e 64 20 61 6e 20 53 53 4c 5f 73 68 75 send an SSL_shu
7760: 74 64 6f 77 6e 28 29 2e 20 2a 2f 0a 09 20 20 20 tdown(). */..
7770: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 dprintf("SSL_ER
7780: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
7790: 20 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 64 Peer has closed
77a0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 22 the connection"
77b0: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
77c0: 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 dePtr = 0;..
77d0: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 written = 0;..
77e0: 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 statePtr->flag
77f0: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 s |= TLS_TCL_EOF
7800: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
7810: 28 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 72 (statePtr, "Peer
7820: 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 has closed the
7830: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 connection for w
7840: 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 6e riting by sendin
7850: 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 g the close_noti
7860: 66 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 fy alert");..
7870: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
7880: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 SL_ERROR_WANT_AS
7890: 59 4e 43 3a 0a 09 20 20 20 20 2f 2a 20 55 73 65 YNC:.. /* Use
78a0: 64 20 77 69 74 68 20 66 6c 61 67 20 53 53 4c 5f d with flag SSL_
78b0: 4d 4f 44 45 5f 41 53 59 4e 43 2c 20 6f 70 65 72 MODE_ASYNC, oper
78c0: 61 74 69 6f 6e 20 64 69 64 6e 27 74 20 63 6f 6d ation didn't com
78d0: 70 6c 65 74 65 20 62 65 63 61 75 73 65 0a 09 20 plete because..
78e0: 20 20 20 20 20 20 61 6e 20 61 73 79 6e 63 20 65 an async e
78f0: 6e 67 69 6e 65 20 69 73 20 73 74 69 6c 6c 20 70 ngine is still p
7900: 72 6f 63 65 73 73 69 6e 67 20 64 61 74 61 2e 20 rocessing data.
7910: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
7920: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
7930: 41 4e 54 5f 41 53 59 4e 43 2c 20 6d 61 70 70 69 ANT_ASYNC, mappi
7940: 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 41 49 ng this to EAGAI
7950: 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 N");.. *error
7960: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
7970: 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d ;.. written =
7980: 20 30 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0;.. break;.
7990: 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 ..default:..
79a0: 2f 2a 20 4f 74 68 65 72 20 65 72 72 6f 72 20 2a /* Other error *
79b0: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
79c0: 4f 74 68 65 72 20 65 72 72 6f 72 2c 20 61 62 6f Other error, abo
79d0: 72 74 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f rt");.. *erro
79e0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 rCodePtr = 0;..
79f0: 20 20 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a written = 0;.
7a00: 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 . Tls_Error(s
7a10: 74 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 tatePtr, "Unknow
7a20: 6e 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 n error");..
7a30: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 break;. }..
7a40: 20 20 64 70 72 69 6e 74 66 28 22 4f 75 74 70 75 dprintf("Outpu
7a50: 74 28 25 64 29 20 2d 3e 20 25 64 22 2c 20 74 6f t(%d) -> %d", to
7a60: 57 72 69 74 65 2c 20 77 72 69 74 74 65 6e 29 3b Write, written);
7a70: 0a 20 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 . return writ
7a80: 74 65 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d ten;.}../*. *---
7a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
7ae0: 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 20 2d Tls_GetParent -
7af0: 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 70 61 72 65 -. *. *.Get pare
7b00: 6e 74 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 nt channel for a
7b10: 20 73 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c stacked channel
7b20: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
7b30: 0a 20 2a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 . *.Tcl_Channel
7b40: 6f 72 20 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e or NULL if none.
7b50: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
7b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ba0: 2d 2d 2d 0a 20 2a 2f 0a 54 63 6c 5f 43 68 61 6e ---. */.Tcl_Chan
7bb0: 6e 65 6c 20 54 6c 73 5f 47 65 74 50 61 72 65 6e nel Tls_GetParen
7bc0: 74 28 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 t(. State *st
7bd0: 61 74 65 50 74 72 2c 09 09 2f 2a 20 43 6f 6e 6e atePtr,../* Conn
7be0: 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 6e 66 ection state inf
7bf0: 6f 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 o */. int mas
7c00: 6b 46 6c 61 67 73 29 09 09 2f 2a 20 57 68 69 63 kFlags)../* Whic
7c10: 68 20 66 6c 61 67 73 20 74 6f 20 70 72 6f 63 65 h flags to proce
7c20: 73 73 20 2a 2f 0a 7b 0a 20 20 20 20 64 70 72 69 ss */.{. dpri
7c30: 6e 74 66 28 22 52 65 71 75 65 73 74 65 64 20 74 ntf("Requested t
7c40: 6f 20 67 65 74 20 70 61 72 65 6e 74 20 6f 66 20 o get parent of
7c50: 63 68 61 6e 6e 65 6c 20 25 70 22 2c 20 73 74 61 channel %p", sta
7c60: 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 20 tePtr->self);..
7c70: 20 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 if ((statePtr
7c80: 2d 3e 66 6c 61 67 73 20 26 20 7e 6d 61 73 6b 46 ->flags & ~maskF
7c90: 6c 61 67 73 29 20 26 20 54 4c 53 5f 54 43 4c 5f lags) & TLS_TCL_
7ca0: 46 41 53 54 50 41 54 48 29 20 7b 0a 09 64 70 72 FASTPATH) {..dpr
7cb0: 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 67 intf("Asked to g
7cc0: 65 74 20 74 68 65 20 70 61 72 65 6e 74 20 63 68 et the parent ch
7cd0: 61 6e 6e 65 6c 20 77 68 69 6c 65 20 77 65 20 61 annel while we a
7ce0: 72 65 20 75 73 69 6e 67 20 46 61 73 74 50 61 74 re using FastPat
7cf0: 68 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 4e h -- returning N
7d00: 55 4c 4c 22 29 3b 0a 09 72 65 74 75 72 6e 20 4e ULL");..return N
7d10: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 ULL;. }. r
7d20: 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 53 74 61 eturn Tcl_GetSta
7d30: 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 ckedChannel(stat
7d40: 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 7d 0a 0a ePtr->self);.}..
7d50: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
7d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7da0: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 53 65 74 4f --. *. * TlsSetO
7db0: 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a ptionProc --. *.
7dc0: 20 2a 09 53 65 74 73 20 61 6e 20 6f 70 74 69 6f *.Sets an optio
7dd0: 6e 20 74 6f 20 76 61 6c 75 65 20 66 6f 72 20 61 n to value for a
7de0: 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 SSL socket base
7df0: 64 20 63 68 61 6e 6e 65 6c 2e 20 43 61 6c 6c 65 d channel. Calle
7e00: 64 20 62 79 20 74 68 65 0a 20 2a 09 67 65 6e 65 d by the. *.gene
7e10: 72 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 ric I/O layer wh
7e20: 65 6e 65 76 65 72 20 74 68 65 20 54 63 6c 5f 53 enever the Tcl_S
7e30: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
7e40: 29 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 ) function is us
7e50: 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ed.. *. * Result
7e60: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 s:. *.TCL_OK if
7e70: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 successful or TC
7e80: 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 L_ERROR if faile
7e90: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
7ea0: 66 65 63 74 73 3a 0a 20 2a 09 55 70 64 61 74 65 fects:. *.Update
7eb0: 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e s channel option
7ec0: 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 to new value..
7ed0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
7ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f20: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
7f30: 0a 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f .TlsSetOptionPro
7f40: 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 c(. ClientDat
7f50: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 a instanceData,.
7f60: 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e /* Socket state.
7f70: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
7f80: 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 rp *interp,../*
7f90: 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e For errors - can
7fa0: 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 be NULL. */.
7fb0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 const char *opt
7fc0: 69 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 ionName,./* Name
7fd0: 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 of the option t
7fe0: 6f 20 73 65 74 20 74 68 65 20 76 61 6c 75 65 20 o set the value
7ff0: 66 6f 72 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e for, or..... * N
8000: 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f ULL to get all o
8010: 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 ptions and their
8020: 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 values. */.
8030: 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 const char *opti
8040: 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 56 61 6c 75 onValue)./* Valu
8050: 65 20 66 6f 72 20 6f 70 74 69 6f 6e 2e 20 2a 2f e for option. */
8060: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
8070: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
8080: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
8090: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
80a0: 20 70 61 72 65 6e 74 20 3d 20 54 6c 73 5f 47 65 parent = Tls_Ge
80b0: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 tParent(statePtr
80c0: 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 , TLS_TCL_FASTPA
80d0: 54 48 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 TH);. Tcl_Dri
80e0: 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 verSetOptionProc
80f0: 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b *setOptionProc;
8100: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
8110: 61 6c 6c 65 64 20 74 6f 20 73 65 74 20 6f 70 74 alled to set opt
8120: 69 6f 6e 20 25 73 20 74 6f 20 76 61 6c 75 65 20 ion %s to value
8130: 25 73 22 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c %s", optionName,
8140: 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 0a optionValue);..
8150: 20 20 20 20 2f 2a 20 50 61 73 73 20 74 6f 20 70 /* Pass to p
8160: 61 72 65 6e 74 20 2a 2f 0a 20 20 20 20 73 65 74 arent */. set
8170: 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c OptionProc = Tcl
8180: 5f 43 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f _ChannelSetOptio
8190: 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 nProc(Tcl_GetCha
81a0: 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 nnelType(parent)
81b0: 29 3b 0a 20 20 20 20 69 66 20 28 73 65 74 4f 70 );. if (setOp
81c0: 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c tionProc != NULL
81d0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 ) {..return (*se
81e0: 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c tOptionProc)(Tcl
81f0: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
8200: 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c nceData(parent),
8210: 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e interp, optionN
8220: 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 ame, optionValue
8230: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a );. }. /*.
8240: 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 66 * Request f
8250: 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 or a specific op
8260: 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c tion has to fail
8270: 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 , we don't have
8280: 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 any.. */.
8290: 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 return Tcl_BadC
82a0: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
82b0: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
82c0: 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d "");.}../*. *--
82d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
8320: 2a 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 * TlsGetOptionPr
8330: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 oc --. *. *.Get
8340: 61 20 6f 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 a option's value
8350: 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 for a SSL socke
8360: 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c t based channel,
8370: 20 6f 72 20 61 20 6c 69 73 74 20 6f 66 20 61 6c or a list of al
8380: 6c 0a 20 2a 09 6f 70 74 69 6f 6e 73 20 61 6e 64 l. *.options and
8390: 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 20 43 their values. C
83a0: 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e alled by the gen
83b0: 65 72 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 eric I/O layer w
83c0: 68 65 6e 65 76 65 72 20 74 68 65 0a 20 2a 09 54 henever the. *.T
83d0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74 cl_GetChannelOpt
83e0: 69 6f 6e 28 29 20 66 75 6e 63 74 69 6f 6e 20 69 ion() function i
83f0: 73 20 75 73 65 64 2e 0a 20 2a 0a 20 2a 0a 20 2a s used.. *. *. *
8400: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 43 4c Results:. *.TCL
8410: 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 _OK if successfu
8420: 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 l or TCL_ERROR i
8430: 66 20 66 61 69 6c 65 64 2e 20 53 65 74 73 20 6f f failed. Sets o
8440: 70 74 69 6f 6e 56 61 6c 75 65 20 74 6f 0a 20 2a ptionValue to. *
8450: 09 74 68 65 20 6f 70 74 69 6f 6e 27 73 20 76 61 .the option's va
8460: 6c 75 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 lue.. *. * Side
8470: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
8480: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
8490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84d0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
84e0: 6e 74 0a 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 nt.TlsGetOptionP
84f0: 72 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 roc(. ClientD
8500: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
8510: 2c 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 ,./* Socket stat
8520: 65 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e e. */. Tcl_In
8530: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f terp *interp,../
8540: 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 * For errors - c
8550: 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 an be NULL. */.
8560: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f const char *o
8570: 70 74 69 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 ptionName,./* Na
8580: 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e me of the option
8590: 20 74 6f 20 72 65 74 72 69 65 76 65 20 74 68 65 to retrieve the
85a0: 20 76 61 6c 75 65 20 66 6f 72 2c 0a 09 09 09 09 value for,.....
85b0: 20 2a 20 6f 72 20 4e 55 4c 4c 20 74 6f 20 67 65 * or NULL to ge
85c0: 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e t all options an
85d0: 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 20 d their values.
85e0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 */. Tcl_DStri
85f0: 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 ng *optionValue)
8600: 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73 74 6f ./* Where to sto
8610: 72 65 20 74 68 65 20 63 6f 6d 70 75 74 65 64 20 re the computed
8620: 76 61 6c 75 65 20 69 6e 69 74 69 61 6c 69 7a 65 value initialize
8630: 64 20 62 79 20 63 61 6c 6c 65 72 2e 20 2a 2f 0a d by caller. */.
8640: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
8650: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
8660: 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a ) instanceData;.
8670: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
8680: 70 61 72 65 6e 74 20 3d 20 54 6c 73 5f 47 65 74 parent = Tls_Get
8690: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c Parent(statePtr,
86a0: 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 TLS_TCL_FASTPAT
86b0: 48 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 H);. Tcl_Driv
86c0: 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 erGetOptionProc
86d0: 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a *getOptionProc;.
86e0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
86f0: 6c 6c 65 64 20 74 6f 20 67 65 74 20 6f 70 74 69 lled to get opti
8700: 6f 6e 20 25 73 22 2c 20 6f 70 74 69 6f 6e 4e 61 on %s", optionNa
8710: 6d 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 61 73 me);.. /* Pas
8720: 73 20 74 6f 20 70 61 72 65 6e 74 20 2a 2f 0a 20 s to parent */.
8730: 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 getOptionProc
8740: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 = Tcl_ChannelGe
8750: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f tOptionProc(Tcl_
8760: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 GetChannelType(p
8770: 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 arent));. if
8780: 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 (getOptionProc !
8790: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
87a0: 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f n (*getOptionPro
87b0: 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 c)(Tcl_GetChanne
87c0: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 lInstanceData(pa
87d0: 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c 0a 09 rent), interp,..
87e0: 20 20 20 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 optionName,
87f0: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 optionValue);.
8800: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 74 } else if (opt
8810: 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 ionName == (char
8820: 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 *) NULL) {../*..
8830: 20 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 75 * Request is qu
8840: 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 ery for all opti
8850: 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e ons, this is ok.
8860: 0a 09 20 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 .. */..return TC
8870: 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 L_OK;. }.
8880: 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 75 65 73 /*. * Reques
8890: 74 20 66 6f 72 20 61 20 73 70 65 63 69 66 69 63 t for a specific
88a0: 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 option has to f
88b0: 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 ail, we don't ha
88c0: 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a ve any.. */.
88d0: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 return Tcl_B
88e0: 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 adChannelOption(
88f0: 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 interp, optionNa
8900: 6d 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 me, "");.}../*.
8910: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
8920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
8960: 2a 0a 20 2a 20 54 6c 73 43 68 61 6e 6e 65 6c 48 *. * TlsChannelH
8970: 61 6e 64 6c 65 72 54 69 6d 65 72 20 2d 2d 0a 20 andlerTimer --.
8980: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 *. *.Called by t
8990: 68 65 20 6e 6f 74 69 66 69 65 72 20 76 69 61 20 he notifier via
89a0: 61 20 74 69 6d 65 72 2c 20 74 6f 20 67 65 6e 65 a timer, to gene
89b0: 72 61 74 65 20 72 65 61 64 2f 77 72 69 74 65 20 rate read/write
89c0: 65 76 65 6e 74 73 20 74 6f 0a 20 2a 09 66 6c 75 events to. *.flu
89d0: 73 68 20 6f 75 74 20 64 61 74 61 20 77 61 69 74 sh out data wait
89e0: 69 6e 67 20 69 6e 20 63 68 61 6e 6e 65 6c 20 62 ing in channel b
89f0: 75 66 66 65 72 73 2e 20 43 61 6c 6c 65 64 20 62 uffers. Called b
8a00: 79 20 54 6c 73 57 61 74 63 68 50 72 6f 63 20 74 y TlsWatchProc t
8a10: 6f 0a 20 2a 09 70 65 72 69 6f 64 69 63 61 6c 6c o. *.periodicall
8a20: 79 20 63 68 65 63 6b 20 66 6f 72 20 6e 65 77 20 y check for new
8a30: 65 76 65 6e 74 73 2e 20 55 73 65 64 20 74 6f 20 events. Used to
8a40: 67 65 6e 65 72 61 74 65 20 65 76 65 6e 74 73 20 generate events
8a50: 77 68 65 6e 20 64 61 74 61 20 69 73 0a 20 2a 09 when data is. *.
8a60: 62 75 66 66 65 72 65 64 20 69 6e 20 42 49 4f 20 buffered in BIO
8a70: 61 6e 64 20 74 68 65 72 65 20 61 72 65 20 6e 6f and there are no
8a80: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e underlying chan
8a90: 6e 65 6c 20 65 76 65 6e 74 73 2e 0a 20 2a 0a 20 nel events.. *.
8aa0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f * Results:. *.No
8ab0: 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ne. *. * Side ef
8ac0: 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 fects:. *.Create
8ad0: 73 20 6e 6f 74 69 66 69 63 61 74 69 6f 6e 20 65 s notification e
8ae0: 76 65 6e 74 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d vent.. *. *-----
8af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b30: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
8b40: 74 69 63 20 76 6f 69 64 20 54 6c 73 43 68 61 6e tic void TlsChan
8b50: 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 28 nelHandlerTimer(
8b60: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
8b70: 63 6c 69 65 6e 74 44 61 74 61 29 09 2f 2a 20 53 clientData)./* S
8b80: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
8b90: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
8ba0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
8bb0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
8bc0: 20 20 69 6e 74 20 6d 61 73 6b 20 3d 20 73 74 61 int mask = sta
8bd0: 74 65 50 74 72 2d 3e 77 61 6e 74 3b 20 2f 2a 20 tePtr->want; /*
8be0: 49 6e 69 74 20 74 6f 20 53 53 4c 5f 45 52 52 4f Init to SSL_ERRO
8bf0: 52 5f 57 41 4e 54 5f 52 45 41 44 20 61 6e 64 20 R_WANT_READ and
8c00: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
8c10: 52 49 54 45 20 2a 2f 0a 20 20 20 20 69 6e 74 20 RITE */. int
8c20: 64 6f 5f 72 65 6c 65 61 73 65 20 3d 20 30 3b 0a do_release = 0;.
8c30: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
8c40: 6c 6c 65 64 20 77 69 74 68 20 6d 61 73 6b 20 30 lled with mask 0
8c50: 78 25 30 32 78 22 2c 20 6d 61 73 6b 29 3b 0a 0a x%02x", mask);..
8c60: 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 6f 6c /* Remove ol
8c70: 64 20 74 69 6d 65 72 20 68 61 6e 64 6c 65 20 2a d timer handle *
8c80: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
8c90: 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 tr->timer != (Tc
8ca0: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
8cb0: 4c 4c 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d LL) {..statePtr-
8cc0: 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 >timer = (Tcl_Ti
8cd0: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a merToken) NULL;.
8ce0: 09 64 6f 5f 72 65 6c 65 61 73 65 20 3d 20 31 3b .do_release = 1;
8cf0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
8d00: 68 65 63 6b 20 66 6f 72 20 61 6d 6f 75 6e 74 20 heck for amount
8d10: 6f 66 20 64 61 74 61 20 70 65 6e 64 69 6e 67 20 of data pending
8d20: 69 6e 20 49 4f 20 6f 72 20 42 49 4f 20 77 72 69 in IO or BIO wri
8d30: 74 65 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 20 te buffer */.
8d40: 20 69 66 20 28 54 63 6c 5f 4f 75 74 70 75 74 42 if (Tcl_OutputB
8d50: 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 uffered(statePtr
8d60: 2d 3e 73 65 6c 66 29 20 7c 7c 20 42 49 4f 5f 77 ->self) || BIO_w
8d70: 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 pending(statePtr
8d80: 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 69 6e ->bio)) {..dprin
8d90: 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 49 tf("[chan=%p] BI
8da0: 4f 20 77 72 69 74 61 62 6c 65 22 2c 20 73 74 61 O writable", sta
8db0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 tePtr->self);...
8dc0: 69 66 20 28 21 28 73 74 61 74 65 50 74 72 2d 3e if (!(statePtr->
8dd0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
8de0: 45 4f 46 29 29 20 7b 0a 09 20 20 20 20 6d 61 73 EOF)) {.. mas
8df0: 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c k |= TCL_WRITABL
8e00: 45 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 E;..}. }..
8e10: 20 2f 2a 20 43 68 65 63 6b 20 66 6f 72 20 61 6d /* Check for am
8e20: 6f 75 6e 74 20 6f 66 20 64 61 74 61 20 70 65 6e ount of data pen
8e30: 64 69 6e 67 20 69 6e 20 49 4f 20 6f 72 20 42 49 ding in IO or BI
8e40: 4f 20 72 65 61 64 20 62 75 66 66 65 72 20 2a 2f O read buffer */
8e50: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 49 6e 70 . if (Tcl_Inp
8e60: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 utBuffered(state
8e70: 50 74 72 2d 3e 73 65 6c 66 29 20 7c 7c 20 42 49 Ptr->self) || BI
8e80: 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 O_pending(stateP
8e90: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 tr->bio)) {..dpr
8ea0: 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 intf("[chan=%p]
8eb0: 42 49 4f 20 72 65 61 64 61 62 6c 65 22 2c 20 73 BIO readable", s
8ec0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
8ed0: 0a 09 69 66 20 28 21 28 73 74 61 74 65 50 74 72 ..if (!(statePtr
8ee0: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
8ef0: 4c 5f 43 4c 4f 53 45 44 29 29 20 7b 0a 09 20 20 L_CLOSED)) {..
8f00: 20 20 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 mask |= TCL_RE
8f10: 41 44 41 42 4c 45 3b 0a 09 7d 0a 20 20 20 20 7d ADABLE;..}. }
8f20: 0a 0a 20 20 20 20 2f 2a 20 4e 6f 74 69 66 79 20 .. /* Notify
8f30: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
8f40: 61 79 65 72 20 74 68 61 74 20 6d 61 73 6b 20 65 ayer that mask e
8f50: 76 65 6e 74 73 20 68 61 76 65 20 6f 63 63 75 72 vents have occur
8f60: 72 65 64 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e red on the chann
8f70: 65 6c 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 el */. dprint
8f80: 66 28 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 f("Notifying our
8f90: 73 65 6c 76 65 73 20 77 69 74 68 20 6d 61 73 6b selves with mask
8fa0: 3d 25 64 22 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 =%d", mask);.
8fb0: 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e Tcl_NotifyChann
8fc0: 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c el(statePtr->sel
8fd0: 66 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 73 74 f, mask);. st
8fe0: 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 3d 20 30 atePtr->want = 0
8ff0: 3b 0a 0a 20 20 20 20 69 66 20 28 64 6f 5f 72 65 ;.. if (do_re
9000: 6c 65 61 73 65 29 20 7b 0a 09 54 63 6c 5f 52 65 lease) {..Tcl_Re
9010: 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 lease((ClientDat
9020: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
9030: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a }. return;.
9040: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
9050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9090: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 -----. *. * TlsW
90a0: 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 atchProc --. *.
90b0: 2a 09 53 65 74 20 75 70 20 74 68 65 20 65 76 65 *.Set up the eve
90c0: 6e 74 20 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 nt notifier to w
90d0: 61 74 63 68 20 66 6f 72 20 65 76 65 6e 74 73 20 atch for events
90e0: 6f 66 20 69 6e 74 65 72 65 73 74 20 66 72 6f 6d of interest from
90f0: 20 74 68 69 73 0a 20 2a 09 63 68 61 6e 6e 65 6c this. *.channel
9100: 2e 20 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 . Called by the
9110: 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c 61 79 65 generic I/O laye
9120: 72 20 77 68 65 6e 65 76 65 72 20 74 68 65 20 75 r whenever the u
9130: 73 65 72 20 28 6f 72 20 74 68 65 0a 20 2a 09 73 ser (or the. *.s
9140: 79 73 74 65 6d 29 20 61 6e 6e 6f 75 6e 63 65 73 ystem) announces
9150: 20 69 74 73 20 28 64 69 73 29 69 6e 74 65 72 65 its (dis)intere
9160: 73 74 20 69 6e 20 65 76 65 6e 74 73 20 6f 6e 20 st in events on
9170: 74 68 65 20 63 68 61 6e 6e 65 6c 2e 20 54 68 69 the channel. Thi
9180: 73 20 69 73 0a 20 2a 09 63 61 6c 6c 65 64 20 72 s is. *.called r
9190: 65 70 65 61 74 65 64 6c 79 2e 0a 20 2a 0a 20 2a epeatedly.. *. *
91a0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e Results:. *.Non
91b0: 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 e. *. * Side eff
91c0: 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 75 70 ects:. *.Sets up
91d0: 20 6f 72 20 63 6c 65 61 72 73 20 61 20 74 69 6d or clears a tim
91e0: 65 2d 62 61 73 65 64 20 6e 6f 74 69 66 69 65 72 e-based notifier
91f0: 20 73 6f 20 74 68 61 74 20 66 75 74 75 72 65 20 so that future
9200: 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 0a 20 2a events on the. *
9210: 09 63 68 61 6e 6e 65 6c 20 77 69 6c 6c 20 62 65 .channel will be
9220: 20 73 65 65 6e 20 62 79 20 54 43 4c 2e 0a 20 2a seen by TCL.. *
9230: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
9240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9280: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 . */.static void
9290: 0a 54 6c 73 57 61 74 63 68 50 72 6f 63 28 0a 20 .TlsWatchProc(.
92a0: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e ClientData in
92b0: 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 43 stanceData,./* C
92c0: 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 20 onnection state
92d0: 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 69 6e 74 20 info */. int
92e0: 6d 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 6e 74 mask).../* Event
92f0: 73 20 6f 66 20 69 6e 74 65 72 65 73 74 3b 20 61 s of interest; a
9300: 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 n OR-ed combinat
9310: 69 6f 6e 20 6f 66 0a 09 09 09 09 20 2a 20 54 43 ion of..... * TC
9320: 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 4c 5f L_READABLE, TCL_
9330: 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c WRITABLE and TCL
9340: 5f 45 58 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b _EXCEPTION. */.{
9350: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
9360: 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 53 74 61 parent;. Sta
9370: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
9380: 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 State *) instanc
9390: 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 44 eData;. Tcl_D
93a0: 72 69 76 65 72 57 61 74 63 68 50 72 6f 63 20 2a riverWatchProc *
93b0: 77 61 74 63 68 50 72 6f 63 3b 0a 20 20 20 20 69 watchProc;. i
93c0: 6e 74 20 70 65 6e 64 69 6e 67 20 3d 20 30 3b 0a nt pending = 0;.
93d0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
93e0: 6c 6c 65 64 20 77 69 74 68 20 6d 61 73 6b 20 30 lled with mask 0
93f0: 78 25 30 32 78 20 61 6e 64 20 77 61 6e 74 20 30 x%02x and want 0
9400: 78 25 30 32 78 22 2c 20 6d 61 73 6b 2c 20 73 74 x%02x", mask, st
9410: 61 74 65 50 74 72 2d 3e 77 61 6e 74 29 3b 0a 20 atePtr->want);.
9420: 20 20 20 64 70 72 69 6e 74 46 6c 61 67 73 28 73 dprintFlags(s
9430: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 2f tatePtr);.. /
9440: 2a 20 41 62 6f 72 74 20 69 66 20 74 68 65 20 75 * Abort if the u
9450: 73 65 72 20 76 65 72 69 66 79 20 63 61 6c 6c 62 ser verify callb
9460: 61 63 6b 20 69 73 20 73 74 69 6c 6c 20 72 75 6e ack is still run
9470: 6e 69 6e 67 20 74 6f 20 61 76 6f 69 64 20 74 72 ning to avoid tr
9480: 69 67 67 65 72 69 6e 67 0a 20 20 20 20 20 2a 20 iggering. *
9490: 61 6e 6f 74 68 65 72 20 63 61 6c 6c 20 62 65 66 another call bef
94a0: 6f 72 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 ore the current
94b0: 6f 6e 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e one is complete.
94c0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
94d0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
94e0: 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 S_TCL_CALLBACK)
94f0: 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c {..dprintf("Call
9500: 62 61 63 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e 67 back is on-going
9510: 2c 20 64 6f 69 6e 67 20 6e 6f 74 68 69 6e 67 22 , doing nothing"
9520: 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 );..return;.
9530: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 68 }.. /* Get ch
9540: 61 6e 6e 65 6c 20 74 6f 20 6d 6f 6e 69 74 6f 72 annel to monitor
9550: 20 66 6f 72 20 65 76 65 6e 74 73 20 2a 2f 0a 20 for events */.
9560: 20 20 20 70 61 72 65 6e 74 20 3d 20 54 6c 73 5f parent = Tls_
9570: 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 GetParent(stateP
9580: 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 tr, TLS_TCL_FAST
9590: 50 41 54 48 29 3b 0a 20 20 20 20 64 70 72 69 6e PATH);. dprin
95a0: 74 66 28 22 50 61 72 65 6e 74 3a 20 63 68 61 6e tf("Parent: chan
95b0: 20 62 75 66 66 65 72 3d 25 64 2c 20 69 6e 70 75 buffer=%d, inpu
95c0: 74 20 62 75 66 66 65 72 3d 25 64 2c 20 6f 75 74 t buffer=%d, out
95d0: 70 75 74 20 62 75 66 66 65 72 3d 25 64 22 2c 20 put buffer=%d",
95e0: 5c 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 42 75 \..Tcl_ChannelBu
95f0: 66 66 65 72 65 64 28 70 61 72 65 6e 74 29 2c 20 ffered(parent),
9600: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
9610: 64 28 70 61 72 65 6e 74 29 2c 20 54 63 6c 5f 4f d(parent), Tcl_O
9620: 75 74 70 75 74 42 75 66 66 65 72 65 64 28 70 61 utputBuffered(pa
9630: 72 65 6e 74 29 29 3b 0a 0a 20 20 20 20 2f 2a 20 rent));.. /*
9640: 41 62 6f 72 74 20 69 66 20 63 6f 6e 6e 65 63 74 Abort if connect
9650: 20 66 61 69 6c 65 64 20 2a 2f 0a 20 20 20 20 69 failed */. i
9660: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
9670: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 46 41 54 gs & TLS_TCL_FAT
9680: 41 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 64 70 72 AL_ERROR) {..dpr
9690: 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 intf("Asked to w
96a0: 61 74 63 68 20 61 20 73 6f 63 6b 65 74 20 77 69 atch a socket wi
96b0: 74 68 20 61 20 66 61 69 6c 65 64 20 68 61 6e 64 th a failed hand
96c0: 73 68 61 6b 65 20 2d 2d 20 6e 6f 74 68 69 6e 67 shake -- nothing
96d0: 20 63 61 6e 20 68 61 70 70 65 6e 20 68 65 72 65 can happen here
96e0: 22 29 3b 0a 09 64 70 72 69 6e 74 66 28 22 55 6e ");..dprintf("Un
96f0: 72 65 67 69 73 74 65 72 69 6e 67 20 69 6e 74 65 registering inte
9700: 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 rest in the lowe
9710: 72 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 0a 09 77 r channel");...w
9720: 61 74 63 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 atchProc = Tcl_C
9730: 68 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 hannelWatchProc(
9740: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 Tcl_GetChannelTy
9750: 70 65 28 70 61 72 65 6e 74 29 29 3b 0a 09 77 61 pe(parent));..wa
9760: 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 tchProc(Tcl_GetC
9770: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
9780: 74 61 28 70 61 72 65 6e 74 29 2c 20 30 29 3b 0a ta(parent), 0);.
9790: 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 .statePtr->watch
97a0: 4d 61 73 6b 20 3d 20 30 3b 0a 09 72 65 74 75 72 Mask = 0;..retur
97b0: 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 n;. }.. st
97c0: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
97d0: 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f k = mask;.. /
97e0: 2a 0a 20 20 20 20 20 2a 20 4e 6f 20 63 68 61 6e *. * No chan
97f0: 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 61 6e 79 nel handlers any
9800: 20 6d 6f 72 65 2e 20 57 65 20 77 69 6c 6c 20 62 more. We will b
9810: 65 20 6e 6f 74 69 66 69 65 64 20 61 75 74 6f 6d e notified autom
9820: 61 74 69 63 61 6c 6c 79 20 61 62 6f 75 74 0a 20 atically about.
9830: 20 20 20 20 2a 20 65 76 65 6e 74 73 20 6f 6e 20 * events on
9840: 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f the channel belo
9850: 77 20 76 69 61 20 61 20 63 61 6c 6c 20 74 6f 20 w via a call to
9860: 6f 75 72 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f our 'TransformNo
9870: 74 69 66 79 50 72 6f 63 27 2e 20 42 75 74 0a 20 tifyProc'. But.
9880: 20 20 20 20 2a 20 77 65 20 68 61 76 65 20 74 6f * we have to
9890: 20 70 61 73 73 20 74 68 65 20 69 6e 74 65 72 65 pass the intere
98a0: 73 74 20 64 6f 77 6e 20 6e 6f 77 2e 20 57 65 20 st down now. We
98b0: 61 72 65 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 are allowed to a
98c0: 64 64 20 61 64 64 69 74 69 6f 6e 61 6c 0a 20 20 dd additional.
98d0: 20 20 20 2a 20 27 69 6e 74 65 72 65 73 74 27 20 * 'interest'
98e0: 74 6f 20 74 68 65 20 6d 61 73 6b 20 69 66 20 77 to the mask if w
98f0: 65 20 77 61 6e 74 20 74 6f 2c 20 62 75 74 20 74 e want to, but t
9900: 68 69 73 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 his transformati
9910: 6f 6e 20 68 61 73 20 6e 6f 0a 20 20 20 20 20 2a on has no. *
9920: 20 73 75 63 68 20 69 6e 74 65 72 65 73 74 2e 20 such interest.
9930: 49 74 20 6a 75 73 74 20 70 61 73 73 65 73 20 74 It just passes t
9940: 68 65 20 72 65 71 75 65 73 74 20 64 6f 77 6e 2c he request down,
9950: 20 75 6e 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 unchanged..
9960: 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 28 */. dprintf(
9970: 22 52 65 67 69 73 74 65 72 69 6e 67 20 6f 75 72 "Registering our
9980: 20 69 6e 74 65 72 65 73 74 20 69 6e 20 74 68 65 interest in the
9990: 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 lower channel (
99a0: 63 68 61 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 chan=%p)", (void
99b0: 20 2a 29 20 70 61 72 65 6e 74 29 3b 0a 20 20 20 *) parent);.
99c0: 20 77 61 74 63 68 50 72 6f 63 20 3d 20 54 63 6c watchProc = Tcl
99d0: 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f _ChannelWatchPro
99e0: 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c c(Tcl_GetChannel
99f0: 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a 20 Type(parent));.
9a00: 20 20 20 77 61 74 63 68 50 72 6f 63 28 54 63 6c watchProc(Tcl
9a10: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
9a20: 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c nceData(parent),
9a30: 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 mask);.. /*
9a40: 44 6f 20 77 65 20 68 61 76 65 20 61 6e 79 20 70 Do we have any p
9a50: 65 6e 64 69 6e 67 20 64 61 74 61 20 2a 2f 0a 20 ending data */.
9a60: 20 20 20 70 65 6e 64 69 6e 67 20 3d 20 28 73 74 pending = (st
9a70: 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 7c 7c 20 atePtr->want ||
9a80: 5c 0a 09 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f \..((mask & TCL_
9a90: 52 45 41 44 41 42 4c 45 29 20 26 26 20 28 28 54 READABLE) && ((T
9aa0: 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 cl_InputBuffered
9ab0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
9ac0: 20 3e 20 30 29 20 7c 7c 20 28 42 49 4f 5f 63 74 > 0) || (BIO_ct
9ad0: 72 6c 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 rl_pending(state
9ae0: 50 74 72 2d 3e 62 69 6f 29 20 3e 20 30 29 29 29 Ptr->bio) > 0)))
9af0: 20 7c 7c 0a 09 28 28 6d 61 73 6b 20 26 20 54 43 ||..((mask & TC
9b00: 4c 5f 57 52 49 54 41 42 4c 45 29 20 26 26 20 28 L_WRITABLE) && (
9b10: 28 54 63 6c 5f 4f 75 74 70 75 74 42 75 66 66 65 (Tcl_OutputBuffe
9b20: 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 red(statePtr->se
9b30: 6c 66 29 20 3e 20 30 29 20 7c 7c 20 28 42 49 4f lf) > 0) || (BIO
9b40: 5f 63 74 72 6c 5f 77 70 65 6e 64 69 6e 67 28 73 _ctrl_wpending(s
9b50: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 3e 20 tatePtr->bio) >
9b60: 30 29 29 29 29 3b 0a 0a 20 20 20 20 64 70 72 69 0))));.. dpri
9b70: 6e 74 66 28 22 49 4f 20 57 61 6e 74 3d 25 64 2c ntf("IO Want=%d,
9b80: 20 69 6e 70 75 74 20 62 75 66 66 65 72 3d 25 64 input buffer=%d
9b90: 2c 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 3d , output buffer=
9ba0: 25 64 2c 20 42 49 4f 20 70 65 6e 64 69 6e 67 3d %d, BIO pending=
9bb0: 25 7a 64 2c 20 42 49 4f 20 77 70 65 6e 64 69 6e %zd, BIO wpendin
9bc0: 67 3d 25 7a 64 2c 20 70 65 6e 64 69 6e 67 3d 25 g=%zd, pending=%
9bd0: 64 22 2c 20 5c 0a 09 73 74 61 74 65 50 74 72 2d d", \..statePtr-
9be0: 3e 77 61 6e 74 2c 20 54 63 6c 5f 49 6e 70 75 74 >want, Tcl_Input
9bf0: 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 Buffered(statePt
9c00: 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f 4f 75 r->self), Tcl_Ou
9c10: 74 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 tputBuffered(sta
9c20: 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 5c 0a tePtr->self), \.
9c30: 09 42 49 4f 5f 63 74 72 6c 5f 70 65 6e 64 69 6e .BIO_ctrl_pendin
9c40: 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 g(statePtr->bio)
9c50: 2c 20 42 49 4f 5f 63 74 72 6c 5f 77 70 65 6e 64 , BIO_ctrl_wpend
9c60: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ing(statePtr->bi
9c70: 6f 29 2c 20 70 65 6e 64 69 6e 67 29 3b 0a 0a 20 o), pending);..
9c80: 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 74 69 6d /* Remove tim
9c90: 65 72 2c 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 er, if any */.
9ca0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
9cb0: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 timer != (Tcl_Ti
9cc0: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 merToken) NULL)
9cd0: 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 20 74 69 {..dprintf("A ti
9ce0: 6d 65 72 20 77 61 73 20 66 6f 75 6e 64 2c 20 64 mer was found, d
9cf0: 65 6c 65 74 69 6e 67 20 69 74 22 29 3b 0a 09 54 eleting it");..T
9d00: 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 cl_DeleteTimerHa
9d10: 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e ndler(statePtr->
9d20: 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 timer);..statePt
9d30: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f r->timer = (Tcl_
9d40: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
9d50: 3b 0a 09 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 ;..Tcl_Release((
9d60: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
9d70: 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 ePtr);. }..
9d80: 20 20 2f 2a 20 41 64 64 20 74 69 6d 65 72 2c 20 /* Add timer,
9d90: 69 66 20 6e 6f 6e 65 20 2a 2f 0a 20 20 20 20 69 if none */. i
9da0: 66 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 f (mask & TCL_RE
9db0: 41 44 41 42 4c 45 29 20 7b 0a 09 64 70 72 69 6e ADABLE) {..dprin
9dc0: 74 66 28 22 43 72 65 61 74 69 6e 67 20 61 20 6e tf("Creating a n
9dd0: 65 77 20 74 69 6d 65 72 20 73 69 6e 63 65 20 64 ew timer since d
9de0: 61 74 61 20 61 70 70 65 61 72 73 20 74 6f 20 62 ata appears to b
9df0: 65 20 77 61 69 74 69 6e 67 22 29 3b 0a 09 54 63 e waiting");..Tc
9e00: 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 l_Preserve((Clie
9e10: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
9e20: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 );..statePtr->ti
9e30: 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 mer = Tcl_Create
9e40: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 54 4c 53 TimerHandler(TLS
9e50: 5f 54 43 4c 5f 44 45 4c 41 59 2c 20 54 6c 73 43 _TCL_DELAY, TlsC
9e60: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d hannelHandlerTim
9e70: 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 er, (ClientData)
9e80: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
9e90: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d }.}../*. *------
9ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ee0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
9ef0: 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d sGetHandleProc -
9f00: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f -. *. *.This pro
9f10: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
9f20: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
9f30: 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 72 65 74 IO level to ret
9f40: 72 69 65 76 65 20 61 6e 20 4f 53 0a 20 2a 09 73 rieve an OS. *.s
9f50: 70 65 63 69 66 69 63 20 68 61 6e 64 6c 65 20 61 pecific handle a
9f60: 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 ssociated with t
9f70: 68 65 20 63 68 61 6e 6e 65 6c 2e 20 4e 6f 74 20 he channel. Not
9f80: 75 73 65 64 20 66 6f 72 20 74 72 61 6e 73 66 6f used for transfo
9f90: 72 6d 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c rms.. *. * Resul
9fa0: 74 73 3a 0a 20 2a 09 54 68 65 20 61 70 70 72 6f ts:. *.The appro
9fb0: 70 72 69 61 74 65 20 54 63 6c 5f 46 69 6c 65 20 priate Tcl_File
9fc0: 68 61 6e 64 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 handle or NULL i
9fd0: 66 20 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 f None. *. * Sid
9fe0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
9ff0: 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ne. *. *--------
a000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a040: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
a050: 20 69 6e 74 20 54 6c 73 47 65 74 48 61 6e 64 6c int TlsGetHandl
a060: 65 50 72 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e eProc(. Clien
a070: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
a080: 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 ta,./* Socket st
a090: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 ate. */. int
a0a0: 64 69 72 65 63 74 69 6f 6e 2c 09 09 2f 2a 20 54 direction,../* T
a0b0: 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 54 CL_READABLE or T
a0c0: 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a 20 CL_WRITABLE */.
a0d0: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 ClientData *h
a0e0: 61 6e 64 6c 65 50 74 72 29 09 2f 2a 20 48 61 6e andlePtr)./* Han
a0f0: 64 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 dle associated w
a100: 69 74 68 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 ith the channel
a110: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a */.{. State *
a120: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
a130: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
a140: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
a150: 22 43 61 6c 6c 65 64 20 77 69 74 68 20 64 69 72 "Called with dir
a160: 65 63 74 69 6f 6e 20 30 78 25 30 32 78 22 2c 20 ection 0x%02x",
a170: 64 69 72 65 63 74 69 6f 6e 29 3b 0a 0a 20 20 20 direction);..
a180: 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 43 return Tcl_GetC
a190: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 hannelHandle(Tls
a1a0: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
a1b0: 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 Ptr, TLS_TCL_FAS
a1c0: 54 50 41 54 48 29 2c 0a 09 64 69 72 65 63 74 69 TPATH),..directi
a1d0: 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a on, handlePtr);.
a1e0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
a1f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a230: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4e -----. *. * TlsN
a240: 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a otifyProc --. *.
a250: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
a260: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 e is invoked by
a270: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
a280: 65 76 65 6c 20 74 6f 20 6e 6f 74 69 66 79 20 74 evel to notify t
a290: 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 74 68 he channel. *.th
a2a0: 61 74 20 61 6e 20 65 76 65 6e 74 20 68 61 73 20 at an event has
a2b0: 6f 63 63 75 72 72 65 64 20 6f 6e 20 74 68 65 20 occurred on the
a2c0: 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e underlying chann
a2d0: 65 6c 2e 20 49 74 20 69 73 20 75 73 65 64 20 62 el. It is used b
a2e0: 79 0a 20 2a 09 73 74 61 63 6b 65 64 20 63 68 61 y. *.stacked cha
a2f0: 6e 6e 65 6c 20 64 72 69 76 65 72 73 20 74 68 61 nnel drivers tha
a300: 74 20 77 69 73 68 20 74 6f 20 62 65 20 6e 6f 74 t wish to be not
a310: 69 66 69 65 64 20 6f 66 20 65 76 65 6e 74 73 20 ified of events
a320: 74 68 61 74 20 6f 63 63 75 72 0a 20 2a 09 6f 6e that occur. *.on
a330: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
a340: 28 73 74 61 63 6b 65 64 29 20 63 68 61 6e 6e 65 (stacked) channe
a350: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 l.. *. * Results
a360: 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 6d 61 73 :. *.Returns mas
a370: 6b 20 76 61 6c 75 65 20 74 6f 20 69 6e 64 69 63 k value to indic
a380: 61 74 65 20 6e 6f 6e 65 20 6f 66 20 74 68 65 20 ate none of the
a390: 65 76 65 6e 74 73 20 77 65 72 65 20 73 65 72 76 events were serv
a3a0: 69 63 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 iced.. *. * Side
a3b0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 effects:. *.May
a3c0: 20 63 61 6c 6c 20 54 6c 73 5f 57 61 69 74 46 6f call Tls_WaitFo
a3d0: 72 43 6f 6e 6e 65 63 74 20 61 6e 64 2f 6f 72 20 rConnect and/or
a3e0: 64 65 6c 65 74 65 20 74 69 6d 65 72 2e 0a 20 2a delete timer.. *
a3f0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
a400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a440: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
a450: 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 28 0a 20 TlsNotifyProc(.
a460: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e ClientData in
a470: 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 stanceData,./* S
a480: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
a490: 20 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 int mask)...
a4a0: 2f 2a 20 74 79 70 65 20 6f 66 20 65 76 65 6e 74 /* type of event
a4b0: 20 74 68 61 74 20 6f 63 63 75 72 72 65 64 3a 20 that occurred:
a4c0: 4f 52 2d 65 64 0a 09 09 09 09 20 2a 20 63 6f 6d OR-ed..... * com
a4d0: 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f bination of TCL_
a4e0: 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f READABLE or TCL_
a4f0: 57 52 49 54 41 42 4c 45 20 2a 2f 0a 7b 0a 20 20 WRITABLE */.{.
a500: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
a510: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
a520: 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 stanceData;.
a530: 69 6e 74 20 65 72 72 6f 72 43 6f 64 65 20 3d 20 int errorCode =
a540: 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 0;.. dprintf(
a550: 22 43 61 6c 6c 65 64 20 77 69 74 68 20 6d 61 73 "Called with mas
a560: 6b 20 30 78 25 30 32 78 22 2c 20 6d 61 73 6b 29 k 0x%02x", mask)
a570: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a ;.. /*. *
a580: 20 44 65 6c 65 74 65 20 61 6e 20 65 78 69 73 74 Delete an exist
a590: 69 6e 67 20 74 69 6d 65 72 2e 20 49 74 20 77 61 ing timer. It wa
a5a0: 73 20 6e 6f 74 20 66 69 72 65 64 2c 20 79 65 74 s not fired, yet
a5b0: 20 77 65 20 61 72 65 20 68 65 72 65 2c 20 73 6f we are here, so
a5c0: 20 74 68 65 0a 20 20 20 20 20 2a 20 62 65 6c 6f the. * belo
a5d0: 77 20 63 68 61 6e 6e 65 6c 20 67 65 6e 65 72 61 w channel genera
a5e0: 74 65 64 20 73 75 63 68 20 61 6e 20 65 76 65 6e ted such an even
a5f0: 74 20 61 6e 64 20 77 65 20 64 6f 6e 27 74 20 6e t and we don't n
a600: 65 65 64 20 74 6f 2e 20 54 68 65 20 72 65 6e 65 eed to. The rene
a610: 77 61 6c 0a 20 20 20 20 20 2a 20 6f 66 20 74 68 wal. * of th
a620: 65 20 69 6e 74 65 72 65 73 74 20 61 66 74 65 72 e interest after
a630: 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f the execution o
a640: 66 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 f channel handle
a650: 72 73 20 77 69 6c 6c 20 65 76 65 6e 74 75 61 6c rs will eventual
a660: 6c 79 0a 20 20 20 20 20 2a 20 63 61 75 73 65 20 ly. * cause
a670: 75 73 20 74 6f 20 72 65 63 72 65 61 74 65 20 74 us to recreate t
a680: 68 65 20 74 69 6d 65 72 20 28 69 6e 20 54 6c 73 he timer (in Tls
a690: 57 61 74 63 68 50 72 6f 63 29 2e 0a 20 20 20 20 WatchProc)..
a6a0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
a6b0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 ePtr->timer != (
a6c0: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
a6d0: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c NULL) {..Tcl_Del
a6e0: 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 eteTimerHandler(
a6f0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 statePtr->timer)
a700: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d ;..statePtr->tim
a710: 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 er = (Tcl_TimerT
a720: 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 09 54 63 6c oken) NULL;..Tcl
a730: 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 _Release((Client
a740: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
a750: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 . }.. /* A
a760: 62 6f 72 74 20 69 66 20 74 68 65 20 75 73 65 72 bort if the user
a770: 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b verify callback
a780: 20 69 73 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e is still runnin
a790: 67 20 74 6f 20 61 76 6f 69 64 20 74 72 69 67 67 g to avoid trigg
a7a0: 65 72 69 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f ering. * ano
a7b0: 74 68 65 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 ther call before
a7c0: 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 the current one
a7d0: 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f is complete. */
a7e0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
a7f0: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
a800: 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 CL_CALLBACK) {..
a810: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 dprintf("Callbac
a820: 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 72 k is on-going, r
a830: 65 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 eturning failed"
a840: 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 );..return 0;.
a850: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e }.. /* If n
a860: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 ot initialized,
a870: 64 6f 20 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 do connect */.
a880: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
a890: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
a8a0: 49 4e 49 54 29 20 7b 0a 09 69 6e 74 20 74 6c 73 INIT) {..int tls
a8b0: 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 70 72 69 6e Connect;...dprin
a8c0: 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f tf("Calling Tls_
a8d0: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 WaitForConnect")
a8e0: 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 63 74 20 3d ;...tlsConnect =
a8f0: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
a900: 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 65 ect(statePtr, &e
a910: 72 72 6f 72 43 6f 64 65 2c 20 31 29 3b 0a 09 69 rrorCode, 1);..i
a920: 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 f (tlsConnect <
a930: 31 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 1) {.. dprint
a940: 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 f("Got an error
a950: 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 waiting to conne
a960: 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d ct (tlsConnect =
a970: 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 %i, *errorCodeP
a980: 74 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f tr = %i)", tlsCo
a990: 6e 6e 65 63 74 2c 20 65 72 72 6f 72 43 6f 64 65 nnect, errorCode
a9a0: 29 3b 0a 09 20 20 20 20 69 66 20 28 65 72 72 6f );.. if (erro
a9b0: 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 29 rCode == EAGAIN)
a9c0: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 41 73 {...dprintf("As
a9d0: 79 6e 63 20 66 6c 61 67 20 63 6f 75 6c 64 20 62 ync flag could b
a9e0: 65 20 73 65 74 20 28 64 69 64 6e 27 74 20 63 68 e set (didn't ch
a9f0: 65 63 6b 29 20 61 6e 64 20 65 72 72 6f 72 43 6f eck) and errorCo
aa00: 64 65 20 3d 3d 20 45 41 47 41 49 4e 3a 20 20 52 de == EAGAIN: R
aa10: 65 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 eturning failed"
aa20: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 20 30 3b 0a );....return 0;.
aa30: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 64 70 72 . }... dpr
aa40: 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f intf("Tls_WaitFo
aa50: 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 rConnect returne
aa60: 64 20 61 6e 20 65 72 72 6f 72 22 29 3b 0a 09 7d d an error");..}
aa70: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 . }.. /*.
aa80: 20 20 20 20 2a 20 41 6e 20 65 76 65 6e 74 20 6f * An event o
aa90: 63 63 75 72 72 65 64 20 69 6e 20 74 68 65 20 75 ccurred in the u
aaa0: 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 nderlying channe
aab0: 6c 2e 20 54 68 69 73 20 74 72 61 6e 73 66 6f 72 l. This transfor
aac0: 6d 61 74 69 6f 6e 20 64 6f 65 73 6e 27 74 0a 20 mation doesn't.
aad0: 20 20 20 20 2a 20 70 72 6f 63 65 73 73 20 73 75 * process su
aae0: 63 68 20 65 76 65 6e 74 73 20 74 68 75 73 20 72 ch events thus r
aaf0: 65 74 75 72 6e 73 20 74 68 65 20 69 6e 63 6f 6d eturns the incom
ab00: 69 6e 67 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 ing mask unchang
ab10: 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 ed.. */.
ab20: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 dprintf("Returni
ab30: 6e 67 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 20 ng %i", mask);.
ab40: 20 20 20 72 65 74 75 72 6e 20 6d 61 73 6b 3b 0a return mask;.
ab50: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
ab60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aba0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
abb0: 43 68 61 6e 6e 65 6c 54 79 70 65 20 2d 2d 0a 20 ChannelType --.
abc0: 2a 0a 20 2a 09 44 65 66 69 6e 65 73 20 74 68 65 *. *.Defines the
abd0: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 64 72 69 TLS channel dri
abe0: 76 65 72 20 68 61 6e 64 6c 65 72 73 20 66 6f 72 ver handlers for
abf0: 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 20 74 79 this channel ty
ac00: 70 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 pe.. *. * Result
ac10: 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 61 20 s:. *.Returns a
ac20: 70 6f 69 6e 74 65 72 20 74 6f 20 54 63 6c 5f 43 pointer to Tcl_C
ac30: 68 61 6e 6e 65 6c 54 79 70 65 20 73 74 72 75 63 hannelType struc
ac40: 74 75 72 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 ture.. *. * Side
ac50: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
ac60: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
ac70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
acb0: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
acc0: 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 const Tcl_Channe
acd0: 6c 54 79 70 65 20 74 6c 73 43 68 61 6e 6e 65 6c lType tlsChannel
ace0: 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 74 6c Type = {. "tl
acf0: 73 22 2c 09 09 09 2f 2a 20 54 79 70 65 20 6e 61 s",.../* Type na
ad00: 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c 5f 43 48 me */. TCL_CH
ad10: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c ANNEL_VERSION_5,
ad20: 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 6c 20 2a ./* v5 channel *
ad30: 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 50 72 /. TlsClosePr
ad40: 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 oc,../* Close pr
ad50: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 49 6e 70 oc */. TlsInp
ad60: 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 utProc,../* Inpu
ad70: 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c t proc */. Tl
ad80: 73 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a sOutputProc,../*
ad90: 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a Output proc */.
ada0: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 NULL,.../* S
adb0: 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 eek proc */.
adc0: 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 TlsSetOptionProc
add0: 2c 09 09 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e ,../* Set option
ade0: 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 proc */. Tls
adf0: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 GetOptionProc,..
ae00: 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 /* Get option pr
ae10: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74 oc */. TlsWat
ae20: 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 chProc,../* Init
ae30: 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 20 ialize notifier
ae40: 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 48 61 6e */. TlsGetHan
ae50: 64 6c 65 50 72 6f 63 2c 09 09 2f 2a 20 47 65 74 dleProc,../* Get
ae60: 20 4f 53 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 OS handles out
ae70: 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 of channel */.
ae80: 20 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 2c TlsClose2Proc,
ae90: 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20 ../* close2proc
aea0: 2a 2f 0a 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d */. TlsBlockM
aeb0: 6f 64 65 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 odeProc,../* Set
aec0: 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f blocking/nonblo
aed0: 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 cking mode*/.
aee0: 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 73 NULL,.../* Flus
aef0: 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c h proc */. Tl
af00: 73 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a sNotifyProc,../*
af10: 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 Handling of eve
af20: 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 20 nts bubbling up
af30: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f */. NULL,.../
af40: 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f 63 * Wide seek proc
af50: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 */. NULL,...
af60: 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f 6e /* Thread action
af70: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f */. NULL.../
af80: 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b * Truncate */.};
af90: 0a 0a 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e ..const Tcl_Chan
afa0: 6e 65 6c 54 79 70 65 20 2a 54 6c 73 5f 43 68 61 nelType *Tls_Cha
afb0: 6e 6e 65 6c 54 79 70 65 28 76 6f 69 64 29 20 7b nnelType(void) {
afc0: 0a 20 20 20 20 72 65 74 75 72 6e 20 26 74 6c 73 . return &tls
afd0: 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 7d 0a ChannelType;.}.