0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61 (C) 1997-2000 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 Copyright (C) 2
0050: 30 30 30 20 41 6a 75 62 61 20 53 6f 6c 75 74 69 000 Ajuba Soluti
0060: 6f 6e 73 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 ons. *. * TLS (a
0070: 6b 61 20 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 ka SSL) Channel
0080: 2d 20 63 61 6e 20 62 65 20 6c 61 79 65 72 65 64 - can be layered
0090: 20 6f 6e 20 61 6e 79 20 62 69 2d 64 69 72 65 63 on any bi-direc
00a0: 74 69 6f 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 tional. * Tcl_Ch
00b0: 61 6e 6e 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 annel (Note: Req
00c0: 75 69 72 65 73 20 54 72 66 20 43 6f 72 65 20 50 uires Trf Core P
00d0: 61 74 63 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 atch). *. * This
00e0: 20 77 61 73 20 62 75 69 6c 74 20 66 72 6f 6d 20 was built from
00f0: 73 63 72 61 74 63 68 20 62 61 73 65 64 20 75 70 scratch based up
0100: 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e 20 6f on observation o
0110: 66 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 32 42 f OpenSSL 0.9.2B
0120: 0a 20 2a 0a 20 2a 20 41 64 64 69 74 69 6f 6e 20 . *. * Addition
0130: 63 72 65 64 69 74 20 69 73 20 64 75 65 20 66 6f credit is due fo
0140: 72 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 65 r Andreas Kuprie
0150: 73 20 28 61 2e 6b 75 70 72 69 65 73 40 77 65 73 s (a.kupries@wes
0160: 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 6f 72 0a 20 tend.com), for.
0170: 2a 20 70 72 6f 76 69 64 69 6e 67 20 74 68 65 20 * providing the
0180: 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 61 6e 6e Tcl_ReplaceChann
0190: 65 6c 20 6d 65 63 68 61 6e 69 73 6d 20 61 6e 64 el mechanism and
01a0: 20 77 6f 72 6b 69 6e 67 20 63 6c 6f 73 65 6c 79 working closely
01b0: 20 77 69 74 68 20 6d 65 0a 20 2a 20 74 6f 20 65 with me. * to e
01c0: 6e 68 61 6e 63 65 20 69 74 20 74 6f 20 73 75 70 nhance it to sup
01d0: 70 6f 72 74 20 66 75 6c 6c 20 66 69 6c 65 65 76 port full fileev
01e0: 65 6e 74 20 73 65 6d 61 6e 74 69 63 73 2e 0a 20 ent semantics..
01f0: 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f 72 6b 20 64 *. * Also work d
0200: 6f 6e 65 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f one by the follo
0210: 77 20 70 65 6f 70 6c 65 20 70 72 6f 76 69 64 65 w people provide
0220: 64 20 74 68 65 20 69 6d 70 65 74 75 73 20 74 6f d the impetus to
0230: 20 64 6f 20 74 68 69 73 20 22 72 69 67 68 74 22 do this "right"
0240: 3a 0a 20 2a 20 20 20 20 74 63 6c 53 53 4c 20 28 :. * tclSSL (
0250: 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c Colin McCormack,
0260: 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f Shared Technolo
0270: 67 79 29 0a 20 2a 20 20 20 20 53 53 4c 74 63 6c gy). * SSLtcl
0280: 20 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a (Peter Antman).
0290: 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 *. */..#include
02a0: 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 "tlsInt.h".#inc
02b0: 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a 0a lude <errno.h>..
02c0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0300: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
0310: 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 lsBlockModeProc
0320: 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 54 68 69 73 --. *. * This
0330: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
0340: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e voked by the gen
0350: 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a eric IO level. *
0360: 20 20 20 20 20 20 20 74 6f 20 73 65 74 20 63 68 to set ch
0370: 61 6e 6e 65 6c 20 74 6f 20 62 6c 6f 63 6b 69 6e annel to blockin
0380: 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 g or nonblocking
0390: 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 mode.. *. * Res
03a0: 75 6c 74 73 3a 0a 20 2a 20 20 20 20 30 20 69 66 ults:. * 0 if
03b0: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 successful or P
03c0: 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 OSIX error code
03d0: 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a if failed.. *. *
03e0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
03f0: 2a 20 20 20 20 53 65 74 73 20 74 68 65 20 64 65 * Sets the de
0400: 76 69 63 65 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 vice into blocki
0410: 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e ng or nonblockin
0420: 67 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d g mode.. *. *---
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0470: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
0480: 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 TlsBlockModeProc
0490: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
04a0: 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 6d 6f anceData, int mo
04b0: 64 65 29 20 7b 0a 20 20 20 20 53 74 61 74 65 20 de) {. State
04c0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
04d0: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
04e0: 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 ta;.. if (mod
04f0: 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f e == TCL_MODE_NO
0500: 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 73 74 NBLOCKING) {..st
0510: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
0520: 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 3b 0a TLS_TCL_ASYNC;.
0530: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 74 } else {..st
0540: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d atePtr->flags &=
0550: 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 ~(TLS_TCL_ASYNC
0560: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 );. }. ret
0570: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d urn 0;.}../*. *-
0580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05c0: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73 --. *. * TlsClos
05d0: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 eProc --. *. *
05e0: 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 This procedure
05f0: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 is invoked by t
0600: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 he generic IO le
0610: 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d 0a 20 vel to perform.
0620: 2a 20 20 20 20 63 68 61 6e 6e 65 6c 2d 74 79 70 * channel-typ
0630: 65 2d 73 70 65 63 69 66 69 63 20 63 6c 65 61 6e e-specific clean
0640: 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f up when a SSL so
0650: 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e cket based chann
0660: 65 6c 0a 20 2a 20 20 20 20 69 73 20 63 6c 6f 73 el. * is clos
0670: 65 64 2e 0a 20 2a 0a 20 2a 20 20 20 20 4e 6f 74 ed.. *. * Not
0680: 65 3a 20 77 65 20 6c 65 61 76 65 20 74 68 65 20 e: we leave the
0690: 75 6e 64 65 72 6c 79 69 6e 67 20 73 6f 63 6b 65 underlying socke
06a0: 74 20 61 6c 6f 6e 65 2c 20 69 73 20 74 68 69 73 t alone, is this
06b0: 20 72 69 67 68 74 3f 0a 20 2a 0a 20 2a 20 52 65 right?. *. * Re
06c0: 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 30 20 69 sults:. * 0 i
06d0: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 f successful or
06e0: 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 POSIX error code
06f0: 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 if failed.. *.
0700: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0710: 20 2a 20 20 20 20 43 6c 6f 73 65 73 20 74 68 65 * Closes the
0720: 20 73 6f 63 6b 65 74 20 6f 66 20 74 68 65 20 63 socket of the c
0730: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d hannel.. *. *---
0740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0780: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
0790: 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 TlsCloseProc(Cli
07a0: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
07b0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
07c0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 *interp) {.
07d0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
07e0: 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 = (State *) inst
07f0: 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 64 anceData;.. d
0800: 70 72 69 6e 74 66 28 22 54 6c 73 43 6c 6f 73 65 printf("TlsClose
0810: 50 72 6f 63 28 25 70 29 22 2c 20 28 76 6f 69 64 Proc(%p)", (void
0820: 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a *) statePtr);..
0830: 20 20 20 20 54 6c 73 5f 43 6c 65 61 6e 28 73 74 Tls_Clean(st
0840: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c atePtr);. Tcl
0850: 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 28 _EventuallyFree(
0860: 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 74 (ClientData)stat
0870: 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 65 29 3b ePtr, Tls_Free);
0880: 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d . return 0;.}
0890: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
08a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
08e0: 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 20 2d TlsClose2Proc -
08f0: 2d 0a 20 2a 0a 20 2a 20 20 20 20 53 69 6d 69 6c -. *. * Simil
0900: 61 72 20 74 6f 20 54 6c 73 43 6c 6f 73 65 50 72 ar to TlsClosePr
0910: 6f 63 2c 20 62 75 74 20 61 6c 6c 6f 77 73 20 66 oc, but allows f
0920: 6f 72 20 73 65 70 61 72 61 74 65 20 63 6c 6f 73 or separate clos
0930: 65 20 72 65 61 64 20 61 6e 64 0a 20 2a 20 20 20 e read and. *
0940: 20 77 72 69 74 65 20 73 69 64 65 20 6f 66 20 63 write side of c
0950: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d hannel.. *. *---
0960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09a0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
09b0: 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 43 6c TlsClose2Proc(Cl
09c0: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
09d0: 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 54 68 65 eData, /* The
09e0: 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a socket state. *
09f0: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
0a00: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
0a10: 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 r errors - can b
0a20: 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 69 e NULL. */. i
0a30: 6e 74 20 66 6c 61 67 73 29 09 09 09 2f 2a 20 46 nt flags).../* F
0a40: 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65 20 72 65 lags to close re
0a50: 61 64 20 61 6e 64 2f 6f 72 20 77 72 69 74 65 20 ad and/or write
0a60: 73 69 64 65 20 6f 66 20 63 68 61 6e 6e 65 6c 20 side of channel
0a70: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a */.{. State *
0a80: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
0a90: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
0aa0: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
0ab0: 22 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 25 "TlsClose2Proc(%
0ac0: 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 p)", (void *) st
0ad0: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 atePtr);.. if
0ae0: 20 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f ((flags & (TCL_
0af0: 43 4c 4f 53 45 5f 52 45 41 44 7c 54 43 4c 5f 43 CLOSE_READ|TCL_C
0b00: 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d 20 LOSE_WRITE)) ==
0b10: 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 6c 73 0) {..return Tls
0b20: 43 6c 6f 73 65 50 72 6f 63 28 69 6e 73 74 61 6e CloseProc(instan
0b30: 63 65 44 61 74 61 2c 20 69 6e 74 65 72 70 29 3b ceData, interp);
0b40: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
0b50: 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a n EINVAL;.}../*.
0b60: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 --------*. *. *
0ba0: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
0bb0: 63 74 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 50 ct --. *. * P
0bc0: 65 72 66 6f 72 6d 20 63 6f 6e 6e 65 63 74 20 28 erform connect (
0bd0: 63 6c 69 65 6e 74 29 20 6f 72 20 61 63 63 65 70 client) or accep
0be0: 74 20 28 73 65 72 76 65 72 29 0a 20 2a 0a 20 2a t (server). *. *
0bf0: 20 52 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 30 Result:. * 0
0c00: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 if successful,
0c10: 2d 31 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a -1 if failed.. *
0c20: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0c30: 3a 0a 20 2a 20 20 20 20 49 73 73 75 65 73 20 53 :. * Issues S
0c40: 53 4c 5f 61 63 63 65 70 74 20 6f 72 20 53 53 4c SL_accept or SSL
0c50: 5f 63 6f 6e 6e 65 63 74 0a 20 2a 0a 20 2a 2d 2d _connect. *. *--
0c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c90: 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 69 6e 74 20 54 6c ----*. */.int Tl
0ca0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
0cb0: 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 (State *statePtr
0cc0: 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 , int *errorCode
0cd0: 50 74 72 2c 20 69 6e 74 20 68 61 6e 64 73 68 61 Ptr, int handsha
0ce0: 6b 65 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 keFailureIsPerma
0cf0: 6e 65 6e 74 29 20 7b 0a 20 20 20 20 75 6e 73 69 nent) {. unsi
0d00: 67 6e 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e gned long backin
0d10: 67 45 72 72 6f 72 3b 0a 20 20 20 20 69 6e 74 20 gError;. int
0d20: 65 72 72 2c 20 72 63 20 3d 20 30 3b 0a 20 20 20 err, rc = 0;.
0d30: 20 69 6e 74 20 62 69 6f 53 68 6f 75 6c 64 52 65 int bioShouldRe
0d40: 74 72 79 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 try;. *errorC
0d50: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 odePtr = 0;..
0d60: 20 64 70 72 69 6e 74 66 28 22 57 61 69 74 46 6f dprintf("WaitFo
0d70: 72 43 6f 6e 6e 65 63 74 28 25 70 29 22 2c 20 28 rConnect(%p)", (
0d80: 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 void *) statePtr
0d90: 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 46 6c 61 );. dprintFla
0da0: 67 73 28 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 gs(statePtr);..
0db0: 20 20 20 69 66 20 28 21 28 73 74 61 74 65 50 74 if (!(statePt
0dc0: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
0dd0: 43 4c 5f 49 4e 49 54 29 29 20 7b 0a 09 64 70 72 CL_INIT)) {..dpr
0de0: 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f intf("Tls_WaitFo
0df0: 72 43 6f 6e 6e 65 63 74 20 63 61 6c 6c 65 64 20 rConnect called
0e00: 6f 6e 20 61 6c 72 65 61 64 79 20 69 6e 69 74 69 on already initi
0e10: 61 6c 69 7a 65 64 20 63 68 61 6e 6e 65 6c 20 2d alized channel -
0e20: 2d 20 72 65 74 75 72 6e 69 6e 67 20 77 69 74 68 - returning with
0e30: 20 69 6d 6d 65 64 69 61 74 65 20 73 75 63 63 65 immediate succe
0e40: 73 73 22 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b ss");..return 0;
0e50: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 . }.. if (
0e60: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
0e70: 26 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 & TLS_TCL_HANDSH
0e80: 41 4b 45 5f 46 41 49 4c 45 44 29 20 7b 0a 09 2f AKE_FAILED) {../
0e90: 2a 0a 09 20 2a 20 44 69 66 66 65 72 65 6e 74 20 *.. * Different
0ea0: 74 79 70 65 73 20 6f 66 20 6f 70 65 72 61 74 69 types of operati
0eb0: 6f 6e 73 20 68 61 76 65 20 64 69 66 66 65 72 65 ons have differe
0ec0: 6e 74 20 72 65 71 75 69 72 65 6d 65 6e 74 73 0a nt requirements.
0ed0: 09 20 2a 20 53 53 4c 20 62 65 69 6e 67 20 65 73 . * SSL being es
0ee0: 74 61 62 6c 69 73 68 65 64 0a 09 20 2a 2f 0a 09 tablished.. */..
0ef0: 69 66 20 28 68 61 6e 64 73 68 61 6b 65 46 61 69 if (handshakeFai
0f00: 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 29 lureIsPermanent)
0f10: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
0f20: 22 41 73 6b 65 64 20 74 6f 20 77 61 69 74 20 66 "Asked to wait f
0f30: 6f 72 20 61 20 54 4c 53 20 68 61 6e 64 73 68 61 or a TLS handsha
0f40: 6b 65 20 74 68 61 74 20 68 61 73 20 61 6c 72 65 ke that has alre
0f50: 61 64 79 20 66 61 69 6c 65 64 2e 20 20 52 65 74 ady failed. Ret
0f60: 75 72 6e 69 6e 67 20 66 61 74 61 6c 20 65 72 72 urning fatal err
0f70: 6f 72 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f or");.. *erro
0f80: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
0f90: 41 42 4f 52 54 45 44 3b 0a 09 7d 20 65 6c 73 65 ABORTED;..} else
0fa0: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
0fb0: 22 41 73 6b 65 64 20 74 6f 20 77 61 69 74 20 66 "Asked to wait f
0fc0: 6f 72 20 61 20 54 4c 53 20 68 61 6e 64 73 68 61 or a TLS handsha
0fd0: 6b 65 20 74 68 61 74 20 68 61 73 20 61 6c 72 65 ke that has alre
0fe0: 61 64 79 20 66 61 69 6c 65 64 2e 20 20 52 65 74 ady failed. Ret
0ff0: 75 72 6e 69 6e 67 20 73 6f 66 74 20 65 72 72 6f urning soft erro
1000: 72 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 r");.. *error
1010: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 CodePtr = ECONNR
1020: 45 53 45 54 3b 0a 09 7d 0a 09 54 6c 73 5f 45 72 ESET;..}..Tls_Er
1030: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 57 ror(statePtr, "W
1040: 61 69 74 20 66 6f 72 20 66 61 69 6c 65 64 20 68 ait for failed h
1050: 61 6e 64 73 68 61 6b 65 22 29 3b 0a 09 72 65 74 andshake");..ret
1060: 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a 20 urn -1;. }..
1070: 20 20 20 66 6f 72 20 28 3b 3b 29 20 7b 0a 09 45 for (;;) {..E
1080: 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 RR_clear_error()
1090: 3b 0a 0a 09 2f 2a 20 4e 6f 74 20 69 6e 69 74 69 ;.../* Not initi
10a0: 61 6c 69 7a 65 64 20 79 65 74 21 20 41 6c 73 6f alized yet! Also
10b0: 20 63 61 6c 6c 73 20 53 53 4c 5f 64 6f 5f 68 61 calls SSL_do_ha
10c0: 6e 64 73 68 61 6b 65 2e 20 2a 2f 0a 09 69 66 20 ndshake. */..if
10d0: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
10e0: 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 & TLS_TCL_SERVE
10f0: 52 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 R) {.. dprint
1100: 66 28 22 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 61 f("Calling SSL_a
1110: 63 63 65 70 74 28 29 22 29 3b 0a 09 20 20 20 20 ccept()");..
1120: 65 72 72 20 3d 20 53 53 4c 5f 61 63 63 65 70 74 err = SSL_accept
1130: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
1140: 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 ...} else {..
1150: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e dprintf("Callin
1160: 67 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 28 29 22 g SSL_connect()"
1170: 29 3b 0a 09 20 20 20 20 65 72 72 20 3d 20 53 53 );.. err = SS
1180: 4c 5f 63 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 L_connect(stateP
1190: 74 72 2d 3e 73 73 6c 29 3b 0a 09 7d 0a 0a 09 69 tr->ssl);..}...i
11a0: 66 20 28 65 72 72 20 3e 20 30 29 20 7b 0a 09 20 f (err > 0) {..
11b0: 20 20 20 64 70 72 69 6e 74 66 28 22 41 63 63 65 dprintf("Acce
11c0: 70 74 20 6f 72 20 63 6f 6e 6e 65 63 74 20 77 61 pt or connect wa
11d0: 73 20 73 75 63 63 65 73 73 66 75 6c 22 29 3b 0a s successful");.
11e0: 0a 09 20 20 20 20 65 72 72 20 3d 20 42 49 4f 5f .. err = BIO_
11f0: 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e flush(statePtr->
1200: 62 69 6f 29 3b 0a 09 20 20 20 20 69 66 20 28 65 bio);.. if (e
1210: 72 72 20 3c 3d 20 30 29 20 7b 0a 09 09 64 70 72 rr <= 0) {...dpr
1220: 69 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 20 74 intf("Flushing t
1230: 68 65 20 6c 6f 77 65 72 20 6c 61 79 65 72 73 20 he lower layers
1240: 66 61 69 6c 65 64 2c 20 74 68 69 73 20 77 69 6c failed, this wil
1250: 6c 20 70 72 6f 62 61 62 6c 79 20 74 65 72 6d 69 l probably termi
1260: 6e 61 74 65 20 74 68 69 73 20 73 65 73 73 69 6f nate this sessio
1270: 6e 22 29 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 n");.. }..} e
1280: 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e lse {.. dprin
1290: 74 66 28 22 41 63 63 65 70 74 20 6f 72 20 63 6f tf("Accept or co
12a0: 6e 6e 65 63 74 20 66 61 69 6c 65 64 22 29 3b 0a nnect failed");.
12b0: 09 7d 0a 0a 09 72 63 20 3d 20 53 53 4c 5f 67 65 .}...rc = SSL_ge
12c0: 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 t_error(statePtr
12d0: 2d 3e 73 73 6c 2c 20 65 72 72 29 3b 0a 09 62 61 ->ssl, err);..ba
12e0: 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 ckingError = ERR
12f0: 5f 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a 09 69 _get_error();..i
1300: 66 20 28 72 63 20 21 3d 20 53 53 4c 5f 45 52 52 f (rc != SSL_ERR
1310: 4f 52 5f 4e 4f 4e 45 29 20 7b 0a 09 20 20 20 20 OR_NONE) {..
1320: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 65 72 72 dprintf("Got err
1330: 6f 72 3a 20 25 69 20 28 72 63 20 3d 20 25 69 29 or: %i (rc = %i)
1340: 22 2c 20 65 72 72 2c 20 72 63 29 3b 0a 09 20 20 ", err, rc);..
1350: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 65 dprintf("Got e
1360: 72 72 6f 72 3a 20 25 73 22 2c 20 45 52 52 5f 72 rror: %s", ERR_r
1370: 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 eason_error_stri
1380: 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 ng(backingError)
1390: 29 3b 0a 09 7d 0a 0a 09 62 69 6f 53 68 6f 75 6c );..}...bioShoul
13a0: 64 52 65 74 72 79 20 3d 20 30 3b 0a 09 69 66 20 dRetry = 0;..if
13b0: 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20 (err <= 0) {..
13c0: 20 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f if (rc == SSL_
13d0: 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 ERROR_WANT_CONNE
13e0: 43 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f CT || rc == SSL_
13f0: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50 ERROR_WANT_ACCEP
1400: 54 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 T) {...bioShould
1410: 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 20 Retry = 1;..
1420: 7d 20 65 6c 73 65 20 69 66 20 28 72 63 20 3d 3d } else if (rc ==
1430: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
1440: 52 45 41 44 29 20 7b 0a 09 09 62 69 6f 53 68 6f READ) {...bioSho
1450: 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 09 uldRetry = 1;...
1460: 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 3d statePtr->want =
1470: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 09 TCL_READABLE;..
1480: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 } else if (r
1490: 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 c == SSL_ERROR_W
14a0: 41 4e 54 5f 57 52 49 54 45 29 20 7b 0a 09 09 62 ANT_WRITE) {...b
14b0: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 ioShouldRetry =
14c0: 31 3b 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 77 1;...statePtr->w
14d0: 61 6e 74 20 3d 20 54 43 4c 5f 57 52 49 54 41 42 ant = TCL_WRITAB
14e0: 4c 45 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 LE;.. } else
14f0: 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 if (BIO_should_r
1500: 65 74 72 79 28 73 74 61 74 65 50 74 72 2d 3e 62 etry(statePtr->b
1510: 69 6f 29 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 io)) {...bioShou
1520: 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 ldRetry = 1;..
1530: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 63 20 } else if (rc
1540: 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 == SSL_ERROR_SYS
1550: 43 41 4c 4c 20 26 26 20 54 63 6c 5f 47 65 74 45 CALL && Tcl_GetE
1560: 72 72 6e 6f 28 29 20 3d 3d 20 45 41 47 41 49 4e rrno() == EAGAIN
1570: 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 ) {...bioShouldR
1580: 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d etry = 1;.. }
1590: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
15a0: 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e 69 74 if (!SSL_is_init
15b0: 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74 65 50 _finished(stateP
15c0: 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 09 62 69 tr->ssl)) {...bi
15d0: 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 oShouldRetry = 1
15e0: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 69 66 ;.. }..}...if
15f0: 20 28 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 (bioShouldRetry
1600: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
1610: 28 22 54 68 65 20 49 2f 4f 20 64 69 64 20 6e 6f ("The I/O did no
1620: 74 20 63 6f 6d 70 6c 65 74 65 20 2d 2d 20 62 75 t complete -- bu
1630: 74 20 77 65 20 73 68 6f 75 6c 64 20 74 72 79 20 t we should try
1640: 69 74 20 61 67 61 69 6e 22 29 3b 0a 0a 09 20 20 it again");...
1650: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
1660: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
1670: 41 53 59 4e 43 29 20 7b 0a 09 09 64 70 72 69 6e ASYNC) {...dprin
1680: 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 45 41 tf("Returning EA
1690: 47 41 49 4e 20 73 6f 20 74 68 61 74 20 69 74 20 GAIN so that it
16a0: 63 61 6e 20 62 65 20 72 65 74 72 69 65 64 20 6c can be retried l
16b0: 61 74 65 72 22 29 3b 0a 09 09 2a 65 72 72 6f 72 ater");...*error
16c0: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
16d0: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
16e0: 61 74 65 50 74 72 2c 20 22 48 61 6e 64 73 68 61 atePtr, "Handsha
16f0: 6b 65 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 2c ke not complete,
1700: 20 77 69 6c 6c 20 72 65 74 72 79 20 6c 61 74 65 will retry late
1710: 72 22 29 3b 0a 09 09 72 65 74 75 72 6e 20 2d 31 r");...return -1
1720: 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
1730: 09 09 64 70 72 69 6e 74 66 28 22 44 6f 69 6e 67 ..dprintf("Doing
1740: 20 73 6f 20 6e 6f 77 22 29 3b 0a 09 09 63 6f 6e so now");...con
1750: 74 69 6e 75 65 3b 0a 09 20 20 20 20 7d 0a 09 7d tinue;.. }..}
1760: 0a 0a 09 64 70 72 69 6e 74 66 28 22 57 65 20 68 ...dprintf("We h
1770: 61 76 65 20 65 69 74 68 65 72 20 63 6f 6d 70 6c ave either compl
1780: 65 74 65 6c 79 20 65 73 74 61 62 6c 69 73 68 65 etely establishe
1790: 64 20 74 68 65 20 73 65 73 73 69 6f 6e 20 6f 72 d the session or
17a0: 20 63 6f 6d 70 6c 65 74 65 6c 79 20 66 61 69 6c completely fail
17b0: 65 64 20 69 74 20 2d 2d 20 74 68 65 72 65 20 69 ed it -- there i
17c0: 73 20 6e 6f 20 6d 6f 72 65 20 6e 65 65 64 20 74 s no more need t
17d0: 6f 20 65 76 65 72 20 72 65 74 72 79 20 69 74 20 o ever retry it
17e0: 74 68 6f 75 67 68 22 29 3b 0a 09 62 72 65 61 6b though");..break
17f0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 ;. }.. swi
1800: 74 63 68 20 28 72 63 29 20 7b 0a 09 63 61 73 65 tch (rc) {..case
1810: 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a SSL_ERROR_NONE:
1820: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 54 4c 53 .. /* The TLS
1830: 2f 53 53 4c 20 49 2f 4f 20 6f 70 65 72 61 74 69 /SSL I/O operati
1840: 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 20 2a 2f 0a on completed */.
1850: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 68 . dprintf("Th
1860: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 e connection is
1870: 67 6f 6f 64 22 29 3b 0a 09 20 20 20 20 2a 65 72 good");.. *er
1880: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
1890: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
18a0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c se SSL_ERROR_SSL
18b0: 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d :.. /* A non-
18c0: 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 recoverable, fat
18d0: 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 al error in the
18e0: 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 75 SSL library occu
18f0: 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 rred, usually a
1900: 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a protocol error *
1910: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
1920: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 47 SSL_ERROR_SSL: G
1930: 6f 74 20 70 65 72 6d 61 6e 65 6e 74 20 66 61 74 ot permanent fat
1940: 61 6c 20 53 53 4c 20 65 72 72 6f 72 2c 20 61 62 al SSL error, ab
1950: 6f 72 74 69 6e 67 20 69 6d 6d 65 64 69 61 74 65 orting immediate
1960: 6c 79 22 29 3b 0a 09 20 20 20 20 69 66 20 28 53 ly");.. if (S
1970: 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 SL_get_verify_re
1980: 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 sult(statePtr->s
1990: 73 6c 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b sl) != X509_V_OK
19a0: 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 ) {...Tls_Error(
19b0: 73 74 61 74 65 50 74 72 2c 20 58 35 30 39 5f 76 statePtr, X509_v
19c0: 65 72 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 erify_cert_error
19d0: 5f 73 74 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f _string(SSL_get_
19e0: 76 65 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 verify_result(st
19f0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a atePtr->ssl)));.
1a00: 09 20 20 20 20 7d 0a 09 20 20 20 20 69 66 20 28 . }.. if (
1a10: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 21 3d 20 backingError !=
1a20: 30 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 0) {...Tls_Error
1a30: 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 5f 72 (statePtr, ERR_r
1a40: 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 eason_error_stri
1a50: 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 ng(backingError)
1a60: 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 73 );.. }.. s
1a70: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
1a80: 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 = TLS_TCL_HANDSH
1a90: 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 20 20 20 AKE_FAILED;..
1aa0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
1ab0: 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 ECONNABORTED;..
1ac0: 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a return -1;..
1ad0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
1ae0: 53 59 53 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a SYSCALL:.. /*
1af0: 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 Some non-recove
1b00: 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f rable, fatal I/O
1b10: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 error occurred
1b20: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
1b30: 22 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 "SSL_ERROR_SYSCA
1b40: 4c 4c 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 LL");... if (
1b50: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 backingError ==
1b60: 30 20 26 26 20 65 72 72 20 3d 3d 20 30 29 20 7b 0 && err == 0) {
1b70: 0a 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 20 ...dprintf("EOF
1b80: 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 72 reached")...*err
1b90: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
1ba0: 4e 52 45 53 45 54 3b 0a 09 09 54 6c 73 5f 45 72 NRESET;...Tls_Er
1bb0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 28 ror(statePtr, "(
1bc0: 75 6e 65 78 70 65 63 74 65 64 29 20 45 4f 46 20 unexpected) EOF
1bd0: 72 65 61 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 reached");...
1be0: 20 7d 20 65 6c 73 65 20 69 66 20 28 62 61 63 6b } else if (back
1bf0: 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 ingError == 0 &&
1c00: 20 65 72 72 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 err == -1) {...
1c10: 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 dprintf("I/O err
1c20: 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 72 or occurred (err
1c30: 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 no = %lu)", (uns
1c40: 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f igned long) Tcl_
1c50: 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a GetErrno());...*
1c60: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 errorCodePtr = T
1c70: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 cl_GetErrno();..
1c80: 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 .if (*errorCodeP
1c90: 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 tr == ECONNRESET
1ca0: 29 20 7b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 ) {... *error
1cb0: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 CodePtr = ECONNA
1cc0: 42 4f 52 54 45 44 3b 0a 09 09 7d 0a 09 09 54 6c BORTED;...}...Tl
1cd0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
1ce0: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 2a , Tcl_ErrnoMsg(*
1cf0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a errorCodePtr));.
1d00: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
1d10: 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 .dprintf("I/O er
1d20: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 62 61 ror occurred (ba
1d30: 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 ckingError = %lu
1d40: 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 )", backingError
1d50: 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 );...*errorCodeP
1d60: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
1d70: 6f 28 29 3b 0a 09 09 69 66 20 28 2a 65 72 72 6f o();...if (*erro
1d80: 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e rCodePtr == ECON
1d90: 4e 52 45 53 45 54 29 20 7b 0a 09 09 20 20 20 20 NRESET) {...
1da0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
1db0: 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 ECONNABORTED;...
1dc0: 7d 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 }...Tls_Error(st
1dd0: 61 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 atePtr, ERR_reas
1de0: 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 on_error_string(
1df0: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a backingError));.
1e00: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 73 74 61 . }... sta
1e10: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
1e20: 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b TLS_TCL_HANDSHAK
1e30: 45 5f 46 41 49 4c 45 44 3b 0a 09 20 20 20 20 72 E_FAILED;.. r
1e40: 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 65 eturn -1;...case
1e50: 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f SSL_ERROR_ZERO_
1e60: 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 RETURN:.. /*
1e70: 54 68 65 20 54 4c 53 2f 53 53 4c 20 70 65 65 72 The TLS/SSL peer
1e80: 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 has closed the
1e90: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 connection for w
1ea0: 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 6e riting by sendin
1eb0: 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 g the close_noti
1ec0: 66 79 20 61 6c 65 72 74 20 2a 2f 0a 09 20 20 20 fy alert */..
1ed0: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 dprintf("SSL_ER
1ee0: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
1ef0: 20 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 Connect returne
1f00: 64 20 61 6e 20 69 6e 76 61 6c 69 64 20 76 61 6c d an invalid val
1f10: 75 65 2e 2e 2e 22 29 3b 0a 09 20 20 20 20 2a 65 ue...");.. *e
1f20: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 rrorCodePtr = EI
1f30: 4e 56 41 4c 3b 0a 09 20 20 20 20 54 6c 73 5f 45 NVAL;.. Tls_E
1f40: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 rror(statePtr, "
1f50: 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 64 20 Peer has closed
1f60: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 the connection f
1f70: 6f 72 20 77 72 69 74 69 6e 67 20 62 79 20 73 65 or writing by se
1f80: 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f nding the close_
1f90: 6e 6f 74 69 66 79 20 61 6c 65 72 74 22 29 3b 0a notify alert");.
1fa0: 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a . return -1;.
1fb0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
1fc0: 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 63 61 73 _WANT_READ:..cas
1fd0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 e SSL_ERROR_WANT
1fe0: 5f 57 52 49 54 45 3a 0a 09 63 61 73 65 20 53 53 _WRITE:..case SS
1ff0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 L_ERROR_WANT_X50
2000: 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 63 61 73 65 20 9_LOOKUP:..case
2010: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 SSL_ERROR_WANT_C
2020: 4f 4e 4e 45 43 54 3a 0a 09 63 61 73 65 20 53 53 ONNECT:..case SS
2030: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 L_ERROR_WANT_ACC
2040: 45 50 54 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 EPT:..case SSL_E
2050: 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 3a RROR_WANT_ASYNC:
2060: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
2070: 5f 57 41 4e 54 5f 41 53 59 4e 43 5f 4a 4f 42 3a _WANT_ASYNC_JOB:
2080: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
2090: 5f 57 41 4e 54 5f 43 4c 49 45 4e 54 5f 48 45 4c _WANT_CLIENT_HEL
20a0: 4c 4f 5f 43 42 3a 0a 23 69 66 20 4f 50 45 4e 53 LO_CB:.#if OPENS
20b0: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 SL_VERSION_NUMBE
20c0: 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 30 4c R >= 0x30000000L
20d0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
20e0: 5f 57 41 4e 54 5f 52 45 54 52 59 5f 56 45 52 49 _WANT_RETRY_VERI
20f0: 46 59 3a 0a 23 65 6e 64 69 66 0a 09 64 65 66 61 FY:.#endif..defa
2100: 75 6c 74 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 ult:.. /* The
2110: 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e operation did n
2120: 6f 74 20 63 6f 6d 70 6c 65 74 65 20 61 6e 64 20 ot complete and
2130: 73 68 6f 75 6c 64 20 62 65 20 72 65 74 72 69 65 should be retrie
2140: 64 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 20 20 d later. */..
2150: 20 64 70 72 69 6e 74 66 28 22 4f 70 65 72 61 74 dprintf("Operat
2160: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 ion did not comp
2170: 6c 65 74 65 2c 20 63 61 6c 6c 20 66 75 6e 63 74 lete, call funct
2180: 69 6f 6e 20 61 67 61 69 6e 20 6c 61 74 65 72 3a ion again later:
2190: 20 25 69 22 2c 20 72 63 29 3b 0a 09 20 20 20 20 %i", rc);..
21a0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
21b0: 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 64 70 72 EAGAIN;.. dpr
21c0: 69 6e 74 66 28 22 45 52 52 28 25 64 2c 20 25 64 intf("ERR(%d, %d
21d0: 29 20 22 2c 20 72 63 2c 20 2a 65 72 72 6f 72 43 ) ", rc, *errorC
21e0: 6f 64 65 50 74 72 29 3b 0a 09 20 20 20 20 54 6c odePtr);.. Tl
21f0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
2200: 2c 20 22 4f 70 65 72 61 74 69 6f 6e 20 64 69 64 , "Operation did
2210: 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 2c 20 63 not complete, c
2220: 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 67 61 all function aga
2230: 69 6e 20 6c 61 74 65 72 22 29 3b 0a 09 20 20 20 in later");..
2240: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 return -1;.
2250: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
2260: 52 65 6d 6f 76 69 6e 67 20 74 68 65 20 5c 22 54 Removing the \"T
2270: 4c 53 5f 54 43 4c 5f 49 4e 49 54 5c 22 20 66 6c LS_TCL_INIT\" fl
2280: 61 67 20 73 69 6e 63 65 20 77 65 20 68 61 76 65 ag since we have
2290: 20 63 6f 6d 70 6c 65 74 65 64 20 74 68 65 20 68 completed the h
22a0: 61 6e 64 73 68 61 6b 65 22 29 3b 0a 20 20 20 20 andshake");.
22b0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
22c0: 26 3d 20 7e 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 &= ~TLS_TCL_INIT
22d0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
22e0: 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 73 75 63 Returning in suc
22f0: 63 65 73 73 22 29 3b 0a 20 20 20 20 2a 65 72 72 cess");. *err
2300: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 orCodePtr = 0;.
2310: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a return 0;.}..
2320: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
2330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2360: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
2370: 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 lsInputProc --.
2380: 2a 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f *. * This pro
2390: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
23a0: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
23b0: 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 IO level. *
23c0: 20 20 20 74 6f 20 72 65 61 64 20 69 6e 70 75 74 to read input
23d0: 20 66 72 6f 6d 20 61 20 53 53 4c 20 73 6f 63 6b from a SSL sock
23e0: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c et based channel
23f0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
2400: 0a 20 2a 20 20 20 20 52 65 74 75 72 6e 73 20 74 . * Returns t
2410: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 he number of byt
2420: 65 73 20 72 65 61 64 20 6f 72 20 2d 31 20 6f 6e es read or -1 on
2430: 20 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72 error. Sets err
2440: 6f 72 43 6f 64 65 50 74 72 0a 20 2a 20 20 20 20 orCodePtr. *
2450: 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 to a POSIX error
2460: 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f code if an erro
2470: 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 30 r occurred, or 0
2480: 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 if none.. *. *
2490: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
24a0: 20 20 20 20 52 65 61 64 73 20 69 6e 70 75 74 20 Reads input
24b0: 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 74 20 64 from the input d
24c0: 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 61 evice of the cha
24d0: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
24e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2520: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
2530: 73 49 6e 70 75 74 50 72 6f 63 28 43 6c 69 65 6e sInputProc(Clien
2540: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
2550: 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 69 ta, char *buf, i
2560: 6e 74 20 62 75 66 53 69 7a 65 2c 20 69 6e 74 20 nt bufSize, int
2570: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b *errorCodePtr) {
2580: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f . unsigned lo
2590: 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b ng backingError;
25a0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
25b0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
25c0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 instanceData;.
25d0: 20 20 20 69 6e 74 20 62 79 74 65 73 52 65 61 64 int bytesRead
25e0: 2c 20 65 72 72 3b 0a 20 20 20 20 2a 65 72 72 6f , err;. *erro
25f0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 rCodePtr = 0;..
2600: 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f dprintf("BIO_
2610: 72 65 61 64 28 25 64 29 22 2c 20 62 75 66 53 69 read(%d)", bufSi
2620: 7a 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 ze);.. /* Ski
2630: 70 20 69 66 20 75 73 65 72 20 76 65 72 69 66 79 p if user verify
2640: 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 73 74 69 callback is sti
2650: 6c 6c 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 20 ll running */.
2660: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
2670: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
2680: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
2690: 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 intf("Callback i
26a0: 73 20 72 75 6e 6e 69 6e 67 2c 20 72 65 61 64 69 s running, readi
26b0: 6e 67 20 30 20 62 79 74 65 73 22 29 3b 0a 09 72 ng 0 bytes");..r
26c0: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a eturn 0;. }..
26d0: 20 20 20 20 2f 2a 20 49 66 20 6e 6f 74 20 69 6e /* If not in
26e0: 69 74 69 61 6c 69 7a 65 64 2c 20 64 6f 20 63 6f itialized, do co
26f0: 6e 6e 65 63 74 20 2a 2f 0a 20 20 20 20 69 66 20 nnect */. if
2700: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
2710: 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 & TLS_TCL_INIT)
2720: 20 7b 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 {..int tlsConne
2730: 63 74 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 ct;...dprintf("C
2740: 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 alling Tls_WaitF
2750: 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a 09 74 orConnect");...t
2760: 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 5f lsConnect = Tls_
2770: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 WaitForConnect(s
2780: 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f tatePtr, errorCo
2790: 64 65 50 74 72 2c 20 30 29 3b 0a 09 69 66 20 28 dePtr, 0);..if (
27a0: 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 tlsConnect < 0)
27b0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
27c0: 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 61 69 Got an error wai
27d0: 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 ting to connect
27e0: 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 (tlsConnect = %i
27f0: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 , *errorCodePtr
2800: 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 = %i)", tlsConne
2810: 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 ct, *errorCodePt
2820: 72 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 r);.. Tls_Err
2830: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 or(statePtr, str
2840: 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 error(*errorCode
2850: 50 74 72 29 29 3b 0a 0a 09 20 20 20 20 62 79 74 Ptr));... byt
2860: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 esRead = -1;..
2870: 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 if (*errorCode
2880: 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 Ptr == ECONNRESE
2890: 54 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 T) {...dprintf("
28a0: 47 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 Got connection r
28b0: 65 73 65 74 22 29 3b 0a 09 09 2f 2a 20 53 6f 66 eset");.../* Sof
28c0: 74 20 45 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 6f t EOF */...*erro
28d0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 rCodePtr = 0;...
28e0: 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 bytesRead = 0;..
28f0: 20 20 20 20 7d 0a 09 20 20 20 20 72 65 74 75 72 }.. retur
2900: 6e 20 62 79 74 65 73 52 65 61 64 3b 0a 09 7d 0a n bytesRead;..}.
2910: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 }.. /*.
2920: 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 * We need to
2930: 63 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 clear the SSL er
2940: 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 ror stack now be
2950: 63 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d cause we sometim
2960: 65 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a 20 es reach. *
2970: 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 this function wi
2980: 74 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f th leftover erro
2990: 72 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e rs in the stack.
29a0: 20 20 49 66 20 42 49 4f 5f 72 65 61 64 0a 20 20 If BIO_read.
29b0: 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 * returns -1
29c0: 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 and intends EAGA
29d0: 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c IN, there is a l
29e0: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 eftover error, i
29f0: 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a t will be. *
2a00: 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 misconstrued as
2a10: 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 an error, not E
2a20: 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 AGAIN.. *.
2a30: 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 * Alternative
2a40: 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 20 ly, we may want
2a50: 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 to handle the <0
2a60: 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 72 return codes fr
2a70: 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f 72 65 om. * BIO_re
2a80: 61 64 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 ad specially (as
2a90: 20 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 advised in the
2aa0: 52 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 RSA docs). TLS'
2ab0: 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c 20 42 49 s lower level BI
2ac0: 4f 0a 20 20 20 20 20 2a 20 66 75 6e 63 74 69 6f O. * functio
2ad0: 6e 73 20 70 6c 61 79 20 77 69 74 68 20 74 68 65 ns play with the
2ae0: 20 72 65 74 72 79 20 66 6c 61 67 73 20 74 68 6f retry flags tho
2af0: 75 67 68 2c 20 61 6e 64 20 74 68 69 73 20 73 65 ugh, and this se
2b00: 65 6d 73 20 74 6f 20 77 6f 72 6b 0a 20 20 20 20 ems to work.
2b10: 20 2a 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 * correctly. S
2b20: 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 54 6c imilar fix in Tl
2b30: 73 4f 75 74 70 75 74 50 72 6f 63 2e 20 2d 20 68 sOutputProc. - h
2b40: 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 obbs. */.
2b50: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 ERR_clear_error
2b60: 28 29 3b 0a 20 20 20 20 2f 2a 20 42 49 4f 5f 72 ();. /* BIO_r
2b70: 65 61 64 2c 20 77 68 65 72 65 20 30 20 6d 65 61 ead, where 0 mea
2b80: 6e 73 20 45 4f 46 20 61 6e 64 20 2d 31 20 6d 65 ns EOF and -1 me
2b90: 61 6e 73 20 65 72 72 6f 72 20 2a 2f 0a 20 20 20 ans error */.
2ba0: 20 62 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f bytesRead = BIO
2bb0: 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e _read(statePtr->
2bc0: 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a bio, buf, bufSiz
2bd0: 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 e);. dprintf(
2be0: 22 42 49 4f 5f 72 65 61 64 20 2d 3e 20 25 64 22 "BIO_read -> %d"
2bf0: 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a 0a 20 , bytesRead);..
2c00: 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 err = SSL_get
2c10: 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d _error(statePtr-
2c20: 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61 64 29 >ssl, bytesRead)
2c30: 3b 0a 20 20 20 20 62 61 63 6b 69 6e 67 45 72 72 ;. backingErr
2c40: 6f 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 or = ERR_get_err
2c50: 6f 72 28 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 or();.. if (b
2c60: 79 74 65 73 52 65 61 64 20 3c 3d 20 30 29 20 7b ytesRead <= 0) {
2c70: 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 ..if (BIO_should
2c80: 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 2d _retry(statePtr-
2c90: 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 >bio)) {.. dp
2ca0: 72 69 6e 74 66 28 22 52 65 61 64 20 66 61 69 6c rintf("Read fail
2cb0: 65 64 20 77 69 74 68 20 63 6f 64 65 3d 25 64 2c ed with code=%d,
2cc0: 20 62 79 74 65 73 20 72 65 61 64 3d 25 64 3a 20 bytes read=%d:
2cd0: 73 68 6f 75 6c 64 20 72 65 74 72 79 22 2c 20 65 should retry", e
2ce0: 72 72 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a rr, bytesRead);.
2cf0: 09 20 20 20 20 2f 2a 20 53 6f 6d 65 20 64 6f 63 . /* Some doc
2d00: 73 20 69 6d 70 6c 79 20 77 65 20 73 68 6f 75 6c s imply we shoul
2d10: 64 20 72 65 64 6f 20 74 68 65 20 42 49 4f 5f 72 d redo the BIO_r
2d20: 65 61 64 20 6e 6f 77 20 2a 2f 0a 09 7d 20 65 6c ead now */..} el
2d30: 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 se {.. dprint
2d40: 66 28 22 52 65 61 64 20 66 61 69 6c 65 64 20 77 f("Read failed w
2d50: 69 74 68 20 63 6f 64 65 3d 25 64 2c 20 62 79 74 ith code=%d, byt
2d60: 65 73 20 72 65 61 64 3d 25 64 3a 20 65 72 72 6f es read=%d: erro
2d70: 72 20 63 6f 6e 64 69 74 69 6f 6e 22 2c 20 65 72 r condition", er
2d80: 72 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a 09 r, bytesRead);..
2d90: 7d 0a 09 0a 09 2f 2a 20 54 68 65 73 65 20 61 72 }..../* These ar
2da0: 65 20 74 68 65 20 73 61 6d 65 20 61 73 20 42 49 e the same as BI
2db0: 4f 5f 72 65 74 72 79 5f 74 79 70 65 20 2a 2f 0a O_retry_type */.
2dc0: 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f .if (BIO_should_
2dd0: 72 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 read(statePtr->b
2de0: 69 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 io)) {.. dpri
2df0: 6e 74 66 28 22 42 49 4f 20 68 61 73 20 69 6e 73 ntf("BIO has ins
2e00: 75 66 66 69 63 69 65 6e 74 20 64 61 74 61 20 74 ufficient data t
2e10: 6f 20 72 65 61 64 20 61 6e 64 20 72 65 74 75 72 o read and retur
2e20: 6e 22 29 3b 0a 09 7d 0a 09 69 66 20 28 42 49 4f n");..}..if (BIO
2e30: 5f 73 68 6f 75 6c 64 5f 77 72 69 74 65 28 73 74 _should_write(st
2e40: 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a atePtr->bio)) {.
2e50: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 . dprintf("BI
2e60: 4f 20 68 61 73 20 70 65 6e 64 69 6e 67 20 64 61 O has pending da
2e70: 74 61 20 74 6f 20 77 72 69 74 65 22 29 3b 0a 09 ta to write");..
2e80: 7d 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c }..if (BIO_shoul
2e90: 64 5f 69 6f 5f 73 70 65 63 69 61 6c 28 73 74 61 d_io_special(sta
2ea0: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
2eb0: 20 20 20 20 69 6e 74 20 72 65 61 73 6f 6e 20 3d int reason =
2ec0: 20 42 49 4f 5f 67 65 74 5f 72 65 74 72 79 5f 72 BIO_get_retry_r
2ed0: 65 61 73 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e eason(statePtr->
2ee0: 62 69 6f 29 3b 0a 09 20 20 20 20 64 70 72 69 6e bio);.. dprin
2ef0: 74 66 28 22 42 49 4f 20 68 61 73 20 73 6f 6d 65 tf("BIO has some
2f00: 20 73 70 65 63 69 61 6c 20 63 6f 6e 64 69 74 69 special conditi
2f10: 6f 6e 20 6f 74 68 65 72 20 74 68 61 6e 20 72 65 on other than re
2f20: 61 64 20 6f 72 20 77 72 69 74 65 3a 20 63 6f 64 ad or write: cod
2f30: 65 3d 25 64 22 2c 20 72 65 61 73 6f 6e 29 3b 0a e=%d", reason);.
2f40: 09 7d 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f .}..dprintf("BIO
2f50: 20 68 61 73 20 70 65 6e 64 69 6e 67 20 64 61 74 has pending dat
2f60: 61 20 74 6f 20 77 72 69 74 65 22 29 3b 0a 20 20 a to write");.
2f70: 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 }.. switch
2f80: 28 65 72 72 29 20 7b 0a 09 63 61 73 65 20 53 53 (err) {..case SS
2f90: 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 L_ERROR_NONE:..
2fa0: 20 20 20 2f 2a 20 49 2f 4f 20 6f 70 65 72 61 74 /* I/O operat
2fb0: 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 20 2a 2f ion completed */
2fc0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
2fd0: 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 22 29 3b SL_ERROR_NONE");
2fe0: 0a 09 20 20 20 20 64 70 72 69 6e 74 42 75 66 66 .. dprintBuff
2ff0: 65 72 28 62 75 66 2c 20 62 79 74 65 73 52 65 61 er(buf, bytesRea
3000: 64 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a d);.. break;.
3010: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
3020: 5f 53 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 20 _SSL:.. /* A
3030: 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c non-recoverable,
3040: 20 66 61 74 61 6c 20 65 72 72 6f 72 20 69 6e 20 fatal error in
3050: 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 20 the SSL library
3060: 6f 63 63 75 72 72 65 64 2c 20 75 73 75 61 6c 6c occurred, usuall
3070: 79 20 61 20 70 72 6f 74 6f 63 6f 6c 20 65 72 72 y a protocol err
3080: 6f 72 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e or */.. dprin
3090: 74 66 28 22 53 53 4c 20 65 72 72 6f 72 2c 20 69 tf("SSL error, i
30a0: 6e 64 69 63 61 74 69 6e 67 20 74 68 61 74 20 74 ndicating that t
30b0: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 he connection ha
30c0: 73 20 62 65 65 6e 20 61 62 6f 72 74 65 64 22 29 s been aborted")
30d0: 3b 0a 09 20 20 20 20 69 66 20 28 62 61 63 6b 69 ;.. if (backi
30e0: 6e 67 45 72 72 6f 72 20 21 3d 20 30 29 20 7b 0a ngError != 0) {.
30f0: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
3100: 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e ePtr, ERR_reason
3110: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 _error_string(ba
3120: 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 ckingError));..
3130: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 53 53 } else if (SS
3140: 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 L_get_verify_res
3150: 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ult(statePtr->ss
3160: 6c 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 l) != X509_V_OK)
3170: 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 {...Tls_Error(s
3180: 74 61 74 65 50 74 72 2c 20 58 35 30 39 5f 76 65 tatePtr, X509_ve
3190: 72 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f rify_cert_error_
31a0: 73 74 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 string(SSL_get_v
31b0: 65 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 erify_result(sta
31c0: 74 65 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 tePtr->ssl)));..
31d0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 } else {...T
31e0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
31f0: 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 r, "Unknown SSL
3200: 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 7d 0a error");.. }.
3210: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3220: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
3230: 44 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 D;.. bytesRea
3240: 64 20 3d 20 2d 31 3b 0a 0a 23 69 66 20 4f 50 45 d = -1;..#if OPE
3250: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
3260: 42 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 BER >= 0x3000000
3270: 30 4c 0a 09 20 20 20 20 2f 2a 20 55 6e 65 78 70 0L.. /* Unexp
3280: 65 63 74 65 64 20 45 4f 46 20 66 72 6f 6d 20 74 ected EOF from t
3290: 68 65 20 70 65 65 72 20 66 6f 72 20 4f 70 65 6e he peer for Open
32a0: 53 53 4c 20 33 2e 30 2b 20 2a 2f 0a 09 20 20 20 SSL 3.0+ */..
32b0: 20 69 66 20 28 45 52 52 5f 47 45 54 5f 52 45 41 if (ERR_GET_REA
32c0: 53 4f 4e 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 SON(backingError
32d0: 29 20 3d 3d 20 53 53 4c 5f 52 5f 55 4e 45 58 50 ) == SSL_R_UNEXP
32e0: 45 43 54 45 44 5f 45 4f 46 5f 57 48 49 4c 45 5f ECTED_EOF_WHILE_
32f0: 52 45 41 44 49 4e 47 29 20 7b 0a 09 09 64 70 72 READING) {...dpr
3300: 69 6e 74 66 28 22 28 55 6e 65 78 70 65 63 74 65 intf("(Unexpecte
3310: 64 29 20 45 4f 46 20 72 65 61 63 68 65 64 22 29 d) EOF reached")
3320: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
3330: 20 3d 20 30 3b 0a 09 09 62 79 74 65 73 52 65 61 = 0;...bytesRea
3340: 64 20 3d 20 30 3b 0a 09 09 54 6c 73 5f 45 72 72 d = 0;...Tls_Err
3350: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 45 4f or(statePtr, "EO
3360: 46 20 72 65 61 63 68 65 64 22 29 3b 0a 09 20 20 F reached");..
3370: 20 20 7d 0a 23 65 6e 64 69 66 0a 09 20 20 20 20 }.#endif..
3380: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
3390: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 L_ERROR_WANT_REA
33a0: 44 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 20 64 69 D:.. /* Op di
33b0: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 64 d not complete d
33c0: 75 65 20 74 6f 20 6e 6f 74 20 65 6e 6f 75 67 68 ue to not enough
33d0: 20 64 61 74 61 20 77 61 73 20 61 76 61 69 6c 61 data was availa
33e0: 62 6c 65 2e 20 52 65 74 72 79 20 6c 61 74 65 72 ble. Retry later
33f0: 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
3400: 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 f("Got SSL_ERROR
3410: 5f 57 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70 70 _WANT_READ, mapp
3420: 69 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 41 ing this to EAGA
3430: 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f IN");.. *erro
3440: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
3450: 4e 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 N;.. bytesRea
3460: 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 73 74 61 d = -1;.. sta
3470: 74 65 50 74 72 2d 3e 77 61 6e 74 20 3d 20 54 43 tePtr->want = TC
3480: 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 09 20 20 20 L_READABLE;..
3490: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
34a0: 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f Ptr, "SSL_ERROR_
34b0: 57 41 4e 54 5f 52 45 41 44 22 29 3b 0a 09 20 20 WANT_READ");..
34c0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
34d0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
34e0: 52 49 54 45 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 RITE:.. /* Op
34f0: 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 did not complet
3500: 65 20 64 75 65 20 74 6f 20 75 6e 61 62 6c 65 20 e due to unable
3510: 74 6f 20 73 65 6e 74 20 61 6c 6c 20 64 61 74 61 to sent all data
3520: 20 74 6f 20 74 68 65 20 42 49 4f 2e 20 52 65 74 to the BIO. Ret
3530: 72 79 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 20 ry later. */..
3540: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
3550: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
3560: 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 ITE, mapping thi
3570: 73 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 s to EAGAIN");..
3580: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
3590: 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 r = EAGAIN;..
35a0: 20 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b bytesRead = -1;
35b0: 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
35c0: 77 61 6e 74 20 3d 20 54 43 4c 5f 57 52 49 54 41 want = TCL_WRITA
35d0: 42 4c 45 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 BLE;.. Tls_Er
35e0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 ror(statePtr, "S
35f0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
3600: 49 54 45 22 29 3b 0a 09 20 20 20 20 62 72 65 61 ITE");.. brea
3610: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
3620: 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f ROR_WANT_X509_LO
3630: 4f 4b 55 50 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 OKUP:.. /* Op
3640: 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 74 65 didn't complete
3650: 20 73 69 6e 63 65 20 63 61 6c 6c 62 61 63 6b 20 since callback
3660: 73 65 74 20 62 79 20 53 53 4c 5f 43 54 58 5f 73 set by SSL_CTX_s
3670: 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 74 5f 63 et_client_cert_c
3680: 62 28 29 20 61 73 6b 65 64 20 74 6f 20 62 65 20 b() asked to be
3690: 63 61 6c 6c 65 64 20 61 67 61 69 6e 20 2a 2f 0a called again */.
36a0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
36b0: 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 t SSL_ERROR_WANT
36c0: 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 2c 20 6d 61 _X509_LOOKUP, ma
36d0: 70 70 69 6e 67 20 69 74 20 74 6f 20 45 41 47 41 pping it to EAGA
36e0: 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f IN");.. *erro
36f0: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
3700: 4e 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 N;.. bytesRea
3710: 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 54 6c 73 d = -1;.. Tls
3720: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
3730: 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 "SSL_ERROR_WANT
3740: 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 22 29 3b 0a _X509_LOOKUP");.
3750: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
3760: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 se SSL_ERROR_SYS
3770: 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f CALL:.. /* So
3780: 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 me non-recoverab
3790: 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 le, fatal I/O er
37a0: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a ror occurred */.
37b0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
37c0: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 22 L_ERROR_SYSCALL"
37d0: 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63 );... if (bac
37e0: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
37f0: 26 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 30 & bytesRead == 0
3800: 29 20 7b 0a 09 09 2f 2a 20 55 6e 65 78 70 65 63 ) {.../* Unexpec
3810: 74 65 64 20 45 4f 46 20 66 72 6f 6d 20 74 68 65 ted EOF from the
3820: 20 70 65 65 72 20 66 6f 72 20 4f 70 65 6e 53 53 peer for OpenSS
3830: 4c 20 31 2e 31 20 2a 2f 0a 09 09 64 70 72 69 6e L 1.1 */...dprin
3840: 74 66 28 22 28 55 6e 65 78 70 65 63 74 65 64 29 tf("(Unexpected)
3850: 20 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 EOF reached")..
3860: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
3870: 20 30 3b 0a 09 09 62 79 74 65 73 52 65 61 64 20 0;...bytesRead
3880: 3d 20 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 = 0;...Tls_Error
3890: 28 73 74 61 74 65 50 74 72 2c 20 22 45 4f 46 20 (statePtr, "EOF
38a0: 72 65 61 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 reached");...
38b0: 20 7d 20 65 6c 73 65 20 69 66 20 28 62 61 63 6b } else if (back
38c0: 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 ingError == 0 &&
38d0: 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 2d 31 bytesRead == -1
38e0: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 49 ) {...dprintf("I
38f0: 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 /O error occurre
3900: 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 22 d (errno = %lu)"
3910: 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 , (unsigned long
3920: 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 ) Tcl_GetErrno()
3930: 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 );...*errorCodeP
3940: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
3950: 6f 28 29 3b 0a 09 09 62 79 74 65 73 52 65 61 64 o();...bytesRead
3960: 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 = -1;...Tls_Err
3970: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 63 6c or(statePtr, Tcl
3980: 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 6f 72 _ErrnoMsg(*error
3990: 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 CodePtr));...
39a0: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 } else {...dpri
39b0: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
39c0: 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 6e 67 ccurred (backing
39d0: 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20 62 Error = %lu)", b
39e0: 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09 09 ackingError);...
39f0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3a00: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a Tcl_GetErrno();.
3a10: 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 ..bytesRead = -1
3a20: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
3a30: 61 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 atePtr, ERR_reas
3a40: 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 on_error_string(
3a50: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a backingError));.
3a60: 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 65 61 . }.. brea
3a70: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
3a80: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
3a90: 0a 09 20 20 20 20 2f 2a 20 50 65 65 72 20 68 61 .. /* Peer ha
3aa0: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
3ab0: 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 nection for writ
3ac0: 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 ing by sending t
3ad0: 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 he close_notify
3ae0: 61 6c 65 72 74 2e 20 4e 6f 20 6d 6f 72 65 20 64 alert. No more d
3af0: 61 74 61 20 63 61 6e 20 62 65 20 72 65 61 64 2e ata can be read.
3b00: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
3b10: 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f ("Got SSL_ERROR_
3b20: 5a 45 52 4f 5f 52 45 54 55 52 4e 2c 20 74 68 69 ZERO_RETURN, thi
3b30: 73 20 6d 65 61 6e 73 20 61 6e 20 45 4f 46 20 68 s means an EOF h
3b40: 61 73 20 62 65 65 6e 20 72 65 61 63 68 65 64 22 as been reached"
3b50: 29 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 );.. bytesRea
3b60: 64 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65 72 72 d = 0;.. *err
3b70: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 orCodePtr = 0;..
3b80: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
3b90: 61 74 65 50 74 72 2c 20 22 50 65 65 72 20 68 61 atePtr, "Peer ha
3ba0: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
3bb0: 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 nection for writ
3bc0: 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 ing by sending t
3bd0: 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 he close_notify
3be0: 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 62 72 alert");.. br
3bf0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
3c00: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 ERROR_WANT_ASYNC
3c10: 3a 0a 09 20 20 20 20 2f 2a 20 55 73 65 64 20 77 :.. /* Used w
3c20: 69 74 68 20 66 6c 61 67 20 53 53 4c 5f 4d 4f 44 ith flag SSL_MOD
3c30: 45 5f 41 53 59 4e 43 2c 20 6f 70 20 64 69 64 6e E_ASYNC, op didn
3c40: 27 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 't complete beca
3c50: 75 73 65 20 61 6e 20 61 73 79 6e 63 20 65 6e 67 use an async eng
3c60: 69 6e 65 20 69 73 20 73 74 69 6c 6c 20 70 72 6f ine is still pro
3c70: 63 65 73 73 69 6e 67 20 64 61 74 61 20 2a 2f 0a cessing data */.
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 41 53 59 4e 43 2c 20 6d 61 70 70 69 6e 67 20 _ASYNC, mapping
3cb0: 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 this to EAGAIN")
3cc0: 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 ;.. bytesRead
3cd0: 20 3d 20 2d 31 3b 0a 09 20 20 20 20 2a 65 72 72 = -1;.. *err
3ce0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
3cf0: 49 4e 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 IN;.. Tls_Err
3d00: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 or(statePtr, "SS
3d10: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 L_ERROR_WANT_ASY
3d20: 4e 43 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b NC");.. break
3d30: 3b 0a 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 ;...default:..
3d40: 20 20 64 70 72 69 6e 74 66 28 22 55 6e 6b 6e 6f dprintf("Unkno
3d50: 77 6e 20 65 72 72 6f 72 20 28 65 72 72 20 3d 20 wn error (err =
3d60: 25 69 29 2c 20 6d 61 70 70 69 6e 67 20 74 6f 20 %i), mapping to
3d70: 45 4f 46 22 2c 20 65 72 72 29 3b 0a 09 20 20 20 EOF", err);..
3d80: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
3d90: 20 30 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 0;.. bytesRe
3da0: 61 64 20 3d 20 30 3b 0a 09 20 20 20 20 54 6c 73 ad = 0;.. Tls
3db0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
3dc0: 20 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 22 "Unknown error"
3dd0: 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 );.. break;.
3de0: 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 }.. dprint
3df0: 66 28 22 49 6e 70 75 74 28 25 64 29 20 2d 3e 20 f("Input(%d) ->
3e00: 25 64 20 5b 25 64 5d 22 2c 20 62 75 66 53 69 7a %d [%d]", bufSiz
3e10: 65 2c 20 62 79 74 65 73 52 65 61 64 2c 20 2a 65 e, bytesRead, *e
3e20: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 20 20 rrorCodePtr);.
3e30: 20 20 72 65 74 75 72 6e 20 62 79 74 65 73 52 65 return bytesRe
3e40: 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ad;.}../*. *----
3e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3e90: 20 2a 0a 20 2a 20 54 6c 73 4f 75 74 70 75 74 50 *. * TlsOutputP
3ea0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 roc --. *. *
3eb0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 This procedure i
3ec0: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
3ed0: 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 generic IO leve
3ee0: 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 77 72 l. * to wr
3ef0: 69 74 65 20 6f 75 74 70 75 74 20 74 6f 20 61 20 ite output to a
3f00: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
3f10: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
3f20: 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 52 Results:. * R
3f30: 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 eturns the numbe
3f40: 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 74 74 r of bytes writt
3f50: 65 6e 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f en or -1 on erro
3f60: 72 2e 20 53 65 74 73 20 65 72 72 6f 72 43 6f 64 r. Sets errorCod
3f70: 65 50 74 72 0a 20 2a 20 20 20 20 74 6f 20 61 20 ePtr. * to a
3f80: 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 POSIX error code
3f90: 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 if an error occ
3fa0: 75 72 72 65 64 2c 20 6f 72 20 30 20 69 66 20 6e urred, or 0 if n
3fb0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 one.. *. * Side
3fc0: 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 57 effects:. * W
3fd0: 72 69 74 65 73 20 6f 75 74 70 75 74 20 6f 6e 20 rites output on
3fe0: 74 68 65 20 6f 75 74 70 75 74 20 64 65 76 69 63 the output devic
3ff0: 65 20 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 6c e of the channel
4000: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
4010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
4050: 74 61 74 69 63 20 69 6e 74 20 54 6c 73 4f 75 74 tatic int TlsOut
4060: 70 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 putProc(ClientDa
4070: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
4080: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 62 75 66 const char *buf
4090: 2c 20 69 6e 74 20 74 6f 57 72 69 74 65 2c 20 69 , int toWrite, i
40a0: 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 nt *errorCodePtr
40b0: 29 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 ) {. unsigned
40c0: 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 long backingErr
40d0: 6f 72 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 or;. State *s
40e0: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
40f0: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
4100: 3b 0a 20 20 20 20 69 6e 74 20 77 72 69 74 74 65 ;. int writte
4110: 6e 2c 20 65 72 72 3b 0a 20 20 20 20 2a 65 72 72 n, err;. *err
4120: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a orCodePtr = 0;..
4130: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
4140: 5f 77 72 69 74 65 28 25 70 2c 20 25 64 29 22 2c _write(%p, %d)",
4150: 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 (void *) stateP
4160: 74 72 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20 tr, toWrite);.
4170: 20 20 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 dprintBuffer(b
4180: 75 66 2c 20 74 6f 57 72 69 74 65 29 3b 0a 0a 20 uf, toWrite);..
4190: 20 20 20 2f 2a 20 53 6b 69 70 20 69 66 20 75 73 /* Skip if us
41a0: 65 72 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 er verify callba
41b0: 63 6b 20 69 73 20 73 74 69 6c 6c 20 72 75 6e 6e ck is still runn
41c0: 69 6e 67 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ing */. if (s
41d0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
41e0: 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 TLS_TCL_CALLBAC
41f0: 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 44 K) {..dprintf("D
4200: 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 6f 75 74 on't process out
4210: 70 75 74 20 77 68 69 6c 65 20 63 61 6c 6c 62 61 put while callba
4220: 63 6b 73 20 61 72 65 20 72 75 6e 6e 69 6e 67 22 cks are running"
4230: 29 3b 0a 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 );..written = -1
4240: 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ;..*errorCodePtr
4250: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 72 65 74 75 = EAGAIN;..retu
4260: 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 rn -1;. }..
4270: 20 20 2f 2a 20 49 66 20 6e 6f 74 20 69 6e 69 74 /* If not init
4280: 69 61 6c 69 7a 65 64 2c 20 64 6f 20 63 6f 6e 6e ialized, do conn
4290: 65 63 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ect */. if (s
42a0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
42b0: 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b TLS_TCL_INIT) {
42c0: 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 74 ..int tlsConnect
42d0: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c ;...dprintf("Cal
42e0: 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 ling Tls_WaitFor
42f0: 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a 09 74 6c 73 Connect");...tls
4300: 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 Connect = Tls_Wa
4310: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 itForConnect(sta
4320: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 tePtr, errorCode
4330: 50 74 72 2c 20 31 29 3b 0a 09 69 66 20 28 74 6c Ptr, 1);..if (tl
4340: 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b 0a sConnect < 0) {.
4350: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
4360: 74 20 61 6e 20 65 72 72 6f 72 20 77 61 69 74 69 t an error waiti
4370: 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 28 74 ng to connect (t
4380: 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 2c 20 lsConnect = %i,
4390: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
43a0: 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 %i)", tlsConnect
43b0: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 , *errorCodePtr)
43c0: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
43d0: 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 65 72 (statePtr, strer
43e0: 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 ror(*errorCodePt
43f0: 72 29 29 3b 0a 0a 09 20 20 20 20 77 72 69 74 74 r));... writt
4400: 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 69 66 en = -1;.. if
4410: 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 (*errorCodePtr
4420: 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b == ECONNRESET) {
4430: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
4440: 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 connection reset
4450: 22 29 3b 0a 09 09 2f 2a 20 53 6f 66 74 20 45 4f ");.../* Soft EO
4460: 46 20 2a 2f 0a 09 09 2a 65 72 72 6f 72 43 6f 64 F */...*errorCod
4470: 65 50 74 72 20 3d 20 30 3b 0a 09 09 77 72 69 74 ePtr = 0;...writ
4480: 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 7d 0a ten = 0;.. }.
4490: 09 20 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 . return writ
44a0: 74 65 6e 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 ten;..}. }..
44b0: 20 20 20 69 66 20 28 74 6f 57 72 69 74 65 20 3d if (toWrite =
44c0: 3d 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 = 0) {..dprintf(
44d0: 22 7a 65 72 6f 2d 77 72 69 74 65 22 29 3b 0a 09 "zero-write");..
44e0: 65 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 err = BIO_flush(
44f0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
4500: 0a 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 ..if (err <= 0)
4510: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
4520: 46 6c 75 73 68 69 6e 67 20 66 61 69 6c 65 64 22 Flushing failed"
4530: 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f );.. Tls_Erro
4540: 72 28 73 74 61 74 65 50 74 72 2c 20 22 46 6c 75 r(statePtr, "Flu
4550: 73 68 20 66 61 69 6c 65 64 22 29 3b 0a 0a 09 20 sh failed");...
4560: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
4570: 20 3d 20 45 49 4f 3b 0a 09 20 20 20 20 77 72 69 = EIO;.. wri
4580: 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 72 tten = 0;.. r
4590: 65 74 75 72 6e 20 2d 31 3b 0a 09 7d 0a 0a 09 77 eturn -1;..}...w
45a0: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 2a 65 72 ritten = 0;..*er
45b0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
45c0: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
45d0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
45e0: 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 We need to clear
45f0: 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 73 the SSL error s
4600: 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 tack now because
4610: 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 we sometimes re
4620: 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 20 ach. * this
4630: 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c 65 function with le
4640: 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 6e ftover errors in
4650: 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 20 the stack. If
4660: 42 49 4f 5f 77 72 69 74 65 0a 20 20 20 20 20 2a BIO_write. *
4670: 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 returns -1 and
4680: 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 intends EAGAIN,
4690: 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f there is a lefto
46a0: 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 ver error, it wi
46b0: 6c 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 73 ll be. * mis
46c0: 63 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 construed as an
46d0: 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 error, not EAGAI
46e0: 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 2a N.. *. *
46f0: 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 Alternatively,
4700: 77 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 68 we may want to h
4710: 61 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 74 andle the <0 ret
4720: 75 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a 20 urn codes from.
4730: 20 20 20 20 2a 20 42 49 4f 5f 77 72 69 74 65 20 * BIO_write
4740: 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 61 64 specially (as ad
4750: 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 53 41 vised in the RSA
4760: 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 6c docs). TLS's l
4770: 6f 77 65 72 20 6c 65 76 65 6c 0a 20 20 20 20 20 ower level.
4780: 2a 20 42 49 4f 20 66 75 6e 63 74 69 6f 6e 73 20 * BIO functions
4790: 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 65 play with the re
47a0: 74 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 try flags though
47b0: 2c 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 , and this seems
47c0: 20 74 6f 0a 20 20 20 20 20 2a 20 77 6f 72 6b 20 to. * work
47d0: 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 6d 69 correctly. Simi
47e0: 6c 61 72 20 66 69 78 20 69 6e 20 54 6c 73 49 6e lar fix in TlsIn
47f0: 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 73 putProc. - hobbs
4800: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 52 52 . */. ERR
4810: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
4820: 20 20 20 20 2f 2a 20 53 53 4c 5f 77 72 69 74 65 /* SSL_write
4830: 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 31 20 66 will return 1 f
4840: 6f 72 20 73 75 63 63 65 73 73 20 6f 72 20 30 20 or success or 0
4850: 66 6f 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 20 for failure */.
4860: 20 20 20 77 72 69 74 74 65 6e 20 3d 20 42 49 4f written = BIO
4870: 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d _write(statePtr-
4880: 3e 62 69 6f 2c 20 62 75 66 2c 20 74 6f 57 72 69 >bio, buf, toWri
4890: 74 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 te);. dprintf
48a0: 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c 20 ("BIO_write(%p,
48b0: 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 20 28 76 %d) -> [%d]", (v
48c0: 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 2c oid *) statePtr,
48d0: 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 65 toWrite, writte
48e0: 6e 29 3b 0a 0a 20 20 20 20 65 72 72 20 3d 20 53 n);.. err = S
48f0: 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 SL_get_error(sta
4900: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 tePtr->ssl, writ
4910: 74 65 6e 29 3b 0a 20 20 20 20 62 61 63 6b 69 6e ten);. backin
4920: 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 74 gError = ERR_get
4930: 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 69 _error();.. i
4940: 66 20 28 77 72 69 74 74 65 6e 20 3c 3d 20 30 29 f (written <= 0)
4950: 20 7b 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 {..if (BIO_shou
4960: 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 ld_retry(statePt
4970: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 r->bio)) {..
4980: 64 70 72 69 6e 74 66 28 22 57 72 69 74 65 20 66 dprintf("Write f
4990: 61 69 6c 65 64 20 77 69 74 68 20 63 6f 64 65 20 ailed with code
49a0: 25 64 2c 20 62 79 74 65 73 20 77 72 69 74 74 65 %d, bytes writte
49b0: 6e 3d 25 64 3a 20 73 68 6f 75 6c 64 20 72 65 74 n=%d: should ret
49c0: 72 79 22 2c 20 65 72 72 2c 20 77 72 69 74 74 65 ry", err, writte
49d0: 6e 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 n);..} else {..
49e0: 20 20 20 64 70 72 69 6e 74 66 28 22 57 72 69 74 dprintf("Writ
49f0: 65 20 66 61 69 6c 65 64 20 77 69 74 68 20 63 6f e failed with co
4a00: 64 65 20 25 64 2c 20 62 79 74 65 73 20 77 72 69 de %d, bytes wri
4a10: 74 74 65 6e 3d 25 64 3a 20 65 72 72 6f 72 20 63 tten=%d: error c
4a20: 6f 6e 64 69 74 69 6f 6e 22 2c 20 65 72 72 2c 20 ondition", err,
4a30: 77 72 69 74 74 65 6e 29 3b 0a 09 7d 0a 09 0a 09 written);..}....
4a40: 2f 2a 20 54 68 65 73 65 20 61 72 65 20 74 68 65 /* These are the
4a50: 20 73 61 6d 65 20 61 73 20 42 49 4f 5f 72 65 74 same as BIO_ret
4a60: 72 79 5f 74 79 70 65 20 2a 2f 0a 09 69 66 20 28 ry_type */..if (
4a70: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 61 64 28 BIO_should_read(
4a80: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 statePtr->bio))
4a90: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
4aa0: 42 49 4f 20 68 61 73 20 69 6e 73 75 66 66 69 63 BIO has insuffic
4ab0: 69 65 6e 74 20 64 61 74 61 20 74 6f 20 72 65 61 ient data to rea
4ac0: 64 20 61 6e 64 20 72 65 74 75 72 6e 22 29 3b 0a d and return");.
4ad0: 09 7d 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 .}..if (BIO_shou
4ae0: 6c 64 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 ld_write(statePt
4af0: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 r->bio)) {..
4b00: 64 70 72 69 6e 74 66 28 22 42 49 4f 20 68 61 73 dprintf("BIO has
4b10: 20 70 65 6e 64 69 6e 67 20 64 61 74 61 20 74 6f pending data to
4b20: 20 77 72 69 74 65 22 29 3b 0a 09 7d 0a 09 69 66 write");..}..if
4b30: 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 69 6f 5f (BIO_should_io_
4b40: 73 70 65 63 69 61 6c 28 73 74 61 74 65 50 74 72 special(statePtr
4b50: 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 69 ->bio)) {.. i
4b60: 6e 74 20 72 65 61 73 6f 6e 20 3d 20 42 49 4f 5f nt reason = BIO_
4b70: 67 65 74 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e get_retry_reason
4b80: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
4b90: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 .. dprintf("B
4ba0: 49 4f 20 68 61 73 20 73 6f 6d 65 20 73 70 65 63 IO has some spec
4bb0: 69 61 6c 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 74 ial condition ot
4bc0: 68 65 72 20 74 68 61 6e 20 72 65 61 64 20 6f 72 her than read or
4bd0: 20 77 72 69 74 65 3a 20 63 6f 64 65 3d 25 64 22 write: code=%d"
4be0: 2c 20 72 65 61 73 6f 6e 29 3b 0a 09 7d 0a 09 64 , reason);..}..d
4bf0: 70 72 69 6e 74 66 28 22 42 49 4f 20 68 61 73 20 printf("BIO has
4c00: 70 65 6e 64 69 6e 67 20 64 61 74 61 20 74 6f 20 pending data to
4c10: 77 72 69 74 65 22 29 3b 0a 0a 20 20 20 20 7d 20 write");.. }
4c20: 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 66 6c 75 73 else {..BIO_flus
4c30: 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 h(statePtr->bio)
4c40: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 ;. }.. swi
4c50: 74 63 68 20 28 65 72 72 29 20 7b 0a 09 63 61 73 tch (err) {..cas
4c60: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 e SSL_ERROR_NONE
4c70: 3a 0a 09 20 20 20 20 2f 2a 20 49 2f 4f 20 6f 70 :.. /* I/O op
4c80: 65 72 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 eration complete
4c90: 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 d */.. dprint
4ca0: 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e f("SSL_ERROR_NON
4cb0: 45 22 29 3b 0a 09 20 20 20 20 69 66 20 28 77 72 E");.. if (wr
4cc0: 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09 77 itten < 0) {...w
4cd0: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 ritten = 0;..
4ce0: 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a }.. break;..
4cf0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
4d00: 53 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e SSL:.. /* A n
4d10: 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 on-recoverable,
4d20: 66 61 74 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 fatal error in t
4d30: 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 20 6f he SSL library o
4d40: 63 63 75 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 ccurred, usually
4d50: 20 61 20 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f a protocol erro
4d60: 72 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 r */.. dprint
4d70: 66 28 22 53 53 4c 20 65 72 72 6f 72 2c 20 69 6e f("SSL error, in
4d80: 64 69 63 61 74 69 6e 67 20 74 68 61 74 20 74 68 dicating that th
4d90: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 e connection has
4da0: 20 62 65 65 6e 20 61 62 6f 72 74 65 64 22 29 3b been aborted");
4db0: 0a 09 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e .. if (backin
4dc0: 67 45 72 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 gError != 0) {..
4dd0: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
4de0: 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f Ptr, ERR_reason_
4df0: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 error_string(bac
4e00: 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 kingError));..
4e10: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 53 53 4c } else if (SSL
4e20: 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 _get_verify_resu
4e30: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c lt(statePtr->ssl
4e40: 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 ) != X509_V_OK)
4e50: 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 {...Tls_Error(st
4e60: 61 74 65 50 74 72 2c 20 58 35 30 39 5f 76 65 72 atePtr, X509_ver
4e70: 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 ify_cert_error_s
4e80: 74 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 tring(SSL_get_ve
4e90: 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 rify_result(stat
4ea0: 65 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 ePtr->ssl)));..
4eb0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c } else {...Tl
4ec0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
4ed0: 2c 20 22 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 , "Unknown SSL e
4ee0: 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 rror");.. }..
4ef0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
4f00: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
4f10: 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d ;.. written =
4f20: 20 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b -1;.. break;
4f30: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
4f40: 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 R_WANT_READ:..
4f50: 20 20 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 20 /* Op did not
4f60: 63 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 complete due to
4f70: 6e 6f 74 20 65 6e 6f 75 67 68 20 64 61 74 61 20 not enough data
4f80: 77 61 73 20 61 76 61 69 6c 61 62 6c 65 2e 20 52 was available. R
4f90: 65 74 72 79 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 etry later. */..
4fa0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 dprintf("Got
4fb0: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
4fc0: 52 45 41 44 2c 20 6d 61 70 70 69 6e 67 20 69 74 READ, mapping it
4fd0: 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 to EAGAIN");..
4fe0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
4ff0: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
5000: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 written = -1;..
5010: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e statePtr->wan
5020: 74 20 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 t = TCL_READABLE
5030: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
5040: 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 4c 5f (statePtr, "SSL_
5050: 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 22 ERROR_WANT_READ"
5060: 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a );.. break;..
5070: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
5080: 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 20 WANT_WRITE:..
5090: 20 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 20 63 /* Op did not c
50a0: 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 75 omplete due to u
50b0: 6e 61 62 6c 65 20 74 6f 20 73 65 6e 74 20 61 6c nable to sent al
50c0: 6c 20 64 61 74 61 20 74 6f 20 74 68 65 20 42 49 l data to the BI
50d0: 4f 2e 20 52 65 74 72 79 20 6c 61 74 65 72 2e 20 O. Retry later.
50e0: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
50f0: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
5100: 41 4e 54 5f 57 52 49 54 45 2c 20 6d 61 70 70 69 ANT_WRITE, mappi
5110: 6e 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 ng it to EAGAIN"
5120: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
5130: 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a dePtr = EAGAIN;.
5140: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
5150: 31 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 1;.. statePtr
5160: 2d 3e 77 61 6e 74 20 3d 20 54 43 4c 5f 57 52 49 ->want = TCL_WRI
5170: 54 41 42 4c 45 3b 0a 09 20 20 20 20 54 6c 73 5f TABLE;.. Tls_
5180: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
5190: 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f "SSL_ERROR_WANT_
51a0: 57 52 49 54 45 22 29 3b 0a 09 20 20 20 20 62 72 WRITE");.. br
51b0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
51c0: 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f ERROR_WANT_X509_
51d0: 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 2f 2a 20 LOOKUP:.. /*
51e0: 4f 70 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 Op didn't comple
51f0: 74 65 20 73 69 6e 63 65 20 63 61 6c 6c 62 61 63 te since callbac
5200: 6b 20 73 65 74 20 62 79 20 53 53 4c 5f 43 54 58 k set by SSL_CTX
5210: 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 74 _set_client_cert
5220: 5f 63 62 28 29 20 61 73 6b 65 64 20 74 6f 20 62 _cb() asked to b
5230: 65 20 63 61 6c 6c 65 64 20 61 67 61 69 6e 20 2a e called again *
5240: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
5250: 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 Got SSL_ERROR_WA
5260: 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 2c 20 NT_X509_LOOKUP,
5270: 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 45 41 mapping it to EA
5280: 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 GAIN");.. *er
5290: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
52a0: 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 74 65 AIN;.. writte
52b0: 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 54 6c 73 n = -1;.. Tls
52c0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
52d0: 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 "SSL_ERROR_WANT
52e0: 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 22 29 3b 0a _X509_LOOKUP");.
52f0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
5300: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 se SSL_ERROR_SYS
5310: 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f CALL:.. /* So
5320: 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 me non-recoverab
5330: 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 le, fatal I/O er
5340: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a ror occurred */.
5350: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
5360: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 22 L_ERROR_SYSCALL"
5370: 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63 );... if (bac
5380: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
5390: 26 20 77 72 69 74 74 65 6e 20 3d 3d 20 30 29 20 & written == 0)
53a0: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 {...dprintf("EOF
53b0: 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 reached")...*er
53c0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
53d0: 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 ..written = 0;..
53e0: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
53f0: 50 74 72 2c 20 22 45 4f 46 20 72 65 61 63 68 65 Ptr, "EOF reache
5400: 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 d");... } els
5410: 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 e if (backingErr
5420: 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69 74 74 or == 0 && writt
5430: 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 en == -1) {...dp
5440: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
5450: 20 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f occurred (errno
5460: 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 = %lu)", (unsig
5470: 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 ned long) Tcl_Ge
5480: 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 tErrno());...*er
5490: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
54a0: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 77 _GetErrno();...w
54b0: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 54 ritten = -1;...T
54c0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
54d0: 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 r, Tcl_ErrnoMsg(
54e0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b *errorCodePtr));
54f0: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ... } else {.
5500: 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 ..dprintf("I/O e
5510: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 62 rror occurred (b
5520: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c ackingError = %l
5530: 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f u)", backingErro
5540: 72 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 r);...*errorCode
5550: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 Ptr = Tcl_GetErr
5560: 6e 6f 28 29 3b 0a 09 09 77 72 69 74 74 65 6e 20 no();...written
5570: 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 6f = -1;...Tls_Erro
5580: 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 5f r(statePtr, ERR_
5590: 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 reason_error_str
55a0: 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 ing(backingError
55b0: 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ));.. }..
55c0: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
55d0: 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 L_ERROR_ZERO_RET
55e0: 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 50 65 65 URN:.. /* Pee
55f0: 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 r has closed the
5600: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 connection for
5610: 77 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 writing by sendi
5620: 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 ng the close_not
5630: 69 66 79 20 61 6c 65 72 74 2e 20 4e 6f 20 6d 6f ify alert. No mo
5640: 72 65 20 64 61 74 61 20 63 61 6e 20 62 65 20 72 re data can be r
5650: 65 61 64 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 ead. */.. dpr
5660: 69 6e 74 66 28 22 20 63 6c 6f 73 65 64 22 29 3b intf(" closed");
5670: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 .. written =
5680: 30 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 0;.. *errorCo
5690: 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 dePtr = 0;..
56a0: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
56b0: 74 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 6c tr, "Peer has cl
56c0: 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 osed the connect
56d0: 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 20 ion for writing
56e0: 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 by sending the c
56f0: 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 lose_notify aler
5700: 74 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b t");.. break;
5710: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
5720: 52 5f 57 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 20 R_WANT_ASYNC:..
5730: 20 20 20 2f 2a 20 55 73 65 64 20 77 69 74 68 20 /* Used with
5740: 66 6c 61 67 20 53 53 4c 5f 4d 4f 44 45 5f 41 53 flag SSL_MODE_AS
5750: 59 4e 43 2c 20 6f 70 20 64 69 64 6e 27 74 20 63 YNC, op didn't c
5760: 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 73 65 20 omplete because
5770: 61 6e 20 61 73 79 6e 63 20 65 6e 67 69 6e 65 20 an async engine
5780: 69 73 20 73 74 69 6c 6c 20 70 72 6f 63 65 73 73 is still process
5790: 69 6e 67 20 64 61 74 61 20 2a 2f 0a 09 20 20 20 ing data */..
57a0: 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 dprintf("Got SS
57b0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 L_ERROR_WANT_ASY
57c0: 4e 43 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 73 NC, mapping this
57d0: 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 to EAGAIN");..
57e0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
57f0: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
5800: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 written = -1;..
5810: 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 Tls_Error(sta
5820: 74 65 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 4f tePtr, "SSL_ERRO
5830: 52 5f 57 41 4e 54 5f 41 53 59 4e 43 22 29 3b 0a R_WANT_ASYNC");.
5840: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 64 65 . break;...de
5850: 66 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 69 fault:.. dpri
5860: 6e 74 66 28 22 75 6e 6b 6e 6f 77 6e 20 65 72 72 ntf("unknown err
5870: 6f 72 3a 20 25 64 22 2c 20 65 72 72 29 3b 0a 09 or: %d", err);..
5880: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
5890: 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e atePtr, "Unknown
58a0: 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 62 error");.. b
58b0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 reak;. }..
58c0: 20 64 70 72 69 6e 74 66 28 22 4f 75 74 70 75 74 dprintf("Output
58d0: 28 25 64 29 20 2d 3e 20 25 64 22 2c 20 74 6f 57 (%d) -> %d", toW
58e0: 72 69 74 65 2c 20 77 72 69 74 74 65 6e 29 3b 0a rite, written);.
58f0: 20 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 74 return writt
5900: 65 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d en;.}../*. *----
5910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5950: 20 2a 0a 20 2a 20 54 6c 73 5f 47 65 74 50 61 72 *. * Tls_GetPar
5960: 65 6e 74 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 ent --. *. *
5970: 47 65 74 20 70 61 72 65 6e 74 20 63 68 61 6e 6e Get parent chann
5980: 65 6c 20 66 6f 72 20 61 20 73 74 61 63 6b 65 64 el for a stacked
5990: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
59a0: 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 Results:. * T
59b0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 6f 72 20 4e 55 cl_Channel or NU
59c0: 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 LL if none.. *.
59d0: 2a 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 54 63 6c 5f 43 68 61 ----. */.Tcl_Cha
5a20: 6e 6e 65 6c 20 54 6c 73 5f 47 65 74 50 61 72 65 nnel Tls_GetPare
5a30: 6e 74 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 nt(State *stateP
5a40: 74 72 2c 20 69 6e 74 20 6d 61 73 6b 46 6c 61 67 tr, int maskFlag
5a50: 73 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 s) {. dprintf
5a60: 28 22 52 65 71 75 65 73 74 65 64 20 74 6f 20 67 ("Requested to g
5a70: 65 74 20 70 61 72 65 6e 74 20 6f 66 20 63 68 61 et parent of cha
5a80: 6e 6e 65 6c 20 25 70 22 2c 20 73 74 61 74 65 50 nnel %p", stateP
5a90: 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 20 20 20 20 tr->self);..
5aa0: 69 66 20 28 28 73 74 61 74 65 50 74 72 2d 3e 66 if ((statePtr->f
5ab0: 6c 61 67 73 20 26 20 7e 6d 61 73 6b 46 6c 61 67 lags & ~maskFlag
5ac0: 73 29 20 26 20 54 4c 53 5f 54 43 4c 5f 46 41 53 s) & TLS_TCL_FAS
5ad0: 54 50 41 54 48 29 20 7b 0a 09 64 70 72 69 6e 74 TPATH) {..dprint
5ae0: 66 28 22 41 73 6b 65 64 20 74 6f 20 67 65 74 20 f("Asked to get
5af0: 74 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e 6e the parent chann
5b00: 65 6c 20 77 68 69 6c 65 20 77 65 20 61 72 65 20 el while we are
5b10: 75 73 69 6e 67 20 46 61 73 74 50 61 74 68 20 2d using FastPath -
5b20: 2d 20 72 65 74 75 72 6e 69 6e 67 20 4e 55 4c 4c - returning NULL
5b30: 22 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c ");..return NULL
5b40: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
5b50: 72 6e 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 rn Tcl_GetStacke
5b60: 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 dChannel(statePt
5b70: 72 2d 3e 73 65 6c 66 29 3b 0a 7d 0a 0a 2f 2a 0a r->self);.}../*.
5b80: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
5b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bc0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 53 -----. *. * TlsS
5bd0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a etOptionProc --.
5be0: 20 2a 0a 20 2a 20 20 20 20 53 65 74 73 20 61 6e *. * Sets an
5bf0: 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 6f option value fo
5c00: 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 r a SSL socket b
5c10: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ased channel.. *
5c20: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 . * Results:. *
5c30: 20 20 20 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 TCL_OK if suc
5c40: 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45 cessful or TCL_E
5c50: 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 2e 0a RROR if failed..
5c60: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
5c70: 74 73 3a 0a 20 2a 20 20 20 20 55 70 64 61 74 65 ts:. * Update
5c80: 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e s channel option
5c90: 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 to new value..
5ca0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5cb0: 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
5cf0: 69 63 20 69 6e 74 0a 54 6c 73 53 65 74 4f 70 74 ic int.TlsSetOpt
5d00: 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ionProc(ClientDa
5d10: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
5d20: 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 /* Socket st
5d30: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f ate. */. Tcl_
5d40: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 Interp *interp,.
5d50: 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 2d ./* For errors -
5d60: 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f can be NULL. */
5d70: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
5d80: 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 *optionName,./*
5d90: 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 Name of the opti
5da0: 6f 6e 20 74 6f 20 73 65 74 20 74 68 65 20 76 61 on to set the va
5db0: 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 09 09 09 09 lue for, or.....
5dc0: 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 * NULL to get a
5dd0: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 ll options and t
5de0: 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a heir values. */.
5df0: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
5e00: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 optionValue)./*
5e10: 56 61 6c 75 65 20 66 6f 72 20 6f 70 74 69 6f 6e Value for option
5e20: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 . */.{. State
5e30: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
5e40: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
5e50: 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 ata;. Tcl_Cha
5e60: 6e 6e 65 6c 20 64 6f 77 6e 43 68 61 6e 20 3d 20 nnel downChan =
5e70: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
5e80: 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f atePtr, TLS_TCL_
5e90: 46 41 53 54 50 41 54 48 29 3b 0a 20 20 20 20 54 FASTPATH);. T
5ea0: 63 6c 5f 44 72 69 76 65 72 53 65 74 4f 70 74 69 cl_DriverSetOpti
5eb0: 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 74 69 6f onProc *setOptio
5ec0: 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 64 70 72 69 nProc;.. dpri
5ed0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
5ee0: 20 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f setOptionPro
5ef0: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53 c = Tcl_ChannelS
5f00: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c etOptionProc(Tcl
5f10: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
5f20: 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 20 20 20 downChan));.
5f30: 69 66 20 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f if (setOptionPro
5f40: 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 c != NULL) {..re
5f50: 74 75 72 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e turn (*setOption
5f60: 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 Proc)(Tcl_GetCha
5f70: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
5f80: 28 64 6f 77 6e 43 68 61 6e 29 2c 20 69 6e 74 65 (downChan), inte
5f90: 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 rp, optionName,
5fa0: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 optionValue);.
5fb0: 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 }. /*.
5fc0: 2a 20 52 65 71 75 65 73 74 20 66 6f 72 20 61 20 * Request for a
5fd0: 73 70 65 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 specific option
5fe0: 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 has to fail, we
5ff0: 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 2e 0a don't have any..
6000: 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 */. retu
6010: 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 rn Tcl_BadChanne
6020: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
6030: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 3b optionName, "");
6040: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
6050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
6090: 20 2a 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 * TlsGetOptionP
60a0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 roc --. *. *
60b0: 47 65 74 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 Gets an option v
60c0: 61 6c 75 65 20 66 6f 72 20 61 20 53 53 4c 20 73 alue for a SSL s
60d0: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
60e0: 6e 65 6c 2c 20 6f 72 20 61 0a 20 2a 20 20 20 20 nel, or a. *
60f0: 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 list of all opti
6100: 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 ons and their va
6110: 6c 75 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 lues.. *. * Resu
6120: 6c 74 73 3a 0a 20 2a 20 20 20 20 41 20 73 74 61 lts:. * A sta
6130: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
6140: 2e 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 . The value of t
6150: 68 65 20 73 70 65 63 69 66 69 65 64 20 6f 70 74 he specified opt
6160: 69 6f 6e 20 6f 72 20 61 0a 20 2a 20 20 20 20 6c ion or a. * l
6170: 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f ist of all optio
6180: 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c ns and their val
6190: 75 65 73 20 69 73 20 72 65 74 75 72 6e 65 64 20 ues is returned
61a0: 69 6e 20 74 68 65 0a 20 2a 20 20 20 20 73 75 70 in the. * sup
61b0: 70 6c 69 65 64 20 44 53 74 72 69 6e 67 2e 0a 20 plied DString..
61c0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
61d0: 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 s:. * None..
61e0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
61f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6220: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
6230: 69 63 20 69 6e 74 0a 54 6c 73 47 65 74 4f 70 74 ic int.TlsGetOpt
6240: 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ionProc(ClientDa
6250: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
6260: 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 /* Socket st
6270: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f ate. */. Tcl_
6280: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 Interp *interp,.
6290: 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 2d ./* For errors -
62a0: 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f can be NULL. */
62b0: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
62c0: 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 *optionName,./*
62d0: 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 Name of the opti
62e0: 6f 6e 20 74 6f 20 72 65 74 72 69 65 76 65 20 74 on to retrieve t
62f0: 68 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f 72 he value for, or
6300: 0a 09 09 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20 ..... * NULL to
6310: 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 get all options
6320: 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 and their values
6330: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 44 53 74 . */. Tcl_DSt
6340: 72 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 ring *optionValu
6350: 65 29 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73 e)./* Where to s
6360: 74 6f 72 65 20 74 68 65 20 63 6f 6d 70 75 74 65 tore the compute
6370: 64 20 76 61 6c 75 65 20 69 6e 69 74 69 61 6c 69 d value initiali
6380: 7a 65 64 20 62 79 20 63 61 6c 6c 65 72 2e 20 2a zed by caller. *
6390: 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 /.{. State *s
63a0: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
63b0: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
63c0: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
63d0: 6c 20 64 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 l downChan = Tls
63e0: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
63f0: 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 Ptr, TLS_TCL_FAS
6400: 54 50 41 54 48 29 3b 0a 20 20 20 20 54 63 6c 5f TPATH);. Tcl_
6410: 44 72 69 76 65 72 47 65 74 4f 70 74 69 6f 6e 50 DriverGetOptionP
6420: 72 6f 63 20 2a 67 65 74 4f 70 74 69 6f 6e 50 72 roc *getOptionPr
6430: 6f 63 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 oc;.. dprintf
6440: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
6450: 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d getOptionProc =
6460: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f Tcl_ChannelGetO
6470: 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 ptionProc(Tcl_Ge
6480: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 tChannelType(dow
6490: 6e 43 68 61 6e 29 29 3b 0a 20 20 20 20 69 66 20 nChan));. if
64a0: 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 (getOptionProc !
64b0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
64c0: 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f n (*getOptionPro
64d0: 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 c)(Tcl_GetChanne
64e0: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f lInstanceData(do
64f0: 77 6e 43 68 61 6e 29 2c 20 69 6e 74 65 72 70 2c wnChan), interp,
6500: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 optionName, opt
6510: 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d ionValue);. }
6520: 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e else if (option
6530: 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 Name == (char*)
6540: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 NULL) {../*.. *
6550: 52 65 71 75 65 73 74 20 69 73 20 71 75 65 72 79 Request is query
6560: 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 for all options
6570: 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 0a 09 20 , this is ok...
6580: 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f */..return TCL_O
6590: 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a K;. }. /*.
65a0: 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 66 * Request f
65b0: 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 or a specific op
65c0: 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c tion has to fail
65d0: 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 , we don't have
65e0: 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 any.. */.
65f0: 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 return Tcl_BadC
6600: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
6610: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
6620: 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d "");.}../*. *--
6630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6660: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 54 ----*. *. * T
6670: 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 lsChannelHandler
6680: 54 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 2a 20 20 Timer --. *. *
6690: 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------
66a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66c0: 2d 2d 2a 0a 20 2a 20 20 20 20 43 61 6c 6c 65 64 --*. * Called
66d0: 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72 by the notifier
66e0: 20 28 2d 3e 20 74 69 6d 65 72 29 20 74 6f 20 66 (-> timer) to f
66f0: 6c 75 73 68 20 6f 75 74 0a 20 2a 20 20 20 20 69 lush out. * i
6700: 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 61 69 74 69 nformation waiti
6710: 6e 67 20 69 6e 20 63 68 61 6e 6e 65 6c 20 62 75 ng in channel bu
6720: 66 66 65 72 73 2e 0a 20 2a 20 20 20 20 2d 2d 2d ffers.. * ---
6730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
6760: 2a 0a 20 2a 20 20 20 20 53 69 64 65 20 65 66 66 *. * Side eff
6770: 65 63 74 73 3a 0a 20 2a 20 20 20 20 20 20 20 20 ects:. *
6780: 41 73 20 6f 66 20 27 54 6c 73 43 68 61 6e 6e 65 As of 'TlsChanne
6790: 6c 48 61 6e 64 6c 65 72 27 2e 0a 20 2a 0a 20 2a lHandler'.. *. *
67a0: 20 20 20 20 52 65 73 75 6c 74 3a 0a 20 2a 20 20 Result:. *
67b0: 20 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 None.. *.
67c0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
67d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67f0: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 -------*. */.sta
6800: 74 69 63 20 76 6f 69 64 20 54 6c 73 43 68 61 6e tic void TlsChan
6810: 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 28 nelHandlerTimer(
6820: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
6830: 74 44 61 74 61 29 20 7b 0a 20 20 20 20 53 74 61 tData) {. Sta
6840: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
6850: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
6860: 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 6d 61 73 ata;. int mas
6870: 6b 20 3d 20 73 74 61 74 65 50 74 72 2d 3e 77 61 k = statePtr->wa
6880: 6e 74 3b 20 2f 2a 20 49 6e 69 74 20 74 6f 20 53 nt; /* Init to S
6890: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
68a0: 41 44 20 61 6e 64 20 53 53 4c 5f 45 52 52 4f 52 AD and SSL_ERROR
68b0: 5f 57 41 4e 54 5f 57 52 49 54 45 20 2a 2f 0a 0a _WANT_WRITE */..
68c0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
68d0: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 73 74 61 74 led");.. stat
68e0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 ePtr->timer = (T
68f0: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
6900: 55 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 28 42 49 ULL;.. if (BI
6910: 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 O_wpending(state
6920: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 Ptr->bio)) {..dp
6930: 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d rintf("[chan=%p]
6940: 20 42 49 4f 20 77 72 69 74 61 62 6c 65 22 2c 20 BIO writable",
6950: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b statePtr->self);
6960: 0a 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 ...mask |= TCL_W
6970: 52 49 54 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a RITABLE;. }..
6980: 20 20 20 20 69 66 20 28 42 49 4f 5f 70 65 6e 64 if (BIO_pend
6990: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ing(statePtr->bi
69a0: 6f 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 o)) {..dprintf("
69b0: 5b 63 68 61 6e 3d 25 70 5d 20 42 49 4f 20 72 65 [chan=%p] BIO re
69c0: 61 64 61 62 6c 65 22 2c 20 73 74 61 74 65 50 74 adable", statePt
69d0: 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 6d 61 73 6b r->self);...mask
69e0: 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 |= TCL_READABLE
69f0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 ;. }.. dpr
6a00: 69 6e 74 66 28 22 4e 6f 74 69 66 79 69 6e 67 20 intf("Notifying
6a10: 6f 75 72 73 65 6c 76 65 73 22 29 3b 0a 20 20 20 ourselves");.
6a20: 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e Tcl_NotifyChann
6a30: 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c el(statePtr->sel
6a40: 66 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 73 74 f, mask);. st
6a50: 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 3d 20 30 atePtr->want = 0
6a60: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
6a70: 52 65 74 75 72 6e 69 6e 67 22 29 3b 0a 0a 20 20 Returning");..
6a80: 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 2f 2a 0a return;.}../*.
6a90: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ad0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 -----. *. * TlsW
6ae0: 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 atchProc --. *.
6af0: 2a 20 20 20 20 49 6e 69 74 69 61 6c 69 7a 65 20 * Initialize
6b00: 74 68 65 20 65 76 65 6e 74 20 6e 6f 74 69 66 69 the event notifi
6b10: 65 72 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 er to watch for
6b20: 65 76 65 6e 74 73 20 6f 66 20 69 6e 74 65 72 65 events of intere
6b30: 73 74 0a 20 2a 20 20 20 20 66 72 6f 6d 20 74 68 st. * from th
6b40: 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 is channel.. *.
6b50: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 * Results:. *
6b60: 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 None.. *. * Sid
6b70: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 e effects:. *
6b80: 20 53 65 74 73 20 75 70 20 74 68 65 20 6e 6f 74 Sets up the not
6b90: 69 66 69 65 72 20 73 6f 20 74 68 61 74 20 61 20 ifier so that a
6ba0: 66 75 74 75 72 65 20 65 76 65 6e 74 20 6f 6e 20 future event on
6bb0: 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 20 20 the channel. *
6bc0: 20 20 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 62 will be seen b
6bd0: 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d y Tcl.. *. *----
6be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
6c20: 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 0a */.static void.
6c30: 54 6c 73 57 61 74 63 68 50 72 6f 63 28 43 6c 69 TlsWatchProc(Cli
6c40: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
6c50: 44 61 74 61 2c 20 20 20 20 2f 2a 20 54 68 65 20 Data, /* The
6c60: 73 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f socket state. */
6c70: 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 . int mask)..
6c80: 09 2f 2a 20 45 76 65 6e 74 73 20 6f 66 20 69 6e ./* Events of in
6c90: 74 65 72 65 73 74 3b 20 61 6e 20 4f 52 2d 65 64 terest; an OR-ed
6ca0: 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 0a combination of.
6cb0: 09 09 09 09 20 2a 20 54 43 4c 5f 52 45 41 44 41 .... * TCL_READA
6cc0: 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54 41 42 4c BLE, TCL_WRITABL
6cd0: 45 20 61 6e 64 20 54 43 4c 5f 45 58 43 45 50 54 E and TCL_EXCEPT
6ce0: 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 ION. */.{. Tc
6cf0: 6c 5f 43 68 61 6e 6e 65 6c 20 20 20 20 20 64 6f l_Channel do
6d00: 77 6e 43 68 61 6e 3b 0a 20 20 20 20 53 74 61 74 wnChan;. Stat
6d10: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
6d20: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
6d30: 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 44 72 Data;. Tcl_Dr
6d40: 69 76 65 72 57 61 74 63 68 50 72 6f 63 20 2a 77 iverWatchProc *w
6d50: 61 74 63 68 50 72 6f 63 3b 0a 0a 20 20 20 20 64 atchProc;.. d
6d60: 70 72 69 6e 74 66 28 22 54 6c 73 57 61 74 63 68 printf("TlsWatch
6d70: 50 72 6f 63 28 30 78 25 78 29 22 2c 20 6d 61 73 Proc(0x%x)", mas
6d80: 6b 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 46 6c k);. dprintFl
6d90: 61 67 73 28 73 74 61 74 65 50 74 72 29 3b 0a 0a ags(statePtr);..
6da0: 20 20 20 20 2f 2a 20 50 72 65 74 65 6e 64 20 74 /* Pretend t
6db0: 6f 20 62 65 20 64 65 61 64 20 61 73 20 6c 6f 6e o be dead as lon
6dc0: 67 20 61 73 20 74 68 65 20 76 65 72 69 66 79 20 g as the verify
6dd0: 63 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e callback is runn
6de0: 69 6e 67 2e 0a 20 20 20 20 20 2a 20 4f 74 68 65 ing.. * Othe
6df0: 72 77 69 73 65 20 74 68 61 74 20 63 61 6c 6c 62 rwise that callb
6e00: 61 63 6b 20 63 6f 75 6c 64 20 62 65 20 69 6e 76 ack could be inv
6e10: 6f 6b 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 oked recursively
6e20: 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 . */. if (sta
6e30: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 tePtr->flags & T
6e40: 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 LS_TCL_CALLBACK)
6e50: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c {..dprintf("Cal
6e60: 6c 62 61 63 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e lback is on-goin
6e70: 67 2c 20 64 6f 69 6e 67 20 6e 6f 74 68 69 6e 67 g, doing nothing
6e80: 22 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 ");..return;.
6e90: 20 7d 0a 0a 20 20 20 20 64 6f 77 6e 43 68 61 6e }.. downChan
6ea0: 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 = Tls_GetParent
6eb0: 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 (statePtr, TLS_T
6ec0: 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a 0a 20 CL_FASTPATH);..
6ed0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
6ee0: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
6ef0: 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 _HANDSHAKE_FAILE
6f00: 44 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 D) {..dprintf("A
6f10: 73 6b 65 64 20 74 6f 20 77 61 74 63 68 20 61 20 sked to watch a
6f20: 73 6f 63 6b 65 74 20 77 69 74 68 20 61 20 66 61 socket with a fa
6f30: 69 6c 65 64 20 68 61 6e 64 73 68 61 6b 65 20 2d iled handshake -
6f40: 2d 20 6e 6f 74 68 69 6e 67 20 63 61 6e 20 68 61 - nothing can ha
6f50: 70 70 65 6e 20 68 65 72 65 22 29 3b 0a 09 64 70 ppen here");..dp
6f60: 72 69 6e 74 66 28 22 55 6e 72 65 67 69 73 74 65 rintf("Unregiste
6f70: 72 69 6e 67 20 69 6e 74 65 72 65 73 74 20 69 6e ring interest in
6f80: 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e the lower chann
6f90: 65 6c 22 29 3b 0a 0a 09 77 61 74 63 68 50 72 6f el");...watchPro
6fa0: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 c = Tcl_ChannelW
6fb0: 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 atchProc(Tcl_Get
6fc0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e ChannelType(down
6fd0: 43 68 61 6e 29 29 3b 0a 09 77 61 74 63 68 50 72 Chan));..watchPr
6fe0: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
6ff0: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f lInstanceData(do
7000: 77 6e 43 68 61 6e 29 2c 20 30 29 3b 0a 09 73 74 wnChan), 0);..st
7010: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
7020: 6b 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e 3b 0a k = 0;..return;.
7030: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 }.. state
7040: 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d Ptr->watchMask =
7050: 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a 20 4e mask;.. /* N
7060: 6f 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 o channel handle
7070: 72 73 20 61 6e 79 20 6d 6f 72 65 2e 20 57 65 20 rs any more. We
7080: 77 69 6c 6c 20 62 65 20 6e 6f 74 69 66 69 65 64 will be notified
7090: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 20 automatically.
70a0: 20 20 20 20 2a 20 61 62 6f 75 74 20 65 76 65 6e * about even
70b0: 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 ts on the channe
70c0: 6c 20 62 65 6c 6f 77 20 76 69 61 20 61 20 63 61 l below via a ca
70d0: 6c 6c 20 74 6f 20 6f 75 72 0a 20 20 20 20 20 2a ll to our. *
70e0: 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 69 66 'TransformNotif
70f0: 79 50 72 6f 63 27 2e 20 42 75 74 20 77 65 20 68 yProc'. But we h
7100: 61 76 65 20 74 6f 20 70 61 73 73 20 74 68 65 20 ave to pass the
7110: 69 6e 74 65 72 65 73 74 20 64 6f 77 6e 20 6e 6f interest down no
7120: 77 2e 0a 20 20 20 20 20 2a 20 57 65 20 61 72 65 w.. * We are
7130: 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 64 64 20 allowed to add
7140: 61 64 64 69 74 69 6f 6e 61 6c 20 27 69 6e 74 65 additional 'inte
7150: 72 65 73 74 27 20 74 6f 20 74 68 65 20 6d 61 73 rest' to the mas
7160: 6b 20 69 66 20 77 65 20 77 61 6e 74 0a 20 20 20 k if we want.
7170: 20 20 2a 20 74 6f 2e 20 42 75 74 20 74 68 69 73 * to. But this
7180: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 transformation
7190: 68 61 73 20 6e 6f 20 73 75 63 68 20 69 6e 74 65 has no such inte
71a0: 72 65 73 74 2e 20 49 74 20 6a 75 73 74 20 70 61 rest. It just pa
71b0: 73 73 65 73 0a 20 20 20 20 20 2a 20 74 68 65 20 sses. * the
71c0: 72 65 71 75 65 73 74 20 64 6f 77 6e 2c 20 75 6e request down, un
71d0: 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f changed.. */
71e0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 . dprintf("Re
71f0: 67 69 73 74 65 72 69 6e 67 20 6f 75 72 20 69 6e gistering our in
7200: 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f terest in the lo
7210: 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 63 68 61 wer channel (cha
7220: 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 n=%p)", (void *)
7230: 20 64 6f 77 6e 43 68 61 6e 29 3b 0a 20 20 20 20 downChan);.
7240: 77 61 74 63 68 50 72 6f 63 20 3d 20 54 63 6c 5f watchProc = Tcl_
7250: 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f 63 ChannelWatchProc
7260: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
7270: 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a ype(downChan));.
7280: 20 20 20 20 77 61 74 63 68 50 72 6f 63 28 54 63 watchProc(Tc
7290: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
72a0: 61 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 anceData(downCha
72b0: 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a 0a 20 20 20 n), mask);...
72c0: 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6e 61 67 /*. * Manag
72d0: 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 69 6e 74 ement of the int
72e0: 65 72 6e 61 6c 20 74 69 6d 65 72 2e 0a 20 20 20 ernal timer..
72f0: 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 */. if (sta
7300: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
7310: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
7320: 20 4e 55 4c 4c 29 20 7b 0a 09 64 70 72 69 6e 74 NULL) {..dprint
7330: 66 28 22 41 20 74 69 6d 65 72 20 77 61 73 20 66 f("A timer was f
7340: 6f 75 6e 64 2c 20 64 65 6c 65 74 69 6e 67 20 69 ound, deleting i
7350: 74 22 29 3b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 t");..Tcl_Delete
7360: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
7370: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
7380: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
7390: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
73a0: 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a n) NULL;. }..
73b0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
73c0: 2d 3e 77 61 6e 74 20 7c 7c 20 28 28 6d 61 73 6b ->want || ((mask
73d0: 20 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 & TCL_READABLE)
73e0: 20 26 26 0a 09 28 28 54 63 6c 5f 49 6e 70 75 74 &&..((Tcl_Input
73f0: 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 Buffered(statePt
7400: 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 20 7c 7c r->self) > 0) ||
7410: 20 28 42 49 4f 5f 63 74 72 6c 5f 70 65 6e 64 69 (BIO_ctrl_pendi
7420: 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ng(statePtr->bio
7430: 29 20 3e 20 30 29 29 29 29 20 7b 0a 09 2f 2a 0a ) > 0)))) {../*.
7440: 09 20 2a 20 54 68 65 72 65 20 69 73 20 69 6e 74 . * There is int
7450: 65 72 65 73 74 20 69 6e 20 72 65 61 64 61 62 6c erest in readabl
7460: 65 20 65 76 65 6e 74 73 20 61 6e 64 20 77 65 20 e events and we
7470: 61 63 74 75 61 6c 6c 79 20 68 61 76 65 0a 09 20 actually have..
7480: 2a 20 64 61 74 61 20 77 61 69 74 69 6e 67 2c 20 * data waiting,
7490: 73 6f 20 67 65 6e 65 72 61 74 65 20 61 20 74 69 so generate a ti
74a0: 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 74 68 61 mer to flush tha
74b0: 74 2e 0a 09 20 2a 2f 0a 09 64 70 72 69 6e 74 66 t... */..dprintf
74c0: 28 22 43 72 65 61 74 69 6e 67 20 61 20 6e 65 77 ("Creating a new
74d0: 20 74 69 6d 65 72 20 73 69 6e 63 65 20 64 61 74 timer since dat
74e0: 61 20 61 70 70 65 61 72 73 20 74 6f 20 62 65 20 a appears to be
74f0: 77 61 69 74 69 6e 67 22 29 3b 0a 09 73 74 61 74 waiting");..stat
7500: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 ePtr->timer = Tc
7510: 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e l_CreateTimerHan
7520: 64 6c 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c dler(TLS_TCL_DEL
7530: 41 59 2c 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 AY, TlsChannelHa
7540: 6e 64 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c 69 ndlerTimer, (Cli
7550: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
7560: 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a r);. }.}../*.
7570: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
7580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75b0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 -----. *. * TlsG
75c0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a etHandleProc --.
75d0: 20 2a 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 *. * This pr
75e0: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b ocedure is invok
75f0: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
7600: 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 72 65 c IO level to re
7610: 74 72 69 65 76 65 20 61 0a 20 2a 20 20 20 20 64 trieve a. * d
7620: 65 76 69 63 65 2d 73 70 65 63 69 66 69 63 20 68 evice-specific h
7630: 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 65 20 53 andle from the S
7640: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
7650: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 channel.. *. * R
7660: 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 68 esults:. * Th
7670: 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 54 63 e appropriate Tc
7680: 6c 5f 46 69 6c 65 20 68 61 6e 64 6c 65 20 6f 72 l_File handle or
7690: 20 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 NULL if none..
76a0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
76b0: 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 s:. * None..
76c0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
76d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7700: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
7710: 69 63 20 69 6e 74 20 54 6c 73 47 65 74 48 61 6e ic int TlsGetHan
7720: 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 dleProc(ClientDa
7730: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
7740: 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 /* Socket st
7750: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 ate. */. int
7760: 64 69 72 65 63 74 69 6f 6e 2c 09 09 2f 2a 20 54 direction,../* T
7770: 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 54 CL_READABLE or T
7780: 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a 20 CL_WRITABLE */.
7790: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 ClientData *h
77a0: 61 6e 64 6c 65 50 74 72 29 09 2f 2a 20 48 61 6e andlePtr)./* Han
77b0: 64 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 dle associated w
77c0: 69 74 68 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 ith the channel
77d0: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a */.{. State *
77e0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
77f0: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
7800: 61 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 54 a;.. return T
7810: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e cl_GetChannelHan
7820: 64 6c 65 28 54 6c 73 5f 47 65 74 50 61 72 65 6e dle(Tls_GetParen
7830: 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f t(statePtr, TLS_
7840: 54 43 4c 5f 46 41 53 54 50 41 54 48 29 2c 20 64 TCL_FASTPATH), d
7850: 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 irection, handle
7860: 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d Ptr);.}../*. *--
7870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78b0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4e 6f 74 69 66 -. *. * TlsNotif
78c0: 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 yProc --. *. *
78d0: 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 This procedure
78e0: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 is invoked by t
78f0: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 he generic IO le
7900: 76 65 6c 20 74 6f 20 6e 6f 74 69 66 79 20 74 68 vel to notify th
7910: 65 0a 20 2a 20 20 20 20 63 68 61 6e 6e 65 6c 20 e. * channel
7920: 74 68 61 74 20 61 6e 20 65 76 65 6e 74 20 6f 63 that an event oc
7930: 63 75 72 72 65 64 2e 20 49 74 20 69 73 20 75 73 curred. It is us
7940: 65 64 20 62 79 20 73 74 61 63 6b 65 64 20 63 68 ed by stacked ch
7950: 61 6e 6e 65 6c 0a 20 2a 20 20 20 20 64 72 69 76 annel. * driv
7960: 65 72 73 20 74 68 61 74 20 77 69 73 68 20 74 6f ers that wish to
7970: 20 62 65 20 6e 6f 74 69 66 69 65 64 20 6f 66 20 be notified of
7980: 65 76 65 6e 74 73 20 74 68 61 74 20 6f 63 63 75 events that occu
7990: 72 20 6f 6e 20 74 68 65 0a 20 2a 20 20 20 20 75 r on the. * u
79a0: 6e 64 65 72 6c 79 69 6e 67 20 28 73 74 61 63 6b nderlying (stack
79b0: 65 64 29 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a ed) channel.. *.
79c0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 * Results:. *
79d0: 20 20 54 79 70 65 20 6f 66 20 65 76 65 6e 74 20 Type of event
79e0: 6f 72 20 30 20 69 66 20 66 61 69 6c 65 64 0a 20 or 0 if failed.
79f0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
7a00: 73 3a 0a 20 2a 20 20 20 20 4d 61 79 20 70 72 6f s:. * May pro
7a10: 63 65 73 73 20 74 68 65 20 69 6e 63 6f 6d 69 6e cess the incomin
7a20: 67 20 65 76 65 6e 74 20 62 79 20 69 74 73 65 6c g event by itsel
7a30: 66 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d f.. *. *--------
7a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
7a80: 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 4e 6f static int TlsNo
7a90: 74 69 66 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 tifyProc(ClientD
7aa0: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
7ab0: 2c 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 , /* Socket s
7ac0: 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 tate. */. int
7ad0: 20 6d 61 73 6b 29 09 09 09 2f 2a 20 74 79 70 65 mask).../* type
7ae0: 20 6f 66 20 65 76 65 6e 74 20 74 68 61 74 20 6f of event that o
7af0: 63 63 75 72 72 65 64 3a 0a 09 09 09 09 20 2a 20 ccurred:..... *
7b00: 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f OR-ed combinatio
7b10: 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c n of TCL_READABL
7b20: 45 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c E or TCL_WRITABL
7b30: 45 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 E */.{. State
7b40: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
7b50: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
7b60: 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 ata;. int err
7b70: 6f 72 43 6f 64 65 20 3d 20 30 3b 0a 0a 20 20 20 orCode = 0;..
7b80: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
7b90: 22 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 ");.. /*.
7ba0: 20 2a 20 41 6e 20 65 76 65 6e 74 20 6f 63 63 75 * An event occu
7bb0: 72 72 65 64 20 69 6e 20 74 68 65 20 75 6e 64 65 rred in the unde
7bc0: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 20 rlying channel.
7bd0: 20 54 68 69 73 0a 20 20 20 20 20 2a 20 74 72 61 This. * tra
7be0: 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 64 6f 65 73 nsformation does
7bf0: 6e 27 74 20 70 72 6f 63 65 73 73 20 73 75 63 68 n't process such
7c00: 20 65 76 65 6e 74 73 20 74 68 75 73 20 72 65 74 events thus ret
7c10: 75 72 6e 73 20 74 68 65 0a 20 20 20 20 20 2a 20 urns the. *
7c20: 69 6e 63 6f 6d 69 6e 67 20 6d 61 73 6b 20 75 6e incoming mask un
7c30: 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f changed.. */
7c40: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
7c50: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
7c60: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
7c70: 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 65 6c L) {../*.. * Del
7c80: 65 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20 ete an existing
7c90: 74 69 6d 65 72 2e 20 49 74 20 77 61 73 20 6e 6f timer. It was no
7ca0: 74 20 66 69 72 65 64 2c 20 79 65 74 20 77 65 20 t fired, yet we
7cb0: 61 72 65 0a 09 20 2a 20 68 65 72 65 2c 20 73 6f are.. * here, so
7cc0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c the channel bel
7cd0: 6f 77 20 67 65 6e 65 72 61 74 65 64 20 73 75 63 ow generated suc
7ce0: 68 20 61 6e 20 65 76 65 6e 74 20 61 6e 64 20 77 h an event and w
7cf0: 65 0a 09 20 2a 20 64 6f 6e 27 74 20 68 61 76 65 e.. * don't have
7d00: 20 74 6f 2e 20 54 68 65 20 72 65 6e 65 77 61 6c to. The renewal
7d10: 20 6f 66 20 74 68 65 20 69 6e 74 65 72 65 73 74 of the interest
7d20: 20 61 66 74 65 72 20 74 68 65 0a 09 20 2a 20 65 after the.. * e
7d30: 78 65 63 75 74 69 6f 6e 20 6f 66 20 63 68 61 6e xecution of chan
7d40: 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 77 69 6c nel handlers wil
7d50: 6c 20 65 76 65 6e 74 75 61 6c 6c 79 20 63 61 75 l eventually cau
7d60: 73 65 20 75 73 20 74 6f 0a 09 20 2a 20 72 65 63 se us to.. * rec
7d70: 72 65 61 74 65 20 74 68 65 20 74 69 6d 65 72 20 reate the timer
7d80: 28 69 6e 20 57 61 74 63 68 50 72 6f 63 29 2e 0a (in WatchProc)..
7d90: 09 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c 65 74 65 . */..Tcl_Delete
7da0: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
7db0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
7dc0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
7dd0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
7de0: 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a n) NULL;. }..
7df0: 20 20 20 20 2f 2a 20 53 6b 69 70 20 69 66 20 75 /* Skip if u
7e00: 73 65 72 20 76 65 72 69 66 79 20 63 61 6c 6c 62 ser verify callb
7e10: 61 63 6b 20 69 73 20 73 74 69 6c 6c 20 72 75 6e ack is still run
7e20: 6e 69 6e 67 20 2a 2f 0a 20 20 20 20 69 66 20 28 ning */. if (
7e30: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
7e40: 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 & TLS_TCL_CALLBA
7e50: 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 CK) {..dprintf("
7e60: 43 61 6c 6c 62 61 63 6b 20 69 73 20 6f 6e 2d 67 Callback is on-g
7e70: 6f 69 6e 67 2c 20 72 65 74 75 72 6e 69 6e 67 20 oing, returning
7e80: 66 61 69 6c 65 64 22 29 3b 0a 09 72 65 74 75 72 failed");..retur
7e90: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
7ea0: 2f 2a 20 49 66 20 6e 6f 74 20 69 6e 69 74 69 61 /* If not initia
7eb0: 6c 69 7a 65 64 2c 20 64 6f 20 63 6f 6e 6e 65 63 lized, do connec
7ec0: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 t */. if (sta
7ed0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 tePtr->flags & T
7ee0: 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b 0a 09 LS_TCL_INIT) {..
7ef0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 dprintf("Calling
7f00: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
7f10: 65 63 74 22 29 3b 0a 09 69 66 20 28 54 6c 73 5f ect");..if (Tls_
7f20: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 WaitForConnect(s
7f30: 74 61 74 65 50 74 72 2c 20 26 65 72 72 6f 72 43 tatePtr, &errorC
7f40: 6f 64 65 2c 20 31 29 20 3c 20 30 29 20 7b 0a 09 ode, 1) < 0) {..
7f50: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
7f60: 61 74 65 50 74 72 2c 20 73 74 72 65 72 72 6f 72 atePtr, strerror
7f70: 28 65 72 72 6f 72 43 6f 64 65 29 29 3b 0a 09 20 (errorCode));..
7f80: 20 20 20 69 66 20 28 65 72 72 6f 72 43 6f 64 65 if (errorCode
7f90: 20 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09 09 == EAGAIN) {...
7fa0: 64 70 72 69 6e 74 66 28 22 41 73 79 6e 63 20 66 dprintf("Async f
7fb0: 6c 61 67 20 63 6f 75 6c 64 20 62 65 20 73 65 74 lag could be set
7fc0: 20 28 64 69 64 6e 27 74 20 63 68 65 63 6b 29 20 (didn't check)
7fd0: 61 6e 64 20 65 72 72 6f 72 43 6f 64 65 20 3d 3d and errorCode ==
7fe0: 20 45 41 47 41 49 4e 3a 20 20 52 65 74 75 72 6e EAGAIN: Return
7ff0: 69 6e 67 20 66 61 69 6c 65 64 22 29 3b 0a 0a 09 ing failed");...
8000: 09 72 65 74 75 72 6e 20 30 3b 0a 09 20 20 20 20 .return 0;..
8010: 7d 0a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 }... dprintf(
8020: 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e "Tls_WaitForConn
8030: 65 63 74 20 72 65 74 75 72 6e 65 64 20 61 6e 20 ect returned an
8040: 65 72 72 6f 72 22 29 3b 0a 09 7d 0a 20 20 20 20 error");..}.
8050: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
8060: 52 65 74 75 72 6e 69 6e 67 20 25 69 22 2c 20 6d Returning %i", m
8070: 61 73 6b 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 ask);.. retur
8080: 6e 20 6d 61 73 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a n mask;.}../*. *
8090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
80a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
80b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
80c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
80d0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 68 ---. *. * Tls_Ch
80e0: 61 6e 6e 65 6c 54 79 70 65 20 2d 2d 0a 20 2a 0a annelType --. *.
80f0: 20 2a 20 20 20 20 52 65 74 75 72 6e 20 74 68 65 * Return the
8100: 20 63 6f 72 72 65 63 74 20 54 4c 53 20 63 68 61 correct TLS cha
8110: 6e 6e 65 6c 20 64 72 69 76 65 72 20 69 6e 66 6f nnel driver info
8120: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
8130: 20 2a 20 20 20 20 54 68 65 20 63 6f 72 72 65 63 * The correc
8140: 74 20 63 68 61 6e 6e 65 6c 20 64 72 69 76 65 72 t channel driver
8150: 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 for the current
8160: 20 76 65 72 73 69 6f 6e 20 6f 66 20 54 63 6c 2e version of Tcl.
8170: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
8180: 63 74 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e cts:. * None.
8190: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
81a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
81e0: 61 74 69 63 20 63 6f 6e 73 74 20 54 63 6c 5f 43 atic const Tcl_C
81f0: 68 61 6e 6e 65 6c 54 79 70 65 20 74 6c 73 43 68 hannelType tlsCh
8200: 61 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 annelType = {.
8210: 20 20 22 74 6c 73 22 2c 09 09 09 2f 2a 20 54 79 "tls",.../* Ty
8220: 70 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 pe name */. T
8230: 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 CL_CHANNEL_VERSI
8240: 4f 4e 5f 35 2c 09 2f 2a 20 76 35 20 63 68 61 6e ON_5,./* v5 chan
8250: 6e 65 6c 20 2a 2f 0a 20 20 20 20 54 6c 73 43 6c nel */. TlsCl
8260: 6f 73 65 50 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f oseProc,../* Clo
8270: 73 65 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 se proc */. T
8280: 6c 73 49 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a lsInputProc,../*
8290: 20 49 6e 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 Input proc */.
82a0: 20 20 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 TlsOutputProc
82b0: 2c 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f ,../* Output pro
82c0: 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 c */. NULL,..
82d0: 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f ./* Seek proc */
82e0: 0a 20 20 20 20 54 6c 73 53 65 74 4f 70 74 69 6f . TlsSetOptio
82f0: 6e 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 6f nProc,../* Set o
8300: 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 ption proc */.
8310: 20 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 TlsGetOptionPr
8320: 6f 63 2c 09 09 2f 2a 20 47 65 74 20 6f 70 74 69 oc,../* Get opti
8330: 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 on proc */. T
8340: 6c 73 57 61 74 63 68 50 72 6f 63 2c 09 09 2f 2a lsWatchProc,../*
8350: 20 49 6e 69 74 69 61 6c 69 7a 65 20 6e 6f 74 69 Initialize noti
8360: 66 69 65 72 20 2a 2f 0a 20 20 20 20 54 6c 73 47 fier */. TlsG
8370: 65 74 48 61 6e 64 6c 65 50 72 6f 63 2c 09 09 2f etHandleProc,../
8380: 2a 20 47 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 * Get OS handles
8390: 20 6f 75 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 out of channel
83a0: 2a 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 32 */. TlsClose2
83b0: 50 72 6f 63 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 Proc,../* close2
83c0: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 42 proc */. TlsB
83d0: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 09 2f lockModeProc,../
83e0: 2a 20 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e * Set blocking/n
83f0: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a onblocking mode*
8400: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a /. NULL,.../*
8410: 20 46 6c 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 Flush proc */.
8420: 20 20 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 TlsNotifyProc
8430: 2c 09 09 2f 2a 20 48 61 6e 64 6c 69 6e 67 20 6f ,../* Handling o
8440: 66 20 65 76 65 6e 74 73 20 62 75 62 62 6c 69 6e f events bubblin
8450: 67 20 75 70 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c g up */. NULL
8460: 2c 09 09 09 2f 2a 20 57 69 64 65 20 73 65 65 6b ,.../* Wide seek
8470: 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c proc */. NUL
8480: 4c 2c 09 09 09 2f 2a 20 54 68 72 65 61 64 20 61 L,.../* Thread a
8490: 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 4e 55 4c ction */. NUL
84a0: 4c 09 09 09 2f 2a 20 54 72 75 6e 63 61 74 65 20 L.../* Truncate
84b0: 2a 2f 0a 7d 3b 0a 0a 63 6f 6e 73 74 20 54 63 6c */.};..const Tcl
84c0: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 54 6c _ChannelType *Tl
84d0: 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 76 6f s_ChannelType(vo
84e0: 69 64 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e id) {. return
84f0: 20 26 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 &tlsChannelType
8500: 3b 0a 7d 0a ;.}.