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 0a 2f 2a 0a "tlsInt.h"../*.
02b0: 20 2a 20 46 6f 72 77 61 72 64 20 64 65 63 6c 61 * Forward decla
02c0: 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a 73 74 61 74 rations. */.stat
02d0: 69 63 20 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e ic void TlsChann
02e0: 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 28 76 elHandlerTimer(v
02f0: 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 61 29 oid *clientData)
0300: 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ;../*. *--------
0310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
0350: 2a 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 * TlsBlockModePr
0360: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 54 oc --. *. * T
0370: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 his procedure is
0380: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 invoked by the
0390: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c generic IO level
03a0: 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 73 65 74 . * to set
03b0: 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e 6f blocking and no
03c0: 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 0a nblocking modes.
03d0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
03e0: 2a 20 20 20 20 30 20 69 66 20 73 75 63 63 65 73 * 0 if succes
03f0: 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 sful or POSIX er
0400: 72 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c ror code if fail
0410: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ed.. *. * Side e
0420: 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 53 65 ffects:. * Se
0430: 74 73 20 74 68 65 20 64 65 76 69 63 65 20 69 6e ts the device in
0440: 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e to blocking or n
0450: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e onblocking mode.
0460: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
0470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
04b0: 61 74 69 63 20 69 6e 74 20 54 6c 73 42 6c 6f 63 atic int TlsBloc
04c0: 6b 4d 6f 64 65 50 72 6f 63 28 76 6f 69 64 20 2a kModeProc(void *
04d0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e instanceData, in
04e0: 74 20 6d 6f 64 65 29 20 7b 0a 20 20 20 20 53 74 t mode) {. St
04f0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
0500: 28 53 74 61 74 65 20 2a 29 69 6e 73 74 61 6e 63 (State *)instanc
0510: 65 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 eData;.. if (
0520: 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 mode == TCL_MODE
0530: 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a _NONBLOCKING) {.
0540: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
0550: 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e |= TLS_TCL_ASYN
0560: 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a C;. } else {.
0570: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
0580: 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 &= ~(TLS_TCL_AS
0590: 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 YNC);. }.
05a0: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a return 0;.}../*.
05b0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
05c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05f0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 43 -----. *. * TlsC
0600: 6c 6f 73 65 32 50 72 6f 63 20 2d 2d 0a 20 2a 0a lose2Proc --. *.
0610: 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 * This proce
0620: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
0630: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
0640: 4f 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f O level to perfo
0650: 72 6d 0a 20 2a 20 20 20 20 63 68 61 6e 6e 65 6c rm. * channel
0660: 2d 74 79 70 65 2d 73 70 65 63 69 66 69 63 20 63 -type-specific c
0670: 6c 65 61 6e 75 70 20 77 68 65 6e 20 61 20 53 53 leanup when a SS
0680: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
0690: 68 61 6e 6e 65 6c 0a 20 2a 20 20 20 20 69 73 20 hannel. * is
06a0: 63 6c 6f 73 65 64 2e 0a 20 2a 0a 20 2a 20 20 20 closed.. *. *
06b0: 20 4e 6f 74 65 3a 20 77 65 20 6c 65 61 76 65 20 Note: we leave
06c0: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 73 the underlying s
06d0: 6f 63 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 73 20 ocket alone, is
06e0: 74 68 69 73 20 72 69 67 68 74 3f 0a 20 2a 0a 20 this right?. *.
06f0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 * Results:. *
0700: 20 30 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 0 if successful
0710: 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72 20 or POSIX error
0720: 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e 0a code if failed..
0730: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
0740: 74 73 3a 0a 20 2a 20 20 20 20 43 6c 6f 73 65 73 ts:. * Closes
0750: 20 74 68 65 20 73 6f 63 6b 65 74 20 6f 66 20 74 the socket of t
0760: 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 he channel.. *.
0770: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07b0: 2d 2d 2d 2d 0a 20 2a 2f 0a 23 69 66 20 54 43 4c ----. */.#if TCL
07c0: 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 3e _MAJOR_VERSION >
07d0: 20 38 0a 23 20 20 20 64 65 66 69 6e 65 20 54 6c 8.# define Tl
07e0: 73 43 6c 6f 73 65 50 72 6f 63 20 4e 55 4c 4c 20 sCloseProc NULL
07f0: 2f 2a 20 4e 6f 20 6c 6f 6e 67 65 72 20 6e 65 63 /* No longer nec
0800: 63 65 73 73 61 72 79 20 69 6e 20 54 63 6c 20 39 cessary in Tcl 9
0810: 20 2a 2f 0a 23 65 6c 73 65 0a 73 74 61 74 69 63 */.#else.static
0820: 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 50 72 6f int TlsClosePro
0830: 63 28 0a 20 20 20 20 76 6f 69 64 20 2a 69 6e 73 c(. void *ins
0840: 74 61 6e 63 65 44 61 74 61 2c 0a 20 20 20 20 54 tanceData,. T
0850: 43 4c 5f 55 4e 55 53 45 44 28 54 63 6c 5f 49 6e CL_UNUSED(Tcl_In
0860: 74 65 72 70 20 2a 29 29 0a 7b 0a 20 20 20 20 53 terp *)).{. S
0870: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
0880: 20 28 53 74 61 74 65 20 2a 29 69 6e 73 74 61 6e (State *)instan
0890: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 ceData;.. dpr
08a0: 69 6e 74 66 28 22 54 6c 73 43 6c 6f 73 65 50 72 intf("TlsClosePr
08b0: 6f 63 28 25 70 29 22 2c 20 73 74 61 74 65 50 74 oc(%p)", statePt
08c0: 72 29 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 r);.. Tls_Cle
08d0: 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 an(statePtr);.
08e0: 20 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 Tcl_Eventually
08f0: 46 72 65 65 28 73 74 61 74 65 50 74 72 2c 20 54 Free(statePtr, T
0900: 6c 73 5f 46 72 65 65 29 3b 0a 20 20 20 20 72 65 ls_Free);. re
0910: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 turn TCL_OK;.}.#
0920: 65 6e 64 69 66 0a 0a 73 74 61 74 69 63 20 69 6e endif..static in
0930: 74 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 t TlsClose2Proc(
0940: 0a 20 20 20 20 76 6f 69 64 20 2a 69 6e 73 74 61 . void *insta
0950: 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 54 nceData, /* T
0960: 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e he socket state.
0970: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
0980: 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 rp *interp,../*
0990: 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e For errors - can
09a0: 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 be NULL. */.
09b0: 20 69 6e 74 20 66 6c 61 67 73 29 09 09 09 2f 2a int flags).../*
09c0: 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65 20 Flags to close
09d0: 72 65 61 64 20 61 6e 64 2f 6f 72 20 77 72 69 74 read and/or writ
09e0: 65 20 73 69 64 65 20 6f 66 20 63 68 61 6e 6e 65 e side of channe
09f0: 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 l */.{. State
0a00: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
0a10: 61 74 65 20 2a 29 69 6e 73 74 61 6e 63 65 44 61 ate *)instanceDa
0a20: 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 ta;.. dprintf
0a30: 28 22 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 ("TlsClose2Proc(
0a40: 25 70 29 22 2c 20 73 74 61 74 65 50 74 72 29 3b %p)", statePtr);
0a50: 0a 0a 20 20 20 20 69 66 20 28 28 66 6c 61 67 73 .. if ((flags
0a60: 26 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 &(TCL_CLOSE_READ
0a70: 7c 54 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 |TCL_CLOSE_WRITE
0a80: 29 29 29 20 7b 0a 09 72 65 74 75 72 6e 20 45 49 ))) {..return EI
0a90: 4e 56 41 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NVAL;. }.
0aa0: 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 Tls_Clean(stateP
0ab0: 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 45 76 65 tr);. Tcl_Eve
0ac0: 6e 74 75 61 6c 6c 79 46 72 65 65 28 73 74 61 74 ntuallyFree(stat
0ad0: 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 65 29 3b ePtr, Tls_Free);
0ae0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
0af0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
0b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 2a 0a 20 2a 0a 20 2a 20 54 6c 73 5f 57 61 --*. *. * Tls_Wa
0b40: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 2d 2d 0a itForConnect --.
0b50: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 3a 0a 20 2a *. * Result:. *
0b60: 20 20 20 20 30 20 69 66 20 73 75 63 63 65 73 73 0 if success
0b70: 66 75 6c 2c 20 2d 31 20 69 66 20 66 61 69 6c 65 ful, -1 if faile
0b80: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
0b90: 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 49 73 73 fects:. * Iss
0ba0: 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74 20 6f ues SSL_accept o
0bb0: 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 2a r SSL_connect. *
0bc0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
0bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 69 ---------*. */.i
0c00: 6e 74 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f nt Tls_WaitForCo
0c10: 6e 6e 65 63 74 28 53 74 61 74 65 20 2a 73 74 61 nnect(State *sta
0c20: 74 65 50 74 72 2c 20 69 6e 74 20 2a 65 72 72 6f tePtr, int *erro
0c30: 72 43 6f 64 65 50 74 72 2c 20 69 6e 74 20 68 61 rCodePtr, int ha
0c40: 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 ndshakeFailureIs
0c50: 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 20 20 20 Permanent) {.
0c60: 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 62 unsigned long b
0c70: 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 20 20 ackingError;.
0c80: 20 69 6e 74 20 65 72 72 2c 20 72 63 3b 0a 20 20 int err, rc;.
0c90: 20 20 69 6e 74 20 62 69 6f 53 68 6f 75 6c 64 52 int bioShouldR
0ca0: 65 74 72 79 3b 0a 20 20 20 20 2a 65 72 72 6f 72 etry;. *error
0cb0: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 CodePtr = 0;..
0cc0: 20 20 64 70 72 69 6e 74 66 28 22 57 61 69 74 46 dprintf("WaitF
0cd0: 6f 72 43 6f 6e 6e 65 63 74 28 25 70 29 22 2c 20 orConnect(%p)",
0ce0: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 64 statePtr);. d
0cf0: 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65 printFlags(state
0d00: 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 Ptr);.. if (!
0d10: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
0d20: 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 & TLS_TCL_INIT)
0d30: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 54 6c ) {..dprintf("Tl
0d40: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
0d50: 20 63 61 6c 6c 65 64 20 6f 6e 20 61 6c 72 65 61 called on alrea
0d60: 64 79 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 63 dy initialized c
0d70: 68 61 6e 6e 65 6c 20 2d 2d 20 72 65 74 75 72 6e hannel -- return
0d80: 69 6e 67 20 77 69 74 68 20 69 6d 6d 65 64 69 61 ing with immedia
0d90: 74 65 20 73 75 63 63 65 73 73 22 29 3b 0a 09 72 te success");..r
0da0: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a eturn 0;. }..
0db0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
0dc0: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
0dd0: 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c L_HANDSHAKE_FAIL
0de0: 45 44 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 69 ED) {../*.. * Di
0df0: 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f 66 fferent types of
0e00: 20 6f 70 65 72 61 74 69 6f 6e 73 20 68 61 76 65 operations have
0e10: 20 64 69 66 66 65 72 65 6e 74 20 72 65 71 75 69 different requi
0e20: 72 65 6d 65 6e 74 73 0a 09 20 2a 20 53 53 4c 20 rements.. * SSL
0e30: 62 65 69 6e 67 20 65 73 74 61 62 6c 69 73 68 65 being establishe
0e40: 64 0a 09 20 2a 2f 0a 09 69 66 20 28 68 61 6e 64 d.. */..if (hand
0e50: 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 shakeFailureIsPe
0e60: 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 20 20 20 20 rmanent) {..
0e70: 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 dprintf("Asked t
0e80: 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 o wait for a TLS
0e90: 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 handshake that
0ea0: 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c has already fail
0eb0: 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 66 ed. Returning f
0ec0: 61 74 61 6c 20 65 72 72 6f 72 22 29 3b 0a 09 20 atal error");..
0ed0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
0ee0: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b = ECONNABORTED;
0ef0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
0f00: 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 dprintf("Asked t
0f10: 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 o wait for a TLS
0f20: 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 handshake that
0f30: 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c has already fail
0f40: 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 73 ed. Returning s
0f50: 6f 66 74 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 oft error");..
0f60: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
0f70: 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 7d = ECONNRESET;..}
0f80: 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
0f90: 65 50 74 72 2c 20 22 57 61 69 74 20 66 6f 72 20 ePtr, "Wait for
0fa0: 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 6b 65 failed handshake
0fb0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a ");..return -1;.
0fc0: 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 20 28 }.. for (
0fd0: 3b 3b 29 20 7b 0a 09 45 52 52 5f 63 6c 65 61 72 ;;) {..ERR_clear
0fe0: 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 2f 2a 20 4e _error();.../* N
0ff0: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 79 ot initialized y
1000: 65 74 21 20 41 6c 73 6f 20 63 61 6c 6c 73 20 53 et! Also calls S
1010: 53 4c 5f 64 6f 5f 68 61 6e 64 73 68 61 6b 65 2e SL_do_handshake.
1020: 20 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 50 74 */..if (statePt
1030: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
1040: 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a 09 20 20 CL_SERVER) {..
1050: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 dprintf("Calli
1060: 6e 67 20 53 53 4c 5f 61 63 63 65 70 74 28 29 22 ng SSL_accept()"
1070: 29 3b 0a 09 20 20 20 20 65 72 72 20 3d 20 53 53 );.. err = SS
1080: 4c 5f 61 63 63 65 70 74 28 73 74 61 74 65 50 74 L_accept(statePt
1090: 72 2d 3e 73 73 6c 29 3b 0a 0a 09 7d 20 65 6c 73 r->ssl);...} els
10a0: 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 e {.. dprintf
10b0: 28 22 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 63 6f ("Calling SSL_co
10c0: 6e 6e 65 63 74 28 29 22 29 3b 0a 09 20 20 20 20 nnect()");..
10d0: 65 72 72 20 3d 20 53 53 4c 5f 63 6f 6e 6e 65 63 err = SSL_connec
10e0: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
10f0: 3b 0a 09 7d 0a 0a 09 69 66 20 28 65 72 72 20 3e ;..}...if (err >
1100: 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 0) {.. dprin
1110: 74 66 28 22 41 63 63 65 70 74 20 6f 72 20 63 6f tf("Accept or co
1120: 6e 6e 65 63 74 20 77 61 73 20 73 75 63 63 65 73 nnect was succes
1130: 73 66 75 6c 22 29 3b 0a 0a 09 20 20 20 20 65 72 sful");... er
1140: 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 73 74 r = BIO_flush(st
1150: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 atePtr->bio);..
1160: 20 20 20 69 66 20 28 65 72 72 20 3c 3d 20 30 29 if (err <= 0)
1170: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 46 6c {...dprintf("Fl
1180: 75 73 68 69 6e 67 20 74 68 65 20 6c 6f 77 65 72 ushing the lower
1190: 20 6c 61 79 65 72 73 20 66 61 69 6c 65 64 2c 20 layers failed,
11a0: 74 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 61 62 this will probab
11b0: 6c 79 20 74 65 72 6d 69 6e 61 74 65 20 74 68 69 ly terminate thi
11c0: 73 20 73 65 73 73 69 6f 6e 22 29 3b 0a 09 20 20 s session");..
11d0: 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 }..} else {..
11e0: 20 20 20 64 70 72 69 6e 74 66 28 22 41 63 63 65 dprintf("Acce
11f0: 70 74 20 6f 72 20 63 6f 6e 6e 65 63 74 20 66 61 pt or connect fa
1200: 69 6c 65 64 22 29 3b 0a 09 7d 0a 0a 09 72 63 20 iled");..}...rc
1210: 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 = SSL_get_error(
1220: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 65 statePtr->ssl, e
1230: 72 72 29 3b 0a 09 62 61 63 6b 69 6e 67 45 72 72 rr);..backingErr
1240: 6f 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 or = ERR_get_err
1250: 6f 72 28 29 3b 0a 09 69 66 20 28 72 63 20 21 3d or();..if (rc !=
1260: 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 29 SSL_ERROR_NONE)
1270: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
1280: 22 47 6f 74 20 65 72 72 6f 72 3a 20 25 69 20 28 "Got error: %i (
1290: 72 63 20 3d 20 25 69 29 22 2c 20 65 72 72 2c 20 rc = %i)", err,
12a0: 72 63 29 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 rc);.. dprint
12b0: 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 25 73 f("Got error: %s
12c0: 22 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 ", ERR_reason_er
12d0: 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 ror_string(backi
12e0: 6e 67 45 72 72 6f 72 29 29 3b 0a 09 7d 0a 0a 09 ngError));..}...
12f0: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d bioShouldRetry =
1300: 20 30 3b 0a 09 69 66 20 28 65 72 72 20 3c 3d 20 0;..if (err <=
1310: 30 29 20 7b 0a 09 20 20 20 20 69 66 20 28 72 63 0) {.. if (rc
1320: 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 == SSL_ERROR_WA
1330: 4e 54 5f 43 4f 4e 4e 45 43 54 20 7c 7c 20 72 63 NT_CONNECT || rc
1340: 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 == SSL_ERROR_WA
1350: 4e 54 5f 41 43 43 45 50 54 20 7c 7c 20 72 63 20 NT_ACCEPT || rc
1360: 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e == SSL_ERROR_WAN
1370: 54 5f 52 45 41 44 20 7c 7c 20 72 63 20 3d 3d 20 T_READ || rc ==
1380: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
1390: 52 49 54 45 29 20 7b 0a 09 09 62 69 6f 53 68 6f RITE) {...bioSho
13a0: 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 uldRetry = 1;..
13b0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 42 49 } else if (BI
13c0: 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 O_should_retry(s
13d0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b tatePtr->bio)) {
13e0: 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 ...bioShouldRetr
13f0: 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d 20 65 6c y = 1;.. } el
1400: 73 65 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c se if (rc == SSL
1410: 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 20 26 _ERROR_SYSCALL &
1420: 26 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 & Tcl_GetErrno()
1430: 20 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09 09 == EAGAIN) {...
1440: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d bioShouldRetry =
1450: 20 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 1;.. }..} el
1460: 73 65 20 7b 0a 09 20 20 20 20 69 66 20 28 21 53 se {.. if (!S
1470: 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 SL_is_init_finis
1480: 68 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73 hed(statePtr->ss
1490: 6c 29 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c l)) {...bioShoul
14a0: 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 dRetry = 1;..
14b0: 20 7d 0a 09 7d 0a 0a 09 69 66 20 28 62 69 6f 53 }..}...if (bioS
14c0: 68 6f 75 6c 64 52 65 74 72 79 29 20 7b 0a 09 20 houldRetry) {..
14d0: 20 20 20 64 70 72 69 6e 74 66 28 22 54 68 65 20 dprintf("The
14e0: 49 2f 4f 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 I/O did not comp
14f0: 6c 65 74 65 20 2d 2d 20 62 75 74 20 77 65 20 73 lete -- but we s
1500: 68 6f 75 6c 64 20 74 72 79 20 69 74 20 61 67 61 hould try it aga
1510: 69 6e 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 in");... if (
1520: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
1530: 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 & TLS_TCL_ASYNC)
1540: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 52 65 {...dprintf("Re
1550: 74 75 72 6e 69 6e 67 20 45 41 47 41 49 4e 20 73 turning EAGAIN s
1560: 6f 20 74 68 61 74 20 69 74 20 63 61 6e 20 62 65 o that it can be
1570: 20 72 65 74 72 69 65 64 20 6c 61 74 65 72 22 29 retried later")
1580: 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ;...*errorCodePt
1590: 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 54 6c r = EAGAIN;...Tl
15a0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
15b0: 2c 20 22 48 61 6e 64 73 68 61 6b 65 20 6e 6f 74 , "Handshake not
15c0: 20 63 6f 6d 70 6c 65 74 65 2c 20 77 69 6c 6c 20 complete, will
15d0: 72 65 74 72 79 20 6c 61 74 65 72 22 29 3b 0a 09 retry later");..
15e0: 09 72 65 74 75 72 6e 20 2d 31 3b 0a 09 20 20 20 .return -1;..
15f0: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 } else {...dpri
1600: 6e 74 66 28 22 44 6f 69 6e 67 20 73 6f 20 6e 6f ntf("Doing so no
1610: 77 22 29 3b 0a 09 09 63 6f 6e 74 69 6e 75 65 3b w");...continue;
1620: 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 64 70 72 .. }..}...dpr
1630: 69 6e 74 66 28 22 57 65 20 68 61 76 65 20 65 69 intf("We have ei
1640: 74 68 65 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 ther completely
1650: 65 73 74 61 62 6c 69 73 68 65 64 20 74 68 65 20 established the
1660: 73 65 73 73 69 6f 6e 20 6f 72 20 63 6f 6d 70 6c session or compl
1670: 65 74 65 6c 79 20 66 61 69 6c 65 64 20 69 74 20 etely failed it
1680: 2d 2d 20 74 68 65 72 65 20 69 73 20 6e 6f 20 6d -- there is no m
1690: 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 76 65 72 ore need to ever
16a0: 20 72 65 74 72 79 20 69 74 20 74 68 6f 75 67 68 retry it though
16b0: 22 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 ");..break;.
16c0: 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 72 }.. switch (r
16d0: 63 29 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45 c) {..case SSL_E
16e0: 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 RROR_NONE:..
16f0: 2f 2a 20 54 68 65 20 54 4c 53 2f 53 53 4c 20 49 /* The TLS/SSL I
1700: 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6d /O operation com
1710: 70 6c 65 74 65 64 20 2a 2f 0a 09 20 20 20 20 64 pleted */.. d
1720: 70 72 69 6e 74 66 28 22 54 68 65 20 63 6f 6e 6e printf("The conn
1730: 65 63 74 69 6f 6e 20 69 73 20 67 6f 6f 64 22 29 ection is good")
1740: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
1750: 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 ePtr = 0;.. b
1760: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c reak;...case SSL
1770: 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 _ERROR_ZERO_RETU
1780: 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 RN:.. /* The
1790: 54 4c 53 2f 53 53 4c 20 70 65 65 72 20 68 61 73 TLS/SSL peer has
17a0: 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e closed the conn
17b0: 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 ection for writi
17c0: 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 ng by sending th
17d0: 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 e close_notify a
17e0: 6c 65 72 74 20 2a 2f 0a 09 20 20 20 20 64 70 72 lert */.. dpr
17f0: 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f intf("SSL_ERROR_
1800: 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 20 43 6f 6e ZERO_RETURN: Con
1810: 6e 65 63 74 20 72 65 74 75 72 6e 65 64 20 61 6e nect returned an
1820: 20 69 6e 76 61 6c 69 64 20 76 61 6c 75 65 2e 2e invalid value..
1830: 2e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 .");.. *error
1840: 43 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c CodePtr = EINVAL
1850: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
1860: 28 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 72 (statePtr, "Peer
1870: 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 has closed the
1880: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 connection for w
1890: 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 6e riting by sendin
18a0: 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 g the close_noti
18b0: 66 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 fy alert");..
18c0: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 return -1;...ca
18d0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 se SSL_ERROR_SYS
18e0: 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f CALL:.. /* So
18f0: 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 me non-recoverab
1900: 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 le, fatal I/O er
1910: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a ror occurred */.
1920: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
1930: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 22 L_ERROR_SYSCALL"
1940: 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63 );... if (bac
1950: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
1960: 26 20 65 72 72 20 3d 3d 20 30 29 20 7b 0a 09 09 & err == 0) {...
1970: 64 70 72 69 6e 74 66 28 22 45 4f 46 20 72 65 61 dprintf("EOF rea
1980: 63 68 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 ched")...*errorC
1990: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 odePtr = ECONNRE
19a0: 53 45 54 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 SET;...Tls_Error
19b0: 28 73 74 61 74 65 50 74 72 2c 20 22 28 75 6e 65 (statePtr, "(une
19c0: 78 70 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 xpected) EOF rea
19d0: 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 ched");... }
19e0: 65 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 else if (backing
19f0: 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 Error == 0 && er
1a00: 72 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 r == -1) {...dpr
1a10: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
1a20: 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 occurred (errno
1a30: 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e = %lu)", (unsign
1a40: 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 ed long) Tcl_Get
1a50: 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 Errno());...*err
1a60: 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f orCodePtr = Tcl_
1a70: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 GetErrno();...if
1a80: 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 (*errorCodePtr
1a90: 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b == ECONNRESET) {
1aa0: 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ... *errorCod
1ab0: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 ePtr = ECONNABOR
1ac0: 54 45 44 3b 0a 09 09 7d 0a 09 09 54 6c 73 5f 45 TED;...}...Tls_E
1ad0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 rror(statePtr, (
1ae0: 63 68 61 72 20 2a 29 20 54 63 6c 5f 45 72 72 6e char *) Tcl_Errn
1af0: 6f 4d 73 67 28 2a 65 72 72 6f 72 43 6f 64 65 50 oMsg(*errorCodeP
1b00: 74 72 29 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c tr));... } el
1b10: 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 se {...dprintf("
1b20: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
1b30: 65 64 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 ed (backingError
1b40: 20 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e = %lu)", backin
1b50: 67 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 72 6f gError);...*erro
1b60: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
1b70: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 20 etErrno();...if
1b80: 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d (*errorCodePtr =
1b90: 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a = ECONNRESET) {.
1ba0: 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
1bb0: 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 Ptr = ECONNABORT
1bc0: 45 44 3b 0a 09 09 7d 0a 09 09 54 6c 73 5f 45 72 ED;...}...Tls_Er
1bd0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 ror(statePtr, (c
1be0: 68 61 72 20 2a 29 20 45 52 52 5f 72 65 61 73 6f har *) ERR_reaso
1bf0: 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 n_error_string(b
1c00: 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 ackingError));..
1c10: 20 20 20 20 7d 0a 0a 09 20 20 20 20 73 74 61 74 }... stat
1c20: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
1c30: 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 LS_TCL_HANDSHAKE
1c40: 5f 46 41 49 4c 45 44 3b 0a 09 20 20 20 20 72 65 _FAILED;.. re
1c50: 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 65 20 turn -1;...case
1c60: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 SSL_ERROR_SSL:..
1c70: 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 /* A non-rec
1c80: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
1c90: 65 72 72 6f 72 20 69 6e 20 74 68 65 20 53 53 4c error in the SSL
1ca0: 20 6c 69 62 72 61 72 79 20 6f 63 63 75 72 72 65 library occurre
1cb0: 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f d, usually a pro
1cc0: 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 tocol error */..
1cd0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
1ce0: 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 47 6f 74 20 _ERROR_SSL: Got
1cf0: 70 65 72 6d 61 6e 65 6e 74 20 66 61 74 61 6c 20 permanent fatal
1d00: 53 53 4c 20 65 72 72 6f 72 2c 20 61 62 6f 72 74 SSL error, abort
1d10: 69 6e 67 20 69 6d 6d 65 64 69 61 74 65 6c 79 22 ing immediately"
1d20: 29 3b 0a 09 20 20 20 20 69 66 20 28 53 53 4c 5f );.. if (SSL_
1d30: 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c get_verify_resul
1d40: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
1d50: 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b != X509_V_OK) {
1d60: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
1d70: 74 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 20 tePtr, (char *)
1d80: 58 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 X509_verify_cert
1d90: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 53 53 _error_string(SS
1da0: 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 L_get_verify_res
1db0: 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ult(statePtr->ss
1dc0: 6c 29 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 l)));.. }..
1dd0: 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 if (backingErr
1de0: 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c 73 or != 0) {...Tls
1df0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
1e00: 20 28 63 68 61 72 20 2a 29 20 45 52 52 5f 72 65 (char *) ERR_re
1e10: 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e ason_error_strin
1e20: 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 g(backingError))
1e30: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 73 74 ;.. }.. st
1e40: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
1e50: 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 TLS_TCL_HANDSHA
1e60: 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 20 20 20 20 KE_FAILED;..
1e70: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
1e80: 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 20 ECONNABORTED;..
1e90: 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 09 64 return -1;..d
1ea0: 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 2f 2a 20 efault:.. /*
1eb0: 54 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 The operation di
1ec0: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 61 d not complete a
1ed0: 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 72 65 74 nd should be ret
1ee0: 72 69 65 64 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 ried later. */..
1ef0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 4f 70 65 dprintf("Ope
1f00: 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 ration did not c
1f10: 6f 6d 70 6c 65 74 65 2c 20 63 61 6c 6c 20 66 75 omplete, call fu
1f20: 6e 63 74 69 6f 6e 20 61 67 61 69 6e 20 6c 61 74 nction again lat
1f30: 65 72 3a 20 25 69 22 2c 20 72 63 29 3b 0a 09 20 er: %i", rc);..
1f40: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
1f50: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
1f60: 64 70 72 69 6e 74 66 28 22 45 52 52 28 25 64 2c dprintf("ERR(%d,
1f70: 20 25 64 29 20 22 2c 20 72 63 2c 20 2a 65 72 72 %d) ", rc, *err
1f80: 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 20 20 20 orCodePtr);..
1f90: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
1fa0: 50 74 72 2c 20 22 4f 70 65 72 61 74 69 6f 6e 20 Ptr, "Operation
1fb0: 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 did not complete
1fc0: 2c 20 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 , call function
1fd0: 61 67 61 69 6e 20 6c 61 74 65 72 22 29 3b 0a 09 again later");..
1fe0: 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 return -1;.
1ff0: 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 }.. dprint
2000: 66 28 22 52 65 6d 6f 76 69 6e 67 20 74 68 65 20 f("Removing the
2010: 5c 22 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 5c 22 \"TLS_TCL_INIT\"
2020: 20 66 6c 61 67 20 73 69 6e 63 65 20 77 65 20 68 flag since we h
2030: 61 76 65 20 63 6f 6d 70 6c 65 74 65 64 20 74 68 ave completed th
2040: 65 20 68 61 6e 64 73 68 61 6b 65 22 29 3b 0a 20 e handshake");.
2050: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 statePtr->fla
2060: 67 73 20 26 3d 20 7e 54 4c 53 5f 54 43 4c 5f 49 gs &= ~TLS_TCL_I
2070: 4e 49 54 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 NIT;.. dprint
2080: 66 28 22 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 f("Returning in
2090: 73 75 63 63 65 73 73 22 29 3b 0a 20 20 20 20 2a success");. *
20a0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
20b0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a ;. return 0;.
20c0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
20d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
2110: 2a 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d * TlsInputProc -
2120: 2d 0a 20 2a 0a 20 2a 20 20 20 20 54 68 69 73 20 -. *. * This
2130: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
2140: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 oked by the gene
2150: 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 ric IO level. *
2160: 20 20 20 20 20 20 74 6f 20 72 65 61 64 20 69 6e to read in
2170: 70 75 74 20 66 72 6f 6d 20 61 20 53 53 4c 20 73 put from a SSL s
2180: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
2190: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
21a0: 74 73 3a 0a 20 2a 20 20 20 20 52 65 74 75 72 6e ts:. * Return
21b0: 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 s the number of
21c0: 62 79 74 65 73 20 72 65 61 64 20 6f 72 20 2d 31 bytes read or -1
21d0: 20 6f 6e 20 65 72 72 6f 72 2e 20 53 65 74 73 20 on error. Sets
21e0: 65 72 72 6f 72 43 6f 64 65 50 74 72 0a 20 2a 20 errorCodePtr. *
21f0: 20 20 20 74 6f 20 61 20 50 4f 53 49 58 20 65 72 to a POSIX er
2200: 72 6f 72 20 63 6f 64 65 20 69 66 20 61 6e 20 65 ror code if an e
2210: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 6f rror occurred, o
2220: 72 20 30 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a r 0 if none.. *.
2230: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2240: 0a 20 2a 20 20 20 20 52 65 61 64 73 20 69 6e 70 . * Reads inp
2250: 75 74 20 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 ut from the inpu
2260: 74 20 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 t device of the
2270: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d channel.. *. *--
2280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22c0: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
22d0: 74 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 28 0a t TlsInputProc(.
22e0: 20 20 20 20 76 6f 69 64 20 2a 69 6e 73 74 61 6e void *instan
22f0: 63 65 44 61 74 61 2c 0a 20 20 20 20 63 68 61 72 ceData,. char
2300: 20 2a 62 75 66 2c 0a 20 20 20 20 69 6e 74 20 62 *buf,. int b
2310: 75 66 53 69 7a 65 2c 0a 20 20 20 20 69 6e 74 20 ufSize,. int
2320: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 0a 7b *errorCodePtr).{
2330: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f . unsigned lo
2340: 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b ng backingError;
2350: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
2360: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
2370: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 instanceData;.
2380: 20 20 69 6e 74 20 62 79 74 65 73 52 65 61 64 3b int bytesRead;
2390: 0a 20 20 20 20 69 6e 74 20 74 6c 73 43 6f 6e 6e . int tlsConn
23a0: 65 63 74 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 ect;. int err
23b0: 3b 0a 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
23c0: 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 ePtr = 0;.. d
23d0: 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 printf("BIO_read
23e0: 28 25 64 29 22 2c 20 62 75 66 53 69 7a 65 29 3b (%d)", bufSize);
23f0: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
2400: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
2410: 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a TCL_CALLBACK) {.
2420: 09 2f 2a 20 64 6f 6e 27 74 20 70 72 6f 63 65 73 ./* don't proces
2430: 73 20 61 6e 79 20 62 79 74 65 73 20 77 68 69 6c s any bytes whil
2440: 65 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 e verify callbac
2450: 6b 20 69 73 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a k is running */.
2460: 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 .dprintf("Callba
2470: 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 2c 20 72 ck is running, r
2480: 65 61 64 69 6e 67 20 30 20 62 79 74 65 73 22 29 eading 0 bytes")
2490: 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 ;..return 0;.
24a0: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 }.. dprintf(
24b0: 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 "Calling Tls_Wai
24c0: 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 20 tForConnect");.
24d0: 20 20 20 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 tlsConnect =
24e0: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
24f0: 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 72 72 ct(statePtr, err
2500: 6f 72 43 6f 64 65 50 74 72 2c 20 30 29 3b 0a 20 orCodePtr, 0);.
2510: 20 20 20 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 if (tlsConnec
2520: 74 20 3c 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 t < 0) {..dprint
2530: 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 f("Got an error
2540: 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 waiting to conne
2550: 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d ct (tlsConnect =
2560: 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 %i, *errorCodeP
2570: 74 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f tr = %i)", tlsCo
2580: 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 nnect, *errorCod
2590: 65 50 74 72 29 3b 0a 09 54 6c 73 5f 45 72 72 6f ePtr);..Tls_Erro
25a0: 72 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 65 r(statePtr, stre
25b0: 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 50 rror(*errorCodeP
25c0: 74 72 29 29 3b 0a 0a 09 62 79 74 65 73 52 65 61 tr));...bytesRea
25d0: 64 20 3d 20 2d 31 3b 0a 09 69 66 20 28 2a 65 72 d = -1;..if (*er
25e0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 rorCodePtr == EC
25f0: 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 20 20 20 ONNRESET) {..
2600: 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 63 6f dprintf("Got co
2610: 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 22 29 nnection reset")
2620: 3b 0a 09 20 20 20 20 2f 2a 20 53 6f 66 74 20 45 ;.. /* Soft E
2630: 4f 46 20 2a 2f 0a 09 20 20 20 20 2a 65 72 72 6f OF */.. *erro
2640: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 rCodePtr = 0;..
2650: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 bytesRead = 0
2660: 3b 0a 09 7d 0a 09 72 65 74 75 72 6e 20 62 79 74 ;..}..return byt
2670: 65 73 52 65 61 64 3b 0a 20 20 20 20 7d 0a 0a 20 esRead;. }..
2680: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 65 20 /*. * We
2690: 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 20 74 68 need to clear th
26a0: 65 20 53 53 4c 20 65 72 72 6f 72 20 73 74 61 63 e SSL error stac
26b0: 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 20 77 65 k now because we
26c0: 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 61 63 68 sometimes reach
26d0: 0a 20 20 20 20 20 2a 20 74 68 69 73 20 66 75 6e . * this fun
26e0: 63 74 69 6f 6e 20 77 69 74 68 20 6c 65 66 74 6f ction with lefto
26f0: 76 65 72 20 65 72 72 6f 72 73 20 69 6e 20 74 68 ver errors in th
2700: 65 20 73 74 61 63 6b 2e 20 20 49 66 20 42 49 4f e stack. If BIO
2710: 5f 72 65 61 64 0a 20 20 20 20 20 2a 20 72 65 74 _read. * ret
2720: 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 6e 74 65 urns -1 and inte
2730: 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 68 65 72 nds EAGAIN, ther
2740: 65 20 69 73 20 61 20 6c 65 66 74 6f 76 65 72 20 e is a leftover
2750: 65 72 72 6f 72 2c 20 69 74 20 77 69 6c 6c 20 62 error, it will b
2760: 65 0a 20 20 20 20 20 2a 20 6d 69 73 63 6f 6e 73 e. * miscons
2770: 74 72 75 65 64 20 61 73 20 61 6e 20 65 72 72 6f trued as an erro
2780: 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a 20 r, not EAGAIN..
2790: 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 41 6c 74 *. * Alt
27a0: 65 72 6e 61 74 69 76 65 6c 79 2c 20 77 65 20 6d ernatively, we m
27b0: 61 79 20 77 61 6e 74 20 74 6f 20 68 61 6e 64 6c ay want to handl
27c0: 65 20 74 68 65 20 3c 30 20 72 65 74 75 72 6e 20 e the <0 return
27d0: 63 6f 64 65 73 20 66 72 6f 6d 0a 20 20 20 20 20 codes from.
27e0: 2a 20 42 49 4f 5f 72 65 61 64 20 73 70 65 63 69 * BIO_read speci
27f0: 61 6c 6c 79 20 28 61 73 20 61 64 76 69 73 65 64 ally (as advised
2800: 20 69 6e 20 74 68 65 20 52 53 41 20 64 6f 63 73 in the RSA docs
2810: 29 2e 20 20 54 4c 53 27 73 20 6c 6f 77 65 72 20 ). TLS's lower
2820: 6c 65 76 65 6c 20 42 49 4f 0a 20 20 20 20 20 2a level BIO. *
2830: 20 66 75 6e 63 74 69 6f 6e 73 20 70 6c 61 79 20 functions play
2840: 77 69 74 68 20 74 68 65 20 72 65 74 72 79 20 66 with the retry f
2850: 6c 61 67 73 20 74 68 6f 75 67 68 2c 20 61 6e 64 lags though, and
2860: 20 74 68 69 73 20 73 65 65 6d 73 20 74 6f 20 77 this seems to w
2870: 6f 72 6b 0a 20 20 20 20 20 2a 20 63 6f 72 72 65 ork. * corre
2880: 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61 72 20 66 ctly. Similar f
2890: 69 78 20 69 6e 20 54 6c 73 4f 75 74 70 75 74 50 ix in TlsOutputP
28a0: 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a 20 20 20 roc. - hobbs.
28b0: 20 20 2a 2f 0a 20 20 20 20 45 52 52 5f 63 6c 65 */. ERR_cle
28c0: 61 72 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 20 ar_error();.
28d0: 62 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f 5f bytesRead = BIO_
28e0: 72 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 read(statePtr->b
28f0: 69 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a 65 io, buf, bufSize
2900: 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 );. dprintf("
2910: 42 49 4f 5f 72 65 61 64 20 2d 3e 20 25 64 22 2c BIO_read -> %d",
2920: 20 62 79 74 65 73 52 65 61 64 29 3b 0a 0a 20 20 bytesRead);..
2930: 20 20 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f err = SSL_get_
2940: 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e error(statePtr->
2950: 73 73 6c 2c 20 62 79 74 65 73 52 65 61 64 29 3b ssl, bytesRead);
2960: 0a 20 20 20 20 62 61 63 6b 69 6e 67 45 72 72 6f . backingErro
2970: 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f r = ERR_get_erro
2980: 72 28 29 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 r();..#if 0.
2990: 69 66 20 28 62 79 74 65 73 52 65 61 64 20 3c 3d if (bytesRead <=
29a0: 20 30 29 20 7b 0a 09 69 66 20 28 42 49 4f 5f 73 0) {..if (BIO_s
29b0: 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 hould_retry(stat
29c0: 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 ePtr->bio)) {..
29d0: 20 20 20 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 dprintf("I/O
29e0: 66 61 69 6c 65 64 2c 20 77 69 6c 6c 20 72 65 74 failed, will ret
29f0: 72 79 20 62 61 73 65 64 20 6f 6e 20 45 41 47 41 ry based on EAGA
2a00: 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f IN");.. *erro
2a10: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
2a20: 4e 3b 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 N;..}. }.#end
2a30: 69 66 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 if.. switch (
2a40: 65 72 72 29 20 7b 0a 09 63 61 73 65 20 53 53 4c err) {..case SSL
2a50: 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 _ERROR_NONE:..
2a60: 20 20 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 dprintBuffer(b
2a70: 75 66 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a uf, bytesRead);.
2a80: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
2a90: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c se SSL_ERROR_SSL
2aa0: 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d :.. /* A non-
2ab0: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
2ac0: 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 al error in the
2ad0: 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 75 SSL library occu
2ae0: 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 rred, usually a
2af0: 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a protocol error *
2b00: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
2b10: 53 53 4c 20 65 72 72 6f 72 2c 20 69 6e 64 69 63 SSL error, indic
2b20: 61 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 63 ating that the c
2b30: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 65 onnection has be
2b40: 65 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 09 20 en aborted");..
2b50: 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 if (backingEr
2b60: 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c ror != 0) {...Tl
2b70: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
2b80: 2c 20 28 63 68 61 72 20 2a 29 20 45 52 52 5f 72 , (char *) ERR_r
2b90: 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 eason_error_stri
2ba0: 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 ng(backingError)
2bb0: 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 );.. } else i
2bc0: 66 20 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 f (SSL_get_verif
2bd0: 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 y_result(statePt
2be0: 72 2d 3e 73 73 6c 29 20 21 3d 20 58 35 30 39 5f r->ssl) != X509_
2bf0: 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 73 5f 45 72 V_OK) {...Tls_Er
2c00: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 ror(statePtr, (c
2c10: 68 61 72 20 2a 29 20 58 35 30 39 5f 76 65 72 69 har *) X509_veri
2c20: 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 fy_cert_error_st
2c30: 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 ring(SSL_get_ver
2c40: 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 ify_result(state
2c50: 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 Ptr->ssl)));..
2c60: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c 73 } else {...Tls
2c70: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
2c80: 20 22 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 72 "Unknown SSL er
2c90: 72 6f 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 20 ror");.. }..
2ca0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
2cb0: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b = ECONNABORTED;
2cc0: 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 .. bytesRead
2cd0: 3d 20 2d 31 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 = -1;..#if OPENS
2ce0: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 SL_VERSION_NUMBE
2cf0: 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 30 4c R >= 0x30000000L
2d00: 0a 09 20 20 20 20 2f 2a 20 55 6e 65 78 70 65 63 .. /* Unexpec
2d10: 74 65 64 20 45 4f 46 20 66 72 6f 6d 20 74 68 65 ted EOF from the
2d20: 20 70 65 65 72 20 66 6f 72 20 4f 70 65 6e 53 53 peer for OpenSS
2d30: 4c 20 33 2e 30 2b 20 2a 2f 0a 09 20 20 20 20 69 L 3.0+ */.. i
2d40: 66 20 28 45 52 52 5f 47 45 54 5f 52 45 41 53 4f f (ERR_GET_REASO
2d50: 4e 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 20 N(backingError)
2d60: 3d 3d 20 53 53 4c 5f 52 5f 55 4e 45 58 50 45 43 == SSL_R_UNEXPEC
2d70: 54 45 44 5f 45 4f 46 5f 57 48 49 4c 45 5f 52 45 TED_EOF_WHILE_RE
2d80: 41 44 49 4e 47 29 20 7b 0a 09 09 64 70 72 69 6e ADING) {...dprin
2d90: 74 66 28 22 28 55 6e 65 78 70 65 63 74 65 64 29 tf("(Unexpected)
2da0: 20 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 EOF reached")..
2db0: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
2dc0: 20 30 3b 0a 09 09 62 79 74 65 73 52 65 61 64 20 0;...bytesRead
2dd0: 3d 20 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 = 0;...Tls_Error
2de0: 28 73 74 61 74 65 50 74 72 2c 20 22 45 4f 46 20 (statePtr, "EOF
2df0: 72 65 61 63 68 65 64 22 29 3b 0a 09 20 20 20 20 reached");..
2e00: 7d 0a 23 65 6e 64 69 66 0a 09 20 20 20 20 62 72 }.#endif.. br
2e10: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
2e20: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 ERROR_SYSCALL:..
2e30: 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d /* Some non-
2e40: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
2e50: 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 al I/O error occ
2e60: 75 72 72 65 64 20 2a 2f 0a 0a 09 20 20 20 20 69 urred */... i
2e70: 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 f (backingError
2e80: 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 == 0 && bytesRea
2e90: 64 20 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 55 d == 0) {.../* U
2ea0: 6e 65 78 70 65 63 74 65 64 20 45 4f 46 20 66 72 nexpected EOF fr
2eb0: 6f 6d 20 74 68 65 20 70 65 65 72 20 66 6f 72 20 om the peer for
2ec0: 4f 70 65 6e 53 53 4c 20 31 2e 31 20 2a 2f 0a 09 OpenSSL 1.1 */..
2ed0: 09 64 70 72 69 6e 74 66 28 22 28 55 6e 65 78 70 .dprintf("(Unexp
2ee0: 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 68 ected) EOF reach
2ef0: 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ed")...*errorCod
2f00: 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 ePtr = 0;...byte
2f10: 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 54 6c 73 sRead = 0;...Tls
2f20: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
2f30: 20 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b "EOF reached");
2f40: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
2f50: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d (backingError =
2f60: 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 = 0 && bytesRead
2f70: 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 == -1) {...dpri
2f80: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
2f90: 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d ccurred (errno =
2fa0: 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 %lu)", (unsigne
2fb0: 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 d long) Tcl_GetE
2fc0: 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f rrno());...*erro
2fd0: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
2fe0: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79 74 etErrno();...byt
2ff0: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 54 esRead = -1;...T
3000: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
3010: 72 2c 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f r, (char *) Tcl_
3020: 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 6f 72 43 ErrnoMsg(*errorC
3030: 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 20 odePtr));...
3040: 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e } else {...dprin
3050: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tf("I/O error oc
3060: 63 75 72 72 65 64 20 28 62 61 63 6b 69 6e 67 45 curred (backingE
3070: 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20 62 61 rror = %lu)", ba
3080: 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09 09 2a ckingError);...*
3090: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 errorCodePtr = T
30a0: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 cl_GetErrno();..
30b0: 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b .bytesRead = -1;
30c0: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
30d0: 74 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 20 tePtr, (char *)
30e0: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
30f0: 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 _string(backingE
3100: 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 rror));.. }..
3110: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
3120: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f e SSL_ERROR_ZERO
3130: 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 64 70 _RETURN:.. dp
3140: 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 rintf("Got SSL_E
3150: 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e RROR_ZERO_RETURN
3160: 2c 20 74 68 69 73 20 6d 65 61 6e 73 20 61 6e 20 , this means an
3170: 45 4f 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 EOF has been rea
3180: 63 68 65 64 22 29 3b 0a 09 20 20 20 20 62 79 74 ched");.. byt
3190: 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 esRead = 0;..
31a0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
31b0: 20 30 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 0;.. Tls_Err
31c0: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 50 65 or(statePtr, "Pe
31d0: 65 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 er has closed th
31e0: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 e connection for
31f0: 20 77 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 writing by send
3200: 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f ing the close_no
3210: 74 69 66 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 tify alert");..
3220: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 break;...case
3230: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
3240: 52 45 41 44 3a 0a 09 20 20 20 20 64 70 72 69 6e READ:.. dprin
3250: 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f tf("Got SSL_ERRO
3260: 52 5f 57 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70 R_WANT_READ, map
3270: 70 69 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 ping this to EAG
3280: 41 49 4e 22 29 3b 0a 09 20 20 20 20 62 79 74 65 AIN");.. byte
3290: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 sRead = -1;..
32a0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
32b0: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 54 6c EAGAIN;.. Tl
32c0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
32d0: 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e , "SSL_ERROR_WAN
32e0: 54 5f 52 45 41 44 22 29 3b 0a 09 20 20 20 20 62 T_READ");.. b
32f0: 72 65 61 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 3a reak;...default:
3300: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 55 .. dprintf("U
3310: 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 20 28 65 72 nknown error (er
3320: 72 20 3d 20 25 69 29 2c 20 6d 61 70 70 69 6e 67 r = %i), mapping
3330: 20 74 6f 20 45 4f 46 22 2c 20 65 72 72 29 3b 0a to EOF", err);.
3340: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3350: 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 tr = 0;.. byt
3360: 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 esRead = 0;..
3370: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
3380: 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 65 72 Ptr, "Unknown er
3390: 72 6f 72 22 29 3b 0a 09 20 20 20 20 62 72 65 61 ror");.. brea
33a0: 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 k;. }.. dp
33b0: 72 69 6e 74 66 28 22 49 6e 70 75 74 28 25 64 29 rintf("Input(%d)
33c0: 20 2d 3e 20 25 64 20 5b 25 64 5d 22 2c 20 62 75 -> %d [%d]", bu
33d0: 66 53 69 7a 65 2c 20 62 79 74 65 73 52 65 61 64 fSize, bytesRead
33e0: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 , *errorCodePtr)
33f0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 ;. return byt
3400: 65 73 52 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a esRead;.}../*. *
3410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3450: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f 75 74 ---. *. * TlsOut
3460: 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a putProc --. *. *
3470: 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 This procedu
3480: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 re is invoked by
3490: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
34a0: 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 level. * t
34b0: 6f 20 77 72 69 74 65 20 6f 75 74 70 75 74 20 74 o write output t
34c0: 6f 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 o a SSL socket b
34d0: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ased channel.. *
34e0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 . * Results:. *
34f0: 20 20 20 52 65 74 75 72 6e 73 20 74 68 65 20 6e Returns the n
3500: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 umber of bytes w
3510: 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 6f 6e 20 ritten or -1 on
3520: 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f error. Sets erro
3530: 72 43 6f 64 65 50 74 72 0a 20 2a 20 20 20 20 74 rCodePtr. * t
3540: 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 o a POSIX error
3550: 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 code if an error
3560: 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 30 20 occurred, or 0
3570: 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 if none.. *. * S
3580: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 ide effects:. *
3590: 20 20 20 57 72 69 74 65 73 20 6f 75 74 70 75 74 Writes output
35a0: 20 6f 6e 20 74 68 65 20 6f 75 74 70 75 74 20 64 on the output d
35b0: 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 61 evice of the cha
35c0: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
35d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
3610: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 54 */..static int T
3620: 6c 73 4f 75 74 70 75 74 50 72 6f 63 28 0a 20 20 lsOutputProc(.
3630: 20 20 76 6f 69 64 20 2a 69 6e 73 74 61 6e 63 65 void *instance
3640: 44 61 74 61 2c 0a 20 20 20 20 63 6f 6e 73 74 20 Data,. const
3650: 63 68 61 72 20 2a 62 75 66 2c 0a 20 20 20 20 69 char *buf,. i
3660: 6e 74 20 74 6f 57 72 69 74 65 2c 0a 20 20 20 20 nt toWrite,.
3670: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
3680: 72 29 0a 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 r).{. unsigne
3690: 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 d long backingEr
36a0: 72 6f 72 3b 0a 20 20 20 20 53 74 61 74 65 20 2a ror;. State *
36b0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
36c0: 65 20 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 61 e *)instanceData
36d0: 3b 0a 20 20 20 20 69 6e 74 20 77 72 69 74 74 65 ;. int writte
36e0: 6e 2c 20 65 72 72 3b 0a 20 20 20 20 69 6e 74 20 n, err;. int
36f0: 74 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 20 20 20 tlsConnect;..
3700: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
3710: 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 0;.. dprintf
3720: 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c 20 ("BIO_write(%p,
3730: 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 %d)", (void *) s
3740: 74 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 tatePtr, toWrite
3750: 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 42 75 66 );. dprintBuf
3760: 66 65 72 28 62 75 66 2c 20 74 6f 57 72 69 74 65 fer(buf, toWrite
3770: 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 );.. if (stat
3780: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
3790: 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 S_TCL_CALLBACK)
37a0: 7b 0a 09 64 70 72 69 6e 74 66 28 22 44 6f 6e 27 {..dprintf("Don'
37b0: 74 20 70 72 6f 63 65 73 73 20 6f 75 74 70 75 74 t process output
37c0: 20 77 68 69 6c 65 20 63 61 6c 6c 62 61 63 6b 73 while callbacks
37d0: 20 61 72 65 20 72 75 6e 6e 69 6e 67 22 29 3b 0a are running");.
37e0: 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 .written = -1;..
37f0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3800: 45 41 47 41 49 4e 3b 0a 09 72 65 74 75 72 6e 20 EAGAIN;..return
3810: 2d 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 -1;. }.. d
3820: 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 printf("Calling
3830: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
3840: 63 74 22 29 3b 0a 20 20 20 20 74 6c 73 43 6f 6e ct");. tlsCon
3850: 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 nect = Tls_WaitF
3860: 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 orConnect(stateP
3870: 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 72 tr, errorCodePtr
3880: 2c 20 31 29 3b 0a 20 20 20 20 69 66 20 28 74 6c , 1);. if (tl
3890: 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b 0a sConnect < 0) {.
38a0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e .dprintf("Got an
38b0: 20 65 72 72 6f 72 20 77 61 69 74 69 6e 67 20 74 error waiting t
38c0: 6f 20 63 6f 6e 6e 65 63 74 20 28 74 6c 73 43 6f o connect (tlsCo
38d0: 6e 6e 65 63 74 20 3d 20 25 69 2c 20 2a 65 72 72 nnect = %i, *err
38e0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 25 69 29 22 orCodePtr = %i)"
38f0: 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 , tlsConnect, *e
3900: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 54 rrorCodePtr);..T
3910: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
3920: 72 2c 20 73 74 72 65 72 72 6f 72 28 2a 65 72 72 r, strerror(*err
3930: 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 77 orCodePtr));...w
3940: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 69 66 ritten = -1;..if
3950: 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 (*errorCodePtr
3960: 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b == ECONNRESET) {
3970: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 .. dprintf("G
3980: 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 ot connection re
3990: 73 65 74 22 29 3b 0a 09 20 20 20 20 2f 2a 20 53 set");.. /* S
39a0: 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 20 20 20 20 oft EOF */..
39b0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
39c0: 30 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 0;.. written
39d0: 3d 20 30 3b 0a 09 7d 0a 09 72 65 74 75 72 6e 20 = 0;..}..return
39e0: 77 72 69 74 74 65 6e 3b 0a 20 20 20 20 7d 0a 0a written;. }..
39f0: 20 20 20 20 69 66 20 28 74 6f 57 72 69 74 65 20 if (toWrite
3a00: 3d 3d 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 == 0) {..dprintf
3a10: 28 22 7a 65 72 6f 2d 77 72 69 74 65 22 29 3b 0a ("zero-write");.
3a20: 09 65 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 .err = BIO_flush
3a30: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
3a40: 0a 0a 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 ...if (err <= 0)
3a50: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
3a60: 22 46 6c 75 73 68 69 6e 67 20 66 61 69 6c 65 64 "Flushing failed
3a70: 22 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 ");.. Tls_Err
3a80: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 46 6c or(statePtr, "Fl
3a90: 75 73 68 20 66 61 69 6c 65 64 22 29 3b 0a 0a 09 ush failed");...
3aa0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
3ab0: 72 20 3d 20 45 49 4f 3b 0a 09 20 20 20 20 77 72 r = EIO;.. wr
3ac0: 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 itten = 0;..
3ad0: 72 65 74 75 72 6e 20 2d 31 3b 0a 09 7d 0a 0a 09 return -1;..}...
3ae0: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 2a 65 written = 0;..*e
3af0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
3b00: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ..return 0;.
3b10: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a }.. /*. *
3b20: 20 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 We need to clea
3b30: 72 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 r the SSL error
3b40: 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 stack now becaus
3b50: 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 e we sometimes r
3b60: 65 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 each. * this
3b70: 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c function with l
3b80: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 eftover errors i
3b90: 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 n the stack. If
3ba0: 20 42 49 4f 5f 77 72 69 74 65 0a 20 20 20 20 20 BIO_write.
3bb0: 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 * returns -1 and
3bc0: 20 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c intends EAGAIN,
3bd0: 20 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 there is a left
3be0: 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 over error, it w
3bf0: 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 ill be. * mi
3c00: 73 63 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e sconstrued as an
3c10: 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 error, not EAGA
3c20: 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 IN.. *.
3c30: 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c * Alternatively,
3c40: 20 77 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 we may want to
3c50: 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 handle the <0 re
3c60: 74 75 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a turn codes from.
3c70: 20 20 20 20 20 2a 20 42 49 4f 5f 77 72 69 74 65 * BIO_write
3c80: 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 61 specially (as a
3c90: 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 53 dvised in the RS
3ca0: 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 A docs). TLS's
3cb0: 6c 6f 77 65 72 20 6c 65 76 65 6c 0a 20 20 20 20 lower level.
3cc0: 20 2a 20 42 49 4f 20 66 75 6e 63 74 69 6f 6e 73 * BIO functions
3cd0: 20 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 play with the r
3ce0: 65 74 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 etry flags thoug
3cf0: 68 2c 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d h, and this seem
3d00: 73 20 74 6f 0a 20 20 20 20 20 2a 20 77 6f 72 6b s to. * work
3d10: 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 6d correctly. Sim
3d20: 69 6c 61 72 20 66 69 78 20 69 6e 20 54 6c 73 49 ilar fix in TlsI
3d30: 6e 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 nputProc. - hobb
3d40: 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 52 s. */. ER
3d50: 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b R_clear_error();
3d60: 0a 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 42 . written = B
3d70: 49 4f 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 IO_write(statePt
3d80: 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 74 6f 57 r->bio, buf, toW
3d90: 72 69 74 65 29 3b 0a 20 20 20 20 64 70 72 69 6e rite);. dprin
3da0: 74 66 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 tf("BIO_write(%p
3db0: 2c 20 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 20 , %d) -> [%d]",
3dc0: 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 (void *) statePt
3dd0: 72 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 r, toWrite, writ
3de0: 74 65 6e 29 3b 0a 0a 20 20 20 20 65 72 72 20 3d ten);.. err =
3df0: 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 SSL_get_error(s
3e00: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 tatePtr->ssl, wr
3e10: 69 74 74 65 6e 29 3b 0a 20 20 20 20 62 61 63 6b itten);. back
3e20: 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 ingError = ERR_g
3e30: 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 et_error();..
3e40: 20 73 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a switch (err) {.
3e50: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
3e60: 4e 4f 4e 45 3a 0a 09 20 20 20 20 69 66 20 28 77 NONE:.. if (w
3e70: 72 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09 ritten < 0) {...
3e80: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 written = 0;..
3e90: 20 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a }.. break;.
3ea0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
3eb0: 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 _WANT_WRITE:..
3ec0: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
3ed0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
3ee0: 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 ITE, mapping it
3ef0: 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 to EAGAIN");..
3f00: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
3f10: 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 = EAGAIN;.. w
3f20: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 ritten = -1;..
3f30: 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 Tls_Error(stat
3f40: 65 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 4f 52 ePtr, "SSL_ERROR
3f50: 5f 57 41 4e 54 5f 57 52 49 54 45 22 29 3b 0a 09 _WANT_WRITE");..
3f60: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
3f70: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 e SSL_ERROR_WANT
3f80: 5f 52 45 41 44 3a 0a 09 20 20 20 20 64 70 72 69 _READ:.. dpri
3f90: 6e 74 66 28 22 20 77 72 69 74 65 20 52 20 42 4c ntf(" write R BL
3fa0: 4f 43 4b 22 29 3b 0a 09 20 20 20 20 54 6c 73 5f OCK");.. Tls_
3fb0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
3fc0: 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f "SSL_ERROR_WANT_
3fd0: 52 45 41 44 22 29 3b 0a 09 20 20 20 20 62 72 65 READ");.. bre
3fe0: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
3ff0: 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c RROR_WANT_X509_L
4000: 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 64 70 72 69 OOKUP:.. dpri
4010: 6e 74 66 28 22 20 77 72 69 74 65 20 58 20 42 4c ntf(" write X BL
4020: 4f 43 4b 22 29 3b 0a 09 20 20 20 20 54 6c 73 5f OCK");.. Tls_
4030: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
4040: 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f "SSL_ERROR_WANT_
4050: 58 35 30 39 5f 4c 4f 4f 4b 55 50 22 29 3b 0a 09 X509_LOOKUP");..
4060: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
4070: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f e SSL_ERROR_ZERO
4080: 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 64 70 _RETURN:.. dp
4090: 72 69 6e 74 66 28 22 20 63 6c 6f 73 65 64 22 29 rintf(" closed")
40a0: 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d ;.. written =
40b0: 20 30 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 0;.. *errorC
40c0: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 odePtr = 0;..
40d0: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
40e0: 50 74 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 Ptr, "Peer has c
40f0: 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 losed the connec
4100: 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 tion for writing
4110: 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 by sending the
4120: 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 close_notify ale
4130: 72 74 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b rt");.. break
4140: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
4150: 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 20 20 OR_SYSCALL:..
4160: 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 /* Some non-rec
4170: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
4180: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
4190: 65 64 20 2a 2f 0a 0a 09 20 20 20 20 69 66 20 28 ed */... if (
41a0: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 backingError ==
41b0: 30 20 26 26 20 77 72 69 74 74 65 6e 20 3d 3d 20 0 && written ==
41c0: 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 0) {...dprintf("
41d0: 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 EOF reached")...
41e0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
41f0: 30 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 0;...written = 0
4200: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
4210: 61 74 65 50 74 72 2c 20 22 45 4f 46 20 72 65 61 atePtr, "EOF rea
4220: 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 ched");... }
4230: 65 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 else if (backing
4240: 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 Error == 0 && wr
4250: 69 74 74 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 itten == -1) {..
4260: 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 .dprintf("I/O er
4270: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 ror occurred (er
4280: 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e rno = %lu)", (un
4290: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c signed long) Tcl
42a0: 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 _GetErrno());...
42b0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
42c0: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a Tcl_GetErrno();.
42d0: 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a ..written = -1;.
42e0: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
42f0: 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 20 54 ePtr, (char *) T
4300: 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 cl_ErrnoMsg(*err
4310: 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 orCodePtr));...
4320: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 } else {...dp
4330: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
4340: 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 occurred (backi
4350: 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c ngError = %lu)",
4360: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a backingError);.
4370: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
4380: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 = Tcl_GetErrno()
4390: 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 ;...written = -1
43a0: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
43b0: 61 74 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 atePtr, (char *)
43c0: 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f ERR_reason_erro
43d0: 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 r_string(backing
43e0: 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a Error));.. }.
43f0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
4400: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c se SSL_ERROR_SSL
4410: 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d :.. /* A non-
4420: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
4430: 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 al error in the
4440: 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 75 SSL library occu
4450: 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 rred, usually a
4460: 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a protocol error *
4470: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
4480: 53 53 4c 20 65 72 72 6f 72 2c 20 69 6e 64 69 63 SSL error, indic
4490: 61 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 63 ating that the c
44a0: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 65 onnection has be
44b0: 65 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 09 20 en aborted");..
44c0: 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 if (backingEr
44d0: 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c ror != 0) {...Tl
44e0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
44f0: 2c 20 28 63 68 61 72 20 2a 29 20 45 52 52 5f 72 , (char *) ERR_r
4500: 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 eason_error_stri
4510: 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 ng(backingError)
4520: 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 );.. } else i
4530: 66 20 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 f (SSL_get_verif
4540: 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 y_result(statePt
4550: 72 2d 3e 73 73 6c 29 20 21 3d 20 58 35 30 39 5f r->ssl) != X509_
4560: 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 73 5f 45 72 V_OK) {...Tls_Er
4570: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 ror(statePtr, (c
4580: 68 61 72 20 2a 29 20 58 35 30 39 5f 76 65 72 69 har *) X509_veri
4590: 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 fy_cert_error_st
45a0: 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 ring(SSL_get_ver
45b0: 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 ify_result(state
45c0: 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 Ptr->ssl)));..
45d0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c 73 } else {...Tls
45e0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
45f0: 20 22 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 72 "Unknown SSL er
4600: 72 6f 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 20 ror");.. }..
4610: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
4620: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b = ECONNABORTED;
4630: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 .. written =
4640: 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a -1;.. break;.
4650: 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 ..default:..
4660: 64 70 72 69 6e 74 66 28 22 75 6e 6b 6e 6f 77 6e dprintf("unknown
4670: 20 65 72 72 6f 72 3a 20 25 64 22 2c 20 65 72 72 error: %d", err
4680: 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f );.. Tls_Erro
4690: 72 28 73 74 61 74 65 50 74 72 2c 20 22 55 6e 6b r(statePtr, "Unk
46a0: 6e 6f 77 6e 20 65 72 72 6f 72 22 29 3b 0a 09 20 nown error");..
46b0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
46c0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 4f 75 . dprintf("Ou
46d0: 74 70 75 74 28 25 64 29 20 2d 3e 20 25 64 22 2c tput(%d) -> %d",
46e0: 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 65 toWrite, writte
46f0: 6e 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 77 n);. return w
4700: 72 69 74 74 65 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a ritten;.}../*. *
4710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4750: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 53 65 74 ---. *. * TlsSet
4760: 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a OptionProc --. *
4770: 0a 20 2a 20 20 20 20 53 65 74 73 20 61 6e 20 6f . * Sets an o
4780: 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 6f 72 20 ption value for
4790: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
47a0: 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 ed channel, or a
47b0: 0a 20 2a 20 20 20 20 6c 69 73 74 20 6f 66 20 61 . * list of a
47c0: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 ll options and t
47d0: 68 65 69 72 20 76 61 6c 75 65 73 2e 0a 20 2a 0a heir values.. *.
47e0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 * Results:. *
47f0: 20 20 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 TCL_OK if succ
4800: 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45 52 essful or TCL_ER
4810: 52 4f 52 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 ROR if failed..
4820: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
4830: 73 3a 0a 20 2a 20 20 20 20 55 70 64 61 74 65 73 s:. * Updates
4840: 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 channel option
4850: 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 2a to new value.. *
4860: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
4870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48a0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
48b0: 63 20 69 6e 74 0a 54 6c 73 53 65 74 4f 70 74 69 c int.TlsSetOpti
48c0: 6f 6e 50 72 6f 63 28 76 6f 69 64 20 2a 69 6e 73 onProc(void *ins
48d0: 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a tanceData, /*
48e0: 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a Socket state. *
48f0: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
4900: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
4910: 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 r errors - can b
4920: 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 e NULL. */. c
4930: 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f onst char *optio
4940: 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f nName,./* Name o
4950: 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 f the option to
4960: 73 65 74 20 74 68 65 20 76 61 6c 75 65 20 66 6f set the value fo
4970: 72 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e 55 4c r, or..... * NUL
4980: 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 74 L to get all opt
4990: 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 ions and their v
49a0: 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 63 6f alues. */. co
49b0: 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e nst char *option
49c0: 56 61 6c 75 65 29 09 2f 2a 20 56 61 6c 75 65 20 Value)./* Value
49d0: 66 6f 72 20 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 7b for option. */.{
49e0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
49f0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
4a00: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 instanceData;..
4a10: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 64 Tcl_Channel d
4a20: 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 ownChan = Tls_Ge
4a30: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 tParent(statePtr
4a40: 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 , TLS_TCL_FASTPA
4a50: 54 48 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 TH);. Tcl_Dri
4a60: 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 verSetOptionProc
4a70: 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b *setOptionProc;
4a80: 0a 0a 20 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 .. setOptionP
4a90: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
4aa0: 6c 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 lSetOptionProc(T
4ab0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
4ac0: 65 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 20 e(downChan));.
4ad0: 20 20 69 66 20 28 73 65 74 4f 70 74 69 6f 6e 50 if (setOptionP
4ae0: 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 roc != NULL) {..
4af0: 72 65 74 75 72 6e 20 28 2a 73 65 74 4f 70 74 69 return (*setOpti
4b00: 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 onProc)(Tcl_GetC
4b10: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
4b20: 74 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 69 6e ta(downChan), in
4b30: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
4b40: 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a , optionValue);.
4b50: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f } else if (o
4b60: 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 ptionName == (ch
4b70: 61 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a ar*) NULL) {../*
4b80: 0a 09 20 2a 20 52 65 71 75 65 73 74 20 69 73 20 .. * Request is
4b90: 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 query for all op
4ba0: 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f tions, this is o
4bb0: 6b 2e 0a 09 20 2a 2f 0a 09 72 65 74 75 72 6e 20 k... */..return
4bc0: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 TCL_OK;. }.
4bd0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 75 /*. * Requ
4be0: 65 73 74 20 66 6f 72 20 61 20 73 70 65 63 69 66 est for a specif
4bf0: 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f ic option has to
4c00: 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 fail, we don't
4c10: 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 2a have any.. *
4c20: 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c /. return Tcl
4c30: 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f _BadChannelOptio
4c40: 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e n(interp, option
4c50: 4e 61 6d 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a Name, "");.}../*
4c60: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
4c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ca0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
4cb0: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d GetOptionProc --
4cc0: 0a 20 2a 0a 20 2a 20 20 20 20 47 65 74 73 20 61 . *. * Gets a
4cd0: 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 n option value f
4ce0: 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 or a SSL socket
4cf0: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f based channel, o
4d00: 72 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20 6f r a. * list o
4d10: 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e f all options an
4d20: 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 0a d their values..
4d30: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
4d40: 2a 20 20 20 20 41 20 73 74 61 6e 64 61 72 64 20 * A standard
4d50: 54 63 6c 20 72 65 73 75 6c 74 2e 20 54 68 65 20 Tcl result. The
4d60: 76 61 6c 75 65 20 6f 66 20 74 68 65 20 73 70 65 value of the spe
4d70: 63 69 66 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 cified option or
4d80: 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20 6f 66 a. * list of
4d90: 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 all options and
4da0: 20 74 68 65 69 72 20 76 61 6c 75 65 73 20 69 73 their values is
4db0: 20 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 65 returned in the
4dc0: 0a 20 2a 20 20 20 20 73 75 70 70 6c 69 65 64 20 . * supplied
4dd0: 44 53 74 72 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 DString.. *. * S
4de0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 ide effects:. *
4df0: 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d None.. *. *--
4e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e40: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
4e50: 0a 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f .TlsGetOptionPro
4e60: 63 28 0a 20 20 20 20 76 6f 69 64 20 2a 69 6e 73 c(. void *ins
4e70: 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f tanceData,./* So
4e80: 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 cket state. */.
4e90: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
4ea0: 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 nterp,../* For e
4eb0: 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e rrors - can be N
4ec0: 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 ULL. */. cons
4ed0: 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 t char *optionNa
4ee0: 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 me,./* Name of t
4ef0: 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 72 65 74 he option to ret
4f00: 72 69 65 76 65 20 74 68 65 20 76 61 6c 75 65 20 rieve the value
4f10: 66 6f 72 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e for, or..... * N
4f20: 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f ULL to get all o
4f30: 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 ptions and their
4f40: 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 values. */.
4f50: 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 6f 70 74 Tcl_DString *opt
4f60: 69 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 57 68 65 ionValue)./* Whe
4f70: 72 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 re to store the
4f80: 63 6f 6d 70 75 74 65 64 20 76 61 6c 75 65 20 69 computed value i
4f90: 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63 61 nitialized by ca
4fa0: 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 ller. */.{. S
4fb0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
4fc0: 20 28 53 74 61 74 65 20 2a 29 69 6e 73 74 61 6e (State *)instan
4fd0: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 54 63 6c ceData;.. Tcl
4fe0: 5f 43 68 61 6e 6e 65 6c 20 64 6f 77 6e 43 68 61 _Channel downCha
4ff0: 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e n = Tls_GetParen
5000: 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f t(statePtr, TLS_
5010: 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a 20 TCL_FASTPATH);.
5020: 20 20 20 54 63 6c 5f 44 72 69 76 65 72 47 65 74 Tcl_DriverGet
5030: 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 65 74 4f OptionProc *getO
5040: 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 ptionProc;..
5050: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 getOptionProc =
5060: 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 Tcl_ChannelGetOp
5070: 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 tionProc(Tcl_Get
5080: 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e ChannelType(down
5090: 43 68 61 6e 29 29 3b 0a 20 20 20 20 69 66 20 28 Chan));. if (
50a0: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d getOptionProc !=
50b0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
50c0: 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 (*getOptionProc
50d0: 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c )(Tcl_GetChannel
50e0: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 InstanceData(dow
50f0: 6e 43 68 61 6e 29 2c 20 69 6e 74 65 72 70 2c 20 nChan), interp,
5100: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 optionName, opti
5110: 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 onValue);. }
5120: 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e 4e else if (optionN
5130: 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 4e ame == (char*) N
5140: 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 ULL) {../*.. * R
5150: 65 71 75 65 73 74 20 69 73 20 71 75 65 72 79 20 equest is query
5160: 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c for all options,
5170: 20 74 68 69 73 20 69 73 20 6f 6b 2e 0a 09 20 2a this is ok... *
5180: 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b /..return TCL_OK
5190: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 ;. }. /*.
51a0: 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 66 6f * Request fo
51b0: 72 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 74 r a specific opt
51c0: 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c 2c ion has to fail,
51d0: 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 61 we don't have a
51e0: 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 ny.. */.
51f0: 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 return Tcl_BadCh
5200: 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 annelOption(inte
5210: 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 rp, optionName,
5220: 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d "");.}../*. *---
5230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5270: 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 68 50 . *. * TlsWatchP
5280: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 roc --. *. *
5290: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6e Initialize the n
52a0: 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 otifier to watch
52b0: 20 54 63 6c 5f 46 69 6c 65 73 20 66 72 6f 6d 20 Tcl_Files from
52c0: 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a this channel.. *
52d0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 . * Results:. *
52e0: 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 None.. *. * S
52f0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 ide effects:. *
5300: 20 20 20 53 65 74 73 20 75 70 20 74 68 65 20 6e Sets up the n
5310: 6f 74 69 66 69 65 72 20 73 6f 20 74 68 61 74 20 otifier so that
5320: 61 20 66 75 74 75 72 65 20 65 76 65 6e 74 20 6f a future event o
5330: 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a n the channel. *
5340: 20 20 20 20 77 69 6c 6c 20 62 65 20 73 65 65 6e will be seen
5350: 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d by Tcl.. *. *--
5360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53a0: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f -. */..static vo
53b0: 69 64 0a 54 6c 73 57 61 74 63 68 50 72 6f 63 28 id.TlsWatchProc(
53c0: 0a 20 20 20 20 76 6f 69 64 20 2a 69 6e 73 74 61 . void *insta
53d0: 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 54 nceData, /* T
53e0: 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e he socket state.
53f0: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b */. int mask
5400: 29 09 09 09 2f 2a 20 45 76 65 6e 74 73 20 6f 66 ).../* Events of
5410: 20 69 6e 74 65 72 65 73 74 3b 20 61 6e 20 4f 52 interest; an OR
5420: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 -ed combination
5430: 6f 66 0a 09 09 09 09 20 2a 20 54 43 4c 5f 52 45 of..... * TCL_RE
5440: 41 44 41 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54 ADABLE, TCL_WRIT
5450: 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 58 43 ABLE and TCL_EXC
5460: 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 20 EPTION. */.{.
5470: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 20 20 20 Tcl_Channel
5480: 20 64 6f 77 6e 43 68 61 6e 3b 0a 20 20 20 20 53 downChan;. S
5490: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
54a0: 20 28 53 74 61 74 65 20 2a 29 69 6e 73 74 61 6e (State *)instan
54b0: 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ceData;. Tcl_
54c0: 44 72 69 76 65 72 57 61 74 63 68 50 72 6f 63 20 DriverWatchProc
54d0: 2a 77 61 74 63 68 50 72 6f 63 3b 0a 0a 20 20 20 *watchProc;..
54e0: 20 64 70 72 69 6e 74 66 28 22 54 6c 73 57 61 74 dprintf("TlsWat
54f0: 63 68 50 72 6f 63 28 30 78 25 78 29 22 2c 20 6d chProc(0x%x)", m
5500: 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 72 ask);.. /* Pr
5510: 65 74 65 6e 64 20 74 6f 20 62 65 20 64 65 61 64 etend to be dead
5520: 20 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 as long as the
5530: 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 verify callback
5540: 69 73 20 72 75 6e 6e 69 6e 67 2e 0a 20 20 20 20 is running..
5550: 20 2a 20 4f 74 68 65 72 77 69 73 65 20 74 68 61 * Otherwise tha
5560: 74 20 63 61 6c 6c 62 61 63 6b 20 63 6f 75 6c 64 t callback could
5570: 20 62 65 20 69 6e 76 6f 6b 65 64 20 72 65 63 75 be invoked recu
5580: 72 73 69 76 65 6c 79 2e 20 2a 2f 0a 20 20 20 20 rsively. */.
5590: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c if (statePtr->fl
55a0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 ags & TLS_TCL_CA
55b0: 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e LLBACK) {..dprin
55c0: 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 tf("Callback is
55d0: 6f 6e 2d 67 6f 69 6e 67 2c 20 64 6f 69 6e 67 20 on-going, doing
55e0: 6e 6f 74 68 69 6e 67 22 29 3b 0a 09 72 65 74 75 nothing");..retu
55f0: 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 rn;. }.. d
5600: 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65 printFlags(state
5610: 50 74 72 29 3b 0a 0a 20 20 20 20 64 6f 77 6e 43 Ptr);.. downC
5620: 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 han = Tls_GetPar
5630: 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c ent(statePtr, TL
5640: 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b S_TCL_FASTPATH);
5650: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
5660: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
5670: 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 TCL_HANDSHAKE_FA
5680: 49 4c 45 44 29 20 7b 0a 09 64 70 72 69 6e 74 66 ILED) {..dprintf
5690: 28 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63 68 ("Asked to watch
56a0: 20 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20 61 a socket with a
56b0: 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 6b failed handshak
56c0: 65 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 6e e -- nothing can
56d0: 20 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b 0a happen here");.
56e0: 09 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 69 .dprintf("Unregi
56f0: 73 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 74 stering interest
5700: 20 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 in the lower ch
5710: 61 6e 6e 65 6c 22 29 3b 0a 0a 09 77 61 74 63 68 annel");...watch
5720: 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e Proc = Tcl_Chann
5730: 65 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f elWatchProc(Tcl_
5740: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 GetChannelType(d
5750: 6f 77 6e 43 68 61 6e 29 29 3b 0a 09 77 61 74 63 ownChan));..watc
5760: 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 hProc(Tcl_GetCha
5770: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
5780: 28 64 6f 77 6e 43 68 61 6e 29 2c 20 30 29 3b 0a (downChan), 0);.
5790: 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 .statePtr->watch
57a0: 4d 61 73 6b 20 3d 20 30 3b 0a 09 72 65 74 75 72 Mask = 0;..retur
57b0: 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 n;. }.. st
57c0: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
57d0: 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f k = mask;.. /
57e0: 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c 20 68 61 6e * No channel han
57f0: 64 6c 65 72 73 20 61 6e 79 20 6d 6f 72 65 2e 20 dlers any more.
5800: 57 65 20 77 69 6c 6c 20 62 65 20 6e 6f 74 69 66 We will be notif
5810: 69 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c ied automaticall
5820: 79 0a 20 20 20 20 20 2a 20 61 62 6f 75 74 20 65 y. * about e
5830: 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68 61 vents on the cha
5840: 6e 6e 65 6c 20 62 65 6c 6f 77 20 76 69 61 20 61 nnel below via a
5850: 20 63 61 6c 6c 20 74 6f 20 6f 75 72 0a 20 20 20 call to our.
5860: 20 20 2a 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f * 'TransformNo
5870: 74 69 66 79 50 72 6f 63 27 2e 20 42 75 74 20 77 tifyProc'. But w
5880: 65 20 68 61 76 65 20 74 6f 20 70 61 73 73 20 74 e have to pass t
5890: 68 65 20 69 6e 74 65 72 65 73 74 20 64 6f 77 6e he interest down
58a0: 20 6e 6f 77 2e 0a 20 20 20 20 20 2a 20 57 65 20 now.. * We
58b0: 61 72 65 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 are allowed to a
58c0: 64 64 20 61 64 64 69 74 69 6f 6e 61 6c 20 27 69 dd additional 'i
58d0: 6e 74 65 72 65 73 74 27 20 74 6f 20 74 68 65 20 nterest' to the
58e0: 6d 61 73 6b 20 69 66 20 77 65 20 77 61 6e 74 0a mask if we want.
58f0: 20 20 20 20 20 2a 20 74 6f 2e 20 42 75 74 20 74 * to. But t
5900: 68 69 73 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 his transformati
5910: 6f 6e 20 68 61 73 20 6e 6f 20 73 75 63 68 20 69 on has no such i
5920: 6e 74 65 72 65 73 74 2e 20 49 74 20 6a 75 73 74 nterest. It just
5930: 20 70 61 73 73 65 73 0a 20 20 20 20 20 2a 20 74 passes. * t
5940: 68 65 20 72 65 71 75 65 73 74 20 64 6f 77 6e 2c he request down,
5950: 20 75 6e 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 unchanged..
5960: 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 28 */. dprintf(
5970: 22 52 65 67 69 73 74 65 72 69 6e 67 20 6f 75 72 "Registering our
5980: 20 69 6e 74 65 72 65 73 74 20 69 6e 20 74 68 65 interest in the
5990: 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 lower channel (
59a0: 63 68 61 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 chan=%p)", (void
59b0: 20 2a 29 20 64 6f 77 6e 43 68 61 6e 29 3b 0a 20 *) downChan);.
59c0: 20 20 20 77 61 74 63 68 50 72 6f 63 20 3d 20 54 watchProc = T
59d0: 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 cl_ChannelWatchP
59e0: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
59f0: 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 elType(downChan)
5a00: 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63 );. watchProc
5a10: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 (Tcl_GetChannelI
5a20: 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e nstanceData(down
5a30: 43 68 61 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a 20 Chan), mask);..
5a40: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6e /*. * Man
5a50: 61 67 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 69 agement of the i
5a60: 6e 74 65 72 6e 61 6c 20 74 69 6d 65 72 2e 0a 20 nternal timer..
5a70: 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 */. if (s
5a80: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
5a90: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
5aa0: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 64 70 72 69 n) NULL) {..dpri
5ab0: 6e 74 66 28 22 41 20 74 69 6d 65 72 20 77 61 73 ntf("A timer was
5ac0: 20 66 6f 75 6e 64 2c 20 64 65 6c 65 74 69 6e 67 found, deleting
5ad0: 20 69 74 22 29 3b 0a 09 54 63 6c 5f 44 65 6c 65 it");..Tcl_Dele
5ae0: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
5af0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
5b00: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
5b10: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
5b20: 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d ken) NULL;. }
5b30: 0a 0a 20 20 20 20 69 66 20 28 28 6d 61 73 6b 20 .. if ((mask
5b40: 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 & TCL_READABLE)
5b50: 26 26 0a 09 28 28 54 63 6c 5f 49 6e 70 75 74 42 &&..((Tcl_InputB
5b60: 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 uffered(statePtr
5b70: 2d 3e 73 65 6c 66 29 20 3e 20 30 29 20 7c 7c 20 ->self) > 0) ||
5b80: 28 42 49 4f 5f 63 74 72 6c 5f 70 65 6e 64 69 6e (BIO_ctrl_pendin
5b90: 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 g(statePtr->bio)
5ba0: 20 3e 20 30 29 29 29 20 7b 0a 09 2f 2a 0a 09 20 > 0))) {../*..
5bb0: 2a 20 54 68 65 72 65 20 69 73 20 69 6e 74 65 72 * There is inter
5bc0: 65 73 74 20 69 6e 20 72 65 61 64 61 62 6c 65 20 est in readable
5bd0: 65 76 65 6e 74 73 20 61 6e 64 20 77 65 20 61 63 events and we ac
5be0: 74 75 61 6c 6c 79 20 68 61 76 65 0a 09 20 2a 20 tually have.. *
5bf0: 64 61 74 61 20 77 61 69 74 69 6e 67 2c 20 73 6f data waiting, so
5c00: 20 67 65 6e 65 72 61 74 65 20 61 20 74 69 6d 65 generate a time
5c10: 72 20 74 6f 20 66 6c 75 73 68 20 74 68 61 74 2e r to flush that.
5c20: 0a 09 20 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22 .. */..dprintf("
5c30: 43 72 65 61 74 69 6e 67 20 61 20 6e 65 77 20 74 Creating a new t
5c40: 69 6d 65 72 20 73 69 6e 63 65 20 64 61 74 61 20 imer since data
5c50: 61 70 70 65 61 72 73 20 74 6f 20 62 65 20 77 61 appears to be wa
5c60: 69 74 69 6e 67 22 29 3b 0a 09 73 74 61 74 65 50 iting");..stateP
5c70: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f tr->timer = Tcl_
5c80: 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c CreateTimerHandl
5c90: 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 er(TLS_TCL_DELAY
5ca0: 2c 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 , TlsChannelHand
5cb0: 6c 65 72 54 69 6d 65 72 2c 20 73 74 61 74 65 50 lerTimer, stateP
5cc0: 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a tr);. }.}../*
5cd0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d10: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
5d20: 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d GetHandleProc --
5d30: 0a 20 2a 0a 20 2a 20 20 20 20 43 61 6c 6c 65 64 . *. * Called
5d40: 20 66 72 6f 6d 20 54 63 6c 5f 47 65 74 43 68 61 from Tcl_GetCha
5d50: 6e 6e 65 6c 46 69 6c 65 20 74 6f 20 72 65 74 72 nnelFile to retr
5d60: 69 65 76 65 20 6f 2f 73 20 66 69 6c 65 20 68 61 ieve o/s file ha
5d70: 6e 64 6c 65 72 0a 20 2a 20 20 20 20 66 72 6f 6d ndler. * from
5d80: 20 74 68 65 20 53 53 4c 20 73 6f 63 6b 65 74 20 the SSL socket
5d90: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 based channel..
5da0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
5db0: 20 20 20 20 54 68 65 20 61 70 70 72 6f 70 72 69 The appropri
5dc0: 61 74 65 20 54 63 6c 5f 46 69 6c 65 20 68 61 6e ate Tcl_File han
5dd0: 64 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 66 20 6e dle or NULL if n
5de0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 one.. *. * Side
5df0: 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 4e effects:. * N
5e00: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
5e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
5e50: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 /.static int Tls
5e60: 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 0a 20 GetHandleProc(.
5e70: 20 20 20 76 6f 69 64 20 2a 69 6e 73 74 61 6e 63 void *instanc
5e80: 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 6f 63 eData, /* Soc
5e90: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 ket state. */.
5ea0: 20 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c int direction,
5eb0: 09 09 2f 2a 20 54 43 4c 5f 52 45 41 44 41 42 4c ../* TCL_READABL
5ec0: 45 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c E or TCL_WRITABL
5ed0: 45 20 2a 2f 0a 20 20 20 20 76 6f 69 64 20 2a 2a E */. void **
5ee0: 68 61 6e 64 6c 65 50 74 72 29 09 2f 2a 20 48 61 handlePtr)./* Ha
5ef0: 6e 64 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 ndle associated
5f00: 77 69 74 68 20 74 68 65 20 63 68 61 6e 6e 65 6c with the channel
5f10: 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 */.{. State
5f20: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
5f30: 74 65 20 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 te *)instanceDat
5f40: 61 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 54 a;.. return T
5f50: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e cl_GetChannelHan
5f60: 64 6c 65 28 54 6c 73 5f 47 65 74 50 61 72 65 6e dle(Tls_GetParen
5f70: 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f t(statePtr, TLS_
5f80: 54 43 4c 5f 46 41 53 54 50 41 54 48 29 2c 20 64 TCL_FASTPATH), d
5f90: 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 irection, handle
5fa0: 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d Ptr);.}../*. *--
5fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ff0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4e 6f 74 69 66 -. *. * TlsNotif
6000: 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 yProc --. *. *
6010: 20 20 48 61 6e 64 6c 65 72 20 63 61 6c 6c 65 64 Handler called
6020: 20 62 79 20 54 63 6c 20 74 6f 20 69 6e 66 6f 72 by Tcl to infor
6030: 6d 20 75 73 20 6f 66 20 61 63 74 69 76 69 74 79 m us of activity
6040: 0a 20 2a 20 20 20 20 6f 6e 20 74 68 65 20 75 6e . * on the un
6050: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
6060: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
6070: 0a 20 2a 20 20 20 20 54 79 70 65 20 6f 66 20 65 . * Type of e
6080: 76 65 6e 74 20 6f 72 20 30 20 69 66 20 66 61 69 vent or 0 if fai
6090: 6c 65 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 led. *. * Side e
60a0: 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 4d 61 ffects:. * Ma
60b0: 79 20 70 72 6f 63 65 73 73 20 74 68 65 20 69 6e y process the in
60c0: 63 6f 6d 69 6e 67 20 65 76 65 6e 74 20 62 79 20 coming event by
60d0: 69 74 73 65 6c 66 2e 0a 20 2a 0a 20 2a 2d 2d 2d itself.. *. *---
60e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6120: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 . */..static int
6130: 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 28 0a TlsNotifyProc(.
6140: 20 20 20 20 76 6f 69 64 20 2a 69 6e 73 74 61 6e void *instan
6150: 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 6f ceData, /* So
6160: 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 cket state. */.
6170: 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 2f int mask).../
6180: 2a 20 74 79 70 65 20 6f 66 20 65 76 65 6e 74 20 * type of event
6190: 74 68 61 74 20 6f 63 63 75 72 72 65 64 3a 0a 09 that occurred:..
61a0: 09 09 09 20 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 ... * OR-ed comb
61b0: 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 ination of TCL_R
61c0: 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f 57 EADABLE or TCL_W
61d0: 52 49 54 41 42 4c 45 20 2a 2f 0a 7b 0a 20 20 20 RITABLE */.{.
61e0: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
61f0: 20 3d 20 28 53 74 61 74 65 20 2a 29 69 6e 73 74 = (State *)inst
6200: 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 69 6e anceData;. in
6210: 74 20 65 72 72 6f 72 43 6f 64 65 3b 0a 0a 20 20 t errorCode;..
6220: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 41 6e 20 65 /*. * An e
6230: 76 65 6e 74 20 6f 63 63 75 72 72 65 64 20 69 6e vent occurred in
6240: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
6250: 63 68 61 6e 6e 65 6c 2e 20 20 54 68 69 73 0a 20 channel. This.
6260: 20 20 20 20 2a 20 74 72 61 6e 73 66 6f 72 6d 61 * transforma
6270: 74 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 72 6f tion doesn't pro
6280: 63 65 73 73 20 73 75 63 68 20 65 76 65 6e 74 73 cess such events
6290: 20 74 68 75 73 20 72 65 74 75 72 6e 73 20 74 68 thus returns th
62a0: 65 0a 20 20 20 20 20 2a 20 69 6e 63 6f 6d 69 6e e. * incomin
62b0: 67 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 65 64 g mask unchanged
62c0: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 .. */. if
62d0: 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 (statePtr->time
62e0: 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 r != (Tcl_TimerT
62f0: 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f oken) NULL) {../
6300: 2a 0a 09 20 2a 20 44 65 6c 65 74 65 20 61 6e 20 *.. * Delete an
6310: 65 78 69 73 74 69 6e 67 20 74 69 6d 65 72 2e 20 existing timer.
6320: 49 74 20 77 61 73 20 6e 6f 74 20 66 69 72 65 64 It was not fired
6330: 2c 20 79 65 74 20 77 65 20 61 72 65 0a 09 20 2a , yet we are.. *
6340: 20 68 65 72 65 2c 20 73 6f 20 74 68 65 20 63 68 here, so the ch
6350: 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 67 65 6e 65 annel below gene
6360: 72 61 74 65 64 20 73 75 63 68 20 61 6e 20 65 76 rated such an ev
6370: 65 6e 74 20 61 6e 64 20 77 65 0a 09 20 2a 20 64 ent and we.. * d
6380: 6f 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 54 68 on't have to. Th
6390: 65 20 72 65 6e 65 77 61 6c 20 6f 66 20 74 68 65 e renewal of the
63a0: 20 69 6e 74 65 72 65 73 74 20 61 66 74 65 72 20 interest after
63b0: 74 68 65 0a 09 20 2a 20 65 78 65 63 75 74 69 6f the.. * executio
63c0: 6e 20 6f 66 20 63 68 61 6e 6e 65 6c 20 68 61 6e n of channel han
63d0: 64 6c 65 72 73 20 77 69 6c 6c 20 65 76 65 6e 74 dlers will event
63e0: 75 61 6c 6c 79 20 63 61 75 73 65 20 75 73 20 74 ually cause us t
63f0: 6f 0a 09 20 2a 20 72 65 63 72 65 61 74 65 20 74 o.. * recreate t
6400: 68 65 20 74 69 6d 65 72 20 28 69 6e 20 57 61 74 he timer (in Wat
6410: 63 68 50 72 6f 63 29 2e 0a 09 20 2a 2f 0a 09 54 chProc)... */..T
6420: 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 cl_DeleteTimerHa
6430: 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e ndler(statePtr->
6440: 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 timer);..statePt
6450: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f r->timer = (Tcl_
6460: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
6470: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
6480: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
6490: 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 & TLS_TCL_CALLB
64a0: 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 ACK) {..dprintf(
64b0: 22 52 65 74 75 72 6e 69 6e 67 20 30 20 64 75 65 "Returning 0 due
64c0: 20 74 6f 20 63 61 6c 6c 62 61 63 6b 22 29 3b 0a to callback");.
64d0: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
64e0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
64f0: 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 alling Tls_WaitF
6500: 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 20 20 20 orConnect");.
6510: 20 65 72 72 6f 72 43 6f 64 65 20 3d 20 30 3b 0a errorCode = 0;.
6520: 20 20 20 20 69 66 20 28 54 6c 73 5f 57 61 69 74 if (Tls_Wait
6530: 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 ForConnect(state
6540: 50 74 72 2c 20 26 65 72 72 6f 72 43 6f 64 65 2c Ptr, &errorCode,
6550: 20 31 29 20 3c 20 30 29 20 7b 0a 09 54 6c 73 5f 1) < 0) {..Tls_
6560: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
6570: 73 74 72 65 72 72 6f 72 28 65 72 72 6f 72 43 6f strerror(errorCo
6580: 64 65 29 29 3b 0a 09 69 66 20 28 65 72 72 6f 72 de));..if (error
6590: 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 29 20 Code == EAGAIN)
65a0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
65b0: 41 73 79 6e 63 20 66 6c 61 67 20 63 6f 75 6c 64 Async flag could
65c0: 20 62 65 20 73 65 74 20 28 64 69 64 6e 27 74 20 be set (didn't
65d0: 63 68 65 63 6b 29 20 61 6e 64 20 65 72 72 6f 72 check) and error
65e0: 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 3a 20 Code == EAGAIN:
65f0: 20 52 65 74 75 72 6e 69 6e 67 20 30 22 29 3b 0a Returning 0");.
6600: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a .. return 0;.
6610: 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 54 6c .}...dprintf("Tl
6620: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
6630: 20 72 65 74 75 72 6e 65 64 20 61 6e 20 65 72 72 returned an err
6640: 6f 72 22 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 or");. }..
6650: 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e dprintf("Return
6660: 69 6e 67 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a ing %i", mask);.
6670: 0a 20 20 20 20 72 65 74 75 72 6e 20 6d 61 73 6b . return mask
6680: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
6690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66c0: 2a 0a 20 2a 0a 20 2a 20 20 20 20 54 6c 73 43 68 *. *. * TlsCh
66d0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 annelHandlerTime
66e0: 72 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 2d 2d r --. *. * --
66f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
6720: 20 2a 20 20 20 20 43 61 6c 6c 65 64 20 62 79 20 * Called by
6730: 74 68 65 20 6e 6f 74 69 66 69 65 72 20 28 2d 3e the notifier (->
6740: 20 74 69 6d 65 72 29 20 74 6f 20 66 6c 75 73 68 timer) to flush
6750: 20 6f 75 74 0a 20 2a 20 20 20 20 69 6e 66 6f 72 out. * infor
6760: 6d 61 74 69 6f 6e 20 77 61 69 74 69 6e 67 20 69 mation waiting i
6770: 6e 20 63 68 61 6e 6e 65 6c 20 62 75 66 66 65 72 n channel buffer
6780: 73 2e 0a 20 2a 20 20 20 20 2d 2d 2d 2d 2d 2d 2d s.. * -------
6790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
67c0: 20 20 20 20 53 69 64 65 20 65 66 66 65 63 74 73 Side effects
67d0: 3a 0a 20 2a 20 20 20 20 20 20 20 20 41 73 20 6f :. * As o
67e0: 66 20 27 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e f 'TlsChannelHan
67f0: 64 6c 65 72 27 2e 0a 20 2a 0a 20 2a 20 20 20 20 dler'.. *. *
6800: 52 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 20 20 Result:. *
6810: 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d None.. *. *---
6820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6850: 2d 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ---*. */.static
6860: 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 void TlsChannelH
6870: 61 6e 64 6c 65 72 54 69 6d 65 72 28 76 6f 69 64 andlerTimer(void
6880: 20 2a 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a *clientData) {.
6890: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
68a0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 63 Ptr = (State *)c
68b0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 lientData;. i
68c0: 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a 0a 20 20 nt mask = 0;..
68d0: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
68e0: 64 22 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 d");.. stateP
68f0: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c tr->timer = (Tcl
6900: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
6910: 4c 3b 0a 0a 20 20 20 20 69 66 20 28 42 49 4f 5f L;.. if (BIO_
6920: 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 wpending(statePt
6930: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 69 r->bio)) {..dpri
6940: 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 ntf("[chan=%p] B
6950: 49 4f 20 77 72 69 74 61 62 6c 65 22 2c 20 73 74 IO writable", st
6960: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a atePtr->self);..
6970: 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 .mask |= TCL_WRI
6980: 54 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 TABLE;. }..
6990: 20 20 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e if (BIO_pendin
69a0: 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 g(statePtr->bio)
69b0: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 ) {..dprintf("[c
69c0: 68 61 6e 3d 25 70 5d 20 42 49 4f 20 72 65 61 64 han=%p] BIO read
69d0: 61 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d able", statePtr-
69e0: 3e 73 65 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c >self);...mask |
69f0: 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a = TCL_READABLE;.
6a00: 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e }.. dprin
6a10: 74 66 28 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 tf("Notifying ou
6a20: 72 73 65 6c 76 65 73 22 29 3b 0a 20 20 20 20 54 rselves");. T
6a30: 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c cl_NotifyChannel
6a40: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c (statePtr->self,
6a50: 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 64 70 72 mask);.. dpr
6a60: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 22 intf("Returning"
6a70: 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a );.. return;.
6a80: 7d 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 54 }..Tcl_Channel T
6a90: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 53 74 61 ls_GetParent(Sta
6aa0: 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e te *statePtr, in
6ab0: 74 20 6d 61 73 6b 46 6c 61 67 73 29 20 7b 0a 20 t maskFlags) {.
6ac0: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 71 75 dprintf("Requ
6ad0: 65 73 74 65 64 20 74 6f 20 67 65 74 20 70 61 72 ested to get par
6ae0: 65 6e 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 25 ent of channel %
6af0: 70 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 p", statePtr->se
6b00: 6c 66 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 73 lf);.. if ((s
6b10: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
6b20: 20 7e 6d 61 73 6b 46 6c 61 67 73 29 20 26 20 54 ~maskFlags) & T
6b30: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
6b40: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 73 6b {..dprintf("Ask
6b50: 65 64 20 74 6f 20 67 65 74 20 74 68 65 20 70 61 ed to get the pa
6b60: 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 77 68 69 rent channel whi
6b70: 6c 65 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 le we are using
6b80: 46 61 73 74 50 61 74 68 20 2d 2d 20 72 65 74 75 FastPath -- retu
6b90: 72 6e 69 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 72 rning NULL");..r
6ba0: 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 eturn NULL;.
6bb0: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c }. return Tcl
6bc0: 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e _GetStackedChann
6bd0: 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c el(statePtr->sel
6be0: 66 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d f);.}../*. *----
6bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
6c30: 20 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 *. * Tls_Channe
6c40: 6c 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 20 20 lType --. *. *
6c50: 20 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 72 Return the cor
6c60: 72 65 63 74 20 54 4c 53 20 63 68 61 6e 6e 65 6c rect TLS channel
6c70: 20 64 72 69 76 65 72 20 69 6e 66 6f 0a 20 2a 0a driver info. *.
6c80: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 * Results:. *
6c90: 20 20 54 68 65 20 63 6f 72 72 65 63 74 20 63 68 The correct ch
6ca0: 61 6e 6e 65 6c 20 64 72 69 76 65 72 20 66 6f 72 annel driver for
6cb0: 20 74 68 65 20 63 75 72 72 65 6e 74 20 76 65 72 the current ver
6cc0: 73 69 6f 6e 20 6f 66 20 54 63 6c 2e 0a 20 2a 0a sion of Tcl.. *.
6cd0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
6ce0: 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a . * None.. *.
6cf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d30: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
6d40: 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e const Tcl_Chann
6d50: 65 6c 54 79 70 65 20 74 6c 73 43 68 61 6e 6e 65 elType tlsChanne
6d60: 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 74 lType = {. "t
6d70: 6c 73 22 2c 09 09 09 2f 2a 20 54 79 70 65 20 6e ls",.../* Type n
6d80: 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c 5f 43 ame */. TCL_C
6d90: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 HANNEL_VERSION_5
6da0: 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 6c 20 ,./* v5 channel
6db0: 2a 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 50 */. TlsCloseP
6dc0: 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 roc,../* Close p
6dd0: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 49 6e roc */. TlsIn
6de0: 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 putProc,../* Inp
6df0: 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 ut proc */. T
6e00: 6c 73 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f lsOutputProc,../
6e10: 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f * Output proc */
6e20: 0a 20 20 20 20 30 2c 09 09 09 2f 2a 20 53 65 65 . 0,.../* See
6e30: 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c k proc */. Tl
6e40: 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 sSetOptionProc,.
6e50: 09 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 ./* Set option p
6e60: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 roc */. TlsGe
6e70: 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 2f 2a tOptionProc,../*
6e80: 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 Get option proc
6e90: 20 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74 63 68 */. TlsWatch
6ea0: 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 Proc,../* Initia
6eb0: 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a 2f lize notifier */
6ec0: 0a 20 20 20 20 54 6c 73 47 65 74 48 61 6e 64 6c . TlsGetHandl
6ed0: 65 50 72 6f 63 2c 09 09 2f 2a 20 47 65 74 20 4f eProc,../* Get O
6ee0: 53 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 S handles out of
6ef0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
6f00: 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 2c 09 09 TlsClose2Proc,..
6f10: 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20 2a 2f /* close2proc */
6f20: 0a 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 . TlsBlockMod
6f30: 65 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 62 eProc,../* Set b
6f40: 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b locking/nonblock
6f50: 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 30 ing mode*/. 0
6f60: 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 6f ,.../* Flush pro
6f70: 63 20 2a 2f 0a 20 20 20 20 54 6c 73 4e 6f 74 69 c */. TlsNoti
6f80: 66 79 50 72 6f 63 2c 09 09 2f 2a 20 48 61 6e 64 fyProc,../* Hand
6f90: 6c 69 6e 67 20 6f 66 20 65 76 65 6e 74 73 20 62 ling of events b
6fa0: 75 62 62 6c 69 6e 67 20 75 70 20 2a 2f 0a 20 20 ubbling up */.
6fb0: 20 20 30 2c 09 09 09 2f 2a 20 57 69 64 65 20 73 0,.../* Wide s
6fc0: 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 eek proc */.
6fd0: 4e 55 4c 4c 2c 09 09 09 2f 2a 20 54 68 72 65 61 NULL,.../* Threa
6fe0: 64 20 61 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 d action */.
6ff0: 4e 55 4c 4c 09 09 09 2f 2a 20 54 72 75 6e 63 61 NULL.../* Trunca
7000: 74 65 20 2a 2f 0a 7d 3b 0a 0a 63 6f 6e 73 74 20 te */.};..const
7010: 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 Tcl_ChannelType
7020: 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 *Tls_ChannelType
7030: 28 76 6f 69 64 29 20 7b 0a 20 20 20 20 72 65 74 (void) {. ret
7040: 75 72 6e 20 26 74 6c 73 43 68 61 6e 6e 65 6c 54 urn &tlsChannelT
7050: 79 70 65 3b 0a 7d 0a ype;.}.