0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61 (C) 1997-2000 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 Copyright (C) 2
0050: 30 30 30 20 41 6a 75 62 61 20 53 6f 6c 75 74 69 000 Ajuba Soluti
0060: 6f 6e 73 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 ons. *. * TLS (a
0070: 6b 61 20 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 ka SSL) Channel
0080: 2d 20 63 61 6e 20 62 65 20 6c 61 79 65 72 65 64 - can be layered
0090: 20 6f 6e 20 61 6e 79 20 62 69 2d 64 69 72 65 63 on any bi-direc
00a0: 74 69 6f 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 tional. * Tcl_Ch
00b0: 61 6e 6e 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 annel (Note: Req
00c0: 75 69 72 65 73 20 54 72 66 20 43 6f 72 65 20 50 uires Trf Core P
00d0: 61 74 63 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 atch). *. * This
00e0: 20 77 61 73 20 62 75 69 6c 74 20 66 72 6f 6d 20 was built from
00f0: 73 63 72 61 74 63 68 20 62 61 73 65 64 20 75 70 scratch based up
0100: 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e 20 6f on observation o
0110: 66 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 32 42 f OpenSSL 0.9.2B
0120: 0a 20 2a 0a 20 2a 20 41 64 64 69 74 69 6f 6e 20 . *. * Addition
0130: 63 72 65 64 69 74 20 69 73 20 64 75 65 20 66 6f credit is due fo
0140: 72 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 65 r Andreas Kuprie
0150: 73 20 28 61 2e 6b 75 70 72 69 65 73 40 77 65 73 s (a.kupries@wes
0160: 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 6f 72 0a 20 tend.com), for.
0170: 2a 20 70 72 6f 76 69 64 69 6e 67 20 74 68 65 20 * providing the
0180: 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 61 6e 6e Tcl_ReplaceChann
0190: 65 6c 20 6d 65 63 68 61 6e 69 73 6d 20 61 6e 64 el mechanism and
01a0: 20 77 6f 72 6b 69 6e 67 20 63 6c 6f 73 65 6c 79 working closely
01b0: 20 77 69 74 68 20 6d 65 0a 20 2a 20 74 6f 20 65 with me. * to e
01c0: 6e 68 61 6e 63 65 20 69 74 20 74 6f 20 73 75 70 nhance it to sup
01d0: 70 6f 72 74 20 66 75 6c 6c 20 66 69 6c 65 65 76 port full fileev
01e0: 65 6e 74 20 73 65 6d 61 6e 74 69 63 73 2e 0a 20 ent semantics..
01f0: 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f 72 6b 20 64 *. * Also work d
0200: 6f 6e 65 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f one by the follo
0210: 77 20 70 65 6f 70 6c 65 20 70 72 6f 76 69 64 65 w people provide
0220: 64 20 74 68 65 20 69 6d 70 65 74 75 73 20 74 6f d the impetus to
0230: 20 64 6f 20 74 68 69 73 20 22 72 69 67 68 74 22 do this "right"
0240: 3a 0a 20 2a 09 74 63 6c 53 53 4c 20 28 43 6f 6c :. *.tclSSL (Col
0250: 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c 20 53 68 in McCormack, Sh
0260: 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f 67 79 29 ared Technology)
0270: 0a 20 2a 09 53 53 4c 74 63 6c 20 28 50 65 74 65 . *.SSLtcl (Pete
0280: 72 20 41 6e 74 6d 61 6e 29 0a 20 2a 0a 20 2a 2f r Antman). *. */
0290: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
02a0: 6e 74 2e 68 22 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 nt.h"../*. * For
02b0: 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e ward declaration
02c0: 73 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 s. */.static voi
02d0: 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 d TlsChannelHand
02e0: 6c 65 72 54 69 6d 65 72 28 43 6c 69 65 6e 74 44 lerTimer(ClientD
02f0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 3b ata clientData);
0300: 0a 0a 2f 2a 0a 20 2a 20 54 4c 53 20 43 68 61 6e ../*. * TLS Chan
0310: 6e 65 6c 20 54 79 70 65 0a 20 2a 2f 0a 73 74 61 nel Type. */.sta
0320: 74 69 63 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 tic Tcl_ChannelT
0330: 79 70 65 20 2a 74 6c 73 43 68 61 6e 6e 65 6c 54 ype *tlsChannelT
0340: 79 70 65 20 3d 20 4e 55 4c 4c 3b 0a 0a 2f 2a 0a ype = NULL;../*.
0350: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0390: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 42 -----. *. * TlsB
03a0: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a lockModeProc --.
03b0: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 *. *.This proce
03c0: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
03d0: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
03e0: 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 O level. *
03f0: 20 74 6f 20 73 65 74 20 62 6c 6f 63 6b 69 6e 67 to set blocking
0400: 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 and nonblocking
0410: 20 6d 6f 64 65 73 0a 20 2a 20 52 65 73 75 6c 74 modes. * Result
0420: 73 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 s:. *.0 if succe
0430: 73 73 66 75 6c 2c 20 65 72 72 6e 6f 20 77 68 65 ssful, errno whe
0440: 6e 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 n failed.. *. *
0450: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
0460: 09 53 65 74 73 20 74 68 65 20 64 65 76 69 63 65 .Sets the device
0470: 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f into blocking o
0480: 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f r nonblocking mo
0490: 64 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d de.. *. *-------
04a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
04e0: 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 42 .static int TlsB
04f0: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 lockModeProc(Cli
0500: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
0510: 44 61 74 61 2c 20 69 6e 74 20 6d 6f 64 65 29 20 Data, int mode)
0520: 7b 0a 09 53 74 61 74 65 20 2a 73 74 61 74 65 50 {..State *stateP
0530: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
0540: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 09 69 nstanceData;...i
0550: 66 20 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d f (mode == TCL_M
0560: 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 ODE_NONBLOCKING)
0570: 20 7b 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 66 {...statePtr->f
0580: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
0590: 41 53 59 4e 43 3b 0a 09 7d 20 65 6c 73 65 20 7b ASYNC;..} else {
05a0: 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 ...statePtr->fla
05b0: 67 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f gs &= ~(TLS_TCL_
05c0: 41 53 59 4e 43 29 3b 0a 09 7d 0a 0a 09 72 65 74 ASYNC);..}...ret
05d0: 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a urn(0);.}../*. *
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 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c 6f ---. *. * TlsClo
0630: 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 seProc --. *. *.
0640: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 This procedure i
0650: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
0660: 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 generic IO leve
0670: 6c 20 74 6f 20 70 65 72 66 6f 72 6d 0a 20 2a 09 l to perform. *.
0680: 63 68 61 6e 6e 65 6c 2d 74 79 70 65 2d 73 70 65 channel-type-spe
0690: 63 69 66 69 63 20 63 6c 65 61 6e 75 70 20 77 68 cific cleanup wh
06a0: 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 en a SSL socket
06b0: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a based channel. *
06c0: 09 69 73 20 63 6c 6f 73 65 64 2e 0a 20 2a 0a 20 .is closed.. *.
06d0: 2a 09 4e 6f 74 65 3a 20 77 65 20 6c 65 61 76 65 *.Note: we leave
06e0: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
06f0: 73 6f 63 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 73 socket alone, is
0700: 20 74 68 69 73 20 72 69 67 68 74 3f 0a 20 2a 0a this right?. *.
0710: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 30 * Results:. *.0
0720: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 if successful,
0730: 74 68 65 20 76 61 6c 75 65 20 6f 66 20 54 63 6c the value of Tcl
0740: 5f 47 65 74 45 72 72 6e 6f 28 29 20 69 66 20 66 _GetErrno() if f
0750: 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 ailed.. *. * Sid
0760: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 6c e effects:. *.Cl
0770: 6f 73 65 73 20 74 68 65 20 73 6f 63 6b 65 74 20 oses the socket
0780: 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a of the channel..
0790: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
07a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07d0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
07e0: 74 69 63 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 tic int TlsClose
07f0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
0800: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 instanceData, Tc
0810: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0820: 29 20 7b 0a 09 53 74 61 74 65 20 2a 73 74 61 74 ) {..State *stat
0830: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
0840: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a instanceData;..
0850: 09 64 70 72 69 6e 74 66 28 22 54 6c 73 43 6c 6f .dprintf("TlsClo
0860: 73 65 50 72 6f 63 28 25 70 29 22 2c 20 28 76 6f seProc(%p)", (vo
0870: 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b id *) statePtr);
0880: 0a 0a 09 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 ...Tls_Clean(sta
0890: 74 65 50 74 72 29 3b 0a 09 54 63 6c 5f 45 76 65 tePtr);..Tcl_Eve
08a0: 6e 74 75 61 6c 6c 79 46 72 65 65 28 28 43 6c 69 ntuallyFree((Cli
08b0: 65 6e 74 44 61 74 61 29 73 74 61 74 65 50 74 72 entData)statePtr
08c0: 2c 20 54 6c 73 5f 46 72 65 65 29 3b 0a 09 72 65 , Tls_Free);..re
08d0: 74 75 72 6e 28 30 29 3b 0a 0a 09 2f 2a 20 49 6e turn(0);.../* In
08e0: 74 65 72 70 20 69 73 20 75 6e 75 73 65 64 2e 20 terp is unused.
08f0: 2a 2f 0a 09 69 6e 74 65 72 70 20 3d 20 69 6e 74 */..interp = int
0900: 65 72 70 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 erp;.}..static i
0910: 6e 74 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 32 nt TlsCloseProc2
0920: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
0930: 61 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e anceData, Tcl_In
0940: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
0950: 74 20 66 6c 61 67 73 29 20 7b 0a 20 20 20 20 69 t flags) {. i
0960: 66 20 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c f ((flags & (TCL
0970: 5f 43 4c 4f 53 45 5f 52 45 41 44 7c 54 43 4c 5f _CLOSE_READ|TCL_
0980: 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d CLOSE_WRITE)) ==
0990: 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 6c 0) {..return Tl
09a0: 73 43 6c 6f 73 65 50 72 6f 63 28 69 6e 73 74 61 sCloseProc(insta
09b0: 6e 63 65 44 61 74 61 2c 20 69 6e 74 65 72 70 29 nceData, interp)
09c0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
09d0: 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a rn EINVAL;.}../*
09e0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
0a20: 09 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e .Tls_WaitForConn
0a30: 65 63 74 20 2d 2d 0a 20 2a 0a 20 2a 09 53 69 64 ect --. *. *.Sid
0a40: 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 49 73 eeffects:. *..Is
0a50: 73 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74 20 sues SSL_accept
0a60: 6f 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 or SSL_connect.
0a70: 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 *. *.Result:. *.
0a80: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
0a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ac0: 2d 2d 2a 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f --*. */.int Tls_
0ad0: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 53 WaitForConnect(S
0ae0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
0af0: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
0b00: 72 2c 20 69 6e 74 20 68 61 6e 64 73 68 61 6b 65 r, int handshake
0b10: 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 FailureIsPermane
0b20: 6e 74 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 nt) {..unsigned
0b30: 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f long backingErro
0b40: 72 3b 0a 09 69 6e 74 20 65 72 72 2c 20 72 63 3b r;..int err, rc;
0b50: 0a 09 69 6e 74 20 62 69 6f 53 68 6f 75 6c 64 52 ..int bioShouldR
0b60: 65 74 72 79 3b 0a 0a 09 64 70 72 69 6e 74 66 28 etry;...dprintf(
0b70: 22 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 "WaitForConnect(
0b80: 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 %p)", (void *) s
0b90: 74 61 74 65 50 74 72 29 3b 0a 09 64 70 72 69 6e tatePtr);..dprin
0ba0: 74 46 6c 61 67 73 28 73 74 61 74 65 50 74 72 29 tFlags(statePtr)
0bb0: 3b 0a 0a 09 69 66 20 28 21 28 73 74 61 74 65 50 ;...if (!(stateP
0bc0: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
0bd0: 54 43 4c 5f 49 4e 49 54 29 29 20 7b 0a 09 09 64 TCL_INIT)) {...d
0be0: 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 printf("Tls_Wait
0bf0: 46 6f 72 43 6f 6e 6e 65 63 74 20 63 61 6c 6c 65 ForConnect calle
0c00: 64 20 6f 6e 20 61 6c 72 65 61 64 79 20 69 6e 69 d on already ini
0c10: 74 69 61 6c 69 7a 65 64 20 63 68 61 6e 6e 65 6c tialized channel
0c20: 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 77 69 -- returning wi
0c30: 74 68 20 69 6d 6d 65 64 69 61 74 65 20 73 75 63 th immediate suc
0c40: 63 65 73 73 22 29 3b 0a 09 09 2a 65 72 72 6f 72 cess");...*error
0c50: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 72 CodePtr = 0;...r
0c60: 65 74 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 69 eturn(0);..}...i
0c70: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
0c80: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 48 41 4e gs & TLS_TCL_HAN
0c90: 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 29 20 7b DSHAKE_FAILED) {
0ca0: 0a 09 09 2f 2a 0a 09 09 20 2a 20 44 69 66 66 65 .../*... * Diffe
0cb0: 72 65 6e 74 20 74 79 70 65 73 20 6f 66 20 6f 70 rent types of op
0cc0: 65 72 61 74 69 6f 6e 73 20 68 61 76 65 20 64 69 erations have di
0cd0: 66 66 65 72 65 6e 74 20 72 65 71 75 69 72 65 6d fferent requirem
0ce0: 65 6e 74 73 0a 09 09 20 2a 20 53 53 4c 20 62 65 ents... * SSL be
0cf0: 69 6e 67 20 65 73 74 61 62 6c 69 73 68 65 64 0a ing established.
0d00: 09 09 20 2a 2f 0a 09 09 69 66 20 28 68 61 6e 64 .. */...if (hand
0d10: 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 shakeFailureIsPe
0d20: 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 09 09 64 70 rmanent) {....dp
0d30: 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 rintf("Asked to
0d40: 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 20 68 wait for a TLS h
0d50: 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 68 61 andshake that ha
0d60: 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c 65 64 s already failed
0d70: 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 66 61 74 . Returning fat
0d80: 61 6c 20 65 72 72 6f 72 22 29 3b 0a 09 09 09 2a al error");....*
0d90: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
0da0: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 7d CONNABORTED;...}
0db0: 20 65 6c 73 65 20 7b 0a 09 09 09 64 70 72 69 6e else {....dprin
0dc0: 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 69 tf("Asked to wai
0dd0: 74 20 66 6f 72 20 61 20 54 4c 53 20 68 61 6e 64 t for a TLS hand
0de0: 73 68 61 6b 65 20 74 68 61 74 20 68 61 73 20 61 shake that has a
0df0: 6c 72 65 61 64 79 20 66 61 69 6c 65 64 2e 20 20 lready failed.
0e00: 52 65 74 75 72 6e 69 6e 67 20 73 6f 66 74 20 65 Returning soft e
0e10: 72 72 6f 72 22 29 3b 0a 09 09 09 2a 65 72 72 6f rror");....*erro
0e20: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
0e30: 52 45 53 45 54 3b 0a 09 09 7d 0a 09 09 72 65 74 RESET;...}...ret
0e40: 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 66 6f urn(-1);..}...fo
0e50: 72 20 28 3b 3b 29 20 7b 0a 09 09 2f 2a 20 4e 6f r (;;) {.../* No
0e60: 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 79 65 t initialized ye
0e70: 74 21 20 2a 2f 0a 09 09 69 66 20 28 73 74 61 74 t! */...if (stat
0e80: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
0e90: 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a S_TCL_SERVER) {.
0ea0: 09 09 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c ...dprintf("Call
0eb0: 69 6e 67 20 53 53 4c 5f 61 63 63 65 70 74 28 29 ing SSL_accept()
0ec0: 22 29 3b 0a 0a 09 09 09 65 72 72 20 3d 20 53 53 ");.....err = SS
0ed0: 4c 5f 61 63 63 65 70 74 28 73 74 61 74 65 50 74 L_accept(statePt
0ee0: 72 2d 3e 73 73 6c 29 3b 0a 09 09 7d 20 65 6c 73 r->ssl);...} els
0ef0: 65 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 e {....dprintf("
0f00: 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 63 6f 6e 6e Calling SSL_conn
0f10: 65 63 74 28 29 22 29 3b 0a 0a 09 09 09 65 72 72 ect()");.....err
0f20: 20 3d 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 28 73 = SSL_connect(s
0f30: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 tatePtr->ssl);..
0f40: 09 7d 0a 0a 09 09 69 66 20 28 65 72 72 20 3e 20 .}....if (err >
0f50: 30 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 0) {....dprintf(
0f60: 22 54 68 61 74 20 73 65 65 6d 73 20 74 6f 20 68 "That seems to h
0f70: 61 76 65 20 67 6f 6e 65 20 6f 6b 61 79 22 29 3b ave gone okay");
0f80: 0a 0a 09 09 09 65 72 72 20 3d 20 42 49 4f 5f 66 .....err = BIO_f
0f90: 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 lush(statePtr->b
0fa0: 69 6f 29 3b 0a 0a 09 09 09 69 66 20 28 65 72 72 io);.....if (err
0fb0: 20 3c 3d 20 30 29 20 7b 0a 09 09 09 09 64 70 72 <= 0) {.....dpr
0fc0: 69 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 20 74 intf("Flushing t
0fd0: 68 65 20 6c 6f 77 65 72 20 6c 61 79 65 72 73 20 he lower layers
0fe0: 66 61 69 6c 65 64 2c 20 74 68 69 73 20 77 69 6c failed, this wil
0ff0: 6c 20 70 72 6f 62 61 62 6c 79 20 74 65 72 6d 69 l probably termi
1000: 6e 61 74 65 20 74 68 69 73 20 73 65 73 73 69 6f nate this sessio
1010: 6e 22 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 n");....}...}...
1020: 09 72 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 .rc = SSL_get_er
1030: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ror(statePtr->ss
1040: 6c 2c 20 65 72 72 29 3b 0a 0a 09 09 64 70 72 69 l, err);....dpri
1050: 6e 74 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 ntf("Got error:
1060: 25 69 20 28 72 63 20 3d 20 25 69 29 22 2c 20 65 %i (rc = %i)", e
1070: 72 72 2c 20 72 63 29 3b 0a 0a 09 09 62 69 6f 53 rr, rc);....bioS
1080: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 30 3b 0a houldRetry = 0;.
1090: 09 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 ..if (err <= 0)
10a0: 7b 0a 09 09 09 69 66 20 28 72 63 20 3d 3d 20 53 {....if (rc == S
10b0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f SL_ERROR_WANT_CO
10c0: 4e 4e 45 43 54 20 7c 7c 20 72 63 20 3d 3d 20 53 NNECT || rc == S
10d0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 SL_ERROR_WANT_AC
10e0: 43 45 50 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 CEPT || rc == SS
10f0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 L_ERROR_WANT_REA
1100: 44 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45 D || rc == SSL_E
1110: 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 29 RROR_WANT_WRITE)
1120: 20 7b 0a 09 09 09 09 62 69 6f 53 68 6f 75 6c 64 {.....bioShould
1130: 52 65 74 72 79 20 3d 20 31 3b 0a 09 09 09 7d 20 Retry = 1;....}
1140: 65 6c 73 65 20 69 66 20 28 42 49 4f 5f 73 68 6f else if (BIO_sho
1150: 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 uld_retry(stateP
1160: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 09 09 tr->bio)) {.....
1170: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d bioShouldRetry =
1180: 20 31 3b 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 1;....} else if
1190: 20 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f (rc == SSL_ERRO
11a0: 52 5f 53 59 53 43 41 4c 4c 20 26 26 20 54 63 6c R_SYSCALL && Tcl
11b0: 5f 47 65 74 45 72 72 6e 6f 28 29 20 3d 3d 20 45 _GetErrno() == E
11c0: 41 47 41 49 4e 29 20 7b 0a 09 09 09 09 62 69 6f AGAIN) {.....bio
11d0: 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b ShouldRetry = 1;
11e0: 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b ....}...} else {
11f0: 0a 09 09 09 69 66 20 28 21 53 53 4c 5f 69 73 5f ....if (!SSL_is_
1200: 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 init_finished(st
1210: 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a atePtr->ssl)) {.
1220: 09 09 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 ....bioShouldRet
1230: 72 79 20 3d 20 31 3b 0a 09 09 09 7d 0a 09 09 7d ry = 1;....}...}
1240: 0a 0a 09 09 69 66 20 28 62 69 6f 53 68 6f 75 6c ....if (bioShoul
1250: 64 52 65 74 72 79 29 20 7b 0a 09 09 09 64 70 72 dRetry) {....dpr
1260: 69 6e 74 66 28 22 54 68 65 20 49 2f 4f 20 64 69 intf("The I/O di
1270: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 2d d not complete -
1280: 2d 20 62 75 74 20 77 65 20 73 68 6f 75 6c 64 20 - but we should
1290: 74 72 79 20 69 74 20 61 67 61 69 6e 22 29 3b 0a try it again");.
12a0: 0a 09 09 09 69 66 20 28 73 74 61 74 65 50 74 72 ....if (statePtr
12b0: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
12c0: 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 09 09 09 64 L_ASYNC) {.....d
12d0: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e printf("Returnin
12e0: 67 20 45 41 47 41 49 4e 20 73 6f 20 74 68 61 74 g EAGAIN so that
12f0: 20 69 74 20 63 61 6e 20 62 65 20 72 65 74 72 69 it can be retri
1300: 65 64 20 6c 61 74 65 72 22 29 3b 0a 0a 09 09 09 ed later");.....
1310: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
1320: 20 45 41 47 41 49 4e 3b 0a 0a 09 09 09 09 72 65 EAGAIN;......re
1330: 74 75 72 6e 28 2d 31 29 3b 0a 09 09 09 7d 20 65 turn(-1);....} e
1340: 6c 73 65 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 lse {.....dprint
1350: 66 28 22 44 6f 69 6e 67 20 73 6f 20 6e 6f 77 22 f("Doing so now"
1360: 29 3b 0a 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 );......continue
1370: 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 64 70 ;....}...}....dp
1380: 72 69 6e 74 66 28 22 57 65 20 68 61 76 65 20 65 rintf("We have e
1390: 69 74 68 65 72 20 63 6f 6d 70 6c 65 74 65 6c 79 ither completely
13a0: 20 65 73 74 61 62 6c 69 73 68 65 64 20 74 68 65 established the
13b0: 20 73 65 73 73 69 6f 6e 20 6f 72 20 63 6f 6d 70 session or comp
13c0: 6c 65 74 65 6c 79 20 66 61 69 6c 65 64 20 69 74 letely failed it
13d0: 20 2d 2d 20 74 68 65 72 65 20 69 73 20 6e 6f 20 -- there is no
13e0: 6d 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 76 65 more need to eve
13f0: 72 20 72 65 74 72 79 20 69 74 20 74 68 6f 75 67 r retry it thoug
1400: 68 22 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 7d h");...break;..}
1410: 0a 0a 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ....*errorCodePt
1420: 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 0a 09 73 77 r = EINVAL;...sw
1430: 69 74 63 68 20 28 72 63 29 20 7b 0a 09 09 63 61 itch (rc) {...ca
1440: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e se SSL_ERROR_NON
1450: 45 3a 0a 09 09 09 2f 2a 20 54 68 65 20 63 6f 6e E:..../* The con
1460: 6e 65 63 74 69 6f 6e 20 69 73 20 75 70 2c 20 77 nection is up, w
1470: 65 20 61 72 65 20 64 6f 6e 65 20 68 65 72 65 20 e are done here
1480: 2a 2f 0a 09 09 09 64 70 72 69 6e 74 66 28 22 54 */....dprintf("T
1490: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 he connection is
14a0: 20 75 70 22 29 3b 0a 09 09 09 62 72 65 61 6b 3b up");....break;
14b0: 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
14c0: 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 R_ZERO_RETURN:..
14d0: 09 09 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 ..dprintf("SSL_E
14e0: 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e RROR_ZERO_RETURN
14f0: 3a 20 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e : Connect return
1500: 65 64 20 61 6e 20 69 6e 76 61 6c 69 64 20 76 61 ed an invalid va
1510: 6c 75 65 2e 2e 2e 22 29 0a 09 09 09 72 65 74 75 lue...")....retu
1520: 72 6e 28 2d 31 29 3b 0a 09 09 63 61 73 65 20 53 rn(-1);...case S
1530: 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c SL_ERROR_SYSCALL
1540: 3a 0a 09 09 09 62 61 63 6b 69 6e 67 45 72 72 6f :....backingErro
1550: 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f r = ERR_get_erro
1560: 72 28 29 3b 0a 0a 09 09 09 69 66 20 28 62 61 63 r();.....if (bac
1570: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
1580: 26 20 65 72 72 20 3d 3d 20 30 29 20 7b 0a 09 09 & err == 0) {...
1590: 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 20 72 ..dprintf("EOF r
15a0: 65 61 63 68 65 64 22 29 0a 09 09 09 09 2a 65 72 eached").....*er
15b0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
15c0: 4e 4e 52 45 53 45 54 3b 0a 09 09 09 7d 20 65 6c NNRESET;....} el
15d0: 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 se if (backingEr
15e0: 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 72 20 ror == 0 && err
15f0: 3d 3d 20 2d 31 29 20 7b 0a 09 09 09 09 64 70 72 == -1) {.....dpr
1600: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
1610: 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 occurred (errno
1620: 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e = %lu)", (unsign
1630: 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 ed long) Tcl_Get
1640: 45 72 72 6e 6f 28 29 29 3b 0a 09 09 09 09 2a 65 Errno());.....*e
1650: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 rrorCodePtr = Tc
1660: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 l_GetErrno();...
1670: 09 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 ..if (*errorCode
1680: 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 Ptr == ECONNRESE
1690: 54 29 20 7b 0a 09 09 09 09 09 2a 65 72 72 6f 72 T) {......*error
16a0: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 CodePtr = ECONNA
16b0: 42 4f 52 54 45 44 3b 0a 09 09 09 09 7d 0a 09 09 BORTED;.....}...
16c0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 64 70 .} else {.....dp
16d0: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
16e0: 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 occurred (backi
16f0: 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c ngError = %lu)",
1700: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a backingError);.
1710: 09 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ....*errorCodePt
1720: 72 20 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 r = backingError
1730: 3b 0a 09 09 09 09 69 66 20 28 2a 65 72 72 6f 72 ;.....if (*error
1740: 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e CodePtr == ECONN
1750: 52 45 53 45 54 29 20 7b 0a 09 09 09 09 09 2a 65 RESET) {......*e
1760: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 rrorCodePtr = EC
1770: 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 09 ONNABORTED;.....
1780: 7d 0a 09 09 09 7d 0a 0a 09 09 09 73 74 61 74 65 }....}.....state
1790: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c Ptr->flags |= TL
17a0: 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f S_TCL_HANDSHAKE_
17b0: 46 41 49 4c 45 44 3b 0a 0a 09 09 09 72 65 74 75 FAILED;.....retu
17c0: 72 6e 28 2d 31 29 3b 0a 09 09 63 61 73 65 20 53 rn(-1);...case S
17d0: 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 09 SL_ERROR_SSL:...
17e0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 70 65 .dprintf("Got pe
17f0: 72 6d 61 6e 65 6e 74 20 66 61 74 61 6c 20 53 53 rmanent fatal SS
1800: 4c 20 65 72 72 6f 72 2c 20 61 62 6f 72 74 69 6e L error, abortin
1810: 67 20 69 6d 6d 65 64 69 61 74 65 6c 79 22 29 3b g immediately");
1820: 0a 09 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ....Tls_Error(st
1830: 61 74 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 atePtr, (char *)
1840: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
1850: 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 74 5f _string(ERR_get_
1860: 65 72 72 6f 72 28 29 29 29 3b 0a 09 09 09 73 74 error()));....st
1870: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
1880: 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 TLS_TCL_HANDSHA
1890: 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 09 09 2a 65 KE_FAILED;....*e
18a0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 rrorCodePtr = EC
18b0: 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 72 ONNABORTED;....r
18c0: 65 74 75 72 6e 28 2d 31 29 3b 0a 09 09 63 61 73 eturn(-1);...cas
18d0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 e SSL_ERROR_WANT
18e0: 5f 43 4f 4e 4e 45 43 54 3a 0a 09 09 63 61 73 65 _CONNECT:...case
18f0: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
1900: 41 43 43 45 50 54 3a 0a 09 09 63 61 73 65 20 53 ACCEPT:...case S
1910: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 SL_ERROR_WANT_X5
1920: 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 09 64 65 66 09_LOOKUP:...def
1930: 61 75 6c 74 3a 0a 09 09 09 64 70 72 69 6e 74 66 ault:....dprintf
1940: 28 22 57 65 20 67 6f 74 20 61 20 63 6f 6e 66 75 ("We got a confu
1950: 73 69 6e 67 20 72 65 70 6c 79 3a 20 25 69 22 2c sing reply: %i",
1960: 20 72 63 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 rc);....*errorC
1970: 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 odePtr = Tcl_Get
1980: 45 72 72 6e 6f 28 29 3b 0a 09 09 09 64 70 72 69 Errno();....dpri
1990: 6e 74 66 28 22 45 52 52 28 25 64 2c 20 25 64 29 ntf("ERR(%d, %d)
19a0: 20 22 2c 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f ", rc, *errorCo
19b0: 64 65 50 74 72 29 3b 0a 09 09 09 72 65 74 75 72 dePtr);....retur
19c0: 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 23 69 66 20 30 n(-1);..}..#if 0
19d0: 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e ..if (statePtr->
19e0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
19f0: 53 45 52 56 45 52 29 20 7b 0a 09 09 64 70 72 69 SERVER) {...dpri
1a00: 6e 74 66 28 22 54 68 69 73 20 69 73 20 61 6e 20 ntf("This is an
1a10: 54 4c 53 20 73 65 72 76 65 72 2c 20 63 68 65 63 TLS server, chec
1a20: 6b 69 6e 67 20 74 68 65 20 63 65 72 74 69 66 69 king the certifi
1a30: 63 61 74 65 20 66 6f 72 20 74 68 65 20 70 65 65 cate for the pee
1a40: 72 22 29 3b 0a 0a 09 09 65 72 72 20 3d 20 53 53 r");....err = SS
1a50: 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 L_get_verify_res
1a60: 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ult(statePtr->ss
1a70: 6c 29 3b 0a 09 09 69 66 20 28 65 72 72 20 21 3d l);...if (err !=
1a80: 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 X509_V_OK) {...
1a90: 09 64 70 72 69 6e 74 66 28 22 49 6e 76 61 6c 69 .dprintf("Invali
1aa0: 64 20 63 65 72 74 69 66 69 63 61 74 65 2c 20 72 d certificate, r
1ab0: 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c eturning in fail
1ac0: 75 72 65 22 29 3b 0a 0a 09 09 09 54 6c 73 5f 45 ure");.....Tls_E
1ad0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 rror(statePtr, (
1ae0: 63 68 61 72 20 2a 29 58 35 30 39 5f 76 65 72 69 char *)X509_veri
1af0: 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 fy_cert_error_st
1b00: 72 69 6e 67 28 65 72 72 29 29 3b 0a 09 09 09 73 ring(err));....s
1b10: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
1b20: 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 = TLS_TCL_HANDSH
1b30: 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 09 09 2a AKE_FAILED;....*
1b40: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
1b50: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 CONNABORTED;....
1b60: 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 09 7d 0a return(-1);...}.
1b70: 09 7d 0a 23 65 6e 64 69 66 0a 0a 09 64 70 72 69 .}.#endif...dpri
1b80: 6e 74 66 28 22 52 65 6d 6f 76 69 6e 67 20 74 68 ntf("Removing th
1b90: 65 20 5c 22 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 e \"TLS_TCL_INIT
1ba0: 5c 22 20 66 6c 61 67 20 73 69 6e 63 65 20 77 65 \" flag since we
1bb0: 20 68 61 76 65 20 63 6f 6d 70 6c 65 74 65 64 20 have completed
1bc0: 74 68 65 20 68 61 6e 64 73 68 61 6b 65 22 29 3b the handshake");
1bd0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
1be0: 73 20 26 3d 20 7e 54 4c 53 5f 54 43 4c 5f 49 4e s &= ~TLS_TCL_IN
1bf0: 49 54 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 IT;...dprintf("R
1c00: 65 74 75 72 6e 69 6e 67 20 69 6e 20 73 75 63 63 eturning in succ
1c10: 65 73 73 22 29 3b 0a 09 2a 65 72 72 6f 72 43 6f ess");..*errorCo
1c20: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 09 72 65 74 dePtr = 0;...ret
1c30: 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a urn(0);.}../*. *
1c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c80: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 49 6e 70 ---. *. * TlsInp
1c90: 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 utProc --. *. *.
1ca0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 This procedure i
1cb0: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
1cc0: 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 generic IO leve
1cd0: 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 72 65 l. * to re
1ce0: 61 64 20 69 6e 70 75 74 20 66 72 6f 6d 20 61 20 ad input from a
1cf0: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
1d00: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
1d10: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 Results:. *.The
1d20: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 number of bytes
1d30: 72 65 61 64 20 69 73 20 72 65 74 75 72 6e 65 64 read is returned
1d40: 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e or -1 on error.
1d50: 20 41 6e 20 6f 75 74 70 75 74 0a 20 2a 09 61 72 An output. *.ar
1d60: 67 75 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 73 20 gument contains
1d70: 74 68 65 20 50 4f 53 49 58 20 65 72 72 6f 72 20 the POSIX error
1d80: 63 6f 64 65 20 6f 6e 20 65 72 72 6f 72 2c 20 6f code on error, o
1d90: 72 20 7a 65 72 6f 20 69 66 20 6e 6f 0a 20 2a 09 r zero if no. *.
1da0: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2e 0a error occurred..
1db0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1dc0: 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 69 6e 70 ts:. *.Reads inp
1dd0: 75 74 20 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 ut from the inpu
1de0: 74 20 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 t device of the
1df0: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d channel.. *. *--
1e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e40: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
1e50: 74 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 28 43 t TlsInputProc(C
1e60: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
1e70: 63 65 44 61 74 61 2c 20 63 68 61 72 20 2a 62 75 ceData, char *bu
1e80: 66 2c 20 69 6e 74 20 62 75 66 53 69 7a 65 2c 20 f, int bufSize,
1e90: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
1ea0: 72 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 6c r) {..unsigned l
1eb0: 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 ong backingError
1ec0: 3b 0a 09 53 74 61 74 65 20 2a 73 74 61 74 65 50 ;..State *stateP
1ed0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
1ee0: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 09 69 6e nstanceData;..in
1ef0: 74 20 62 79 74 65 73 52 65 61 64 3b 0a 09 69 6e t bytesRead;..in
1f00: 74 20 74 6c 73 43 6f 6e 6e 65 63 74 3b 0a 09 69 t tlsConnect;..i
1f10: 6e 74 20 65 72 72 3b 0a 0a 09 2a 65 72 72 6f 72 nt err;...*error
1f20: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 09 64 CodePtr = 0;...d
1f30: 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 printf("BIO_read
1f40: 28 25 64 29 22 2c 20 62 75 66 53 69 7a 65 29 3b (%d)", bufSize);
1f50: 0a 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d ...if (statePtr-
1f60: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
1f70: 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 09 2f _CALLBACK) {.../
1f80: 2a 20 64 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 * don't process
1f90: 61 6e 79 20 62 79 74 65 73 20 77 68 69 6c 65 20 any bytes while
1fa0: 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 verify callback
1fb0: 69 73 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 09 09 is running */...
1fc0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 dprintf("Callbac
1fd0: 6b 20 69 73 20 72 75 6e 6e 69 6e 67 2c 20 72 65 k is running, re
1fe0: 61 64 69 6e 67 20 30 20 62 79 74 65 73 22 29 3b ading 0 bytes");
1ff0: 0a 09 09 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d ...return(0);..}
2000: 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c ...dprintf("Call
2010: 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 ing Tls_WaitForC
2020: 6f 6e 6e 65 63 74 22 29 3b 0a 09 74 6c 73 43 6f onnect");..tlsCo
2030: 6e 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 nnect = Tls_Wait
2040: 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 ForConnect(state
2050: 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 Ptr, errorCodePt
2060: 72 2c 20 30 29 3b 0a 09 69 66 20 28 74 6c 73 43 r, 0);..if (tlsC
2070: 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b 0a 09 09 onnect < 0) {...
2080: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 dprintf("Got an
2090: 65 72 72 6f 72 20 77 61 69 74 69 6e 67 20 74 6f error waiting to
20a0: 20 63 6f 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e connect (tlsCon
20b0: 6e 65 63 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f nect = %i, *erro
20c0: 72 43 6f 64 65 50 74 72 20 3d 20 25 69 29 22 2c rCodePtr = %i)",
20d0: 20 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 tlsConnect, *er
20e0: 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 0a 09 09 rorCodePtr);....
20f0: 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a bytesRead = -1;.
2100: 09 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 ..if (*errorCode
2110: 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 Ptr == ECONNRESE
2120: 54 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 T) {....dprintf(
2130: 22 47 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 "Got connection
2140: 72 65 73 65 74 22 29 3b 0a 09 09 09 2f 2a 20 53 reset");..../* S
2150: 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 09 09 2a 65 oft EOF */....*e
2160: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
2170: 0a 09 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ....bytesRead =
2180: 30 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 0;...}....return
2190: 28 62 79 74 65 73 52 65 61 64 29 3b 0a 09 7d 0a (bytesRead);..}.
21a0: 0a 09 2f 2a 0a 09 20 2a 20 57 65 20 6e 65 65 64 ../*.. * We need
21b0: 20 74 6f 20 63 6c 65 61 72 20 74 68 65 20 53 53 to clear the SS
21c0: 4c 20 65 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f L error stack no
21d0: 77 20 62 65 63 61 75 73 65 20 77 65 20 73 6f 6d w because we som
21e0: 65 74 69 6d 65 73 20 72 65 61 63 68 0a 09 20 2a etimes reach.. *
21f0: 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 this function w
2200: 69 74 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 ith leftover err
2210: 6f 72 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b ors in the stack
2220: 2e 20 20 49 66 20 42 49 4f 5f 72 65 61 64 0a 09 . If BIO_read..
2230: 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e * returns -1 an
2240: 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e d intends EAGAIN
2250: 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 , there is a lef
2260: 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20 tover error, it
2270: 77 69 6c 6c 20 62 65 0a 09 20 2a 20 6d 69 73 63 will be.. * misc
2280: 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 65 onstrued as an e
2290: 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e rror, not EAGAIN
22a0: 2e 0a 09 20 2a 0a 09 20 2a 20 41 6c 74 65 72 6e ... *.. * Altern
22b0: 61 74 69 76 65 6c 79 2c 20 77 65 20 6d 61 79 20 atively, we may
22c0: 77 61 6e 74 20 74 6f 20 68 61 6e 64 6c 65 20 74 want to handle t
22d0: 68 65 20 3c 30 20 72 65 74 75 72 6e 20 63 6f 64 he <0 return cod
22e0: 65 73 20 66 72 6f 6d 0a 09 20 2a 20 42 49 4f 5f es from.. * BIO_
22f0: 72 65 61 64 20 73 70 65 63 69 61 6c 6c 79 20 28 read specially (
2300: 61 73 20 61 64 76 69 73 65 64 20 69 6e 20 74 68 as advised in th
2310: 65 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54 4c e RSA docs). TL
2320: 53 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c 20 S's lower level
2330: 42 49 4f 0a 09 20 2a 20 66 75 6e 63 74 69 6f 6e BIO.. * function
2340: 73 20 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 s play with the
2350: 72 65 74 72 79 20 66 6c 61 67 73 20 74 68 6f 75 retry flags thou
2360: 67 68 2c 20 61 6e 64 20 74 68 69 73 20 73 65 65 gh, and this see
2370: 6d 73 20 74 6f 20 77 6f 72 6b 0a 09 20 2a 20 63 ms to work.. * c
2380: 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c orrectly. Simil
2390: 61 72 20 66 69 78 20 69 6e 20 54 6c 73 4f 75 74 ar fix in TlsOut
23a0: 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 73 putProc. - hobbs
23b0: 0a 09 20 2a 2f 0a 09 45 52 52 5f 63 6c 65 61 72 .. */..ERR_clear
23c0: 5f 65 72 72 6f 72 28 29 3b 0a 09 62 79 74 65 73 _error();..bytes
23d0: 52 65 61 64 20 3d 20 42 49 4f 5f 72 65 61 64 28 Read = BIO_read(
23e0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 statePtr->bio, b
23f0: 75 66 2c 20 62 75 66 53 69 7a 65 29 3b 0a 09 64 uf, bufSize);..d
2400: 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 printf("BIO_read
2410: 20 2d 3e 20 25 64 22 2c 20 62 79 74 65 73 52 65 -> %d", bytesRe
2420: 61 64 29 3b 0a 0a 09 65 72 72 20 3d 20 53 53 4c ad);...err = SSL
2430: 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 _get_error(state
2440: 50 74 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 Ptr->ssl, bytesR
2450: 65 61 64 29 3b 0a 0a 23 69 66 20 30 0a 09 69 66 ead);..#if 0..if
2460: 20 28 62 79 74 65 73 52 65 61 64 20 3c 3d 20 30 (bytesRead <= 0
2470: 29 20 7b 0a 09 09 69 66 20 28 42 49 4f 5f 73 68 ) {...if (BIO_sh
2480: 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 ould_retry(state
2490: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 09 Ptr->bio)) {....
24a0: 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 66 61 69 dprintf("I/O fai
24b0: 6c 65 64 2c 20 77 69 6c 6c 20 72 65 74 72 79 20 led, will retry
24c0: 62 61 73 65 64 20 6f 6e 20 45 41 47 41 49 4e 22 based on EAGAIN"
24d0: 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 );....*errorCode
24e0: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 Ptr = EAGAIN;...
24f0: 7d 0a 09 7d 0a 23 65 6e 64 69 66 0a 0a 09 73 77 }..}.#endif...sw
2500: 69 74 63 68 20 28 65 72 72 29 20 7b 0a 09 09 63 itch (err) {...c
2510: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f ase SSL_ERROR_NO
2520: 4e 45 3a 0a 09 09 09 64 70 72 69 6e 74 42 75 66 NE:....dprintBuf
2530: 66 65 72 28 62 75 66 2c 20 62 79 74 65 73 52 65 fer(buf, bytesRe
2540: 61 64 29 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 ad);....break;..
2550: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
2560: 53 53 4c 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 SSL:....dprintf(
2570: 22 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e "SSL negotiation
2580: 20 65 72 72 6f 72 2c 20 69 6e 64 69 63 61 74 69 error, indicati
2590: 6e 67 20 74 68 61 74 20 74 68 65 20 63 6f 6e 6e ng that the conn
25a0: 65 63 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 ection has been
25b0: 61 62 6f 72 74 65 64 22 29 3b 0a 0a 09 09 09 54 aborted");.....T
25c0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
25d0: 72 2c 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 45 52 r, TCLTLS_SSL_ER
25e0: 52 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ROR(statePtr->ss
25f0: 6c 2c 20 62 79 74 65 73 52 65 61 64 29 29 3b 0a l, bytesRead));.
2600: 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
2610: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b = ECONNABORTED;
2620: 0a 09 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ....bytesRead =
2630: 2d 31 3b 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 -1;.....break;..
2640: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
2650: 53 59 53 43 41 4c 4c 3a 0a 09 09 09 62 61 63 6b SYSCALL:....back
2660: 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 ingError = ERR_g
2670: 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 09 09 et_error();.....
2680: 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 if (backingError
2690: 20 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 == 0 && bytesRe
26a0: 61 64 20 3d 3d 20 30 29 20 7b 0a 09 09 09 09 64 ad == 0) {.....d
26b0: 70 72 69 6e 74 66 28 22 45 4f 46 20 72 65 61 63 printf("EOF reac
26c0: 68 65 64 22 29 0a 09 09 09 09 2a 65 72 72 6f 72 hed").....*error
26d0: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 09 CodePtr = 0;....
26e0: 09 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a .bytesRead = 0;.
26f0: 09 09 09 7d 20 65 6c 73 65 20 69 66 20 28 62 61 ...} else if (ba
2700: 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 ckingError == 0
2710: 26 26 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 && bytesRead ==
2720: 2d 31 29 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 -1) {.....dprint
2730: 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 f("I/O error occ
2740: 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 urred (errno = %
2750: 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 lu)", (unsigned
2760: 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 72 long) Tcl_GetErr
2770: 6e 6f 28 29 29 3b 0a 09 09 09 09 2a 65 72 72 6f no());.....*erro
2780: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
2790: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 09 09 62 etErrno();.....b
27a0: 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 ytesRead = -1;..
27b0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 64 ..} else {.....d
27c0: 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f printf("I/O erro
27d0: 72 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b r occurred (back
27e0: 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 ingError = %lu)"
27f0: 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b , backingError);
2800: 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 .....*errorCodeP
2810: 74 72 20 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f tr = backingErro
2820: 72 3b 0a 09 09 09 09 62 79 74 65 73 52 65 61 64 r;.....bytesRead
2830: 20 3d 20 2d 31 3b 0a 09 09 09 7d 0a 0a 09 09 09 = -1;....}.....
2840: 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 break;...case SS
2850: 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 L_ERROR_ZERO_RET
2860: 55 52 4e 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 URN:....dprintf(
2870: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 5a "Got SSL_ERROR_Z
2880: 45 52 4f 5f 52 45 54 55 52 4e 2c 20 74 68 69 73 ERO_RETURN, this
2890: 20 6d 65 61 6e 73 20 61 6e 20 45 4f 46 20 68 61 means an EOF ha
28a0: 73 20 62 65 65 6e 20 72 65 61 63 68 65 64 22 29 s been reached")
28b0: 3b 0a 09 09 09 62 79 74 65 73 52 65 61 64 20 3d ;....bytesRead =
28c0: 20 30 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 0;....*errorCod
28d0: 65 50 74 72 20 3d 20 30 3b 0a 09 09 09 62 72 65 ePtr = 0;....bre
28e0: 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
28f0: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a RROR_WANT_READ:.
2900: 09 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
2910: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 SSL_ERROR_WANT_R
2920: 45 41 44 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 EAD, mapping thi
2930: 73 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 s to EAGAIN");..
2940: 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 ..bytesRead = -1
2950: 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 ;....*errorCodeP
2960: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 09 tr = EAGAIN;....
2970: 62 72 65 61 6b 3b 0a 09 09 64 65 66 61 75 6c 74 break;...default
2980: 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 55 6e :....dprintf("Un
2990: 6b 6e 6f 77 6e 20 65 72 72 6f 72 20 28 65 72 72 known error (err
29a0: 20 3d 20 25 69 29 2c 20 6d 61 70 70 69 6e 67 20 = %i), mapping
29b0: 74 6f 20 45 4f 46 22 2c 20 65 72 72 29 3b 0a 09 to EOF", err);..
29c0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
29d0: 3d 20 30 3b 0a 09 09 09 62 79 74 65 73 52 65 61 = 0;....bytesRea
29e0: 64 20 3d 20 30 3b 0a 09 09 09 62 72 65 61 6b 3b d = 0;....break;
29f0: 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 49 ..}...dprintf("I
2a00: 6e 70 75 74 28 25 64 29 20 2d 3e 20 25 64 20 5b nput(%d) -> %d [
2a10: 25 64 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20 62 %d]", bufSize, b
2a20: 79 74 65 73 52 65 61 64 2c 20 2a 65 72 72 6f 72 ytesRead, *error
2a30: 43 6f 64 65 50 74 72 29 3b 0a 09 72 65 74 75 72 CodePtr);..retur
2a40: 6e 28 62 79 74 65 73 52 65 61 64 29 3b 0a 7d 0a n(bytesRead);.}.
2a50: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
2a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
2aa0: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 2d 2d TlsOutputProc --
2ab0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 . *. *.This proc
2ac0: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 edure is invoked
2ad0: 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 by the generic
2ae0: 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 IO level. *
2af0: 20 20 74 6f 20 77 72 69 74 65 20 6f 75 74 70 75 to write outpu
2b00: 74 20 74 6f 20 61 20 53 53 4c 20 73 6f 63 6b 65 t to a SSL socke
2b10: 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e t based channel.
2b20: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
2b30: 20 2a 09 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 *.The number of
2b40: 20 62 79 74 65 73 20 77 72 69 74 74 65 6e 20 69 bytes written i
2b50: 73 20 72 65 74 75 72 6e 65 64 2e 20 41 6e 20 6f s returned. An o
2b60: 75 74 70 75 74 20 61 72 67 75 6d 65 6e 74 20 69 utput argument i
2b70: 73 0a 20 2a 09 73 65 74 20 74 6f 20 61 20 50 4f s. *.set to a PO
2b80: 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 SIX error code i
2b90: 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 f an error occur
2ba0: 72 65 64 2c 20 6f 72 20 7a 65 72 6f 2e 0a 20 2a red, or zero.. *
2bb0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
2bc0: 3a 0a 20 2a 09 57 72 69 74 65 73 20 6f 75 74 70 :. *.Writes outp
2bd0: 75 74 20 6f 6e 20 74 68 65 20 6f 75 74 70 75 74 ut on the output
2be0: 20 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 device of the c
2bf0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d hannel.. *. *---
2c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c40: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 . */..static int
2c50: 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 28 43 TlsOutputProc(C
2c60: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
2c70: 63 65 44 61 74 61 2c 20 63 6f 6e 73 74 20 63 68 ceData, const ch
2c80: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 57 ar *buf, int toW
2c90: 72 69 74 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 rite, int *error
2ca0: 43 6f 64 65 50 74 72 29 20 7b 0a 09 75 6e 73 69 CodePtr) {..unsi
2cb0: 67 6e 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e gned long backin
2cc0: 67 45 72 72 6f 72 3b 0a 09 53 74 61 74 65 20 2a gError;..State *
2cd0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
2ce0: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
2cf0: 61 3b 0a 09 69 6e 74 20 77 72 69 74 74 65 6e 2c a;..int written,
2d00: 20 65 72 72 3b 0a 09 69 6e 74 20 74 6c 73 43 6f err;..int tlsCo
2d10: 6e 6e 65 63 74 3b 0a 0a 09 2a 65 72 72 6f 72 43 nnect;...*errorC
2d20: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 09 64 70 odePtr = 0;...dp
2d30: 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 69 74 65 rintf("BIO_write
2d40: 28 25 70 2c 20 25 64 29 22 2c 20 28 76 6f 69 64 (%p, %d)", (void
2d50: 20 2a 29 20 73 74 61 74 65 50 74 72 2c 20 74 6f *) statePtr, to
2d60: 57 72 69 74 65 29 3b 0a 09 64 70 72 69 6e 74 42 Write);..dprintB
2d70: 75 66 66 65 72 28 62 75 66 2c 20 74 6f 57 72 69 uffer(buf, toWri
2d80: 74 65 29 3b 0a 0a 09 69 66 20 28 73 74 61 74 65 te);...if (state
2d90: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
2da0: 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b _TCL_CALLBACK) {
2db0: 0a 09 09 64 70 72 69 6e 74 66 28 22 44 6f 6e 27 ...dprintf("Don'
2dc0: 74 20 70 72 6f 63 65 73 73 20 6f 75 74 70 75 74 t process output
2dd0: 20 77 68 69 6c 65 20 63 61 6c 6c 62 61 63 6b 73 while callbacks
2de0: 20 61 72 65 20 72 75 6e 6e 69 6e 67 22 29 0a 09 are running")..
2df0: 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 .written = -1;..
2e00: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
2e10: 20 45 41 47 41 49 4e 3b 0a 09 09 72 65 74 75 72 EAGAIN;...retur
2e20: 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 64 70 72 69 n(-1);..}...dpri
2e30: 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 ntf("Calling Tls
2e40: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 _WaitForConnect"
2e50: 29 3b 0a 09 74 6c 73 43 6f 6e 6e 65 63 74 20 3d );..tlsConnect =
2e60: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
2e70: 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 72 ect(statePtr, er
2e80: 72 6f 72 43 6f 64 65 50 74 72 2c 20 31 29 3b 0a rorCodePtr, 1);.
2e90: 09 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 .if (tlsConnect
2ea0: 3c 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 < 0) {...dprintf
2eb0: 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 ("Got an error w
2ec0: 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 aiting to connec
2ed0: 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 t (tlsConnect =
2ee0: 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 %i, *errorCodePt
2ef0: 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e r = %i)", tlsCon
2f00: 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 65 nect, *errorCode
2f10: 50 74 72 29 3b 0a 0a 09 09 77 72 69 74 74 65 6e Ptr);....written
2f20: 20 3d 20 2d 31 3b 0a 09 09 69 66 20 28 2a 65 72 = -1;...if (*er
2f30: 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 rorCodePtr == EC
2f40: 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 09 64 ONNRESET) {....d
2f50: 70 72 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e 6e printf("Got conn
2f60: 65 63 74 69 6f 6e 20 72 65 73 65 74 22 29 3b 0a ection reset");.
2f70: 09 09 09 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a .../* Soft EOF *
2f80: 2f 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 /....*errorCodeP
2f90: 74 72 20 3d 20 30 3b 0a 09 09 09 77 72 69 74 74 tr = 0;....writt
2fa0: 65 6e 20 3d 20 30 3b 0a 09 09 7d 0a 0a 09 09 72 en = 0;...}....r
2fb0: 65 74 75 72 6e 28 77 72 69 74 74 65 6e 29 3b 0a eturn(written);.
2fc0: 09 7d 0a 0a 09 69 66 20 28 74 6f 57 72 69 74 65 .}...if (toWrite
2fd0: 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e == 0) {...dprin
2fe0: 74 66 28 22 7a 65 72 6f 2d 77 72 69 74 65 22 29 tf("zero-write")
2ff0: 3b 0a 09 09 65 72 72 20 3d 20 42 49 4f 5f 66 6c ;...err = BIO_fl
3000: 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ush(statePtr->bi
3010: 6f 29 3b 0a 0a 09 09 69 66 20 28 65 72 72 20 3c o);....if (err <
3020: 3d 20 30 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 = 0) {....dprint
3030: 66 28 22 46 6c 75 73 68 69 6e 67 20 66 61 69 6c f("Flushing fail
3040: 65 64 22 29 3b 0a 0a 09 09 09 2a 65 72 72 6f 72 ed");.....*error
3050: 43 6f 64 65 50 74 72 20 3d 20 45 49 4f 3b 0a 09 CodePtr = EIO;..
3060: 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 ..written = 0;..
3070: 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 09 ..return(-1);...
3080: 7d 0a 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 }....written = 0
3090: 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ;...*errorCodePt
30a0: 72 20 3d 20 30 3b 0a 09 09 72 65 74 75 72 6e 28 r = 0;...return(
30b0: 30 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 0);..}.../*.. *
30c0: 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 We need to clear
30d0: 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 73 the SSL error s
30e0: 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 tack now because
30f0: 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 we sometimes re
3100: 61 63 68 0a 09 20 2a 20 74 68 69 73 20 66 75 6e ach.. * this fun
3110: 63 74 69 6f 6e 20 77 69 74 68 20 6c 65 66 74 6f ction with lefto
3120: 76 65 72 20 65 72 72 6f 72 73 20 69 6e 20 74 68 ver errors in th
3130: 65 20 73 74 61 63 6b 2e 20 20 49 66 20 42 49 4f e stack. If BIO
3140: 5f 77 72 69 74 65 0a 09 20 2a 20 72 65 74 75 72 _write.. * retur
3150: 6e 73 20 2d 31 20 61 6e 64 20 69 6e 74 65 6e 64 ns -1 and intend
3160: 73 20 45 41 47 41 49 4e 2c 20 74 68 65 72 65 20 s EAGAIN, there
3170: 69 73 20 61 20 6c 65 66 74 6f 76 65 72 20 65 72 is a leftover er
3180: 72 6f 72 2c 20 69 74 20 77 69 6c 6c 20 62 65 0a ror, it will be.
3190: 09 20 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 . * misconstrued
31a0: 20 61 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f as an error, no
31b0: 74 20 45 41 47 41 49 4e 2e 0a 09 20 2a 0a 09 20 t EAGAIN... *..
31c0: 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c * Alternatively,
31d0: 20 77 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 we may want to
31e0: 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 handle the <0 re
31f0: 74 75 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a turn codes from.
3200: 09 20 2a 20 42 49 4f 5f 77 72 69 74 65 20 73 70 . * BIO_write sp
3210: 65 63 69 61 6c 6c 79 20 28 61 73 20 61 64 76 69 ecially (as advi
3220: 73 65 64 20 69 6e 20 74 68 65 20 52 53 41 20 64 sed in the RSA d
3230: 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 6c 6f 77 ocs). TLS's low
3240: 65 72 20 6c 65 76 65 6c 0a 09 20 2a 20 42 49 4f er level.. * BIO
3250: 20 66 75 6e 63 74 69 6f 6e 73 20 70 6c 61 79 20 functions play
3260: 77 69 74 68 20 74 68 65 20 72 65 74 72 79 20 66 with the retry f
3270: 6c 61 67 73 20 74 68 6f 75 67 68 2c 20 61 6e 64 lags though, and
3280: 20 74 68 69 73 20 73 65 65 6d 73 20 74 6f 0a 09 this seems to..
3290: 20 2a 20 77 6f 72 6b 20 63 6f 72 72 65 63 74 6c * work correctl
32a0: 79 2e 20 20 53 69 6d 69 6c 61 72 20 66 69 78 20 y. Similar fix
32b0: 69 6e 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 2e in TlsInputProc.
32c0: 20 2d 20 68 6f 62 62 73 0a 09 20 2a 2f 0a 09 45 - hobbs.. */..E
32d0: 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 RR_clear_error()
32e0: 3b 0a 09 77 72 69 74 74 65 6e 20 3d 20 42 49 4f ;..written = BIO
32f0: 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d _write(statePtr-
3300: 3e 62 69 6f 2c 20 62 75 66 2c 20 74 6f 57 72 69 >bio, buf, toWri
3310: 74 65 29 3b 0a 09 64 70 72 69 6e 74 66 28 22 42 te);..dprintf("B
3320: 49 4f 5f 77 72 69 74 65 28 25 70 2c 20 25 64 29 IO_write(%p, %d)
3330: 20 2d 3e 20 5b 25 64 5d 22 2c 20 28 76 6f 69 64 -> [%d]", (void
3340: 20 2a 29 20 73 74 61 74 65 50 74 72 2c 20 74 6f *) statePtr, to
3350: 57 72 69 74 65 2c 20 77 72 69 74 74 65 6e 29 3b Write, written);
3360: 0a 0a 09 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 ...err = SSL_get
3370: 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d _error(statePtr-
3380: 3e 73 73 6c 2c 20 77 72 69 74 74 65 6e 29 3b 0a >ssl, written);.
3390: 09 73 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a .switch (err) {.
33a0: 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
33b0: 5f 4e 4f 4e 45 3a 0a 09 09 09 69 66 20 28 77 72 _NONE:....if (wr
33c0: 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09 09 itten < 0) {....
33d0: 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 .written = 0;...
33e0: 09 7d 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 .}....break;...c
33f0: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
3400: 4e 54 5f 57 52 49 54 45 3a 0a 09 09 09 64 70 72 NT_WRITE:....dpr
3410: 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 intf("Got SSL_ER
3420: 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 2c 20 ROR_WANT_WRITE,
3430: 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 45 41 mapping it to EA
3440: 47 41 49 4e 22 29 3b 0a 09 09 09 2a 65 72 72 6f GAIN");....*erro
3450: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
3460: 4e 3b 0a 09 09 09 77 72 69 74 74 65 6e 20 3d 20 N;....written =
3470: 2d 31 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 -1;....break;...
3480: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
3490: 41 4e 54 5f 52 45 41 44 3a 0a 09 09 09 64 70 72 ANT_READ:....dpr
34a0: 69 6e 74 66 28 22 20 77 72 69 74 65 20 52 20 42 intf(" write R B
34b0: 4c 4f 43 4b 22 29 3b 0a 09 09 09 62 72 65 61 6b LOCK");....break
34c0: 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
34d0: 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f OR_WANT_X509_LOO
34e0: 4b 55 50 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 KUP:....dprintf(
34f0: 22 20 77 72 69 74 65 20 58 20 42 4c 4f 43 4b 22 " write X BLOCK"
3500: 29 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 );....break;...c
3510: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 ase SSL_ERROR_ZE
3520: 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 09 09 64 70 RO_RETURN:....dp
3530: 72 69 6e 74 66 28 22 20 63 6c 6f 73 65 64 22 29 rintf(" closed")
3540: 3b 0a 09 09 09 77 72 69 74 74 65 6e 20 3d 20 30 ;....written = 0
3550: 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 ;....*errorCodeP
3560: 74 72 20 3d 20 30 3b 0a 09 09 09 62 72 65 61 6b tr = 0;....break
3570: 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
3580: 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 09 09 62 OR_SYSCALL:....b
3590: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 ackingError = ER
35a0: 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a R_get_error();..
35b0: 09 09 09 69 66 20 28 62 61 63 6b 69 6e 67 45 72 ...if (backingEr
35c0: 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69 74 ror == 0 && writ
35d0: 74 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 09 09 ten == 0) {.....
35e0: 64 70 72 69 6e 74 66 28 22 45 4f 46 20 72 65 61 dprintf("EOF rea
35f0: 63 68 65 64 22 29 0a 09 09 09 09 2a 65 72 72 6f ched").....*erro
3600: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 rCodePtr = 0;...
3610: 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 ..written = 0;..
3620: 09 09 7d 20 65 6c 73 65 20 69 66 20 28 62 61 63 ..} else if (bac
3630: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
3640: 26 20 77 72 69 74 74 65 6e 20 3d 3d 20 2d 31 29 & written == -1)
3650: 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 {.....dprintf("
3660: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
3670: 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 ed (errno = %lu)
3680: 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
3690: 67 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 g) Tcl_GetErrno(
36a0: 29 29 3b 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f ));.....*errorCo
36b0: 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 dePtr = Tcl_GetE
36c0: 72 72 6e 6f 28 29 3b 0a 09 09 09 09 77 72 69 74 rrno();.....writ
36d0: 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 09 7d 20 65 ten = -1;....} e
36e0: 6c 73 65 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 lse {.....dprint
36f0: 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 f("I/O error occ
3700: 75 72 72 65 64 20 28 62 61 63 6b 69 6e 67 45 72 urred (backingEr
3710: 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20 62 61 63 ror = %lu)", bac
3720: 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09 09 09 09 kingError);.....
3730: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3740: 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 09 09 backingError;...
3750: 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a ..written = -1;.
3760: 09 09 09 7d 0a 0a 09 09 09 62 72 65 61 6b 3b 0a ...}.....break;.
3770: 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
3780: 5f 53 53 4c 3a 0a 09 09 09 54 6c 73 5f 45 72 72 _SSL:....Tls_Err
3790: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 43 4c or(statePtr, TCL
37a0: 54 4c 53 5f 53 53 4c 5f 45 52 52 4f 52 28 73 74 TLS_SSL_ERROR(st
37b0: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 atePtr->ssl, wri
37c0: 74 74 65 6e 29 29 3b 0a 09 09 09 2a 65 72 72 6f tten));....*erro
37d0: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
37e0: 41 42 4f 52 54 45 44 3b 0a 09 09 09 77 72 69 74 ABORTED;....writ
37f0: 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 09 62 72 65 ten = -1;....bre
3800: 61 6b 3b 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09 ak;...default:..
3810: 09 09 64 70 72 69 6e 74 66 28 22 20 75 6e 6b 6e ..dprintf(" unkn
3820: 6f 77 6e 20 65 72 72 3a 20 25 64 22 2c 20 65 72 own err: %d", er
3830: 72 29 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 7d r);....break;..}
3840: 0a 0a 09 64 70 72 69 6e 74 66 28 22 4f 75 74 70 ...dprintf("Outp
3850: 75 74 28 25 64 29 20 2d 3e 20 25 64 22 2c 20 74 ut(%d) -> %d", t
3860: 6f 57 72 69 74 65 2c 20 77 72 69 74 74 65 6e 29 oWrite, written)
3870: 3b 0a 09 72 65 74 75 72 6e 28 77 72 69 74 74 65 ;..return(writte
3880: 6e 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d n);.}../*. *----
3890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
38d0: 20 2a 0a 20 2a 20 54 6c 73 53 65 74 4f 70 74 69 *. * TlsSetOpti
38e0: 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 onProc --. *. *.
38f0: 43 6f 6d 70 75 74 65 73 20 61 6e 20 6f 70 74 69 Computes an opti
3900: 6f 6e 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 on value for a S
3910: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
3920: 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 0a 20 2a channel, or a. *
3930: 09 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 .list of all opt
3940: 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 ions and their v
3950: 61 6c 75 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 alues.. *. * Res
3960: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
3970: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 20 ard Tcl result.
3980: 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 The value of the
3990: 20 73 70 65 63 69 66 69 65 64 20 6f 70 74 69 6f specified optio
39a0: 6e 20 6f 72 20 61 0a 20 2a 09 6c 69 73 74 20 6f n or a. *.list o
39b0: 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e f all options an
39c0: 64 09 74 68 65 69 72 20 76 61 6c 75 65 73 20 69 d.their values i
39d0: 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 s returned in th
39e0: 65 0a 20 2a 09 73 75 70 70 6c 69 65 64 20 44 53 e. *.supplied DS
39f0: 74 72 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 tring.. *. * Sid
3a00: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
3a10: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
3a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
3a60: 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 53 .static int.TlsS
3a70: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 etOptionProc(Cli
3a80: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
3a90: 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 74 20 Data,./* Socket
3aa0: 73 74 61 74 65 2e 20 2a 2f 0a 09 54 63 6c 5f 49 state. */..Tcl_I
3ab0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 nterp *interp,..
3ac0: 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 /* For errors -
3ad0: 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a can be NULL. */.
3ae0: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 .const char *opt
3af0: 69 6f 6e 4e 61 6d 65 2c 09 09 2f 2a 20 4e 61 6d ionName,../* Nam
3b00: 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 e of the option
3b10: 74 6f 20 73 65 74 20 74 68 65 20 76 61 6c 75 65 to set the value
3b20: 20 66 6f 72 2c 20 6f 72 0a 09 09 09 09 09 20 2a for, or...... *
3b30: 20 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c NULL to get all
3b40: 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 options and the
3b50: 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 09 63 ir values. */..c
3b60: 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f onst char *optio
3b70: 6e 56 61 6c 75 65 29 09 2f 2a 20 56 61 6c 75 65 nValue)./* Value
3b80: 20 66 6f 72 20 6f 70 74 69 6f 6e 2e 20 2a 2f 0a for option. */.
3b90: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
3ba0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
3bb0: 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a ) instanceData;.
3bc0: 0a 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 . Tcl_Channel
3bd0: 64 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 downChan = Tls_G
3be0: 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 etParent(statePt
3bf0: 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 r, TLS_TCL_FASTP
3c00: 41 54 48 29 3b 0a 20 20 20 54 63 6c 5f 44 72 69 ATH);. Tcl_Dri
3c10: 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 verSetOptionProc
3c20: 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b *setOptionProc;
3c30: 0a 0a 20 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 .. setOptionP
3c40: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
3c50: 6c 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 lSetOptionProc(T
3c60: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
3c70: 65 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 20 e(downChan));.
3c80: 20 20 69 66 20 28 73 65 74 4f 70 74 69 6f 6e 50 if (setOptionP
3c90: 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 roc != NULL) {..
3ca0: 72 65 74 75 72 6e 20 28 2a 73 65 74 4f 70 74 69 return (*setOpti
3cb0: 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 onProc)(Tcl_GetC
3cc0: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
3cd0: 74 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 69 6e ta(downChan), in
3ce0: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
3cf0: 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a , optionValue);.
3d00: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f } else if (o
3d10: 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 ptionName == (ch
3d20: 61 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a ar*) NULL) {../*
3d30: 0a 09 20 2a 20 52 65 71 75 65 73 74 20 69 73 20 .. * Request is
3d40: 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 query for all op
3d50: 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f tions, this is o
3d60: 6b 2e 0a 09 20 2a 2f 0a 09 20 72 65 74 75 72 6e k... */.. return
3d70: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 TCL_OK;. }.
3d80: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 /*. * Req
3d90: 75 65 73 74 20 66 6f 72 20 61 20 73 70 65 63 69 uest for a speci
3da0: 66 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 fic option has t
3db0: 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 o fail, we don't
3dc0: 20 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 have any..
3dd0: 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 */. return TC
3de0: 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 20 L_ERROR;.}../*.
3df0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
3e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e30: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 ----. *. * TlsGe
3e40: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 tOptionProc --.
3e50: 2a 0a 20 2a 09 43 6f 6d 70 75 74 65 73 20 61 6e *. *.Computes an
3e60: 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 6f option value fo
3e70: 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 r a SSL socket b
3e80: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 ased channel, or
3e90: 20 61 0a 20 2a 09 6c 69 73 74 20 6f 66 20 61 6c a. *.list of al
3ea0: 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 l options and th
3eb0: 65 69 72 20 76 61 6c 75 65 73 2e 0a 20 2a 0a 20 eir values.. *.
3ec0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
3ed0: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
3ee0: 75 6c 74 2e 20 54 68 65 20 76 61 6c 75 65 20 6f ult. The value o
3ef0: 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 f the specified
3f00: 6f 70 74 69 6f 6e 20 6f 72 20 61 0a 20 2a 09 6c option or a. *.l
3f10: 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f ist of all optio
3f20: 6e 73 20 61 6e 64 09 74 68 65 69 72 20 76 61 6c ns and.their val
3f30: 75 65 73 20 69 73 20 72 65 74 75 72 6e 65 64 20 ues is returned
3f40: 69 6e 20 74 68 65 0a 20 2a 09 73 75 70 70 6c 69 in the. *.suppli
3f50: 65 64 20 44 53 74 72 69 6e 67 2e 0a 20 2a 0a 20 ed DString.. *.
3f60: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
3f70: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
3f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fc0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
3fd0: 0a 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f .TlsGetOptionPro
3fe0: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
3ff0: 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f tanceData,./* So
4000: 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 09 cket state. */..
4010: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4020: 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f rp,../* For erro
4030: 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c rs - can be NULL
4040: 2e 20 2a 2f 0a 09 63 6f 6e 73 74 20 63 68 61 72 . */..const char
4050: 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 09 2f *optionName,../
4060: 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 * Name of the op
4070: 74 69 6f 6e 20 74 6f 20 72 65 74 72 69 65 76 65 tion to retrieve
4080: 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 the value for,
4090: 6f 72 0a 09 09 09 09 09 20 2a 20 4e 55 4c 4c 20 or...... * NULL
40a0: 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f to get all optio
40b0: 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c ns and their val
40c0: 75 65 73 2e 20 2a 2f 0a 09 54 63 6c 5f 44 53 74 ues. */..Tcl_DSt
40d0: 72 69 6e 67 20 2a 64 73 50 74 72 29 09 09 2f 2a ring *dsPtr)../*
40e0: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 Where to store
40f0: 74 68 65 20 63 6f 6d 70 75 74 65 64 20 76 61 6c the computed val
4100: 75 65 0a 09 09 09 09 09 20 2a 20 69 6e 69 74 69 ue...... * initi
4110: 61 6c 69 7a 65 64 20 62 79 20 63 61 6c 6c 65 72 alized by caller
4120: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 . */.{. State
4130: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
4140: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
4150: 61 74 61 3b 0a 0a 20 20 20 54 63 6c 5f 43 68 61 ata;.. Tcl_Cha
4160: 6e 6e 65 6c 20 64 6f 77 6e 43 68 61 6e 20 3d 20 nnel downChan =
4170: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
4180: 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f atePtr, TLS_TCL_
4190: 46 41 53 54 50 41 54 48 29 3b 0a 20 20 20 54 63 FASTPATH);. Tc
41a0: 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 69 6f l_DriverGetOptio
41b0: 6e 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 6f 6e nProc *getOption
41c0: 50 72 6f 63 3b 0a 0a 20 20 20 20 67 65 74 4f 70 Proc;.. getOp
41d0: 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 tionProc = Tcl_C
41e0: 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69 6f 6e 50 hannelGetOptionP
41f0: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
4200: 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 elType(downChan)
4210: 29 3b 0a 20 20 20 20 69 66 20 28 67 65 74 4f 70 );. if (getOp
4220: 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c tionProc != NULL
4230: 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 67 65 ) {..return (*ge
4240: 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c tOptionProc)(Tcl
4250: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
4260: 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 6e nceData(downChan
4270: 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f ), interp, optio
4280: 6e 4e 61 6d 65 2c 20 64 73 50 74 72 29 3b 0a 20 nName, dsPtr);.
4290: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 } else if (op
42a0: 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 tionName == (cha
42b0: 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a r*) NULL) {../*.
42c0: 09 20 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 . * Request is q
42d0: 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 uery for all opt
42e0: 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b ions, this is ok
42f0: 2e 0a 09 20 2a 2f 0a 09 20 72 65 74 75 72 6e 20 ... */.. return
4300: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 TCL_OK;. }.
4310: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 75 /*. * Requ
4320: 65 73 74 20 66 6f 72 20 61 20 73 70 65 63 69 66 est for a specif
4330: 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f ic option has to
4340: 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 fail, we don't
4350: 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 2a have any.. *
4360: 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c /. return TCL
4370: 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 20 2a _ERROR;.}../*. *
4380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43c0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 ---. *. * TlsWat
43d0: 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 chProc --. *. *.
43e0: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6e Initialize the n
43f0: 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 otifier to watch
4400: 20 54 63 6c 5f 46 69 6c 65 73 20 66 72 6f 6d 20 Tcl_Files from
4410: 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a this channel.. *
4420: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
4430: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 None.. *. * Side
4440: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
4450: 73 20 75 70 20 74 68 65 20 6e 6f 74 69 66 69 65 s up the notifie
4460: 72 20 73 6f 20 74 68 61 74 20 61 20 66 75 74 75 r so that a futu
4470: 72 65 20 65 76 65 6e 74 20 6f 6e 20 74 68 65 20 re event on the
4480: 63 68 61 6e 6e 65 6c 0a 20 2a 09 77 69 6c 6c 20 channel. *.will
4490: 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e 0a be seen by Tcl..
44a0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
44b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
44f0: 61 74 69 63 20 76 6f 69 64 0a 54 6c 73 57 61 74 atic void.TlsWat
4500: 63 68 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 chProc(ClientDat
4510: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 a instanceData,.
4520: 2f 2a 20 54 68 65 20 73 6f 63 6b 65 74 20 73 74 /* The socket st
4530: 61 74 65 2e 20 2a 2f 0a 09 20 20 20 20 20 69 6e ate. */.. in
4540: 74 20 6d 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 t mask).../* Eve
4550: 6e 74 73 20 6f 66 20 69 6e 74 65 72 65 73 74 3b nts of interest;
4560: 20 61 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e an OR-ed combin
4570: 61 74 69 6f 6e 20 6f 66 20 2a 2f 0a 09 09 09 09 ation of */.....
4580: 09 2f 2a 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 ./* TCL_READABLE
4590: 2c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 , TCL_WRITABLE a
45a0: 6e 64 20 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e nd TCL_EXCEPTION
45b0: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 . */.{. Tcl_C
45c0: 68 61 6e 6e 65 6c 20 20 20 20 20 64 6f 77 6e 43 hannel downC
45d0: 68 61 6e 3b 0a 20 20 20 20 53 74 61 74 65 20 2a han;. State *
45e0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
45f0: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
4600: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
4610: 22 54 6c 73 57 61 74 63 68 50 72 6f 63 28 30 78 "TlsWatchProc(0x
4620: 25 78 29 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 %x)", mask);..
4630: 20 20 2f 2a 20 50 72 65 74 65 6e 64 20 74 6f 20 /* Pretend to
4640: 62 65 20 64 65 61 64 20 61 73 20 6c 6f 6e 67 20 be dead as long
4650: 61 73 20 74 68 65 20 76 65 72 69 66 79 20 63 61 as the verify ca
4660: 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e llback is runnin
4670: 67 2e 20 0a 20 20 20 20 20 2a 20 4f 74 68 65 72 g. . * Other
4680: 77 69 73 65 20 74 68 61 74 20 63 61 6c 6c 62 61 wise that callba
4690: 63 6b 20 63 6f 75 6c 64 20 62 65 20 69 6e 76 6f ck could be invo
46a0: 6b 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2e ked recursively.
46b0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
46c0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
46d0: 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 S_TCL_CALLBACK)
46e0: 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c {..dprintf("Call
46f0: 62 61 63 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e 67 back is on-going
4700: 2c 20 64 6f 69 6e 67 20 6e 6f 74 68 69 6e 67 22 , doing nothing"
4710: 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 );..return;.
4720: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 46 6c 61 }.. dprintFla
4730: 67 73 28 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 gs(statePtr);..
4740: 20 20 20 64 6f 77 6e 43 68 61 6e 20 3d 20 54 6c downChan = Tl
4750: 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 s_GetParent(stat
4760: 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 ePtr, TLS_TCL_FA
4770: 53 54 50 41 54 48 29 3b 0a 0a 20 20 20 20 69 66 STPATH);.. if
4780: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
4790: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 s & TLS_TCL_HAND
47a0: 53 48 41 4b 45 5f 46 41 49 4c 45 44 29 20 7b 0a SHAKE_FAILED) {.
47b0: 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 .dprintf("Asked
47c0: 74 6f 20 77 61 74 63 68 20 61 20 73 6f 63 6b 65 to watch a socke
47d0: 74 20 77 69 74 68 20 61 20 66 61 69 6c 65 64 20 t with a failed
47e0: 68 61 6e 64 73 68 61 6b 65 20 2d 2d 20 6e 6f 74 handshake -- not
47f0: 68 69 6e 67 20 63 61 6e 20 68 61 70 70 65 6e 20 hing can happen
4800: 68 65 72 65 22 29 3b 0a 0a 09 64 70 72 69 6e 74 here");...dprint
4810: 66 28 22 55 6e 72 65 67 69 73 74 65 72 69 6e 67 f("Unregistering
4820: 20 69 6e 74 65 72 65 73 74 20 69 6e 20 74 68 65 interest in the
4830: 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 22 29 lower channel")
4840: 3b 0a 09 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e ;..(Tcl_GetChann
4850: 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 elType(downChan)
4860: 29 2d 3e 77 61 74 63 68 50 72 6f 63 28 54 63 6c )->watchProc(Tcl
4870: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
4880: 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 6e nceData(downChan
4890: 29 2c 20 30 29 3b 0a 0a 09 73 74 61 74 65 50 74 ), 0);...statePt
48a0: 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 r->watchMask = 0
48b0: 3b 0a 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 ;...return;.
48c0: 7d 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d }.. statePtr-
48d0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 >watchMask = mas
48e0: 6b 3b 0a 0a 20 20 20 20 2f 2a 20 4e 6f 20 63 68 k;.. /* No ch
48f0: 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 61 annel handlers a
4900: 6e 79 20 6d 6f 72 65 2e 20 57 65 20 77 69 6c 6c ny more. We will
4910: 20 62 65 20 6e 6f 74 69 66 69 65 64 20 61 75 74 be notified aut
4920: 6f 6d 61 74 69 63 61 6c 6c 79 0a 20 20 20 20 20 omatically.
4930: 2a 20 61 62 6f 75 74 20 65 76 65 6e 74 73 20 6f * about events o
4940: 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 65 n the channel be
4950: 6c 6f 77 20 76 69 61 20 61 20 63 61 6c 6c 20 74 low via a call t
4960: 6f 20 6f 75 72 0a 20 20 20 20 20 2a 20 27 54 72 o our. * 'Tr
4970: 61 6e 73 66 6f 72 6d 4e 6f 74 69 66 79 50 72 6f ansformNotifyPro
4980: 63 27 2e 20 42 75 74 20 77 65 20 68 61 76 65 20 c'. But we have
4990: 74 6f 20 70 61 73 73 20 74 68 65 20 69 6e 74 65 to pass the inte
49a0: 72 65 73 74 20 64 6f 77 6e 20 6e 6f 77 2e 0a 20 rest down now..
49b0: 20 20 20 20 2a 20 57 65 20 61 72 65 20 61 6c 6c * We are all
49c0: 6f 77 65 64 20 74 6f 20 61 64 64 20 61 64 64 69 owed to add addi
49d0: 74 69 6f 6e 61 6c 20 27 69 6e 74 65 72 65 73 74 tional 'interest
49e0: 27 20 74 6f 20 74 68 65 20 6d 61 73 6b 20 69 66 ' to the mask if
49f0: 20 77 65 20 77 61 6e 74 0a 20 20 20 20 20 2a 20 we want. *
4a00: 74 6f 2e 20 42 75 74 20 74 68 69 73 20 74 72 61 to. But this tra
4a10: 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 68 61 73 20 nsformation has
4a20: 6e 6f 20 73 75 63 68 20 69 6e 74 65 72 65 73 74 no such interest
4a30: 2e 20 49 74 20 6a 75 73 74 20 70 61 73 73 65 73 . It just passes
4a40: 0a 20 20 20 20 20 2a 20 74 68 65 20 72 65 71 75 . * the requ
4a50: 65 73 74 20 64 6f 77 6e 2c 20 75 6e 63 68 61 6e est down, unchan
4a60: 67 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 0a 0a 20 ged.. */...
4a70: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 67 69 dprintf("Regi
4a80: 73 74 65 72 69 6e 67 20 6f 75 72 20 69 6e 74 65 stering our inte
4a90: 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 rest in the lowe
4aa0: 72 20 63 68 61 6e 6e 65 6c 20 28 63 68 61 6e 3d r channel (chan=
4ab0: 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 64 %p)", (void *) d
4ac0: 6f 77 6e 43 68 61 6e 29 3b 0a 20 20 20 20 28 54 ownChan);. (T
4ad0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
4ae0: 65 28 64 6f 77 6e 43 68 61 6e 29 29 0a 09 2d 3e e(downChan))..->
4af0: 77 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 watchProc(Tcl_Ge
4b00: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
4b10: 44 61 74 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 Data(downChan),
4b20: 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 mask);.. /*.
4b30: 20 20 20 20 2a 20 4d 61 6e 61 67 65 6d 65 6e 74 * Management
4b40: 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6e 61 6c of the internal
4b50: 20 74 69 6d 65 72 2e 0a 20 20 20 20 20 2a 2f 0a timer.. */.
4b60: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
4b70: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
4b80: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
4b90: 4c 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 L) {..dprintf("A
4ba0: 20 74 69 6d 65 72 20 77 61 73 20 66 6f 75 6e 64 timer was found
4bb0: 2c 20 64 65 6c 65 74 69 6e 67 20 69 74 22 29 3b , deleting it");
4bc0: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
4bd0: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
4be0: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 r->timer);..stat
4bf0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 ePtr->timer = (T
4c00: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
4c10: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ULL;. }..
4c20: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
4c30: 52 45 41 44 41 42 4c 45 29 20 26 26 0a 09 28 28 READABLE) &&..((
4c40: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
4c50: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 d(statePtr->self
4c60: 29 20 3e 20 30 29 20 7c 7c 20 28 42 49 4f 5f 63 ) > 0) || (BIO_c
4c70: 74 72 6c 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 trl_pending(stat
4c80: 65 50 74 72 2d 3e 62 69 6f 29 20 3e 20 30 29 29 ePtr->bio) > 0))
4c90: 29 20 7b 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 ) {.. /*..
4ca0: 20 20 2a 20 54 68 65 72 65 20 69 73 20 69 6e 74 * There is int
4cb0: 65 72 65 73 74 20 69 6e 20 72 65 61 64 61 62 6c erest in readabl
4cc0: 65 20 65 76 65 6e 74 73 20 61 6e 64 20 77 65 20 e events and we
4cd0: 61 63 74 75 61 6c 6c 79 20 68 61 76 65 0a 09 20 actually have..
4ce0: 20 20 20 20 2a 20 64 61 74 61 20 77 61 69 74 69 * data waiti
4cf0: 6e 67 2c 20 73 6f 20 67 65 6e 65 72 61 74 65 20 ng, so generate
4d00: 61 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 a timer to flush
4d10: 20 74 68 61 74 2e 0a 09 20 20 20 20 20 2a 2f 0a that... */.
4d20: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 72 . dprintf("Cr
4d30: 65 61 74 69 6e 67 20 61 20 6e 65 77 20 74 69 6d eating a new tim
4d40: 65 72 20 73 69 6e 63 65 20 64 61 74 61 20 61 70 er since data ap
4d50: 70 65 61 72 73 20 74 6f 20 62 65 20 77 61 69 74 pears to be wait
4d60: 69 6e 67 22 29 3b 0a 09 20 20 20 20 73 74 61 74 ing");.. stat
4d70: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 ePtr->timer = Tc
4d80: 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e l_CreateTimerHan
4d90: 64 6c 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c dler(TLS_TCL_DEL
4da0: 41 59 2c 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 AY, TlsChannelHa
4db0: 6e 64 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c 69 ndlerTimer, (Cli
4dc0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
4dd0: 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a r);. }.}../*.
4de0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e20: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 -----. *. * TlsG
4e30: 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a etHandleProc --.
4e40: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f *. *.Called fro
4e50: 6d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c m Tcl_GetChannel
4e60: 46 69 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 File to retrieve
4e70: 20 6f 2f 73 20 66 69 6c 65 20 68 61 6e 64 6c 65 o/s file handle
4e80: 72 0a 20 2a 09 66 72 6f 6d 20 74 68 65 20 53 53 r. *.from the SS
4e90: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
4ea0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
4eb0: 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 61 70 sults:. *.The ap
4ec0: 70 72 6f 70 72 69 61 74 65 20 54 63 6c 5f 46 69 propriate Tcl_Fi
4ed0: 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 66 20 6e 6f le or NULL if no
4ee0: 74 20 70 72 65 73 65 6e 74 2e 20 0a 20 2a 0a 20 t present. . *.
4ef0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
4f00: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
4f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f50: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
4f60: 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f TlsGetHandlePro
4f70: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
4f80: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 64 tanceData, int d
4f90: 69 72 65 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 irection, Client
4fa0: 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 Data *handlePtr)
4fb0: 20 7b 0a 09 53 74 61 74 65 20 2a 73 74 61 74 65 {..State *state
4fc0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
4fd0: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 09 instanceData;...
4fe0: 72 65 74 75 72 6e 28 54 63 6c 5f 47 65 74 43 68 return(Tcl_GetCh
4ff0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 5f annelHandle(Tls_
5000: 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 GetParent(stateP
5010: 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 tr, TLS_TCL_FAST
5020: 50 41 54 48 29 2c 20 64 69 72 65 63 74 69 6f 6e PATH), direction
5030: 2c 20 68 61 6e 64 6c 65 50 74 72 29 29 3b 0a 7d , handlePtr));.}
5040: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
5050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
5090: 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 2d TlsNotifyProc -
50a0: 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 20 -. *. *.Handler
50b0: 63 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 74 6f called by Tcl to
50c0: 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 inform us of ac
50d0: 74 69 76 69 74 79 0a 20 2a 09 6f 6e 20 74 68 65 tivity. *.on the
50e0: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e underlying chan
50f0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
5100: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
5110: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
5120: 0a 20 2a 09 4d 61 79 20 70 72 6f 63 65 73 73 20 . *.May process
5130: 74 68 65 20 69 6e 63 6f 6d 69 6e 67 20 65 76 65 the incoming eve
5140: 6e 74 20 62 79 20 69 74 73 65 6c 66 2e 0a 20 2a nt by itself.. *
5150: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5190: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
51a0: 69 63 20 69 6e 74 20 54 6c 73 4e 6f 74 69 66 79 ic int TlsNotify
51b0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
51c0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e instanceData, in
51d0: 74 20 6d 61 73 6b 29 20 7b 0a 09 53 74 61 74 65 t mask) {..State
51e0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
51f0: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
5200: 61 74 61 3b 0a 09 69 6e 74 20 65 72 72 6f 72 43 ata;..int errorC
5210: 6f 64 65 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 41 6e ode;.../*.. * An
5220: 20 65 76 65 6e 74 20 6f 63 63 75 72 72 65 64 20 event occurred
5230: 69 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e in the underlyin
5240: 67 20 63 68 61 6e 6e 65 6c 2e 20 20 54 68 69 73 g channel. This
5250: 0a 09 20 2a 20 74 72 61 6e 73 66 6f 72 6d 61 74 .. * transformat
5260: 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 72 6f 63 ion doesn't proc
5270: 65 73 73 20 73 75 63 68 20 65 76 65 6e 74 73 20 ess such events
5280: 74 68 75 73 20 72 65 74 75 72 6e 73 20 74 68 65 thus returns the
5290: 0a 09 20 2a 20 69 6e 63 6f 6d 69 6e 67 20 6d 61 .. * incoming ma
52a0: 73 6b 20 75 6e 63 68 61 6e 67 65 64 2e 0a 09 20 sk unchanged...
52b0: 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 */..if (statePtr
52c0: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
52d0: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
52e0: 29 20 7b 0a 09 09 2f 2a 0a 09 09 20 2a 20 44 65 ) {.../*... * De
52f0: 6c 65 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67 lete an existing
5300: 20 74 69 6d 65 72 2e 20 49 74 20 77 61 73 20 6e timer. It was n
5310: 6f 74 20 66 69 72 65 64 2c 20 79 65 74 20 77 65 ot fired, yet we
5320: 20 61 72 65 0a 09 09 20 2a 20 68 65 72 65 2c 20 are... * here,
5330: 73 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 so the channel b
5340: 65 6c 6f 77 20 67 65 6e 65 72 61 74 65 64 20 73 elow generated s
5350: 75 63 68 20 61 6e 20 65 76 65 6e 74 20 61 6e 64 uch an event and
5360: 20 77 65 0a 09 09 20 2a 20 64 6f 6e 27 74 20 68 we... * don't h
5370: 61 76 65 20 74 6f 2e 20 54 68 65 20 72 65 6e 65 ave to. The rene
5380: 77 61 6c 20 6f 66 20 74 68 65 20 69 6e 74 65 72 wal of the inter
5390: 65 73 74 20 61 66 74 65 72 20 74 68 65 0a 09 09 est after the...
53a0: 20 2a 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 * execution of
53b0: 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 channel handlers
53c0: 20 77 69 6c 6c 20 65 76 65 6e 74 75 61 6c 6c 79 will eventually
53d0: 20 63 61 75 73 65 20 75 73 20 74 6f 0a 09 09 20 cause us to...
53e0: 2a 20 72 65 63 72 65 61 74 65 20 74 68 65 20 74 * recreate the t
53f0: 69 6d 65 72 20 28 69 6e 20 57 61 74 63 68 50 72 imer (in WatchPr
5400: 6f 63 29 2e 0a 09 09 20 2a 2f 0a 09 09 54 63 6c oc).... */...Tcl
5410: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
5420: 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 ler(statePtr->ti
5430: 6d 65 72 29 3b 0a 09 09 73 74 61 74 65 50 74 72 mer);...statePtr
5440: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
5450: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
5460: 0a 09 7d 0a 0a 09 69 66 20 28 73 74 61 74 65 50 ..}...if (stateP
5470: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
5480: 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a TCL_CALLBACK) {.
5490: 09 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 ..dprintf("Retur
54a0: 6e 69 6e 67 20 30 20 64 75 65 20 74 6f 20 63 61 ning 0 due to ca
54b0: 6c 6c 62 61 63 6b 22 29 3b 0a 09 09 72 65 74 75 llback");...retu
54c0: 72 6e 20 30 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e rn 0;..}...dprin
54d0: 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f tf("Calling Tls_
54e0: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 WaitForConnect")
54f0: 3b 0a 09 65 72 72 6f 72 43 6f 64 65 20 3d 20 30 ;..errorCode = 0
5500: 3b 0a 09 69 66 20 28 54 6c 73 5f 57 61 69 74 46 ;..if (Tls_WaitF
5510: 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 orConnect(stateP
5520: 74 72 2c 20 26 65 72 72 6f 72 43 6f 64 65 2c 20 tr, &errorCode,
5530: 31 29 20 3c 20 30 29 20 7b 0a 09 09 69 66 20 28 1) < 0) {...if (
5540: 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 errorCode == EAG
5550: 41 49 4e 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 AIN) {....dprint
5560: 66 28 22 41 73 79 6e 63 20 66 6c 61 67 20 63 6f f("Async flag co
5570: 75 6c 64 20 62 65 20 73 65 74 20 28 64 69 64 6e uld be set (didn
5580: 27 74 20 63 68 65 63 6b 29 20 61 6e 64 20 65 72 't check) and er
5590: 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 rorCode == EAGAI
55a0: 4e 3a 20 20 52 65 74 75 72 6e 69 6e 67 20 30 22 N: Returning 0"
55b0: 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 20 30 3b );.....return 0;
55c0: 0a 09 09 7d 0a 0a 09 09 64 70 72 69 6e 74 66 28 ...}....dprintf(
55d0: 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e "Tls_WaitForConn
55e0: 65 63 74 20 72 65 74 75 72 6e 65 64 20 61 6e 20 ect returned an
55f0: 65 72 72 6f 72 22 29 3b 0a 09 7d 0a 0a 09 64 70 error");..}...dp
5600: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 rintf("Returning
5610: 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 0a 09 72 %i", mask);...r
5620: 65 74 75 72 6e 28 6d 61 73 6b 29 3b 0a 7d 0a 0a eturn(mask);.}..
5630: 23 69 66 20 30 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d #if 0./*. *-----
5640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5670: 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 20 20 54 6c -*. *. * Tl
5680: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 sChannelHandler
5690: 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 20 20 2d 2d --. *. * --
56a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
56d0: 20 2a 20 20 20 20 20 20 48 61 6e 64 6c 65 72 20 * Handler
56e0: 63 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 61 73 called by Tcl as
56f0: 20 61 20 72 65 73 75 6c 74 20 6f 66 0a 20 2a 20 a result of. *
5700: 20 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 43 Tcl_CreateC
5710: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 2d 20 hannelHandler -
5720: 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 to inform us of
5730: 61 63 74 69 76 69 74 79 0a 20 2a 20 20 20 20 20 activity. *
5740: 20 6f 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 on the underlyi
5750: 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 20 20 ng channel.. *
5760: 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ------------
5770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5790: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 20 ----*. *. *
57a0: 20 53 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a Sideeffects:. *
57b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 Ma
57c0: 79 20 67 65 6e 65 72 61 74 65 20 73 75 62 73 65 y generate subse
57d0: 71 75 65 6e 74 20 63 61 6c 6c 73 20 74 6f 0a 20 quent calls to.
57e0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 * T
57f0: 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c cl_NotifyChannel
5800: 2e 0a 20 2a 0a 20 2a 20 20 20 20 20 20 52 65 73 .. *. * Res
5810: 75 6c 74 3a 0a 20 2a 20 20 20 20 20 20 20 20 20 ult:. *
5820: 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a None.. *. *
5830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5860: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 73 74 61 ------*. */..sta
5870: 74 69 63 20 76 6f 69 64 0a 54 6c 73 43 68 61 6e tic void.TlsChan
5880: 6e 65 6c 48 61 6e 64 6c 65 72 20 28 43 6c 69 65 nelHandler (Clie
5890: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
58a0: 61 2c 20 69 6e 74 20 6d 61 73 6b 29 20 7b 0a 20 a, int mask) {.
58b0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
58c0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 63 tr = (State *) c
58d0: 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 lientData;..
58e0: 64 70 72 69 6e 74 66 28 22 48 41 4e 44 4c 45 52 dprintf("HANDLER
58f0: 28 30 78 25 78 29 22 2c 20 6d 61 73 6b 29 3b 0a (0x%x)", mask);.
5900: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
5910: 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 ( (ClientData)st
5920: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 atePtr);.. if
5930: 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 (mask & TCL_REA
5940: 44 41 42 4c 45 29 20 7b 0a 09 42 49 4f 5f 73 65 DABLE) {..BIO_se
5950: 74 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 t_flags(statePtr
5960: 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 ->p_bio, BIO_FLA
5970: 47 53 5f 52 45 41 44 29 3b 0a 20 20 20 20 7d 20 GS_READ);. }
5980: 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 63 6c 65 61 else {..BIO_clea
5990: 72 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 r_flags(statePtr
59a0: 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 ->p_bio, BIO_FLA
59b0: 47 53 5f 52 45 41 44 29 3b 0a 20 20 20 20 7d 0a GS_READ);. }.
59c0: 0a 20 20 20 20 69 66 20 28 6d 61 73 6b 20 26 20 . if (mask &
59d0: 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 20 7b 0a TCL_WRITABLE) {.
59e0: 09 42 49 4f 5f 73 65 74 5f 66 6c 61 67 73 28 73 .BIO_set_flags(s
59f0: 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 tatePtr->p_bio,
5a00: 42 49 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 29 BIO_FLAGS_WRITE)
5a10: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
5a20: 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 BIO_clear_flags(
5a30: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c statePtr->p_bio,
5a40: 20 42 49 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 BIO_FLAGS_WRITE
5a50: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 61 );. }.. ma
5a60: 73 6b 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 sk = 0;. if (
5a70: 42 49 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 BIO_wpending(sta
5a80: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
5a90: 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 mask |= TCL_WRIT
5aa0: 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ABLE;. }.
5ab0: 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 if (BIO_pending(
5ac0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 statePtr->bio))
5ad0: 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 {..mask |= TCL_R
5ae0: 45 41 44 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a EADABLE;. }..
5af0: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 54 68 /*. * Th
5b00: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 4e 6f 74 69 e following Noti
5b10: 66 79 43 68 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 fyChannel calls
5b20: 73 65 65 6d 73 20 74 6f 20 62 65 20 69 6d 70 6f seems to be impo
5b30: 72 74 61 6e 74 2c 20 62 75 74 0a 20 20 20 20 20 rtant, but.
5b40: 2a 20 77 65 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 * we don't know
5b50: 77 68 79 2e 20 20 49 74 20 6c 6f 6f 6b 73 20 6c why. It looks l
5b60: 69 6b 65 20 69 66 20 74 68 65 20 6d 61 73 6b 20 ike if the mask
5b70: 69 73 20 65 76 65 72 20 6e 6f 6e 2d 7a 65 72 6f is ever non-zero
5b80: 0a 20 20 20 20 20 2a 20 74 68 61 74 20 69 74 20 . * that it
5b90: 77 69 6c 6c 20 65 6e 74 65 72 20 61 6e 20 69 6e will enter an in
5ba0: 66 69 6e 69 74 65 20 6c 6f 6f 70 2e 0a 20 20 20 finite loop..
5bb0: 20 20 2a 0a 20 20 20 20 20 2a 20 4e 6f 74 69 66 *. * Notif
5bc0: 79 20 74 68 65 20 75 70 70 65 72 20 63 68 61 6e y the upper chan
5bd0: 6e 65 6c 20 6f 66 20 74 68 65 20 63 75 72 72 65 nel of the curre
5be0: 6e 74 20 42 49 4f 20 73 74 61 74 65 20 73 6f 20 nt BIO state so
5bf0: 74 68 65 20 65 76 65 6e 74 0a 20 20 20 20 20 2a the event. *
5c00: 20 63 6f 6e 74 69 6e 75 65 73 20 74 6f 20 70 72 continues to pr
5c10: 6f 70 61 67 61 74 65 20 75 70 20 74 68 65 20 63 opagate up the c
5c20: 68 61 69 6e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 hain.. *.
5c30: 20 20 2a 20 73 74 61 6e 74 6f 6e 3a 20 49 74 20 * stanton: It
5c40: 6c 6f 6f 6b 73 20 6c 69 6b 65 20 74 68 69 73 20 looks like this
5c50: 63 6f 75 6c 64 20 72 65 73 75 6c 74 20 69 6e 20 could result in
5c60: 61 6e 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 an infinite loop
5c70: 20 69 66 0a 20 20 20 20 20 2a 20 74 68 65 20 75 if. * the u
5c80: 70 70 65 72 20 63 68 61 6e 6e 65 6c 20 64 6f 65 pper channel doe
5c90: 73 6e 27 74 20 63 61 75 73 65 20 43 68 61 6e 6e sn't cause Chann
5ca0: 65 6c 48 61 6e 64 6c 65 72 20 74 6f 20 62 65 20 elHandler to be
5cb0: 72 65 6d 6f 76 65 64 0a 20 20 20 20 20 2a 20 62 removed. * b
5cc0: 65 66 6f 72 65 20 54 63 6c 5f 4e 6f 74 69 66 79 efore Tcl_Notify
5cd0: 43 68 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 63 68 Channel calls ch
5ce0: 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 6f annel handlers o
5cf0: 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e n the lower chan
5d00: 6e 65 6c 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 nel.. */.
5d10: 20 0a 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 . Tcl_Notify
5d20: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
5d30: 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a 20 ->self, mask);.
5d40: 20 20 20 0a 20 20 20 20 69 66 20 28 73 74 61 74 . if (stat
5d50: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 ePtr->timer != (
5d60: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e Tcl_TimerToken)N
5d70: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 ULL) {..Tcl_Dele
5d80: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
5d90: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
5da0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
5db0: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
5dc0: 6b 65 6e 29 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a ken)NULL;. }.
5dd0: 20 20 20 20 69 66 20 28 28 6d 61 73 6b 20 26 20 if ((mask &
5de0: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 TCL_READABLE) &&
5df0: 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 Tcl_InputBuffer
5e00: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
5e10: 66 29 20 3e 20 30 29 20 7b 0a 09 2f 2a 0a 09 20 f) > 0) {../*..
5e20: 2a 20 44 61 74 61 20 69 73 20 77 61 69 74 69 6e * Data is waitin
5e30: 67 2c 20 66 6c 75 73 68 20 69 74 20 6f 75 74 20 g, flush it out
5e40: 69 6e 20 73 68 6f 72 74 20 74 69 6d 65 0a 09 20 in short time..
5e50: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 */..statePtr->ti
5e60: 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 mer = Tcl_Create
5e70: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 54 4c 53 TimerHandler(TLS
5e80: 5f 54 43 4c 5f 44 45 4c 41 59 2c 0a 09 09 54 6c _TCL_DELAY,...Tl
5e90: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 sChannelHandlerT
5ea0: 69 6d 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 imer, (ClientDat
5eb0: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
5ec0: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 }. Tcl_Rele
5ed0: 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 ase( (ClientData
5ee0: 29 73 74 61 74 65 50 74 72 29 3b 0a 7d 0a 23 65 )statePtr);.}.#e
5ef0: 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ndif../*. *-----
5f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f30: 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 43 68 61 6e -*. *. *.TlsChan
5f40: 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 20 nelHandlerTimer
5f50: 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d --. *. *.-------
5f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 43 61 ---------*. *.Ca
5f90: 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 6f 74 69 lled by the noti
5fa0: 66 69 65 72 20 28 2d 3e 20 74 69 6d 65 72 29 20 fier (-> timer)
5fb0: 74 6f 20 66 6c 75 73 68 20 6f 75 74 0a 20 2a 09 to flush out. *.
5fc0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 61 69 74 information wait
5fd0: 69 6e 67 20 69 6e 20 63 68 61 6e 6e 65 6c 20 62 ing in channel b
5fe0: 75 66 66 65 72 73 2e 0a 20 2a 09 2d 2d 2d 2d 2d uffers.. *.-----
5ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a -----------*. *.
6020: 20 2a 09 53 69 64 65 65 66 66 65 63 74 73 3a 0a *.Sideeffects:.
6030: 20 2a 09 09 41 73 20 6f 66 20 27 54 6c 73 43 68 *..As of 'TlsCh
6040: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 27 2e 0a 20 annelHandler'..
6050: 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 *. *.Result:. *.
6060: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
6070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60a0: 2d 2d 2a 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 --*. */..static
60b0: 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 void TlsChannelH
60c0: 61 6e 64 6c 65 72 54 69 6d 65 72 28 43 6c 69 65 andlerTimer(Clie
60d0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
60e0: 61 29 20 7b 0a 09 53 74 61 74 65 20 2a 73 74 61 a) {..State *sta
60f0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
6100: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 09 69 ) clientData;..i
6110: 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a 0a 09 64 nt mask = 0;...d
6120: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
6130: 3b 0a 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 ;...statePtr->ti
6140: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 mer = (Tcl_Timer
6150: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 09 69 Token) NULL;...i
6160: 66 20 28 42 49 4f 5f 77 70 65 6e 64 69 6e 67 28 f (BIO_wpending(
6170: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 statePtr->bio))
6180: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 5b 63 68 {...dprintf("[ch
6190: 61 6e 3d 25 70 5d 20 42 49 4f 20 77 72 69 74 61 an=%p] BIO writa
61a0: 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e ble", statePtr->
61b0: 73 65 6c 66 29 3b 0a 0a 09 09 6d 61 73 6b 20 7c self);....mask |
61c0: 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a = TCL_WRITABLE;.
61d0: 09 7d 0a 0a 09 69 66 20 28 42 49 4f 5f 70 65 6e .}...if (BIO_pen
61e0: 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 ding(statePtr->b
61f0: 69 6f 29 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 io)) {...dprintf
6200: 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 49 4f 20 ("[chan=%p] BIO
6210: 72 65 61 64 61 62 6c 65 22 2c 20 73 74 61 74 65 readable", state
6220: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 09 6d Ptr->self);....m
6230: 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ask |= TCL_READA
6240: 42 4c 45 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 BLE;..}...dprint
6250: 66 28 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 f("Notifying our
6260: 73 65 6c 76 65 73 22 29 3b 0a 09 54 63 6c 5f 4e selves");..Tcl_N
6270: 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 74 61 otifyChannel(sta
6280: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d 61 73 tePtr->self, mas
6290: 6b 29 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 k);...dprintf("R
62a0: 65 74 75 72 6e 69 6e 67 22 29 3b 0a 0a 09 72 65 eturning");...re
62b0: 74 75 72 6e 3b 0a 7d 0a 0a 54 63 6c 5f 43 68 61 turn;.}..Tcl_Cha
62c0: 6e 6e 65 6c 20 54 6c 73 5f 47 65 74 50 61 72 65 nnel Tls_GetPare
62d0: 6e 74 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 nt(State *stateP
62e0: 74 72 2c 20 69 6e 74 20 6d 61 73 6b 46 6c 61 67 tr, int maskFlag
62f0: 73 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 52 s) {..dprintf("R
6300: 65 71 75 65 73 74 65 64 20 74 6f 20 67 65 74 20 equested to get
6310: 70 61 72 65 6e 74 20 6f 66 20 63 68 61 6e 6e 65 parent of channe
6320: 6c 20 25 70 22 2c 20 73 74 61 74 65 50 74 72 2d l %p", statePtr-
6330: 3e 73 65 6c 66 29 3b 0a 0a 09 69 66 20 28 28 73 >self);...if ((s
6340: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
6350: 20 7e 6d 61 73 6b 46 6c 61 67 73 29 20 26 20 54 ~maskFlags) & T
6360: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
6370: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 41 73 {...dprintf("As
6380: 6b 65 64 20 74 6f 20 67 65 74 20 74 68 65 20 70 ked to get the p
6390: 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 77 68 arent channel wh
63a0: 69 6c 65 20 77 65 20 61 72 65 20 75 73 69 6e 67 ile we are using
63b0: 20 46 61 73 74 50 61 74 68 20 2d 2d 20 72 65 74 FastPath -- ret
63c0: 75 72 6e 69 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 urning NULL");..
63d0: 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 .return(NULL);..
63e0: 7d 0a 0a 09 72 65 74 75 72 6e 28 54 63 6c 5f 47 }...return(Tcl_G
63f0: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
6400: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
6410: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
6420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6460: 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 6c *. * Tls_Channel
6470: 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 Type --. *. *.Re
6480: 74 75 72 6e 20 74 68 65 20 63 6f 72 72 65 63 74 turn the correct
6490: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 64 72 69 TLS channel dri
64a0: 76 65 72 20 69 6e 66 6f 0a 20 2a 0a 20 2a 20 52 ver info. *. * R
64b0: 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 63 esults:. *.The c
64c0: 6f 72 72 65 63 74 20 63 68 61 6e 6e 65 6c 20 64 orrect channel d
64d0: 72 69 76 65 72 20 66 6f 72 20 74 68 65 20 63 75 river for the cu
64e0: 72 72 65 6e 74 20 76 65 72 73 69 6f 6e 20 6f 66 rrent version of
64f0: 20 54 63 6c 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 Tcl.. *. * Side
6500: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
6510: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
6520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
6560: 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 Tcl_ChannelType
6570: 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 *Tls_ChannelType
6580: 28 76 6f 69 64 29 20 7b 0a 09 75 6e 73 69 67 6e (void) {..unsign
6590: 65 64 20 69 6e 74 20 73 69 7a 65 3b 0a 0a 09 2f ed int size;.../
65a0: 2a 0a 09 20 2a 20 49 6e 69 74 69 61 6c 69 7a 65 *.. * Initialize
65b0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 74 79 70 the channel typ
65c0: 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 0a 09 e if necessary..
65d0: 20 2a 2f 0a 09 69 66 20 28 74 6c 73 43 68 61 6e */..if (tlsChan
65e0: 6e 65 6c 54 79 70 65 20 3d 3d 20 4e 55 4c 4c 29 nelType == NULL)
65f0: 20 7b 0a 09 09 2f 2a 0a 09 09 20 2a 20 41 6c 6c {.../*... * All
6600: 6f 63 61 74 65 20 6e 65 77 20 63 68 61 6e 6e 65 ocate new channe
6610: 6c 74 79 70 65 20 73 74 72 75 63 74 75 72 65 0a ltype structure.
6620: 09 09 20 2a 2f 0a 09 09 73 69 7a 65 20 3d 20 73 .. */...size = s
6630: 69 7a 65 6f 66 28 54 63 6c 5f 43 68 61 6e 6e 65 izeof(Tcl_Channe
6640: 6c 54 79 70 65 29 3b 20 2f 2a 20 42 61 73 65 20 lType); /* Base
6650: 73 69 7a 65 20 2a 2f 0a 0a 09 09 74 6c 73 43 68 size */....tlsCh
6660: 61 6e 6e 65 6c 54 79 70 65 20 3d 20 28 54 63 6c annelType = (Tcl
6670: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 29 20 _ChannelType *)
6680: 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 29 3b 0a 09 ckalloc(size);..
6690: 09 6d 65 6d 73 65 74 28 28 76 6f 69 64 20 2a 29 .memset((void *)
66a0: 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2c tlsChannelType,
66b0: 20 30 2c 20 73 69 7a 65 29 3b 0a 0a 09 09 74 6c 0, size);....tl
66c0: 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 74 79 sChannelType->ty
66d0: 70 65 4e 61 6d 65 09 3d 20 22 74 6c 73 22 3b 0a peName.= "tls";.
66e0: 23 69 66 64 65 66 20 54 43 4c 5f 43 48 41 4e 4e #ifdef TCL_CHANN
66f0: 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 0a 09 09 74 EL_VERSION_5...t
6700: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 76 lsChannelType->v
6710: 65 72 73 69 6f 6e 09 09 3d 20 54 43 4c 5f 43 48 ersion..= TCL_CH
6720: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 3b ANNEL_VERSION_5;
6730: 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 ...tlsChannelTyp
6740: 65 2d 3e 63 6c 6f 73 65 50 72 6f 63 09 3d 20 54 e->closeProc.= T
6750: 6c 73 43 6c 6f 73 65 50 72 6f 63 3b 0a 09 09 74 lsCloseProc;...t
6760: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 69 lsChannelType->i
6770: 6e 70 75 74 50 72 6f 63 09 3d 20 54 6c 73 49 6e nputProc.= TlsIn
6780: 70 75 74 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 putProc;...tlsCh
6790: 61 6e 6e 65 6c 54 79 70 65 2d 3e 6f 75 74 70 75 annelType->outpu
67a0: 74 50 72 6f 63 09 3d 20 54 6c 73 4f 75 74 70 75 tProc.= TlsOutpu
67b0: 74 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e tProc;...tlsChan
67c0: 6e 65 6c 54 79 70 65 2d 3e 73 65 65 6b 50 72 6f nelType->seekPro
67d0: 63 09 3d 20 4e 55 4c 4c 3b 0a 09 09 74 6c 73 43 c.= NULL;...tlsC
67e0: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 73 65 74 4f hannelType->setO
67f0: 70 74 69 6f 6e 50 72 6f 63 09 3d 20 54 6c 73 53 ptionProc.= TlsS
6800: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 09 09 etOptionProc;...
6810: 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e tlsChannelType->
6820: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 09 3d 20 getOptionProc.=
6830: 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 TlsGetOptionProc
6840: 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 ;...tlsChannelTy
6850: 70 65 2d 3e 77 61 74 63 68 50 72 6f 63 09 3d 20 pe->watchProc.=
6860: 54 6c 73 57 61 74 63 68 50 72 6f 63 3b 0a 09 09 TlsWatchProc;...
6870: 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e tlsChannelType->
6880: 67 65 74 48 61 6e 64 6c 65 50 72 6f 63 09 3d 20 getHandleProc.=
6890: 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 TlsGetHandleProc
68a0: 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 ;...tlsChannelTy
68b0: 70 65 2d 3e 63 6c 6f 73 65 32 50 72 6f 63 09 3d pe->close2Proc.=
68c0: 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 32 3b 0a TlsCloseProc2;.
68d0: 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 ..tlsChannelType
68e0: 2d 3e 62 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 09 ->blockModeProc.
68f0: 3d 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 = TlsBlockModePr
6900: 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c oc;...tlsChannel
6910: 54 79 70 65 2d 3e 66 6c 75 73 68 50 72 6f 63 09 Type->flushProc.
6920: 3d 20 4e 55 4c 4c 3b 0a 09 09 74 6c 73 43 68 61 = NULL;...tlsCha
6930: 6e 6e 65 6c 54 79 70 65 2d 3e 68 61 6e 64 6c 65 nnelType->handle
6940: 72 50 72 6f 63 09 3d 20 54 6c 73 4e 6f 74 69 66 rProc.= TlsNotif
6950: 79 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e yProc;...tlsChan
6960: 6e 65 6c 54 79 70 65 2d 3e 77 69 64 65 53 65 65 nelType->wideSee
6970: 6b 50 72 6f 63 09 3d 20 4e 55 4c 4c 3b 0a 09 09 kProc.= NULL;...
6980: 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e tlsChannelType->
6990: 74 68 72 65 61 64 41 63 74 69 6f 6e 50 72 6f 63 threadActionProc
69a0: 3d 20 4e 55 4c 4c 3b 0a 09 09 74 6c 73 43 68 61 = NULL;...tlsCha
69b0: 6e 6e 65 6c 54 79 70 65 2d 3e 74 72 75 6e 63 61 nnelType->trunca
69c0: 74 65 50 72 6f 63 09 3d 20 4e 55 4c 4c 3b 0a 23 teProc.= NULL;.#
69d0: 65 6c 73 65 0a 09 09 74 6c 73 43 68 61 6e 6e 65 else...tlsChanne
69e0: 6c 54 79 70 65 2d 3e 76 65 72 73 69 6f 6e 09 09 lType->version..
69f0: 3d 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TCL_CHANNEL_VE
6a00: 52 53 49 4f 4e 5f 32 3b 0a 09 09 74 6c 73 43 68 RSION_2;...tlsCh
6a10: 61 6e 6e 65 6c 54 79 70 65 2d 3e 63 6c 6f 73 65 annelType->close
6a20: 50 72 6f 63 09 3d 20 54 6c 73 43 6c 6f 73 65 50 Proc.= TlsCloseP
6a30: 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 roc;...tlsChanne
6a40: 6c 54 79 70 65 2d 3e 69 6e 70 75 74 50 72 6f 63 lType->inputProc
6a50: 09 3d 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 3b .= TlsInputProc;
6a60: 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 ...tlsChannelTyp
6a70: 65 2d 3e 6f 75 74 70 75 74 50 72 6f 63 09 3d 20 e->outputProc.=
6a80: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 3b 0a 09 TlsOutputProc;..
6a90: 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d .tlsChannelType-
6aa0: 3e 73 65 65 6b 50 72 6f 63 09 3d 20 4e 55 4c 4c >seekProc.= NULL
6ab0: 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 ;...tlsChannelTy
6ac0: 70 65 2d 3e 73 65 74 4f 70 74 69 6f 6e 50 72 6f pe->setOptionPro
6ad0: 63 09 3d 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e c.= TlsSetOption
6ae0: 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e Proc;...tlsChann
6af0: 65 6c 54 79 70 65 2d 3e 67 65 74 4f 70 74 69 6f elType->getOptio
6b00: 6e 50 72 6f 63 09 3d 20 54 6c 73 47 65 74 4f 70 nProc.= TlsGetOp
6b10: 74 69 6f 6e 50 72 6f 63 3b 0a 09 09 74 6c 73 43 tionProc;...tlsC
6b20: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 77 61 74 63 hannelType->watc
6b30: 68 50 72 6f 63 09 3d 20 54 6c 73 57 61 74 63 68 hProc.= TlsWatch
6b40: 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e Proc;...tlsChann
6b50: 65 6c 54 79 70 65 2d 3e 67 65 74 48 61 6e 64 6c elType->getHandl
6b60: 65 50 72 6f 63 09 3d 20 54 6c 73 47 65 74 48 61 eProc.= TlsGetHa
6b70: 6e 64 6c 65 50 72 6f 63 3b 0a 09 09 74 6c 73 43 ndleProc;...tlsC
6b80: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 63 6c 6f 73 hannelType->clos
6b90: 65 32 50 72 6f 63 09 3d 20 4e 55 4c 4c 3b 0a 09 e2Proc.= NULL;..
6ba0: 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d .tlsChannelType-
6bb0: 3e 62 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 09 3d >blockModeProc.=
6bc0: 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f TlsBlockModePro
6bd0: 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 c;...tlsChannelT
6be0: 79 70 65 2d 3e 66 6c 75 73 68 50 72 6f 63 09 3d ype->flushProc.=
6bf0: 20 4e 55 4c 4c 3b 0a 09 09 74 6c 73 43 68 61 6e NULL;...tlsChan
6c00: 6e 65 6c 54 79 70 65 2d 3e 68 61 6e 64 6c 65 72 nelType->handler
6c10: 50 72 6f 63 09 3d 20 54 6c 73 4e 6f 74 69 66 79 Proc.= TlsNotify
6c20: 50 72 6f 63 3b 0a 23 65 6e 64 69 66 0a 09 7d 0a Proc;.#endif..}.
6c30: 09 72 65 74 75 72 6e 28 74 6c 73 43 68 61 6e 6e .return(tlsChann
6c40: 65 6c 54 79 70 65 29 3b 0a 7d 0a elType);.}.