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 20 20 20 20 stanceData;.
0850: 28 76 6f 69 64 29 20 69 6e 74 65 72 70 3b 0a 0a (void) interp;..
0860: 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 6c 73 dprintf("Tls
0870: 43 6c 6f 73 65 50 72 6f 63 28 25 70 29 22 2c 20 CloseProc(%p)",
0880: 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 (void *) statePt
0890: 72 29 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 r);.. Tls_Cle
08a0: 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 an(statePtr);.
08b0: 20 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 Tcl_Eventually
08c0: 46 72 65 65 28 28 43 6c 69 65 6e 74 44 61 74 61 Free((ClientData
08d0: 29 73 74 61 74 65 50 74 72 2c 20 54 6c 73 5f 46 )statePtr, Tls_F
08e0: 72 65 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ree);. return
08f0: 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 (0);.}..static i
0900: 6e 74 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 nt TlsClose2Proc
0910: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
0920: 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 anceData, /*
0930: 54 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 The socket state
0940: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 . */. Tcl_Int
0950: 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a erp *interp,../*
0960: 20 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 For errors - ca
0970: 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 n be NULL. */.
0980: 20 20 69 6e 74 20 66 6c 61 67 73 29 09 09 09 2f int flags).../
0990: 2a 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65 * Flags to close
09a0: 20 72 65 61 64 20 61 6e 64 2f 6f 72 20 77 72 69 read and/or wri
09b0: 74 65 20 73 69 64 65 20 6f 66 20 63 68 61 6e 6e te side of chann
09c0: 65 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 el */.{. Stat
09d0: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
09e0: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
09f0: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e Data;.. dprin
0a00: 74 66 28 22 54 6c 73 43 6c 6f 73 65 32 50 72 6f tf("TlsClose2Pro
0a10: 63 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 c(%p)", (void *)
0a20: 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 statePtr);..
0a30: 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 28 54 if ((flags & (T
0a40: 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 7c 54 43 CL_CLOSE_READ|TC
0a50: 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 L_CLOSE_WRITE))
0a60: 3d 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 0) {..return
0a70: 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 69 6e 73 TlsCloseProc(ins
0a80: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 65 72 tanceData, inter
0a90: 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 p);. }. re
0aa0: 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a turn EINVAL;.}..
0ab0: 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a -----------*. *.
0af0: 20 2a 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f * Tls_WaitForCo
0b00: 6e 6e 65 63 74 20 2d 2d 0a 20 2a 0a 20 2a 20 52 nnect --. *. * R
0b10: 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 30 20 69 esult:. * 0 i
0b20: 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 2d 31 f successful, -1
0b30: 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 if failed.. *.
0b40: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0b50: 20 2a 20 20 20 20 49 73 73 75 65 73 20 53 53 4c * Issues SSL
0b60: 5f 61 63 63 65 70 74 20 6f 72 20 53 53 4c 5f 63 _accept or SSL_c
0b70: 6f 6e 6e 65 63 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d onnect. *. *----
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 2d ----------------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bb0: 2d 2d 2a 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f --*. */.int Tls_
0bc0: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 53 WaitForConnect(S
0bd0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
0be0: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
0bf0: 72 2c 20 69 6e 74 20 68 61 6e 64 73 68 61 6b 65 r, int handshake
0c00: 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 FailureIsPermane
0c10: 6e 74 29 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e nt) {. unsign
0c20: 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 ed long backingE
0c30: 72 72 6f 72 3b 0a 20 20 20 20 69 6e 74 20 65 72 rror;. int er
0c40: 72 2c 20 72 63 3b 0a 20 20 20 20 69 6e 74 20 62 r, rc;. int b
0c50: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 3b 0a 20 ioShouldRetry;.
0c60: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
0c70: 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e = 0;.. dprin
0c80: 74 66 28 22 57 61 69 74 46 6f 72 43 6f 6e 6e 65 tf("WaitForConne
0c90: 63 74 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a ct(%p)", (void *
0ca0: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
0cb0: 20 64 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 dprintFlags(sta
0cc0: 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 tePtr);.. if
0cd0: 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 (!(statePtr->fla
0ce0: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 gs & TLS_TCL_INI
0cf0: 54 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 T)) {..dprintf("
0d00: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
0d10: 63 74 20 63 61 6c 6c 65 64 20 6f 6e 20 61 6c 72 ct called on alr
0d20: 65 61 64 79 20 69 6e 69 74 69 61 6c 69 7a 65 64 eady initialized
0d30: 20 63 68 61 6e 6e 65 6c 20 2d 2d 20 72 65 74 75 channel -- retu
0d40: 72 6e 69 6e 67 20 77 69 74 68 20 69 6d 6d 65 64 rning with immed
0d50: 69 61 74 65 20 73 75 63 63 65 73 73 22 29 3b 0a iate success");.
0d60: 09 72 65 74 75 72 6e 28 30 29 3b 0a 20 20 20 20 .return(0);.
0d70: 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }.. if (state
0d80: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
0d90: 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 _TCL_HANDSHAKE_F
0da0: 41 49 4c 45 44 29 20 7b 0a 09 2f 2a 0a 09 20 2a AILED) {../*.. *
0db0: 20 44 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 Different types
0dc0: 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e 73 20 68 of operations h
0dd0: 61 76 65 20 64 69 66 66 65 72 65 6e 74 20 72 65 ave different re
0de0: 71 75 69 72 65 6d 65 6e 74 73 0a 09 20 2a 20 53 quirements.. * S
0df0: 53 4c 20 62 65 69 6e 67 20 65 73 74 61 62 6c 69 SL being establi
0e00: 73 68 65 64 0a 09 20 2a 2f 0a 09 69 66 20 28 68 shed.. */..if (h
0e10: 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 49 andshakeFailureI
0e20: 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 20 sPermanent) {..
0e30: 20 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b 65 dprintf("Aske
0e40: 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 d to wait for a
0e50: 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 TLS handshake th
0e60: 61 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 at has already f
0e70: 61 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e ailed. Returnin
0e80: 67 20 66 61 74 61 6c 20 65 72 72 6f 72 22 29 3b g fatal error");
0e90: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
0ea0: 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 Ptr = ECONNABORT
0eb0: 45 44 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 ED;..} else {..
0ec0: 20 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b 65 dprintf("Aske
0ed0: 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 d to wait for a
0ee0: 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 TLS handshake th
0ef0: 61 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 at has already f
0f00: 61 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e ailed. Returnin
0f10: 67 20 73 6f 66 74 20 65 72 72 6f 72 22 29 3b 0a g soft error");.
0f20: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
0f30: 74 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b tr = ECONNRESET;
0f40: 0a 09 7d 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 ..}..Tls_Error(s
0f50: 74 61 74 65 50 74 72 2c 20 22 57 61 69 74 20 66 tatePtr, "Wait f
0f60: 6f 72 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 or failed handsh
0f70: 61 6b 65 22 29 3b 0a 09 72 65 74 75 72 6e 28 2d ake");..return(-
0f80: 31 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 1);. }.. f
0f90: 6f 72 20 28 3b 3b 29 20 7b 0a 09 45 52 52 5f 63 or (;;) {..ERR_c
0fa0: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 lear_error();...
0fb0: 2f 2a 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a /* Not initializ
0fc0: 65 64 20 79 65 74 21 20 41 6c 73 6f 20 63 61 6c ed yet! Also cal
0fd0: 6c 73 20 53 53 4c 5f 64 6f 5f 68 61 6e 64 73 68 ls SSL_do_handsh
0fe0: 61 6b 65 2e 20 2a 2f 0a 09 69 66 20 28 73 74 61 ake. */..if (sta
0ff0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 tePtr->flags & T
1000: 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b LS_TCL_SERVER) {
1010: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
1020: 61 6c 6c 69 6e 67 20 53 53 4c 5f 61 63 63 65 70 alling SSL_accep
1030: 74 28 29 22 29 3b 0a 09 20 20 20 20 65 72 72 20 t()");.. err
1040: 3d 20 53 53 4c 5f 61 63 63 65 70 74 28 73 74 61 = SSL_accept(sta
1050: 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 0a 09 7d tePtr->ssl);...}
1060: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 else {.. dpr
1070: 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 53 intf("Calling SS
1080: 4c 5f 63 6f 6e 6e 65 63 74 28 29 22 29 3b 0a 09 L_connect()");..
1090: 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 63 6f err = SSL_co
10a0: 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d 3e nnect(statePtr->
10b0: 73 73 6c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 65 ssl);..}...if (e
10c0: 72 72 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 64 rr > 0) {.. d
10d0: 70 72 69 6e 74 66 28 22 41 63 63 65 70 74 20 6f printf("Accept o
10e0: 72 20 63 6f 6e 6e 65 63 74 20 77 61 73 20 73 75 r connect was su
10f0: 63 63 65 73 73 66 75 6c 22 29 3b 0a 0a 09 20 20 ccessful");...
1100: 20 20 65 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 err = BIO_flus
1110: 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 h(statePtr->bio)
1120: 3b 0a 09 20 20 20 20 69 66 20 28 65 72 72 20 3c ;.. if (err <
1130: 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 = 0) {...dprintf
1140: 28 22 46 6c 75 73 68 69 6e 67 20 74 68 65 20 6c ("Flushing the l
1150: 6f 77 65 72 20 6c 61 79 65 72 73 20 66 61 69 6c ower layers fail
1160: 65 64 2c 20 74 68 69 73 20 77 69 6c 6c 20 70 72 ed, this will pr
1170: 6f 62 61 62 6c 79 20 74 65 72 6d 69 6e 61 74 65 obably terminate
1180: 20 74 68 69 73 20 73 65 73 73 69 6f 6e 22 29 3b this session");
1190: 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 .. }..} else
11a0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
11b0: 41 63 63 65 70 74 20 6f 72 20 63 6f 6e 6e 65 63 Accept or connec
11c0: 74 20 66 61 69 6c 65 64 22 29 3b 0a 09 7d 0a 0a t failed");..}..
11d0: 09 72 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 .rc = SSL_get_er
11e0: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ror(statePtr->ss
11f0: 6c 2c 20 65 72 72 29 3b 0a 09 62 61 63 6b 69 6e l, err);..backin
1200: 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 74 gError = ERR_get
1210: 5f 65 72 72 6f 72 28 29 3b 0a 09 69 66 20 28 72 _error();..if (r
1220: 63 20 21 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 4e c != SSL_ERROR_N
1230: 4f 4e 45 29 20 7b 0a 09 20 20 20 20 64 70 72 69 ONE) {.. dpri
1240: 6e 74 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 ntf("Got error:
1250: 25 69 20 28 72 63 20 3d 20 25 69 29 22 2c 20 65 %i (rc = %i)", e
1260: 72 72 2c 20 72 63 29 3b 0a 09 20 20 20 20 64 70 rr, rc);.. dp
1270: 72 69 6e 74 66 28 22 47 6f 74 20 65 72 72 6f 72 rintf("Got error
1280: 3a 20 25 73 22 2c 20 47 45 54 5f 45 52 52 5f 52 : %s", GET_ERR_R
1290: 45 41 53 4f 4e 28 29 29 3b 0a 09 7d 0a 0a 09 62 EASON());..}...b
12a0: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 ioShouldRetry =
12b0: 30 3b 0a 09 69 66 20 28 65 72 72 20 3c 3d 20 30 0;..if (err <= 0
12c0: 29 20 7b 0a 09 20 20 20 20 69 66 20 28 72 63 20 ) {.. if (rc
12d0: 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e == SSL_ERROR_WAN
12e0: 54 5f 43 4f 4e 4e 45 43 54 20 7c 7c 20 72 63 20 T_CONNECT || rc
12f0: 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e == SSL_ERROR_WAN
1300: 54 5f 41 43 43 45 50 54 20 7c 7c 20 72 63 20 3d T_ACCEPT || rc =
1310: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 = SSL_ERROR_WANT
1320: 5f 52 45 41 44 20 7c 7c 20 72 63 20 3d 3d 20 53 _READ || rc == S
1330: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
1340: 49 54 45 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 ITE) {...bioShou
1350: 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 ldRetry = 1;..
1360: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 42 49 4f } else if (BIO
1370: 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 _should_retry(st
1380: 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a atePtr->bio)) {.
1390: 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 ..bioShouldRetry
13a0: 20 3d 20 31 3b 0a 09 20 20 20 20 7d 20 65 6c 73 = 1;.. } els
13b0: 65 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f e if (rc == SSL_
13c0: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 20 26 26 ERROR_SYSCALL &&
13d0: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 20 Tcl_GetErrno()
13e0: 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09 09 62 == EAGAIN) {...b
13f0: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 ioShouldRetry =
1400: 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 1;.. }..} els
1410: 65 20 7b 0a 09 20 20 20 20 69 66 20 28 21 53 53 e {.. if (!SS
1420: 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 L_is_init_finish
1430: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ed(statePtr->ssl
1440: 29 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 )) {...bioShould
1450: 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 20 Retry = 1;..
1460: 7d 0a 09 7d 0a 0a 09 69 66 20 28 62 69 6f 53 68 }..}...if (bioSh
1470: 6f 75 6c 64 52 65 74 72 79 29 20 7b 0a 09 20 20 ouldRetry) {..
1480: 20 20 64 70 72 69 6e 74 66 28 22 54 68 65 20 49 dprintf("The I
1490: 2f 4f 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c /O did not compl
14a0: 65 74 65 20 2d 2d 20 62 75 74 20 77 65 20 73 68 ete -- but we sh
14b0: 6f 75 6c 64 20 74 72 79 20 69 74 20 61 67 61 69 ould try it agai
14c0: 6e 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 73 n");... if (s
14d0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
14e0: 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 TLS_TCL_ASYNC)
14f0: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 52 65 74 {...dprintf("Ret
1500: 75 72 6e 69 6e 67 20 45 41 47 41 49 4e 20 73 6f urning EAGAIN so
1510: 20 74 68 61 74 20 69 74 20 63 61 6e 20 62 65 20 that it can be
1520: 72 65 74 72 69 65 64 20 6c 61 74 65 72 22 29 3b retried later");
1530: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
1540: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 72 65 74 = EAGAIN;...ret
1550: 75 72 6e 28 2d 31 29 3b 0a 09 20 20 20 20 7d 20 urn(-1);.. }
1560: 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 else {...dprintf
1570: 28 22 44 6f 69 6e 67 20 73 6f 20 6e 6f 77 22 29 ("Doing so now")
1580: 3b 0a 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 20 ;...continue;..
1590: 20 20 20 7d 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 }..}...dprint
15a0: 66 28 22 57 65 20 68 61 76 65 20 65 69 74 68 65 f("We have eithe
15b0: 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 65 73 74 r completely est
15c0: 61 62 6c 69 73 68 65 64 20 74 68 65 20 73 65 73 ablished the ses
15d0: 73 69 6f 6e 20 6f 72 20 63 6f 6d 70 6c 65 74 65 sion or complete
15e0: 6c 79 20 66 61 69 6c 65 64 20 69 74 20 2d 2d 20 ly failed it --
15f0: 74 68 65 72 65 20 69 73 20 6e 6f 20 6d 6f 72 65 there is no more
1600: 20 6e 65 65 64 20 74 6f 20 65 76 65 72 20 72 65 need to ever re
1610: 74 72 79 20 69 74 20 74 68 6f 75 67 68 22 29 3b try it though");
1620: 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a ..break;. }..
1630: 20 20 20 20 73 77 69 74 63 68 20 28 72 63 29 20 switch (rc)
1640: 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f {..case SSL_ERRO
1650: 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 R_NONE:.. /*
1660: 54 68 65 20 54 4c 53 2f 53 53 4c 20 49 2f 4f 20 The TLS/SSL I/O
1670: 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 operation comple
1680: 74 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 ted */.. dpri
1690: 6e 74 66 28 22 54 68 65 20 63 6f 6e 6e 65 63 74 ntf("The connect
16a0: 69 6f 6e 20 69 73 20 67 6f 6f 64 22 29 3b 0a 09 ion is good");..
16b0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
16c0: 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 72 65 61 r = 0;.. brea
16d0: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
16e0: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
16f0: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 54 4c 53 .. /* The TLS
1700: 2f 53 53 4c 20 70 65 65 72 20 68 61 73 20 63 6c /SSL peer has cl
1710: 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 osed the connect
1720: 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 20 ion for writing
1730: 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 by sending the c
1740: 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 lose_notify aler
1750: 74 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 t */.. dprint
1760: 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 f("SSL_ERROR_ZER
1770: 4f 5f 52 45 54 55 52 4e 3a 20 43 6f 6e 6e 65 63 O_RETURN: Connec
1780: 74 20 72 65 74 75 72 6e 65 64 20 61 6e 20 69 6e t returned an in
1790: 76 61 6c 69 64 20 76 61 6c 75 65 2e 2e 2e 22 29 valid value...")
17a0: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
17b0: 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 ePtr = EINVAL;..
17c0: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
17d0: 61 74 65 50 74 72 2c 20 22 50 65 65 72 20 68 61 atePtr, "Peer ha
17e0: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
17f0: 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 nection for writ
1800: 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 ing by sending t
1810: 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 he close_notify
1820: 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 72 65 alert");.. re
1830: 74 75 72 6e 28 2d 31 29 3b 0a 0a 09 63 61 73 65 turn(-1);...case
1840: 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 SSL_ERROR_SYSCA
1850: 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 LL:.. /* Some
1860: 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 non-recoverable
1870: 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f , fatal I/O erro
1880: 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 r occurred */..
1890: 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f dprintf("SSL_
18a0: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 22 29 3b ERROR_SYSCALL");
18b0: 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63 6b 69 ... if (backi
18c0: 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 ngError == 0 &&
18d0: 65 72 72 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 err == 0) {...dp
18e0: 72 69 6e 74 66 28 22 45 4f 46 20 72 65 61 63 68 rintf("EOF reach
18f0: 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ed")...*errorCod
1900: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 ePtr = ECONNRESE
1910: 54 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 T;...Tls_Error(s
1920: 74 61 74 65 50 74 72 2c 20 22 28 75 6e 65 78 70 tatePtr, "(unexp
1930: 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 68 ected) EOF reach
1940: 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c ed");... } el
1950: 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 se if (backingEr
1960: 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 72 20 ror == 0 && err
1970: 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e == -1) {...dprin
1980: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tf("I/O error oc
1990: 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 curred (errno =
19a0: 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 %lu)", (unsigned
19b0: 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 long) Tcl_GetEr
19c0: 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 rno());...*error
19d0: 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 CodePtr = Tcl_Ge
19e0: 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 20 28 tErrno();...if (
19f0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d *errorCodePtr ==
1a00: 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 ECONNRESET) {..
1a10: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
1a20: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
1a30: 44 3b 0a 09 09 7d 0a 09 09 54 6c 73 5f 45 72 72 D;...}...Tls_Err
1a40: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 63 6c or(statePtr, Tcl
1a50: 5f 45 72 72 6e 6f 4d 73 67 28 54 63 6c 5f 47 65 _ErrnoMsg(Tcl_Ge
1a60: 74 45 72 72 6e 6f 28 29 29 29 3b 0a 0a 09 20 20 tErrno()));...
1a70: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 } else {...dpr
1a80: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
1a90: 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 6e occurred (backin
1aa0: 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20 gError = %lu)",
1ab0: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09 backingError);..
1ac0: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
1ad0: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 09 backingError;..
1ae0: 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 .if (*errorCodeP
1af0: 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 tr == ECONNRESET
1b00: 29 20 7b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 ) {... *error
1b10: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 CodePtr = ECONNA
1b20: 42 4f 52 54 45 44 3b 0a 09 09 7d 0a 09 09 54 6c BORTED;...}...Tl
1b30: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
1b40: 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 , ERR_reason_err
1b50: 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e or_string(backin
1b60: 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d gError));.. }
1b70: 0a 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ... statePtr-
1b80: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
1b90: 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c L_HANDSHAKE_FAIL
1ba0: 45 44 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 28 ED;.. return(
1bb0: 2d 31 29 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f -1);...case SSL_
1bc0: 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 ERROR_SSL:..
1bd0: 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 /* A non-recover
1be0: 61 62 6c 65 2c 20 66 61 74 61 6c 20 65 72 72 6f able, fatal erro
1bf0: 72 20 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62 r in the SSL lib
1c00: 72 61 72 79 20 6f 63 63 75 72 72 65 64 2c 20 75 rary occurred, u
1c10: 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 6f 63 6f sually a protoco
1c20: 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 l error */..
1c30: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
1c40: 4f 52 5f 53 53 4c 3a 20 47 6f 74 20 70 65 72 6d OR_SSL: Got perm
1c50: 61 6e 65 6e 74 20 66 61 74 61 6c 20 53 53 4c 20 anent fatal SSL
1c60: 65 72 72 6f 72 2c 20 61 62 6f 72 74 69 6e 67 20 error, aborting
1c70: 69 6d 6d 65 64 69 61 74 65 6c 79 22 29 3b 0a 09 immediately");..
1c80: 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 if (backingE
1c90: 72 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 rror != 0) {...T
1ca0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
1cb0: 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 r, ERR_reason_er
1cc0: 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 ror_string(backi
1cd0: 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 ngError));..
1ce0: 7d 0a 09 20 20 20 20 69 66 20 28 53 53 4c 5f 67 }.. if (SSL_g
1cf0: 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 et_verify_result
1d00: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 (statePtr->ssl)
1d10: 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a != X509_V_OK) {.
1d20: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
1d30: 65 50 74 72 2c 20 58 35 30 39 5f 76 65 72 69 66 ePtr, X509_verif
1d40: 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 y_cert_error_str
1d50: 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 ing(SSL_get_veri
1d60: 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 fy_result(stateP
1d70: 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 20 tr->ssl)));..
1d80: 20 7d 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 }.. statePtr
1d90: 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 ->flags |= TLS_T
1da0: 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 CL_HANDSHAKE_FAI
1db0: 4c 45 44 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 LED;.. *error
1dc0: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 CodePtr = ECONNA
1dd0: 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 72 65 74 BORTED;.. ret
1de0: 75 72 6e 28 2d 31 29 3b 0a 0a 09 63 61 73 65 20 urn(-1);...case
1df0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 SSL_ERROR_WANT_C
1e00: 4f 4e 4e 45 43 54 3a 0a 09 63 61 73 65 20 53 53 ONNECT:..case SS
1e10: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 L_ERROR_WANT_ACC
1e20: 45 50 54 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 EPT:..case SSL_E
1e30: 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c RROR_WANT_X509_L
1e40: 4f 4f 4b 55 50 3a 0a 09 63 61 73 65 20 53 53 4c OOKUP:..case SSL
1e50: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e _ERROR_WANT_ASYN
1e60: 43 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 C:..case SSL_ERR
1e70: 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 5f 4a 4f OR_WANT_ASYNC_JO
1e80: 42 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 B:..case SSL_ERR
1e90: 4f 52 5f 57 41 4e 54 5f 43 4c 49 45 4e 54 5f 48 OR_WANT_CLIENT_H
1ea0: 45 4c 4c 4f 5f 43 42 3a 0a 09 64 65 66 61 75 6c ELLO_CB:..defaul
1eb0: 74 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f t:.. /* The o
1ec0: 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 peration did not
1ed0: 20 63 6f 6d 70 6c 65 74 65 20 61 6e 64 20 63 61 complete and ca
1ee0: 6e 20 62 65 20 72 65 74 72 69 65 64 20 6c 61 74 n be retried lat
1ef0: 65 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 er. */.. dpri
1f00: 6e 74 66 28 22 4f 70 65 72 61 74 69 6f 6e 20 64 ntf("Operation d
1f10: 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 2c id not complete,
1f20: 20 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 call function a
1f30: 67 61 69 6e 20 6c 61 74 65 72 3a 20 25 69 22 2c gain later: %i",
1f40: 20 72 63 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f rc);.. *erro
1f50: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
1f60: 4e 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 N;.. dprintf(
1f70: 22 45 52 52 28 25 64 2c 20 25 64 29 20 22 2c 20 "ERR(%d, %d) ",
1f80: 72 63 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 rc, *errorCodePt
1f90: 72 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 r);.. Tls_Err
1fa0: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 4f 70 or(statePtr, "Op
1fb0: 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 eration did not
1fc0: 63 6f 6d 70 6c 65 74 65 2c 20 63 61 6c 6c 20 66 complete, call f
1fd0: 75 6e 63 74 69 6f 6e 20 61 67 61 69 6e 20 6c 61 unction again la
1fe0: 74 65 72 22 29 3b 0a 09 20 20 20 20 72 65 74 75 ter");.. retu
1ff0: 72 6e 28 2d 31 29 3b 0a 20 20 20 20 7d 0a 0a 20 rn(-1);. }..
2000: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 6d 6f dprintf("Remo
2010: 76 69 6e 67 20 74 68 65 20 5c 22 54 4c 53 5f 54 ving the \"TLS_T
2020: 43 4c 5f 49 4e 49 54 5c 22 20 66 6c 61 67 20 73 CL_INIT\" flag s
2030: 69 6e 63 65 20 77 65 20 68 61 76 65 20 63 6f 6d ince we have com
2040: 70 6c 65 74 65 64 20 74 68 65 20 68 61 6e 64 73 pleted the hands
2050: 68 61 6b 65 22 29 3b 0a 20 20 20 20 73 74 61 74 hake");. stat
2060: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e ePtr->flags &= ~
2070: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b 0a 0a 20 TLS_TCL_INIT;..
2080: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 dprintf("Retu
2090: 72 6e 69 6e 67 20 69 6e 20 73 75 63 63 65 73 73 rning in success
20a0: 22 29 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f ");. *errorCo
20b0: 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 72 dePtr = 0;. r
20c0: 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a eturn(0);.}../*.
20d0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
20e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2110: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 49 -----. *. * TlsI
2120: 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 nputProc --. *.
2130: 2a 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 64 * This proced
2140: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 ure is invoked b
2150: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f y the generic IO
2160: 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 level. *
2170: 74 6f 20 72 65 61 64 20 69 6e 70 75 74 20 66 72 to read input fr
2180: 6f 6d 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 om a SSL socket
2190: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 based channel..
21a0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
21b0: 20 20 20 20 52 65 74 75 72 6e 73 20 74 68 65 20 Returns the
21c0: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 number of bytes
21d0: 72 65 61 64 20 6f 72 20 2d 31 20 6f 6e 20 65 72 read or -1 on er
21e0: 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f 72 43 ror. Sets errorC
21f0: 6f 64 65 50 74 72 0a 20 2a 20 20 20 20 74 6f 20 odePtr. * to
2200: 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f a POSIX error co
2210: 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f de if an error o
2220: 63 63 75 72 72 65 64 2c 20 6f 72 20 30 20 69 66 ccurred, or 0 if
2230: 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 none.. *. * Sid
2240: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 e effects:. *
2250: 20 52 65 61 64 73 20 69 6e 70 75 74 20 66 72 6f Reads input fro
2260: 6d 20 74 68 65 20 69 6e 70 75 74 20 64 65 76 69 m the input devi
2270: 63 65 20 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 ce of the channe
2280: 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d l.. *. *--------
2290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
22d0: 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 49 6e static int TlsIn
22e0: 70 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 putProc(ClientDa
22f0: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
2300: 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 char *buf, int
2310: 62 75 66 53 69 7a 65 2c 20 69 6e 74 20 2a 65 72 bufSize, int *er
2320: 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 20 rorCodePtr) {.
2330: 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 unsigned long
2340: 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 20 backingError;.
2350: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
2360: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
2370: 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 stanceData;.
2380: 69 6e 74 20 62 79 74 65 73 52 65 61 64 3b 0a 20 int bytesRead;.
2390: 20 20 20 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 int tlsConnec
23a0: 74 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 3b 0a t;. int err;.
23b0: 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
23c0: 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 tr = 0;.. dpr
23d0: 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 28 25 intf("BIO_read(%
23e0: 64 29 22 2c 20 62 75 66 53 69 7a 65 29 3b 0a 0a d)", bufSize);..
23f0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
2400: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
2410: 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 2f L_CALLBACK) {../
2420: 2a 20 64 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 * don't process
2430: 61 6e 79 20 62 79 74 65 73 20 77 68 69 6c 65 20 any bytes while
2440: 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 verify callback
2450: 69 73 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 09 64 is running */..d
2460: 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b printf("Callback
2470: 20 69 73 20 72 75 6e 6e 69 6e 67 2c 20 72 65 61 is running, rea
2480: 64 69 6e 67 20 30 20 62 79 74 65 73 22 29 3b 0a ding 0 bytes");.
2490: 09 72 65 74 75 72 6e 28 30 29 3b 0a 20 20 20 20 .return(0);.
24a0: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
24b0: 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 Calling Tls_Wait
24c0: 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 20 20 ForConnect");.
24d0: 20 20 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 tlsConnect = T
24e0: 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 ls_WaitForConnec
24f0: 74 28 73 74 61 74 65 50 74 72 2c 20 65 72 72 6f t(statePtr, erro
2500: 72 43 6f 64 65 50 74 72 2c 20 30 29 3b 0a 20 20 rCodePtr, 0);.
2510: 20 20 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 if (tlsConnect
2520: 20 3c 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 < 0) {..dprintf
2530: 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 ("Got an error w
2540: 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 aiting to connec
2550: 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 t (tlsConnect =
2560: 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 %i, *errorCodePt
2570: 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e r = %i)", tlsCon
2580: 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 65 nect, *errorCode
2590: 50 74 72 29 3b 0a 09 54 6c 73 5f 45 72 72 6f 72 Ptr);..Tls_Error
25a0: 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 65 72 (statePtr, strer
25b0: 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 ror(*errorCodePt
25c0: 72 29 29 3b 0a 0a 09 62 79 74 65 73 52 65 61 64 r));...bytesRead
25d0: 20 3d 20 2d 31 3b 0a 09 69 66 20 28 2a 65 72 72 = -1;..if (*err
25e0: 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f orCodePtr == ECO
25f0: 4e 4e 52 45 53 45 54 29 20 7b 0a 09 20 20 20 20 NNRESET) {..
2600: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e dprintf("Got con
2610: 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 22 29 3b nection reset");
2620: 0a 09 20 20 20 20 2f 2a 20 53 6f 66 74 20 45 4f .. /* Soft EO
2630: 46 20 2a 2f 0a 09 20 20 20 20 2a 65 72 72 6f 72 F */.. *error
2640: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 CodePtr = 0;..
2650: 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b bytesRead = 0;
2660: 0a 09 7d 0a 09 72 65 74 75 72 6e 28 62 79 74 65 ..}..return(byte
2670: 73 52 65 61 64 29 3b 0a 20 20 20 20 7d 0a 0a 20 sRead);. }..
2680: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 65 20 /*. * We
2690: 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 20 74 68 need to clear th
26a0: 65 20 53 53 4c 20 65 72 72 6f 72 20 73 74 61 63 e SSL error stac
26b0: 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 20 77 65 k now because we
26c0: 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 61 63 68 sometimes reach
26d0: 0a 20 20 20 20 20 2a 20 74 68 69 73 20 66 75 6e . * this fun
26e0: 63 74 69 6f 6e 20 77 69 74 68 20 6c 65 66 74 6f ction with lefto
26f0: 76 65 72 20 65 72 72 6f 72 73 20 69 6e 20 74 68 ver errors in th
2700: 65 20 73 74 61 63 6b 2e 20 20 49 66 20 42 49 4f e stack. If BIO
2710: 5f 72 65 61 64 0a 20 20 20 20 20 2a 20 72 65 74 _read. * ret
2720: 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 6e 74 65 urns -1 and inte
2730: 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 68 65 72 nds EAGAIN, ther
2740: 65 20 69 73 20 61 20 6c 65 66 74 6f 76 65 72 20 e is a leftover
2750: 65 72 72 6f 72 2c 20 69 74 20 77 69 6c 6c 20 62 error, it will b
2760: 65 0a 20 20 20 20 20 2a 20 6d 69 73 63 6f 6e 73 e. * miscons
2770: 74 72 75 65 64 20 61 73 20 61 6e 20 65 72 72 6f trued as an erro
2780: 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a 20 r, not EAGAIN..
2790: 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 41 6c 74 *. * Alt
27a0: 65 72 6e 61 74 69 76 65 6c 79 2c 20 77 65 20 6d ernatively, we m
27b0: 61 79 20 77 61 6e 74 20 74 6f 20 68 61 6e 64 6c ay want to handl
27c0: 65 20 74 68 65 20 3c 30 20 72 65 74 75 72 6e 20 e the <0 return
27d0: 63 6f 64 65 73 20 66 72 6f 6d 0a 20 20 20 20 20 codes from.
27e0: 2a 20 42 49 4f 5f 72 65 61 64 20 73 70 65 63 69 * BIO_read speci
27f0: 61 6c 6c 79 20 28 61 73 20 61 64 76 69 73 65 64 ally (as advised
2800: 20 69 6e 20 74 68 65 20 52 53 41 20 64 6f 63 73 in the RSA docs
2810: 29 2e 20 20 54 4c 53 27 73 20 6c 6f 77 65 72 20 ). TLS's lower
2820: 6c 65 76 65 6c 20 42 49 4f 0a 20 20 20 20 20 2a level BIO. *
2830: 20 66 75 6e 63 74 69 6f 6e 73 20 70 6c 61 79 20 functions play
2840: 77 69 74 68 20 74 68 65 20 72 65 74 72 79 20 66 with the retry f
2850: 6c 61 67 73 20 74 68 6f 75 67 68 2c 20 61 6e 64 lags though, and
2860: 20 74 68 69 73 20 73 65 65 6d 73 20 74 6f 20 77 this seems to w
2870: 6f 72 6b 0a 20 20 20 20 20 2a 20 63 6f 72 72 65 ork. * corre
2880: 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61 72 20 66 ctly. Similar f
2890: 69 78 20 69 6e 20 54 6c 73 4f 75 74 70 75 74 50 ix in TlsOutputP
28a0: 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a 20 20 20 roc. - hobbs.
28b0: 20 20 2a 2f 0a 20 20 20 20 45 52 52 5f 63 6c 65 */. ERR_cle
28c0: 61 72 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 20 ar_error();.
28d0: 62 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f 5f bytesRead = BIO_
28e0: 72 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 read(statePtr->b
28f0: 69 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a 65 io, buf, bufSize
2900: 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 );. dprintf("
2910: 42 49 4f 5f 72 65 61 64 20 2d 3e 20 25 64 22 2c BIO_read -> %d",
2920: 20 62 79 74 65 73 52 65 61 64 29 3b 0a 0a 20 20 bytesRead);..
2930: 20 20 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f err = SSL_get_
2940: 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e error(statePtr->
2950: 73 73 6c 2c 20 62 79 74 65 73 52 65 61 64 29 3b ssl, bytesRead);
2960: 0a 20 20 20 20 62 61 63 6b 69 6e 67 45 72 72 6f . backingErro
2970: 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f r = ERR_get_erro
2980: 72 28 29 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 r();..#if 0.
2990: 69 66 20 28 62 79 74 65 73 52 65 61 64 20 3c 3d if (bytesRead <=
29a0: 20 30 29 20 7b 0a 09 69 66 20 28 42 49 4f 5f 73 0) {..if (BIO_s
29b0: 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 hould_retry(stat
29c0: 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 ePtr->bio)) {..
29d0: 20 20 20 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 dprintf("I/O
29e0: 66 61 69 6c 65 64 2c 20 77 69 6c 6c 20 72 65 74 failed, will ret
29f0: 72 79 20 62 61 73 65 64 20 6f 6e 20 45 41 47 41 ry based on EAGA
2a00: 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f IN");.. *erro
2a10: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
2a20: 4e 3b 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 N;..}. }.#end
2a30: 69 66 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 if.. switch (
2a40: 65 72 72 29 20 7b 0a 09 63 61 73 65 20 53 53 4c err) {..case SSL
2a50: 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 _ERROR_NONE:..
2a60: 20 20 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 dprintBuffer(b
2a70: 75 66 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a uf, bytesRead);.
2a80: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
2a90: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c se SSL_ERROR_SSL
2aa0: 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d :.. /* A non-
2ab0: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
2ac0: 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 al error in the
2ad0: 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 75 SSL library occu
2ae0: 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 rred, usually a
2af0: 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a protocol error *
2b00: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
2b10: 53 53 4c 20 65 72 72 6f 72 2c 20 69 6e 64 69 63 SSL error, indic
2b20: 61 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 63 ating that the c
2b30: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 65 onnection has be
2b40: 65 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 09 20 en aborted");..
2b50: 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 if (backingEr
2b60: 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c ror != 0) {...Tl
2b70: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
2b80: 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 , ERR_reason_err
2b90: 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e or_string(backin
2ba0: 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d gError));.. }
2bb0: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
2bc0: 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 Ptr = ECONNABORT
2bd0: 45 44 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 ED;.. bytesRe
2be0: 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 62 72 ad = -1;.. br
2bf0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
2c00: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 ERROR_SYSCALL:..
2c10: 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d /* Some non-
2c20: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
2c30: 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 al I/O error occ
2c40: 75 72 72 65 64 20 2a 2f 0a 0a 09 20 20 20 20 69 urred */... i
2c50: 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 f (backingError
2c60: 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 == 0 && bytesRea
2c70: 64 20 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 55 d == 0) {.../* U
2c80: 6e 65 78 70 65 63 74 65 64 20 45 4f 46 20 66 72 nexpected EOF fr
2c90: 6f 6d 20 74 68 65 20 70 65 65 72 20 66 6f 72 20 om the peer for
2ca0: 4f 70 65 6e 53 53 4c 20 31 2e 31 20 2a 2f 0a 09 OpenSSL 1.1 */..
2cb0: 09 64 70 72 69 6e 74 66 28 22 28 55 6e 65 78 70 .dprintf("(Unexp
2cc0: 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 68 ected) EOF reach
2cd0: 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ed")...*errorCod
2ce0: 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 ePtr = 0;...byte
2cf0: 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 54 6c 73 sRead = 0;...Tls
2d00: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
2d10: 20 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b "EOF reached");
2d20: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
2d30: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d (backingError =
2d40: 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 = 0 && bytesRead
2d50: 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 == -1) {...dpri
2d60: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
2d70: 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d ccurred (errno =
2d80: 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 %lu)", (unsigne
2d90: 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 d long) Tcl_GetE
2da0: 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f rrno());...*erro
2db0: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
2dc0: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79 74 etErrno();...byt
2dd0: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 54 esRead = -1;...T
2de0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2df0: 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 r, Tcl_ErrnoMsg(
2e00: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 29 Tcl_GetErrno()))
2e10: 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;... } else {
2e20: 0a 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 ...dprintf("I/O
2e30: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 error occurred (
2e40: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 backingError = %
2e50: 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 lu)", backingErr
2e60: 6f 72 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 or);...*errorCod
2e70: 65 50 74 72 20 3d 20 62 61 63 6b 69 6e 67 45 72 ePtr = backingEr
2e80: 72 6f 72 3b 0a 09 09 62 79 74 65 73 52 65 61 64 ror;...bytesRead
2e90: 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 = -1;...Tls_Err
2ea0: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 or(statePtr, ERR
2eb0: 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 _reason_error_st
2ec0: 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f ring(backingErro
2ed0: 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 r));.. }..
2ee0: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
2ef0: 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 SL_ERROR_ZERO_RE
2f00: 54 55 52 4e 3a 0a 09 20 20 20 20 64 70 72 69 6e TURN:.. dprin
2f10: 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f tf("Got SSL_ERRO
2f20: 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 2c 20 74 R_ZERO_RETURN, t
2f30: 68 69 73 20 6d 65 61 6e 73 20 61 6e 20 45 4f 46 his means an EOF
2f40: 20 68 61 73 20 62 65 65 6e 20 72 65 61 63 68 65 has been reache
2f50: 64 22 29 3b 0a 09 20 20 20 20 62 79 74 65 73 52 d");.. bytesR
2f60: 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65 ead = 0;.. *e
2f70: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
2f80: 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 .. Tls_Error(
2f90: 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 72 20 statePtr, "Peer
2fa0: 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 has closed the c
2fb0: 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 onnection for wr
2fc0: 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 iting by sending
2fd0: 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 the close_notif
2fe0: 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 y alert");..
2ff0: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
3000: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 L_ERROR_WANT_REA
3010: 44 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 D:.. dprintf(
3020: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
3030: 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e ANT_READ, mappin
3040: 67 20 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e g this to EAGAIN
3050: 22 29 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 ");.. bytesRe
3060: 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 2a 65 ad = -1;.. *e
3070: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
3080: 47 41 49 4e 3b 0a 09 20 20 20 20 54 6c 73 5f 45 GAIN;.. Tls_E
3090: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 rror(statePtr, "
30a0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 SSL_ERROR_WANT_R
30b0: 45 41 44 22 29 3b 0a 09 20 20 20 20 62 72 65 61 EAD");.. brea
30c0: 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 k;...default:..
30d0: 20 20 20 64 70 72 69 6e 74 66 28 22 55 6e 6b 6e dprintf("Unkn
30e0: 6f 77 6e 20 65 72 72 6f 72 20 28 65 72 72 20 3d own error (err =
30f0: 20 25 69 29 2c 20 6d 61 70 70 69 6e 67 20 74 6f %i), mapping to
3100: 20 45 4f 46 22 2c 20 65 72 72 29 3b 0a 09 20 20 EOF", err);..
3110: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
3120: 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 65 73 52 = 0;.. bytesR
3130: 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 62 72 ead = 0;.. br
3140: 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 eak;. }..
3150: 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 if (*errorCodePt
3160: 72 20 3c 20 30 29 20 7b 0a 09 54 6c 73 5f 45 72 r < 0) {..Tls_Er
3170: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 74 ror(statePtr, st
3180: 72 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 rerror(*errorCod
3190: 65 50 74 72 29 29 3b 0a 20 20 20 20 7d 0a 20 20 ePtr));. }.
31a0: 20 20 64 70 72 69 6e 74 66 28 22 49 6e 70 75 74 dprintf("Input
31b0: 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 64 5d 22 (%d) -> %d [%d]"
31c0: 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 74 65 73 , bufSize, bytes
31d0: 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 6f 64 65 Read, *errorCode
31e0: 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Ptr);. return
31f0: 28 62 79 74 65 73 52 65 61 64 29 3b 0a 7d 0a 0a (bytesRead);.}..
3200: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
3210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3240: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
3250: 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a lsOutputProc --.
3260: 20 2a 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 *. * This pr
3270: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b ocedure is invok
3280: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
3290: 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 c IO level. *
32a0: 20 20 20 20 74 6f 20 77 72 69 74 65 20 6f 75 74 to write out
32b0: 70 75 74 20 74 6f 20 61 20 53 53 4c 20 73 6f 63 put to a SSL soc
32c0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
32d0: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 l.. *. * Results
32e0: 3a 0a 20 2a 20 20 20 20 52 65 74 75 72 6e 73 20 :. * Returns
32f0: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 the number of by
3300: 74 65 73 20 77 72 69 74 74 65 6e 20 6f 72 20 2d tes written or -
3310: 31 20 6f 6e 20 65 72 72 6f 72 2e 20 53 65 74 73 1 on error. Sets
3320: 20 65 72 72 6f 72 43 6f 64 65 50 74 72 0a 20 2a errorCodePtr. *
3330: 20 20 20 20 74 6f 20 61 20 50 4f 53 49 58 20 65 to a POSIX e
3340: 72 72 6f 72 20 63 6f 64 65 20 69 66 20 61 6e 20 rror code if an
3350: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 error occurred,
3360: 6f 72 20 30 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a or 0 if none.. *
3370: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
3380: 3a 0a 20 2a 20 20 20 20 57 72 69 74 65 73 20 6f :. * Writes o
3390: 75 74 70 75 74 20 6f 6e 20 74 68 65 20 6f 75 74 utput on the out
33a0: 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 74 68 put device of th
33b0: 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a e channel.. *. *
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3400: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
3410: 6e 74 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 nt TlsOutputProc
3420: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
3430: 61 6e 63 65 44 61 74 61 2c 20 63 6f 6e 73 74 20 anceData, const
3440: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 char *buf, int t
3450: 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 72 72 oWrite, int *err
3460: 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 orCodePtr) {.
3470: 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 62 unsigned long b
3480: 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 20 20 ackingError;.
3490: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
34a0: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 = (State *) ins
34b0: 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 69 tanceData;. i
34c0: 6e 74 20 77 72 69 74 74 65 6e 2c 20 65 72 72 3b nt written, err;
34d0: 0a 20 20 20 20 69 6e 74 20 74 6c 73 43 6f 6e 6e . int tlsConn
34e0: 65 63 74 3b 0a 0a 20 20 20 20 2a 65 72 72 6f 72 ect;.. *error
34f0: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 CodePtr = 0;..
3500: 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 dprintf("BIO_w
3510: 72 69 74 65 28 25 70 2c 20 25 64 29 22 2c 20 28 rite(%p, %d)", (
3520: 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 void *) statePtr
3530: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20 20 20 , toWrite);.
3540: 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 75 66 dprintBuffer(buf
3550: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 0a 20 20 20 , toWrite);..
3560: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
3570: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 lags & TLS_TCL_C
3580: 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 ALLBACK) {..dpri
3590: 6e 74 66 28 22 44 6f 6e 27 74 20 70 72 6f 63 65 ntf("Don't proce
35a0: 73 73 20 6f 75 74 70 75 74 20 77 68 69 6c 65 20 ss output while
35b0: 63 61 6c 6c 62 61 63 6b 73 20 61 72 65 20 72 75 callbacks are ru
35c0: 6e 6e 69 6e 67 22 29 3b 0a 09 77 72 69 74 74 65 nning");..writte
35d0: 6e 20 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f 72 43 n = -1;..*errorC
35e0: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
35f0: 0a 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 20 20 ..return(-1);.
3600: 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 }.. dprintf
3610: 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 ("Calling Tls_Wa
3620: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a itForConnect");.
3630: 20 20 20 20 74 6c 73 43 6f 6e 6e 65 63 74 20 3d tlsConnect =
3640: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
3650: 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 72 ect(statePtr, er
3660: 72 6f 72 43 6f 64 65 50 74 72 2c 20 31 29 3b 0a rorCodePtr, 1);.
3670: 20 20 20 20 69 66 20 28 74 6c 73 43 6f 6e 6e 65 if (tlsConne
3680: 63 74 20 3c 20 30 29 20 7b 0a 09 64 70 72 69 6e ct < 0) {..dprin
3690: 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 tf("Got an error
36a0: 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e waiting to conn
36b0: 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 ect (tlsConnect
36c0: 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 = %i, *errorCode
36d0: 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 Ptr = %i)", tlsC
36e0: 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43 6f onnect, *errorCo
36f0: 64 65 50 74 72 29 3b 0a 09 54 6c 73 5f 45 72 72 dePtr);..Tls_Err
3700: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 or(statePtr, str
3710: 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 error(*errorCode
3720: 50 74 72 29 29 3b 0a 0a 09 77 72 69 74 74 65 6e Ptr));...written
3730: 20 3d 20 2d 31 3b 0a 09 69 66 20 28 2a 65 72 72 = -1;..if (*err
3740: 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f orCodePtr == ECO
3750: 4e 4e 52 45 53 45 54 29 20 7b 0a 09 20 20 20 20 NNRESET) {..
3760: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e dprintf("Got con
3770: 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 22 29 3b nection reset");
3780: 0a 09 20 20 20 20 2f 2a 20 53 6f 66 74 20 45 4f .. /* Soft EO
3790: 46 20 2a 2f 0a 09 20 20 20 20 2a 65 72 72 6f 72 F */.. *error
37a0: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 CodePtr = 0;..
37b0: 20 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 written = 0;..
37c0: 7d 0a 09 72 65 74 75 72 6e 28 77 72 69 74 74 65 }..return(writte
37d0: 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 n);. }.. i
37e0: 66 20 28 74 6f 57 72 69 74 65 20 3d 3d 20 30 29 f (toWrite == 0)
37f0: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 7a 65 72 {..dprintf("zer
3800: 6f 2d 77 72 69 74 65 22 29 3b 0a 09 65 72 72 20 o-write");..err
3810: 3d 20 42 49 4f 5f 66 6c 75 73 68 28 73 74 61 74 = BIO_flush(stat
3820: 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 0a 09 69 66 ePtr->bio);...if
3830: 20 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 20 (err <= 0) {..
3840: 20 20 20 64 70 72 69 6e 74 66 28 22 46 6c 75 73 dprintf("Flus
3850: 68 69 6e 67 20 66 61 69 6c 65 64 22 29 3b 0a 0a hing failed");..
3860: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3870: 74 72 20 3d 20 45 49 4f 3b 0a 09 20 20 20 20 77 tr = EIO;.. w
3880: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 ritten = 0;..
3890: 20 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a return(-1);..}.
38a0: 0a 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 ..written = 0;..
38b0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
38c0: 30 3b 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 20 0;..return(0);.
38d0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 }.. /*.
38e0: 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 * We need to c
38f0: 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 lear the SSL err
3900: 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 or stack now bec
3910: 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 ause we sometime
3920: 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a 20 74 s reach. * t
3930: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 his function wit
3940: 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 h leftover error
3950: 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 s in the stack.
3960: 20 49 66 20 42 49 4f 5f 77 72 69 74 65 0a 20 20 If BIO_write.
3970: 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 * returns -1
3980: 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 and intends EAGA
3990: 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c IN, there is a l
39a0: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 eftover error, i
39b0: 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a t will be. *
39c0: 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 misconstrued as
39d0: 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 an error, not E
39e0: 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 AGAIN.. *.
39f0: 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 * Alternative
3a00: 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 20 ly, we may want
3a10: 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 to handle the <0
3a20: 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 72 return codes fr
3a30: 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f 77 72 om. * BIO_wr
3a40: 69 74 65 20 73 70 65 63 69 61 6c 6c 79 20 28 61 ite specially (a
3a50: 73 20 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 s advised in the
3a60: 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 RSA docs). TLS
3a70: 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c 0a 20 's lower level.
3a80: 20 20 20 20 2a 20 42 49 4f 20 66 75 6e 63 74 69 * BIO functi
3a90: 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 20 74 68 ons play with th
3aa0: 65 20 72 65 74 72 79 20 66 6c 61 67 73 20 74 68 e retry flags th
3ab0: 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 73 20 73 ough, and this s
3ac0: 65 65 6d 73 20 74 6f 0a 20 20 20 20 20 2a 20 77 eems to. * w
3ad0: 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 ork correctly.
3ae0: 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 54 Similar fix in T
3af0: 6c 73 49 6e 70 75 74 50 72 6f 63 2e 20 2d 20 68 lsInputProc. - h
3b00: 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 obbs. */.
3b10: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 ERR_clear_error
3b20: 28 29 3b 0a 20 20 20 20 77 72 69 74 74 65 6e 20 ();. written
3b30: 3d 20 42 49 4f 5f 77 72 69 74 65 28 73 74 61 74 = BIO_write(stat
3b40: 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 ePtr->bio, buf,
3b50: 74 6f 57 72 69 74 65 29 3b 0a 20 20 20 20 64 70 toWrite);. dp
3b60: 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 69 74 65 rintf("BIO_write
3b70: 28 25 70 2c 20 25 64 29 20 2d 3e 20 5b 25 64 5d (%p, %d) -> [%d]
3b80: 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 ", (void *) stat
3b90: 65 50 74 72 2c 20 74 6f 57 72 69 74 65 2c 20 77 ePtr, toWrite, w
3ba0: 72 69 74 74 65 6e 29 3b 0a 0a 20 20 20 20 65 72 ritten);.. er
3bb0: 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f r = SSL_get_erro
3bc0: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c r(statePtr->ssl,
3bd0: 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 62 written);. b
3be0: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 ackingError = ER
3bf0: 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a R_get_error();..
3c00: 20 20 20 20 73 77 69 74 63 68 20 28 65 72 72 29 switch (err)
3c10: 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 {..case SSL_ERR
3c20: 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 69 66 OR_NONE:.. if
3c30: 20 28 77 72 69 74 74 65 6e 20 3c 20 30 29 20 7b (written < 0) {
3c40: 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a ...written = 0;.
3c50: 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 65 61 . }.. brea
3c60: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
3c70: 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a ROR_WANT_WRITE:.
3c80: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
3c90: 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 t SSL_ERROR_WANT
3ca0: 5f 57 52 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 _WRITE, mapping
3cb0: 69 74 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a it to EAGAIN");.
3cc0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3cd0: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 tr = EAGAIN;..
3ce0: 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a written = -1;.
3cf0: 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 . Tls_Error(s
3d00: 74 61 74 65 50 74 72 2c 20 22 53 53 4c 5f 45 52 tatePtr, "SSL_ER
3d10: 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 22 29 ROR_WANT_WRITE")
3d20: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
3d30: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
3d40: 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 20 20 64 ANT_READ:.. d
3d50: 70 72 69 6e 74 66 28 22 20 77 72 69 74 65 20 52 printf(" write R
3d60: 20 42 4c 4f 43 4b 22 29 3b 0a 09 20 20 20 20 54 BLOCK");.. T
3d70: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
3d80: 72 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 r, "SSL_ERROR_WA
3d90: 4e 54 5f 52 45 41 44 22 29 3b 0a 09 20 20 20 20 NT_READ");..
3da0: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
3db0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 L_ERROR_WANT_X50
3dc0: 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 64 9_LOOKUP:.. d
3dd0: 70 72 69 6e 74 66 28 22 20 77 72 69 74 65 20 58 printf(" write X
3de0: 20 42 4c 4f 43 4b 22 29 3b 0a 09 20 20 20 20 54 BLOCK");.. T
3df0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
3e00: 72 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 r, "SSL_ERROR_WA
3e10: 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 22 29 NT_X509_LOOKUP")
3e20: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
3e30: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a case SSL_ERROR_Z
3e40: 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 ERO_RETURN:..
3e50: 20 64 70 72 69 6e 74 66 28 22 20 63 6c 6f 73 65 dprintf(" close
3e60: 64 22 29 3b 0a 09 20 20 20 20 77 72 69 74 74 65 d");.. writte
3e70: 6e 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65 72 72 n = 0;.. *err
3e80: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 orCodePtr = 0;..
3e90: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
3ea0: 61 74 65 50 74 72 2c 20 22 50 65 65 72 20 68 61 atePtr, "Peer ha
3eb0: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
3ec0: 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 nection for writ
3ed0: 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 ing by sending t
3ee0: 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 he close_notify
3ef0: 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 62 72 alert");.. br
3f00: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
3f10: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 ERROR_SYSCALL:..
3f20: 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d /* Some non-
3f30: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
3f40: 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 al I/O error occ
3f50: 75 72 72 65 64 20 2a 2f 0a 0a 09 20 20 20 20 69 urred */... i
3f60: 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 f (backingError
3f70: 3d 3d 20 30 20 26 26 20 77 72 69 74 74 65 6e 20 == 0 && written
3f80: 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 == 0) {...dprint
3f90: 66 28 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 f("EOF reached")
3fa0: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
3fb0: 20 3d 20 30 3b 0a 09 09 77 72 69 74 74 65 6e 20 = 0;...written
3fc0: 3d 20 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 = 0;...Tls_Error
3fd0: 28 73 74 61 74 65 50 74 72 2c 20 22 45 4f 46 20 (statePtr, "EOF
3fe0: 72 65 61 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 reached");...
3ff0: 20 7d 20 65 6c 73 65 20 69 66 20 28 62 61 63 6b } else if (back
4000: 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 ingError == 0 &&
4010: 20 77 72 69 74 74 65 6e 20 3d 3d 20 2d 31 29 20 written == -1)
4020: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f {...dprintf("I/O
4030: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 error occurred
4040: 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 (errno = %lu)",
4050: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 (unsigned long)
4060: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b Tcl_GetErrno());
4070: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
4080: 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 = Tcl_GetErrno(
4090: 29 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d );...written = -
40a0: 31 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 1;...Tls_Error(s
40b0: 74 61 74 65 50 74 72 2c 20 54 63 6c 5f 45 72 72 tatePtr, Tcl_Err
40c0: 6e 6f 4d 73 67 28 54 63 6c 5f 47 65 74 45 72 72 noMsg(Tcl_GetErr
40d0: 6e 6f 28 29 29 29 3b 0a 0a 09 20 20 20 20 7d 20 no()));... }
40e0: 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 else {...dprintf
40f0: 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 ("I/O error occu
4100: 72 72 65 64 20 28 62 61 63 6b 69 6e 67 45 72 72 rred (backingErr
4110: 6f 72 20 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b or = %lu)", back
4120: 69 6e 67 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 ingError);...*er
4130: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 62 61 63 rorCodePtr = bac
4140: 6b 69 6e 67 45 72 72 6f 72 3b 0a 09 09 77 72 69 kingError;...wri
4150: 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 tten = -1;...Tls
4160: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
4170: 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f ERR_reason_erro
4180: 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 r_string(backing
4190: 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a Error));.. }.
41a0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
41b0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c se SSL_ERROR_SSL
41c0: 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d :.. /* A non-
41d0: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
41e0: 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 al error in the
41f0: 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 75 SSL library occu
4200: 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 rred, usually a
4210: 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a protocol error *
4220: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
4230: 53 53 4c 20 65 72 72 6f 72 2c 20 69 6e 64 69 63 SSL error, indic
4240: 61 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 63 ating that the c
4250: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 65 onnection has be
4260: 65 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 09 20 en aborted");..
4270: 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 if (backingEr
4280: 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c ror != 0) {...Tl
4290: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
42a0: 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 , ERR_reason_err
42b0: 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e or_string(backin
42c0: 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d gError));.. }
42d0: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
42e0: 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 Ptr = ECONNABORT
42f0: 45 44 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e ED;.. written
4300: 20 3d 20 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 = -1;.. brea
4310: 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 k;...default:..
4320: 20 20 20 64 70 72 69 6e 74 66 28 22 75 6e 6b 6e dprintf("unkn
4330: 6f 77 6e 20 65 72 72 6f 72 3a 20 25 64 22 2c 20 own error: %d",
4340: 65 72 72 29 3b 0a 09 20 20 20 20 62 72 65 61 6b err);.. break
4350: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
4360: 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3c (*errorCodePtr <
4370: 20 30 29 20 7b 0a 09 54 6c 73 5f 45 72 72 6f 72 0) {..Tls_Error
4380: 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 65 72 (statePtr, strer
4390: 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 ror(*errorCodePt
43a0: 72 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 r));. }. d
43b0: 70 72 69 6e 74 66 28 22 4f 75 74 70 75 74 28 25 printf("Output(%
43c0: 64 29 20 2d 3e 20 25 64 22 2c 20 74 6f 57 72 69 d) -> %d", toWri
43d0: 74 65 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 te, written);.
43e0: 20 20 72 65 74 75 72 6e 28 77 72 69 74 74 65 6e return(written
43f0: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
4400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4440: 2a 0a 20 2a 20 54 6c 73 53 65 74 4f 70 74 69 6f *. * TlsSetOptio
4450: 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 nProc --. *. *
4460: 20 20 53 65 74 73 20 61 6e 20 6f 70 74 69 6f 6e Sets an option
4470: 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 53 4c value for a SSL
4480: 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 socket based ch
4490: 61 6e 6e 65 6c 2c 20 6f 72 20 61 0a 20 2a 20 20 annel, or a. *
44a0: 20 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 list of all op
44b0: 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 tions and their
44c0: 76 61 6c 75 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 values.. *. * Re
44d0: 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 43 4c sults:. * TCL
44e0: 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 _OK if successfu
44f0: 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 l or TCL_ERROR i
4500: 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 f failed.. *. *
4510: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
4520: 20 20 20 20 55 70 64 61 74 65 73 20 63 68 61 6e Updates chan
4530: 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 6e 65 nel option to ne
4540: 77 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 2d 2d w value.. *. *--
4550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4590: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
45a0: 0a 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f .TlsSetOptionPro
45b0: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
45c0: 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a tanceData, /*
45d0: 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a Socket state. *
45e0: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
45f0: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
4600: 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 r errors - can b
4610: 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 e NULL. */. c
4620: 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f onst char *optio
4630: 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f nName,./* Name o
4640: 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 f the option to
4650: 73 65 74 20 74 68 65 20 76 61 6c 75 65 20 66 6f set the value fo
4660: 72 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e 55 4c r, or..... * NUL
4670: 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 74 L to get all opt
4680: 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 ions and their v
4690: 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 63 6f alues. */. co
46a0: 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e nst char *option
46b0: 56 61 6c 75 65 29 09 2f 2a 20 56 61 6c 75 65 20 Value)./* Value
46c0: 66 6f 72 20 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 7b for option. */.{
46d0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
46e0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
46f0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a instanceData;..
4700: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
4710: 64 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 downChan = Tls_G
4720: 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 etParent(statePt
4730: 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 r, TLS_TCL_FASTP
4740: 41 54 48 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 ATH);. Tcl_Dr
4750: 69 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 72 6f iverSetOptionPro
4760: 63 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 c *setOptionProc
4770: 3b 0a 0a 20 20 20 20 73 65 74 4f 70 74 69 6f 6e ;.. setOption
4780: 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e Proc = Tcl_Chann
4790: 65 6c 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 elSetOptionProc(
47a0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 Tcl_GetChannelTy
47b0: 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 pe(downChan));.
47c0: 20 20 20 69 66 20 28 73 65 74 4f 70 74 69 6f 6e if (setOption
47d0: 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a Proc != NULL) {.
47e0: 09 72 65 74 75 72 6e 20 28 2a 73 65 74 4f 70 74 .return (*setOpt
47f0: 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 ionProc)(Tcl_Get
4800: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 ChannelInstanceD
4810: 61 74 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 69 ata(downChan), i
4820: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d nterp, optionNam
4830: 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b e, optionValue);
4840: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
4850: 6f 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 optionName == (c
4860: 68 61 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f har*) NULL) {../
4870: 2a 0a 09 20 2a 20 52 65 71 75 65 73 74 20 69 73 *.. * Request is
4880: 20 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f query for all o
4890: 70 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 ptions, this is
48a0: 6f 6b 2e 0a 09 20 2a 2f 0a 09 72 65 74 75 72 6e ok... */..return
48b0: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 TCL_OK;. }.
48c0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 /*. * Req
48d0: 75 65 73 74 20 66 6f 72 20 61 20 73 70 65 63 69 uest for a speci
48e0: 66 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 fic option has t
48f0: 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 o fail, we don't
4900: 20 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 have any..
4910: 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 */. return Tc
4920: 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 l_BadChannelOpti
4930: 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f on(interp, optio
4940: 6e 4e 61 6d 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f nName, "");.}../
4950: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4990: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
49a0: 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d sGetOptionProc -
49b0: 2d 0a 20 2a 0a 20 2a 20 20 20 20 47 65 74 73 20 -. *. * Gets
49c0: 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 an option value
49d0: 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 for a SSL socket
49e0: 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 based channel,
49f0: 6f 72 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20 or a. * list
4a00: 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 of all options a
4a10: 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e nd their values.
4a20: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
4a30: 20 2a 20 20 20 20 41 20 73 74 61 6e 64 61 72 64 * A standard
4a40: 20 54 63 6c 20 72 65 73 75 6c 74 2e 20 54 68 65 Tcl result. The
4a50: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 73 70 value of the sp
4a60: 65 63 69 66 69 65 64 20 6f 70 74 69 6f 6e 20 6f ecified option o
4a70: 72 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20 6f r a. * list o
4a80: 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e f all options an
4a90: 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 20 69 d their values i
4aa0: 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 s returned in th
4ab0: 65 0a 20 2a 20 20 20 20 73 75 70 70 6c 69 65 64 e. * supplied
4ac0: 20 44 53 74 72 69 6e 67 2e 0a 20 2a 0a 20 2a 20 DString.. *. *
4ad0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
4ae0: 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d None.. *. *-
4af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
4b40: 74 0a 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 t.TlsGetOptionPr
4b50: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
4b60: 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f stanceData, /
4b70: 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 * Socket state.
4b80: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 */. Tcl_Inter
4b90: 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 p *interp,../* F
4ba0: 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 or errors - can
4bb0: 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 be NULL. */.
4bc0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 const char *opti
4bd0: 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 onName,./* Name
4be0: 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f of the option to
4bf0: 20 72 65 74 72 69 65 76 65 20 74 68 65 20 76 61 retrieve the va
4c00: 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 09 09 09 09 lue for, or.....
4c10: 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 * NULL to get a
4c20: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 ll options and t
4c30: 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a heir values. */.
4c40: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 Tcl_DString
4c50: 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f 2a *optionValue)./*
4c60: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 Where to store
4c70: 74 68 65 20 63 6f 6d 70 75 74 65 64 20 76 61 6c the computed val
4c80: 75 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 ue initialized b
4c90: 79 20 63 61 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 y caller. */.{.
4ca0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
4cb0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
4cc0: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 nstanceData;..
4cd0: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f Tcl_Channel do
4ce0: 77 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 wnChan = Tls_Get
4cf0: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c Parent(statePtr,
4d00: 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 TLS_TCL_FASTPAT
4d10: 48 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 H);. Tcl_Driv
4d20: 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 erGetOptionProc
4d30: 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a *getOptionProc;.
4d40: 0a 20 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 . getOptionPr
4d50: 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c oc = Tcl_Channel
4d60: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 GetOptionProc(Tc
4d70: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
4d80: 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 20 20 (downChan));.
4d90: 20 69 66 20 28 67 65 74 4f 70 74 69 6f 6e 50 72 if (getOptionPr
4da0: 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 oc != NULL) {..r
4db0: 65 74 75 72 6e 20 28 2a 67 65 74 4f 70 74 69 6f eturn (*getOptio
4dc0: 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 nProc)(Tcl_GetCh
4dd0: 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 annelInstanceDat
4de0: 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 69 6e 74 a(downChan), int
4df0: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
4e00: 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 optionValue);.
4e10: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 } else if (op
4e20: 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 tionName == (cha
4e30: 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a r*) NULL) {../*.
4e40: 09 20 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 . * Request is q
4e50: 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 uery for all opt
4e60: 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b ions, this is ok
4e70: 2e 0a 09 20 2a 2f 0a 09 72 65 74 75 72 6e 20 54 ... */..return T
4e80: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 CL_OK;. }.
4e90: 20 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 75 65 /*. * Reque
4ea0: 73 74 20 66 6f 72 20 61 20 73 70 65 63 69 66 69 st for a specifi
4eb0: 63 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f 20 c option has to
4ec0: 66 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 68 fail, we don't h
4ed0: 61 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 2a 2f ave any.. */
4ee0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f . return Tcl_
4ef0: 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e BadChannelOption
4f00: 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e (interp, optionN
4f10: 61 6d 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a ame, "");.}../*.
4f20: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f60: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 -----. *. * TlsW
4f70: 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 atchProc --. *.
4f80: 2a 20 20 20 20 49 6e 69 74 69 61 6c 69 7a 65 20 * Initialize
4f90: 74 68 65 20 6e 6f 74 69 66 69 65 72 20 74 6f 20 the notifier to
4fa0: 77 61 74 63 68 20 54 63 6c 5f 46 69 6c 65 73 20 watch Tcl_Files
4fb0: 66 72 6f 6d 20 74 68 69 73 20 63 68 61 6e 6e 65 from this channe
4fc0: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 l.. *. * Results
4fd0: 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a :. * None.. *
4fe0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4ff0: 3a 0a 20 2a 20 20 20 20 53 65 74 73 20 75 70 20 :. * Sets up
5000: 74 68 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 the notifier so
5010: 74 68 61 74 20 61 20 66 75 74 75 72 65 20 65 76 that a future ev
5020: 65 6e 74 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e ent on the chann
5030: 65 6c 0a 20 2a 20 20 20 20 77 69 6c 6c 20 62 65 el. * will be
5040: 20 73 65 65 6e 20 62 79 20 54 63 6c 2e 0a 20 2a seen by Tcl.. *
5050: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5090: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
50a0: 63 20 76 6f 69 64 0a 54 6c 73 57 61 74 63 68 50 c void.TlsWatchP
50b0: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 roc(ClientData i
50c0: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 nstanceData,
50d0: 2f 2a 20 54 68 65 20 73 6f 63 6b 65 74 20 73 74 /* The socket st
50e0: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 ate. */. int
50f0: 6d 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 6e 74 mask).../* Event
5100: 73 20 6f 66 20 69 6e 74 65 72 65 73 74 3b 20 61 s of interest; a
5110: 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 n OR-ed combinat
5120: 69 6f 6e 20 6f 66 0a 09 09 09 09 20 2a 20 54 43 ion of..... * TC
5130: 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 4c 5f L_READABLE, TCL_
5140: 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c WRITABLE and TCL
5150: 5f 45 58 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b _EXCEPTION. */.{
5160: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
5170: 20 20 20 20 20 64 6f 77 6e 43 68 61 6e 3b 0a 20 downChan;.
5180: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
5190: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
51a0: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 nstanceData;.
51b0: 20 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 68 Tcl_DriverWatch
51c0: 50 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 3b Proc *watchProc;
51d0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 .. dprintf("T
51e0: 6c 73 57 61 74 63 68 50 72 6f 63 28 30 78 25 78 lsWatchProc(0x%x
51f0: 29 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 )", mask);..
5200: 2f 2a 20 50 72 65 74 65 6e 64 20 74 6f 20 62 65 /* Pretend to be
5210: 20 64 65 61 64 20 61 73 20 6c 6f 6e 67 20 61 73 dead as long as
5220: 20 74 68 65 20 76 65 72 69 66 79 20 63 61 6c 6c the verify call
5230: 62 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 2e back is running.
5240: 0a 20 20 20 20 20 2a 20 4f 74 68 65 72 77 69 73 . * Otherwis
5250: 65 20 74 68 61 74 20 63 61 6c 6c 62 61 63 6b 20 e that callback
5260: 63 6f 75 6c 64 20 62 65 20 69 6e 76 6f 6b 65 64 could be invoked
5270: 20 72 65 63 75 72 73 69 76 65 6c 79 2e 20 2a 2f recursively. */
5280: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
5290: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
52a0: 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 CL_CALLBACK) {..
52b0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 dprintf("Callbac
52c0: 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 64 k is on-going, d
52d0: 6f 69 6e 67 20 6e 6f 74 68 69 6e 67 22 29 3b 0a oing nothing");.
52e0: 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a .return;. }..
52f0: 20 20 20 20 64 70 72 69 6e 74 46 6c 61 67 73 28 dprintFlags(
5300: 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 statePtr);..
5310: 64 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 downChan = Tls_G
5320: 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 etParent(statePt
5330: 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 r, TLS_TCL_FASTP
5340: 41 54 48 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 ATH);.. if (s
5350: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
5360: 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 TLS_TCL_HANDSHA
5370: 4b 45 5f 46 41 49 4c 45 44 29 20 7b 0a 09 64 70 KE_FAILED) {..dp
5380: 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 rintf("Asked to
5390: 77 61 74 63 68 20 61 20 73 6f 63 6b 65 74 20 77 watch a socket w
53a0: 69 74 68 20 61 20 66 61 69 6c 65 64 20 68 61 6e ith a failed han
53b0: 64 73 68 61 6b 65 20 2d 2d 20 6e 6f 74 68 69 6e dshake -- nothin
53c0: 67 20 63 61 6e 20 68 61 70 70 65 6e 20 68 65 72 g can happen her
53d0: 65 22 29 3b 0a 09 64 70 72 69 6e 74 66 28 22 55 e");..dprintf("U
53e0: 6e 72 65 67 69 73 74 65 72 69 6e 67 20 69 6e 74 nregistering int
53f0: 65 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f 77 erest in the low
5400: 65 72 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 0a 09 er channel");...
5410: 77 61 74 63 68 50 72 6f 63 20 3d 20 54 63 6c 5f watchProc = Tcl_
5420: 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f 63 ChannelWatchProc
5430: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
5440: 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a ype(downChan));.
5450: 09 77 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 .watchProc(Tcl_G
5460: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
5470: 65 44 61 74 61 28 64 6f 77 6e 43 68 61 6e 29 2c eData(downChan),
5480: 20 30 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 0);..statePtr->
5490: 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 0a 09 watchMask = 0;..
54a0: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 return;. }..
54b0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 statePtr->wat
54c0: 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a chMask = mask;..
54d0: 20 20 20 20 2f 2a 20 4e 6f 20 63 68 61 6e 6e 65 /* No channe
54e0: 6c 20 68 61 6e 64 6c 65 72 73 20 61 6e 79 20 6d l handlers any m
54f0: 6f 72 65 2e 20 57 65 20 77 69 6c 6c 20 62 65 20 ore. We will be
5500: 6e 6f 74 69 66 69 65 64 20 61 75 74 6f 6d 61 74 notified automat
5510: 69 63 61 6c 6c 79 0a 20 20 20 20 20 2a 20 61 62 ically. * ab
5520: 6f 75 74 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 out events on th
5530: 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 e channel below
5540: 76 69 61 20 61 20 63 61 6c 6c 20 74 6f 20 6f 75 via a call to ou
5550: 72 0a 20 20 20 20 20 2a 20 27 54 72 61 6e 73 66 r. * 'Transf
5560: 6f 72 6d 4e 6f 74 69 66 79 50 72 6f 63 27 2e 20 ormNotifyProc'.
5570: 42 75 74 20 77 65 20 68 61 76 65 20 74 6f 20 70 But we have to p
5580: 61 73 73 20 74 68 65 20 69 6e 74 65 72 65 73 74 ass the interest
5590: 20 64 6f 77 6e 20 6e 6f 77 2e 0a 20 20 20 20 20 down now..
55a0: 2a 20 57 65 20 61 72 65 20 61 6c 6c 6f 77 65 64 * We are allowed
55b0: 20 74 6f 20 61 64 64 20 61 64 64 69 74 69 6f 6e to add addition
55c0: 61 6c 20 27 69 6e 74 65 72 65 73 74 27 20 74 6f al 'interest' to
55d0: 20 74 68 65 20 6d 61 73 6b 20 69 66 20 77 65 20 the mask if we
55e0: 77 61 6e 74 0a 20 20 20 20 20 2a 20 74 6f 2e 20 want. * to.
55f0: 42 75 74 20 74 68 69 73 20 74 72 61 6e 73 66 6f But this transfo
5600: 72 6d 61 74 69 6f 6e 20 68 61 73 20 6e 6f 20 73 rmation has no s
5610: 75 63 68 20 69 6e 74 65 72 65 73 74 2e 20 49 74 uch interest. It
5620: 20 6a 75 73 74 20 70 61 73 73 65 73 0a 20 20 20 just passes.
5630: 20 20 2a 20 74 68 65 20 72 65 71 75 65 73 74 20 * the request
5640: 64 6f 77 6e 2c 20 75 6e 63 68 61 6e 67 65 64 2e down, unchanged.
5650: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 64 70 72 . */. dpr
5660: 69 6e 74 66 28 22 52 65 67 69 73 74 65 72 69 6e intf("Registerin
5670: 67 20 6f 75 72 20 69 6e 74 65 72 65 73 74 20 69 g our interest i
5680: 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e n the lower chan
5690: 6e 65 6c 20 28 63 68 61 6e 3d 25 70 29 22 2c 20 nel (chan=%p)",
56a0: 28 76 6f 69 64 20 2a 29 20 64 6f 77 6e 43 68 61 (void *) downCha
56b0: 6e 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f n);. watchPro
56c0: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 c = Tcl_ChannelW
56d0: 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 atchProc(Tcl_Get
56e0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e ChannelType(down
56f0: 43 68 61 6e 29 29 3b 0a 20 20 20 20 77 61 74 63 Chan));. watc
5700: 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 hProc(Tcl_GetCha
5710: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
5720: 28 64 6f 77 6e 43 68 61 6e 29 2c 20 6d 61 73 6b (downChan), mask
5730: 29 3b 0a 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 );... /*.
5740: 20 2a 20 4d 61 6e 61 67 65 6d 65 6e 74 20 6f 66 * Management of
5750: 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 74 69 the internal ti
5760: 6d 65 72 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 mer.. */.
5770: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 if (statePtr->t
5780: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
5790: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
57a0: 0a 09 64 70 72 69 6e 74 66 28 22 41 20 74 69 6d ..dprintf("A tim
57b0: 65 72 20 77 61 73 20 66 6f 75 6e 64 2c 20 64 65 er was found, de
57c0: 6c 65 74 69 6e 67 20 69 74 22 29 3b 0a 09 54 63 leting it");..Tc
57d0: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
57e0: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
57f0: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
5800: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
5810: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
5820: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 . }.. if (
5830: 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 (mask & TCL_READ
5840: 41 42 4c 45 29 20 26 26 0a 09 28 28 54 63 6c 5f ABLE) &&..((Tcl_
5850: 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 InputBuffered(st
5860: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 atePtr->self) >
5870: 30 29 20 7c 7c 20 28 42 49 4f 5f 63 74 72 6c 5f 0) || (BIO_ctrl_
5880: 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 pending(statePtr
5890: 2d 3e 62 69 6f 29 20 3e 20 30 29 29 29 20 7b 0a ->bio) > 0))) {.
58a0: 09 2f 2a 0a 09 20 2a 20 54 68 65 72 65 20 69 73 ./*.. * There is
58b0: 20 69 6e 74 65 72 65 73 74 20 69 6e 20 72 65 61 interest in rea
58c0: 64 61 62 6c 65 20 65 76 65 6e 74 73 20 61 6e 64 dable events and
58d0: 20 77 65 20 61 63 74 75 61 6c 6c 79 20 68 61 76 we actually hav
58e0: 65 0a 09 20 2a 20 64 61 74 61 20 77 61 69 74 69 e.. * data waiti
58f0: 6e 67 2c 20 73 6f 20 67 65 6e 65 72 61 74 65 20 ng, so generate
5900: 61 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 a timer to flush
5910: 20 74 68 61 74 2e 0a 09 20 2a 2f 0a 09 64 70 72 that... */..dpr
5920: 69 6e 74 66 28 22 43 72 65 61 74 69 6e 67 20 61 intf("Creating a
5930: 20 6e 65 77 20 74 69 6d 65 72 20 73 69 6e 63 65 new timer since
5940: 20 64 61 74 61 20 61 70 70 65 61 72 73 20 74 6f data appears to
5950: 20 62 65 20 77 61 69 74 69 6e 67 22 29 3b 0a 09 be waiting");..
5960: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
5970: 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d 65 = Tcl_CreateTime
5980: 72 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 43 4c rHandler(TLS_TCL
5990: 5f 44 45 4c 41 59 2c 20 54 6c 73 43 68 61 6e 6e _DELAY, TlsChann
59a0: 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 2c 20 elHandlerTimer,
59b0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
59c0: 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a tePtr);. }.}.
59d0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
59e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
5a20: 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 TlsGetHandleProc
5a30: 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 43 61 6c --. *. * Cal
5a40: 6c 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47 65 74 led from Tcl_Get
5a50: 43 68 61 6e 6e 65 6c 46 69 6c 65 20 74 6f 20 72 ChannelFile to r
5a60: 65 74 72 69 65 76 65 20 6f 2f 73 20 66 69 6c 65 etrieve o/s file
5a70: 20 68 61 6e 64 6c 65 72 0a 20 2a 20 20 20 20 66 handler. * f
5a80: 72 6f 6d 20 74 68 65 20 53 53 4c 20 73 6f 63 6b rom the SSL sock
5a90: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c et based channel
5aa0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
5ab0: 0a 20 2a 20 20 20 20 54 68 65 20 61 70 70 72 6f . * The appro
5ac0: 70 72 69 61 74 65 20 54 63 6c 5f 46 69 6c 65 20 priate Tcl_File
5ad0: 68 61 6e 64 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 handle or NULL i
5ae0: 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 f none.. *. * Si
5af0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 de effects:. *
5b00: 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d None.. *. *---
5b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b50: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
5b60: 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 TlsGetHandleProc
5b70: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
5b80: 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 anceData, /*
5b90: 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f Socket state. */
5ba0: 0a 20 20 20 20 69 6e 74 20 64 69 72 65 63 74 69 . int directi
5bb0: 6f 6e 2c 09 09 2f 2a 20 54 43 4c 5f 52 45 41 44 on,../* TCL_READ
5bc0: 41 42 4c 45 20 6f 72 20 54 43 4c 5f 57 52 49 54 ABLE or TCL_WRIT
5bd0: 41 42 4c 45 20 2a 2f 0a 20 20 20 20 43 6c 69 65 ABLE */. Clie
5be0: 6e 74 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 ntData *handlePt
5bf0: 72 29 09 2f 2a 20 48 61 6e 64 6c 65 20 61 73 73 r)./* Handle ass
5c00: 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 ociated with the
5c10: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b 0a 20 20 channel */.{.
5c20: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
5c30: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
5c40: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 stanceData;..
5c50: 20 72 65 74 75 72 6e 28 54 63 6c 5f 47 65 74 43 return(Tcl_GetC
5c60: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 hannelHandle(Tls
5c70: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
5c80: 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 Ptr, TLS_TCL_FAS
5c90: 54 50 41 54 48 29 2c 20 64 69 72 65 63 74 69 6f TPATH), directio
5ca0: 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 29 3b 0a n, handlePtr));.
5cb0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
5cc0: 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 -----------. *.
5d00: 2a 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 * TlsNotifyProc
5d10: 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 48 61 6e 64 --. *. * Hand
5d20: 6c 65 72 20 63 61 6c 6c 65 64 20 62 79 20 54 63 ler called by Tc
5d30: 6c 20 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 6f l to inform us o
5d40: 66 20 61 63 74 69 76 69 74 79 0a 20 2a 20 20 20 f activity. *
5d50: 20 6f 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 on the underlyi
5d60: 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 ng channel.. *.
5d70: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 * Results:. *
5d80: 20 54 79 70 65 20 6f 66 20 65 76 65 6e 74 20 6f Type of event o
5d90: 72 20 30 20 69 66 20 66 61 69 6c 65 64 0a 20 2a r 0 if failed. *
5da0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
5db0: 3a 0a 20 2a 20 20 20 20 4d 61 79 20 70 72 6f 63 :. * May proc
5dc0: 65 73 73 20 74 68 65 20 69 6e 63 6f 6d 69 6e 67 ess the incoming
5dd0: 20 65 76 65 6e 74 20 62 79 20 69 74 73 65 6c 66 event by itself
5de0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
5df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
5e30: 74 61 74 69 63 20 69 6e 74 20 54 6c 73 4e 6f 74 tatic int TlsNot
5e40: 69 66 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ifyProc(ClientDa
5e50: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
5e60: 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 /* Socket st
5e70: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 ate. */. int
5e80: 6d 61 73 6b 29 09 09 09 2f 2a 20 74 79 70 65 20 mask).../* type
5e90: 6f 66 20 65 76 65 6e 74 20 74 68 61 74 20 6f 63 of event that oc
5ea0: 63 75 72 72 65 64 3a 0a 09 09 09 09 20 2a 20 4f curred:..... * O
5eb0: 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e R-ed combination
5ec0: 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 of TCL_READABLE
5ed0: 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 or TCL_WRITABLE
5ee0: 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 */.{. State
5ef0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
5f00: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
5f10: 74 61 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 6f ta;. int erro
5f20: 72 43 6f 64 65 3b 0a 0a 20 20 20 20 2f 2a 0a 20 rCode;.. /*.
5f30: 20 20 20 20 2a 20 41 6e 20 65 76 65 6e 74 20 6f * An event o
5f40: 63 63 75 72 72 65 64 20 69 6e 20 74 68 65 20 75 ccurred in the u
5f50: 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 nderlying channe
5f60: 6c 2e 20 20 54 68 69 73 0a 20 20 20 20 20 2a 20 l. This. *
5f70: 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 64 transformation d
5f80: 6f 65 73 6e 27 74 20 70 72 6f 63 65 73 73 20 73 oesn't process s
5f90: 75 63 68 20 65 76 65 6e 74 73 20 74 68 75 73 20 uch events thus
5fa0: 72 65 74 75 72 6e 73 20 74 68 65 0a 20 20 20 20 returns the.
5fb0: 20 2a 20 69 6e 63 6f 6d 69 6e 67 20 6d 61 73 6b * incoming mask
5fc0: 20 75 6e 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 unchanged..
5fd0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
5fe0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 ePtr->timer != (
5ff0: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
6000: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 NULL) {../*.. *
6010: 44 65 6c 65 74 65 20 61 6e 20 65 78 69 73 74 69 Delete an existi
6020: 6e 67 20 74 69 6d 65 72 2e 20 49 74 20 77 61 73 ng timer. It was
6030: 20 6e 6f 74 20 66 69 72 65 64 2c 20 79 65 74 20 not fired, yet
6040: 77 65 20 61 72 65 0a 09 20 2a 20 68 65 72 65 2c we are.. * here,
6050: 20 73 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 so the channel
6060: 62 65 6c 6f 77 20 67 65 6e 65 72 61 74 65 64 20 below generated
6070: 73 75 63 68 20 61 6e 20 65 76 65 6e 74 20 61 6e such an event an
6080: 64 20 77 65 0a 09 20 2a 20 64 6f 6e 27 74 20 68 d we.. * don't h
6090: 61 76 65 20 74 6f 2e 20 54 68 65 20 72 65 6e 65 ave to. The rene
60a0: 77 61 6c 20 6f 66 20 74 68 65 20 69 6e 74 65 72 wal of the inter
60b0: 65 73 74 20 61 66 74 65 72 20 74 68 65 0a 09 20 est after the..
60c0: 2a 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 63 * execution of c
60d0: 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 hannel handlers
60e0: 77 69 6c 6c 20 65 76 65 6e 74 75 61 6c 6c 79 20 will eventually
60f0: 63 61 75 73 65 20 75 73 20 74 6f 0a 09 20 2a 20 cause us to.. *
6100: 72 65 63 72 65 61 74 65 20 74 68 65 20 74 69 6d recreate the tim
6110: 65 72 20 28 69 6e 20 57 61 74 63 68 50 72 6f 63 er (in WatchProc
6120: 29 2e 0a 09 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c )... */..Tcl_Del
6130: 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 eteTimerHandler(
6140: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 statePtr->timer)
6150: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d ;..statePtr->tim
6160: 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 er = (Tcl_TimerT
6170: 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 oken) NULL;.
6180: 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }.. if (state
6190: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
61a0: 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b _TCL_CALLBACK) {
61b0: 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 ..dprintf("Retur
61c0: 6e 69 6e 67 20 30 20 64 75 65 20 74 6f 20 63 61 ning 0 due to ca
61d0: 6c 6c 62 61 63 6b 22 29 3b 0a 09 72 65 74 75 72 llback");..retur
61e0: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
61f0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 dprintf("Calling
6200: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
6210: 65 63 74 22 29 3b 0a 20 20 20 20 65 72 72 6f 72 ect");. error
6220: 43 6f 64 65 20 3d 20 30 3b 0a 20 20 20 20 69 66 Code = 0;. if
6230: 20 28 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e (Tls_WaitForCon
6240: 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 nect(statePtr, &
6250: 65 72 72 6f 72 43 6f 64 65 2c 20 31 29 20 3c 20 errorCode, 1) <
6260: 30 29 20 7b 0a 09 54 6c 73 5f 45 72 72 6f 72 28 0) {..Tls_Error(
6270: 73 74 61 74 65 50 74 72 2c 20 73 74 72 65 72 72 statePtr, strerr
6280: 6f 72 28 65 72 72 6f 72 43 6f 64 65 29 29 3b 0a or(errorCode));.
6290: 09 69 66 20 28 65 72 72 6f 72 43 6f 64 65 20 3d .if (errorCode =
62a0: 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09 20 20 20 = EAGAIN) {..
62b0: 20 64 70 72 69 6e 74 66 28 22 41 73 79 6e 63 20 dprintf("Async
62c0: 66 6c 61 67 20 63 6f 75 6c 64 20 62 65 20 73 65 flag could be se
62d0: 74 20 28 64 69 64 6e 27 74 20 63 68 65 63 6b 29 t (didn't check)
62e0: 20 61 6e 64 20 65 72 72 6f 72 43 6f 64 65 20 3d and errorCode =
62f0: 3d 20 45 41 47 41 49 4e 3a 20 20 52 65 74 75 72 = EAGAIN: Retur
6300: 6e 69 6e 67 20 30 22 29 3b 0a 0a 09 20 20 20 20 ning 0");...
6310: 72 65 74 75 72 6e 20 30 3b 0a 09 7d 0a 0a 09 64 return 0;..}...d
6320: 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 printf("Tls_Wait
6330: 46 6f 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 ForConnect retur
6340: 6e 65 64 20 61 6e 20 65 72 72 6f 72 22 29 3b 0a ned an error");.
6350: 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e }.. dprin
6360: 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 25 69 tf("Returning %i
6370: 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 72 ", mask);.. r
6380: 65 74 75 72 6e 28 6d 61 73 6b 29 3b 0a 7d 0a 0a eturn(mask);.}..
6390: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
63a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a -----------*. *.
63d0: 20 2a 20 20 20 20 54 6c 73 43 68 61 6e 6e 65 6c * TlsChannel
63e0: 48 61 6e 64 6c 65 72 54 69 6d 65 72 20 2d 2d 0a HandlerTimer --.
63f0: 20 2a 0a 20 2a 20 20 20 20 2d 2d 2d 2d 2d 2d 2d *. * -------
6400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 20 20 20 ---------*. *
6430: 20 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e Called by the n
6440: 6f 74 69 66 69 65 72 20 28 2d 3e 20 74 69 6d 65 otifier (-> time
6450: 72 29 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 0a r) to flush out.
6460: 20 2a 20 20 20 20 69 6e 66 6f 72 6d 61 74 69 6f * informatio
6470: 6e 20 77 61 69 74 69 6e 67 20 69 6e 20 63 68 61 n waiting in cha
6480: 6e 6e 65 6c 20 62 75 66 66 65 72 73 2e 0a 20 2a nnel buffers.. *
6490: 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ------------
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64c0: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 53 ----*. *. * S
64d0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 ide effects:. *
64e0: 20 20 20 20 20 20 20 41 73 20 6f 66 20 27 54 6c As of 'Tl
64f0: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 27 sChannelHandler'
6500: 2e 0a 20 2a 0a 20 2a 20 20 20 20 52 65 73 75 6c .. *. * Resul
6510: 74 3a 0a 20 2a 20 20 20 20 20 20 20 20 4e 6f 6e t:. * Non
6520: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
6530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
6560: 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 */.static void
6570: 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 TlsChannelHandle
6580: 72 54 69 6d 65 72 28 43 6c 69 65 6e 74 44 61 74 rTimer(ClientDat
6590: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a a clientData) {.
65a0: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
65b0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
65c0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
65d0: 69 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a 0a 20 int mask = 0;..
65e0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
65f0: 65 64 22 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 ed");.. state
6600: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
6610: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
6620: 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 28 42 49 4f LL;.. if (BIO
6630: 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 _wpending(stateP
6640: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 tr->bio)) {..dpr
6650: 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 intf("[chan=%p]
6660: 42 49 4f 20 77 72 69 74 61 62 6c 65 22 2c 20 73 BIO writable", s
6670: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
6680: 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 ..mask |= TCL_WR
6690: 49 54 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 ITABLE;. }..
66a0: 20 20 20 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 if (BIO_pendi
66b0: 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ng(statePtr->bio
66c0: 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 5b )) {..dprintf("[
66d0: 63 68 61 6e 3d 25 70 5d 20 42 49 4f 20 72 65 61 chan=%p] BIO rea
66e0: 64 61 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 dable", statePtr
66f0: 2d 3e 73 65 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 ->self);...mask
6700: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b |= TCL_READABLE;
6710: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 . }.. dpri
6720: 6e 74 66 28 22 4e 6f 74 69 66 79 69 6e 67 20 6f ntf("Notifying o
6730: 75 72 73 65 6c 76 65 73 22 29 3b 0a 20 20 20 20 urselves");.
6740: 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 Tcl_NotifyChanne
6750: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 l(statePtr->self
6760: 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 64 70 , mask);.. dp
6770: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 rintf("Returning
6780: 22 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 3b ");.. return;
6790: 0a 7d 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 .}..Tcl_Channel
67a0: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 53 74 Tls_GetParent(St
67b0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 ate *statePtr, i
67c0: 6e 74 20 6d 61 73 6b 46 6c 61 67 73 29 20 7b 0a nt maskFlags) {.
67d0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 71 dprintf("Req
67e0: 75 65 73 74 65 64 20 74 6f 20 67 65 74 20 70 61 uested to get pa
67f0: 72 65 6e 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 rent of channel
6800: 25 70 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 %p", statePtr->s
6810: 65 6c 66 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 elf);.. if ((
6820: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
6830: 26 20 7e 6d 61 73 6b 46 6c 61 67 73 29 20 26 20 & ~maskFlags) &
6840: 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 TLS_TCL_FASTPATH
6850: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 73 ) {..dprintf("As
6860: 6b 65 64 20 74 6f 20 67 65 74 20 74 68 65 20 70 ked to get the p
6870: 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 77 68 arent channel wh
6880: 69 6c 65 20 77 65 20 61 72 65 20 75 73 69 6e 67 ile we are using
6890: 20 46 61 73 74 50 61 74 68 20 2d 2d 20 72 65 74 FastPath -- ret
68a0: 75 72 6e 69 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 urning NULL");..
68b0: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 20 20 return(NULL);.
68c0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 28 54 }. return(T
68d0: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
68e0: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
68f0: 65 6c 66 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d elf));.}../*. *-
6900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6940: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 --. *. * Tls_Cha
6950: 6e 6e 65 6c 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 nnelType --. *.
6960: 2a 20 20 20 20 52 65 74 75 72 6e 20 74 68 65 20 * Return the
6970: 63 6f 72 72 65 63 74 20 54 4c 53 20 63 68 61 6e correct TLS chan
6980: 6e 65 6c 20 64 72 69 76 65 72 20 69 6e 66 6f 0a nel driver info.
6990: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
69a0: 2a 20 20 20 20 54 68 65 20 63 6f 72 72 65 63 74 * The correct
69b0: 20 63 68 61 6e 6e 65 6c 20 64 72 69 76 65 72 20 channel driver
69c0: 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 for the current
69d0: 76 65 72 73 69 6f 6e 20 6f 66 20 54 63 6c 2e 0a version of Tcl..
69e0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
69f0: 74 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a ts:. * None..
6a00: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
6a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a40: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
6a50: 74 69 63 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 tic const Tcl_Ch
6a60: 61 6e 6e 65 6c 54 79 70 65 20 74 6c 73 43 68 61 annelType tlsCha
6a70: 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 nnelType = {.
6a80: 20 22 74 6c 73 22 2c 09 09 09 2f 2a 20 54 79 70 "tls",.../* Typ
6a90: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 e name */. TC
6aa0: 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f L_CHANNEL_VERSIO
6ab0: 4e 5f 35 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e N_5,./* v5 chann
6ac0: 65 6c 20 2a 2f 0a 20 20 20 20 54 6c 73 43 6c 6f el */. TlsClo
6ad0: 73 65 50 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 seProc,../* Clos
6ae0: 65 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c e proc */. Tl
6af0: 73 49 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 sInputProc,../*
6b00: 49 6e 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 Input proc */.
6b10: 20 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 2c TlsOutputProc,
6b20: 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 ../* Output proc
6b30: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 */. NULL,...
6b40: 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f 0a /* Seek proc */.
6b50: 20 20 20 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e TlsSetOption
6b60: 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 6f 70 Proc,../* Set op
6b70: 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 tion proc */.
6b80: 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f TlsGetOptionPro
6b90: 63 2c 09 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f c,../* Get optio
6ba0: 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c n proc */. Tl
6bb0: 73 57 61 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 sWatchProc,../*
6bc0: 49 6e 69 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 Initialize notif
6bd0: 69 65 72 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 ier */. TlsGe
6be0: 74 48 61 6e 64 6c 65 50 72 6f 63 2c 09 09 2f 2a tHandleProc,../*
6bf0: 20 47 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 Get OS handles
6c00: 6f 75 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a out of channel *
6c10: 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 32 50 /. TlsClose2P
6c20: 72 6f 63 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 roc,../* close2p
6c30: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 42 6c roc */. TlsBl
6c40: 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 09 2f 2a ockModeProc,../*
6c50: 20 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f Set blocking/no
6c60: 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f nblocking mode*/
6c70: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
6c80: 46 6c 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 Flush proc */.
6c90: 20 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 2c TlsNotifyProc,
6ca0: 09 09 2f 2a 20 48 61 6e 64 6c 69 6e 67 20 6f 66 ../* Handling of
6cb0: 20 65 76 65 6e 74 73 20 62 75 62 62 6c 69 6e 67 events bubbling
6cc0: 20 75 70 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c up */. NULL,
6cd0: 09 09 09 2f 2a 20 57 69 64 65 20 73 65 65 6b 20 .../* Wide seek
6ce0: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c proc */. NULL
6cf0: 2c 09 09 09 2f 2a 20 54 68 72 65 61 64 20 61 63 ,.../* Thread ac
6d00: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c tion */. NULL
6d10: 09 09 09 2f 2a 20 54 72 75 6e 63 61 74 65 20 2a .../* Truncate *
6d20: 2f 0a 7d 3b 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 /.};..Tcl_Channe
6d30: 6c 54 79 70 65 20 2a 54 6c 73 5f 43 68 61 6e 6e lType *Tls_Chann
6d40: 65 6c 54 79 70 65 28 76 6f 69 64 29 20 7b 0a 20 elType(void) {.
6d50: 20 20 20 72 65 74 75 72 6e 20 26 74 6c 73 43 68 return &tlsCh
6d60: 61 6e 6e 65 6c 54 79 70 65 3b 0a 7d 0a annelType;.}.