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 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 oc _ANSI_ARGS_((
02f0: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
0300: 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 6d 6f 64 nceData, int mod
0310: 65 29 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 e));.static int
0320: 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 20 5f 41 TlsCloseProc _A
0330: 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e NSI_ARGS_((Clien
0340: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
0350: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
0360: 69 6e 74 65 72 70 29 29 3b 0a 73 74 61 74 69 63 interp));.static
0370: 20 69 6e 74 20 20 54 6c 73 49 6e 70 75 74 50 72 int TlsInputPr
0380: 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 oc _ANSI_ARGS_((
0390: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
03a0: 6e 63 65 44 61 74 61 2c 20 63 68 61 72 20 2a 62 nceData, char *b
03b0: 75 66 2c 20 69 6e 74 20 62 75 66 53 69 7a 65 2c uf, int bufSize,
03c0: 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 int *errorCodeP
03d0: 74 72 29 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 tr));.static int
03e0: 20 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 TlsOutputProc
03f0: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 _ANSI_ARGS_((Cli
0400: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
0410: 44 61 74 61 2c 20 43 4f 4e 53 54 20 63 68 61 72 Data, CONST char
0420: 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 57 72 69 *buf, int toWri
0430: 74 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f te, int *errorCo
0440: 64 65 50 74 72 29 29 3b 0a 73 74 61 74 69 63 20 dePtr));.static
0450: 69 6e 74 20 20 54 6c 73 47 65 74 4f 70 74 69 6f int TlsGetOptio
0460: 6e 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 nProc _ANSI_ARGS
0470: 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e _((ClientData in
0480: 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f stanceData, Tcl_
0490: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
04a0: 43 4f 4e 53 54 38 34 20 63 68 61 72 20 2a 6f 70 CONST84 char *op
04b0: 74 69 6f 6e 4e 61 6d 65 2c 20 54 63 6c 5f 44 53 tionName, Tcl_DS
04c0: 74 72 69 6e 67 20 2a 64 73 50 74 72 29 29 3b 0a tring *dsPtr));.
04d0: 73 74 61 74 69 63 20 69 6e 74 20 20 54 6c 73 53 static int TlsS
04e0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 5f 41 4e etOptionProc _AN
04f0: 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74 SI_ARGS_((Client
0500: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
0510: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
0520: 6e 74 65 72 70 2c 20 43 4f 4e 53 54 38 34 20 63 nterp, CONST84 c
0530: 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c har *optionName,
0540: 20 43 4f 4e 53 54 38 34 20 63 68 61 72 20 2a 6f CONST84 char *o
0550: 70 74 69 6f 6e 56 61 6c 75 65 29 29 3b 0a 73 74 ptionValue));.st
0560: 61 74 69 63 20 76 6f 69 64 20 54 6c 73 57 61 74 atic void TlsWat
0570: 63 68 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 chProc _ANSI_ARG
0580: 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69 S_((ClientData i
0590: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
05a0: 20 6d 61 73 6b 29 29 3b 0a 73 74 61 74 69 63 20 mask));.static
05b0: 69 6e 74 20 20 54 6c 73 47 65 74 48 61 6e 64 6c int TlsGetHandl
05c0: 65 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 eProc _ANSI_ARGS
05d0: 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e _((ClientData in
05e0: 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 stanceData, int
05f0: 64 69 72 65 63 74 69 6f 6e 2c 20 43 6c 69 65 6e direction, Clien
0600: 74 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 tData *handlePtr
0610: 29 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 20 ));.static int
0620: 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 5f 41 TlsNotifyProc _A
0630: 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e NSI_ARGS_((Clien
0640: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
0650: 74 61 2c 20 69 6e 74 20 6d 61 73 6b 29 29 3b 0a ta, int mask));.
0660: 23 69 66 20 30 0a 73 74 61 74 69 63 20 76 6f 69 #if 0.static voi
0670: 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 d TlsChannelHand
0680: 6c 65 72 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 ler _ANSI_ARGS_(
0690: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
06a0: 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d 61 73 6b ntData, int mask
06b0: 29 29 3b 0a 23 65 6e 64 69 66 0a 73 74 61 74 69 ));.#endif.stati
06c0: 63 20 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 c void TlsChanne
06d0: 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 20 5f 41 lHandlerTimer _A
06e0: 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e NSI_ARGS_((Clien
06f0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
0700: 29 29 3b 0a 0a 2f 2a 0a 20 2a 20 54 4c 53 20 43 ));../*. * TLS C
0710: 68 61 6e 6e 65 6c 20 54 79 70 65 0a 20 2a 2f 0a hannel Type. */.
0720: 73 74 61 74 69 63 20 54 63 6c 5f 43 68 61 6e 6e static Tcl_Chann
0730: 65 6c 54 79 70 65 20 2a 74 6c 73 43 68 61 6e 6e elType *tlsChann
0740: 65 6c 54 79 70 65 20 3d 20 4e 55 4c 4c 3b 0a 0a elType = NULL;..
0750: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
0760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0790: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
07a0: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2d ls_ChannelType -
07b0: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 74 -. *. *.Return t
07c0: 68 65 20 63 6f 72 72 65 63 74 20 54 4c 53 20 63 he correct TLS c
07d0: 68 61 6e 6e 65 6c 20 64 72 69 76 65 72 20 69 6e hannel driver in
07e0: 66 6f 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 fo. *. * Results
07f0: 3a 0a 20 2a 09 54 68 65 20 63 6f 72 72 65 63 74 :. *.The correct
0800: 20 63 68 61 6e 6e 65 6c 20 64 72 69 76 65 72 20 channel driver
0810: 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 for the current
0820: 76 65 72 73 69 6f 6e 20 6f 66 20 54 63 6c 2e 0a version of Tcl..
0830: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
0840: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
0850: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0890: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 54 63 6c 5f 43 68 -----. */.Tcl_Ch
08a0: 61 6e 6e 65 6c 54 79 70 65 20 2a 54 6c 73 5f 43 annelType *Tls_C
08b0: 68 61 6e 6e 65 6c 54 79 70 65 28 76 6f 69 64 29 hannelType(void)
08c0: 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 69 6e 74 {..unsigned int
08d0: 20 73 69 7a 65 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 size;.../*.. *
08e0: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 63 Initialize the c
08f0: 68 61 6e 6e 65 6c 20 74 79 70 65 20 69 66 20 6e hannel type if n
0900: 65 63 65 73 73 61 72 79 0a 09 20 2a 2f 0a 09 69 ecessary.. */..i
0910: 66 20 28 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 f (tlsChannelTyp
0920: 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 2f e == NULL) {.../
0930: 2a 0a 09 09 20 2a 20 41 6c 6c 6f 63 61 74 69 6f *... * Allocatio
0940: 6e 20 6f 66 20 61 20 6e 65 77 20 63 68 61 6e 6e n of a new chann
0950: 65 6c 74 79 70 65 20 73 74 72 75 63 74 75 72 65 eltype structure
0960: 20 69 73 20 6e 6f 74 20 65 61 73 79 2c 20 62 65 is not easy, be
0970: 63 61 75 73 65 20 6f 66 0a 09 09 20 2a 20 74 68 cause of... * th
0980: 65 20 76 61 72 69 6f 75 73 20 76 65 72 73 6f 6e e various verson
0990: 20 6f 66 20 74 68 65 20 63 6f 72 65 20 61 6e 64 of the core and
09a0: 20 73 75 62 73 65 71 75 65 6e 74 20 63 68 61 6e subsequent chan
09b0: 67 65 73 20 74 6f 20 74 68 65 0a 09 09 20 2a 20 ges to the... *
09c0: 73 74 72 75 63 74 75 72 65 2e 20 54 68 65 20 6d structure. The m
09d0: 61 69 6e 20 63 68 61 6c 6c 65 6e 67 65 20 69 73 ain challenge is
09e0: 20 74 6f 20 61 6c 6c 6f 63 61 74 65 20 65 6e 6f to allocate eno
09f0: 75 67 68 20 6d 65 6d 6f 72 79 20 66 6f 72 0a 09 ugh memory for..
0a00: 09 20 2a 20 6d 6f 64 65 72 6e 20 76 65 72 73 69 . * modern versi
0a10: 6f 6e 73 20 65 76 65 6e 20 69 66 20 74 68 69 73 ons even if this
0a20: 20 65 78 74 73 65 6e 73 69 6f 6e 20 69 73 20 63 extsension is c
0a30: 6f 6d 70 69 6c 65 64 20 61 67 61 69 6e 73 74 20 ompiled against
0a40: 6f 6e 65 0a 09 09 20 2a 20 6f 66 20 74 68 65 20 one... * of the
0a50: 6f 6c 64 65 72 20 76 61 72 69 61 6e 74 21 0a 09 older variant!..
0a60: 09 20 2a 0a 09 09 20 2a 20 28 31 29 20 56 65 72 . *... * (1) Ver
0a70: 73 69 6f 6e 73 20 62 65 66 6f 72 65 20 73 74 75 sions before stu
0a80: 62 73 20 28 38 2e 30 2e 78 29 20 61 72 65 20 73 bs (8.0.x) are s
0a90: 69 6d 70 6c 65 2c 20 62 65 63 61 75 73 65 20 74 imple, because t
0aa0: 68 65 79 20 61 72 65 0a 09 09 20 2a 20 20 20 20 hey are... *
0ab0: 20 73 75 70 70 6f 72 74 65 64 20 6f 6e 6c 79 20 supported only
0ac0: 69 66 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e if the extension
0ad0: 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 61 67 61 is compiled aga
0ae0: 69 6e 73 74 20 65 78 61 63 74 6c 79 0a 09 09 20 inst exactly...
0af0: 2a 20 20 20 20 20 74 68 61 74 20 76 65 72 73 69 * that versi
0b00: 6f 6e 20 6f 66 20 74 68 65 20 63 6f 72 65 2e 0a on of the core..
0b10: 09 09 20 2a 0a 09 09 20 2a 20 28 32 29 20 57 69 .. *... * (2) Wi
0b20: 74 68 20 73 74 75 62 73 20 77 65 20 6a 75 73 74 th stubs we just
0b30: 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 64 determine the d
0b40: 69 66 66 65 72 65 6e 63 65 20 62 65 74 77 65 65 ifference betwee
0b50: 6e 20 74 68 65 20 6f 6c 64 65 72 0a 09 09 20 2a n the older... *
0b60: 20 20 20 20 20 61 6e 64 20 6d 6f 64 65 72 6e 20 and modern
0b70: 76 61 72 69 61 6e 74 20 61 6e 64 20 6f 76 65 72 variant and over
0b80: 61 6c 6c 6f 63 61 74 65 20 61 63 63 6f 72 64 69 allocate accordi
0b90: 6e 67 6c 79 20 69 66 20 63 6f 6d 70 69 6c 65 64 ngly if compiled
0ba0: 0a 09 09 20 2a 20 20 20 20 20 61 67 61 69 6e 73 ... * agains
0bb0: 74 20 61 6e 20 6f 6c 64 65 72 20 76 61 72 69 61 t an older varia
0bc0: 6e 74 2e 0a 09 09 20 2a 2f 0a 09 09 73 69 7a 65 nt.... */...size
0bd0: 20 3d 20 73 69 7a 65 6f 66 28 54 63 6c 5f 43 68 = sizeof(Tcl_Ch
0be0: 61 6e 6e 65 6c 54 79 70 65 29 3b 20 2f 2a 20 42 annelType); /* B
0bf0: 61 73 65 20 73 69 7a 65 20 2a 2f 0a 0a 09 09 74 ase size */....t
0c00: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 lsChannelType =
0c10: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 (Tcl_ChannelType
0c20: 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 *) ckalloc(size
0c30: 29 3b 0a 09 09 6d 65 6d 73 65 74 28 28 56 4f 49 );...memset((VOI
0c40: 44 20 2a 29 20 74 6c 73 43 68 61 6e 6e 65 6c 54 D *) tlsChannelT
0c50: 79 70 65 2c 20 30 2c 20 73 69 7a 65 29 3b 0a 0a ype, 0, size);..
0c60: 09 09 2f 2a 0a 09 09 20 2a 20 43 6f 6d 6d 6f 6e ../*... * Common
0c70: 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 elements of the
0c80: 20 73 74 72 75 63 74 75 72 65 20 28 6e 6f 20 63 structure (no c
0c90: 68 61 6e 67 65 73 20 69 6e 20 6c 6f 63 61 74 69 hanges in locati
0ca0: 6f 6e 20 6f 72 20 6e 61 6d 65 29 0a 09 09 20 2a on or name)... *
0cb0: 20 63 6c 6f 73 65 32 50 72 6f 63 2c 20 73 65 65 close2Proc, see
0cc0: 6b 50 72 6f 63 2c 20 73 65 74 4f 70 74 69 6f 6e kProc, setOption
0cd0: 50 72 6f 63 20 73 74 61 79 20 4e 55 4c 4c 2e 0a Proc stay NULL..
0ce0: 09 09 20 2a 2f 0a 0a 09 09 74 6c 73 43 68 61 6e .. */....tlsChan
0cf0: 6e 65 6c 54 79 70 65 2d 3e 74 79 70 65 4e 61 6d nelType->typeNam
0d00: 65 09 3d 20 22 74 6c 73 22 3b 0a 09 09 74 6c 73 e.= "tls";...tls
0d10: 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 63 6c 6f ChannelType->clo
0d20: 73 65 50 72 6f 63 09 3d 20 54 6c 73 43 6c 6f 73 seProc.= TlsClos
0d30: 65 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e eProc;...tlsChan
0d40: 6e 65 6c 54 79 70 65 2d 3e 69 6e 70 75 74 50 72 nelType->inputPr
0d50: 6f 63 09 3d 20 54 6c 73 49 6e 70 75 74 50 72 6f oc.= TlsInputPro
0d60: 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 c;...tlsChannelT
0d70: 79 70 65 2d 3e 6f 75 74 70 75 74 50 72 6f 63 09 ype->outputProc.
0d80: 3d 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 3b = TlsOutputProc;
0d90: 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 ...tlsChannelTyp
0da0: 65 2d 3e 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 e->getOptionProc
0db0: 09 3d 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 .= TlsGetOptionP
0dc0: 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 roc;...tlsChanne
0dd0: 6c 54 79 70 65 2d 3e 73 65 74 4f 70 74 69 6f 6e lType->setOption
0de0: 50 72 6f 63 09 3d 20 54 6c 73 53 65 74 4f 70 74 Proc.= TlsSetOpt
0df0: 69 6f 6e 50 72 6f 63 3b 0a 09 09 74 6c 73 43 68 ionProc;...tlsCh
0e00: 61 6e 6e 65 6c 54 79 70 65 2d 3e 77 61 74 63 68 annelType->watch
0e10: 50 72 6f 63 09 3d 20 54 6c 73 57 61 74 63 68 50 Proc.= TlsWatchP
0e20: 72 6f 63 3b 0a 09 09 74 6c 73 43 68 61 6e 6e 65 roc;...tlsChanne
0e30: 6c 54 79 70 65 2d 3e 67 65 74 48 61 6e 64 6c 65 lType->getHandle
0e40: 50 72 6f 63 09 3d 20 54 6c 73 47 65 74 48 61 6e Proc.= TlsGetHan
0e50: 64 6c 65 50 72 6f 63 3b 0a 0a 09 09 2f 2a 0a 09 dleProc;..../*..
0e60: 09 20 2a 20 43 6f 6d 70 69 6c 65 64 20 61 67 61 . * Compiled aga
0e70: 69 6e 73 74 20 38 2e 33 2e 32 2b 2e 20 44 69 72 inst 8.3.2+. Dir
0e80: 65 63 74 20 61 63 63 65 73 73 20 74 6f 20 61 6c ect access to al
0e90: 6c 20 65 6c 65 6d 65 6e 74 73 20 70 6f 73 73 69 l elements possi
0ea0: 62 6c 65 2e 20 55 73 65 0a 09 09 20 2a 20 63 68 ble. Use... * ch
0eb0: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
0ec0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 information to
0ed0: 73 65 6c 65 63 74 20 74 68 65 20 76 61 6c 75 65 select the value
0ee0: 73 20 74 6f 20 75 73 65 2e 0a 09 09 20 2a 2f 0a s to use.... */.
0ef0: 0a 09 09 2f 2a 0a 09 09 20 2a 20 46 6f 72 20 74 .../*... * For t
0f00: 68 65 20 38 2e 33 2e 32 20 63 6f 72 65 20 77 65 he 8.3.2 core we
0f10: 20 70 72 65 73 65 6e 74 20 6f 75 72 73 65 6c 76 present ourselv
0f20: 65 73 20 61 73 20 61 20 76 65 72 73 69 6f 6e 20 es as a version
0f30: 32 0a 09 09 20 2a 20 64 72 69 76 65 72 2e 20 54 2... * driver. T
0f40: 68 69 73 20 6d 65 61 6e 73 20 61 20 73 70 65 63 his means a spec
0f50: 69 61 6c 20 76 61 6c 75 65 20 69 6e 20 76 65 72 ial value in ver
0f60: 73 69 6f 6e 20 28 65 78 0a 09 09 20 2a 20 62 6c sion (ex... * bl
0f70: 6f 63 6b 4d 6f 64 65 50 72 6f 63 29 2c 20 62 6c ockModeProc), bl
0f80: 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 69 6e 20 61 ockModeProc in a
0f90: 20 64 69 66 66 65 72 65 6e 74 20 70 6c 61 63 65 different place
0fa0: 20 61 6e 64 20 6f 66 0a 09 09 20 2a 20 63 6f 75 and of... * cou
0fb0: 72 73 65 20 75 73 61 67 65 20 6f 66 20 74 68 65 rse usage of the
0fc0: 20 68 61 6e 64 6c 65 72 50 72 6f 63 2e 0a 09 09 handlerProc....
0fd0: 20 2a 2f 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c */...tlsChannel
0fe0: 54 79 70 65 2d 3e 76 65 72 73 69 6f 6e 20 20 20 Type->version
0ff0: 20 20 20 20 3d 20 54 43 4c 5f 43 48 41 4e 4e 45 = TCL_CHANNE
1000: 4c 5f 56 45 52 53 49 4f 4e 5f 32 3b 0a 09 09 74 L_VERSION_2;...t
1010: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 62 lsChannelType->b
1020: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 3d 20 54 lockModeProc = T
1030: 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 3b lsBlockModeProc;
1040: 0a 09 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 ...tlsChannelTyp
1050: 65 2d 3e 68 61 6e 64 6c 65 72 50 72 6f 63 20 20 e->handlerProc
1060: 20 3d 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 = TlsNotifyProc
1070: 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 74 6c ;..}...return(tl
1080: 73 43 68 61 6e 6e 65 6c 54 79 70 65 29 3b 0a 7d sChannelType);.}
1090: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
10a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
10e0: 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f TlsBlockModePro
10f0: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 c --. *. *.This
1100: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
1110: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 oked by the gene
1120: 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 ric IO level. *
1130: 20 20 20 20 20 20 74 6f 20 73 65 74 20 62 6c 6f to set blo
1140: 63 6b 69 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f cking and nonblo
1150: 63 6b 69 6e 67 20 6d 6f 64 65 73 0a 20 2a 20 52 cking modes. * R
1160: 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 20 esults:. *.0 if
1170: 73 75 63 63 65 73 73 66 75 6c 2c 20 65 72 72 6e successful, errn
1180: 6f 20 77 68 65 6e 20 66 61 69 6c 65 64 2e 0a 20 o when failed..
1190: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
11a0: 73 3a 0a 20 2a 09 53 65 74 73 20 74 68 65 20 64 s:. *.Sets the d
11b0: 65 76 69 63 65 20 69 6e 74 6f 20 62 6c 6f 63 6b evice into block
11c0: 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 ing or nonblocki
11d0: 6e 67 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d ng mode.. *. *--
11e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1220: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
1230: 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f TlsBlockModePro
1240: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
1250: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 6d tanceData, int m
1260: 6f 64 65 29 20 7b 0a 09 53 74 61 74 65 20 2a 73 ode) {..State *s
1270: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
1280: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
1290: 3b 0a 0a 09 69 66 20 28 6d 6f 64 65 20 3d 3d 20 ;...if (mode ==
12a0: 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 TCL_MODE_NONBLOC
12b0: 4b 49 4e 47 29 20 7b 0a 09 09 73 74 61 74 65 50 KING) {...stateP
12c0: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
12d0: 5f 54 43 4c 5f 41 53 59 4e 43 3b 0a 09 7d 20 65 _TCL_ASYNC;..} e
12e0: 6c 73 65 20 7b 0a 09 09 73 74 61 74 65 50 74 72 lse {...statePtr
12f0: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 ->flags &= ~(TLS
1300: 5f 54 43 4c 5f 41 53 59 4e 43 29 3b 0a 09 7d 0a _TCL_ASYNC);..}.
1310: 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a ..return(0);.}..
1320: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
1330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1360: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
1370: 6c 73 43 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 lsCloseProc --.
1380: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
1390: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 ure is invoked b
13a0: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f y the generic IO
13b0: 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 level to perfor
13c0: 6d 0a 20 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 70 m. *.channel-typ
13d0: 65 2d 73 70 65 63 69 66 69 63 20 63 6c 65 61 6e e-specific clean
13e0: 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f up when a SSL so
13f0: 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e cket based chann
1400: 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 2e el. *.is closed.
1410: 0a 20 2a 0a 20 2a 09 4e 6f 74 65 3a 20 77 65 20 . *. *.Note: we
1420: 6c 65 61 76 65 20 74 68 65 20 75 6e 64 65 72 6c leave the underl
1430: 79 69 6e 67 20 73 6f 63 6b 65 74 20 61 6c 6f 6e ying socket alon
1440: 65 2c 20 69 73 20 74 68 69 73 20 72 69 67 68 74 e, is this right
1450: 3f 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a ?. *. * Results:
1460: 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 . *.0 if success
1470: 66 75 6c 2c 20 74 68 65 20 76 61 6c 75 65 20 6f ful, the value o
1480: 66 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 f Tcl_GetErrno()
1490: 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 if failed.. *.
14a0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
14b0: 20 2a 09 43 6c 6f 73 65 73 20 74 68 65 20 73 6f *.Closes the so
14c0: 63 6b 65 74 20 6f 66 20 74 68 65 20 63 68 61 6e cket of the chan
14d0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d nel.. *. *------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1520: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 /.static int Tls
1530: 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 65 6e 74 CloseProc(Client
1540: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
1550: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
1560: 6e 74 65 72 70 29 20 7b 0a 09 53 74 61 74 65 20 nterp) {..State
1570: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
1580: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
1590: 74 61 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 54 ta;...dprintf("T
15a0: 6c 73 43 6c 6f 73 65 50 72 6f 63 28 25 70 29 22 lsCloseProc(%p)"
15b0: 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 , (void *) state
15c0: 50 74 72 29 3b 0a 0a 09 54 6c 73 5f 43 6c 65 61 Ptr);...Tls_Clea
15d0: 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 09 54 63 n(statePtr);..Tc
15e0: 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 l_EventuallyFree
15f0: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 ((ClientData)sta
1600: 74 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 65 29 tePtr, Tls_Free)
1610: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 ;...dprintf("Ret
1620: 75 72 6e 69 6e 67 20 54 43 4c 5f 4f 4b 22 29 3b urning TCL_OK");
1630: 0a 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b ...return(TCL_OK
1640: 29 3b 0a 0a 09 2f 2a 20 49 6e 74 65 72 70 20 69 );.../* Interp i
1650: 73 20 75 6e 75 73 65 64 2e 20 2a 2f 0a 09 69 6e s unused. */..in
1660: 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 7d terp = interp;.}
1670: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
16b0: 2a 0a 20 2a 09 54 6c 73 5f 57 61 69 74 46 6f 72 *. *.Tls_WaitFor
16c0: 43 6f 6e 6e 65 63 74 20 2d 2d 0a 20 2a 0a 20 2a Connect --. *. *
16d0: 09 53 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a .Sideeffects:. *
16e0: 09 09 49 73 73 75 65 73 20 53 53 4c 5f 61 63 63 ..Issues SSL_acc
16f0: 65 70 74 20 6f 72 20 53 53 4c 5f 63 6f 6e 6e 65 ept or SSL_conne
1700: 63 74 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a ct. *. *.Result:
1710: 0a 20 2a 09 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a . *..None.. *. *
1720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 69 6e 74 20 ------*. */.int
1760: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
1770: 63 74 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 ct(State *stateP
1780: 74 72 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f tr, int *errorCo
1790: 64 65 50 74 72 2c 20 69 6e 74 20 68 61 6e 64 73 dePtr, int hands
17a0: 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 72 hakeFailureIsPer
17b0: 6d 61 6e 65 6e 74 29 20 7b 0a 09 75 6e 73 69 67 manent) {..unsig
17c0: 6e 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 ned long backing
17d0: 45 72 72 6f 72 3b 0a 09 69 6e 74 20 65 72 72 2c Error;..int err,
17e0: 20 72 63 3b 0a 09 69 6e 74 20 62 69 6f 53 68 6f rc;..int bioSho
17f0: 75 6c 64 52 65 74 72 79 3b 0a 0a 09 64 70 72 69 uldRetry;...dpri
1800: 6e 74 66 28 22 57 61 69 74 46 6f 72 43 6f 6e 6e ntf("WaitForConn
1810: 65 63 74 28 25 70 29 22 2c 20 28 76 6f 69 64 20 ect(%p)", (void
1820: 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 64 *) statePtr);..d
1830: 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65 printFlags(state
1840: 50 74 72 29 3b 0a 0a 09 69 66 20 28 21 28 73 74 Ptr);...if (!(st
1850: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
1860: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 29 20 7b TLS_TCL_INIT)) {
1870: 0a 09 09 64 70 72 69 6e 74 66 28 22 54 6c 73 5f ...dprintf("Tls_
1880: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 63 WaitForConnect c
1890: 61 6c 6c 65 64 20 6f 6e 20 61 6c 72 65 61 64 79 alled on already
18a0: 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 63 68 61 initialized cha
18b0: 6e 6e 65 6c 20 2d 2d 20 72 65 74 75 72 6e 69 6e nnel -- returnin
18c0: 67 20 77 69 74 68 20 69 6d 6d 65 64 69 61 74 65 g with immediate
18d0: 20 73 75 63 63 65 73 73 22 29 3b 0a 09 09 2a 65 success");...*e
18e0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
18f0: 0a 09 09 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d ...return(0);..}
1900: 0a 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d ...if (statePtr-
1910: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
1920: 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 _HANDSHAKE_FAILE
1930: 44 29 20 7b 0a 09 09 2f 2a 0a 09 09 20 2a 20 44 D) {.../*... * D
1940: 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f ifferent types o
1950: 66 20 6f 70 65 72 61 74 69 6f 6e 73 20 68 61 76 f operations hav
1960: 65 20 64 69 66 66 65 72 65 6e 74 20 72 65 71 75 e different requ
1970: 69 72 65 6d 65 6e 74 73 0a 09 09 20 2a 20 53 53 irements... * SS
1980: 4c 20 62 65 69 6e 67 20 65 73 74 61 62 6c 69 73 L being establis
1990: 68 65 64 0a 09 09 20 2a 2f 0a 09 09 69 66 20 28 hed... */...if (
19a0: 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 handshakeFailure
19b0: 49 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 IsPermanent) {..
19c0: 09 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 ..dprintf("Asked
19d0: 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 54 to wait for a T
19e0: 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 61 LS handshake tha
19f0: 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 61 t has already fa
1a00: 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 iled. Returning
1a10: 20 66 61 74 61 6c 20 65 72 72 6f 72 22 29 3b 0a fatal error");.
1a20: 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
1a30: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b = ECONNABORTED;
1a40: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 64 ...} else {....d
1a50: 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f printf("Asked to
1a60: 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 20 wait for a TLS
1a70: 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 68 handshake that h
1a80: 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c 65 as already faile
1a90: 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 73 6f d. Returning so
1aa0: 66 74 20 65 72 72 6f 72 22 29 3b 0a 09 09 09 2a ft error");....*
1ab0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
1ac0: 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 09 7d 0a 09 CONNRESET;...}..
1ad0: 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a .return(-1);..}.
1ae0: 0a 09 66 6f 72 20 28 3b 3b 29 20 7b 0a 09 09 2f ..for (;;) {.../
1af0: 2a 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 * Not initialize
1b00: 64 20 79 65 74 21 20 2a 2f 0a 09 09 69 66 20 28 d yet! */...if (
1b10: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
1b20: 26 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 & TLS_TCL_SERVER
1b30: 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 ) {....dprintf("
1b40: 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 61 63 63 65 Calling SSL_acce
1b50: 70 74 28 29 22 29 3b 0a 0a 09 09 09 65 72 72 20 pt()");.....err
1b60: 3d 20 53 53 4c 5f 61 63 63 65 70 74 28 73 74 61 = SSL_accept(sta
1b70: 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 09 7d tePtr->ssl);...}
1b80: 20 65 6c 73 65 20 7b 0a 09 09 09 64 70 72 69 6e else {....dprin
1b90: 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 53 4c 5f tf("Calling SSL_
1ba0: 63 6f 6e 6e 65 63 74 28 29 22 29 3b 0a 0a 09 09 connect()");....
1bb0: 09 65 72 72 20 3d 20 53 53 4c 5f 63 6f 6e 6e 65 .err = SSL_conne
1bc0: 63 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ct(statePtr->ssl
1bd0: 29 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28 65 72 );...}....if (er
1be0: 72 20 3e 20 30 29 20 7b 0a 09 09 09 64 70 72 69 r > 0) {....dpri
1bf0: 6e 74 66 28 22 54 68 61 74 20 73 65 65 6d 73 20 ntf("That seems
1c00: 74 6f 20 68 61 76 65 20 67 6f 6e 65 20 6f 6b 61 to have gone oka
1c10: 79 22 29 3b 0a 0a 09 09 09 65 72 72 20 3d 20 42 y");.....err = B
1c20: 49 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 IO_flush(statePt
1c30: 72 2d 3e 62 69 6f 29 3b 0a 0a 09 09 09 69 66 20 r->bio);.....if
1c40: 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 09 09 (err <= 0) {....
1c50: 09 64 70 72 69 6e 74 66 28 22 46 6c 75 73 68 69 .dprintf("Flushi
1c60: 6e 67 20 74 68 65 20 6c 6f 77 65 72 20 6c 61 79 ng the lower lay
1c70: 65 72 73 20 66 61 69 6c 65 64 2c 20 74 68 69 73 ers failed, this
1c80: 20 77 69 6c 6c 20 70 72 6f 62 61 62 6c 79 20 74 will probably t
1c90: 65 72 6d 69 6e 61 74 65 20 74 68 69 73 20 73 65 erminate this se
1ca0: 73 73 69 6f 6e 22 29 3b 0a 09 09 09 7d 0a 09 09 ssion");....}...
1cb0: 7d 0a 0a 09 09 72 63 20 3d 20 53 53 4c 5f 67 65 }....rc = SSL_ge
1cc0: 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 t_error(statePtr
1cd0: 2d 3e 73 73 6c 2c 20 65 72 72 29 3b 0a 0a 09 09 ->ssl, err);....
1ce0: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 65 72 72 dprintf("Got err
1cf0: 6f 72 3a 20 25 69 20 28 72 63 20 3d 20 25 69 29 or: %i (rc = %i)
1d00: 22 2c 20 65 72 72 2c 20 72 63 29 3b 0a 0a 09 09 ", err, rc);....
1d10: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d bioShouldRetry =
1d20: 20 30 3b 0a 09 09 69 66 20 28 65 72 72 20 3c 3d 0;...if (err <=
1d30: 20 30 29 20 7b 0a 09 09 09 69 66 20 28 72 63 20 0) {....if (rc
1d40: 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e == SSL_ERROR_WAN
1d50: 54 5f 43 4f 4e 4e 45 43 54 20 7c 7c 20 72 63 20 T_CONNECT || rc
1d60: 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e == SSL_ERROR_WAN
1d70: 54 5f 41 43 43 45 50 54 20 7c 7c 20 72 63 20 3d T_ACCEPT || rc =
1d80: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 = SSL_ERROR_WANT
1d90: 5f 52 45 41 44 20 7c 7c 20 72 63 20 3d 3d 20 53 _READ || rc == S
1da0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
1db0: 49 54 45 29 20 7b 0a 09 09 09 09 62 69 6f 53 68 ITE) {.....bioSh
1dc0: 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 ouldRetry = 1;..
1dd0: 09 09 7d 20 65 6c 73 65 20 69 66 20 28 42 49 4f ..} else if (BIO
1de0: 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 _should_retry(st
1df0: 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a atePtr->bio)) {.
1e00: 09 09 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 ....bioShouldRet
1e10: 72 79 20 3d 20 31 3b 0a 09 09 09 7d 20 65 6c 73 ry = 1;....} els
1e20: 65 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f e if (rc == SSL_
1e30: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 20 26 26 ERROR_SYSCALL &&
1e40: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 20 Tcl_GetErrno()
1e50: 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09 09 09 == EAGAIN) {....
1e60: 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 .bioShouldRetry
1e70: 3d 20 31 3b 0a 09 09 09 7d 0a 09 09 7d 20 65 6c = 1;....}...} el
1e80: 73 65 20 7b 0a 09 09 09 69 66 20 28 21 53 53 4c se {....if (!SSL
1e90: 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 _is_init_finishe
1ea0: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 d(statePtr->ssl)
1eb0: 29 20 7b 0a 09 09 09 09 62 69 6f 53 68 6f 75 6c ) {.....bioShoul
1ec0: 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 09 09 7d dRetry = 1;....}
1ed0: 0a 09 09 7d 0a 0a 09 09 69 66 20 28 62 69 6f 53 ...}....if (bioS
1ee0: 68 6f 75 6c 64 52 65 74 72 79 29 20 7b 0a 09 09 houldRetry) {...
1ef0: 09 64 70 72 69 6e 74 66 28 22 54 68 65 20 49 2f .dprintf("The I/
1f00: 4f 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 O did not comple
1f10: 74 65 20 2d 2d 20 62 75 74 20 77 65 20 73 68 6f te -- but we sho
1f20: 75 6c 64 20 74 72 79 20 69 74 20 61 67 61 69 6e uld try it again
1f30: 22 29 3b 0a 0a 09 09 09 69 66 20 28 73 74 61 74 ");.....if (stat
1f40: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
1f50: 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 S_TCL_ASYNC) {..
1f60: 09 09 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 ...dprintf("Retu
1f70: 72 6e 69 6e 67 20 45 41 47 41 49 4e 20 73 6f 20 rning EAGAIN so
1f80: 74 68 61 74 20 69 74 20 63 61 6e 20 62 65 20 72 that it can be r
1f90: 65 74 72 69 65 64 20 6c 61 74 65 72 22 29 3b 0a etried later");.
1fa0: 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 .....*errorCodeP
1fb0: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 0a 09 09 tr = EAGAIN;....
1fc0: 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 09 ..return(-1);...
1fd0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 64 70 .} else {.....dp
1fe0: 72 69 6e 74 66 28 22 44 6f 69 6e 67 20 73 6f 20 rintf("Doing so
1ff0: 6e 6f 77 22 29 3b 0a 0a 09 09 09 09 63 6f 6e 74 now");......cont
2000: 69 6e 75 65 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a inue;....}...}..
2010: 09 09 64 70 72 69 6e 74 66 28 22 57 65 20 68 61 ..dprintf("We ha
2020: 76 65 20 65 69 74 68 65 72 20 63 6f 6d 70 6c 65 ve either comple
2030: 74 65 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 tely established
2040: 20 74 68 65 20 73 65 73 73 69 6f 6e 20 6f 72 20 the session or
2050: 63 6f 6d 70 6c 65 74 65 6c 79 20 66 61 69 6c 65 completely faile
2060: 64 20 69 74 20 2d 2d 20 74 68 65 72 65 20 69 73 d it -- there is
2070: 20 6e 6f 20 6d 6f 72 65 20 6e 65 65 64 20 74 6f no more need to
2080: 20 65 76 65 72 20 72 65 74 72 79 20 69 74 20 74 ever retry it t
2090: 68 6f 75 67 68 22 29 3b 0a 09 09 62 72 65 61 6b hough");...break
20a0: 3b 0a 09 7d 0a 0a 0a 09 2a 65 72 72 6f 72 43 6f ;..}....*errorCo
20b0: 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a dePtr = EINVAL;.
20c0: 0a 09 73 77 69 74 63 68 20 28 72 63 29 20 7b 0a ..switch (rc) {.
20d0: 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
20e0: 5f 4e 4f 4e 45 3a 0a 09 09 09 2f 2a 20 54 68 65 _NONE:..../* The
20f0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 75 connection is u
2100: 70 2c 20 77 65 20 61 72 65 20 64 6f 6e 65 20 68 p, we are done h
2110: 65 72 65 20 2a 2f 0a 09 09 09 64 70 72 69 6e 74 ere */....dprint
2120: 66 28 22 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f f("The connectio
2130: 6e 20 69 73 20 75 70 22 29 3b 0a 09 09 09 62 72 n is up");....br
2140: 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
2150: 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 ERROR_ZERO_RETUR
2160: 4e 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 53 N:....dprintf("S
2170: 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 SL_ERROR_ZERO_RE
2180: 54 55 52 4e 3a 20 43 6f 6e 6e 65 63 74 20 72 65 TURN: Connect re
2190: 74 75 72 6e 65 64 20 61 6e 20 69 6e 76 61 6c 69 turned an invali
21a0: 64 20 76 61 6c 75 65 2e 2e 2e 22 29 0a 09 09 09 d value...")....
21b0: 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 09 63 61 return(-1);...ca
21c0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 se SSL_ERROR_SYS
21d0: 43 41 4c 4c 3a 0a 09 09 09 62 61 63 6b 69 6e 67 CALL:....backing
21e0: 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 74 5f Error = ERR_get_
21f0: 65 72 72 6f 72 28 29 3b 0a 0a 09 09 09 69 66 20 error();.....if
2200: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d (backingError ==
2210: 20 30 20 26 26 20 65 72 72 20 3d 3d 20 30 29 20 0 && err == 0)
2220: 7b 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 45 {.....dprintf("E
2230: 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 09 OF reached")....
2240: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
2250: 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 09 09 ECONNRESET;....
2260: 7d 20 65 6c 73 65 20 69 66 20 28 62 61 63 6b 69 } else if (backi
2270: 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 ngError == 0 &&
2280: 65 72 72 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 09 err == -1) {....
2290: 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 .dprintf("I/O er
22a0: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 ror occurred (er
22b0: 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e rno = %lu)", (un
22c0: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c signed long) Tcl
22d0: 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 _GetErrno());...
22e0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
22f0: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 = Tcl_GetErrno()
2300: 3b 0a 09 09 09 09 69 66 20 28 2a 65 72 72 6f 72 ;.....if (*error
2310: 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e CodePtr == ECONN
2320: 52 45 53 45 54 29 20 7b 0a 09 09 09 09 09 2a 65 RESET) {......*e
2330: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 rrorCodePtr = EC
2340: 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 09 ONNABORTED;.....
2350: 7d 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 }....} else {...
2360: 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 ..dprintf("I/O e
2370: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 62 rror occurred (b
2380: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c ackingError = %l
2390: 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f u)", backingErro
23a0: 72 29 3b 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f r);.....*errorCo
23b0: 64 65 50 74 72 20 3d 20 62 61 63 6b 69 6e 67 45 dePtr = backingE
23c0: 72 72 6f 72 3b 0a 09 09 09 09 69 66 20 28 2a 65 rror;.....if (*e
23d0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 rrorCodePtr == E
23e0: 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 09 CONNRESET) {....
23f0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2400: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
2410: 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 73 ....}....}.....s
2420: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
2430: 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 = TLS_TCL_HANDSH
2440: 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 0a 09 09 09 AKE_FAILED;.....
2450: 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 09 63 61 return(-1);...ca
2460: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c se SSL_ERROR_SSL
2470: 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 47 6f :....dprintf("Go
2480: 74 20 70 65 72 6d 61 6e 65 6e 74 20 66 61 74 61 t permanent fata
2490: 6c 20 53 53 4c 20 65 72 72 6f 72 2c 20 61 62 6f l SSL error, abo
24a0: 72 74 69 6e 67 20 69 6d 6d 65 64 69 61 74 65 6c rting immediatel
24b0: 79 22 29 3b 0a 09 09 09 54 6c 73 5f 45 72 72 6f y");....Tls_Erro
24c0: 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 68 61 r(statePtr, (cha
24d0: 72 20 2a 29 45 52 52 5f 72 65 61 73 6f 6e 5f 65 r *)ERR_reason_e
24e0: 72 72 6f 72 5f 73 74 72 69 6e 67 28 45 52 52 5f rror_string(ERR_
24f0: 67 65 74 5f 65 72 72 6f 72 28 29 29 29 3b 0a 09 get_error()));..
2500: 09 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2510: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e s |= TLS_TCL_HAN
2520: 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 DSHAKE_FAILED;..
2530: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2540: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
2550: 09 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 ...return(-1);..
2560: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
2570: 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 3a 0a 09 09 WANT_CONNECT:...
2580: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
2590: 41 4e 54 5f 41 43 43 45 50 54 3a 0a 09 09 63 61 ANT_ACCEPT:...ca
25a0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
25b0: 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 T_X509_LOOKUP:..
25c0: 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 64 70 72 .default:....dpr
25d0: 69 6e 74 66 28 22 57 65 20 67 6f 74 20 61 20 63 intf("We got a c
25e0: 6f 6e 66 75 73 69 6e 67 20 72 65 70 6c 79 3a 20 onfusing reply:
25f0: 25 69 22 2c 20 72 63 29 3b 0a 09 09 09 2a 65 72 %i", rc);....*er
2600: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
2610: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 09 _GetErrno();....
2620: 64 70 72 69 6e 74 66 28 22 45 52 52 28 25 64 2c dprintf("ERR(%d,
2630: 20 25 64 29 20 22 2c 20 72 63 2c 20 2a 65 72 72 %d) ", rc, *err
2640: 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 09 09 72 orCodePtr);....r
2650: 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 23 eturn(-1);..}..#
2660: 69 66 20 30 0a 09 69 66 20 28 73 74 61 74 65 50 if 0..if (stateP
2670: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
2680: 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a 09 09 TCL_SERVER) {...
2690: 64 70 72 69 6e 74 66 28 22 54 68 69 73 20 69 73 dprintf("This is
26a0: 20 61 6e 20 54 4c 53 20 73 65 72 76 65 72 2c 20 an TLS server,
26b0: 63 68 65 63 6b 69 6e 67 20 74 68 65 20 63 65 72 checking the cer
26c0: 74 69 66 69 63 61 74 65 20 66 6f 72 20 74 68 65 tificate for the
26d0: 20 70 65 65 72 22 29 3b 0a 0a 09 09 65 72 72 20 peer");....err
26e0: 3d 20 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 = SSL_get_verify
26f0: 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 _result(statePtr
2700: 2d 3e 73 73 6c 29 3b 0a 09 09 69 66 20 28 65 72 ->ssl);...if (er
2710: 72 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 r != X509_V_OK)
2720: 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 49 6e {....dprintf("In
2730: 76 61 6c 69 64 20 63 65 72 74 69 66 69 63 61 74 valid certificat
2740: 65 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 e, returning in
2750: 66 61 69 6c 75 72 65 22 29 3b 0a 0a 09 09 09 54 failure");.....T
2760: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2770: 72 2c 20 28 63 68 61 72 20 2a 29 58 35 30 39 5f r, (char *)X509_
2780: 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 72 6f verify_cert_erro
2790: 72 5f 73 74 72 69 6e 67 28 65 72 72 29 29 3b 0a r_string(err));.
27a0: 09 09 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 ...statePtr->fla
27b0: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 gs |= TLS_TCL_HA
27c0: 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a NDSHAKE_FAILED;.
27d0: 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
27e0: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b = ECONNABORTED;
27f0: 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a ....return(-1);.
2800: 09 09 7d 0a 09 7d 0a 23 65 6e 64 69 66 0a 0a 09 ..}..}.#endif...
2810: 64 70 72 69 6e 74 66 28 22 52 65 6d 6f 76 69 6e dprintf("Removin
2820: 67 20 74 68 65 20 5c 22 54 4c 53 5f 54 43 4c 5f g the \"TLS_TCL_
2830: 49 4e 49 54 5c 22 20 66 6c 61 67 20 73 69 6e 63 INIT\" flag sinc
2840: 65 20 77 65 20 68 61 76 65 20 63 6f 6d 70 6c 65 e we have comple
2850: 74 65 64 20 74 68 65 20 68 61 6e 64 73 68 61 6b ted the handshak
2860: 65 22 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e e");..statePtr->
2870: 66 6c 61 67 73 20 26 3d 20 7e 54 4c 53 5f 54 43 flags &= ~TLS_TC
2880: 4c 5f 49 4e 49 54 3b 0a 0a 09 64 70 72 69 6e 74 L_INIT;...dprint
2890: 66 28 22 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 f("Returning in
28a0: 73 75 63 63 65 73 73 22 29 3b 0a 09 2a 65 72 72 success");..*err
28b0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a orCodePtr = 0;..
28c0: 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f .return(0);.}../
28d0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
28e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2910: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
2920: 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a sInputProc --. *
2930: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 . *.This procedu
2940: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 re is invoked by
2950: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
2960: 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 level. * t
2970: 6f 20 72 65 61 64 20 69 6e 70 75 74 20 66 72 6f o read input fro
2980: 6d 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 m a SSL socket b
2990: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ased channel.. *
29a0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
29b0: 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 The number of by
29c0: 74 65 73 20 72 65 61 64 20 69 73 20 72 65 74 75 tes read is retu
29d0: 72 6e 65 64 20 6f 72 20 2d 31 20 6f 6e 20 65 72 rned or -1 on er
29e0: 72 6f 72 2e 20 41 6e 20 6f 75 74 70 75 74 0a 20 ror. An output.
29f0: 2a 09 61 72 67 75 6d 65 6e 74 20 63 6f 6e 74 61 *.argument conta
2a00: 69 6e 73 20 74 68 65 20 50 4f 53 49 58 20 65 72 ins the POSIX er
2a10: 72 6f 72 20 63 6f 64 65 20 6f 6e 20 65 72 72 6f ror code on erro
2a20: 72 2c 20 6f 72 20 7a 65 72 6f 20 69 66 20 6e 6f r, or zero if no
2a30: 0a 20 2a 09 65 72 72 6f 72 20 6f 63 63 75 72 72 . *.error occurr
2a40: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ed.. *. * Side e
2a50: 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 ffects:. *.Reads
2a60: 20 69 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 20 input from the
2a70: 69 6e 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 input device of
2a80: 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a the channel.. *.
2a90: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ad0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
2ae0: 63 20 69 6e 74 20 54 6c 73 49 6e 70 75 74 50 72 c int TlsInputPr
2af0: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
2b00: 73 74 61 6e 63 65 44 61 74 61 2c 20 63 68 61 72 stanceData, char
2b10: 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 53 69 *buf, int bufSi
2b20: 7a 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f ze, int *errorCo
2b30: 64 65 50 74 72 29 20 7b 0a 09 75 6e 73 69 67 6e dePtr) {..unsign
2b40: 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 ed long backingE
2b50: 72 72 6f 72 3b 0a 09 53 74 61 74 65 20 2a 73 74 rror;..State *st
2b60: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
2b70: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
2b80: 0a 09 69 6e 74 20 62 79 74 65 73 52 65 61 64 3b ..int bytesRead;
2b90: 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 74 ..int tlsConnect
2ba0: 3b 0a 09 69 6e 74 20 65 72 72 3b 0a 0a 09 2a 65 ;..int err;...*e
2bb0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
2bc0: 0a 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f 5f ...dprintf("BIO_
2bd0: 72 65 61 64 28 25 64 29 22 2c 20 62 75 66 53 69 read(%d)", bufSi
2be0: 7a 65 29 3b 0a 0a 09 69 66 20 28 73 74 61 74 65 ze);...if (state
2bf0: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
2c00: 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b _TCL_CALLBACK) {
2c10: 0a 09 09 2f 2a 20 64 6f 6e 27 74 20 70 72 6f 63 .../* don't proc
2c20: 65 73 73 20 61 6e 79 20 62 79 74 65 73 20 77 68 ess any bytes wh
2c30: 69 6c 65 20 76 65 72 69 66 79 20 63 61 6c 6c 62 ile verify callb
2c40: 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 20 2a ack is running *
2c50: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 43 61 6c /...dprintf("Cal
2c60: 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 lback is running
2c70: 2c 20 72 65 61 64 69 6e 67 20 30 20 62 79 74 65 , reading 0 byte
2c80: 73 22 29 3b 0a 09 09 72 65 74 75 72 6e 28 30 29 s");...return(0)
2c90: 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 ;..}...dprintf("
2ca0: 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 Calling Tls_Wait
2cb0: 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 09 74 ForConnect");..t
2cc0: 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 5f lsConnect = Tls_
2cd0: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 WaitForConnect(s
2ce0: 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f tatePtr, errorCo
2cf0: 64 65 50 74 72 2c 20 30 29 3b 0a 09 69 66 20 28 dePtr, 0);..if (
2d00: 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 tlsConnect < 0)
2d10: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 {...dprintf("Got
2d20: 20 61 6e 20 65 72 72 6f 72 20 77 61 69 74 69 6e an error waitin
2d30: 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 28 74 6c g to connect (tl
2d40: 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 2c 20 2a sConnect = %i, *
2d50: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 25 errorCodePtr = %
2d60: 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 2c i)", tlsConnect,
2d70: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b *errorCodePtr);
2d80: 0a 0a 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ....bytesRead =
2d90: 2d 31 3b 0a 09 09 69 66 20 28 2a 65 72 72 6f 72 -1;...if (*error
2da0: 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e CodePtr == ECONN
2db0: 52 45 53 45 54 29 20 7b 0a 09 09 09 64 70 72 69 RESET) {....dpri
2dc0: 6e 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 63 74 ntf("Got connect
2dd0: 69 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 09 09 ion reset");....
2de0: 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 /* Soft EOF */..
2df0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2e00: 3d 20 30 3b 0a 09 09 09 62 79 74 65 73 52 65 61 = 0;....bytesRea
2e10: 64 20 3d 20 30 3b 0a 09 09 7d 0a 0a 09 09 72 65 d = 0;...}....re
2e20: 74 75 72 6e 28 62 79 74 65 73 52 65 61 64 29 3b turn(bytesRead);
2e30: 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 57 65 20 ..}.../*.. * We
2e40: 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 20 74 68 need to clear th
2e50: 65 20 53 53 4c 20 65 72 72 6f 72 20 73 74 61 63 e SSL error stac
2e60: 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 20 77 65 k now because we
2e70: 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 61 63 68 sometimes reach
2e80: 0a 09 20 2a 20 74 68 69 73 20 66 75 6e 63 74 69 .. * this functi
2e90: 6f 6e 20 77 69 74 68 20 6c 65 66 74 6f 76 65 72 on with leftover
2ea0: 20 65 72 72 6f 72 73 20 69 6e 20 74 68 65 20 73 errors in the s
2eb0: 74 61 63 6b 2e 20 20 49 66 20 42 49 4f 5f 72 65 tack. If BIO_re
2ec0: 61 64 0a 09 20 2a 20 72 65 74 75 72 6e 73 20 2d ad.. * returns -
2ed0: 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 1 and intends EA
2ee0: 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 GAIN, there is a
2ef0: 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c leftover error,
2f00: 20 69 74 20 77 69 6c 6c 20 62 65 0a 09 20 2a 20 it will be.. *
2f10: 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 20 misconstrued as
2f20: 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 an error, not EA
2f30: 47 41 49 4e 2e 0a 09 20 2a 0a 09 20 2a 20 41 6c GAIN... *.. * Al
2f40: 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 77 65 20 ternatively, we
2f50: 6d 61 79 20 77 61 6e 74 20 74 6f 20 68 61 6e 64 may want to hand
2f60: 6c 65 20 74 68 65 20 3c 30 20 72 65 74 75 72 6e le the <0 return
2f70: 20 63 6f 64 65 73 20 66 72 6f 6d 0a 09 20 2a 20 codes from.. *
2f80: 42 49 4f 5f 72 65 61 64 20 73 70 65 63 69 61 6c BIO_read special
2f90: 6c 79 20 28 61 73 20 61 64 76 69 73 65 64 20 69 ly (as advised i
2fa0: 6e 20 74 68 65 20 52 53 41 20 64 6f 63 73 29 2e n the RSA docs).
2fb0: 20 20 54 4c 53 27 73 20 6c 6f 77 65 72 20 6c 65 TLS's lower le
2fc0: 76 65 6c 20 42 49 4f 0a 09 20 2a 20 66 75 6e 63 vel BIO.. * func
2fd0: 74 69 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 20 tions play with
2fe0: 74 68 65 20 72 65 74 72 79 20 66 6c 61 67 73 20 the retry flags
2ff0: 74 68 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 73 though, and this
3000: 20 73 65 65 6d 73 20 74 6f 20 77 6f 72 6b 0a 09 seems to work..
3010: 20 2a 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 * correctly. S
3020: 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 54 6c imilar fix in Tl
3030: 73 4f 75 74 70 75 74 50 72 6f 63 2e 20 2d 20 68 sOutputProc. - h
3040: 6f 62 62 73 0a 09 20 2a 2f 0a 09 45 52 52 5f 63 obbs.. */..ERR_c
3050: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 09 62 lear_error();..b
3060: 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f 5f 72 ytesRead = BIO_r
3070: 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ead(statePtr->bi
3080: 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a 65 29 o, buf, bufSize)
3090: 3b 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f 5f ;..dprintf("BIO_
30a0: 72 65 61 64 20 2d 3e 20 25 64 22 2c 20 62 79 74 read -> %d", byt
30b0: 65 73 52 65 61 64 29 3b 0a 0a 09 65 72 72 20 3d esRead);...err =
30c0: 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 SSL_get_error(s
30d0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 62 79 tatePtr->ssl, by
30e0: 74 65 73 52 65 61 64 29 3b 0a 0a 23 69 66 20 30 tesRead);..#if 0
30f0: 0a 09 69 66 20 28 62 79 74 65 73 52 65 61 64 20 ..if (bytesRead
3100: 3c 3d 20 30 29 20 7b 0a 09 09 69 66 20 28 42 49 <= 0) {...if (BI
3110: 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 O_should_retry(s
3120: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b tatePtr->bio)) {
3130: 0a 09 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f ....dprintf("I/O
3140: 20 66 61 69 6c 65 64 2c 20 77 69 6c 6c 20 72 65 failed, will re
3150: 74 72 79 20 62 61 73 65 64 20 6f 6e 20 45 41 47 try based on EAG
3160: 41 49 4e 22 29 3b 0a 09 09 09 2a 65 72 72 6f 72 AIN");....*error
3170: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
3180: 3b 0a 09 09 7d 0a 09 7d 0a 23 65 6e 64 69 66 0a ;...}..}.#endif.
3190: 0a 09 73 77 69 74 63 68 20 28 65 72 72 29 20 7b ..switch (err) {
31a0: 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
31b0: 52 5f 4e 4f 4e 45 3a 0a 09 09 09 64 70 72 69 6e R_NONE:....dprin
31c0: 74 42 75 66 66 65 72 28 62 75 66 2c 20 62 79 74 tBuffer(buf, byt
31d0: 65 73 52 65 61 64 29 3b 0a 09 09 09 62 72 65 61 esRead);....brea
31e0: 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
31f0: 52 4f 52 5f 53 53 4c 3a 0a 09 09 09 64 70 72 69 ROR_SSL:....dpri
3200: 6e 74 66 28 22 53 53 4c 20 6e 65 67 6f 74 69 61 ntf("SSL negotia
3210: 74 69 6f 6e 20 65 72 72 6f 72 2c 20 69 6e 64 69 tion error, indi
3220: 63 61 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 cating that the
3230: 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 connection has b
3240: 65 65 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 0a een aborted");..
3250: 09 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
3260: 74 65 50 74 72 2c 20 54 43 4c 54 4c 53 5f 53 53 tePtr, TCLTLS_SS
3270: 4c 5f 45 52 52 4f 52 28 73 74 61 74 65 50 74 72 L_ERROR(statePtr
3280: 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61 64 ->ssl, bytesRead
3290: 29 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 ));....*errorCod
32a0: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 ePtr = ECONNABOR
32b0: 54 45 44 3b 0a 09 09 09 62 79 74 65 73 52 65 61 TED;....bytesRea
32c0: 64 20 3d 20 2d 31 3b 0a 0a 09 09 09 62 72 65 61 d = -1;.....brea
32d0: 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
32e0: 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 09 09 ROR_SYSCALL:....
32f0: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 45 backingError = E
3300: 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a RR_get_error();.
3310: 0a 09 09 09 69 66 20 28 62 61 63 6b 69 6e 67 45 ....if (backingE
3320: 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 62 79 74 rror == 0 && byt
3330: 65 73 52 65 61 64 20 3d 3d 20 30 29 20 7b 0a 09 esRead == 0) {..
3340: 09 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 20 ...dprintf("EOF
3350: 72 65 61 63 68 65 64 22 29 0a 09 09 09 09 2a 65 reached").....*e
3360: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
3370: 0a 09 09 09 09 62 79 74 65 73 52 65 61 64 20 3d .....bytesRead =
3380: 20 30 3b 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 0;....} else if
3390: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d (backingError =
33a0: 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 = 0 && bytesRead
33b0: 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 09 09 64 70 == -1) {.....dp
33c0: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
33d0: 20 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f occurred (errno
33e0: 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 = %lu)", (unsig
33f0: 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 ned long) Tcl_Ge
3400: 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 09 09 2a tErrno());.....*
3410: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 errorCodePtr = T
3420: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 cl_GetErrno();..
3430: 09 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d ...bytesRead = -
3440: 31 3b 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 1;....} else {..
3450: 09 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 ...dprintf("I/O
3460: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 error occurred (
3470: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 backingError = %
3480: 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 lu)", backingErr
3490: 6f 72 29 3b 0a 09 09 09 09 2a 65 72 72 6f 72 43 or);.....*errorC
34a0: 6f 64 65 50 74 72 20 3d 20 62 61 63 6b 69 6e 67 odePtr = backing
34b0: 45 72 72 6f 72 3b 0a 09 09 09 09 62 79 74 65 73 Error;.....bytes
34c0: 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 09 7d 0a Read = -1;....}.
34d0: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 ....break;...cas
34e0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f e SSL_ERROR_ZERO
34f0: 5f 52 45 54 55 52 4e 3a 0a 09 09 09 64 70 72 69 _RETURN:....dpri
3500: 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 ntf("Got SSL_ERR
3510: 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 2c 20 OR_ZERO_RETURN,
3520: 74 68 69 73 20 6d 65 61 6e 73 20 61 6e 20 45 4f this means an EO
3530: 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 63 68 F has been reach
3540: 65 64 22 29 3b 0a 09 09 09 62 79 74 65 73 52 65 ed");....bytesRe
3550: 61 64 20 3d 20 30 3b 0a 09 09 09 2a 65 72 72 6f ad = 0;....*erro
3560: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 rCodePtr = 0;...
3570: 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 .break;...case S
3580: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
3590: 41 44 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 AD:....dprintf("
35a0: 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 Got SSL_ERROR_WA
35b0: 4e 54 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e 67 NT_READ, mapping
35c0: 20 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22 this to EAGAIN"
35d0: 29 3b 0a 09 09 09 62 79 74 65 73 52 65 61 64 20 );....bytesRead
35e0: 3d 20 2d 31 3b 0a 09 09 09 2a 65 72 72 6f 72 43 = -1;....*errorC
35f0: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
3600: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 64 65 66 ....break;...def
3610: 61 75 6c 74 3a 0a 09 09 09 64 70 72 69 6e 74 66 ault:....dprintf
3620: 28 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 20 ("Unknown error
3630: 28 65 72 72 20 3d 20 25 69 29 2c 20 6d 61 70 70 (err = %i), mapp
3640: 69 6e 67 20 74 6f 20 45 4f 46 22 2c 20 65 72 72 ing to EOF", err
3650: 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 );....*errorCode
3660: 50 74 72 20 3d 20 30 3b 0a 09 09 09 62 79 74 65 Ptr = 0;....byte
3670: 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 09 62 72 sRead = 0;....br
3680: 65 61 6b 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 eak;..}...dprint
3690: 66 28 22 49 6e 70 75 74 28 25 64 29 20 2d 3e 20 f("Input(%d) ->
36a0: 25 64 20 5b 25 64 5d 22 2c 20 62 75 66 53 69 7a %d [%d]", bufSiz
36b0: 65 2c 20 62 79 74 65 73 52 65 61 64 2c 20 2a 65 e, bytesRead, *e
36c0: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 72 rrorCodePtr);..r
36d0: 65 74 75 72 6e 28 62 79 74 65 73 52 65 61 64 29 eturn(bytesRead)
36e0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3730: 0a 20 2a 20 54 6c 73 4f 75 74 70 75 74 50 72 6f . * TlsOutputPro
3740: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 c --. *. *.This
3750: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
3760: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 oked by the gene
3770: 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 ric IO level. *
3780: 20 20 20 20 20 20 74 6f 20 77 72 69 74 65 20 6f to write o
3790: 75 74 70 75 74 20 74 6f 20 61 20 53 53 4c 20 73 utput to a SSL s
37a0: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
37b0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
37c0: 74 73 3a 0a 20 2a 09 54 68 65 20 6e 75 6d 62 65 ts:. *.The numbe
37d0: 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 74 74 r of bytes writt
37e0: 65 6e 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 en is returned.
37f0: 41 6e 20 6f 75 74 70 75 74 20 61 72 67 75 6d 65 An output argume
3800: 6e 74 20 69 73 0a 20 2a 09 73 65 74 20 74 6f 20 nt is. *.set to
3810: 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f a POSIX error co
3820: 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f de if an error o
3830: 63 63 75 72 72 65 64 2c 20 6f 72 20 7a 65 72 6f ccurred, or zero
3840: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
3850: 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 ects:. *.Writes
3860: 6f 75 74 70 75 74 20 6f 6e 20 74 68 65 20 6f 75 output on the ou
3870: 74 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 74 tput device of t
3880: 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 he channel.. *.
3890: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
38a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38d0: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
38e0: 20 69 6e 74 20 54 6c 73 4f 75 74 70 75 74 50 72 int TlsOutputPr
38f0: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
3900: 73 74 61 6e 63 65 44 61 74 61 2c 20 43 4f 4e 53 stanceData, CONS
3910: 54 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 T char *buf, int
3920: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 toWrite, int *e
3930: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 09 rrorCodePtr) {..
3940: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 62 61 unsigned long ba
3950: 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 09 53 74 61 ckingError;..Sta
3960: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
3970: 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 State *) instanc
3980: 65 44 61 74 61 3b 0a 09 69 6e 74 20 77 72 69 74 eData;..int writ
3990: 74 65 6e 2c 20 65 72 72 3b 0a 09 69 6e 74 20 74 ten, err;..int t
39a0: 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 09 2a 65 72 lsConnect;...*er
39b0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
39c0: 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 ..dprintf("BIO_w
39d0: 72 69 74 65 28 25 70 2c 20 25 64 29 22 2c 20 28 rite(%p, %d)", (
39e0: 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 void *) statePtr
39f0: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 09 64 70 72 , toWrite);..dpr
3a00: 69 6e 74 42 75 66 66 65 72 28 62 75 66 2c 20 74 intBuffer(buf, t
3a10: 6f 57 72 69 74 65 29 3b 0a 0a 09 69 66 20 28 73 oWrite);...if (s
3a20: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
3a30: 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 TLS_TCL_CALLBAC
3a40: 4b 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 K) {...dprintf("
3a50: 44 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 6f 75 Don't process ou
3a60: 74 70 75 74 20 77 68 69 6c 65 20 63 61 6c 6c 62 tput while callb
3a70: 61 63 6b 73 20 61 72 65 20 72 75 6e 6e 69 6e 67 acks are running
3a80: 22 29 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d ")...written = -
3a90: 31 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 1;...*errorCodeP
3aa0: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 72 tr = EAGAIN;...r
3ab0: 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 eturn(-1);..}...
3ac0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 dprintf("Calling
3ad0: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
3ae0: 65 63 74 22 29 3b 0a 09 74 6c 73 43 6f 6e 6e 65 ect");..tlsConne
3af0: 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 ct = Tls_WaitFor
3b00: 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 Connect(statePtr
3b10: 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 , errorCodePtr,
3b20: 31 29 3b 0a 09 69 66 20 28 74 6c 73 43 6f 6e 6e 1);..if (tlsConn
3b30: 65 63 74 20 3c 20 30 29 20 7b 0a 09 09 64 70 72 ect < 0) {...dpr
3b40: 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 intf("Got an err
3b50: 6f 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f or waiting to co
3b60: 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 nnect (tlsConnec
3b70: 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f t = %i, *errorCo
3b80: 64 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c dePtr = %i)", tl
3b90: 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 sConnect, *error
3ba0: 43 6f 64 65 50 74 72 29 3b 0a 0a 09 09 77 72 69 CodePtr);....wri
3bb0: 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 69 66 20 tten = -1;...if
3bc0: 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d (*errorCodePtr =
3bd0: 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a = ECONNRESET) {.
3be0: 09 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
3bf0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 connection reset
3c00: 22 29 3b 0a 09 09 09 2f 2a 20 53 6f 66 74 20 45 ");..../* Soft E
3c10: 4f 46 20 2a 2f 0a 09 09 09 2a 65 72 72 6f 72 43 OF */....*errorC
3c20: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 09 77 odePtr = 0;....w
3c30: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 7d 0a ritten = 0;...}.
3c40: 0a 09 09 72 65 74 75 72 6e 28 77 72 69 74 74 65 ...return(writte
3c50: 6e 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 74 6f 57 n);..}...if (toW
3c60: 72 69 74 65 20 3d 3d 20 30 29 20 7b 0a 09 09 64 rite == 0) {...d
3c70: 70 72 69 6e 74 66 28 22 7a 65 72 6f 2d 77 72 69 printf("zero-wri
3c80: 74 65 22 29 3b 0a 09 09 65 72 72 20 3d 20 42 49 te");...err = BI
3c90: 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 O_flush(statePtr
3ca0: 2d 3e 62 69 6f 29 3b 0a 0a 09 09 69 66 20 28 65 ->bio);....if (e
3cb0: 72 72 20 3c 3d 20 30 29 20 7b 0a 09 09 09 64 70 rr <= 0) {....dp
3cc0: 72 69 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 20 rintf("Flushing
3cd0: 66 61 69 6c 65 64 22 29 3b 0a 0a 09 09 09 2a 65 failed");.....*e
3ce0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 rrorCodePtr = EI
3cf0: 4f 3b 0a 09 09 09 77 72 69 74 74 65 6e 20 3d 20 O;....written =
3d00: 30 3b 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 29 0;....return(-1)
3d10: 3b 0a 09 09 7d 0a 0a 09 09 77 72 69 74 74 65 6e ;...}....written
3d20: 20 3d 20 30 3b 0a 09 09 2a 65 72 72 6f 72 43 6f = 0;...*errorCo
3d30: 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 72 65 74 dePtr = 0;...ret
3d40: 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a urn(0);..}.../*.
3d50: 09 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 . * We need to c
3d60: 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 lear the SSL err
3d70: 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 or stack now bec
3d80: 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 ause we sometime
3d90: 73 20 72 65 61 63 68 0a 09 20 2a 20 74 68 69 73 s reach.. * this
3da0: 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c function with l
3db0: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 eftover errors i
3dc0: 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 n the stack. If
3dd0: 20 42 49 4f 5f 77 72 69 74 65 0a 09 20 2a 20 72 BIO_write.. * r
3de0: 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 6e eturns -1 and in
3df0: 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 68 tends EAGAIN, th
3e00: 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f 76 65 ere is a leftove
3e10: 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 6c 6c r error, it will
3e20: 20 62 65 0a 09 20 2a 20 6d 69 73 63 6f 6e 73 74 be.. * misconst
3e30: 72 75 65 64 20 61 73 20 61 6e 20 65 72 72 6f 72 rued as an error
3e40: 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a 09 20 , not EAGAIN...
3e50: 2a 0a 09 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 *.. * Alternativ
3e60: 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 ely, we may want
3e70: 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c to handle the <
3e80: 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 0 return codes f
3e90: 72 6f 6d 0a 09 20 2a 20 42 49 4f 5f 77 72 69 74 rom.. * BIO_writ
3ea0: 65 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 e specially (as
3eb0: 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 advised in the R
3ec0: 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 SA docs). TLS's
3ed0: 20 6c 6f 77 65 72 20 6c 65 76 65 6c 0a 09 20 2a lower level.. *
3ee0: 20 42 49 4f 20 66 75 6e 63 74 69 6f 6e 73 20 70 BIO functions p
3ef0: 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 65 74 lay with the ret
3f00: 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 2c ry flags though,
3f10: 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 20 and this seems
3f20: 74 6f 0a 09 20 2a 20 77 6f 72 6b 20 63 6f 72 72 to.. * work corr
3f30: 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61 72 20 ectly. Similar
3f40: 66 69 78 20 69 6e 20 54 6c 73 49 6e 70 75 74 50 fix in TlsInputP
3f50: 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a 09 20 2a roc. - hobbs.. *
3f60: 2f 0a 09 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 /..ERR_clear_err
3f70: 6f 72 28 29 3b 0a 09 77 72 69 74 74 65 6e 20 3d or();..written =
3f80: 20 42 49 4f 5f 77 72 69 74 65 28 73 74 61 74 65 BIO_write(state
3f90: 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 74 Ptr->bio, buf, t
3fa0: 6f 57 72 69 74 65 29 3b 0a 09 64 70 72 69 6e 74 oWrite);..dprint
3fb0: 66 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c f("BIO_write(%p,
3fc0: 20 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 20 28 %d) -> [%d]", (
3fd0: 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 void *) statePtr
3fe0: 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 , toWrite, writt
3ff0: 65 6e 29 3b 0a 0a 09 65 72 72 20 3d 20 53 53 4c en);...err = SSL
4000: 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 _get_error(state
4010: 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 65 Ptr->ssl, writte
4020: 6e 29 3b 0a 09 73 77 69 74 63 68 20 28 65 72 72 n);..switch (err
4030: 29 20 7b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 ) {...case SSL_E
4040: 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 09 09 69 66 RROR_NONE:....if
4050: 20 28 77 72 69 74 74 65 6e 20 3c 20 30 29 20 7b (written < 0) {
4060: 0a 09 09 09 09 77 72 69 74 74 65 6e 20 3d 20 30 .....written = 0
4070: 3b 0a 09 09 09 7d 0a 09 09 09 62 72 65 61 6b 3b ;....}....break;
4080: 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
4090: 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 09 R_WANT_WRITE:...
40a0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 .dprintf("Got SS
40b0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 L_ERROR_WANT_WRI
40c0: 54 45 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 TE, mapping it t
40d0: 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 09 09 2a o EAGAIN");....*
40e0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
40f0: 41 47 41 49 4e 3b 0a 09 09 09 77 72 69 74 74 65 AGAIN;....writte
4100: 6e 20 3d 20 2d 31 3b 0a 09 09 09 62 72 65 61 6b n = -1;....break
4110: 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
4120: 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 09 OR_WANT_READ:...
4130: 09 64 70 72 69 6e 74 66 28 22 20 77 72 69 74 65 .dprintf(" write
4140: 20 52 20 42 4c 4f 43 4b 22 29 3b 0a 09 09 09 62 R BLOCK");....b
4150: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c reak;...case SSL
4160: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 _ERROR_WANT_X509
4170: 5f 4c 4f 4f 4b 55 50 3a 0a 09 09 09 64 70 72 69 _LOOKUP:....dpri
4180: 6e 74 66 28 22 20 77 72 69 74 65 20 58 20 42 4c ntf(" write X BL
4190: 4f 43 4b 22 29 3b 0a 09 09 09 62 72 65 61 6b 3b OCK");....break;
41a0: 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
41b0: 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 R_ZERO_RETURN:..
41c0: 09 09 64 70 72 69 6e 74 66 28 22 20 63 6c 6f 73 ..dprintf(" clos
41d0: 65 64 22 29 3b 0a 09 09 09 77 72 69 74 74 65 6e ed");....written
41e0: 20 3d 20 30 3b 0a 09 09 09 2a 65 72 72 6f 72 43 = 0;....*errorC
41f0: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 09 62 odePtr = 0;....b
4200: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c reak;...case SSL
4210: 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a _ERROR_SYSCALL:.
4220: 09 09 09 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 ...backingError
4230: 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 = ERR_get_error(
4240: 29 3b 0a 0a 09 09 09 69 66 20 28 62 61 63 6b 69 );.....if (backi
4250: 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 ngError == 0 &&
4260: 77 72 69 74 74 65 6e 20 3d 3d 20 30 29 20 7b 0a written == 0) {.
4270: 09 09 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 ....dprintf("EOF
4280: 20 72 65 61 63 68 65 64 22 29 0a 09 09 09 09 2a reached").....*
4290: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
42a0: 3b 0a 09 09 09 09 77 72 69 74 74 65 6e 20 3d 20 ;.....written =
42b0: 30 3b 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 20 0;....} else if
42c0: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d (backingError ==
42d0: 20 30 20 26 26 20 77 72 69 74 74 65 6e 20 3d 3d 0 && written ==
42e0: 20 2d 31 29 20 7b 0a 09 09 09 09 64 70 72 69 6e -1) {.....dprin
42f0: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tf("I/O error oc
4300: 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 curred (errno =
4310: 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 %lu)", (unsigned
4320: 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 long) Tcl_GetEr
4330: 72 6e 6f 28 29 29 3b 0a 09 09 09 09 2a 65 72 72 rno());.....*err
4340: 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f orCodePtr = Tcl_
4350: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 09 09 GetErrno();.....
4360: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 written = -1;...
4370: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 64 70 .} else {.....dp
4380: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
4390: 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 occurred (backi
43a0: 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c ngError = %lu)",
43b0: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a backingError);.
43c0: 09 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ....*errorCodePt
43d0: 72 20 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 r = backingError
43e0: 3b 0a 09 09 09 09 77 72 69 74 74 65 6e 20 3d 20 ;.....written =
43f0: 2d 31 3b 0a 09 09 09 7d 0a 0a 09 09 09 62 72 65 -1;....}.....bre
4400: 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
4410: 52 52 4f 52 5f 53 53 4c 3a 0a 09 09 09 54 6c 73 RROR_SSL:....Tls
4420: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
4430: 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 45 52 52 4f TCLTLS_SSL_ERRO
4440: 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c R(statePtr->ssl,
4450: 20 77 72 69 74 74 65 6e 29 29 3b 0a 09 09 09 2a written));....*
4460: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
4470: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 CONNABORTED;....
4480: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 written = -1;...
4490: 09 62 72 65 61 6b 3b 0a 09 09 64 65 66 61 75 6c .break;...defaul
44a0: 74 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 20 t:....dprintf("
44b0: 75 6e 6b 6e 6f 77 6e 20 65 72 72 3a 20 25 64 22 unknown err: %d"
44c0: 2c 20 65 72 72 29 3b 0a 09 09 09 62 72 65 61 6b , err);....break
44d0: 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 ;..}...dprintf("
44e0: 4f 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25 64 Output(%d) -> %d
44f0: 22 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 ", toWrite, writ
4500: 74 65 6e 29 3b 0a 09 72 65 74 75 72 6e 28 77 72 ten);..return(wr
4510: 69 74 74 65 6e 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a itten);.}../*. *
4520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4560: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 53 65 74 ---. *. * TlsSet
4570: 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a OptionProc --. *
4580: 0a 20 2a 09 53 65 74 73 20 61 6e 20 6f 70 74 69 . *.Sets an opti
4590: 6f 6e 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 on value for a S
45a0: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
45b0: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 channel.. *. * R
45c0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
45d0: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
45e0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
45f0: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
4600: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4640: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
4650: 69 63 20 69 6e 74 0a 54 6c 73 53 65 74 4f 70 74 ic int.TlsSetOpt
4660: 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ionProc(ClientDa
4670: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
4680: 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 ./* Socket state
4690: 2e 20 2a 2f 0a 09 54 63 6c 5f 49 6e 74 65 72 70 . */..Tcl_Interp
46a0: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
46b0: 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 r errors - can b
46c0: 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 09 43 4f 4e 53 e NULL. */..CONS
46d0: 54 38 34 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e T84 char *option
46e0: 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 Name,./* Name of
46f0: 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 0a 09 the option to..
4700: 09 09 09 09 20 2a 20 73 65 74 20 74 68 65 20 76 .... * set the v
4710: 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 09 09 09 alue for, or....
4720: 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 74 .. * NULL to get
4730: 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2e 20 2a 2f all options. */
4740: 0a 09 43 4f 4e 53 54 38 34 20 63 68 61 72 20 2a ..CONST84 char *
4750: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 optionValue)./*
4760: 56 61 6c 75 65 20 66 6f 72 20 6f 70 74 69 6f 6e Value for option
4770: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 . */.{. State
4780: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
4790: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
47a0: 61 74 61 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 68 ata;.. Tcl_Ch
47b0: 61 6e 6e 65 6c 20 64 6f 77 6e 43 68 61 6e 20 3d annel downChan =
47c0: 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 Tls_GetParent(s
47d0: 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c tatePtr, TLS_TCL
47e0: 5f 46 41 53 54 50 41 54 48 29 3b 0a 20 20 20 20 _FASTPATH);.
47f0: 54 63 6c 5f 44 72 69 76 65 72 53 65 74 4f 70 74 Tcl_DriverSetOpt
4800: 69 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 74 69 ionProc *setOpti
4810: 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 73 65 74 onProc;.. set
4820: 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c OptionProc = Tcl
4830: 5f 43 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f _ChannelSetOptio
4840: 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 nProc(Tcl_GetCha
4850: 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 nnelType(downCha
4860: 6e 29 29 3b 0a 20 20 20 20 69 66 20 28 73 65 74 n));. if (set
4870: 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 OptionProc != NU
4880: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a LL) {..return (*
4890: 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 setOptionProc)(T
48a0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
48b0: 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 tanceData(downCh
48c0: 61 6e 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 an), interp, opt
48d0: 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 ionName, optionV
48e0: 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 alue);. } els
48f0: 65 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 e if (optionName
4900: 20 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c == (char*) NULL
4910: 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 71 75 ) {../*.. * Requ
4920: 65 73 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 est is query for
4930: 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 all options, th
4940: 69 73 20 69 73 20 6f 6b 2e 0a 09 20 2a 2f 0a 09 is is ok... */..
4950: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 return TCL_OK;.
4960: 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 }. /*.
4970: 20 2a 20 52 65 71 75 65 73 74 20 66 6f 72 20 61 * Request for a
4980: 20 73 70 65 63 69 66 69 63 20 6f 70 74 69 6f 6e specific option
4990: 20 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 65 has to fail, we
49a0: 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 2e don't have any.
49b0: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 . */. ret
49c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d urn TCL_ERROR;.}
49d0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
49e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
4a20: 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f TlsGetOptionPro
4a30: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 6f 6d 70 75 c --. *. *.Compu
4a40: 74 65 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 61 tes an option va
4a50: 6c 75 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f lue for a SSL so
4a60: 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e cket based chann
4a70: 65 6c 2c 20 6f 72 20 61 0a 20 2a 09 6c 69 73 74 el, or a. *.list
4a80: 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 of all options
4a90: 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 and their values
4aa0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
4ab0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
4ac0: 63 6c 20 72 65 73 75 6c 74 2e 20 54 68 65 20 76 cl result. The v
4ad0: 61 6c 75 65 20 6f 66 20 74 68 65 20 73 70 65 63 alue of the spec
4ae0: 69 66 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 20 ified option or
4af0: 61 0a 20 2a 09 6c 69 73 74 20 6f 66 20 61 6c 6c a. *.list of all
4b00: 20 6f 70 74 69 6f 6e 73 20 61 6e 64 09 74 68 65 options and.the
4b10: 69 72 20 76 61 6c 75 65 73 20 69 73 20 72 65 74 ir values is ret
4b20: 75 72 6e 65 64 20 69 6e 20 74 68 65 0a 20 2a 09 urned in the. *.
4b30: 73 75 70 70 6c 69 65 64 20 44 53 74 72 69 6e 67 supplied DString
4b40: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
4b50: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
4b60: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ba0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
4bb0: 69 63 20 69 6e 74 0a 54 6c 73 47 65 74 4f 70 74 ic int.TlsGetOpt
4bc0: 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ionProc(ClientDa
4bd0: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
4be0: 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 ./* Socket state
4bf0: 2e 20 2a 2f 0a 09 54 63 6c 5f 49 6e 74 65 72 70 . */..Tcl_Interp
4c00: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
4c10: 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 r errors - can b
4c20: 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 09 43 4f 4e 53 e NULL. */..CONS
4c30: 54 38 34 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e T84 char *option
4c40: 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 Name,./* Name of
4c50: 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 0a 09 the option to..
4c60: 09 09 09 09 20 2a 20 72 65 74 72 69 65 76 65 20 .... * retrieve
4c70: 74 68 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f the value for, o
4c80: 72 0a 09 09 09 09 09 20 2a 20 4e 55 4c 4c 20 74 r...... * NULL t
4c90: 6f 20 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e o get all option
4ca0: 73 20 61 6e 64 0a 09 09 09 09 09 20 2a 20 74 68 s and...... * th
4cb0: 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 09 eir values. */..
4cc0: 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 64 73 50 Tcl_DString *dsP
4cd0: 74 72 29 09 09 2f 2a 20 57 68 65 72 65 20 74 6f tr)../* Where to
4ce0: 20 73 74 6f 72 65 20 74 68 65 20 63 6f 6d 70 75 store the compu
4cf0: 74 65 64 20 76 61 6c 75 65 0a 09 09 09 09 09 20 ted value......
4d00: 2a 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 * initialized by
4d10: 20 63 61 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 caller. */.{.
4d20: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
4d30: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
4d40: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 stanceData;..
4d50: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f 77 Tcl_Channel dow
4d60: 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 nChan = Tls_GetP
4d70: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 arent(statePtr,
4d80: 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 TLS_TCL_FASTPATH
4d90: 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 );. Tcl_Drive
4da0: 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a rGetOptionProc *
4db0: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a getOptionProc;..
4dc0: 20 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f getOptionPro
4dd0: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 c = Tcl_ChannelG
4de0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c etOptionProc(Tcl
4df0: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
4e00: 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 20 20 20 downChan));.
4e10: 69 66 20 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f if (getOptionPro
4e20: 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 c != NULL) {.
4e30: 20 20 20 20 20 72 65 74 75 72 6e 20 28 2a 67 65 return (*ge
4e40: 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c tOptionProc)(Tcl
4e50: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
4e60: 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 6e nceData(downChan
4e70: 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f ), interp, optio
4e80: 6e 4e 61 6d 65 2c 20 64 73 50 74 72 29 3b 0a 20 nName, dsPtr);.
4e90: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 } else if (op
4ea0: 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 tionName == (cha
4eb0: 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 r*) NULL) {.
4ec0: 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 20 20 20 /*.
4ed0: 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 75 65 * Request is que
4ee0: 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f ry for all optio
4ef0: 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 0a ns, this is ok..
4f00: 20 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 */.
4f10: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f return TCL_
4f20: 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a OK;. }. /*
4f30: 0a 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 . * Request
4f40: 66 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 6f for a specific o
4f50: 70 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 ption has to fai
4f60: 6c 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 l, we don't have
4f70: 20 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 any.. */.
4f80: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
4f90: 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OR;.}../*. *----
4fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4fe0: 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 68 50 72 *. * TlsWatchPr
4ff0: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 oc --. *. *.Init
5000: 69 61 6c 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 ialize the notif
5010: 69 65 72 20 74 6f 20 77 61 74 63 68 20 54 63 6c ier to watch Tcl
5020: 5f 46 69 6c 65 73 20 66 72 6f 6d 20 74 68 69 73 _Files from this
5030: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
5040: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 Results:. *.None
5050: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
5060: 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 75 70 ects:. *.Sets up
5070: 20 74 68 65 20 6e 6f 74 69 66 69 65 72 20 73 6f the notifier so
5080: 20 74 68 61 74 20 61 20 66 75 74 75 72 65 20 65 that a future e
5090: 76 65 6e 74 20 6f 6e 20 74 68 65 20 63 68 61 6e vent on the chan
50a0: 6e 65 6c 0a 20 2a 09 77 69 6c 6c 20 62 65 20 73 nel. *.will be s
50b0: 65 65 6e 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 een by Tcl.. *.
50c0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
50d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5100: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
5110: 20 76 6f 69 64 0a 54 6c 73 57 61 74 63 68 50 72 void.TlsWatchPr
5120: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
5130: 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 54 stanceData,./* T
5140: 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e he socket state.
5150: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 */.
5160: 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 2f 2a 20 int mask).../*
5170: 45 76 65 6e 74 73 20 6f 66 20 69 6e 74 65 72 65 Events of intere
5180: 73 74 3b 20 61 6e 20 4f 52 2d 65 64 0a 20 20 20 st; an OR-ed.
5190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
51a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
51b0: 20 20 20 20 20 20 2a 20 63 6f 6d 62 69 6e 61 74 * combinat
51c0: 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 ion of TCL_READA
51d0: 42 4c 45 2c 0a 20 20 20 20 20 20 20 20 20 20 20 BLE,.
51e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
51f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 *
5200: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 TCL_WRITABLE and
5210: 20 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 2e 20 TCL_EXCEPTION.
5220: 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 */.{. Tcl_Cha
5230: 6e 6e 65 6c 20 20 20 20 20 64 6f 77 6e 43 68 61 nnel downCha
5240: 6e 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 n;. State *st
5250: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
5260: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
5270: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 .. dprintf("T
5280: 6c 73 57 61 74 63 68 50 72 6f 63 28 30 78 25 78 lsWatchProc(0x%x
5290: 29 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 )", mask);..
52a0: 2f 2a 20 50 72 65 74 65 6e 64 20 74 6f 20 62 65 /* Pretend to be
52b0: 20 64 65 61 64 20 61 73 20 6c 6f 6e 67 20 61 73 dead as long as
52c0: 20 74 68 65 20 76 65 72 69 66 79 20 63 61 6c 6c the verify call
52d0: 62 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 2e back is running.
52e0: 20 0a 20 20 20 20 20 2a 20 4f 74 68 65 72 77 69 . * Otherwi
52f0: 73 65 20 74 68 61 74 20 63 61 6c 6c 62 61 63 6b se that callback
5300: 20 63 6f 75 6c 64 20 62 65 20 69 6e 76 6f 6b 65 could be invoke
5310: 64 20 72 65 63 75 72 73 69 76 65 6c 79 2e 20 2a d recursively. *
5320: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
5330: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
5340: 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a TCL_CALLBACK) {.
5350: 20 20 20 20 20 20 20 20 64 70 72 69 6e 74 66 28 dprintf(
5360: 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 6f 6e 2d "Callback is on-
5370: 67 6f 69 6e 67 2c 20 64 6f 69 6e 67 20 6e 6f 74 going, doing not
5380: 68 69 6e 67 22 29 3b 0a 20 20 20 20 20 20 20 20 hing");.
5390: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 return;. }..
53a0: 20 20 20 64 70 72 69 6e 74 46 6c 61 67 73 28 73 dprintFlags(s
53b0: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 64 tatePtr);.. d
53c0: 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 ownChan = Tls_Ge
53d0: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 tParent(statePtr
53e0: 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 , TLS_TCL_FASTPA
53f0: 54 48 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 TH);.. if (st
5400: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
5410: 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b TLS_TCL_HANDSHAK
5420: 45 5f 46 41 49 4c 45 44 29 20 7b 0a 20 20 20 20 E_FAILED) {.
5430: 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b dprintf("Ask
5440: 65 64 20 74 6f 20 77 61 74 63 68 20 61 20 73 6f ed to watch a so
5450: 63 6b 65 74 20 77 69 74 68 20 61 20 66 61 69 6c cket with a fail
5460: 65 64 20 68 61 6e 64 73 68 61 6b 65 20 2d 2d 20 ed handshake --
5470: 6e 6f 74 68 69 6e 67 20 63 61 6e 20 68 61 70 70 nothing can happ
5480: 65 6e 20 68 65 72 65 22 29 3b 0a 0a 09 64 70 72 en here");...dpr
5490: 69 6e 74 66 28 22 55 6e 72 65 67 69 73 74 65 72 intf("Unregister
54a0: 69 6e 67 20 69 6e 74 65 72 65 73 74 20 69 6e 20 ing interest in
54b0: 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 the lower channe
54c0: 6c 22 29 3b 0a 09 28 54 63 6c 5f 47 65 74 43 68 l");..(Tcl_GetCh
54d0: 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 annelType(downCh
54e0: 61 6e 29 29 2d 3e 77 61 74 63 68 50 72 6f 63 28 an))->watchProc(
54f0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
5500: 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 stanceData(downC
5510: 68 61 6e 29 2c 20 30 29 3b 0a 0a 09 73 74 61 74 han), 0);...stat
5520: 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 ePtr->watchMask
5530: 3d 20 30 3b 0a 0a 20 20 20 20 20 20 20 20 72 65 = 0;.. re
5540: 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 turn;. }..
5550: 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 statePtr->watch
5560: 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 Mask = mask;..
5570: 20 20 2f 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c 20 /* No channel
5580: 68 61 6e 64 6c 65 72 73 20 61 6e 79 20 6d 6f 72 handlers any mor
5590: 65 2e 20 57 65 20 77 69 6c 6c 20 62 65 20 6e 6f e. We will be no
55a0: 74 69 66 69 65 64 20 61 75 74 6f 6d 61 74 69 63 tified automatic
55b0: 61 6c 6c 79 0a 20 20 20 20 20 2a 20 61 62 6f 75 ally. * abou
55c0: 74 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 t events on the
55d0: 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 76 69 channel below vi
55e0: 61 20 61 20 63 61 6c 6c 20 74 6f 20 6f 75 72 0a a a call to our.
55f0: 20 20 20 20 20 2a 20 27 54 72 61 6e 73 66 6f 72 * 'Transfor
5600: 6d 4e 6f 74 69 66 79 50 72 6f 63 27 2e 20 42 75 mNotifyProc'. Bu
5610: 74 20 77 65 20 68 61 76 65 20 74 6f 20 70 61 73 t we have to pas
5620: 73 20 74 68 65 20 69 6e 74 65 72 65 73 74 20 64 s the interest d
5630: 6f 77 6e 20 6e 6f 77 2e 0a 20 20 20 20 20 2a 20 own now.. *
5640: 57 65 20 61 72 65 20 61 6c 6c 6f 77 65 64 20 74 We are allowed t
5650: 6f 20 61 64 64 20 61 64 64 69 74 69 6f 6e 61 6c o add additional
5660: 20 27 69 6e 74 65 72 65 73 74 27 20 74 6f 20 74 'interest' to t
5670: 68 65 20 6d 61 73 6b 20 69 66 20 77 65 20 77 61 he mask if we wa
5680: 6e 74 0a 20 20 20 20 20 2a 20 74 6f 2e 20 42 75 nt. * to. Bu
5690: 74 20 74 68 69 73 20 74 72 61 6e 73 66 6f 72 6d t this transform
56a0: 61 74 69 6f 6e 20 68 61 73 20 6e 6f 20 73 75 63 ation has no suc
56b0: 68 20 69 6e 74 65 72 65 73 74 2e 20 49 74 20 6a h interest. It j
56c0: 75 73 74 20 70 61 73 73 65 73 0a 20 20 20 20 20 ust passes.
56d0: 2a 20 74 68 65 20 72 65 71 75 65 73 74 20 64 6f * the request do
56e0: 77 6e 2c 20 75 6e 63 68 61 6e 67 65 64 2e 0a 20 wn, unchanged..
56f0: 20 20 20 20 2a 2f 0a 0a 0a 09 64 70 72 69 6e 74 */....dprint
5700: 66 28 22 52 65 67 69 73 74 65 72 69 6e 67 20 6f f("Registering o
5710: 75 72 20 69 6e 74 65 72 65 73 74 20 69 6e 20 74 ur interest in t
5720: 68 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c he lower channel
5730: 20 28 63 68 61 6e 3d 25 70 29 22 2c 20 28 76 6f (chan=%p)", (vo
5740: 69 64 20 2a 29 20 64 6f 77 6e 43 68 61 6e 29 3b id *) downChan);
5750: 0a 20 20 20 20 28 54 63 6c 5f 47 65 74 43 68 61 . (Tcl_GetCha
5760: 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 nnelType(downCha
5770: 6e 29 29 0a 09 2d 3e 77 61 74 63 68 50 72 6f 63 n))..->watchProc
5780: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 (Tcl_GetChannelI
5790: 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e nstanceData(down
57a0: 43 68 61 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a 20 Chan), mask);..
57b0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6e /*. * Man
57c0: 61 67 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 69 agement of the i
57d0: 6e 74 65 72 6e 61 6c 20 74 69 6d 65 72 2e 0a 20 nternal timer..
57e0: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 */.. if (
57f0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
5800: 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b != (Tcl_TimerTok
5810: 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 en) NULL) {..
5820: 20 64 70 72 69 6e 74 66 28 22 41 20 74 69 6d 65 dprintf("A time
5830: 72 20 77 61 73 20 66 6f 75 6e 64 2c 20 64 65 6c r was found, del
5840: 65 74 69 6e 67 20 69 74 22 29 3b 0a 09 54 63 6c eting it");..Tcl
5850: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
5860: 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 ler(statePtr->ti
5870: 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d mer);..statePtr-
5880: 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 >timer = (Tcl_Ti
5890: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a merToken) NULL;.
58a0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 28 }.. if ((
58b0: 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 mask & TCL_READA
58c0: 42 4c 45 29 20 26 26 0a 09 28 28 54 63 6c 5f 49 BLE) &&..((Tcl_I
58d0: 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 nputBuffered(sta
58e0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 tePtr->self) > 0
58f0: 29 20 7c 7c 20 28 42 49 4f 5f 63 74 72 6c 5f 70 ) || (BIO_ctrl_p
5900: 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d ending(statePtr-
5910: 3e 62 69 6f 29 20 3e 20 30 29 29 29 20 7b 0a 09 >bio) > 0))) {..
5920: 2f 2a 0a 09 20 2a 20 54 68 65 72 65 20 69 73 20 /*.. * There is
5930: 69 6e 74 65 72 65 73 74 20 69 6e 20 72 65 61 64 interest in read
5940: 61 62 6c 65 20 65 76 65 6e 74 73 20 61 6e 64 20 able events and
5950: 77 65 20 61 63 74 75 61 6c 6c 79 20 68 61 76 65 we actually have
5960: 0a 09 20 2a 20 64 61 74 61 20 77 61 69 74 69 6e .. * data waitin
5970: 67 2c 20 73 6f 20 67 65 6e 65 72 61 74 65 20 61 g, so generate a
5980: 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 timer to flush
5990: 74 68 61 74 2e 0a 09 20 2a 2f 0a 09 64 70 72 69 that... */..dpri
59a0: 6e 74 66 28 22 43 72 65 61 74 69 6e 67 20 61 20 ntf("Creating a
59b0: 6e 65 77 20 74 69 6d 65 72 20 73 69 6e 63 65 20 new timer since
59c0: 64 61 74 61 20 61 70 70 65 61 72 73 20 74 6f 20 data appears to
59d0: 62 65 20 77 61 69 74 69 6e 67 22 29 3b 0a 09 73 be waiting");..s
59e0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
59f0: 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 Tcl_CreateTimer
5a00: 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 43 4c 5f Handler(TLS_TCL_
5a10: 44 45 4c 41 59 2c 20 54 6c 73 43 68 61 6e 6e 65 DELAY, TlsChanne
5a20: 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 2c 20 28 lHandlerTimer, (
5a30: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
5a40: 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a ePtr);. }.}..
5a50: 2f 2a 0a 20 2a 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 2d 2d 2d 2d ----------------
5a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a90: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
5aa0: 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 lsGetHandleProc
5ab0: 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 --. *. *.Called
5ac0: 66 72 6f 6d 20 54 63 6c 5f 47 65 74 43 68 61 6e from Tcl_GetChan
5ad0: 6e 65 6c 46 69 6c 65 20 74 6f 20 72 65 74 72 69 nelFile to retri
5ae0: 65 76 65 20 6f 2f 73 20 66 69 6c 65 20 68 61 6e eve o/s file han
5af0: 64 6c 65 72 0a 20 2a 09 66 72 6f 6d 20 74 68 65 dler. *.from the
5b00: 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 SSL socket base
5b10: 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a d channel.. *. *
5b20: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 Results:. *.The
5b30: 20 61 70 70 72 6f 70 72 69 61 74 65 20 54 63 6c appropriate Tcl
5b40: 5f 46 69 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 66 _File or NULL if
5b50: 20 6e 6f 74 20 70 72 65 73 65 6e 74 2e 20 0a 20 not present. .
5b60: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
5b70: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 s:. *.None.. *.
5b80: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
5b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bc0: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
5bd0: 69 6e 74 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 int TlsGetHandle
5be0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
5bf0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e instanceData, in
5c00: 74 20 64 69 72 65 63 74 69 6f 6e 2c 20 43 6c 69 t direction, Cli
5c10: 65 6e 74 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 entData *handleP
5c20: 74 72 29 20 7b 0a 09 53 74 61 74 65 20 2a 73 74 tr) {..State *st
5c30: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
5c40: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
5c50: 0a 0a 09 72 65 74 75 72 6e 28 54 63 6c 5f 47 65 ...return(Tcl_Ge
5c60: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 tChannelHandle(T
5c70: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 ls_GetParent(sta
5c80: 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 tePtr, TLS_TCL_F
5c90: 41 53 54 50 41 54 48 29 2c 20 64 69 72 65 63 74 ASTPATH), direct
5ca0: 69 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 29 ion, handlePtr))
5cb0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
5cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
5d00: 0a 20 2a 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f . * TlsNotifyPro
5d10: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c c --. *. *.Handl
5d20: 65 72 20 63 61 6c 6c 65 64 20 62 79 20 54 63 6c er called by Tcl
5d30: 20 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 to inform us of
5d40: 20 61 63 74 69 76 69 74 79 0a 20 2a 09 6f 6e 20 activity. *.on
5d50: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 the underlying c
5d60: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
5d70: 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a sults:. *.None..
5d80: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
5d90: 74 73 3a 0a 20 2a 09 4d 61 79 20 70 72 6f 63 65 ts:. *.May proce
5da0: 73 73 20 74 68 65 20 69 6e 63 6f 6d 69 6e 67 20 ss the incoming
5db0: 65 76 65 6e 74 20 62 79 20 69 74 73 65 6c 66 2e event by itself.
5dc0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
5dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 ---------. */..s
5e10: 74 61 74 69 63 20 69 6e 74 20 54 6c 73 4e 6f 74 tatic int TlsNot
5e20: 69 66 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ifyProc(ClientDa
5e30: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
5e40: 20 69 6e 74 20 6d 61 73 6b 29 20 7b 0a 09 53 74 int mask) {..St
5e50: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
5e60: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
5e70: 63 65 44 61 74 61 3b 0a 09 69 6e 74 20 65 72 72 ceData;..int err
5e80: 6f 72 43 6f 64 65 3b 0a 0a 09 2f 2a 0a 09 20 2a orCode;.../*.. *
5e90: 20 41 6e 20 65 76 65 6e 74 20 6f 63 63 75 72 72 An event occurr
5ea0: 65 64 20 69 6e 20 74 68 65 20 75 6e 64 65 72 6c ed in the underl
5eb0: 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 20 20 54 ying channel. T
5ec0: 68 69 73 0a 09 20 2a 20 74 72 61 6e 73 66 6f 72 his.. * transfor
5ed0: 6d 61 74 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 mation doesn't p
5ee0: 72 6f 63 65 73 73 20 73 75 63 68 20 65 76 65 6e rocess such even
5ef0: 74 73 20 74 68 75 73 20 72 65 74 75 72 6e 73 20 ts thus returns
5f00: 74 68 65 0a 09 20 2a 20 69 6e 63 6f 6d 69 6e 67 the.. * incoming
5f10: 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 65 64 2e mask unchanged.
5f20: 0a 09 20 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 .. */..if (state
5f30: 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 Ptr->timer != (T
5f40: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
5f50: 55 4c 4c 29 20 7b 0a 09 09 2f 2a 0a 09 09 20 2a ULL) {.../*... *
5f60: 20 44 65 6c 65 74 65 20 61 6e 20 65 78 69 73 74 Delete an exist
5f70: 69 6e 67 20 74 69 6d 65 72 2e 20 49 74 20 77 61 ing timer. It wa
5f80: 73 20 6e 6f 74 20 66 69 72 65 64 2c 20 79 65 74 s not fired, yet
5f90: 20 77 65 20 61 72 65 0a 09 09 20 2a 20 68 65 72 we are... * her
5fa0: 65 2c 20 73 6f 20 74 68 65 20 63 68 61 6e 6e 65 e, so the channe
5fb0: 6c 20 62 65 6c 6f 77 20 67 65 6e 65 72 61 74 65 l below generate
5fc0: 64 20 73 75 63 68 20 61 6e 20 65 76 65 6e 74 20 d such an event
5fd0: 61 6e 64 20 77 65 0a 09 09 20 2a 20 64 6f 6e 27 and we... * don'
5fe0: 74 20 68 61 76 65 20 74 6f 2e 20 54 68 65 20 72 t have to. The r
5ff0: 65 6e 65 77 61 6c 20 6f 66 20 74 68 65 20 69 6e enewal of the in
6000: 74 65 72 65 73 74 20 61 66 74 65 72 20 74 68 65 terest after the
6010: 0a 09 09 20 2a 20 65 78 65 63 75 74 69 6f 6e 20 ... * execution
6020: 6f 66 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c of channel handl
6030: 65 72 73 20 77 69 6c 6c 20 65 76 65 6e 74 75 61 ers will eventua
6040: 6c 6c 79 20 63 61 75 73 65 20 75 73 20 74 6f 0a lly cause us to.
6050: 09 09 20 2a 20 72 65 63 72 65 61 74 65 20 74 68 .. * recreate th
6060: 65 20 74 69 6d 65 72 20 28 69 6e 20 57 61 74 63 e timer (in Watc
6070: 68 50 72 6f 63 29 2e 0a 09 09 20 2a 2f 0a 09 09 hProc).... */...
6080: 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 Tcl_DeleteTimerH
6090: 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d andler(statePtr-
60a0: 3e 74 69 6d 65 72 29 3b 0a 09 09 73 74 61 74 65 >timer);...state
60b0: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
60c0: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
60d0: 4c 4c 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 74 61 LL;..}...if (sta
60e0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 tePtr->flags & T
60f0: 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 LS_TCL_CALLBACK)
6100: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 52 65 {...dprintf("Re
6110: 74 75 72 6e 69 6e 67 20 30 20 64 75 65 20 74 6f turning 0 due to
6120: 20 63 61 6c 6c 62 61 63 6b 22 29 3b 0a 09 09 72 callback");...r
6130: 65 74 75 72 6e 20 30 3b 0a 09 7d 0a 0a 09 64 70 eturn 0;..}...dp
6140: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 rintf("Calling T
6150: 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 ls_WaitForConnec
6160: 74 22 29 3b 0a 09 65 72 72 6f 72 43 6f 64 65 20 t");..errorCode
6170: 3d 20 30 3b 0a 09 69 66 20 28 54 6c 73 5f 57 61 = 0;..if (Tls_Wa
6180: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 itForConnect(sta
6190: 74 65 50 74 72 2c 20 26 65 72 72 6f 72 43 6f 64 tePtr, &errorCod
61a0: 65 2c 20 31 29 20 3c 20 30 29 20 7b 0a 09 09 69 e, 1) < 0) {...i
61b0: 66 20 28 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 f (errorCode ==
61c0: 45 41 47 41 49 4e 29 20 7b 0a 09 09 09 64 70 72 EAGAIN) {....dpr
61d0: 69 6e 74 66 28 22 41 73 79 6e 63 20 66 6c 61 67 intf("Async flag
61e0: 20 63 6f 75 6c 64 20 62 65 20 73 65 74 20 28 64 could be set (d
61f0: 69 64 6e 27 74 20 63 68 65 63 6b 29 20 61 6e 64 idn't check) and
6200: 20 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 errorCode == EA
6210: 47 41 49 4e 3a 20 20 52 65 74 75 72 6e 69 6e 67 GAIN: Returning
6220: 20 30 22 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 0");.....return
6230: 20 30 3b 0a 09 09 7d 0a 0a 09 09 64 70 72 69 6e 0;...}....dprin
6240: 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 tf("Tls_WaitForC
6250: 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 64 20 onnect returned
6260: 61 6e 20 65 72 72 6f 72 22 29 3b 0a 09 7d 0a 0a an error");..}..
6270: 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e .dprintf("Return
6280: 69 6e 67 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a ing %i", mask);.
6290: 0a 09 72 65 74 75 72 6e 28 6d 61 73 6b 29 3b 0a ..return(mask);.
62a0: 7d 0a 0a 23 69 66 20 30 0a 2f 2a 0a 20 2a 2d 2d }..#if 0./*. *--
62b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62e0: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 20 ----*. *. *
62f0: 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c TlsChannelHandl
6300: 65 72 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 20 er --. *. *
6310: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
6320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6340: 2d 2a 0a 20 2a 20 20 20 20 20 20 48 61 6e 64 6c -*. * Handl
6350: 65 72 20 63 61 6c 6c 65 64 20 62 79 20 54 63 6c er called by Tcl
6360: 20 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 0a as a result of.
6370: 20 2a 20 20 20 20 20 20 54 63 6c 5f 43 72 65 61 * Tcl_Crea
6380: 74 65 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 teChannelHandler
6390: 20 2d 20 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 - to inform us
63a0: 6f 66 20 61 63 74 69 76 69 74 79 0a 20 2a 20 20 of activity. *
63b0: 20 20 20 20 6f 6e 20 74 68 65 20 75 6e 64 65 72 on the under
63c0: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 lying channel..
63d0: 2a 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d * ---------
63e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6400: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 -------*. *. *
6410: 20 20 20 20 53 69 64 65 65 66 66 65 63 74 73 3a Sideeffects:
6420: 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 . *
6430: 20 4d 61 79 20 67 65 6e 65 72 61 74 65 20 73 75 May generate su
6440: 62 73 65 71 75 65 6e 74 20 63 61 6c 6c 73 20 74 bsequent calls t
6450: 6f 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 o. *
6460: 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e Tcl_NotifyChan
6470: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 20 20 20 20 20 nel.. *. *
6480: 52 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 20 20 Result:. *
6490: 20 20 20 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a None.. *
64a0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a ---------*. */..
64e0: 73 74 61 74 69 63 20 76 6f 69 64 0a 54 6c 73 43 static void.TlsC
64f0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 28 63 hannelHandler (c
6500: 6c 69 65 6e 74 44 61 74 61 2c 20 6d 61 73 6b 29 lientData, mask)
6510: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
6520: 20 20 20 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a clientData;.
6530: 20 20 20 20 69 6e 74 20 20 20 20 20 20 20 20 20 int
6540: 20 20 20 6d 61 73 6b 3b 0a 7b 0a 20 20 20 20 53 mask;.{. S
6550: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
6560: 20 28 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e (State *) clien
6570: 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 tData;.. dpri
6580: 6e 74 66 28 22 48 41 4e 44 4c 45 52 28 30 78 25 ntf("HANDLER(0x%
6590: 78 29 22 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 x)", mask);.
65a0: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 Tcl_Preserve( (C
65b0: 6c 69 65 6e 74 44 61 74 61 29 73 74 61 74 65 50 lientData)stateP
65c0: 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 6d 61 tr);.. if (ma
65d0: 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 4c sk & TCL_READABL
65e0: 45 29 20 7b 0a 09 42 49 4f 5f 73 65 74 5f 66 6c E) {..BIO_set_fl
65f0: 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e 70 5f ags(statePtr->p_
6600: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 52 bio, BIO_FLAGS_R
6610: 45 41 44 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 EAD);. } else
6620: 20 7b 0a 09 42 49 4f 5f 63 6c 65 61 72 5f 66 6c {..BIO_clear_fl
6630: 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e 70 5f ags(statePtr->p_
6640: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 52 bio, BIO_FLAGS_R
6650: 45 41 44 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 EAD);. }..
6660: 20 69 66 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f if (mask & TCL_
6670: 57 52 49 54 41 42 4c 45 29 20 7b 0a 09 42 49 4f WRITABLE) {..BIO
6680: 5f 73 65 74 5f 66 6c 61 67 73 28 73 74 61 74 65 _set_flags(state
6690: 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f Ptr->p_bio, BIO_
66a0: 46 4c 41 47 53 5f 57 52 49 54 45 29 3b 0a 20 20 FLAGS_WRITE);.
66b0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 42 49 4f 5f } else {..BIO_
66c0: 63 6c 65 61 72 5f 66 6c 61 67 73 28 73 74 61 74 clear_flags(stat
66d0: 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f ePtr->p_bio, BIO
66e0: 5f 46 4c 41 47 53 5f 57 52 49 54 45 29 3b 0a 20 _FLAGS_WRITE);.
66f0: 20 20 20 7d 0a 0a 20 20 20 20 6d 61 73 6b 20 3d }.. mask =
6700: 20 30 3b 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 0;. if (BIO_
6710: 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 wpending(statePt
6720: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b r->bio)) {..mask
6730: 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 |= TCL_WRITABLE
6740: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
6750: 42 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 BIO_pending(stat
6760: 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d ePtr->bio)) {..m
6770: 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ask |= TCL_READA
6780: 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 BLE;. }..
6790: 2f 2a 0a 20 20 20 20 20 2a 20 54 68 65 20 66 6f /*. * The fo
67a0: 6c 6c 6f 77 69 6e 67 20 4e 6f 74 69 66 79 43 68 llowing NotifyCh
67b0: 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 73 65 65 6d annel calls seem
67c0: 73 20 74 6f 20 62 65 20 69 6d 70 6f 72 74 61 6e s to be importan
67d0: 74 2c 20 62 75 74 0a 20 20 20 20 20 2a 20 77 65 t, but. * we
67e0: 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 77 68 79 2e don't know why.
67f0: 20 20 49 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 It looks like
6800: 69 66 20 74 68 65 20 6d 61 73 6b 20 69 73 20 65 if the mask is e
6810: 76 65 72 20 6e 6f 6e 2d 7a 65 72 6f 0a 20 20 20 ver non-zero.
6820: 20 20 2a 20 74 68 61 74 20 69 74 20 77 69 6c 6c * that it will
6830: 20 65 6e 74 65 72 20 61 6e 20 69 6e 66 69 6e 69 enter an infini
6840: 74 65 20 6c 6f 6f 70 2e 0a 20 20 20 20 20 2a 0a te loop.. *.
6850: 20 20 20 20 20 2a 20 4e 6f 74 69 66 79 20 74 68 * Notify th
6860: 65 20 75 70 70 65 72 20 63 68 61 6e 6e 65 6c 20 e upper channel
6870: 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 42 of the current B
6880: 49 4f 20 73 74 61 74 65 20 73 6f 20 74 68 65 20 IO state so the
6890: 65 76 65 6e 74 0a 20 20 20 20 20 2a 20 63 6f 6e event. * con
68a0: 74 69 6e 75 65 73 20 74 6f 20 70 72 6f 70 61 67 tinues to propag
68b0: 61 74 65 20 75 70 20 74 68 65 20 63 68 61 69 6e ate up the chain
68c0: 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 .. *. *
68d0: 73 74 61 6e 74 6f 6e 3a 20 49 74 20 6c 6f 6f 6b stanton: It look
68e0: 73 20 6c 69 6b 65 20 74 68 69 73 20 63 6f 75 6c s like this coul
68f0: 64 20 72 65 73 75 6c 74 20 69 6e 20 61 6e 20 69 d result in an i
6900: 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 20 69 66 0a nfinite loop if.
6910: 20 20 20 20 20 2a 20 74 68 65 20 75 70 70 65 72 * the upper
6920: 20 63 68 61 6e 6e 65 6c 20 64 6f 65 73 6e 27 74 channel doesn't
6930: 20 63 61 75 73 65 20 43 68 61 6e 6e 65 6c 48 61 cause ChannelHa
6940: 6e 64 6c 65 72 20 74 6f 20 62 65 20 72 65 6d 6f ndler to be remo
6950: 76 65 64 0a 20 20 20 20 20 2a 20 62 65 66 6f 72 ved. * befor
6960: 65 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e e Tcl_NotifyChan
6970: 6e 65 6c 20 63 61 6c 6c 73 20 63 68 61 6e 6e 65 nel calls channe
6980: 6c 20 68 61 6e 64 6c 65 72 73 20 6f 6e 20 74 68 l handlers on th
6990: 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 2e e lower channel.
69a0: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 0a 20 20 . */. .
69b0: 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e Tcl_NotifyChan
69c0: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 nel(statePtr->se
69d0: 6c 66 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 0a lf, mask);. .
69e0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
69f0: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
6a00: 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 29 TimerToken)NULL)
6a10: 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 {..Tcl_DeleteTi
6a20: 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 merHandler(state
6a30: 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 Ptr->timer);..st
6a40: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 atePtr->timer =
6a50: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
6a60: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
6a70: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
6a80: 52 45 41 44 41 42 4c 45 29 20 26 26 20 54 63 6c READABLE) && Tcl
6a90: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 _InputBuffered(s
6aa0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e tatePtr->self) >
6ab0: 20 30 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 61 0) {../*.. * Da
6ac0: 74 61 20 69 73 20 77 61 69 74 69 6e 67 2c 20 66 ta is waiting, f
6ad0: 6c 75 73 68 20 69 74 20 6f 75 74 20 69 6e 20 73 lush it out in s
6ae0: 68 6f 72 74 20 74 69 6d 65 0a 09 20 2a 2f 0a 09 hort time.. */..
6af0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
6b00: 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d 65 = Tcl_CreateTime
6b10: 72 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 43 4c rHandler(TLS_TCL
6b20: 5f 44 45 4c 41 59 2c 0a 09 09 54 6c 73 43 68 61 _DELAY,...TlsCha
6b30: 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 nnelHandlerTimer
6b40: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 , (ClientData) s
6b50: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a tatePtr);. }.
6b60: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
6b70: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 (ClientData)sta
6b80: 74 65 50 74 72 29 3b 0a 7d 0a 23 65 6e 64 69 66 tePtr);.}.#endif
6b90: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
6bd0: 2a 0a 20 2a 09 54 6c 73 43 68 61 6e 6e 65 6c 48 *. *.TlsChannelH
6be0: 61 6e 64 6c 65 72 54 69 6d 65 72 20 2d 2d 0a 20 andlerTimer --.
6bf0: 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *.-----------
6c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c20: 2d 2d 2d 2d 2d 2a 0a 20 2a 09 43 61 6c 6c 65 64 -----*. *.Called
6c30: 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72 by the notifier
6c40: 20 28 2d 3e 20 74 69 6d 65 72 29 20 74 6f 20 66 (-> timer) to f
6c50: 6c 75 73 68 20 6f 75 74 0a 20 2a 09 69 6e 66 6f lush out. *.info
6c60: 72 6d 61 74 69 6f 6e 20 77 61 69 74 69 6e 67 20 rmation waiting
6c70: 69 6e 20 63 68 61 6e 6e 65 6c 20 62 75 66 66 65 in channel buffe
6c80: 72 73 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d rs.. *.---------
6c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6cb0: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 -------*. *. *.S
6cc0: 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 ideeffects:. *..
6cd0: 41 73 20 6f 66 20 27 54 6c 73 43 68 61 6e 6e 65 As of 'TlsChanne
6ce0: 6c 48 61 6e 64 6c 65 72 27 2e 0a 20 2a 0a 20 2a lHandler'.. *. *
6cf0: 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 4e 6f 6e .Result:. *..Non
6d00: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
6d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
6d40: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 */..static void
6d50: 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c TlsChannelHandl
6d60: 65 72 54 69 6d 65 72 28 43 6c 69 65 6e 74 44 61 erTimer(ClientDa
6d70: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b ta clientData) {
6d80: 0a 09 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 ..State *statePt
6d90: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 63 6c r = (State *) cl
6da0: 69 65 6e 74 44 61 74 61 3b 0a 09 69 6e 74 20 6d ientData;..int m
6db0: 61 73 6b 20 3d 20 30 3b 0a 0a 09 64 70 72 69 6e ask = 0;...dprin
6dc0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 tf("Called");...
6dd0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
6de0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
6df0: 6e 29 20 4e 55 4c 4c 3b 0a 0a 09 69 66 20 28 42 n) NULL;...if (B
6e00: 49 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 IO_wpending(stat
6e10: 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 ePtr->bio)) {...
6e20: 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 dprintf("[chan=%
6e30: 70 5d 20 42 49 4f 20 77 72 69 74 61 62 6c 65 22 p] BIO writable"
6e40: 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 , statePtr->self
6e50: 29 3b 0a 0a 09 09 6d 61 73 6b 20 7c 3d 20 54 43 );....mask |= TC
6e60: 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 09 7d 0a 0a L_WRITABLE;..}..
6e70: 09 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 .if (BIO_pending
6e80: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
6e90: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 5b 63 {...dprintf("[c
6ea0: 68 61 6e 3d 25 70 5d 20 42 49 4f 20 72 65 61 64 han=%p] BIO read
6eb0: 61 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d able", statePtr-
6ec0: 3e 73 65 6c 66 29 3b 0a 0a 09 09 6d 61 73 6b 20 >self);....mask
6ed0: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b |= TCL_READABLE;
6ee0: 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 4e ..}...dprintf("N
6ef0: 6f 74 69 66 79 69 6e 67 20 6f 75 72 73 65 6c 76 otifying ourselv
6f00: 65 73 22 29 3b 0a 09 54 63 6c 5f 4e 6f 74 69 66 es");..Tcl_Notif
6f10: 79 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 yChannel(statePt
6f20: 72 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a r->self, mask);.
6f30: 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 ..dprintf("Retur
6f40: 6e 69 6e 67 22 29 3b 0a 0a 09 72 65 74 75 72 6e ning");...return
6f50: 3b 0a 7d 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c ;.}..Tcl_Channel
6f60: 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 53 Tls_GetParent(S
6f70: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
6f80: 69 6e 74 20 6d 61 73 6b 46 6c 61 67 73 29 20 7b int maskFlags) {
6f90: 0a 09 64 70 72 69 6e 74 66 28 22 52 65 71 75 65 ..dprintf("Reque
6fa0: 73 74 65 64 20 74 6f 20 67 65 74 20 70 61 72 65 sted to get pare
6fb0: 6e 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 25 70 nt of channel %p
6fc0: 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ", statePtr->sel
6fd0: 66 29 3b 0a 0a 09 69 66 20 28 28 73 74 61 74 65 f);...if ((state
6fe0: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 7e 6d 61 Ptr->flags & ~ma
6ff0: 73 6b 46 6c 61 67 73 29 20 26 20 54 4c 53 5f 54 skFlags) & TLS_T
7000: 43 4c 5f 46 41 53 54 50 41 54 48 29 20 7b 0a 09 CL_FASTPATH) {..
7010: 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 .dprintf("Asked
7020: 74 6f 20 67 65 74 20 74 68 65 20 70 61 72 65 6e to get the paren
7030: 74 20 63 68 61 6e 6e 65 6c 20 77 68 69 6c 65 20 t channel while
7040: 77 65 20 61 72 65 20 75 73 69 6e 67 20 46 61 73 we are using Fas
7050: 74 50 61 74 68 20 2d 2d 20 72 65 74 75 72 6e 69 tPath -- returni
7060: 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 09 72 65 74 ng NULL");...ret
7070: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 urn(NULL);..}...
7080: 72 65 74 75 72 6e 28 54 63 6c 5f 47 65 74 53 74 return(Tcl_GetSt
7090: 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 ackedChannel(sta
70a0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 7d tePtr->self));.}
70b0: 0a .