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 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 ;.}..static int
08f0: 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 43 6c TlsClose2Proc(Cl
0900: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
0910: 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 54 68 65 eData, /* The
0920: 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a socket state. *
0930: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
0940: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
0950: 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 r errors - can b
0960: 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 69 e NULL. */. i
0970: 6e 74 20 66 6c 61 67 73 29 09 09 09 2f 2a 20 46 nt flags).../* F
0980: 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65 20 72 65 lags to close re
0990: 61 64 20 61 6e 64 2f 6f 72 20 77 72 69 74 65 20 ad and/or write
09a0: 73 69 64 65 20 6f 66 20 63 68 61 6e 6e 65 6c 20 side of channel
09b0: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a */.{. State *
09c0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
09d0: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
09e0: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
09f0: 22 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 25 "TlsClose2Proc(%
0a00: 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 p)", (void *) st
0a10: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 atePtr);.. if
0a20: 20 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f ((flags & (TCL_
0a30: 43 4c 4f 53 45 5f 52 45 41 44 7c 54 43 4c 5f 43 CLOSE_READ|TCL_C
0a40: 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d 20 LOSE_WRITE)) ==
0a50: 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 6c 73 0) {..return Tls
0a60: 43 6c 6f 73 65 50 72 6f 63 28 69 6e 73 74 61 6e CloseProc(instan
0a70: 63 65 44 61 74 61 2c 20 69 6e 74 65 72 70 29 3b ceData, interp);
0a80: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
0a90: 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a n EINVAL;.}../*.
0aa0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 --------*. *. *
0ae0: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
0af0: 63 74 20 2d 2d 0a 20 2a 0a 20 2a 20 52 65 73 75 ct --. *. * Resu
0b00: 6c 74 3a 0a 20 2a 20 20 20 20 30 20 69 66 20 73 lt:. * 0 if s
0b10: 75 63 63 65 73 73 66 75 6c 2c 20 2d 31 20 69 66 uccessful, -1 if
0b20: 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 failed.. *. * S
0b30: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 ide effects:. *
0b40: 20 20 20 49 73 73 75 65 73 20 53 53 4c 5f 61 63 Issues SSL_ac
0b50: 63 65 70 74 20 6f 72 20 53 53 4c 5f 63 6f 6e 6e cept or SSL_conn
0b60: 65 63 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ect. *. *-------
0b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
0ba0: 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 57 61 69 . */.int Tls_Wai
0bb0: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 53 74 61 74 tForConnect(Stat
0bc0: 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 e *statePtr, int
0bd0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 *errorCodePtr,
0be0: 69 6e 74 20 68 61 6e 64 73 68 61 6b 65 46 61 69 int handshakeFai
0bf0: 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 29 lureIsPermanent)
0c00: 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 {. unsigned
0c10: 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f long backingErro
0c20: 72 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 2c 20 r;. int err,
0c30: 72 63 3b 0a 20 20 20 20 69 6e 74 20 62 69 6f 53 rc;. int bioS
0c40: 68 6f 75 6c 64 52 65 74 72 79 3b 0a 20 20 20 20 houldRetry;.
0c50: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
0c60: 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 0;.. dprintf(
0c70: 22 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 "WaitForConnect(
0c80: 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 %p)", (void *) s
0c90: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 64 70 tatePtr);. dp
0ca0: 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65 50 rintFlags(stateP
0cb0: 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 28 tr);.. if (!(
0cc0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
0cd0: 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 29 & TLS_TCL_INIT))
0ce0: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 54 6c 73 {..dprintf("Tls
0cf0: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 _WaitForConnect
0d00: 63 61 6c 6c 65 64 20 6f 6e 20 61 6c 72 65 61 64 called on alread
0d10: 79 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 63 68 y initialized ch
0d20: 61 6e 6e 65 6c 20 2d 2d 20 72 65 74 75 72 6e 69 annel -- returni
0d30: 6e 67 20 77 69 74 68 20 69 6d 6d 65 64 69 61 74 ng with immediat
0d40: 65 20 73 75 63 63 65 73 73 22 29 3b 0a 09 72 65 e success");..re
0d50: 74 75 72 6e 28 30 29 3b 0a 20 20 20 20 7d 0a 0a turn(0);. }..
0d60: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
0d70: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
0d80: 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c L_HANDSHAKE_FAIL
0d90: 45 44 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 69 ED) {../*.. * Di
0da0: 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f 66 fferent types of
0db0: 20 6f 70 65 72 61 74 69 6f 6e 73 20 68 61 76 65 operations have
0dc0: 20 64 69 66 66 65 72 65 6e 74 20 72 65 71 75 69 different requi
0dd0: 72 65 6d 65 6e 74 73 0a 09 20 2a 20 53 53 4c 20 rements.. * SSL
0de0: 62 65 69 6e 67 20 65 73 74 61 62 6c 69 73 68 65 being establishe
0df0: 64 0a 09 20 2a 2f 0a 09 69 66 20 28 68 61 6e 64 d.. */..if (hand
0e00: 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 shakeFailureIsPe
0e10: 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 20 20 20 20 rmanent) {..
0e20: 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 dprintf("Asked t
0e30: 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 o wait for a TLS
0e40: 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 handshake that
0e50: 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c has already fail
0e60: 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 66 ed. Returning f
0e70: 61 74 61 6c 20 65 72 72 6f 72 22 29 3b 0a 09 20 atal error");..
0e80: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
0e90: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b = ECONNABORTED;
0ea0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
0eb0: 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 dprintf("Asked t
0ec0: 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 o wait for a TLS
0ed0: 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 handshake that
0ee0: 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c has already fail
0ef0: 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 73 ed. Returning s
0f00: 6f 66 74 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 oft error");..
0f10: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
0f20: 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 7d = ECONNRESET;..}
0f30: 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
0f40: 65 50 74 72 2c 20 22 57 61 69 74 20 66 6f 72 20 ePtr, "Wait for
0f50: 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 6b 65 failed handshake
0f60: 22 29 3b 0a 09 72 65 74 75 72 6e 28 2d 31 29 3b ");..return(-1);
0f70: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 20 . }.. for
0f80: 28 3b 3b 29 20 7b 0a 09 45 52 52 5f 63 6c 65 61 (;;) {..ERR_clea
0f90: 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 2f 2a 20 r_error();.../*
0fa0: 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 Not initialized
0fb0: 79 65 74 21 20 41 6c 73 6f 20 63 61 6c 6c 73 20 yet! Also calls
0fc0: 53 53 4c 5f 64 6f 5f 68 61 6e 64 73 68 61 6b 65 SSL_do_handshake
0fd0: 2e 20 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 50 . */..if (stateP
0fe0: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
0ff0: 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a 09 20 TCL_SERVER) {..
1000: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
1010: 69 6e 67 20 53 53 4c 5f 61 63 63 65 70 74 28 29 ing SSL_accept()
1020: 22 29 3b 0a 09 20 20 20 20 65 72 72 20 3d 20 53 ");.. err = S
1030: 53 4c 5f 61 63 63 65 70 74 28 73 74 61 74 65 50 SL_accept(stateP
1040: 74 72 2d 3e 73 73 6c 29 3b 0a 0a 09 7d 20 65 6c tr->ssl);...} el
1050: 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 se {.. dprint
1060: 66 28 22 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 63 f("Calling SSL_c
1070: 6f 6e 6e 65 63 74 28 29 22 29 3b 0a 09 20 20 20 onnect()");..
1080: 20 65 72 72 20 3d 20 53 53 4c 5f 63 6f 6e 6e 65 err = SSL_conne
1090: 63 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ct(statePtr->ssl
10a0: 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 65 72 72 20 );..}...if (err
10b0: 3e 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 69 > 0) {.. dpri
10c0: 6e 74 66 28 22 41 63 63 65 70 74 20 6f 72 20 63 ntf("Accept or c
10d0: 6f 6e 6e 65 63 74 20 77 61 73 20 73 75 63 63 65 onnect was succe
10e0: 73 73 66 75 6c 22 29 3b 0a 0a 09 20 20 20 20 65 ssful");... e
10f0: 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 73 rr = BIO_flush(s
1100: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 tatePtr->bio);..
1110: 20 20 20 20 69 66 20 28 65 72 72 20 3c 3d 20 30 if (err <= 0
1120: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 46 ) {...dprintf("F
1130: 6c 75 73 68 69 6e 67 20 74 68 65 20 6c 6f 77 65 lushing the lowe
1140: 72 20 6c 61 79 65 72 73 20 66 61 69 6c 65 64 2c r layers failed,
1150: 20 74 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 61 this will proba
1160: 62 6c 79 20 74 65 72 6d 69 6e 61 74 65 20 74 68 bly terminate th
1170: 69 73 20 73 65 73 73 69 6f 6e 22 29 3b 0a 09 20 is session");..
1180: 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 }..} else {..
1190: 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 63 63 dprintf("Acc
11a0: 65 70 74 20 6f 72 20 63 6f 6e 6e 65 63 74 20 66 ept or connect f
11b0: 61 69 6c 65 64 22 29 3b 0a 09 7d 0a 0a 09 72 63 ailed");..}...rc
11c0: 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 = SSL_get_error
11d0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
11e0: 65 72 72 29 3b 0a 09 62 61 63 6b 69 6e 67 45 72 err);..backingEr
11f0: 72 6f 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 ror = ERR_get_er
1200: 72 6f 72 28 29 3b 0a 09 69 66 20 28 72 63 20 21 ror();..if (rc !
1210: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 = SSL_ERROR_NONE
1220: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
1230: 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 25 69 20 ("Got error: %i
1240: 28 72 63 20 3d 20 25 69 29 22 2c 20 65 72 72 2c (rc = %i)", err,
1250: 20 72 63 29 3b 0a 09 20 20 20 20 64 70 72 69 6e rc);.. dprin
1260: 74 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 25 tf("Got error: %
1270: 73 22 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 53 s", GET_ERR_REAS
1280: 4f 4e 28 29 29 3b 0a 09 7d 0a 0a 09 62 69 6f 53 ON());..}...bioS
1290: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 30 3b 0a houldRetry = 0;.
12a0: 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 7b .if (err <= 0) {
12b0: 0a 09 20 20 20 20 69 66 20 28 72 63 20 3d 3d 20 .. if (rc ==
12c0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 SSL_ERROR_WANT_C
12d0: 4f 4e 4e 45 43 54 20 7c 7c 20 72 63 20 3d 3d 20 ONNECT || rc ==
12e0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 SSL_ERROR_WANT_A
12f0: 43 43 45 50 54 20 7c 7c 20 72 63 20 3d 3d 20 53 CCEPT || rc == S
1300: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
1310: 41 44 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f AD || rc == SSL_
1320: 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 ERROR_WANT_WRITE
1330: 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 ) {...bioShouldR
1340: 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d etry = 1;.. }
1350: 20 65 6c 73 65 20 69 66 20 28 42 49 4f 5f 73 68 else if (BIO_sh
1360: 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 ould_retry(state
1370: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 62 Ptr->bio)) {...b
1380: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 ioShouldRetry =
1390: 31 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 1;.. } else i
13a0: 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 f (rc == SSL_ERR
13b0: 4f 52 5f 53 59 53 43 41 4c 4c 20 26 26 20 54 63 OR_SYSCALL && Tc
13c0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 20 3d 3d 20 l_GetErrno() ==
13d0: 45 41 47 41 49 4e 29 20 7b 0a 09 09 62 69 6f 53 EAGAIN) {...bioS
13e0: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a houldRetry = 1;.
13f0: 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b . }..} else {
1400: 0a 09 20 20 20 20 69 66 20 28 21 53 53 4c 5f 69 .. if (!SSL_i
1410: 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 s_init_finished(
1420: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 statePtr->ssl))
1430: 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 {...bioShouldRet
1440: 72 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d 0a 09 ry = 1;.. }..
1450: 7d 0a 0a 09 69 66 20 28 62 69 6f 53 68 6f 75 6c }...if (bioShoul
1460: 64 52 65 74 72 79 29 20 7b 0a 09 20 20 20 20 64 dRetry) {.. d
1470: 70 72 69 6e 74 66 28 22 54 68 65 20 49 2f 4f 20 printf("The I/O
1480: 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 did not complete
1490: 20 2d 2d 20 62 75 74 20 77 65 20 73 68 6f 75 6c -- but we shoul
14a0: 64 20 74 72 79 20 69 74 20 61 67 61 69 6e 22 29 d try it again")
14b0: 3b 0a 0a 09 20 20 20 20 69 66 20 28 73 74 61 74 ;... if (stat
14c0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
14d0: 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 S_TCL_ASYNC) {..
14e0: 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e .dprintf("Return
14f0: 69 6e 67 20 45 41 47 41 49 4e 20 73 6f 20 74 68 ing EAGAIN so th
1500: 61 74 20 69 74 20 63 61 6e 20 62 65 20 72 65 74 at it can be ret
1510: 72 69 65 64 20 6c 61 74 65 72 22 29 3b 0a 09 09 ried later");...
1520: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
1530: 45 41 47 41 49 4e 3b 0a 09 09 72 65 74 75 72 6e EAGAIN;...return
1540: 28 2d 31 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 (-1);.. } els
1550: 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 44 e {...dprintf("D
1560: 6f 69 6e 67 20 73 6f 20 6e 6f 77 22 29 3b 0a 09 oing so now");..
1570: 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 20 20 20 20 .continue;..
1580: 7d 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 }..}...dprintf("
1590: 57 65 20 68 61 76 65 20 65 69 74 68 65 72 20 63 We have either c
15a0: 6f 6d 70 6c 65 74 65 6c 79 20 65 73 74 61 62 6c ompletely establ
15b0: 69 73 68 65 64 20 74 68 65 20 73 65 73 73 69 6f ished the sessio
15c0: 6e 20 6f 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 n or completely
15d0: 66 61 69 6c 65 64 20 69 74 20 2d 2d 20 74 68 65 failed it -- the
15e0: 72 65 20 69 73 20 6e 6f 20 6d 6f 72 65 20 6e 65 re is no more ne
15f0: 65 64 20 74 6f 20 65 76 65 72 20 72 65 74 72 79 ed to ever retry
1600: 20 69 74 20 74 68 6f 75 67 68 22 29 3b 0a 09 62 it though");..b
1610: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 reak;. }..
1620: 20 73 77 69 74 63 68 20 28 72 63 29 20 7b 0a 09 switch (rc) {..
1630: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e case SSL_ERROR_N
1640: 4f 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 ONE:.. /* The
1650: 20 54 4c 53 2f 53 53 4c 20 49 2f 4f 20 6f 70 65 TLS/SSL I/O ope
1660: 72 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 ration completed
1670: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
1680: 28 22 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e ("The connection
1690: 20 69 73 20 67 6f 6f 64 22 29 3b 0a 09 20 20 20 is good");..
16a0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
16b0: 20 30 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0;.. break;.
16c0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
16d0: 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 _ZERO_RETURN:..
16e0: 20 20 20 2f 2a 20 54 68 65 20 54 4c 53 2f 53 53 /* The TLS/SS
16f0: 4c 20 70 65 65 72 20 68 61 73 20 63 6c 6f 73 65 L peer has close
1700: 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e d the connection
1710: 20 66 6f 72 20 77 72 69 74 69 6e 67 20 62 79 20 for writing by
1720: 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 sending the clos
1730: 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 20 2a e_notify alert *
1740: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
1750: 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 SSL_ERROR_ZERO_R
1760: 45 54 55 52 4e 3a 20 43 6f 6e 6e 65 63 74 20 72 ETURN: Connect r
1770: 65 74 75 72 6e 65 64 20 61 6e 20 69 6e 76 61 6c eturned an inval
1780: 69 64 20 76 61 6c 75 65 2e 2e 2e 22 29 3b 0a 09 id value...");..
1790: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
17a0: 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 20 20 20 r = EINVAL;..
17b0: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
17c0: 50 74 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 Ptr, "Peer has c
17d0: 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 losed the connec
17e0: 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 tion for writing
17f0: 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 by sending the
1800: 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 close_notify ale
1810: 72 74 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 rt");.. retur
1820: 6e 28 2d 31 29 3b 0a 0a 09 63 61 73 65 20 53 53 n(-1);...case SS
1830: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a L_ERROR_SYSCALL:
1840: 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f .. /* Some no
1850: 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 n-recoverable, f
1860: 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f atal I/O error o
1870: 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 20 20 20 ccurred */..
1880: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
1890: 4f 52 5f 53 59 53 43 41 4c 4c 22 29 3b 0a 0a 09 OR_SYSCALL");...
18a0: 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 if (backingE
18b0: 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 72 rror == 0 && err
18c0: 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e == 0) {...dprin
18d0: 74 66 28 22 45 4f 46 20 72 65 61 63 68 65 64 22 tf("EOF reached"
18e0: 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 )...*errorCodePt
18f0: 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a r = ECONNRESET;.
1900: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
1910: 65 50 74 72 2c 20 22 28 75 6e 65 78 70 65 63 74 ePtr, "(unexpect
1920: 65 64 29 20 45 4f 46 20 72 65 61 63 68 65 64 22 ed) EOF reached"
1930: 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 );... } else
1940: 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 if (backingError
1950: 20 3d 3d 20 30 20 26 26 20 65 72 72 20 3d 3d 20 == 0 && err ==
1960: 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 -1) {...dprintf(
1970: 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 "I/O error occur
1980: 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 red (errno = %lu
1990: 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f )", (unsigned lo
19a0: 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f ng) Tcl_GetErrno
19b0: 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ());...*errorCod
19c0: 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 ePtr = Tcl_GetEr
19d0: 72 6e 6f 28 29 3b 0a 09 09 69 66 20 28 2a 65 72 rno();...if (*er
19e0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 rorCodePtr == EC
19f0: 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 20 20 ONNRESET) {...
1a00: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
1a10: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
1a20: 09 09 7d 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 ..}...Tls_Error(
1a30: 73 74 61 74 65 50 74 72 2c 20 28 63 68 61 72 20 statePtr, (char
1a40: 2a 29 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 *) Tcl_ErrnoMsg(
1a50: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 29 Tcl_GetErrno()))
1a60: 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;... } else {
1a70: 0a 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 ...dprintf("I/O
1a80: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 error occurred (
1a90: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 backingError = %
1aa0: 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 lu)", backingErr
1ab0: 6f 72 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 or);...*errorCod
1ac0: 65 50 74 72 20 3d 20 62 61 63 6b 69 6e 67 45 72 ePtr = backingEr
1ad0: 72 6f 72 3b 0a 09 09 69 66 20 28 2a 65 72 72 6f ror;...if (*erro
1ae0: 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e rCodePtr == ECON
1af0: 4e 52 45 53 45 54 29 20 7b 0a 09 09 20 20 20 20 NRESET) {...
1b00: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
1b10: 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 ECONNABORTED;...
1b20: 7d 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 }...Tls_Error(st
1b30: 61 74 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 atePtr, (char *)
1b40: 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f ERR_reason_erro
1b50: 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 r_string(backing
1b60: 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a Error));.. }.
1b70: 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
1b80: 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c flags |= TLS_TCL
1b90: 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 _HANDSHAKE_FAILE
1ba0: 44 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 28 2d D;.. return(-
1bb0: 31 29 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 1);...case SSL_E
1bc0: 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 2f RROR_SSL:.. /
1bd0: 2a 20 41 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 * A non-recovera
1be0: 62 6c 65 2c 20 66 61 74 61 6c 20 65 72 72 6f 72 ble, fatal error
1bf0: 20 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62 72 in the SSL libr
1c00: 61 72 79 20 6f 63 63 75 72 72 65 64 2c 20 75 73 ary occurred, us
1c10: 75 61 6c 6c 79 20 61 20 70 72 6f 74 6f 63 6f 6c ually a protocol
1c20: 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 64 error */.. d
1c30: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
1c40: 52 5f 53 53 4c 3a 20 47 6f 74 20 70 65 72 6d 61 R_SSL: Got perma
1c50: 6e 65 6e 74 20 66 61 74 61 6c 20 53 53 4c 20 65 nent fatal SSL e
1c60: 72 72 6f 72 2c 20 61 62 6f 72 74 69 6e 67 20 69 rror, aborting i
1c70: 6d 6d 65 64 69 61 74 65 6c 79 22 29 3b 0a 09 20 mmediately");..
1c80: 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 if (backingEr
1c90: 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c ror != 0) {...Tl
1ca0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
1cb0: 2c 20 28 63 68 61 72 20 2a 29 20 45 52 52 5f 72 , (char *) ERR_r
1cc0: 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 eason_error_stri
1cd0: 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 ng(backingError)
1ce0: 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 );.. }.. i
1cf0: 66 20 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 f (SSL_get_verif
1d00: 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 y_result(statePt
1d10: 72 2d 3e 73 73 6c 29 20 21 3d 20 58 35 30 39 5f r->ssl) != X509_
1d20: 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 73 5f 45 72 V_OK) {...Tls_Er
1d30: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 ror(statePtr, (c
1d40: 68 61 72 20 2a 29 20 58 35 30 39 5f 76 65 72 69 har *) X509_veri
1d50: 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 fy_cert_error_st
1d60: 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 ring(SSL_get_ver
1d70: 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 ify_result(state
1d80: 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 Ptr->ssl)));..
1d90: 20 20 7d 0a 09 20 20 20 20 73 74 61 74 65 50 74 }.. statePt
1da0: 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f r->flags |= TLS_
1db0: 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 TCL_HANDSHAKE_FA
1dc0: 49 4c 45 44 3b 0a 09 20 20 20 20 2a 65 72 72 6f ILED;.. *erro
1dd0: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
1de0: 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 72 65 ABORTED;.. re
1df0: 74 75 72 6e 28 2d 31 29 3b 0a 0a 09 63 61 73 65 turn(-1);...case
1e00: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
1e10: 52 45 41 44 3a 0a 09 63 61 73 65 20 53 53 4c 5f READ:..case SSL_
1e20: 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 ERROR_WANT_WRITE
1e30: 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f :..case SSL_ERRO
1e40: 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b R_WANT_X509_LOOK
1e50: 55 50 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 UP:..case SSL_ER
1e60: 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 ROR_WANT_CONNECT
1e70: 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f :..case SSL_ERRO
1e80: 52 5f 57 41 4e 54 5f 41 43 43 45 50 54 3a 0a 09 R_WANT_ACCEPT:..
1e90: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
1ea0: 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 63 61 73 65 ANT_ASYNC:..case
1eb0: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
1ec0: 41 53 59 4e 43 5f 4a 4f 42 3a 0a 09 63 61 73 65 ASYNC_JOB:..case
1ed0: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
1ee0: 43 4c 49 45 4e 54 5f 48 45 4c 4c 4f 5f 43 42 3a CLIENT_HELLO_CB:
1ef0: 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 ..default:..
1f00: 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 6f 6e /* The operation
1f10: 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 did not complet
1f20: 65 20 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 e and should be
1f30: 72 65 74 72 69 65 64 20 6c 61 74 65 72 2e 20 2a retried later. *
1f40: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
1f50: 4f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f Operation did no
1f60: 74 20 63 6f 6d 70 6c 65 74 65 2c 20 63 61 6c 6c t complete, call
1f70: 20 66 75 6e 63 74 69 6f 6e 20 61 67 61 69 6e 20 function again
1f80: 6c 61 74 65 72 3a 20 25 69 22 2c 20 72 63 29 3b later: %i", rc);
1f90: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
1fa0: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 Ptr = EAGAIN;..
1fb0: 20 20 20 64 70 72 69 6e 74 66 28 22 45 52 52 28 dprintf("ERR(
1fc0: 25 64 2c 20 25 64 29 20 22 2c 20 72 63 2c 20 2a %d, %d) ", rc, *
1fd0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 errorCodePtr);..
1fe0: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
1ff0: 61 74 65 50 74 72 2c 20 22 4f 70 65 72 61 74 69 atePtr, "Operati
2000: 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c on did not compl
2010: 65 74 65 2c 20 63 61 6c 6c 20 66 75 6e 63 74 69 ete, call functi
2020: 6f 6e 20 61 67 61 69 6e 20 6c 61 74 65 72 22 29 on again later")
2030: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 28 2d 31 ;.. return(-1
2040: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 );. }.. dp
2050: 72 69 6e 74 66 28 22 52 65 6d 6f 76 69 6e 67 20 rintf("Removing
2060: 74 68 65 20 5c 22 54 4c 53 5f 54 43 4c 5f 49 4e the \"TLS_TCL_IN
2070: 49 54 5c 22 20 66 6c 61 67 20 73 69 6e 63 65 20 IT\" flag since
2080: 77 65 20 68 61 76 65 20 63 6f 6d 70 6c 65 74 65 we have complete
2090: 64 20 74 68 65 20 68 61 6e 64 73 68 61 6b 65 22 d the handshake"
20a0: 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d );. statePtr-
20b0: 3e 66 6c 61 67 73 20 26 3d 20 7e 54 4c 53 5f 54 >flags &= ~TLS_T
20c0: 43 4c 5f 49 4e 49 54 3b 0a 0a 20 20 20 20 64 70 CL_INIT;.. dp
20d0: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 rintf("Returning
20e0: 20 69 6e 20 73 75 63 63 65 73 73 22 29 3b 0a 20 in success");.
20f0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
2100: 20 3d 20 30 3b 0a 20 20 20 20 72 65 74 75 72 6e = 0;. return
2110: 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d (0);.}../*. *---
2120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2160: 0a 20 2a 0a 20 2a 20 54 6c 73 49 6e 70 75 74 50 . *. * TlsInputP
2170: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 roc --. *. *
2180: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 This procedure i
2190: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
21a0: 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 generic IO leve
21b0: 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 72 65 l. * to re
21c0: 61 64 20 69 6e 70 75 74 20 66 72 6f 6d 20 61 20 ad input from a
21d0: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
21e0: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
21f0: 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 52 Results:. * R
2200: 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 eturns the numbe
2210: 72 20 6f 66 20 62 79 74 65 73 20 72 65 61 64 20 r of bytes read
2220: 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e 20 or -1 on error.
2230: 53 65 74 73 20 65 72 72 6f 72 43 6f 64 65 50 74 Sets errorCodePt
2240: 72 0a 20 2a 20 20 20 20 74 6f 20 61 20 50 4f 53 r. * to a POS
2250: 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 IX error code if
2260: 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 72 an error occurr
2270: 65 64 2c 20 6f 72 20 30 20 69 66 20 6e 6f 6e 65 ed, or 0 if none
2280: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
2290: 65 63 74 73 3a 0a 20 2a 20 20 20 20 52 65 61 64 ects:. * Read
22a0: 73 20 69 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 s input from the
22b0: 20 69 6e 70 75 74 20 64 65 76 69 63 65 20 6f 66 input device of
22c0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a the channel.. *
22d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
22e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2310: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
2320: 63 20 69 6e 74 20 54 6c 73 49 6e 70 75 74 50 72 c int TlsInputPr
2330: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
2340: 73 74 61 6e 63 65 44 61 74 61 2c 20 63 68 61 72 stanceData, char
2350: 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 53 69 *buf, int bufSi
2360: 7a 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f ze, int *errorCo
2370: 64 65 50 74 72 29 20 7b 0a 20 20 20 20 75 6e 73 dePtr) {. uns
2380: 69 67 6e 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 igned long backi
2390: 6e 67 45 72 72 6f 72 3b 0a 20 20 20 20 53 74 61 ngError;. Sta
23a0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
23b0: 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 State *) instanc
23c0: 65 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 62 eData;. int b
23d0: 79 74 65 73 52 65 61 64 3b 0a 20 20 20 20 69 6e ytesRead;. in
23e0: 74 20 74 6c 73 43 6f 6e 6e 65 63 74 3b 0a 20 20 t tlsConnect;.
23f0: 20 20 69 6e 74 20 65 72 72 3b 0a 0a 20 20 20 20 int err;..
2400: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2410: 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 0;.. dprintf(
2420: 22 42 49 4f 5f 72 65 61 64 28 25 64 29 22 2c 20 "BIO_read(%d)",
2430: 62 75 66 53 69 7a 65 29 3b 0a 0a 20 20 20 20 69 bufSize);.. i
2440: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
2450: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c gs & TLS_TCL_CAL
2460: 4c 42 41 43 4b 29 20 7b 0a 09 2f 2a 20 64 6f 6e LBACK) {../* don
2470: 27 74 20 70 72 6f 63 65 73 73 20 61 6e 79 20 62 't process any b
2480: 79 74 65 73 20 77 68 69 6c 65 20 76 65 72 69 66 ytes while verif
2490: 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 y callback is ru
24a0: 6e 6e 69 6e 67 20 2a 2f 0a 09 64 70 72 69 6e 74 nning */..dprint
24b0: 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 72 f("Callback is r
24c0: 75 6e 6e 69 6e 67 2c 20 72 65 61 64 69 6e 67 20 unning, reading
24d0: 30 20 62 79 74 65 73 22 29 3b 0a 09 72 65 74 75 0 bytes");..retu
24e0: 72 6e 28 30 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 rn(0);. }..
24f0: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 dprintf("Calli
2500: 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f ng Tls_WaitForCo
2510: 6e 6e 65 63 74 22 29 3b 0a 20 20 20 20 74 6c 73 nnect");. tls
2520: 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 Connect = Tls_Wa
2530: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 itForConnect(sta
2540: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 tePtr, errorCode
2550: 50 74 72 2c 20 30 29 3b 0a 20 20 20 20 69 66 20 Ptr, 0);. if
2560: 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 (tlsConnect < 0)
2570: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 47 6f 74 {..dprintf("Got
2580: 20 61 6e 20 65 72 72 6f 72 20 77 61 69 74 69 6e an error waitin
2590: 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 28 74 6c g to connect (tl
25a0: 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 2c 20 2a sConnect = %i, *
25b0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 25 errorCodePtr = %
25c0: 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 2c i)", tlsConnect,
25d0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b *errorCodePtr);
25e0: 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
25f0: 65 50 74 72 2c 20 73 74 72 65 72 72 6f 72 28 2a ePtr, strerror(*
2600: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a errorCodePtr));.
2610: 0a 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 ..bytesRead = -1
2620: 3b 0a 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 ;..if (*errorCod
2630: 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 ePtr == ECONNRES
2640: 45 54 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e ET) {.. dprin
2650: 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 63 74 69 tf("Got connecti
2660: 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 20 20 20 on reset");..
2670: 20 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f 0a /* Soft EOF */.
2680: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
2690: 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 tr = 0;.. byt
26a0: 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 7d 0a 09 esRead = 0;..}..
26b0: 72 65 74 75 72 6e 28 62 79 74 65 73 52 65 61 64 return(bytesRead
26c0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
26d0: 0a 20 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 . * We need
26e0: 74 6f 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c to clear the SSL
26f0: 20 65 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 error stack now
2700: 20 62 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65 because we some
2710: 74 69 6d 65 73 20 72 65 61 63 68 0a 20 20 20 20 times reach.
2720: 20 2a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e * this function
2730: 20 77 69 74 68 20 6c 65 66 74 6f 76 65 72 20 65 with leftover e
2740: 72 72 6f 72 73 20 69 6e 20 74 68 65 20 73 74 61 rrors in the sta
2750: 63 6b 2e 20 20 49 66 20 42 49 4f 5f 72 65 61 64 ck. If BIO_read
2760: 0a 20 20 20 20 20 2a 20 72 65 74 75 72 6e 73 20 . * returns
2770: 2d 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 -1 and intends E
2780: 41 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 20 AGAIN, there is
2790: 61 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 a leftover error
27a0: 2c 20 69 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 , it will be.
27b0: 20 20 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 * misconstrued
27c0: 20 61 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f as an error, no
27d0: 74 20 45 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a t EAGAIN.. *
27e0: 0a 20 20 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 . * Alternat
27f0: 69 76 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 ively, we may wa
2800: 6e 74 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 nt to handle the
2810: 20 3c 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 <0 return codes
2820: 20 66 72 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f from. * BIO
2830: 5f 72 65 61 64 20 73 70 65 63 69 61 6c 6c 79 20 _read specially
2840: 28 61 73 20 61 64 76 69 73 65 64 20 69 6e 20 74 (as advised in t
2850: 68 65 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54 he RSA docs). T
2860: 4c 53 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c LS's lower level
2870: 20 42 49 4f 0a 20 20 20 20 20 2a 20 66 75 6e 63 BIO. * func
2880: 74 69 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 20 tions play with
2890: 74 68 65 20 72 65 74 72 79 20 66 6c 61 67 73 20 the retry flags
28a0: 74 68 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 73 though, and this
28b0: 20 73 65 65 6d 73 20 74 6f 20 77 6f 72 6b 0a 20 seems to work.
28c0: 20 20 20 20 2a 20 63 6f 72 72 65 63 74 6c 79 2e * correctly.
28d0: 20 20 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e Similar fix in
28e0: 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 2e 20 TlsOutputProc.
28f0: 2d 20 68 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a - hobbs. */.
2900: 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 ERR_clear_er
2910: 72 6f 72 28 29 3b 0a 20 20 20 20 62 79 74 65 73 ror();. bytes
2920: 52 65 61 64 20 3d 20 42 49 4f 5f 72 65 61 64 28 Read = BIO_read(
2930: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 statePtr->bio, b
2940: 75 66 2c 20 62 75 66 53 69 7a 65 29 3b 0a 20 20 uf, bufSize);.
2950: 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 dprintf("BIO_r
2960: 65 61 64 20 2d 3e 20 25 64 22 2c 20 62 79 74 65 ead -> %d", byte
2970: 73 52 65 61 64 29 3b 0a 0a 20 20 20 20 65 72 72 sRead);.. err
2980: 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 = SSL_get_error
2990: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
29a0: 62 79 74 65 73 52 65 61 64 29 3b 0a 20 20 20 20 bytesRead);.
29b0: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 45 backingError = E
29c0: 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a RR_get_error();.
29d0: 0a 23 69 66 20 30 0a 20 20 20 20 69 66 20 28 62 .#if 0. if (b
29e0: 79 74 65 73 52 65 61 64 20 3c 3d 20 30 29 20 7b ytesRead <= 0) {
29f0: 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 ..if (BIO_should
2a00: 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 2d _retry(statePtr-
2a10: 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 >bio)) {.. dp
2a20: 72 69 6e 74 66 28 22 49 2f 4f 20 66 61 69 6c 65 rintf("I/O faile
2a30: 64 2c 20 77 69 6c 6c 20 72 65 74 72 79 20 62 61 d, will retry ba
2a40: 73 65 64 20 6f 6e 20 45 41 47 41 49 4e 22 29 3b sed on EAGAIN");
2a50: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
2a60: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 7d Ptr = EAGAIN;..}
2a70: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 . }.#endif..
2a80: 20 20 20 73 77 69 74 63 68 20 28 65 72 72 29 20 switch (err)
2a90: 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f {..case SSL_ERRO
2aa0: 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 64 70 72 R_NONE:.. dpr
2ab0: 69 6e 74 42 75 66 66 65 72 28 62 75 66 2c 20 62 intBuffer(buf, b
2ac0: 79 74 65 73 52 65 61 64 29 3b 0a 09 20 20 20 20 ytesRead);..
2ad0: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
2ae0: 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 L_ERROR_SSL:..
2af0: 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 6f 76 /* A non-recov
2b00: 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 65 72 erable, fatal er
2b10: 72 6f 72 20 69 6e 20 74 68 65 20 53 53 4c 20 6c ror in the SSL l
2b20: 69 62 72 61 72 79 20 6f 63 63 75 72 72 65 64 2c ibrary occurred,
2b30: 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 6f usually a proto
2b40: 63 6f 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 col error */..
2b50: 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 20 65 dprintf("SSL e
2b60: 72 72 6f 72 2c 20 69 6e 64 69 63 61 74 69 6e 67 rror, indicating
2b70: 20 74 68 61 74 20 74 68 65 20 63 6f 6e 6e 65 63 that the connec
2b80: 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 61 62 tion has been ab
2b90: 6f 72 74 65 64 22 29 3b 0a 09 20 20 20 20 69 66 orted");.. if
2ba0: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 21 (backingError !
2bb0: 3d 20 30 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 = 0) {...Tls_Err
2bc0: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 68 or(statePtr, (ch
2bd0: 61 72 20 2a 29 20 45 52 52 5f 72 65 61 73 6f 6e ar *) ERR_reason
2be0: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 _error_string(ba
2bf0: 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 ckingError));..
2c00: 20 20 20 7d 0a 09 20 20 20 20 2a 65 72 72 6f 72 }.. *error
2c10: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 CodePtr = ECONNA
2c20: 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 62 79 74 BORTED;.. byt
2c30: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 0a 23 69 esRead = -1;..#i
2c40: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
2c50: 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 N_NUMBER >= 0x30
2c60: 30 30 30 30 30 30 4c 0a 09 20 20 20 20 2f 2a 20 000000L.. /*
2c70: 55 6e 65 78 70 65 63 74 65 64 20 45 4f 46 20 66 Unexpected EOF f
2c80: 72 6f 6d 20 74 68 65 20 70 65 65 72 20 66 6f 72 rom the peer for
2c90: 20 4f 70 65 6e 53 53 4c 20 33 2e 30 2b 20 2a 2f OpenSSL 3.0+ */
2ca0: 0a 09 20 20 20 20 69 66 20 28 45 52 52 5f 47 45 .. if (ERR_GE
2cb0: 54 5f 52 45 41 53 4f 4e 28 62 61 63 6b 69 6e 67 T_REASON(backing
2cc0: 45 72 72 6f 72 29 20 3d 3d 20 53 53 4c 5f 52 5f Error) == SSL_R_
2cd0: 55 4e 45 58 50 45 43 54 45 44 5f 45 4f 46 5f 57 UNEXPECTED_EOF_W
2ce0: 48 49 4c 45 5f 52 45 41 44 49 4e 47 29 20 7b 0a HILE_READING) {.
2cf0: 09 09 64 70 72 69 6e 74 66 28 22 28 55 6e 65 78 ..dprintf("(Unex
2d00: 70 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 pected) EOF reac
2d10: 68 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f hed")...*errorCo
2d20: 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 dePtr = 0;...byt
2d30: 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 54 6c esRead = 0;...Tl
2d40: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
2d50: 2c 20 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 , "EOF reached")
2d60: 3b 0a 09 20 20 20 20 7d 20 20 20 20 0a 23 65 6e ;.. } .#en
2d70: 64 69 66 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a dif.. break;.
2d80: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
2d90: 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 20 20 20 2f _SYSCALL:.. /
2da0: 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 * Some non-recov
2db0: 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 49 2f erable, fatal I/
2dc0: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 O error occurred
2dd0: 20 2a 2f 0a 0a 09 20 20 20 20 69 66 20 28 62 61 */... if (ba
2de0: 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 ckingError == 0
2df0: 26 26 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 && bytesRead ==
2e00: 30 29 20 7b 0a 09 09 2f 2a 20 55 6e 65 78 70 65 0) {.../* Unexpe
2e10: 63 74 65 64 20 45 4f 46 20 66 72 6f 6d 20 74 68 cted EOF from th
2e20: 65 20 70 65 65 72 20 66 6f 72 20 4f 70 65 6e 53 e peer for OpenS
2e30: 53 4c 20 31 2e 31 20 2a 2f 0a 09 09 64 70 72 69 SL 1.1 */...dpri
2e40: 6e 74 66 28 22 28 55 6e 65 78 70 65 63 74 65 64 ntf("(Unexpected
2e50: 29 20 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a ) EOF reached").
2e60: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2e70: 3d 20 30 3b 0a 09 09 62 79 74 65 73 52 65 61 64 = 0;...bytesRead
2e80: 20 3d 20 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f = 0;...Tls_Erro
2e90: 72 28 73 74 61 74 65 50 74 72 2c 20 22 45 4f 46 r(statePtr, "EOF
2ea0: 20 72 65 61 63 68 65 64 22 29 3b 0a 0a 09 20 20 reached");...
2eb0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 62 61 63 } else if (bac
2ec0: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
2ed0: 26 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 2d & bytesRead == -
2ee0: 31 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 1) {...dprintf("
2ef0: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
2f00: 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 ed (errno = %lu)
2f10: 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
2f20: 67 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 g) Tcl_GetErrno(
2f30: 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 ));...*errorCode
2f40: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 Ptr = Tcl_GetErr
2f50: 6e 6f 28 29 3b 0a 09 09 62 79 74 65 73 52 65 61 no();...bytesRea
2f60: 64 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 d = -1;...Tls_Er
2f70: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 ror(statePtr, (c
2f80: 68 61 72 20 2a 29 20 54 63 6c 5f 45 72 72 6e 6f har *) Tcl_Errno
2f90: 4d 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f Msg(Tcl_GetErrno
2fa0: 28 29 29 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c ()));... } el
2fb0: 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 se {...dprintf("
2fc0: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
2fd0: 65 64 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 ed (backingError
2fe0: 20 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e = %lu)", backin
2ff0: 67 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 72 6f gError);...*erro
3000: 72 43 6f 64 65 50 74 72 20 3d 20 62 61 63 6b 69 rCodePtr = backi
3010: 6e 67 45 72 72 6f 72 3b 0a 09 09 62 79 74 65 73 ngError;...bytes
3020: 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 Read = -1;...Tls
3030: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
3040: 20 28 63 68 61 72 20 2a 29 20 45 52 52 5f 72 65 (char *) ERR_re
3050: 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e ason_error_strin
3060: 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 g(backingError))
3070: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 ;.. }.. br
3080: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
3090: 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 ERROR_ZERO_RETUR
30a0: 4e 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 N:.. dprintf(
30b0: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 5a "Got SSL_ERROR_Z
30c0: 45 52 4f 5f 52 45 54 55 52 4e 2c 20 74 68 69 73 ERO_RETURN, this
30d0: 20 6d 65 61 6e 73 20 61 6e 20 45 4f 46 20 68 61 means an EOF ha
30e0: 73 20 62 65 65 6e 20 72 65 61 63 68 65 64 22 29 s been reached")
30f0: 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 ;.. bytesRead
3100: 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65 72 72 6f = 0;.. *erro
3110: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 rCodePtr = 0;..
3120: 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 Tls_Error(sta
3130: 74 65 50 74 72 2c 20 22 50 65 65 72 20 68 61 73 tePtr, "Peer has
3140: 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e closed the conn
3150: 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 ection for writi
3160: 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 ng by sending th
3170: 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 e close_notify a
3180: 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 62 72 65 lert");.. bre
3190: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
31a0: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a RROR_WANT_READ:.
31b0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
31c0: 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 t SSL_ERROR_WANT
31d0: 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e 67 20 74 _READ, mapping t
31e0: 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 3b his to EAGAIN");
31f0: 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 .. bytesRead
3200: 3d 20 2d 31 3b 0a 09 20 20 20 20 2a 65 72 72 6f = -1;.. *erro
3210: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
3220: 4e 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f N;.. Tls_Erro
3230: 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 4c r(statePtr, "SSL
3240: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 _ERROR_WANT_READ
3250: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ");.. break;.
3260: 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 ..default:..
3270: 64 70 72 69 6e 74 66 28 22 55 6e 6b 6e 6f 77 6e dprintf("Unknown
3280: 20 65 72 72 6f 72 20 28 65 72 72 20 3d 20 25 69 error (err = %i
3290: 29 2c 20 6d 61 70 70 69 6e 67 20 74 6f 20 45 4f ), mapping to EO
32a0: 46 22 2c 20 65 72 72 29 3b 0a 09 20 20 20 20 2a F", err);.. *
32b0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
32c0: 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 ;.. bytesRead
32d0: 20 3d 20 30 3b 0a 09 20 20 20 20 62 72 65 61 6b = 0;.. break
32e0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
32f0: 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3c (*errorCodePtr <
3300: 20 30 29 20 7b 0a 09 54 6c 73 5f 45 72 72 6f 72 0) {..Tls_Error
3310: 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 65 72 (statePtr, strer
3320: 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 ror(*errorCodePt
3330: 72 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 r));. }. d
3340: 70 72 69 6e 74 66 28 22 49 6e 70 75 74 28 25 64 printf("Input(%d
3350: 29 20 2d 3e 20 25 64 20 5b 25 64 5d 22 2c 20 62 ) -> %d [%d]", b
3360: 75 66 53 69 7a 65 2c 20 62 79 74 65 73 52 65 61 ufSize, bytesRea
3370: 64 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 d, *errorCodePtr
3380: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 28 62 79 );. return(by
3390: 74 65 73 52 65 61 64 29 3b 0a 7d 0a 0a 2f 2a 0a tesRead);.}../*.
33a0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
33b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33e0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f -----. *. * TlsO
33f0: 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a utputProc --. *.
3400: 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 * This proce
3410: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
3420: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
3430: 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 O level. *
3440: 20 74 6f 20 77 72 69 74 65 20 6f 75 74 70 75 74 to write output
3450: 20 74 6f 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 to a SSL socket
3460: 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a based channel..
3470: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
3480: 2a 20 20 20 20 52 65 74 75 72 6e 73 20 74 68 65 * Returns the
3490: 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 number of bytes
34a0: 20 77 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 6f written or -1 o
34b0: 6e 20 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 n error. Sets er
34c0: 72 6f 72 43 6f 64 65 50 74 72 0a 20 2a 20 20 20 rorCodePtr. *
34d0: 20 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f to a POSIX erro
34e0: 72 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 r code if an err
34f0: 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 or occurred, or
3500: 30 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 0 if none.. *. *
3510: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3520: 2a 20 20 20 20 57 72 69 74 65 73 20 6f 75 74 70 * Writes outp
3530: 75 74 20 6f 6e 20 74 68 65 20 6f 75 74 70 75 74 ut on the output
3540: 20 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 device of the c
3550: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d hannel.. *. *---
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35a0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
35b0: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 28 43 6c TlsOutputProc(Cl
35c0: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
35d0: 65 44 61 74 61 2c 20 63 6f 6e 73 74 20 63 68 61 eData, const cha
35e0: 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 57 72 r *buf, int toWr
35f0: 69 74 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 ite, int *errorC
3600: 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 20 75 6e odePtr) {. un
3610: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 62 61 63 6b signed long back
3620: 69 6e 67 45 72 72 6f 72 3b 0a 20 20 20 20 53 74 ingError;. St
3630: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
3640: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
3650: 63 65 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 ceData;. int
3660: 77 72 69 74 74 65 6e 2c 20 65 72 72 3b 0a 20 20 written, err;.
3670: 20 20 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 74 int tlsConnect
3680: 3b 0a 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
3690: 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 ePtr = 0;.. d
36a0: 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 69 74 printf("BIO_writ
36b0: 65 28 25 70 2c 20 25 64 29 22 2c 20 28 76 6f 69 e(%p, %d)", (voi
36c0: 64 20 2a 29 20 73 74 61 74 65 50 74 72 2c 20 74 d *) statePtr, t
36d0: 6f 57 72 69 74 65 29 3b 0a 20 20 20 20 64 70 72 oWrite);. dpr
36e0: 69 6e 74 42 75 66 66 65 72 28 62 75 66 2c 20 74 intBuffer(buf, t
36f0: 6f 57 72 69 74 65 29 3b 0a 0a 20 20 20 20 69 66 oWrite);.. if
3700: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
3710: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c s & TLS_TCL_CALL
3720: 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 BACK) {..dprintf
3730: 28 22 44 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 ("Don't process
3740: 6f 75 74 70 75 74 20 77 68 69 6c 65 20 63 61 6c output while cal
3750: 6c 62 61 63 6b 73 20 61 72 65 20 72 75 6e 6e 69 lbacks are runni
3760: 6e 67 22 29 3b 0a 09 77 72 69 74 74 65 6e 20 3d ng");..written =
3770: 20 2d 31 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 65 -1;..*errorCode
3780: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 72 Ptr = EAGAIN;..r
3790: 65 74 75 72 6e 28 2d 31 29 3b 0a 20 20 20 20 7d eturn(-1);. }
37a0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
37b0: 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 alling Tls_WaitF
37c0: 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 20 20 20 orConnect");.
37d0: 20 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c tlsConnect = Tl
37e0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
37f0: 28 73 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 (statePtr, error
3800: 43 6f 64 65 50 74 72 2c 20 31 29 3b 0a 20 20 20 CodePtr, 1);.
3810: 20 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 if (tlsConnect
3820: 3c 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 < 0) {..dprintf(
3830: 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 61 "Got an error wa
3840: 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 iting to connect
3850: 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 (tlsConnect = %
3860: 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 i, *errorCodePtr
3870: 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e = %i)", tlsConn
3880: 65 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 ect, *errorCodeP
3890: 74 72 29 3b 0a 09 54 6c 73 5f 45 72 72 6f 72 28 tr);..Tls_Error(
38a0: 73 74 61 74 65 50 74 72 2c 20 73 74 72 65 72 72 statePtr, strerr
38b0: 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 or(*errorCodePtr
38c0: 29 29 3b 0a 0a 09 77 72 69 74 74 65 6e 20 3d 20 ));...written =
38d0: 2d 31 3b 0a 09 69 66 20 28 2a 65 72 72 6f 72 43 -1;..if (*errorC
38e0: 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 odePtr == ECONNR
38f0: 45 53 45 54 29 20 7b 0a 09 20 20 20 20 64 70 72 ESET) {.. dpr
3900: 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 63 intf("Got connec
3910: 74 69 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 20 tion reset");..
3920: 20 20 20 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a /* Soft EOF *
3930: 2f 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 /.. *errorCod
3940: 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 77 ePtr = 0;.. w
3950: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 7d 0a 09 ritten = 0;..}..
3960: 72 65 74 75 72 6e 28 77 72 69 74 74 65 6e 29 3b return(written);
3970: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 . }.. if (
3980: 74 6f 57 72 69 74 65 20 3d 3d 20 30 29 20 7b 0a toWrite == 0) {.
3990: 09 64 70 72 69 6e 74 66 28 22 7a 65 72 6f 2d 77 .dprintf("zero-w
39a0: 72 69 74 65 22 29 3b 0a 09 65 72 72 20 3d 20 42 rite");..err = B
39b0: 49 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 IO_flush(statePt
39c0: 72 2d 3e 62 69 6f 29 3b 0a 0a 09 69 66 20 28 65 r->bio);...if (e
39d0: 72 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 rr <= 0) {..
39e0: 64 70 72 69 6e 74 66 28 22 46 6c 75 73 68 69 6e dprintf("Flushin
39f0: 67 20 66 61 69 6c 65 64 22 29 3b 0a 0a 09 20 20 g failed");...
3a00: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
3a10: 3d 20 45 49 4f 3b 0a 09 20 20 20 20 77 72 69 74 = EIO;.. writ
3a20: 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 72 65 ten = 0;.. re
3a30: 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 77 turn(-1);..}...w
3a40: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 2a 65 72 ritten = 0;..*er
3a50: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
3a60: 09 72 65 74 75 72 6e 28 30 29 3b 0a 20 20 20 20 .return(0);.
3a70: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a }.. /*. *
3a80: 20 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 We need to clea
3a90: 72 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 r the SSL error
3aa0: 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 stack now becaus
3ab0: 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 e we sometimes r
3ac0: 65 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 each. * this
3ad0: 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c function with l
3ae0: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 eftover errors i
3af0: 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 n the stack. If
3b00: 20 42 49 4f 5f 77 72 69 74 65 0a 20 20 20 20 20 BIO_write.
3b10: 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 * returns -1 and
3b20: 20 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c intends EAGAIN,
3b30: 20 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 there is a left
3b40: 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 over error, it w
3b50: 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 ill be. * mi
3b60: 73 63 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e sconstrued as an
3b70: 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 error, not EAGA
3b80: 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 IN.. *.
3b90: 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c * Alternatively,
3ba0: 20 77 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 we may want to
3bb0: 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 handle the <0 re
3bc0: 74 75 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a turn codes from.
3bd0: 20 20 20 20 20 2a 20 42 49 4f 5f 77 72 69 74 65 * BIO_write
3be0: 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 61 specially (as a
3bf0: 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 53 dvised in the RS
3c00: 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 A docs). TLS's
3c10: 6c 6f 77 65 72 20 6c 65 76 65 6c 0a 20 20 20 20 lower level.
3c20: 20 2a 20 42 49 4f 20 66 75 6e 63 74 69 6f 6e 73 * BIO functions
3c30: 20 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 play with the r
3c40: 65 74 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 etry flags thoug
3c50: 68 2c 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d h, and this seem
3c60: 73 20 74 6f 0a 20 20 20 20 20 2a 20 77 6f 72 6b s to. * work
3c70: 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 6d correctly. Sim
3c80: 69 6c 61 72 20 66 69 78 20 69 6e 20 54 6c 73 49 ilar fix in TlsI
3c90: 6e 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 nputProc. - hobb
3ca0: 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 52 s. */. ER
3cb0: 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b R_clear_error();
3cc0: 0a 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 42 . written = B
3cd0: 49 4f 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 IO_write(statePt
3ce0: 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 74 6f 57 r->bio, buf, toW
3cf0: 72 69 74 65 29 3b 0a 20 20 20 20 64 70 72 69 6e rite);. dprin
3d00: 74 66 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 tf("BIO_write(%p
3d10: 2c 20 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 20 , %d) -> [%d]",
3d20: 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 (void *) statePt
3d30: 72 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 r, toWrite, writ
3d40: 74 65 6e 29 3b 0a 0a 20 20 20 20 65 72 72 20 3d ten);.. err =
3d50: 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 SSL_get_error(s
3d60: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 tatePtr->ssl, wr
3d70: 69 74 74 65 6e 29 3b 0a 20 20 20 20 62 61 63 6b itten);. back
3d80: 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 ingError = ERR_g
3d90: 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 et_error();..
3da0: 20 73 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a switch (err) {.
3db0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
3dc0: 4e 4f 4e 45 3a 0a 09 20 20 20 20 69 66 20 28 77 NONE:.. if (w
3dd0: 72 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09 ritten < 0) {...
3de0: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 written = 0;..
3df0: 20 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a }.. break;.
3e00: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
3e10: 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 _WANT_WRITE:..
3e20: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
3e30: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
3e40: 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 ITE, mapping it
3e50: 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 to EAGAIN");..
3e60: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
3e70: 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 = EAGAIN;.. w
3e80: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 ritten = -1;..
3e90: 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 Tls_Error(stat
3ea0: 65 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 4f 52 ePtr, "SSL_ERROR
3eb0: 5f 57 41 4e 54 5f 57 52 49 54 45 22 29 3b 0a 09 _WANT_WRITE");..
3ec0: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
3ed0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 e SSL_ERROR_WANT
3ee0: 5f 52 45 41 44 3a 0a 09 20 20 20 20 64 70 72 69 _READ:.. dpri
3ef0: 6e 74 66 28 22 20 77 72 69 74 65 20 52 20 42 4c ntf(" write R BL
3f00: 4f 43 4b 22 29 3b 0a 09 20 20 20 20 54 6c 73 5f OCK");.. Tls_
3f10: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
3f20: 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f "SSL_ERROR_WANT_
3f30: 52 45 41 44 22 29 3b 0a 09 20 20 20 20 62 72 65 READ");.. bre
3f40: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
3f50: 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c RROR_WANT_X509_L
3f60: 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 64 70 72 69 OOKUP:.. dpri
3f70: 6e 74 66 28 22 20 77 72 69 74 65 20 58 20 42 4c ntf(" write X BL
3f80: 4f 43 4b 22 29 3b 0a 09 20 20 20 20 54 6c 73 5f OCK");.. Tls_
3f90: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
3fa0: 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f "SSL_ERROR_WANT_
3fb0: 58 35 30 39 5f 4c 4f 4f 4b 55 50 22 29 3b 0a 09 X509_LOOKUP");..
3fc0: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
3fd0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f e SSL_ERROR_ZERO
3fe0: 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 64 70 _RETURN:.. dp
3ff0: 72 69 6e 74 66 28 22 20 63 6c 6f 73 65 64 22 29 rintf(" closed")
4000: 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d ;.. written =
4010: 20 30 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 0;.. *errorC
4020: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 odePtr = 0;..
4030: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
4040: 50 74 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 Ptr, "Peer has c
4050: 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 losed the connec
4060: 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 tion for writing
4070: 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 by sending the
4080: 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 close_notify ale
4090: 72 74 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b rt");.. break
40a0: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
40b0: 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 20 20 OR_SYSCALL:..
40c0: 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 /* Some non-rec
40d0: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
40e0: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
40f0: 65 64 20 2a 2f 0a 0a 09 20 20 20 20 69 66 20 28 ed */... if (
4100: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 backingError ==
4110: 30 20 26 26 20 77 72 69 74 74 65 6e 20 3d 3d 20 0 && written ==
4120: 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 0) {...dprintf("
4130: 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 EOF reached")...
4140: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
4150: 30 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 0;...written = 0
4160: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
4170: 61 74 65 50 74 72 2c 20 22 45 4f 46 20 72 65 61 atePtr, "EOF rea
4180: 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 ched");... }
4190: 65 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 else if (backing
41a0: 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 Error == 0 && wr
41b0: 69 74 74 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 itten == -1) {..
41c0: 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 .dprintf("I/O er
41d0: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 ror occurred (er
41e0: 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e rno = %lu)", (un
41f0: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c signed long) Tcl
4200: 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 _GetErrno());...
4210: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
4220: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a Tcl_GetErrno();.
4230: 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a ..written = -1;.
4240: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
4250: 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 20 54 ePtr, (char *) T
4260: 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 63 6c 5f cl_ErrnoMsg(Tcl_
4270: 47 65 74 45 72 72 6e 6f 28 29 29 29 3b 0a 0a 09 GetErrno()));...
4280: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 } else {...d
4290: 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f printf("I/O erro
42a0: 72 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b r occurred (back
42b0: 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 ingError = %lu)"
42c0: 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b , backingError);
42d0: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
42e0: 20 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b = backingError;
42f0: 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b ...written = -1;
4300: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
4310: 74 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 20 tePtr, (char *)
4320: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
4330: 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 _string(backingE
4340: 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 rror));.. }..
4350: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
4360: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a e SSL_ERROR_SSL:
4370: 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 .. /* A non-r
4380: 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 ecoverable, fata
4390: 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 53 l error in the S
43a0: 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 75 72 SL library occur
43b0: 72 65 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 70 red, usually a p
43c0: 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a 2f rotocol error */
43d0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
43e0: 53 4c 20 65 72 72 6f 72 2c 20 69 6e 64 69 63 61 SL error, indica
43f0: 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 63 6f ting that the co
4400: 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 65 65 nnection has bee
4410: 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 09 20 20 n aborted");..
4420: 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 if (backingErr
4430: 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c 73 or != 0) {...Tls
4440: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
4450: 20 28 63 68 61 72 20 2a 29 20 45 52 52 5f 72 65 (char *) ERR_re
4460: 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e ason_error_strin
4470: 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 g(backingError))
4480: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 2a 65 ;.. }.. *e
4490: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 rrorCodePtr = EC
44a0: 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 ONNABORTED;..
44b0: 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 written = -1;..
44c0: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 64 65 66 break;...def
44d0: 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 69 6e ault:.. dprin
44e0: 74 66 28 22 75 6e 6b 6e 6f 77 6e 20 65 72 72 6f tf("unknown erro
44f0: 72 3a 20 25 64 22 2c 20 65 72 72 29 3b 0a 09 20 r: %d", err);..
4500: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
4510: 0a 20 20 20 20 69 66 20 28 2a 65 72 72 6f 72 43 . if (*errorC
4520: 6f 64 65 50 74 72 20 3c 20 30 29 20 7b 0a 09 54 odePtr < 0) {..T
4530: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
4540: 72 2c 20 73 74 72 65 72 72 6f 72 28 2a 65 72 72 r, strerror(*err
4550: 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 20 20 20 orCodePtr));.
4560: 20 7d 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }. dprintf("
4570: 4f 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25 64 Output(%d) -> %d
4580: 22 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 ", toWrite, writ
4590: 74 65 6e 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ten);. return
45a0: 28 77 72 69 74 74 65 6e 29 3b 0a 7d 0a 0a 2f 2a (written);.}../*
45b0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
45c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45f0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
4600: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d SetOptionProc --
4610: 0a 20 2a 0a 20 2a 20 20 20 20 53 65 74 73 20 61 . *. * Sets a
4620: 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 n option value f
4630: 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 or a SSL socket
4640: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f based channel, o
4650: 72 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20 6f r a. * list o
4660: 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e f all options an
4670: 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 0a d their values..
4680: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
4690: 2a 20 20 20 20 54 43 4c 5f 4f 4b 20 69 66 20 73 * TCL_OK if s
46a0: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
46b0: 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 _ERROR if failed
46c0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
46d0: 65 63 74 73 3a 0a 20 2a 20 20 20 20 55 70 64 61 ects:. * Upda
46e0: 74 65 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 tes channel opti
46f0: 6f 6e 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e on to new value.
4700: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
4710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
4750: 61 74 69 63 20 69 6e 74 0a 54 6c 73 53 65 74 4f atic int.TlsSetO
4760: 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 ptionProc(Client
4770: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
4780: 61 2c 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 a, /* Socket
4790: 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 54 63 state. */. Tc
47a0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
47b0: 2c 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 ,../* For errors
47c0: 20 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 - can be NULL.
47d0: 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 */. const cha
47e0: 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 2f r *optionName,./
47f0: 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 * Name of the op
4800: 74 69 6f 6e 20 74 6f 20 73 65 74 20 74 68 65 20 tion to set the
4810: 76 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 09 09 value for, or...
4820: 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 74 .. * NULL to get
4830: 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 all options and
4840: 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a their values. *
4850: 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 /. const char
4860: 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f *optionValue)./
4870: 2a 20 56 61 6c 75 65 20 66 6f 72 20 6f 70 74 69 * Value for opti
4880: 6f 6e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 on. */.{. Sta
4890: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
48a0: 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 State *) instanc
48b0: 65 44 61 74 61 3b 0a 0a 20 20 20 20 54 63 6c 5f eData;.. Tcl_
48c0: 43 68 61 6e 6e 65 6c 20 64 6f 77 6e 43 68 61 6e Channel downChan
48d0: 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 = Tls_GetParent
48e0: 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 (statePtr, TLS_T
48f0: 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a 20 20 CL_FASTPATH);.
4900: 20 20 54 63 6c 5f 44 72 69 76 65 72 53 65 74 4f Tcl_DriverSetO
4910: 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 ptionProc *setOp
4920: 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 73 tionProc;.. s
4930: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 etOptionProc = T
4940: 63 6c 5f 43 68 61 6e 6e 65 6c 53 65 74 4f 70 74 cl_ChannelSetOpt
4950: 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 ionProc(Tcl_GetC
4960: 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 hannelType(downC
4970: 68 61 6e 29 29 3b 0a 20 20 20 20 69 66 20 28 73 han));. if (s
4980: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 etOptionProc !=
4990: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
49a0: 28 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 (*setOptionProc)
49b0: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 (Tcl_GetChannelI
49c0: 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e nstanceData(down
49d0: 43 68 61 6e 29 2c 20 69 6e 74 65 72 70 2c 20 6f Chan), interp, o
49e0: 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f ptionName, optio
49f0: 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 nValue);. } e
4a00: 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 lse if (optionNa
4a10: 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 me == (char*) NU
4a20: 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 LL) {../*.. * Re
4a30: 71 75 65 73 74 20 69 73 20 71 75 65 72 79 20 66 quest is query f
4a40: 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 or all options,
4a50: 74 68 69 73 20 69 73 20 6f 6b 2e 0a 09 20 2a 2f this is ok... */
4a60: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
4a70: 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 . }. /*.
4a80: 20 20 20 2a 20 52 65 71 75 65 73 74 20 66 6f 72 * Request for
4a90: 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 74 69 a specific opti
4aa0: 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 on has to fail,
4ab0: 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e we don't have an
4ac0: 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 y.. */. r
4ad0: 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 eturn Tcl_BadCha
4ae0: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
4af0: 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 p, optionName, "
4b00: 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ");.}../*. *----
4b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4b50: 20 2a 0a 20 2a 20 54 6c 73 47 65 74 4f 70 74 69 *. * TlsGetOpti
4b60: 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 onProc --. *. *
4b70: 20 20 20 47 65 74 73 20 61 6e 20 6f 70 74 69 6f Gets an optio
4b80: 6e 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 53 n value for a SS
4b90: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
4ba0: 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 0a 20 2a 20 hannel, or a. *
4bb0: 20 20 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f list of all o
4bc0: 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 ptions and their
4bd0: 20 76 61 6c 75 65 73 2e 0a 20 2a 0a 20 2a 20 52 values.. *. * R
4be0: 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 41 20 esults:. * A
4bf0: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
4c00: 75 6c 74 2e 20 54 68 65 20 76 61 6c 75 65 20 6f ult. The value o
4c10: 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 f the specified
4c20: 6f 70 74 69 6f 6e 20 6f 72 20 61 0a 20 2a 20 20 option or a. *
4c30: 20 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 list of all op
4c40: 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 tions and their
4c50: 76 61 6c 75 65 73 20 69 73 20 72 65 74 75 72 6e values is return
4c60: 65 64 20 69 6e 20 74 68 65 0a 20 2a 20 20 20 20 ed in the. *
4c70: 73 75 70 70 6c 69 65 64 20 44 53 74 72 69 6e 67 supplied DString
4c80: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
4c90: 65 63 74 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 ects:. * None
4ca0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
4cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
4cf0: 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 47 65 74 tatic int.TlsGet
4d00: 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e OptionProc(Clien
4d10: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
4d20: 74 61 2c 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 ta, /* Socket
4d30: 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 54 state. */. T
4d40: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
4d50: 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 p,../* For error
4d60: 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e s - can be NULL.
4d70: 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 */. const ch
4d80: 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 ar *optionName,.
4d90: 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f /* Name of the o
4da0: 70 74 69 6f 6e 20 74 6f 20 72 65 74 72 69 65 76 ption to retriev
4db0: 65 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 2c e the value for,
4dc0: 20 6f 72 0a 09 09 09 09 20 2a 20 4e 55 4c 4c 20 or..... * NULL
4dd0: 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f to get all optio
4de0: 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c ns and their val
4df0: 75 65 73 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f ues. */. Tcl_
4e00: 44 53 74 72 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 DString *optionV
4e10: 61 6c 75 65 29 09 2f 2a 20 57 68 65 72 65 20 74 alue)./* Where t
4e20: 6f 20 73 74 6f 72 65 20 74 68 65 20 63 6f 6d 70 o store the comp
4e30: 75 74 65 64 20 76 61 6c 75 65 20 69 6e 69 74 69 uted value initi
4e40: 61 6c 69 7a 65 64 20 62 79 20 63 61 6c 6c 65 72 alized by caller
4e50: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 . */.{. State
4e60: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
4e70: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
4e80: 61 74 61 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 68 ata;.. Tcl_Ch
4e90: 61 6e 6e 65 6c 20 64 6f 77 6e 43 68 61 6e 20 3d annel downChan =
4ea0: 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 Tls_GetParent(s
4eb0: 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c tatePtr, TLS_TCL
4ec0: 5f 46 41 53 54 50 41 54 48 29 3b 0a 20 20 20 20 _FASTPATH);.
4ed0: 54 63 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 Tcl_DriverGetOpt
4ee0: 69 6f 6e 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 ionProc *getOpti
4ef0: 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 67 65 74 onProc;.. get
4f00: 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c OptionProc = Tcl
4f10: 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69 6f _ChannelGetOptio
4f20: 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 nProc(Tcl_GetCha
4f30: 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 nnelType(downCha
4f40: 6e 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 74 n));. if (get
4f50: 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 OptionProc != NU
4f60: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a LL) {..return (*
4f70: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 getOptionProc)(T
4f80: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
4f90: 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 tanceData(downCh
4fa0: 61 6e 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 an), interp, opt
4fb0: 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 ionName, optionV
4fc0: 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 alue);. } els
4fd0: 65 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 e if (optionName
4fe0: 20 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c == (char*) NULL
4ff0: 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 71 75 ) {../*.. * Requ
5000: 65 73 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 est is query for
5010: 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 all options, th
5020: 69 73 20 69 73 20 6f 6b 2e 0a 09 20 2a 2f 0a 09 is is ok... */..
5030: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 return TCL_OK;.
5040: 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 }. /*.
5050: 20 2a 20 52 65 71 75 65 73 74 20 66 6f 72 20 61 * Request for a
5060: 20 73 70 65 63 69 66 69 63 20 6f 70 74 69 6f 6e specific option
5070: 20 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 65 has to fail, we
5080: 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 2e don't have any.
5090: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 . */. ret
50a0: 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e urn Tcl_BadChann
50b0: 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c elOption(interp,
50c0: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 optionName, "")
50d0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
50e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
5120: 0a 20 2a 20 54 6c 73 57 61 74 63 68 50 72 6f 63 . * TlsWatchProc
5130: 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 49 6e 69 --. *. * Ini
5140: 74 69 61 6c 69 7a 65 20 74 68 65 20 6e 6f 74 69 tialize the noti
5150: 66 69 65 72 20 74 6f 20 77 61 74 63 68 20 54 63 fier to watch Tc
5160: 6c 5f 46 69 6c 65 73 20 66 72 6f 6d 20 74 68 69 l_Files from thi
5170: 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a s channel.. *. *
5180: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 Results:. *
5190: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 None.. *. * Side
51a0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 effects:. *
51b0: 53 65 74 73 20 75 70 20 74 68 65 20 6e 6f 74 69 Sets up the noti
51c0: 66 69 65 72 20 73 6f 20 74 68 61 74 20 61 20 66 fier so that a f
51d0: 75 74 75 72 65 20 65 76 65 6e 74 20 6f 6e 20 74 uture event on t
51e0: 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 20 20 20 he channel. *
51f0: 20 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 62 79 will be seen by
5200: 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d Tcl.. *. *-----
5210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
5250: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 54 */.static void.T
5260: 6c 73 57 61 74 63 68 50 72 6f 63 28 43 6c 69 65 lsWatchProc(Clie
5270: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 ntData instanceD
5280: 61 74 61 2c 20 20 20 20 2f 2a 20 54 68 65 20 73 ata, /* The s
5290: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
52a0: 20 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 int mask)...
52b0: 2f 2a 20 45 76 65 6e 74 73 20 6f 66 20 69 6e 74 /* Events of int
52c0: 65 72 65 73 74 3b 20 61 6e 20 4f 52 2d 65 64 20 erest; an OR-ed
52d0: 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 0a 09 combination of..
52e0: 09 09 09 20 2a 20 54 43 4c 5f 52 45 41 44 41 42 ... * TCL_READAB
52f0: 4c 45 2c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 LE, TCL_WRITABLE
5300: 20 61 6e 64 20 54 43 4c 5f 45 58 43 45 50 54 49 and TCL_EXCEPTI
5310: 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c ON. */.{. Tcl
5320: 5f 43 68 61 6e 6e 65 6c 20 20 20 20 20 64 6f 77 _Channel dow
5330: 6e 43 68 61 6e 3b 0a 20 20 20 20 53 74 61 74 65 nChan;. State
5340: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
5350: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
5360: 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 ata;. Tcl_Dri
5370: 76 65 72 57 61 74 63 68 50 72 6f 63 20 2a 77 61 verWatchProc *wa
5380: 74 63 68 50 72 6f 63 3b 0a 0a 20 20 20 20 64 70 tchProc;.. dp
5390: 72 69 6e 74 66 28 22 54 6c 73 57 61 74 63 68 50 rintf("TlsWatchP
53a0: 72 6f 63 28 30 78 25 78 29 22 2c 20 6d 61 73 6b roc(0x%x)", mask
53b0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 72 65 74 65 );.. /* Prete
53c0: 6e 64 20 74 6f 20 62 65 20 64 65 61 64 20 61 73 nd to be dead as
53d0: 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 76 65 72 long as the ver
53e0: 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 ify callback is
53f0: 72 75 6e 6e 69 6e 67 2e 0a 20 20 20 20 20 2a 20 running.. *
5400: 4f 74 68 65 72 77 69 73 65 20 74 68 61 74 20 63 Otherwise that c
5410: 61 6c 6c 62 61 63 6b 20 63 6f 75 6c 64 20 62 65 allback could be
5420: 20 69 6e 76 6f 6b 65 64 20 72 65 63 75 72 73 69 invoked recursi
5430: 76 65 6c 79 2e 20 2a 2f 0a 20 20 20 20 69 66 20 vely. */. if
5440: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
5450: 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 & TLS_TCL_CALLB
5460: 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 ACK) {..dprintf(
5470: 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 6f 6e 2d "Callback is on-
5480: 67 6f 69 6e 67 2c 20 64 6f 69 6e 67 20 6e 6f 74 going, doing not
5490: 68 69 6e 67 22 29 3b 0a 09 72 65 74 75 72 6e 3b hing");..return;
54a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 . }.. dpri
54b0: 6e 74 46 6c 61 67 73 28 73 74 61 74 65 50 74 72 ntFlags(statePtr
54c0: 29 3b 0a 0a 20 20 20 20 64 6f 77 6e 43 68 61 6e );.. downChan
54d0: 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 = Tls_GetParent
54e0: 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 (statePtr, TLS_T
54f0: 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a 0a 20 CL_FASTPATH);..
5500: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
5510: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
5520: 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 _HANDSHAKE_FAILE
5530: 44 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 D) {..dprintf("A
5540: 73 6b 65 64 20 74 6f 20 77 61 74 63 68 20 61 20 sked to watch a
5550: 73 6f 63 6b 65 74 20 77 69 74 68 20 61 20 66 61 socket with a fa
5560: 69 6c 65 64 20 68 61 6e 64 73 68 61 6b 65 20 2d iled handshake -
5570: 2d 20 6e 6f 74 68 69 6e 67 20 63 61 6e 20 68 61 - nothing can ha
5580: 70 70 65 6e 20 68 65 72 65 22 29 3b 0a 09 64 70 ppen here");..dp
5590: 72 69 6e 74 66 28 22 55 6e 72 65 67 69 73 74 65 rintf("Unregiste
55a0: 72 69 6e 67 20 69 6e 74 65 72 65 73 74 20 69 6e ring interest in
55b0: 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e the lower chann
55c0: 65 6c 22 29 3b 0a 0a 09 77 61 74 63 68 50 72 6f el");...watchPro
55d0: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 c = Tcl_ChannelW
55e0: 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 atchProc(Tcl_Get
55f0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e ChannelType(down
5600: 43 68 61 6e 29 29 3b 0a 09 77 61 74 63 68 50 72 Chan));..watchPr
5610: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
5620: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f lInstanceData(do
5630: 77 6e 43 68 61 6e 29 2c 20 30 29 3b 0a 09 73 74 wnChan), 0);..st
5640: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
5650: 6b 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e 3b 0a k = 0;..return;.
5660: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 }.. state
5670: 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d Ptr->watchMask =
5680: 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a 20 4e mask;.. /* N
5690: 6f 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 o channel handle
56a0: 72 73 20 61 6e 79 20 6d 6f 72 65 2e 20 57 65 20 rs any more. We
56b0: 77 69 6c 6c 20 62 65 20 6e 6f 74 69 66 69 65 64 will be notified
56c0: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 20 automatically.
56d0: 20 20 20 20 2a 20 61 62 6f 75 74 20 65 76 65 6e * about even
56e0: 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 ts on the channe
56f0: 6c 20 62 65 6c 6f 77 20 76 69 61 20 61 20 63 61 l below via a ca
5700: 6c 6c 20 74 6f 20 6f 75 72 0a 20 20 20 20 20 2a ll to our. *
5710: 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 69 66 'TransformNotif
5720: 79 50 72 6f 63 27 2e 20 42 75 74 20 77 65 20 68 yProc'. But we h
5730: 61 76 65 20 74 6f 20 70 61 73 73 20 74 68 65 20 ave to pass the
5740: 69 6e 74 65 72 65 73 74 20 64 6f 77 6e 20 6e 6f interest down no
5750: 77 2e 0a 20 20 20 20 20 2a 20 57 65 20 61 72 65 w.. * We are
5760: 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 64 64 20 allowed to add
5770: 61 64 64 69 74 69 6f 6e 61 6c 20 27 69 6e 74 65 additional 'inte
5780: 72 65 73 74 27 20 74 6f 20 74 68 65 20 6d 61 73 rest' to the mas
5790: 6b 20 69 66 20 77 65 20 77 61 6e 74 0a 20 20 20 k if we want.
57a0: 20 20 2a 20 74 6f 2e 20 42 75 74 20 74 68 69 73 * to. But this
57b0: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 transformation
57c0: 68 61 73 20 6e 6f 20 73 75 63 68 20 69 6e 74 65 has no such inte
57d0: 72 65 73 74 2e 20 49 74 20 6a 75 73 74 20 70 61 rest. It just pa
57e0: 73 73 65 73 0a 20 20 20 20 20 2a 20 74 68 65 20 sses. * the
57f0: 72 65 71 75 65 73 74 20 64 6f 77 6e 2c 20 75 6e request down, un
5800: 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f changed.. */
5810: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 . dprintf("Re
5820: 67 69 73 74 65 72 69 6e 67 20 6f 75 72 20 69 6e gistering our in
5830: 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f terest in the lo
5840: 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 63 68 61 wer channel (cha
5850: 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 n=%p)", (void *)
5860: 20 64 6f 77 6e 43 68 61 6e 29 3b 0a 20 20 20 20 downChan);.
5870: 77 61 74 63 68 50 72 6f 63 20 3d 20 54 63 6c 5f watchProc = Tcl_
5880: 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f 63 ChannelWatchProc
5890: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
58a0: 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a ype(downChan));.
58b0: 20 20 20 20 77 61 74 63 68 50 72 6f 63 28 54 63 watchProc(Tc
58c0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
58d0: 61 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 anceData(downCha
58e0: 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a 0a 20 20 20 n), mask);...
58f0: 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6e 61 67 /*. * Manag
5900: 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 69 6e 74 ement of the int
5910: 65 72 6e 61 6c 20 74 69 6d 65 72 2e 0a 20 20 20 ernal timer..
5920: 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 */. if (sta
5930: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
5940: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
5950: 20 4e 55 4c 4c 29 20 7b 0a 09 64 70 72 69 6e 74 NULL) {..dprint
5960: 66 28 22 41 20 74 69 6d 65 72 20 77 61 73 20 66 f("A timer was f
5970: 6f 75 6e 64 2c 20 64 65 6c 65 74 69 6e 67 20 69 ound, deleting i
5980: 74 22 29 3b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 t");..Tcl_Delete
5990: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
59a0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
59b0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
59c0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
59d0: 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a n) NULL;. }..
59e0: 20 20 20 20 69 66 20 28 28 6d 61 73 6b 20 26 20 if ((mask &
59f0: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 TCL_READABLE) &&
5a00: 0a 09 28 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 ..((Tcl_InputBuf
5a10: 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e fered(statePtr->
5a20: 73 65 6c 66 29 20 3e 20 30 29 20 7c 7c 20 28 42 self) > 0) || (B
5a30: 49 4f 5f 63 74 72 6c 5f 70 65 6e 64 69 6e 67 28 IO_ctrl_pending(
5a40: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 3e statePtr->bio) >
5a50: 20 30 29 29 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 0))) {../*.. *
5a60: 54 68 65 72 65 20 69 73 20 69 6e 74 65 72 65 73 There is interes
5a70: 74 20 69 6e 20 72 65 61 64 61 62 6c 65 20 65 76 t in readable ev
5a80: 65 6e 74 73 20 61 6e 64 20 77 65 20 61 63 74 75 ents and we actu
5a90: 61 6c 6c 79 20 68 61 76 65 0a 09 20 2a 20 64 61 ally have.. * da
5aa0: 74 61 20 77 61 69 74 69 6e 67 2c 20 73 6f 20 67 ta waiting, so g
5ab0: 65 6e 65 72 61 74 65 20 61 20 74 69 6d 65 72 20 enerate a timer
5ac0: 74 6f 20 66 6c 75 73 68 20 74 68 61 74 2e 0a 09 to flush that...
5ad0: 20 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22 43 72 */..dprintf("Cr
5ae0: 65 61 74 69 6e 67 20 61 20 6e 65 77 20 74 69 6d eating a new tim
5af0: 65 72 20 73 69 6e 63 65 20 64 61 74 61 20 61 70 er since data ap
5b00: 70 65 61 72 73 20 74 6f 20 62 65 20 77 61 69 74 pears to be wait
5b10: 69 6e 67 22 29 3b 0a 09 73 74 61 74 65 50 74 72 ing");..statePtr
5b20: 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 ->timer = Tcl_Cr
5b30: 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 eateTimerHandler
5b40: 28 54 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 20 (TLS_TCL_DELAY,
5b50: 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 TlsChannelHandle
5b60: 72 54 69 6d 65 72 2c 20 28 43 6c 69 65 6e 74 44 rTimer, (ClientD
5b70: 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a ata) statePtr);.
5b80: 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d }.}../*. *--
5b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bd0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 48 61 -. *. * TlsGetHa
5be0: 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 ndleProc --. *.
5bf0: 2a 20 20 20 20 43 61 6c 6c 65 64 20 66 72 6f 6d * Called from
5c00: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 46 Tcl_GetChannelF
5c10: 69 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 20 ile to retrieve
5c20: 6f 2f 73 20 66 69 6c 65 20 68 61 6e 64 6c 65 72 o/s file handler
5c30: 0a 20 2a 20 20 20 20 66 72 6f 6d 20 74 68 65 20 . * from the
5c40: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
5c50: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
5c60: 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 Results:. * T
5c70: 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 54 he appropriate T
5c80: 63 6c 5f 46 69 6c 65 20 68 61 6e 64 6c 65 20 6f cl_File handle o
5c90: 72 20 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a r NULL if none..
5ca0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
5cb0: 74 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a ts:. * None..
5cc0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
5cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d00: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
5d10: 74 69 63 20 69 6e 74 20 54 6c 73 47 65 74 48 61 tic int TlsGetHa
5d20: 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 ndleProc(ClientD
5d30: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
5d40: 2c 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 , /* Socket s
5d50: 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 tate. */. int
5d60: 20 64 69 72 65 63 74 69 6f 6e 2c 09 09 2f 2a 20 direction,../*
5d70: 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 TCL_READABLE or
5d80: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a TCL_WRITABLE */.
5d90: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 2a ClientData *
5da0: 68 61 6e 64 6c 65 50 74 72 29 09 2f 2a 20 48 61 handlePtr)./* Ha
5db0: 6e 64 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 ndle associated
5dc0: 77 69 74 68 20 74 68 65 20 63 68 61 6e 6e 65 6c with the channel
5dd0: 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 */.{. State
5de0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
5df0: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
5e00: 74 61 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 28 ta;.. return(
5e10: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 Tcl_GetChannelHa
5e20: 6e 64 6c 65 28 54 6c 73 5f 47 65 74 50 61 72 65 ndle(Tls_GetPare
5e30: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 nt(statePtr, TLS
5e40: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 2c 20 _TCL_FASTPATH),
5e50: 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 6c direction, handl
5e60: 65 50 74 72 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a ePtr));.}../*. *
5e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5eb0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4e 6f 74 ---. *. * TlsNot
5ec0: 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a ifyProc --. *. *
5ed0: 20 20 20 20 48 61 6e 64 6c 65 72 20 63 61 6c 6c Handler call
5ee0: 65 64 20 62 79 20 54 63 6c 20 74 6f 20 69 6e 66 ed by Tcl to inf
5ef0: 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 69 orm us of activi
5f00: 74 79 0a 20 2a 20 20 20 20 6f 6e 20 74 68 65 20 ty. * on the
5f10: 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e underlying chann
5f20: 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 el.. *. * Result
5f30: 73 3a 0a 20 2a 20 20 20 20 54 79 70 65 20 6f 66 s:. * Type of
5f40: 20 65 76 65 6e 74 20 6f 72 20 30 20 69 66 20 66 event or 0 if f
5f50: 61 69 6c 65 64 0a 20 2a 0a 20 2a 20 53 69 64 65 ailed. *. * Side
5f60: 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 effects:. *
5f70: 4d 61 79 20 70 72 6f 63 65 73 73 20 74 68 65 20 May process the
5f80: 69 6e 63 6f 6d 69 6e 67 20 65 76 65 6e 74 20 62 incoming event b
5f90: 79 20 69 74 73 65 6c 66 2e 0a 20 2a 0a 20 2a 2d y itself.. *. *-
5fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fe0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
5ff0: 74 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 28 t TlsNotifyProc(
6000: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
6010: 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 nceData, /* S
6020: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
6030: 20 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 int mask)...
6040: 2f 2a 20 74 79 70 65 20 6f 66 20 65 76 65 6e 74 /* type of event
6050: 20 74 68 61 74 20 6f 63 63 75 72 72 65 64 3a 0a that occurred:.
6060: 09 09 09 09 20 2a 20 4f 52 2d 65 64 20 63 6f 6d .... * OR-ed com
6070: 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f bination of TCL_
6080: 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f READABLE or TCL_
6090: 57 52 49 54 41 42 4c 45 20 2a 2f 0a 7b 0a 20 20 WRITABLE */.{.
60a0: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
60b0: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
60c0: 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 stanceData;.
60d0: 69 6e 74 20 65 72 72 6f 72 43 6f 64 65 3b 0a 0a int errorCode;..
60e0: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 41 6e /*. * An
60f0: 20 65 76 65 6e 74 20 6f 63 63 75 72 72 65 64 20 event occurred
6100: 69 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e in the underlyin
6110: 67 20 63 68 61 6e 6e 65 6c 2e 20 20 54 68 69 73 g channel. This
6120: 0a 20 20 20 20 20 2a 20 74 72 61 6e 73 66 6f 72 . * transfor
6130: 6d 61 74 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 mation doesn't p
6140: 72 6f 63 65 73 73 20 73 75 63 68 20 65 76 65 6e rocess such even
6150: 74 73 20 74 68 75 73 20 72 65 74 75 72 6e 73 20 ts thus returns
6160: 74 68 65 0a 20 20 20 20 20 2a 20 69 6e 63 6f 6d the. * incom
6170: 69 6e 67 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 ing mask unchang
6180: 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 ed.. */.
6190: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 if (statePtr->ti
61a0: 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 mer != (Tcl_Time
61b0: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a rToken) NULL) {.
61c0: 09 2f 2a 0a 09 20 2a 20 44 65 6c 65 74 65 20 61 ./*.. * Delete a
61d0: 6e 20 65 78 69 73 74 69 6e 67 20 74 69 6d 65 72 n existing timer
61e0: 2e 20 49 74 20 77 61 73 20 6e 6f 74 20 66 69 72 . It was not fir
61f0: 65 64 2c 20 79 65 74 20 77 65 20 61 72 65 0a 09 ed, yet we are..
6200: 20 2a 20 68 65 72 65 2c 20 73 6f 20 74 68 65 20 * here, so the
6210: 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 67 65 channel below ge
6220: 6e 65 72 61 74 65 64 20 73 75 63 68 20 61 6e 20 nerated such an
6230: 65 76 65 6e 74 20 61 6e 64 20 77 65 0a 09 20 2a event and we.. *
6240: 20 64 6f 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 don't have to.
6250: 54 68 65 20 72 65 6e 65 77 61 6c 20 6f 66 20 74 The renewal of t
6260: 68 65 20 69 6e 74 65 72 65 73 74 20 61 66 74 65 he interest afte
6270: 72 20 74 68 65 0a 09 20 2a 20 65 78 65 63 75 74 r the.. * execut
6280: 69 6f 6e 20 6f 66 20 63 68 61 6e 6e 65 6c 20 68 ion of channel h
6290: 61 6e 64 6c 65 72 73 20 77 69 6c 6c 20 65 76 65 andlers will eve
62a0: 6e 74 75 61 6c 6c 79 20 63 61 75 73 65 20 75 73 ntually cause us
62b0: 20 74 6f 0a 09 20 2a 20 72 65 63 72 65 61 74 65 to.. * recreate
62c0: 20 74 68 65 20 74 69 6d 65 72 20 28 69 6e 20 57 the timer (in W
62d0: 61 74 63 68 50 72 6f 63 29 2e 0a 09 20 2a 2f 0a atchProc)... */.
62e0: 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 .Tcl_DeleteTimer
62f0: 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 Handler(statePtr
6300: 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 ->timer);..state
6310: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
6320: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
6330: 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 LL;. }.. i
6340: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
6350: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c gs & TLS_TCL_CAL
6360: 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 LBACK) {..dprint
6370: 66 28 22 52 65 74 75 72 6e 69 6e 67 20 30 20 64 f("Returning 0 d
6380: 75 65 20 74 6f 20 63 61 6c 6c 62 61 63 6b 22 29 ue to callback")
6390: 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 ;..return 0;.
63a0: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 }.. dprintf(
63b0: 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 "Calling Tls_Wai
63c0: 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 20 tForConnect");.
63d0: 20 20 20 65 72 72 6f 72 43 6f 64 65 20 3d 20 30 errorCode = 0
63e0: 3b 0a 20 20 20 20 69 66 20 28 54 6c 73 5f 57 61 ;. if (Tls_Wa
63f0: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 itForConnect(sta
6400: 74 65 50 74 72 2c 20 26 65 72 72 6f 72 43 6f 64 tePtr, &errorCod
6410: 65 2c 20 31 29 20 3c 20 30 29 20 7b 0a 09 54 6c e, 1) < 0) {..Tl
6420: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
6430: 2c 20 73 74 72 65 72 72 6f 72 28 65 72 72 6f 72 , strerror(error
6440: 43 6f 64 65 29 29 3b 0a 09 69 66 20 28 65 72 72 Code));..if (err
6450: 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e orCode == EAGAIN
6460: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
6470: 28 22 41 73 79 6e 63 20 66 6c 61 67 20 63 6f 75 ("Async flag cou
6480: 6c 64 20 62 65 20 73 65 74 20 28 64 69 64 6e 27 ld be set (didn'
6490: 74 20 63 68 65 63 6b 29 20 61 6e 64 20 65 72 72 t check) and err
64a0: 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e orCode == EAGAIN
64b0: 3a 20 20 52 65 74 75 72 6e 69 6e 67 20 30 22 29 : Returning 0")
64c0: 3b 0a 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 ;... return 0
64d0: 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 ;..}...dprintf("
64e0: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
64f0: 63 74 20 72 65 74 75 72 6e 65 64 20 61 6e 20 65 ct returned an e
6500: 72 72 6f 72 22 29 3b 0a 20 20 20 20 7d 0a 0a 20 rror");. }..
6510: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 dprintf("Retu
6520: 72 6e 69 6e 67 20 25 69 22 2c 20 6d 61 73 6b 29 rning %i", mask)
6530: 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 28 6d 61 ;.. return(ma
6540: 73 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d sk);.}../*. *---
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6580: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 54 6c ---*. *. * Tl
6590: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 sChannelHandlerT
65a0: 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 imer --. *. *
65b0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
65c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65e0: 2d 2a 0a 20 2a 20 20 20 20 43 61 6c 6c 65 64 20 -*. * Called
65f0: 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72 20 by the notifier
6600: 28 2d 3e 20 74 69 6d 65 72 29 20 74 6f 20 66 6c (-> timer) to fl
6610: 75 73 68 20 6f 75 74 0a 20 2a 20 20 20 20 69 6e ush out. * in
6620: 66 6f 72 6d 61 74 69 6f 6e 20 77 61 69 74 69 6e formation waitin
6630: 67 20 69 6e 20 63 68 61 6e 6e 65 6c 20 62 75 66 g in channel buf
6640: 66 65 72 73 2e 0a 20 2a 20 20 20 20 2d 2d 2d 2d fers.. * ----
6650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a ------------*. *
6680: 0a 20 2a 20 20 20 20 53 69 64 65 20 65 66 66 65 . * Side effe
6690: 63 74 73 3a 0a 20 2a 20 20 20 20 20 20 20 20 41 cts:. * A
66a0: 73 20 6f 66 20 27 54 6c 73 43 68 61 6e 6e 65 6c s of 'TlsChannel
66b0: 48 61 6e 64 6c 65 72 27 2e 0a 20 2a 0a 20 2a 20 Handler'.. *. *
66c0: 20 20 20 52 65 73 75 6c 74 3a 0a 20 2a 20 20 20 Result:. *
66d0: 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a None.. *. *
66e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6710: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 74 ------*. */.stat
6720: 69 63 20 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e ic void TlsChann
6730: 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 28 43 elHandlerTimer(C
6740: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
6750: 44 61 74 61 29 20 7b 0a 20 20 20 20 53 74 61 74 Data) {. Stat
6760: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
6770: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
6780: 74 61 3b 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b ta;. int mask
6790: 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e = 0;.. dprin
67a0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
67b0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d statePtr->tim
67c0: 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 er = (Tcl_TimerT
67d0: 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 oken) NULL;..
67e0: 20 69 66 20 28 42 49 4f 5f 77 70 65 6e 64 69 6e if (BIO_wpendin
67f0: 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 g(statePtr->bio)
6800: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 ) {..dprintf("[c
6810: 68 61 6e 3d 25 70 5d 20 42 49 4f 20 77 72 69 74 han=%p] BIO writ
6820: 61 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d able", statePtr-
6830: 3e 73 65 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c >self);...mask |
6840: 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a = TCL_WRITABLE;.
6850: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 42 }.. if (B
6860: 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 IO_pending(state
6870: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 Ptr->bio)) {..dp
6880: 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d rintf("[chan=%p]
6890: 20 42 49 4f 20 72 65 61 64 61 62 6c 65 22 2c 20 BIO readable",
68a0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b statePtr->self);
68b0: 0a 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 ...mask |= TCL_R
68c0: 45 41 44 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a EADABLE;. }..
68d0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 4e 6f 74 dprintf("Not
68e0: 69 66 79 69 6e 67 20 6f 75 72 73 65 6c 76 65 73 ifying ourselves
68f0: 22 29 3b 0a 20 20 20 20 54 63 6c 5f 4e 6f 74 69 ");. Tcl_Noti
6900: 66 79 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 fyChannel(stateP
6910: 74 72 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b tr->self, mask);
6920: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 .. dprintf("R
6930: 65 74 75 72 6e 69 6e 67 22 29 3b 0a 0a 20 20 20 eturning");..
6940: 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 54 63 6c 5f return;.}..Tcl_
6950: 43 68 61 6e 6e 65 6c 20 54 6c 73 5f 47 65 74 50 Channel Tls_GetP
6960: 61 72 65 6e 74 28 53 74 61 74 65 20 2a 73 74 61 arent(State *sta
6970: 74 65 50 74 72 2c 20 69 6e 74 20 6d 61 73 6b 46 tePtr, int maskF
6980: 6c 61 67 73 29 20 7b 0a 20 20 20 20 64 70 72 69 lags) {. dpri
6990: 6e 74 66 28 22 52 65 71 75 65 73 74 65 64 20 74 ntf("Requested t
69a0: 6f 20 67 65 74 20 70 61 72 65 6e 74 20 6f 66 20 o get parent of
69b0: 63 68 61 6e 6e 65 6c 20 25 70 22 2c 20 73 74 61 channel %p", sta
69c0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 20 tePtr->self);..
69d0: 20 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 if ((statePtr
69e0: 2d 3e 66 6c 61 67 73 20 26 20 7e 6d 61 73 6b 46 ->flags & ~maskF
69f0: 6c 61 67 73 29 20 26 20 54 4c 53 5f 54 43 4c 5f lags) & TLS_TCL_
6a00: 46 41 53 54 50 41 54 48 29 20 7b 0a 09 64 70 72 FASTPATH) {..dpr
6a10: 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 67 intf("Asked to g
6a20: 65 74 20 74 68 65 20 70 61 72 65 6e 74 20 63 68 et the parent ch
6a30: 61 6e 6e 65 6c 20 77 68 69 6c 65 20 77 65 20 61 annel while we a
6a40: 72 65 20 75 73 69 6e 67 20 46 61 73 74 50 61 74 re using FastPat
6a50: 68 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 4e h -- returning N
6a60: 55 4c 4c 22 29 3b 0a 09 72 65 74 75 72 6e 28 4e ULL");..return(N
6a70: 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ULL);. }.
6a80: 72 65 74 75 72 6e 28 54 63 6c 5f 47 65 74 53 74 return(Tcl_GetSt
6a90: 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 ackedChannel(sta
6aa0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 7d tePtr->self));.}
6ab0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
6b00: 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 Tls_ChannelType
6b10: 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 52 65 74 --. *. * Ret
6b20: 75 72 6e 20 74 68 65 20 63 6f 72 72 65 63 74 20 urn the correct
6b30: 54 4c 53 20 63 68 61 6e 6e 65 6c 20 64 72 69 76 TLS channel driv
6b40: 65 72 20 69 6e 66 6f 0a 20 2a 0a 20 2a 20 52 65 er info. *. * Re
6b50: 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 68 65 sults:. * The
6b60: 20 63 6f 72 72 65 63 74 20 63 68 61 6e 6e 65 6c correct channel
6b70: 20 64 72 69 76 65 72 20 66 6f 72 20 74 68 65 20 driver for the
6b80: 63 75 72 72 65 6e 74 20 76 65 72 73 69 6f 6e 20 current version
6b90: 6f 66 20 54 63 6c 2e 0a 20 2a 0a 20 2a 20 53 69 of Tcl.. *. * Si
6ba0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 de effects:. *
6bb0: 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d None.. *. *---
6bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c00: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 . */.static cons
6c10: 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 t Tcl_ChannelTyp
6c20: 65 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 e tlsChannelType
6c30: 20 3d 20 7b 0a 20 20 20 20 22 74 6c 73 22 2c 09 = {. "tls",.
6c40: 09 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a ../* Type name *
6c50: 2f 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 /. TCL_CHANNE
6c60: 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20 L_VERSION_5,./*
6c70: 76 35 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 v5 channel */.
6c80: 20 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 2c 09 TlsCloseProc,.
6c90: 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f 63 20 2a ./* Close proc *
6ca0: 2f 0a 20 20 20 20 54 6c 73 49 6e 70 75 74 50 72 /. TlsInputPr
6cb0: 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 74 20 70 72 oc,../* Input pr
6cc0: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 4f 75 74 oc */. TlsOut
6cd0: 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 4f 75 74 putProc,../* Out
6ce0: 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 put proc */.
6cf0: 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 65 65 6b 20 NULL,.../* Seek
6d00: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 53 proc */. TlsS
6d10: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 2f etOptionProc,../
6d20: 2a 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f * Set option pro
6d30: 63 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 4f c */. TlsGetO
6d40: 70 74 69 6f 6e 50 72 6f 63 2c 09 09 2f 2a 20 47 ptionProc,../* G
6d50: 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a et option proc *
6d60: 2f 0a 20 20 20 20 54 6c 73 57 61 74 63 68 50 72 /. TlsWatchPr
6d70: 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c 69 oc,../* Initiali
6d80: 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a 20 ze notifier */.
6d90: 20 20 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 TlsGetHandleP
6da0: 72 6f 63 2c 09 09 2f 2a 20 47 65 74 20 4f 53 20 roc,../* Get OS
6db0: 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 20 63 handles out of c
6dc0: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 54 6c hannel */. Tl
6dd0: 73 43 6c 6f 73 65 32 50 72 6f 63 2c 09 09 2f 2a sClose2Proc,../*
6de0: 20 63 6c 6f 73 65 32 70 72 6f 63 20 2a 2f 0a 20 close2proc */.
6df0: 20 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 TlsBlockModeP
6e00: 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 62 6c 6f roc,../* Set blo
6e10: 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e cking/nonblockin
6e20: 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 4c g mode*/. NUL
6e30: 4c 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 L,.../* Flush pr
6e40: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 4e 6f 74 oc */. TlsNot
6e50: 69 66 79 50 72 6f 63 2c 09 09 2f 2a 20 48 61 6e ifyProc,../* Han
6e60: 64 6c 69 6e 67 20 6f 66 20 65 76 65 6e 74 73 20 dling of events
6e70: 62 75 62 62 6c 69 6e 67 20 75 70 20 2a 2f 0a 20 bubbling up */.
6e80: 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 57 69 NULL,.../* Wi
6e90: 64 65 20 73 65 65 6b 20 70 72 6f 63 20 2a 2f 0a de seek proc */.
6ea0: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 54 NULL,.../* T
6eb0: 68 72 65 61 64 20 61 63 74 69 6f 6e 20 2a 2f 0a hread action */.
6ec0: 20 20 20 20 4e 55 4c 4c 09 09 09 2f 2a 20 54 72 NULL.../* Tr
6ed0: 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b 0a 0a 63 6f uncate */.};..co
6ee0: 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 nst Tcl_ChannelT
6ef0: 79 70 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c ype *Tls_Channel
6f00: 54 79 70 65 28 76 6f 69 64 29 20 7b 0a 20 20 20 Type(void) {.
6f10: 20 72 65 74 75 72 6e 20 26 74 6c 73 43 68 61 6e return &tlsChan
6f20: 6e 65 6c 54 79 70 65 3b 0a 7d 0a nelType;.}.