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 20 20 20 20 20 20 20 20 72 65 74 75 ) {. retu
4240: 72 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 rn (*getOptionPr
4250: 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e oc)(Tcl_GetChann
4260: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 elInstanceData(d
4270: 6f 77 6e 43 68 61 6e 29 2c 20 69 6e 74 65 72 70 ownChan), interp
4280: 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 64 73 , optionName, ds
4290: 50 74 72 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 Ptr);. } else
42a0: 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 if (optionName
42b0: 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 == (char*) NULL)
42c0: 20 7b 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20 20 {. /*.
42d0: 20 20 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 * Request
42e0: 20 69 73 20 71 75 65 72 79 20 66 6f 72 20 61 6c is query for al
42f0: 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 69 73 20 l options, this
4300: 69 73 20 6f 6b 2e 0a 20 20 20 20 20 20 20 20 20 is ok..
4310: 2a 2f 0a 20 20 20 20 20 20 20 20 20 72 65 74 75 */. retu
4320: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d rn TCL_OK;. }
4330: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 . /*. * R
4340: 65 71 75 65 73 74 20 66 6f 72 20 61 20 73 70 65 equest for a spe
4350: 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 cific option has
4360: 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e to fail, we don
4370: 27 74 20 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 't have any..
4380: 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 */. return
4390: 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a TCL_ERROR;.}../*
43a0: 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43e0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
43f0: 57 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a WatchProc --. *.
4400: 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 *.Initialize th
4410: 65 20 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 61 e notifier to wa
4420: 74 63 68 20 54 63 6c 5f 46 69 6c 65 73 20 66 72 tch Tcl_Files fr
4430: 6f 6d 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e om this channel.
4440: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
4450: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 *.None.. *. * S
4460: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
4470: 53 65 74 73 20 75 70 20 74 68 65 20 6e 6f 74 69 Sets up the noti
4480: 66 69 65 72 20 73 6f 20 74 68 61 74 20 61 20 66 fier so that a f
4490: 75 74 75 72 65 20 65 76 65 6e 74 20 6f 6e 20 74 uture event on t
44a0: 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 77 69 he channel. *.wi
44b0: 6c 6c 20 62 65 20 73 65 65 6e 20 62 79 20 54 63 ll be seen by Tc
44c0: 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d l.. *. *--------
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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
4510: 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 54 6c 73 .static void.Tls
4520: 57 61 74 63 68 50 72 6f 63 28 43 6c 69 65 6e 74 WatchProc(Client
4530: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
4540: 61 2c 09 2f 2a 20 54 68 65 20 73 6f 63 6b 65 74 a,./* The socket
4550: 20 73 74 61 74 65 2e 20 2a 2f 0a 09 20 20 20 20 state. */..
4560: 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 2f 2a 20 int mask).../*
4570: 45 76 65 6e 74 73 20 6f 66 20 69 6e 74 65 72 65 Events of intere
4580: 73 74 3b 20 61 6e 20 4f 52 2d 65 64 20 63 6f 6d st; an OR-ed com
4590: 62 69 6e 61 74 69 6f 6e 20 6f 66 20 2a 2f 0a 09 bination of */..
45a0: 09 09 09 09 2f 2a 20 54 43 4c 5f 52 45 41 44 41 ..../* TCL_READA
45b0: 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54 41 42 4c BLE, TCL_WRITABL
45c0: 45 20 61 6e 64 20 54 43 4c 5f 45 58 43 45 50 54 E and TCL_EXCEPT
45d0: 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 ION. */.{. Tc
45e0: 6c 5f 43 68 61 6e 6e 65 6c 20 20 20 20 20 64 6f l_Channel do
45f0: 77 6e 43 68 61 6e 3b 0a 20 20 20 20 53 74 61 74 wnChan;. Stat
4600: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
4610: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
4620: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e Data;.. dprin
4630: 74 66 28 22 54 6c 73 57 61 74 63 68 50 72 6f 63 tf("TlsWatchProc
4640: 28 30 78 25 78 29 22 2c 20 6d 61 73 6b 29 3b 0a (0x%x)", mask);.
4650: 0a 20 20 20 20 2f 2a 20 50 72 65 74 65 6e 64 20 . /* Pretend
4660: 74 6f 20 62 65 20 64 65 61 64 20 61 73 20 6c 6f to be dead as lo
4670: 6e 67 20 61 73 20 74 68 65 20 76 65 72 69 66 79 ng as the verify
4680: 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e callback is run
4690: 6e 69 6e 67 2e 20 0a 20 20 20 20 20 2a 20 4f 74 ning. . * Ot
46a0: 68 65 72 77 69 73 65 20 74 68 61 74 20 63 61 6c herwise that cal
46b0: 6c 62 61 63 6b 20 63 6f 75 6c 64 20 62 65 20 69 lback could be i
46c0: 6e 76 6f 6b 65 64 20 72 65 63 75 72 73 69 76 65 nvoked recursive
46d0: 6c 79 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ly. */. if (s
46e0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
46f0: 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 TLS_TCL_CALLBAC
4700: 4b 29 20 7b 0a 20 20 20 20 20 20 20 20 64 70 72 K) {. dpr
4710: 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 intf("Callback i
4720: 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 64 6f 69 6e s on-going, doin
4730: 67 20 6e 6f 74 68 69 6e 67 22 29 3b 0a 20 20 20 g nothing");.
4740: 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 return;.
4750: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 46 6c }.. dprintFl
4760: 61 67 73 28 73 74 61 74 65 50 74 72 29 3b 0a 0a ags(statePtr);..
4770: 20 20 20 20 64 6f 77 6e 43 68 61 6e 20 3d 20 54 downChan = T
4780: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 ls_GetParent(sta
4790: 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 tePtr, TLS_TCL_F
47a0: 41 53 54 50 41 54 48 29 3b 0a 0a 20 20 20 20 69 ASTPATH);.. i
47b0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
47c0: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 48 41 4e gs & TLS_TCL_HAN
47d0: 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 29 20 7b DSHAKE_FAILED) {
47e0: 0a 20 20 20 20 20 20 20 20 64 70 72 69 6e 74 66 . dprintf
47f0: 28 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63 68 ("Asked to watch
4800: 20 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20 61 a socket with a
4810: 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 6b failed handshak
4820: 65 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 6e e -- nothing can
4830: 20 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b 0a happen here");.
4840: 0a 09 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 ..dprintf("Unreg
4850: 69 73 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 istering interes
4860: 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 t in the lower c
4870: 68 61 6e 6e 65 6c 22 29 3b 0a 09 28 54 63 6c 5f hannel");..(Tcl_
4880: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 GetChannelType(d
4890: 6f 77 6e 43 68 61 6e 29 29 2d 3e 77 61 74 63 68 ownChan))->watch
48a0: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
48b0: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
48c0: 64 6f 77 6e 43 68 61 6e 29 2c 20 30 29 3b 0a 0a downChan), 0);..
48d0: 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 .statePtr->watch
48e0: 4d 61 73 6b 20 3d 20 30 3b 0a 0a 20 20 20 20 20 Mask = 0;..
48f0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d return;. }
4900: 0a 0a 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 ...statePtr->wat
4910: 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a chMask = mask;..
4920: 09 2f 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c 20 68 ./* No channel h
4930: 61 6e 64 6c 65 72 73 20 61 6e 79 20 6d 6f 72 65 andlers any more
4940: 2e 20 57 65 20 77 69 6c 6c 20 62 65 20 6e 6f 74 . We will be not
4950: 69 66 69 65 64 20 61 75 74 6f 6d 61 74 69 63 61 ified automatica
4960: 6c 6c 79 0a 09 20 2a 20 61 62 6f 75 74 20 65 76 lly.. * about ev
4970: 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e ents on the chan
4980: 6e 65 6c 20 62 65 6c 6f 77 20 76 69 61 20 61 20 nel below via a
4990: 63 61 6c 6c 20 74 6f 20 6f 75 72 0a 09 20 2a 20 call to our.. *
49a0: 27 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 69 66 79 'TransformNotify
49b0: 50 72 6f 63 27 2e 20 42 75 74 20 77 65 20 68 61 Proc'. But we ha
49c0: 76 65 20 74 6f 20 70 61 73 73 20 74 68 65 20 69 ve to pass the i
49d0: 6e 74 65 72 65 73 74 20 64 6f 77 6e 20 6e 6f 77 nterest down now
49e0: 2e 0a 09 20 2a 20 57 65 20 61 72 65 20 61 6c 6c ... * We are all
49f0: 6f 77 65 64 20 74 6f 20 61 64 64 20 61 64 64 69 owed to add addi
4a00: 74 69 6f 6e 61 6c 20 27 69 6e 74 65 72 65 73 74 tional 'interest
4a10: 27 20 74 6f 20 74 68 65 20 6d 61 73 6b 20 69 66 ' to the mask if
4a20: 20 77 65 20 77 61 6e 74 0a 09 20 2a 20 74 6f 2e we want.. * to.
4a30: 20 42 75 74 20 74 68 69 73 20 74 72 61 6e 73 66 But this transf
4a40: 6f 72 6d 61 74 69 6f 6e 20 68 61 73 20 6e 6f 20 ormation has no
4a50: 73 75 63 68 20 69 6e 74 65 72 65 73 74 2e 20 49 such interest. I
4a60: 74 20 6a 75 73 74 20 70 61 73 73 65 73 0a 09 20 t just passes..
4a70: 2a 20 74 68 65 20 72 65 71 75 65 73 74 20 64 6f * the request do
4a80: 77 6e 2c 20 75 6e 63 68 61 6e 67 65 64 2e 0a 09 wn, unchanged...
4a90: 20 2a 2f 0a 0a 0a 20 20 20 20 20 20 20 20 64 70 */... dp
4aa0: 72 69 6e 74 66 28 22 52 65 67 69 73 74 65 72 69 rintf("Registeri
4ab0: 6e 67 20 6f 75 72 20 69 6e 74 65 72 65 73 74 20 ng our interest
4ac0: 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 in the lower cha
4ad0: 6e 6e 65 6c 20 28 63 68 61 6e 3d 25 70 29 22 2c nnel (chan=%p)",
4ae0: 20 28 76 6f 69 64 20 2a 29 20 64 6f 77 6e 43 68 (void *) downCh
4af0: 61 6e 29 3b 0a 09 28 54 63 6c 5f 47 65 74 43 68 an);..(Tcl_GetCh
4b00: 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 annelType(downCh
4b10: 61 6e 29 29 0a 09 20 20 20 20 2d 3e 77 61 74 63 an)).. ->watc
4b20: 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 hProc(Tcl_GetCha
4b30: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
4b40: 28 64 6f 77 6e 43 68 61 6e 29 2c 20 6d 61 73 6b (downChan), mask
4b50: 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 4d 61 6e 61 );.../*.. * Mana
4b60: 67 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 69 6e gement of the in
4b70: 74 65 72 6e 61 6c 20 74 69 6d 65 72 2e 0a 09 20 ternal timer...
4b80: 2a 2f 0a 0a 09 69 66 20 28 73 74 61 74 65 50 74 */...if (statePt
4b90: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
4ba0: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
4bb0: 4c 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 L) {.
4bc0: 20 64 70 72 69 6e 74 66 28 22 41 20 74 69 6d 65 dprintf("A time
4bd0: 72 20 77 61 73 20 66 6f 75 6e 64 2c 20 64 65 6c r was found, del
4be0: 65 74 69 6e 67 20 69 74 22 29 3b 0a 09 20 20 20 eting it");..
4bf0: 20 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 Tcl_DeleteTimer
4c00: 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 Handler(statePtr
4c10: 2d 3e 74 69 6d 65 72 29 3b 0a 09 20 20 20 20 73 ->timer);.. s
4c20: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
4c30: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
4c40: 29 20 4e 55 4c 4c 3b 0a 09 7d 0a 0a 20 20 20 20 ) NULL;..}..
4c50: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
4c60: 52 45 41 44 41 42 4c 45 29 20 26 26 0a 09 28 28 READABLE) &&..((
4c70: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
4c80: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 d(statePtr->self
4c90: 29 20 3e 20 30 29 20 7c 7c 20 28 42 49 4f 5f 63 ) > 0) || (BIO_c
4ca0: 74 72 6c 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 trl_pending(stat
4cb0: 65 50 74 72 2d 3e 62 69 6f 29 20 3e 20 30 29 29 ePtr->bio) > 0))
4cc0: 29 20 7b 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 ) {.. /*..
4cd0: 20 20 2a 20 54 68 65 72 65 20 69 73 20 69 6e 74 * There is int
4ce0: 65 72 65 73 74 20 69 6e 20 72 65 61 64 61 62 6c erest in readabl
4cf0: 65 20 65 76 65 6e 74 73 20 61 6e 64 20 77 65 20 e events and we
4d00: 61 63 74 75 61 6c 6c 79 20 68 61 76 65 0a 09 20 actually have..
4d10: 20 20 20 20 2a 20 64 61 74 61 20 77 61 69 74 69 * data waiti
4d20: 6e 67 2c 20 73 6f 20 67 65 6e 65 72 61 74 65 20 ng, so generate
4d30: 61 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 a timer to flush
4d40: 20 74 68 61 74 2e 0a 09 20 20 20 20 20 2a 2f 0a that... */.
4d50: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 72 . dprintf("Cr
4d60: 65 61 74 69 6e 67 20 61 20 6e 65 77 20 74 69 6d eating a new tim
4d70: 65 72 20 73 69 6e 63 65 20 64 61 74 61 20 61 70 er since data ap
4d80: 70 65 61 72 73 20 74 6f 20 62 65 20 77 61 69 74 pears to be wait
4d90: 69 6e 67 22 29 3b 0a 09 20 20 20 20 73 74 61 74 ing");.. stat
4da0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 ePtr->timer = Tc
4db0: 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e l_CreateTimerHan
4dc0: 64 6c 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c dler(TLS_TCL_DEL
4dd0: 41 59 2c 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 AY, TlsChannelHa
4de0: 6e 64 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c 69 ndlerTimer, (Cli
4df0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
4e00: 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a r);. }.}../*.
4e10: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e50: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 -----. *. * TlsG
4e60: 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a etHandleProc --.
4e70: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f *. *.Called fro
4e80: 6d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c m Tcl_GetChannel
4e90: 46 69 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 File to retrieve
4ea0: 20 6f 2f 73 20 66 69 6c 65 20 68 61 6e 64 6c 65 o/s file handle
4eb0: 72 0a 20 2a 09 66 72 6f 6d 20 74 68 65 20 53 53 r. *.from the SS
4ec0: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
4ed0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
4ee0: 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 61 70 sults:. *.The ap
4ef0: 70 72 6f 70 72 69 61 74 65 20 54 63 6c 5f 46 69 propriate Tcl_Fi
4f00: 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 66 20 6e 6f le or NULL if no
4f10: 74 20 70 72 65 73 65 6e 74 2e 20 0a 20 2a 0a 20 t present. . *.
4f20: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
4f30: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
4f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f80: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
4f90: 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f TlsGetHandlePro
4fa0: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
4fb0: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 64 tanceData, int d
4fc0: 69 72 65 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 irection, Client
4fd0: 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 Data *handlePtr)
4fe0: 20 7b 0a 09 53 74 61 74 65 20 2a 73 74 61 74 65 {..State *state
4ff0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
5000: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 09 instanceData;...
5010: 72 65 74 75 72 6e 28 54 63 6c 5f 47 65 74 43 68 return(Tcl_GetCh
5020: 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 5f annelHandle(Tls_
5030: 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 GetParent(stateP
5040: 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 tr, TLS_TCL_FAST
5050: 50 41 54 48 29 2c 20 64 69 72 65 63 74 69 6f 6e PATH), direction
5060: 2c 20 68 61 6e 64 6c 65 50 74 72 29 29 3b 0a 7d , handlePtr));.}
5070: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
5080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
50c0: 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 2d TlsNotifyProc -
50d0: 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 20 -. *. *.Handler
50e0: 63 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 74 6f called by Tcl to
50f0: 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 inform us of ac
5100: 74 69 76 69 74 79 0a 20 2a 09 6f 6e 20 74 68 65 tivity. *.on the
5110: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e underlying chan
5120: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
5130: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
5140: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
5150: 0a 20 2a 09 4d 61 79 20 70 72 6f 63 65 73 73 20 . *.May process
5160: 74 68 65 20 69 6e 63 6f 6d 69 6e 67 20 65 76 65 the incoming eve
5170: 6e 74 20 62 79 20 69 74 73 65 6c 66 2e 0a 20 2a nt by itself.. *
5180: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51c0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
51d0: 69 63 20 69 6e 74 20 54 6c 73 4e 6f 74 69 66 79 ic int TlsNotify
51e0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
51f0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e instanceData, in
5200: 74 20 6d 61 73 6b 29 20 7b 0a 09 53 74 61 74 65 t mask) {..State
5210: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
5220: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
5230: 61 74 61 3b 0a 09 69 6e 74 20 65 72 72 6f 72 43 ata;..int errorC
5240: 6f 64 65 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 41 6e ode;.../*.. * An
5250: 20 65 76 65 6e 74 20 6f 63 63 75 72 72 65 64 20 event occurred
5260: 69 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e in the underlyin
5270: 67 20 63 68 61 6e 6e 65 6c 2e 20 20 54 68 69 73 g channel. This
5280: 0a 09 20 2a 20 74 72 61 6e 73 66 6f 72 6d 61 74 .. * transformat
5290: 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 72 6f 63 ion doesn't proc
52a0: 65 73 73 20 73 75 63 68 20 65 76 65 6e 74 73 20 ess such events
52b0: 74 68 75 73 20 72 65 74 75 72 6e 73 20 74 68 65 thus returns the
52c0: 0a 09 20 2a 20 69 6e 63 6f 6d 69 6e 67 20 6d 61 .. * incoming ma
52d0: 73 6b 20 75 6e 63 68 61 6e 67 65 64 2e 0a 09 20 sk unchanged...
52e0: 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 */..if (statePtr
52f0: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
5300: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
5310: 29 20 7b 0a 09 09 2f 2a 0a 09 09 20 2a 20 44 65 ) {.../*... * De
5320: 6c 65 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67 lete an existing
5330: 20 74 69 6d 65 72 2e 20 49 74 20 77 61 73 20 6e timer. It was n
5340: 6f 74 20 66 69 72 65 64 2c 20 79 65 74 20 77 65 ot fired, yet we
5350: 20 61 72 65 0a 09 09 20 2a 20 68 65 72 65 2c 20 are... * here,
5360: 73 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 so the channel b
5370: 65 6c 6f 77 20 67 65 6e 65 72 61 74 65 64 20 73 elow generated s
5380: 75 63 68 20 61 6e 20 65 76 65 6e 74 20 61 6e 64 uch an event and
5390: 20 77 65 0a 09 09 20 2a 20 64 6f 6e 27 74 20 68 we... * don't h
53a0: 61 76 65 20 74 6f 2e 20 54 68 65 20 72 65 6e 65 ave to. The rene
53b0: 77 61 6c 20 6f 66 20 74 68 65 20 69 6e 74 65 72 wal of the inter
53c0: 65 73 74 20 61 66 74 65 72 20 74 68 65 0a 09 09 est after the...
53d0: 20 2a 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 * execution of
53e0: 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 channel handlers
53f0: 20 77 69 6c 6c 20 65 76 65 6e 74 75 61 6c 6c 79 will eventually
5400: 20 63 61 75 73 65 20 75 73 20 74 6f 0a 09 09 20 cause us to...
5410: 2a 20 72 65 63 72 65 61 74 65 20 74 68 65 20 74 * recreate the t
5420: 69 6d 65 72 20 28 69 6e 20 57 61 74 63 68 50 72 imer (in WatchPr
5430: 6f 63 29 2e 0a 09 09 20 2a 2f 0a 09 09 54 63 6c oc).... */...Tcl
5440: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
5450: 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 ler(statePtr->ti
5460: 6d 65 72 29 3b 0a 09 09 73 74 61 74 65 50 74 72 mer);...statePtr
5470: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
5480: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
5490: 0a 09 7d 0a 0a 09 69 66 20 28 73 74 61 74 65 50 ..}...if (stateP
54a0: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
54b0: 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a TCL_CALLBACK) {.
54c0: 09 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 ..dprintf("Retur
54d0: 6e 69 6e 67 20 30 20 64 75 65 20 74 6f 20 63 61 ning 0 due to ca
54e0: 6c 6c 62 61 63 6b 22 29 3b 0a 09 09 72 65 74 75 llback");...retu
54f0: 72 6e 20 30 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e rn 0;..}...dprin
5500: 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f tf("Calling Tls_
5510: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 WaitForConnect")
5520: 3b 0a 09 65 72 72 6f 72 43 6f 64 65 20 3d 20 30 ;..errorCode = 0
5530: 3b 0a 09 69 66 20 28 54 6c 73 5f 57 61 69 74 46 ;..if (Tls_WaitF
5540: 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 orConnect(stateP
5550: 74 72 2c 20 26 65 72 72 6f 72 43 6f 64 65 2c 20 tr, &errorCode,
5560: 31 29 20 3c 20 30 29 20 7b 0a 09 09 69 66 20 28 1) < 0) {...if (
5570: 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 errorCode == EAG
5580: 41 49 4e 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 AIN) {....dprint
5590: 66 28 22 41 73 79 6e 63 20 66 6c 61 67 20 63 6f f("Async flag co
55a0: 75 6c 64 20 62 65 20 73 65 74 20 28 64 69 64 6e uld be set (didn
55b0: 27 74 20 63 68 65 63 6b 29 20 61 6e 64 20 65 72 't check) and er
55c0: 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 rorCode == EAGAI
55d0: 4e 3a 20 20 52 65 74 75 72 6e 69 6e 67 20 30 22 N: Returning 0"
55e0: 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 20 30 3b );.....return 0;
55f0: 0a 09 09 7d 0a 0a 09 09 64 70 72 69 6e 74 66 28 ...}....dprintf(
5600: 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e "Tls_WaitForConn
5610: 65 63 74 20 72 65 74 75 72 6e 65 64 20 61 6e 20 ect returned an
5620: 65 72 72 6f 72 22 29 3b 0a 09 7d 0a 0a 09 64 70 error");..}...dp
5630: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 rintf("Returning
5640: 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 0a 09 72 %i", mask);...r
5650: 65 74 75 72 6e 28 6d 61 73 6b 29 3b 0a 7d 0a 0a eturn(mask);.}..
5660: 23 69 66 20 30 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d #if 0./*. *-----
5670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56a0: 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 20 20 54 6c -*. *. * Tl
56b0: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 sChannelHandler
56c0: 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 20 20 2d 2d --. *. * --
56d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
5700: 20 2a 20 20 20 20 20 20 48 61 6e 64 6c 65 72 20 * Handler
5710: 63 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 61 73 called by Tcl as
5720: 20 61 20 72 65 73 75 6c 74 20 6f 66 0a 20 2a 20 a result of. *
5730: 20 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 43 Tcl_CreateC
5740: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 2d 20 hannelHandler -
5750: 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 to inform us of
5760: 61 63 74 69 76 69 74 79 0a 20 2a 20 20 20 20 20 activity. *
5770: 20 6f 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 on the underlyi
5780: 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 20 20 ng channel.. *
5790: 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ------------
57a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57c0: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 20 ----*. *. *
57d0: 20 53 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a Sideeffects:. *
57e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 Ma
57f0: 79 20 67 65 6e 65 72 61 74 65 20 73 75 62 73 65 y generate subse
5800: 71 75 65 6e 74 20 63 61 6c 6c 73 20 74 6f 0a 20 quent calls to.
5810: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 * T
5820: 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c cl_NotifyChannel
5830: 2e 0a 20 2a 0a 20 2a 20 20 20 20 20 20 52 65 73 .. *. * Res
5840: 75 6c 74 3a 0a 20 2a 20 20 20 20 20 20 20 20 20 ult:. *
5850: 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a None.. *. *
5860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5890: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 73 74 61 ------*. */..sta
58a0: 74 69 63 20 76 6f 69 64 0a 54 6c 73 43 68 61 6e tic void.TlsChan
58b0: 6e 65 6c 48 61 6e 64 6c 65 72 20 28 43 6c 69 65 nelHandler (Clie
58c0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
58d0: 61 2c 20 69 6e 74 20 6d 61 73 6b 29 20 7b 0a 20 a, int mask) {.
58e0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
58f0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 63 tr = (State *) c
5900: 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 lientData;..
5910: 64 70 72 69 6e 74 66 28 22 48 41 4e 44 4c 45 52 dprintf("HANDLER
5920: 28 30 78 25 78 29 22 2c 20 6d 61 73 6b 29 3b 0a (0x%x)", mask);.
5930: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
5940: 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 ( (ClientData)st
5950: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 atePtr);.. if
5960: 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 (mask & TCL_REA
5970: 44 41 42 4c 45 29 20 7b 0a 09 42 49 4f 5f 73 65 DABLE) {..BIO_se
5980: 74 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 t_flags(statePtr
5990: 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 ->p_bio, BIO_FLA
59a0: 47 53 5f 52 45 41 44 29 3b 0a 20 20 20 20 7d 20 GS_READ);. }
59b0: 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 63 6c 65 61 else {..BIO_clea
59c0: 72 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 r_flags(statePtr
59d0: 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 ->p_bio, BIO_FLA
59e0: 47 53 5f 52 45 41 44 29 3b 0a 20 20 20 20 7d 0a GS_READ);. }.
59f0: 0a 20 20 20 20 69 66 20 28 6d 61 73 6b 20 26 20 . if (mask &
5a00: 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 20 7b 0a TCL_WRITABLE) {.
5a10: 09 42 49 4f 5f 73 65 74 5f 66 6c 61 67 73 28 73 .BIO_set_flags(s
5a20: 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 tatePtr->p_bio,
5a30: 42 49 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 29 BIO_FLAGS_WRITE)
5a40: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
5a50: 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 BIO_clear_flags(
5a60: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c statePtr->p_bio,
5a70: 20 42 49 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 BIO_FLAGS_WRITE
5a80: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 61 );. }.. ma
5a90: 73 6b 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 sk = 0;. if (
5aa0: 42 49 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 BIO_wpending(sta
5ab0: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
5ac0: 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 mask |= TCL_WRIT
5ad0: 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ABLE;. }.
5ae0: 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 if (BIO_pending(
5af0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 statePtr->bio))
5b00: 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 {..mask |= TCL_R
5b10: 45 41 44 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a EADABLE;. }..
5b20: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 54 68 /*. * Th
5b30: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 4e 6f 74 69 e following Noti
5b40: 66 79 43 68 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 fyChannel calls
5b50: 73 65 65 6d 73 20 74 6f 20 62 65 20 69 6d 70 6f seems to be impo
5b60: 72 74 61 6e 74 2c 20 62 75 74 0a 20 20 20 20 20 rtant, but.
5b70: 2a 20 77 65 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 * we don't know
5b80: 77 68 79 2e 20 20 49 74 20 6c 6f 6f 6b 73 20 6c why. It looks l
5b90: 69 6b 65 20 69 66 20 74 68 65 20 6d 61 73 6b 20 ike if the mask
5ba0: 69 73 20 65 76 65 72 20 6e 6f 6e 2d 7a 65 72 6f is ever non-zero
5bb0: 0a 20 20 20 20 20 2a 20 74 68 61 74 20 69 74 20 . * that it
5bc0: 77 69 6c 6c 20 65 6e 74 65 72 20 61 6e 20 69 6e will enter an in
5bd0: 66 69 6e 69 74 65 20 6c 6f 6f 70 2e 0a 20 20 20 finite loop..
5be0: 20 20 2a 0a 20 20 20 20 20 2a 20 4e 6f 74 69 66 *. * Notif
5bf0: 79 20 74 68 65 20 75 70 70 65 72 20 63 68 61 6e y the upper chan
5c00: 6e 65 6c 20 6f 66 20 74 68 65 20 63 75 72 72 65 nel of the curre
5c10: 6e 74 20 42 49 4f 20 73 74 61 74 65 20 73 6f 20 nt BIO state so
5c20: 74 68 65 20 65 76 65 6e 74 0a 20 20 20 20 20 2a the event. *
5c30: 20 63 6f 6e 74 69 6e 75 65 73 20 74 6f 20 70 72 continues to pr
5c40: 6f 70 61 67 61 74 65 20 75 70 20 74 68 65 20 63 opagate up the c
5c50: 68 61 69 6e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 hain.. *.
5c60: 20 20 2a 20 73 74 61 6e 74 6f 6e 3a 20 49 74 20 * stanton: It
5c70: 6c 6f 6f 6b 73 20 6c 69 6b 65 20 74 68 69 73 20 looks like this
5c80: 63 6f 75 6c 64 20 72 65 73 75 6c 74 20 69 6e 20 could result in
5c90: 61 6e 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 an infinite loop
5ca0: 20 69 66 0a 20 20 20 20 20 2a 20 74 68 65 20 75 if. * the u
5cb0: 70 70 65 72 20 63 68 61 6e 6e 65 6c 20 64 6f 65 pper channel doe
5cc0: 73 6e 27 74 20 63 61 75 73 65 20 43 68 61 6e 6e sn't cause Chann
5cd0: 65 6c 48 61 6e 64 6c 65 72 20 74 6f 20 62 65 20 elHandler to be
5ce0: 72 65 6d 6f 76 65 64 0a 20 20 20 20 20 2a 20 62 removed. * b
5cf0: 65 66 6f 72 65 20 54 63 6c 5f 4e 6f 74 69 66 79 efore Tcl_Notify
5d00: 43 68 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 63 68 Channel calls ch
5d10: 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 6f annel handlers o
5d20: 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e n the lower chan
5d30: 6e 65 6c 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 nel.. */.
5d40: 20 0a 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 . Tcl_Notify
5d50: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
5d60: 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a 20 ->self, mask);.
5d70: 20 20 20 0a 20 20 20 20 69 66 20 28 73 74 61 74 . if (stat
5d80: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 ePtr->timer != (
5d90: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e Tcl_TimerToken)N
5da0: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 ULL) {..Tcl_Dele
5db0: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
5dc0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
5dd0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
5de0: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
5df0: 6b 65 6e 29 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a ken)NULL;. }.
5e00: 20 20 20 20 69 66 20 28 28 6d 61 73 6b 20 26 20 if ((mask &
5e10: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 TCL_READABLE) &&
5e20: 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 Tcl_InputBuffer
5e30: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
5e40: 66 29 20 3e 20 30 29 20 7b 0a 09 2f 2a 0a 09 20 f) > 0) {../*..
5e50: 2a 20 44 61 74 61 20 69 73 20 77 61 69 74 69 6e * Data is waitin
5e60: 67 2c 20 66 6c 75 73 68 20 69 74 20 6f 75 74 20 g, flush it out
5e70: 69 6e 20 73 68 6f 72 74 20 74 69 6d 65 0a 09 20 in short time..
5e80: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 */..statePtr->ti
5e90: 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 mer = Tcl_Create
5ea0: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 54 4c 53 TimerHandler(TLS
5eb0: 5f 54 43 4c 5f 44 45 4c 41 59 2c 0a 09 09 54 6c _TCL_DELAY,...Tl
5ec0: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 sChannelHandlerT
5ed0: 69 6d 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 imer, (ClientDat
5ee0: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
5ef0: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 }. Tcl_Rele
5f00: 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 ase( (ClientData
5f10: 29 73 74 61 74 65 50 74 72 29 3b 0a 7d 0a 23 65 )statePtr);.}.#e
5f20: 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ndif../*. *-----
5f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f60: 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 43 68 61 6e -*. *. *.TlsChan
5f70: 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 20 nelHandlerTimer
5f80: 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d --. *. *.-------
5f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 43 61 ---------*. *.Ca
5fc0: 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 6f 74 69 lled by the noti
5fd0: 66 69 65 72 20 28 2d 3e 20 74 69 6d 65 72 29 20 fier (-> timer)
5fe0: 74 6f 20 66 6c 75 73 68 20 6f 75 74 0a 20 2a 09 to flush out. *.
5ff0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 61 69 74 information wait
6000: 69 6e 67 20 69 6e 20 63 68 61 6e 6e 65 6c 20 62 ing in channel b
6010: 75 66 66 65 72 73 2e 0a 20 2a 09 2d 2d 2d 2d 2d uffers.. *.-----
6020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a -----------*. *.
6050: 20 2a 09 53 69 64 65 65 66 66 65 63 74 73 3a 0a *.Sideeffects:.
6060: 20 2a 09 09 41 73 20 6f 66 20 27 54 6c 73 43 68 *..As of 'TlsCh
6070: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 27 2e 0a 20 annelHandler'..
6080: 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 *. *.Result:. *.
6090: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
60a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60d0: 2d 2d 2a 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 --*. */..static
60e0: 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 void TlsChannelH
60f0: 61 6e 64 6c 65 72 54 69 6d 65 72 28 43 6c 69 65 andlerTimer(Clie
6100: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
6110: 61 29 20 7b 0a 09 53 74 61 74 65 20 2a 73 74 61 a) {..State *sta
6120: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
6130: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 09 69 ) clientData;..i
6140: 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a 0a 09 64 nt mask = 0;...d
6150: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
6160: 3b 0a 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 ;...statePtr->ti
6170: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 mer = (Tcl_Timer
6180: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 09 69 Token) NULL;...i
6190: 66 20 28 42 49 4f 5f 77 70 65 6e 64 69 6e 67 28 f (BIO_wpending(
61a0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 statePtr->bio))
61b0: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 5b 63 68 {...dprintf("[ch
61c0: 61 6e 3d 25 70 5d 20 42 49 4f 20 77 72 69 74 61 an=%p] BIO writa
61d0: 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e ble", statePtr->
61e0: 73 65 6c 66 29 3b 0a 0a 09 09 6d 61 73 6b 20 7c self);....mask |
61f0: 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a = TCL_WRITABLE;.
6200: 09 7d 0a 0a 09 69 66 20 28 42 49 4f 5f 70 65 6e .}...if (BIO_pen
6210: 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 ding(statePtr->b
6220: 69 6f 29 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 io)) {...dprintf
6230: 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 49 4f 20 ("[chan=%p] BIO
6240: 72 65 61 64 61 62 6c 65 22 2c 20 73 74 61 74 65 readable", state
6250: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 09 6d Ptr->self);....m
6260: 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ask |= TCL_READA
6270: 42 4c 45 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 BLE;..}...dprint
6280: 66 28 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 f("Notifying our
6290: 73 65 6c 76 65 73 22 29 3b 0a 09 54 63 6c 5f 4e selves");..Tcl_N
62a0: 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 74 61 otifyChannel(sta
62b0: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d 61 73 tePtr->self, mas
62c0: 6b 29 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 k);...dprintf("R
62d0: 65 74 75 72 6e 69 6e 67 22 29 3b 0a 0a 09 72 65 eturning");...re
62e0: 74 75 72 6e 3b 0a 7d 0a 0a 54 63 6c 5f 43 68 61 turn;.}..Tcl_Cha
62f0: 6e 6e 65 6c 20 54 6c 73 5f 47 65 74 50 61 72 65 nnel Tls_GetPare
6300: 6e 74 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 nt(State *stateP
6310: 74 72 2c 20 69 6e 74 20 6d 61 73 6b 46 6c 61 67 tr, int maskFlag
6320: 73 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 52 s) {..dprintf("R
6330: 65 71 75 65 73 74 65 64 20 74 6f 20 67 65 74 20 equested to get
6340: 70 61 72 65 6e 74 20 6f 66 20 63 68 61 6e 6e 65 parent of channe
6350: 6c 20 25 70 22 2c 20 73 74 61 74 65 50 74 72 2d l %p", statePtr-
6360: 3e 73 65 6c 66 29 3b 0a 0a 09 69 66 20 28 28 73 >self);...if ((s
6370: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
6380: 20 7e 6d 61 73 6b 46 6c 61 67 73 29 20 26 20 54 ~maskFlags) & T
6390: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
63a0: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 41 73 {...dprintf("As
63b0: 6b 65 64 20 74 6f 20 67 65 74 20 74 68 65 20 70 ked to get the p
63c0: 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 77 68 arent channel wh
63d0: 69 6c 65 20 77 65 20 61 72 65 20 75 73 69 6e 67 ile we are using
63e0: 20 46 61 73 74 50 61 74 68 20 2d 2d 20 72 65 74 FastPath -- ret
63f0: 75 72 6e 69 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 urning NULL");..
6400: 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 .return(NULL);..
6410: 7d 0a 0a 09 72 65 74 75 72 6e 28 54 63 6c 5f 47 }...return(Tcl_G
6420: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
6430: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
6440: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
6450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6490: 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 6c *. * Tls_Channel
64a0: 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 Type --. *. *.Re
64b0: 74 75 72 6e 20 74 68 65 20 63 6f 72 72 65 63 74 turn the correct
64c0: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 64 72 69 TLS channel dri
64d0: 76 65 72 20 69 6e 66 6f 0a 20 2a 0a 20 2a 20 52 ver info. *. * R
64e0: 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 63 esults:. *.The c
64f0: 6f 72 72 65 63 74 20 63 68 61 6e 6e 65 6c 20 64 orrect channel d
6500: 72 69 76 65 72 20 66 6f 72 20 74 68 65 20 63 75 river for the cu
6510: 72 72 65 6e 74 20 76 65 72 73 69 6f 6e 20 6f 66 rrent version of
6520: 20 54 63 6c 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 Tcl.. *. * Side
6530: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
6540: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
6590: 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 Tcl_ChannelType
65a0: 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 *Tls_ChannelType
65b0: 28 76 6f 69 64 29 20 7b 0a 09 75 6e 73 69 67 6e (void) {..unsign
65c0: 65 64 20 69 6e 74 20 73 69 7a 65 3b 0a 0a 09 2f ed int size;.../
65d0: 2a 0a 09 20 2a 20 49 6e 69 74 69 61 6c 69 7a 65 *.. * Initialize
65e0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 74 79 70 the channel typ
65f0: 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 0a 09 e if necessary..
6600: 20 2a 2f 0a 09 69 66 20 28 74 6c 73 43 68 61 6e */..if (tlsChan
6610: 6e 65 6c 54 79 70 65 20 3d 3d 20 4e 55 4c 4c 29 nelType == NULL)
6620: 20 7b 0a 09 09 2f 2a 0a 09 09 20 2a 20 41 6c 6c {.../*... * All
6630: 6f 63 61 74 65 20 6e 65 77 20 63 68 61 6e 6e 65 ocate new channe
6640: 6c 74 79 70 65 20 73 74 72 75 63 74 75 72 65 0a ltype structure.
6650: 09 09 20 2a 2f 0a 09 09 73 69 7a 65 20 3d 20 73 .. */...size = s
6660: 69 7a 65 6f 66 28 54 63 6c 5f 43 68 61 6e 6e 65 izeof(Tcl_Channe
6670: 6c 54 79 70 65 29 3b 20 2f 2a 20 42 61 73 65 20 lType); /* Base
6680: 73 69 7a 65 20 2a 2f 0a 0a 09 09 74 6c 73 43 68 size */....tlsCh
6690: 61 6e 6e 65 6c 54 79 70 65 20 3d 20 28 54 63 6c annelType = (Tcl
66a0: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 29 20 _ChannelType *)
66b0: 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 29 3b 0a 09 ckalloc(size);..
66c0: 09 6d 65 6d 73 65 74 28 28 76 6f 69 64 20 2a 29 .memset((void *)
66d0: 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2c tlsChannelType,
66e0: 20 30 2c 20 73 69 7a 65 29 3b 0a 0a 09 09 74 6c 0, size);....tl
66f0: 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 74 79 sChannelType->ty
6700: 70 65 4e 61 6d 65 09 3d 20 22 74 6c 73 22 3b 0a peName.= "tls";.
6710: 23 69 66 64 65 66 20 54 43 4c 5f 43 48 41 4e 4e #ifdef TCL_CHANN
6720: 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 0a 09 09 74 EL_VERSION_5...t
6730: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 76 lsChannelType->v
6740: 65 72 73 69 6f 6e 09 09 3d 20 54 43 4c 5f 43 48 ersion..= TCL_CH
6750: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 3b ANNEL_VERSION_5;
6760: 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 ...tlsChannelTyp
6770: 65 2d 3e 63 6c 6f 73 65 50 72 6f 63 09 3d 20 54 e->closeProc.= T
6780: 6c 73 43 6c 6f 73 65 50 72 6f 63 3b 0a 09 09 74 lsCloseProc;...t
6790: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 69 lsChannelType->i
67a0: 6e 70 75 74 50 72 6f 63 09 3d 20 54 6c 73 49 6e nputProc.= TlsIn
67b0: 70 75 74 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 putProc;...tlsCh
67c0: 61 6e 6e 65 6c 54 79 70 65 2d 3e 6f 75 74 70 75 annelType->outpu
67d0: 74 50 72 6f 63 09 3d 20 54 6c 73 4f 75 74 70 75 tProc.= TlsOutpu
67e0: 74 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e tProc;...tlsChan
67f0: 6e 65 6c 54 79 70 65 2d 3e 73 65 65 6b 50 72 6f nelType->seekPro
6800: 63 09 3d 20 4e 55 4c 4c 3b 0a 09 09 74 6c 73 43 c.= NULL;...tlsC
6810: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 73 65 74 4f hannelType->setO
6820: 70 74 69 6f 6e 50 72 6f 63 09 3d 20 54 6c 73 53 ptionProc.= TlsS
6830: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 09 09 etOptionProc;...
6840: 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e tlsChannelType->
6850: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 09 3d 20 getOptionProc.=
6860: 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 TlsGetOptionProc
6870: 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 ;...tlsChannelTy
6880: 70 65 2d 3e 77 61 74 63 68 50 72 6f 63 09 3d 20 pe->watchProc.=
6890: 54 6c 73 57 61 74 63 68 50 72 6f 63 3b 0a 09 09 TlsWatchProc;...
68a0: 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e tlsChannelType->
68b0: 67 65 74 48 61 6e 64 6c 65 50 72 6f 63 09 3d 20 getHandleProc.=
68c0: 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 TlsGetHandleProc
68d0: 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 ;...tlsChannelTy
68e0: 70 65 2d 3e 63 6c 6f 73 65 32 50 72 6f 63 09 3d pe->close2Proc.=
68f0: 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 32 3b 0a TlsCloseProc2;.
6900: 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 ..tlsChannelType
6910: 2d 3e 62 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 09 ->blockModeProc.
6920: 3d 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 = TlsBlockModePr
6930: 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c oc;...tlsChannel
6940: 54 79 70 65 2d 3e 66 6c 75 73 68 50 72 6f 63 09 Type->flushProc.
6950: 3d 20 4e 55 4c 4c 3b 0a 09 09 74 6c 73 43 68 61 = NULL;...tlsCha
6960: 6e 6e 65 6c 54 79 70 65 2d 3e 68 61 6e 64 6c 65 nnelType->handle
6970: 72 50 72 6f 63 09 3d 20 54 6c 73 4e 6f 74 69 66 rProc.= TlsNotif
6980: 79 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e yProc;...tlsChan
6990: 6e 65 6c 54 79 70 65 2d 3e 77 69 64 65 53 65 65 nelType->wideSee
69a0: 6b 50 72 6f 63 09 3d 20 4e 55 4c 4c 3b 0a 09 09 kProc.= NULL;...
69b0: 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e tlsChannelType->
69c0: 74 68 72 65 61 64 41 63 74 69 6f 6e 50 72 6f 63 threadActionProc
69d0: 3d 20 4e 55 4c 4c 3b 0a 09 09 74 6c 73 43 68 61 = NULL;...tlsCha
69e0: 6e 6e 65 6c 54 79 70 65 2d 3e 74 72 75 6e 63 61 nnelType->trunca
69f0: 74 65 50 72 6f 63 09 3d 20 4e 55 4c 4c 3b 0a 23 teProc.= NULL;.#
6a00: 65 6c 73 65 0a 09 09 74 6c 73 43 68 61 6e 6e 65 else...tlsChanne
6a10: 6c 54 79 70 65 2d 3e 76 65 72 73 69 6f 6e 09 09 lType->version..
6a20: 3d 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TCL_CHANNEL_VE
6a30: 52 53 49 4f 4e 5f 32 3b 0a 09 09 74 6c 73 43 68 RSION_2;...tlsCh
6a40: 61 6e 6e 65 6c 54 79 70 65 2d 3e 63 6c 6f 73 65 annelType->close
6a50: 50 72 6f 63 09 3d 20 54 6c 73 43 6c 6f 73 65 50 Proc.= TlsCloseP
6a60: 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 roc;...tlsChanne
6a70: 6c 54 79 70 65 2d 3e 69 6e 70 75 74 50 72 6f 63 lType->inputProc
6a80: 09 3d 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 3b .= TlsInputProc;
6a90: 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 ...tlsChannelTyp
6aa0: 65 2d 3e 6f 75 74 70 75 74 50 72 6f 63 09 3d 20 e->outputProc.=
6ab0: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 3b 0a 09 TlsOutputProc;..
6ac0: 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d .tlsChannelType-
6ad0: 3e 73 65 65 6b 50 72 6f 63 09 3d 20 4e 55 4c 4c >seekProc.= NULL
6ae0: 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 ;...tlsChannelTy
6af0: 70 65 2d 3e 73 65 74 4f 70 74 69 6f 6e 50 72 6f pe->setOptionPro
6b00: 63 09 3d 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e c.= TlsSetOption
6b10: 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e Proc;...tlsChann
6b20: 65 6c 54 79 70 65 2d 3e 67 65 74 4f 70 74 69 6f elType->getOptio
6b30: 6e 50 72 6f 63 09 3d 20 54 6c 73 47 65 74 4f 70 nProc.= TlsGetOp
6b40: 74 69 6f 6e 50 72 6f 63 3b 0a 09 09 74 6c 73 43 tionProc;...tlsC
6b50: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 77 61 74 63 hannelType->watc
6b60: 68 50 72 6f 63 09 3d 20 54 6c 73 57 61 74 63 68 hProc.= TlsWatch
6b70: 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e Proc;...tlsChann
6b80: 65 6c 54 79 70 65 2d 3e 67 65 74 48 61 6e 64 6c elType->getHandl
6b90: 65 50 72 6f 63 09 3d 20 54 6c 73 47 65 74 48 61 eProc.= TlsGetHa
6ba0: 6e 64 6c 65 50 72 6f 63 3b 0a 09 09 74 6c 73 43 ndleProc;...tlsC
6bb0: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 63 6c 6f 73 hannelType->clos
6bc0: 65 32 50 72 6f 63 09 3d 20 4e 55 4c 4c 3b 0a 09 e2Proc.= NULL;..
6bd0: 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d .tlsChannelType-
6be0: 3e 62 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 09 3d >blockModeProc.=
6bf0: 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f TlsBlockModePro
6c00: 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 c;...tlsChannelT
6c10: 79 70 65 2d 3e 66 6c 75 73 68 50 72 6f 63 09 3d ype->flushProc.=
6c20: 20 4e 55 4c 4c 3b 0a 09 09 74 6c 73 43 68 61 6e NULL;...tlsChan
6c30: 6e 65 6c 54 79 70 65 2d 3e 68 61 6e 64 6c 65 72 nelType->handler
6c40: 50 72 6f 63 09 3d 20 54 6c 73 4e 6f 74 69 66 79 Proc.= TlsNotify
6c50: 50 72 6f 63 3b 0a 23 65 6e 64 69 66 0a 09 7d 0a Proc;.#endif..}.
6c60: 09 72 65 74 75 72 6e 28 74 6c 73 43 68 61 6e 6e .return(tlsChann
6c70: 65 6c 54 79 70 65 29 3b 0a 7d 0a elType);.}.