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 20 20 20 20 74 63 6c 53 53 4c 20 28 :. * tclSSL (
0250: 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c Colin McCormack,
0260: 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f Shared Technolo
0270: 67 79 29 0a 20 2a 20 20 20 20 53 53 4c 74 63 6c gy). * SSLtcl
0280: 20 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a (Peter Antman).
0290: 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 *. */..#include
02a0: 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 "tlsInt.h".#inc
02b0: 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a 0a lude <errno.h>..
02c0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0300: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
0310: 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 lsBlockModeProc
0320: 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 54 68 69 73 --. *. * This
0330: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
0340: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e voked by the gen
0350: 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a eric IO level. *
0360: 20 20 20 20 20 20 20 74 6f 20 73 65 74 20 62 6c to set bl
0370: 6f 63 6b 69 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c ocking and nonbl
0380: 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 0a 20 2a 0a ocking modes. *.
0390: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 * Results:. *
03a0: 20 20 30 20 69 66 20 73 75 63 63 65 73 73 66 75 0 if successfu
03b0: 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72 l or POSIX error
03c0: 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e code if failed.
03d0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
03e0: 63 74 73 3a 0a 20 2a 20 20 20 20 53 65 74 73 20 cts:. * Sets
03f0: 74 68 65 20 64 65 76 69 63 65 20 69 6e 74 6f 20 the device into
0400: 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 blocking or nonb
0410: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a locking mode.. *
0420: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0460: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
0470: 63 20 69 6e 74 20 54 6c 73 42 6c 6f 63 6b 4d 6f c int TlsBlockMo
0480: 64 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 deProc(ClientDat
0490: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 a instanceData,
04a0: 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20 20 20 20 int mode) {.
04b0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
04c0: 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 = (State *) inst
04d0: 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 69 anceData;.. i
04e0: 66 20 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d f (mode == TCL_M
04f0: 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 ODE_NONBLOCKING)
0500: 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c {..statePtr->fl
0510: 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 ags |= TLS_TCL_A
0520: 53 59 4e 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 SYNC;. } else
0530: 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c {..statePtr->fl
0540: 61 67 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c ags &= ~(TLS_TCL
0550: 5f 41 53 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 _ASYNC);. }.
0560: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a return 0;.}..
0570: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
0580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
05c0: 6c 73 43 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 lsCloseProc --.
05d0: 2a 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f *. * This pro
05e0: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
05f0: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
0600: 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 IO level to per
0610: 66 6f 72 6d 0a 20 2a 20 20 20 20 63 68 61 6e 6e form. * chann
0620: 65 6c 2d 74 79 70 65 2d 73 70 65 63 69 66 69 63 el-type-specific
0630: 20 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 61 20 cleanup when a
0640: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
0650: 20 63 68 61 6e 6e 65 6c 0a 20 2a 20 20 20 20 69 channel. * i
0660: 73 20 63 6c 6f 73 65 64 2e 0a 20 2a 0a 20 2a 20 s closed.. *. *
0670: 20 20 20 4e 6f 74 65 3a 20 77 65 20 6c 65 61 76 Note: we leav
0680: 65 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 e the underlying
0690: 20 73 6f 63 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 socket alone, i
06a0: 73 20 74 68 69 73 20 72 69 67 68 74 3f 0a 20 2a s this right?. *
06b0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 . * Results:. *
06c0: 20 20 20 30 20 69 66 20 73 75 63 63 65 73 73 66 0 if successf
06d0: 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f ul or POSIX erro
06e0: 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 r code if failed
06f0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
0700: 65 63 74 73 3a 0a 20 2a 20 20 20 20 43 6c 6f 73 ects:. * Clos
0710: 65 73 20 74 68 65 20 73 6f 63 6b 65 74 20 6f 66 es the socket of
0720: 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a the channel.. *
0730: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
0740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0770: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
0780: 63 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 50 72 c int TlsClosePr
0790: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
07a0: 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f stanceData, Tcl_
07b0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
07c0: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
07d0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
07e0: 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a ) instanceData;.
07f0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 6c . dprintf("Tl
0800: 73 43 6c 6f 73 65 50 72 6f 63 28 25 70 29 22 2c sCloseProc(%p)",
0810: 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 (void *) stateP
0820: 74 72 29 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c tr);.. Tls_Cl
0830: 65 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 ean(statePtr);.
0840: 20 20 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c Tcl_Eventuall
0850: 79 46 72 65 65 28 28 43 6c 69 65 6e 74 44 61 74 yFree((ClientDat
0860: 61 29 73 74 61 74 65 50 74 72 2c 20 54 6c 73 5f a)statePtr, Tls_
0870: 46 72 65 65 29 3b 0a 20 20 20 20 72 65 74 75 72 Free);. retur
0880: 6e 20 30 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 n 0;.}..static i
0890: 6e 74 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 nt TlsClose2Proc
08a0: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
08b0: 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 anceData, /*
08c0: 54 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 The socket state
08d0: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 . */. Tcl_Int
08e0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a erp *interp,../*
08f0: 20 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 For errors - ca
0900: 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 n be NULL. */.
0910: 20 20 69 6e 74 20 66 6c 61 67 73 29 09 09 09 2f int flags).../
0920: 2a 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65 * Flags to close
0930: 20 72 65 61 64 20 61 6e 64 2f 6f 72 20 77 72 69 read and/or wri
0940: 74 65 20 73 69 64 65 20 6f 66 20 63 68 61 6e 6e te side of chann
0950: 65 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 el */.{. Stat
0960: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
0970: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
0980: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e Data;.. dprin
0990: 74 66 28 22 54 6c 73 43 6c 6f 73 65 32 50 72 6f tf("TlsClose2Pro
09a0: 63 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 c(%p)", (void *)
09b0: 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 statePtr);..
09c0: 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 28 54 if ((flags & (T
09d0: 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 7c 54 43 CL_CLOSE_READ|TC
09e0: 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 L_CLOSE_WRITE))
09f0: 3d 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 0) {..return
0a00: 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 69 6e 73 TlsCloseProc(ins
0a10: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 65 72 tanceData, inter
0a20: 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 p);. }. re
0a30: 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a turn EINVAL;.}..
0a40: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
0a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a -----------*. *.
0a80: 20 2a 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f * Tls_WaitForCo
0a90: 6e 6e 65 63 74 20 2d 2d 0a 20 2a 0a 20 2a 20 52 nnect --. *. * R
0aa0: 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 30 20 69 esult:. * 0 i
0ab0: 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 2d 31 f successful, -1
0ac0: 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 if failed.. *.
0ad0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0ae0: 20 2a 20 20 20 20 49 73 73 75 65 73 20 53 53 4c * Issues SSL
0af0: 5f 61 63 63 65 70 74 20 6f 72 20 53 53 4c 5f 63 _accept or SSL_c
0b00: 6f 6e 6e 65 63 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d onnect. *. *----
0b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b40: 2d 2d 2a 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f --*. */.int Tls_
0b50: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 53 WaitForConnect(S
0b60: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
0b70: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
0b80: 72 2c 20 69 6e 74 20 68 61 6e 64 73 68 61 6b 65 r, int handshake
0b90: 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 FailureIsPermane
0ba0: 6e 74 29 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e nt) {. unsign
0bb0: 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 ed long backingE
0bc0: 72 72 6f 72 3b 0a 20 20 20 20 69 6e 74 20 65 72 rror;. int er
0bd0: 72 2c 20 72 63 3b 0a 20 20 20 20 69 6e 74 20 62 r, rc;. int b
0be0: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 3b 0a 20 ioShouldRetry;.
0bf0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
0c00: 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e = 0;.. dprin
0c10: 74 66 28 22 57 61 69 74 46 6f 72 43 6f 6e 6e 65 tf("WaitForConne
0c20: 63 74 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a ct(%p)", (void *
0c30: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
0c40: 20 64 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 dprintFlags(sta
0c50: 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 tePtr);.. if
0c60: 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 (!(statePtr->fla
0c70: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 gs & TLS_TCL_INI
0c80: 54 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 T)) {..dprintf("
0c90: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
0ca0: 63 74 20 63 61 6c 6c 65 64 20 6f 6e 20 61 6c 72 ct called on alr
0cb0: 65 61 64 79 20 69 6e 69 74 69 61 6c 69 7a 65 64 eady initialized
0cc0: 20 63 68 61 6e 6e 65 6c 20 2d 2d 20 72 65 74 75 channel -- retu
0cd0: 72 6e 69 6e 67 20 77 69 74 68 20 69 6d 6d 65 64 rning with immed
0ce0: 69 61 74 65 20 73 75 63 63 65 73 73 22 29 3b 0a iate success");.
0cf0: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
0d00: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
0d10: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
0d20: 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 TCL_HANDSHAKE_FA
0d30: 49 4c 45 44 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 ILED) {../*.. *
0d40: 44 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 Different types
0d50: 6f 66 20 6f 70 65 72 61 74 69 6f 6e 73 20 68 61 of operations ha
0d60: 76 65 20 64 69 66 66 65 72 65 6e 74 20 72 65 71 ve different req
0d70: 75 69 72 65 6d 65 6e 74 73 0a 09 20 2a 20 53 53 uirements.. * SS
0d80: 4c 20 62 65 69 6e 67 20 65 73 74 61 62 6c 69 73 L being establis
0d90: 68 65 64 0a 09 20 2a 2f 0a 09 69 66 20 28 68 61 hed.. */..if (ha
0da0: 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 ndshakeFailureIs
0db0: 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 20 20 Permanent) {..
0dc0: 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 dprintf("Asked
0dd0: 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 to wait for a T
0de0: 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 LS handshake tha
0df0: 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 t has already fa
0e00: 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 iled. Returning
0e10: 20 66 61 74 61 6c 20 65 72 72 6f 72 22 29 3b 0a fatal error");.
0e20: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
0e30: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
0e40: 44 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 D;..} else {..
0e50: 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 dprintf("Asked
0e60: 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 to wait for a T
0e70: 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 LS handshake tha
0e80: 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 t has already fa
0e90: 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 iled. Returning
0ea0: 20 73 6f 66 74 20 65 72 72 6f 72 22 29 3b 0a 09 soft error");..
0eb0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
0ec0: 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a r = ECONNRESET;.
0ed0: 09 7d 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 .}..Tls_Error(st
0ee0: 61 74 65 50 74 72 2c 20 22 57 61 69 74 20 66 6f atePtr, "Wait fo
0ef0: 72 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 r failed handsha
0f00: 6b 65 22 29 3b 0a 09 72 65 74 75 72 6e 20 2d 31 ke");..return -1
0f10: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 ;. }.. for
0f20: 20 28 3b 3b 29 20 7b 0a 09 45 52 52 5f 63 6c 65 (;;) {..ERR_cle
0f30: 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 2f 2a ar_error();.../*
0f40: 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 Not initialized
0f50: 20 79 65 74 21 20 41 6c 73 6f 20 63 61 6c 6c 73 yet! Also calls
0f60: 20 53 53 4c 5f 64 6f 5f 68 61 6e 64 73 68 61 6b SSL_do_handshak
0f70: 65 2e 20 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 e. */..if (state
0f80: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
0f90: 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a 09 _TCL_SERVER) {..
0fa0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
0fb0: 6c 69 6e 67 20 53 53 4c 5f 61 63 63 65 70 74 28 ling SSL_accept(
0fc0: 29 22 29 3b 0a 09 20 20 20 20 65 72 72 20 3d 20 )");.. err =
0fd0: 53 53 4c 5f 61 63 63 65 70 74 28 73 74 61 74 65 SSL_accept(state
0fe0: 50 74 72 2d 3e 73 73 6c 29 3b 0a 0a 09 7d 20 65 Ptr->ssl);...} e
0ff0: 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e lse {.. dprin
1000: 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 53 4c 5f tf("Calling SSL_
1010: 63 6f 6e 6e 65 63 74 28 29 22 29 3b 0a 09 20 20 connect()");..
1020: 20 20 65 72 72 20 3d 20 53 53 4c 5f 63 6f 6e 6e err = SSL_conn
1030: 65 63 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ect(statePtr->ss
1040: 6c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 65 72 72 l);..}...if (err
1050: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 > 0) {.. dpr
1060: 69 6e 74 66 28 22 41 63 63 65 70 74 20 6f 72 20 intf("Accept or
1070: 63 6f 6e 6e 65 63 74 20 77 61 73 20 73 75 63 63 connect was succ
1080: 65 73 73 66 75 6c 22 29 3b 0a 0a 09 20 20 20 20 essful");...
1090: 65 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 err = BIO_flush(
10a0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
10b0: 09 20 20 20 20 69 66 20 28 65 72 72 20 3c 3d 20 . if (err <=
10c0: 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 0) {...dprintf("
10d0: 46 6c 75 73 68 69 6e 67 20 74 68 65 20 6c 6f 77 Flushing the low
10e0: 65 72 20 6c 61 79 65 72 73 20 66 61 69 6c 65 64 er layers failed
10f0: 2c 20 74 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 , this will prob
1100: 61 62 6c 79 20 74 65 72 6d 69 6e 61 74 65 20 74 ably terminate t
1110: 68 69 73 20 73 65 73 73 69 6f 6e 22 29 3b 0a 09 his session");..
1120: 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a }..} else {.
1130: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 63 . dprintf("Ac
1140: 63 65 70 74 20 6f 72 20 63 6f 6e 6e 65 63 74 20 cept or connect
1150: 66 61 69 6c 65 64 22 29 3b 0a 09 7d 0a 0a 09 72 failed");..}...r
1160: 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f c = SSL_get_erro
1170: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c r(statePtr->ssl,
1180: 20 65 72 72 29 3b 0a 09 62 61 63 6b 69 6e 67 45 err);..backingE
1190: 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 rror = ERR_get_e
11a0: 72 72 6f 72 28 29 3b 0a 09 69 66 20 28 72 63 20 rror();..if (rc
11b0: 21 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e != SSL_ERROR_NON
11c0: 45 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 E) {.. dprint
11d0: 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 25 69 f("Got error: %i
11e0: 20 28 72 63 20 3d 20 25 69 29 22 2c 20 65 72 72 (rc = %i)", err
11f0: 2c 20 72 63 29 3b 0a 09 20 20 20 20 64 70 72 69 , rc);.. dpri
1200: 6e 74 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 ntf("Got error:
1210: 25 73 22 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f %s", ERR_reason_
1220: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 error_string(bac
1230: 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 7d 0a kingError));..}.
1240: 0a 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 ..bioShouldRetry
1250: 20 3d 20 30 3b 0a 09 69 66 20 28 65 72 72 20 3c = 0;..if (err <
1260: 3d 20 30 29 20 7b 0a 09 20 20 20 20 69 66 20 28 = 0) {.. if (
1270: 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f rc == SSL_ERROR_
1280: 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 20 7c 7c 20 WANT_CONNECT ||
1290: 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f rc == SSL_ERROR_
12a0: 57 41 4e 54 5f 41 43 43 45 50 54 20 7c 7c 20 72 WANT_ACCEPT || r
12b0: 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 c == SSL_ERROR_W
12c0: 41 4e 54 5f 52 45 41 44 20 7c 7c 20 72 63 20 3d ANT_READ || rc =
12d0: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 = SSL_ERROR_WANT
12e0: 5f 57 52 49 54 45 29 20 7b 0a 09 09 62 69 6f 53 _WRITE) {...bioS
12f0: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a houldRetry = 1;.
1300: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
1310: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 BIO_should_retry
1320: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
1330: 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 {...bioShouldRe
1340: 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d 20 try = 1;.. }
1350: 65 6c 73 65 20 69 66 20 28 72 63 20 3d 3d 20 53 else if (rc == S
1360: 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c SL_ERROR_SYSCALL
1370: 20 26 26 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f && Tcl_GetErrno
1380: 28 29 20 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a () == EAGAIN) {.
1390: 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 ..bioShouldRetry
13a0: 20 3d 20 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 = 1;.. }..}
13b0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 69 66 20 28 else {.. if (
13c0: 21 53 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e !SSL_is_init_fin
13d0: 69 73 68 65 64 28 73 74 61 74 65 50 74 72 2d 3e ished(statePtr->
13e0: 73 73 6c 29 29 20 7b 0a 09 09 62 69 6f 53 68 6f ssl)) {...bioSho
13f0: 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 uldRetry = 1;..
1400: 20 20 20 7d 0a 09 7d 0a 0a 09 69 66 20 28 62 69 }..}...if (bi
1410: 6f 53 68 6f 75 6c 64 52 65 74 72 79 29 20 7b 0a oShouldRetry) {.
1420: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 68 . dprintf("Th
1430: 65 20 49 2f 4f 20 64 69 64 20 6e 6f 74 20 63 6f e I/O did not co
1440: 6d 70 6c 65 74 65 20 2d 2d 20 62 75 74 20 77 65 mplete -- but we
1450: 20 73 68 6f 75 6c 64 20 74 72 79 20 69 74 20 61 should try it a
1460: 67 61 69 6e 22 29 3b 0a 0a 09 20 20 20 20 69 66 gain");... if
1470: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
1480: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e s & TLS_TCL_ASYN
1490: 43 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 C) {...dprintf("
14a0: 52 65 74 75 72 6e 69 6e 67 20 45 41 47 41 49 4e Returning EAGAIN
14b0: 20 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e 20 so that it can
14c0: 62 65 20 72 65 74 72 69 65 64 20 6c 61 74 65 72 be retried later
14d0: 22 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 ");...*errorCode
14e0: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 Ptr = EAGAIN;...
14f0: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
1500: 74 72 2c 20 22 48 61 6e 64 73 68 61 6b 65 20 6e tr, "Handshake n
1510: 6f 74 20 63 6f 6d 70 6c 65 74 65 2c 20 77 69 6c ot complete, wil
1520: 6c 20 72 65 74 72 79 20 6c 61 74 65 72 22 29 3b l retry later");
1530: 0a 09 09 72 65 74 75 72 6e 20 2d 31 3b 0a 09 20 ...return -1;..
1540: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 } else {...dp
1550: 72 69 6e 74 66 28 22 44 6f 69 6e 67 20 73 6f 20 rintf("Doing so
1560: 6e 6f 77 22 29 3b 0a 09 09 63 6f 6e 74 69 6e 75 now");...continu
1570: 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 64 e;.. }..}...d
1580: 70 72 69 6e 74 66 28 22 57 65 20 68 61 76 65 20 printf("We have
1590: 65 69 74 68 65 72 20 63 6f 6d 70 6c 65 74 65 6c either completel
15a0: 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 74 68 y established th
15b0: 65 20 73 65 73 73 69 6f 6e 20 6f 72 20 63 6f 6d e session or com
15c0: 70 6c 65 74 65 6c 79 20 66 61 69 6c 65 64 20 69 pletely failed i
15d0: 74 20 2d 2d 20 74 68 65 72 65 20 69 73 20 6e 6f t -- there is no
15e0: 20 6d 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 76 more need to ev
15f0: 65 72 20 72 65 74 72 79 20 69 74 20 74 68 6f 75 er retry it thou
1600: 67 68 22 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 gh");..break;.
1610: 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 }.. switch
1620: 28 72 63 29 20 7b 0a 09 63 61 73 65 20 53 53 4c (rc) {..case SSL
1630: 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 _ERROR_NONE:..
1640: 20 20 2f 2a 20 54 68 65 20 54 4c 53 2f 53 53 4c /* The TLS/SSL
1650: 20 49 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 63 I/O operation c
1660: 6f 6d 70 6c 65 74 65 64 20 2a 2f 0a 09 20 20 20 ompleted */..
1670: 20 64 70 72 69 6e 74 66 28 22 54 68 65 20 63 6f dprintf("The co
1680: 6e 6e 65 63 74 69 6f 6e 20 69 73 20 67 6f 6f 64 nnection is good
1690: 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ");.. *errorC
16a0: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 odePtr = 0;..
16b0: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
16c0: 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 SL_ERROR_SSL:..
16d0: 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 6f /* A non-reco
16e0: 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 65 verable, fatal e
16f0: 72 72 6f 72 20 69 6e 20 74 68 65 20 53 53 4c 20 rror in the SSL
1700: 6c 69 62 72 61 72 79 20 6f 63 63 75 72 72 65 64 library occurred
1710: 2c 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 , usually a prot
1720: 6f 63 6f 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 20 ocol error */..
1730: 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f dprintf("SSL_
1740: 45 52 52 4f 52 5f 53 53 4c 3a 20 47 6f 74 20 70 ERROR_SSL: Got p
1750: 65 72 6d 61 6e 65 6e 74 20 66 61 74 61 6c 20 53 ermanent fatal S
1760: 53 4c 20 65 72 72 6f 72 2c 20 61 62 6f 72 74 69 SL error, aborti
1770: 6e 67 20 69 6d 6d 65 64 69 61 74 65 6c 79 22 29 ng immediately")
1780: 3b 0a 09 20 20 20 20 69 66 20 28 53 53 4c 5f 67 ;.. if (SSL_g
1790: 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 et_verify_result
17a0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 (statePtr->ssl)
17b0: 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a != X509_V_OK) {.
17c0: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
17d0: 65 50 74 72 2c 20 58 35 30 39 5f 76 65 72 69 66 ePtr, X509_verif
17e0: 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 y_cert_error_str
17f0: 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 ing(SSL_get_veri
1800: 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 fy_result(stateP
1810: 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 20 tr->ssl)));..
1820: 20 7d 0a 09 20 20 20 20 69 66 20 28 62 61 63 6b }.. if (back
1830: 69 6e 67 45 72 72 6f 72 20 21 3d 20 30 29 20 7b ingError != 0) {
1840: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
1850: 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f tePtr, ERR_reaso
1860: 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 n_error_string(b
1870: 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 ackingError));..
1880: 20 20 20 20 7d 0a 09 20 20 20 20 73 74 61 74 65 }.. state
1890: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c Ptr->flags |= TL
18a0: 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f S_TCL_HANDSHAKE_
18b0: 46 41 49 4c 45 44 3b 0a 09 20 20 20 20 2a 65 72 FAILED;.. *er
18c0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
18d0: 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 NNABORTED;..
18e0: 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 return -1;...cas
18f0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 e SSL_ERROR_SYSC
1900: 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f 6d ALL:.. /* Som
1910: 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c e non-recoverabl
1920: 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 72 e, fatal I/O err
1930: 6f 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a 09 or occurred */..
1940: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
1950: 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 22 29 _ERROR_SYSCALL")
1960: 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63 6b ;... if (back
1970: 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 ingError == 0 &&
1980: 20 65 72 72 20 3d 3d 20 30 29 20 7b 0a 09 09 64 err == 0) {...d
1990: 70 72 69 6e 74 66 28 22 45 4f 46 20 72 65 61 63 printf("EOF reac
19a0: 68 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f hed")...*errorCo
19b0: 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 53 dePtr = ECONNRES
19c0: 45 54 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 ET;...Tls_Error(
19d0: 73 74 61 74 65 50 74 72 2c 20 22 28 75 6e 65 78 statePtr, "(unex
19e0: 70 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 pected) EOF reac
19f0: 68 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 65 hed");... } e
1a00: 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 lse if (backingE
1a10: 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 72 rror == 0 && err
1a20: 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 == -1) {...dpri
1a30: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
1a40: 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d ccurred (errno =
1a50: 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 %lu)", (unsigne
1a60: 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 d long) Tcl_GetE
1a70: 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f rrno());...*erro
1a80: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
1a90: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 20 etErrno();...if
1aa0: 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d (*errorCodePtr =
1ab0: 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a = ECONNRESET) {.
1ac0: 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
1ad0: 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 Ptr = ECONNABORT
1ae0: 45 44 3b 0a 09 09 7d 0a 09 09 54 6c 73 5f 45 72 ED;...}...Tls_Er
1af0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 63 ror(statePtr, Tc
1b00: 6c 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 6f l_ErrnoMsg(*erro
1b10: 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 rCodePtr));...
1b20: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 } else {...dpr
1b30: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
1b40: 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 6e occurred (backin
1b50: 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20 gError = %lu)",
1b60: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09 backingError);..
1b70: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
1b80: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b Tcl_GetErrno();
1b90: 0a 09 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 ...if (*errorCod
1ba0: 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 ePtr == ECONNRES
1bb0: 45 54 29 20 7b 0a 09 09 20 20 20 20 2a 65 72 72 ET) {... *err
1bc0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
1bd0: 4e 41 42 4f 52 54 45 44 3b 0a 09 09 7d 0a 09 09 NABORTED;...}...
1be0: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
1bf0: 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 tr, ERR_reason_e
1c00: 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b rror_string(back
1c10: 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 ingError));..
1c20: 20 7d 0a 0a 09 20 20 20 20 73 74 61 74 65 50 74 }... statePt
1c30: 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f r->flags |= TLS_
1c40: 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 TCL_HANDSHAKE_FA
1c50: 49 4c 45 44 3b 0a 09 20 20 20 20 72 65 74 75 72 ILED;.. retur
1c60: 6e 20 2d 31 3b 0a 0a 09 63 61 73 65 20 53 53 4c n -1;...case SSL
1c70: 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 _ERROR_ZERO_RETU
1c80: 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 RN:.. /* The
1c90: 54 4c 53 2f 53 53 4c 20 70 65 65 72 20 68 61 73 TLS/SSL peer has
1ca0: 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e closed the conn
1cb0: 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 ection for writi
1cc0: 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 ng by sending th
1cd0: 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 e close_notify a
1ce0: 6c 65 72 74 20 2a 2f 0a 09 20 20 20 20 64 70 72 lert */.. dpr
1cf0: 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f intf("SSL_ERROR_
1d00: 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 20 43 6f 6e ZERO_RETURN: Con
1d10: 6e 65 63 74 20 72 65 74 75 72 6e 65 64 20 61 6e nect returned an
1d20: 20 69 6e 76 61 6c 69 64 20 76 61 6c 75 65 2e 2e invalid value..
1d30: 2e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 .");.. *error
1d40: 43 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c CodePtr = EINVAL
1d50: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
1d60: 28 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 72 (statePtr, "Peer
1d70: 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 has closed the
1d80: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 connection for w
1d90: 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 6e riting by sendin
1da0: 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 g the close_noti
1db0: 66 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 fy alert");..
1dc0: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 return -1;...ca
1dd0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
1de0: 54 5f 52 45 41 44 3a 0a 09 63 61 73 65 20 53 53 T_READ:..case SS
1df0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 L_ERROR_WANT_WRI
1e00: 54 45 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 TE:..case SSL_ER
1e10: 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f ROR_WANT_X509_LO
1e20: 4f 4b 55 50 3a 0a 09 63 61 73 65 20 53 53 4c 5f OKUP:..case SSL_
1e30: 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 ERROR_WANT_CONNE
1e40: 43 54 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 CT:..case SSL_ER
1e50: 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50 54 3a ROR_WANT_ACCEPT:
1e60: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
1e70: 5f 57 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 63 61 _WANT_ASYNC:..ca
1e80: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
1e90: 54 5f 41 53 59 4e 43 5f 4a 4f 42 3a 0a 09 63 61 T_ASYNC_JOB:..ca
1ea0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
1eb0: 54 5f 43 4c 49 45 4e 54 5f 48 45 4c 4c 4f 5f 43 T_CLIENT_HELLO_C
1ec0: 42 3a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 B:.#if OPENSSL_V
1ed0: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d ERSION_NUMBER >=
1ee0: 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 63 61 0x30000000L..ca
1ef0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
1f00: 54 5f 52 45 54 52 59 5f 56 45 52 49 46 59 3a 0a T_RETRY_VERIFY:.
1f10: 23 65 6e 64 69 66 0a 09 64 65 66 61 75 6c 74 3a #endif..default:
1f20: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 .. /* The ope
1f30: 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 ration did not c
1f40: 6f 6d 70 6c 65 74 65 20 61 6e 64 20 73 68 6f 75 omplete and shou
1f50: 6c 64 20 62 65 20 72 65 74 72 69 65 64 20 6c 61 ld be retried la
1f60: 74 65 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 ter. */.. dpr
1f70: 69 6e 74 66 28 22 4f 70 65 72 61 74 69 6f 6e 20 intf("Operation
1f80: 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 did not complete
1f90: 2c 20 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 , call function
1fa0: 61 67 61 69 6e 20 6c 61 74 65 72 3a 20 25 69 22 again later: %i"
1fb0: 2c 20 72 63 29 3b 0a 09 20 20 20 20 2a 65 72 72 , rc);.. *err
1fc0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
1fd0: 49 4e 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 IN;.. dprintf
1fe0: 28 22 45 52 52 28 25 64 2c 20 25 64 29 20 22 2c ("ERR(%d, %d) ",
1ff0: 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 rc, *errorCodeP
2000: 74 72 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 tr);.. Tls_Er
2010: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 4f ror(statePtr, "O
2020: 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 peration did not
2030: 20 63 6f 6d 70 6c 65 74 65 2c 20 63 61 6c 6c 20 complete, call
2040: 66 75 6e 63 74 69 6f 6e 20 61 67 61 69 6e 20 6c function again l
2050: 61 74 65 72 22 29 3b 0a 09 20 20 20 20 72 65 74 ater");.. ret
2060: 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a 20 urn -1;. }..
2070: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 6d 6f dprintf("Remo
2080: 76 69 6e 67 20 74 68 65 20 5c 22 54 4c 53 5f 54 ving the \"TLS_T
2090: 43 4c 5f 49 4e 49 54 5c 22 20 66 6c 61 67 20 73 CL_INIT\" flag s
20a0: 69 6e 63 65 20 77 65 20 68 61 76 65 20 63 6f 6d ince we have com
20b0: 70 6c 65 74 65 64 20 74 68 65 20 68 61 6e 64 73 pleted the hands
20c0: 68 61 6b 65 22 29 3b 0a 20 20 20 20 73 74 61 74 hake");. stat
20d0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e ePtr->flags &= ~
20e0: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b 0a 0a 20 TLS_TCL_INIT;..
20f0: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 dprintf("Retu
2100: 72 6e 69 6e 67 20 69 6e 20 73 75 63 63 65 73 73 rning in success
2110: 22 29 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f ");. *errorCo
2120: 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 72 dePtr = 0;. r
2130: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 eturn 0;.}../*.
2140: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2180: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 49 6e ----. *. * TlsIn
2190: 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a putProc --. *. *
21a0: 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 This procedu
21b0: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 re is invoked by
21c0: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
21d0: 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 level. * t
21e0: 6f 20 72 65 61 64 20 69 6e 70 75 74 20 66 72 6f o read input fro
21f0: 6d 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 m a SSL socket b
2200: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ased channel.. *
2210: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 . * Results:. *
2220: 20 20 20 52 65 74 75 72 6e 73 20 74 68 65 20 6e Returns the n
2230: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 72 umber of bytes r
2240: 65 61 64 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 ead or -1 on err
2250: 6f 72 2e 20 53 65 74 73 20 65 72 72 6f 72 43 6f or. Sets errorCo
2260: 64 65 50 74 72 0a 20 2a 20 20 20 20 74 6f 20 61 dePtr. * to a
2270: 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 POSIX error cod
2280: 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 e if an error oc
2290: 63 75 72 72 65 64 2c 20 6f 72 20 30 20 69 66 20 curred, or 0 if
22a0: 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 none.. *. * Side
22b0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 effects:. *
22c0: 52 65 61 64 73 20 69 6e 70 75 74 20 66 72 6f 6d Reads input from
22d0: 20 74 68 65 20 69 6e 70 75 74 20 64 65 76 69 63 the input devic
22e0: 65 20 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 6c e of the channel
22f0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
2300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
2340: 74 61 74 69 63 20 69 6e 74 20 54 6c 73 49 6e 70 tatic int TlsInp
2350: 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 utProc(ClientDat
2360: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 a instanceData,
2370: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 62 char *buf, int b
2380: 75 66 53 69 7a 65 2c 20 69 6e 74 20 2a 65 72 72 ufSize, int *err
2390: 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 orCodePtr) {.
23a0: 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 62 unsigned long b
23b0: 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 20 20 ackingError;.
23c0: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
23d0: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 = (State *) ins
23e0: 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 69 tanceData;. i
23f0: 6e 74 20 62 79 74 65 73 52 65 61 64 2c 20 65 72 nt bytesRead, er
2400: 72 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 r;. *errorCod
2410: 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 ePtr = 0;.. d
2420: 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 printf("BIO_read
2430: 28 25 64 29 22 2c 20 62 75 66 53 69 7a 65 29 3b (%d)", bufSize);
2440: 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 70 20 69 66 .. /* Skip if
2450: 20 75 73 65 72 20 76 65 72 69 66 79 20 63 61 6c user verify cal
2460: 6c 62 61 63 6b 20 69 73 20 73 74 69 6c 6c 20 72 lback is still r
2470: 75 6e 6e 69 6e 67 20 2a 2f 0a 20 20 20 20 69 66 unning */. if
2480: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
2490: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c s & TLS_TCL_CALL
24a0: 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 BACK) {..dprintf
24b0: 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 ("Callback is ru
24c0: 6e 6e 69 6e 67 2c 20 72 65 61 64 69 6e 67 20 30 nning, reading 0
24d0: 20 62 79 74 65 73 22 29 3b 0a 09 72 65 74 75 72 bytes");..retur
24e0: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
24f0: 2f 2a 20 49 66 20 6e 6f 74 20 69 6e 69 74 69 61 /* If not initia
2500: 6c 69 7a 65 64 2c 20 64 6f 20 63 6f 6e 6e 65 63 lized, do connec
2510: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 t */. if (sta
2520: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 tePtr->flags & T
2530: 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b 0a 09 LS_TCL_INIT) {..
2540: 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 74 3b 0a int tlsConnect;.
2550: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 ..dprintf("Calli
2560: 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f ng Tls_WaitForCo
2570: 6e 6e 65 63 74 22 29 3b 0a 0a 09 74 6c 73 43 6f nnect");...tlsCo
2580: 6e 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 nnect = Tls_Wait
2590: 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 ForConnect(state
25a0: 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 Ptr, errorCodePt
25b0: 72 2c 20 30 29 3b 0a 09 69 66 20 28 74 6c 73 43 r, 0);..if (tlsC
25c0: 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b 0a 09 20 onnect < 0) {..
25d0: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
25e0: 61 6e 20 65 72 72 6f 72 20 77 61 69 74 69 6e 67 an error waiting
25f0: 20 74 6f 20 63 6f 6e 6e 65 63 74 20 28 74 6c 73 to connect (tls
2600: 43 6f 6e 6e 65 63 74 20 3d 20 25 69 2c 20 2a 65 Connect = %i, *e
2610: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 25 69 rrorCodePtr = %i
2620: 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 )", tlsConnect,
2630: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a *errorCodePtr);.
2640: 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 . Tls_Error(s
2650: 74 61 74 65 50 74 72 2c 20 73 74 72 65 72 72 6f tatePtr, strerro
2660: 72 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 r(*errorCodePtr)
2670: 29 3b 0a 0a 09 20 20 20 20 62 79 74 65 73 52 65 );... bytesRe
2680: 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 69 66 ad = -1;.. if
2690: 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 (*errorCodePtr
26a0: 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b == ECONNRESET) {
26b0: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
26c0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 connection reset
26d0: 22 29 3b 0a 09 09 2f 2a 20 53 6f 66 74 20 45 4f ");.../* Soft EO
26e0: 46 20 2a 2f 0a 09 09 2a 65 72 72 6f 72 43 6f 64 F */...*errorCod
26f0: 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 ePtr = 0;...byte
2700: 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 sRead = 0;..
2710: 7d 0a 09 20 20 20 20 72 65 74 75 72 6e 20 62 79 }.. return by
2720: 74 65 73 52 65 61 64 3b 0a 09 7d 0a 20 20 20 20 tesRead;..}.
2730: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a }.. /*. *
2740: 20 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 We need to clea
2750: 72 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 r the SSL error
2760: 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 stack now becaus
2770: 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 e we sometimes r
2780: 65 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 each. * this
2790: 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c function with l
27a0: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 eftover errors i
27b0: 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 n the stack. If
27c0: 20 42 49 4f 5f 72 65 61 64 0a 20 20 20 20 20 2a BIO_read. *
27d0: 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 returns -1 and
27e0: 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 intends EAGAIN,
27f0: 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f there is a lefto
2800: 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 ver error, it wi
2810: 6c 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 73 ll be. * mis
2820: 63 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 construed as an
2830: 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 error, not EAGAI
2840: 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 2a N.. *. *
2850: 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 Alternatively,
2860: 77 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 68 we may want to h
2870: 61 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 74 andle the <0 ret
2880: 75 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a 20 urn codes from.
2890: 20 20 20 20 2a 20 42 49 4f 5f 72 65 61 64 20 73 * BIO_read s
28a0: 70 65 63 69 61 6c 6c 79 20 28 61 73 20 61 64 76 pecially (as adv
28b0: 69 73 65 64 20 69 6e 20 74 68 65 20 52 53 41 20 ised in the RSA
28c0: 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 6c 6f docs). TLS's lo
28d0: 77 65 72 20 6c 65 76 65 6c 20 42 49 4f 0a 20 20 wer level BIO.
28e0: 20 20 20 2a 20 66 75 6e 63 74 69 6f 6e 73 20 70 * functions p
28f0: 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 65 74 lay with the ret
2900: 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 2c ry flags though,
2910: 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 20 and this seems
2920: 74 6f 20 77 6f 72 6b 0a 20 20 20 20 20 2a 20 63 to work. * c
2930: 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c orrectly. Simil
2940: 61 72 20 66 69 78 20 69 6e 20 54 6c 73 4f 75 74 ar fix in TlsOut
2950: 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 73 putProc. - hobbs
2960: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 52 52 . */. ERR
2970: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
2980: 20 20 20 20 2f 2a 20 42 49 4f 5f 72 65 61 64 2c /* BIO_read,
2990: 20 77 68 65 72 65 20 30 20 6d 65 61 6e 73 20 45 where 0 means E
29a0: 4f 46 20 61 6e 64 20 2d 31 20 6d 65 61 6e 73 20 OF and -1 means
29b0: 65 72 72 6f 72 20 2a 2f 0a 20 20 20 20 62 79 74 error */. byt
29c0: 65 73 52 65 61 64 20 3d 20 42 49 4f 5f 72 65 61 esRead = BIO_rea
29d0: 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c d(statePtr->bio,
29e0: 20 62 75 66 2c 20 62 75 66 53 69 7a 65 29 3b 0a buf, bufSize);.
29f0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
2a00: 5f 72 65 61 64 20 2d 3e 20 25 64 22 2c 20 62 79 _read -> %d", by
2a10: 74 65 73 52 65 61 64 29 3b 0a 0a 20 20 20 20 65 tesRead);.. e
2a20: 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 rr = SSL_get_err
2a30: 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c or(statePtr->ssl
2a40: 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a 20 20 , bytesRead);.
2a50: 20 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d backingError =
2a60: 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 ERR_get_error()
2a70: 3b 0a 0a 20 20 20 20 69 66 20 28 62 79 74 65 73 ;.. if (bytes
2a80: 52 65 61 64 20 3c 3d 20 30 29 20 7b 0a 09 69 66 Read <= 0) {..if
2a90: 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 (BIO_should_ret
2aa0: 72 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ry(statePtr->bio
2ab0: 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 )) {.. dprint
2ac0: 66 28 22 52 65 61 64 20 66 61 69 6c 65 64 20 77 f("Read failed w
2ad0: 69 74 68 20 63 6f 64 65 3d 25 64 2c 20 62 79 74 ith code=%d, byt
2ae0: 65 73 20 72 65 61 64 3d 25 64 3a 20 73 68 6f 75 es read=%d: shou
2af0: 6c 64 20 72 65 74 72 79 22 2c 20 65 72 72 2c 20 ld retry", err,
2b00: 62 79 74 65 73 52 65 61 64 29 3b 0a 09 20 20 20 bytesRead);..
2b10: 20 2f 2a 20 53 6f 6d 65 20 64 6f 63 73 20 69 6d /* Some docs im
2b20: 70 6c 79 20 77 65 20 73 68 6f 75 6c 64 20 72 65 ply we should re
2b30: 64 6f 20 74 68 65 20 42 49 4f 5f 72 65 61 64 20 do the BIO_read
2b40: 6e 6f 77 20 2a 2f 0a 09 7d 20 65 6c 73 65 20 7b now */..} else {
2b50: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 .. dprintf("R
2b60: 65 61 64 20 66 61 69 6c 65 64 20 77 69 74 68 20 ead failed with
2b70: 63 6f 64 65 3d 25 64 2c 20 62 79 74 65 73 20 72 code=%d, bytes r
2b80: 65 61 64 3d 25 64 3a 20 65 72 72 6f 72 20 63 6f ead=%d: error co
2b90: 6e 64 69 74 69 6f 6e 22 2c 20 65 72 72 2c 20 62 ndition", err, b
2ba0: 79 74 65 73 52 65 61 64 29 3b 0a 09 7d 0a 09 0a ytesRead);..}...
2bb0: 09 2f 2a 20 54 68 65 73 65 20 61 72 65 20 74 68 ./* These are th
2bc0: 65 20 73 61 6d 65 20 61 73 20 42 49 4f 5f 72 65 e same as BIO_re
2bd0: 74 72 79 5f 74 79 70 65 20 2a 2f 0a 09 69 66 20 try_type */..if
2be0: 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 61 64 (BIO_should_read
2bf0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
2c00: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
2c10: 22 42 49 4f 20 68 61 73 20 69 6e 73 75 66 66 69 "BIO has insuffi
2c20: 63 69 65 6e 74 20 64 61 74 61 20 74 6f 20 72 65 cient data to re
2c30: 61 64 20 61 6e 64 20 72 65 74 75 72 6e 22 29 3b ad and return");
2c40: 0a 09 7d 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f ..}..if (BIO_sho
2c50: 75 6c 64 5f 77 72 69 74 65 28 73 74 61 74 65 50 uld_write(stateP
2c60: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 tr->bio)) {..
2c70: 20 64 70 72 69 6e 74 66 28 22 42 49 4f 20 68 61 dprintf("BIO ha
2c80: 73 20 70 65 6e 64 69 6e 67 20 64 61 74 61 20 74 s pending data t
2c90: 6f 20 77 72 69 74 65 22 29 3b 0a 09 7d 0a 09 69 o write");..}..i
2ca0: 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 69 6f f (BIO_should_io
2cb0: 5f 73 70 65 63 69 61 6c 28 73 74 61 74 65 50 74 _special(statePt
2cc0: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 r->bio)) {..
2cd0: 69 6e 74 20 72 65 61 73 6f 6e 20 3d 20 42 49 4f int reason = BIO
2ce0: 5f 67 65 74 5f 72 65 74 72 79 5f 72 65 61 73 6f _get_retry_reaso
2cf0: 6e 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 n(statePtr->bio)
2d00: 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
2d10: 42 49 4f 20 68 61 73 20 73 6f 6d 65 20 73 70 65 BIO has some spe
2d20: 63 69 61 6c 20 63 6f 6e 64 69 74 69 6f 6e 20 6f cial condition o
2d30: 74 68 65 72 20 74 68 61 6e 20 72 65 61 64 20 6f ther than read o
2d40: 72 20 77 72 69 74 65 3a 20 63 6f 64 65 3d 25 64 r write: code=%d
2d50: 22 2c 20 72 65 61 73 6f 6e 29 3b 0a 09 7d 0a 09 ", reason);..}..
2d60: 64 70 72 69 6e 74 66 28 22 42 49 4f 20 68 61 73 dprintf("BIO has
2d70: 20 70 65 6e 64 69 6e 67 20 64 61 74 61 20 74 6f pending data to
2d80: 20 77 72 69 74 65 22 29 3b 0a 20 20 20 20 7d 0a write");. }.
2d90: 0a 20 20 20 20 73 77 69 74 63 68 20 28 65 72 72 . switch (err
2da0: 29 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 ) {..case SSL_ER
2db0: 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 2f ROR_NONE:.. /
2dc0: 2a 20 49 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 * I/O operation
2dd0: 63 6f 6d 70 6c 65 74 65 64 20 2a 2f 0a 09 20 20 completed */..
2de0: 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 dprintf("SSL_E
2df0: 52 52 4f 52 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 RROR_NONE");..
2e00: 20 20 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 dprintBuffer(b
2e10: 75 66 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a uf, bytesRead);.
2e20: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
2e30: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c se SSL_ERROR_SSL
2e40: 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d :.. /* A non-
2e50: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
2e60: 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 al error in the
2e70: 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 75 SSL library occu
2e80: 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 rred, usually a
2e90: 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a protocol error *
2ea0: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
2eb0: 53 53 4c 20 65 72 72 6f 72 2c 20 69 6e 64 69 63 SSL error, indic
2ec0: 61 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 63 ating that the c
2ed0: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 65 onnection has be
2ee0: 65 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 09 20 en aborted");..
2ef0: 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 if (backingEr
2f00: 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c ror != 0) {...Tl
2f10: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
2f20: 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 , ERR_reason_err
2f30: 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e or_string(backin
2f40: 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d gError));.. }
2f50: 20 65 6c 73 65 20 69 66 20 28 53 53 4c 5f 67 65 else if (SSL_ge
2f60: 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 28 t_verify_result(
2f70: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 21 statePtr->ssl) !
2f80: 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 = X509_V_OK) {..
2f90: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
2fa0: 50 74 72 2c 20 58 35 30 39 5f 76 65 72 69 66 79 Ptr, X509_verify
2fb0: 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 69 _cert_error_stri
2fc0: 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 ng(SSL_get_verif
2fd0: 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 y_result(statePt
2fe0: 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 20 20 r->ssl)));..
2ff0: 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c 73 5f 45 } else {...Tls_E
3000: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 rror(statePtr, "
3010: 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 72 72 6f Unknown SSL erro
3020: 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 r");.. }..
3030: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
3040: 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 ECONNABORTED;..
3050: 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 bytesRead =
3060: 2d 31 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c -1;..#if OPENSSL
3070: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
3080: 3e 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 >= 0x30000000L..
3090: 20 20 20 20 2f 2a 20 55 6e 65 78 70 65 63 74 65 /* Unexpecte
30a0: 64 20 45 4f 46 20 66 72 6f 6d 20 74 68 65 20 70 d EOF from the p
30b0: 65 65 72 20 66 6f 72 20 4f 70 65 6e 53 53 4c 20 eer for OpenSSL
30c0: 33 2e 30 2b 20 2a 2f 0a 09 20 20 20 20 69 66 20 3.0+ */.. if
30d0: 28 45 52 52 5f 47 45 54 5f 52 45 41 53 4f 4e 28 (ERR_GET_REASON(
30e0: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 20 3d 3d backingError) ==
30f0: 20 53 53 4c 5f 52 5f 55 4e 45 58 50 45 43 54 45 SSL_R_UNEXPECTE
3100: 44 5f 45 4f 46 5f 57 48 49 4c 45 5f 52 45 41 44 D_EOF_WHILE_READ
3110: 49 4e 47 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 ING) {...dprintf
3120: 28 22 28 55 6e 65 78 70 65 63 74 65 64 29 20 45 ("(Unexpected) E
3130: 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a OF reached")...*
3140: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
3150: 3b 0a 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ;...bytesRead =
3160: 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 0;...Tls_Error(s
3170: 74 61 74 65 50 74 72 2c 20 22 45 4f 46 20 72 65 tatePtr, "EOF re
3180: 61 63 68 65 64 22 29 3b 0a 09 20 20 20 20 7d 0a ached");.. }.
3190: 23 65 6e 64 69 66 0a 09 20 20 20 20 62 72 65 61 #endif.. brea
31a0: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
31b0: 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 ROR_WANT_READ:..
31c0: 20 20 20 20 2f 2a 20 4f 70 20 64 69 64 20 6e 6f /* Op did no
31d0: 74 20 63 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 t complete due t
31e0: 6f 20 6e 6f 74 20 65 6e 6f 75 67 68 20 64 61 74 o not enough dat
31f0: 61 20 77 61 73 20 61 76 61 69 6c 61 62 6c 65 2e a was available.
3200: 20 52 65 74 72 79 20 6c 61 74 65 72 2e 20 2a 2f Retry later. */
3210: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 .. dprintf("G
3220: 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e ot SSL_ERROR_WAN
3230: 54 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e 67 20 T_READ, mapping
3240: 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 this to EAGAIN")
3250: 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 ;.. bytesRead
3260: 20 3d 20 2d 31 3b 0a 09 20 20 20 20 2a 65 72 72 = -1;.. *err
3270: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
3280: 49 4e 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 IN;.. Tls_Err
3290: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 or(statePtr, "SS
32a0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 L_ERROR_WANT_REA
32b0: 44 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b D");.. break;
32c0: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
32d0: 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 R_WANT_WRITE:..
32e0: 20 20 20 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 /* Op did not
32f0: 20 63 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f complete due to
3300: 20 75 6e 61 62 6c 65 20 74 6f 20 73 65 6e 74 20 unable to sent
3310: 61 6c 6c 20 64 61 74 61 20 74 6f 20 74 68 65 20 all data to the
3320: 42 49 4f 2e 20 52 65 74 72 79 20 6c 61 74 65 72 BIO. Retry later
3330: 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
3340: 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 f("Got SSL_ERROR
3350: 5f 57 41 4e 54 5f 57 52 49 54 45 2c 20 6d 61 70 _WANT_WRITE, map
3360: 70 69 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 ping this to EAG
3370: 41 49 4e 22 29 3b 0a 09 20 20 20 20 62 79 74 65 AIN");.. byte
3380: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 sRead = -1;..
3390: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
33a0: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 54 6c EAGAIN;.. Tl
33b0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
33c0: 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e , "SSL_ERROR_WAN
33d0: 54 5f 57 52 49 54 45 22 29 3b 0a 09 20 20 20 20 T_WRITE");..
33e0: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
33f0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 L_ERROR_WANT_X50
3400: 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 2f 9_LOOKUP:.. /
3410: 2a 20 4f 70 20 64 69 64 6e 27 74 20 63 6f 6d 70 * Op didn't comp
3420: 6c 65 74 65 20 73 69 6e 63 65 20 63 61 6c 6c 62 lete since callb
3430: 61 63 6b 20 73 65 74 20 62 79 20 53 53 4c 5f 43 ack set by SSL_C
3440: 54 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 63 65 TX_set_client_ce
3450: 72 74 5f 63 62 28 29 20 61 73 6b 65 64 20 74 6f rt_cb() asked to
3460: 20 62 65 20 63 61 6c 6c 65 64 20 61 67 61 69 6e be called again
3470: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
3480: 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f ("Got SSL_ERROR_
3490: 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 WANT_X509_LOOKUP
34a0: 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 , mapping it to
34b0: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a EAGAIN");.. *
34c0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
34d0: 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 74 65 AGAIN;.. byte
34e0: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 sRead = -1;..
34f0: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
3500: 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f Ptr, "SSL_ERROR_
3510: 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 WANT_X509_LOOKUP
3520: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ");.. break;.
3530: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
3540: 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 20 20 20 2f _SYSCALL:.. /
3550: 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 * Some non-recov
3560: 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 49 2f erable, fatal I/
3570: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 O error occurred
3580: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
3590: 28 22 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 ("SSL_ERROR_SYSC
35a0: 41 4c 4c 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 ALL");... if
35b0: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d (backingError ==
35c0: 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 20 0 && bytesRead
35d0: 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 55 6e 65 == 0) {.../* Une
35e0: 78 70 65 63 74 65 64 20 45 4f 46 20 66 72 6f 6d xpected EOF from
35f0: 20 74 68 65 20 70 65 65 72 20 66 6f 72 20 4f 70 the peer for Op
3600: 65 6e 53 53 4c 20 31 2e 31 20 2a 2f 0a 09 09 64 enSSL 1.1 */...d
3610: 70 72 69 6e 74 66 28 22 28 55 6e 65 78 70 65 63 printf("(Unexpec
3620: 74 65 64 29 20 45 4f 46 20 72 65 61 63 68 65 64 ted) EOF reached
3630: 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 ")...*errorCodeP
3640: 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 73 52 tr = 0;...bytesR
3650: 65 61 64 20 3d 20 30 3b 0a 09 09 54 6c 73 5f 45 ead = 0;...Tls_E
3660: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 rror(statePtr, "
3670: 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b 0a 0a EOF reached");..
3680: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
3690: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 backingError ==
36a0: 30 20 26 26 20 62 79 74 65 73 52 65 61 64 20 3d 0 && bytesRead =
36b0: 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e 74 = -1) {...dprint
36c0: 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 f("I/O error occ
36d0: 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 urred (errno = %
36e0: 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 lu)", (unsigned
36f0: 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 72 long) Tcl_GetErr
3700: 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 no());...*errorC
3710: 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 odePtr = Tcl_Get
3720: 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79 74 65 73 Errno();...bytes
3730: 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 Read = -1;...Tls
3740: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
3750: 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 Tcl_ErrnoMsg(*e
3760: 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a rrorCodePtr));..
3770: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 . } else {...
3780: 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 dprintf("I/O err
3790: 6f 72 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 or occurred (bac
37a0: 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 kingError = %lu)
37b0: 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 ", backingError)
37c0: 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ;...*errorCodePt
37d0: 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f r = Tcl_GetErrno
37e0: 28 29 3b 0a 09 09 62 79 74 65 73 52 65 61 64 20 ();...bytesRead
37f0: 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 6f = -1;...Tls_Erro
3800: 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 5f r(statePtr, ERR_
3810: 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 reason_error_str
3820: 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 ing(backingError
3830: 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ));.. }..
3840: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
3850: 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 L_ERROR_ZERO_RET
3860: 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 50 65 65 URN:.. /* Pee
3870: 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 r has closed the
3880: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 connection for
3890: 77 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 writing by sendi
38a0: 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 ng the close_not
38b0: 69 66 79 20 61 6c 65 72 74 2e 20 4e 6f 20 6d 6f ify alert. No mo
38c0: 72 65 20 64 61 74 61 20 63 61 6e 20 62 65 20 72 re data can be r
38d0: 65 61 64 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 ead. */.. dpr
38e0: 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 intf("Got SSL_ER
38f0: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 2c ROR_ZERO_RETURN,
3900: 20 74 68 69 73 20 6d 65 61 6e 73 20 61 6e 20 45 this means an E
3910: 4f 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 63 OF has been reac
3920: 68 65 64 22 29 3b 0a 09 20 20 20 20 62 79 74 65 hed");.. byte
3930: 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 sRead = 0;..
3940: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3950: 30 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 0;.. Tls_Erro
3960: 72 28 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 r(statePtr, "Pee
3970: 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 r has closed the
3980: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 connection for
3990: 77 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 writing by sendi
39a0: 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 ng the close_not
39b0: 69 66 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 ify alert");..
39c0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
39d0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 SSL_ERROR_WANT_A
39e0: 53 59 4e 43 3a 0a 09 20 20 20 20 2f 2a 20 55 73 SYNC:.. /* Us
39f0: 65 64 20 77 69 74 68 20 66 6c 61 67 20 53 53 4c ed with flag SSL
3a00: 5f 4d 4f 44 45 5f 41 53 59 4e 43 2c 20 6f 70 20 _MODE_ASYNC, op
3a10: 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 74 65 20 didn't complete
3a20: 62 65 63 61 75 73 65 20 61 6e 20 61 73 79 6e 63 because an async
3a30: 20 65 6e 67 69 6e 65 20 69 73 20 73 74 69 6c 6c engine is still
3a40: 20 70 72 6f 63 65 73 73 69 6e 67 20 64 61 74 61 processing data
3a50: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
3a60: 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f ("Got SSL_ERROR_
3a70: 57 41 4e 54 5f 41 53 59 4e 43 2c 20 6d 61 70 70 WANT_ASYNC, mapp
3a80: 69 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 41 ing this to EAGA
3a90: 49 4e 22 29 3b 0a 09 20 20 20 20 62 79 74 65 73 IN");.. bytes
3aa0: 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 Read = -1;..
3ab0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3ac0: 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 54 6c 73 EAGAIN;.. Tls
3ad0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
3ae0: 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 "SSL_ERROR_WANT
3af0: 5f 41 53 59 4e 43 22 29 3b 0a 09 20 20 20 20 62 _ASYNC");.. b
3b00: 72 65 61 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 3a reak;...default:
3b10: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 55 .. dprintf("U
3b20: 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 20 28 65 72 nknown error (er
3b30: 72 20 3d 20 25 69 29 2c 20 6d 61 70 70 69 6e 67 r = %i), mapping
3b40: 20 74 6f 20 45 4f 46 22 2c 20 65 72 72 29 3b 0a to EOF", err);.
3b50: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3b60: 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 tr = 0;.. byt
3b70: 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 esRead = 0;..
3b80: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
3b90: 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 65 72 Ptr, "Unknown er
3ba0: 72 6f 72 22 29 3b 0a 09 20 20 20 20 62 72 65 61 ror");.. brea
3bb0: 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 k;. }.. dp
3bc0: 72 69 6e 74 66 28 22 49 6e 70 75 74 28 25 64 29 rintf("Input(%d)
3bd0: 20 2d 3e 20 25 64 20 5b 25 64 5d 22 2c 20 62 75 -> %d [%d]", bu
3be0: 66 53 69 7a 65 2c 20 62 79 74 65 73 52 65 61 64 fSize, bytesRead
3bf0: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 , *errorCodePtr)
3c00: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 ;. return byt
3c10: 65 73 52 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a esRead;.}../*. *
3c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c60: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f 75 74 ---. *. * TlsOut
3c70: 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a putProc --. *. *
3c80: 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 This procedu
3c90: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 re is invoked by
3ca0: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
3cb0: 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 level. * t
3cc0: 6f 20 77 72 69 74 65 20 6f 75 74 70 75 74 20 74 o write output t
3cd0: 6f 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 o a SSL socket b
3ce0: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ased channel.. *
3cf0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 . * Results:. *
3d00: 20 20 20 52 65 74 75 72 6e 73 20 74 68 65 20 6e Returns the n
3d10: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 umber of bytes w
3d20: 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 6f 6e 20 ritten or -1 on
3d30: 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f error. Sets erro
3d40: 72 43 6f 64 65 50 74 72 0a 20 2a 20 20 20 20 74 rCodePtr. * t
3d50: 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 o a POSIX error
3d60: 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 code if an error
3d70: 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 30 20 occurred, or 0
3d80: 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 if none.. *. * S
3d90: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 ide effects:. *
3da0: 20 20 20 57 72 69 74 65 73 20 6f 75 74 70 75 74 Writes output
3db0: 20 6f 6e 20 74 68 65 20 6f 75 74 70 75 74 20 64 on the output d
3dc0: 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 61 evice of the cha
3dd0: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
3de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3df0: 2d 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 0a 20 --------------.
3e20: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
3e30: 73 4f 75 74 70 75 74 50 72 6f 63 28 43 6c 69 65 sOutputProc(Clie
3e40: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 ntData instanceD
3e50: 61 74 61 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 ata, const char
3e60: 2a 62 75 66 2c 20 69 6e 74 20 74 6f 57 72 69 74 *buf, int toWrit
3e70: 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 e, int *errorCod
3e80: 65 50 74 72 29 20 7b 0a 20 20 20 20 75 6e 73 69 ePtr) {. unsi
3e90: 67 6e 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e gned long backin
3ea0: 67 45 72 72 6f 72 3b 0a 20 20 20 20 53 74 61 74 gError;. Stat
3eb0: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
3ec0: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
3ed0: 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 77 72 Data;. int wr
3ee0: 69 74 74 65 6e 2c 20 65 72 72 3b 0a 20 20 20 20 itten, err;.
3ef0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3f00: 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 0;.. dprintf(
3f10: 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c 20 25 "BIO_write(%p, %
3f20: 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 d)", (void *) st
3f30: 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 29 atePtr, toWrite)
3f40: 3b 0a 20 20 20 20 64 70 72 69 6e 74 42 75 66 66 ;. dprintBuff
3f50: 65 72 28 62 75 66 2c 20 74 6f 57 72 69 74 65 29 er(buf, toWrite)
3f60: 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 70 20 69 ;.. /* Skip i
3f70: 66 20 75 73 65 72 20 76 65 72 69 66 79 20 63 61 f user verify ca
3f80: 6c 6c 62 61 63 6b 20 69 73 20 73 74 69 6c 6c 20 llback is still
3f90: 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 20 20 20 69 running */. i
3fa0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
3fb0: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c gs & TLS_TCL_CAL
3fc0: 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 LBACK) {..dprint
3fd0: 66 28 22 44 6f 6e 27 74 20 70 72 6f 63 65 73 73 f("Don't process
3fe0: 20 6f 75 74 70 75 74 20 77 68 69 6c 65 20 63 61 output while ca
3ff0: 6c 6c 62 61 63 6b 73 20 61 72 65 20 72 75 6e 6e llbacks are runn
4000: 69 6e 67 22 29 3b 0a 09 77 72 69 74 74 65 6e 20 ing");..written
4010: 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 = -1;..*errorCod
4020: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
4030: 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d return -1;. }
4040: 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e 6f 74 20 .. /* If not
4050: 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 64 6f 20 initialized, do
4060: 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 20 20 69 connect */. i
4070: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
4080: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 gs & TLS_TCL_INI
4090: 54 29 20 7b 0a 09 69 6e 74 20 74 6c 73 43 6f 6e T) {..int tlsCon
40a0: 6e 65 63 74 3b 0a 0a 09 64 70 72 69 6e 74 66 28 nect;...dprintf(
40b0: 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 "Calling Tls_Wai
40c0: 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a tForConnect");..
40d0: 09 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c .tlsConnect = Tl
40e0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
40f0: 28 73 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 (statePtr, error
4100: 43 6f 64 65 50 74 72 2c 20 31 29 3b 0a 09 69 66 CodePtr, 1);..if
4110: 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 (tlsConnect < 0
4120: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
4130: 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 ("Got an error w
4140: 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 aiting to connec
4150: 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 t (tlsConnect =
4160: 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 %i, *errorCodePt
4170: 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e r = %i)", tlsCon
4180: 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 65 nect, *errorCode
4190: 50 74 72 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 Ptr);.. Tls_E
41a0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 rror(statePtr, s
41b0: 74 72 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f trerror(*errorCo
41c0: 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 20 77 dePtr));... w
41d0: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 ritten = -1;..
41e0: 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 if (*errorCode
41f0: 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 Ptr == ECONNRESE
4200: 54 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 T) {...dprintf("
4210: 47 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 Got connection r
4220: 65 73 65 74 22 29 3b 0a 09 09 2f 2a 20 53 6f 66 eset");.../* Sof
4230: 74 20 45 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 6f t EOF */...*erro
4240: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 rCodePtr = 0;...
4250: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 written = 0;..
4260: 20 20 7d 0a 09 20 20 20 20 72 65 74 75 72 6e 20 }.. return
4270: 77 72 69 74 74 65 6e 3b 0a 09 7d 0a 20 20 20 20 written;..}.
4280: 7d 0a 0a 20 20 20 20 69 66 20 28 74 6f 57 72 69 }.. if (toWri
4290: 74 65 20 3d 3d 20 30 29 20 7b 0a 09 64 70 72 69 te == 0) {..dpri
42a0: 6e 74 66 28 22 7a 65 72 6f 2d 77 72 69 74 65 22 ntf("zero-write"
42b0: 29 3b 0a 09 65 72 72 20 3d 20 42 49 4f 5f 66 6c );..err = BIO_fl
42c0: 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ush(statePtr->bi
42d0: 6f 29 3b 0a 0a 09 69 66 20 28 65 72 72 20 3c 3d o);...if (err <=
42e0: 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 0) {.. dprin
42f0: 74 66 28 22 46 6c 75 73 68 69 6e 67 20 66 61 69 tf("Flushing fai
4300: 6c 65 64 22 29 3b 0a 09 20 20 20 20 54 6c 73 5f led");.. Tls_
4310: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
4320: 22 46 6c 75 73 68 20 66 61 69 6c 65 64 22 29 3b "Flush failed");
4330: 0a 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ... *errorCod
4340: 65 50 74 72 20 3d 20 45 49 4f 3b 0a 09 20 20 20 ePtr = EIO;..
4350: 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 written = 0;..
4360: 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 09 7d return -1;..}
4370: 0a 0a 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a ...written = 0;.
4380: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
4390: 20 30 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 0;..return 0;.
43a0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 }.. /*.
43b0: 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 * We need to c
43c0: 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 lear the SSL err
43d0: 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 or stack now bec
43e0: 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 ause we sometime
43f0: 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a 20 74 s reach. * t
4400: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 his function wit
4410: 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 h leftover error
4420: 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 s in the stack.
4430: 20 49 66 20 42 49 4f 5f 77 72 69 74 65 0a 20 20 If BIO_write.
4440: 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 * returns -1
4450: 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 and intends EAGA
4460: 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c IN, there is a l
4470: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 eftover error, i
4480: 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a t will be. *
4490: 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 misconstrued as
44a0: 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 an error, not E
44b0: 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 AGAIN.. *.
44c0: 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 * Alternative
44d0: 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 20 ly, we may want
44e0: 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 to handle the <0
44f0: 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 72 return codes fr
4500: 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f 77 72 om. * BIO_wr
4510: 69 74 65 20 73 70 65 63 69 61 6c 6c 79 20 28 61 ite specially (a
4520: 73 20 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 s advised in the
4530: 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 RSA docs). TLS
4540: 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c 0a 20 's lower level.
4550: 20 20 20 20 2a 20 42 49 4f 20 66 75 6e 63 74 69 * BIO functi
4560: 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 20 74 68 ons play with th
4570: 65 20 72 65 74 72 79 20 66 6c 61 67 73 20 74 68 e retry flags th
4580: 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 73 20 73 ough, and this s
4590: 65 65 6d 73 20 74 6f 0a 20 20 20 20 20 2a 20 77 eems to. * w
45a0: 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 ork correctly.
45b0: 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 54 Similar fix in T
45c0: 6c 73 49 6e 70 75 74 50 72 6f 63 2e 20 2d 20 68 lsInputProc. - h
45d0: 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 obbs. */.
45e0: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 ERR_clear_error
45f0: 28 29 3b 0a 20 20 20 20 2f 2a 20 53 53 4c 5f 77 ();. /* SSL_w
4600: 72 69 74 65 20 77 69 6c 6c 20 72 65 74 75 72 6e rite will return
4610: 20 31 20 66 6f 72 20 73 75 63 63 65 73 73 20 6f 1 for success o
4620: 72 20 30 20 66 6f 72 20 66 61 69 6c 75 72 65 20 r 0 for failure
4630: 2a 2f 0a 20 20 20 20 77 72 69 74 74 65 6e 20 3d */. written =
4640: 20 42 49 4f 5f 77 72 69 74 65 28 73 74 61 74 65 BIO_write(state
4650: 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 74 Ptr->bio, buf, t
4660: 6f 57 72 69 74 65 29 3b 0a 20 20 20 20 64 70 72 oWrite);. dpr
4670: 69 6e 74 66 28 22 42 49 4f 5f 77 72 69 74 65 28 intf("BIO_write(
4680: 25 70 2c 20 25 64 29 20 2d 3e 20 5b 25 64 5d 22 %p, %d) -> [%d]"
4690: 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 , (void *) state
46a0: 50 74 72 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 Ptr, toWrite, wr
46b0: 69 74 74 65 6e 29 3b 0a 0a 20 20 20 20 65 72 72 itten);.. err
46c0: 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 = SSL_get_error
46d0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
46e0: 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 62 61 written);. ba
46f0: 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 ckingError = ERR
4700: 5f 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 _get_error();..
4710: 20 20 20 69 66 20 28 77 72 69 74 74 65 6e 20 3c if (written <
4720: 3d 20 30 29 20 7b 0a 09 69 66 20 28 42 49 4f 5f = 0) {..if (BIO_
4730: 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 should_retry(sta
4740: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
4750: 20 20 20 20 64 70 72 69 6e 74 66 28 22 57 72 69 dprintf("Wri
4760: 74 65 20 66 61 69 6c 65 64 20 77 69 74 68 20 63 te failed with c
4770: 6f 64 65 20 25 64 2c 20 62 79 74 65 73 20 77 72 ode %d, bytes wr
4780: 69 74 74 65 6e 3d 25 64 3a 20 73 68 6f 75 6c 64 itten=%d: should
4790: 20 72 65 74 72 79 22 2c 20 65 72 72 2c 20 77 72 retry", err, wr
47a0: 69 74 74 65 6e 29 3b 0a 09 7d 20 65 6c 73 65 20 itten);..} else
47b0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
47c0: 57 72 69 74 65 20 66 61 69 6c 65 64 20 77 69 74 Write failed wit
47d0: 68 20 63 6f 64 65 20 25 64 2c 20 62 79 74 65 73 h code %d, bytes
47e0: 20 77 72 69 74 74 65 6e 3d 25 64 3a 20 65 72 72 written=%d: err
47f0: 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 22 2c 20 65 or condition", e
4800: 72 72 2c 20 77 72 69 74 74 65 6e 29 3b 0a 09 7d rr, written);..}
4810: 0a 09 0a 09 2f 2a 20 54 68 65 73 65 20 61 72 65 ..../* These are
4820: 20 74 68 65 20 73 61 6d 65 20 61 73 20 42 49 4f the same as BIO
4830: 5f 72 65 74 72 79 5f 74 79 70 65 20 2a 2f 0a 09 _retry_type */..
4840: 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 if (BIO_should_r
4850: 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ead(statePtr->bi
4860: 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e o)) {.. dprin
4870: 74 66 28 22 42 49 4f 20 68 61 73 20 69 6e 73 75 tf("BIO has insu
4880: 66 66 69 63 69 65 6e 74 20 64 61 74 61 20 74 6f fficient data to
4890: 20 72 65 61 64 20 61 6e 64 20 72 65 74 75 72 6e read and return
48a0: 22 29 3b 0a 09 7d 0a 09 69 66 20 28 42 49 4f 5f ");..}..if (BIO_
48b0: 73 68 6f 75 6c 64 5f 77 72 69 74 65 28 73 74 61 should_write(sta
48c0: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
48d0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
48e0: 20 68 61 73 20 70 65 6e 64 69 6e 67 20 64 61 74 has pending dat
48f0: 61 20 74 6f 20 77 72 69 74 65 22 29 3b 0a 09 7d a to write");..}
4900: 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 ..if (BIO_should
4910: 5f 69 6f 5f 73 70 65 63 69 61 6c 28 73 74 61 74 _io_special(stat
4920: 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 ePtr->bio)) {..
4930: 20 20 20 69 6e 74 20 72 65 61 73 6f 6e 20 3d 20 int reason =
4940: 42 49 4f 5f 67 65 74 5f 72 65 74 72 79 5f 72 65 BIO_get_retry_re
4950: 61 73 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e 62 ason(statePtr->b
4960: 69 6f 29 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 io);.. dprint
4970: 66 28 22 42 49 4f 20 68 61 73 20 73 6f 6d 65 20 f("BIO has some
4980: 73 70 65 63 69 61 6c 20 63 6f 6e 64 69 74 69 6f special conditio
4990: 6e 20 6f 74 68 65 72 20 74 68 61 6e 20 72 65 61 n other than rea
49a0: 64 20 6f 72 20 77 72 69 74 65 3a 20 63 6f 64 65 d or write: code
49b0: 3d 25 64 22 2c 20 72 65 61 73 6f 6e 29 3b 0a 09 =%d", reason);..
49c0: 7d 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f 20 }..dprintf("BIO
49d0: 68 61 73 20 70 65 6e 64 69 6e 67 20 64 61 74 61 has pending data
49e0: 20 74 6f 20 77 72 69 74 65 22 29 3b 0a 0a 20 20 to write");..
49f0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 42 49 4f 5f } else {..BIO_
4a00: 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e flush(statePtr->
4a10: 62 69 6f 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 bio);. }..
4a20: 20 73 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a switch (err) {.
4a30: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
4a40: 4e 4f 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 49 2f NONE:.. /* I/
4a50: 4f 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6d 70 O operation comp
4a60: 6c 65 74 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 leted */.. dp
4a70: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
4a80: 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 20 20 69 66 _NONE");.. if
4a90: 20 28 77 72 69 74 74 65 6e 20 3c 20 30 29 20 7b (written < 0) {
4aa0: 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a ...written = 0;.
4ab0: 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 65 61 . }.. brea
4ac0: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
4ad0: 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 2f 2a ROR_SSL:.. /*
4ae0: 20 41 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 A non-recoverab
4af0: 6c 65 2c 20 66 61 74 61 6c 20 65 72 72 6f 72 20 le, fatal error
4b00: 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62 72 61 in the SSL libra
4b10: 72 79 20 6f 63 63 75 72 72 65 64 2c 20 75 73 75 ry occurred, usu
4b20: 61 6c 6c 79 20 61 20 70 72 6f 74 6f 63 6f 6c 20 ally a protocol
4b30: 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 64 70 error */.. dp
4b40: 72 69 6e 74 66 28 22 53 53 4c 20 65 72 72 6f 72 rintf("SSL error
4b50: 2c 20 69 6e 64 69 63 61 74 69 6e 67 20 74 68 61 , indicating tha
4b60: 74 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e t the connection
4b70: 20 68 61 73 20 62 65 65 6e 20 61 62 6f 72 74 65 has been aborte
4b80: 64 22 29 3b 0a 09 20 20 20 20 69 66 20 28 62 61 d");.. if (ba
4b90: 63 6b 69 6e 67 45 72 72 6f 72 20 21 3d 20 30 29 ckingError != 0)
4ba0: 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 {...Tls_Error(s
4bb0: 74 61 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 tatePtr, ERR_rea
4bc0: 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 son_error_string
4bd0: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b (backingError));
4be0: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
4bf0: 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f (SSL_get_verify_
4c00: 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d result(statePtr-
4c10: 3e 73 73 6c 29 20 21 3d 20 58 35 30 39 5f 56 5f >ssl) != X509_V_
4c20: 4f 4b 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f OK) {...Tls_Erro
4c30: 72 28 73 74 61 74 65 50 74 72 2c 20 58 35 30 39 r(statePtr, X509
4c40: 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 72 _verify_cert_err
4c50: 6f 72 5f 73 74 72 69 6e 67 28 53 53 4c 5f 67 65 or_string(SSL_ge
4c60: 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 28 t_verify_result(
4c70: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 29 statePtr->ssl)))
4c80: 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
4c90: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
4ca0: 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 53 ePtr, "Unknown S
4cb0: 53 4c 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 SL error");..
4cc0: 20 7d 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f }.. *errorCo
4cd0: 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f dePtr = ECONNABO
4ce0: 52 54 45 44 3b 0a 09 20 20 20 20 77 72 69 74 74 RTED;.. writt
4cf0: 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 62 72 en = -1;.. br
4d00: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
4d10: 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a ERROR_WANT_READ:
4d20: 0a 09 20 20 20 20 2f 2a 20 4f 70 20 64 69 64 20 .. /* Op did
4d30: 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 64 75 65 not complete due
4d40: 20 74 6f 20 6e 6f 74 20 65 6e 6f 75 67 68 20 64 to not enough d
4d50: 61 74 61 20 77 61 73 20 61 76 61 69 6c 61 62 6c ata was availabl
4d60: 65 2e 20 52 65 74 72 79 20 6c 61 74 65 72 2e 20 e. Retry later.
4d70: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
4d80: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
4d90: 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e ANT_READ, mappin
4da0: 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 29 g it to EAGAIN")
4db0: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
4dc0: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
4dd0: 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 written = -1
4de0: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
4df0: 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 4c 5f (statePtr, "SSL_
4e00: 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 22 ERROR_WANT_READ"
4e10: 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a );.. break;..
4e20: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
4e30: 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 20 WANT_WRITE:..
4e40: 20 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 20 63 /* Op did not c
4e50: 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 75 omplete due to u
4e60: 6e 61 62 6c 65 20 74 6f 20 73 65 6e 74 20 61 6c nable to sent al
4e70: 6c 20 64 61 74 61 20 74 6f 20 74 68 65 20 42 49 l data to the BI
4e80: 4f 2e 20 52 65 74 72 79 20 6c 61 74 65 72 2e 20 O. Retry later.
4e90: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
4ea0: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
4eb0: 41 4e 54 5f 57 52 49 54 45 2c 20 6d 61 70 70 69 ANT_WRITE, mappi
4ec0: 6e 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 ng it to EAGAIN"
4ed0: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
4ee0: 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a dePtr = EAGAIN;.
4ef0: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
4f00: 31 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 1;.. Tls_Erro
4f10: 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 4c r(statePtr, "SSL
4f20: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 _ERROR_WANT_WRIT
4f30: 45 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b E");.. break;
4f40: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
4f50: 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b R_WANT_X509_LOOK
4f60: 55 50 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 20 64 UP:.. /* Op d
4f70: 69 64 6e 27 74 20 63 6f 6d 70 6c 65 74 65 20 73 idn't complete s
4f80: 69 6e 63 65 20 63 61 6c 6c 62 61 63 6b 20 73 65 ince callback se
4f90: 74 20 62 79 20 53 53 4c 5f 43 54 58 5f 73 65 74 t by SSL_CTX_set
4fa0: 5f 63 6c 69 65 6e 74 5f 63 65 72 74 5f 63 62 28 _client_cert_cb(
4fb0: 29 20 61 73 6b 65 64 20 74 6f 20 62 65 20 63 61 ) asked to be ca
4fc0: 6c 6c 65 64 20 61 67 61 69 6e 20 2a 2f 0a 09 20 lled again */..
4fd0: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
4fe0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 SSL_ERROR_WANT_X
4ff0: 35 30 39 5f 4c 4f 4f 4b 55 50 2c 20 6d 61 70 70 509_LOOKUP, mapp
5000: 69 6e 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e ing it to EAGAIN
5010: 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ");.. *errorC
5020: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
5030: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 .. written =
5040: 2d 31 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 -1;.. Tls_Err
5050: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 or(statePtr, "SS
5060: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 L_ERROR_WANT_X50
5070: 39 5f 4c 4f 4f 4b 55 50 22 29 3b 0a 09 20 20 20 9_LOOKUP");..
5080: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
5090: 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c SL_ERROR_SYSCALL
50a0: 3a 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e :.. /* Some n
50b0: 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 on-recoverable,
50c0: 66 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 fatal I/O error
50d0: 6f 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 20 20 occurred */..
50e0: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 dprintf("SSL_ER
50f0: 52 4f 52 5f 53 59 53 43 41 4c 4c 22 29 3b 0a 0a ROR_SYSCALL");..
5100: 09 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 . if (backing
5110: 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 Error == 0 && wr
5120: 69 74 74 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 itten == 0) {...
5130: 64 70 72 69 6e 74 66 28 22 45 4f 46 20 72 65 61 dprintf("EOF rea
5140: 63 68 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 ched")...*errorC
5150: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 77 72 odePtr = 0;...wr
5160: 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 54 6c 73 itten = 0;...Tls
5170: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
5180: 20 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b "EOF reached");
5190: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
51a0: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d (backingError =
51b0: 3d 20 30 20 26 26 20 77 72 69 74 74 65 6e 20 3d = 0 && written =
51c0: 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e 74 = -1) {...dprint
51d0: 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 f("I/O error occ
51e0: 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 urred (errno = %
51f0: 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 lu)", (unsigned
5200: 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 72 long) Tcl_GetErr
5210: 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 no());...*errorC
5220: 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 odePtr = Tcl_Get
5230: 45 72 72 6e 6f 28 29 3b 0a 09 09 77 72 69 74 74 Errno();...writt
5240: 65 6e 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 en = -1;...Tls_E
5250: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 rror(statePtr, T
5260: 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 cl_ErrnoMsg(*err
5270: 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 orCodePtr));...
5280: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 } else {...dp
5290: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
52a0: 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 occurred (backi
52b0: 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c ngError = %lu)",
52c0: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a backingError);.
52d0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
52e0: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 = Tcl_GetErrno()
52f0: 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 ;...written = -1
5300: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
5310: 61 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 atePtr, ERR_reas
5320: 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 on_error_string(
5330: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a backingError));.
5340: 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 65 61 . }.. brea
5350: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
5360: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
5370: 0a 09 20 20 20 20 2f 2a 20 50 65 65 72 20 68 61 .. /* Peer ha
5380: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
5390: 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 nection for writ
53a0: 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 ing by sending t
53b0: 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 he close_notify
53c0: 61 6c 65 72 74 2e 20 4e 6f 20 6d 6f 72 65 20 64 alert. No more d
53d0: 61 74 61 20 63 61 6e 20 62 65 20 72 65 61 64 2e ata can be read.
53e0: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
53f0: 28 22 20 63 6c 6f 73 65 64 22 29 3b 0a 09 20 20 (" closed");..
5400: 20 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 written = 0;..
5410: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
5420: 72 20 3d 20 30 3b 0a 09 20 20 20 20 54 6c 73 5f r = 0;.. Tls_
5430: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
5440: 22 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 64 "Peer has closed
5450: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 the connection
5460: 66 6f 72 20 77 72 69 74 69 6e 67 20 62 79 20 73 for writing by s
5470: 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 ending the close
5480: 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 22 29 3b _notify alert");
5490: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
54a0: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
54b0: 4e 54 5f 41 53 59 4e 43 3a 0a 09 20 20 20 20 2f NT_ASYNC:.. /
54c0: 2a 20 55 73 65 64 20 77 69 74 68 20 66 6c 61 67 * Used with flag
54d0: 20 53 53 4c 5f 4d 4f 44 45 5f 41 53 59 4e 43 2c SSL_MODE_ASYNC,
54e0: 20 6f 70 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c op didn't compl
54f0: 65 74 65 20 62 65 63 61 75 73 65 20 61 6e 20 61 ete because an a
5500: 73 79 6e 63 20 65 6e 67 69 6e 65 20 69 73 20 73 sync engine is s
5510: 74 69 6c 6c 20 70 72 6f 63 65 73 73 69 6e 67 20 till processing
5520: 64 61 74 61 20 2a 2f 0a 09 20 20 20 20 64 70 72 data */.. dpr
5530: 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 intf("Got SSL_ER
5540: 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 2c 20 ROR_WANT_ASYNC,
5550: 6d 61 70 70 69 6e 67 20 74 68 69 73 20 74 6f 20 mapping this to
5560: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a EAGAIN");.. *
5570: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
5580: 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 AGAIN;.. writ
5590: 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 54 ten = -1;.. T
55a0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
55b0: 72 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 r, "SSL_ERROR_WA
55c0: 4e 54 5f 41 53 59 4e 43 22 29 3b 0a 09 20 20 20 NT_ASYNC");..
55d0: 20 62 72 65 61 6b 3b 0a 0a 09 64 65 66 61 75 6c break;...defaul
55e0: 74 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 t:.. dprintf(
55f0: 22 75 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 3a 20 "unknown error:
5600: 25 64 22 2c 20 65 72 72 29 3b 0a 09 20 20 20 20 %d", err);..
5610: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
5620: 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 tr, "Unknown err
5630: 6f 72 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b or");.. break
5640: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 ;. }.. dpr
5650: 69 6e 74 66 28 22 4f 75 74 70 75 74 28 25 64 29 intf("Output(%d)
5660: 20 2d 3e 20 25 64 22 2c 20 74 6f 57 72 69 74 65 -> %d", toWrite
5670: 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 , written);.
5680: 72 65 74 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a return written;.
5690: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
56a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
56e0: 2a 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 20 * Tls_GetParent
56f0: 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 47 65 74 20 --. *. * Get
5700: 70 61 72 65 6e 74 20 66 6f 72 20 73 74 61 63 6b parent for stack
5710: 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 ed channel.. *.
5720: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 * Results:. *
5730: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 6f 72 20 Tcl_Channel or
5740: 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a NULL if none.. *
5750: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5790: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 54 63 6c 5f 43 ------. */.Tcl_C
57a0: 68 61 6e 6e 65 6c 20 54 6c 73 5f 47 65 74 50 61 hannel Tls_GetPa
57b0: 72 65 6e 74 28 53 74 61 74 65 20 2a 73 74 61 74 rent(State *stat
57c0: 65 50 74 72 2c 20 69 6e 74 20 6d 61 73 6b 46 6c ePtr, int maskFl
57d0: 61 67 73 29 20 7b 0a 20 20 20 20 64 70 72 69 6e ags) {. dprin
57e0: 74 66 28 22 52 65 71 75 65 73 74 65 64 20 74 6f tf("Requested to
57f0: 20 67 65 74 20 70 61 72 65 6e 74 20 6f 66 20 63 get parent of c
5800: 68 61 6e 6e 65 6c 20 25 70 22 2c 20 73 74 61 74 hannel %p", stat
5810: 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 20 20 ePtr->self);..
5820: 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 2d if ((statePtr-
5830: 3e 66 6c 61 67 73 20 26 20 7e 6d 61 73 6b 46 6c >flags & ~maskFl
5840: 61 67 73 29 20 26 20 54 4c 53 5f 54 43 4c 5f 46 ags) & TLS_TCL_F
5850: 41 53 54 50 41 54 48 29 20 7b 0a 09 64 70 72 69 ASTPATH) {..dpri
5860: 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 67 65 ntf("Asked to ge
5870: 74 20 74 68 65 20 70 61 72 65 6e 74 20 63 68 61 t the parent cha
5880: 6e 6e 65 6c 20 77 68 69 6c 65 20 77 65 20 61 72 nnel while we ar
5890: 65 20 75 73 69 6e 67 20 46 61 73 74 50 61 74 68 e using FastPath
58a0: 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 4e 55 -- returning NU
58b0: 4c 4c 22 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 LL");..return NU
58c0: 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 LL;. }. re
58d0: 74 75 72 6e 20 54 63 6c 5f 47 65 74 53 74 61 63 turn Tcl_GetStac
58e0: 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 kedChannel(state
58f0: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 7d 0a 0a 2f Ptr->self);.}../
5900: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5940: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
5950: 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d sSetOptionProc -
5960: 2d 0a 20 2a 0a 20 2a 20 20 20 20 53 65 74 73 20 -. *. * Sets
5970: 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 an option value
5980: 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 for a SSL socket
5990: 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 based channel,
59a0: 6f 72 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20 or a. * list
59b0: 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 of all options a
59c0: 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e nd their values.
59d0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
59e0: 20 2a 20 20 20 20 54 43 4c 5f 4f 4b 20 69 66 20 * TCL_OK if
59f0: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 successful or TC
5a00: 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 L_ERROR if faile
5a10: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
5a20: 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 55 70 64 fects:. * Upd
5a30: 61 74 65 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 ates channel opt
5a40: 69 6f 6e 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 ion to new value
5a50: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
5a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
5aa0: 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 53 65 74 tatic int.TlsSet
5ab0: 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e OptionProc(Clien
5ac0: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
5ad0: 74 61 2c 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 ta, /* Socket
5ae0: 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 54 state. */. T
5af0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
5b00: 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 p,../* For error
5b10: 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e s - can be NULL.
5b20: 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 */. const ch
5b30: 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 ar *optionName,.
5b40: 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f /* Name of the o
5b50: 70 74 69 6f 6e 20 74 6f 20 73 65 74 20 74 68 65 ption to set the
5b60: 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 09 value for, or..
5b70: 09 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 ... * NULL to ge
5b80: 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e t all options an
5b90: 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 20 d their values.
5ba0: 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 */. const cha
5bb0: 72 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 r *optionValue).
5bc0: 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 6f 70 74 /* Value for opt
5bd0: 69 6f 6e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 ion. */.{. St
5be0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
5bf0: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
5c00: 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ceData;. Tcl_
5c10: 43 68 61 6e 6e 65 6c 20 64 6f 77 6e 43 68 61 6e Channel downChan
5c20: 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 = Tls_GetParent
5c30: 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 (statePtr, TLS_T
5c40: 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a 20 20 CL_FASTPATH);.
5c50: 20 20 54 63 6c 5f 44 72 69 76 65 72 53 65 74 4f Tcl_DriverSetO
5c60: 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 ptionProc *setOp
5c70: 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 64 tionProc;.. d
5c80: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
5c90: 3b 0a 0a 20 20 20 20 73 65 74 4f 70 74 69 6f 6e ;.. setOption
5ca0: 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e Proc = Tcl_Chann
5cb0: 65 6c 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 elSetOptionProc(
5cc0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 Tcl_GetChannelTy
5cd0: 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 pe(downChan));.
5ce0: 20 20 20 69 66 20 28 73 65 74 4f 70 74 69 6f 6e if (setOption
5cf0: 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a Proc != NULL) {.
5d00: 09 72 65 74 75 72 6e 20 28 2a 73 65 74 4f 70 74 .return (*setOpt
5d10: 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 ionProc)(Tcl_Get
5d20: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 ChannelInstanceD
5d30: 61 74 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 69 ata(downChan), i
5d40: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d nterp, optionNam
5d50: 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b e, optionValue);
5d60: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
5d70: 6f 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 optionName == (c
5d80: 68 61 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f har*) NULL) {../
5d90: 2a 0a 09 20 2a 20 52 65 71 75 65 73 74 20 69 73 *.. * Request is
5da0: 20 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f query for all o
5db0: 70 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 ptions, this is
5dc0: 6f 6b 2e 0a 09 20 2a 2f 0a 09 72 65 74 75 72 6e ok... */..return
5dd0: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 TCL_OK;. }.
5de0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 /*. * Req
5df0: 75 65 73 74 20 66 6f 72 20 61 20 73 70 65 63 69 uest for a speci
5e00: 66 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 fic option has t
5e10: 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 o fail, we don't
5e20: 20 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 have any..
5e30: 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 */. return Tc
5e40: 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 l_BadChannelOpti
5e50: 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f on(interp, optio
5e60: 6e 4e 61 6d 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f nName, "");.}../
5e70: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5eb0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
5ec0: 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d sGetOptionProc -
5ed0: 2d 0a 20 2a 0a 20 2a 20 20 20 20 47 65 74 73 20 -. *. * Gets
5ee0: 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 an option value
5ef0: 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 for a SSL socket
5f00: 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 based channel,
5f10: 6f 72 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20 or a. * list
5f20: 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 of all options a
5f30: 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e nd their values.
5f40: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
5f50: 20 2a 20 20 20 20 41 20 73 74 61 6e 64 61 72 64 * A standard
5f60: 20 54 63 6c 20 72 65 73 75 6c 74 2e 20 54 68 65 Tcl result. The
5f70: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 73 70 value of the sp
5f80: 65 63 69 66 69 65 64 20 6f 70 74 69 6f 6e 20 6f ecified option o
5f90: 72 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20 6f r a. * list o
5fa0: 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e f all options an
5fb0: 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 20 69 d their values i
5fc0: 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 s returned in th
5fd0: 65 0a 20 2a 20 20 20 20 73 75 70 70 6c 69 65 64 e. * supplied
5fe0: 20 44 53 74 72 69 6e 67 2e 0a 20 2a 0a 20 2a 20 DString.. *. *
5ff0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
6000: 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d None.. *. *-
6010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 2d 2d 2d 2d 2d ----------------
6050: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
6060: 74 0a 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 t.TlsGetOptionPr
6070: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
6080: 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f stanceData, /
6090: 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 * Socket state.
60a0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 */. Tcl_Inter
60b0: 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 p *interp,../* F
60c0: 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 or errors - can
60d0: 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 be NULL. */.
60e0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 const char *opti
60f0: 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 onName,./* Name
6100: 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f of the option to
6110: 20 72 65 74 72 69 65 76 65 20 74 68 65 20 76 61 retrieve the va
6120: 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 09 09 09 09 lue for, or.....
6130: 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 * NULL to get a
6140: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 ll options and t
6150: 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a heir values. */.
6160: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 Tcl_DString
6170: 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f 2a *optionValue)./*
6180: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 Where to store
6190: 74 68 65 20 63 6f 6d 70 75 74 65 64 20 76 61 6c the computed val
61a0: 75 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 ue initialized b
61b0: 79 20 63 61 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 y caller. */.{.
61c0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
61d0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
61e0: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 nstanceData;.
61f0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f 77 Tcl_Channel dow
6200: 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 nChan = Tls_GetP
6210: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 arent(statePtr,
6220: 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 TLS_TCL_FASTPATH
6230: 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 );. Tcl_Drive
6240: 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a rGetOptionProc *
6250: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a getOptionProc;..
6260: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
6270: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 67 65 74 4f led");.. getO
6280: 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f ptionProc = Tcl_
6290: 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69 6f 6e ChannelGetOption
62a0: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
62b0: 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e nelType(downChan
62c0: 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 74 4f ));. if (getO
62d0: 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c ptionProc != NUL
62e0: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 67 L) {..return (*g
62f0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 etOptionProc)(Tc
6300: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
6310: 61 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 anceData(downCha
6320: 6e 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 n), interp, opti
6330: 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 onName, optionVa
6340: 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 lue);. } else
6350: 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 if (optionName
6360: 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 == (char*) NULL)
6370: 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 71 75 65 {../*.. * Reque
6380: 73 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 20 st is query for
6390: 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 69 all options, thi
63a0: 73 20 69 73 20 6f 6b 2e 0a 09 20 2a 2f 0a 09 72 s is ok... */..r
63b0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 eturn TCL_OK;.
63c0: 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 }. /*.
63d0: 2a 20 52 65 71 75 65 73 74 20 66 6f 72 20 61 20 * Request for a
63e0: 73 70 65 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 specific option
63f0: 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 has to fail, we
6400: 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 2e 0a don't have any..
6410: 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 */. retu
6420: 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 rn Tcl_BadChanne
6430: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
6440: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 3b optionName, "");
6450: 0a 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2a ---------------*
6490: 0a 20 2a 0a 20 2a 20 20 20 20 54 6c 73 43 68 61 . *. * TlsCha
64a0: 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 nnelHandlerTimer
64b0: 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 2d 2d 2d --. *. * ---
64c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
64f0: 2a 20 20 20 20 43 61 6c 6c 65 64 20 62 79 20 74 * Called by t
6500: 68 65 20 6e 6f 74 69 66 69 65 72 20 28 2d 3e 20 he notifier (->
6510: 74 69 6d 65 72 29 20 74 6f 20 66 6c 75 73 68 20 timer) to flush
6520: 6f 75 74 0a 20 2a 20 20 20 20 69 6e 66 6f 72 6d out. * inform
6530: 61 74 69 6f 6e 20 77 61 69 74 69 6e 67 20 69 6e ation waiting in
6540: 20 63 68 61 6e 6e 65 6c 20 62 75 66 66 65 72 73 channel buffers
6550: 2e 0a 20 2a 20 20 20 20 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 2a 0a 20 2a 0a 20 2a 20 --------*. *. *
6590: 20 20 20 53 69 64 65 20 65 66 66 65 63 74 73 3a Side effects:
65a0: 0a 20 2a 20 20 20 20 20 20 20 20 41 73 20 6f 66 . * As of
65b0: 20 27 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 'TlsChannelHand
65c0: 6c 65 72 27 2e 0a 20 2a 0a 20 2a 20 20 20 20 52 ler'.. *. * R
65d0: 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 20 20 20 esult:. *
65e0: 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d None.. *. *----
65f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6620: 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 --*. */.static v
6630: 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 oid TlsChannelHa
6640: 6e 64 6c 65 72 54 69 6d 65 72 28 43 6c 69 65 6e ndlerTimer(Clien
6650: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
6660: 29 20 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 ) {. State *s
6670: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
6680: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
6690: 20 20 20 20 69 6e 74 20 6d 61 73 6b 20 3d 20 30 int mask = 0
66a0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
66b0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 73 Called");.. s
66c0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
66d0: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
66e0: 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 ) NULL;.. if
66f0: 28 42 49 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 (BIO_wpending(st
6700: 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a atePtr->bio)) {.
6710: 09 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d .dprintf("[chan=
6720: 25 70 5d 20 42 49 4f 20 77 72 69 74 61 62 6c 65 %p] BIO writable
6730: 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ", statePtr->sel
6740: 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 f);...mask |= TC
6750: 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 20 20 20 20 L_WRITABLE;.
6760: 7d 0a 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 70 }.. if (BIO_p
6770: 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d ending(statePtr-
6780: 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 69 6e 74 >bio)) {..dprint
6790: 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 49 4f f("[chan=%p] BIO
67a0: 20 72 65 61 64 61 62 6c 65 22 2c 20 73 74 61 74 readable", stat
67b0: 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 6d ePtr->self);...m
67c0: 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ask |= TCL_READA
67d0: 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 BLE;. }..
67e0: 64 70 72 69 6e 74 66 28 22 4e 6f 74 69 66 79 69 dprintf("Notifyi
67f0: 6e 67 20 6f 75 72 73 65 6c 76 65 73 22 29 3b 0a ng ourselves");.
6800: 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 Tcl_NotifyCh
6810: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
6820: 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 self, mask);..
6830: 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 dprintf("Retur
6840: 6e 69 6e 67 22 29 3b 0a 0a 20 20 20 20 72 65 74 ning");.. ret
6850: 75 72 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d urn;.}../*. *---
6860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68a0: 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 68 50 . *. * TlsWatchP
68b0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 roc --. *. *
68c0: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6e Initialize the n
68d0: 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 otifier to watch
68e0: 20 54 63 6c 5f 46 69 6c 65 73 20 66 72 6f 6d 20 Tcl_Files from
68f0: 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a this channel.. *
6900: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 . * Results:. *
6910: 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 None.. *. * S
6920: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 ide effects:. *
6930: 20 20 20 53 65 74 73 20 75 70 20 74 68 65 20 6e Sets up the n
6940: 6f 74 69 66 69 65 72 20 73 6f 20 74 68 61 74 20 otifier so that
6950: 61 20 66 75 74 75 72 65 20 65 76 65 6e 74 20 6f a future event o
6960: 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a n the channel. *
6970: 20 20 20 20 77 69 6c 6c 20 62 65 20 73 65 65 6e will be seen
6980: 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d by Tcl.. *. *--
6990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69d0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 -. */.static voi
69e0: 64 0a 54 6c 73 57 61 74 63 68 50 72 6f 63 28 43 d.TlsWatchProc(C
69f0: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
6a00: 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 54 68 ceData, /* Th
6a10: 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 e socket state.
6a20: 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 29 */. int mask)
6a30: 09 09 09 2f 2a 20 45 76 65 6e 74 73 20 6f 66 20 .../* Events of
6a40: 69 6e 74 65 72 65 73 74 3b 20 61 6e 20 4f 52 2d interest; an OR-
6a50: 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f ed combination o
6a60: 66 0a 09 09 09 09 20 2a 20 54 43 4c 5f 52 45 41 f..... * TCL_REA
6a70: 44 41 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54 41 DABLE, TCL_WRITA
6a80: 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 58 43 45 BLE and TCL_EXCE
6a90: 50 54 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 PTION. */.{.
6aa0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 20 20 20 20 Tcl_Channel
6ab0: 64 6f 77 6e 43 68 61 6e 3b 0a 20 20 20 20 53 74 downChan;. St
6ac0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
6ad0: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
6ae0: 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ceData;. Tcl_
6af0: 44 72 69 76 65 72 57 61 74 63 68 50 72 6f 63 20 DriverWatchProc
6b00: 2a 77 61 74 63 68 50 72 6f 63 3b 0a 0a 20 20 20 *watchProc;..
6b10: 20 64 70 72 69 6e 74 66 28 22 54 6c 73 57 61 74 dprintf("TlsWat
6b20: 63 68 50 72 6f 63 28 30 78 25 78 29 22 2c 20 6d chProc(0x%x)", m
6b30: 61 73 6b 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 ask);. dprint
6b40: 46 6c 61 67 73 28 73 74 61 74 65 50 74 72 29 3b Flags(statePtr);
6b50: 0a 0a 20 20 20 20 2f 2a 20 50 72 65 74 65 6e 64 .. /* Pretend
6b60: 20 74 6f 20 62 65 20 64 65 61 64 20 61 73 20 6c to be dead as l
6b70: 6f 6e 67 20 61 73 20 74 68 65 20 76 65 72 69 66 ong as the verif
6b80: 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 y callback is ru
6b90: 6e 6e 69 6e 67 2e 0a 20 20 20 20 20 2a 20 4f 74 nning.. * Ot
6ba0: 68 65 72 77 69 73 65 20 74 68 61 74 20 63 61 6c herwise that cal
6bb0: 6c 62 61 63 6b 20 63 6f 75 6c 64 20 62 65 20 69 lback could be i
6bc0: 6e 76 6f 6b 65 64 20 72 65 63 75 72 73 69 76 65 nvoked recursive
6bd0: 6c 79 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ly. */. if (s
6be0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
6bf0: 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 TLS_TCL_CALLBAC
6c00: 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 K) {..dprintf("C
6c10: 61 6c 6c 62 61 63 6b 20 69 73 20 6f 6e 2d 67 6f allback is on-go
6c20: 69 6e 67 2c 20 64 6f 69 6e 67 20 6e 6f 74 68 69 ing, doing nothi
6c30: 6e 67 22 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 ng");..return;.
6c40: 20 20 20 7d 0a 0a 20 20 20 20 64 6f 77 6e 43 68 }.. downCh
6c50: 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 an = Tls_GetPare
6c60: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 nt(statePtr, TLS
6c70: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a _TCL_FASTPATH);.
6c80: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
6c90: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
6ca0: 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 CL_HANDSHAKE_FAI
6cb0: 4c 45 44 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 LED) {..dprintf(
6cc0: 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63 68 20 "Asked to watch
6cd0: 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20 61 20 a socket with a
6ce0: 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 6b 65 failed handshake
6cf0: 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 6e 20 -- nothing can
6d00: 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b 0a 09 happen here");..
6d10: 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 69 73 dprintf("Unregis
6d20: 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 74 20 tering interest
6d30: 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 in the lower cha
6d40: 6e 6e 65 6c 22 29 3b 0a 0a 09 77 61 74 63 68 50 nnel");...watchP
6d50: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
6d60: 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 lWatchProc(Tcl_G
6d70: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f etChannelType(do
6d80: 77 6e 43 68 61 6e 29 29 3b 0a 09 77 61 74 63 68 wnChan));..watch
6d90: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
6da0: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
6db0: 64 6f 77 6e 43 68 61 6e 29 2c 20 30 29 3b 0a 09 downChan), 0);..
6dc0: 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d statePtr->watchM
6dd0: 61 73 6b 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e ask = 0;..return
6de0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 ;. }.. sta
6df0: 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b tePtr->watchMask
6e00: 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a = mask;.. /*
6e10: 20 4e 6f 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 No channel hand
6e20: 6c 65 72 73 20 61 6e 79 20 6d 6f 72 65 2e 20 57 lers any more. W
6e30: 65 20 77 69 6c 6c 20 62 65 20 6e 6f 74 69 66 69 e will be notifi
6e40: 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 ed automatically
6e50: 0a 20 20 20 20 20 2a 20 61 62 6f 75 74 20 65 76 . * about ev
6e60: 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e ents on the chan
6e70: 6e 65 6c 20 62 65 6c 6f 77 20 76 69 61 20 61 20 nel below via a
6e80: 63 61 6c 6c 20 74 6f 20 6f 75 72 0a 20 20 20 20 call to our.
6e90: 20 2a 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 * 'TransformNot
6ea0: 69 66 79 50 72 6f 63 27 2e 20 42 75 74 20 77 65 ifyProc'. But we
6eb0: 20 68 61 76 65 20 74 6f 20 70 61 73 73 20 74 68 have to pass th
6ec0: 65 20 69 6e 74 65 72 65 73 74 20 64 6f 77 6e 20 e interest down
6ed0: 6e 6f 77 2e 0a 20 20 20 20 20 2a 20 57 65 20 61 now.. * We a
6ee0: 72 65 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 64 re allowed to ad
6ef0: 64 20 61 64 64 69 74 69 6f 6e 61 6c 20 27 69 6e d additional 'in
6f00: 74 65 72 65 73 74 27 20 74 6f 20 74 68 65 20 6d terest' to the m
6f10: 61 73 6b 20 69 66 20 77 65 20 77 61 6e 74 0a 20 ask if we want.
6f20: 20 20 20 20 2a 20 74 6f 2e 20 42 75 74 20 74 68 * to. But th
6f30: 69 73 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f is transformatio
6f40: 6e 20 68 61 73 20 6e 6f 20 73 75 63 68 20 69 6e n has no such in
6f50: 74 65 72 65 73 74 2e 20 49 74 20 6a 75 73 74 20 terest. It just
6f60: 70 61 73 73 65 73 0a 20 20 20 20 20 2a 20 74 68 passes. * th
6f70: 65 20 72 65 71 75 65 73 74 20 64 6f 77 6e 2c 20 e request down,
6f80: 75 6e 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 unchanged..
6f90: 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 */. dprintf("
6fa0: 52 65 67 69 73 74 65 72 69 6e 67 20 6f 75 72 20 Registering our
6fb0: 69 6e 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 interest in the
6fc0: 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 63 lower channel (c
6fd0: 68 61 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 20 han=%p)", (void
6fe0: 2a 29 20 64 6f 77 6e 43 68 61 6e 29 3b 0a 20 20 *) downChan);.
6ff0: 20 20 77 61 74 63 68 50 72 6f 63 20 3d 20 54 63 watchProc = Tc
7000: 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 72 l_ChannelWatchPr
7010: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
7020: 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 lType(downChan))
7030: 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63 28 ;. watchProc(
7040: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
7050: 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 stanceData(downC
7060: 68 61 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a 0a 20 han), mask);...
7070: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6e /*. * Man
7080: 61 67 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 69 agement of the i
7090: 6e 74 65 72 6e 61 6c 20 74 69 6d 65 72 2e 0a 20 nternal timer..
70a0: 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 */. if (s
70b0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
70c0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
70d0: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 64 70 72 69 n) NULL) {..dpri
70e0: 6e 74 66 28 22 41 20 74 69 6d 65 72 20 77 61 73 ntf("A timer was
70f0: 20 66 6f 75 6e 64 2c 20 64 65 6c 65 74 69 6e 67 found, deleting
7100: 20 69 74 22 29 3b 0a 09 54 63 6c 5f 44 65 6c 65 it");..Tcl_Dele
7110: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
7120: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
7130: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
7140: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
7150: 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d ken) NULL;. }
7160: 0a 0a 20 20 20 20 69 66 20 28 28 6d 61 73 6b 20 .. if ((mask
7170: 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 & TCL_READABLE)
7180: 26 26 0a 09 28 28 54 63 6c 5f 49 6e 70 75 74 42 &&..((Tcl_InputB
7190: 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 uffered(statePtr
71a0: 2d 3e 73 65 6c 66 29 20 3e 20 30 29 20 7c 7c 20 ->self) > 0) ||
71b0: 28 42 49 4f 5f 63 74 72 6c 5f 70 65 6e 64 69 6e (BIO_ctrl_pendin
71c0: 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 g(statePtr->bio)
71d0: 20 3e 20 30 29 29 29 20 7b 0a 09 2f 2a 0a 09 20 > 0))) {../*..
71e0: 2a 20 54 68 65 72 65 20 69 73 20 69 6e 74 65 72 * There is inter
71f0: 65 73 74 20 69 6e 20 72 65 61 64 61 62 6c 65 20 est in readable
7200: 65 76 65 6e 74 73 20 61 6e 64 20 77 65 20 61 63 events and we ac
7210: 74 75 61 6c 6c 79 20 68 61 76 65 0a 09 20 2a 20 tually have.. *
7220: 64 61 74 61 20 77 61 69 74 69 6e 67 2c 20 73 6f data waiting, so
7230: 20 67 65 6e 65 72 61 74 65 20 61 20 74 69 6d 65 generate a time
7240: 72 20 74 6f 20 66 6c 75 73 68 20 74 68 61 74 2e r to flush that.
7250: 0a 09 20 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22 .. */..dprintf("
7260: 43 72 65 61 74 69 6e 67 20 61 20 6e 65 77 20 74 Creating a new t
7270: 69 6d 65 72 20 73 69 6e 63 65 20 64 61 74 61 20 imer since data
7280: 61 70 70 65 61 72 73 20 74 6f 20 62 65 20 77 61 appears to be wa
7290: 69 74 69 6e 67 22 29 3b 0a 09 73 74 61 74 65 50 iting");..stateP
72a0: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f tr->timer = Tcl_
72b0: 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c CreateTimerHandl
72c0: 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 er(TLS_TCL_DELAY
72d0: 2c 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 , TlsChannelHand
72e0: 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c 69 65 6e lerTimer, (Clien
72f0: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 tData) statePtr)
7300: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a ;. }.}../*. *
7310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7350: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 ---. *. * TlsGet
7360: 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a HandleProc --. *
7370: 0a 20 2a 20 20 20 20 43 61 6c 6c 65 64 20 66 72 . * Called fr
7380: 6f 6d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 om Tcl_GetChanne
7390: 6c 46 69 6c 65 20 74 6f 20 72 65 74 72 69 65 76 lFile to retriev
73a0: 65 20 6f 2f 73 20 66 69 6c 65 20 68 61 6e 64 6c e o/s file handl
73b0: 65 72 0a 20 2a 20 20 20 20 66 72 6f 6d 20 74 68 er. * from th
73c0: 65 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 e SSL socket bas
73d0: 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 ed channel.. *.
73e0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 * Results:. *
73f0: 20 54 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 The appropriate
7400: 20 54 63 6c 5f 46 69 6c 65 20 68 61 6e 64 6c 65 Tcl_File handle
7410: 20 6f 72 20 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 or NULL if none
7420: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
7430: 65 63 74 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 ects:. * None
7440: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
7450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
7490: 74 61 74 69 63 20 69 6e 74 20 54 6c 73 47 65 74 tatic int TlsGet
74a0: 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e HandleProc(Clien
74b0: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
74c0: 74 61 2c 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 ta, /* Socket
74d0: 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 state. */. i
74e0: 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c 09 09 2f nt direction,../
74f0: 2a 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f * TCL_READABLE o
7500: 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a r TCL_WRITABLE *
7510: 2f 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 /. ClientData
7520: 20 2a 68 61 6e 64 6c 65 50 74 72 29 09 2f 2a 20 *handlePtr)./*
7530: 48 61 6e 64 6c 65 20 61 73 73 6f 63 69 61 74 65 Handle associate
7540: 64 20 77 69 74 68 20 74 68 65 20 63 68 61 6e 6e d with the chann
7550: 65 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 el */.{. Stat
7560: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
7570: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
7580: 44 61 74 61 3b 0a 0a 20 20 20 20 72 65 74 75 72 Data;.. retur
7590: 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c n Tcl_GetChannel
75a0: 48 61 6e 64 6c 65 28 54 6c 73 5f 47 65 74 50 61 Handle(Tls_GetPa
75b0: 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 rent(statePtr, T
75c0: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
75d0: 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e , direction, han
75e0: 64 6c 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 dlePtr);.}../*.
75f0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
7600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7630: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4e 6f ----. *. * TlsNo
7640: 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 tifyProc --. *.
7650: 2a 20 20 20 20 48 61 6e 64 6c 65 72 20 63 61 6c * Handler cal
7660: 6c 65 64 20 62 79 20 54 63 6c 20 74 6f 20 69 6e led by Tcl to in
7670: 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 form us of activ
7680: 69 74 79 0a 20 2a 20 20 20 20 6f 6e 20 74 68 65 ity. * on the
7690: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e underlying chan
76a0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
76b0: 74 73 3a 0a 20 2a 20 20 20 20 54 79 70 65 20 6f ts:. * Type o
76c0: 66 20 65 76 65 6e 74 20 6f 72 20 30 20 69 66 20 f event or 0 if
76d0: 66 61 69 6c 65 64 0a 20 2a 0a 20 2a 20 53 69 64 failed. *. * Sid
76e0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 e effects:. *
76f0: 20 4d 61 79 20 70 72 6f 63 65 73 73 20 74 68 65 May process the
7700: 20 69 6e 63 6f 6d 69 6e 67 20 65 76 65 6e 74 20 incoming event
7710: 62 79 20 69 74 73 65 6c 66 2e 0a 20 2a 0a 20 2a by itself.. *. *
7720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7760: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
7770: 6e 74 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 nt TlsNotifyProc
7780: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
7790: 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 anceData, /*
77a0: 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f Socket state. */
77b0: 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 . int mask)..
77c0: 09 2f 2a 20 74 79 70 65 20 6f 66 20 65 76 65 6e ./* type of even
77d0: 74 20 74 68 61 74 20 6f 63 63 75 72 72 65 64 3a t that occurred:
77e0: 0a 09 09 09 09 20 2a 20 4f 52 2d 65 64 20 63 6f ..... * OR-ed co
77f0: 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c mbination of TCL
7800: 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c _READABLE or TCL
7810: 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a 7b 0a 20 _WRITABLE */.{.
7820: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
7830: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
7840: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 nstanceData;.
7850: 20 69 6e 74 20 65 72 72 6f 72 43 6f 64 65 20 3d int errorCode =
7860: 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 0;.. dprintf
7870: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
7880: 20 2f 2a 0a 20 20 20 20 20 2a 20 41 6e 20 65 76 /*. * An ev
7890: 65 6e 74 20 6f 63 63 75 72 72 65 64 20 69 6e 20 ent occurred in
78a0: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 the underlying c
78b0: 68 61 6e 6e 65 6c 2e 20 20 54 68 69 73 0a 20 20 hannel. This.
78c0: 20 20 20 2a 20 74 72 61 6e 73 66 6f 72 6d 61 74 * transformat
78d0: 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 72 6f 63 ion doesn't proc
78e0: 65 73 73 20 73 75 63 68 20 65 76 65 6e 74 73 20 ess such events
78f0: 74 68 75 73 20 72 65 74 75 72 6e 73 20 74 68 65 thus returns the
7900: 0a 20 20 20 20 20 2a 20 69 6e 63 6f 6d 69 6e 67 . * incoming
7910: 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 65 64 2e mask unchanged.
7920: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 . */. if
7930: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
7940: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
7950: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a ken) NULL) {../*
7960: 0a 09 20 2a 20 44 65 6c 65 74 65 20 61 6e 20 65 .. * Delete an e
7970: 78 69 73 74 69 6e 67 20 74 69 6d 65 72 2e 20 49 xisting timer. I
7980: 74 20 77 61 73 20 6e 6f 74 20 66 69 72 65 64 2c t was not fired,
7990: 20 79 65 74 20 77 65 20 61 72 65 0a 09 20 2a 20 yet we are.. *
79a0: 68 65 72 65 2c 20 73 6f 20 74 68 65 20 63 68 61 here, so the cha
79b0: 6e 6e 65 6c 20 62 65 6c 6f 77 20 67 65 6e 65 72 nnel below gener
79c0: 61 74 65 64 20 73 75 63 68 20 61 6e 20 65 76 65 ated such an eve
79d0: 6e 74 20 61 6e 64 20 77 65 0a 09 20 2a 20 64 6f nt and we.. * do
79e0: 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 54 68 65 n't have to. The
79f0: 20 72 65 6e 65 77 61 6c 20 6f 66 20 74 68 65 20 renewal of the
7a00: 69 6e 74 65 72 65 73 74 20 61 66 74 65 72 20 74 interest after t
7a10: 68 65 0a 09 20 2a 20 65 78 65 63 75 74 69 6f 6e he.. * execution
7a20: 20 6f 66 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 of channel hand
7a30: 6c 65 72 73 20 77 69 6c 6c 20 65 76 65 6e 74 75 lers will eventu
7a40: 61 6c 6c 79 20 63 61 75 73 65 20 75 73 20 74 6f ally cause us to
7a50: 0a 09 20 2a 20 72 65 63 72 65 61 74 65 20 74 68 .. * recreate th
7a60: 65 20 74 69 6d 65 72 20 28 69 6e 20 57 61 74 63 e timer (in Watc
7a70: 68 50 72 6f 63 29 2e 0a 09 20 2a 2f 0a 09 54 63 hProc)... */..Tc
7a80: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
7a90: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
7aa0: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
7ab0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
7ac0: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
7ad0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 . }.. /* S
7ae0: 6b 69 70 20 69 66 20 75 73 65 72 20 76 65 72 69 kip if user veri
7af0: 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 73 fy callback is s
7b00: 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a till running */.
7b10: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
7b20: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
7b30: 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 L_CALLBACK) {..d
7b40: 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b printf("Callback
7b50: 20 69 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 72 65 is on-going, re
7b60: 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 29 turning failed")
7b70: 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 ;..return 0;.
7b80: 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e 6f }.. /* If no
7b90: 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 64 t initialized, d
7ba0: 6f 20 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 20 o connect */.
7bb0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
7bc0: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 lags & TLS_TCL_I
7bd0: 4e 49 54 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 NIT) {..dprintf(
7be0: 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 "Calling Tls_Wai
7bf0: 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 09 tForConnect");..
7c00: 69 66 20 28 54 6c 73 5f 57 61 69 74 46 6f 72 43 if (Tls_WaitForC
7c10: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c onnect(statePtr,
7c20: 20 26 65 72 72 6f 72 43 6f 64 65 2c 20 31 29 20 &errorCode, 1)
7c30: 3c 20 30 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f < 0) {.. Tls_
7c40: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
7c50: 73 74 72 65 72 72 6f 72 28 65 72 72 6f 72 43 6f strerror(errorCo
7c60: 64 65 29 29 3b 0a 09 20 20 20 20 69 66 20 28 65 de));.. if (e
7c70: 72 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 rrorCode == EAGA
7c80: 49 4e 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 IN) {...dprintf(
7c90: 22 41 73 79 6e 63 20 66 6c 61 67 20 63 6f 75 6c "Async flag coul
7ca0: 64 20 62 65 20 73 65 74 20 28 64 69 64 6e 27 74 d be set (didn't
7cb0: 20 63 68 65 63 6b 29 20 61 6e 64 20 65 72 72 6f check) and erro
7cc0: 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 3a rCode == EAGAIN:
7cd0: 20 20 52 65 74 75 72 6e 69 6e 67 20 66 61 69 6c Returning fail
7ce0: 65 64 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 20 ed");....return
7cf0: 30 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 0;.. }...
7d00: 64 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 dprintf("Tls_Wai
7d10: 74 46 6f 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 tForConnect retu
7d20: 72 6e 65 64 20 61 6e 20 65 72 72 6f 72 22 29 3b rned an error");
7d30: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 ..}. }.. d
7d40: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e printf("Returnin
7d50: 67 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 g %i", mask);..
7d60: 20 20 20 72 65 74 75 72 6e 20 6d 61 73 6b 3b 0a return mask;.
7d70: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
7d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
7dc0: 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 * Tls_ChannelTyp
7dd0: 65 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 52 65 e --. *. * Re
7de0: 74 75 72 6e 20 74 68 65 20 63 6f 72 72 65 63 74 turn the correct
7df0: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 64 72 69 TLS channel dri
7e00: 76 65 72 20 69 6e 66 6f 0a 20 2a 0a 20 2a 20 52 ver info. *. * R
7e10: 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 68 esults:. * Th
7e20: 65 20 63 6f 72 72 65 63 74 20 63 68 61 6e 6e 65 e correct channe
7e30: 6c 20 64 72 69 76 65 72 20 66 6f 72 20 74 68 65 l driver for the
7e40: 20 63 75 72 72 65 6e 74 20 76 65 72 73 69 6f 6e current version
7e50: 20 6f 66 20 54 63 6c 2e 0a 20 2a 0a 20 2a 20 53 of Tcl.. *. * S
7e60: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 ide effects:. *
7e70: 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d None.. *. *--
7e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ec0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e -. */.static con
7ed0: 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 st Tcl_ChannelTy
7ee0: 70 65 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 pe tlsChannelTyp
7ef0: 65 20 3d 20 7b 0a 20 20 20 20 22 74 6c 73 22 2c e = {. "tls",
7f00: 09 09 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 .../* Type name
7f10: 2a 2f 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e */. TCL_CHANN
7f20: 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a EL_VERSION_5,./*
7f30: 20 76 35 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 v5 channel */.
7f40: 20 20 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 2c TlsCloseProc,
7f50: 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f 63 20 ../* Close proc
7f60: 2a 2f 0a 20 20 20 20 54 6c 73 49 6e 70 75 74 50 */. TlsInputP
7f70: 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 74 20 70 roc,../* Input p
7f80: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 4f 75 roc */. TlsOu
7f90: 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 4f 75 tputProc,../* Ou
7fa0: 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 tput proc */.
7fb0: 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 65 65 6b NULL,.../* Seek
7fc0: 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 proc */. Tls
7fd0: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 SetOptionProc,..
7fe0: 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 72 /* Set option pr
7ff0: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 oc */. TlsGet
8000: 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 2f 2a 20 OptionProc,../*
8010: 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 Get option proc
8020: 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74 63 68 50 */. TlsWatchP
8030: 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c roc,../* Initial
8040: 69 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a ize notifier */.
8050: 20 20 20 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 TlsGetHandle
8060: 50 72 6f 63 2c 09 09 2f 2a 20 47 65 74 20 4f 53 Proc,../* Get OS
8070: 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 20 handles out of
8080: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 54 channel */. T
8090: 6c 73 43 6c 6f 73 65 32 50 72 6f 63 2c 09 09 2f lsClose2Proc,../
80a0: 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20 2a 2f 0a * close2proc */.
80b0: 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 TlsBlockMode
80c0: 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 62 6c Proc,../* Set bl
80d0: 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 ocking/nonblocki
80e0: 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 ng mode*/. NU
80f0: 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 LL,.../* Flush p
8100: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 4e 6f roc */. TlsNo
8110: 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a 20 48 61 tifyProc,../* Ha
8120: 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 6e 74 73 ndling of events
8130: 20 62 75 62 62 6c 69 6e 67 20 75 70 20 2a 2f 0a bubbling up */.
8140: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 57 NULL,.../* W
8150: 69 64 65 20 73 65 65 6b 20 70 72 6f 63 20 2a 2f ide seek proc */
8160: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
8170: 54 68 72 65 61 64 20 61 63 74 69 6f 6e 20 2a 2f Thread action */
8180: 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f 2a 20 54 . NULL.../* T
8190: 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b 0a 0a 63 runcate */.};..c
81a0: 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c onst Tcl_Channel
81b0: 54 79 70 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 Type *Tls_Channe
81c0: 6c 54 79 70 65 28 76 6f 69 64 29 20 7b 0a 20 20 lType(void) {.
81d0: 20 20 72 65 74 75 72 6e 20 26 74 6c 73 43 68 61 return &tlsCha
81e0: 6e 6e 65 6c 54 79 70 65 3b 0a 7d 0a nnelType;.}.