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 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
0c30: 74 65 72 70 29 09 09 2f 2a 20 54 63 6c 20 69 6e terp)../* Tcl in
0c40: 74 65 72 70 72 65 74 65 72 20 74 6f 20 72 65 70 terpreter to rep
0c50: 6f 72 74 20 65 72 72 6f 72 73 20 74 6f 20 2a 2f ort errors to */
0c60: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
0c70: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
0c80: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
0c90: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
0ca0: 6c 6f 73 65 28 25 70 29 22 2c 20 28 76 6f 69 64 lose(%p)", (void
0cb0: 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a *) statePtr);..
0cc0: 20 20 20 20 2f 2a 20 53 65 6e 64 20 22 63 6c 6f /* Send "clo
0cd0: 73 65 20 6e 6f 74 69 66 79 22 20 73 68 75 74 64 se notify" shutd
0ce0: 6f 77 6e 20 6e 6f 74 69 66 69 63 61 74 69 6f 6e own notification
0cf0: 2e 20 57 69 6c 6c 20 72 65 74 75 72 6e 20 30 20 . Will return 0
0d00: 69 66 20 69 6e 20 70 72 6f 67 72 65 73 73 2c 0a if in progress,.
0d10: 09 61 6e 64 20 31 20 77 68 65 6e 20 63 6f 6d 70 .and 1 when comp
0d20: 6c 65 74 65 2e 20 4f 6e 6c 79 20 63 6c 6f 73 65 lete. Only close
0d30: 73 20 74 68 65 20 77 72 69 74 65 20 64 69 72 65 s the write dire
0d40: 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e ction of the con
0d50: 6e 65 63 74 69 6f 6e 3b 0a 09 74 68 65 20 72 65 nection;..the re
0d60: 61 64 20 64 69 72 65 63 74 69 6f 6e 20 69 73 20 ad direction is
0d70: 63 6c 6f 73 65 64 20 62 79 20 74 68 65 20 70 65 closed by the pe
0d80: 65 72 2e 20 44 6f 65 73 20 6e 6f 74 20 61 66 66 er. Does not aff
0d90: 65 63 74 20 74 68 65 20 73 6f 63 6b 65 74 20 0a ect the socket .
0da0: 09 73 74 61 74 65 2e 20 44 6f 6e 27 74 20 63 61 .state. Don't ca
0db0: 6c 6c 20 61 66 74 65 72 20 66 61 74 61 6c 20 65 ll after fatal e
0dc0: 72 72 6f 72 2e 20 2a 2f 0a 20 20 20 20 69 66 20 rror. */. if
0dd0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 21 (statePtr->ssl !
0de0: 3d 20 4e 55 4c 4c 20 26 26 20 21 28 73 74 61 74 = NULL && !(stat
0df0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
0e00: 53 5f 54 43 4c 5f 49 4e 49 54 29 20 26 26 0a 09 S_TCL_INIT) &&..
0e10: 20 20 20 20 21 28 73 74 61 74 65 50 74 72 2d 3e !(statePtr->
0e20: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
0e30: 46 41 54 41 4c 5f 45 52 52 4f 52 29 29 20 7b 0a FATAL_ERROR)) {.
0e40: 09 42 49 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 .BIO_flush(state
0e50: 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 53 53 4c 5f Ptr->bio);..SSL_
0e60: 73 68 75 74 64 6f 77 6e 28 73 74 61 74 65 50 74 shutdown(statePt
0e70: 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 0a 0a r->ssl);. }..
0e80: 20 20 20 20 2f 2a 20 54 6c 73 5f 46 72 65 65 20 /* Tls_Free
0e90: 63 61 6c 6c 73 20 54 6c 73 5f 43 6c 65 61 6e 20 calls Tls_Clean
0ea0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 45 76 65 6e 74 */. Tcl_Event
0eb0: 75 61 6c 6c 79 46 72 65 65 28 28 43 6c 69 65 6e uallyFree((Clien
0ec0: 74 44 61 74 61 29 73 74 61 74 65 50 74 72 2c 20 tData)statePtr,
0ed0: 54 6c 73 5f 46 72 65 65 29 3b 0a 20 20 20 20 72 Tls_Free);. r
0ee0: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 eturn 0;.}../*.
0ef0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
0f40: 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73 65 32 50 72 *. * TlsClose2Pr
0f50: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 69 6d 69 oc --. *. *.Simi
0f60: 6c 61 72 20 74 6f 20 54 6c 73 43 6c 6f 73 65 50 lar to TlsCloseP
0f70: 72 6f 63 2c 20 62 75 74 20 61 6c 6c 6f 77 73 20 roc, but allows
0f80: 66 6f 72 20 73 65 70 61 72 61 74 65 20 63 6c 6f for separate clo
0f90: 73 65 20 6f 66 20 74 68 65 20 72 65 61 64 20 6f se of the read o
0fa0: 72 0a 20 2a 09 77 72 69 74 65 20 73 69 64 65 20 r. *.write side
0fb0: 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 20 of the channel.
0fc0: 57 65 20 64 6f 6e 27 74 20 73 75 70 70 6f 72 74 We don't support
0fd0: 20 74 68 65 73 65 20 73 69 6e 63 65 20 54 4c 53 these since TLS
0fe0: 20 69 73 20 61 0a 20 2a 09 62 69 2d 64 69 72 65 is a. *.bi-dire
0ff0: 63 74 69 6f 6e 61 6c 20 70 72 6f 74 6f 63 6f 6c ctional protocol
1000: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
1010: 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 . *.0 if success
1020: 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 ful or POSIX err
1030: 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 or code if faile
1040: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
1050: 66 65 63 74 73 3a 0a 20 2a 09 43 6c 6f 73 65 73 fects:. *.Closes
1060: 20 74 68 65 20 73 6f 63 6b 65 74 20 66 6f 72 20 the socket for
1070: 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a the channel.. *.
1080: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
10d0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 */.static int T
10e0: 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 0a 20 20 lsClose2Proc(.
10f0: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 ClientData ins
1100: 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 43 6f tanceData,./* Co
1110: 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 nnection state i
1120: 6e 66 6f 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 nfo */. Tcl_I
1130: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 nterp *interp,..
1140: 2f 2a 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 /* Tcl interpret
1150: 65 72 20 74 6f 20 72 65 70 6f 72 74 20 65 72 72 er to report err
1160: 6f 72 73 20 74 6f 20 2a 2f 0a 20 20 20 20 69 6e ors to */. in
1170: 74 20 66 6c 61 67 73 29 09 09 09 2f 2a 20 46 6c t flags).../* Fl
1180: 61 67 73 20 74 6f 20 63 6c 6f 73 65 20 72 65 61 ags to close rea
1190: 64 2f 77 72 69 74 65 20 73 69 64 65 20 6f 66 20 d/write side of
11a0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b 0a 20 20 20 channel */.{.
11b0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
11c0: 20 77 69 74 68 20 66 6c 61 67 73 20 25 64 22 2c with flags %d",
11d0: 20 66 6c 61 67 73 29 3b 0a 0a 20 20 20 20 69 66 flags);.. if
11e0: 20 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f ((flags & (TCL_
11f0: 43 4c 4f 53 45 5f 52 45 41 44 7c 54 43 4c 5f 43 CLOSE_READ|TCL_C
1200: 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d 20 LOSE_WRITE)) ==
1210: 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 6c 73 0) {..return Tls
1220: 43 6c 6f 73 65 50 72 6f 63 28 69 6e 73 74 61 6e CloseProc(instan
1230: 63 65 44 61 74 61 2c 20 69 6e 74 65 72 70 29 3b ceData, interp);
1240: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
1250: 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a n EINVAL;.}../*.
1260: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
12b0: 20 2a 0a 20 2a 20 54 6c 73 5f 57 61 69 74 46 6f *. * Tls_WaitFo
12c0: 72 43 6f 6e 6e 65 63 74 20 2d 2d 0a 20 2a 0a 20 rConnect --. *.
12d0: 2a 09 50 65 72 66 6f 72 6d 20 63 6f 6e 6e 65 63 *.Perform connec
12e0: 74 20 28 63 6c 69 65 6e 74 29 20 6f 72 20 61 63 t (client) or ac
12f0: 63 65 70 74 20 28 73 65 72 76 65 72 29 20 66 75 cept (server) fu
1300: 6e 63 74 69 6f 6e 2e 20 41 6c 73 6f 20 70 65 72 nction. Also per
1310: 66 6f 72 6d 73 0a 20 2a 09 65 71 75 69 76 61 6c forms. *.equival
1320: 65 6e 74 20 6f 66 20 68 61 6e 64 73 68 61 6b 65 ent of handshake
1330: 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a function.. *. *
1340: 20 52 65 73 75 6c 74 3a 0a 20 2a 09 31 20 69 66 Result:. *.1 if
1350: 20 73 75 63 63 65 73 73 66 75 6c 2c 20 30 20 69 successful, 0 i
1360: 66 20 77 61 69 74 69 6e 67 20 66 6f 72 20 63 6f f waiting for co
1370: 6e 6e 65 63 74 2c 20 61 6e 64 20 2d 31 20 69 66 nnect, and -1 if
1380: 20 66 61 69 6c 65 64 2e 20 53 65 74 73 0a 20 2a failed. Sets. *
1390: 09 65 72 72 6f 72 43 6f 64 65 50 74 72 20 74 6f .errorCodePtr to
13a0: 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 a POSIX error c
13b0: 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 ode if an error
13c0: 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 30 20 69 occurred, or 0 i
13d0: 66 20 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 f not.. *. * Sid
13e0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 50 65 e effects:. *.Pe
13f0: 72 66 6f 72 6d 73 20 53 53 4c 5f 61 63 63 65 70 rforms SSL_accep
1400: 74 20 6f 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 t or SSL_connect
1410: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
1420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1460: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 ----. */.int Tls
1470: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 _WaitForConnect(
1480: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
1490: 65 50 74 72 2c 09 09 09 2f 2a 20 43 6f 6e 6e 65 ePtr,.../* Conne
14a0: 63 74 69 6f 6e 20 73 74 61 74 65 20 69 6e 66 6f ction state info
14b0: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 2a 65 72 72 */. int *err
14c0: 6f 72 43 6f 64 65 50 74 72 2c 09 09 09 2f 2a 20 orCodePtr,.../*
14d0: 53 74 6f 72 61 67 65 20 66 6f 72 20 65 72 72 6f Storage for erro
14e0: 72 20 63 6f 64 65 20 74 6f 20 72 65 74 75 72 6e r code to return
14f0: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 68 61 6e 64 */. int hand
1500: 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 shakeFailureIsPe
1510: 72 6d 61 6e 65 6e 74 29 09 2f 2a 20 49 73 20 74 rmanent)./* Is t
1520: 68 65 20 63 6f 6e 6e 65 63 74 20 66 61 69 6c 75 he connect failu
1530: 72 65 20 70 65 72 6d 61 6e 65 6e 74 20 2a 2f 0a re permanent */.
1540: 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c {. unsigned l
1550: 6f 6e 67 20 65 72 72 3b 0a 20 20 20 20 69 6e 74 ong err;. int
1560: 20 72 65 74 2c 20 72 63 2c 20 72 65 61 73 6f 6e ret, rc, reason
1570: 2c 20 69 73 5f 66 61 74 61 6c 2c 20 62 69 6f 53 , is_fatal, bioS
1580: 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 6f 5f 65 houldRetry, io_e
1590: 72 72 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f rr;. *errorCo
15a0: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 dePtr = 0;..
15b0: 64 70 72 69 6e 74 66 28 22 57 61 69 74 46 6f 72 dprintf("WaitFor
15c0: 43 6f 6e 6e 65 63 74 28 25 70 29 22 2c 20 28 76 Connect(%p)", (v
15d0: 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 29 oid *) statePtr)
15e0: 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 ;. dprintf("C
15f0: 61 6c 6c 65 64 20 77 69 74 68 20 68 61 6e 64 73 alled with hands
1600: 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 72 hakeFailureIsPer
1610: 6d 61 6e 65 6e 74 20 25 64 22 2c 20 68 61 6e 64 manent %d", hand
1620: 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 shakeFailureIsPe
1630: 72 6d 61 6e 65 6e 74 29 3b 0a 20 20 20 20 64 70 rmanent);. dp
1640: 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65 50 rintFlags(stateP
1650: 74 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e tr);.. /* Can
1660: 20 61 6c 73 6f 20 63 68 65 63 6b 20 53 53 4c 5f also check SSL_
1670: 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 is_init_finished
1680: 28 73 73 6c 29 20 2a 2f 0a 20 20 20 20 69 66 20 (ssl) */. if
1690: 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 (!(statePtr->fla
16a0: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 gs & TLS_TCL_INI
16b0: 54 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 T)) {..dprintf("
16c0: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
16d0: 63 74 20 63 61 6c 6c 65 64 20 6f 6e 20 61 6c 72 ct called on alr
16e0: 65 61 64 79 20 69 6e 69 74 69 61 6c 69 7a 65 64 eady initialized
16f0: 20 63 68 61 6e 6e 65 6c 20 2d 2d 20 72 65 74 75 channel -- retu
1700: 72 6e 69 6e 67 20 77 69 74 68 20 69 6d 6d 65 64 rning with immed
1710: 69 61 74 65 20 73 75 63 63 65 73 73 22 29 3b 0a iate success");.
1720: 09 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d .return 1;. }
1730: 0a 0a 20 20 20 20 2f 2a 20 44 69 66 66 65 72 65 .. /* Differe
1740: 6e 74 20 74 79 70 65 73 20 6f 66 20 6f 70 65 72 nt types of oper
1750: 61 74 69 6f 6e 73 20 68 61 76 65 20 64 69 66 66 ations have diff
1760: 65 72 65 6e 74 20 72 65 71 75 69 72 65 6d 65 6e erent requiremen
1770: 74 73 20 66 6f 72 20 53 53 4c 20 62 65 69 6e 67 ts for SSL being
1780: 20 65 73 74 61 62 6c 69 73 68 65 64 2e 20 2a 2f established. */
1790: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
17a0: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
17b0: 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 29 20 CL_FATAL_ERROR)
17c0: 7b 0a 09 69 66 20 28 68 61 6e 64 73 68 61 6b 65 {..if (handshake
17d0: 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 FailureIsPermane
17e0: 6e 74 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e nt) {.. dprin
17f0: 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 69 tf("Asked to wai
1800: 74 20 66 6f 72 20 61 20 54 4c 53 20 68 61 6e 64 t for a TLS hand
1810: 73 68 61 6b 65 20 74 68 61 74 20 68 61 73 20 61 shake that has a
1820: 6c 72 65 61 64 79 20 66 61 69 6c 65 64 2e 20 20 lready failed.
1830: 52 65 74 75 72 6e 69 6e 67 20 66 61 74 61 6c 20 Returning fatal
1840: 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 2a 65 error");.. *e
1850: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 rrorCodePtr = EC
1860: 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 7d 20 65 ONNABORTED;..} e
1870: 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e lse {.. dprin
1880: 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 69 tf("Asked to wai
1890: 74 20 66 6f 72 20 61 20 54 4c 53 20 68 61 6e 64 t for a TLS hand
18a0: 73 68 61 6b 65 20 74 68 61 74 20 68 61 73 20 61 shake that has a
18b0: 6c 72 65 61 64 79 20 66 61 69 6c 65 64 2e 20 20 lready failed.
18c0: 52 65 74 75 72 6e 69 6e 67 20 73 6f 66 74 20 65 Returning soft e
18d0: 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 2a 65 72 rror");.. *er
18e0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
18f0: 4e 4e 52 45 53 45 54 3b 0a 09 7d 0a 09 72 65 74 NNRESET;..}..ret
1900: 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a 20 urn -1;. }..
1910: 20 20 20 66 6f 72 20 28 3b 3b 29 20 7b 0a 09 54 for (;;) {..T
1920: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 30 29 3b 0a cl_SetErrno(0);.
1930: 09 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 .ERR_clear_error
1940: 28 29 3b 0a 09 42 49 4f 5f 63 6c 65 61 72 5f 72 ();..BIO_clear_r
1950: 65 74 72 79 5f 66 6c 61 67 73 28 73 74 61 74 65 etry_flags(state
1960: 50 74 72 2d 3e 62 69 6f 29 3b 0a 0a 09 2f 2a 20 Ptr->bio);.../*
1970: 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 Not initialized
1980: 79 65 74 21 20 41 6c 73 6f 20 63 61 6c 6c 73 20 yet! Also calls
1990: 53 53 4c 5f 64 6f 5f 68 61 6e 64 73 68 61 6b 65 SSL_do_handshake
19a0: 28 29 2e 20 2a 2f 0a 09 69 66 20 28 73 74 61 74 (). */..if (stat
19b0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
19c0: 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a S_TCL_SERVER) {.
19d0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
19e0: 6c 6c 69 6e 67 20 53 53 4c 5f 61 63 63 65 70 74 lling SSL_accept
19f0: 28 29 22 29 3b 0a 09 20 20 20 20 72 65 74 20 3d ()");.. ret =
1a00: 20 53 53 4c 5f 61 63 63 65 70 74 28 73 74 61 74 SSL_accept(stat
1a10: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 0a 09 7d 20 ePtr->ssl);...}
1a20: 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 else {.. dpri
1a30: 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 53 4c ntf("Calling SSL
1a40: 5f 63 6f 6e 6e 65 63 74 28 29 22 29 3b 0a 09 20 _connect()");..
1a50: 20 20 20 72 65 74 20 3d 20 53 53 4c 5f 63 6f 6e ret = SSL_con
1a60: 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d 3e 73 nect(statePtr->s
1a70: 73 6c 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 31 3d 73 sl);..}.../* 1=s
1a80: 75 63 63 65 73 73 66 75 6c 2c 20 30 3d 6e 6f 74 uccessful, 0=not
1a90: 20 73 75 63 63 65 73 73 66 75 6c 20 61 6e 64 20 successful and
1aa0: 73 68 75 74 20 64 6f 77 6e 2c 20 3c 30 3d 66 61 shut down, <0=fa
1ab0: 74 61 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 69 66 tal error */..if
1ac0: 20 28 72 65 74 20 3e 20 30 29 20 7b 0a 09 20 20 (ret > 0) {..
1ad0: 20 20 64 70 72 69 6e 74 66 28 22 41 63 63 65 70 dprintf("Accep
1ae0: 74 20 6f 72 20 63 6f 6e 6e 65 63 74 20 77 61 73 t or connect was
1af0: 20 73 75 63 63 65 73 73 66 75 6c 22 29 3b 0a 0a successful");..
1b00: 09 20 20 20 20 69 66 20 28 42 49 4f 5f 66 6c 75 . if (BIO_flu
1b10: 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f sh(statePtr->bio
1b20: 29 20 3c 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 ) <= 0) {...dpri
1b30: 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 20 74 68 ntf("Flushing th
1b40: 65 20 6c 6f 77 65 72 20 6c 61 79 65 72 73 20 66 e lower layers f
1b50: 61 69 6c 65 64 2c 20 74 68 69 73 20 77 69 6c 6c ailed, this will
1b60: 20 70 72 6f 62 61 62 6c 79 20 74 65 72 6d 69 6e probably termin
1b70: 61 74 65 20 74 68 69 73 20 73 65 73 73 69 6f 6e ate this session
1b80: 22 29 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c ");.. }..} el
1b90: 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 se {.. dprint
1ba0: 66 28 22 41 63 63 65 70 74 20 6f 72 20 63 6f 6e f("Accept or con
1bb0: 6e 65 63 74 20 66 61 69 6c 65 64 22 29 3b 0a 09 nect failed");..
1bc0: 7d 0a 0a 09 2f 2a 20 53 61 6d 65 20 61 73 20 53 }.../* Same as S
1bd0: 53 4c 5f 77 61 6e 74 2c 20 62 75 74 20 61 6c 73 SL_want, but als
1be0: 6f 20 63 68 65 63 6b 73 20 74 68 65 20 65 72 72 o checks the err
1bf0: 6f 72 20 71 75 65 75 65 20 2a 2f 0a 09 72 63 20 or queue */..rc
1c00: 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 = SSL_get_error(
1c10: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 72 statePtr->ssl, r
1c20: 65 74 29 3b 0a 09 65 72 72 20 3d 20 45 52 52 5f et);..err = ERR_
1c30: 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a 09 72 65 get_error();..re
1c40: 61 73 6f 6e 20 3d 20 45 52 52 5f 47 45 54 5f 52 ason = ERR_GET_R
1c50: 45 41 53 4f 4e 28 65 72 72 29 3b 0a 09 69 73 5f EASON(err);..is_
1c60: 66 61 74 61 6c 20 3d 20 45 52 52 5f 46 41 54 41 fatal = ERR_FATA
1c70: 4c 5f 45 52 52 4f 52 28 65 72 72 29 3b 0a 09 2f L_ERROR(err);../
1c80: 2a 20 54 68 65 20 72 65 74 72 79 20 66 6c 61 67 * The retry flag
1c90: 20 69 73 20 73 65 74 20 62 79 20 74 68 65 20 42 is set by the B
1ca0: 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 2a 20 66 IO_set_retry_* f
1cb0: 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 09 62 69 6f unctions */..bio
1cc0: 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 42 49 ShouldRetry = BI
1cd0: 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 O_should_retry(s
1ce0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 tatePtr->bio);..
1cf0: 69 6f 5f 65 72 72 20 3d 20 54 63 6c 5f 47 65 74 io_err = Tcl_Get
1d00: 45 72 72 6e 6f 28 29 3b 0a 09 64 70 72 69 6e 74 Errno();..dprint
1d10: 66 28 22 43 6f 6e 6e 65 63 74 3a 20 72 65 74 3d f("Connect: ret=
1d20: 25 64 2c 20 72 63 3d 25 64 2c 20 65 72 72 3d 25 %d, rc=%d, err=%
1d30: 6c 64 2c 20 72 65 61 73 6f 6e 3d 25 64 2c 20 69 ld, reason=%d, i
1d40: 73 5f 66 61 74 61 6c 3d 25 64 2c 20 6c 69 62 3d s_fatal=%d, lib=
1d50: 25 73 2c 20 6d 73 67 3d 25 73 2c 20 62 69 6f 53 %s, msg=%s, bioS
1d60: 68 6f 75 6c 64 52 65 74 72 79 3d 25 64 2c 20 65 houldRetry=%d, e
1d70: 72 72 6e 6f 3d 25 64 2c 20 69 64 3d 25 73 2c 20 rrno=%d, id=%s,
1d80: 6d 73 67 3d 25 73 22 2c 20 5c 0a 09 20 20 20 20 msg=%s", \..
1d90: 72 65 74 2c 20 72 63 2c 20 65 72 72 2c 20 72 65 ret, rc, err, re
1da0: 61 73 6f 6e 2c 20 69 73 5f 66 61 74 61 6c 2c 20 ason, is_fatal,
1db0: 45 52 52 5f 6c 69 62 5f 65 72 72 6f 72 5f 73 74 ERR_lib_error_st
1dc0: 72 69 6e 67 28 65 72 72 29 2c 20 45 52 52 5f 72 ring(err), ERR_r
1dd0: 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 eason_error_stri
1de0: 6e 67 28 65 72 72 29 2c 20 62 69 6f 53 68 6f 75 ng(err), bioShou
1df0: 6c 64 52 65 74 72 79 2c 20 69 6f 5f 65 72 72 2c ldRetry, io_err,
1e00: 20 54 63 6c 5f 45 72 72 6e 6f 49 64 28 29 2c 20 Tcl_ErrnoId(),
1e10: 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 69 6f 5f Tcl_ErrnoMsg(io_
1e20: 65 72 72 29 29 3b 0a 0a 09 69 66 20 28 72 65 74 err));...if (ret
1e30: 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 69 66 <= 0) {.. if
1e40: 20 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f (rc == SSL_ERRO
1e50: 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 20 7c R_WANT_CONNECT |
1e60: 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f | rc == SSL_ERRO
1e70: 52 5f 57 41 4e 54 5f 41 43 43 45 50 54 29 20 7b R_WANT_ACCEPT) {
1e80: 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 ...bioShouldRetr
1e90: 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d 20 65 6c y = 1;.. } el
1ea0: 73 65 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c se if (rc == SSL
1eb0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 _ERROR_WANT_READ
1ec0: 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 ) {...bioShouldR
1ed0: 65 74 72 79 20 3d 20 31 3b 0a 09 09 73 74 61 74 etry = 1;...stat
1ee0: 65 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 ePtr->want |= TC
1ef0: 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 09 20 20 20 L_READABLE;..
1f00: 20 7d 20 65 6c 73 65 20 69 66 20 28 72 63 20 3d } else if (rc =
1f10: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 = SSL_ERROR_WANT
1f20: 5f 57 52 49 54 45 29 20 7b 0a 09 09 62 69 6f 53 _WRITE) {...bioS
1f30: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a houldRetry = 1;.
1f40: 09 09 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 ..statePtr->want
1f50: 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 |= TCL_WRITABLE
1f60: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 69 66 ;.. }..}...if
1f70: 20 28 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 (bioShouldRetry
1f80: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
1f90: 28 22 54 68 65 20 49 2f 4f 20 64 69 64 20 6e 6f ("The I/O did no
1fa0: 74 20 63 6f 6d 70 6c 65 74 65 20 2d 2d 20 62 75 t complete -- bu
1fb0: 74 20 77 65 20 73 68 6f 75 6c 64 20 74 72 79 20 t we should try
1fc0: 69 74 20 61 67 61 69 6e 22 29 3b 0a 0a 09 20 20 it again");...
1fd0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
1fe0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
1ff0: 41 53 59 4e 43 29 20 7b 0a 09 09 64 70 72 69 6e ASYNC) {...dprin
2000: 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 45 41 tf("Returning EA
2010: 47 41 49 4e 20 73 6f 20 74 68 61 74 20 69 74 20 GAIN so that it
2020: 63 61 6e 20 62 65 20 72 65 74 72 69 65 64 20 6c can be retried l
2030: 61 74 65 72 22 29 3b 0a 09 09 2a 65 72 72 6f 72 ater");...*error
2040: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
2050: 3b 0a 09 09 72 65 74 75 72 6e 20 30 3b 0a 09 20 ;...return 0;..
2060: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 } else {...dp
2070: 72 69 6e 74 66 28 22 44 6f 69 6e 67 20 73 6f 20 rintf("Doing so
2080: 6e 6f 77 22 29 3b 0a 09 09 63 6f 6e 74 69 6e 75 now");...continu
2090: 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 64 e;.. }..}...d
20a0: 70 72 69 6e 74 66 28 22 57 65 20 68 61 76 65 20 printf("We have
20b0: 65 69 74 68 65 72 20 63 6f 6d 70 6c 65 74 65 6c either completel
20c0: 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 74 68 y established th
20d0: 65 20 73 65 73 73 69 6f 6e 20 6f 72 20 63 6f 6d e session or com
20e0: 70 6c 65 74 65 6c 79 20 66 61 69 6c 65 64 20 69 pletely failed i
20f0: 74 20 2d 2d 20 74 68 65 72 65 20 69 73 20 6e 6f t -- there is no
2100: 20 6d 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 76 more need to ev
2110: 65 72 20 72 65 74 72 79 20 69 74 20 74 68 6f 75 er retry it thou
2120: 67 68 22 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 gh");..break;.
2130: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 42 61 73 65 }.. /* Base
2140: 64 20 6f 6e 20 65 72 72 6f 72 2c 20 64 6f 20 72 d on error, do r
2150: 65 74 72 79 20 6f 72 20 61 62 6f 72 74 20 2a 2f etry or abort */
2160: 0a 20 20 20 20 73 77 69 74 63 68 20 28 72 63 29 . switch (rc)
2170: 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 {..case SSL_ERR
2180: 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 2f 2a OR_NONE:.. /*
2190: 20 54 68 65 20 54 4c 53 2f 53 53 4c 20 49 2f 4f The TLS/SSL I/O
21a0: 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6d 70 6c operation compl
21b0: 65 74 65 64 20 73 75 63 63 65 73 73 66 75 6c 6c eted successfull
21c0: 79 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 y */.. dprint
21d0: 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e f("SSL_ERROR_NON
21e0: 45 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 E");.. *error
21f0: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 CodePtr = 0;..
2200: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
2210: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 SSL_ERROR_SSL:..
2220: 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 /* A non-rec
2230: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
2240: 65 72 72 6f 72 20 69 6e 20 74 68 65 20 53 53 4c error in the SSL
2250: 20 6c 69 62 72 61 72 79 20 6f 63 63 75 72 72 65 library occurre
2260: 64 2c 0a 09 20 20 20 20 20 20 20 75 73 75 61 6c d,.. usual
2270: 6c 79 20 61 20 70 72 6f 74 6f 63 6f 6c 20 65 72 ly a protocol er
2280: 72 6f 72 2e 20 54 68 69 73 20 69 6e 63 6c 75 64 ror. This includ
2290: 65 73 20 63 65 72 74 69 66 69 63 61 74 65 20 76 es certificate v
22a0: 61 6c 69 64 61 74 69 6f 6e 0a 09 20 20 20 20 20 alidation..
22b0: 20 20 65 72 72 6f 72 73 2e 20 2a 2f 0a 09 20 20 errors. */..
22c0: 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 dprintf("SSL_E
22d0: 52 52 4f 52 5f 53 53 4c 3a 20 46 61 74 61 6c 20 RROR_SSL: Fatal
22e0: 53 53 4c 20 70 72 6f 74 6f 63 6f 6c 20 65 72 72 SSL protocol err
22f0: 6f 72 20 6f 63 63 75 72 72 65 64 22 29 3b 0a 09 or occurred");..
2300: 20 20 20 20 69 66 20 28 53 53 4c 5f 67 65 74 5f if (SSL_get_
2310: 76 65 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 verify_result(st
2320: 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 21 3d 20 atePtr->ssl) !=
2330: 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 54 X509_V_OK) {...T
2340: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2350: 72 2c 0a 09 09 20 20 20 20 58 35 30 39 5f 76 65 r,... X509_ve
2360: 72 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f rify_cert_error_
2370: 73 74 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 string(SSL_get_v
2380: 65 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 erify_result(sta
2390: 74 65 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 tePtr->ssl)));..
23a0: 20 20 20 20 7d 0a 09 20 20 20 20 69 66 20 28 65 }.. if (e
23b0: 72 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c 73 rr != 0) {...Tls
23c0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
23d0: 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f ERR_reason_erro
23e0: 72 5f 73 74 72 69 6e 67 28 65 72 72 29 29 3b 0a r_string(err));.
23f0: 09 20 20 20 20 7d 0a 09 20 20 20 20 2a 65 72 72 . }.. *err
2400: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
2410: 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 73 NABORTED;.. s
2420: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
2430: 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f = TLS_TCL_FATAL_
2440: 45 52 52 4f 52 3b 0a 09 20 20 20 20 73 74 61 74 ERROR;.. stat
2450: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
2460: 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 LS_TCL_EOF;..
2470: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 return -1;...ca
2480: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
2490: 54 5f 52 45 41 44 3a 0a 09 20 20 20 20 2f 2a 20 T_READ:.. /*
24a0: 4d 6f 72 65 20 64 61 74 61 20 6d 75 73 74 20 62 More data must b
24b0: 65 20 72 65 61 64 20 66 72 6f 6d 20 74 68 65 20 e read from the
24c0: 75 6e 64 65 72 6c 79 69 6e 67 20 42 49 4f 20 6c underlying BIO l
24d0: 61 79 65 72 20 69 6e 20 6f 72 64 65 72 20 74 6f ayer in order to
24e0: 0a 09 20 20 20 20 20 20 20 63 6f 6d 70 6c 65 74 .. complet
24f0: 65 20 74 68 65 20 61 63 74 75 61 6c 20 53 53 4c e the actual SSL
2500: 5f 2a 28 29 20 6f 70 65 72 61 74 69 6f 6e 2e 20 _*() operation.
2510: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
2520: 28 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 ("SSL_ERROR_WANT
2530: 5f 52 45 41 44 3a 20 45 41 47 41 49 4e 22 29 3b _READ: EAGAIN");
2540: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
2550: 74 72 79 5f 72 65 61 64 28 73 74 61 74 65 50 74 try_read(statePt
2560: 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 2a 65 r->bio);.. *e
2570: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
2580: 47 41 49 4e 3b 0a 09 20 20 20 20 73 74 61 74 65 GAIN;.. state
2590: 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c Ptr->want |= TCL
25a0: 5f 52 45 41 44 41 42 4c 45 3b 0a 09 20 20 20 20 _READABLE;..
25b0: 72 65 74 75 72 6e 20 30 3b 0a 0a 09 63 61 73 65 return 0;...case
25c0: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
25d0: 57 52 49 54 45 3a 0a 09 20 20 20 20 2f 2a 20 54 WRITE:.. /* T
25e0: 68 65 72 65 20 69 73 20 64 61 74 61 20 69 6e 20 here is data in
25f0: 74 68 65 20 53 53 4c 20 62 75 66 66 65 72 20 74 the SSL buffer t
2600: 68 61 74 20 6d 75 73 74 20 62 65 20 77 72 69 74 hat must be writ
2610: 74 65 6e 20 74 6f 20 74 68 65 0a 09 20 20 20 20 ten to the..
2620: 20 20 20 75 6e 64 65 72 6c 79 69 6e 67 20 42 49 underlying BI
2630: 4f 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 63 6f O in order to co
2640: 6d 70 6c 65 74 65 20 74 68 65 20 53 53 4c 5f 2a mplete the SSL_*
2650: 28 29 20 6f 70 65 72 61 74 69 6f 6e 2e 20 2a 2f () operation. */
2660: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
2670: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
2680: 49 54 45 3a 20 45 41 47 41 49 4e 22 29 3b 0a 09 ITE: EAGAIN");..
2690: 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 BIO_set_retr
26a0: 79 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 y_write(statePtr
26b0: 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 2a 65 72 ->bio);.. *er
26c0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
26d0: 41 49 4e 3b 0a 09 20 20 20 20 73 74 61 74 65 50 AIN;.. stateP
26e0: 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f tr->want |= TCL_
26f0: 57 52 49 54 41 42 4c 45 3b 0a 09 20 20 20 20 72 WRITABLE;.. r
2700: 65 74 75 72 6e 20 30 3b 0a 0a 09 63 61 73 65 20 eturn 0;...case
2710: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 SSL_ERROR_WANT_X
2720: 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 509_LOOKUP:..
2730: 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 6f /* The operatio
2740: 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 n did not comple
2750: 74 65 20 62 65 63 61 75 73 65 20 61 6e 20 61 70 te because an ap
2760: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 62 61 plication callba
2770: 63 6b 0a 09 20 20 20 20 20 20 20 73 65 74 20 62 ck.. set b
2780: 79 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c y SSL_CTX_set_cl
2790: 69 65 6e 74 5f 63 65 72 74 5f 63 62 28 29 20 68 ient_cert_cb() h
27a0: 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 20 63 as asked to be c
27b0: 61 6c 6c 65 64 20 61 67 61 69 6e 2e 20 2a 2f 0a alled again. */.
27c0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
27d0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 L_ERROR_WANT_X50
27e0: 39 5f 4c 4f 4f 4b 55 50 3a 20 45 41 47 41 49 4e 9_LOOKUP: EAGAIN
27f0: 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 ");.. BIO_set
2800: 5f 72 65 74 72 79 5f 73 70 65 63 69 61 6c 28 73 _retry_special(s
2810: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 tatePtr->bio);..
2820: 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 BIO_set_retr
2830: 79 5f 72 65 61 73 6f 6e 28 73 74 61 74 65 50 74 y_reason(statePt
2840: 72 2d 3e 62 69 6f 2c 20 42 49 4f 5f 52 52 5f 53 r->bio, BIO_RR_S
2850: 53 4c 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 29 3b SL_X509_LOOKUP);
2860: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
2870: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 Ptr = EAGAIN;..
2880: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 0a 09 63 return 0;...c
2890: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 ase SSL_ERROR_SY
28a0: 53 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 SCALL:.. /* S
28b0: 6f 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 ome non-recovera
28c0: 62 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 ble, fatal I/O e
28d0: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 2a 2f rror occurred */
28e0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
28f0: 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c SL_ERROR_SYSCALL
2900: 3a 20 46 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f : Fatal I/O erro
2910: 72 20 6f 63 63 75 72 72 65 64 22 29 3b 0a 0a 09 r occurred");...
2920: 20 20 20 20 69 66 20 28 65 72 72 20 3d 3d 20 30 if (err == 0
2930: 20 26 26 20 72 65 74 20 3d 3d 20 30 29 20 7b 0a && ret == 0) {.
2940: 09 09 2f 2a 20 55 6e 65 78 70 65 63 74 65 64 20 ../* Unexpected
2950: 45 4f 46 20 66 6f 72 20 31 2e 31 2e 31 20 2a 2f EOF for 1.1.1 */
2960: 0a 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 20 ...dprintf("EOF
2970: 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 72 reached")...*err
2980: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
2990: 4e 52 45 53 45 54 3b 0a 09 09 54 6c 73 5f 45 72 NRESET;...Tls_Er
29a0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 28 ror(statePtr, "(
29b0: 75 6e 65 78 70 65 63 74 65 64 29 20 45 4f 46 20 unexpected) EOF
29c0: 72 65 61 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 reached");...
29d0: 20 7d 20 65 6c 73 65 20 69 66 20 28 65 72 72 20 } else if (err
29e0: 3d 3d 20 30 20 26 26 20 72 65 74 20 3d 3d 20 2d == 0 && ret == -
29f0: 31 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 1) {...dprintf("
2a00: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
2a10: 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 ed (errno = %lu)
2a20: 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
2a30: 67 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 g) Tcl_GetErrno(
2a40: 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 ));...*errorCode
2a50: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 Ptr = Tcl_GetErr
2a60: 6e 6f 28 29 3b 0a 09 09 69 66 20 28 2a 65 72 72 no();...if (*err
2a70: 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f orCodePtr == ECO
2a80: 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 20 20 20 NNRESET) {...
2a90: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
2aa0: 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 ECONNABORTED;..
2ab0: 09 7d 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 66 .}...statePtr->f
2ac0: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
2ad0: 46 41 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 09 54 FATAL_ERROR;...T
2ae0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2af0: 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 r, Tcl_ErrnoMsg(
2b00: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b *errorCodePtr));
2b10: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ... } else {.
2b20: 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 ..dprintf("I/O e
2b30: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 rror occurred (e
2b40: 72 72 20 3d 20 25 6c 75 29 22 2c 20 65 72 72 29 rr = %lu)", err)
2b50: 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ;...*errorCodePt
2b60: 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f r = Tcl_GetErrno
2b70: 28 29 3b 0a 09 09 69 66 20 28 2a 65 72 72 6f 72 ();...if (*error
2b80: 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e CodePtr == ECONN
2b90: 52 45 53 45 54 29 20 7b 0a 09 09 20 20 20 20 2a RESET) {... *
2ba0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
2bb0: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 7d CONNABORTED;...}
2bc0: 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 ...statePtr->fla
2bd0: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 gs |= TLS_TCL_FA
2be0: 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 09 54 6c 73 TAL_ERROR;...Tls
2bf0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
2c00: 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f ERR_reason_erro
2c10: 72 5f 73 74 72 69 6e 67 28 65 72 72 29 29 3b 0a r_string(err));.
2c20: 09 20 20 20 20 7d 0a 09 20 20 20 20 73 74 61 74 . }.. stat
2c30: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
2c40: 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 LS_TCL_EOF;..
2c50: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 return -1;...ca
2c60: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 se SSL_ERROR_ZER
2c70: 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 2f O_RETURN:.. /
2c80: 2a 20 50 65 65 72 20 68 61 73 20 63 6c 65 61 6e * Peer has clean
2c90: 6c 79 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f ly closed the co
2ca0: 6e 6e 65 63 74 69 6f 6e 20 62 79 20 73 65 6e 64 nnection by send
2cb0: 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f ing the close_no
2cc0: 74 69 66 79 0a 09 20 20 20 20 20 20 20 61 6c 65 tify.. ale
2cd0: 72 74 2e 20 43 61 6e 27 74 20 72 65 61 64 2c 20 rt. Can't read,
2ce0: 62 75 74 20 63 61 6e 20 77 72 69 74 65 2e 20 4e but can write. N
2cf0: 65 65 64 20 74 6f 20 72 65 74 75 72 6e 20 61 6e eed to return an
2d00: 20 45 4f 46 2c 20 73 6f 20 74 68 65 0a 09 20 20 EOF, so the..
2d10: 20 20 20 20 20 63 68 61 6e 6e 65 6c 20 69 73 20 channel is
2d20: 63 6c 6f 73 65 64 20 77 68 69 63 68 20 77 69 6c closed which wil
2d30: 6c 20 73 65 6e 64 20 61 6e 20 53 53 4c 5f 73 68 l send an SSL_sh
2d40: 75 74 64 6f 77 6e 28 29 2e 20 2a 2f 0a 09 20 20 utdown(). */..
2d50: 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 dprintf("SSL_E
2d60: 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e RROR_ZERO_RETURN
2d70: 3a 20 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 : Peer has close
2d80: 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e d the connection
2d90: 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ");.. *errorC
2da0: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 odePtr = ECONNRE
2db0: 53 45 54 3b 0a 09 20 20 20 20 73 74 61 74 65 50 SET;.. stateP
2dc0: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
2dd0: 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 54 _TCL_EOF;.. T
2de0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2df0: 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 6c 6f r, "Peer has clo
2e00: 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 sed the connecti
2e10: 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 20 62 on for writing b
2e20: 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c y sending the cl
2e30: 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 ose_notify alert
2e40: 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ");.. return
2e50: 2d 31 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 -1;...case SSL_E
2e60: 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 RROR_WANT_CONNEC
2e70: 54 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f T:.. /* The o
2e80: 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 peration did not
2e90: 20 63 6f 6d 70 6c 65 74 65 20 61 6e 64 20 63 6f complete and co
2ea0: 6e 6e 65 63 74 20 77 6f 75 6c 64 20 68 61 76 65 nnect would have
2eb0: 20 62 6c 6f 63 6b 65 64 2e 0a 09 20 20 20 20 20 blocked...
2ec0: 20 20 52 65 74 72 79 20 61 67 61 69 6e 20 61 66 Retry again af
2ed0: 74 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 ter connection i
2ee0: 73 20 65 73 74 61 62 6c 69 73 68 65 64 2e 20 2a s established. *
2ef0: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
2f00: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 SSL_ERROR_WANT_C
2f10: 4f 4e 4e 45 43 54 3a 20 45 41 47 41 49 4e 22 29 ONNECT: EAGAIN")
2f20: 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 ;.. BIO_set_r
2f30: 65 74 72 79 5f 73 70 65 63 69 61 6c 28 73 74 61 etry_special(sta
2f40: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 tePtr->bio);..
2f50: 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f BIO_set_retry_
2f60: 72 65 61 73 6f 6e 28 73 74 61 74 65 50 74 72 2d reason(statePtr-
2f70: 3e 62 69 6f 2c 20 42 49 4f 5f 52 52 5f 43 4f 4e >bio, BIO_RR_CON
2f80: 4e 45 43 54 29 3b 0a 09 20 20 20 20 2a 65 72 72 NECT);.. *err
2f90: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
2fa0: 49 4e 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 IN;.. return
2fb0: 30 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 0;...case SSL_ER
2fc0: 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50 54 3a ROR_WANT_ACCEPT:
2fd0: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 .. /* The ope
2fe0: 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 ration did not c
2ff0: 6f 6d 70 6c 65 74 65 20 61 6e 64 20 61 63 63 65 omplete and acce
3000: 70 74 20 77 6f 75 6c 64 20 68 61 76 65 20 62 6c pt would have bl
3010: 6f 63 6b 65 64 2e 0a 09 20 20 20 20 20 20 20 52 ocked... R
3020: 65 74 72 79 20 61 67 61 69 6e 20 61 66 74 65 72 etry again after
3030: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 65 connection is e
3040: 73 74 61 62 6c 69 73 68 65 64 2e 20 2a 2f 0a 09 stablished. */..
3050: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
3060: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 _ERROR_WANT_ACCE
3070: 50 54 3a 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 PT: EAGAIN");..
3080: 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 BIO_set_retry
3090: 5f 73 70 65 63 69 61 6c 28 73 74 61 74 65 50 74 _special(statePt
30a0: 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 42 49 r->bio);.. BI
30b0: 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 61 73 O_set_retry_reas
30c0: 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f on(statePtr->bio
30d0: 2c 20 42 49 4f 5f 52 52 5f 41 43 43 45 50 54 29 , BIO_RR_ACCEPT)
30e0: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
30f0: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
3100: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 0a 09 return 0;...
3110: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
3120: 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 20 20 20 20 ANT_ASYNC:..
3130: 2f 2a 20 55 73 65 64 20 77 69 74 68 20 66 6c 61 /* Used with fla
3140: 67 20 53 53 4c 5f 4d 4f 44 45 5f 41 53 59 4e 43 g SSL_MODE_ASYNC
3150: 2c 20 6f 70 20 64 69 64 6e 27 74 20 63 6f 6d 70 , op didn't comp
3160: 6c 65 74 65 20 62 65 63 61 75 73 65 20 61 6e 0a lete because an.
3170: 09 20 20 20 20 20 20 20 61 73 79 6e 63 20 65 6e . async en
3180: 67 69 6e 65 20 69 73 20 73 74 69 6c 6c 20 70 72 gine is still pr
3190: 6f 63 65 73 73 69 6e 67 20 64 61 74 61 20 2a 2f ocessing data */
31a0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
31b0: 5f 57 41 4e 54 5f 41 53 59 4e 43 5f 4a 4f 42 3a _WANT_ASYNC_JOB:
31c0: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 61 73 79 .. /* The asy
31d0: 6e 63 68 72 6f 6e 6f 75 73 20 6a 6f 62 20 63 6f nchronous job co
31e0: 75 6c 64 20 6e 6f 74 20 62 65 20 73 74 61 72 74 uld not be start
31f0: 65 64 20 62 65 63 61 75 73 65 20 74 68 65 72 65 ed because there
3200: 20 77 65 72 65 20 6e 6f 0a 09 20 20 20 20 20 20 were no..
3210: 20 61 73 79 6e 63 20 6a 6f 62 73 20 61 76 61 69 async jobs avai
3220: 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 70 6f 6f lable in the poo
3230: 6c 2e 20 2a 2f 0a 09 63 61 73 65 20 53 53 4c 5f l. */..case SSL_
3240: 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4c 49 45 4e ERROR_WANT_CLIEN
3250: 54 5f 48 45 4c 4c 4f 5f 43 42 3a 0a 09 20 20 20 T_HELLO_CB:..
3260: 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 6f /* The operatio
3270: 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 n did not comple
3280: 74 65 20 62 65 63 61 75 73 65 20 61 6e 20 61 70 te because an ap
3290: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 62 61 plication callba
32a0: 63 6b 0a 09 20 20 20 20 20 20 20 73 65 74 20 62 ck.. set b
32b0: 79 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c y SSL_CTX_set_cl
32c0: 69 65 6e 74 5f 68 65 6c 6c 6f 5f 63 62 28 29 20 ient_hello_cb()
32d0: 68 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 20 has asked to be
32e0: 63 61 6c 6c 65 64 20 61 67 61 69 6e 2e 20 2a 2f called again. */
32f0: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
3300: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 SION_NUMBER >= 0
3310: 78 33 30 30 30 30 30 30 30 4c 0a 09 63 61 73 65 x30000000L..case
3320: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
3330: 52 45 54 52 59 5f 56 45 52 49 46 59 3a 0a 09 20 RETRY_VERIFY:..
3340: 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 /* The operat
3350: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 ion did not comp
3360: 6c 65 74 65 20 62 65 63 61 75 73 65 20 61 20 63 lete because a c
3370: 65 72 74 69 66 69 63 61 74 65 20 76 65 72 69 66 ertificate verif
3380: 69 63 61 74 69 6f 6e 0a 09 20 20 20 20 20 20 20 ication..
3390: 63 61 6c 6c 62 61 63 6b 20 68 61 73 20 61 73 6b callback has ask
33a0: 65 64 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 ed to be called
33b0: 61 67 61 69 6e 20 76 69 61 20 53 53 4c 5f 73 65 again via SSL_se
33c0: 74 5f 72 65 74 72 79 5f 76 65 72 69 66 79 28 33 t_retry_verify(3
33d0: 29 2e 20 2a 2f 0a 23 65 6e 64 69 66 0a 09 64 65 ). */.#endif..de
33e0: 66 61 75 6c 74 3a 0a 09 20 20 20 20 2f 2a 20 54 fault:.. /* T
33f0: 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 he operation did
3400: 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 61 6e not complete an
3410: 64 20 73 68 6f 75 6c 64 20 62 65 20 72 65 74 72 d should be retr
3420: 69 65 64 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 ied later. */..
3430: 20 20 20 64 70 72 69 6e 74 66 28 22 4f 70 65 72 dprintf("Oper
3440: 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f ation did not co
3450: 6d 70 6c 65 74 65 2c 20 63 61 6c 6c 20 66 75 6e mplete, call fun
3460: 63 74 69 6f 6e 20 61 67 61 69 6e 20 6c 61 74 65 ction again late
3470: 72 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 r");.. *error
3480: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
3490: 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
34a0: 45 52 52 28 4f 74 68 65 72 2c 20 45 41 47 41 49 ERR(Other, EAGAI
34b0: 4e 29 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 N)");.. retur
34c0: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
34d0: 64 70 72 69 6e 74 66 28 22 52 65 6d 6f 76 69 6e dprintf("Removin
34e0: 67 20 74 68 65 20 5c 22 54 4c 53 5f 54 43 4c 5f g the \"TLS_TCL_
34f0: 49 4e 49 54 5c 22 20 66 6c 61 67 20 73 69 6e 63 INIT\" flag sinc
3500: 65 20 77 65 20 68 61 76 65 20 63 6f 6d 70 6c 65 e we have comple
3510: 74 65 64 20 74 68 65 20 68 61 6e 64 73 68 61 6b ted the handshak
3520: 65 22 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 e");. statePt
3530: 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 54 4c 53 r->flags &= ~TLS
3540: 5f 54 43 4c 5f 49 4e 49 54 3b 0a 0a 20 20 20 20 _TCL_INIT;..
3550: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 dprintf("Returni
3560: 6e 67 20 73 75 63 63 65 73 73 22 29 3b 0a 20 20 ng success");.
3570: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
3580: 3d 20 30 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 = 0;. return
3590: 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 1;.}../*. *-----
35a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
35f0: 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 lsInputProc --.
3600: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
3610: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 ure is invoked b
3620: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f y the generic I/
3630: 4f 20 6c 61 79 65 72 20 74 6f 20 72 65 61 64 20 O layer to read
3640: 64 61 74 61 20 66 72 6f 6d 0a 20 2a 09 74 68 65 data from. *.the
3650: 20 42 49 4f 20 77 68 65 6e 65 76 65 72 20 74 68 BIO whenever th
3660: 65 20 54 63 6c 5f 52 65 61 64 2c 20 54 63 6c 5f e Tcl_Read, Tcl_
3670: 52 65 61 64 43 68 61 72 73 2c 20 54 63 6c 5f 47 ReadChars, Tcl_G
3680: 65 74 73 2c 20 61 6e 64 20 54 63 6c 5f 47 65 74 ets, and Tcl_Get
3690: 73 4f 62 6a 0a 20 2a 09 66 75 6e 63 74 69 6f 6e sObj. *.function
36a0: 73 20 61 72 65 20 75 73 65 64 2e 20 45 71 75 69 s are used. Equi
36b0: 76 61 6c 65 6e 74 20 74 6f 20 53 53 4c 5f 72 65 valent to SSL_re
36c0: 61 64 5f 65 78 20 61 6e 64 20 53 53 4c 5f 72 65 ad_ex and SSL_re
36d0: 61 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ad.. *. * Result
36e0: 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 s:. *.Returns th
36f0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 e number of byte
3700: 73 20 72 65 61 64 20 6f 72 20 2d 31 20 6f 6e 20 s read or -1 on
3710: 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f error. Sets erro
3720: 72 43 6f 64 65 50 74 72 20 74 6f 0a 20 2a 09 61 rCodePtr to. *.a
3730: 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 POSIX error cod
3740: 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 e if an error oc
3750: 63 75 72 72 65 64 2c 20 6f 72 20 30 20 69 66 20 curred, or 0 if
3760: 73 75 63 63 65 73 73 66 75 6c 2e 0a 20 2a 0a 20 successful.. *.
3770: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
3780: 20 2a 09 52 65 61 64 73 20 64 61 74 61 20 66 72 *.Reads data fr
3790: 6f 6d 20 53 53 4c 2f 42 49 4f 2e 0a 20 2a 0a 20 om SSL/BIO.. *.
37a0: 2a 20 4e 6f 74 65 73 3a 0a 20 2a 09 44 61 74 61 * Notes:. *.Data
37b0: 20 69 73 20 72 65 63 65 69 76 65 64 20 69 6e 20 is received in
37c0: 77 68 6f 6c 65 20 62 6c 6f 63 6b 73 20 6b 6e 6f whole blocks kno
37d0: 77 6e 20 61 73 20 72 65 63 6f 72 64 73 20 66 72 wn as records fr
37e0: 6f 6d 20 74 68 65 20 70 65 65 72 2e 20 41 20 0a om the peer. A .
37f0: 20 2a 09 77 68 6f 6c 65 20 72 65 63 6f 72 64 20 *.whole record
3800: 69 73 20 70 72 6f 63 65 73 73 65 64 20 28 65 2e is processed (e.
3810: 67 2e 20 64 65 63 72 79 70 74 65 64 29 20 69 6e g. decrypted) in
3820: 20 6f 6e 65 20 67 6f 20 61 6e 64 20 69 73 20 62 one go and is b
3830: 75 66 66 65 72 65 64 20 62 79 0a 20 2a 09 4f 70 uffered by. *.Op
3840: 65 6e 53 53 4c 20 75 6e 74 69 6c 20 69 74 20 69 enSSL until it i
3850: 73 20 72 65 61 64 20 62 79 20 74 68 65 20 61 70 s read by the ap
3860: 70 6c 69 63 61 74 69 6f 6e 20 76 69 61 20 61 20 plication via a
3870: 63 61 6c 6c 20 74 6f 20 53 53 4c 5f 72 65 61 64 call to SSL_read
3880: 28 29 20 6f 72 0a 20 2a 09 42 49 4f 5f 72 65 61 () or. *.BIO_rea
3890: 64 28 29 20 69 6e 20 6f 75 72 20 63 61 73 65 2e d() in our case.
38a0: 20 53 53 4c 5f 70 65 6e 64 69 6e 67 28 29 20 72 SSL_pending() r
38b0: 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 eturns the numbe
38c0: 72 20 6f 66 20 62 79 74 65 73 20 77 68 69 63 68 r of bytes which
38d0: 0a 20 2a 09 68 61 76 65 20 62 65 65 6e 20 70 72 . *.have been pr
38e0: 6f 63 65 73 73 65 64 2c 20 62 75 66 66 65 72 65 ocessed, buffere
38f0: 64 2c 20 61 6e 64 20 61 72 65 20 61 76 61 69 6c d, and are avail
3900: 61 62 6c 65 20 69 6e 73 69 64 65 20 73 73 6c 20 able inside ssl
3910: 66 6f 72 0a 20 2a 09 69 6d 6d 65 64 69 61 74 65 for. *.immediate
3920: 20 72 65 61 64 2e 20 53 53 4c 5f 68 61 73 5f 70 read. SSL_has_p
3930: 65 6e 64 69 6e 67 28 29 20 72 65 74 75 72 6e 73 ending() returns
3940: 20 31 20 69 66 20 64 61 74 61 20 69 73 20 62 75 1 if data is bu
3950: 66 66 65 72 65 64 0a 20 2a 09 28 77 68 65 74 68 ffered. *.(wheth
3960: 65 72 20 70 72 6f 63 65 73 73 65 64 20 6f 72 20 er processed or
3970: 75 6e 70 72 6f 63 65 73 73 65 64 29 20 61 6e 64 unprocessed) and
3980: 20 30 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 2a 0 otherwise.. *
3990: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
39a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39e0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
39f0: 54 6c 73 49 6e 70 75 74 50 72 6f 63 28 0a 20 20 TlsInputProc(.
3a00: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 ClientData ins
3a10: 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 43 6f tanceData,./* Co
3a20: 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 nnection state i
3a30: 6e 66 6f 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 nfo */. char
3a40: 2a 62 75 66 2c 09 09 09 2f 2a 20 42 75 66 66 65 *buf,.../* Buffe
3a50: 72 20 74 6f 20 73 74 6f 72 65 20 64 61 74 61 20 r to store data
3a60: 72 65 61 64 20 66 72 6f 6d 20 42 49 4f 20 2a 2f read from BIO */
3a70: 0a 20 20 20 20 69 6e 74 20 62 75 66 53 69 7a 65 . int bufSize
3a80: 2c 09 09 2f 2a 20 42 75 66 66 65 72 20 73 69 7a ,../* Buffer siz
3a90: 65 20 69 6e 20 62 79 74 65 73 20 2a 2f 0a 20 20 e in bytes */.
3aa0: 20 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 int *errorCode
3ab0: 50 74 72 29 09 09 2f 2a 20 53 74 6f 72 61 67 65 Ptr)../* Storage
3ac0: 20 66 6f 72 20 65 72 72 6f 72 20 63 6f 64 65 20 for error code
3ad0: 74 6f 20 72 65 74 75 72 6e 20 2a 2f 0a 7b 0a 20 to return */.{.
3ae0: 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 unsigned long
3af0: 20 65 72 72 3b 0a 20 20 20 20 53 74 61 74 65 20 err;. State
3b00: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
3b10: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
3b20: 74 61 3b 0a 20 20 20 20 69 6e 74 20 62 79 74 65 ta;. int byte
3b30: 73 52 65 61 64 2c 20 72 63 2c 20 72 65 61 73 6f sRead, rc, reaso
3b40: 6e 2c 20 69 73 5f 66 61 74 61 6c 2c 20 62 69 6f n, is_fatal, bio
3b50: 53 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 6f 5f ShouldRetry, io_
3b60: 65 72 72 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 err;. *errorC
3b70: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 odePtr = 0;..
3b80: 20 64 70 72 69 6e 74 66 28 22 52 65 61 64 20 25 dprintf("Read %
3b90: 64 20 62 79 74 65 73 22 2c 20 62 75 66 53 69 7a d bytes", bufSiz
3ba0: 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 e);.. /* Abor
3bb0: 74 20 69 66 20 74 68 65 20 75 73 65 72 20 76 65 t if the user ve
3bc0: 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 rify callback is
3bd0: 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 74 still running t
3be0: 6f 20 61 76 6f 69 64 20 74 72 69 67 67 65 72 69 o avoid triggeri
3bf0: 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f 74 68 65 ng. * anothe
3c00: 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 20 74 68 r call before th
3c10: 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 69 73 e current one is
3c20: 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f 0a 20 20 complete. */.
3c30: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
3c40: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
3c50: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
3c60: 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 intf("Callback i
3c70: 73 20 72 75 6e 6e 69 6e 67 2c 20 72 65 61 64 69 s running, readi
3c80: 6e 67 20 30 20 62 79 74 65 73 22 29 3b 0a 09 72 ng 0 bytes");..r
3c90: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a eturn 0;. }..
3ca0: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
3cb0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 66 connection has f
3cc0: 61 69 6c 65 64 20 6f 72 20 45 4f 46 20 61 6c 72 ailed or EOF alr
3cd0: 65 61 64 79 20 64 65 74 65 63 74 65 64 2e 20 43 eady detected. C
3ce0: 61 6e 27 74 20 72 65 61 64 2c 20 62 75 74 20 63 an't read, but c
3cf0: 61 6e 20 77 72 69 74 65 2e 20 2a 2f 0a 20 20 20 an write. */.
3d00: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
3d10: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 46 lags & TLS_TCL_F
3d20: 41 54 41 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 64 ATAL_ERROR) {..d
3d30: 70 72 69 6e 74 66 28 22 46 61 74 61 6c 20 65 72 printf("Fatal er
3d40: 72 6f 72 20 61 6c 72 65 61 64 79 20 64 65 74 65 ror already dete
3d50: 63 74 65 64 2c 20 61 62 6f 72 74 20 72 65 61 64 cted, abort read
3d60: 22 29 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 ");..*errorCodeP
3d70: 74 72 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e 20 tr = 0;..return
3d80: 30 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 0;. } else if
3d90: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
3da0: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 29 s & TLS_TCL_EOF)
3db0: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 45 4f 46 {..dprintf("EOF
3dc0: 20 61 6c 72 65 61 64 79 20 64 65 74 65 63 74 65 already detecte
3dd0: 64 2c 20 61 62 6f 72 74 20 72 65 61 64 22 29 3b d, abort read");
3de0: 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
3df0: 3d 20 30 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a = 0;..return 0;.
3e00: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 }.. /* If
3e10: 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 not initialized
3e20: 2c 20 64 6f 20 63 6f 6e 6e 65 63 74 2e 20 43 61 , do connect. Ca
3e30: 6e 20 61 6c 73 6f 20 63 68 65 63 6b 20 53 53 4c n also check SSL
3e40: 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 _is_init_finishe
3e50: 64 28 29 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 d(). */. if (
3e60: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
3e70: 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 & TLS_TCL_INIT)
3e80: 7b 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 {..int tlsConnec
3e90: 74 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 61 t;...dprintf("Ca
3ea0: 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f lling Tls_WaitFo
3eb0: 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a 09 74 6c rConnect");...tl
3ec0: 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 5f 57 sConnect = Tls_W
3ed0: 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 aitForConnect(st
3ee0: 61 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 atePtr, errorCod
3ef0: 65 50 74 72 2c 20 30 29 3b 0a 09 69 66 20 28 74 ePtr, 0);..if (t
3f00: 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b lsConnect < 0) {
3f10: 0a 09 20 20 20 20 2f 2a 20 46 61 69 6c 75 72 65 .. /* Failure
3f20: 2c 20 73 6f 20 61 62 6f 72 74 20 2a 2f 0a 09 20 , so abort */..
3f30: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
3f40: 61 6e 20 65 72 72 6f 72 20 77 61 69 74 69 6e 67 an error waiting
3f50: 20 74 6f 20 63 6f 6e 6e 65 63 74 20 28 74 6c 73 to connect (tls
3f60: 43 6f 6e 6e 65 63 74 20 3d 20 25 69 2c 20 2a 65 Connect = %i, *e
3f70: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 25 69 rrorCodePtr = %i
3f80: 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 )", tlsConnect,
3f90: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a *errorCodePtr);.
3fa0: 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 .. bytesRead
3fb0: 3d 20 2d 31 3b 0a 09 20 20 20 20 69 66 20 28 2a = -1;.. if (*
3fc0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 errorCodePtr ==
3fd0: 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 ECONNRESET) {...
3fe0: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e dprintf("Got con
3ff0: 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 22 29 3b nection reset");
4000: 0a 09 09 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a .../* Soft EOF *
4010: 2f 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 /...*errorCodePt
4020: 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 73 52 65 r = 0;...bytesRe
4030: 61 64 20 3d 20 30 3b 0a 09 09 73 74 61 74 65 50 ad = 0;...stateP
4040: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
4050: 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 7d _TCL_EOF;.. }
4060: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 .. return byt
4070: 65 73 52 65 61 64 3b 0a 09 7d 20 65 6c 73 65 20 esRead;..} else
4080: 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d if (tlsConnect =
4090: 3d 20 30 29 20 7b 0a 09 20 20 20 20 2f 2a 20 54 = 0) {.. /* T
40a0: 72 79 20 61 67 61 69 6e 20 2a 2f 0a 09 20 20 20 ry again */..
40b0: 20 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b bytesRead = -1;
40c0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 .. return byt
40d0: 65 73 52 65 61 64 3b 0a 09 7d 0a 20 20 20 20 7d esRead;..}. }
40e0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
40f0: 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 We need to clear
4100: 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 73 the SSL error s
4110: 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 tack now because
4120: 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 we sometimes re
4130: 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 20 ach. * this
4140: 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c 65 function with le
4150: 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 6e ftover errors in
4160: 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 20 the stack. If
4170: 42 49 4f 5f 72 65 61 64 0a 20 20 20 20 20 2a 20 BIO_read. *
4180: 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 returns -1 and i
4190: 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 ntends EAGAIN, t
41a0: 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f 76 here is a leftov
41b0: 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 6c er error, it wil
41c0: 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 73 63 l be. * misc
41d0: 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 65 onstrued as an e
41e0: 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e rror, not EAGAIN
41f0: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 64 70 .. */. dp
4200: 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 20 rintf("BIO_read
4210: 65 6f 66 3d 25 64 2c 20 62 75 66 66 65 72 65 64 eof=%d, buffered
4220: 3d 25 64 2c 20 69 6e 70 75 74 3d 25 64 2c 20 6f =%d, input=%d, o
4230: 75 74 70 75 74 3d 25 64 22 2c 20 54 63 6c 5f 45 utput=%d", Tcl_E
4240: 6f 66 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c of(statePtr->sel
4250: 66 29 2c 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 42 f), Tcl_ChannelB
4260: 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 uffered(statePtr
4270: 2d 3e 73 65 6c 66 29 2c 20 5c 0a 20 20 20 20 20 ->self), \.
4280: 20 20 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 Tcl_InputBuff
4290: 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 ered(statePtr->s
42a0: 65 6c 66 29 2c 20 54 63 6c 5f 4f 75 74 70 75 74 elf), Tcl_Output
42b0: 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 Buffered(statePt
42c0: 72 2d 3e 73 65 6c 66 29 29 3b 20 20 20 20 45 52 r->self)); ER
42d0: 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b R_clear_error();
42e0: 0a 20 20 20 20 54 63 6c 5f 53 65 74 45 72 72 6e . Tcl_SetErrn
42f0: 6f 28 30 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c o(0);. ERR_cl
4300: 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 ear_error();.
4310: 20 42 49 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 BIO_clear_retry
4320: 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d _flags(statePtr-
4330: 3e 62 69 6f 29 3b 0a 20 20 20 20 62 79 74 65 73 >bio);. bytes
4340: 52 65 61 64 20 3d 20 42 49 4f 5f 72 65 61 64 28 Read = BIO_read(
4350: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 statePtr->bio, b
4360: 75 66 2c 20 62 75 66 53 69 7a 65 29 3b 0a 20 20 uf, bufSize);.
4370: 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 dprintf("BIO_r
4380: 65 61 64 20 2d 3e 20 25 64 22 2c 20 62 79 74 65 ead -> %d", byte
4390: 73 52 65 61 64 29 3b 0a 20 20 20 20 64 70 72 69 sRead);. dpri
43a0: 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 20 65 6f ntf("BIO_read eo
43b0: 66 3d 25 64 2c 20 62 75 66 66 65 72 65 64 3d 25 f=%d, buffered=%
43c0: 64 2c 20 69 6e 70 75 74 3d 25 64 2c 20 6f 75 74 d, input=%d, out
43d0: 70 75 74 3d 25 64 22 2c 20 54 63 6c 5f 45 6f 66 put=%d", Tcl_Eof
43e0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
43f0: 2c 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 42 75 66 , Tcl_ChannelBuf
4400: 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e fered(statePtr->
4410: 73 65 6c 66 29 2c 20 5c 0a 20 20 20 20 20 20 20 self), \.
4420: 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 Tcl_InputBuffer
4430: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
4440: 66 29 2c 20 54 63 6c 5f 4f 75 74 70 75 74 42 75 f), Tcl_OutputBu
4450: 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d ffered(statePtr-
4460: 3e 73 65 6c 66 29 29 3b 0a 0a 20 20 20 20 2f 2a >self));.. /*
4470: 20 53 61 6d 65 20 61 73 20 53 53 4c 5f 77 61 6e Same as SSL_wan
4480: 74 2c 20 62 75 74 20 61 6c 73 6f 20 63 68 65 63 t, but also chec
4490: 6b 73 20 74 68 65 20 65 72 72 6f 72 20 71 75 65 ks the error que
44a0: 75 65 20 2a 2f 0a 20 20 20 20 72 63 20 3d 20 53 ue */. rc = S
44b0: 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 SL_get_error(sta
44c0: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 62 79 74 65 tePtr->ssl, byte
44d0: 73 52 65 61 64 29 3b 0a 20 20 20 20 65 72 72 20 sRead);. err
44e0: 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 = ERR_get_error(
44f0: 29 3b 0a 20 20 20 20 72 65 61 73 6f 6e 20 3d 20 );. reason =
4500: 45 52 52 5f 47 45 54 5f 52 45 41 53 4f 4e 28 65 ERR_GET_REASON(e
4510: 72 72 29 3b 0a 20 20 20 20 69 73 5f 66 61 74 61 rr);. is_fata
4520: 6c 20 3d 20 45 52 52 5f 46 41 54 41 4c 5f 45 52 l = ERR_FATAL_ER
4530: 52 4f 52 28 65 72 72 29 3b 0a 20 20 20 20 2f 2a ROR(err);. /*
4540: 20 54 68 65 20 72 65 74 72 79 20 66 6c 61 67 20 The retry flag
4550: 69 73 20 73 65 74 20 62 79 20 74 68 65 20 42 49 is set by the BI
4560: 4f 5f 73 65 74 5f 72 65 74 72 79 5f 2a 20 66 75 O_set_retry_* fu
4570: 6e 63 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 62 nctions */. b
4580: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 ioShouldRetry =
4590: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 BIO_should_retry
45a0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
45b0: 0a 20 20 20 20 69 6f 5f 65 72 72 20 3d 20 54 63 . io_err = Tc
45c0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 20 20 l_GetErrno();.
45d0: 20 20 64 70 72 69 6e 74 66 28 22 52 65 61 64 3a dprintf("Read:
45e0: 20 62 79 74 65 73 52 65 61 64 3d 25 64 2c 20 72 bytesRead=%d, r
45f0: 63 3d 25 64 2c 20 65 72 72 3d 25 6c 64 2c 20 72 c=%d, err=%ld, r
4600: 65 61 73 6f 6e 3d 25 64 2c 20 69 73 5f 66 61 74 eason=%d, is_fat
4610: 61 6c 3d 25 64 2c 20 6c 69 62 3d 25 73 2c 20 6d al=%d, lib=%s, m
4620: 73 67 3d 25 73 2c 20 62 69 6f 53 68 6f 75 6c 64 sg=%s, bioShould
4630: 52 65 74 72 79 3d 25 64 2c 20 65 72 72 6e 6f 3d Retry=%d, errno=
4640: 25 64 2c 20 69 64 3d 25 73 2c 20 6d 73 67 3d 25 %d, id=%s, msg=%
4650: 73 22 2c 20 5c 0a 20 20 20 20 20 20 20 20 62 79 s", \. by
4660: 74 65 73 52 65 61 64 2c 20 72 63 2c 20 65 72 72 tesRead, rc, err
4670: 2c 20 72 65 61 73 6f 6e 2c 20 69 73 5f 66 61 74 , reason, is_fat
4680: 61 6c 2c 20 45 52 52 5f 6c 69 62 5f 65 72 72 6f al, ERR_lib_erro
4690: 72 5f 73 74 72 69 6e 67 28 65 72 72 29 2c 20 45 r_string(err), E
46a0: 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f RR_reason_error_
46b0: 73 74 72 69 6e 67 28 65 72 72 29 2c 20 62 69 6f string(err), bio
46c0: 53 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 6f 5f ShouldRetry, io_
46d0: 65 72 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 49 64 err, Tcl_ErrnoId
46e0: 28 29 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 (), Tcl_ErrnoMsg
46f0: 28 69 6f 5f 65 72 72 29 29 3b 0a 0a 20 20 20 20 (io_err));..
4700: 69 66 20 28 62 79 74 65 73 52 65 61 64 20 3c 3d if (bytesRead <=
4710: 20 30 29 20 7b 0a 09 2f 2a 20 54 68 65 20 72 65 0) {../* The re
4720: 74 72 79 20 66 6c 61 67 20 69 73 20 73 65 74 20 try flag is set
4730: 62 79 20 74 68 65 20 42 49 4f 5f 73 65 74 5f 72 by the BIO_set_r
4740: 65 74 72 79 5f 2a 20 66 75 6e 63 74 69 6f 6e 73 etry_* functions
4750: 20 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22 52 65 */..dprintf("Re
4760: 61 64 20 66 61 69 6c 65 64 3a 20 69 73 20 45 4f ad failed: is EO
4770: 46 3d 25 64 2c 20 73 68 6f 75 6c 64 20 72 65 74 F=%d, should ret
4780: 72 79 3d 25 64 2c 20 72 65 74 72 79 20 72 65 61 ry=%d, retry rea
4790: 64 3d 25 64 2c 20 72 65 74 72 79 20 77 72 69 74 d=%d, retry writ
47a0: 65 3d 25 64 2c 20 6f 74 68 65 72 3d 25 64 22 2c e=%d, other=%d",
47b0: 0a 09 20 20 20 20 42 49 4f 5f 65 6f 66 28 73 74 .. BIO_eof(st
47c0: 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 42 49 atePtr->bio), BI
47d0: 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 O_should_retry(s
47e0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 42 tatePtr->bio), B
47f0: 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 61 64 28 73 IO_should_read(s
4800: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 0a 09 tatePtr->bio),..
4810: 20 20 20 20 42 49 4f 5f 73 68 6f 75 6c 64 5f 77 BIO_should_w
4820: 72 69 74 65 28 73 74 61 74 65 50 74 72 2d 3e 62 rite(statePtr->b
4830: 69 6f 29 2c 20 42 49 4f 5f 73 68 6f 75 6c 64 5f io), BIO_should_
4840: 69 6f 5f 73 70 65 63 69 61 6c 28 73 74 61 74 65 io_special(state
4850: 50 74 72 2d 3e 62 69 6f 29 29 3b 0a 09 69 66 20 Ptr->bio));..if
4860: 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 (BIO_should_retr
4870: 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 y(statePtr->bio)
4880: 29 20 7b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ) {.. *errorC
4890: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
48a0: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f ..}. }.. /
48b0: 2a 20 42 61 73 65 64 20 6f 6e 20 65 72 72 6f 72 * Based on error
48c0: 2c 20 64 6f 20 72 65 74 72 79 20 6f 72 20 61 62 , do retry or ab
48d0: 6f 72 74 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 ort */. switc
48e0: 68 20 28 72 63 29 20 7b 0a 09 63 61 73 65 20 53 h (rc) {..case S
48f0: 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 SL_ERROR_NONE:..
4900: 20 20 20 20 2f 2a 20 49 2f 4f 20 6f 70 65 72 61 /* I/O opera
4910: 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 20 2a tion completed *
4920: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
4930: 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 22 29 SSL_ERROR_NONE")
4940: 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 42 75 66 ;.. dprintBuf
4950: 66 65 72 28 62 75 66 2c 20 62 79 74 65 73 52 65 fer(buf, bytesRe
4960: 61 64 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b ad);.. break;
4970: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
4980: 52 5f 53 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 R_SSL:.. /* A
4990: 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 non-recoverable
49a0: 2c 20 66 61 74 61 6c 20 65 72 72 6f 72 20 69 6e , fatal error in
49b0: 20 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 the SSL library
49c0: 20 6f 63 63 75 72 72 65 64 2c 0a 09 20 20 20 20 occurred,..
49d0: 20 20 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f usually a pro
49e0: 74 6f 63 6f 6c 20 65 72 72 6f 72 2e 20 2a 2f 0a tocol error. */.
49f0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
4a00: 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 46 61 74 L_ERROR_SSL: Fat
4a10: 61 6c 20 53 53 4c 20 70 72 6f 74 6f 63 6f 6c 20 al SSL protocol
4a20: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 22 29 error occurred")
4a30: 3b 0a 09 20 20 20 20 69 66 20 28 65 72 72 20 21 ;.. if (err !
4a40: 3d 20 30 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 = 0) {...Tls_Err
4a50: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 or(statePtr, ERR
4a60: 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 _reason_error_st
4a70: 72 69 6e 67 28 65 72 72 29 29 3b 0a 09 20 20 20 ring(err));..
4a80: 20 7d 20 65 6c 73 65 20 69 66 20 28 53 53 4c 5f } else if (SSL_
4a90: 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c get_verify_resul
4aa0: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
4ab0: 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b != X509_V_OK) {
4ac0: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
4ad0: 74 65 50 74 72 2c 0a 09 09 20 20 20 20 58 35 30 tePtr,... X50
4ae0: 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 9_verify_cert_er
4af0: 72 6f 72 5f 73 74 72 69 6e 67 28 53 53 4c 5f 67 ror_string(SSL_g
4b00: 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 et_verify_result
4b10: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 (statePtr->ssl))
4b20: 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b );.. } else {
4b30: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
4b40: 74 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 tePtr, "Unknown
4b50: 53 53 4c 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 SSL error");..
4b60: 20 20 7d 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 }.. *errorC
4b70: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 odePtr = ECONNAB
4b80: 4f 52 54 45 44 3b 0a 09 20 20 20 20 62 79 74 65 ORTED;.. byte
4b90: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 0a 23 69 66 sRead = -1;..#if
4ba0: 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e OPENSSL_VERSION
4bb0: 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 _NUMBER >= 0x300
4bc0: 30 30 30 30 30 4c 0a 09 20 20 20 20 2f 2a 20 55 00000L.. /* U
4bd0: 6e 65 78 70 65 63 74 65 64 20 45 4f 46 20 66 72 nexpected EOF fr
4be0: 6f 6d 20 74 68 65 20 70 65 65 72 20 66 6f 72 20 om the peer for
4bf0: 4f 70 65 6e 53 53 4c 20 33 2e 30 2b 20 2a 2f 0a OpenSSL 3.0+ */.
4c00: 09 20 20 20 20 69 66 20 28 45 52 52 5f 47 45 54 . if (ERR_GET
4c10: 5f 52 45 41 53 4f 4e 28 65 72 72 29 20 3d 3d 20 _REASON(err) ==
4c20: 53 53 4c 5f 52 5f 55 4e 45 58 50 45 43 54 45 44 SSL_R_UNEXPECTED
4c30: 5f 45 4f 46 5f 57 48 49 4c 45 5f 52 45 41 44 49 _EOF_WHILE_READI
4c40: 4e 47 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 NG) {...dprintf(
4c50: 22 28 55 6e 65 78 70 65 63 74 65 64 29 20 45 4f "(Unexpected) EO
4c60: 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 F reached")...*e
4c70: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
4c80: 0a 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 30 ...bytesRead = 0
4c90: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
4ca0: 61 74 65 50 74 72 2c 20 22 45 4f 46 20 72 65 61 atePtr, "EOF rea
4cb0: 63 68 65 64 22 29 3b 0a 09 20 20 20 20 7d 20 65 ched");.. } e
4cc0: 6c 73 65 20 7b 0a 09 09 73 74 61 74 65 50 74 72 lse {...statePtr
4cd0: 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 ->flags |= TLS_T
4ce0: 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 3b 0a CL_FATAL_ERROR;.
4cf0: 09 20 20 20 20 7d 0a 23 65 6c 73 65 0a 09 20 20 . }.#else..
4d00: 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 statePtr->flag
4d10: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 54 s |= TLS_TCL_FAT
4d20: 41 4c 5f 45 52 52 4f 52 3b 0a 23 65 6e 64 69 66 AL_ERROR;.#endif
4d30: 0a 09 20 20 20 20 0a 09 20 20 20 20 73 74 61 74 .. .. stat
4d40: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
4d50: 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 LS_TCL_EOF;..
4d60: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
4d70: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
4d80: 41 44 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 65 72 AD:.. /* Oper
4d90: 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f ation did not co
4da0: 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 6e 6f mplete due to no
4db0: 74 20 65 6e 6f 75 67 68 20 64 61 74 61 20 77 61 t enough data wa
4dc0: 73 20 61 76 61 69 6c 61 62 6c 65 2e 0a 09 20 20 s available...
4dd0: 20 20 20 20 20 52 65 74 72 79 20 61 67 61 69 6e Retry again
4de0: 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 20 20 20 later. */..
4df0: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c dprintf("Got SSL
4e00: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 _ERROR_WANT_READ
4e10: 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 73 20 74 , mapping this t
4e20: 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 o EAGAIN");..
4e30: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
4e40: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 EAGAIN;.. by
4e50: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 tesRead = -1;..
4e60: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e statePtr->wan
4e70: 74 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c t |= TCL_READABL
4e80: 45 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f E;.. BIO_set_
4e90: 72 65 74 72 79 5f 72 65 61 64 28 73 74 61 74 65 retry_read(state
4ea0: 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 Ptr->bio);..
4eb0: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
4ec0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 L_ERROR_WANT_WRI
4ed0: 54 45 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 65 72 TE:.. /* Oper
4ee0: 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f ation did not co
4ef0: 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 75 6e mplete due to un
4f00: 61 62 6c 65 20 74 6f 20 73 65 6e 64 20 61 6c 6c able to send all
4f10: 20 64 61 74 61 20 74 6f 20 74 68 65 0a 09 20 20 data to the..
4f20: 20 20 20 20 20 42 49 4f 2e 20 52 65 74 72 79 20 BIO. Retry
4f30: 61 67 61 69 6e 20 6c 61 74 65 72 2e 20 2a 2f 0a again later. */.
4f40: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
4f50: 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 t SSL_ERROR_WANT
4f60: 5f 57 52 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 _WRITE, mapping
4f70: 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 this to EAGAIN")
4f80: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
4f90: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
4fa0: 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 bytesRead =
4fb0: 2d 31 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 -1;.. statePt
4fc0: 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 57 r->want |= TCL_W
4fd0: 52 49 54 41 42 4c 45 3b 0a 09 20 20 20 20 42 49 RITABLE;.. BI
4fe0: 4f 5f 73 65 74 5f 72 65 74 72 79 5f 77 72 69 74 O_set_retry_writ
4ff0: 65 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 e(statePtr->bio)
5000: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
5010: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
5020: 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a ANT_X509_LOOKUP:
5030: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 .. /* The ope
5040: 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 ration did not c
5050: 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 73 65 20 omplete because
5060: 61 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 an application c
5070: 61 6c 6c 62 61 63 6b 0a 09 20 20 20 20 20 20 20 allback..
5080: 73 65 74 20 62 79 20 53 53 4c 5f 43 54 58 5f 73 set by SSL_CTX_s
5090: 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 74 5f 63 et_client_cert_c
50a0: 62 28 29 20 68 61 73 20 61 73 6b 65 64 20 74 6f b() has asked to
50b0: 20 62 65 20 63 61 6c 6c 65 64 20 61 67 61 69 6e be called again
50c0: 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
50d0: 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 f("Got SSL_ERROR
50e0: 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 _WANT_X509_LOOKU
50f0: 50 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 6f P, mapping it to
5100: 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 EAGAIN");..
5110: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
5120: 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 74 EAGAIN;.. byt
5130: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 esRead = -1;..
5140: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
5150: 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c SSL_ERROR_SYSCAL
5160: 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 20 L:.. /* Some
5170: 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c non-recoverable,
5180: 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 fatal I/O error
5190: 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 20 occurred */..
51a0: 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 dprintf("SSL_E
51b0: 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 20 46 61 RROR_SYSCALL: Fa
51c0: 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tal I/O error oc
51d0: 63 75 72 72 65 64 22 29 3b 0a 0a 09 20 20 20 20 curred");...
51e0: 69 66 20 28 65 72 72 20 3d 3d 20 30 20 26 26 20 if (err == 0 &&
51f0: 62 79 74 65 73 52 65 61 64 20 3d 3d 20 30 29 20 bytesRead == 0)
5200: 7b 0a 09 09 2f 2a 20 55 6e 65 78 70 65 63 74 65 {.../* Unexpecte
5210: 64 20 45 4f 46 20 66 72 6f 6d 20 74 68 65 20 70 d EOF from the p
5220: 65 65 72 20 66 6f 72 20 4f 70 65 6e 53 53 4c 20 eer for OpenSSL
5230: 31 2e 31 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 1.1 */...dprintf
5240: 28 22 28 55 6e 65 78 70 65 63 74 65 64 29 20 45 ("(Unexpected) E
5250: 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a OF reached")...*
5260: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
5270: 3b 0a 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ;...bytesRead =
5280: 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 0;...Tls_Error(s
5290: 74 61 74 65 50 74 72 2c 20 22 45 4f 46 20 72 65 tatePtr, "EOF re
52a0: 61 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d ached");... }
52b0: 20 65 6c 73 65 20 69 66 20 28 65 72 72 20 3d 3d else if (err ==
52c0: 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 20 0 && bytesRead
52d0: 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e == -1) {...dprin
52e0: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tf("I/O error oc
52f0: 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 curred (errno =
5300: 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 %lu)", (unsigned
5310: 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 long) Tcl_GetEr
5320: 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 rno());...*error
5330: 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 CodePtr = Tcl_Ge
5340: 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79 74 65 tErrno();...byte
5350: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 73 74 sRead = -1;...st
5360: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
5370: 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 TLS_TCL_FATAL_E
5380: 52 52 4f 52 3b 0a 09 09 54 6c 73 5f 45 72 72 6f RROR;...Tls_Erro
5390: 72 28 73 74 61 74 65 50 74 72 2c 20 54 63 6c 5f r(statePtr, Tcl_
53a0: 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 6f 72 43 ErrnoMsg(*errorC
53b0: 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 20 odePtr));...
53c0: 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e } else {...dprin
53d0: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tf("I/O error oc
53e0: 63 75 72 72 65 64 20 28 65 72 72 20 3d 20 25 6c curred (err = %l
53f0: 75 29 22 2c 20 65 72 72 29 3b 0a 09 09 2a 65 72 u)", err);...*er
5400: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
5410: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 _GetErrno();...b
5420: 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 ytesRead = -1;..
5430: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
5440: 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 |= TLS_TCL_FATA
5450: 4c 5f 45 52 52 4f 52 3b 0a 09 09 54 6c 73 5f 45 L_ERROR;...Tls_E
5460: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 rror(statePtr, E
5470: 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f RR_reason_error_
5480: 73 74 72 69 6e 67 28 65 72 72 29 29 3b 0a 09 20 string(err));..
5490: 20 20 20 7d 0a 09 20 20 20 20 73 74 61 74 65 50 }.. stateP
54a0: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
54b0: 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 62 _TCL_EOF;.. b
54c0: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c reak;...case SSL
54d0: 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 _ERROR_ZERO_RETU
54e0: 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 50 65 65 72 RN:.. /* Peer
54f0: 20 68 61 73 20 63 6c 65 61 6e 6c 79 20 63 6c 6f has cleanly clo
5500: 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 sed the connecti
5510: 6f 6e 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 on by sending th
5520: 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 0a 09 e close_notify..
5530: 20 20 20 20 20 20 20 61 6c 65 72 74 2e 20 43 61 alert. Ca
5540: 6e 27 74 20 72 65 61 64 2c 20 62 75 74 20 63 61 n't read, but ca
5550: 6e 20 77 72 69 74 65 2e 20 4e 65 65 64 20 74 6f n write. Need to
5560: 20 72 65 74 75 72 6e 20 61 6e 20 45 4f 46 2c 20 return an EOF,
5570: 73 6f 20 74 68 65 0a 09 20 20 20 20 20 20 20 63 so the.. c
5580: 68 61 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 65 64 hannel is closed
5590: 20 77 68 69 63 68 20 77 69 6c 6c 20 73 65 6e 64 which will send
55a0: 20 61 6e 20 53 53 4c 5f 73 68 75 74 64 6f 77 6e an SSL_shutdown
55b0: 28 29 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 (). */.. dpri
55c0: 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 5a ntf("SSL_ERROR_Z
55d0: 45 52 4f 5f 52 45 54 55 52 4e 3a 20 50 65 65 72 ERO_RETURN: Peer
55e0: 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 has closed the
55f0: 63 6f 6e 6e 65 63 74 69 6f 6e 22 29 3b 0a 09 20 connection");..
5600: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
5610: 20 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 65 73 = 0;.. bytes
5620: 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 73 Read = 0;.. s
5630: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
5640: 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 = TLS_TCL_EOF;..
5650: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
5660: 61 74 65 50 74 72 2c 20 22 50 65 65 72 20 68 61 atePtr, "Peer ha
5670: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
5680: 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 nection for writ
5690: 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 ing by sending t
56a0: 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 he close_notify
56b0: 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 62 72 alert");.. br
56c0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
56d0: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 ERROR_WANT_ASYNC
56e0: 3a 0a 09 20 20 20 20 2f 2a 20 55 73 65 64 20 77 :.. /* Used w
56f0: 69 74 68 20 66 6c 61 67 20 53 53 4c 5f 4d 4f 44 ith flag SSL_MOD
5700: 45 5f 41 53 59 4e 43 2c 20 6f 70 65 72 61 74 69 E_ASYNC, operati
5710: 6f 6e 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 on didn't comple
5720: 74 65 20 62 65 63 61 75 73 65 0a 09 20 20 20 20 te because..
5730: 20 20 20 61 6e 20 61 73 79 6e 63 20 65 6e 67 69 an async engi
5740: 6e 65 20 69 73 20 73 74 69 6c 6c 20 70 72 6f 63 ne is still proc
5750: 65 73 73 69 6e 67 20 64 61 74 61 2e 20 2a 2f 0a essing data. */.
5760: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
5770: 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 t SSL_ERROR_WANT
5780: 5f 41 53 59 4e 43 2c 20 6d 61 70 70 69 6e 67 20 _ASYNC, mapping
5790: 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 this to EAGAIN")
57a0: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
57b0: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
57c0: 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 bytesRead =
57d0: 30 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 0;.. break;..
57e0: 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 2f .default:.. /
57f0: 2a 20 4f 74 68 65 72 20 65 72 72 6f 72 20 2a 2f * Other error */
5800: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 4f .. dprintf("O
5810: 74 68 65 72 20 65 72 72 6f 72 2c 20 61 62 6f 72 ther error, abor
5820: 74 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 t");.. *error
5830: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 CodePtr = 0;..
5840: 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b bytesRead = 0;
5850: 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 .. Tls_Error(
5860: 73 74 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e 6f statePtr, "Unkno
5870: 77 6e 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 wn error");..
5880: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 break;. }..
5890: 20 20 20 64 70 72 69 6e 74 66 28 22 49 6e 70 75 dprintf("Inpu
58a0: 74 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 64 5d t(%d) -> %d [%d]
58b0: 22 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 74 65 ", bufSize, byte
58c0: 73 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 6f 64 sRead, *errorCod
58d0: 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 ePtr);. retur
58e0: 6e 20 62 79 74 65 73 52 65 61 64 3b 0a 7d 0a 0a n bytesRead;.}..
58f0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
5900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5940: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f 75 74 70 --. *. * TlsOutp
5950: 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 utProc --. *. *.
5960: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 This procedure i
5970: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
5980: 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c 61 79 generic I/O lay
5990: 65 72 20 74 6f 20 77 72 69 74 65 20 64 61 74 61 er to write data
59a0: 20 74 6f 20 74 68 65 0a 20 2a 09 42 49 4f 20 77 to the. *.BIO w
59b0: 68 65 6e 65 76 65 72 20 74 68 65 20 74 68 65 20 henever the the
59c0: 54 63 6c 5f 57 72 69 74 65 28 29 2c 20 54 63 6c Tcl_Write(), Tcl
59d0: 5f 57 72 69 74 65 43 68 61 72 73 2c 20 61 6e 64 _WriteChars, and
59e0: 20 54 63 6c 5f 57 72 69 74 65 4f 62 6a 0a 20 2a Tcl_WriteObj. *
59f0: 09 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 75 .functions are u
5a00: 73 65 64 2e 20 45 71 75 69 76 61 6c 65 6e 74 20 sed. Equivalent
5a10: 74 6f 20 53 53 4c 5f 77 72 69 74 65 5f 65 78 20 to SSL_write_ex
5a20: 61 6e 64 20 53 53 4c 5f 77 72 69 74 65 2e 0a 20 and SSL_write..
5a30: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
5a40: 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d .Returns the num
5a50: 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 ber of bytes wri
5a60: 74 74 65 6e 20 6f 72 20 2d 31 20 6f 6e 20 65 72 tten or -1 on er
5a70: 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f 72 43 ror. Sets errorC
5a80: 6f 64 65 50 74 72 0a 20 2a 09 74 6f 20 61 20 50 odePtr. *.to a P
5a90: 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 OSIX error code
5aa0: 69 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 if an error occu
5ab0: 72 72 65 64 2c 20 6f 72 20 30 20 69 66 20 73 75 rred, or 0 if su
5ac0: 63 63 65 73 73 66 75 6c 2e 0a 20 2a 0a 20 2a 20 ccessful.. *. *
5ad0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
5ae0: 09 57 72 69 74 65 73 20 64 61 74 61 20 74 6f 20 .Writes data to
5af0: 53 53 4c 2f 42 49 4f 2e 0a 20 2a 0a 20 2a 2d 2d SSL/BIO.. *. *--
5b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
5b50: 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 4f 75 static int TlsOu
5b60: 74 70 75 74 50 72 6f 63 28 0a 20 20 20 20 43 6c tputProc(. Cl
5b70: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
5b80: 65 44 61 74 61 2c 09 2f 2a 20 43 6f 6e 6e 65 63 eData,./* Connec
5b90: 74 69 6f 6e 20 73 74 61 74 65 20 69 6e 66 6f 20 tion state info
5ba0: 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 */. const cha
5bb0: 72 20 2a 62 75 66 2c 09 09 2f 2a 20 42 75 66 66 r *buf,../* Buff
5bc0: 65 72 20 77 69 74 68 20 64 61 74 61 20 74 6f 20 er with data to
5bd0: 77 72 69 74 65 20 74 6f 20 42 49 4f 20 2a 2f 0a write to BIO */.
5be0: 20 20 20 20 69 6e 74 20 74 6f 57 72 69 74 65 2c int toWrite,
5bf0: 09 09 2f 2a 20 53 69 7a 65 20 6f 66 20 64 61 74 ../* Size of dat
5c00: 61 20 74 6f 20 77 72 69 74 65 20 69 6e 20 62 79 a to write in by
5c10: 74 65 73 20 2a 2f 0a 20 20 20 20 69 6e 74 20 2a tes */. int *
5c20: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 09 09 2f errorCodePtr)../
5c30: 2a 20 53 74 6f 72 61 67 65 20 66 6f 72 20 65 72 * Storage for er
5c40: 72 6f 72 20 63 6f 64 65 20 74 6f 20 72 65 74 75 ror code to retu
5c50: 72 6e 20 2a 2f 0a 7b 0a 20 20 20 20 75 6e 73 69 rn */.{. unsi
5c60: 67 6e 65 64 20 6c 6f 6e 67 20 65 72 72 3b 0a 20 gned long err;.
5c70: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
5c80: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
5c90: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 nstanceData;.
5ca0: 20 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 72 63 int written, rc
5cb0: 2c 20 72 65 61 73 6f 6e 2c 20 69 73 5f 66 61 74 , reason, is_fat
5cc0: 61 6c 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 74 al, bioShouldRet
5cd0: 72 79 2c 20 69 6f 5f 65 72 72 3b 0a 20 20 20 20 ry, io_err;.
5ce0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
5cf0: 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 0;.. dprintf(
5d00: 22 57 72 69 74 65 20 25 64 20 62 79 74 65 73 22 "Write %d bytes"
5d10: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20 20 20 , toWrite);.
5d20: 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 75 66 dprintBuffer(buf
5d30: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 0a 20 20 20 , toWrite);..
5d40: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 74 68 65 /* Abort if the
5d50: 20 75 73 65 72 20 76 65 72 69 66 79 20 63 61 6c user verify cal
5d60: 6c 62 61 63 6b 20 69 73 20 73 74 69 6c 6c 20 72 lback is still r
5d70: 75 6e 6e 69 6e 67 20 74 6f 20 61 76 6f 69 64 20 unning to avoid
5d80: 74 72 69 67 67 65 72 69 6e 67 0a 20 20 20 20 20 triggering.
5d90: 2a 20 61 6e 6f 74 68 65 72 20 63 61 6c 6c 20 62 * another call b
5da0: 65 66 6f 72 65 20 74 68 65 20 63 75 72 72 65 6e efore the curren
5db0: 74 20 6f 6e 65 20 69 73 20 63 6f 6d 70 6c 65 74 t one is complet
5dc0: 65 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 e. */. if (st
5dd0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
5de0: 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b TLS_TCL_CALLBACK
5df0: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 44 6f ) {..dprintf("Do
5e00: 6e 27 74 20 70 72 6f 63 65 73 73 20 6f 75 74 70 n't process outp
5e10: 75 74 20 77 68 69 6c 65 20 63 61 6c 6c 62 61 63 ut while callbac
5e20: 6b 73 20 61 72 65 20 72 75 6e 6e 69 6e 67 22 29 ks are running")
5e30: 3b 0a 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b ;..written = -1;
5e40: 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
5e50: 3d 20 45 41 47 41 49 4e 3b 0a 09 72 65 74 75 72 = EAGAIN;..retur
5e60: 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 n -1;. }..
5e70: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 63 6f 6e /* Abort if con
5e80: 6e 65 63 74 69 6f 6e 20 68 61 73 20 66 61 69 6c nection has fail
5e90: 65 64 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ed. */. if (s
5ea0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
5eb0: 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 TLS_TCL_FATAL_E
5ec0: 52 52 4f 52 29 20 7b 0a 09 64 70 72 69 6e 74 66 RROR) {..dprintf
5ed0: 28 22 46 61 74 61 6c 20 65 72 72 6f 72 20 61 6c ("Fatal error al
5ee0: 72 65 61 64 79 20 64 65 74 65 63 74 65 64 2c 20 ready detected,
5ef0: 61 62 6f 72 74 20 77 72 69 74 65 22 29 3b 0a 09 abort write");..
5f00: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
5f10: 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 72 ECONNABORTED;..r
5f20: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a eturn -1;. }.
5f30: 0a 20 20 20 20 2f 2a 20 49 66 20 6e 6f 74 20 69 . /* If not i
5f40: 6e 69 74 69 61 6c 69 7a 65 64 2c 20 64 6f 20 63 nitialized, do c
5f50: 6f 6e 6e 65 63 74 2e 20 43 61 6e 20 61 6c 73 6f onnect. Can also
5f60: 20 63 68 65 63 6b 20 53 53 4c 5f 69 73 5f 69 6e check SSL_is_in
5f70: 69 74 5f 66 69 6e 69 73 68 65 64 28 29 2e 20 2a it_finished(). *
5f80: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
5f90: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
5fa0: 54 43 4c 5f 49 4e 49 54 29 20 7b 0a 09 69 6e 74 TCL_INIT) {..int
5fb0: 20 74 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 tlsConnect;...d
5fc0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 printf("Calling
5fd0: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
5fe0: 63 74 22 29 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 ct");...tlsConne
5ff0: 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 ct = Tls_WaitFor
6000: 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 Connect(statePtr
6010: 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 , errorCodePtr,
6020: 31 29 3b 0a 09 69 66 20 28 74 6c 73 43 6f 6e 6e 1);..if (tlsConn
6030: 65 63 74 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 ect < 0) {..
6040: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 dprintf("Got an
6050: 65 72 72 6f 72 20 77 61 69 74 69 6e 67 20 74 6f error waiting to
6060: 20 63 6f 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e connect (tlsCon
6070: 6e 65 63 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f nect = %i, *erro
6080: 72 43 6f 64 65 50 74 72 20 3d 20 25 69 29 22 2c rCodePtr = %i)",
6090: 0a 09 09 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a ...tlsConnect, *
60a0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 0a errorCodePtr);..
60b0: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
60c0: 31 3b 0a 09 20 20 20 20 69 66 20 28 2a 65 72 72 1;.. if (*err
60d0: 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f orCodePtr == ECO
60e0: 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 64 70 72 NNRESET) {...dpr
60f0: 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 63 intf("Got connec
6100: 74 69 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 09 tion reset");...
6110: 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 /* Soft EOF */..
6120: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
6130: 20 30 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 0;...written =
6140: 30 3b 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 66 0;...statePtr->f
6150: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
6160: 45 4f 46 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 EOF;.. }..
6170: 20 72 65 74 75 72 6e 20 77 72 69 74 74 65 6e 3b return written;
6180: 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 74 6c 73 ..} else if (tls
6190: 43 6f 6e 6e 65 63 74 20 3d 3d 20 30 29 20 7b 0a Connect == 0) {.
61a0: 09 20 20 20 20 2f 2a 20 54 72 79 20 61 67 61 69 . /* Try agai
61b0: 6e 20 2a 2f 0a 09 20 20 20 20 77 72 69 74 74 65 n */.. writte
61c0: 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 72 65 74 n = -1;.. ret
61d0: 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a 09 7d 0a urn written;..}.
61e0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 46 6c }.. /* Fl
61f0: 75 73 68 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 ush */. if (t
6200: 6f 57 72 69 74 65 20 3d 3d 20 30 29 20 7b 0a 09 oWrite == 0) {..
6210: 64 70 72 69 6e 74 66 28 22 7a 65 72 6f 2d 77 72 dprintf("zero-wr
6220: 69 74 65 22 29 3b 0a 0a 09 69 66 20 28 42 49 4f ite");...if (BIO
6230: 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d _flush(statePtr-
6240: 3e 62 69 6f 29 20 3c 3d 20 30 29 20 7b 0a 09 20 >bio) <= 0) {..
6250: 20 20 20 64 70 72 69 6e 74 66 28 22 46 6c 75 73 dprintf("Flus
6260: 68 69 6e 67 20 66 61 69 6c 65 64 22 29 3b 0a 09 hing failed");..
6270: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
6280: 61 74 65 50 74 72 2c 20 22 46 6c 75 73 68 20 66 atePtr, "Flush f
6290: 61 69 6c 65 64 22 29 3b 0a 0a 09 20 20 20 20 2a ailed");... *
62a0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
62b0: 49 4f 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e IO;.. written
62c0: 20 3d 20 30 3b 0a 09 20 20 20 20 72 65 74 75 72 = 0;.. retur
62d0: 6e 20 2d 31 3b 0a 09 7d 0a 0a 09 2a 65 72 72 6f n -1;..}...*erro
62e0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 77 rCodePtr = 0;..w
62f0: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 72 65 74 ritten = 0;..ret
6300: 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 urn 0;. }..
6310: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 65 20 6e /*. * We n
6320: 65 65 64 20 74 6f 20 63 6c 65 61 72 20 74 68 65 eed to clear the
6330: 20 53 53 4c 20 65 72 72 6f 72 20 73 74 61 63 6b SSL error stack
6340: 20 6e 6f 77 20 62 65 63 61 75 73 65 20 77 65 20 now because we
6350: 73 6f 6d 65 74 69 6d 65 73 20 72 65 61 63 68 0a sometimes reach.
6360: 20 20 20 20 20 2a 20 74 68 69 73 20 66 75 6e 63 * this func
6370: 74 69 6f 6e 20 77 69 74 68 20 6c 65 66 74 6f 76 tion with leftov
6380: 65 72 20 65 72 72 6f 72 73 20 69 6e 20 74 68 65 er errors in the
6390: 20 73 74 61 63 6b 2e 20 20 49 66 20 42 49 4f 5f stack. If BIO_
63a0: 77 72 69 74 65 0a 20 20 20 20 20 2a 20 72 65 74 write. * ret
63b0: 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 6e 74 65 urns -1 and inte
63c0: 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 68 65 72 nds EAGAIN, ther
63d0: 65 20 69 73 20 61 20 6c 65 66 74 6f 76 65 72 20 e is a leftover
63e0: 65 72 72 6f 72 2c 20 69 74 20 77 69 6c 6c 20 62 error, it will b
63f0: 65 0a 20 20 20 20 20 2a 20 6d 69 73 63 6f 6e 73 e. * miscons
6400: 74 72 75 65 64 20 61 73 20 61 6e 20 65 72 72 6f trued as an erro
6410: 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a 20 r, not EAGAIN..
6420: 20 20 20 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e */. dprin
6430: 74 66 28 22 42 49 4f 5f 77 72 69 74 65 20 65 6f tf("BIO_write eo
6440: 66 3d 25 64 2c 20 62 75 66 66 65 72 65 64 3d 25 f=%d, buffered=%
6450: 64 2c 20 69 6e 70 75 74 3d 25 64 2c 20 6f 75 74 d, input=%d, out
6460: 70 75 74 3d 25 64 22 2c 20 54 63 6c 5f 45 6f 66 put=%d", Tcl_Eof
6470: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
6480: 2c 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 42 75 66 , Tcl_ChannelBuf
6490: 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e fered(statePtr->
64a0: 73 65 6c 66 29 2c 20 5c 0a 20 20 20 20 20 20 20 self), \.
64b0: 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 Tcl_InputBuffer
64c0: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
64d0: 66 29 2c 20 54 63 6c 5f 4f 75 74 70 75 74 42 75 f), Tcl_OutputBu
64e0: 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d ffered(statePtr-
64f0: 3e 73 65 6c 66 29 29 3b 0a 20 20 20 20 54 63 6c >self));. Tcl
6500: 5f 53 65 74 45 72 72 6e 6f 28 30 29 3b 0a 20 20 _SetErrno(0);.
6510: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
6520: 72 28 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 r();. BIO_cle
6530: 61 72 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 73 ar_retry_flags(s
6540: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 20 tatePtr->bio);.
6550: 20 20 20 77 72 69 74 74 65 6e 20 3d 20 42 49 4f written = BIO
6560: 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d _write(statePtr-
6570: 3e 62 69 6f 2c 20 62 75 66 2c 20 74 6f 57 72 69 >bio, buf, toWri
6580: 74 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 te);. dprintf
6590: 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c 20 ("BIO_write(%p,
65a0: 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 20 28 76 %d) -> [%d]", (v
65b0: 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 2c oid *) statePtr,
65c0: 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 65 toWrite, writte
65d0: 6e 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 n);. dprintf(
65e0: 22 42 49 4f 5f 77 72 69 74 65 20 65 6f 66 3d 25 "BIO_write eof=%
65f0: 64 2c 20 62 75 66 66 65 72 65 64 3d 25 64 2c 20 d, buffered=%d,
6600: 69 6e 70 75 74 3d 25 64 2c 20 6f 75 74 70 75 74 input=%d, output
6610: 3d 25 64 22 2c 20 54 63 6c 5f 45 6f 66 28 73 74 =%d", Tcl_Eof(st
6620: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 atePtr->self), T
6630: 63 6c 5f 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 cl_ChannelBuffer
6640: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
6650: 66 29 2c 20 5c 0a 20 20 20 20 20 20 20 20 54 63 f), \. Tc
6660: 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 l_InputBuffered(
6670: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
6680: 20 54 63 6c 5f 4f 75 74 70 75 74 42 75 66 66 65 Tcl_OutputBuffe
6690: 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 red(statePtr->se
66a0: 6c 66 29 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 61 lf));.. /* Sa
66b0: 6d 65 20 61 73 20 53 53 4c 5f 77 61 6e 74 2c 20 me as SSL_want,
66c0: 62 75 74 20 61 6c 73 6f 20 63 68 65 63 6b 73 20 but also checks
66d0: 74 68 65 20 65 72 72 6f 72 20 71 75 65 75 65 20 the error queue
66e0: 2a 2f 0a 20 20 20 20 72 63 20 3d 20 53 53 4c 5f */. rc = SSL_
66f0: 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 get_error(stateP
6700: 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 65 6e tr->ssl, written
6710: 29 3b 0a 20 20 20 20 65 72 72 20 3d 20 45 52 52 );. err = ERR
6720: 5f 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a 20 20 _get_error();.
6730: 20 20 72 65 61 73 6f 6e 20 3d 20 45 52 52 5f 47 reason = ERR_G
6740: 45 54 5f 52 45 41 53 4f 4e 28 65 72 72 29 3b 0a ET_REASON(err);.
6750: 20 20 20 20 69 73 5f 66 61 74 61 6c 20 3d 20 45 is_fatal = E
6760: 52 52 5f 46 41 54 41 4c 5f 45 52 52 4f 52 28 65 RR_FATAL_ERROR(e
6770: 72 72 29 3b 0a 20 20 20 20 2f 2a 20 54 68 65 20 rr);. /* The
6780: 72 65 74 72 79 20 66 6c 61 67 20 69 73 20 73 65 retry flag is se
6790: 74 20 62 79 20 74 68 65 20 42 49 4f 5f 73 65 74 t by the BIO_set
67a0: 5f 72 65 74 72 79 5f 2a 20 66 75 6e 63 74 69 6f _retry_* functio
67b0: 6e 73 20 2a 2f 0a 20 20 20 20 62 69 6f 53 68 6f ns */. bioSho
67c0: 75 6c 64 52 65 74 72 79 20 3d 20 42 49 4f 5f 73 uldRetry = BIO_s
67d0: 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 hould_retry(stat
67e0: 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 20 20 20 20 ePtr->bio);.
67f0: 69 6f 5f 65 72 72 20 3d 20 54 63 6c 5f 47 65 74 io_err = Tcl_Get
6800: 45 72 72 6e 6f 28 29 3b 0a 20 20 20 20 64 70 72 Errno();. dpr
6810: 69 6e 74 66 28 22 57 72 69 74 65 3a 20 77 72 69 intf("Write: wri
6820: 74 74 65 6e 3d 25 64 2c 20 72 63 3d 25 64 2c 20 tten=%d, rc=%d,
6830: 65 72 72 3d 25 6c 64 2c 20 72 65 61 73 6f 6e 3d err=%ld, reason=
6840: 25 64 2c 20 69 73 5f 66 61 74 61 6c 3d 25 64 2c %d, is_fatal=%d,
6850: 20 6c 69 62 3d 25 73 2c 20 6d 73 67 3d 25 73 2c lib=%s, msg=%s,
6860: 20 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 3d bioShouldRetry=
6870: 25 64 2c 20 65 72 72 6e 6f 3d 25 64 2c 20 69 64 %d, errno=%d, id
6880: 3d 25 73 2c 20 6d 73 67 3d 25 73 22 2c 20 5c 0a =%s, msg=%s", \.
6890: 20 20 20 20 20 20 20 20 77 72 69 74 74 65 6e 2c written,
68a0: 20 72 63 2c 20 65 72 72 2c 20 72 65 61 73 6f 6e rc, err, reason
68b0: 2c 20 69 73 5f 66 61 74 61 6c 2c 20 45 52 52 5f , is_fatal, ERR_
68c0: 6c 69 62 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 lib_error_string
68d0: 28 65 72 72 29 2c 20 45 52 52 5f 72 65 61 73 6f (err), ERR_reaso
68e0: 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 n_error_string(e
68f0: 72 72 29 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 rr), bioShouldRe
6900: 74 72 79 2c 20 69 6f 5f 65 72 72 2c 20 54 63 6c try, io_err, Tcl
6910: 5f 45 72 72 6e 6f 49 64 28 29 2c 20 54 63 6c 5f _ErrnoId(), Tcl_
6920: 45 72 72 6e 6f 4d 73 67 28 69 6f 5f 65 72 72 29 ErrnoMsg(io_err)
6930: 29 3b 0a 0a 20 20 20 20 69 66 20 28 77 72 69 74 );.. if (writ
6940: 74 65 6e 20 3c 3d 20 30 29 20 7b 0a 09 64 70 72 ten <= 0) {..dpr
6950: 69 6e 74 66 28 22 57 72 69 74 65 20 66 61 69 6c intf("Write fail
6960: 65 64 3a 20 69 73 20 45 4f 46 3d 25 64 2c 20 73 ed: is EOF=%d, s
6970: 68 6f 75 6c 64 20 72 65 74 72 79 3d 25 64 2c 20 hould retry=%d,
6980: 72 65 74 72 79 20 72 65 61 64 3d 25 64 2c 20 72 retry read=%d, r
6990: 65 74 72 79 20 77 72 69 74 65 3d 25 64 2c 20 6f etry write=%d, o
69a0: 74 68 65 72 3d 25 64 22 2c 0a 09 20 20 20 20 42 ther=%d",.. B
69b0: 49 4f 5f 65 6f 66 28 73 74 61 74 65 50 74 72 2d IO_eof(statePtr-
69c0: 3e 62 69 6f 29 2c 20 42 49 4f 5f 73 68 6f 75 6c >bio), BIO_shoul
69d0: 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 d_retry(statePtr
69e0: 2d 3e 62 69 6f 29 2c 20 42 49 4f 5f 73 68 6f 75 ->bio), BIO_shou
69f0: 6c 64 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 ld_read(statePtr
6a00: 2d 3e 62 69 6f 29 2c 0a 09 20 20 20 20 42 49 4f ->bio),.. BIO
6a10: 5f 73 68 6f 75 6c 64 5f 77 72 69 74 65 28 73 74 _should_write(st
6a20: 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 42 49 atePtr->bio), BI
6a30: 4f 5f 73 68 6f 75 6c 64 5f 69 6f 5f 73 70 65 63 O_should_io_spec
6a40: 69 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ial(statePtr->bi
6a50: 6f 29 29 3b 0a 09 69 66 20 28 42 49 4f 5f 73 68 o));..if (BIO_sh
6a60: 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 ould_retry(state
6a70: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 Ptr->bio)) {..
6a80: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
6a90: 3d 20 45 41 47 41 49 4e 3b 0a 09 7d 0a 20 20 20 = EAGAIN;..}.
6aa0: 20 7d 20 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 66 } else {..BIO_f
6ab0: 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 lush(statePtr->b
6ac0: 69 6f 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 io);. }..
6ad0: 2f 2a 20 42 61 73 65 64 20 6f 6e 20 65 72 72 6f /* Based on erro
6ae0: 72 2c 20 64 6f 20 72 65 74 72 79 20 6f 72 20 61 r, do retry or a
6af0: 62 6f 72 74 20 2a 2f 0a 20 20 20 20 73 77 69 74 bort */. swit
6b00: 63 68 20 28 72 63 29 20 7b 0a 09 63 61 73 65 20 ch (rc) {..case
6b10: 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a SSL_ERROR_NONE:.
6b20: 09 20 20 20 20 2f 2a 20 49 2f 4f 20 6f 70 65 72 . /* I/O oper
6b30: 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 20 ation completed
6b40: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
6b50: 22 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 22 "SSL_ERROR_NONE"
6b60: 29 3b 0a 09 20 20 20 20 69 66 20 28 77 72 69 74 );.. if (writ
6b70: 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09 77 72 69 ten < 0) {...wri
6b80: 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 7d tten = 0;.. }
6b90: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
6ba0: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 ase SSL_ERROR_SS
6bb0: 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e L:.. /* A non
6bc0: 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 -recoverable, fa
6bd0: 74 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 tal error in the
6be0: 20 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 SSL library occ
6bf0: 75 72 72 65 64 2c 0a 09 20 20 20 20 20 20 20 75 urred,.. u
6c00: 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 6f 63 6f sually a protoco
6c10: 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 l error */..
6c20: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
6c30: 4f 52 5f 53 53 4c 3a 20 46 61 74 61 6c 20 53 53 OR_SSL: Fatal SS
6c40: 4c 20 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 L protocol error
6c50: 20 6f 63 63 75 72 72 65 64 22 29 3b 0a 09 20 20 occurred");..
6c60: 20 20 69 66 20 28 65 72 72 20 21 3d 20 30 29 20 if (err != 0)
6c70: 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 {...Tls_Error(st
6c80: 61 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 atePtr, ERR_reas
6c90: 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 on_error_string(
6ca0: 65 72 72 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c err));.. } el
6cb0: 73 65 20 69 66 20 28 53 53 4c 5f 67 65 74 5f 76 se if (SSL_get_v
6cc0: 65 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 erify_result(sta
6cd0: 74 65 50 74 72 2d 3e 73 73 6c 29 20 21 3d 20 58 tePtr->ssl) != X
6ce0: 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 509_V_OK) {...Tl
6cf0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
6d00: 2c 0a 09 09 20 20 20 20 58 35 30 39 5f 76 65 72 ,... X509_ver
6d10: 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 ify_cert_error_s
6d20: 74 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 tring(SSL_get_ve
6d30: 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 rify_result(stat
6d40: 65 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 ePtr->ssl)));..
6d50: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c } else {...Tl
6d60: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
6d70: 2c 20 22 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 , "Unknown SSL e
6d80: 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 rror");.. }..
6d90: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
6da0: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
6db0: 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
6dc0: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
6dd0: 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 L_FATAL_ERROR;..
6de0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c statePtr->fl
6df0: 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 ags |= TLS_TCL_E
6e00: 4f 46 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e OF;.. written
6e10: 20 3d 20 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 = -1;.. brea
6e20: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
6e30: 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 ROR_WANT_READ:..
6e40: 20 20 20 20 2f 2a 20 4f 70 65 72 61 74 69 6f 6e /* Operation
6e50: 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 did not complet
6e60: 65 20 64 75 65 20 74 6f 20 6e 6f 74 20 65 6e 6f e due to not eno
6e70: 75 67 68 20 64 61 74 61 20 77 61 73 20 61 76 61 ugh data was ava
6e80: 69 6c 61 62 6c 65 2e 0a 09 20 20 20 20 20 20 20 ilable...
6e90: 52 65 74 72 79 20 61 67 61 69 6e 20 6c 61 74 65 Retry again late
6ea0: 72 20 77 69 74 68 20 73 61 6d 65 20 64 61 74 61 r with same data
6eb0: 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
6ec0: 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 f("Got SSL_ERROR
6ed0: 5f 57 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70 70 _WANT_READ, mapp
6ee0: 69 6e 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e ing it to EAGAIN
6ef0: 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ");.. *errorC
6f00: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
6f10: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 .. written =
6f20: 2d 31 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 -1;.. statePt
6f30: 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 52 r->want |= TCL_R
6f40: 45 41 44 41 42 4c 45 3b 0a 09 20 20 20 20 42 49 EADABLE;.. BI
6f50: 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 O_set_retry_read
6f60: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
6f70: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
6f80: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
6f90: 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 20 20 2f NT_WRITE:.. /
6fa0: 2a 20 4f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 * Operation did
6fb0: 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 64 75 65 not complete due
6fc0: 20 74 6f 20 75 6e 61 62 6c 65 20 74 6f 20 73 65 to unable to se
6fd0: 6e 64 20 61 6c 6c 20 64 61 74 61 20 74 6f 20 74 nd all data to t
6fe0: 68 65 0a 09 20 20 20 20 20 20 20 42 49 4f 2e 20 he.. BIO.
6ff0: 52 65 74 72 79 20 6c 61 74 65 72 20 77 69 74 68 Retry later with
7000: 20 73 61 6d 65 20 64 61 74 61 2e 20 2a 2f 0a 09 same data. */..
7010: 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 dprintf("Got
7020: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
7030: 57 52 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 69 WRITE, mapping i
7040: 74 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 t to EAGAIN");..
7050: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
7060: 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 r = EAGAIN;..
7070: 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 written = -1;..
7080: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 statePtr->wa
7090: 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 nt |= TCL_WRITAB
70a0: 4c 45 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 LE;.. BIO_set
70b0: 5f 72 65 74 72 79 5f 77 72 69 74 65 28 73 74 61 _retry_write(sta
70c0: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 tePtr->bio);..
70d0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
70e0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 SSL_ERROR_WANT_X
70f0: 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 509_LOOKUP:..
7100: 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 6f /* The operatio
7110: 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 n did not comple
7120: 74 65 20 62 65 63 61 75 73 65 20 61 6e 20 61 70 te because an ap
7130: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 62 61 plication callba
7140: 63 6b 0a 09 20 20 20 20 20 20 20 73 65 74 20 62 ck.. set b
7150: 79 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c y SSL_CTX_set_cl
7160: 69 65 6e 74 5f 63 65 72 74 5f 63 62 28 29 20 68 ient_cert_cb() h
7170: 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 20 63 as asked to be c
7180: 61 6c 6c 65 64 20 61 67 61 69 6e 2e 20 2a 2f 0a alled again. */.
7190: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
71a0: 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 t SSL_ERROR_WANT
71b0: 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 2c 20 6d 61 _X509_LOOKUP, ma
71c0: 70 70 69 6e 67 20 69 74 20 74 6f 20 45 41 47 41 pping it to EAGA
71d0: 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f IN");.. *erro
71e0: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
71f0: 4e 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 N;.. written
7200: 3d 20 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 6b = -1;.. break
7210: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
7220: 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 20 20 OR_SYSCALL:..
7230: 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 /* Some non-rec
7240: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
7250: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
7260: 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e ed */.. dprin
7270: 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 53 59 tf("SSL_ERROR_SY
7280: 53 43 41 4c 4c 3a 20 46 61 74 61 6c 20 49 2f 4f SCALL: Fatal I/O
7290: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 22 error occurred"
72a0: 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 65 72 72 );... if (err
72b0: 20 3d 3d 20 30 20 26 26 20 77 72 69 74 74 65 6e == 0 && written
72c0: 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e == 0) {...dprin
72d0: 74 66 28 22 45 4f 46 20 72 65 61 63 68 65 64 22 tf("EOF reached"
72e0: 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 )...*errorCodePt
72f0: 72 20 3d 20 30 3b 0a 09 09 77 72 69 74 74 65 6e r = 0;...written
7300: 20 3d 20 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f = 0;...Tls_Erro
7310: 72 28 73 74 61 74 65 50 74 72 2c 20 22 45 4f 46 r(statePtr, "EOF
7320: 20 72 65 61 63 68 65 64 22 29 3b 0a 0a 09 20 20 reached");...
7330: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 65 72 72 } else if (err
7340: 20 3d 3d 20 30 20 26 26 20 77 72 69 74 74 65 6e == 0 && written
7350: 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 == -1) {...dpri
7360: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
7370: 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d ccurred (errno =
7380: 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 %lu)", (unsigne
7390: 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 d long) Tcl_GetE
73a0: 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f rrno());...*erro
73b0: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
73c0: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 77 72 69 etErrno();...wri
73d0: 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 73 74 61 tten = -1;...sta
73e0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
73f0: 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 TLS_TCL_FATAL_ER
7400: 52 4f 52 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 ROR;...Tls_Error
7410: 28 73 74 61 74 65 50 74 72 2c 20 54 63 6c 5f 45 (statePtr, Tcl_E
7420: 72 72 6e 6f 4d 73 67 28 2a 65 72 72 6f 72 43 6f rrnoMsg(*errorCo
7430: 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 20 7d dePtr));... }
7440: 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 else {...dprint
7450: 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 f("I/O error occ
7460: 75 72 72 65 64 20 28 65 72 72 20 3d 20 25 6c 75 urred (err = %lu
7470: 29 22 2c 20 65 72 72 29 3b 0a 09 09 2a 65 72 72 )", err);...*err
7480: 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f orCodePtr = Tcl_
7490: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 77 72 GetErrno();...wr
74a0: 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 73 74 itten = -1;...st
74b0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
74c0: 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 TLS_TCL_FATAL_E
74d0: 52 52 4f 52 3b 0a 09 09 54 6c 73 5f 45 72 72 6f RROR;...Tls_Erro
74e0: 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 5f r(statePtr, ERR_
74f0: 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 reason_error_str
7500: 69 6e 67 28 65 72 72 29 29 3b 0a 09 20 20 20 20 ing(err));..
7510: 7d 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d }.. statePtr-
7520: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
7530: 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 62 72 65 61 L_EOF;.. brea
7540: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
7550: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
7560: 0a 09 20 20 20 20 2f 2a 20 50 65 65 72 20 68 61 .. /* Peer ha
7570: 73 20 63 6c 65 61 6e 6c 79 20 63 6c 6f 73 65 64 s cleanly closed
7580: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 the connection
7590: 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 by sending the c
75a0: 6c 6f 73 65 5f 6e 6f 74 69 66 79 0a 09 20 20 20 lose_notify..
75b0: 20 20 20 20 61 6c 65 72 74 2e 20 43 61 6e 27 74 alert. Can't
75c0: 20 72 65 61 64 2c 20 62 75 74 20 63 61 6e 20 77 read, but can w
75d0: 72 69 74 65 2e 20 4e 65 65 64 20 74 6f 20 72 65 rite. Need to re
75e0: 74 75 72 6e 20 61 6e 20 45 4f 46 2c 20 73 6f 20 turn an EOF, so
75f0: 74 68 65 0a 09 20 20 20 20 20 20 20 63 68 61 6e the.. chan
7600: 6e 65 6c 20 69 73 20 63 6c 6f 73 65 64 20 77 68 nel is closed wh
7610: 69 63 68 20 77 69 6c 6c 20 73 65 6e 64 20 61 6e ich will send an
7620: 20 53 53 4c 5f 73 68 75 74 64 6f 77 6e 28 29 2e SSL_shutdown().
7630: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
7640: 28 22 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f ("SSL_ERROR_ZERO
7650: 5f 52 45 54 55 52 4e 3a 20 50 65 65 72 20 68 61 _RETURN: Peer ha
7660: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
7670: 6e 65 63 74 69 6f 6e 22 29 3b 0a 09 20 20 20 20 nection");..
7680: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
7690: 30 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 0;.. written
76a0: 3d 20 30 3b 0a 09 20 20 20 20 73 74 61 74 65 50 = 0;.. stateP
76b0: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
76c0: 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 54 _TCL_EOF;.. T
76d0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
76e0: 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 6c 6f r, "Peer has clo
76f0: 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 sed the connecti
7700: 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 20 62 on for writing b
7710: 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c y sending the cl
7720: 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 ose_notify alert
7730: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ");.. break;.
7740: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
7750: 5f 57 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 20 20 _WANT_ASYNC:..
7760: 20 20 2f 2a 20 55 73 65 64 20 77 69 74 68 20 66 /* Used with f
7770: 6c 61 67 20 53 53 4c 5f 4d 4f 44 45 5f 41 53 59 lag SSL_MODE_ASY
7780: 4e 43 2c 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 NC, operation di
7790: 64 6e 27 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 dn't complete be
77a0: 63 61 75 73 65 0a 09 20 20 20 20 20 20 20 61 6e cause.. an
77b0: 20 61 73 79 6e 63 20 65 6e 67 69 6e 65 20 69 73 async engine is
77c0: 20 73 74 69 6c 6c 20 70 72 6f 63 65 73 73 69 6e still processin
77d0: 67 20 64 61 74 61 2e 20 2a 2f 0a 09 20 20 20 20 g data. */..
77e0: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c dprintf("Got SSL
77f0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e _ERROR_WANT_ASYN
7800: 43 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 73 20 C, mapping this
7810: 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 to EAGAIN");..
7820: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
7830: 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 = EAGAIN;.. w
7840: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 ritten = 0;..
7850: 20 62 72 65 61 6b 3b 0a 0a 09 64 65 66 61 75 6c break;...defaul
7860: 74 3a 0a 09 20 20 20 20 2f 2a 20 4f 74 68 65 72 t:.. /* Other
7870: 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 64 error */.. d
7880: 70 72 69 6e 74 66 28 22 4f 74 68 65 72 20 65 72 printf("Other er
7890: 72 6f 72 2c 20 61 62 6f 72 74 22 29 3b 0a 09 20 ror, abort");..
78a0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
78b0: 20 3d 20 30 3b 0a 09 20 20 20 20 77 72 69 74 74 = 0;.. writt
78c0: 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 54 6c 73 en = 0;.. Tls
78d0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
78e0: 20 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 22 "Unknown error"
78f0: 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 );.. break;.
7900: 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 }.. dprint
7910: 66 28 22 4f 75 74 70 75 74 28 25 64 29 20 2d 3e f("Output(%d) ->
7920: 20 25 64 22 2c 20 74 6f 57 72 69 74 65 2c 20 77 %d", toWrite, w
7930: 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 72 65 74 ritten);. ret
7940: 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a 7d 0a 0a urn written;.}..
7950: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
7960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79a0: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 47 65 74 --. *. * Tls_Get
79b0: 50 61 72 65 6e 74 20 2d 2d 0a 20 2a 0a 20 2a 09 Parent --. *. *.
79c0: 47 65 74 20 70 61 72 65 6e 74 20 63 68 61 6e 6e Get parent chann
79d0: 65 6c 20 66 6f 72 20 61 20 73 74 61 63 6b 65 64 el for a stacked
79e0: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
79f0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 63 6c 5f Results:. *.Tcl_
7a00: 43 68 61 6e 6e 65 6c 20 6f 72 20 4e 55 4c 4c 20 Channel or NULL
7a10: 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d if none.. *. *--
7a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
7a70: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 54 6c 73 5f Tcl_Channel Tls_
7a80: 47 65 74 50 61 72 65 6e 74 28 0a 20 20 20 20 53 GetParent(. S
7a90: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 09 tate *statePtr,.
7aa0: 09 2f 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 ./* Connection s
7ab0: 74 61 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 tate info */.
7ac0: 20 69 6e 74 20 6d 61 73 6b 46 6c 61 67 73 29 09 int maskFlags).
7ad0: 09 2f 2a 20 57 68 69 63 68 20 66 6c 61 67 73 20 ./* Which flags
7ae0: 74 6f 20 70 72 6f 63 65 73 73 20 2a 2f 0a 7b 0a to process */.{.
7af0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 71 dprintf("Req
7b00: 75 65 73 74 65 64 20 74 6f 20 67 65 74 20 70 61 uested to get pa
7b10: 72 65 6e 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 rent of channel
7b20: 25 70 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 %p", statePtr->s
7b30: 65 6c 66 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 elf);.. if ((
7b40: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
7b50: 26 20 7e 6d 61 73 6b 46 6c 61 67 73 29 20 26 20 & ~maskFlags) &
7b60: 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 TLS_TCL_FASTPATH
7b70: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 73 ) {..dprintf("As
7b80: 6b 65 64 20 74 6f 20 67 65 74 20 74 68 65 20 70 ked to get the p
7b90: 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 77 68 arent channel wh
7ba0: 69 6c 65 20 77 65 20 61 72 65 20 75 73 69 6e 67 ile we are using
7bb0: 20 46 61 73 74 50 61 74 68 20 2d 2d 20 72 65 74 FastPath -- ret
7bc0: 75 72 6e 69 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 urning NULL");..
7bd0: 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 return NULL;.
7be0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 }. return Tc
7bf0: 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e l_GetStackedChan
7c00: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 nel(statePtr->se
7c10: 6c 66 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d lf);.}../*. *---
7c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
7c70: 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f TlsSetOptionPro
7c80: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 65 74 73 20 c --. *. *.Sets
7c90: 61 6e 20 6f 70 74 69 6f 6e 20 74 6f 20 76 61 6c an option to val
7ca0: 75 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 ue for a SSL soc
7cb0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
7cc0: 6c 2e 20 43 61 6c 6c 65 64 20 62 79 20 74 68 65 l. Called by the
7cd0: 0a 20 2a 09 67 65 6e 65 72 69 63 20 49 2f 4f 20 . *.generic I/O
7ce0: 6c 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 74 layer whenever t
7cf0: 68 65 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 he Tcl_SetChanne
7d00: 6c 4f 70 74 69 6f 6e 28 29 20 66 75 6e 63 74 69 lOption() functi
7d10: 6f 6e 20 69 73 20 75 73 65 64 2e 0a 20 2a 0a 20 on is used.. *.
7d20: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 43 * Results:. *.TC
7d30: 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 L_OK if successf
7d40: 75 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 ul or TCL_ERROR
7d50: 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a if failed.. *. *
7d60: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
7d70: 2a 09 55 70 64 61 74 65 73 20 63 68 61 6e 6e 65 *.Updates channe
7d80: 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 6e 65 77 20 l option to new
7d90: 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d value.. *. *----
7da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
7df0: 61 74 69 63 20 69 6e 74 0a 54 6c 73 53 65 74 4f atic int.TlsSetO
7e00: 70 74 69 6f 6e 50 72 6f 63 28 0a 20 20 20 20 43 ptionProc(. C
7e10: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
7e20: 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 ceData,./* Socke
7e30: 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 t state. */.
7e40: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
7e50: 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f rp,../* For erro
7e60: 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c rs - can be NULL
7e70: 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 . */. const c
7e80: 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c har *optionName,
7e90: 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 ./* Name of the
7ea0: 6f 70 74 69 6f 6e 20 74 6f 20 73 65 74 20 74 68 option to set th
7eb0: 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a e value for, or.
7ec0: 09 09 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 .... * NULL to g
7ed0: 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 et all options a
7ee0: 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e nd their values.
7ef0: 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 */. const ch
7f00: 61 72 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 ar *optionValue)
7f10: 09 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 6f 70 ./* Value for op
7f20: 74 69 6f 6e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 tion. */.{. S
7f30: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
7f40: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 (State *) insta
7f50: 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c nceData;. Tcl
7f60: 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 _Channel parent
7f70: 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 = Tls_GetParent(
7f80: 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 statePtr, TLS_TC
7f90: 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a 20 20 20 L_FASTPATH);.
7fa0: 20 54 63 6c 5f 44 72 69 76 65 72 53 65 74 4f 70 Tcl_DriverSetOp
7fb0: 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 74 tionProc *setOpt
7fc0: 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 64 70 ionProc;.. dp
7fd0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 74 6f rintf("Called to
7fe0: 20 73 65 74 20 6f 70 74 69 6f 6e 20 25 73 20 74 set option %s t
7ff0: 6f 20 76 61 6c 75 65 20 25 73 22 2c 20 6f 70 74 o value %s", opt
8000: 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 ionName, optionV
8010: 61 6c 75 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 alue);.. /* P
8020: 61 73 73 20 74 6f 20 70 61 72 65 6e 74 20 2a 2f ass to parent */
8030: 0a 20 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 . setOptionPr
8040: 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c oc = Tcl_Channel
8050: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 SetOptionProc(Tc
8060: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
8070: 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 (parent));. i
8080: 66 20 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 f (setOptionProc
8090: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 != NULL) {..ret
80a0: 75 72 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e 50 urn (*setOptionP
80b0: 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e roc)(Tcl_GetChan
80c0: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
80d0: 70 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c parent), interp,
80e0: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 optionName, opt
80f0: 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d ionValue);. }
8100: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 . /*. * R
8110: 65 71 75 65 73 74 20 66 6f 72 20 61 20 73 70 65 equest for a spe
8120: 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 cific option has
8130: 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e to fail, we don
8140: 27 74 20 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 't have any..
8150: 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 */. return
8160: 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 Tcl_BadChannelOp
8170: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 tion(interp, opt
8180: 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 3b 0a 7d 0a ionName, "");.}.
8190: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
81a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81e0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 ---. *. * TlsGet
81f0: 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a OptionProc --. *
8200: 0a 20 2a 09 47 65 74 20 61 20 6f 70 74 69 6f 6e . *.Get a option
8210: 27 73 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 's value for a S
8220: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
8230: 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 20 6c 69 channel, or a li
8240: 73 74 20 6f 66 20 61 6c 6c 0a 20 2a 09 6f 70 74 st of all. *.opt
8250: 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 ions and their v
8260: 61 6c 75 65 73 2e 20 43 61 6c 6c 65 64 20 62 79 alues. Called by
8270: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f 4f the generic I/O
8280: 20 6c 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 layer whenever
8290: 74 68 65 0a 20 2a 09 54 63 6c 5f 47 65 74 43 68 the. *.Tcl_GetCh
82a0: 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 29 20 66 75 annelOption() fu
82b0: 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 2e 0a nction is used..
82c0: 20 2a 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 *. *. * Results
82d0: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 :. *.TCL_OK if s
82e0: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
82f0: 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 _ERROR if failed
8300: 2e 20 53 65 74 73 20 6f 70 74 69 6f 6e 56 61 6c . Sets optionVal
8310: 75 65 20 74 6f 0a 20 2a 09 74 68 65 20 6f 70 74 ue to. *.the opt
8320: 69 6f 6e 27 73 20 76 61 6c 75 65 2e 0a 20 2a 0a ion's value.. *.
8330: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
8340: 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d . *.None. *. *--
8350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
83a0: 73 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 47 65 static int.TlsGe
83b0: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 0a 20 20 20 tOptionProc(.
83c0: 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 ClientData inst
83d0: 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 anceData,./* Soc
83e0: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 ket state. */.
83f0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
8400: 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 terp,../* For er
8410: 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 rors - can be NU
8420: 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 LL. */. const
8430: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d char *optionNam
8440: 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 e,./* Name of th
8450: 65 20 6f 70 74 69 6f 6e 20 74 6f 20 72 65 74 72 e option to retr
8460: 69 65 76 65 20 74 68 65 20 76 61 6c 75 65 20 66 ieve the value f
8470: 6f 72 2c 0a 09 09 09 09 20 2a 20 6f 72 20 4e 55 or,..... * or NU
8480: 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 LL to get all op
8490: 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 tions and their
84a0: 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 54 values. */. T
84b0: 63 6c 5f 44 53 74 72 69 6e 67 20 2a 6f 70 74 69 cl_DString *opti
84c0: 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 57 68 65 72 onValue)./* Wher
84d0: 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 63 e to store the c
84e0: 6f 6d 70 75 74 65 64 20 76 61 6c 75 65 20 69 6e omputed value in
84f0: 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63 61 6c itialized by cal
8500: 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 ler. */.{. St
8510: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
8520: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
8530: 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ceData;. Tcl_
8540: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d Channel parent =
8550: 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 Tls_GetParent(s
8560: 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c tatePtr, TLS_TCL
8570: 5f 46 41 53 54 50 41 54 48 29 3b 0a 20 20 20 20 _FASTPATH);.
8580: 54 63 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 Tcl_DriverGetOpt
8590: 69 6f 6e 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 ionProc *getOpti
85a0: 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 64 70 72 onProc;.. dpr
85b0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 74 6f 20 intf("Called to
85c0: 67 65 74 20 6f 70 74 69 6f 6e 20 25 73 22 2c 20 get option %s",
85d0: 6f 70 74 69 6f 6e 4e 61 6d 65 29 3b 0a 0a 20 20 optionName);..
85e0: 20 20 2f 2a 20 50 61 73 73 20 74 6f 20 70 61 72 /* Pass to par
85f0: 65 6e 74 20 2a 2f 0a 20 20 20 20 67 65 74 4f 70 ent */. getOp
8600: 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 tionProc = Tcl_C
8610: 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69 6f 6e 50 hannelGetOptionP
8620: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
8630: 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b elType(parent));
8640: 0a 20 20 20 20 69 66 20 28 67 65 74 4f 70 74 69 . if (getOpti
8650: 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 onProc != NULL)
8660: 7b 0a 09 72 65 74 75 72 6e 20 28 2a 67 65 74 4f {..return (*getO
8670: 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 ptionProc)(Tcl_G
8680: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
8690: 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 eData(parent), i
86a0: 6e 74 65 72 70 2c 0a 09 20 20 20 20 6f 70 74 69 nterp,.. opti
86b0: 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 onName, optionVa
86c0: 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 lue);. } else
86d0: 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 if (optionName
86e0: 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 == (char*) NULL)
86f0: 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 71 75 65 {../*.. * Reque
8700: 73 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 20 st is query for
8710: 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 69 all options, thi
8720: 73 20 69 73 20 6f 6b 2e 0a 09 20 2a 2f 0a 09 72 s is ok... */..r
8730: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 eturn TCL_OK;.
8740: 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 }. /*.
8750: 2a 20 52 65 71 75 65 73 74 20 66 6f 72 20 61 20 * Request for a
8760: 73 70 65 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 specific option
8770: 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 has to fail, we
8780: 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 2e 0a don't have any..
8790: 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 */. retu
87a0: 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 rn Tcl_BadChanne
87b0: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
87c0: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 3b optionName, "");
87d0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
87e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
87f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8820: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
8830: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 ChannelHandlerTi
8840: 6d 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c mer --. *. *.Cal
8850: 6c 65 64 20 62 79 20 74 68 65 20 6e 6f 74 69 66 led by the notif
8860: 69 65 72 20 76 69 61 20 61 20 74 69 6d 65 72 2c ier via a timer,
8870: 20 74 6f 20 67 65 6e 65 72 61 74 65 20 72 65 61 to generate rea
8880: 64 2f 77 72 69 74 65 20 65 76 65 6e 74 73 20 74 d/write events t
8890: 6f 0a 20 2a 09 66 6c 75 73 68 20 6f 75 74 20 64 o. *.flush out d
88a0: 61 74 61 20 77 61 69 74 69 6e 67 20 69 6e 20 63 ata waiting in c
88b0: 68 61 6e 6e 65 6c 20 62 75 66 66 65 72 73 2e 20 hannel buffers.
88c0: 43 61 6c 6c 65 64 20 62 79 20 54 6c 73 57 61 74 Called by TlsWat
88d0: 63 68 50 72 6f 63 20 74 6f 0a 20 2a 09 70 65 72 chProc to. *.per
88e0: 69 6f 64 69 63 61 6c 6c 79 20 63 68 65 63 6b 20 iodically check
88f0: 66 6f 72 20 6e 65 77 20 65 76 65 6e 74 73 2e 20 for new events.
8900: 55 73 65 64 20 74 6f 20 67 65 6e 65 72 61 74 65 Used to generate
8910: 20 65 76 65 6e 74 73 20 77 68 65 6e 20 64 61 74 events when dat
8920: 61 20 69 73 0a 20 2a 09 62 75 66 66 65 72 65 64 a is. *.buffered
8930: 20 69 6e 20 42 49 4f 20 61 6e 64 20 74 68 65 72 in BIO and ther
8940: 65 20 61 72 65 20 6e 6f 20 75 6e 64 65 72 6c 79 e are no underly
8950: 69 6e 67 20 63 68 61 6e 6e 65 6c 20 65 76 65 6e ing channel even
8960: 74 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ts.. *. * Result
8970: 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a s:. *.None. *. *
8980: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
8990: 2a 09 43 72 65 61 74 65 73 20 6e 6f 74 69 66 69 *.Creates notifi
89a0: 63 61 74 69 6f 6e 20 65 76 65 6e 74 2e 0a 20 2a cation event.. *
89b0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
89c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
89d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
89e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
89f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a00: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 . */.static void
8a10: 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c TlsChannelHandl
8a20: 65 72 54 69 6d 65 72 28 0a 20 20 20 20 43 6c 69 erTimer(. Cli
8a30: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
8a40: 74 61 29 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 ta)./* Socket st
8a50: 61 74 65 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 ate. */.{. St
8a60: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
8a70: 28 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 (State *) client
8a80: 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 6d 61 Data;. int ma
8a90: 73 6b 20 3d 20 73 74 61 74 65 50 74 72 2d 3e 77 sk = statePtr->w
8aa0: 61 6e 74 3b 20 2f 2a 20 49 6e 69 74 20 74 6f 20 ant; /* Init to
8ab0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 SSL_ERROR_WANT_R
8ac0: 45 41 44 20 61 6e 64 20 53 53 4c 5f 45 52 52 4f EAD and SSL_ERRO
8ad0: 52 5f 57 41 4e 54 5f 57 52 49 54 45 20 2a 2f 0a R_WANT_WRITE */.
8ae0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
8af0: 6c 6c 65 64 20 77 69 74 68 20 6d 61 73 6b 20 30 lled with mask 0
8b00: 78 25 30 32 78 22 2c 20 6d 61 73 6b 29 3b 0a 0a x%02x", mask);..
8b10: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
8b20: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
8b30: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
8b40: 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 ) {..statePtr->t
8b50: 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 imer = (Tcl_Time
8b60: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 09 54 rToken) NULL;..T
8b70: 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 cl_Release((Clie
8b80: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
8b90: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
8ba0: 20 43 68 65 63 6b 20 66 6f 72 20 61 6d 6f 75 6e Check for amoun
8bb0: 74 20 6f 66 20 64 61 74 61 20 70 65 6e 64 69 6e t of data pendin
8bc0: 67 20 69 6e 20 49 4f 20 6f 72 20 42 49 4f 20 77 g in IO or BIO w
8bd0: 72 69 74 65 20 62 75 66 66 65 72 20 2a 2f 0a 20 rite buffer */.
8be0: 20 20 20 69 66 20 28 54 63 6c 5f 4f 75 74 70 75 if (Tcl_Outpu
8bf0: 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 tBuffered(stateP
8c00: 74 72 2d 3e 73 65 6c 66 29 20 7c 7c 20 42 49 4f tr->self) || BIO
8c10: 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 _wpending(stateP
8c20: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 tr->bio)) {..dpr
8c30: 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 intf("[chan=%p]
8c40: 42 49 4f 20 77 72 69 74 61 62 6c 65 22 2c 20 73 BIO writable", s
8c50: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
8c60: 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 ..mask |= TCL_WR
8c70: 49 54 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 ITABLE;. }..
8c80: 20 20 20 2f 2a 20 43 68 65 63 6b 20 66 6f 72 20 /* Check for
8c90: 61 6d 6f 75 6e 74 20 6f 66 20 64 61 74 61 20 70 amount of data p
8ca0: 65 6e 64 69 6e 67 20 69 6e 20 49 4f 20 6f 72 20 ending in IO or
8cb0: 42 49 4f 20 72 65 61 64 20 62 75 66 66 65 72 20 BIO read buffer
8cc0: 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 49 */. if (Tcl_I
8cd0: 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 nputBuffered(sta
8ce0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 7c 7c 20 tePtr->self) ||
8cf0: 42 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 BIO_pending(stat
8d00: 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 ePtr->bio)) {..d
8d10: 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 printf("[chan=%p
8d20: 5d 20 42 49 4f 20 72 65 61 64 61 62 6c 65 22 2c ] BIO readable",
8d30: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 statePtr->self)
8d40: 3b 0a 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f ;...mask |= TCL_
8d50: 52 45 41 44 41 42 4c 45 3b 0a 20 20 20 20 7d 0a READABLE;. }.
8d60: 0a 20 20 20 20 2f 2a 20 4e 6f 74 69 66 79 20 74 . /* Notify t
8d70: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 61 he generic IO la
8d80: 79 65 72 20 74 68 61 74 20 6d 61 73 6b 20 65 76 yer that mask ev
8d90: 65 6e 74 73 20 68 61 76 65 20 6f 63 63 75 72 72 ents have occurr
8da0: 65 64 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 ed on the channe
8db0: 6c 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 l */. dprintf
8dc0: 28 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 73 ("Notifying ours
8dd0: 65 6c 76 65 73 20 77 69 74 68 20 6d 61 73 6b 3d elves with mask=
8de0: 25 64 22 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 %d", mask);.
8df0: 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 Tcl_NotifyChanne
8e00: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 l(statePtr->self
8e10: 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 73 74 61 , mask);. sta
8e20: 74 65 50 74 72 2d 3e 77 61 6e 74 20 3d 20 30 3b tePtr->want = 0;
8e30: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a . return;.}..
8e40: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
8e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e90: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 --. *. * TlsWatc
8ea0: 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 hProc --. *. *.S
8eb0: 65 74 20 75 70 20 74 68 65 20 65 76 65 6e 74 20 et up the event
8ec0: 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 notifier to watc
8ed0: 68 20 66 6f 72 20 65 76 65 6e 74 73 20 6f 66 20 h for events of
8ee0: 69 6e 74 65 72 65 73 74 20 66 72 6f 6d 20 74 68 interest from th
8ef0: 69 73 0a 20 2a 09 63 68 61 6e 6e 65 6c 2e 20 43 is. *.channel. C
8f00: 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e alled by the gen
8f10: 65 72 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 eric I/O layer w
8f20: 68 65 6e 65 76 65 72 20 74 68 65 20 75 73 65 72 henever the user
8f30: 20 28 6f 72 20 74 68 65 0a 20 2a 09 73 79 73 74 (or the. *.syst
8f40: 65 6d 29 20 61 6e 6e 6f 75 6e 63 65 73 20 69 74 em) announces it
8f50: 73 20 28 64 69 73 29 69 6e 74 65 72 65 73 74 20 s (dis)interest
8f60: 69 6e 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 in events on the
8f70: 20 63 68 61 6e 6e 65 6c 2e 20 54 68 69 73 20 69 channel. This i
8f80: 73 0a 20 2a 09 63 61 6c 6c 65 64 20 72 65 70 65 s. *.called repe
8f90: 61 74 65 64 6c 79 2e 0a 20 2a 0a 20 2a 20 52 65 atedly.. *. * Re
8fa0: 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 sults:. *.None.
8fb0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
8fc0: 73 3a 0a 20 2a 09 53 65 74 73 20 75 70 20 6f 72 s:. *.Sets up or
8fd0: 20 63 6c 65 61 72 73 20 61 20 74 69 6d 65 2d 62 clears a time-b
8fe0: 61 73 65 64 20 6e 6f 74 69 66 69 65 72 20 73 6f ased notifier so
8ff0: 20 74 68 61 74 20 66 75 74 75 72 65 20 65 76 65 that future eve
9000: 6e 74 73 20 6f 6e 20 74 68 65 0a 20 2a 09 63 68 nts on the. *.ch
9010: 61 6e 6e 65 6c 20 77 69 6c 6c 20 62 65 20 73 65 annel will be se
9020: 65 6e 20 62 79 20 54 43 4c 2e 0a 20 2a 0a 20 2a en by TCL.. *. *
9030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9040: 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a -------------. *
9080: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 54 6c /.static void.Tl
9090: 73 57 61 74 63 68 50 72 6f 63 28 0a 20 20 20 20 sWatchProc(.
90a0: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
90b0: 6e 63 65 44 61 74 61 2c 09 2f 2a 20 43 6f 6e 6e nceData,./* Conn
90c0: 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 6e 66 ection state inf
90d0: 6f 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 o */. int mas
90e0: 6b 29 09 09 09 2f 2a 20 45 76 65 6e 74 73 20 6f k).../* Events o
90f0: 66 20 69 6e 74 65 72 65 73 74 3b 20 61 6e 20 4f f interest; an O
9100: 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e R-ed combination
9110: 20 6f 66 0a 09 09 09 09 20 2a 20 54 43 4c 5f 52 of..... * TCL_R
9120: 45 41 44 41 42 4c 45 2c 20 54 43 4c 5f 57 52 49 EADABLE, TCL_WRI
9130: 54 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 58 TABLE and TCL_EX
9140: 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 CEPTION. */.{.
9150: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 Tcl_Channel pa
9160: 72 65 6e 74 3b 0a 20 20 20 20 53 74 61 74 65 20 rent;. State
9170: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
9180: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
9190: 74 61 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 ta;. Tcl_Driv
91a0: 65 72 57 61 74 63 68 50 72 6f 63 20 2a 77 61 74 erWatchProc *wat
91b0: 63 68 50 72 6f 63 3b 0a 20 20 20 20 69 6e 74 20 chProc;. int
91c0: 70 65 6e 64 69 6e 67 20 3d 20 30 3b 0a 0a 20 20 pending = 0;..
91d0: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
91e0: 64 20 77 69 74 68 20 6d 61 73 6b 20 30 78 25 30 d with mask 0x%0
91f0: 32 78 20 61 6e 64 20 77 61 6e 74 20 30 78 25 30 2x and want 0x%0
9200: 32 78 22 2c 20 6d 61 73 6b 2c 20 73 74 61 74 65 2x", mask, state
9210: 50 74 72 2d 3e 77 61 6e 74 29 3b 0a 20 20 20 20 Ptr->want);.
9220: 64 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 dprintFlags(stat
9230: 65 50 74 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 ePtr);.. /* A
9240: 62 6f 72 74 20 69 66 20 74 68 65 20 75 73 65 72 bort if the user
9250: 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b verify callback
9260: 20 69 73 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e is still runnin
9270: 67 20 74 6f 20 61 76 6f 69 64 20 74 72 69 67 67 g to avoid trigg
9280: 65 72 69 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f ering. * ano
9290: 74 68 65 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 ther call before
92a0: 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 the current one
92b0: 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f is complete. */
92c0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
92d0: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
92e0: 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 CL_CALLBACK) {..
92f0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 dprintf("Callbac
9300: 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 64 k is on-going, d
9310: 6f 69 6e 67 20 6e 6f 74 68 69 6e 67 22 29 3b 0a oing nothing");.
9320: 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a .return;. }..
9330: 20 20 20 20 2f 2a 20 47 65 74 20 63 68 61 6e 6e /* Get chann
9340: 65 6c 20 74 6f 20 6d 6f 6e 69 74 6f 72 20 66 6f el to monitor fo
9350: 72 20 65 76 65 6e 74 73 20 2a 2f 0a 20 20 20 20 r events */.
9360: 70 61 72 65 6e 74 20 3d 20 54 6c 73 5f 47 65 74 parent = Tls_Get
9370: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c Parent(statePtr,
9380: 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 TLS_TCL_FASTPAT
9390: 48 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 H);. dprintf(
93a0: 22 50 61 72 65 6e 74 3a 20 63 68 61 6e 20 62 75 "Parent: chan bu
93b0: 66 66 65 72 3d 25 64 2c 20 69 6e 70 75 74 20 62 ffer=%d, input b
93c0: 75 66 66 65 72 3d 25 64 2c 20 6f 75 74 70 75 74 uffer=%d, output
93d0: 20 62 75 66 66 65 72 3d 25 64 22 2c 20 5c 0a 09 buffer=%d", \..
93e0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 42 75 66 66 65 Tcl_ChannelBuffe
93f0: 72 65 64 28 70 61 72 65 6e 74 29 2c 20 54 63 6c red(parent), Tcl
9400: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 70 _InputBuffered(p
9410: 61 72 65 6e 74 29 2c 20 54 63 6c 5f 4f 75 74 70 arent), Tcl_Outp
9420: 75 74 42 75 66 66 65 72 65 64 28 70 61 72 65 6e utBuffered(paren
9430: 74 29 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f t));.. /* Abo
9440: 72 74 20 69 66 20 63 6f 6e 6e 65 63 74 20 66 61 rt if connect fa
9450: 69 6c 65 64 20 2a 2f 0a 20 20 20 20 69 66 20 28 iled */. if (
9460: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
9470: 26 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f & TLS_TCL_FATAL_
9480: 45 52 52 4f 52 29 20 7b 0a 09 64 70 72 69 6e 74 ERROR) {..dprint
9490: 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63 f("Asked to watc
94a0: 68 20 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20 h a socket with
94b0: 61 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 a failed handsha
94c0: 6b 65 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 ke -- nothing ca
94d0: 6e 20 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b n happen here");
94e0: 0a 09 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 ..dprintf("Unreg
94f0: 69 73 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 istering interes
9500: 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 t in the lower c
9510: 68 61 6e 6e 65 6c 22 29 3b 0a 0a 09 77 61 74 63 hannel");...watc
9520: 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e hProc = Tcl_Chan
9530: 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c nelWatchProc(Tcl
9540: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
9550: 70 61 72 65 6e 74 29 29 3b 0a 09 77 61 74 63 68 parent));..watch
9560: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
9570: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
9580: 70 61 72 65 6e 74 29 2c 20 30 29 3b 0a 09 73 74 parent), 0);..st
9590: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
95a0: 6b 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e 3b 0a k = 0;..return;.
95b0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 }.. state
95c0: 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d Ptr->watchMask =
95d0: 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a 0a 20 mask;.. /*.
95e0: 20 20 20 20 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c * No channel
95f0: 20 68 61 6e 64 6c 65 72 73 20 61 6e 79 20 6d 6f handlers any mo
9600: 72 65 2e 20 57 65 20 77 69 6c 6c 20 62 65 20 6e re. We will be n
9610: 6f 74 69 66 69 65 64 20 61 75 74 6f 6d 61 74 69 otified automati
9620: 63 61 6c 6c 79 20 61 62 6f 75 74 0a 20 20 20 20 cally about.
9630: 20 2a 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 * events on the
9640: 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 76 channel below v
9650: 69 61 20 61 20 63 61 6c 6c 20 74 6f 20 6f 75 72 ia a call to our
9660: 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 69 66 'TransformNotif
9670: 79 50 72 6f 63 27 2e 20 42 75 74 0a 20 20 20 20 yProc'. But.
9680: 20 2a 20 77 65 20 68 61 76 65 20 74 6f 20 70 61 * we have to pa
9690: 73 73 20 74 68 65 20 69 6e 74 65 72 65 73 74 20 ss the interest
96a0: 64 6f 77 6e 20 6e 6f 77 2e 20 57 65 20 61 72 65 down now. We are
96b0: 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 64 64 20 allowed to add
96c0: 61 64 64 69 74 69 6f 6e 61 6c 0a 20 20 20 20 20 additional.
96d0: 2a 20 27 69 6e 74 65 72 65 73 74 27 20 74 6f 20 * 'interest' to
96e0: 74 68 65 20 6d 61 73 6b 20 69 66 20 77 65 20 77 the mask if we w
96f0: 61 6e 74 20 74 6f 2c 20 62 75 74 20 74 68 69 73 ant to, but this
9700: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 transformation
9710: 68 61 73 20 6e 6f 0a 20 20 20 20 20 2a 20 73 75 has no. * su
9720: 63 68 20 69 6e 74 65 72 65 73 74 2e 20 49 74 20 ch interest. It
9730: 6a 75 73 74 20 70 61 73 73 65 73 20 74 68 65 20 just passes the
9740: 72 65 71 75 65 73 74 20 64 6f 77 6e 2c 20 75 6e request down, un
9750: 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f changed.. */
9760: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 . dprintf("Re
9770: 67 69 73 74 65 72 69 6e 67 20 6f 75 72 20 69 6e gistering our in
9780: 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f terest in the lo
9790: 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 63 68 61 wer channel (cha
97a0: 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 n=%p)", (void *)
97b0: 20 70 61 72 65 6e 74 29 3b 0a 20 20 20 20 77 61 parent);. wa
97c0: 74 63 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 tchProc = Tcl_Ch
97d0: 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 annelWatchProc(T
97e0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
97f0: 65 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 e(parent));.
9800: 77 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 watchProc(Tcl_Ge
9810: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
9820: 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 6d 61 Data(parent), ma
9830: 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 44 6f 20 sk);.. /* Do
9840: 77 65 20 68 61 76 65 20 61 6e 79 20 70 65 6e 64 we have any pend
9850: 69 6e 67 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 ing data */.
9860: 70 65 6e 64 69 6e 67 20 3d 20 28 73 74 61 74 65 pending = (state
9870: 50 74 72 2d 3e 77 61 6e 74 20 7c 7c 20 5c 0a 09 Ptr->want || \..
9880: 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 ((mask & TCL_REA
9890: 44 41 42 4c 45 29 20 26 26 20 28 28 54 63 6c 5f DABLE) && ((Tcl_
98a0: 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 InputBuffered(st
98b0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 atePtr->self) >
98c0: 30 29 20 7c 7c 20 28 42 49 4f 5f 63 74 72 6c 5f 0) || (BIO_ctrl_
98d0: 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 pending(statePtr
98e0: 2d 3e 62 69 6f 29 20 3e 20 30 29 29 29 20 7c 7c ->bio) > 0))) ||
98f0: 0a 09 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 57 ..((mask & TCL_W
9900: 52 49 54 41 42 4c 45 29 20 26 26 20 28 28 54 63 RITABLE) && ((Tc
9910: 6c 5f 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 l_OutputBuffered
9920: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
9930: 20 3e 20 30 29 20 7c 7c 20 28 42 49 4f 5f 63 74 > 0) || (BIO_ct
9940: 72 6c 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 rl_wpending(stat
9950: 65 50 74 72 2d 3e 62 69 6f 29 20 3e 20 30 29 29 ePtr->bio) > 0))
9960: 29 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 ));.. dprintf
9970: 28 22 49 4f 20 57 61 6e 74 3d 25 64 2c 20 69 6e ("IO Want=%d, in
9980: 70 75 74 20 62 75 66 66 65 72 3d 25 64 2c 20 6f put buffer=%d, o
9990: 75 74 70 75 74 20 62 75 66 66 65 72 3d 25 64 2c utput buffer=%d,
99a0: 20 42 49 4f 20 70 65 6e 64 69 6e 67 3d 25 7a 64 BIO pending=%zd
99b0: 2c 20 42 49 4f 20 77 70 65 6e 64 69 6e 67 3d 25 , BIO wpending=%
99c0: 7a 64 2c 20 70 65 6e 64 69 6e 67 3d 25 64 22 2c zd, pending=%d",
99d0: 20 5c 0a 09 73 74 61 74 65 50 74 72 2d 3e 77 61 \..statePtr->wa
99e0: 6e 74 2c 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 nt, Tcl_InputBuf
99f0: 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e fered(statePtr->
9a00: 73 65 6c 66 29 2c 20 54 63 6c 5f 4f 75 74 70 75 self), Tcl_Outpu
9a10: 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 tBuffered(stateP
9a20: 74 72 2d 3e 73 65 6c 66 29 2c 20 5c 0a 09 42 49 tr->self), \..BI
9a30: 4f 5f 63 74 72 6c 5f 70 65 6e 64 69 6e 67 28 73 O_ctrl_pending(s
9a40: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 42 tatePtr->bio), B
9a50: 49 4f 5f 63 74 72 6c 5f 77 70 65 6e 64 69 6e 67 IO_ctrl_wpending
9a60: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c (statePtr->bio),
9a70: 20 70 65 6e 64 69 6e 67 29 3b 0a 0a 20 20 20 20 pending);..
9a80: 2f 2a 20 52 65 6d 6f 76 65 20 74 69 6d 65 72 2c /* Remove timer,
9a90: 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 if any */. i
9aa0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d f (statePtr->tim
9ab0: 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 er != (Tcl_Timer
9ac0: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 Token) NULL) {..
9ad0: 64 70 72 69 6e 74 66 28 22 41 20 74 69 6d 65 72 dprintf("A timer
9ae0: 20 77 61 73 20 66 6f 75 6e 64 2c 20 64 65 6c 65 was found, dele
9af0: 74 69 6e 67 20 69 74 22 29 3b 0a 09 54 63 6c 5f ting it");..Tcl_
9b00: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
9b10: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
9b20: 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e er);..statePtr->
9b30: 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d timer = (Tcl_Tim
9b40: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 09 erToken) NULL;..
9b50: 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 Tcl_Release((Cli
9b60: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
9b70: 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f r);. }.. /
9b80: 2a 20 41 64 64 20 74 69 6d 65 72 2c 20 69 66 20 * Add timer, if
9b90: 6e 6f 6e 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 none */. if (
9ba0: 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 mask & TCL_READA
9bb0: 42 4c 45 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 BLE) {..dprintf(
9bc0: 22 43 72 65 61 74 69 6e 67 20 61 20 6e 65 77 20 "Creating a new
9bd0: 74 69 6d 65 72 20 73 69 6e 63 65 20 64 61 74 61 timer since data
9be0: 20 61 70 70 65 61 72 73 20 74 6f 20 62 65 20 77 appears to be w
9bf0: 61 69 74 69 6e 67 22 29 3b 0a 09 54 63 6c 5f 50 aiting");..Tcl_P
9c00: 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 reserve((ClientD
9c10: 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a ata) statePtr);.
9c20: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 .statePtr->timer
9c30: 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d = Tcl_CreateTim
9c40: 65 72 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 43 erHandler(TLS_TC
9c50: 4c 5f 44 45 4c 41 59 2c 20 54 6c 73 43 68 61 6e L_DELAY, TlsChan
9c60: 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 2c nelHandlerTimer,
9c70: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
9c80: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d atePtr);. }.}
9c90: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
9ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ce0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 ----. *. * TlsGe
9cf0: 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 tHandleProc --.
9d00: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
9d10: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 ure is invoked b
9d20: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f y the generic IO
9d30: 20 6c 65 76 65 6c 20 74 6f 20 72 65 74 72 69 65 level to retrie
9d40: 76 65 20 61 6e 20 4f 53 0a 20 2a 09 73 70 65 63 ve an OS. *.spec
9d50: 69 66 69 63 20 68 61 6e 64 6c 65 20 61 73 73 6f ific handle asso
9d60: 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 ciated with the
9d70: 63 68 61 6e 6e 65 6c 2e 20 4e 6f 74 20 75 73 65 channel. Not use
9d80: 64 20 66 6f 72 20 74 72 61 6e 73 66 6f 72 6d 73 d for transforms
9d90: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
9da0: 0a 20 2a 09 54 68 65 20 61 70 70 72 6f 70 72 69 . *.The appropri
9db0: 61 74 65 20 54 63 6c 5f 46 69 6c 65 20 68 61 6e ate Tcl_File han
9dc0: 64 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 66 20 4e dle or NULL if N
9dd0: 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 one. *. * Side e
9de0: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a ffects:. *.None.
9df0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
9e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e40: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
9e50: 74 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 t TlsGetHandlePr
9e60: 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 oc(. ClientDa
9e70: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
9e80: 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 ./* Socket state
9e90: 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 64 69 72 . */. int dir
9ea0: 65 63 74 69 6f 6e 2c 09 09 2f 2a 20 54 43 4c 5f ection,../* TCL_
9eb0: 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f READABLE or TCL_
9ec0: 57 52 49 54 41 42 4c 45 20 2a 2f 0a 20 20 20 20 WRITABLE */.
9ed0: 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e 64 ClientData *hand
9ee0: 6c 65 50 74 72 29 09 2f 2a 20 48 61 6e 64 6c 65 lePtr)./* Handle
9ef0: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 associated with
9f00: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a the channel */.
9f10: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
9f20: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
9f30: 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a ) instanceData;.
9f40: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
9f50: 6c 6c 65 64 20 77 69 74 68 20 64 69 72 65 63 74 lled with direct
9f60: 69 6f 6e 20 30 78 25 30 32 78 22 2c 20 64 69 72 ion 0x%02x", dir
9f70: 65 63 74 69 6f 6e 29 3b 0a 0a 20 20 20 20 72 65 ection);.. re
9f80: 74 75 72 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e turn Tcl_GetChan
9f90: 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 5f 47 65 nelHandle(Tls_Ge
9fa0: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 tParent(statePtr
9fb0: 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 , TLS_TCL_FASTPA
9fc0: 54 48 29 2c 0a 09 64 69 72 65 63 74 69 6f 6e 2c TH),..direction,
9fd0: 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a 0a handlePtr);.}..
9fe0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
9ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a 20 54 6c 73 4e 6f 74 69 --. *. * TlsNoti
a040: 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 fyProc --. *. *.
a050: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 This procedure i
a060: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
a070: 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 generic IO leve
a080: 6c 20 74 6f 20 6e 6f 74 69 66 79 20 74 68 65 20 l to notify the
a090: 63 68 61 6e 6e 65 6c 0a 20 2a 09 74 68 61 74 20 channel. *.that
a0a0: 61 6e 20 65 76 65 6e 74 20 68 61 73 20 6f 63 63 an event has occ
a0b0: 75 72 72 65 64 20 6f 6e 20 74 68 65 20 75 6e 64 urred on the und
a0c0: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
a0d0: 20 49 74 20 69 73 20 75 73 65 64 20 62 79 0a 20 It is used by.
a0e0: 2a 09 73 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 *.stacked channe
a0f0: 6c 20 64 72 69 76 65 72 73 20 74 68 61 74 20 77 l drivers that w
a100: 69 73 68 20 74 6f 20 62 65 20 6e 6f 74 69 66 69 ish to be notifi
a110: 65 64 20 6f 66 20 65 76 65 6e 74 73 20 74 68 61 ed of events tha
a120: 74 20 6f 63 63 75 72 0a 20 2a 09 6f 6e 20 74 68 t occur. *.on th
a130: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 28 73 74 e underlying (st
a140: 61 63 6b 65 64 29 20 63 68 61 6e 6e 65 6c 2e 0a acked) channel..
a150: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
a160: 2a 09 52 65 74 75 72 6e 73 20 6d 61 73 6b 20 76 *.Returns mask v
a170: 61 6c 75 65 20 74 6f 20 69 6e 64 69 63 61 74 65 alue to indicate
a180: 20 6e 6f 6e 65 20 6f 66 20 74 68 65 20 65 76 65 none of the eve
a190: 6e 74 73 20 77 65 72 65 20 73 65 72 76 69 63 65 nts were service
a1a0: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
a1b0: 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 63 61 fects:. *.May ca
a1c0: 6c 6c 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f ll Tls_WaitForCo
a1d0: 6e 6e 65 63 74 20 61 6e 64 2f 6f 72 20 64 65 6c nnect and/or del
a1e0: 65 74 65 20 74 69 6d 65 72 2e 0a 20 2a 0a 20 2a ete timer.. *. *
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 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
a240: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 /.static int Tls
a250: 4e 6f 74 69 66 79 50 72 6f 63 28 0a 20 20 20 20 NotifyProc(.
a260: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
a270: 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b nceData,./* Sock
a280: 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 et state. */.
a290: 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 2f 2a 20 int mask).../*
a2a0: 74 79 70 65 20 6f 66 20 65 76 65 6e 74 20 74 68 type of event th
a2b0: 61 74 20 6f 63 63 75 72 72 65 64 3a 20 4f 52 2d at occurred: OR-
a2c0: 65 64 0a 09 09 09 09 20 2a 20 63 6f 6d 62 69 6e ed..... * combin
a2d0: 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 ation of TCL_REA
a2e0: 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f 57 52 49 DABLE or TCL_WRI
a2f0: 54 41 42 4c 45 20 2a 2f 0a 7b 0a 20 20 20 20 53 TABLE */.{. S
a300: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
a310: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 (State *) insta
a320: 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 nceData;. int
a330: 20 65 72 72 6f 72 43 6f 64 65 20 3d 20 30 3b 0a errorCode = 0;.
a340: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
a350: 6c 6c 65 64 20 77 69 74 68 20 6d 61 73 6b 20 30 lled with mask 0
a360: 78 25 30 32 78 22 2c 20 6d 61 73 6b 29 3b 0a 0a x%02x", mask);..
a370: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 44 65 /*. * De
a380: 6c 65 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67 lete an existing
a390: 20 74 69 6d 65 72 2e 20 49 74 20 77 61 73 20 6e timer. It was n
a3a0: 6f 74 20 66 69 72 65 64 2c 20 79 65 74 20 77 65 ot fired, yet we
a3b0: 20 61 72 65 20 68 65 72 65 2c 20 73 6f 20 74 68 are here, so th
a3c0: 65 0a 20 20 20 20 20 2a 20 62 65 6c 6f 77 20 63 e. * below c
a3d0: 68 61 6e 6e 65 6c 20 67 65 6e 65 72 61 74 65 64 hannel generated
a3e0: 20 73 75 63 68 20 61 6e 20 65 76 65 6e 74 20 61 such an event a
a3f0: 6e 64 20 77 65 20 64 6f 6e 27 74 20 6e 65 65 64 nd we don't need
a400: 20 74 6f 2e 20 54 68 65 20 72 65 6e 65 77 61 6c to. The renewal
a410: 0a 20 20 20 20 20 2a 20 6f 66 20 74 68 65 20 69 . * of the i
a420: 6e 74 65 72 65 73 74 20 61 66 74 65 72 20 74 68 nterest after th
a430: 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 63 e execution of c
a440: 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 hannel handlers
a450: 77 69 6c 6c 20 65 76 65 6e 74 75 61 6c 6c 79 0a will eventually.
a460: 20 20 20 20 20 2a 20 63 61 75 73 65 20 75 73 20 * cause us
a470: 74 6f 20 72 65 63 72 65 61 74 65 20 74 68 65 20 to recreate the
a480: 74 69 6d 65 72 20 28 69 6e 20 54 6c 73 57 61 74 timer (in TlsWat
a490: 63 68 50 72 6f 63 29 2e 0a 20 20 20 20 20 2a 2f chProc).. */
a4a0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
a4b0: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
a4c0: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
a4d0: 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 L) {..Tcl_Delete
a4e0: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
a4f0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
a500: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
a510: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
a520: 6e 29 20 4e 55 4c 4c 3b 0a 09 54 63 6c 5f 52 65 n) NULL;..Tcl_Re
a530: 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 lease((ClientDat
a540: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
a550: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 }.. /* Abor
a560: 74 20 69 66 20 74 68 65 20 75 73 65 72 20 76 65 t if the user ve
a570: 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 rify callback is
a580: 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 74 still running t
a590: 6f 20 61 76 6f 69 64 20 74 72 69 67 67 65 72 69 o avoid triggeri
a5a0: 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f 74 68 65 ng. * anothe
a5b0: 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 20 74 68 r call before th
a5c0: 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 69 73 e current one is
a5d0: 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f 0a 20 20 complete. */.
a5e0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
a5f0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
a600: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
a610: 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 intf("Callback i
a620: 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 72 65 74 75 s on-going, retu
a630: 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 29 3b 0a rning failed");.
a640: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
a650: 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e 6f 74 20 .. /* If not
a660: 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 64 6f 20 initialized, do
a670: 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 20 20 69 connect */. i
a680: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
a690: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 gs & TLS_TCL_INI
a6a0: 54 29 20 7b 0a 09 69 6e 74 20 74 6c 73 43 6f 6e T) {..int tlsCon
a6b0: 6e 65 63 74 3b 0a 0a 09 64 70 72 69 6e 74 66 28 nect;...dprintf(
a6c0: 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 "Calling Tls_Wai
a6d0: 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a tForConnect");..
a6e0: 09 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c .tlsConnect = Tl
a6f0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
a700: 28 73 74 61 74 65 50 74 72 2c 20 26 65 72 72 6f (statePtr, &erro
a710: 72 43 6f 64 65 2c 20 31 29 3b 0a 09 69 66 20 28 rCode, 1);..if (
a720: 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 31 29 20 tlsConnect < 1)
a730: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
a740: 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 61 69 Got an error wai
a750: 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 ting to connect
a760: 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 (tlsConnect = %i
a770: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 , *errorCodePtr
a780: 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 = %i)", tlsConne
a790: 63 74 2c 20 65 72 72 6f 72 43 6f 64 65 29 3b 0a ct, errorCode);.
a7a0: 09 20 20 20 20 69 66 20 28 65 72 72 6f 72 43 6f . if (errorCo
a7b0: 64 65 20 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a de == EAGAIN) {.
a7c0: 09 09 64 70 72 69 6e 74 66 28 22 41 73 79 6e 63 ..dprintf("Async
a7d0: 20 66 6c 61 67 20 63 6f 75 6c 64 20 62 65 20 73 flag could be s
a7e0: 65 74 20 28 64 69 64 6e 27 74 20 63 68 65 63 6b et (didn't check
a7f0: 29 20 61 6e 64 20 65 72 72 6f 72 43 6f 64 65 20 ) and errorCode
a800: 3d 3d 20 45 41 47 41 49 4e 3a 20 20 52 65 74 75 == EAGAIN: Retu
a810: 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 29 3b 0a rning failed");.
a820: 0a 09 09 72 65 74 75 72 6e 20 30 3b 0a 09 20 20 ...return 0;..
a830: 20 20 7d 0a 0a 09 20 20 20 20 64 70 72 69 6e 74 }... dprint
a840: 66 28 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f f("Tls_WaitForCo
a850: 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 64 20 61 nnect returned a
a860: 6e 20 65 72 72 6f 72 22 29 3b 0a 09 7d 0a 20 20 n error");..}.
a870: 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 }.. /*.
a880: 20 2a 20 41 6e 20 65 76 65 6e 74 20 6f 63 63 75 * An event occu
a890: 72 72 65 64 20 69 6e 20 74 68 65 20 75 6e 64 65 rred in the unde
a8a0: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 20 rlying channel.
a8b0: 54 68 69 73 20 74 72 61 6e 73 66 6f 72 6d 61 74 This transformat
a8c0: 69 6f 6e 20 64 6f 65 73 6e 27 74 0a 20 20 20 20 ion doesn't.
a8d0: 20 2a 20 70 72 6f 63 65 73 73 20 73 75 63 68 20 * process such
a8e0: 65 76 65 6e 74 73 20 74 68 75 73 20 72 65 74 75 events thus retu
a8f0: 72 6e 73 20 74 68 65 20 69 6e 63 6f 6d 69 6e 67 rns the incoming
a900: 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 65 64 2e mask unchanged.
a910: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 64 70 72 . */. dpr
a920: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 intf("Returning
a930: 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 %i", mask);.
a940: 72 65 74 75 72 6e 20 6d 61 73 6b 3b 0a 7d 0a 0a return mask;.}..
a950: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
a960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a9a0: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 --. *. * Tls_Cha
a9b0: 6e 6e 65 6c 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 nnelType --. *.
a9c0: 2a 09 44 65 66 69 6e 65 73 20 74 68 65 20 54 4c *.Defines the TL
a9d0: 53 20 63 68 61 6e 6e 65 6c 20 64 72 69 76 65 72 S channel driver
a9e0: 20 68 61 6e 64 6c 65 72 73 20 66 6f 72 20 74 68 handlers for th
a9f0: 69 73 20 63 68 61 6e 6e 65 6c 20 74 79 70 65 2e is channel type.
aa00: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
aa10: 20 2a 09 52 65 74 75 72 6e 73 20 61 20 70 6f 69 *.Returns a poi
aa20: 6e 74 65 72 20 74 6f 20 54 63 6c 5f 43 68 61 6e nter to Tcl_Chan
aa30: 6e 65 6c 54 79 70 65 20 73 74 72 75 63 74 75 72 nelType structur
aa40: 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 e.. *. * Side ef
aa50: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 fects:. *.None.
aa60: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
aa70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aaa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aab0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e -. */.static con
aac0: 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 st Tcl_ChannelTy
aad0: 70 65 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 pe tlsChannelTyp
aae0: 65 20 3d 20 7b 0a 20 20 20 20 22 74 6c 73 22 2c e = {. "tls",
aaf0: 09 09 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 .../* Type name
ab00: 2a 2f 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e */. TCL_CHANN
ab10: 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a EL_VERSION_5,./*
ab20: 20 76 35 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 v5 channel */.
ab30: 20 20 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 2c TlsCloseProc,
ab40: 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f 63 20 ../* Close proc
ab50: 2a 2f 0a 20 20 20 20 54 6c 73 49 6e 70 75 74 50 */. TlsInputP
ab60: 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 74 20 70 roc,../* Input p
ab70: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 4f 75 roc */. TlsOu
ab80: 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 4f 75 tputProc,../* Ou
ab90: 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 tput proc */.
aba0: 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 65 65 6b NULL,.../* Seek
abb0: 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 proc */. Tls
abc0: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 SetOptionProc,..
abd0: 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 72 /* Set option pr
abe0: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 oc */. TlsGet
abf0: 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 2f 2a 20 OptionProc,../*
ac00: 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 Get option proc
ac10: 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74 63 68 50 */. TlsWatchP
ac20: 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c roc,../* Initial
ac30: 69 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a ize notifier */.
ac40: 20 20 20 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 TlsGetHandle
ac50: 50 72 6f 63 2c 09 09 2f 2a 20 47 65 74 20 4f 53 Proc,../* Get OS
ac60: 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 20 handles out of
ac70: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 54 channel */. T
ac80: 6c 73 43 6c 6f 73 65 32 50 72 6f 63 2c 09 09 2f lsClose2Proc,../
ac90: 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20 2a 2f 0a * close2proc */.
aca0: 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 TlsBlockMode
acb0: 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 62 6c Proc,../* Set bl
acc0: 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 ocking/nonblocki
acd0: 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 ng mode*/. NU
ace0: 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 LL,.../* Flush p
acf0: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 4e 6f roc */. TlsNo
ad00: 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a 20 48 61 tifyProc,../* Ha
ad10: 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 6e 74 73 ndling of events
ad20: 20 62 75 62 62 6c 69 6e 67 20 75 70 20 2a 2f 0a bubbling up */.
ad30: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 57 NULL,.../* W
ad40: 69 64 65 20 73 65 65 6b 20 70 72 6f 63 20 2a 2f ide seek proc */
ad50: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
ad60: 54 68 72 65 61 64 20 61 63 74 69 6f 6e 20 2a 2f Thread action */
ad70: 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f 2a 20 54 . NULL.../* T
ad80: 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b 0a 0a 63 runcate */.};..c
ad90: 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c onst Tcl_Channel
ada0: 54 79 70 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 Type *Tls_Channe
adb0: 6c 54 79 70 65 28 76 6f 69 64 29 20 7b 0a 20 20 lType(void) {.
adc0: 20 20 72 65 74 75 72 6e 20 26 74 6c 73 43 68 61 return &tlsCha
add0: 6e 6e 65 6c 54 79 70 65 3b 0a 7d 0a nnelType;.}.