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 46 41 54 41 4c 5f 45 52 52 4f S_TCL_FATAL_ERRO
0e10: 52 29 29 20 7b 0a 09 42 49 4f 5f 66 6c 75 73 68 R)) {..BIO_flush
0e20: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
0e30: 0a 09 53 53 4c 5f 73 68 75 74 64 6f 77 6e 28 73 ..SSL_shutdown(s
0e40: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 tatePtr->ssl);.
0e50: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 54 6c 73 }.. /* Tls
0e60: 5f 46 72 65 65 20 63 61 6c 6c 73 20 54 6c 73 5f _Free calls Tls_
0e70: 43 6c 65 61 6e 20 2a 2f 0a 20 20 20 20 54 63 6c Clean */. Tcl
0e80: 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 28 _EventuallyFree(
0e90: 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 74 (ClientData)stat
0ea0: 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 65 29 3b ePtr, Tls_Free);
0eb0: 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d . return 0;.}
0ec0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
0ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ef0: 2d 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 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c ----. *. * TlsCl
0f20: 6f 73 65 32 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 ose2Proc --. *.
0f30: 2a 09 53 69 6d 69 6c 61 72 20 74 6f 20 54 6c 73 *.Similar to Tls
0f40: 43 6c 6f 73 65 50 72 6f 63 2c 20 62 75 74 20 61 CloseProc, but a
0f50: 6c 6c 6f 77 73 20 66 6f 72 20 73 65 70 61 72 61 llows for separa
0f60: 74 65 20 63 6c 6f 73 65 20 6f 66 20 74 68 65 20 te close of the
0f70: 72 65 61 64 20 6f 72 0a 20 2a 09 77 72 69 74 65 read or. *.write
0f80: 20 73 69 64 65 20 6f 66 20 74 68 65 20 63 68 61 side of the cha
0f90: 6e 6e 65 6c 2e 20 57 65 20 64 6f 6e 27 74 20 73 nnel. We don't s
0fa0: 75 70 70 6f 72 74 20 74 68 65 73 65 20 73 69 6e upport these sin
0fb0: 63 65 20 54 4c 53 20 69 73 20 61 0a 20 2a 09 62 ce TLS is a. *.b
0fc0: 69 2d 64 69 72 65 63 74 69 6f 6e 61 6c 20 70 72 i-directional pr
0fd0: 6f 74 6f 63 6f 6c 2e 0a 20 2a 0a 20 2a 20 52 65 otocol.. *. * Re
0fe0: 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 20 73 sults:. *.0 if s
0ff0: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 4f 53 uccessful or POS
1000: 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 IX error code if
1010: 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 failed.. *. * S
1020: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
1030: 43 6c 6f 73 65 73 20 74 68 65 20 73 6f 63 6b 65 Closes the socke
1040: 74 20 66 6f 72 20 74 68 65 20 63 68 61 6e 6e 65 t for the channe
1050: 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d l.. *. *--------
1060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1080: 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
10b0: 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 32 50 72 int TlsClose2Pr
10c0: 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 oc(. ClientDa
10d0: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
10e0: 09 2f 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 ./* Connection s
10f0: 74 61 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 tate info */.
1100: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1110: 65 72 70 2c 09 09 2f 2a 20 54 63 6c 20 69 6e 74 erp,../* Tcl int
1120: 65 72 70 72 65 74 65 72 20 74 6f 20 72 65 70 6f erpreter to repo
1130: 72 74 20 65 72 72 6f 72 73 20 74 6f 20 2a 2f 0a rt errors to */.
1140: 20 20 20 20 69 6e 74 20 66 6c 61 67 73 29 09 09 int flags)..
1150: 09 2f 2a 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f ./* Flags to clo
1160: 73 65 20 72 65 61 64 2f 77 72 69 74 65 20 73 69 se read/write si
1170: 64 65 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f de of channel */
1180: 0a 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 .{. dprintf("
1190: 43 61 6c 6c 65 64 20 77 69 74 68 20 66 6c 61 67 Called with flag
11a0: 73 20 25 64 22 2c 20 66 6c 61 67 73 29 3b 0a 0a s %d", flags);..
11b0: 20 20 20 20 69 66 20 28 28 66 6c 61 67 73 20 26 if ((flags &
11c0: 20 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 (TCL_CLOSE_READ
11d0: 7c 54 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 |TCL_CLOSE_WRITE
11e0: 29 29 20 3d 3d 20 30 29 20 7b 0a 09 72 65 74 75 )) == 0) {..retu
11f0: 72 6e 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 rn TlsCloseProc(
1200: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e instanceData, in
1210: 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 terp);. }.
1220: 20 72 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a return EINVAL;.
1230: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
1240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1260: 2d 2d 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 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
1290: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 2d WaitForConnect -
12a0: 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 -. *. *.Perform
12b0: 63 6f 6e 6e 65 63 74 20 28 63 6c 69 65 6e 74 29 connect (client)
12c0: 20 6f 72 20 61 63 63 65 70 74 20 28 73 65 72 76 or accept (serv
12d0: 65 72 29 20 66 75 6e 63 74 69 6f 6e 2e 20 41 6c er) function. Al
12e0: 73 6f 20 70 65 72 66 6f 72 6d 73 0a 20 2a 09 65 so performs. *.e
12f0: 71 75 69 76 61 6c 65 6e 74 20 6f 66 20 68 61 6e quivalent of han
1300: 64 73 68 61 6b 65 20 66 75 6e 63 74 69 6f 6e 2e dshake function.
1310: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 3a 0a 20 . *. * Result:.
1320: 2a 09 31 20 69 66 20 73 75 63 63 65 73 73 66 75 *.1 if successfu
1330: 6c 2c 20 30 20 69 66 20 77 61 69 74 69 6e 67 20 l, 0 if waiting
1340: 66 6f 72 20 63 6f 6e 6e 65 63 74 2c 20 61 6e 64 for connect, and
1350: 20 2d 31 20 69 66 20 66 61 69 6c 65 64 2e 20 53 -1 if failed. S
1360: 65 74 73 0a 20 2a 09 65 72 72 6f 72 43 6f 64 65 ets. *.errorCode
1370: 50 74 72 20 74 6f 20 61 20 50 4f 53 49 58 20 65 Ptr to a POSIX e
1380: 72 72 6f 72 20 63 6f 64 65 20 69 66 20 61 6e 20 rror code if an
1390: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 error occurred,
13a0: 6f 72 20 30 20 69 66 20 6e 6f 74 2e 0a 20 2a 0a or 0 if not.. *.
13b0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
13c0: 0a 20 2a 09 50 65 72 66 6f 72 6d 73 20 53 53 4c . *.Performs SSL
13d0: 5f 61 63 63 65 70 74 20 6f 72 20 53 53 4c 5f 63 _accept or SSL_c
13e0: 6f 6e 6e 65 63 74 2e 0a 20 2a 0a 20 2a 2d 2d 2d onnect.. *. *---
13f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1410: 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 69 ----------. */.i
1440: 6e 74 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f nt Tls_WaitForCo
1450: 6e 6e 65 63 74 28 0a 20 20 20 20 53 74 61 74 65 nnect(. State
1460: 20 2a 73 74 61 74 65 50 74 72 2c 09 09 09 2f 2a *statePtr,.../*
1470: 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 Connection stat
1480: 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 69 6e e info */. in
1490: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 2c t *errorCodePtr,
14a0: 09 09 09 2f 2a 20 53 74 6f 72 61 67 65 20 66 6f .../* Storage fo
14b0: 72 20 65 72 72 6f 72 20 63 6f 64 65 20 74 6f 20 r error code to
14c0: 72 65 74 75 72 6e 20 2a 2f 0a 20 20 20 20 69 6e return */. in
14d0: 74 20 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 t handshakeFailu
14e0: 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 29 09 2f reIsPermanent)./
14f0: 2a 20 49 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 * Is the connect
1500: 20 66 61 69 6c 75 72 65 20 70 65 72 6d 61 6e 65 failure permane
1510: 6e 74 20 2a 2f 0a 7b 0a 20 20 20 20 75 6e 73 69 nt */.{. unsi
1520: 67 6e 65 64 20 6c 6f 6e 67 20 65 72 72 3b 0a 20 gned long err;.
1530: 20 20 20 69 6e 74 20 72 65 74 2c 20 72 63 2c 20 int ret, rc,
1540: 72 65 61 73 6f 6e 2c 20 69 73 5f 66 61 74 61 6c reason, is_fatal
1550: 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 , bioShouldRetry
1560: 2c 20 69 6f 5f 65 72 72 3b 0a 20 20 20 20 2a 65 , io_err;. *e
1570: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
1580: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 57 .. dprintf("W
1590: 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 25 70 aitForConnect(%p
15a0: 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 )", (void *) sta
15b0: 74 65 50 74 72 29 3b 0a 20 20 20 20 64 70 72 69 tePtr);. dpri
15c0: 6e 74 66 28 22 43 61 6c 6c 65 64 20 77 69 74 68 ntf("Called with
15d0: 20 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 handshakeFailur
15e0: 65 49 73 50 65 72 6d 61 6e 65 6e 74 20 25 64 22 eIsPermanent %d"
15f0: 2c 20 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 , handshakeFailu
1600: 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 29 3b 0a reIsPermanent);.
1610: 20 20 20 20 64 70 72 69 6e 74 46 6c 61 67 73 28 dprintFlags(
1620: 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 statePtr);..
1630: 2f 2a 20 43 61 6e 20 61 6c 73 6f 20 63 68 65 63 /* Can also chec
1640: 6b 20 53 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 k SSL_is_init_fi
1650: 6e 69 73 68 65 64 28 73 73 6c 29 20 2a 2f 0a 20 nished(ssl) */.
1660: 20 20 20 69 66 20 28 21 28 73 74 61 74 65 50 74 if (!(statePt
1670: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
1680: 43 4c 5f 49 4e 49 54 29 29 20 7b 0a 09 64 70 72 CL_INIT)) {..dpr
1690: 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f intf("Tls_WaitFo
16a0: 72 43 6f 6e 6e 65 63 74 20 63 61 6c 6c 65 64 20 rConnect called
16b0: 6f 6e 20 61 6c 72 65 61 64 79 20 69 6e 69 74 69 on already initi
16c0: 61 6c 69 7a 65 64 20 63 68 61 6e 6e 65 6c 20 2d alized channel -
16d0: 2d 20 72 65 74 75 72 6e 69 6e 67 20 77 69 74 68 - returning with
16e0: 20 69 6d 6d 65 64 69 61 74 65 20 73 75 63 63 65 immediate succe
16f0: 73 73 22 29 3b 0a 09 72 65 74 75 72 6e 20 31 3b ss");..return 1;
1700: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 . }.. /* D
1710: 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f ifferent types o
1720: 66 20 6f 70 65 72 61 74 69 6f 6e 73 20 68 61 76 f operations hav
1730: 65 20 64 69 66 66 65 72 65 6e 74 20 72 65 71 75 e different requ
1740: 69 72 65 6d 65 6e 74 73 20 66 6f 72 20 53 53 4c irements for SSL
1750: 20 62 65 69 6e 67 20 65 73 74 61 62 6c 69 73 68 being establish
1760: 65 64 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ed. */. if (s
1770: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
1780: 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 TLS_TCL_FATAL_E
1790: 52 52 4f 52 29 20 7b 0a 09 69 66 20 28 68 61 6e RROR) {..if (han
17a0: 64 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 dshakeFailureIsP
17b0: 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 20 20 20 ermanent) {..
17c0: 20 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 dprintf("Asked
17d0: 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c to wait for a TL
17e0: 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 S handshake that
17f0: 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 has already fai
1800: 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 led. Returning
1810: 66 61 74 61 6c 20 65 72 72 6f 72 22 29 3b 0a 09 fatal error");..
1820: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
1830: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
1840: 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 ;..} else {..
1850: 20 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 dprintf("Asked
1860: 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c to wait for a TL
1870: 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 S handshake that
1880: 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 has already fai
1890: 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 led. Returning
18a0: 73 6f 66 74 20 65 72 72 6f 72 22 29 3b 0a 09 20 soft error");..
18b0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
18c0: 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 = ECONNRESET;..
18d0: 7d 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 }..return -1;.
18e0: 20 20 7d 0a 0a 20 20 20 20 66 6f 72 20 28 3b 3b }.. for (;;
18f0: 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6e ) {..Tcl_SetErrn
1900: 6f 28 30 29 3b 0a 09 45 52 52 5f 63 6c 65 61 72 o(0);..ERR_clear
1910: 5f 65 72 72 6f 72 28 29 3b 0a 09 42 49 4f 5f 63 _error();..BIO_c
1920: 6c 65 61 72 5f 72 65 74 72 79 5f 66 6c 61 67 73 lear_retry_flags
1930: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
1940: 0a 0a 09 2f 2a 20 4e 6f 74 20 69 6e 69 74 69 61 .../* Not initia
1950: 6c 69 7a 65 64 20 79 65 74 21 20 41 6c 73 6f 20 lized yet! Also
1960: 63 61 6c 6c 73 20 53 53 4c 5f 64 6f 5f 68 61 6e calls SSL_do_han
1970: 64 73 68 61 6b 65 28 29 2e 20 2a 2f 0a 09 69 66 dshake(). */..if
1980: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
1990: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 s & TLS_TCL_SERV
19a0: 45 52 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e ER) {.. dprin
19b0: 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 53 4c 5f tf("Calling SSL_
19c0: 61 63 63 65 70 74 28 29 22 29 3b 0a 09 20 20 20 accept()");..
19d0: 20 72 65 74 20 3d 20 53 53 4c 5f 61 63 63 65 70 ret = SSL_accep
19e0: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
19f0: 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 ;...} else {..
1a00: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 dprintf("Calli
1a10: 6e 67 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 28 29 ng SSL_connect()
1a20: 22 29 3b 0a 09 20 20 20 20 72 65 74 20 3d 20 53 ");.. ret = S
1a30: 53 4c 5f 63 6f 6e 6e 65 63 74 28 73 74 61 74 65 SL_connect(state
1a40: 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 7d 0a 0a 09 Ptr->ssl);..}...
1a50: 2f 2a 20 31 3d 73 75 63 63 65 73 73 66 75 6c 2c /* 1=successful,
1a60: 20 30 3d 6e 6f 74 20 73 75 63 63 65 73 73 66 75 0=not successfu
1a70: 6c 20 61 6e 64 20 73 68 75 74 20 64 6f 77 6e 2c l and shut down,
1a80: 20 3c 30 3d 66 61 74 61 6c 20 65 72 72 6f 72 20 <0=fatal error
1a90: 2a 2f 0a 09 69 66 20 28 72 65 74 20 3e 20 30 29 */..if (ret > 0)
1aa0: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
1ab0: 22 41 63 63 65 70 74 20 6f 72 20 63 6f 6e 6e 65 "Accept or conne
1ac0: 63 74 20 77 61 73 20 73 75 63 63 65 73 73 66 75 ct was successfu
1ad0: 6c 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 42 l");... if (B
1ae0: 49 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 IO_flush(statePt
1af0: 72 2d 3e 62 69 6f 29 20 3c 3d 20 30 29 20 7b 0a r->bio) <= 0) {.
1b00: 09 09 64 70 72 69 6e 74 66 28 22 46 6c 75 73 68 ..dprintf("Flush
1b10: 69 6e 67 20 74 68 65 20 6c 6f 77 65 72 20 6c 61 ing the lower la
1b20: 79 65 72 73 20 66 61 69 6c 65 64 2c 20 74 68 69 yers failed, thi
1b30: 73 20 77 69 6c 6c 20 70 72 6f 62 61 62 6c 79 20 s will probably
1b40: 74 65 72 6d 69 6e 61 74 65 20 74 68 69 73 20 73 terminate this s
1b50: 65 73 73 69 6f 6e 22 29 3b 0a 09 20 20 20 20 7d ession");.. }
1b60: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
1b70: 64 70 72 69 6e 74 66 28 22 41 63 63 65 70 74 20 dprintf("Accept
1b80: 6f 72 20 63 6f 6e 6e 65 63 74 20 66 61 69 6c 65 or connect faile
1b90: 64 22 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 53 61 6d d");..}.../* Sam
1ba0: 65 20 61 73 20 53 53 4c 5f 77 61 6e 74 2c 20 62 e as SSL_want, b
1bb0: 75 74 20 61 6c 73 6f 20 63 68 65 63 6b 73 20 74 ut also checks t
1bc0: 68 65 20 65 72 72 6f 72 20 71 75 65 75 65 20 2a he error queue *
1bd0: 2f 0a 09 72 63 20 3d 20 53 53 4c 5f 67 65 74 5f /..rc = SSL_get_
1be0: 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e error(statePtr->
1bf0: 73 73 6c 2c 20 72 65 74 29 3b 0a 09 65 72 72 20 ssl, ret);..err
1c00: 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 = ERR_get_error(
1c10: 29 3b 0a 09 72 65 61 73 6f 6e 20 3d 20 45 52 52 );..reason = ERR
1c20: 5f 47 45 54 5f 52 45 41 53 4f 4e 28 65 72 72 29 _GET_REASON(err)
1c30: 3b 0a 09 69 73 5f 66 61 74 61 6c 20 3d 20 45 52 ;..is_fatal = ER
1c40: 52 5f 46 41 54 41 4c 5f 45 52 52 4f 52 28 65 72 R_FATAL_ERROR(er
1c50: 72 29 3b 0a 09 2f 2a 20 54 68 65 20 72 65 74 72 r);../* The retr
1c60: 79 20 66 6c 61 67 20 69 73 20 73 65 74 20 62 79 y flag is set by
1c70: 20 74 68 65 20 42 49 4f 5f 73 65 74 5f 72 65 74 the BIO_set_ret
1c80: 72 79 5f 2a 20 66 75 6e 63 74 69 6f 6e 73 20 2a ry_* functions *
1c90: 2f 0a 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 /..bioShouldRetr
1ca0: 79 20 3d 20 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 y = BIO_should_r
1cb0: 65 74 72 79 28 73 74 61 74 65 50 74 72 2d 3e 62 etry(statePtr->b
1cc0: 69 6f 29 3b 0a 09 69 6f 5f 65 72 72 20 3d 20 54 io);..io_err = T
1cd0: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 cl_GetErrno();..
1ce0: 64 70 72 69 6e 74 66 28 22 43 6f 6e 6e 65 63 74 dprintf("Connect
1cf0: 3a 20 72 65 74 3d 25 64 2c 20 72 63 3d 25 64 2c : ret=%d, rc=%d,
1d00: 20 65 72 72 3d 25 6c 64 2c 20 72 65 61 73 6f 6e err=%ld, reason
1d10: 3d 25 64 2c 20 69 73 5f 66 61 74 61 6c 3d 25 64 =%d, is_fatal=%d
1d20: 2c 20 6c 69 62 3d 25 73 2c 20 6d 73 67 3d 25 73 , lib=%s, msg=%s
1d30: 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 , bioShouldRetry
1d40: 3d 25 64 2c 20 65 72 72 6e 6f 3d 25 64 2c 20 69 =%d, errno=%d, i
1d50: 64 3d 25 73 2c 20 6d 73 67 3d 25 73 22 2c 20 5c d=%s, msg=%s", \
1d60: 0a 09 20 20 20 20 72 65 74 2c 20 72 63 2c 20 65 .. ret, rc, e
1d70: 72 72 2c 20 72 65 61 73 6f 6e 2c 20 69 73 5f 66 rr, reason, is_f
1d80: 61 74 61 6c 2c 20 45 52 52 5f 6c 69 62 5f 65 72 atal, ERR_lib_er
1d90: 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 2c ror_string(err),
1da0: 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f ERR_reason_erro
1db0: 72 5f 73 74 72 69 6e 67 28 65 72 72 29 2c 20 62 r_string(err), b
1dc0: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 ioShouldRetry, i
1dd0: 6f 5f 65 72 72 2c 20 54 63 6c 5f 45 72 72 6e 6f o_err, Tcl_Errno
1de0: 49 64 28 29 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d Id(), Tcl_ErrnoM
1df0: 73 67 28 69 6f 5f 65 72 72 29 29 3b 0a 0a 09 69 sg(io_err));...i
1e00: 66 20 28 72 65 74 20 3c 3d 20 30 29 20 7b 0a 09 f (ret <= 0) {..
1e10: 20 20 20 20 69 66 20 28 72 63 20 3d 3d 20 53 53 if (rc == SS
1e20: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e L_ERROR_WANT_CON
1e30: 4e 45 43 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 NECT || rc == SS
1e40: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 L_ERROR_WANT_ACC
1e50: 45 50 54 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 EPT) {...bioShou
1e60: 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 ldRetry = 1;..
1e70: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 63 20 } else if (rc
1e80: 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e == SSL_ERROR_WAN
1e90: 54 5f 52 45 41 44 29 20 7b 0a 09 09 62 69 6f 53 T_READ) {...bioS
1ea0: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a houldRetry = 1;.
1eb0: 09 09 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 ..statePtr->want
1ec0: 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 |= TCL_READABLE
1ed0: 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ;.. } else if
1ee0: 20 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f (rc == SSL_ERRO
1ef0: 52 5f 57 41 4e 54 5f 57 52 49 54 45 29 20 7b 0a R_WANT_WRITE) {.
1f00: 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 ..bioShouldRetry
1f10: 20 3d 20 31 3b 0a 09 09 73 74 61 74 65 50 74 72 = 1;...statePtr
1f20: 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 ->want |= TCL_WR
1f30: 49 54 41 42 4c 45 3b 0a 09 20 20 20 20 7d 0a 09 ITABLE;.. }..
1f40: 7d 0a 0a 09 69 66 20 28 62 69 6f 53 68 6f 75 6c }...if (bioShoul
1f50: 64 52 65 74 72 79 29 20 7b 0a 09 20 20 20 20 64 dRetry) {.. d
1f60: 70 72 69 6e 74 66 28 22 54 68 65 20 49 2f 4f 20 printf("The I/O
1f70: 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 did not complete
1f80: 20 2d 2d 20 62 75 74 20 77 65 20 73 68 6f 75 6c -- but we shoul
1f90: 64 20 74 72 79 20 69 74 20 61 67 61 69 6e 22 29 d try it again")
1fa0: 3b 0a 0a 09 20 20 20 20 69 66 20 28 73 74 61 74 ;... if (stat
1fb0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
1fc0: 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 S_TCL_ASYNC) {..
1fd0: 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e .dprintf("Return
1fe0: 69 6e 67 20 45 41 47 41 49 4e 20 73 6f 20 74 68 ing EAGAIN so th
1ff0: 61 74 20 69 74 20 63 61 6e 20 62 65 20 72 65 74 at it can be ret
2000: 72 69 65 64 20 6c 61 74 65 72 22 29 3b 0a 09 09 ried later");...
2010: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2020: 45 41 47 41 49 4e 3b 0a 09 09 72 65 74 75 72 6e EAGAIN;...return
2030: 20 30 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 0;.. } else
2040: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 44 6f 69 {...dprintf("Doi
2050: 6e 67 20 73 6f 20 6e 6f 77 22 29 3b 0a 09 09 63 ng so now");...c
2060: 6f 6e 74 69 6e 75 65 3b 0a 09 20 20 20 20 7d 0a ontinue;.. }.
2070: 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 57 65 .}...dprintf("We
2080: 20 68 61 76 65 20 65 69 74 68 65 72 20 63 6f 6d have either com
2090: 70 6c 65 74 65 6c 79 20 65 73 74 61 62 6c 69 73 pletely establis
20a0: 68 65 64 20 74 68 65 20 73 65 73 73 69 6f 6e 20 hed the session
20b0: 6f 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 66 61 or completely fa
20c0: 69 6c 65 64 20 69 74 20 2d 2d 20 74 68 65 72 65 iled it -- there
20d0: 20 69 73 20 6e 6f 20 6d 6f 72 65 20 6e 65 65 64 is no more need
20e0: 20 74 6f 20 65 76 65 72 20 72 65 74 72 79 20 69 to ever retry i
20f0: 74 20 74 68 6f 75 67 68 22 29 3b 0a 09 62 72 65 t though");..bre
2100: 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f ak;. }.. /
2110: 2a 20 42 61 73 65 64 20 6f 6e 20 65 72 72 6f 72 * Based on error
2120: 2c 20 64 6f 20 72 65 74 72 79 20 6f 72 20 61 62 , do retry or ab
2130: 6f 72 74 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 ort */. switc
2140: 68 20 28 72 63 29 20 7b 0a 09 63 61 73 65 20 53 h (rc) {..case S
2150: 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 SL_ERROR_NONE:..
2160: 20 20 20 20 2f 2a 20 54 68 65 20 54 4c 53 2f 53 /* The TLS/S
2170: 53 4c 20 49 2f 4f 20 6f 70 65 72 61 74 69 6f 6e SL I/O operation
2180: 20 63 6f 6d 70 6c 65 74 65 64 20 73 75 63 63 65 completed succe
2190: 73 73 66 75 6c 6c 79 20 2a 2f 0a 09 20 20 20 20 ssfully */..
21a0: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
21b0: 4f 52 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 20 20 OR_NONE");..
21c0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
21d0: 30 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 0;.. break;..
21e0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
21f0: 53 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e SSL:.. /* A n
2200: 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 on-recoverable,
2210: 66 61 74 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 fatal error in t
2220: 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 20 6f he SSL library o
2230: 63 63 75 72 72 65 64 2c 0a 09 20 20 20 20 20 20 ccurred,..
2240: 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 6f usually a proto
2250: 63 6f 6c 20 65 72 72 6f 72 2e 20 54 68 69 73 20 col error. This
2260: 69 6e 63 6c 75 64 65 73 20 63 65 72 74 69 66 69 includes certifi
2270: 63 61 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 0a cate validation.
2280: 09 20 20 20 20 20 20 20 65 72 72 6f 72 73 2e 20 . errors.
2290: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
22a0: 22 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 "SSL_ERROR_SSL:
22b0: 46 61 74 61 6c 20 53 53 4c 20 70 72 6f 74 6f 63 Fatal SSL protoc
22c0: 6f 6c 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 ol error occurre
22d0: 64 22 29 3b 0a 09 20 20 20 20 69 66 20 28 53 53 d");.. if (SS
22e0: 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 L_get_verify_res
22f0: 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ult(statePtr->ss
2300: 6c 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 l) != X509_V_OK)
2310: 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 {...Tls_Error(s
2320: 74 61 74 65 50 74 72 2c 0a 09 09 20 20 20 20 58 tatePtr,... X
2330: 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 509_verify_cert_
2340: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 53 53 4c error_string(SSL
2350: 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 _get_verify_resu
2360: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c lt(statePtr->ssl
2370: 29 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 )));.. }..
2380: 20 69 66 20 28 65 72 72 20 21 3d 20 30 29 20 7b if (err != 0) {
2390: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
23a0: 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f tePtr, ERR_reaso
23b0: 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 n_error_string(e
23c0: 72 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 rr));.. }..
23d0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
23e0: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
23f0: 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 . statePtr->f
2400: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
2410: 46 41 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 FATAL_ERROR;..
2420: 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 statePtr->flag
2430: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 s |= TLS_TCL_EOF
2440: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 ;.. return -1
2450: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
2460: 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 OR_WANT_READ:..
2470: 20 20 20 2f 2a 20 4d 6f 72 65 20 64 61 74 61 20 /* More data
2480: 6d 75 73 74 20 62 65 20 72 65 61 64 20 66 72 6f must be read fro
2490: 6d 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 m the underlying
24a0: 20 42 49 4f 20 6c 61 79 65 72 20 69 6e 20 6f 72 BIO layer in or
24b0: 64 65 72 20 74 6f 0a 09 20 20 20 20 20 20 20 63 der to.. c
24c0: 6f 6d 70 6c 65 74 65 20 74 68 65 20 61 63 74 75 omplete the actu
24d0: 61 6c 20 53 53 4c 5f 2a 28 29 20 6f 70 65 72 61 al SSL_*() opera
24e0: 74 69 6f 6e 2e 20 20 2a 2f 0a 09 20 20 20 20 64 tion. */.. d
24f0: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
2500: 52 5f 57 41 4e 54 5f 52 45 41 44 3a 20 45 41 47 R_WANT_READ: EAG
2510: 41 49 4e 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f AIN");.. BIO_
2520: 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 73 set_retry_read(s
2530: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 tatePtr->bio);..
2540: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
2550: 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 r = EAGAIN;..
2560: 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 statePtr->want
2570: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b |= TCL_READABLE;
2580: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a .. return 0;.
2590: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
25a0: 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 _WANT_WRITE:..
25b0: 20 20 2f 2a 20 54 68 65 72 65 20 69 73 20 64 61 /* There is da
25c0: 74 61 20 69 6e 20 74 68 65 20 53 53 4c 20 62 75 ta in the SSL bu
25d0: 66 66 65 72 20 74 68 61 74 20 6d 75 73 74 20 62 ffer that must b
25e0: 65 20 77 72 69 74 74 65 6e 20 74 6f 20 74 68 65 e written to the
25f0: 0a 09 20 20 20 20 20 20 20 75 6e 64 65 72 6c 79 .. underly
2600: 69 6e 67 20 42 49 4f 20 69 6e 20 6f 72 64 65 72 ing BIO in order
2610: 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 74 68 65 to complete the
2620: 20 53 53 4c 5f 2a 28 29 20 6f 70 65 72 61 74 69 SSL_*() operati
2630: 6f 6e 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 on. */.. dpri
2640: 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 57 ntf("SSL_ERROR_W
2650: 41 4e 54 5f 57 52 49 54 45 3a 20 45 41 47 41 49 ANT_WRITE: EAGAI
2660: 4e 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 N");.. BIO_se
2670: 74 5f 72 65 74 72 79 5f 77 72 69 74 65 28 73 74 t_retry_write(st
2680: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 atePtr->bio);..
2690: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
26a0: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
26b0: 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 7c statePtr->want |
26c0: 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a = TCL_WRITABLE;.
26d0: 09 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 0a . return 0;..
26e0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
26f0: 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 WANT_X509_LOOKUP
2700: 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 :.. /* The op
2710: 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 eration did not
2720: 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 73 65 complete because
2730: 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 an application
2740: 63 61 6c 6c 62 61 63 6b 0a 09 20 20 20 20 20 20 callback..
2750: 20 73 65 74 20 62 79 20 53 53 4c 5f 43 54 58 5f set by SSL_CTX_
2760: 73 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 74 5f set_client_cert_
2770: 63 62 28 29 20 68 61 73 20 61 73 6b 65 64 20 74 cb() has asked t
2780: 6f 20 62 65 20 63 61 6c 6c 65 64 20 61 67 61 69 o be called agai
2790: 6e 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e n. */.. dprin
27a0: 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 tf("SSL_ERROR_WA
27b0: 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a 20 NT_X509_LOOKUP:
27c0: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 42 EAGAIN");.. B
27d0: 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 73 70 65 IO_set_retry_spe
27e0: 63 69 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 cial(statePtr->b
27f0: 69 6f 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 io);.. BIO_se
2800: 74 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 t_retry_reason(s
2810: 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 42 49 tatePtr->bio, BI
2820: 4f 5f 52 52 5f 53 53 4c 5f 58 35 30 39 5f 4c 4f O_RR_SSL_X509_LO
2830: 4f 4b 55 50 29 3b 0a 09 20 20 20 20 2a 65 72 72 OKUP);.. *err
2840: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
2850: 49 4e 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 IN;.. return
2860: 30 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 0;...case SSL_ER
2870: 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 20 ROR_SYSCALL:..
2880: 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 /* Some non-re
2890: 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c coverable, fatal
28a0: 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 I/O error occur
28b0: 72 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 red */.. dpri
28c0: 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 53 ntf("SSL_ERROR_S
28d0: 59 53 43 41 4c 4c 3a 20 46 61 74 61 6c 20 49 2f YSCALL: Fatal I/
28e0: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 O error occurred
28f0: 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 65 72 ");... if (er
2900: 72 20 3d 3d 20 30 20 26 26 20 72 65 74 20 3d 3d r == 0 && ret ==
2910: 20 30 29 20 7b 0a 09 09 2f 2a 20 55 6e 65 78 70 0) {.../* Unexp
2920: 65 63 74 65 64 20 45 4f 46 20 66 6f 72 20 31 2e ected EOF for 1.
2930: 31 2e 31 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 1.1 */...dprintf
2940: 28 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a ("EOF reached").
2950: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2960: 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 09 = ECONNRESET;...
2970: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
2980: 74 72 2c 20 22 28 75 6e 65 78 70 65 63 74 65 64 tr, "(unexpected
2990: 29 20 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b ) EOF reached");
29a0: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
29b0: 20 28 65 72 72 20 3d 3d 20 30 20 26 26 20 72 65 (err == 0 && re
29c0: 74 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 t == -1) {...dpr
29d0: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
29e0: 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 occurred (errno
29f0: 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e = %lu)", (unsign
2a00: 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 ed long) Tcl_Get
2a10: 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 Errno());...*err
2a20: 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f orCodePtr = Tcl_
2a30: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 GetErrno();...if
2a40: 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 (*errorCodePtr
2a50: 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b == ECONNRESET) {
2a60: 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ... *errorCod
2a70: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 ePtr = ECONNABOR
2a80: 54 45 44 3b 0a 09 09 7d 0a 09 09 54 6c 73 5f 45 TED;...}...Tls_E
2a90: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 rror(statePtr, T
2aa0: 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 cl_ErrnoMsg(*err
2ab0: 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 orCodePtr));...
2ac0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 } else {...dp
2ad0: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
2ae0: 20 6f 63 63 75 72 72 65 64 20 28 65 72 72 20 3d occurred (err =
2af0: 20 25 6c 75 29 22 2c 20 65 72 72 29 3b 0a 09 09 %lu)", err);...
2b00: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2b10: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a Tcl_GetErrno();.
2b20: 09 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 ..if (*errorCode
2b30: 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 Ptr == ECONNRESE
2b40: 54 29 20 7b 0a 09 09 20 20 20 20 2a 65 72 72 6f T) {... *erro
2b50: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
2b60: 41 42 4f 52 54 45 44 3b 0a 09 09 7d 0a 09 09 54 ABORTED;...}...T
2b70: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2b80: 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 r, ERR_reason_er
2b90: 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 29 ror_string(err))
2ba0: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 73 ;.. }... s
2bb0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
2bc0: 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f = TLS_TCL_FATAL_
2bd0: 45 52 52 4f 52 3b 0a 09 20 20 20 20 73 74 61 74 ERROR;.. stat
2be0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
2bf0: 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 LS_TCL_EOF;..
2c00: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 return -1;...ca
2c10: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 se SSL_ERROR_ZER
2c20: 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 2f O_RETURN:.. /
2c30: 2a 20 50 65 65 72 20 68 61 73 20 63 6c 65 61 6e * Peer has clean
2c40: 6c 79 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f ly closed the co
2c50: 6e 6e 65 63 74 69 6f 6e 20 62 79 20 73 65 6e 64 nnection by send
2c60: 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f ing the close_no
2c70: 74 69 66 79 0a 09 20 20 20 20 20 20 20 61 6c 65 tify.. ale
2c80: 72 74 2e 20 43 61 6e 27 74 20 72 65 61 64 2c 20 rt. Can't read,
2c90: 62 75 74 20 63 61 6e 20 77 72 69 74 65 2e 20 4e but can write. N
2ca0: 65 65 64 20 74 6f 20 72 65 74 75 72 6e 20 61 6e eed to return an
2cb0: 20 45 4f 46 2c 20 73 6f 20 74 68 65 0a 09 20 20 EOF, so the..
2cc0: 20 20 20 20 20 63 68 61 6e 6e 65 6c 20 69 73 20 channel is
2cd0: 63 6c 6f 73 65 64 20 77 68 69 63 68 20 77 69 6c closed which wil
2ce0: 6c 20 73 65 6e 64 20 61 6e 20 53 53 4c 5f 73 68 l send an SSL_sh
2cf0: 75 74 64 6f 77 6e 28 29 2e 20 2a 2f 0a 09 20 20 utdown(). */..
2d00: 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 dprintf("SSL_E
2d10: 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e RROR_ZERO_RETURN
2d20: 3a 20 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 : Peer has close
2d30: 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e d the connection
2d40: 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ");.. *errorC
2d50: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 odePtr = ECONNRE
2d60: 53 45 54 3b 0a 09 20 20 20 20 73 74 61 74 65 50 SET;.. stateP
2d70: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
2d80: 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 54 _TCL_EOF;.. T
2d90: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2da0: 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 6c 6f r, "Peer has clo
2db0: 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 sed the connecti
2dc0: 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 20 62 on for writing b
2dd0: 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c y sending the cl
2de0: 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 ose_notify alert
2df0: 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ");.. return
2e00: 2d 31 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 -1;...case SSL_E
2e10: 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 RROR_WANT_CONNEC
2e20: 54 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f T:.. /* The o
2e30: 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 peration did not
2e40: 20 63 6f 6d 70 6c 65 74 65 20 61 6e 64 20 63 6f complete and co
2e50: 6e 6e 65 63 74 20 77 6f 75 6c 64 20 68 61 76 65 nnect would have
2e60: 20 62 6c 6f 63 6b 65 64 2e 0a 09 20 20 20 20 20 blocked...
2e70: 20 20 52 65 74 72 79 20 61 67 61 69 6e 20 61 66 Retry again af
2e80: 74 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 ter connection i
2e90: 73 20 65 73 74 61 62 6c 69 73 68 65 64 2e 20 2a s established. *
2ea0: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
2eb0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 SSL_ERROR_WANT_C
2ec0: 4f 4e 4e 45 43 54 3a 20 45 41 47 41 49 4e 22 29 ONNECT: EAGAIN")
2ed0: 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 ;.. BIO_set_r
2ee0: 65 74 72 79 5f 73 70 65 63 69 61 6c 28 73 74 61 etry_special(sta
2ef0: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 tePtr->bio);..
2f00: 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f BIO_set_retry_
2f10: 72 65 61 73 6f 6e 28 73 74 61 74 65 50 74 72 2d reason(statePtr-
2f20: 3e 62 69 6f 2c 20 42 49 4f 5f 52 52 5f 43 4f 4e >bio, BIO_RR_CON
2f30: 4e 45 43 54 29 3b 0a 09 20 20 20 20 2a 65 72 72 NECT);.. *err
2f40: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
2f50: 49 4e 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 IN;.. return
2f60: 30 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 0;...case SSL_ER
2f70: 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50 54 3a ROR_WANT_ACCEPT:
2f80: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 .. /* The ope
2f90: 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 ration did not c
2fa0: 6f 6d 70 6c 65 74 65 20 61 6e 64 20 61 63 63 65 omplete and acce
2fb0: 70 74 20 77 6f 75 6c 64 20 68 61 76 65 20 62 6c pt would have bl
2fc0: 6f 63 6b 65 64 2e 0a 09 20 20 20 20 20 20 20 52 ocked... R
2fd0: 65 74 72 79 20 61 67 61 69 6e 20 61 66 74 65 72 etry again after
2fe0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 65 connection is e
2ff0: 73 74 61 62 6c 69 73 68 65 64 2e 20 2a 2f 0a 09 stablished. */..
3000: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
3010: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 _ERROR_WANT_ACCE
3020: 50 54 3a 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 PT: EAGAIN");..
3030: 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 BIO_set_retry
3040: 5f 73 70 65 63 69 61 6c 28 73 74 61 74 65 50 74 _special(statePt
3050: 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 42 49 r->bio);.. BI
3060: 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 61 73 O_set_retry_reas
3070: 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f on(statePtr->bio
3080: 2c 20 42 49 4f 5f 52 52 5f 41 43 43 45 50 54 29 , BIO_RR_ACCEPT)
3090: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
30a0: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
30b0: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 0a 09 return 0;...
30c0: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
30d0: 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 20 20 20 20 ANT_ASYNC:..
30e0: 2f 2a 20 55 73 65 64 20 77 69 74 68 20 66 6c 61 /* Used with fla
30f0: 67 20 53 53 4c 5f 4d 4f 44 45 5f 41 53 59 4e 43 g SSL_MODE_ASYNC
3100: 2c 20 6f 70 20 64 69 64 6e 27 74 20 63 6f 6d 70 , op didn't comp
3110: 6c 65 74 65 20 62 65 63 61 75 73 65 20 61 6e 0a lete because an.
3120: 09 20 20 20 20 20 20 20 61 73 79 6e 63 20 65 6e . async en
3130: 67 69 6e 65 20 69 73 20 73 74 69 6c 6c 20 70 72 gine is still pr
3140: 6f 63 65 73 73 69 6e 67 20 64 61 74 61 20 2a 2f ocessing data */
3150: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
3160: 5f 57 41 4e 54 5f 41 53 59 4e 43 5f 4a 4f 42 3a _WANT_ASYNC_JOB:
3170: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 61 73 79 .. /* The asy
3180: 6e 63 68 72 6f 6e 6f 75 73 20 6a 6f 62 20 63 6f nchronous job co
3190: 75 6c 64 20 6e 6f 74 20 62 65 20 73 74 61 72 74 uld not be start
31a0: 65 64 20 62 65 63 61 75 73 65 20 74 68 65 72 65 ed because there
31b0: 20 77 65 72 65 20 6e 6f 0a 09 20 20 20 20 20 20 were no..
31c0: 20 61 73 79 6e 63 20 6a 6f 62 73 20 61 76 61 69 async jobs avai
31d0: 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 70 6f 6f lable in the poo
31e0: 6c 2e 20 2a 2f 0a 09 63 61 73 65 20 53 53 4c 5f l. */..case SSL_
31f0: 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4c 49 45 4e ERROR_WANT_CLIEN
3200: 54 5f 48 45 4c 4c 4f 5f 43 42 3a 0a 09 20 20 20 T_HELLO_CB:..
3210: 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 6f /* The operatio
3220: 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 n did not comple
3230: 74 65 20 62 65 63 61 75 73 65 20 61 6e 20 61 70 te because an ap
3240: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 62 61 plication callba
3250: 63 6b 0a 09 20 20 20 20 20 20 20 73 65 74 20 62 ck.. set b
3260: 79 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c y SSL_CTX_set_cl
3270: 69 65 6e 74 5f 68 65 6c 6c 6f 5f 63 62 28 29 20 ient_hello_cb()
3280: 68 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 20 has asked to be
3290: 63 61 6c 6c 65 64 20 61 67 61 69 6e 2e 20 2a 2f called again. */
32a0: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
32b0: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 SION_NUMBER >= 0
32c0: 78 33 30 30 30 30 30 30 30 4c 0a 09 63 61 73 65 x30000000L..case
32d0: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
32e0: 52 45 54 52 59 5f 56 45 52 49 46 59 3a 0a 09 20 RETRY_VERIFY:..
32f0: 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 /* The operat
3300: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 ion did not comp
3310: 6c 65 74 65 20 62 65 63 61 75 73 65 20 61 20 63 lete because a c
3320: 65 72 74 69 66 69 63 61 74 65 20 76 65 72 69 66 ertificate verif
3330: 69 63 61 74 69 6f 6e 0a 09 20 20 20 20 20 20 20 ication..
3340: 63 61 6c 6c 62 61 63 6b 20 68 61 73 20 61 73 6b callback has ask
3350: 65 64 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 ed to be called
3360: 61 67 61 69 6e 20 76 69 61 20 53 53 4c 5f 73 65 again via SSL_se
3370: 74 5f 72 65 74 72 79 5f 76 65 72 69 66 79 28 33 t_retry_verify(3
3380: 29 2e 20 2a 2f 0a 23 65 6e 64 69 66 0a 09 64 65 ). */.#endif..de
3390: 66 61 75 6c 74 3a 0a 09 20 20 20 20 2f 2a 20 54 fault:.. /* T
33a0: 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 he operation did
33b0: 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 61 6e not complete an
33c0: 64 20 73 68 6f 75 6c 64 20 62 65 20 72 65 74 72 d should be retr
33d0: 69 65 64 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 ied later. */..
33e0: 20 20 20 64 70 72 69 6e 74 66 28 22 4f 70 65 72 dprintf("Oper
33f0: 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f ation did not co
3400: 6d 70 6c 65 74 65 2c 20 63 61 6c 6c 20 66 75 6e mplete, call fun
3410: 63 74 69 6f 6e 20 61 67 61 69 6e 20 6c 61 74 65 ction again late
3420: 72 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 r");.. *error
3430: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
3440: 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
3450: 45 52 52 28 4f 74 68 65 72 2c 20 45 41 47 41 49 ERR(Other, EAGAI
3460: 4e 29 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 N)");.. retur
3470: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
3480: 64 70 72 69 6e 74 66 28 22 52 65 6d 6f 76 69 6e dprintf("Removin
3490: 67 20 74 68 65 20 5c 22 54 4c 53 5f 54 43 4c 5f g the \"TLS_TCL_
34a0: 49 4e 49 54 5c 22 20 66 6c 61 67 20 73 69 6e 63 INIT\" flag sinc
34b0: 65 20 77 65 20 68 61 76 65 20 63 6f 6d 70 6c 65 e we have comple
34c0: 74 65 64 20 74 68 65 20 68 61 6e 64 73 68 61 6b ted the handshak
34d0: 65 22 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 e");. statePt
34e0: 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 54 4c 53 r->flags &= ~TLS
34f0: 5f 54 43 4c 5f 49 4e 49 54 3b 0a 0a 20 20 20 20 _TCL_INIT;..
3500: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 dprintf("Returni
3510: 6e 67 20 73 75 63 63 65 73 73 22 29 3b 0a 20 20 ng success");.
3520: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
3530: 3d 20 30 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 = 0;. return
3540: 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 1;.}../*. *-----
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3590: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
35a0: 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 lsInputProc --.
35b0: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
35c0: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 ure is invoked b
35d0: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f y the generic I/
35e0: 4f 20 6c 61 79 65 72 20 74 6f 20 72 65 61 64 20 O layer to read
35f0: 64 61 74 61 20 66 72 6f 6d 0a 20 2a 09 74 68 65 data from. *.the
3600: 20 42 49 4f 20 77 68 65 6e 65 76 65 72 20 74 68 BIO whenever th
3610: 65 20 54 63 6c 5f 52 65 61 64 2c 20 54 63 6c 5f e Tcl_Read, Tcl_
3620: 52 65 61 64 43 68 61 72 73 2c 20 54 63 6c 5f 47 ReadChars, Tcl_G
3630: 65 74 73 2c 20 61 6e 64 20 54 63 6c 5f 47 65 74 ets, and Tcl_Get
3640: 73 4f 62 6a 0a 20 2a 09 66 75 6e 63 74 69 6f 6e sObj. *.function
3650: 73 20 61 72 65 20 75 73 65 64 2e 20 45 71 75 69 s are used. Equi
3660: 76 61 6c 65 6e 74 20 74 6f 20 53 53 4c 5f 72 65 valent to SSL_re
3670: 61 64 5f 65 78 20 61 6e 64 20 53 53 4c 5f 72 65 ad_ex and SSL_re
3680: 61 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ad.. *. * Result
3690: 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 s:. *.Returns th
36a0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 e number of byte
36b0: 73 20 72 65 61 64 20 6f 72 20 2d 31 20 6f 6e 20 s read or -1 on
36c0: 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f error. Sets erro
36d0: 72 43 6f 64 65 50 74 72 20 74 6f 0a 20 2a 09 61 rCodePtr to. *.a
36e0: 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 POSIX error cod
36f0: 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 e if an error oc
3700: 63 75 72 72 65 64 2c 20 6f 72 20 30 20 69 66 20 curred, or 0 if
3710: 73 75 63 63 65 73 73 66 75 6c 2e 0a 20 2a 0a 20 successful.. *.
3720: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
3730: 20 2a 09 52 65 61 64 73 20 64 61 74 61 20 66 72 *.Reads data fr
3740: 6f 6d 20 53 53 4c 2f 42 49 4f 2e 0a 20 2a 0a 20 om SSL/BIO.. *.
3750: 2a 20 4e 6f 74 65 73 3a 0a 20 2a 09 44 61 74 61 * Notes:. *.Data
3760: 20 69 73 20 72 65 63 65 69 76 65 64 20 69 6e 20 is received in
3770: 77 68 6f 6c 65 20 62 6c 6f 63 6b 73 20 6b 6e 6f whole blocks kno
3780: 77 6e 20 61 73 20 72 65 63 6f 72 64 73 20 66 72 wn as records fr
3790: 6f 6d 20 74 68 65 20 70 65 65 72 2e 20 41 20 0a om the peer. A .
37a0: 20 2a 09 77 68 6f 6c 65 20 72 65 63 6f 72 64 20 *.whole record
37b0: 69 73 20 70 72 6f 63 65 73 73 65 64 20 28 65 2e is processed (e.
37c0: 67 2e 20 64 65 63 72 79 70 74 65 64 29 20 69 6e g. decrypted) in
37d0: 20 6f 6e 65 20 67 6f 20 61 6e 64 20 69 73 20 62 one go and is b
37e0: 75 66 66 65 72 65 64 20 62 79 0a 20 2a 09 4f 70 uffered by. *.Op
37f0: 65 6e 53 53 4c 20 75 6e 74 69 6c 20 69 74 20 69 enSSL until it i
3800: 73 20 72 65 61 64 20 62 79 20 74 68 65 20 61 70 s read by the ap
3810: 70 6c 69 63 61 74 69 6f 6e 20 76 69 61 20 61 20 plication via a
3820: 63 61 6c 6c 20 74 6f 20 53 53 4c 5f 72 65 61 64 call to SSL_read
3830: 28 29 20 6f 72 0a 20 2a 09 42 49 4f 5f 72 65 61 () or. *.BIO_rea
3840: 64 28 29 20 69 6e 20 6f 75 72 20 63 61 73 65 2e d() in our case.
3850: 20 53 53 4c 5f 70 65 6e 64 69 6e 67 28 29 20 72 SSL_pending() r
3860: 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 eturns the numbe
3870: 72 20 6f 66 20 62 79 74 65 73 20 77 68 69 63 68 r of bytes which
3880: 0a 20 2a 09 68 61 76 65 20 62 65 65 6e 20 70 72 . *.have been pr
3890: 6f 63 65 73 73 65 64 2c 20 62 75 66 66 65 72 65 ocessed, buffere
38a0: 64 2c 20 61 6e 64 20 61 72 65 20 61 76 61 69 6c d, and are avail
38b0: 61 62 6c 65 20 69 6e 73 69 64 65 20 73 73 6c 20 able inside ssl
38c0: 66 6f 72 0a 20 2a 09 69 6d 6d 65 64 69 61 74 65 for. *.immediate
38d0: 20 72 65 61 64 2e 20 53 53 4c 5f 68 61 73 5f 70 read. SSL_has_p
38e0: 65 6e 64 69 6e 67 28 29 20 72 65 74 75 72 6e 73 ending() returns
38f0: 20 31 20 69 66 20 64 61 74 61 20 69 73 20 62 75 1 if data is bu
3900: 66 66 65 72 65 64 0a 20 2a 09 28 77 68 65 74 68 ffered. *.(wheth
3910: 65 72 20 70 72 6f 63 65 73 73 65 64 20 6f 72 20 er processed or
3920: 75 6e 70 72 6f 63 65 73 73 65 64 29 20 61 6e 64 unprocessed) and
3930: 20 30 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 2a 0 otherwise.. *
3940: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3990: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
39a0: 54 6c 73 49 6e 70 75 74 50 72 6f 63 28 0a 20 20 TlsInputProc(.
39b0: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 ClientData ins
39c0: 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 43 6f tanceData,./* Co
39d0: 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 nnection state i
39e0: 6e 66 6f 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 nfo */. char
39f0: 2a 62 75 66 2c 09 09 09 2f 2a 20 42 75 66 66 65 *buf,.../* Buffe
3a00: 72 20 74 6f 20 73 74 6f 72 65 20 64 61 74 61 20 r to store data
3a10: 72 65 61 64 20 66 72 6f 6d 20 42 49 4f 20 2a 2f read from BIO */
3a20: 0a 20 20 20 20 69 6e 74 20 62 75 66 53 69 7a 65 . int bufSize
3a30: 2c 09 09 2f 2a 20 42 75 66 66 65 72 20 73 69 7a ,../* Buffer siz
3a40: 65 20 69 6e 20 62 79 74 65 73 20 2a 2f 0a 20 20 e in bytes */.
3a50: 20 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 int *errorCode
3a60: 50 74 72 29 09 09 2f 2a 20 53 74 6f 72 61 67 65 Ptr)../* Storage
3a70: 20 66 6f 72 20 65 72 72 6f 72 20 63 6f 64 65 20 for error code
3a80: 74 6f 20 72 65 74 75 72 6e 20 2a 2f 0a 7b 0a 20 to return */.{.
3a90: 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 unsigned long
3aa0: 20 65 72 72 3b 0a 20 20 20 20 53 74 61 74 65 20 err;. State
3ab0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
3ac0: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
3ad0: 74 61 3b 0a 20 20 20 20 69 6e 74 20 62 79 74 65 ta;. int byte
3ae0: 73 52 65 61 64 2c 20 72 63 2c 20 72 65 61 73 6f sRead, rc, reaso
3af0: 6e 2c 20 69 73 5f 66 61 74 61 6c 2c 20 62 69 6f n, is_fatal, bio
3b00: 53 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 6f 5f ShouldRetry, io_
3b10: 65 72 72 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 err;. *errorC
3b20: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 odePtr = 0;..
3b30: 20 64 70 72 69 6e 74 66 28 22 52 65 61 64 20 25 dprintf("Read %
3b40: 64 20 62 79 74 65 73 22 2c 20 62 75 66 53 69 7a d bytes", bufSiz
3b50: 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 e);.. /* Abor
3b60: 74 20 69 66 20 74 68 65 20 75 73 65 72 20 76 65 t if the user ve
3b70: 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 rify callback is
3b80: 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 74 still running t
3b90: 6f 20 61 76 6f 69 64 20 74 72 69 67 67 65 72 69 o avoid triggeri
3ba0: 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f 74 68 65 ng. * anothe
3bb0: 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 20 74 68 r call before th
3bc0: 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 69 73 e current one is
3bd0: 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f 0a 20 20 complete. */.
3be0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
3bf0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
3c00: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
3c10: 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 intf("Callback i
3c20: 73 20 72 75 6e 6e 69 6e 67 2c 20 72 65 61 64 69 s running, readi
3c30: 6e 67 20 30 20 62 79 74 65 73 22 29 3b 0a 09 72 ng 0 bytes");..r
3c40: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a eturn 0;. }..
3c50: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
3c60: 45 4f 46 20 61 6c 72 65 61 64 79 20 64 65 74 65 EOF already dete
3c70: 63 74 65 64 2e 20 43 61 6e 27 74 20 72 65 61 64 cted. Can't read
3c80: 2c 20 62 75 74 20 63 61 6e 20 77 72 69 74 65 2e , but can write.
3c90: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
3ca0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
3cb0: 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f S_TCL_FATAL_ERRO
3cc0: 52 20 7c 7c 20 73 74 61 74 65 50 74 72 2d 3e 66 R || statePtr->f
3cd0: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 45 lags & TLS_TCL_E
3ce0: 4f 46 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 OF) {..dprintf("
3cf0: 45 4f 46 20 61 6c 72 65 61 64 79 20 64 65 74 65 EOF already dete
3d00: 63 74 65 64 2c 20 61 62 6f 72 74 20 72 65 61 64 cted, abort read
3d10: 22 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 ");..return 0;.
3d20: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 }.. /* If
3d30: 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c not initialized,
3d40: 20 64 6f 20 63 6f 6e 6e 65 63 74 2e 20 43 61 6e do connect. Can
3d50: 20 61 6c 73 6f 20 63 68 65 63 6b 20 53 53 4c 5f also check SSL_
3d60: 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 is_init_finished
3d70: 28 29 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 (). */. if (s
3d80: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
3d90: 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b TLS_TCL_INIT) {
3da0: 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 74 ..int tlsConnect
3db0: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c ;...dprintf("Cal
3dc0: 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 ling Tls_WaitFor
3dd0: 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a 09 74 6c 73 Connect");...tls
3de0: 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 Connect = Tls_Wa
3df0: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 itForConnect(sta
3e00: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 tePtr, errorCode
3e10: 50 74 72 2c 20 30 29 3b 0a 09 69 66 20 28 74 6c Ptr, 0);..if (tl
3e20: 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b 0a sConnect < 0) {.
3e30: 09 20 20 20 20 2f 2a 20 46 61 69 6c 75 72 65 2c . /* Failure,
3e40: 20 73 6f 20 61 62 6f 72 74 20 2a 2f 0a 09 20 20 so abort */..
3e50: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 61 dprintf("Got a
3e60: 6e 20 65 72 72 6f 72 20 77 61 69 74 69 6e 67 20 n error waiting
3e70: 74 6f 20 63 6f 6e 6e 65 63 74 20 28 74 6c 73 43 to connect (tlsC
3e80: 6f 6e 6e 65 63 74 20 3d 20 25 69 2c 20 2a 65 72 onnect = %i, *er
3e90: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 25 69 29 rorCodePtr = %i)
3ea0: 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a ", tlsConnect, *
3eb0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 0a errorCodePtr);..
3ec0: 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d . bytesRead =
3ed0: 20 2d 31 3b 0a 09 20 20 20 20 69 66 20 28 2a 65 -1;.. if (*e
3ee0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 rrorCodePtr == E
3ef0: 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 64 CONNRESET) {...d
3f00: 70 72 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e 6e printf("Got conn
3f10: 65 63 74 69 6f 6e 20 72 65 73 65 74 22 29 3b 0a ection reset");.
3f20: 09 09 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f ../* Soft EOF */
3f30: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
3f40: 20 3d 20 30 3b 0a 09 09 62 79 74 65 73 52 65 61 = 0;...bytesRea
3f50: 64 20 3d 20 30 3b 0a 09 09 73 74 61 74 65 50 74 d = 0;...statePt
3f60: 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f r->flags |= TLS_
3f70: 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 7d 0a TCL_EOF;.. }.
3f80: 09 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 65 . return byte
3f90: 73 52 65 61 64 3b 0a 09 7d 20 65 6c 73 65 20 69 sRead;..} else i
3fa0: 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 3d f (tlsConnect ==
3fb0: 20 30 29 20 7b 0a 09 20 20 20 20 2f 2a 20 54 72 0) {.. /* Tr
3fc0: 79 20 61 67 61 69 6e 20 2a 2f 0a 09 20 20 20 20 y again */..
3fd0: 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a bytesRead = -1;.
3fe0: 09 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 65 . return byte
3ff0: 73 52 65 61 64 3b 0a 09 7d 0a 20 20 20 20 7d 0a sRead;..}. }.
4000: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 . /*. * W
4010: 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 20 e need to clear
4020: 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 73 74 the SSL error st
4030: 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 20 ack now because
4040: 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 61 we sometimes rea
4050: 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 20 66 ch. * this f
4060: 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c 65 66 unction with lef
4070: 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 6e 20 tover errors in
4080: 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 20 42 the stack. If B
4090: 49 4f 5f 72 65 61 64 0a 20 20 20 20 20 2a 20 72 IO_read. * r
40a0: 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 6e eturns -1 and in
40b0: 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 68 tends EAGAIN, th
40c0: 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f 76 65 ere is a leftove
40d0: 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 6c 6c r error, it will
40e0: 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 73 63 6f be. * misco
40f0: 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 65 72 nstrued as an er
4100: 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e ror, not EAGAIN.
4110: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 64 70 72 . */. dpr
4120: 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 20 65 intf("BIO_read e
4130: 6f 66 3d 25 64 2c 20 62 75 66 66 65 72 65 64 3d of=%d, buffered=
4140: 25 64 2c 20 69 6e 70 75 74 3d 25 64 2c 20 6f 75 %d, input=%d, ou
4150: 74 70 75 74 3d 25 64 22 2c 20 54 63 6c 5f 45 6f tput=%d", Tcl_Eo
4160: 66 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 f(statePtr->self
4170: 29 2c 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 42 75 ), Tcl_ChannelBu
4180: 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d ffered(statePtr-
4190: 3e 73 65 6c 66 29 2c 20 5c 0a 20 20 20 20 20 20 >self), \.
41a0: 20 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 Tcl_InputBuffe
41b0: 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 red(statePtr->se
41c0: 6c 66 29 2c 20 54 63 6c 5f 4f 75 74 70 75 74 42 lf), Tcl_OutputB
41d0: 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 uffered(statePtr
41e0: 2d 3e 73 65 6c 66 29 29 3b 20 20 20 20 45 52 52 ->self)); ERR
41f0: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
4200: 20 20 20 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f Tcl_SetErrno
4210: 28 30 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 (0);. ERR_cle
4220: 61 72 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 20 ar_error();.
4230: 42 49 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 5f BIO_clear_retry_
4240: 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e flags(statePtr->
4250: 62 69 6f 29 3b 0a 20 20 20 20 62 79 74 65 73 52 bio);. bytesR
4260: 65 61 64 20 3d 20 42 49 4f 5f 72 65 61 64 28 73 ead = BIO_read(s
4270: 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 tatePtr->bio, bu
4280: 66 2c 20 62 75 66 53 69 7a 65 29 3b 0a 20 20 20 f, bufSize);.
4290: 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 dprintf("BIO_re
42a0: 61 64 20 2d 3e 20 25 64 22 2c 20 62 79 74 65 73 ad -> %d", bytes
42b0: 52 65 61 64 29 3b 0a 20 20 20 20 64 70 72 69 6e Read);. dprin
42c0: 74 66 28 22 42 49 4f 5f 72 65 61 64 20 65 6f 66 tf("BIO_read eof
42d0: 3d 25 64 2c 20 62 75 66 66 65 72 65 64 3d 25 64 =%d, buffered=%d
42e0: 2c 20 69 6e 70 75 74 3d 25 64 2c 20 6f 75 74 70 , input=%d, outp
42f0: 75 74 3d 25 64 22 2c 20 54 63 6c 5f 45 6f 66 28 ut=%d", Tcl_Eof(
4300: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
4310: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 42 75 66 66 Tcl_ChannelBuff
4320: 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 ered(statePtr->s
4330: 65 6c 66 29 2c 20 5c 0a 20 20 20 20 20 20 20 20 elf), \.
4340: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
4350: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 d(statePtr->self
4360: 29 2c 20 54 63 6c 5f 4f 75 74 70 75 74 42 75 66 ), Tcl_OutputBuf
4370: 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e fered(statePtr->
4380: 73 65 6c 66 29 29 3b 0a 0a 20 20 20 20 2f 2a 20 self));.. /*
4390: 53 61 6d 65 20 61 73 20 53 53 4c 5f 77 61 6e 74 Same as SSL_want
43a0: 2c 20 62 75 74 20 61 6c 73 6f 20 63 68 65 63 6b , but also check
43b0: 73 20 74 68 65 20 65 72 72 6f 72 20 71 75 65 75 s the error queu
43c0: 65 20 2a 2f 0a 20 20 20 20 72 63 20 3d 20 53 53 e */. rc = SS
43d0: 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74 L_get_error(stat
43e0: 65 50 74 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 ePtr->ssl, bytes
43f0: 52 65 61 64 29 3b 0a 20 20 20 20 65 72 72 20 3d Read);. err =
4400: 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 ERR_get_error()
4410: 3b 0a 20 20 20 20 72 65 61 73 6f 6e 20 3d 20 45 ;. reason = E
4420: 52 52 5f 47 45 54 5f 52 45 41 53 4f 4e 28 65 72 RR_GET_REASON(er
4430: 72 29 3b 0a 20 20 20 20 69 73 5f 66 61 74 61 6c r);. is_fatal
4440: 20 3d 20 45 52 52 5f 46 41 54 41 4c 5f 45 52 52 = ERR_FATAL_ERR
4450: 4f 52 28 65 72 72 29 3b 0a 20 20 20 20 2f 2a 20 OR(err);. /*
4460: 54 68 65 20 72 65 74 72 79 20 66 6c 61 67 20 69 The retry flag i
4470: 73 20 73 65 74 20 62 79 20 74 68 65 20 42 49 4f s set by the BIO
4480: 5f 73 65 74 5f 72 65 74 72 79 5f 2a 20 66 75 6e _set_retry_* fun
4490: 63 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 62 69 ctions */. bi
44a0: 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 42 oShouldRetry = B
44b0: 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 IO_should_retry(
44c0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
44d0: 20 20 20 20 69 6f 5f 65 72 72 20 3d 20 54 63 6c io_err = Tcl
44e0: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 20 20 20 _GetErrno();.
44f0: 20 64 70 72 69 6e 74 66 28 22 52 65 61 64 3a 20 dprintf("Read:
4500: 62 79 74 65 73 52 65 61 64 3d 25 64 2c 20 72 63 bytesRead=%d, rc
4510: 3d 25 64 2c 20 65 72 72 3d 25 6c 64 2c 20 72 65 =%d, err=%ld, re
4520: 61 73 6f 6e 3d 25 64 2c 20 69 73 5f 66 61 74 61 ason=%d, is_fata
4530: 6c 3d 25 64 2c 20 6c 69 62 3d 25 73 2c 20 6d 73 l=%d, lib=%s, ms
4540: 67 3d 25 73 2c 20 62 69 6f 53 68 6f 75 6c 64 52 g=%s, bioShouldR
4550: 65 74 72 79 3d 25 64 2c 20 65 72 72 6e 6f 3d 25 etry=%d, errno=%
4560: 64 2c 20 69 64 3d 25 73 2c 20 6d 73 67 3d 25 73 d, id=%s, msg=%s
4570: 22 2c 20 5c 0a 20 20 20 20 20 20 20 20 62 79 74 ", \. byt
4580: 65 73 52 65 61 64 2c 20 72 63 2c 20 65 72 72 2c esRead, rc, err,
4590: 20 72 65 61 73 6f 6e 2c 20 69 73 5f 66 61 74 61 reason, is_fata
45a0: 6c 2c 20 45 52 52 5f 6c 69 62 5f 65 72 72 6f 72 l, ERR_lib_error
45b0: 5f 73 74 72 69 6e 67 28 65 72 72 29 2c 20 45 52 _string(err), ER
45c0: 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 R_reason_error_s
45d0: 74 72 69 6e 67 28 65 72 72 29 2c 20 62 69 6f 53 tring(err), bioS
45e0: 68 6f 75 6c 64 52 65 74 72 79 2c 20 69 6f 5f 65 houldRetry, io_e
45f0: 72 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 49 64 28 rr, Tcl_ErrnoId(
4600: 29 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 ), Tcl_ErrnoMsg(
4610: 69 6f 5f 65 72 72 29 29 3b 0a 0a 20 20 20 20 69 io_err));.. i
4620: 66 20 28 62 79 74 65 73 52 65 61 64 20 3c 3d 20 f (bytesRead <=
4630: 30 29 20 7b 0a 09 2f 2a 20 54 68 65 20 72 65 74 0) {../* The ret
4640: 72 79 20 66 6c 61 67 20 69 73 20 73 65 74 20 62 ry flag is set b
4650: 79 20 74 68 65 20 42 49 4f 5f 73 65 74 5f 72 65 y the BIO_set_re
4660: 74 72 79 5f 2a 20 66 75 6e 63 74 69 6f 6e 73 20 try_* functions
4670: 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22 52 65 61 */..dprintf("Rea
4680: 64 20 66 61 69 6c 65 64 3a 20 69 73 20 45 4f 46 d failed: is EOF
4690: 3d 25 64 2c 20 73 68 6f 75 6c 64 20 72 65 74 72 =%d, should retr
46a0: 79 3d 25 64 2c 20 72 65 74 72 79 20 72 65 61 64 y=%d, retry read
46b0: 3d 25 64 2c 20 72 65 74 72 79 20 77 72 69 74 65 =%d, retry write
46c0: 3d 25 64 2c 20 6f 74 68 65 72 3d 25 64 22 2c 0a =%d, other=%d",.
46d0: 09 20 20 20 20 42 49 4f 5f 65 6f 66 28 73 74 61 . BIO_eof(sta
46e0: 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 42 49 4f tePtr->bio), BIO
46f0: 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 _should_retry(st
4700: 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 20 42 49 atePtr->bio), BI
4710: 4f 5f 73 68 6f 75 6c 64 5f 72 65 61 64 28 73 74 O_should_read(st
4720: 61 74 65 50 74 72 2d 3e 62 69 6f 29 2c 0a 09 20 atePtr->bio),..
4730: 20 20 20 42 49 4f 5f 73 68 6f 75 6c 64 5f 77 72 BIO_should_wr
4740: 69 74 65 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ite(statePtr->bi
4750: 6f 29 2c 20 42 49 4f 5f 73 68 6f 75 6c 64 5f 69 o), BIO_should_i
4760: 6f 5f 73 70 65 63 69 61 6c 28 73 74 61 74 65 50 o_special(stateP
4770: 74 72 2d 3e 62 69 6f 29 29 3b 0a 09 69 66 20 28 tr->bio));..if (
4780: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 BIO_should_retry
4790: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
47a0: 20 7b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f {.. *errorCo
47b0: 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a dePtr = EAGAIN;.
47c0: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a .}. }.. /*
47d0: 20 42 61 73 65 64 20 6f 6e 20 65 72 72 6f 72 2c Based on error,
47e0: 20 64 6f 20 72 65 74 72 79 20 6f 72 20 61 62 6f do retry or abo
47f0: 72 74 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 68 rt */. switch
4800: 20 28 72 63 29 20 7b 0a 09 63 61 73 65 20 53 53 (rc) {..case SS
4810: 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 L_ERROR_NONE:..
4820: 20 20 20 2f 2a 20 49 2f 4f 20 6f 70 65 72 61 74 /* I/O operat
4830: 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 20 2a 2f ion completed */
4840: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
4850: 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 22 29 3b SL_ERROR_NONE");
4860: 0a 09 20 20 20 20 64 70 72 69 6e 74 42 75 66 66 .. dprintBuff
4870: 65 72 28 62 75 66 2c 20 62 79 74 65 73 52 65 61 er(buf, bytesRea
4880: 64 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a d);.. break;.
4890: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
48a0: 5f 53 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 20 _SSL:.. /* A
48b0: 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c non-recoverable,
48c0: 20 66 61 74 61 6c 20 65 72 72 6f 72 20 69 6e 20 fatal error in
48d0: 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 20 the SSL library
48e0: 6f 63 63 75 72 72 65 64 2c 0a 09 20 20 20 20 20 occurred,..
48f0: 20 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 usually a prot
4900: 6f 63 6f 6c 20 65 72 72 6f 72 2e 20 2a 2f 0a 09 ocol error. */..
4910: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
4920: 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 46 61 74 61 _ERROR_SSL: Fata
4930: 6c 20 53 53 4c 20 70 72 6f 74 6f 63 6f 6c 20 65 l SSL protocol e
4940: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 22 29 3b rror occurred");
4950: 0a 09 20 20 20 20 69 66 20 28 65 72 72 20 21 3d .. if (err !=
4960: 20 30 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 0) {...Tls_Erro
4970: 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 5f r(statePtr, ERR_
4980: 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 reason_error_str
4990: 69 6e 67 28 65 72 72 29 29 3b 0a 09 20 20 20 20 ing(err));..
49a0: 7d 20 65 6c 73 65 20 69 66 20 28 53 53 4c 5f 67 } else if (SSL_g
49b0: 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 et_verify_result
49c0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 (statePtr->ssl)
49d0: 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a != X509_V_OK) {.
49e0: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
49f0: 65 50 74 72 2c 0a 09 09 20 20 20 20 58 35 30 39 ePtr,... X509
4a00: 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 72 _verify_cert_err
4a10: 6f 72 5f 73 74 72 69 6e 67 28 53 53 4c 5f 67 65 or_string(SSL_ge
4a20: 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 28 t_verify_result(
4a30: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 29 statePtr->ssl)))
4a40: 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
4a50: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
4a60: 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 53 ePtr, "Unknown S
4a70: 53 4c 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 SL error");..
4a80: 20 7d 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f }.. *errorCo
4a90: 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f dePtr = ECONNABO
4aa0: 52 54 45 44 3b 0a 09 20 20 20 20 62 79 74 65 73 RTED;.. bytes
4ab0: 52 65 61 64 20 3d 20 2d 31 3b 0a 0a 23 69 66 20 Read = -1;..#if
4ac0: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
4ad0: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
4ae0: 30 30 30 30 4c 0a 09 20 20 20 20 2f 2a 20 55 6e 0000L.. /* Un
4af0: 65 78 70 65 63 74 65 64 20 45 4f 46 20 66 72 6f expected EOF fro
4b00: 6d 20 74 68 65 20 70 65 65 72 20 66 6f 72 20 4f m the peer for O
4b10: 70 65 6e 53 53 4c 20 33 2e 30 2b 20 2a 2f 0a 09 penSSL 3.0+ */..
4b20: 20 20 20 20 69 66 20 28 45 52 52 5f 47 45 54 5f if (ERR_GET_
4b30: 52 45 41 53 4f 4e 28 65 72 72 29 20 3d 3d 20 53 REASON(err) == S
4b40: 53 4c 5f 52 5f 55 4e 45 58 50 45 43 54 45 44 5f SL_R_UNEXPECTED_
4b50: 45 4f 46 5f 57 48 49 4c 45 5f 52 45 41 44 49 4e EOF_WHILE_READIN
4b60: 47 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 G) {...dprintf("
4b70: 28 55 6e 65 78 70 65 63 74 65 64 29 20 45 4f 46 (Unexpected) EOF
4b80: 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 reached")...*er
4b90: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
4ba0: 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b ..bytesRead = 0;
4bb0: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
4bc0: 74 65 50 74 72 2c 20 22 45 4f 46 20 72 65 61 63 tePtr, "EOF reac
4bd0: 68 65 64 22 29 3b 0a 09 20 20 20 20 7d 0a 23 65 hed");.. }.#e
4be0: 6e 64 69 66 0a 09 20 20 20 20 73 74 61 74 65 50 ndif.. stateP
4bf0: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
4c00: 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 _TCL_FATAL_ERROR
4c10: 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
4c20: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
4c30: 4c 5f 45 4f 46 3b 0a 09 20 20 20 20 62 72 65 61 L_EOF;.. brea
4c40: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
4c50: 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 ROR_WANT_READ:..
4c60: 20 20 20 20 2f 2a 20 4f 70 65 72 61 74 69 6f 6e /* Operation
4c70: 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 did not complet
4c80: 65 20 64 75 65 20 74 6f 20 6e 6f 74 20 65 6e 6f e due to not eno
4c90: 75 67 68 20 64 61 74 61 20 77 61 73 20 61 76 61 ugh data was ava
4ca0: 69 6c 61 62 6c 65 2e 0a 09 20 20 20 20 20 20 20 ilable...
4cb0: 52 65 74 72 79 20 61 67 61 69 6e 20 6c 61 74 65 Retry again late
4cc0: 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e r. */.. dprin
4cd0: 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f tf("Got SSL_ERRO
4ce0: 52 5f 57 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70 R_WANT_READ, map
4cf0: 70 69 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 ping this to EAG
4d00: 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 AIN");.. *err
4d10: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
4d20: 49 4e 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 IN;.. bytesRe
4d30: 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 73 74 ad = -1;.. st
4d40: 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 atePtr->want |=
4d50: 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 09 20 TCL_READABLE;..
4d60: 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 BIO_set_retry
4d70: 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e _read(statePtr->
4d80: 62 69 6f 29 3b 0a 09 20 20 20 20 62 72 65 61 6b bio);.. break
4d90: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
4da0: 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 OR_WANT_WRITE:..
4db0: 20 20 20 20 2f 2a 20 4f 70 65 72 61 74 69 6f 6e /* Operation
4dc0: 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 did not complet
4dd0: 65 20 64 75 65 20 74 6f 20 75 6e 61 62 6c 65 20 e due to unable
4de0: 74 6f 20 73 65 6e 64 20 61 6c 6c 20 64 61 74 61 to send all data
4df0: 20 74 6f 20 74 68 65 0a 09 20 20 20 20 20 20 20 to the..
4e00: 42 49 4f 2e 20 52 65 74 72 79 20 61 67 61 69 6e BIO. Retry again
4e10: 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 20 20 20 later. */..
4e20: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c dprintf("Got SSL
4e30: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 _ERROR_WANT_WRIT
4e40: 45 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 73 20 E, mapping this
4e50: 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 to EAGAIN");..
4e60: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
4e70: 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 = EAGAIN;.. b
4e80: 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 ytesRead = -1;..
4e90: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 statePtr->wa
4ea0: 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 nt |= TCL_WRITAB
4eb0: 4c 45 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 LE;.. BIO_set
4ec0: 5f 72 65 74 72 79 5f 77 72 69 74 65 28 73 74 61 _retry_write(sta
4ed0: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 tePtr->bio);..
4ee0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
4ef0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 SSL_ERROR_WANT_X
4f00: 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 509_LOOKUP:..
4f10: 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 6f /* The operatio
4f20: 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 n did not comple
4f30: 74 65 20 62 65 63 61 75 73 65 20 61 6e 20 61 70 te because an ap
4f40: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 62 61 plication callba
4f50: 63 6b 0a 09 20 20 20 20 20 20 20 73 65 74 20 62 ck.. set b
4f60: 79 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c y SSL_CTX_set_cl
4f70: 69 65 6e 74 5f 63 65 72 74 5f 63 62 28 29 20 68 ient_cert_cb() h
4f80: 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 20 63 as asked to be c
4f90: 61 6c 6c 65 64 20 61 67 61 69 6e 2e 20 2a 2f 0a alled again. */.
4fa0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
4fb0: 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 t SSL_ERROR_WANT
4fc0: 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 2c 20 6d 61 _X509_LOOKUP, ma
4fd0: 70 70 69 6e 67 20 69 74 20 74 6f 20 45 41 47 41 pping it to EAGA
4fe0: 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f IN");.. *erro
4ff0: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
5000: 4e 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 N;.. bytesRea
5010: 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 62 72 65 d = -1;.. bre
5020: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
5030: 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 RROR_SYSCALL:..
5040: 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 /* Some non-r
5050: 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 ecoverable, fata
5060: 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 l I/O error occu
5070: 72 72 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 rred */.. dpr
5080: 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f intf("SSL_ERROR_
5090: 53 59 53 43 41 4c 4c 3a 20 46 61 74 61 6c 20 49 SYSCALL: Fatal I
50a0: 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 /O error occurre
50b0: 64 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 65 d");... if (e
50c0: 72 72 20 3d 3d 20 30 20 26 26 20 62 79 74 65 73 rr == 0 && bytes
50d0: 52 65 61 64 20 3d 3d 20 30 29 20 7b 0a 09 09 2f Read == 0) {.../
50e0: 2a 20 55 6e 65 78 70 65 63 74 65 64 20 45 4f 46 * Unexpected EOF
50f0: 20 66 72 6f 6d 20 74 68 65 20 70 65 65 72 20 66 from the peer f
5100: 6f 72 20 4f 70 65 6e 53 53 4c 20 31 2e 31 20 2a or OpenSSL 1.1 *
5110: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 28 55 6e /...dprintf("(Un
5120: 65 78 70 65 63 74 65 64 29 20 45 4f 46 20 72 65 expected) EOF re
5130: 61 63 68 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 ached")...*error
5140: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 CodePtr = 0;...b
5150: 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 ytesRead = 0;...
5160: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
5170: 74 72 2c 20 22 45 4f 46 20 72 65 61 63 68 65 64 tr, "EOF reached
5180: 22 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 ");... } else
5190: 20 69 66 20 28 65 72 72 20 3d 3d 20 30 20 26 26 if (err == 0 &&
51a0: 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 2d 31 bytesRead == -1
51b0: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 49 ) {...dprintf("I
51c0: 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 /O error occurre
51d0: 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 22 d (errno = %lu)"
51e0: 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 , (unsigned long
51f0: 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 ) Tcl_GetErrno()
5200: 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 );...*errorCodeP
5210: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
5220: 6f 28 29 3b 0a 09 09 62 79 74 65 73 52 65 61 64 o();...bytesRead
5230: 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 = -1;...Tls_Err
5240: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 63 6c or(statePtr, Tcl
5250: 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 6f 72 _ErrnoMsg(*error
5260: 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 CodePtr));...
5270: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 } else {...dpri
5280: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
5290: 63 63 75 72 72 65 64 20 28 65 72 72 20 3d 20 25 ccurred (err = %
52a0: 6c 75 29 22 2c 20 65 72 72 29 3b 0a 09 09 2a 65 lu)", err);...*e
52b0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 rrorCodePtr = Tc
52c0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 l_GetErrno();...
52d0: 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a bytesRead = -1;.
52e0: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
52f0: 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e ePtr, ERR_reason
5300: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 _error_string(er
5310: 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 r));.. }..
5320: 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 statePtr->flags
5330: 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 |= TLS_TCL_FATA
5340: 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 73 74 L_ERROR;.. st
5350: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
5360: 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 TLS_TCL_EOF;..
5370: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 break;...case
5380: 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f SSL_ERROR_ZERO_
5390: 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 RETURN:.. /*
53a0: 50 65 65 72 20 68 61 73 20 63 6c 65 61 6e 6c 79 Peer has cleanly
53b0: 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e closed the conn
53c0: 65 63 74 69 6f 6e 20 62 79 20 73 65 6e 64 69 6e ection by sendin
53d0: 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 g the close_noti
53e0: 66 79 0a 09 20 20 20 20 20 20 20 61 6c 65 72 74 fy.. alert
53f0: 2e 20 43 61 6e 27 74 20 72 65 61 64 2c 20 62 75 . Can't read, bu
5400: 74 20 63 61 6e 20 77 72 69 74 65 2e 20 4e 65 65 t can write. Nee
5410: 64 20 74 6f 20 72 65 74 75 72 6e 20 61 6e 20 45 d to return an E
5420: 4f 46 2c 20 73 6f 20 74 68 65 0a 09 20 20 20 20 OF, so the..
5430: 20 20 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 6c channel is cl
5440: 6f 73 65 64 20 77 68 69 63 68 20 77 69 6c 6c 20 osed which will
5450: 73 65 6e 64 20 61 6e 20 53 53 4c 5f 73 68 75 74 send an SSL_shut
5460: 64 6f 77 6e 28 29 2e 20 2a 2f 0a 09 20 20 20 20 down(). */..
5470: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
5480: 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 20 OR_ZERO_RETURN:
5490: 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 64 20 Peer has closed
54a0: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 22 29 the connection")
54b0: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
54c0: 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 ePtr = 0;.. b
54d0: 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 ytesRead = 0;..
54e0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 statePtr->fla
54f0: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f gs |= TLS_TCL_EO
5500: 46 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f F;.. Tls_Erro
5510: 72 28 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 r(statePtr, "Pee
5520: 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 r has closed the
5530: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 connection for
5540: 77 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 writing by sendi
5550: 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 ng the close_not
5560: 69 66 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 ify alert");..
5570: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
5580: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 SSL_ERROR_WANT_A
5590: 53 59 4e 43 3a 0a 09 20 20 20 20 2f 2a 20 55 73 SYNC:.. /* Us
55a0: 65 64 20 77 69 74 68 20 66 6c 61 67 20 53 53 4c ed with flag SSL
55b0: 5f 4d 4f 44 45 5f 41 53 59 4e 43 2c 20 6f 70 65 _MODE_ASYNC, ope
55c0: 72 61 74 69 6f 6e 20 64 69 64 6e 27 74 20 63 6f ration didn't co
55d0: 6d 70 6c 65 74 65 20 62 65 63 61 75 73 65 0a 09 mplete because..
55e0: 20 20 20 20 20 20 20 61 6e 20 61 73 79 6e 63 20 an async
55f0: 65 6e 67 69 6e 65 20 69 73 20 73 74 69 6c 6c 20 engine is still
5600: 70 72 6f 63 65 73 73 69 6e 67 20 64 61 74 61 2e processing data.
5610: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
5620: 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f ("Got SSL_ERROR_
5630: 57 41 4e 54 5f 41 53 59 4e 43 2c 20 6d 61 70 70 WANT_ASYNC, mapp
5640: 69 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 41 ing this to EAGA
5650: 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f IN");.. *erro
5660: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
5670: 4e 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 N;.. bytesRea
5680: 64 20 3d 20 30 3b 0a 09 20 20 20 20 62 72 65 61 d = 0;.. brea
5690: 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 k;...default:..
56a0: 20 20 20 2f 2a 20 4f 74 68 65 72 20 65 72 72 6f /* Other erro
56b0: 72 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 r */.. dprint
56c0: 66 28 22 4f 74 68 65 72 20 65 72 72 6f 72 2c 20 f("Other error,
56d0: 61 62 6f 72 74 22 29 3b 0a 09 20 20 20 20 2a 65 abort");.. *e
56e0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
56f0: 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 .. bytesRead
5700: 3d 20 30 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 = 0;.. Tls_Er
5710: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 55 ror(statePtr, "U
5720: 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 22 29 3b 0a nknown error");.
5730: 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 . break;.
5740: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
5750: 49 6e 70 75 74 28 25 64 29 20 2d 3e 20 25 64 20 Input(%d) -> %d
5760: 5b 25 64 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20 [%d]", bufSize,
5770: 62 79 74 65 73 52 65 61 64 2c 20 2a 65 72 72 6f bytesRead, *erro
5780: 72 43 6f 64 65 50 74 72 29 3b 0a 20 20 20 20 72 rCodePtr);. r
5790: 65 74 75 72 6e 20 62 79 74 65 73 52 65 61 64 3b eturn bytesRead;
57a0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
57b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57f0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
5800: 4f 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a OutputProc --. *
5810: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 . *.This procedu
5820: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 re is invoked by
5830: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f 4f the generic I/O
5840: 20 6c 61 79 65 72 20 74 6f 20 77 72 69 74 65 20 layer to write
5850: 64 61 74 61 20 74 6f 20 74 68 65 0a 20 2a 09 42 data to the. *.B
5860: 49 4f 20 77 68 65 6e 65 76 65 72 20 74 68 65 20 IO whenever the
5870: 74 68 65 20 54 63 6c 5f 57 72 69 74 65 28 29 2c the Tcl_Write(),
5880: 20 54 63 6c 5f 57 72 69 74 65 43 68 61 72 73 2c Tcl_WriteChars,
5890: 20 61 6e 64 20 54 63 6c 5f 57 72 69 74 65 4f 62 and Tcl_WriteOb
58a0: 6a 0a 20 2a 09 66 75 6e 63 74 69 6f 6e 73 20 61 j. *.functions a
58b0: 72 65 20 75 73 65 64 2e 20 45 71 75 69 76 61 6c re used. Equival
58c0: 65 6e 74 20 74 6f 20 53 53 4c 5f 77 72 69 74 65 ent to SSL_write
58d0: 5f 65 78 20 61 6e 64 20 53 53 4c 5f 77 72 69 74 _ex and SSL_writ
58e0: 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 e.. *. * Results
58f0: 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 65 :. *.Returns the
5900: 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 number of bytes
5910: 20 77 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 6f written or -1 o
5920: 6e 20 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 n error. Sets er
5930: 72 6f 72 43 6f 64 65 50 74 72 0a 20 2a 09 74 6f rorCodePtr. *.to
5940: 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 a POSIX error c
5950: 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 ode if an error
5960: 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 30 20 69 occurred, or 0 i
5970: 66 20 73 75 63 63 65 73 73 66 75 6c 2e 0a 20 2a f successful.. *
5980: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
5990: 3a 0a 20 2a 09 57 72 69 74 65 73 20 64 61 74 61 :. *.Writes data
59a0: 20 74 6f 20 53 53 4c 2f 42 49 4f 2e 0a 20 2a 0a to SSL/BIO.. *.
59b0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
59c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5a00: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 */.static int T
5a10: 6c 73 4f 75 74 70 75 74 50 72 6f 63 28 0a 20 20 lsOutputProc(.
5a20: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 ClientData ins
5a30: 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 43 6f tanceData,./* Co
5a40: 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 nnection state i
5a50: 6e 66 6f 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 nfo */. const
5a60: 20 63 68 61 72 20 2a 62 75 66 2c 09 09 2f 2a 20 char *buf,../*
5a70: 42 75 66 66 65 72 20 77 69 74 68 20 64 61 74 61 Buffer with data
5a80: 20 74 6f 20 77 72 69 74 65 20 74 6f 20 42 49 4f to write to BIO
5a90: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 74 6f 57 72 */. int toWr
5aa0: 69 74 65 2c 09 09 2f 2a 20 53 69 7a 65 20 6f 66 ite,../* Size of
5ab0: 20 64 61 74 61 20 74 6f 20 77 72 69 74 65 20 69 data to write i
5ac0: 6e 20 62 79 74 65 73 20 2a 2f 0a 20 20 20 20 69 n bytes */. i
5ad0: 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 nt *errorCodePtr
5ae0: 29 09 09 2f 2a 20 53 74 6f 72 61 67 65 20 66 6f )../* Storage fo
5af0: 72 20 65 72 72 6f 72 20 63 6f 64 65 20 74 6f 20 r error code to
5b00: 72 65 74 75 72 6e 20 2a 2f 0a 7b 0a 20 20 20 20 return */.{.
5b10: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 65 72 unsigned long er
5b20: 72 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 r;. State *st
5b30: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
5b40: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
5b50: 0a 20 20 20 20 69 6e 74 20 77 72 69 74 74 65 6e . int written
5b60: 2c 20 72 63 2c 20 72 65 61 73 6f 6e 2c 20 69 73 , rc, reason, is
5b70: 5f 66 61 74 61 6c 2c 20 62 69 6f 53 68 6f 75 6c _fatal, bioShoul
5b80: 64 52 65 74 72 79 2c 20 69 6f 5f 65 72 72 3b 0a dRetry, io_err;.
5b90: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
5ba0: 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 r = 0;.. dpri
5bb0: 6e 74 66 28 22 57 72 69 74 65 20 25 64 20 62 79 ntf("Write %d by
5bc0: 74 65 73 22 2c 20 74 6f 57 72 69 74 65 29 3b 0a tes", toWrite);.
5bd0: 20 20 20 20 64 70 72 69 6e 74 42 75 66 66 65 72 dprintBuffer
5be0: 28 62 75 66 2c 20 74 6f 57 72 69 74 65 29 3b 0a (buf, toWrite);.
5bf0: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
5c00: 20 74 68 65 20 75 73 65 72 20 76 65 72 69 66 79 the user verify
5c10: 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 73 74 69 callback is sti
5c20: 6c 6c 20 72 75 6e 6e 69 6e 67 20 74 6f 20 61 76 ll running to av
5c30: 6f 69 64 20 74 72 69 67 67 65 72 69 6e 67 0a 20 oid triggering.
5c40: 20 20 20 20 2a 20 61 6e 6f 74 68 65 72 20 63 61 * another ca
5c50: 6c 6c 20 62 65 66 6f 72 65 20 74 68 65 20 63 75 ll before the cu
5c60: 72 72 65 6e 74 20 6f 6e 65 20 69 73 20 63 6f 6d rrent one is com
5c70: 70 6c 65 74 65 2e 20 2a 2f 0a 20 20 20 20 69 66 plete. */. if
5c80: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
5c90: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c s & TLS_TCL_CALL
5ca0: 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 BACK) {..dprintf
5cb0: 28 22 44 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 ("Don't process
5cc0: 6f 75 74 70 75 74 20 77 68 69 6c 65 20 63 61 6c output while cal
5cd0: 6c 62 61 63 6b 73 20 61 72 65 20 72 75 6e 6e 69 lbacks are runni
5ce0: 6e 67 22 29 3b 0a 09 77 72 69 74 74 65 6e 20 3d ng");..written =
5cf0: 20 2d 31 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 65 -1;..*errorCode
5d00: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 72 Ptr = EAGAIN;..r
5d10: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a eturn -1;. }.
5d20: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
5d30: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 connection has
5d40: 66 61 69 6c 65 64 2e 20 2a 2f 0a 20 20 20 20 69 failed. */. i
5d50: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
5d60: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 46 41 54 gs & TLS_TCL_FAT
5d70: 41 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 64 70 72 AL_ERROR) {..dpr
5d80: 69 6e 74 66 28 22 45 4f 46 20 61 6c 72 65 61 64 intf("EOF alread
5d90: 79 20 64 65 74 65 63 74 65 64 2c 20 61 62 6f 72 y detected, abor
5da0: 74 20 77 72 69 74 65 22 29 3b 0a 09 72 65 74 75 t write");..retu
5db0: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 rn 0;. }..
5dc0: 20 2f 2a 20 49 66 20 6e 6f 74 20 69 6e 69 74 69 /* If not initi
5dd0: 61 6c 69 7a 65 64 2c 20 64 6f 20 63 6f 6e 6e 65 alized, do conne
5de0: 63 74 2e 20 43 61 6e 20 61 6c 73 6f 20 63 68 65 ct. Can also che
5df0: 63 6b 20 53 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 ck SSL_is_init_f
5e00: 69 6e 69 73 68 65 64 28 29 2e 20 2a 2f 0a 20 20 inished(). */.
5e10: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
5e20: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
5e30: 49 4e 49 54 29 20 7b 0a 09 69 6e 74 20 74 6c 73 INIT) {..int tls
5e40: 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 70 72 69 6e Connect;...dprin
5e50: 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f tf("Calling Tls_
5e60: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 WaitForConnect")
5e70: 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 63 74 20 3d ;...tlsConnect =
5e80: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
5e90: 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 72 ect(statePtr, er
5ea0: 72 6f 72 43 6f 64 65 50 74 72 2c 20 31 29 3b 0a rorCodePtr, 1);.
5eb0: 09 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 .if (tlsConnect
5ec0: 3c 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 69 < 0) {.. dpri
5ed0: 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f ntf("Got an erro
5ee0: 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e r waiting to con
5ef0: 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 nect (tlsConnect
5f00: 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 = %i, *errorCod
5f10: 65 50 74 72 20 3d 20 25 69 29 22 2c 0a 09 09 74 ePtr = %i)",...t
5f20: 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f lsConnect, *erro
5f30: 72 43 6f 64 65 50 74 72 29 3b 0a 0a 09 20 20 20 rCodePtr);...
5f40: 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 written = -1;..
5f50: 20 20 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f if (*errorCo
5f60: 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 dePtr == ECONNRE
5f70: 53 45 54 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 SET) {...dprintf
5f80: 28 22 47 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e ("Got connection
5f90: 20 72 65 73 65 74 22 29 3b 0a 09 09 2f 2a 20 53 reset");.../* S
5fa0: 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 09 2a 65 72 oft EOF */...*er
5fb0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
5fc0: 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 ..written = 0;..
5fd0: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
5fe0: 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 3b |= TLS_TCL_EOF;
5ff0: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 72 65 74 .. }.. ret
6000: 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a 09 7d 20 urn written;..}
6010: 65 6c 73 65 20 69 66 20 28 74 6c 73 43 6f 6e 6e else if (tlsConn
6020: 65 63 74 20 3d 3d 20 30 29 20 7b 0a 09 20 20 20 ect == 0) {..
6030: 20 2f 2a 20 54 72 79 20 61 67 61 69 6e 20 2a 2f /* Try again */
6040: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 .. written =
6050: 2d 31 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 -1;.. return
6060: 77 72 69 74 74 65 6e 3b 0a 09 7d 0a 20 20 20 20 written;..}.
6070: 7d 0a 0a 20 20 20 20 2f 2a 20 46 6c 75 73 68 20 }.. /* Flush
6080: 2a 2f 0a 20 20 20 20 69 66 20 28 74 6f 57 72 69 */. if (toWri
6090: 74 65 20 3d 3d 20 30 29 20 7b 0a 09 64 70 72 69 te == 0) {..dpri
60a0: 6e 74 66 28 22 7a 65 72 6f 2d 77 72 69 74 65 22 ntf("zero-write"
60b0: 29 3b 0a 0a 09 69 66 20 28 42 49 4f 5f 66 6c 75 );...if (BIO_flu
60c0: 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f sh(statePtr->bio
60d0: 29 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 64 ) <= 0) {.. d
60e0: 70 72 69 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 printf("Flushing
60f0: 20 66 61 69 6c 65 64 22 29 3b 0a 09 20 20 20 20 failed");..
6100: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
6110: 74 72 2c 20 22 46 6c 75 73 68 20 66 61 69 6c 65 tr, "Flush faile
6120: 64 22 29 3b 0a 0a 09 20 20 20 20 2a 65 72 72 6f d");... *erro
6130: 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4f 3b 0a rCodePtr = EIO;.
6140: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 30 . written = 0
6150: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 ;.. return -1
6160: 3b 0a 09 7d 0a 0a 09 2a 65 72 72 6f 72 43 6f 64 ;..}...*errorCod
6170: 65 50 74 72 20 3d 20 30 3b 0a 09 77 72 69 74 74 ePtr = 0;..writt
6180: 65 6e 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e 20 en = 0;..return
6190: 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0;. }.. /*
61a0: 0a 20 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 . * We need
61b0: 74 6f 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c to clear the SSL
61c0: 20 65 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 error stack now
61d0: 20 62 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65 because we some
61e0: 74 69 6d 65 73 20 72 65 61 63 68 0a 20 20 20 20 times reach.
61f0: 20 2a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e * this function
6200: 20 77 69 74 68 20 6c 65 66 74 6f 76 65 72 20 65 with leftover e
6210: 72 72 6f 72 73 20 69 6e 20 74 68 65 20 73 74 61 rrors in the sta
6220: 63 6b 2e 20 20 49 66 20 42 49 4f 5f 77 72 69 74 ck. If BIO_writ
6230: 65 0a 20 20 20 20 20 2a 20 72 65 74 75 72 6e 73 e. * returns
6240: 20 2d 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 -1 and intends
6250: 45 41 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 EAGAIN, there is
6260: 20 61 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f a leftover erro
6270: 72 2c 20 69 74 20 77 69 6c 6c 20 62 65 0a 20 20 r, it will be.
6280: 20 20 20 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 * misconstrue
6290: 64 20 61 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e d as an error, n
62a0: 6f 74 20 45 41 47 41 49 4e 2e 0a 20 20 20 20 20 ot EAGAIN..
62b0: 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 */. dprintf("
62c0: 42 49 4f 5f 77 72 69 74 65 20 65 6f 66 3d 25 64 BIO_write eof=%d
62d0: 2c 20 62 75 66 66 65 72 65 64 3d 25 64 2c 20 69 , buffered=%d, i
62e0: 6e 70 75 74 3d 25 64 2c 20 6f 75 74 70 75 74 3d nput=%d, output=
62f0: 25 64 22 2c 20 54 63 6c 5f 45 6f 66 28 73 74 61 %d", Tcl_Eof(sta
6300: 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 63 tePtr->self), Tc
6310: 6c 5f 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 65 l_ChannelBuffere
6320: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 d(statePtr->self
6330: 29 2c 20 5c 0a 20 20 20 20 20 20 20 20 54 63 6c ), \. Tcl
6340: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 _InputBuffered(s
6350: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 tatePtr->self),
6360: 54 63 6c 5f 4f 75 74 70 75 74 42 75 66 66 65 72 Tcl_OutputBuffer
6370: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
6380: 66 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 f));. Tcl_Set
6390: 45 72 72 6e 6f 28 30 29 3b 0a 20 20 20 20 45 52 Errno(0);. ER
63a0: 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b R_clear_error();
63b0: 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 72 5f 72 . BIO_clear_r
63c0: 65 74 72 79 5f 66 6c 61 67 73 28 73 74 61 74 65 etry_flags(state
63d0: 50 74 72 2d 3e 62 69 6f 29 3b 0a 20 20 20 20 77 Ptr->bio);. w
63e0: 72 69 74 74 65 6e 20 3d 20 42 49 4f 5f 77 72 69 ritten = BIO_wri
63f0: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f te(statePtr->bio
6400: 2c 20 62 75 66 2c 20 74 6f 57 72 69 74 65 29 3b , buf, toWrite);
6410: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 . dprintf("BI
6420: 4f 5f 77 72 69 74 65 28 25 70 2c 20 25 64 29 20 O_write(%p, %d)
6430: 2d 3e 20 5b 25 64 5d 22 2c 20 28 76 6f 69 64 20 -> [%d]", (void
6440: 2a 29 20 73 74 61 74 65 50 74 72 2c 20 74 6f 57 *) statePtr, toW
6450: 72 69 74 65 2c 20 77 72 69 74 74 65 6e 29 3b 0a rite, written);.
6460: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
6470: 5f 77 72 69 74 65 20 65 6f 66 3d 25 64 2c 20 62 _write eof=%d, b
6480: 75 66 66 65 72 65 64 3d 25 64 2c 20 69 6e 70 75 uffered=%d, inpu
6490: 74 3d 25 64 2c 20 6f 75 74 70 75 74 3d 25 64 22 t=%d, output=%d"
64a0: 2c 20 54 63 6c 5f 45 6f 66 28 73 74 61 74 65 50 , Tcl_Eof(stateP
64b0: 74 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f 43 tr->self), Tcl_C
64c0: 68 61 6e 6e 65 6c 42 75 66 66 65 72 65 64 28 73 hannelBuffered(s
64d0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 tatePtr->self),
64e0: 5c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e \. Tcl_In
64f0: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 putBuffered(stat
6500: 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c ePtr->self), Tcl
6510: 5f 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 28 _OutputBuffered(
6520: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 statePtr->self))
6530: 3b 0a 0a 20 20 20 20 2f 2a 20 53 61 6d 65 20 61 ;.. /* Same a
6540: 73 20 53 53 4c 5f 77 61 6e 74 2c 20 62 75 74 20 s SSL_want, but
6550: 61 6c 73 6f 20 63 68 65 63 6b 73 20 74 68 65 20 also checks the
6560: 65 72 72 6f 72 20 71 75 65 75 65 20 2a 2f 0a 20 error queue */.
6570: 20 20 20 72 63 20 3d 20 53 53 4c 5f 67 65 74 5f rc = SSL_get_
6580: 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e error(statePtr->
6590: 73 73 6c 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 ssl, written);.
65a0: 20 20 20 65 72 72 20 3d 20 45 52 52 5f 67 65 74 err = ERR_get
65b0: 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 20 72 65 _error();. re
65c0: 61 73 6f 6e 20 3d 20 45 52 52 5f 47 45 54 5f 52 ason = ERR_GET_R
65d0: 45 41 53 4f 4e 28 65 72 72 29 3b 0a 20 20 20 20 EASON(err);.
65e0: 69 73 5f 66 61 74 61 6c 20 3d 20 45 52 52 5f 46 is_fatal = ERR_F
65f0: 41 54 41 4c 5f 45 52 52 4f 52 28 65 72 72 29 3b ATAL_ERROR(err);
6600: 0a 20 20 20 20 2f 2a 20 54 68 65 20 72 65 74 72 . /* The retr
6610: 79 20 66 6c 61 67 20 69 73 20 73 65 74 20 62 79 y flag is set by
6620: 20 74 68 65 20 42 49 4f 5f 73 65 74 5f 72 65 74 the BIO_set_ret
6630: 72 79 5f 2a 20 66 75 6e 63 74 69 6f 6e 73 20 2a ry_* functions *
6640: 2f 0a 20 20 20 20 62 69 6f 53 68 6f 75 6c 64 52 /. bioShouldR
6650: 65 74 72 79 20 3d 20 42 49 4f 5f 73 68 6f 75 6c etry = BIO_shoul
6660: 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 d_retry(statePtr
6670: 2d 3e 62 69 6f 29 3b 0a 20 20 20 20 69 6f 5f 65 ->bio);. io_e
6680: 72 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e rr = Tcl_GetErrn
6690: 6f 28 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 o();. dprintf
66a0: 28 22 57 72 69 74 65 3a 20 77 72 69 74 74 65 6e ("Write: written
66b0: 3d 25 64 2c 20 72 63 3d 25 64 2c 20 65 72 72 3d =%d, rc=%d, err=
66c0: 25 6c 64 2c 20 72 65 61 73 6f 6e 3d 25 64 2c 20 %ld, reason=%d,
66d0: 69 73 5f 66 61 74 61 6c 3d 25 64 2c 20 6c 69 62 is_fatal=%d, lib
66e0: 3d 25 73 2c 20 6d 73 67 3d 25 73 2c 20 62 69 6f =%s, msg=%s, bio
66f0: 53 68 6f 75 6c 64 52 65 74 72 79 3d 25 64 2c 20 ShouldRetry=%d,
6700: 65 72 72 6e 6f 3d 25 64 2c 20 69 64 3d 25 73 2c errno=%d, id=%s,
6710: 20 6d 73 67 3d 25 73 22 2c 20 5c 0a 20 20 20 20 msg=%s", \.
6720: 20 20 20 20 77 72 69 74 74 65 6e 2c 20 72 63 2c written, rc,
6730: 20 65 72 72 2c 20 72 65 61 73 6f 6e 2c 20 69 73 err, reason, is
6740: 5f 66 61 74 61 6c 2c 20 45 52 52 5f 6c 69 62 5f _fatal, ERR_lib_
6750: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 error_string(err
6760: 29 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 ), ERR_reason_er
6770: 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 2c ror_string(err),
6780: 20 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 2c bioShouldRetry,
6790: 20 69 6f 5f 65 72 72 2c 20 54 63 6c 5f 45 72 72 io_err, Tcl_Err
67a0: 6e 6f 49 64 28 29 2c 20 54 63 6c 5f 45 72 72 6e noId(), Tcl_Errn
67b0: 6f 4d 73 67 28 69 6f 5f 65 72 72 29 29 3b 0a 0a oMsg(io_err));..
67c0: 20 20 20 20 69 66 20 28 77 72 69 74 74 65 6e 20 if (written
67d0: 3c 3d 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 <= 0) {..dprintf
67e0: 28 22 57 72 69 74 65 20 66 61 69 6c 65 64 3a 20 ("Write failed:
67f0: 69 73 20 45 4f 46 3d 25 64 2c 20 73 68 6f 75 6c is EOF=%d, shoul
6800: 64 20 72 65 74 72 79 3d 25 64 2c 20 72 65 74 72 d retry=%d, retr
6810: 79 20 72 65 61 64 3d 25 64 2c 20 72 65 74 72 79 y read=%d, retry
6820: 20 77 72 69 74 65 3d 25 64 2c 20 6f 74 68 65 72 write=%d, other
6830: 3d 25 64 22 2c 0a 09 20 20 20 20 42 49 4f 5f 65 =%d",.. BIO_e
6840: 6f 66 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f of(statePtr->bio
6850: 29 2c 20 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 ), BIO_should_re
6860: 74 72 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 try(statePtr->bi
6870: 6f 29 2c 20 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 o), BIO_should_r
6880: 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ead(statePtr->bi
6890: 6f 29 2c 0a 09 20 20 20 20 42 49 4f 5f 73 68 6f o),.. BIO_sho
68a0: 75 6c 64 5f 77 72 69 74 65 28 73 74 61 74 65 50 uld_write(stateP
68b0: 74 72 2d 3e 62 69 6f 29 2c 20 42 49 4f 5f 73 68 tr->bio), BIO_sh
68c0: 6f 75 6c 64 5f 69 6f 5f 73 70 65 63 69 61 6c 28 ould_io_special(
68d0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 3b statePtr->bio));
68e0: 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 ..if (BIO_should
68f0: 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 2d _retry(statePtr-
6900: 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 2a 65 >bio)) {.. *e
6910: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
6920: 47 41 49 4e 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 GAIN;..}. } e
6930: 6c 73 65 20 7b 0a 09 42 49 4f 5f 66 6c 75 73 68 lse {..BIO_flush
6940: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
6950: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 42 . }.. /* B
6960: 61 73 65 64 20 6f 6e 20 65 72 72 6f 72 2c 20 64 ased on error, d
6970: 6f 20 72 65 74 72 79 20 6f 72 20 61 62 6f 72 74 o retry or abort
6980: 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 68 20 28 */. switch (
6990: 72 63 29 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f rc) {..case SSL_
69a0: 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 ERROR_NONE:..
69b0: 20 2f 2a 20 49 2f 4f 20 6f 70 65 72 61 74 69 6f /* I/O operatio
69c0: 6e 20 63 6f 6d 70 6c 65 74 65 64 20 2a 2f 0a 09 n completed */..
69d0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
69e0: 5f 45 52 52 4f 52 5f 4e 4f 4e 45 22 29 3b 0a 09 _ERROR_NONE");..
69f0: 20 20 20 20 69 66 20 28 77 72 69 74 74 65 6e 20 if (written
6a00: 3c 20 30 29 20 7b 0a 09 09 77 72 69 74 74 65 6e < 0) {...written
6a10: 20 3d 20 30 3b 0a 09 20 20 20 20 7d 0a 09 20 20 = 0;.. }..
6a20: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
6a30: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 SSL_ERROR_SSL:..
6a40: 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 /* A non-rec
6a50: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
6a60: 65 72 72 6f 72 20 69 6e 20 74 68 65 20 53 53 4c error in the SSL
6a70: 20 6c 69 62 72 61 72 79 20 6f 63 63 75 72 72 65 library occurre
6a80: 64 2c 0a 09 20 20 20 20 20 20 20 75 73 75 61 6c d,.. usual
6a90: 6c 79 20 61 20 70 72 6f 74 6f 63 6f 6c 20 65 72 ly a protocol er
6aa0: 72 6f 72 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 ror */.. dpri
6ab0: 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 53 ntf("SSL_ERROR_S
6ac0: 53 4c 3a 20 46 61 74 61 6c 20 53 53 4c 20 70 72 SL: Fatal SSL pr
6ad0: 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 6f 63 63 otocol error occ
6ae0: 75 72 72 65 64 22 29 3b 0a 09 20 20 20 20 69 66 urred");.. if
6af0: 20 28 65 72 72 20 21 3d 20 30 29 20 7b 0a 09 09 (err != 0) {...
6b00: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
6b10: 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 tr, ERR_reason_e
6b20: 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 rror_string(err)
6b30: 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 );.. } else i
6b40: 66 20 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 f (SSL_get_verif
6b50: 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 y_result(statePt
6b60: 72 2d 3e 73 73 6c 29 20 21 3d 20 58 35 30 39 5f r->ssl) != X509_
6b70: 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 73 5f 45 72 V_OK) {...Tls_Er
6b80: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 0a 09 09 ror(statePtr,...
6b90: 20 20 20 20 58 35 30 39 5f 76 65 72 69 66 79 5f X509_verify_
6ba0: 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 69 6e cert_error_strin
6bb0: 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 g(SSL_get_verify
6bc0: 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 _result(statePtr
6bd0: 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 20 20 7d ->ssl)));.. }
6be0: 20 65 6c 73 65 20 7b 0a 09 09 54 6c 73 5f 45 72 else {...Tls_Er
6bf0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 55 ror(statePtr, "U
6c00: 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 72 72 6f 72 nknown SSL error
6c10: 22 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ");.. }..
6c20: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
6c30: 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 20 ECONNABORTED;..
6c40: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 statePtr->fla
6c50: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 gs |= TLS_TCL_FA
6c60: 54 41 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 TAL_ERROR;..
6c70: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
6c80: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a |= TLS_TCL_EOF;.
6c90: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
6ca0: 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 1;.. break;..
6cb0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
6cc0: 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 20 20 WANT_READ:..
6cd0: 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 64 69 64 /* Operation did
6ce0: 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 64 75 not complete du
6cf0: 65 20 74 6f 20 6e 6f 74 20 65 6e 6f 75 67 68 20 e to not enough
6d00: 64 61 74 61 20 77 61 73 20 61 76 61 69 6c 61 62 data was availab
6d10: 6c 65 2e 0a 09 20 20 20 20 20 20 20 52 65 74 72 le... Retr
6d20: 79 20 61 67 61 69 6e 20 6c 61 74 65 72 20 77 69 y again later wi
6d30: 74 68 20 73 61 6d 65 20 64 61 74 61 2e 20 2a 2f th same data. */
6d40: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 .. dprintf("G
6d50: 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e ot SSL_ERROR_WAN
6d60: 54 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e 67 20 T_READ, mapping
6d70: 69 74 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a it to EAGAIN");.
6d80: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
6d90: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 tr = EAGAIN;..
6da0: 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a written = -1;.
6db0: 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 . statePtr->w
6dc0: 61 6e 74 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ant |= TCL_READA
6dd0: 42 4c 45 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 BLE;.. BIO_se
6de0: 74 5f 72 65 74 72 79 5f 72 65 61 64 28 73 74 61 t_retry_read(sta
6df0: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 tePtr->bio);..
6e00: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
6e10: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
6e20: 52 49 54 45 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 RITE:.. /* Op
6e30: 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 eration did not
6e40: 63 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 complete due to
6e50: 75 6e 61 62 6c 65 20 74 6f 20 73 65 6e 64 20 61 unable to send a
6e60: 6c 6c 20 64 61 74 61 20 74 6f 20 74 68 65 0a 09 ll data to the..
6e70: 20 20 20 20 20 20 20 42 49 4f 2e 20 52 65 74 72 BIO. Retr
6e80: 79 20 6c 61 74 65 72 20 77 69 74 68 20 73 61 6d y later with sam
6e90: 65 20 64 61 74 61 2e 20 2a 2f 0a 09 20 20 20 20 e data. */..
6ea0: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c dprintf("Got SSL
6eb0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 _ERROR_WANT_WRIT
6ec0: 45 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 6f E, mapping it to
6ed0: 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 EAGAIN");..
6ee0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
6ef0: 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 EAGAIN;.. wri
6f00: 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 tten = -1;..
6f10: 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 7c statePtr->want |
6f20: 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a = TCL_WRITABLE;.
6f30: 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 . BIO_set_ret
6f40: 72 79 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 ry_write(statePt
6f50: 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 62 72 r->bio);.. br
6f60: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
6f70: 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f ERROR_WANT_X509_
6f80: 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 2f 2a 20 LOOKUP:.. /*
6f90: 54 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 The operation di
6fa0: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 62 d not complete b
6fb0: 65 63 61 75 73 65 20 61 6e 20 61 70 70 6c 69 63 ecause an applic
6fc0: 61 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b 0a 09 ation callback..
6fd0: 20 20 20 20 20 20 20 73 65 74 20 62 79 20 53 53 set by SS
6fe0: 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 6e 74 L_CTX_set_client
6ff0: 5f 63 65 72 74 5f 63 62 28 29 20 68 61 73 20 61 _cert_cb() has a
7000: 73 6b 65 64 20 74 6f 20 62 65 20 63 61 6c 6c 65 sked to be calle
7010: 64 20 61 67 61 69 6e 2e 20 2a 2f 0a 09 20 20 20 d again. */..
7020: 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 dprintf("Got SS
7030: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 L_ERROR_WANT_X50
7040: 39 5f 4c 4f 4f 4b 55 50 2c 20 6d 61 70 70 69 6e 9_LOOKUP, mappin
7050: 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 29 g it to EAGAIN")
7060: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
7070: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
7080: 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 written = -1
7090: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
70a0: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 case SSL_ERROR_S
70b0: 59 53 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 YSCALL:.. /*
70c0: 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 Some non-recover
70d0: 61 62 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 able, fatal I/O
70e0: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 2a error occurred *
70f0: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
7100: 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c SSL_ERROR_SYSCAL
7110: 4c 3a 20 46 61 74 61 6c 20 49 2f 4f 20 65 72 72 L: Fatal I/O err
7120: 6f 72 20 6f 63 63 75 72 72 65 64 22 29 3b 0a 0a or occurred");..
7130: 09 20 20 20 20 69 66 20 28 65 72 72 20 3d 3d 20 . if (err ==
7140: 30 20 26 26 20 77 72 69 74 74 65 6e 20 3d 3d 20 0 && written ==
7150: 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 0) {...dprintf("
7160: 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 EOF reached")...
7170: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
7180: 30 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 0;...written = 0
7190: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
71a0: 61 74 65 50 74 72 2c 20 22 45 4f 46 20 72 65 61 atePtr, "EOF rea
71b0: 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 ched");... }
71c0: 65 6c 73 65 20 69 66 20 28 65 72 72 20 3d 3d 20 else if (err ==
71d0: 30 20 26 26 20 77 72 69 74 74 65 6e 20 3d 3d 20 0 && written ==
71e0: 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 -1) {...dprintf(
71f0: 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 "I/O error occur
7200: 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 red (errno = %lu
7210: 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f )", (unsigned lo
7220: 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f ng) Tcl_GetErrno
7230: 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ());...*errorCod
7240: 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 ePtr = Tcl_GetEr
7250: 72 6e 6f 28 29 3b 0a 09 09 77 72 69 74 74 65 6e rno();...written
7260: 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 = -1;...Tls_Err
7270: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 63 6c or(statePtr, Tcl
7280: 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 6f 72 _ErrnoMsg(*error
7290: 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 CodePtr));...
72a0: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 } else {...dpri
72b0: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
72c0: 63 63 75 72 72 65 64 20 28 65 72 72 20 3d 20 25 ccurred (err = %
72d0: 6c 75 29 22 2c 20 65 72 72 29 3b 0a 09 09 2a 65 lu)", err);...*e
72e0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 rrorCodePtr = Tc
72f0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 l_GetErrno();...
7300: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 written = -1;...
7310: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
7320: 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 tr, ERR_reason_e
7330: 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 rror_string(err)
7340: 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 73 );.. }.. s
7350: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
7360: 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f = TLS_TCL_FATAL_
7370: 45 52 52 4f 52 3b 0a 09 20 20 20 20 73 74 61 74 ERROR;.. stat
7380: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
7390: 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 20 20 20 LS_TCL_EOF;..
73a0: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
73b0: 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 SL_ERROR_ZERO_RE
73c0: 54 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 50 65 TURN:.. /* Pe
73d0: 65 72 20 68 61 73 20 63 6c 65 61 6e 6c 79 20 63 er has cleanly c
73e0: 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 losed the connec
73f0: 74 69 6f 6e 20 62 79 20 73 65 6e 64 69 6e 67 20 tion by sending
7400: 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 the close_notify
7410: 0a 09 20 20 20 20 20 20 20 61 6c 65 72 74 2e 20 .. alert.
7420: 43 61 6e 27 74 20 72 65 61 64 2c 20 62 75 74 20 Can't read, but
7430: 63 61 6e 20 77 72 69 74 65 2e 20 4e 65 65 64 20 can write. Need
7440: 74 6f 20 72 65 74 75 72 6e 20 61 6e 20 45 4f 46 to return an EOF
7450: 2c 20 73 6f 20 74 68 65 0a 09 20 20 20 20 20 20 , so the..
7460: 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 channel is clos
7470: 65 64 20 77 68 69 63 68 20 77 69 6c 6c 20 73 65 ed which will se
7480: 6e 64 20 61 6e 20 53 53 4c 5f 73 68 75 74 64 6f nd an SSL_shutdo
7490: 77 6e 28 29 2e 20 2a 2f 0a 09 20 20 20 20 64 70 wn(). */.. dp
74a0: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
74b0: 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 20 50 65 _ZERO_RETURN: Pe
74c0: 65 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 er has closed th
74d0: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 22 29 3b 0a e connection");.
74e0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
74f0: 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 77 72 69 tr = 0;.. wri
7500: 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 73 tten = 0;.. s
7510: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
7520: 3d 20 54 4c 53 5f 54 43 4c 5f 45 4f 46 3b 0a 09 = TLS_TCL_EOF;..
7530: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
7540: 61 74 65 50 74 72 2c 20 22 50 65 65 72 20 68 61 atePtr, "Peer ha
7550: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
7560: 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 nection for writ
7570: 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 ing by sending t
7580: 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 he close_notify
7590: 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 62 72 alert");.. br
75a0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
75b0: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 ERROR_WANT_ASYNC
75c0: 3a 0a 09 20 20 20 20 2f 2a 20 55 73 65 64 20 77 :.. /* Used w
75d0: 69 74 68 20 66 6c 61 67 20 53 53 4c 5f 4d 4f 44 ith flag SSL_MOD
75e0: 45 5f 41 53 59 4e 43 2c 20 6f 70 65 72 61 74 69 E_ASYNC, operati
75f0: 6f 6e 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 on didn't comple
7600: 74 65 20 62 65 63 61 75 73 65 0a 09 20 20 20 20 te because..
7610: 20 20 20 61 6e 20 61 73 79 6e 63 20 65 6e 67 69 an async engi
7620: 6e 65 20 69 73 20 73 74 69 6c 6c 20 70 72 6f 63 ne is still proc
7630: 65 73 73 69 6e 67 20 64 61 74 61 2e 20 2a 2f 0a essing data. */.
7640: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
7650: 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 t SSL_ERROR_WANT
7660: 5f 41 53 59 4e 43 2c 20 6d 61 70 70 69 6e 67 20 _ASYNC, mapping
7670: 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 this to EAGAIN")
7680: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
7690: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
76a0: 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 30 3b written = 0;
76b0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 64 .. break;...d
76c0: 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 2f 2a 20 efault:.. /*
76d0: 4f 74 68 65 72 20 65 72 72 6f 72 20 2a 2f 0a 09 Other error */..
76e0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 4f 74 68 dprintf("Oth
76f0: 65 72 20 65 72 72 6f 72 2c 20 61 62 6f 72 74 22 er error, abort"
7700: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
7710: 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 dePtr = 0;..
7720: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 written = 0;..
7730: 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 Tls_Error(stat
7740: 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 65 ePtr, "Unknown e
7750: 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 62 72 65 rror");.. bre
7760: 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 ak;. }.. d
7770: 70 72 69 6e 74 66 28 22 4f 75 74 70 75 74 28 25 printf("Output(%
7780: 64 29 20 2d 3e 20 25 64 22 2c 20 74 6f 57 72 69 d) -> %d", toWri
7790: 74 65 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 te, written);.
77a0: 20 20 72 65 74 75 72 6e 20 77 72 69 74 74 65 6e return written
77b0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
77c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7800: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
7810: 73 5f 47 65 74 50 61 72 65 6e 74 20 2d 2d 0a 20 s_GetParent --.
7820: 2a 0a 20 2a 09 47 65 74 20 70 61 72 65 6e 74 20 *. *.Get parent
7830: 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 20 73 74 channel for a st
7840: 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 acked channel..
7850: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
7860: 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 6f 72 20 .Tcl_Channel or
7870: 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a NULL if none.. *
7880: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
7890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78d0: 0a 20 2a 2f 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c . */.Tcl_Channel
78e0: 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 0a Tls_GetParent(.
78f0: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
7900: 50 74 72 2c 09 09 2f 2a 20 43 6f 6e 6e 65 63 74 Ptr,../* Connect
7910: 69 6f 6e 20 73 74 61 74 65 20 69 6e 66 6f 20 2a ion state info *
7920: 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 46 6c /. int maskFl
7930: 61 67 73 29 09 09 2f 2a 20 57 68 69 63 68 20 66 ags)../* Which f
7940: 6c 61 67 73 20 74 6f 20 70 72 6f 63 65 73 73 20 lags to process
7950: 2a 2f 0a 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 */.{. dprintf
7960: 28 22 52 65 71 75 65 73 74 65 64 20 74 6f 20 67 ("Requested to g
7970: 65 74 20 70 61 72 65 6e 74 20 6f 66 20 63 68 61 et parent of cha
7980: 6e 6e 65 6c 20 25 70 22 2c 20 73 74 61 74 65 50 nnel %p", stateP
7990: 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 20 20 20 20 tr->self);..
79a0: 69 66 20 28 28 73 74 61 74 65 50 74 72 2d 3e 66 if ((statePtr->f
79b0: 6c 61 67 73 20 26 20 7e 6d 61 73 6b 46 6c 61 67 lags & ~maskFlag
79c0: 73 29 20 26 20 54 4c 53 5f 54 43 4c 5f 46 41 53 s) & TLS_TCL_FAS
79d0: 54 50 41 54 48 29 20 7b 0a 09 64 70 72 69 6e 74 TPATH) {..dprint
79e0: 66 28 22 41 73 6b 65 64 20 74 6f 20 67 65 74 20 f("Asked to get
79f0: 74 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e 6e the parent chann
7a00: 65 6c 20 77 68 69 6c 65 20 77 65 20 61 72 65 20 el while we are
7a10: 75 73 69 6e 67 20 46 61 73 74 50 61 74 68 20 2d using FastPath -
7a20: 2d 20 72 65 74 75 72 6e 69 6e 67 20 4e 55 4c 4c - returning NULL
7a30: 22 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c ");..return NULL
7a40: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
7a50: 72 6e 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 rn Tcl_GetStacke
7a60: 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 dChannel(statePt
7a70: 72 2d 3e 73 65 6c 66 29 3b 0a 7d 0a 0a 2f 2a 0a r->self);.}../*.
7a80: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
7a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
7ad0: 20 2a 0a 20 2a 20 54 6c 73 53 65 74 4f 70 74 69 *. * TlsSetOpti
7ae0: 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 onProc --. *. *.
7af0: 53 65 74 73 20 61 6e 20 6f 70 74 69 6f 6e 20 74 Sets an option t
7b00: 6f 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 53 o value for a SS
7b10: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
7b20: 68 61 6e 6e 65 6c 2e 20 43 61 6c 6c 65 64 20 62 hannel. Called b
7b30: 79 20 74 68 65 0a 20 2a 09 67 65 6e 65 72 69 63 y the. *.generic
7b40: 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 6e 65 I/O layer whene
7b50: 76 65 72 20 74 68 65 20 54 63 6c 5f 53 65 74 43 ver the Tcl_SetC
7b60: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 29 20 66 hannelOption() f
7b70: 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 2e unction is used.
7b80: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
7b90: 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 *.TCL_OK if suc
7ba0: 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45 cessful or TCL_E
7bb0: 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 2e 0a RROR if failed..
7bc0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
7bd0: 74 73 3a 0a 20 2a 09 55 70 64 61 74 65 73 20 63 ts:. *.Updates c
7be0: 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 6f hannel option to
7bf0: 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 new value.. *.
7c00: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
7c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 --------------.
7c50: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c */.static int.Tl
7c60: 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 0a sSetOptionProc(.
7c70: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 ClientData i
7c80: 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 nstanceData,./*
7c90: 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f Socket state. */
7ca0: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
7cb0: 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 *interp,../* For
7cc0: 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 errors - can be
7cd0: 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 6f NULL. */. co
7ce0: 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e nst char *option
7cf0: 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 Name,./* Name of
7d00: 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 73 the option to s
7d10: 65 74 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 et the value for
7d20: 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e 55 4c 4c , or..... * NULL
7d30: 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 74 69 to get all opti
7d40: 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 ons and their va
7d50: 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e lues. */. con
7d60: 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 56 st char *optionV
7d70: 61 6c 75 65 29 09 2f 2a 20 56 61 6c 75 65 20 66 alue)./* Value f
7d80: 6f 72 20 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 7b 0a or option. */.{.
7d90: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
7da0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
7db0: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 instanceData;.
7dc0: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 Tcl_Channel pa
7dd0: 72 65 6e 74 20 3d 20 54 6c 73 5f 47 65 74 50 61 rent = Tls_GetPa
7de0: 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 rent(statePtr, T
7df0: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
7e00: 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 ;. Tcl_Driver
7e10: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 73 SetOptionProc *s
7e20: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 etOptionProc;..
7e30: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
7e40: 65 64 20 74 6f 20 73 65 74 20 6f 70 74 69 6f 6e ed to set option
7e50: 20 25 73 20 74 6f 20 76 61 6c 75 65 20 25 73 22 %s to value %s"
7e60: 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 , optionName, op
7e70: 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 0a 20 20 20 tionValue);..
7e80: 20 2f 2a 20 50 61 73 73 20 74 6f 20 70 61 72 65 /* Pass to pare
7e90: 6e 74 20 2a 2f 0a 20 20 20 20 73 65 74 4f 70 74 nt */. setOpt
7ea0: 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 ionProc = Tcl_Ch
7eb0: 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e 50 72 annelSetOptionPr
7ec0: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
7ed0: 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a lType(parent));.
7ee0: 20 20 20 20 69 66 20 28 73 65 74 4f 70 74 69 6f if (setOptio
7ef0: 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b nProc != NULL) {
7f00: 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74 4f 70 ..return (*setOp
7f10: 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 tionProc)(Tcl_Ge
7f20: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
7f30: 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 6e Data(parent), in
7f40: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
7f50: 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a , optionValue);.
7f60: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 }. /*.
7f70: 20 20 2a 20 52 65 71 75 65 73 74 20 66 6f 72 20 * Request for
7f80: 61 20 73 70 65 63 69 66 69 63 20 6f 70 74 69 6f a specific optio
7f90: 6e 20 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 n has to fail, w
7fa0: 65 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 e don't have any
7fb0: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 .. */. re
7fc0: 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e turn Tcl_BadChan
7fd0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
7fe0: 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 , optionName, ""
7ff0: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
8000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8040: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
8050: 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 lsGetOptionProc
8060: 2d 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 61 20 6f --. *. *.Get a o
8070: 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 20 66 6f ption's value fo
8080: 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 r a SSL socket b
8090: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 ased channel, or
80a0: 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 0a 20 a list of all.
80b0: 2a 09 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 *.options and th
80c0: 65 69 72 20 76 61 6c 75 65 73 2e 20 43 61 6c 6c eir values. Call
80d0: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
80e0: 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 6e c I/O layer when
80f0: 65 76 65 72 20 74 68 65 0a 20 2a 09 54 63 6c 5f ever the. *.Tcl_
8100: 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e GetChannelOption
8110: 28 29 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 () function is u
8120: 73 65 64 2e 0a 20 2a 0a 20 2a 0a 20 2a 20 52 65 sed.. *. *. * Re
8130: 73 75 6c 74 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b sults:. *.TCL_OK
8140: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f if successful o
8150: 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 r TCL_ERROR if f
8160: 61 69 6c 65 64 2e 20 53 65 74 73 20 6f 70 74 69 ailed. Sets opti
8170: 6f 6e 56 61 6c 75 65 20 74 6f 0a 20 2a 09 74 68 onValue to. *.th
8180: 65 20 6f 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 e option's value
8190: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
81a0: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a ects:. *.None. *
81b0: 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8200: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a . */.static int.
8210: 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 TlsGetOptionProc
8220: 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 (. ClientData
8230: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f instanceData,./
8240: 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 * Socket state.
8250: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 */. Tcl_Inter
8260: 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 p *interp,../* F
8270: 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 or errors - can
8280: 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 be NULL. */.
8290: 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 const char *opti
82a0: 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 onName,./* Name
82b0: 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f of the option to
82c0: 20 72 65 74 72 69 65 76 65 20 74 68 65 20 76 61 retrieve the va
82d0: 6c 75 65 20 66 6f 72 2c 0a 09 09 09 09 20 2a 20 lue for,..... *
82e0: 6f 72 20 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 or NULL to get a
82f0: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 ll options and t
8300: 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a heir values. */.
8310: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 Tcl_DString
8320: 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f 2a *optionValue)./*
8330: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 Where to store
8340: 74 68 65 20 63 6f 6d 70 75 74 65 64 20 76 61 6c the computed val
8350: 75 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 ue initialized b
8360: 79 20 63 61 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 y caller. */.{.
8370: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
8380: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
8390: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 nstanceData;.
83a0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 Tcl_Channel par
83b0: 65 6e 74 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 ent = Tls_GetPar
83c0: 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c ent(statePtr, TL
83d0: 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b S_TCL_FASTPATH);
83e0: 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 47 . Tcl_DriverG
83f0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 65 etOptionProc *ge
8400: 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 tOptionProc;..
8410: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
8420: 64 20 74 6f 20 67 65 74 20 6f 70 74 69 6f 6e 20 d to get option
8430: 25 73 22 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 29 %s", optionName)
8440: 3b 0a 0a 20 20 20 20 2f 2a 20 50 61 73 73 20 74 ;.. /* Pass t
8450: 6f 20 70 61 72 65 6e 74 20 2a 2f 0a 20 20 20 20 o parent */.
8460: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 getOptionProc =
8470: 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 Tcl_ChannelGetOp
8480: 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 tionProc(Tcl_Get
8490: 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 ChannelType(pare
84a0: 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 nt));. if (ge
84b0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e tOptionProc != N
84c0: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 ULL) {..return (
84d0: 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 *getOptionProc)(
84e0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
84f0: 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e stanceData(paren
8500: 74 29 2c 20 69 6e 74 65 72 70 2c 0a 09 20 20 20 t), interp,..
8510: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 optionName, opt
8520: 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d ionValue);. }
8530: 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e else if (option
8540: 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 Name == (char*)
8550: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 NULL) {../*.. *
8560: 52 65 71 75 65 73 74 20 69 73 20 71 75 65 72 79 Request is query
8570: 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 for all options
8580: 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 0a 09 20 , this is ok...
8590: 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f */..return TCL_O
85a0: 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a K;. }. /*.
85b0: 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 66 * Request f
85c0: 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 or a specific op
85d0: 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c tion has to fail
85e0: 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 , we don't have
85f0: 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 any.. */.
8600: 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 return Tcl_BadC
8610: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
8620: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
8630: 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d "");.}../*. *--
8640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
8690: 2a 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 * TlsChannelHand
86a0: 6c 65 72 54 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 lerTimer --. *.
86b0: 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 *.Called by the
86c0: 6e 6f 74 69 66 69 65 72 20 76 69 61 20 61 20 74 notifier via a t
86d0: 69 6d 65 72 2c 20 74 6f 20 67 65 6e 65 72 61 74 imer, to generat
86e0: 65 20 72 65 61 64 2f 77 72 69 74 65 20 65 76 65 e read/write eve
86f0: 6e 74 73 20 74 6f 0a 20 2a 09 66 6c 75 73 68 20 nts to. *.flush
8700: 6f 75 74 20 64 61 74 61 20 77 61 69 74 69 6e 67 out data waiting
8710: 20 69 6e 20 63 68 61 6e 6e 65 6c 20 62 75 66 66 in channel buff
8720: 65 72 73 2e 20 43 61 6c 6c 65 64 20 62 79 20 54 ers. Called by T
8730: 6c 73 57 61 74 63 68 50 72 6f 63 20 74 6f 0a 20 lsWatchProc to.
8740: 2a 09 70 65 72 69 6f 64 69 63 61 6c 6c 79 20 63 *.periodically c
8750: 68 65 63 6b 20 66 6f 72 20 6e 65 77 20 65 76 65 heck for new eve
8760: 6e 74 73 2e 20 55 73 65 64 20 74 6f 20 67 65 6e nts. Used to gen
8770: 65 72 61 74 65 20 65 76 65 6e 74 73 20 77 68 65 erate events whe
8780: 6e 20 64 61 74 61 20 69 73 0a 20 2a 09 62 75 66 n data is. *.buf
8790: 66 65 72 65 64 20 69 6e 20 42 49 4f 20 61 6e 64 fered in BIO and
87a0: 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20 75 6e there are no un
87b0: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
87c0: 20 65 76 65 6e 74 73 2e 0a 20 2a 0a 20 2a 20 52 events.. *. * R
87d0: 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a esults:. *.None.
87e0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
87f0: 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 6e ts:. *.Creates n
8800: 6f 74 69 66 69 63 61 74 69 6f 6e 20 65 76 65 6e otification even
8810: 74 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d t.. *. *--------
8820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8860: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
8870: 20 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c void TlsChannel
8880: 48 61 6e 64 6c 65 72 54 69 6d 65 72 28 0a 20 20 HandlerTimer(.
8890: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
88a0: 65 6e 74 44 61 74 61 29 09 2f 2a 20 53 6f 63 6b entData)./* Sock
88b0: 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 7b 0a 20 et state. */.{.
88c0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
88d0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 63 tr = (State *) c
88e0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 lientData;. i
88f0: 6e 74 20 6d 61 73 6b 20 3d 20 73 74 61 74 65 50 nt mask = stateP
8900: 74 72 2d 3e 77 61 6e 74 3b 20 2f 2a 20 49 6e 69 tr->want; /* Ini
8910: 74 20 74 6f 20 53 53 4c 5f 45 52 52 4f 52 5f 57 t to SSL_ERROR_W
8920: 41 4e 54 5f 52 45 41 44 20 61 6e 64 20 53 53 4c ANT_READ and SSL
8930: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 _ERROR_WANT_WRIT
8940: 45 20 2a 2f 0a 0a 20 20 20 20 64 70 72 69 6e 74 E */.. dprint
8950: 66 28 22 43 61 6c 6c 65 64 20 77 69 74 68 20 6d f("Called with m
8960: 61 73 6b 20 30 78 25 30 32 78 22 2c 20 6d 61 73 ask 0x%02x", mas
8970: 6b 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 k);.. if (sta
8980: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
8990: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
89a0: 20 4e 55 4c 4c 29 20 7b 0a 09 73 74 61 74 65 50 NULL) {..stateP
89b0: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c tr->timer = (Tcl
89c0: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
89d0: 4c 3b 0a 09 54 63 6c 5f 52 65 6c 65 61 73 65 28 L;..Tcl_Release(
89e0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
89f0: 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 tePtr);. }..
8a00: 20 20 20 2f 2a 20 43 68 65 63 6b 20 66 6f 72 20 /* Check for
8a10: 61 6d 6f 75 6e 74 20 6f 66 20 64 61 74 61 20 70 amount of data p
8a20: 65 6e 64 69 6e 67 20 69 6e 20 49 4f 20 6f 72 20 ending in IO or
8a30: 42 49 4f 20 77 72 69 74 65 20 62 75 66 66 65 72 BIO write buffer
8a40: 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f */. if (Tcl_
8a50: 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 28 73 OutputBuffered(s
8a60: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 7c tatePtr->self) |
8a70: 7c 20 42 49 4f 5f 77 70 65 6e 64 69 6e 67 28 73 | BIO_wpending(s
8a80: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b tatePtr->bio)) {
8a90: 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e ..dprintf("[chan
8aa0: 3d 25 70 5d 20 42 49 4f 20 77 72 69 74 61 62 6c =%p] BIO writabl
8ab0: 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 e", statePtr->se
8ac0: 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c 3d 20 54 lf);...mask |= T
8ad0: 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 20 20 20 CL_WRITABLE;.
8ae0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b }.. /* Check
8af0: 20 66 6f 72 20 61 6d 6f 75 6e 74 20 6f 66 20 64 for amount of d
8b00: 61 74 61 20 70 65 6e 64 69 6e 67 20 69 6e 20 49 ata pending in I
8b10: 4f 20 6f 72 20 42 49 4f 20 72 65 61 64 20 62 75 O or BIO read bu
8b20: 66 66 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 ffer */. if (
8b30: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
8b40: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 d(statePtr->self
8b50: 29 20 7c 7c 20 42 49 4f 5f 70 65 6e 64 69 6e 67 ) || BIO_pending
8b60: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
8b70: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 68 {..dprintf("[ch
8b80: 61 6e 3d 25 70 5d 20 42 49 4f 20 72 65 61 64 61 an=%p] BIO reada
8b90: 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e ble", statePtr->
8ba0: 73 65 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c 3d self);...mask |=
8bb0: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 20 TCL_READABLE;.
8bc0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4e 6f 74 }.. /* Not
8bd0: 69 66 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 ify the generic
8be0: 49 4f 20 6c 61 79 65 72 20 74 68 61 74 20 6d 61 IO layer that ma
8bf0: 73 6b 20 65 76 65 6e 74 73 20 68 61 76 65 20 6f sk events have o
8c00: 63 63 75 72 72 65 64 20 6f 6e 20 74 68 65 20 63 ccurred on the c
8c10: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 64 70 hannel */. dp
8c20: 72 69 6e 74 66 28 22 4e 6f 74 69 66 79 69 6e 67 rintf("Notifying
8c30: 20 6f 75 72 73 65 6c 76 65 73 20 77 69 74 68 20 ourselves with
8c40: 6d 61 73 6b 3d 25 64 22 2c 20 6d 61 73 6b 29 3b mask=%d", mask);
8c50: 0a 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 . Tcl_NotifyC
8c60: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
8c70: 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a 20 20 >self, mask);.
8c80: 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 statePtr->want
8c90: 20 3d 20 30 3b 0a 20 20 20 20 72 65 74 75 72 6e = 0;. return
8ca0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
8cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8cf0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
8d00: 73 57 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a sWatchProc --. *
8d10: 0a 20 2a 09 53 65 74 20 75 70 20 74 68 65 20 65 . *.Set up the e
8d20: 76 65 6e 74 20 6e 6f 74 69 66 69 65 72 20 74 6f vent notifier to
8d30: 20 77 61 74 63 68 20 66 6f 72 20 65 76 65 6e 74 watch for event
8d40: 73 20 6f 66 20 69 6e 74 65 72 65 73 74 20 66 72 s of interest fr
8d50: 6f 6d 20 74 68 69 73 0a 20 2a 09 63 68 61 6e 6e om this. *.chann
8d60: 65 6c 2e 20 43 61 6c 6c 65 64 20 62 79 20 74 68 el. Called by th
8d70: 65 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c 61 e generic I/O la
8d80: 79 65 72 20 77 68 65 6e 65 76 65 72 20 74 68 65 yer whenever the
8d90: 20 75 73 65 72 20 28 6f 72 20 74 68 65 0a 20 2a user (or the. *
8da0: 09 73 79 73 74 65 6d 29 20 61 6e 6e 6f 75 6e 63 .system) announc
8db0: 65 73 20 69 74 73 20 28 64 69 73 29 69 6e 74 65 es its (dis)inte
8dc0: 72 65 73 74 20 69 6e 20 65 76 65 6e 74 73 20 6f rest in events o
8dd0: 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 20 54 n the channel. T
8de0: 68 69 73 20 69 73 0a 20 2a 09 63 61 6c 6c 65 64 his is. *.called
8df0: 20 72 65 70 65 61 74 65 64 6c 79 2e 0a 20 2a 0a repeatedly.. *.
8e00: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e * Results:. *.N
8e10: 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 one. *. * Side e
8e20: 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 ffects:. *.Sets
8e30: 75 70 20 6f 72 20 63 6c 65 61 72 73 20 61 20 74 up or clears a t
8e40: 69 6d 65 2d 62 61 73 65 64 20 6e 6f 74 69 66 69 ime-based notifi
8e50: 65 72 20 73 6f 20 74 68 61 74 20 66 75 74 75 72 er so that futur
8e60: 65 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 0a e events on the.
8e70: 20 2a 09 63 68 61 6e 6e 65 6c 20 77 69 6c 6c 20 *.channel will
8e80: 62 65 20 73 65 65 6e 20 62 79 20 54 43 4c 2e 0a be seen by TCL..
8e90: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
8ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ee0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f --. */.static vo
8ef0: 69 64 0a 54 6c 73 57 61 74 63 68 50 72 6f 63 28 id.TlsWatchProc(
8f00: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
8f10: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a instanceData,./*
8f20: 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 Connection stat
8f30: 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 69 6e e info */. in
8f40: 74 20 6d 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 t mask).../* Eve
8f50: 6e 74 73 20 6f 66 20 69 6e 74 65 72 65 73 74 3b nts of interest;
8f60: 20 61 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e an OR-ed combin
8f70: 61 74 69 6f 6e 20 6f 66 0a 09 09 09 09 20 2a 20 ation of..... *
8f80: 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 TCL_READABLE, TC
8f90: 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 L_WRITABLE and T
8fa0: 43 4c 5f 45 58 43 45 50 54 49 4f 4e 2e 20 2a 2f CL_EXCEPTION. */
8fb0: 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e .{. Tcl_Chann
8fc0: 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 53 el parent;. S
8fd0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
8fe0: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 (State *) insta
8ff0: 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c nceData;. Tcl
9000: 5f 44 72 69 76 65 72 57 61 74 63 68 50 72 6f 63 _DriverWatchProc
9010: 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a 20 20 20 *watchProc;.
9020: 20 69 6e 74 20 70 65 6e 64 69 6e 67 20 3d 20 30 int pending = 0
9030: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
9040: 43 61 6c 6c 65 64 20 77 69 74 68 20 6d 61 73 6b Called with mask
9050: 20 30 78 25 30 32 78 20 61 6e 64 20 77 61 6e 74 0x%02x and want
9060: 20 30 78 25 30 32 78 22 2c 20 6d 61 73 6b 2c 20 0x%02x", mask,
9070: 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 29 3b statePtr->want);
9080: 0a 20 20 20 20 64 70 72 69 6e 74 46 6c 61 67 73 . dprintFlags
9090: 28 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 (statePtr);..
90a0: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 74 68 65 /* Abort if the
90b0: 20 75 73 65 72 20 76 65 72 69 66 79 20 63 61 6c user verify cal
90c0: 6c 62 61 63 6b 20 69 73 20 73 74 69 6c 6c 20 72 lback is still r
90d0: 75 6e 6e 69 6e 67 20 74 6f 20 61 76 6f 69 64 20 unning to avoid
90e0: 74 72 69 67 67 65 72 69 6e 67 0a 20 20 20 20 20 triggering.
90f0: 2a 20 61 6e 6f 74 68 65 72 20 63 61 6c 6c 20 62 * another call b
9100: 65 66 6f 72 65 20 74 68 65 20 63 75 72 72 65 6e efore the curren
9110: 74 20 6f 6e 65 20 69 73 20 63 6f 6d 70 6c 65 74 t one is complet
9120: 65 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 e. */. if (st
9130: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
9140: 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b TLS_TCL_CALLBACK
9150: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 61 ) {..dprintf("Ca
9160: 6c 6c 62 61 63 6b 20 69 73 20 6f 6e 2d 67 6f 69 llback is on-goi
9170: 6e 67 2c 20 64 6f 69 6e 67 20 6e 6f 74 68 69 6e ng, doing nothin
9180: 67 22 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 g");..return;.
9190: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 }.. /* Get
91a0: 63 68 61 6e 6e 65 6c 20 74 6f 20 6d 6f 6e 69 74 channel to monit
91b0: 6f 72 20 66 6f 72 20 65 76 65 6e 74 73 20 2a 2f or for events */
91c0: 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 6c . parent = Tl
91d0: 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 s_GetParent(stat
91e0: 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 ePtr, TLS_TCL_FA
91f0: 53 54 50 41 54 48 29 3b 0a 20 20 20 20 64 70 72 STPATH);. dpr
9200: 69 6e 74 66 28 22 50 61 72 65 6e 74 3a 20 63 68 intf("Parent: ch
9210: 61 6e 20 62 75 66 66 65 72 3d 25 64 2c 20 69 6e an buffer=%d, in
9220: 70 75 74 20 62 75 66 66 65 72 3d 25 64 2c 20 6f put buffer=%d, o
9230: 75 74 70 75 74 20 62 75 66 66 65 72 3d 25 64 22 utput buffer=%d"
9240: 2c 20 5c 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c , \..Tcl_Channel
9250: 42 75 66 66 65 72 65 64 28 70 61 72 65 6e 74 29 Buffered(parent)
9260: 2c 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 , Tcl_InputBuffe
9270: 72 65 64 28 70 61 72 65 6e 74 29 2c 20 54 63 6c red(parent), Tcl
9280: 5f 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 28 _OutputBuffered(
9290: 70 61 72 65 6e 74 29 29 3b 0a 0a 20 20 20 20 2f parent));.. /
92a0: 2a 20 41 62 6f 72 74 20 69 66 20 63 6f 6e 6e 65 * Abort if conne
92b0: 63 74 20 66 61 69 6c 65 64 20 2a 2f 0a 20 20 20 ct failed */.
92c0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
92d0: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 46 lags & TLS_TCL_F
92e0: 41 54 41 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 64 ATAL_ERROR) {..d
92f0: 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f printf("Asked to
9300: 20 77 61 74 63 68 20 61 20 73 6f 63 6b 65 74 20 watch a socket
9310: 77 69 74 68 20 61 20 66 61 69 6c 65 64 20 68 61 with a failed ha
9320: 6e 64 73 68 61 6b 65 20 2d 2d 20 6e 6f 74 68 69 ndshake -- nothi
9330: 6e 67 20 63 61 6e 20 68 61 70 70 65 6e 20 68 65 ng can happen he
9340: 72 65 22 29 3b 0a 09 64 70 72 69 6e 74 66 28 22 re");..dprintf("
9350: 55 6e 72 65 67 69 73 74 65 72 69 6e 67 20 69 6e Unregistering in
9360: 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f terest in the lo
9370: 77 65 72 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 0a wer channel");..
9380: 09 77 61 74 63 68 50 72 6f 63 20 3d 20 54 63 6c .watchProc = Tcl
9390: 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f _ChannelWatchPro
93a0: 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c c(Tcl_GetChannel
93b0: 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a 09 Type(parent));..
93c0: 77 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 watchProc(Tcl_Ge
93d0: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
93e0: 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 30 29 Data(parent), 0)
93f0: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 ;..statePtr->wat
9400: 63 68 4d 61 73 6b 20 3d 20 30 3b 0a 09 72 65 74 chMask = 0;..ret
9410: 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 urn;. }..
9420: 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d statePtr->watchM
9430: 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 ask = mask;..
9440: 20 2f 2a 0a 20 20 20 20 20 2a 20 4e 6f 20 63 68 /*. * No ch
9450: 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 61 annel handlers a
9460: 6e 79 20 6d 6f 72 65 2e 20 57 65 20 77 69 6c 6c ny more. We will
9470: 20 62 65 20 6e 6f 74 69 66 69 65 64 20 61 75 74 be notified aut
9480: 6f 6d 61 74 69 63 61 6c 6c 79 20 61 62 6f 75 74 omatically about
9490: 0a 20 20 20 20 20 2a 20 65 76 65 6e 74 73 20 6f . * events o
94a0: 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 65 n the channel be
94b0: 6c 6f 77 20 76 69 61 20 61 20 63 61 6c 6c 20 74 low via a call t
94c0: 6f 20 6f 75 72 20 27 54 72 61 6e 73 66 6f 72 6d o our 'Transform
94d0: 4e 6f 74 69 66 79 50 72 6f 63 27 2e 20 42 75 74 NotifyProc'. But
94e0: 0a 20 20 20 20 20 2a 20 77 65 20 68 61 76 65 20 . * we have
94f0: 74 6f 20 70 61 73 73 20 74 68 65 20 69 6e 74 65 to pass the inte
9500: 72 65 73 74 20 64 6f 77 6e 20 6e 6f 77 2e 20 57 rest down now. W
9510: 65 20 61 72 65 20 61 6c 6c 6f 77 65 64 20 74 6f e are allowed to
9520: 20 61 64 64 20 61 64 64 69 74 69 6f 6e 61 6c 0a add additional.
9530: 20 20 20 20 20 2a 20 27 69 6e 74 65 72 65 73 74 * 'interest
9540: 27 20 74 6f 20 74 68 65 20 6d 61 73 6b 20 69 66 ' to the mask if
9550: 20 77 65 20 77 61 6e 74 20 74 6f 2c 20 62 75 74 we want to, but
9560: 20 74 68 69 73 20 74 72 61 6e 73 66 6f 72 6d 61 this transforma
9570: 74 69 6f 6e 20 68 61 73 20 6e 6f 0a 20 20 20 20 tion has no.
9580: 20 2a 20 73 75 63 68 20 69 6e 74 65 72 65 73 74 * such interest
9590: 2e 20 49 74 20 6a 75 73 74 20 70 61 73 73 65 73 . It just passes
95a0: 20 74 68 65 20 72 65 71 75 65 73 74 20 64 6f 77 the request dow
95b0: 6e 2c 20 75 6e 63 68 61 6e 67 65 64 2e 0a 20 20 n, unchanged..
95c0: 20 20 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 */. dprint
95d0: 66 28 22 52 65 67 69 73 74 65 72 69 6e 67 20 6f f("Registering o
95e0: 75 72 20 69 6e 74 65 72 65 73 74 20 69 6e 20 74 ur interest in t
95f0: 68 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c he lower channel
9600: 20 28 63 68 61 6e 3d 25 70 29 22 2c 20 28 76 6f (chan=%p)", (vo
9610: 69 64 20 2a 29 20 70 61 72 65 6e 74 29 3b 0a 20 id *) parent);.
9620: 20 20 20 77 61 74 63 68 50 72 6f 63 20 3d 20 54 watchProc = T
9630: 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 cl_ChannelWatchP
9640: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
9650: 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b elType(parent));
9660: 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63 28 54 . watchProc(T
9670: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
9680: 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 tanceData(parent
9690: 29 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f ), mask);.. /
96a0: 2a 20 44 6f 20 77 65 20 68 61 76 65 20 61 6e 79 * Do we have any
96b0: 20 70 65 6e 64 69 6e 67 20 64 61 74 61 20 2a 2f pending data */
96c0: 0a 20 20 20 20 70 65 6e 64 69 6e 67 20 3d 20 28 . pending = (
96d0: 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 7c statePtr->want |
96e0: 7c 20 5c 0a 09 28 28 6d 61 73 6b 20 26 20 54 43 | \..((mask & TC
96f0: 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 20 28 L_READABLE) && (
9700: 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 (Tcl_InputBuffer
9710: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
9720: 66 29 20 3e 20 30 29 20 7c 7c 20 28 42 49 4f 5f f) > 0) || (BIO_
9730: 63 74 72 6c 5f 70 65 6e 64 69 6e 67 28 73 74 61 ctrl_pending(sta
9740: 74 65 50 74 72 2d 3e 62 69 6f 29 20 3e 20 30 29 tePtr->bio) > 0)
9750: 29 29 20 7c 7c 0a 09 28 28 6d 61 73 6b 20 26 20 )) ||..((mask &
9760: 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 20 26 26 TCL_WRITABLE) &&
9770: 20 28 28 54 63 6c 5f 4f 75 74 70 75 74 42 75 66 ((Tcl_OutputBuf
9780: 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e fered(statePtr->
9790: 73 65 6c 66 29 20 3e 20 30 29 20 7c 7c 20 28 42 self) > 0) || (B
97a0: 49 4f 5f 63 74 72 6c 5f 77 70 65 6e 64 69 6e 67 IO_ctrl_wpending
97b0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 (statePtr->bio)
97c0: 3e 20 30 29 29 29 29 3b 0a 0a 20 20 20 20 64 70 > 0))));.. dp
97d0: 72 69 6e 74 66 28 22 49 4f 20 57 61 6e 74 3d 25 rintf("IO Want=%
97e0: 64 2c 20 69 6e 70 75 74 20 62 75 66 66 65 72 3d d, input buffer=
97f0: 25 64 2c 20 6f 75 74 70 75 74 20 62 75 66 66 65 %d, output buffe
9800: 72 3d 25 64 2c 20 42 49 4f 20 70 65 6e 64 69 6e r=%d, BIO pendin
9810: 67 3d 25 7a 64 2c 20 42 49 4f 20 77 70 65 6e 64 g=%zd, BIO wpend
9820: 69 6e 67 3d 25 7a 64 2c 20 70 65 6e 64 69 6e 67 ing=%zd, pending
9830: 3d 25 64 22 2c 20 5c 0a 09 73 74 61 74 65 50 74 =%d", \..statePt
9840: 72 2d 3e 77 61 6e 74 2c 20 54 63 6c 5f 49 6e 70 r->want, Tcl_Inp
9850: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 utBuffered(state
9860: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 63 6c 5f Ptr->self), Tcl_
9870: 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 28 73 OutputBuffered(s
9880: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 tatePtr->self),
9890: 5c 0a 09 42 49 4f 5f 63 74 72 6c 5f 70 65 6e 64 \..BIO_ctrl_pend
98a0: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ing(statePtr->bi
98b0: 6f 29 2c 20 42 49 4f 5f 63 74 72 6c 5f 77 70 65 o), BIO_ctrl_wpe
98c0: 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e nding(statePtr->
98d0: 62 69 6f 29 2c 20 70 65 6e 64 69 6e 67 29 3b 0a bio), pending);.
98e0: 0a 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 74 . /* Remove t
98f0: 69 6d 65 72 2c 20 69 66 20 61 6e 79 20 2a 2f 0a imer, if any */.
9900: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
9910: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
9920: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
9930: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 20 ) {..dprintf("A
9940: 74 69 6d 65 72 20 77 61 73 20 66 6f 75 6e 64 2c timer was found,
9950: 20 64 65 6c 65 74 69 6e 67 20 69 74 22 29 3b 0a deleting it");.
9960: 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 .Tcl_DeleteTimer
9970: 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 Handler(statePtr
9980: 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 ->timer);..state
9990: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
99a0: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
99b0: 4c 4c 3b 0a 09 54 63 6c 5f 52 65 6c 65 61 73 65 LL;..Tcl_Release
99c0: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
99d0: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 0a atePtr);. }..
99e0: 20 20 20 20 2f 2a 20 41 64 64 20 74 69 6d 65 72 /* Add timer
99f0: 2c 20 69 66 20 6e 6f 6e 65 20 2a 2f 0a 20 20 20 , if none */.
9a00: 20 69 66 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f if (mask & TCL_
9a10: 52 45 41 44 41 42 4c 45 29 20 7b 0a 09 64 70 72 READABLE) {..dpr
9a20: 69 6e 74 66 28 22 43 72 65 61 74 69 6e 67 20 61 intf("Creating a
9a30: 20 6e 65 77 20 74 69 6d 65 72 20 73 69 6e 63 65 new timer since
9a40: 20 64 61 74 61 20 61 70 70 65 61 72 73 20 74 6f data appears to
9a50: 20 62 65 20 77 61 69 74 69 6e 67 22 29 3b 0a 09 be waiting");..
9a60: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c Tcl_Preserve((Cl
9a70: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
9a80: 74 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e tr);..statePtr->
9a90: 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 timer = Tcl_Crea
9aa0: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 54 teTimerHandler(T
9ab0: 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 20 54 6c LS_TCL_DELAY, Tl
9ac0: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 sChannelHandlerT
9ad0: 69 6d 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 imer, (ClientDat
9ae0: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
9af0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}../*. *----
9b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
9b50: 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 TlsGetHandleProc
9b60: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 --. *. *.This p
9b70: 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f rocedure is invo
9b80: 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 ked by the gener
9b90: 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 72 ic IO level to r
9ba0: 65 74 72 69 65 76 65 20 61 6e 20 4f 53 0a 20 2a etrieve an OS. *
9bb0: 09 73 70 65 63 69 66 69 63 20 68 61 6e 64 6c 65 .specific handle
9bc0: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 associated with
9bd0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 20 4e 6f the channel. No
9be0: 74 20 75 73 65 64 20 66 6f 72 20 74 72 61 6e 73 t used for trans
9bf0: 66 6f 72 6d 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 forms.. *. * Res
9c00: 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 61 70 70 ults:. *.The app
9c10: 72 6f 70 72 69 61 74 65 20 54 63 6c 5f 46 69 6c ropriate Tcl_Fil
9c20: 65 20 68 61 6e 64 6c 65 20 6f 72 20 4e 55 4c 4c e handle or NULL
9c30: 20 69 66 20 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 if None. *. * S
9c40: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
9c50: 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d None. *. *------
9c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ca0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
9cb0: 69 63 20 69 6e 74 20 54 6c 73 47 65 74 48 61 6e ic int TlsGetHan
9cc0: 64 6c 65 50 72 6f 63 28 0a 20 20 20 20 43 6c 69 dleProc(. Cli
9cd0: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
9ce0: 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 74 20 Data,./* Socket
9cf0: 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e state. */. in
9d00: 74 20 64 69 72 65 63 74 69 6f 6e 2c 09 09 2f 2a t direction,../*
9d10: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 TCL_READABLE or
9d20: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f TCL_WRITABLE */
9d30: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
9d40: 2a 68 61 6e 64 6c 65 50 74 72 29 09 2f 2a 20 48 *handlePtr)./* H
9d50: 61 6e 64 6c 65 20 61 73 73 6f 63 69 61 74 65 64 andle associated
9d60: 20 77 69 74 68 20 74 68 65 20 63 68 61 6e 6e 65 with the channe
9d70: 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 l */.{. State
9d80: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
9d90: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
9da0: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ata;.. dprint
9db0: 66 28 22 43 61 6c 6c 65 64 20 77 69 74 68 20 64 f("Called with d
9dc0: 69 72 65 63 74 69 6f 6e 20 30 78 25 30 32 78 22 irection 0x%02x"
9dd0: 2c 20 64 69 72 65 63 74 69 6f 6e 29 3b 0a 0a 20 , direction);..
9de0: 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 return Tcl_Ge
9df0: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 tChannelHandle(T
9e00: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 ls_GetParent(sta
9e10: 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 tePtr, TLS_TCL_F
9e20: 41 53 54 50 41 54 48 29 2c 0a 09 64 69 72 65 63 ASTPATH),..direc
9e30: 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 tion, handlePtr)
9e40: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
9e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e90: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
9ea0: 73 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 sNotifyProc --.
9eb0: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
9ec0: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 ure is invoked b
9ed0: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f y the generic IO
9ee0: 20 6c 65 76 65 6c 20 74 6f 20 6e 6f 74 69 66 79 level to notify
9ef0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 the channel. *.
9f00: 74 68 61 74 20 61 6e 20 65 76 65 6e 74 20 68 61 that an event ha
9f10: 73 20 6f 63 63 75 72 72 65 64 20 6f 6e 20 74 68 s occurred on th
9f20: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 e underlying cha
9f30: 6e 6e 65 6c 2e 20 49 74 20 69 73 20 75 73 65 64 nnel. It is used
9f40: 20 62 79 0a 20 2a 09 73 74 61 63 6b 65 64 20 63 by. *.stacked c
9f50: 68 61 6e 6e 65 6c 20 64 72 69 76 65 72 73 20 74 hannel drivers t
9f60: 68 61 74 20 77 69 73 68 20 74 6f 20 62 65 20 6e hat wish to be n
9f70: 6f 74 69 66 69 65 64 20 6f 66 20 65 76 65 6e 74 otified of event
9f80: 73 20 74 68 61 74 20 6f 63 63 75 72 0a 20 2a 09 s that occur. *.
9f90: 6f 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e on the underlyin
9fa0: 67 20 28 73 74 61 63 6b 65 64 29 20 63 68 61 6e g (stacked) chan
9fb0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
9fc0: 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 6d ts:. *.Returns m
9fd0: 61 73 6b 20 76 61 6c 75 65 20 74 6f 20 69 6e 64 ask value to ind
9fe0: 69 63 61 74 65 20 6e 6f 6e 65 20 6f 66 20 74 68 icate none of th
9ff0: 65 20 65 76 65 6e 74 73 20 77 65 72 65 20 73 65 e events were se
a000: 72 76 69 63 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 rviced.. *. * Si
a010: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d de effects:. *.M
a020: 61 79 20 63 61 6c 6c 20 54 6c 73 5f 57 61 69 74 ay call Tls_Wait
a030: 46 6f 72 43 6f 6e 6e 65 63 74 20 61 6e 64 2f 6f ForConnect and/o
a040: 72 20 64 65 6c 65 74 65 20 74 69 6d 65 72 2e 0a r delete timer..
a050: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
a060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a0a0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
a0b0: 74 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 28 t TlsNotifyProc(
a0c0: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
a0d0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a instanceData,./*
a0e0: 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a Socket state. *
a0f0: 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 /. int mask).
a100: 09 09 2f 2a 20 74 79 70 65 20 6f 66 20 65 76 65 ../* type of eve
a110: 6e 74 20 74 68 61 74 20 6f 63 63 75 72 72 65 64 nt that occurred
a120: 3a 20 4f 52 2d 65 64 0a 09 09 09 09 20 2a 20 63 : OR-ed..... * c
a130: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 ombination of TC
a140: 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 L_READABLE or TC
a150: 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a 7b 0a L_WRITABLE */.{.
a160: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
a170: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
a180: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 instanceData;.
a190: 20 20 69 6e 74 20 65 72 72 6f 72 43 6f 64 65 20 int errorCode
a1a0: 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 = 0;.. dprint
a1b0: 66 28 22 43 61 6c 6c 65 64 20 77 69 74 68 20 6d f("Called with m
a1c0: 61 73 6b 20 30 78 25 30 32 78 22 2c 20 6d 61 73 ask 0x%02x", mas
a1d0: 6b 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 k);.. /*.
a1e0: 20 2a 20 44 65 6c 65 74 65 20 61 6e 20 65 78 69 * Delete an exi
a1f0: 73 74 69 6e 67 20 74 69 6d 65 72 2e 20 49 74 20 sting timer. It
a200: 77 61 73 20 6e 6f 74 20 66 69 72 65 64 2c 20 79 was not fired, y
a210: 65 74 20 77 65 20 61 72 65 20 68 65 72 65 2c 20 et we are here,
a220: 73 6f 20 74 68 65 0a 20 20 20 20 20 2a 20 62 65 so the. * be
a230: 6c 6f 77 20 63 68 61 6e 6e 65 6c 20 67 65 6e 65 low channel gene
a240: 72 61 74 65 64 20 73 75 63 68 20 61 6e 20 65 76 rated such an ev
a250: 65 6e 74 20 61 6e 64 20 77 65 20 64 6f 6e 27 74 ent and we don't
a260: 20 6e 65 65 64 20 74 6f 2e 20 54 68 65 20 72 65 need to. The re
a270: 6e 65 77 61 6c 0a 20 20 20 20 20 2a 20 6f 66 20 newal. * of
a280: 74 68 65 20 69 6e 74 65 72 65 73 74 20 61 66 74 the interest aft
a290: 65 72 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e er the execution
a2a0: 20 6f 66 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 of channel hand
a2b0: 6c 65 72 73 20 77 69 6c 6c 20 65 76 65 6e 74 75 lers will eventu
a2c0: 61 6c 6c 79 0a 20 20 20 20 20 2a 20 63 61 75 73 ally. * caus
a2d0: 65 20 75 73 20 74 6f 20 72 65 63 72 65 61 74 65 e us to recreate
a2e0: 20 74 68 65 20 74 69 6d 65 72 20 28 69 6e 20 54 the timer (in T
a2f0: 6c 73 57 61 74 63 68 50 72 6f 63 29 2e 0a 20 20 lsWatchProc)..
a300: 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 */. if (st
a310: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d atePtr->timer !=
a320: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
a330: 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 ) NULL) {..Tcl_D
a340: 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 eleteTimerHandle
a350: 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 r(statePtr->time
a360: 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 r);..statePtr->t
a370: 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 imer = (Tcl_Time
a380: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 09 54 rToken) NULL;..T
a390: 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 cl_Release((Clie
a3a0: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
a3b0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
a3c0: 20 41 62 6f 72 74 20 69 66 20 74 68 65 20 75 73 Abort if the us
a3d0: 65 72 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 er verify callba
a3e0: 63 6b 20 69 73 20 73 74 69 6c 6c 20 72 75 6e 6e ck is still runn
a3f0: 69 6e 67 20 74 6f 20 61 76 6f 69 64 20 74 72 69 ing to avoid tri
a400: 67 67 65 72 69 6e 67 0a 20 20 20 20 20 2a 20 61 ggering. * a
a410: 6e 6f 74 68 65 72 20 63 61 6c 6c 20 62 65 66 6f nother call befo
a420: 72 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f re the current o
a430: 6e 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 20 ne is complete.
a440: 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 */. if (state
a450: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
a460: 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b _TCL_CALLBACK) {
a470: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 ..dprintf("Callb
a480: 61 63 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e 67 2c ack is on-going,
a490: 20 72 65 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 returning faile
a4a0: 64 22 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a d");..return 0;.
a4b0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 }.. /* If
a4c0: 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 not initialized
a4d0: 2c 20 64 6f 20 63 6f 6e 6e 65 63 74 20 2a 2f 0a , do connect */.
a4e0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
a4f0: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
a500: 4c 5f 49 4e 49 54 29 20 7b 0a 09 69 6e 74 20 74 L_INIT) {..int t
a510: 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 70 72 lsConnect;...dpr
a520: 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c intf("Calling Tl
a530: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
a540: 22 29 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 63 74 ");...tlsConnect
a550: 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f = Tls_WaitForCo
a560: 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 nnect(statePtr,
a570: 26 65 72 72 6f 72 43 6f 64 65 2c 20 31 29 3b 0a &errorCode, 1);.
a580: 09 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 .if (tlsConnect
a590: 3c 20 31 29 20 7b 0a 09 20 20 20 20 64 70 72 69 < 1) {.. dpri
a5a0: 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f ntf("Got an erro
a5b0: 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e r waiting to con
a5c0: 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 nect (tlsConnect
a5d0: 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 = %i, *errorCod
a5e0: 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 ePtr = %i)", tls
a5f0: 43 6f 6e 6e 65 63 74 2c 20 65 72 72 6f 72 43 6f Connect, errorCo
a600: 64 65 29 3b 0a 09 20 20 20 20 69 66 20 28 65 72 de);.. if (er
a610: 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 rorCode == EAGAI
a620: 4e 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 N) {...dprintf("
a630: 41 73 79 6e 63 20 66 6c 61 67 20 63 6f 75 6c 64 Async flag could
a640: 20 62 65 20 73 65 74 20 28 64 69 64 6e 27 74 20 be set (didn't
a650: 63 68 65 63 6b 29 20 61 6e 64 20 65 72 72 6f 72 check) and error
a660: 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 3a 20 Code == EAGAIN:
a670: 20 52 65 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 Returning faile
a680: 64 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 20 30 d");....return 0
a690: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 64 ;.. }... d
a6a0: 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 printf("Tls_Wait
a6b0: 46 6f 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 ForConnect retur
a6c0: 6e 65 64 20 61 6e 20 65 72 72 6f 72 22 29 3b 0a ned an error");.
a6d0: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a .}. }.. /*
a6e0: 0a 20 20 20 20 20 2a 20 41 6e 20 65 76 65 6e 74 . * An event
a6f0: 20 6f 63 63 75 72 72 65 64 20 69 6e 20 74 68 65 occurred in the
a700: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e underlying chan
a710: 6e 65 6c 2e 20 54 68 69 73 20 74 72 61 6e 73 66 nel. This transf
a720: 6f 72 6d 61 74 69 6f 6e 20 64 6f 65 73 6e 27 74 ormation doesn't
a730: 0a 20 20 20 20 20 2a 20 70 72 6f 63 65 73 73 20 . * process
a740: 73 75 63 68 20 65 76 65 6e 74 73 20 74 68 75 73 such events thus
a750: 20 72 65 74 75 72 6e 73 20 74 68 65 20 69 6e 63 returns the inc
a760: 6f 6d 69 6e 67 20 6d 61 73 6b 20 75 6e 63 68 61 oming mask uncha
a770: 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 nged.. */.
a780: 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 dprintf("Retur
a790: 6e 69 6e 67 20 25 69 22 2c 20 6d 61 73 6b 29 3b ning %i", mask);
a7a0: 0a 20 20 20 20 72 65 74 75 72 6e 20 6d 61 73 6b . return mask
a7b0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
a7c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a7d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a7e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a7f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a800: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
a810: 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2d 2d s_ChannelType --
a820: 0a 20 2a 0a 20 2a 09 44 65 66 69 6e 65 73 20 74 . *. *.Defines t
a830: 68 65 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 64 he TLS channel d
a840: 72 69 76 65 72 20 68 61 6e 64 6c 65 72 73 20 66 river handlers f
a850: 6f 72 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 20 or this channel
a860: 74 79 70 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 type.. *. * Resu
a870: 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 lts:. *.Returns
a880: 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 54 63 6c a pointer to Tcl
a890: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 73 74 72 _ChannelType str
a8a0: 75 63 74 75 72 65 2e 0a 20 2a 0a 20 2a 20 53 69 ucture.. *. * Si
a8b0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
a8c0: 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d one. *. *-------
a8d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a8e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a8f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a910: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
a920: 63 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e c const Tcl_Chan
a930: 6e 65 6c 54 79 70 65 20 74 6c 73 43 68 61 6e 6e nelType tlsChann
a940: 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 elType = {. "
a950: 74 6c 73 22 2c 09 09 09 2f 2a 20 54 79 70 65 20 tls",.../* Type
a960: 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c 5f name */. TCL_
a970: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f CHANNEL_VERSION_
a980: 35 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 6c 5,./* v5 channel
a990: 20 2a 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 */. TlsClose
a9a0: 50 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 Proc,../* Close
a9b0: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 49 proc */. TlsI
a9c0: 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e nputProc,../* In
a9d0: 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 put proc */.
a9e0: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 TlsOutputProc,..
a9f0: 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a /* Output proc *
aa00: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a /. NULL,.../*
aa10: 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 Seek proc */.
aa20: 20 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 TlsSetOptionPr
aa30: 6f 63 2c 09 09 2f 2a 20 53 65 74 20 6f 70 74 69 oc,../* Set opti
aa40: 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 on proc */. T
aa50: 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c lsGetOptionProc,
aa60: 09 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 ../* Get option
aa70: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 57 proc */. TlsW
aa80: 61 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e atchProc,../* In
aa90: 69 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 itialize notifie
aaa0: 72 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 48 r */. TlsGetH
aab0: 61 6e 64 6c 65 50 72 6f 63 2c 09 09 2f 2a 20 47 andleProc,../* G
aac0: 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 6f 75 et OS handles ou
aad0: 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a t of channel */.
aae0: 20 20 20 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f TlsClose2Pro
aaf0: 63 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f c,../* close2pro
ab00: 63 20 2a 2f 0a 20 20 20 20 54 6c 73 42 6c 6f 63 c */. TlsBloc
ab10: 6b 4d 6f 64 65 50 72 6f 63 2c 09 09 2f 2a 20 53 kModeProc,../* S
ab20: 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 et blocking/nonb
ab30: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 locking mode*/.
ab40: 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 6c NULL,.../* Fl
ab50: 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 ush proc */.
ab60: 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 TlsNotifyProc,..
ab70: 2f 2a 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 /* Handling of e
ab80: 76 65 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 vents bubbling u
ab90: 70 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 p */. NULL,..
aba0: 09 2f 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 ./* Wide seek pr
abb0: 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 oc */. NULL,.
abc0: 09 09 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 ../* Thread acti
abd0: 6f 6e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 on */. NULL..
abe0: 09 2f 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a ./* Truncate */.
abf0: 7d 3b 0a 0a 63 6f 6e 73 74 20 54 63 6c 5f 43 68 };..const Tcl_Ch
ac00: 61 6e 6e 65 6c 54 79 70 65 20 2a 54 6c 73 5f 43 annelType *Tls_C
ac10: 68 61 6e 6e 65 6c 54 79 70 65 28 76 6f 69 64 29 hannelType(void)
ac20: 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 26 74 {. return &t
ac30: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 7d lsChannelType;.}
ac40: 0a .