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 09 74 63 6c 53 53 4c 20 28 43 6f 6c :. *.tclSSL (Col
0250: 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c 20 53 68 in McCormack, Sh
0260: 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f 67 79 29 ared Technology)
0270: 0a 20 2a 09 53 53 4c 74 63 6c 20 28 50 65 74 65 . *.SSLtcl (Pete
0280: 72 20 41 6e 74 6d 61 6e 29 0a 20 2a 0a 20 2a 2f r Antman). *. */
0290: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
02a0: 6e 74 2e 68 22 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 nt.h"../*. * For
02b0: 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e ward declaration
02c0: 73 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 s. */.static int
02d0: 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 TlsBlockModePr
02e0: 6f 63 20 28 43 6c 69 65 6e 74 44 61 74 61 20 69 oc (ClientData i
02f0: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
0300: 20 6d 6f 64 65 29 3b 0a 23 69 66 20 54 43 4c 5f mode);.#if TCL_
0310: 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 3c 20 MAJOR_VERSION <
0320: 39 0a 73 74 61 74 69 63 20 69 6e 74 20 20 54 6c 9.static int Tl
0330: 73 43 6c 6f 73 65 50 72 6f 63 20 28 43 6c 69 65 sCloseProc (Clie
0340: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 ntData instanceD
0350: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
0360: 2a 69 6e 74 65 72 70 29 3b 0a 23 65 6c 73 65 0a *interp);.#else.
0370: 73 74 61 74 69 63 20 69 6e 74 20 20 54 6c 73 43 static int TlsC
0380: 6c 6f 73 65 32 50 72 6f 63 20 28 43 6c 69 65 6e lose2Proc (Clien
0390: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
03a0: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
03b0: 69 6e 74 65 72 70 2c 20 69 6e 74 20 66 6c 61 67 interp, int flag
03c0: 73 29 3b 0a 23 65 6e 64 69 66 0a 73 74 61 74 69 s);.#endif.stati
03d0: 63 20 69 6e 74 20 20 54 6c 73 49 6e 70 75 74 50 c int TlsInputP
03e0: 72 6f 63 20 28 43 6c 69 65 6e 74 44 61 74 61 20 roc (ClientData
03f0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 63 68 instanceData, ch
0400: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 ar *buf, int buf
0410: 53 69 7a 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 Size, int *error
0420: 43 6f 64 65 50 74 72 29 3b 0a 73 74 61 74 69 63 CodePtr);.static
0430: 20 69 6e 74 20 20 54 6c 73 4f 75 74 70 75 74 50 int TlsOutputP
0440: 72 6f 63 20 28 43 6c 69 65 6e 74 44 61 74 61 20 roc (ClientData
0450: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 63 6f instanceData, co
0460: 6e 73 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 nst char *buf, i
0470: 6e 74 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 nt toWrite, int
0480: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a *errorCodePtr);.
0490: 73 74 61 74 69 63 20 69 6e 74 20 20 54 6c 73 47 static int TlsG
04a0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 28 43 6c etOptionProc (Cl
04b0: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
04c0: 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 eData, Tcl_Inter
04d0: 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 p *interp, const
04e0: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d char *optionNam
04f0: 65 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a e, Tcl_DString *
0500: 64 73 50 74 72 29 3b 0a 73 74 61 74 69 63 20 76 dsPtr);.static v
0510: 6f 69 64 20 54 6c 73 57 61 74 63 68 50 72 6f 63 oid TlsWatchProc
0520: 20 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 (ClientData ins
0530: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 6d tanceData, int m
0540: 61 73 6b 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 ask);.static int
0550: 20 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 TlsGetHandlePr
0560: 6f 63 20 28 43 6c 69 65 6e 74 44 61 74 61 20 69 oc (ClientData i
0570: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
0580: 20 64 69 72 65 63 74 69 6f 6e 2c 20 43 6c 69 65 direction, Clie
0590: 6e 74 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 ntData *handlePt
05a0: 72 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 20 r);.static int
05b0: 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 28 43 TlsNotifyProc (C
05c0: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
05d0: 63 65 44 61 74 61 2c 20 69 6e 74 20 6d 61 73 6b ceData, int mask
05e0: 29 3b 0a 23 69 66 20 30 0a 73 74 61 74 69 63 20 );.#if 0.static
05f0: 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 void TlsChannelH
0600: 61 6e 64 6c 65 72 20 28 43 6c 69 65 6e 74 44 61 andler (ClientDa
0610: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 ta clientData, i
0620: 6e 74 20 6d 61 73 6b 29 3b 0a 23 65 6e 64 69 66 nt mask);.#endif
0630: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 54 6c 73 .static void Tls
0640: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 ChannelHandlerTi
0650: 6d 65 72 20 28 43 6c 69 65 6e 74 44 61 74 61 20 mer (ClientData
0660: 63 6c 69 65 6e 74 44 61 74 61 29 3b 0a 0a 2f 2a clientData);../*
0670: 0a 20 2a 20 54 4c 53 20 43 68 61 6e 6e 65 6c 20 . * TLS Channel
0680: 54 79 70 65 0a 20 2a 2f 0a 73 74 61 74 69 63 20 Type. */.static
0690: 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 Tcl_ChannelType
06a0: 2a 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 20 *tlsChannelType
06b0: 3d 20 4e 55 4c 4c 3b 0a 0a 2f 2a 0a 20 2a 2d 2d = NULL;../*. *--
06c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0700: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e -. *. * Tls_Chan
0710: 6e 65 6c 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a nelType --. *. *
0720: 09 52 65 74 75 72 6e 20 74 68 65 20 63 6f 72 72 .Return the corr
0730: 65 63 74 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 ect TLS channel
0740: 64 72 69 76 65 72 20 69 6e 66 6f 0a 20 2a 0a 20 driver info. *.
0750: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 * Results:. *.Th
0760: 65 20 63 6f 72 72 65 63 74 20 63 68 61 6e 6e 65 e correct channe
0770: 6c 20 64 72 69 76 65 72 20 66 6f 72 20 74 68 65 l driver for the
0780: 20 63 75 72 72 65 6e 74 20 76 65 72 73 69 6f 6e current version
0790: 20 6f 66 20 54 63 6c 2e 0a 20 2a 0a 20 2a 20 53 of Tcl.. *. * S
07a0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
07b0: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
0800: 2a 2f 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 */.Tcl_ChannelTy
0810: 70 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 pe *Tls_ChannelT
0820: 79 70 65 28 76 6f 69 64 29 20 7b 0a 09 75 6e 73 ype(void) {..uns
0830: 69 67 6e 65 64 20 69 6e 74 20 73 69 7a 65 3b 0a igned int size;.
0840: 0a 09 2f 2a 0a 09 20 2a 20 49 6e 69 74 69 61 6c ../*.. * Initial
0850: 69 7a 65 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 ize the channel
0860: 74 79 70 65 20 69 66 20 6e 65 63 65 73 73 61 72 type if necessar
0870: 79 0a 09 20 2a 2f 0a 09 69 66 20 28 74 6c 73 43 y.. */..if (tlsC
0880: 68 61 6e 6e 65 6c 54 79 70 65 20 3d 3d 20 4e 55 hannelType == NU
0890: 4c 4c 29 20 7b 0a 09 09 2f 2a 0a 09 09 20 2a 20 LL) {.../*... *
08a0: 41 6c 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 Allocation of a
08b0: 6e 65 77 20 63 68 61 6e 6e 65 6c 74 79 70 65 20 new channeltype
08c0: 73 74 72 75 63 74 75 72 65 20 69 73 20 6e 6f 74 structure is not
08d0: 20 65 61 73 79 2c 20 62 65 63 61 75 73 65 20 6f easy, because o
08e0: 66 0a 09 09 20 2a 20 74 68 65 20 76 61 72 69 6f f... * the vario
08f0: 75 73 20 76 65 72 73 6f 6e 20 6f 66 20 74 68 65 us verson of the
0900: 20 63 6f 72 65 20 61 6e 64 20 73 75 62 73 65 71 core and subseq
0910: 75 65 6e 74 20 63 68 61 6e 67 65 73 20 74 6f 20 uent changes to
0920: 74 68 65 0a 09 09 20 2a 20 73 74 72 75 63 74 75 the... * structu
0930: 72 65 2e 20 54 68 65 20 6d 61 69 6e 20 63 68 61 re. The main cha
0940: 6c 6c 65 6e 67 65 20 69 73 20 74 6f 20 61 6c 6c llenge is to all
0950: 6f 63 61 74 65 20 65 6e 6f 75 67 68 20 6d 65 6d ocate enough mem
0960: 6f 72 79 20 66 6f 72 0a 09 09 20 2a 20 6d 6f 64 ory for... * mod
0970: 65 72 6e 20 76 65 72 73 69 6f 6e 73 20 65 76 65 ern versions eve
0980: 6e 20 69 66 20 74 68 69 73 20 65 78 74 73 65 6e n if this extsen
0990: 73 69 6f 6e 20 69 73 20 63 6f 6d 70 69 6c 65 64 sion is compiled
09a0: 20 61 67 61 69 6e 73 74 20 6f 6e 65 0a 09 09 20 against one...
09b0: 2a 20 6f 66 20 74 68 65 20 6f 6c 64 65 72 20 76 * of the older v
09c0: 61 72 69 61 6e 74 21 0a 09 09 20 2a 0a 09 09 20 ariant!... *...
09d0: 2a 20 28 31 29 20 56 65 72 73 69 6f 6e 73 20 62 * (1) Versions b
09e0: 65 66 6f 72 65 20 73 74 75 62 73 20 28 38 2e 30 efore stubs (8.0
09f0: 2e 78 29 20 61 72 65 20 73 69 6d 70 6c 65 2c 20 .x) are simple,
0a00: 62 65 63 61 75 73 65 20 74 68 65 79 20 61 72 65 because they are
0a10: 0a 09 09 20 2a 20 20 20 20 20 73 75 70 70 6f 72 ... * suppor
0a20: 74 65 64 20 6f 6e 6c 79 20 69 66 20 74 68 65 20 ted only if the
0a30: 65 78 74 65 6e 73 69 6f 6e 20 69 73 20 63 6f 6d extension is com
0a40: 70 69 6c 65 64 20 61 67 61 69 6e 73 74 20 65 78 piled against ex
0a50: 61 63 74 6c 79 0a 09 09 20 2a 20 20 20 20 20 74 actly... * t
0a60: 68 61 74 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 hat version of t
0a70: 68 65 20 63 6f 72 65 2e 0a 09 09 20 2a 0a 09 09 he core.... *...
0a80: 20 2a 20 28 32 29 20 57 69 74 68 20 73 74 75 62 * (2) With stub
0a90: 73 20 77 65 20 6a 75 73 74 20 64 65 74 65 72 6d s we just determ
0aa0: 69 6e 65 20 74 68 65 20 64 69 66 66 65 72 65 6e ine the differen
0ab0: 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 20 6f ce between the o
0ac0: 6c 64 65 72 0a 09 09 20 2a 20 20 20 20 20 61 6e lder... * an
0ad0: 64 20 6d 6f 64 65 72 6e 20 76 61 72 69 61 6e 74 d modern variant
0ae0: 20 61 6e 64 20 6f 76 65 72 61 6c 6c 6f 63 61 74 and overallocat
0af0: 65 20 61 63 63 6f 72 64 69 6e 67 6c 79 20 69 66 e accordingly if
0b00: 20 63 6f 6d 70 69 6c 65 64 0a 09 09 20 2a 20 20 compiled... *
0b10: 20 20 20 61 67 61 69 6e 73 74 20 61 6e 20 6f 6c against an ol
0b20: 64 65 72 20 76 61 72 69 61 6e 74 2e 0a 09 09 20 der variant....
0b30: 2a 2f 0a 09 09 73 69 7a 65 20 3d 20 73 69 7a 65 */...size = size
0b40: 6f 66 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 of(Tcl_ChannelTy
0b50: 70 65 29 3b 20 2f 2a 20 42 61 73 65 20 73 69 7a pe); /* Base siz
0b60: 65 20 2a 2f 0a 0a 09 09 74 6c 73 43 68 61 6e 6e e */....tlsChann
0b70: 65 6c 54 79 70 65 20 3d 20 28 54 63 6c 5f 43 68 elType = (Tcl_Ch
0b80: 61 6e 6e 65 6c 54 79 70 65 20 2a 29 20 63 6b 61 annelType *) cka
0b90: 6c 6c 6f 63 28 73 69 7a 65 29 3b 0a 09 09 6d 65 lloc(size);...me
0ba0: 6d 73 65 74 28 74 6c 73 43 68 61 6e 6e 65 6c 54 mset(tlsChannelT
0bb0: 79 70 65 2c 20 30 2c 20 73 69 7a 65 29 3b 0a 0a ype, 0, size);..
0bc0: 09 09 2f 2a 0a 09 09 20 2a 20 43 6f 6d 6d 6f 6e ../*... * Common
0bd0: 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 elements of the
0be0: 20 73 74 72 75 63 74 75 72 65 20 28 6e 6f 20 63 structure (no c
0bf0: 68 61 6e 67 65 73 20 69 6e 20 6c 6f 63 61 74 69 hanges in locati
0c00: 6f 6e 20 6f 72 20 6e 61 6d 65 29 0a 09 09 20 2a on or name)... *
0c10: 20 63 6c 6f 73 65 32 50 72 6f 63 2c 20 73 65 65 close2Proc, see
0c20: 6b 50 72 6f 63 2c 20 73 65 74 4f 70 74 69 6f 6e kProc, setOption
0c30: 50 72 6f 63 20 73 74 61 79 20 4e 55 4c 4c 2e 0a Proc stay NULL..
0c40: 09 09 20 2a 2f 0a 0a 09 09 74 6c 73 43 68 61 6e .. */....tlsChan
0c50: 6e 65 6c 54 79 70 65 2d 3e 74 79 70 65 4e 61 6d nelType->typeNam
0c60: 65 09 3d 20 22 74 6c 73 22 3b 0a 23 69 66 20 54 e.= "tls";.#if T
0c70: 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e CL_MAJOR_VERSION
0c80: 20 3c 20 39 0a 09 09 74 6c 73 43 68 61 6e 6e 65 < 9...tlsChanne
0c90: 6c 54 79 70 65 2d 3e 63 6c 6f 73 65 50 72 6f 63 lType->closeProc
0ca0: 09 3d 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 3b .= TlsCloseProc;
0cb0: 0a 23 65 6c 73 65 0a 09 09 74 6c 73 43 68 61 6e .#else...tlsChan
0cc0: 6e 65 6c 54 79 70 65 2d 3e 63 6c 6f 73 65 32 50 nelType->close2P
0cd0: 72 6f 63 09 3d 20 54 6c 73 43 6c 6f 73 65 32 50 roc.= TlsClose2P
0ce0: 72 6f 63 3b 0a 23 65 6e 64 69 66 0a 09 09 74 6c roc;.#endif...tl
0cf0: 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 69 6e sChannelType->in
0d00: 70 75 74 50 72 6f 63 09 3d 20 54 6c 73 49 6e 70 putProc.= TlsInp
0d10: 75 74 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 utProc;...tlsCha
0d20: 6e 6e 65 6c 54 79 70 65 2d 3e 6f 75 74 70 75 74 nnelType->output
0d30: 50 72 6f 63 09 3d 20 54 6c 73 4f 75 74 70 75 74 Proc.= TlsOutput
0d40: 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e Proc;...tlsChann
0d50: 65 6c 54 79 70 65 2d 3e 67 65 74 4f 70 74 69 6f elType->getOptio
0d60: 6e 50 72 6f 63 09 3d 20 54 6c 73 47 65 74 4f 70 nProc.= TlsGetOp
0d70: 74 69 6f 6e 50 72 6f 63 3b 0a 09 09 74 6c 73 43 tionProc;...tlsC
0d80: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 77 61 74 63 hannelType->watc
0d90: 68 50 72 6f 63 09 3d 20 54 6c 73 57 61 74 63 68 hProc.= TlsWatch
0da0: 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e Proc;...tlsChann
0db0: 65 6c 54 79 70 65 2d 3e 67 65 74 48 61 6e 64 6c elType->getHandl
0dc0: 65 50 72 6f 63 09 3d 20 54 6c 73 47 65 74 48 61 eProc.= TlsGetHa
0dd0: 6e 64 6c 65 50 72 6f 63 3b 0a 0a 09 09 2f 2a 0a ndleProc;..../*.
0de0: 09 09 20 2a 20 43 6f 6d 70 69 6c 65 64 20 61 67 .. * Compiled ag
0df0: 61 69 6e 73 74 20 38 2e 33 2e 32 2b 2e 20 44 69 ainst 8.3.2+. Di
0e00: 72 65 63 74 20 61 63 63 65 73 73 20 74 6f 20 61 rect access to a
0e10: 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 70 6f 73 73 ll elements poss
0e20: 69 62 6c 65 2e 20 55 73 65 0a 09 09 20 2a 20 63 ible. Use... * c
0e30: 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f hannelTypeVersio
0e40: 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f n information to
0e50: 20 73 65 6c 65 63 74 20 74 68 65 20 76 61 6c 75 select the valu
0e60: 65 73 20 74 6f 20 75 73 65 2e 0a 09 09 20 2a 2f es to use.... */
0e70: 0a 0a 09 09 2f 2a 0a 09 09 20 2a 20 46 6f 72 20 ..../*... * For
0e80: 74 68 65 20 38 2e 33 2e 32 20 63 6f 72 65 20 77 the 8.3.2 core w
0e90: 65 20 70 72 65 73 65 6e 74 20 6f 75 72 73 65 6c e present oursel
0ea0: 76 65 73 20 61 73 20 61 20 76 65 72 73 69 6f 6e ves as a version
0eb0: 20 32 0a 09 09 20 2a 20 64 72 69 76 65 72 2e 20 2... * driver.
0ec0: 54 68 69 73 20 6d 65 61 6e 73 20 61 20 73 70 65 This means a spe
0ed0: 63 69 61 6c 20 76 61 6c 75 65 20 69 6e 20 76 65 cial value in ve
0ee0: 72 73 69 6f 6e 20 28 65 78 0a 09 09 20 2a 20 62 rsion (ex... * b
0ef0: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 29 2c 20 62 lockModeProc), b
0f00: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 69 6e 20 lockModeProc in
0f10: 61 20 64 69 66 66 65 72 65 6e 74 20 70 6c 61 63 a different plac
0f20: 65 20 61 6e 64 20 6f 66 0a 09 09 20 2a 20 63 6f e and of... * co
0f30: 75 72 73 65 20 75 73 61 67 65 20 6f 66 20 74 68 urse usage of th
0f40: 65 20 68 61 6e 64 6c 65 72 50 72 6f 63 2e 0a 09 e handlerProc...
0f50: 09 20 2a 2f 0a 09 09 74 6c 73 43 68 61 6e 6e 65 . */...tlsChanne
0f60: 6c 54 79 70 65 2d 3e 76 65 72 73 69 6f 6e 20 20 lType->version
0f70: 20 20 20 20 20 3d 20 54 43 4c 5f 43 48 41 4e 4e = TCL_CHANN
0f80: 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 3b 0a 09 09 EL_VERSION_5;...
0f90: 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e tlsChannelType->
0fa0: 62 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 3d 20 blockModeProc =
0fb0: 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 TlsBlockModeProc
0fc0: 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 ;...tlsChannelTy
0fd0: 70 65 2d 3e 68 61 6e 64 6c 65 72 50 72 6f 63 20 pe->handlerProc
0fe0: 20 20 3d 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f = TlsNotifyPro
0ff0: 63 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 74 c;..}...return(t
1000: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 29 3b 0a lsChannelType);.
1010: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
1020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
1060: 2a 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 * TlsBlockModePr
1070: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 oc --. *. *.This
1080: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
1090: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e voked by the gen
10a0: 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a eric IO level. *
10b0: 20 20 20 20 20 20 20 74 6f 20 73 65 74 20 62 6c to set bl
10c0: 6f 63 6b 69 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c ocking and nonbl
10d0: 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 0a 20 2a 20 ocking modes. *
10e0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 Results:. *.0 if
10f0: 20 73 75 63 63 65 73 73 66 75 6c 2c 20 65 72 72 successful, err
1100: 6e 6f 20 77 68 65 6e 20 66 61 69 6c 65 64 2e 0a no when failed..
1110: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1120: 74 73 3a 0a 20 2a 09 53 65 74 73 20 74 68 65 20 ts:. *.Sets the
1130: 64 65 76 69 63 65 20 69 6e 74 6f 20 62 6c 6f 63 device into bloc
1140: 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b king or nonblock
1150: 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a 2d ing mode.. *. *-
1160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11a0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
11b0: 74 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 t TlsBlockModePr
11c0: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
11d0: 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 stanceData, int
11e0: 6d 6f 64 65 29 20 7b 0a 09 53 74 61 74 65 20 2a mode) {..State *
11f0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
1200: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
1210: 61 3b 0a 0a 09 69 66 20 28 6d 6f 64 65 20 3d 3d a;...if (mode ==
1220: 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f TCL_MODE_NONBLO
1230: 43 4b 49 4e 47 29 20 7b 0a 09 09 73 74 61 74 65 CKING) {...state
1240: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c Ptr->flags |= TL
1250: 53 5f 54 43 4c 5f 41 53 59 4e 43 3b 0a 09 7d 20 S_TCL_ASYNC;..}
1260: 65 6c 73 65 20 7b 0a 09 09 73 74 61 74 65 50 74 else {...statePt
1270: 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c r->flags &= ~(TL
1280: 53 5f 54 43 4c 5f 41 53 59 4e 43 29 3b 0a 09 7d S_TCL_ASYNC);..}
1290: 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a ...return(0);.}.
12a0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
12b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
12f0: 54 6c 73 43 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a TlsCloseProc --.
1300: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 *. *.This proce
1310: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
1320: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
1330: 4f 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f O level to perfo
1340: 72 6d 0a 20 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 rm. *.channel-ty
1350: 70 65 2d 73 70 65 63 69 66 69 63 20 63 6c 65 61 pe-specific clea
1360: 6e 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 nup when a SSL s
1370: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
1380: 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 nel. *.is closed
1390: 2e 0a 20 2a 0a 20 2a 09 4e 6f 74 65 3a 20 77 65 .. *. *.Note: we
13a0: 20 6c 65 61 76 65 20 74 68 65 20 75 6e 64 65 72 leave the under
13b0: 6c 79 69 6e 67 20 73 6f 63 6b 65 74 20 61 6c 6f lying socket alo
13c0: 6e 65 2c 20 69 73 20 74 68 69 73 20 72 69 67 68 ne, is this righ
13d0: 74 3f 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 t?. *. * Results
13e0: 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 :. *.0 if succes
13f0: 73 66 75 6c 2c 20 74 68 65 20 76 61 6c 75 65 20 sful, the value
1400: 6f 66 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 of Tcl_GetErrno(
1410: 29 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a ) if failed.. *.
1420: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
1430: 0a 20 2a 09 43 6c 6f 73 65 73 20 74 68 65 20 73 . *.Closes the s
1440: 6f 63 6b 65 74 20 6f 66 20 74 68 65 20 63 68 61 ocket of the cha
1450: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
1460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
14a0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
14b0: 73 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 65 6e sCloseProc(Clien
14c0: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
14d0: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
14e0: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 53 74 interp) {. St
14f0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
1500: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
1510: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 ceData;.. dpr
1520: 69 6e 74 66 28 22 54 6c 73 43 6c 6f 73 65 50 72 intf("TlsClosePr
1530: 6f 63 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a oc(%p)", (void *
1540: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 ) statePtr);..
1550: 20 20 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 74 Tls_Clean(stat
1560: 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 45 ePtr);. Tcl_E
1570: 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 28 28 43 ventuallyFree((C
1580: 6c 69 65 6e 74 44 61 74 61 29 73 74 61 74 65 50 lientData)stateP
1590: 74 72 2c 20 54 6c 73 5f 46 72 65 65 29 3b 0a 0a tr, Tls_Free);..
15a0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 dprintf("Ret
15b0: 75 72 6e 69 6e 67 20 54 43 4c 5f 4f 4b 22 29 3b urning TCL_OK");
15c0: 0a 0a 20 20 20 20 72 65 74 75 72 6e 28 54 43 4c .. return(TCL
15d0: 5f 4f 4b 29 3b 0a 0a 20 20 20 20 2f 2a 20 49 6e _OK);.. /* In
15e0: 74 65 72 70 20 69 73 20 75 6e 75 73 65 64 2e 20 terp is unused.
15f0: 2a 2f 0a 20 20 20 20 69 6e 74 65 72 70 20 3d 20 */. interp =
1600: 69 6e 74 65 72 70 3b 0a 7d 0a 0a 73 74 61 74 69 interp;.}..stati
1610: 63 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 32 50 c int TlsClose2P
1620: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 roc(ClientData i
1630: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 6c nstanceData, Tcl
1640: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1650: 20 69 6e 74 20 66 6c 61 67 73 29 20 7b 0a 20 20 int flags) {.
1660: 20 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 28 if ((flags & (
1670: 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 7c 54 TCL_CLOSE_READ|T
1680: 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 CL_CLOSE_WRITE))
1690: 20 3d 3d 20 30 29 20 7b 0a 09 53 74 61 74 65 20 == 0) {..State
16a0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
16b0: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
16c0: 74 61 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 54 ta;...dprintf("T
16d0: 6c 73 43 6c 6f 73 65 50 72 6f 63 28 25 70 29 22 lsCloseProc(%p)"
16e0: 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 , (void *) state
16f0: 50 74 72 29 3b 0a 0a 09 54 6c 73 5f 43 6c 65 61 Ptr);...Tls_Clea
1700: 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 09 54 63 n(statePtr);..Tc
1710: 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 l_EventuallyFree
1720: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 ((ClientData)sta
1730: 74 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 65 29 tePtr, Tls_Free)
1740: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 ;...dprintf("Ret
1750: 75 72 6e 69 6e 67 20 54 43 4c 5f 4f 4b 22 29 3b urning TCL_OK");
1760: 0a 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b ...return(TCL_OK
1770: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
1780: 20 49 6e 74 65 72 70 20 69 73 20 75 6e 75 73 65 Interp is unuse
1790: 64 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 65 72 70 d. */. interp
17a0: 20 3d 20 69 6e 74 65 72 70 3b 0a 7d 0a 0a 2f 2a = interp;.}../*
17b0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
17c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
17f0: 09 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e .Tls_WaitForConn
1800: 65 63 74 20 2d 2d 0a 20 2a 0a 20 2a 09 53 69 64 ect --. *. *.Sid
1810: 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 49 73 eeffects:. *..Is
1820: 73 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74 20 sues SSL_accept
1830: 6f 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 or SSL_connect.
1840: 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 *. *.Result:. *.
1850: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
1860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1890: 2d 2d 2a 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f --*. */.int Tls_
18a0: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 53 WaitForConnect(S
18b0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
18c0: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
18d0: 72 2c 20 69 6e 74 20 68 61 6e 64 73 68 61 6b 65 r, int handshake
18e0: 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 FailureIsPermane
18f0: 6e 74 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 nt) {..unsigned
1900: 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f long backingErro
1910: 72 3b 0a 09 69 6e 74 20 65 72 72 2c 20 72 63 3b r;..int err, rc;
1920: 0a 09 69 6e 74 20 62 69 6f 53 68 6f 75 6c 64 52 ..int bioShouldR
1930: 65 74 72 79 3b 0a 0a 09 64 70 72 69 6e 74 66 28 etry;...dprintf(
1940: 22 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 "WaitForConnect(
1950: 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 %p)", (void *) s
1960: 74 61 74 65 50 74 72 29 3b 0a 09 64 70 72 69 6e tatePtr);..dprin
1970: 74 46 6c 61 67 73 28 73 74 61 74 65 50 74 72 29 tFlags(statePtr)
1980: 3b 0a 0a 09 69 66 20 28 21 28 73 74 61 74 65 50 ;...if (!(stateP
1990: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
19a0: 54 43 4c 5f 49 4e 49 54 29 29 20 7b 0a 09 09 64 TCL_INIT)) {...d
19b0: 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 printf("Tls_Wait
19c0: 46 6f 72 43 6f 6e 6e 65 63 74 20 63 61 6c 6c 65 ForConnect calle
19d0: 64 20 6f 6e 20 61 6c 72 65 61 64 79 20 69 6e 69 d on already ini
19e0: 74 69 61 6c 69 7a 65 64 20 63 68 61 6e 6e 65 6c tialized channel
19f0: 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 77 69 -- returning wi
1a00: 74 68 20 69 6d 6d 65 64 69 61 74 65 20 73 75 63 th immediate suc
1a10: 63 65 73 73 22 29 3b 0a 09 09 2a 65 72 72 6f 72 cess");...*error
1a20: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 72 CodePtr = 0;...r
1a30: 65 74 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 69 eturn(0);..}...i
1a40: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
1a50: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 48 41 4e gs & TLS_TCL_HAN
1a60: 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 29 20 7b DSHAKE_FAILED) {
1a70: 0a 09 09 2f 2a 0a 09 09 20 2a 20 44 69 66 66 65 .../*... * Diffe
1a80: 72 65 6e 74 20 74 79 70 65 73 20 6f 66 20 6f 70 rent types of op
1a90: 65 72 61 74 69 6f 6e 73 20 68 61 76 65 20 64 69 erations have di
1aa0: 66 66 65 72 65 6e 74 20 72 65 71 75 69 72 65 6d fferent requirem
1ab0: 65 6e 74 73 0a 09 09 20 2a 20 53 53 4c 20 62 65 ents... * SSL be
1ac0: 69 6e 67 20 65 73 74 61 62 6c 69 73 68 65 64 0a ing established.
1ad0: 09 09 20 2a 2f 0a 09 09 69 66 20 28 68 61 6e 64 .. */...if (hand
1ae0: 73 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 shakeFailureIsPe
1af0: 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 09 09 64 70 rmanent) {....dp
1b00: 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 rintf("Asked to
1b10: 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 20 68 wait for a TLS h
1b20: 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 68 61 andshake that ha
1b30: 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c 65 64 s already failed
1b40: 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 66 61 74 . Returning fat
1b50: 61 6c 20 65 72 72 6f 72 22 29 3b 0a 09 09 09 2a al error");....*
1b60: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
1b70: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 7d CONNABORTED;...}
1b80: 20 65 6c 73 65 20 7b 0a 09 09 09 64 70 72 69 6e else {....dprin
1b90: 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 69 tf("Asked to wai
1ba0: 74 20 66 6f 72 20 61 20 54 4c 53 20 68 61 6e 64 t for a TLS hand
1bb0: 73 68 61 6b 65 20 74 68 61 74 20 68 61 73 20 61 shake that has a
1bc0: 6c 72 65 61 64 79 20 66 61 69 6c 65 64 2e 20 20 lready failed.
1bd0: 52 65 74 75 72 6e 69 6e 67 20 73 6f 66 74 20 65 Returning soft e
1be0: 72 72 6f 72 22 29 3b 0a 09 09 09 2a 65 72 72 6f rror");....*erro
1bf0: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
1c00: 52 45 53 45 54 3b 0a 09 09 7d 0a 09 09 72 65 74 RESET;...}...ret
1c10: 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 66 6f urn(-1);..}...fo
1c20: 72 20 28 3b 3b 29 20 7b 0a 09 09 2f 2a 20 4e 6f r (;;) {.../* No
1c30: 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 79 65 t initialized ye
1c40: 74 21 20 2a 2f 0a 09 09 69 66 20 28 73 74 61 74 t! */...if (stat
1c50: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
1c60: 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a S_TCL_SERVER) {.
1c70: 09 09 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c ...dprintf("Call
1c80: 69 6e 67 20 53 53 4c 5f 61 63 63 65 70 74 28 29 ing SSL_accept()
1c90: 22 29 3b 0a 0a 09 09 09 65 72 72 20 3d 20 53 53 ");.....err = SS
1ca0: 4c 5f 61 63 63 65 70 74 28 73 74 61 74 65 50 74 L_accept(statePt
1cb0: 72 2d 3e 73 73 6c 29 3b 0a 09 09 7d 20 65 6c 73 r->ssl);...} els
1cc0: 65 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 e {....dprintf("
1cd0: 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 63 6f 6e 6e Calling SSL_conn
1ce0: 65 63 74 28 29 22 29 3b 0a 0a 09 09 09 65 72 72 ect()");.....err
1cf0: 20 3d 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 28 73 = SSL_connect(s
1d00: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 tatePtr->ssl);..
1d10: 09 7d 0a 0a 09 09 69 66 20 28 65 72 72 20 3e 20 .}....if (err >
1d20: 30 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 0) {....dprintf(
1d30: 22 54 68 61 74 20 73 65 65 6d 73 20 74 6f 20 68 "That seems to h
1d40: 61 76 65 20 67 6f 6e 65 20 6f 6b 61 79 22 29 3b ave gone okay");
1d50: 0a 0a 09 09 09 65 72 72 20 3d 20 42 49 4f 5f 66 .....err = BIO_f
1d60: 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 lush(statePtr->b
1d70: 69 6f 29 3b 0a 0a 09 09 09 69 66 20 28 65 72 72 io);.....if (err
1d80: 20 3c 3d 20 30 29 20 7b 0a 09 09 09 09 64 70 72 <= 0) {.....dpr
1d90: 69 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 20 74 intf("Flushing t
1da0: 68 65 20 6c 6f 77 65 72 20 6c 61 79 65 72 73 20 he lower layers
1db0: 66 61 69 6c 65 64 2c 20 74 68 69 73 20 77 69 6c failed, this wil
1dc0: 6c 20 70 72 6f 62 61 62 6c 79 20 74 65 72 6d 69 l probably termi
1dd0: 6e 61 74 65 20 74 68 69 73 20 73 65 73 73 69 6f nate this sessio
1de0: 6e 22 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 n");....}...}...
1df0: 09 72 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 .rc = SSL_get_er
1e00: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ror(statePtr->ss
1e10: 6c 2c 20 65 72 72 29 3b 0a 0a 09 09 64 70 72 69 l, err);....dpri
1e20: 6e 74 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 ntf("Got error:
1e30: 25 69 20 28 72 63 20 3d 20 25 69 29 22 2c 20 65 %i (rc = %i)", e
1e40: 72 72 2c 20 72 63 29 3b 0a 0a 09 09 62 69 6f 53 rr, rc);....bioS
1e50: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 30 3b 0a houldRetry = 0;.
1e60: 09 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 ..if (err <= 0)
1e70: 7b 0a 09 09 09 69 66 20 28 72 63 20 3d 3d 20 53 {....if (rc == S
1e80: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f SL_ERROR_WANT_CO
1e90: 4e 4e 45 43 54 20 7c 7c 20 72 63 20 3d 3d 20 53 NNECT || rc == S
1ea0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 SL_ERROR_WANT_AC
1eb0: 43 45 50 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 CEPT || rc == SS
1ec0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 L_ERROR_WANT_REA
1ed0: 44 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45 D || rc == SSL_E
1ee0: 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 29 RROR_WANT_WRITE)
1ef0: 20 7b 0a 09 09 09 09 62 69 6f 53 68 6f 75 6c 64 {.....bioShould
1f00: 52 65 74 72 79 20 3d 20 31 3b 0a 09 09 09 7d 20 Retry = 1;....}
1f10: 65 6c 73 65 20 69 66 20 28 42 49 4f 5f 73 68 6f else if (BIO_sho
1f20: 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 uld_retry(stateP
1f30: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 09 09 tr->bio)) {.....
1f40: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d bioShouldRetry =
1f50: 20 31 3b 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 1;....} else if
1f60: 20 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f (rc == SSL_ERRO
1f70: 52 5f 53 59 53 43 41 4c 4c 20 26 26 20 54 63 6c R_SYSCALL && Tcl
1f80: 5f 47 65 74 45 72 72 6e 6f 28 29 20 3d 3d 20 45 _GetErrno() == E
1f90: 41 47 41 49 4e 29 20 7b 0a 09 09 09 09 62 69 6f AGAIN) {.....bio
1fa0: 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b ShouldRetry = 1;
1fb0: 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b ....}...} else {
1fc0: 0a 09 09 09 69 66 20 28 21 53 53 4c 5f 69 73 5f ....if (!SSL_is_
1fd0: 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 init_finished(st
1fe0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a atePtr->ssl)) {.
1ff0: 09 09 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 ....bioShouldRet
2000: 72 79 20 3d 20 31 3b 0a 09 09 09 7d 0a 09 09 7d ry = 1;....}...}
2010: 0a 0a 09 09 69 66 20 28 62 69 6f 53 68 6f 75 6c ....if (bioShoul
2020: 64 52 65 74 72 79 29 20 7b 0a 09 09 09 64 70 72 dRetry) {....dpr
2030: 69 6e 74 66 28 22 54 68 65 20 49 2f 4f 20 64 69 intf("The I/O di
2040: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 2d d not complete -
2050: 2d 20 62 75 74 20 77 65 20 73 68 6f 75 6c 64 20 - but we should
2060: 74 72 79 20 69 74 20 61 67 61 69 6e 22 29 3b 0a try it again");.
2070: 0a 09 09 09 69 66 20 28 73 74 61 74 65 50 74 72 ....if (statePtr
2080: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
2090: 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 09 09 09 64 L_ASYNC) {.....d
20a0: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e printf("Returnin
20b0: 67 20 45 41 47 41 49 4e 20 73 6f 20 74 68 61 74 g EAGAIN so that
20c0: 20 69 74 20 63 61 6e 20 62 65 20 72 65 74 72 69 it can be retri
20d0: 65 64 20 6c 61 74 65 72 22 29 3b 0a 0a 09 09 09 ed later");.....
20e0: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
20f0: 20 45 41 47 41 49 4e 3b 0a 0a 09 09 09 09 72 65 EAGAIN;......re
2100: 74 75 72 6e 28 2d 31 29 3b 0a 09 09 09 7d 20 65 turn(-1);....} e
2110: 6c 73 65 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 lse {.....dprint
2120: 66 28 22 44 6f 69 6e 67 20 73 6f 20 6e 6f 77 22 f("Doing so now"
2130: 29 3b 0a 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 );......continue
2140: 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 64 70 ;....}...}....dp
2150: 72 69 6e 74 66 28 22 57 65 20 68 61 76 65 20 65 rintf("We have e
2160: 69 74 68 65 72 20 63 6f 6d 70 6c 65 74 65 6c 79 ither completely
2170: 20 65 73 74 61 62 6c 69 73 68 65 64 20 74 68 65 established the
2180: 20 73 65 73 73 69 6f 6e 20 6f 72 20 63 6f 6d 70 session or comp
2190: 6c 65 74 65 6c 79 20 66 61 69 6c 65 64 20 69 74 letely failed it
21a0: 20 2d 2d 20 74 68 65 72 65 20 69 73 20 6e 6f 20 -- there is no
21b0: 6d 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 76 65 more need to eve
21c0: 72 20 72 65 74 72 79 20 69 74 20 74 68 6f 75 67 r retry it thoug
21d0: 68 22 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 7d h");...break;..}
21e0: 0a 0a 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ....*errorCodePt
21f0: 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 0a 09 73 77 r = EINVAL;...sw
2200: 69 74 63 68 20 28 72 63 29 20 7b 0a 09 09 63 61 itch (rc) {...ca
2210: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e se SSL_ERROR_NON
2220: 45 3a 0a 09 09 09 2f 2a 20 54 68 65 20 63 6f 6e E:..../* The con
2230: 6e 65 63 74 69 6f 6e 20 69 73 20 75 70 2c 20 77 nection is up, w
2240: 65 20 61 72 65 20 64 6f 6e 65 20 68 65 72 65 20 e are done here
2250: 2a 2f 0a 09 09 09 64 70 72 69 6e 74 66 28 22 54 */....dprintf("T
2260: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 he connection is
2270: 20 75 70 22 29 3b 0a 09 09 09 62 72 65 61 6b 3b up");....break;
2280: 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
2290: 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 R_ZERO_RETURN:..
22a0: 09 09 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 ..dprintf("SSL_E
22b0: 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e RROR_ZERO_RETURN
22c0: 3a 20 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e : Connect return
22d0: 65 64 20 61 6e 20 69 6e 76 61 6c 69 64 20 76 61 ed an invalid va
22e0: 6c 75 65 2e 2e 2e 22 29 0a 09 09 09 72 65 74 75 lue...")....retu
22f0: 72 6e 28 2d 31 29 3b 0a 09 09 63 61 73 65 20 53 rn(-1);...case S
2300: 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c SL_ERROR_SYSCALL
2310: 3a 0a 09 09 09 62 61 63 6b 69 6e 67 45 72 72 6f :....backingErro
2320: 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f r = ERR_get_erro
2330: 72 28 29 3b 0a 0a 09 09 09 69 66 20 28 62 61 63 r();.....if (bac
2340: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
2350: 26 20 65 72 72 20 3d 3d 20 30 29 20 7b 0a 09 09 & err == 0) {...
2360: 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 20 72 ..dprintf("EOF r
2370: 65 61 63 68 65 64 22 29 0a 09 09 09 09 2a 65 72 eached").....*er
2380: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
2390: 4e 4e 52 45 53 45 54 3b 0a 09 09 09 7d 20 65 6c NNRESET;....} el
23a0: 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 se if (backingEr
23b0: 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 72 20 ror == 0 && err
23c0: 3d 3d 20 2d 31 29 20 7b 0a 09 09 09 09 64 70 72 == -1) {.....dpr
23d0: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
23e0: 6f 63 63 75 72 65 64 20 28 65 72 72 6e 6f 20 3d occured (errno =
23f0: 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 %lu)", (unsigne
2400: 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 d long) Tcl_GetE
2410: 72 72 6e 6f 28 29 29 3b 0a 09 09 09 09 2a 65 72 rrno());.....*er
2420: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
2430: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 09 _GetErrno();....
2440: 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 .if (*errorCodeP
2450: 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 tr == ECONNRESET
2460: 29 20 7b 0a 09 09 09 09 09 2a 65 72 72 6f 72 43 ) {......*errorC
2470: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 odePtr = ECONNAB
2480: 4f 52 54 45 44 3b 0a 09 09 09 09 7d 0a 09 09 09 ORTED;.....}....
2490: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 64 70 72 } else {.....dpr
24a0: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
24b0: 6f 63 63 75 72 65 64 20 28 62 61 63 6b 69 6e 67 occured (backing
24c0: 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20 62 Error = %lu)", b
24d0: 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09 09 ackingError);...
24e0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
24f0: 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a = backingError;.
2500: 09 09 09 09 69 66 20 28 2a 65 72 72 6f 72 43 6f ....if (*errorCo
2510: 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 dePtr == ECONNRE
2520: 53 45 54 29 20 7b 0a 09 09 09 09 09 2a 65 72 72 SET) {......*err
2530: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
2540: 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 09 7d 0a NABORTED;.....}.
2550: 09 09 09 7d 0a 0a 09 09 09 73 74 61 74 65 50 74 ...}.....statePt
2560: 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f r->flags |= TLS_
2570: 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 TCL_HANDSHAKE_FA
2580: 49 4c 45 44 3b 0a 0a 09 09 09 72 65 74 75 72 6e ILED;.....return
2590: 28 2d 31 29 3b 0a 09 09 63 61 73 65 20 53 53 4c (-1);...case SSL
25a0: 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 09 09 64 _ERROR_SSL:....d
25b0: 70 72 69 6e 74 66 28 22 47 6f 74 20 70 65 72 6d printf("Got perm
25c0: 61 6e 65 6e 74 20 66 61 74 61 6c 20 53 53 4c 20 anent fatal SSL
25d0: 65 72 72 6f 72 2c 20 61 62 6f 72 74 69 6e 67 20 error, aborting
25e0: 69 6d 6d 65 64 69 61 74 65 6c 79 22 29 3b 0a 09 immediately");..
25f0: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
2600: 65 50 74 72 2c 20 28 63 68 61 72 20 2a 29 45 52 ePtr, (char *)ER
2610: 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 R_reason_error_s
2620: 74 72 69 6e 67 28 45 52 52 5f 67 65 74 5f 65 72 tring(ERR_get_er
2630: 72 6f 72 28 29 29 29 3b 0a 09 09 09 73 74 61 74 ror()));....stat
2640: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
2650: 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 LS_TCL_HANDSHAKE
2660: 5f 46 41 49 4c 45 44 3b 0a 09 09 09 2a 65 72 72 _FAILED;....*err
2670: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
2680: 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 72 65 74 NABORTED;....ret
2690: 75 72 6e 28 2d 31 29 3b 0a 09 09 63 61 73 65 20 urn(-1);...case
26a0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 SSL_ERROR_WANT_C
26b0: 4f 4e 4e 45 43 54 3a 0a 09 09 63 61 73 65 20 53 ONNECT:...case S
26c0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 SL_ERROR_WANT_AC
26d0: 43 45 50 54 3a 0a 09 09 63 61 73 65 20 53 53 4c CEPT:...case SSL
26e0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 _ERROR_WANT_X509
26f0: 5f 4c 4f 4f 4b 55 50 3a 0a 09 09 64 65 66 61 75 _LOOKUP:...defau
2700: 6c 74 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 lt:....dprintf("
2710: 57 65 20 67 6f 74 20 61 20 63 6f 6e 66 75 73 69 We got a confusi
2720: 6e 67 20 72 65 70 6c 79 3a 20 25 69 22 2c 20 72 ng reply: %i", r
2730: 63 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 c);....*errorCod
2740: 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 ePtr = Tcl_GetEr
2750: 72 6e 6f 28 29 3b 0a 09 09 09 64 70 72 69 6e 74 rno();....dprint
2760: 66 28 22 45 52 52 28 25 64 2c 20 25 64 29 20 22 f("ERR(%d, %d) "
2770: 2c 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f 64 65 , rc, *errorCode
2780: 50 74 72 29 3b 0a 09 09 09 72 65 74 75 72 6e 28 Ptr);....return(
2790: 2d 31 29 3b 0a 09 7d 0a 0a 23 69 66 20 30 0a 09 -1);..}..#if 0..
27a0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c if (statePtr->fl
27b0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45 ags & TLS_TCL_SE
27c0: 52 56 45 52 29 20 7b 0a 09 09 64 70 72 69 6e 74 RVER) {...dprint
27d0: 66 28 22 54 68 69 73 20 69 73 20 61 6e 20 54 4c f("This is an TL
27e0: 53 20 73 65 72 76 65 72 2c 20 63 68 65 63 6b 69 S server, checki
27f0: 6e 67 20 74 68 65 20 63 65 72 74 69 66 69 63 61 ng the certifica
2800: 74 65 20 66 6f 72 20 74 68 65 20 70 65 65 72 22 te for the peer"
2810: 29 3b 0a 0a 09 09 65 72 72 20 3d 20 53 53 4c 5f );....err = SSL_
2820: 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c get_verify_resul
2830: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
2840: 3b 0a 09 09 69 66 20 28 65 72 72 20 21 3d 20 58 ;...if (err != X
2850: 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 09 64 509_V_OK) {....d
2860: 70 72 69 6e 74 66 28 22 49 6e 76 61 6c 69 64 20 printf("Invalid
2870: 63 65 72 74 69 66 69 63 61 74 65 2c 20 72 65 74 certificate, ret
2880: 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 urning in failur
2890: 65 22 29 3b 0a 0a 09 09 09 54 6c 73 5f 45 72 72 e");.....Tls_Err
28a0: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 68 or(statePtr, (ch
28b0: 61 72 20 2a 29 58 35 30 39 5f 76 65 72 69 66 79 ar *)X509_verify
28c0: 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 69 _cert_error_stri
28d0: 6e 67 28 65 72 72 29 29 3b 0a 09 09 09 73 74 61 ng(err));....sta
28e0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
28f0: 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b TLS_TCL_HANDSHAK
2900: 45 5f 46 41 49 4c 45 44 3b 0a 09 09 09 2a 65 72 E_FAILED;....*er
2910: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
2920: 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 72 65 NNABORTED;....re
2930: 74 75 72 6e 28 2d 31 29 3b 0a 09 09 7d 0a 09 7d turn(-1);...}..}
2940: 0a 23 65 6e 64 69 66 0a 0a 09 64 70 72 69 6e 74 .#endif...dprint
2950: 66 28 22 52 65 6d 6f 76 69 6e 67 20 74 68 65 20 f("Removing the
2960: 5c 22 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 5c 22 \"TLS_TCL_INIT\"
2970: 20 66 6c 61 67 20 73 69 6e 63 65 20 77 65 20 68 flag since we h
2980: 61 76 65 20 63 6f 6d 70 6c 65 74 65 64 20 74 68 ave completed th
2990: 65 20 68 61 6e 64 73 68 61 6b 65 22 29 3b 0a 09 e handshake");..
29a0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
29b0: 26 3d 20 7e 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 &= ~TLS_TCL_INIT
29c0: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 ;...dprintf("Ret
29d0: 75 72 6e 69 6e 67 20 69 6e 20 73 75 63 63 65 73 urning in succes
29e0: 73 22 29 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 65 s");..*errorCode
29f0: 50 74 72 20 3d 20 30 3b 0a 0a 09 72 65 74 75 72 Ptr = 0;...retur
2a00: 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d n(0);.}../*. *--
2a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a50: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 49 6e 70 75 74 -. *. * TlsInput
2a60: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Proc --. *. *.Th
2a70: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 is procedure is
2a80: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 invoked by the g
2a90: 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a eneric IO level.
2aa0: 20 2a 20 20 20 20 20 20 20 74 6f 20 72 65 61 64 * to read
2ab0: 20 69 6e 70 75 74 20 66 72 6f 6d 20 61 20 53 53 input from a SS
2ac0: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
2ad0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
2ae0: 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 6e 75 sults:. *.The nu
2af0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 72 65 mber of bytes re
2b00: 61 64 20 69 73 20 72 65 74 75 72 6e 65 64 20 6f ad is returned o
2b10: 72 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e 20 41 r -1 on error. A
2b20: 6e 20 6f 75 74 70 75 74 0a 20 2a 09 61 72 67 75 n output. *.argu
2b30: 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 73 20 74 68 ment contains th
2b40: 65 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f e POSIX error co
2b50: 64 65 20 6f 6e 20 65 72 72 6f 72 2c 20 6f 72 20 de on error, or
2b60: 7a 65 72 6f 20 69 66 20 6e 6f 0a 20 2a 09 65 72 zero if no. *.er
2b70: 72 6f 72 20 6f 63 63 75 72 72 65 64 2e 0a 20 2a ror occurred.. *
2b80: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
2b90: 3a 0a 20 2a 09 52 65 61 64 73 20 69 6e 70 75 74 :. *.Reads input
2ba0: 20 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 74 20 from the input
2bb0: 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 device of the ch
2bc0: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d annel.. *. *----
2bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2c10: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 */..static int
2c20: 54 6c 73 49 6e 70 75 74 50 72 6f 63 28 43 6c 69 TlsInputProc(Cli
2c30: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
2c40: 44 61 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c Data, char *buf,
2c50: 20 69 6e 74 20 62 75 66 53 69 7a 65 2c 20 69 6e int bufSize, in
2c60: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 t *errorCodePtr)
2c70: 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e {..unsigned lon
2c80: 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a g backingError;.
2c90: 09 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 .State *statePtr
2ca0: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 = (State *) ins
2cb0: 74 61 6e 63 65 44 61 74 61 3b 0a 09 69 6e 74 20 tanceData;..int
2cc0: 62 79 74 65 73 52 65 61 64 3b 0a 09 69 6e 74 20 bytesRead;..int
2cd0: 74 6c 73 43 6f 6e 6e 65 63 74 3b 0a 09 69 6e 74 tlsConnect;..int
2ce0: 20 65 72 72 3b 0a 0a 09 2a 65 72 72 6f 72 43 6f err;...*errorCo
2cf0: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 09 64 70 72 dePtr = 0;...dpr
2d00: 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 28 25 intf("BIO_read(%
2d10: 64 29 22 2c 20 62 75 66 53 69 7a 65 29 3b 0a 0a d)", bufSize);..
2d20: 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 .if (statePtr->f
2d30: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 lags & TLS_TCL_C
2d40: 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 09 2f 2a 20 ALLBACK) {.../*
2d50: 64 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 61 6e don't process an
2d60: 79 20 62 79 74 65 73 20 77 68 69 6c 65 20 76 65 y bytes while ve
2d70: 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 rify callback is
2d80: 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 09 09 64 70 running */...dp
2d90: 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 rintf("Callback
2da0: 69 73 20 72 75 6e 6e 69 6e 67 2c 20 72 65 61 64 is running, read
2db0: 69 6e 67 20 30 20 62 79 74 65 73 22 29 3b 0a 09 ing 0 bytes");..
2dc0: 09 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a .return(0);..}..
2dd0: 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e .dprintf("Callin
2de0: 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e g Tls_WaitForCon
2df0: 6e 65 63 74 22 29 3b 0a 09 74 6c 73 43 6f 6e 6e nect");..tlsConn
2e00: 65 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f ect = Tls_WaitFo
2e10: 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 rConnect(statePt
2e20: 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2c r, errorCodePtr,
2e30: 20 30 29 3b 0a 09 69 66 20 28 74 6c 73 43 6f 6e 0);..if (tlsCon
2e40: 6e 65 63 74 20 3c 20 30 29 20 7b 0a 09 09 64 70 nect < 0) {...dp
2e50: 72 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 rintf("Got an er
2e60: 72 6f 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 ror waiting to c
2e70: 6f 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 onnect (tlsConne
2e80: 63 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 ct = %i, *errorC
2e90: 6f 64 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 odePtr = %i)", t
2ea0: 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f lsConnect, *erro
2eb0: 72 43 6f 64 65 50 74 72 29 3b 0a 0a 09 09 62 79 rCodePtr);....by
2ec0: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 tesRead = -1;...
2ed0: 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 if (*errorCodePt
2ee0: 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 r == ECONNRESET)
2ef0: 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 47 {....dprintf("G
2f00: 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 ot connection re
2f10: 73 65 74 22 29 3b 0a 09 09 09 2f 2a 20 53 6f 66 set");..../* Sof
2f20: 74 20 45 4f 46 20 2a 2f 0a 09 09 09 2a 65 72 72 t EOF */....*err
2f30: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 orCodePtr = 0;..
2f40: 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b ..bytesRead = 0;
2f50: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 28 62 ...}....return(b
2f60: 79 74 65 73 52 65 61 64 29 3b 0a 09 7d 0a 0a 09 ytesRead);..}...
2f70: 2f 2a 0a 09 20 2a 20 57 65 20 6e 65 65 64 20 74 /*.. * We need t
2f80: 6f 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c 20 o clear the SSL
2f90: 65 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 error stack now
2fa0: 62 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65 74 because we somet
2fb0: 69 6d 65 73 20 72 65 61 63 68 0a 09 20 2a 20 74 imes reach.. * t
2fc0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 his function wit
2fd0: 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 h leftover error
2fe0: 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 s in the stack.
2ff0: 20 49 66 20 42 49 4f 5f 72 65 61 64 0a 09 20 2a If BIO_read.. *
3000: 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 returns -1 and
3010: 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 intends EAGAIN,
3020: 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f there is a lefto
3030: 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 ver error, it wi
3040: 6c 6c 20 62 65 0a 09 20 2a 20 6d 69 73 63 6f 6e ll be.. * miscon
3050: 73 74 72 75 65 64 20 61 73 20 61 6e 20 65 72 72 strued as an err
3060: 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a or, not EAGAIN..
3070: 09 20 2a 0a 09 20 2a 20 41 6c 74 65 72 6e 61 74 . *.. * Alternat
3080: 69 76 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 ively, we may wa
3090: 6e 74 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 nt to handle the
30a0: 20 3c 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 <0 return codes
30b0: 20 66 72 6f 6d 0a 09 20 2a 20 42 49 4f 5f 72 65 from.. * BIO_re
30c0: 61 64 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 ad specially (as
30d0: 20 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 advised in the
30e0: 52 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 RSA docs). TLS'
30f0: 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c 20 42 49 s lower level BI
3100: 4f 0a 09 20 2a 20 66 75 6e 63 74 69 6f 6e 73 20 O.. * functions
3110: 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 65 play with the re
3120: 74 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 try flags though
3130: 2c 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 , and this seems
3140: 20 74 6f 20 77 6f 72 6b 0a 09 20 2a 20 63 6f 72 to work.. * cor
3150: 72 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61 72 rectly. Similar
3160: 20 66 69 78 20 69 6e 20 54 6c 73 4f 75 74 70 75 fix in TlsOutpu
3170: 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a 09 tProc. - hobbs..
3180: 20 2a 2f 0a 09 45 52 52 5f 63 6c 65 61 72 5f 65 */..ERR_clear_e
3190: 72 72 6f 72 28 29 3b 0a 09 62 79 74 65 73 52 65 rror();..bytesRe
31a0: 61 64 20 3d 20 42 49 4f 5f 72 65 61 64 28 73 74 ad = BIO_read(st
31b0: 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 atePtr->bio, buf
31c0: 2c 20 62 75 66 53 69 7a 65 29 3b 0a 09 64 70 72 , bufSize);..dpr
31d0: 69 6e 74 66 28 22 42 49 4f 5f 72 65 61 64 20 2d intf("BIO_read -
31e0: 3e 20 25 64 22 2c 20 62 79 74 65 73 52 65 61 64 > %d", bytesRead
31f0: 29 3b 0a 0a 09 65 72 72 20 3d 20 53 53 4c 5f 67 );...err = SSL_g
3200: 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 et_error(statePt
3210: 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61 r->ssl, bytesRea
3220: 64 29 3b 0a 0a 23 69 66 20 30 0a 09 69 66 20 28 d);..#if 0..if (
3230: 62 79 74 65 73 52 65 61 64 20 3c 3d 20 30 29 20 bytesRead <= 0)
3240: 7b 0a 09 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 {...if (BIO_shou
3250: 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 ld_retry(statePt
3260: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 09 64 70 r->bio)) {....dp
3270: 72 69 6e 74 66 28 22 49 2f 4f 20 66 61 69 6c 65 rintf("I/O faile
3280: 64 2c 20 77 69 6c 6c 20 72 65 74 72 79 20 62 61 d, will retry ba
3290: 73 65 64 20 6f 6e 20 45 41 47 41 49 4e 22 29 3b sed on EAGAIN");
32a0: 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ....*errorCodePt
32b0: 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 7d 0a r = EAGAIN;...}.
32c0: 09 7d 0a 23 65 6e 64 69 66 0a 0a 09 73 77 69 74 .}.#endif...swit
32d0: 63 68 20 28 65 72 72 29 20 7b 0a 09 09 63 61 73 ch (err) {...cas
32e0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 e SSL_ERROR_NONE
32f0: 3a 0a 09 09 09 64 70 72 69 6e 74 42 75 66 66 65 :....dprintBuffe
3300: 72 28 62 75 66 2c 20 62 79 74 65 73 52 65 61 64 r(buf, bytesRead
3310: 29 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 );....break;...c
3320: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 ase SSL_ERROR_SS
3330: 4c 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 53 L:....dprintf("S
3340: 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 65 SL negotiation e
3350: 72 72 6f 72 2c 20 69 6e 64 69 63 61 74 69 6e 67 rror, indicating
3360: 20 74 68 61 74 20 74 68 65 20 63 6f 6e 6e 65 63 that the connec
3370: 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 61 62 tion has been ab
3380: 6f 72 74 65 64 22 29 3b 0a 0a 09 09 09 54 6c 73 orted");.....Tls
3390: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
33a0: 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 45 52 52 4f TCLTLS_SSL_ERRO
33b0: 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c R(statePtr->ssl,
33c0: 20 62 79 74 65 73 52 65 61 64 29 29 3b 0a 09 09 bytesRead));...
33d0: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
33e0: 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 ECONNABORTED;..
33f0: 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 ..bytesRead = -1
3400: 3b 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 ;.....break;...c
3410: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 ase SSL_ERROR_SY
3420: 53 43 41 4c 4c 3a 0a 09 09 09 62 61 63 6b 69 6e SCALL:....backin
3430: 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 74 gError = ERR_get
3440: 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 09 09 69 66 _error();.....if
3450: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d (backingError =
3460: 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 = 0 && bytesRead
3470: 20 3d 3d 20 30 29 20 7b 0a 09 09 09 09 64 70 72 == 0) {.....dpr
3480: 69 6e 74 66 28 22 45 4f 46 20 72 65 61 63 68 65 intf("EOF reache
3490: 64 22 29 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f d").....*errorCo
34a0: 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 09 09 62 dePtr = 0;.....b
34b0: 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 ytesRead = 0;...
34c0: 09 7d 20 65 6c 73 65 20 69 66 20 28 62 61 63 6b .} else if (back
34d0: 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 ingError == 0 &&
34e0: 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 2d 31 bytesRead == -1
34f0: 29 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 66 28 ) {.....dprintf(
3500: 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 "I/O error occur
3510: 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 ed (errno = %lu)
3520: 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
3530: 67 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 g) Tcl_GetErrno(
3540: 29 29 3b 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f ));.....*errorCo
3550: 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 dePtr = Tcl_GetE
3560: 72 72 6e 6f 28 29 3b 0a 09 09 09 09 62 79 74 65 rrno();.....byte
3570: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 09 7d sRead = -1;....}
3580: 20 65 6c 73 65 20 7b 0a 09 09 09 09 64 70 72 69 else {.....dpri
3590: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
35a0: 63 63 75 72 65 64 20 28 62 61 63 6b 69 6e 67 45 ccured (backingE
35b0: 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20 62 61 rror = %lu)", ba
35c0: 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09 09 09 ckingError);....
35d0: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
35e0: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 09 backingError;..
35f0: 09 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d ...bytesRead = -
3600: 31 3b 0a 09 09 09 7d 0a 0a 09 09 09 62 72 65 61 1;....}.....brea
3610: 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
3620: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
3630: 0a 09 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 ....dprintf("Got
3640: 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f SSL_ERROR_ZERO_
3650: 52 45 54 55 52 4e 2c 20 74 68 69 73 20 6d 65 61 RETURN, this mea
3660: 6e 73 20 61 6e 20 45 4f 46 20 68 61 73 20 62 65 ns an EOF has be
3670: 65 6e 20 72 65 61 63 68 65 64 22 29 3b 0a 09 09 en reached");...
3680: 09 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a .bytesRead = 0;.
3690: 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
36a0: 20 3d 20 30 3b 0a 09 09 09 62 72 65 61 6b 3b 0a = 0;....break;.
36b0: 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
36c0: 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 09 09 64 _WANT_READ:....d
36d0: 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f printf("Got SSL_
36e0: 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 2c ERROR_WANT_READ,
36f0: 20 6d 61 70 70 69 6e 67 20 74 68 69 73 20 74 6f mapping this to
3700: 20 45 41 47 41 49 4e 22 29 3b 0a 09 09 09 62 79 EAGAIN");....by
3710: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 tesRead = -1;...
3720: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
3730: 20 45 41 47 41 49 4e 3b 0a 09 09 09 62 72 65 61 EAGAIN;....brea
3740: 6b 3b 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 k;...default:...
3750: 09 64 70 72 69 6e 74 66 28 22 55 6e 6b 6e 6f 77 .dprintf("Unknow
3760: 6e 20 65 72 72 6f 72 20 28 65 72 72 20 3d 20 25 n error (err = %
3770: 69 29 2c 20 6d 61 70 70 69 6e 67 20 74 6f 20 45 i), mapping to E
3780: 4f 46 22 2c 20 65 72 72 29 3b 0a 09 09 09 2a 65 OF", err);....*e
3790: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
37a0: 0a 09 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ....bytesRead =
37b0: 30 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 7d 0a 0;....break;..}.
37c0: 0a 09 64 70 72 69 6e 74 66 28 22 49 6e 70 75 74 ..dprintf("Input
37d0: 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 64 5d 22 (%d) -> %d [%d]"
37e0: 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 74 65 73 , bufSize, bytes
37f0: 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 6f 64 65 Read, *errorCode
3800: 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 28 62 79 Ptr);..return(by
3810: 74 65 73 52 65 61 64 29 3b 0a 7d 0a 0a 2f 2a 0a tesRead);.}../*.
3820: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3860: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f -----. *. * TlsO
3870: 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a utputProc --. *.
3880: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
3890: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 e is invoked by
38a0: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
38b0: 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f evel. * to
38c0: 20 77 72 69 74 65 20 6f 75 74 70 75 74 20 74 6f write output to
38d0: 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 a SSL socket ba
38e0: 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a sed channel.. *.
38f0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 * Results:. *.T
3900: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 he number of byt
3910: 65 73 20 77 72 69 74 74 65 6e 20 69 73 20 72 65 es written is re
3920: 74 75 72 6e 65 64 2e 20 41 6e 20 6f 75 74 70 75 turned. An outpu
3930: 74 20 61 72 67 75 6d 65 6e 74 20 69 73 0a 20 2a t argument is. *
3940: 09 73 65 74 20 74 6f 20 61 20 50 4f 53 49 58 20 .set to a POSIX
3950: 65 72 72 6f 72 20 63 6f 64 65 20 69 66 20 61 6e error code if an
3960: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c error occurred,
3970: 20 6f 72 20 7a 65 72 6f 2e 0a 20 2a 0a 20 2a 20 or zero.. *. *
3980: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
3990: 09 57 72 69 74 65 73 20 6f 75 74 70 75 74 20 6f .Writes output o
39a0: 6e 20 74 68 65 20 6f 75 74 70 75 74 20 64 65 76 n the output dev
39b0: 69 63 65 20 6f 66 20 74 68 65 20 63 68 61 6e 6e ice of the chann
39c0: 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d el.. *. *-------
39d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
3a10: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 ..static int Tls
3a20: 4f 75 74 70 75 74 50 72 6f 63 28 43 6c 69 65 6e OutputProc(Clien
3a30: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
3a40: 74 61 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ta, const char *
3a50: 62 75 66 2c 20 69 6e 74 20 74 6f 57 72 69 74 65 buf, int toWrite
3a60: 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 , int *errorCode
3a70: 50 74 72 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 Ptr) {..unsigned
3a80: 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 long backingErr
3a90: 6f 72 3b 0a 09 53 74 61 74 65 20 2a 73 74 61 74 or;..State *stat
3aa0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
3ab0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 09 instanceData;..
3ac0: 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 65 72 72 int written, err
3ad0: 3b 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 ;..int tlsConnec
3ae0: 74 3b 0a 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 t;...*errorCodeP
3af0: 74 72 20 3d 20 30 3b 0a 0a 09 64 70 72 69 6e 74 tr = 0;...dprint
3b00: 66 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c f("BIO_write(%p,
3b10: 20 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 %d)", (void *)
3b20: 73 74 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 statePtr, toWrit
3b30: 65 29 3b 0a 09 64 70 72 69 6e 74 42 75 66 66 65 e);..dprintBuffe
3b40: 72 28 62 75 66 2c 20 74 6f 57 72 69 74 65 29 3b r(buf, toWrite);
3b50: 0a 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d ...if (statePtr-
3b60: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
3b70: 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 09 64 _CALLBACK) {...d
3b80: 70 72 69 6e 74 66 28 22 44 6f 6e 27 74 20 70 72 printf("Don't pr
3b90: 6f 63 65 73 73 20 6f 75 74 70 75 74 20 77 68 69 ocess output whi
3ba0: 6c 65 20 63 61 6c 6c 62 61 63 6b 73 20 61 72 65 le callbacks are
3bb0: 20 72 75 6e 6e 69 6e 67 22 29 0a 09 09 77 72 69 running")...wri
3bc0: 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 2a 65 72 tten = -1;...*er
3bd0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
3be0: 41 49 4e 3b 0a 09 09 72 65 74 75 72 6e 28 2d 31 AIN;...return(-1
3bf0: 29 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 );..}...dprintf(
3c00: 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 "Calling Tls_Wai
3c10: 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 09 tForConnect");..
3c20: 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 tlsConnect = Tls
3c30: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 _WaitForConnect(
3c40: 73 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 43 statePtr, errorC
3c50: 6f 64 65 50 74 72 2c 20 31 29 3b 0a 09 69 66 20 odePtr, 1);..if
3c60: 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 (tlsConnect < 0)
3c70: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f {...dprintf("Go
3c80: 74 20 61 6e 20 65 72 72 6f 72 20 77 61 69 74 69 t an error waiti
3c90: 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 28 74 ng to connect (t
3ca0: 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 2c 20 lsConnect = %i,
3cb0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3cc0: 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 %i)", tlsConnect
3cd0: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 , *errorCodePtr)
3ce0: 3b 0a 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d ;....written = -
3cf0: 31 3b 0a 09 09 69 66 20 28 2a 65 72 72 6f 72 43 1;...if (*errorC
3d00: 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 odePtr == ECONNR
3d10: 45 53 45 54 29 20 7b 0a 09 09 09 64 70 72 69 6e ESET) {....dprin
3d20: 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 63 74 69 tf("Got connecti
3d30: 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 09 09 2f on reset");..../
3d40: 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 09 * Soft EOF */...
3d50: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
3d60: 20 30 3b 0a 09 09 09 77 72 69 74 74 65 6e 20 3d 0;....written =
3d70: 20 30 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 0;...}....retur
3d80: 6e 28 77 72 69 74 74 65 6e 29 3b 0a 09 7d 0a 0a n(written);..}..
3d90: 09 69 66 20 28 74 6f 57 72 69 74 65 20 3d 3d 20 .if (toWrite ==
3da0: 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 0) {...dprintf("
3db0: 7a 65 72 6f 2d 77 72 69 74 65 22 29 3b 0a 09 09 zero-write");...
3dc0: 65 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 err = BIO_flush(
3dd0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
3de0: 0a 09 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 ...if (err <= 0)
3df0: 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 46 {....dprintf("F
3e00: 6c 75 73 68 69 6e 67 20 66 61 69 6c 65 64 22 29 lushing failed")
3e10: 3b 0a 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 ;.....*errorCode
3e20: 50 74 72 20 3d 20 45 49 4f 3b 0a 09 09 09 77 72 Ptr = EIO;....wr
3e30: 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 09 72 65 itten = 0;....re
3e40: 74 75 72 6e 28 2d 31 29 3b 0a 09 09 7d 0a 0a 09 turn(-1);...}...
3e50: 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 .written = 0;...
3e60: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3e70: 30 3b 0a 09 09 72 65 74 75 72 6e 28 30 29 3b 0a 0;...return(0);.
3e80: 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 57 65 20 6e .}.../*.. * We n
3e90: 65 65 64 20 74 6f 20 63 6c 65 61 72 20 74 68 65 eed to clear the
3ea0: 20 53 53 4c 20 65 72 72 6f 72 20 73 74 61 63 6b SSL error stack
3eb0: 20 6e 6f 77 20 62 65 63 61 75 73 65 20 77 65 20 now because we
3ec0: 73 6f 6d 65 74 69 6d 65 73 20 72 65 61 63 68 0a sometimes reach.
3ed0: 09 20 2a 20 74 68 69 73 20 66 75 6e 63 74 69 6f . * this functio
3ee0: 6e 20 77 69 74 68 20 6c 65 66 74 6f 76 65 72 20 n with leftover
3ef0: 65 72 72 6f 72 73 20 69 6e 20 74 68 65 20 73 74 errors in the st
3f00: 61 63 6b 2e 20 20 49 66 20 42 49 4f 5f 77 72 69 ack. If BIO_wri
3f10: 74 65 0a 09 20 2a 20 72 65 74 75 72 6e 73 20 2d te.. * returns -
3f20: 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 1 and intends EA
3f30: 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 GAIN, there is a
3f40: 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c leftover error,
3f50: 20 69 74 20 77 69 6c 6c 20 62 65 0a 09 20 2a 20 it will be.. *
3f60: 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 20 misconstrued as
3f70: 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 an error, not EA
3f80: 47 41 49 4e 2e 0a 09 20 2a 0a 09 20 2a 20 41 6c GAIN... *.. * Al
3f90: 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 77 65 20 ternatively, we
3fa0: 6d 61 79 20 77 61 6e 74 20 74 6f 20 68 61 6e 64 may want to hand
3fb0: 6c 65 20 74 68 65 20 3c 30 20 72 65 74 75 72 6e le the <0 return
3fc0: 20 63 6f 64 65 73 20 66 72 6f 6d 0a 09 20 2a 20 codes from.. *
3fd0: 42 49 4f 5f 77 72 69 74 65 20 73 70 65 63 69 61 BIO_write specia
3fe0: 6c 6c 79 20 28 61 73 20 61 64 76 69 73 65 64 20 lly (as advised
3ff0: 69 6e 20 74 68 65 20 52 53 41 20 64 6f 63 73 29 in the RSA docs)
4000: 2e 20 20 54 4c 53 27 73 20 6c 6f 77 65 72 20 6c . TLS's lower l
4010: 65 76 65 6c 0a 09 20 2a 20 42 49 4f 20 66 75 6e evel.. * BIO fun
4020: 63 74 69 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 ctions play with
4030: 20 74 68 65 20 72 65 74 72 79 20 66 6c 61 67 73 the retry flags
4040: 20 74 68 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 though, and thi
4050: 73 20 73 65 65 6d 73 20 74 6f 0a 09 20 2a 20 77 s seems to.. * w
4060: 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 ork correctly.
4070: 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 54 Similar fix in T
4080: 6c 73 49 6e 70 75 74 50 72 6f 63 2e 20 2d 20 68 lsInputProc. - h
4090: 6f 62 62 73 0a 09 20 2a 2f 0a 09 45 52 52 5f 63 obbs.. */..ERR_c
40a0: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 09 77 lear_error();..w
40b0: 72 69 74 74 65 6e 20 3d 20 42 49 4f 5f 77 72 69 ritten = BIO_wri
40c0: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f te(statePtr->bio
40d0: 2c 20 62 75 66 2c 20 74 6f 57 72 69 74 65 29 3b , buf, toWrite);
40e0: 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 ..dprintf("BIO_w
40f0: 72 69 74 65 28 25 70 2c 20 25 64 29 20 2d 3e 20 rite(%p, %d) ->
4100: 5b 25 64 5d 22 2c 20 28 76 6f 69 64 20 2a 29 20 [%d]", (void *)
4110: 73 74 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 statePtr, toWrit
4120: 65 2c 20 77 72 69 74 74 65 6e 29 3b 0a 0a 09 65 e, written);...e
4130: 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 rr = SSL_get_err
4140: 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c or(statePtr->ssl
4150: 2c 20 77 72 69 74 74 65 6e 29 3b 0a 09 73 77 69 , written);..swi
4160: 74 63 68 20 28 65 72 72 29 20 7b 0a 09 09 63 61 tch (err) {...ca
4170: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e se SSL_ERROR_NON
4180: 45 3a 0a 09 09 09 69 66 20 28 77 72 69 74 74 65 E:....if (writte
4190: 6e 20 3c 20 30 29 20 7b 0a 09 09 09 09 77 72 69 n < 0) {.....wri
41a0: 74 74 65 6e 20 3d 20 30 3b 0a 09 09 09 7d 0a 09 tten = 0;....}..
41b0: 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ..break;...case
41c0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
41d0: 52 49 54 45 3a 0a 09 09 09 64 70 72 69 6e 74 66 RITE:....dprintf
41e0: 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f ("Got SSL_ERROR_
41f0: 57 41 4e 54 5f 57 52 49 54 45 2c 20 6d 61 70 70 WANT_WRITE, mapp
4200: 69 6e 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e ing it to EAGAIN
4210: 22 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 ");....*errorCod
4220: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
4230: 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a ..written = -1;.
4240: 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 ...break;...case
4250: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
4260: 52 45 41 44 3a 0a 09 09 09 64 70 72 69 6e 74 66 READ:....dprintf
4270: 28 22 20 77 72 69 74 65 20 52 20 42 4c 4f 43 4b (" write R BLOCK
4280: 22 29 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 ");....break;...
4290: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
42a0: 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a ANT_X509_LOOKUP:
42b0: 0a 09 09 09 64 70 72 69 6e 74 66 28 22 20 77 72 ....dprintf(" wr
42c0: 69 74 65 20 58 20 42 4c 4f 43 4b 22 29 3b 0a 09 ite X BLOCK");..
42d0: 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ..break;...case
42e0: 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 SSL_ERROR_ZERO_R
42f0: 45 54 55 52 4e 3a 0a 09 09 09 64 70 72 69 6e 74 ETURN:....dprint
4300: 66 28 22 20 63 6c 6f 73 65 64 22 29 3b 0a 09 09 f(" closed");...
4310: 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 .written = 0;...
4320: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
4330: 20 30 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 0;....break;...
4340: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 case SSL_ERROR_S
4350: 59 53 43 41 4c 4c 3a 0a 09 09 09 62 61 63 6b 69 YSCALL:....backi
4360: 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 ngError = ERR_ge
4370: 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 09 09 69 t_error();.....i
4380: 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 f (backingError
4390: 3d 3d 20 30 20 26 26 20 77 72 69 74 74 65 6e 20 == 0 && written
43a0: 3d 3d 20 30 29 20 7b 0a 09 09 09 09 64 70 72 69 == 0) {.....dpri
43b0: 6e 74 66 28 22 45 4f 46 20 72 65 61 63 68 65 64 ntf("EOF reached
43c0: 22 29 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f 64 ").....*errorCod
43d0: 65 50 74 72 20 3d 20 30 3b 0a 09 09 09 09 77 72 ePtr = 0;.....wr
43e0: 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 09 7d 20 itten = 0;....}
43f0: 65 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 else if (backing
4400: 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 Error == 0 && wr
4410: 69 74 74 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 itten == -1) {..
4420: 09 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 ...dprintf("I/O
4430: 65 72 72 6f 72 20 6f 63 63 75 72 65 64 20 28 65 error occured (e
4440: 72 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 rrno = %lu)", (u
4450: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 nsigned long) Tc
4460: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 l_GetErrno());..
4470: 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
4480: 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 = Tcl_GetErrno(
4490: 29 3b 0a 09 09 09 09 77 72 69 74 74 65 6e 20 3d );.....written =
44a0: 20 2d 31 3b 0a 09 09 09 7d 20 65 6c 73 65 20 7b -1;....} else {
44b0: 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 49 2f .....dprintf("I/
44c0: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 65 64 20 O error occured
44d0: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 (backingError =
44e0: 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 %lu)", backingEr
44f0: 72 6f 72 29 3b 0a 09 09 09 09 2a 65 72 72 6f 72 ror);.....*error
4500: 43 6f 64 65 50 74 72 20 3d 20 62 61 63 6b 69 6e CodePtr = backin
4510: 67 45 72 72 6f 72 3b 0a 09 09 09 09 77 72 69 74 gError;.....writ
4520: 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 09 7d 0a 0a ten = -1;....}..
4530: 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 ...break;...case
4540: 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a SSL_ERROR_SSL:.
4550: 09 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
4560: 74 65 50 74 72 2c 20 54 43 4c 54 4c 53 5f 53 53 tePtr, TCLTLS_SS
4570: 4c 5f 45 52 52 4f 52 28 73 74 61 74 65 50 74 72 L_ERROR(statePtr
4580: 2d 3e 73 73 6c 2c 20 77 72 69 74 74 65 6e 29 29 ->ssl, written))
4590: 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 ;....*errorCodeP
45a0: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
45b0: 44 3b 0a 09 09 09 77 72 69 74 74 65 6e 20 3d 20 D;....written =
45c0: 2d 31 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 -1;....break;...
45d0: 64 65 66 61 75 6c 74 3a 0a 09 09 09 64 70 72 69 default:....dpri
45e0: 6e 74 66 28 22 20 75 6e 6b 6e 6f 77 6e 20 65 72 ntf(" unknown er
45f0: 72 3a 20 25 64 22 2c 20 65 72 72 29 3b 0a 09 09 r: %d", err);...
4600: 09 62 72 65 61 6b 3b 0a 09 7d 0a 0a 09 64 70 72 .break;..}...dpr
4610: 69 6e 74 66 28 22 4f 75 74 70 75 74 28 25 64 29 intf("Output(%d)
4620: 20 2d 3e 20 25 64 22 2c 20 74 6f 57 72 69 74 65 -> %d", toWrite
4630: 2c 20 77 72 69 74 74 65 6e 29 3b 0a 09 72 65 74 , written);..ret
4640: 75 72 6e 28 77 72 69 74 74 65 6e 29 3b 0a 7d 0a urn(written);.}.
4650: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
4660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
46a0: 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 TlsGetOptionProc
46b0: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 6f 6d 70 75 74 --. *. *.Comput
46c0: 65 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c es an option val
46d0: 75 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 ue for a SSL soc
46e0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
46f0: 6c 2c 20 6f 72 20 61 0a 20 2a 09 6c 69 73 74 20 l, or a. *.list
4700: 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 of all options a
4710: 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e nd their values.
4720: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
4730: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
4740: 6c 20 72 65 73 75 6c 74 2e 20 54 68 65 20 76 61 l result. The va
4750: 6c 75 65 20 6f 66 20 74 68 65 20 73 70 65 63 69 lue of the speci
4760: 66 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 20 61 fied option or a
4770: 0a 20 2a 09 6c 69 73 74 20 6f 66 20 61 6c 6c 20 . *.list of all
4780: 6f 70 74 69 6f 6e 73 20 61 6e 64 09 74 68 65 69 options and.thei
4790: 72 20 76 61 6c 75 65 73 20 69 73 20 72 65 74 75 r values is retu
47a0: 72 6e 65 64 20 69 6e 20 74 68 65 0a 20 2a 09 73 rned in the. *.s
47b0: 75 70 70 6c 69 65 64 20 44 53 74 72 69 6e 67 2e upplied DString.
47c0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
47d0: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
47e0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
47f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4820: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
4830: 63 20 69 6e 74 0a 54 6c 73 47 65 74 4f 70 74 69 c int.TlsGetOpti
4840: 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 onProc(ClientDat
4850: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 a instanceData,.
4860: 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e /* Socket state.
4870: 20 2a 2f 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 */..Tcl_Interp
4880: 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 *interp,../* For
4890: 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 errors - can be
48a0: 20 4e 55 4c 4c 2e 20 2a 2f 0a 09 63 6f 6e 73 74 NULL. */..const
48b0: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d char *optionNam
48c0: 65 2c 09 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 e,../* Name of t
48d0: 68 65 20 6f 70 74 69 6f 6e 20 74 6f 0a 09 09 09 he option to....
48e0: 09 09 20 2a 20 72 65 74 72 69 65 76 65 20 74 68 .. * retrieve th
48f0: 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a e value for, or.
4900: 09 09 09 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20 ..... * NULL to
4910: 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 get all options
4920: 61 6e 64 0a 09 09 09 09 09 20 2a 20 74 68 65 69 and...... * thei
4930: 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 09 54 63 r values. */..Tc
4940: 6c 5f 44 53 74 72 69 6e 67 20 2a 64 73 50 74 72 l_DString *dsPtr
4950: 29 09 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73 )../* Where to s
4960: 74 6f 72 65 20 74 68 65 20 63 6f 6d 70 75 74 65 tore the compute
4970: 64 20 76 61 6c 75 65 0a 09 09 09 09 09 20 2a 20 d value...... *
4980: 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63 initialized by c
4990: 61 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 20 20 aller. */.{.
49a0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
49b0: 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 = (State *) inst
49c0: 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 54 63 anceData;.. Tc
49d0: 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f 77 6e 43 68 l_Channel downCh
49e0: 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 an = Tls_GetPare
49f0: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 nt(statePtr, TLS
4a00: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a _TCL_FASTPATH);.
4a10: 20 20 20 54 63 6c 5f 44 72 69 76 65 72 47 65 74 Tcl_DriverGet
4a20: 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 65 74 4f OptionProc *getO
4a30: 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 ptionProc;..
4a40: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 getOptionProc =
4a50: 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 Tcl_ChannelGetOp
4a60: 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 tionProc(Tcl_Get
4a70: 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e ChannelType(down
4a80: 43 68 61 6e 29 29 3b 0a 20 20 20 20 69 66 20 28 Chan));. if (
4a90: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d getOptionProc !=
4aa0: 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 20 NULL) {.
4ab0: 20 72 65 74 75 72 6e 20 28 2a 67 65 74 4f 70 74 return (*getOpt
4ac0: 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 ionProc)(Tcl_Get
4ad0: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 ChannelInstanceD
4ae0: 61 74 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 69 ata(downChan), i
4af0: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d nterp, optionNam
4b00: 65 2c 20 64 73 50 74 72 29 3b 0a 20 20 20 20 7d e, dsPtr);. }
4b10: 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e else if (option
4b20: 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 Name == (char*)
4b30: 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 20 20 NULL) {.
4b40: 2f 2a 0a 20 20 20 20 20 20 20 20 20 2a 20 52 65 /*. * Re
4b50: 71 75 65 73 74 20 69 73 20 71 75 65 72 79 20 66 quest is query f
4b60: 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 or all options,
4b70: 74 68 69 73 20 69 73 20 6f 6b 2e 0a 20 20 20 20 this is ok..
4b80: 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 */.
4b90: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
4ba0: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 }. /*.
4bb0: 20 20 2a 20 52 65 71 75 65 73 74 20 66 6f 72 20 * Request for
4bc0: 61 20 73 70 65 63 69 66 69 63 20 6f 70 74 69 6f a specific optio
4bd0: 6e 20 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 n has to fail, w
4be0: 65 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 e don't have any
4bf0: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 .. */. re
4c00: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4c10: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
4c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
4c60: 2a 20 54 6c 73 57 61 74 63 68 50 72 6f 63 20 2d * TlsWatchProc -
4c70: 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 -. *. *.Initiali
4c80: 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 65 72 20 ze the notifier
4c90: 74 6f 20 77 61 74 63 68 20 54 63 6c 5f 46 69 6c to watch Tcl_Fil
4ca0: 65 73 20 66 72 6f 6d 20 74 68 69 73 20 63 68 61 es from this cha
4cb0: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 nnel.. *. * Resu
4cc0: 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a lts:. *.None.. *
4cd0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4ce0: 3a 0a 20 2a 09 53 65 74 73 20 75 70 20 74 68 65 :. *.Sets up the
4cf0: 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 74 68 61 notifier so tha
4d00: 74 20 61 20 66 75 74 75 72 65 20 65 76 65 6e 74 t a future event
4d10: 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a on the channel.
4d20: 20 2a 09 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 *.will be seen
4d30: 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d by Tcl.. *. *---
4d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d80: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 . */..static voi
4d90: 64 0a 54 6c 73 57 61 74 63 68 50 72 6f 63 28 43 d.TlsWatchProc(C
4da0: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
4db0: 63 65 44 61 74 61 2c 09 2f 2a 20 54 68 65 20 73 ceData,./* The s
4dc0: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
4dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 int
4de0: 20 6d 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 6e mask).../* Even
4df0: 74 73 20 6f 66 20 69 6e 74 65 72 65 73 74 3b 20 ts of interest;
4e00: 61 6e 20 4f 52 2d 65 64 0a 20 20 20 20 20 20 20 an OR-ed.
4e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4e30: 20 20 2a 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 * combination
4e40: 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c of TCL_READABLE,
4e50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
4e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4e70: 20 20 20 20 20 20 20 20 20 20 2a 20 54 43 4c 5f * TCL_
4e80: 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c WRITABLE and TCL
4e90: 5f 45 58 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b _EXCEPTION. */.{
4ea0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
4eb0: 20 20 20 20 20 64 6f 77 6e 43 68 61 6e 3b 0a 20 downChan;.
4ec0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
4ed0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
4ee0: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 nstanceData;..
4ef0: 20 20 64 70 72 69 6e 74 66 28 22 54 6c 73 57 61 dprintf("TlsWa
4f00: 74 63 68 50 72 6f 63 28 30 78 25 78 29 22 2c 20 tchProc(0x%x)",
4f10: 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 mask);.. /* P
4f20: 72 65 74 65 6e 64 20 74 6f 20 62 65 20 64 65 61 retend to be dea
4f30: 64 20 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 d as long as the
4f40: 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b verify callback
4f50: 20 69 73 20 72 75 6e 6e 69 6e 67 2e 20 0a 20 20 is running. .
4f60: 20 20 20 2a 20 4f 74 68 65 72 77 69 73 65 20 74 * Otherwise t
4f70: 68 61 74 20 63 61 6c 6c 62 61 63 6b 20 63 6f 75 hat callback cou
4f80: 6c 64 20 62 65 20 69 6e 76 6f 6b 65 64 20 72 65 ld be invoked re
4f90: 63 75 72 73 69 76 65 6c 79 2e 20 2a 2f 0a 20 20 cursively. */.
4fa0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
4fb0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
4fc0: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 20 20 20 20 CALLBACK) {.
4fd0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
4fe0: 6c 62 61 63 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e lback is on-goin
4ff0: 67 2c 20 64 6f 69 6e 67 20 6e 6f 74 68 69 6e 67 g, doing nothing
5000: 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 ");. retu
5010: 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 rn;. }.. d
5020: 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65 printFlags(state
5030: 50 74 72 29 3b 0a 0a 20 20 20 20 64 6f 77 6e 43 Ptr);.. downC
5040: 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 han = Tls_GetPar
5050: 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c ent(statePtr, TL
5060: 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b S_TCL_FASTPATH);
5070: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
5080: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
5090: 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 TCL_HANDSHAKE_FA
50a0: 49 4c 45 44 29 20 7b 0a 20 20 20 20 20 20 20 20 ILED) {.
50b0: 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 dprintf("Asked t
50c0: 6f 20 77 61 74 63 68 20 61 20 73 6f 63 6b 65 74 o watch a socket
50d0: 20 77 69 74 68 20 61 20 66 61 69 6c 65 64 20 68 with a failed h
50e0: 61 6e 64 73 68 61 6b 65 20 2d 2d 20 6e 6f 74 68 andshake -- noth
50f0: 69 6e 67 20 63 61 6e 20 68 61 70 70 65 6e 20 68 ing can happen h
5100: 65 72 65 22 29 3b 0a 0a 09 64 70 72 69 6e 74 66 ere");...dprintf
5110: 28 22 55 6e 72 65 67 69 73 74 65 72 69 6e 67 20 ("Unregistering
5120: 69 6e 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 interest in the
5130: 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 22 29 3b lower channel");
5140: 0a 09 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 ..(Tcl_GetChanne
5150: 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 lType(downChan))
5160: 2d 3e 77 61 74 63 68 50 72 6f 63 28 54 63 6c 5f ->watchProc(Tcl_
5170: 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e GetChannelInstan
5180: 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 6e 29 ceData(downChan)
5190: 2c 20 30 29 3b 0a 0a 09 73 74 61 74 65 50 74 72 , 0);...statePtr
51a0: 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b ->watchMask = 0;
51b0: 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
51c0: 3b 0a 20 20 20 20 7d 0a 0a 09 73 74 61 74 65 50 ;. }...stateP
51d0: 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 tr->watchMask =
51e0: 6d 61 73 6b 3b 0a 0a 09 2f 2a 20 4e 6f 20 63 68 mask;.../* No ch
51f0: 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 61 annel handlers a
5200: 6e 79 20 6d 6f 72 65 2e 20 57 65 20 77 69 6c 6c ny more. We will
5210: 20 62 65 20 6e 6f 74 69 66 69 65 64 20 61 75 74 be notified aut
5220: 6f 6d 61 74 69 63 61 6c 6c 79 0a 09 20 2a 20 61 omatically.. * a
5230: 62 6f 75 74 20 65 76 65 6e 74 73 20 6f 6e 20 74 bout events on t
5240: 68 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 he channel below
5250: 20 76 69 61 20 61 20 63 61 6c 6c 20 74 6f 20 6f via a call to o
5260: 75 72 0a 09 20 2a 20 27 54 72 61 6e 73 66 6f 72 ur.. * 'Transfor
5270: 6d 4e 6f 74 69 66 79 50 72 6f 63 27 2e 20 42 75 mNotifyProc'. Bu
5280: 74 20 77 65 20 68 61 76 65 20 74 6f 20 70 61 73 t we have to pas
5290: 73 20 74 68 65 20 69 6e 74 65 72 65 73 74 20 64 s the interest d
52a0: 6f 77 6e 20 6e 6f 77 2e 0a 09 20 2a 20 57 65 20 own now... * We
52b0: 61 72 65 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 are allowed to a
52c0: 64 64 20 61 64 64 69 74 69 6f 6e 61 6c 20 27 69 dd additional 'i
52d0: 6e 74 65 72 65 73 74 27 20 74 6f 20 74 68 65 20 nterest' to the
52e0: 6d 61 73 6b 20 69 66 20 77 65 20 77 61 6e 74 0a mask if we want.
52f0: 09 20 2a 20 74 6f 2e 20 42 75 74 20 74 68 69 73 . * to. But this
5300: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 transformation
5310: 68 61 73 20 6e 6f 20 73 75 63 68 20 69 6e 74 65 has no such inte
5320: 72 65 73 74 2e 20 49 74 20 6a 75 73 74 20 70 61 rest. It just pa
5330: 73 73 65 73 0a 09 20 2a 20 74 68 65 20 72 65 71 sses.. * the req
5340: 75 65 73 74 20 64 6f 77 6e 2c 20 75 6e 63 68 61 uest down, uncha
5350: 6e 67 65 64 2e 0a 09 20 2a 2f 0a 0a 0a 20 20 20 nged... */...
5360: 20 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 dprintf("Re
5370: 67 69 73 74 65 72 69 6e 67 20 6f 75 72 20 69 6e gistering our in
5380: 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f terest in the lo
5390: 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 63 68 61 wer channel (cha
53a0: 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 n=%p)", (void *)
53b0: 20 64 6f 77 6e 43 68 61 6e 29 3b 0a 09 28 54 63 downChan);..(Tc
53c0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
53d0: 28 64 6f 77 6e 43 68 61 6e 29 29 0a 09 20 20 20 (downChan))..
53e0: 20 2d 3e 77 61 74 63 68 50 72 6f 63 28 54 63 6c ->watchProc(Tcl
53f0: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
5400: 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 6e nceData(downChan
5410: 29 2c 20 6d 61 73 6b 29 3b 0a 0a 09 2f 2a 0a 09 ), mask);.../*..
5420: 20 2a 20 4d 61 6e 61 67 65 6d 65 6e 74 20 6f 66 * Management of
5430: 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 74 69 the internal ti
5440: 6d 65 72 2e 0a 09 20 2a 2f 0a 0a 09 69 66 20 28 mer... */...if (
5450: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
5460: 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b != (Tcl_TimerTok
5470: 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 en) NULL) {.
5480: 20 20 20 20 20 20 20 20 64 70 72 69 6e 74 66 28 dprintf(
5490: 22 41 20 74 69 6d 65 72 20 77 61 73 20 66 6f 75 "A timer was fou
54a0: 6e 64 2c 20 64 65 6c 65 74 69 6e 67 20 69 74 22 nd, deleting it"
54b0: 29 3b 0a 09 20 20 20 20 54 63 6c 5f 44 65 6c 65 );.. Tcl_Dele
54c0: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
54d0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
54e0: 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
54f0: 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d timer = (Tcl_Tim
5500: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 09 erToken) NULL;..
5510: 7d 0a 0a 09 69 66 20 28 6d 61 73 6b 20 26 20 54 }...if (mask & T
5520: 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 7b 0a 09 CL_READABLE) {..
5530: 09 69 66 20 28 54 63 6c 5f 49 6e 70 75 74 42 75 .if (Tcl_InputBu
5540: 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d ffered(statePtr-
5550: 3e 73 65 6c 66 29 20 3e 20 30 20 7c 7c 20 42 49 >self) > 0 || BI
5560: 4f 5f 63 74 72 6c 5f 70 65 6e 64 69 6e 67 28 73 O_ctrl_pending(s
5570: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 3e 20 tatePtr->bio) >
5580: 30 29 20 7b 0a 09 09 09 2f 2a 0a 09 09 09 20 2a 0) {..../*.... *
5590: 20 54 68 65 72 65 20 69 73 20 69 6e 74 65 72 65 There is intere
55a0: 73 74 20 69 6e 20 72 65 61 64 61 62 6c 65 20 65 st in readable e
55b0: 76 65 6e 74 73 20 61 6e 64 20 77 65 20 61 63 74 vents and we act
55c0: 75 61 6c 6c 79 20 68 61 76 65 0a 09 09 09 20 2a ually have.... *
55d0: 20 64 61 74 61 20 77 61 69 74 69 6e 67 2c 20 73 data waiting, s
55e0: 6f 20 67 65 6e 65 72 61 74 65 20 61 20 74 69 6d o generate a tim
55f0: 65 72 20 74 6f 20 66 6c 75 73 68 20 74 68 61 74 er to flush that
5600: 2e 0a 09 09 09 20 2a 2f 0a 09 09 09 64 70 72 69 ..... */....dpri
5610: 6e 74 66 28 22 43 72 65 61 74 69 6e 67 20 61 20 ntf("Creating a
5620: 6e 65 77 20 74 69 6d 65 72 20 73 69 6e 63 65 20 new timer since
5630: 64 61 74 61 20 61 70 70 65 61 72 73 20 74 6f 20 data appears to
5640: 62 65 20 77 61 69 74 69 6e 67 22 29 3b 0a 09 09 be waiting");...
5650: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 .statePtr->timer
5660: 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d = Tcl_CreateTim
5670: 65 72 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 43 erHandler(TLS_TC
5680: 4c 5f 44 45 4c 41 59 2c 20 54 6c 73 43 68 61 6e L_DELAY, TlsChan
5690: 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 2c nelHandlerTimer,
56a0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
56b0: 61 74 65 50 74 72 29 3b 0a 09 09 7d 0a 09 7d 0a atePtr);...}..}.
56c0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
56d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
5710: 2a 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 * TlsGetHandlePr
5720: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c oc --. *. *.Call
5730: 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47 65 74 43 ed from Tcl_GetC
5740: 68 61 6e 6e 65 6c 46 69 6c 65 20 74 6f 20 72 65 hannelFile to re
5750: 74 72 69 65 76 65 20 6f 2f 73 20 66 69 6c 65 20 trieve o/s file
5760: 68 61 6e 64 6c 65 72 0a 20 2a 09 66 72 6f 6d 20 handler. *.from
5770: 74 68 65 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 the SSL socket b
5780: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ased channel.. *
5790: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
57a0: 54 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 The appropriate
57b0: 54 63 6c 5f 46 69 6c 65 20 6f 72 20 4e 55 4c 4c Tcl_File or NULL
57c0: 20 69 66 20 6e 6f 74 20 70 72 65 73 65 6e 74 2e if not present.
57d0: 20 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 . *. * Side eff
57e0: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
57f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5830: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
5840: 69 63 20 69 6e 74 20 54 6c 73 47 65 74 48 61 6e ic int TlsGetHan
5850: 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 dleProc(ClientDa
5860: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
5870: 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c 20 int direction,
5880: 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e 64 ClientData *hand
5890: 6c 65 50 74 72 29 20 7b 0a 09 53 74 61 74 65 20 lePtr) {..State
58a0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
58b0: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
58c0: 74 61 3b 0a 0a 09 72 65 74 75 72 6e 28 54 63 6c ta;...return(Tcl
58d0: 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c _GetChannelHandl
58e0: 65 28 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 e(Tls_GetParent(
58f0: 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 statePtr, TLS_TC
5900: 4c 5f 46 41 53 54 50 41 54 48 29 2c 20 64 69 72 L_FASTPATH), dir
5910: 65 63 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 ection, handlePt
5920: 72 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d r));.}../*. *---
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 2d ----------------
5950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5970: 0a 20 2a 0a 20 2a 20 54 6c 73 4e 6f 74 69 66 79 . *. * TlsNotify
5980: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 48 61 Proc --. *. *.Ha
5990: 6e 64 6c 65 72 20 63 61 6c 6c 65 64 20 62 79 20 ndler called by
59a0: 54 63 6c 20 74 6f 20 69 6e 66 6f 72 6d 20 75 73 Tcl to inform us
59b0: 20 6f 66 20 61 63 74 69 76 69 74 79 0a 20 2a 09 of activity. *.
59c0: 6f 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e on the underlyin
59d0: 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a g channel.. *. *
59e0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e Results:. *.Non
59f0: 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 e.. *. * Side ef
5a00: 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 70 72 fects:. *.May pr
5a10: 6f 63 65 73 73 20 74 68 65 20 69 6e 63 6f 6d 69 ocess the incomi
5a20: 6e 67 20 65 76 65 6e 74 20 62 79 20 69 74 73 65 ng event by itse
5a30: 6c 66 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d lf.. *. *-------
5a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
5a80: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 ..static int Tls
5a90: 4e 6f 74 69 66 79 50 72 6f 63 28 43 6c 69 65 6e NotifyProc(Clien
5aa0: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
5ab0: 74 61 2c 20 69 6e 74 20 6d 61 73 6b 29 20 7b 0a ta, int mask) {.
5ac0: 09 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 .State *statePtr
5ad0: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 = (State *) ins
5ae0: 74 61 6e 63 65 44 61 74 61 3b 0a 09 69 6e 74 20 tanceData;..int
5af0: 65 72 72 6f 72 43 6f 64 65 3b 0a 0a 09 2f 2a 0a errorCode;.../*.
5b00: 09 20 2a 20 41 6e 20 65 76 65 6e 74 20 6f 63 63 . * An event occ
5b10: 75 72 65 64 20 69 6e 20 74 68 65 20 75 6e 64 65 ured in the unde
5b20: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 20 rlying channel.
5b30: 20 54 68 69 73 0a 09 20 2a 20 74 72 61 6e 73 66 This.. * transf
5b40: 6f 72 6d 61 74 69 6f 6e 20 64 6f 65 73 6e 27 74 ormation doesn't
5b50: 20 70 72 6f 63 65 73 73 20 73 75 63 68 20 65 76 process such ev
5b60: 65 6e 74 73 20 74 68 75 73 20 72 65 74 75 72 6e ents thus return
5b70: 73 20 74 68 65 0a 09 20 2a 20 69 6e 63 6f 6d 69 s the.. * incomi
5b80: 6e 67 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 65 ng mask unchange
5b90: 64 2e 0a 09 20 2a 2f 0a 09 69 66 20 28 73 74 61 d... */..if (sta
5ba0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
5bb0: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
5bc0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 2f 2a 0a 09 09 NULL) {.../*...
5bd0: 20 2a 20 44 65 6c 65 74 65 20 61 6e 20 65 78 69 * Delete an exi
5be0: 73 74 69 6e 67 20 74 69 6d 65 72 2e 20 49 74 20 sting timer. It
5bf0: 77 61 73 20 6e 6f 74 20 66 69 72 65 64 2c 20 79 was not fired, y
5c00: 65 74 20 77 65 20 61 72 65 0a 09 09 20 2a 20 68 et we are... * h
5c10: 65 72 65 2c 20 73 6f 20 74 68 65 20 63 68 61 6e ere, so the chan
5c20: 6e 65 6c 20 62 65 6c 6f 77 20 67 65 6e 65 72 61 nel below genera
5c30: 74 65 64 20 73 75 63 68 20 61 6e 20 65 76 65 6e ted such an even
5c40: 74 20 61 6e 64 20 77 65 0a 09 09 20 2a 20 64 6f t and we... * do
5c50: 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 54 68 65 n't have to. The
5c60: 20 72 65 6e 65 77 61 6c 20 6f 66 20 74 68 65 20 renewal of the
5c70: 69 6e 74 65 72 65 73 74 20 61 66 74 65 72 20 74 interest after t
5c80: 68 65 0a 09 09 20 2a 20 65 78 65 63 75 74 69 6f he... * executio
5c90: 6e 20 6f 66 20 63 68 61 6e 6e 65 6c 20 68 61 6e n of channel han
5ca0: 64 6c 65 72 73 20 77 69 6c 6c 20 65 76 65 6e 74 dlers will event
5cb0: 75 61 6c 6c 79 20 63 61 75 73 65 20 75 73 20 74 ually cause us t
5cc0: 6f 0a 09 09 20 2a 20 72 65 63 72 65 61 74 65 20 o... * recreate
5cd0: 74 68 65 20 74 69 6d 65 72 20 28 69 6e 20 57 61 the timer (in Wa
5ce0: 74 63 68 50 72 6f 63 29 2e 0a 09 09 20 2a 2f 0a tchProc).... */.
5cf0: 09 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
5d00: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
5d10: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 09 73 74 61 r->timer);...sta
5d20: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 tePtr->timer = (
5d30: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
5d40: 4e 55 4c 4c 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 NULL;..}...if (s
5d50: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
5d60: 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 TLS_TCL_CALLBAC
5d70: 4b 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 K) {...dprintf("
5d80: 52 65 74 75 72 6e 69 6e 67 20 30 20 64 75 65 20 Returning 0 due
5d90: 74 6f 20 63 61 6c 6c 62 61 63 6b 22 29 3b 0a 09 to callback");..
5da0: 09 72 65 74 75 72 6e 20 30 3b 0a 09 7d 0a 0a 09 .return 0;..}...
5db0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 dprintf("Calling
5dc0: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
5dd0: 65 63 74 22 29 3b 0a 09 65 72 72 6f 72 43 6f 64 ect");..errorCod
5de0: 65 20 3d 20 30 3b 0a 09 69 66 20 28 54 6c 73 5f e = 0;..if (Tls_
5df0: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 WaitForConnect(s
5e00: 74 61 74 65 50 74 72 2c 20 26 65 72 72 6f 72 43 tatePtr, &errorC
5e10: 6f 64 65 2c 20 31 29 20 3c 20 30 29 20 7b 0a 09 ode, 1) < 0) {..
5e20: 09 69 66 20 28 65 72 72 6f 72 43 6f 64 65 20 3d .if (errorCode =
5e30: 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09 09 09 64 = EAGAIN) {....d
5e40: 70 72 69 6e 74 66 28 22 41 73 79 6e 63 20 66 6c printf("Async fl
5e50: 61 67 20 63 6f 75 6c 64 20 62 65 20 73 65 74 20 ag could be set
5e60: 28 64 69 64 6e 27 74 20 63 68 65 63 6b 29 20 61 (didn't check) a
5e70: 6e 64 20 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 nd errorCode ==
5e80: 45 41 47 41 49 4e 3a 20 20 52 65 74 75 72 6e 69 EAGAIN: Returni
5e90: 6e 67 20 30 22 29 3b 0a 0a 09 09 09 72 65 74 75 ng 0");.....retu
5ea0: 72 6e 20 30 3b 0a 09 09 7d 0a 0a 09 09 64 70 72 rn 0;...}....dpr
5eb0: 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f intf("Tls_WaitFo
5ec0: 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 rConnect returne
5ed0: 64 20 61 6e 20 65 72 72 6f 72 22 29 3b 0a 09 7d d an error");..}
5ee0: 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 ...dprintf("Retu
5ef0: 72 6e 69 6e 67 20 25 69 22 2c 20 6d 61 73 6b 29 rning %i", mask)
5f00: 3b 0a 0a 09 72 65 74 75 72 6e 28 6d 61 73 6b 29 ;...return(mask)
5f10: 3b 0a 7d 0a 0a 23 69 66 20 30 0a 2f 2a 0a 20 2a ;.}..#if 0./*. *
5f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f50: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 20 ------*. *. *
5f60: 20 20 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e TlsChannelHan
5f70: 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 dler --. *. *
5f80: 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d -------------
5f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fb0: 2d 2d 2d 2a 0a 20 2a 20 20 20 20 20 20 48 61 6e ---*. * Han
5fc0: 64 6c 65 72 20 63 61 6c 6c 65 64 20 62 79 20 54 dler called by T
5fd0: 63 6c 20 61 73 20 61 20 72 65 73 75 6c 74 20 6f cl as a result o
5fe0: 66 0a 20 2a 20 20 20 20 20 20 54 63 6c 5f 43 72 f. * Tcl_Cr
5ff0: 65 61 74 65 43 68 61 6e 6e 65 6c 48 61 6e 64 6c eateChannelHandl
6000: 65 72 20 2d 20 74 6f 20 69 6e 66 6f 72 6d 20 75 er - to inform u
6010: 73 20 6f 66 20 61 63 74 69 76 69 74 79 0a 20 2a s of activity. *
6020: 20 20 20 20 20 20 6f 6e 20 74 68 65 20 75 6e 64 on the und
6030: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
6040: 0a 20 2a 20 20 20 20 20 20 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 2a 0a 20 2a 0a 20 2a ---------*. *. *
6080: 20 20 20 20 20 20 53 69 64 65 65 66 66 65 63 74 Sideeffect
6090: 73 3a 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 s:. *
60a0: 20 20 20 4d 61 79 20 67 65 6e 65 72 61 74 65 20 May generate
60b0: 73 75 62 73 65 71 75 65 6e 74 20 63 61 6c 6c 73 subsequent calls
60c0: 20 74 6f 0a 20 2a 20 20 20 20 20 20 20 20 20 20 to. *
60d0: 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 Tcl_NotifyCh
60e0: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 20 20 20 annel.. *. *
60f0: 20 20 52 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 Result:. *
6100: 20 20 20 20 20 20 20 20 20 20 4e 6f 6e 65 2e 0a None..
6110: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
6120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f -----------*. */
6150: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 54 6c ..static void.Tl
6160: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 sChannelHandler
6170: 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 6d 61 73 (clientData, mas
6180: 6b 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 k). ClientDat
6190: 61 20 20 20 20 20 63 6c 69 65 6e 74 44 61 74 61 a clientData
61a0: 3b 0a 20 20 20 20 69 6e 74 20 20 20 20 20 20 20 ;. int
61b0: 20 20 20 20 20 6d 61 73 6b 3b 0a 7b 0a 20 20 20 mask;.{.
61c0: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
61d0: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 63 6c 69 = (State *) cli
61e0: 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 entData;.. dp
61f0: 72 69 6e 74 66 28 22 48 41 4e 44 4c 45 52 28 30 rintf("HANDLER(0
6200: 78 25 78 29 22 2c 20 6d 61 73 6b 29 3b 0a 20 20 x%x)", mask);.
6210: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 Tcl_Preserve(
6220: 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 74 (ClientData)stat
6230: 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 ePtr);.. if (
6240: 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 mask & TCL_READA
6250: 42 4c 45 29 20 7b 0a 09 42 49 4f 5f 73 65 74 5f BLE) {..BIO_set_
6260: 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e flags(statePtr->
6270: 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 p_bio, BIO_FLAGS
6280: 5f 52 45 41 44 29 3b 0a 20 20 20 20 7d 20 65 6c _READ);. } el
6290: 73 65 20 7b 0a 09 42 49 4f 5f 63 6c 65 61 72 5f se {..BIO_clear_
62a0: 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e flags(statePtr->
62b0: 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 p_bio, BIO_FLAGS
62c0: 5f 52 45 41 44 29 3b 0a 20 20 20 20 7d 0a 0a 20 _READ);. }..
62d0: 20 20 20 69 66 20 28 6d 61 73 6b 20 26 20 54 43 if (mask & TC
62e0: 4c 5f 57 52 49 54 41 42 4c 45 29 20 7b 0a 09 42 L_WRITABLE) {..B
62f0: 49 4f 5f 73 65 74 5f 66 6c 61 67 73 28 73 74 61 IO_set_flags(sta
6300: 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 42 49 tePtr->p_bio, BI
6310: 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 29 3b 0a O_FLAGS_WRITE);.
6320: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 42 49 } else {..BI
6330: 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 73 74 O_clear_flags(st
6340: 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 42 atePtr->p_bio, B
6350: 49 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 29 3b IO_FLAGS_WRITE);
6360: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 61 73 6b . }.. mask
6370: 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 42 49 = 0;. if (BI
6380: 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 O_wpending(state
6390: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 Ptr->bio)) {..ma
63a0: 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 sk |= TCL_WRITAB
63b0: 4c 45 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 LE;. }. if
63c0: 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 (BIO_pending(st
63d0: 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a atePtr->bio)) {.
63e0: 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 .mask |= TCL_REA
63f0: 44 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 DABLE;. }..
6400: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 54 68 65 20 /*. * The
6410: 66 6f 6c 6c 6f 77 69 6e 67 20 4e 6f 74 69 66 79 following Notify
6420: 43 68 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 73 65 Channel calls se
6430: 65 6d 73 20 74 6f 20 62 65 20 69 6d 70 6f 72 74 ems to be import
6440: 61 6e 74 2c 20 62 75 74 0a 20 20 20 20 20 2a 20 ant, but. *
6450: 77 65 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 77 68 we don't know wh
6460: 79 2e 20 20 49 74 20 6c 6f 6f 6b 73 20 6c 69 6b y. It looks lik
6470: 65 20 69 66 20 74 68 65 20 6d 61 73 6b 20 69 73 e if the mask is
6480: 20 65 76 65 72 20 6e 6f 6e 2d 7a 65 72 6f 0a 20 ever non-zero.
6490: 20 20 20 20 2a 20 74 68 61 74 20 69 74 20 77 69 * that it wi
64a0: 6c 6c 20 65 6e 74 65 72 20 61 6e 20 69 6e 66 69 ll enter an infi
64b0: 6e 69 74 65 20 6c 6f 6f 70 2e 0a 20 20 20 20 20 nite loop..
64c0: 2a 0a 20 20 20 20 20 2a 20 4e 6f 74 69 66 79 20 *. * Notify
64d0: 74 68 65 20 75 70 70 65 72 20 63 68 61 6e 6e 65 the upper channe
64e0: 6c 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 l of the current
64f0: 20 42 49 4f 20 73 74 61 74 65 20 73 6f 20 74 68 BIO state so th
6500: 65 20 65 76 65 6e 74 0a 20 20 20 20 20 2a 20 63 e event. * c
6510: 6f 6e 74 69 6e 75 65 73 20 74 6f 20 70 72 6f 70 ontinues to prop
6520: 61 67 61 74 65 20 75 70 20 74 68 65 20 63 68 61 agate up the cha
6530: 69 6e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 in.. *.
6540: 2a 20 73 74 61 6e 74 6f 6e 3a 20 49 74 20 6c 6f * stanton: It lo
6550: 6f 6b 73 20 6c 69 6b 65 20 74 68 69 73 20 63 6f oks like this co
6560: 75 6c 64 20 72 65 73 75 6c 74 20 69 6e 20 61 6e uld result in an
6570: 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 20 69 infinite loop i
6580: 66 0a 20 20 20 20 20 2a 20 74 68 65 20 75 70 70 f. * the upp
6590: 65 72 20 63 68 61 6e 6e 65 6c 20 64 6f 65 73 6e er channel doesn
65a0: 27 74 20 63 61 75 73 65 20 43 68 61 6e 6e 65 6c 't cause Channel
65b0: 48 61 6e 64 6c 65 72 20 74 6f 20 62 65 20 72 65 Handler to be re
65c0: 6d 6f 76 65 64 0a 20 20 20 20 20 2a 20 62 65 66 moved. * bef
65d0: 6f 72 65 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 ore Tcl_NotifyCh
65e0: 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 63 68 61 6e annel calls chan
65f0: 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 6f 6e 20 nel handlers on
6600: 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 the lower channe
6610: 6c 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 0a l.. */. .
6620: 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 Tcl_NotifyCh
6630: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
6640: 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 self, mask);.
6650: 20 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 . if (stateP
6660: 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 tr->timer != (Tc
6670: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c l_TimerToken)NUL
6680: 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 L) {..Tcl_Delete
6690: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
66a0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
66b0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
66c0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
66d0: 6e 29 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 n)NULL;. }.
66e0: 20 20 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 if ((mask & TC
66f0: 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 20 54 L_READABLE) && T
6700: 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 cl_InputBuffered
6710: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
6720: 20 3e 20 30 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 > 0) {../*.. *
6730: 44 61 74 61 20 69 73 20 77 61 69 74 69 6e 67 2c Data is waiting,
6740: 20 66 6c 75 73 68 20 69 74 20 6f 75 74 20 69 6e flush it out in
6750: 20 73 68 6f 72 74 20 74 69 6d 65 0a 09 20 2a 2f short time.. */
6760: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
6770: 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 r = Tcl_CreateTi
6780: 6d 65 72 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 merHandler(TLS_T
6790: 43 4c 5f 44 45 4c 41 59 2c 0a 09 09 54 6c 73 43 CL_DELAY,...TlsC
67a0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d hannelHandlerTim
67b0: 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 er, (ClientData)
67c0: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
67d0: 7d 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 }. Tcl_Releas
67e0: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 73 e( (ClientData)s
67f0: 74 61 74 65 50 74 72 29 3b 0a 7d 0a 23 65 6e 64 tatePtr);.}.#end
6800: 69 66 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d if../*. *-------
6810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
6840: 0a 20 2a 0a 20 2a 09 54 6c 73 43 68 61 6e 6e 65 . *. *.TlsChanne
6850: 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 20 2d 2d lHandlerTimer --
6860: 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *.---------
6870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6890: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 43 61 6c 6c -------*. *.Call
68a0: 65 64 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 ed by the notifi
68b0: 65 72 20 28 2d 3e 20 74 69 6d 65 72 29 20 74 6f er (-> timer) to
68c0: 20 66 6c 75 73 68 20 6f 75 74 0a 20 2a 09 69 6e flush out. *.in
68d0: 66 6f 72 6d 61 74 69 6f 6e 20 77 61 69 74 69 6e formation waitin
68e0: 67 20 69 6e 20 63 68 61 6e 6e 65 6c 20 62 75 66 g in channel buf
68f0: 66 65 72 73 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d fers.. *.-------
6900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
6930: 09 53 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a .Sideeffects:. *
6940: 09 09 41 73 20 6f 66 20 27 54 6c 73 43 68 61 6e ..As of 'TlsChan
6950: 6e 65 6c 48 61 6e 64 6c 65 72 27 2e 0a 20 2a 0a nelHandler'.. *.
6960: 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 4e *.Result:. *..N
6970: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
6980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69b0: 2a 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f *. */..static vo
69c0: 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e id TlsChannelHan
69d0: 64 6c 65 72 54 69 6d 65 72 28 43 6c 69 65 6e 74 dlerTimer(Client
69e0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 Data clientData)
69f0: 20 7b 0a 09 53 74 61 74 65 20 2a 73 74 61 74 65 {..State *state
6a00: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
6a10: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 09 69 6e 74 clientData;..int
6a20: 20 6d 61 73 6b 20 3d 20 30 3b 0a 0a 09 64 70 72 mask = 0;...dpr
6a30: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
6a40: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
6a50: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
6a60: 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 09 69 66 20 ken) NULL;...if
6a70: 28 42 49 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 (BIO_wpending(st
6a80: 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a atePtr->bio)) {.
6a90: 09 09 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e ..dprintf("[chan
6aa0: 3d 25 70 5d 20 42 49 4f 20 77 72 69 74 61 62 6c =%p] BIO writabl
6ab0: 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 e", statePtr->se
6ac0: 6c 66 29 3b 0a 0a 09 09 6d 61 73 6b 20 7c 3d 20 lf);....mask |=
6ad0: 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 09 7d TCL_WRITABLE;..}
6ae0: 0a 0a 09 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 ...if (BIO_pendi
6af0: 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ng(statePtr->bio
6b00: 29 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 )) {...dprintf("
6b10: 5b 63 68 61 6e 3d 25 70 5d 20 42 49 4f 20 72 65 [chan=%p] BIO re
6b20: 61 64 61 62 6c 65 22 2c 20 73 74 61 74 65 50 74 adable", statePt
6b30: 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 09 6d 61 73 r->self);....mas
6b40: 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c k |= TCL_READABL
6b50: 45 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 E;..}...dprintf(
6b60: 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 73 65 "Notifying ourse
6b70: 6c 76 65 73 22 29 3b 0a 09 54 63 6c 5f 4e 6f 74 lves");..Tcl_Not
6b80: 69 66 79 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 ifyChannel(state
6b90: 50 74 72 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 Ptr->self, mask)
6ba0: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 ;...dprintf("Ret
6bb0: 75 72 6e 69 6e 67 22 29 3b 0a 0a 09 72 65 74 75 urning");...retu
6bc0: 72 6e 3b 0a 7d 0a 0a 54 63 6c 5f 43 68 61 6e 6e rn;.}..Tcl_Chann
6bd0: 65 6c 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 el Tls_GetParent
6be0: 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 (State *statePtr
6bf0: 2c 20 69 6e 74 20 6d 61 73 6b 46 6c 61 67 73 29 , int maskFlags)
6c00: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 52 65 71 {..dprintf("Req
6c10: 75 65 73 74 65 64 20 74 6f 20 67 65 74 20 70 61 uested to get pa
6c20: 72 65 6e 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 rent of channel
6c30: 25 70 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 %p", statePtr->s
6c40: 65 6c 66 29 3b 0a 0a 09 69 66 20 28 28 73 74 61 elf);...if ((sta
6c50: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 7e tePtr->flags & ~
6c60: 6d 61 73 6b 46 6c 61 67 73 29 20 26 20 54 4c 53 maskFlags) & TLS
6c70: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 20 7b _TCL_FASTPATH) {
6c80: 0a 09 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 ...dprintf("Aske
6c90: 64 20 74 6f 20 67 65 74 20 74 68 65 20 70 61 72 d to get the par
6ca0: 65 6e 74 20 63 68 61 6e 6e 65 6c 20 77 68 69 6c ent channel whil
6cb0: 65 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 46 e we are using F
6cc0: 61 73 74 50 61 74 68 20 2d 2d 20 72 65 74 75 72 astPath -- retur
6cd0: 6e 69 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 09 72 ning NULL");...r
6ce0: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a eturn(NULL);..}.
6cf0: 0a 09 72 65 74 75 72 6e 28 54 63 6c 5f 47 65 74 ..return(Tcl_Get
6d00: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
6d10: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b tatePtr->self));
6d20: 0a 7d 0a .}.