0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61 (C) 1997-2000 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 Copyright (C) 2
0050: 30 30 30 20 41 6a 75 62 61 20 53 6f 6c 75 74 69 000 Ajuba Soluti
0060: 6f 6e 73 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 ons. *. * TLS (a
0070: 6b 61 20 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 ka SSL) Channel
0080: 2d 20 63 61 6e 20 62 65 20 6c 61 79 65 72 65 64 - can be layered
0090: 20 6f 6e 20 61 6e 79 20 62 69 2d 64 69 72 65 63 on any bi-direc
00a0: 74 69 6f 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 tional. * Tcl_Ch
00b0: 61 6e 6e 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 annel (Note: Req
00c0: 75 69 72 65 73 20 54 72 66 20 43 6f 72 65 20 50 uires Trf Core P
00d0: 61 74 63 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 atch). *. * This
00e0: 20 77 61 73 20 62 75 69 6c 74 20 66 72 6f 6d 20 was built from
00f0: 73 63 72 61 74 63 68 20 62 61 73 65 64 20 75 70 scratch based up
0100: 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e 20 6f on observation o
0110: 66 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 32 42 f OpenSSL 0.9.2B
0120: 0a 20 2a 0a 20 2a 20 41 64 64 69 74 69 6f 6e 20 . *. * Addition
0130: 63 72 65 64 69 74 20 69 73 20 64 75 65 20 66 6f credit is due fo
0140: 72 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 65 r Andreas Kuprie
0150: 73 20 28 61 2e 6b 75 70 72 69 65 73 40 77 65 73 s (a.kupries@wes
0160: 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 6f 72 0a 20 tend.com), for.
0170: 2a 20 70 72 6f 76 69 64 69 6e 67 20 74 68 65 20 * providing the
0180: 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 61 6e 6e Tcl_ReplaceChann
0190: 65 6c 20 6d 65 63 68 61 6e 69 73 6d 20 61 6e 64 el mechanism and
01a0: 20 77 6f 72 6b 69 6e 67 20 63 6c 6f 73 65 6c 79 working closely
01b0: 20 77 69 74 68 20 6d 65 0a 20 2a 20 74 6f 20 65 with me. * to e
01c0: 6e 68 61 6e 63 65 20 69 74 20 74 6f 20 73 75 70 nhance it to sup
01d0: 70 6f 72 74 20 66 75 6c 6c 20 66 69 6c 65 65 76 port full fileev
01e0: 65 6e 74 20 73 65 6d 61 6e 74 69 63 73 2e 0a 20 ent semantics..
01f0: 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f 72 6b 20 64 *. * Also work d
0200: 6f 6e 65 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f one by the follo
0210: 77 20 70 65 6f 70 6c 65 20 70 72 6f 76 69 64 65 w people provide
0220: 64 20 74 68 65 20 69 6d 70 65 74 75 73 20 74 6f d the impetus to
0230: 20 64 6f 20 74 68 69 73 20 22 72 69 67 68 74 22 do this "right"
0240: 3a 0a 20 2a 20 20 20 20 74 63 6c 53 53 4c 20 28 :. * tclSSL (
0250: 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c Colin McCormack,
0260: 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f Shared Technolo
0270: 67 79 29 0a 20 2a 20 20 20 20 53 53 4c 74 63 6c gy). * SSLtcl
0280: 20 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a (Peter Antman).
0290: 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 *. */..#include
02a0: 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 "tlsInt.h".#inc
02b0: 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a 0a lude <errno.h>..
02c0: 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 64 65 /*. * Forward de
02d0: 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a 73 clarations. */.s
02e0: 74 61 74 69 63 20 76 6f 69 64 20 54 6c 73 43 68 tatic void TlsCh
02f0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 annelHandlerTime
0300: 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 r(ClientData cli
0310: 65 6e 74 44 61 74 61 29 3b 0a 0a 2f 2a 0a 20 2a entData);../*. *
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 2d 2d 2d 2d 2d ----------------
0350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0360: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 42 6c 6f ---. *. * TlsBlo
0370: 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a 20 2a ckModeProc --. *
0380: 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f 63 . * This proc
0390: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 edure is invoked
03a0: 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 by the generic
03b0: 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 IO level. *
03c0: 20 20 74 6f 20 73 65 74 20 62 6c 6f 63 6b 69 6e to set blockin
03d0: 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b 69 6e g and nonblockin
03e0: 67 20 6d 6f 64 65 73 0a 20 2a 0a 20 2a 20 52 65 g modes. *. * Re
03f0: 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 30 20 69 sults:. * 0 i
0400: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 f successful or
0410: 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 POSIX error code
0420: 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 if failed.. *.
0430: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0440: 20 2a 20 20 20 20 53 65 74 73 20 74 68 65 20 64 * Sets the d
0450: 65 76 69 63 65 20 69 6e 74 6f 20 62 6c 6f 63 6b evice into block
0460: 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 ing or nonblocki
0470: 6e 67 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d ng mode.. *. *--
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 2d 2d 2d 2d 2d 2d 2d ----------------
04b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04c0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
04d0: 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f TlsBlockModePro
04e0: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
04f0: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 6d tanceData, int m
0500: 6f 64 65 29 20 7b 0a 20 20 20 20 53 74 61 74 65 ode) {. State
0510: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
0520: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
0530: 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f ata;.. if (mo
0540: 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e de == TCL_MODE_N
0550: 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 73 ONBLOCKING) {..s
0560: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
0570: 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 3b = TLS_TCL_ASYNC;
0580: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 . } else {..s
0590: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
05a0: 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 4e = ~(TLS_TCL_ASYN
05b0: 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 C);. }. re
05c0: 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 turn(0);.}../*.
05d0: 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c ----. *. * TlsCl
0620: 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a oseProc --. *. *
0630: 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 This procedu
0640: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 re is invoked by
0650: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
0660: 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d level to perform
0670: 0a 20 2a 20 20 20 20 63 68 61 6e 6e 65 6c 2d 74 . * channel-t
0680: 79 70 65 2d 73 70 65 63 69 66 69 63 20 63 6c 65 ype-specific cle
0690: 61 6e 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 anup when a SSL
06a0: 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 socket based cha
06b0: 6e 6e 65 6c 0a 20 2a 20 20 20 20 69 73 20 63 6c nnel. * is cl
06c0: 6f 73 65 64 2e 0a 20 2a 0a 20 2a 20 20 20 20 4e osed.. *. * N
06d0: 6f 74 65 3a 20 77 65 20 6c 65 61 76 65 20 74 68 ote: we leave th
06e0: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 73 6f 63 e underlying soc
06f0: 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 73 20 74 68 ket alone, is th
0700: 69 73 20 72 69 67 68 74 3f 0a 20 2a 0a 20 2a 20 is right?. *. *
0710: 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 30 Results:. * 0
0720: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f if successful o
0730: 72 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f r POSIX error co
0740: 64 65 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a de if failed.. *
0750: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0760: 3a 0a 20 2a 20 20 20 20 43 6c 6f 73 65 73 20 74 :. * Closes t
0770: 68 65 20 73 6f 63 6b 65 74 20 6f 66 20 74 68 65 he socket of the
0780: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d channel.. *. *-
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07d0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
07e0: 74 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 43 t TlsCloseProc(C
07f0: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
0800: 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ceData, Tcl_Inte
0810: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 rp *interp) {.
0820: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
0830: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
0840: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 stanceData;..
0850: 20 64 70 72 69 6e 74 66 28 22 54 6c 73 43 6c 6f dprintf("TlsClo
0860: 73 65 50 72 6f 63 28 25 70 29 22 2c 20 28 76 6f seProc(%p)", (vo
0870: 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b id *) statePtr);
0880: 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 6e 28 .. Tls_Clean(
0890: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 statePtr);. T
08a0: 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 cl_EventuallyFre
08b0: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 e((ClientData)st
08c0: 61 74 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 65 atePtr, Tls_Free
08d0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 28 30 29 );. return(0)
08e0: 3b 0a 0a 09 2f 2a 20 49 6e 74 65 72 70 20 69 73 ;.../* Interp is
08f0: 20 75 6e 75 73 65 64 2e 20 2a 2f 0a 09 69 6e 74 unused. */..int
0900: 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 7d 0a erp = interp;.}.
0910: 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 43 .static int TlsC
0920: 6c 6f 73 65 32 50 72 6f 63 28 43 6c 69 65 6e 74 lose2Proc(Client
0930: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
0940: 61 2c 20 20 20 20 2f 2a 20 54 68 65 20 73 6f 63 a, /* The soc
0950: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 ket state. */.
0960: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
0970: 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 terp,../* For er
0980: 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 rors - can be NU
0990: 4c 4c 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 66 LL. */. int f
09a0: 6c 61 67 73 29 09 09 09 2f 2a 20 46 6c 61 67 73 lags).../* Flags
09b0: 20 74 6f 20 63 6c 6f 73 65 20 72 65 61 64 20 61 to close read a
09c0: 6e 64 2f 6f 72 20 77 72 69 74 65 20 73 69 64 65 nd/or write side
09d0: 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b of channel */.{
09e0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
09f0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
0a00: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a instanceData;..
0a10: 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 6c 73 dprintf("Tls
0a20: 43 6c 6f 73 65 32 50 72 6f 63 28 25 70 29 22 2c Close2Proc(%p)",
0a30: 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 (void *) stateP
0a40: 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 66 tr);.. if ((f
0a50: 6c 61 67 73 20 26 20 28 54 43 4c 5f 43 4c 4f 53 lags & (TCL_CLOS
0a60: 45 5f 52 45 41 44 7c 54 43 4c 5f 43 4c 4f 53 45 E_READ|TCL_CLOSE
0a70: 5f 57 52 49 54 45 29 29 20 3d 3d 20 30 29 20 7b _WRITE)) == 0) {
0a80: 0a 09 72 65 74 75 72 6e 20 54 6c 73 43 6c 6f 73 ..return TlsClos
0a90: 65 50 72 6f 63 28 69 6e 73 74 61 6e 63 65 44 61 eProc(instanceDa
0aa0: 74 61 2c 20 69 6e 74 65 72 70 29 3b 0a 20 20 20 ta, interp);.
0ab0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 45 49 }. return EI
0ac0: 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d NVAL;.}../*. *--
0ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b00: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 54 6c 73 5f ----*. *. * Tls_
0b10: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 2d WaitForConnect -
0b20: 2d 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 3a 0a -. *. * Result:.
0b30: 20 2a 20 20 20 20 30 20 69 66 20 73 75 63 63 65 * 0 if succe
0b40: 73 73 66 75 6c 2c 20 2d 31 20 69 66 20 66 61 69 ssful, -1 if fai
0b50: 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 led.. *. * Side
0b60: 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 49 effects:. * I
0b70: 73 73 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74 ssues SSL_accept
0b80: 20 6f 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a or SSL_connect.
0b90: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f -----------*. */
0bd0: 0a 69 6e 74 20 54 6c 73 5f 57 61 69 74 46 6f 72 .int Tls_WaitFor
0be0: 43 6f 6e 6e 65 63 74 28 53 74 61 74 65 20 2a 73 Connect(State *s
0bf0: 74 61 74 65 50 74 72 2c 20 69 6e 74 20 2a 65 72 tatePtr, int *er
0c00: 72 6f 72 43 6f 64 65 50 74 72 2c 20 69 6e 74 20 rorCodePtr, int
0c10: 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 handshakeFailure
0c20: 49 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 20 IsPermanent) {.
0c30: 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 unsigned long
0c40: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 backingError;.
0c50: 20 20 20 69 6e 74 20 65 72 72 2c 20 72 63 3b 0a int err, rc;.
0c60: 20 20 20 20 69 6e 74 20 62 69 6f 53 68 6f 75 6c int bioShoul
0c70: 64 52 65 74 72 79 3b 0a 20 20 20 20 2a 65 72 72 dRetry;. *err
0c80: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a orCodePtr = 0;..
0c90: 20 20 20 20 64 70 72 69 6e 74 66 28 22 57 61 69 dprintf("Wai
0ca0: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 25 70 29 22 tForConnect(%p)"
0cb0: 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 , (void *) state
0cc0: 50 74 72 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 Ptr);. dprint
0cd0: 46 6c 61 67 73 28 73 74 61 74 65 50 74 72 29 3b Flags(statePtr);
0ce0: 0a 0a 20 20 20 20 69 66 20 28 21 28 73 74 61 74 .. if (!(stat
0cf0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
0d00: 53 5f 54 43 4c 5f 49 4e 49 54 29 29 20 7b 0a 09 S_TCL_INIT)) {..
0d10: 64 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 dprintf("Tls_Wai
0d20: 74 46 6f 72 43 6f 6e 6e 65 63 74 20 63 61 6c 6c tForConnect call
0d30: 65 64 20 6f 6e 20 61 6c 72 65 61 64 79 20 69 6e ed on already in
0d40: 69 74 69 61 6c 69 7a 65 64 20 63 68 61 6e 6e 65 itialized channe
0d50: 6c 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 77 l -- returning w
0d60: 69 74 68 20 69 6d 6d 65 64 69 61 74 65 20 73 75 ith immediate su
0d70: 63 63 65 73 73 22 29 3b 0a 09 72 65 74 75 72 6e ccess");..return
0d80: 28 30 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 (0);. }..
0d90: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c if (statePtr->fl
0da0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 48 41 ags & TLS_TCL_HA
0db0: 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 29 20 NDSHAKE_FAILED)
0dc0: 7b 0a 09 2f 2a 0a 09 20 2a 20 44 69 66 66 65 72 {../*.. * Differ
0dd0: 65 6e 74 20 74 79 70 65 73 20 6f 66 20 6f 70 65 ent types of ope
0de0: 72 61 74 69 6f 6e 73 20 68 61 76 65 20 64 69 66 rations have dif
0df0: 66 65 72 65 6e 74 20 72 65 71 75 69 72 65 6d 65 ferent requireme
0e00: 6e 74 73 0a 09 20 2a 20 53 53 4c 20 62 65 69 6e nts.. * SSL bein
0e10: 67 20 65 73 74 61 62 6c 69 73 68 65 64 0a 09 20 g established..
0e20: 2a 2f 0a 09 69 66 20 28 68 61 6e 64 73 68 61 6b */..if (handshak
0e30: 65 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e eFailureIsPerman
0e40: 65 6e 74 29 20 7b 0a 09 20 20 20 20 64 70 72 69 ent) {.. dpri
0e50: 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 ntf("Asked to wa
0e60: 69 74 20 66 6f 72 20 61 20 54 4c 53 20 68 61 6e it for a TLS han
0e70: 64 73 68 61 6b 65 20 74 68 61 74 20 68 61 73 20 dshake that has
0e80: 61 6c 72 65 61 64 79 20 66 61 69 6c 65 64 2e 20 already failed.
0e90: 20 52 65 74 75 72 6e 69 6e 67 20 66 61 74 61 6c Returning fatal
0ea0: 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 2a error");.. *
0eb0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
0ec0: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 7d 20 CONNABORTED;..}
0ed0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 else {.. dpri
0ee0: 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 ntf("Asked to wa
0ef0: 69 74 20 66 6f 72 20 61 20 54 4c 53 20 68 61 6e it for a TLS han
0f00: 64 73 68 61 6b 65 20 74 68 61 74 20 68 61 73 20 dshake that has
0f10: 61 6c 72 65 61 64 79 20 66 61 69 6c 65 64 2e 20 already failed.
0f20: 20 52 65 74 75 72 6e 69 6e 67 20 73 6f 66 74 20 Returning soft
0f30: 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 2a 65 error");.. *e
0f40: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 rrorCodePtr = EC
0f50: 4f 4e 4e 52 45 53 45 54 3b 0a 09 7d 0a 09 72 65 ONNRESET;..}..re
0f60: 74 75 72 6e 28 2d 31 29 3b 0a 20 20 20 20 7d 0a turn(-1);. }.
0f70: 0a 20 20 20 20 66 6f 72 20 28 3b 3b 29 20 7b 0a . for (;;) {.
0f80: 09 2f 2a 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 ./* Not initiali
0f90: 7a 65 64 20 79 65 74 21 20 41 6c 73 6f 20 63 61 zed yet! Also ca
0fa0: 6c 6c 73 20 53 53 4c 5f 64 6f 5f 68 61 6e 64 73 lls SSL_do_hands
0fb0: 68 61 6b 65 2e 20 2a 2f 0a 09 69 66 20 28 73 74 hake. */..if (st
0fc0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
0fd0: 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 TLS_TCL_SERVER)
0fe0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
0ff0: 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 61 63 63 65 Calling SSL_acce
1000: 70 74 28 29 22 29 3b 0a 09 20 20 20 20 65 72 72 pt()");.. err
1010: 20 3d 20 53 53 4c 5f 61 63 63 65 70 74 28 73 74 = SSL_accept(st
1020: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 0a 09 atePtr->ssl);...
1030: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 } else {.. dp
1040: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 rintf("Calling S
1050: 53 4c 5f 63 6f 6e 6e 65 63 74 28 29 22 29 3b 0a SL_connect()");.
1060: 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 63 . err = SSL_c
1070: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d onnect(statePtr-
1080: 3e 73 73 6c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 >ssl);..}...if (
1090: 65 72 72 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 err > 0) {..
10a0: 64 70 72 69 6e 74 66 28 22 54 68 61 74 20 73 65 dprintf("That se
10b0: 65 6d 73 20 74 6f 20 68 61 76 65 20 67 6f 6e 65 ems to have gone
10c0: 20 6f 6b 61 79 22 29 3b 0a 0a 09 20 20 20 20 65 okay");... e
10d0: 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 73 rr = BIO_flush(s
10e0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 tatePtr->bio);..
10f0: 20 20 20 20 69 66 20 28 65 72 72 20 3c 3d 20 30 if (err <= 0
1100: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 46 ) {...dprintf("F
1110: 6c 75 73 68 69 6e 67 20 74 68 65 20 6c 6f 77 65 lushing the lowe
1120: 72 20 6c 61 79 65 72 73 20 66 61 69 6c 65 64 2c r layers failed,
1130: 20 74 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 61 this will proba
1140: 62 6c 79 20 74 65 72 6d 69 6e 61 74 65 20 74 68 bly terminate th
1150: 69 73 20 73 65 73 73 69 6f 6e 22 29 3b 0a 09 20 is session");..
1160: 20 20 20 7d 0a 09 7d 0a 0a 09 72 63 20 3d 20 53 }..}...rc = S
1170: 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 SL_get_error(sta
1180: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 65 72 72 29 tePtr->ssl, err)
1190: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 47 6f 74 ;...dprintf("Got
11a0: 20 65 72 72 6f 72 3a 20 25 69 20 28 72 63 20 3d error: %i (rc =
11b0: 20 25 69 29 22 2c 20 65 72 72 2c 20 72 63 29 3b %i)", err, rc);
11c0: 0a 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 65 ..dprintf("Got e
11d0: 72 72 6f 72 3a 20 25 73 22 2c 20 45 52 52 5f 72 rror: %s", ERR_r
11e0: 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 eason_error_stri
11f0: 6e 67 28 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 ng(ERR_get_error
1200: 28 29 29 29 3b 0a 0a 09 62 69 6f 53 68 6f 75 6c ()));...bioShoul
1210: 64 52 65 74 72 79 20 3d 20 30 3b 0a 09 69 66 20 dRetry = 0;..if
1220: 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20 (err <= 0) {..
1230: 20 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f if (rc == SSL_
1240: 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 ERROR_WANT_CONNE
1250: 43 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f CT || rc == SSL_
1260: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50 ERROR_WANT_ACCEP
1270: 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45 T || rc == SSL_E
1280: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 20 7c RROR_WANT_READ |
1290: 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f | rc == SSL_ERRO
12a0: 52 5f 57 41 4e 54 5f 57 52 49 54 45 29 20 7b 0a R_WANT_WRITE) {.
12b0: 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 ..bioShouldRetry
12c0: 20 3d 20 31 3b 0a 09 20 20 20 20 7d 20 65 6c 73 = 1;.. } els
12d0: 65 20 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 e if (BIO_should
12e0: 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 2d _retry(statePtr-
12f0: 3e 62 69 6f 29 29 20 7b 0a 09 09 62 69 6f 53 68 >bio)) {...bioSh
1300: 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 ouldRetry = 1;..
1310: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 } else if (r
1320: 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 53 c == SSL_ERROR_S
1330: 59 53 43 41 4c 4c 20 26 26 20 54 63 6c 5f 47 65 YSCALL && Tcl_Ge
1340: 74 45 72 72 6e 6f 28 29 20 3d 3d 20 45 41 47 41 tErrno() == EAGA
1350: 49 4e 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c IN) {...bioShoul
1360: 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 dRetry = 1;..
1370: 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 }..} else {..
1380: 20 20 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e if (!SSL_is_in
1390: 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74 it_finished(stat
13a0: 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 09 ePtr->ssl)) {...
13b0: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d bioShouldRetry =
13c0: 20 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 1;.. }..}...
13d0: 69 66 20 28 62 69 6f 53 68 6f 75 6c 64 52 65 74 if (bioShouldRet
13e0: 72 79 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e ry) {.. dprin
13f0: 74 66 28 22 54 68 65 20 49 2f 4f 20 64 69 64 20 tf("The I/O did
1400: 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 2d 2d 20 not complete --
1410: 62 75 74 20 77 65 20 73 68 6f 75 6c 64 20 74 72 but we should tr
1420: 79 20 69 74 20 61 67 61 69 6e 22 29 3b 0a 0a 09 y it again");...
1430: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
1440: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
1450: 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 09 64 70 72 L_ASYNC) {...dpr
1460: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 intf("Returning
1470: 45 41 47 41 49 4e 20 73 6f 20 74 68 61 74 20 69 EAGAIN so that i
1480: 74 20 63 61 6e 20 62 65 20 72 65 74 72 69 65 64 t can be retried
1490: 20 6c 61 74 65 72 22 29 3b 0a 0a 09 09 2a 65 72 later");....*er
14a0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
14b0: 41 49 4e 3b 0a 09 09 72 65 74 75 72 6e 28 2d 31 AIN;...return(-1
14c0: 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b );.. } else {
14d0: 0a 09 09 64 70 72 69 6e 74 66 28 22 44 6f 69 6e ...dprintf("Doin
14e0: 67 20 73 6f 20 6e 6f 77 22 29 3b 0a 0a 09 09 63 g so now");....c
14f0: 6f 6e 74 69 6e 75 65 3b 0a 09 20 20 20 20 7d 0a ontinue;.. }.
1500: 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 57 65 .}...dprintf("We
1510: 20 68 61 76 65 20 65 69 74 68 65 72 20 63 6f 6d have either com
1520: 70 6c 65 74 65 6c 79 20 65 73 74 61 62 6c 69 73 pletely establis
1530: 68 65 64 20 74 68 65 20 73 65 73 73 69 6f 6e 20 hed the session
1540: 6f 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 66 61 or completely fa
1550: 69 6c 65 64 20 69 74 20 2d 2d 20 74 68 65 72 65 iled it -- there
1560: 20 69 73 20 6e 6f 20 6d 6f 72 65 20 6e 65 65 64 is no more need
1570: 20 74 6f 20 65 76 65 72 20 72 65 74 72 79 20 69 to ever retry i
1580: 74 20 74 68 6f 75 67 68 22 29 3b 0a 09 62 72 65 t though");..bre
1590: 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 ak;. }.. s
15a0: 77 69 74 63 68 20 28 72 63 29 20 7b 0a 09 63 61 witch (rc) {..ca
15b0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e se SSL_ERROR_NON
15c0: 45 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 63 E:.. /* The c
15d0: 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 75 70 2c onnection is up,
15e0: 20 77 65 20 61 72 65 20 64 6f 6e 65 20 68 65 72 we are done her
15f0: 65 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 e */.. dprint
1600: 66 28 22 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f f("The connectio
1610: 6e 20 69 73 20 75 70 22 29 3b 0a 09 20 20 20 20 n is up");..
1620: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
1630: 30 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 0;.. break;..
1640: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a case SSL_ERROR_Z
1650: 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 ERO_RETURN:..
1660: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 dprintf("SSL_ER
1670: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
1680: 20 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 Connect returne
1690: 64 20 61 6e 20 69 6e 76 61 6c 69 64 20 76 61 6c d an invalid val
16a0: 75 65 2e 2e 2e 22 29 3b 0a 09 20 20 20 20 2a 65 ue...");.. *e
16b0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 rrorCodePtr = EI
16c0: 4e 56 41 4c 3b 0a 09 20 20 20 20 72 65 74 75 72 NVAL;.. retur
16d0: 6e 28 2d 31 29 3b 0a 09 63 61 73 65 20 53 53 4c n(-1);..case SSL
16e0: 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a _ERROR_SYSCALL:.
16f0: 09 20 20 20 20 62 61 63 6b 69 6e 67 45 72 72 6f . backingErro
1700: 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f r = ERR_get_erro
1710: 72 28 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 r();... if (b
1720: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 ackingError == 0
1730: 20 26 26 20 65 72 72 20 3d 3d 20 30 29 20 7b 0a && err == 0) {.
1740: 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 20 72 ..dprintf("EOF r
1750: 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 72 6f eached")...*erro
1760: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
1770: 52 45 53 45 54 3b 0a 09 20 20 20 20 7d 20 65 6c RESET;.. } el
1780: 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 se if (backingEr
1790: 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 72 20 ror == 0 && err
17a0: 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e == -1) {...dprin
17b0: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tf("I/O error oc
17c0: 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 curred (errno =
17d0: 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 %lu)", (unsigned
17e0: 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 long) Tcl_GetEr
17f0: 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 rno());...*error
1800: 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 CodePtr = Tcl_Ge
1810: 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 20 28 tErrno();...if (
1820: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d *errorCodePtr ==
1830: 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 ECONNRESET) {..
1840: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
1850: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
1860: 44 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 20 65 6c D;...}.. } el
1870: 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 se {...dprintf("
1880: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
1890: 65 64 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 ed (backingError
18a0: 20 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e = %lu)", backin
18b0: 67 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 72 6f gError);...*erro
18c0: 72 43 6f 64 65 50 74 72 20 3d 20 62 61 63 6b 69 rCodePtr = backi
18d0: 6e 67 45 72 72 6f 72 3b 0a 09 09 69 66 20 28 2a ngError;...if (*
18e0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 errorCodePtr ==
18f0: 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 ECONNRESET) {...
1900: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
1910: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
1920: 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 0a 09 20 ;...}.. }...
1930: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 statePtr->fla
1940: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 gs |= TLS_TCL_HA
1950: 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a NDSHAKE_FAILED;.
1960: 09 20 20 20 20 72 65 74 75 72 6e 28 2d 31 29 3b . return(-1);
1970: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
1980: 52 5f 53 53 4c 3a 0a 09 20 20 20 20 64 70 72 69 R_SSL:.. dpri
1990: 6e 74 66 28 22 47 6f 74 20 70 65 72 6d 61 6e 65 ntf("Got permane
19a0: 6e 74 20 66 61 74 61 6c 20 53 53 4c 20 65 72 72 nt fatal SSL err
19b0: 6f 72 2c 20 61 62 6f 72 74 69 6e 67 20 69 6d 6d or, aborting imm
19c0: 65 64 69 61 74 65 6c 79 22 29 3b 0a 09 20 20 20 ediately");..
19d0: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
19e0: 50 74 72 2c 20 28 63 68 61 72 20 2a 29 45 52 52 Ptr, (char *)ERR
19f0: 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 _reason_error_st
1a00: 72 69 6e 67 28 45 52 52 5f 67 65 74 5f 65 72 72 ring(ERR_get_err
1a10: 6f 72 28 29 29 29 3b 0a 09 20 20 20 20 73 74 61 or()));.. sta
1a20: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
1a30: 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b TLS_TCL_HANDSHAK
1a40: 45 5f 46 41 49 4c 45 44 3b 0a 09 20 20 20 20 2a E_FAILED;.. *
1a50: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
1a60: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20 CONNABORTED;..
1a70: 20 20 72 65 74 75 72 6e 28 2d 31 29 3b 0a 0a 09 return(-1);...
1a80: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
1a90: 41 4e 54 5f 43 4f 4e 4e 45 43 54 3a 0a 09 63 61 ANT_CONNECT:..ca
1aa0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
1ab0: 54 5f 41 43 43 45 50 54 3a 0a 09 63 61 73 65 20 T_ACCEPT:..case
1ac0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 SSL_ERROR_WANT_X
1ad0: 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 64 65 66 509_LOOKUP:..def
1ae0: 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 69 6e ault:.. dprin
1af0: 74 66 28 22 57 65 20 67 6f 74 20 61 20 63 6f 6e tf("We got a con
1b00: 66 75 73 69 6e 67 20 72 65 70 6c 79 3a 20 25 69 fusing reply: %i
1b10: 22 2c 20 72 63 29 3b 0a 09 20 20 20 20 2a 65 72 ", rc);.. *er
1b20: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
1b30: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 20 20 _GetErrno();..
1b40: 20 20 64 70 72 69 6e 74 66 28 22 45 52 52 28 25 dprintf("ERR(%
1b50: 64 2c 20 25 64 29 20 22 2c 20 72 63 2c 20 2a 65 d, %d) ", rc, *e
1b60: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 20 rrorCodePtr);..
1b70: 20 20 20 72 65 74 75 72 6e 28 2d 31 29 3b 0a 20 return(-1);.
1b80: 20 20 20 7d 0a 0a 23 69 66 20 30 0a 20 20 20 20 }..#if 0.
1b90: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c if (statePtr->fl
1ba0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45 ags & TLS_TCL_SE
1bb0: 52 56 45 52 29 20 7b 0a 09 64 70 72 69 6e 74 66 RVER) {..dprintf
1bc0: 28 22 54 68 69 73 20 69 73 20 61 6e 20 54 4c 53 ("This is an TLS
1bd0: 20 73 65 72 76 65 72 2c 20 63 68 65 63 6b 69 6e server, checkin
1be0: 67 20 74 68 65 20 63 65 72 74 69 66 69 63 61 74 g the certificat
1bf0: 65 20 66 6f 72 20 74 68 65 20 70 65 65 72 22 29 e for the peer")
1c00: 3b 0a 0a 09 65 72 72 20 3d 20 53 53 4c 5f 67 65 ;...err = SSL_ge
1c10: 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 28 t_verify_result(
1c20: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
1c30: 09 69 66 20 28 65 72 72 20 21 3d 20 58 35 30 39 .if (err != X509
1c40: 5f 56 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 64 70 _V_OK) {.. dp
1c50: 72 69 6e 74 66 28 22 49 6e 76 61 6c 69 64 20 63 rintf("Invalid c
1c60: 65 72 74 69 66 69 63 61 74 65 2c 20 72 65 74 75 ertificate, retu
1c70: 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 rning in failure
1c80: 22 29 3b 0a 0a 09 20 20 20 20 54 6c 73 5f 45 72 ");... Tls_Er
1c90: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 ror(statePtr, (c
1ca0: 68 61 72 20 2a 29 58 35 30 39 5f 76 65 72 69 66 har *)X509_verif
1cb0: 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 y_cert_error_str
1cc0: 69 6e 67 28 65 72 72 29 29 3b 0a 09 20 20 20 20 ing(err));..
1cd0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
1ce0: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 |= TLS_TCL_HANDS
1cf0: 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 20 20 HAKE_FAILED;..
1d00: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
1d10: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
1d20: 09 20 20 20 20 72 65 74 75 72 6e 28 2d 31 29 3b . return(-1);
1d30: 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 ..}. }.#endif
1d40: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 .. dprintf("R
1d50: 65 6d 6f 76 69 6e 67 20 74 68 65 20 5c 22 54 4c emoving the \"TL
1d60: 53 5f 54 43 4c 5f 49 4e 49 54 5c 22 20 66 6c 61 S_TCL_INIT\" fla
1d70: 67 20 73 69 6e 63 65 20 77 65 20 68 61 76 65 20 g since we have
1d80: 63 6f 6d 70 6c 65 74 65 64 20 74 68 65 20 68 61 completed the ha
1d90: 6e 64 73 68 61 6b 65 22 29 3b 0a 20 20 20 20 73 ndshake");. s
1da0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
1db0: 3d 20 7e 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b = ~TLS_TCL_INIT;
1dc0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 .. dprintf("R
1dd0: 65 74 75 72 6e 69 6e 67 20 69 6e 20 73 75 63 63 eturning in succ
1de0: 65 73 73 22 29 3b 0a 20 20 20 20 2a 65 72 72 6f ess");. *erro
1df0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 rCodePtr = 0;.
1e00: 20 20 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a return(0);.}..
1e10: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
1e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
1e60: 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 lsInputProc --.
1e70: 2a 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f *. * This pro
1e80: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
1e90: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
1ea0: 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 IO level. *
1eb0: 20 20 20 74 6f 20 72 65 61 64 20 69 6e 70 75 74 to read input
1ec0: 20 66 72 6f 6d 20 61 20 53 53 4c 20 73 6f 63 6b from a SSL sock
1ed0: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c et based channel
1ee0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
1ef0: 0a 20 2a 20 20 20 20 52 65 74 75 72 6e 73 20 74 . * Returns t
1f00: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 he number of byt
1f10: 65 73 20 72 65 61 64 20 6f 72 20 2d 31 20 6f 6e es read or -1 on
1f20: 20 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72 error. Sets err
1f30: 6f 72 43 6f 64 65 50 74 72 0a 20 2a 20 20 20 20 orCodePtr. *
1f40: 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 to a POSIX error
1f50: 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f code if an erro
1f60: 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 30 r occurred, or 0
1f70: 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 if none.. *. *
1f80: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
1f90: 20 20 20 20 52 65 61 64 73 20 69 6e 70 75 74 20 Reads input
1fa0: 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 74 20 64 from the input d
1fb0: 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 61 evice of the cha
1fc0: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
1fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2010: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
2020: 73 49 6e 70 75 74 50 72 6f 63 28 43 6c 69 65 6e sInputProc(Clien
2030: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
2040: 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 69 ta, char *buf, i
2050: 6e 74 20 62 75 66 53 69 7a 65 2c 20 69 6e 74 20 nt bufSize, int
2060: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b *errorCodePtr) {
2070: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f . unsigned lo
2080: 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b ng backingError;
2090: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
20a0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
20b0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 instanceData;.
20c0: 20 20 20 69 6e 74 20 62 79 74 65 73 52 65 61 64 int bytesRead
20d0: 3b 0a 20 20 20 20 69 6e 74 20 74 6c 73 43 6f 6e ;. int tlsCon
20e0: 6e 65 63 74 3b 0a 20 20 20 20 69 6e 74 20 65 72 nect;. int er
20f0: 72 3b 0a 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f r;.. *errorCo
2100: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 dePtr = 0;..
2110: 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 dprintf("BIO_rea
2120: 64 28 25 64 29 22 2c 20 62 75 66 53 69 7a 65 29 d(%d)", bufSize)
2130: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 ;.. if (state
2140: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
2150: 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b _TCL_CALLBACK) {
2160: 0a 09 2f 2a 20 64 6f 6e 27 74 20 70 72 6f 63 65 ../* don't proce
2170: 73 73 20 61 6e 79 20 62 79 74 65 73 20 77 68 69 ss any bytes whi
2180: 6c 65 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 le verify callba
2190: 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 20 2a 2f ck is running */
21a0: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 ..dprintf("Callb
21b0: 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 2c 20 ack is running,
21c0: 72 65 61 64 69 6e 67 20 30 20 62 79 74 65 73 22 reading 0 bytes"
21d0: 29 3b 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 20 );..return(0);.
21e0: 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 }.. dprint
21f0: 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 f("Calling Tls_W
2200: 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b aitForConnect");
2210: 0a 20 20 20 20 74 6c 73 43 6f 6e 6e 65 63 74 20 . tlsConnect
2220: 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e = Tls_WaitForCon
2230: 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 nect(statePtr, e
2240: 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 30 29 3b rrorCodePtr, 0);
2250: 0a 20 20 20 20 69 66 20 28 74 6c 73 43 6f 6e 6e . if (tlsConn
2260: 65 63 74 20 3c 20 30 29 20 7b 0a 09 64 70 72 69 ect < 0) {..dpri
2270: 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f ntf("Got an erro
2280: 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e r waiting to con
2290: 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 nect (tlsConnect
22a0: 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 = %i, *errorCod
22b0: 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 ePtr = %i)", tls
22c0: 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43 Connect, *errorC
22d0: 6f 64 65 50 74 72 29 3b 0a 09 54 6c 73 5f 45 72 odePtr);..Tls_Er
22e0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 74 ror(statePtr, st
22f0: 72 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 rerror(*errorCod
2300: 65 50 74 72 29 29 3b 0a 0a 09 62 79 74 65 73 52 ePtr));...bytesR
2310: 65 61 64 20 3d 20 2d 31 3b 0a 09 69 66 20 28 2a ead = -1;..if (*
2320: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 errorCodePtr ==
2330: 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 20 ECONNRESET) {..
2340: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
2350: 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 connection reset
2360: 22 29 3b 0a 09 20 20 20 20 2f 2a 20 53 6f 66 74 ");.. /* Soft
2370: 20 45 4f 46 20 2a 2f 0a 09 20 20 20 20 2a 65 72 EOF */.. *er
2380: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
2390: 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d . bytesRead =
23a0: 20 30 3b 0a 09 7d 0a 09 72 65 74 75 72 6e 28 62 0;..}..return(b
23b0: 79 74 65 73 52 65 61 64 29 3b 0a 20 20 20 20 7d ytesRead);. }
23c0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
23d0: 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 We need to clear
23e0: 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 73 the SSL error s
23f0: 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 tack now because
2400: 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 we sometimes re
2410: 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 20 ach. * this
2420: 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c 65 function with le
2430: 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 6e ftover errors in
2440: 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 20 the stack. If
2450: 42 49 4f 5f 72 65 61 64 0a 20 20 20 20 20 2a 20 BIO_read. *
2460: 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 returns -1 and i
2470: 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 ntends EAGAIN, t
2480: 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f 76 here is a leftov
2490: 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 6c er error, it wil
24a0: 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 73 63 l be. * misc
24b0: 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 65 onstrued as an e
24c0: 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e rror, not EAGAIN
24d0: 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 .. *. *
24e0: 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 77 Alternatively, w
24f0: 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 68 61 e may want to ha
2500: 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 74 75 ndle the <0 retu
2510: 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a 20 20 rn codes from.
2520: 20 20 20 2a 20 42 49 4f 5f 72 65 61 64 20 73 70 * BIO_read sp
2530: 65 63 69 61 6c 6c 79 20 28 61 73 20 61 64 76 69 ecially (as advi
2540: 73 65 64 20 69 6e 20 74 68 65 20 52 53 41 20 64 sed in the RSA d
2550: 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 6c 6f 77 ocs). TLS's low
2560: 65 72 20 6c 65 76 65 6c 20 42 49 4f 0a 20 20 20 er level BIO.
2570: 20 20 2a 20 66 75 6e 63 74 69 6f 6e 73 20 70 6c * functions pl
2580: 61 79 20 77 69 74 68 20 74 68 65 20 72 65 74 72 ay with the retr
2590: 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 2c 20 y flags though,
25a0: 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 20 74 and this seems t
25b0: 6f 20 77 6f 72 6b 0a 20 20 20 20 20 2a 20 63 6f o work. * co
25c0: 72 72 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61 rrectly. Simila
25d0: 72 20 66 69 78 20 69 6e 20 54 6c 73 4f 75 74 70 r fix in TlsOutp
25e0: 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a utProc. - hobbs.
25f0: 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 52 52 5f */. ERR_
2600: 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 20 clear_error();.
2610: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 42 bytesRead = B
2620: 49 4f 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 IO_read(statePtr
2630: 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 53 ->bio, buf, bufS
2640: 69 7a 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 ize);. dprint
2650: 66 28 22 42 49 4f 5f 72 65 61 64 20 2d 3e 20 25 f("BIO_read -> %
2660: 64 22 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a d", bytesRead);.
2670: 0a 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 67 . err = SSL_g
2680: 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 et_error(statePt
2690: 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61 r->ssl, bytesRea
26a0: 64 29 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 69 d);..#if 0. i
26b0: 66 20 28 62 79 74 65 73 52 65 61 64 20 3c 3d 20 f (bytesRead <=
26c0: 30 29 20 7b 0a 09 69 66 20 28 42 49 4f 5f 73 68 0) {..if (BIO_sh
26d0: 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 ould_retry(state
26e0: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 Ptr->bio)) {..
26f0: 20 20 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 66 dprintf("I/O f
2700: 61 69 6c 65 64 2c 20 77 69 6c 6c 20 72 65 74 72 ailed, will retr
2710: 79 20 62 61 73 65 64 20 6f 6e 20 45 41 47 41 49 y based on EAGAI
2720: 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 N");.. *error
2730: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
2740: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 ;..}. }.#endi
2750: 66 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 65 f.. switch (e
2760: 72 72 29 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f rr) {..case SSL_
2770: 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 ERROR_NONE:..
2780: 20 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 75 dprintBuffer(bu
2790: 66 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a 09 f, bytesRead);..
27a0: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
27b0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a e SSL_ERROR_SSL:
27c0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
27d0: 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 65 SL negotiation e
27e0: 72 72 6f 72 2c 20 69 6e 64 69 63 61 74 69 6e 67 rror, indicating
27f0: 20 74 68 61 74 20 74 68 65 20 63 6f 6e 6e 65 63 that the connec
2800: 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 61 62 tion has been ab
2810: 6f 72 74 65 64 22 29 3b 0a 0a 09 20 20 20 20 54 orted");... T
2820: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2830: 72 2c 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 45 52 r, TCLTLS_SSL_ER
2840: 52 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ROR(statePtr->ss
2850: 6c 2c 20 62 79 74 65 73 52 65 61 64 29 29 3b 0a l, bytesRead));.
2860: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
2870: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
2880: 44 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 D;.. bytesRea
2890: 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 62 72 65 d = -1;.. bre
28a0: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
28b0: 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 RROR_SYSCALL:..
28c0: 20 20 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 backingError
28d0: 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 = ERR_get_error(
28e0: 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63 );... if (bac
28f0: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
2900: 26 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 30 & bytesRead == 0
2910: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 45 ) {...dprintf("E
2920: 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a OF reached")...*
2930: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
2940: 3b 0a 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ;...bytesRead =
2950: 30 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 0;.. } else i
2960: 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 f (backingError
2970: 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 == 0 && bytesRea
2980: 64 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 d == -1) {...dpr
2990: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
29a0: 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 occurred (errno
29b0: 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e = %lu)", (unsign
29c0: 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 ed long) Tcl_Get
29d0: 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 Errno());...*err
29e0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f orCodePtr = Tcl_
29f0: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79 GetErrno();...by
2a00: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 tesRead = -1;..
2a10: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 } else {...dp
2a20: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
2a30: 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 occurred (backi
2a40: 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c ngError = %lu)",
2a50: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a backingError);.
2a60: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2a70: 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a = backingError;.
2a80: 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 ..bytesRead = -1
2a90: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 ;.. }.. br
2aa0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
2ab0: 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 ERROR_ZERO_RETUR
2ac0: 4e 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 N:.. dprintf(
2ad0: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 5a "Got SSL_ERROR_Z
2ae0: 45 52 4f 5f 52 45 54 55 52 4e 2c 20 74 68 69 73 ERO_RETURN, this
2af0: 20 6d 65 61 6e 73 20 61 6e 20 45 4f 46 20 68 61 means an EOF ha
2b00: 73 20 62 65 65 6e 20 72 65 61 63 68 65 64 22 29 s been reached")
2b10: 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 ;.. bytesRead
2b20: 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65 72 72 6f = 0;.. *erro
2b30: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 rCodePtr = 0;..
2b40: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 break;...case
2b50: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
2b60: 52 45 41 44 3a 0a 09 20 20 20 20 64 70 72 69 6e READ:.. dprin
2b70: 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f tf("Got SSL_ERRO
2b80: 52 5f 57 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70 R_WANT_READ, map
2b90: 70 69 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 ping this to EAG
2ba0: 41 49 4e 22 29 3b 0a 09 20 20 20 20 62 79 74 65 AIN");.. byte
2bb0: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 sRead = -1;..
2bc0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
2bd0: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 72 EAGAIN;.. br
2be0: 65 61 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 3a 0a eak;...default:.
2bf0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 55 6e . dprintf("Un
2c00: 6b 6e 6f 77 6e 20 65 72 72 6f 72 20 28 65 72 72 known error (err
2c10: 20 3d 20 25 69 29 2c 20 6d 61 70 70 69 6e 67 20 = %i), mapping
2c20: 74 6f 20 45 4f 46 22 2c 20 65 72 72 29 3b 0a 09 to EOF", err);..
2c30: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
2c40: 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 65 r = 0;.. byte
2c50: 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 sRead = 0;..
2c60: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 break;. }..
2c70: 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 if (*errorCode
2c80: 50 74 72 20 3c 20 30 29 20 7b 0a 09 54 6c 73 5f Ptr < 0) {..Tls_
2c90: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
2ca0: 73 74 72 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 strerror(*errorC
2cb0: 6f 64 65 50 74 72 29 29 3b 0a 20 20 20 20 7d 0a odePtr));. }.
2cc0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 49 6e 70 dprintf("Inp
2cd0: 75 74 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 64 ut(%d) -> %d [%d
2ce0: 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 74 ]", bufSize, byt
2cf0: 65 73 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 6f esRead, *errorCo
2d00: 64 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 dePtr);. retu
2d10: 72 6e 28 62 79 74 65 73 52 65 61 64 29 3b 0a 7d rn(bytesRead);.}
2d20: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
2d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
2d70: 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 2d TlsOutputProc -
2d80: 2d 0a 20 2a 0a 20 2a 20 20 20 20 54 68 69 73 20 -. *. * This
2d90: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
2da0: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 oked by the gene
2db0: 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 ric IO level. *
2dc0: 20 20 20 20 20 20 74 6f 20 77 72 69 74 65 20 6f to write o
2dd0: 75 74 70 75 74 20 74 6f 20 61 20 53 53 4c 20 73 utput to a SSL s
2de0: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
2df0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
2e00: 74 73 3a 0a 20 2a 20 20 20 20 52 65 74 75 72 6e ts:. * Return
2e10: 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 s the number of
2e20: 62 79 74 65 73 20 77 72 69 74 74 65 6e 20 6f 72 bytes written or
2e30: 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e 20 53 65 -1 on error. Se
2e40: 74 73 20 65 72 72 6f 72 43 6f 64 65 50 74 72 0a ts errorCodePtr.
2e50: 20 2a 20 20 20 20 74 6f 20 61 20 50 4f 53 49 58 * to a POSIX
2e60: 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 20 61 error code if a
2e70: 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 n error occurred
2e80: 2c 20 6f 72 20 30 20 69 66 20 6e 6f 6e 65 2e 0a , or 0 if none..
2e90: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
2ea0: 74 73 3a 0a 20 2a 20 20 20 20 57 72 69 74 65 73 ts:. * Writes
2eb0: 20 6f 75 74 70 75 74 20 6f 6e 20 74 68 65 20 6f output on the o
2ec0: 75 74 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 utput device of
2ed0: 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a the channel.. *.
2ee0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f20: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
2f30: 20 69 6e 74 20 54 6c 73 4f 75 74 70 75 74 50 72 int TlsOutputPr
2f40: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
2f50: 73 74 61 6e 63 65 44 61 74 61 2c 20 63 6f 6e 73 stanceData, cons
2f60: 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 t char *buf, int
2f70: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 toWrite, int *e
2f80: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 rrorCodePtr) {.
2f90: 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 unsigned long
2fa0: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 backingError;.
2fb0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
2fc0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
2fd0: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 nstanceData;.
2fe0: 20 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 65 72 int written, er
2ff0: 72 3b 0a 20 20 20 20 69 6e 74 20 74 6c 73 43 6f r;. int tlsCo
3000: 6e 6e 65 63 74 3b 0a 0a 20 20 20 20 2a 65 72 72 nnect;.. *err
3010: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a orCodePtr = 0;..
3020: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
3030: 5f 77 72 69 74 65 28 25 70 2c 20 25 64 29 22 2c _write(%p, %d)",
3040: 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 (void *) stateP
3050: 74 72 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20 tr, toWrite);.
3060: 20 20 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 dprintBuffer(b
3070: 75 66 2c 20 74 6f 57 72 69 74 65 29 3b 0a 0a 20 uf, toWrite);..
3080: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
3090: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
30a0: 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 _CALLBACK) {..dp
30b0: 72 69 6e 74 66 28 22 44 6f 6e 27 74 20 70 72 6f rintf("Don't pro
30c0: 63 65 73 73 20 6f 75 74 70 75 74 20 77 68 69 6c cess output whil
30d0: 65 20 63 61 6c 6c 62 61 63 6b 73 20 61 72 65 20 e callbacks are
30e0: 72 75 6e 6e 69 6e 67 22 29 3b 0a 09 77 72 69 74 running");..writ
30f0: 74 65 6e 20 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f ten = -1;..*erro
3100: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
3110: 4e 3b 0a 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a N;..return(-1);.
3120: 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e }.. dprin
3130: 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f tf("Calling Tls_
3140: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 WaitForConnect")
3150: 3b 0a 20 20 20 20 74 6c 73 43 6f 6e 6e 65 63 74 ;. tlsConnect
3160: 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f = Tls_WaitForCo
3170: 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 nnect(statePtr,
3180: 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 31 29 errorCodePtr, 1)
3190: 3b 0a 20 20 20 20 69 66 20 28 74 6c 73 43 6f 6e ;. if (tlsCon
31a0: 6e 65 63 74 20 3c 20 30 29 20 7b 0a 09 64 70 72 nect < 0) {..dpr
31b0: 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 intf("Got an err
31c0: 6f 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f or waiting to co
31d0: 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 nnect (tlsConnec
31e0: 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f t = %i, *errorCo
31f0: 64 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c dePtr = %i)", tl
3200: 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 sConnect, *error
3210: 43 6f 64 65 50 74 72 29 3b 0a 09 54 6c 73 5f 45 CodePtr);..Tls_E
3220: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 rror(statePtr, s
3230: 74 72 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f trerror(*errorCo
3240: 64 65 50 74 72 29 29 3b 0a 0a 09 77 72 69 74 74 dePtr));...writt
3250: 65 6e 20 3d 20 2d 31 3b 0a 09 69 66 20 28 2a 65 en = -1;..if (*e
3260: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 rrorCodePtr == E
3270: 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 20 20 CONNRESET) {..
3280: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 63 dprintf("Got c
3290: 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 22 onnection reset"
32a0: 29 3b 0a 09 20 20 20 20 2f 2a 20 53 6f 66 74 20 );.. /* Soft
32b0: 45 4f 46 20 2a 2f 0a 09 20 20 20 20 2a 65 72 72 EOF */.. *err
32c0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 orCodePtr = 0;..
32d0: 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 30 3b written = 0;
32e0: 0a 09 7d 0a 09 72 65 74 75 72 6e 28 77 72 69 74 ..}..return(writ
32f0: 74 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 ten);. }..
3300: 20 69 66 20 28 74 6f 57 72 69 74 65 20 3d 3d 20 if (toWrite ==
3310: 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 7a 0) {..dprintf("z
3320: 65 72 6f 2d 77 72 69 74 65 22 29 3b 0a 09 65 72 ero-write");..er
3330: 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 73 74 r = BIO_flush(st
3340: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 0a 09 atePtr->bio);...
3350: 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a if (err <= 0) {.
3360: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 46 6c . dprintf("Fl
3370: 75 73 68 69 6e 67 20 66 61 69 6c 65 64 22 29 3b ushing failed");
3380: 0a 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ... *errorCod
3390: 65 50 74 72 20 3d 20 45 49 4f 3b 0a 09 20 20 20 ePtr = EIO;..
33a0: 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 written = 0;..
33b0: 20 20 20 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 return(-1);..
33c0: 7d 0a 0a 09 77 72 69 74 74 65 6e 20 3d 20 30 3b }...written = 0;
33d0: 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
33e0: 3d 20 30 3b 0a 09 72 65 74 75 72 6e 28 30 29 3b = 0;..return(0);
33f0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 . }.. /*.
3400: 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f * We need to
3410: 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 clear the SSL e
3420: 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 rror stack now b
3430: 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 ecause we someti
3440: 6d 65 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a mes reach. *
3450: 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 this function w
3460: 69 74 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 ith leftover err
3470: 6f 72 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b ors in the stack
3480: 2e 20 20 49 66 20 42 49 4f 5f 77 72 69 74 65 0a . If BIO_write.
3490: 20 20 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d * returns -
34a0: 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 1 and intends EA
34b0: 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 GAIN, there is a
34c0: 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c leftover error,
34d0: 20 69 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 it will be.
34e0: 20 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 * misconstrued
34f0: 61 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 as an error, not
3500: 20 45 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a EAGAIN.. *.
3510: 20 20 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 69 * Alternati
3520: 76 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e vely, we may wan
3530: 74 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 t to handle the
3540: 3c 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 <0 return codes
3550: 66 72 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f from. * BIO_
3560: 77 72 69 74 65 20 73 70 65 63 69 61 6c 6c 79 20 write specially
3570: 28 61 73 20 61 64 76 69 73 65 64 20 69 6e 20 74 (as advised in t
3580: 68 65 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54 he RSA docs). T
3590: 4c 53 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c LS's lower level
35a0: 0a 20 20 20 20 20 2a 20 42 49 4f 20 66 75 6e 63 . * BIO func
35b0: 74 69 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 20 tions play with
35c0: 74 68 65 20 72 65 74 72 79 20 66 6c 61 67 73 20 the retry flags
35d0: 74 68 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 73 though, and this
35e0: 20 73 65 65 6d 73 20 74 6f 0a 20 20 20 20 20 2a seems to. *
35f0: 20 77 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 2e work correctly.
3600: 20 20 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e Similar fix in
3610: 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 2e 20 2d TlsInputProc. -
3620: 20 68 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20 hobbs. */.
3630: 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 ERR_clear_err
3640: 6f 72 28 29 3b 0a 20 20 20 20 77 72 69 74 74 65 or();. writte
3650: 6e 20 3d 20 42 49 4f 5f 77 72 69 74 65 28 73 74 n = BIO_write(st
3660: 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 atePtr->bio, buf
3670: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20 20 20 , toWrite);.
3680: 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 69 dprintf("BIO_wri
3690: 74 65 28 25 70 2c 20 25 64 29 20 2d 3e 20 5b 25 te(%p, %d) -> [%
36a0: 64 5d 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 d]", (void *) st
36b0: 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 2c atePtr, toWrite,
36c0: 20 77 72 69 74 74 65 6e 29 3b 0a 0a 20 20 20 20 written);..
36d0: 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 err = SSL_get_er
36e0: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ror(statePtr->ss
36f0: 6c 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 l, written);.
3700: 20 73 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a switch (err) {.
3710: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
3720: 4e 4f 4e 45 3a 0a 09 20 20 20 20 69 66 20 28 77 NONE:.. if (w
3730: 72 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09 ritten < 0) {...
3740: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 written = 0;..
3750: 20 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a }.. break;.
3760: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
3770: 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 _WANT_WRITE:..
3780: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
3790: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
37a0: 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 ITE, mapping it
37b0: 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 to EAGAIN");..
37c0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
37d0: 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 = EAGAIN;.. w
37e0: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 ritten = -1;..
37f0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
3800: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 SSL_ERROR_WANT_R
3810: 45 41 44 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 EAD:.. dprint
3820: 66 28 22 20 77 72 69 74 65 20 52 20 42 4c 4f 43 f(" write R BLOC
3830: 4b 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b K");.. break;
3840: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
3850: 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b R_WANT_X509_LOOK
3860: 55 50 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 UP:.. dprintf
3870: 28 22 20 77 72 69 74 65 20 58 20 42 4c 4f 43 4b (" write X BLOCK
3880: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ");.. break;.
3890: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
38a0: 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 _ZERO_RETURN:..
38b0: 20 20 20 64 70 72 69 6e 74 66 28 22 20 63 6c 6f dprintf(" clo
38c0: 73 65 64 22 29 3b 0a 09 20 20 20 20 77 72 69 74 sed");.. writ
38d0: 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65 ten = 0;.. *e
38e0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
38f0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
3900: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 ase SSL_ERROR_SY
3910: 53 43 41 4c 4c 3a 0a 09 20 20 20 20 62 61 63 6b SCALL:.. back
3920: 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 ingError = ERR_g
3930: 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 20 20 et_error();...
3940: 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 if (backingErr
3950: 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69 74 74 or == 0 && writt
3960: 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72 en == 0) {...dpr
3970: 69 6e 74 66 28 22 45 4f 46 20 72 65 61 63 68 65 intf("EOF reache
3980: 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 d")...*errorCode
3990: 50 74 72 20 3d 20 30 3b 0a 09 09 77 72 69 74 74 Ptr = 0;...writt
39a0: 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 7d 20 65 en = 0;.. } e
39b0: 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 lse if (backingE
39c0: 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69 rror == 0 && wri
39d0: 74 74 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 tten == -1) {...
39e0: 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 dprintf("I/O err
39f0: 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 72 or occurred (err
3a00: 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 no = %lu)", (uns
3a10: 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f igned long) Tcl_
3a20: 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a GetErrno());...*
3a30: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 errorCodePtr = T
3a40: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 cl_GetErrno();..
3a50: 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 .written = -1;..
3a60: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 } else {...d
3a70: 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f printf("I/O erro
3a80: 72 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b r occurred (back
3a90: 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 ingError = %lu)"
3aa0: 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b , backingError);
3ab0: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
3ac0: 20 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b = backingError;
3ad0: 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b ...written = -1;
3ae0: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 65 .. }.. bre
3af0: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
3b00: 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 54 RROR_SSL:.. T
3b10: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
3b20: 72 2c 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 45 52 r, TCLTLS_SSL_ER
3b30: 52 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ROR(statePtr->ss
3b40: 6c 2c 20 77 72 69 74 74 65 6e 29 29 3b 0a 09 20 l, written));..
3b50: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
3b60: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b = ECONNABORTED;
3b70: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 .. written =
3b80: 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a -1;.. break;.
3b90: 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 ..default:..
3ba0: 64 70 72 69 6e 74 66 28 22 20 75 6e 6b 6e 6f 77 dprintf(" unknow
3bb0: 6e 20 65 72 72 3a 20 25 64 22 2c 20 65 72 72 29 n err: %d", err)
3bc0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 ;.. break;.
3bd0: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 2a 65 72 }.. if (*er
3be0: 72 6f 72 43 6f 64 65 50 74 72 20 3c 20 30 29 20 rorCodePtr < 0)
3bf0: 7b 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 {..Tls_Error(sta
3c00: 74 65 50 74 72 2c 20 73 74 72 65 72 72 6f 72 28 tePtr, strerror(
3c10: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b *errorCodePtr));
3c20: 0a 20 20 20 20 7d 0a 20 20 20 20 64 70 72 69 6e . }. dprin
3c30: 74 66 28 22 4f 75 74 70 75 74 28 25 64 29 20 2d tf("Output(%d) -
3c40: 3e 20 25 64 22 2c 20 74 6f 57 72 69 74 65 2c 20 > %d", toWrite,
3c50: 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 72 65 written);. re
3c60: 74 75 72 6e 28 77 72 69 74 74 65 6e 29 3b 0a 7d turn(written);.}
3c70: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
3c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
3cc0: 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f TlsSetOptionPro
3cd0: 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 53 65 c --. *. * Se
3ce0: 74 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c ts an option val
3cf0: 75 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 ue for a SSL soc
3d00: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
3d10: 6c 2c 20 6f 72 20 61 0a 20 2a 20 20 20 20 6c 69 l, or a. * li
3d20: 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e st of all option
3d30: 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 s and their valu
3d40: 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 es.. *. * Result
3d50: 73 3a 0a 20 2a 20 20 20 20 54 43 4c 5f 4f 4b 20 s:. * TCL_OK
3d60: 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 if successful or
3d70: 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 TCL_ERROR if fa
3d80: 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 iled.. *. * Side
3d90: 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 effects:. *
3da0: 55 70 64 61 74 65 73 20 63 68 61 6e 6e 65 6c 20 Updates channel
3db0: 6f 70 74 69 6f 6e 20 74 6f 20 6e 65 77 20 76 61 option to new va
3dc0: 6c 75 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d lue.. *. *------
3dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3e10: 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 /.static int.Tls
3e20: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c SetOptionProc(Cl
3e30: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
3e40: 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 6f 63 eData, /* Soc
3e50: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 ket state. */.
3e60: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
3e70: 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 terp,../* For er
3e80: 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 rors - can be NU
3e90: 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 LL. */. const
3ea0: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d char *optionNam
3eb0: 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 e,./* Name of th
3ec0: 65 20 6f 70 74 69 6f 6e 20 74 6f 20 73 65 74 20 e option to set
3ed0: 74 68 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f the value for, o
3ee0: 72 0a 09 09 09 09 20 2a 20 4e 55 4c 4c 20 74 6f r..... * NULL to
3ef0: 20 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 get all options
3f00: 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 and their value
3f10: 73 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 s. */. const
3f20: 63 68 61 72 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 char *optionValu
3f30: 65 29 09 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 e)./* Value for
3f40: 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 7b 0a 20 20 20 option. */.{.
3f50: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
3f60: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 = (State *) ins
3f70: 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 tanceData;..
3f80: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f 77 6e Tcl_Channel down
3f90: 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 Chan = Tls_GetPa
3fa0: 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 rent(statePtr, T
3fb0: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
3fc0: 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 ;. Tcl_Driver
3fd0: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 73 SetOptionProc *s
3fe0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 etOptionProc;..
3ff0: 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 setOptionProc
4000: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53 65 = Tcl_ChannelSe
4010: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f tOptionProc(Tcl_
4020: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 GetChannelType(d
4030: 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 20 20 20 69 ownChan));. i
4040: 66 20 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 f (setOptionProc
4050: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 != NULL) {..ret
4060: 75 72 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e 50 urn (*setOptionP
4070: 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e roc)(Tcl_GetChan
4080: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
4090: 64 6f 77 6e 43 68 61 6e 29 2c 20 69 6e 74 65 72 downChan), inter
40a0: 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f p, optionName, o
40b0: 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 ptionValue);.
40c0: 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 } else if (opti
40d0: 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a onName == (char*
40e0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 ) NULL) {../*..
40f0: 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 75 65 * Request is que
4100: 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f ry for all optio
4110: 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 0a ns, this is ok..
4120: 09 20 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c . */..return TCL
4130: 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f _OK;. }. /
4140: 2a 0a 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 *. * Request
4150: 20 66 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 for a specific
4160: 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 option has to fa
4170: 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 il, we don't hav
4180: 65 20 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 e any.. */.
4190: 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 return Tcl_Ba
41a0: 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 dChannelOption(i
41b0: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d nterp, optionNam
41c0: 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a e, "");.}../*. *
41d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4210: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 ---. *. * TlsGet
4220: 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a OptionProc --. *
4230: 0a 20 2a 20 20 20 20 47 65 74 73 20 61 6e 20 6f . * Gets an o
4240: 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 6f 72 20 ption value for
4250: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
4260: 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 ed channel, or a
4270: 0a 20 2a 20 20 20 20 6c 69 73 74 20 6f 66 20 61 . * list of a
4280: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 ll options and t
4290: 68 65 69 72 20 76 61 6c 75 65 73 2e 0a 20 2a 0a heir values.. *.
42a0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 * Results:. *
42b0: 20 20 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c A standard Tcl
42c0: 20 72 65 73 75 6c 74 2e 20 54 68 65 20 76 61 6c result. The val
42d0: 75 65 20 6f 66 20 74 68 65 20 73 70 65 63 69 66 ue of the specif
42e0: 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 20 61 0a ied option or a.
42f0: 20 2a 20 20 20 20 6c 69 73 74 20 6f 66 20 61 6c * list of al
4300: 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 l options and th
4310: 65 69 72 20 76 61 6c 75 65 73 20 69 73 20 72 65 eir values is re
4320: 74 75 72 6e 65 64 20 69 6e 20 74 68 65 0a 20 2a turned in the. *
4330: 20 20 20 20 73 75 70 70 6c 69 65 64 20 44 53 74 supplied DSt
4340: 72 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 ring.. *. * Side
4350: 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 effects:. *
4360: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
4370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
43b0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c */.static int.Tl
43c0: 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 sGetOptionProc(C
43d0: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
43e0: 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 6f ceData, /* So
43f0: 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 cket state. */.
4400: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
4410: 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 nterp,../* For e
4420: 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e rrors - can be N
4430: 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 ULL. */. cons
4440: 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 t char *optionNa
4450: 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 me,./* Name of t
4460: 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 72 65 74 he option to ret
4470: 72 69 65 76 65 20 74 68 65 20 76 61 6c 75 65 20 rieve the value
4480: 66 6f 72 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e for, or..... * N
4490: 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f ULL to get all o
44a0: 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 ptions and their
44b0: 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 values. */.
44c0: 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 6f 70 74 Tcl_DString *opt
44d0: 69 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 57 68 65 ionValue)./* Whe
44e0: 72 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 re to store the
44f0: 63 6f 6d 70 75 74 65 64 20 76 61 6c 75 65 20 69 computed value i
4500: 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63 61 nitialized by ca
4510: 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 ller. */.{. S
4520: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
4530: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 (State *) insta
4540: 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 54 63 nceData;.. Tc
4550: 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f 77 6e 43 68 l_Channel downCh
4560: 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 an = Tls_GetPare
4570: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 nt(statePtr, TLS
4580: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a _TCL_FASTPATH);.
4590: 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 47 65 Tcl_DriverGe
45a0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 65 74 tOptionProc *get
45b0: 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 OptionProc;..
45c0: 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d getOptionProc =
45d0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f Tcl_ChannelGetO
45e0: 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 ptionProc(Tcl_Ge
45f0: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 tChannelType(dow
4600: 6e 43 68 61 6e 29 29 3b 0a 20 20 20 20 69 66 20 nChan));. if
4610: 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 (getOptionProc !
4620: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
4630: 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f n (*getOptionPro
4640: 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 c)(Tcl_GetChanne
4650: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f lInstanceData(do
4660: 77 6e 43 68 61 6e 29 2c 20 69 6e 74 65 72 70 2c wnChan), interp,
4670: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 optionName, opt
4680: 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d ionValue);. }
4690: 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e else if (option
46a0: 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 Name == (char*)
46b0: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 NULL) {../*.. *
46c0: 52 65 71 75 65 73 74 20 69 73 20 71 75 65 72 79 Request is query
46d0: 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 for all options
46e0: 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 0a 09 20 , this is ok...
46f0: 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f */..return TCL_O
4700: 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a K;. }. /*.
4710: 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 66 * Request f
4720: 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 or a specific op
4730: 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c tion has to fail
4740: 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 , we don't have
4750: 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 any.. */.
4760: 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 return Tcl_BadC
4770: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
4780: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
4790: 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d "");.}../*. *--
47a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47e0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 68 -. *. * TlsWatch
47f0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 Proc --. *. *
4800: 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 Initialize the
4810: 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 notifier to watc
4820: 68 20 54 63 6c 5f 46 69 6c 65 73 20 66 72 6f 6d h Tcl_Files from
4830: 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 this channel..
4840: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
4850: 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 None.. *. *
4860: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
4870: 20 20 20 20 53 65 74 73 20 75 70 20 74 68 65 20 Sets up the
4880: 6e 6f 74 69 66 69 65 72 20 73 6f 20 74 68 61 74 notifier so that
4890: 20 61 20 66 75 74 75 72 65 20 65 76 65 6e 74 20 a future event
48a0: 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 on the channel.
48b0: 2a 20 20 20 20 77 69 6c 6c 20 62 65 20 73 65 65 * will be see
48c0: 6e 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d n by Tcl.. *. *-
48d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4910: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f --. */.static vo
4920: 69 64 0a 54 6c 73 57 61 74 63 68 50 72 6f 63 28 id.TlsWatchProc(
4930: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
4940: 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 54 nceData, /* T
4950: 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e he socket state.
4960: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b */. int mask
4970: 29 09 09 09 2f 2a 20 45 76 65 6e 74 73 20 6f 66 ).../* Events of
4980: 20 69 6e 74 65 72 65 73 74 3b 20 61 6e 20 4f 52 interest; an OR
4990: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 -ed combination
49a0: 6f 66 0a 09 09 09 09 20 2a 20 54 43 4c 5f 52 45 of..... * TCL_RE
49b0: 41 44 41 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54 ADABLE, TCL_WRIT
49c0: 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 58 43 ABLE and TCL_EXC
49d0: 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 20 EPTION. */.{.
49e0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 20 20 20 Tcl_Channel
49f0: 20 64 6f 77 6e 43 68 61 6e 3b 0a 20 20 20 20 53 downChan;. S
4a00: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
4a10: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 (State *) insta
4a20: 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c nceData;. Tcl
4a30: 5f 44 72 69 76 65 72 57 61 74 63 68 50 72 6f 63 _DriverWatchProc
4a40: 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a 0a 20 20 *watchProc;..
4a50: 20 20 64 70 72 69 6e 74 66 28 22 54 6c 73 57 61 dprintf("TlsWa
4a60: 74 63 68 50 72 6f 63 28 30 78 25 78 29 22 2c 20 tchProc(0x%x)",
4a70: 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 mask);.. /* P
4a80: 72 65 74 65 6e 64 20 74 6f 20 62 65 20 64 65 61 retend to be dea
4a90: 64 20 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 d as long as the
4aa0: 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b verify callback
4ab0: 20 69 73 20 72 75 6e 6e 69 6e 67 2e 0a 20 20 20 is running..
4ac0: 20 20 2a 20 4f 74 68 65 72 77 69 73 65 20 74 68 * Otherwise th
4ad0: 61 74 20 63 61 6c 6c 62 61 63 6b 20 63 6f 75 6c at callback coul
4ae0: 64 20 62 65 20 69 6e 76 6f 6b 65 64 20 72 65 63 d be invoked rec
4af0: 75 72 73 69 76 65 6c 79 2e 20 2a 2f 0a 20 20 20 ursively. */.
4b00: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
4b10: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 lags & TLS_TCL_C
4b20: 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 ALLBACK) {..dpri
4b30: 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 ntf("Callback is
4b40: 20 6f 6e 2d 67 6f 69 6e 67 2c 20 64 6f 69 6e 67 on-going, doing
4b50: 20 6e 6f 74 68 69 6e 67 22 29 3b 0a 09 72 65 74 nothing");..ret
4b60: 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 urn;. }..
4b70: 64 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 dprintFlags(stat
4b80: 65 50 74 72 29 3b 0a 0a 20 20 20 20 64 6f 77 6e ePtr);.. down
4b90: 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 Chan = Tls_GetPa
4ba0: 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 rent(statePtr, T
4bb0: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
4bc0: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 ;.. if (state
4bd0: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
4be0: 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 _TCL_HANDSHAKE_F
4bf0: 41 49 4c 45 44 29 20 7b 0a 09 64 70 72 69 6e 74 AILED) {..dprint
4c00: 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63 f("Asked to watc
4c10: 68 20 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20 h a socket with
4c20: 61 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 a failed handsha
4c30: 6b 65 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 ke -- nothing ca
4c40: 6e 20 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b n happen here");
4c50: 0a 09 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 ..dprintf("Unreg
4c60: 69 73 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 istering interes
4c70: 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 t in the lower c
4c80: 68 61 6e 6e 65 6c 22 29 3b 0a 0a 09 77 61 74 63 hannel");...watc
4c90: 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e hProc = Tcl_Chan
4ca0: 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c nelWatchProc(Tcl
4cb0: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
4cc0: 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 09 77 61 74 downChan));..wat
4cd0: 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 chProc(Tcl_GetCh
4ce0: 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 annelInstanceDat
4cf0: 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 30 29 3b a(downChan), 0);
4d00: 0a 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 ..statePtr->watc
4d10: 68 4d 61 73 6b 20 3d 20 30 3b 0a 09 72 65 74 75 hMask = 0;..retu
4d20: 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 rn;. }.. s
4d30: 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 tatePtr->watchMa
4d40: 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 sk = mask;..
4d50: 2f 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c 20 68 61 /* No channel ha
4d60: 6e 64 6c 65 72 73 20 61 6e 79 20 6d 6f 72 65 2e ndlers any more.
4d70: 20 57 65 20 77 69 6c 6c 20 62 65 20 6e 6f 74 69 We will be noti
4d80: 66 69 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c fied automatical
4d90: 6c 79 0a 20 20 20 20 20 2a 20 61 62 6f 75 74 20 ly. * about
4da0: 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68 events on the ch
4db0: 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 76 69 61 20 annel below via
4dc0: 61 20 63 61 6c 6c 20 74 6f 20 6f 75 72 0a 20 20 a call to our.
4dd0: 20 20 20 2a 20 27 54 72 61 6e 73 66 6f 72 6d 4e * 'TransformN
4de0: 6f 74 69 66 79 50 72 6f 63 27 2e 20 42 75 74 20 otifyProc'. But
4df0: 77 65 20 68 61 76 65 20 74 6f 20 70 61 73 73 20 we have to pass
4e00: 74 68 65 20 69 6e 74 65 72 65 73 74 20 64 6f 77 the interest dow
4e10: 6e 20 6e 6f 77 2e 0a 20 20 20 20 20 2a 20 57 65 n now.. * We
4e20: 20 61 72 65 20 61 6c 6c 6f 77 65 64 20 74 6f 20 are allowed to
4e30: 61 64 64 20 61 64 64 69 74 69 6f 6e 61 6c 20 27 add additional '
4e40: 69 6e 74 65 72 65 73 74 27 20 74 6f 20 74 68 65 interest' to the
4e50: 20 6d 61 73 6b 20 69 66 20 77 65 20 77 61 6e 74 mask if we want
4e60: 0a 20 20 20 20 20 2a 20 74 6f 2e 20 42 75 74 20 . * to. But
4e70: 74 68 69 73 20 74 72 61 6e 73 66 6f 72 6d 61 74 this transformat
4e80: 69 6f 6e 20 68 61 73 20 6e 6f 20 73 75 63 68 20 ion has no such
4e90: 69 6e 74 65 72 65 73 74 2e 20 49 74 20 6a 75 73 interest. It jus
4ea0: 74 20 70 61 73 73 65 73 0a 20 20 20 20 20 2a 20 t passes. *
4eb0: 74 68 65 20 72 65 71 75 65 73 74 20 64 6f 77 6e the request down
4ec0: 2c 20 75 6e 63 68 61 6e 67 65 64 2e 0a 20 20 20 , unchanged..
4ed0: 20 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 */. dprintf
4ee0: 28 22 52 65 67 69 73 74 65 72 69 6e 67 20 6f 75 ("Registering ou
4ef0: 72 20 69 6e 74 65 72 65 73 74 20 69 6e 20 74 68 r interest in th
4f00: 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 20 e lower channel
4f10: 28 63 68 61 6e 3d 25 70 29 22 2c 20 28 76 6f 69 (chan=%p)", (voi
4f20: 64 20 2a 29 20 64 6f 77 6e 43 68 61 6e 29 3b 0a d *) downChan);.
4f30: 20 20 20 20 77 61 74 63 68 50 72 6f 63 20 3d 20 watchProc =
4f40: 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68 Tcl_ChannelWatch
4f50: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
4f60: 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e nelType(downChan
4f70: 29 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f ));. watchPro
4f80: 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c c(Tcl_GetChannel
4f90: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 InstanceData(dow
4fa0: 6e 43 68 61 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a nChan), mask);..
4fb0: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d . /*. * M
4fc0: 61 6e 61 67 65 6d 65 6e 74 20 6f 66 20 74 68 65 anagement of the
4fd0: 20 69 6e 74 65 72 6e 61 6c 20 74 69 6d 65 72 2e internal timer.
4fe0: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 . */. if
4ff0: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
5000: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
5010: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 64 70 ken) NULL) {..dp
5020: 72 69 6e 74 66 28 22 41 20 74 69 6d 65 72 20 77 rintf("A timer w
5030: 61 73 20 66 6f 75 6e 64 2c 20 64 65 6c 65 74 69 as found, deleti
5040: 6e 67 20 69 74 22 29 3b 0a 09 54 63 6c 5f 44 65 ng it");..Tcl_De
5050: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 leteTimerHandler
5060: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
5070: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 );..statePtr->ti
5080: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 mer = (Tcl_Timer
5090: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 Token) NULL;.
50a0: 20 7d 0a 0a 20 20 20 20 69 66 20 28 28 6d 61 73 }.. if ((mas
50b0: 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 k & TCL_READABLE
50c0: 29 20 26 26 0a 09 28 28 54 63 6c 5f 49 6e 70 75 ) &&..((Tcl_Inpu
50d0: 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 tBuffered(stateP
50e0: 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 20 7c tr->self) > 0) |
50f0: 7c 20 28 42 49 4f 5f 63 74 72 6c 5f 70 65 6e 64 | (BIO_ctrl_pend
5100: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ing(statePtr->bi
5110: 6f 29 20 3e 20 30 29 29 29 20 7b 0a 09 2f 2a 0a o) > 0))) {../*.
5120: 09 20 2a 20 54 68 65 72 65 20 69 73 20 69 6e 74 . * There is int
5130: 65 72 65 73 74 20 69 6e 20 72 65 61 64 61 62 6c erest in readabl
5140: 65 20 65 76 65 6e 74 73 20 61 6e 64 20 77 65 20 e events and we
5150: 61 63 74 75 61 6c 6c 79 20 68 61 76 65 0a 09 20 actually have..
5160: 2a 20 64 61 74 61 20 77 61 69 74 69 6e 67 2c 20 * data waiting,
5170: 73 6f 20 67 65 6e 65 72 61 74 65 20 61 20 74 69 so generate a ti
5180: 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 74 68 61 mer to flush tha
5190: 74 2e 0a 09 20 2a 2f 0a 09 64 70 72 69 6e 74 66 t... */..dprintf
51a0: 28 22 43 72 65 61 74 69 6e 67 20 61 20 6e 65 77 ("Creating a new
51b0: 20 74 69 6d 65 72 20 73 69 6e 63 65 20 64 61 74 timer since dat
51c0: 61 20 61 70 70 65 61 72 73 20 74 6f 20 62 65 20 a appears to be
51d0: 77 61 69 74 69 6e 67 22 29 3b 0a 09 73 74 61 74 waiting");..stat
51e0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 ePtr->timer = Tc
51f0: 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e l_CreateTimerHan
5200: 64 6c 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c dler(TLS_TCL_DEL
5210: 41 59 2c 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 AY, TlsChannelHa
5220: 6e 64 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c 69 ndlerTimer, (Cli
5230: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
5240: 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a r);. }.}../*.
5250: 20 2a 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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5290: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 -----. *. * TlsG
52a0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a etHandleProc --.
52b0: 20 2a 0a 20 2a 20 20 20 20 43 61 6c 6c 65 64 20 *. * Called
52c0: 66 72 6f 6d 20 54 63 6c 5f 47 65 74 43 68 61 6e from Tcl_GetChan
52d0: 6e 65 6c 46 69 6c 65 20 74 6f 20 72 65 74 72 69 nelFile to retri
52e0: 65 76 65 20 6f 2f 73 20 66 69 6c 65 20 68 61 6e eve o/s file han
52f0: 64 6c 65 72 0a 20 2a 20 20 20 20 66 72 6f 6d 20 dler. * from
5300: 74 68 65 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 the SSL socket b
5310: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ased channel.. *
5320: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 . * Results:. *
5330: 20 20 20 54 68 65 20 61 70 70 72 6f 70 72 69 61 The appropria
5340: 74 65 20 54 63 6c 5f 46 69 6c 65 20 68 61 6e 64 te Tcl_File hand
5350: 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 66 20 6e 6f le or NULL if no
5360: 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ne.. *. * Side e
5370: 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 4e 6f ffects:. * No
5380: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
5390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
53d0: 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 47 .static int TlsG
53e0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 etHandleProc(Cli
53f0: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
5400: 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 6f 63 6b Data, /* Sock
5410: 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 et state. */.
5420: 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c 09 int direction,.
5430: 09 2f 2a 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 ./* TCL_READABLE
5440: 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 or TCL_WRITABLE
5450: 20 2a 2f 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 */. ClientDa
5460: 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 09 2f ta *handlePtr)./
5470: 2a 20 48 61 6e 64 6c 65 20 61 73 73 6f 63 69 61 * Handle associa
5480: 74 65 64 20 77 69 74 68 20 74 68 65 20 63 68 61 ted with the cha
5490: 6e 6e 65 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 nnel */.{. St
54a0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
54b0: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
54c0: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 72 65 74 ceData;.. ret
54d0: 75 72 6e 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e urn(Tcl_GetChann
54e0: 65 6c 48 61 6e 64 6c 65 28 54 6c 73 5f 47 65 74 elHandle(Tls_Get
54f0: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c Parent(statePtr,
5500: 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 TLS_TCL_FASTPAT
5510: 48 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 68 H), direction, h
5520: 61 6e 64 6c 65 50 74 72 29 29 3b 0a 7d 0a 0a 2f andlePtr));.}../
5530: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5570: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
5580: 73 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 sNotifyProc --.
5590: 2a 0a 20 2a 20 20 20 20 48 61 6e 64 6c 65 72 20 *. * Handler
55a0: 63 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 74 6f called by Tcl to
55b0: 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 inform us of ac
55c0: 74 69 76 69 74 79 0a 20 2a 20 20 20 20 6f 6e 20 tivity. * on
55d0: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 the underlying c
55e0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
55f0: 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 79 70 sults:. * Typ
5600: 65 20 6f 66 20 65 76 65 6e 74 20 6f 72 20 30 20 e of event or 0
5610: 69 66 20 66 61 69 6c 65 64 0a 20 2a 0a 20 2a 20 if failed. *. *
5620: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
5630: 20 20 20 20 4d 61 79 20 70 72 6f 63 65 73 73 20 May process
5640: 74 68 65 20 69 6e 63 6f 6d 69 6e 67 20 65 76 65 the incoming eve
5650: 6e 74 20 62 79 20 69 74 73 65 6c 66 2e 0a 20 2a nt by itself.. *
5660: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56a0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
56b0: 63 20 69 6e 74 20 54 6c 73 4e 6f 74 69 66 79 50 c int TlsNotifyP
56c0: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 roc(ClientData i
56d0: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 nstanceData,
56e0: 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e /* Socket state.
56f0: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b */. int mask
5700: 29 09 09 09 2f 2a 20 74 79 70 65 20 6f 66 20 65 ).../* type of e
5710: 76 65 6e 74 20 74 68 61 74 20 6f 63 63 75 72 72 vent that occurr
5720: 65 64 3a 0a 09 09 09 09 20 2a 20 4f 52 2d 65 64 ed:..... * OR-ed
5730: 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 combination of
5740: 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 TCL_READABLE or
5750: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a TCL_WRITABLE */.
5760: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
5770: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
5780: 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a ) instanceData;.
5790: 20 20 20 20 69 6e 74 20 65 72 72 6f 72 43 6f 64 int errorCod
57a0: 65 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 e;.. /*.
57b0: 2a 20 41 6e 20 65 76 65 6e 74 20 6f 63 63 75 72 * An event occur
57c0: 72 65 64 20 69 6e 20 74 68 65 20 75 6e 64 65 72 red in the under
57d0: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 20 20 lying channel.
57e0: 54 68 69 73 0a 20 20 20 20 20 2a 20 74 72 61 6e This. * tran
57f0: 73 66 6f 72 6d 61 74 69 6f 6e 20 64 6f 65 73 6e sformation doesn
5800: 27 74 20 70 72 6f 63 65 73 73 20 73 75 63 68 20 't process such
5810: 65 76 65 6e 74 73 20 74 68 75 73 20 72 65 74 75 events thus retu
5820: 72 6e 73 20 74 68 65 0a 20 20 20 20 20 2a 20 69 rns the. * i
5830: 6e 63 6f 6d 69 6e 67 20 6d 61 73 6b 20 75 6e 63 ncoming mask unc
5840: 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f 0a hanged.. */.
5850: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
5860: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
5870: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
5880: 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 65 6c 65 ) {../*.. * Dele
5890: 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20 74 te an existing t
58a0: 69 6d 65 72 2e 20 49 74 20 77 61 73 20 6e 6f 74 imer. It was not
58b0: 20 66 69 72 65 64 2c 20 79 65 74 20 77 65 20 61 fired, yet we a
58c0: 72 65 0a 09 20 2a 20 68 65 72 65 2c 20 73 6f 20 re.. * here, so
58d0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f the channel belo
58e0: 77 20 67 65 6e 65 72 61 74 65 64 20 73 75 63 68 w generated such
58f0: 20 61 6e 20 65 76 65 6e 74 20 61 6e 64 20 77 65 an event and we
5900: 0a 09 20 2a 20 64 6f 6e 27 74 20 68 61 76 65 20 .. * don't have
5910: 74 6f 2e 20 54 68 65 20 72 65 6e 65 77 61 6c 20 to. The renewal
5920: 6f 66 20 74 68 65 20 69 6e 74 65 72 65 73 74 20 of the interest
5930: 61 66 74 65 72 20 74 68 65 0a 09 20 2a 20 65 78 after the.. * ex
5940: 65 63 75 74 69 6f 6e 20 6f 66 20 63 68 61 6e 6e ecution of chann
5950: 65 6c 20 68 61 6e 64 6c 65 72 73 20 77 69 6c 6c el handlers will
5960: 20 65 76 65 6e 74 75 61 6c 6c 79 20 63 61 75 73 eventually caus
5970: 65 20 75 73 20 74 6f 0a 09 20 2a 20 72 65 63 72 e us to.. * recr
5980: 65 61 74 65 20 74 68 65 20 74 69 6d 65 72 20 28 eate the timer (
5990: 69 6e 20 57 61 74 63 68 50 72 6f 63 29 2e 0a 09 in WatchProc)...
59a0: 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 */..Tcl_DeleteT
59b0: 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 imerHandler(stat
59c0: 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 ePtr->timer);..s
59d0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
59e0: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
59f0: 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 ) NULL;. }..
5a00: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
5a10: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
5a20: 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 _CALLBACK) {..dp
5a30: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 rintf("Returning
5a40: 20 30 20 64 75 65 20 74 6f 20 63 61 6c 6c 62 61 0 due to callba
5a50: 63 6b 22 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b ck");..return 0;
5a60: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 . }.. dpri
5a70: 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 ntf("Calling Tls
5a80: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 _WaitForConnect"
5a90: 29 3b 0a 20 20 20 20 65 72 72 6f 72 43 6f 64 65 );. errorCode
5aa0: 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 54 6c = 0;. if (Tl
5ab0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
5ac0: 28 73 74 61 74 65 50 74 72 2c 20 26 65 72 72 6f (statePtr, &erro
5ad0: 72 43 6f 64 65 2c 20 31 29 20 3c 20 30 29 20 7b rCode, 1) < 0) {
5ae0: 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
5af0: 65 50 74 72 2c 20 73 74 72 65 72 72 6f 72 28 65 ePtr, strerror(e
5b00: 72 72 6f 72 43 6f 64 65 29 29 3b 0a 09 69 66 20 rrorCode));..if
5b10: 28 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 (errorCode == EA
5b20: 47 41 49 4e 29 20 7b 0a 09 20 20 20 20 64 70 72 GAIN) {.. dpr
5b30: 69 6e 74 66 28 22 41 73 79 6e 63 20 66 6c 61 67 intf("Async flag
5b40: 20 63 6f 75 6c 64 20 62 65 20 73 65 74 20 28 64 could be set (d
5b50: 69 64 6e 27 74 20 63 68 65 63 6b 29 20 61 6e 64 idn't check) and
5b60: 20 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 errorCode == EA
5b70: 47 41 49 4e 3a 20 20 52 65 74 75 72 6e 69 6e 67 GAIN: Returning
5b80: 20 30 22 29 3b 0a 0a 09 20 20 20 20 72 65 74 75 0");... retu
5b90: 72 6e 20 30 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e rn 0;..}...dprin
5ba0: 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 tf("Tls_WaitForC
5bb0: 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 64 20 onnect returned
5bc0: 61 6e 20 65 72 72 6f 72 22 29 3b 0a 20 20 20 20 an error");.
5bd0: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
5be0: 52 65 74 75 72 6e 69 6e 67 20 25 69 22 2c 20 6d Returning %i", m
5bf0: 61 73 6b 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 ask);.. retur
5c00: 6e 28 6d 61 73 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 20 n(mask);.}../*.
5c10: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
5c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c40: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 -------*. *. *
5c50: 20 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 TlsChannelHand
5c60: 6c 65 72 54 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 lerTimer --. *.
5c70: 2a 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d * -----------
5c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ca0: 2d 2d 2d 2d 2d 2a 0a 20 2a 20 20 20 20 43 61 6c -----*. * Cal
5cb0: 6c 65 64 20 62 79 20 74 68 65 20 6e 6f 74 69 66 led by the notif
5cc0: 69 65 72 20 28 2d 3e 20 74 69 6d 65 72 29 20 74 ier (-> timer) t
5cd0: 6f 20 66 6c 75 73 68 20 6f 75 74 0a 20 2a 20 20 o flush out. *
5ce0: 20 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 61 information wa
5cf0: 69 74 69 6e 67 20 69 6e 20 63 68 61 6e 6e 65 6c iting in channel
5d00: 20 62 75 66 66 65 72 73 2e 0a 20 2a 20 20 20 20 buffers.. *
5d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d40: 2a 0a 20 2a 0a 20 2a 20 20 20 20 53 69 64 65 20 *. *. * Side
5d50: 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 20 effects:. *
5d60: 20 20 20 41 73 20 6f 66 20 27 54 6c 73 43 68 61 As of 'TlsCha
5d70: 6e 6e 65 6c 48 61 6e 64 6c 65 72 27 2e 0a 20 2a nnelHandler'.. *
5d80: 0a 20 2a 20 20 20 20 52 65 73 75 6c 74 3a 0a 20 . * Result:.
5d90: 2a 20 20 20 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 * None..
5da0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a ----------*. */.
5de0: 73 74 61 74 69 63 20 76 6f 69 64 20 54 6c 73 43 static void TlsC
5df0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d hannelHandlerTim
5e00: 65 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c er(ClientData cl
5e10: 69 65 6e 74 44 61 74 61 29 20 7b 0a 20 20 20 20 ientData) {.
5e20: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
5e30: 3d 20 28 53 74 61 74 65 20 2a 29 20 63 6c 69 65 = (State *) clie
5e40: 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 ntData;. int
5e50: 6d 61 73 6b 20 3d 20 30 3b 0a 0a 20 20 20 20 64 mask = 0;.. d
5e60: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
5e70: 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
5e80: 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 >timer = (Tcl_Ti
5e90: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a merToken) NULL;.
5ea0: 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 77 70 65 . if (BIO_wpe
5eb0: 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e nding(statePtr->
5ec0: 62 69 6f 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 bio)) {..dprintf
5ed0: 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 49 4f 20 ("[chan=%p] BIO
5ee0: 77 72 69 74 61 62 6c 65 22 2c 20 73 74 61 74 65 writable", state
5ef0: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 6d 61 Ptr->self);...ma
5f00: 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 sk |= TCL_WRITAB
5f10: 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 LE;. }.. i
5f20: 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 73 f (BIO_pending(s
5f30: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b tatePtr->bio)) {
5f40: 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e ..dprintf("[chan
5f50: 3d 25 70 5d 20 42 49 4f 20 72 65 61 64 61 62 6c =%p] BIO readabl
5f60: 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 e", statePtr->se
5f70: 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c 3d 20 54 lf);...mask |= T
5f80: 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 20 20 20 CL_READABLE;.
5f90: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 }.. dprintf(
5fa0: 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 73 65 "Notifying ourse
5fb0: 6c 76 65 73 22 29 3b 0a 20 20 20 20 54 63 6c 5f lves");. Tcl_
5fc0: 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 74 NotifyChannel(st
5fd0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d 61 atePtr->self, ma
5fe0: 73 6b 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 sk);.. dprint
5ff0: 66 28 22 52 65 74 75 72 6e 69 6e 67 22 29 3b 0a f("Returning");.
6000: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a . return;.}..
6010: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 54 6c 73 5f Tcl_Channel Tls_
6020: 47 65 74 50 61 72 65 6e 74 28 53 74 61 74 65 20 GetParent(State
6030: 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 20 6d *statePtr, int m
6040: 61 73 6b 46 6c 61 67 73 29 20 7b 0a 20 20 20 20 askFlags) {.
6050: 64 70 72 69 6e 74 66 28 22 52 65 71 75 65 73 74 dprintf("Request
6060: 65 64 20 74 6f 20 67 65 74 20 70 61 72 65 6e 74 ed to get parent
6070: 20 6f 66 20 63 68 61 6e 6e 65 6c 20 25 70 22 2c of channel %p",
6080: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 statePtr->self)
6090: 3b 0a 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 ;.. if ((stat
60a0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 7e 6d ePtr->flags & ~m
60b0: 61 73 6b 46 6c 61 67 73 29 20 26 20 54 4c 53 5f askFlags) & TLS_
60c0: 54 43 4c 5f 46 41 53 54 50 41 54 48 29 20 7b 0a TCL_FASTPATH) {.
60d0: 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 .dprintf("Asked
60e0: 74 6f 20 67 65 74 20 74 68 65 20 70 61 72 65 6e to get the paren
60f0: 74 20 63 68 61 6e 6e 65 6c 20 77 68 69 6c 65 20 t channel while
6100: 77 65 20 61 72 65 20 75 73 69 6e 67 20 46 61 73 we are using Fas
6110: 74 50 61 74 68 20 2d 2d 20 72 65 74 75 72 6e 69 tPath -- returni
6120: 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 72 65 74 75 ng NULL");..retu
6130: 72 6e 28 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a rn(NULL);. }.
6140: 20 20 20 20 72 65 74 75 72 6e 28 54 63 6c 5f 47 return(Tcl_G
6150: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
6160: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
6170: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
6180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
61c0: 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 6c *. * Tls_Channel
61d0: 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 Type --. *. *
61e0: 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 72 72 Return the corr
61f0: 65 63 74 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 ect TLS channel
6200: 64 72 69 76 65 72 20 69 6e 66 6f 0a 20 2a 0a 20 driver info. *.
6210: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 * Results:. *
6220: 20 54 68 65 20 63 6f 72 72 65 63 74 20 63 68 61 The correct cha
6230: 6e 6e 65 6c 20 64 72 69 76 65 72 20 66 6f 72 20 nnel driver for
6240: 74 68 65 20 63 75 72 72 65 6e 74 20 76 65 72 73 the current vers
6250: 69 6f 6e 20 6f 66 20 54 63 6c 2e 0a 20 2a 0a 20 ion of Tcl.. *.
6260: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
6270: 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 * None.. *.
6280: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62c0: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
62d0: 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 const Tcl_Channe
62e0: 6c 54 79 70 65 20 74 6c 73 43 68 61 6e 6e 65 6c lType tlsChannel
62f0: 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 74 6c Type = {. "tl
6300: 73 22 2c 09 09 09 2f 2a 20 54 79 70 65 20 6e 61 s",.../* Type na
6310: 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c 5f 43 48 me */. TCL_CH
6320: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c ANNEL_VERSION_5,
6330: 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 6c 20 2a ./* v5 channel *
6340: 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 50 72 /. TlsClosePr
6350: 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 oc,../* Close pr
6360: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 49 6e 70 oc */. TlsInp
6370: 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 utProc,../* Inpu
6380: 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c t proc */. Tl
6390: 73 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a sOutputProc,../*
63a0: 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a Output proc */.
63b0: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 NULL,.../* S
63c0: 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 eek proc */.
63d0: 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 TlsSetOptionProc
63e0: 2c 09 09 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e ,../* Set option
63f0: 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 proc */. Tls
6400: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 GetOptionProc,..
6410: 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 /* Get option pr
6420: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74 oc */. TlsWat
6430: 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 chProc,../* Init
6440: 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 20 ialize notifier
6450: 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 48 61 6e */. TlsGetHan
6460: 64 6c 65 50 72 6f 63 2c 09 09 2f 2a 20 47 65 74 dleProc,../* Get
6470: 20 4f 53 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 OS handles out
6480: 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 of channel */.
6490: 20 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 2c TlsClose2Proc,
64a0: 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20 ../* close2proc
64b0: 2a 2f 0a 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d */. TlsBlockM
64c0: 6f 64 65 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 odeProc,../* Set
64d0: 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f blocking/nonblo
64e0: 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 cking mode*/.
64f0: 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 73 NULL,.../* Flus
6500: 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c h proc */. Tl
6510: 73 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a sNotifyProc,../*
6520: 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 Handling of eve
6530: 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 20 nts bubbling up
6540: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f */. NULL,.../
6550: 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f 63 * Wide seek proc
6560: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 */. NULL,...
6570: 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f 6e /* Thread action
6580: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f */. NULL.../
6590: 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b * Truncate */.};
65a0: 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 ..Tcl_ChannelTyp
65b0: 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 e *Tls_ChannelTy
65c0: 70 65 28 76 6f 69 64 29 20 7b 0a 20 20 20 20 72 pe(void) {. r
65d0: 65 74 75 72 6e 20 26 74 6c 73 43 68 61 6e 6e 65 eturn &tlsChanne
65e0: 6c 54 79 70 65 3b 0a 7d 0a lType;.}.