0000: 2f 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73 20 49 /*. * Provides I
0010: 4f 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 69 O functions to i
0020: 6e 74 65 72 66 61 63 65 20 62 65 74 77 65 65 6e nterface between
0030: 20 74 68 65 20 42 49 4f 20 62 75 66 66 65 72 73 the BIO buffers
0040: 20 61 6e 64 20 54 43 4c 0a 20 2a 20 61 70 70 6c and TCL. * appl
0050: 69 63 61 74 69 6f 6e 73 20 77 68 65 6e 20 75 73 ications when us
0060: 69 6e 67 20 73 74 61 63 6b 65 64 20 63 68 61 6e ing stacked chan
0070: 6e 65 6c 73 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 nels.. *. * Copy
0080: 72 69 67 68 74 20 28 43 29 20 31 39 39 37 2d 32 right (C) 1997-2
0090: 30 30 30 20 4d 61 74 74 20 4e 65 77 6d 61 6e 20 000 Matt Newman
00a0: 3c 6d 61 74 74 40 6e 6f 76 61 64 69 67 6d 2e 63 <matt@novadigm.c
00b0: 6f 6d 3e 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 om>. * Copyright
00c0: 20 28 43 29 20 32 30 30 30 20 41 6a 75 62 61 20 (C) 2000 Ajuba
00d0: 53 6f 6c 75 74 69 6f 6e 73 0a 20 2a 20 43 6f 70 Solutions. * Cop
00e0: 79 72 69 67 68 74 20 28 43 29 20 32 30 32 34 20 yright (C) 2024
00f0: 42 72 69 61 6e 20 4f 27 48 61 67 61 6e 0a 20 2a Brian O'Hagan. *
0100: 0a 20 2a 20 54 4c 53 20 28 61 6b 61 20 53 53 4c . * TLS (aka SSL
0110: 29 20 43 68 61 6e 6e 65 6c 20 2d 20 63 61 6e 20 ) Channel - can
0120: 62 65 20 6c 61 79 65 72 65 64 20 6f 6e 20 61 6e be layered on an
0130: 79 20 62 69 2d 64 69 72 65 63 74 69 6f 6e 61 6c y bi-directional
0140: 0a 20 2a 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 . * Tcl_Channel
0150: 28 4e 6f 74 65 3a 20 52 65 71 75 69 72 65 73 20 (Note: Requires
0160: 54 72 66 20 43 6f 72 65 20 50 61 74 63 68 29 0a Trf Core Patch).
0170: 20 2a 0a 20 2a 20 54 68 69 73 20 77 61 73 20 62 *. * This was b
0180: 75 69 6c 74 20 66 72 6f 6d 20 73 63 72 61 74 63 uilt from scratc
0190: 68 20 62 61 73 65 64 20 75 70 6f 6e 20 6f 62 73 h based upon obs
01a0: 65 72 76 61 74 69 6f 6e 20 6f 66 20 4f 70 65 6e ervation of Open
01b0: 53 53 4c 20 30 2e 39 2e 32 42 0a 20 2a 0a 20 2a SSL 0.9.2B. *. *
01c0: 20 41 64 64 69 74 69 6f 6e 20 63 72 65 64 69 74 Addition credit
01d0: 20 69 73 20 64 75 65 20 66 6f 72 20 41 6e 64 72 is due for Andr
01e0: 65 61 73 20 4b 75 70 72 69 65 73 20 28 61 2e 6b eas Kupries (a.k
01f0: 75 70 72 69 65 73 40 77 65 73 74 65 6e 64 2e 63 upries@westend.c
0200: 6f 6d 29 2c 20 66 6f 72 0a 20 2a 20 70 72 6f 76 om), for. * prov
0210: 69 64 69 6e 67 20 74 68 65 20 54 63 6c 5f 52 65 iding the Tcl_Re
0220: 70 6c 61 63 65 43 68 61 6e 6e 65 6c 20 6d 65 63 placeChannel mec
0230: 68 61 6e 69 73 6d 20 61 6e 64 20 77 6f 72 6b 69 hanism and worki
0240: 6e 67 20 63 6c 6f 73 65 6c 79 20 77 69 74 68 20 ng closely with
0250: 6d 65 0a 20 2a 20 74 6f 20 65 6e 68 61 6e 63 65 me. * to enhance
0260: 20 69 74 20 74 6f 20 73 75 70 70 6f 72 74 20 66 it to support f
0270: 75 6c 6c 20 66 69 6c 65 65 76 65 6e 74 20 73 65 ull fileevent se
0280: 6d 61 6e 74 69 63 73 2e 0a 20 2a 0a 20 2a 20 41 mantics.. *. * A
0290: 6c 73 6f 20 77 6f 72 6b 20 64 6f 6e 65 20 62 79 lso work done by
02a0: 20 74 68 65 20 66 6f 6c 6c 6f 77 20 70 65 6f 70 the follow peop
02b0: 6c 65 20 70 72 6f 76 69 64 65 64 20 74 68 65 20 le provided the
02c0: 69 6d 70 65 74 75 73 20 74 6f 20 64 6f 20 74 68 impetus to do th
02d0: 69 73 20 22 72 69 67 68 74 22 3a 0a 20 2a 20 20 is "right":. *
02e0: 20 20 74 63 6c 53 53 4c 20 28 43 6f 6c 69 6e 20 tclSSL (Colin
02f0: 4d 63 43 6f 72 6d 61 63 6b 2c 20 53 68 61 72 65 McCormack, Share
0300: 64 20 54 65 63 68 6e 6f 6c 6f 67 79 29 0a 20 2a d Technology). *
0310: 20 20 20 20 53 53 4c 74 63 6c 20 28 50 65 74 65 SSLtcl (Pete
0320: 72 20 41 6e 74 6d 61 6e 29 0a 20 2a 0a 20 2a 2f r Antman). *. */
0330: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
0340: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c nt.h".#include <
0350: 65 72 72 6e 6f 2e 68 3e 0a 0a 2f 2a 0a 20 2a 2d errno.h>../*. *-
0360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
03b0: 20 2a 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 * TlsBlockModeP
03c0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 roc --. *. *.Thi
03d0: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 s procedure is i
03e0: 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 nvoked by the ge
03f0: 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 neric IO level t
0400: 6f 20 73 65 74 20 63 68 61 6e 6e 65 6c 20 74 6f o set channel to
0410: 0a 20 2a 09 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 . *.blocking or
0420: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 nonblocking mode
0430: 2e 20 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 . Called by the
0440: 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c 61 79 65 generic I/O laye
0450: 72 20 77 68 65 6e 65 76 65 72 0a 20 2a 09 74 68 r whenever. *.th
0460: 65 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c e Tcl_SetChannel
0470: 4f 70 74 69 6f 6e 28 29 20 66 75 6e 63 74 69 6f Option() functio
0480: 6e 20 69 73 20 75 73 65 64 20 77 69 74 68 20 6f n is used with o
0490: 70 74 69 6f 6e 20 2d 62 6c 6f 63 6b 69 6e 67 2e ption -blocking.
04a0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
04b0: 20 2a 20 20 20 20 30 20 69 66 20 73 75 63 63 65 * 0 if succe
04c0: 73 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 ssful or POSIX e
04d0: 72 72 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 rror code if fai
04e0: 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 led.. *. * Side
04f0: 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 53 effects:. * S
0500: 65 74 73 20 74 68 65 20 64 65 76 69 63 65 20 69 ets the device i
0510: 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 nto blocking or
0520: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 nonblocking mode
0530: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0580: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
0590: 69 6e 74 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 int TlsBlockMode
05a0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
05b0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e instanceData, in
05c0: 74 20 6d 6f 64 65 29 20 7b 0a 20 20 20 20 53 74 t mode) {. St
05d0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
05e0: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
05f0: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 ceData;.. if
0600: 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 (mode == TCL_MOD
0610: 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b E_NONBLOCKING) {
0620: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
0630: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 s |= TLS_TCL_ASY
0640: 4e 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b NC;. } else {
0650: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
0660: 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 s &= ~(TLS_TCL_A
0670: 53 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 SYNC);. }.
0680: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
0690: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
06a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06e0: 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73 65 50 . *. * TlsCloseP
06f0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 roc --. *. *.Thi
0700: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 s procedure is i
0710: 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 nvoked by the ge
0720: 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 neric IO level t
0730: 6f 20 70 65 72 66 6f 72 6d 20 63 68 61 6e 6e 65 o perform channe
0740: 6c 0a 20 2a 09 74 79 70 65 20 73 70 65 63 69 66 l. *.type specif
0750: 69 63 20 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 ic cleanup when
0760: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
0770: 65 64 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 6c ed channel is cl
0780: 6f 73 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 osed.. *. * Resu
0790: 6c 74 73 3a 0a 20 2a 20 20 20 20 30 20 69 66 20 lts:. * 0 if
07a0: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 4f successful or PO
07b0: 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 SIX error code i
07c0: 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 f failed.. *. *
07d0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
07e0: 20 20 20 20 43 6c 6f 73 65 73 20 74 68 65 20 73 Closes the s
07f0: 6f 63 6b 65 74 20 6f 66 20 74 68 65 20 63 68 61 ocket of the cha
0800: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
0810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0850: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
0860: 74 69 63 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 tic int TlsClose
0870: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
0880: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 instanceData, Tc
0890: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
08a0: 29 20 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 ) {. State *s
08b0: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
08c0: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
08d0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
08e0: 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 25 70 29 TlsCloseProc(%p)
08f0: 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 ", (void *) stat
0900: 65 50 74 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 46 ePtr);.. /* F
0910: 6c 75 73 68 20 61 6e 79 20 70 65 6e 64 69 6e 67 lush any pending
0920: 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 0a 20 20 data */. .
0930: 20 20 2f 2a 20 53 65 6e 64 20 73 68 75 74 64 6f /* Send shutdo
0940: 77 6e 20 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2e wn notification.
0950: 20 57 69 6c 6c 20 72 65 74 75 72 6e 20 30 20 77 Will return 0 w
0960: 68 69 6c 65 20 69 6e 20 70 72 6f 63 65 73 73 2c hile in process,
0970: 20 74 68 65 6e 20 31 20 77 68 65 6e 20 63 6f 6d then 1 when com
0980: 70 6c 65 74 65 2e 20 2a 2f 0a 20 20 20 20 2f 2a plete. */. /*
0990: 20 43 6c 6f 73 65 73 20 74 68 65 20 77 72 69 74 Closes the writ
09a0: 65 20 64 69 72 65 63 74 69 6f 6e 20 6f 66 20 74 e direction of t
09b0: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 3b 20 74 he connection; t
09c0: 68 65 20 72 65 61 64 20 64 69 72 65 63 74 69 6f he read directio
09d0: 6e 20 69 73 20 63 6c 6f 73 65 64 20 62 79 20 74 n is closed by t
09e0: 68 65 20 70 65 65 72 2e 20 2a 2f 0a 20 20 20 20 he peer. */.
09f0: 2f 2a 20 44 6f 65 73 20 6e 6f 74 20 61 66 66 65 /* Does not affe
0a00: 63 74 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e ct socket state.
0a10: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
0a20: 65 50 74 72 2d 3e 73 73 6c 20 21 3d 20 4e 55 4c ePtr->ssl != NUL
0a30: 4c 29 20 7b 0a 09 53 53 4c 5f 73 68 75 74 64 6f L) {..SSL_shutdo
0a40: 77 6e 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c wn(statePtr->ssl
0a50: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
0a60: 20 54 6c 73 5f 46 72 65 65 20 63 61 6c 6c 73 20 Tls_Free calls
0a70: 54 6c 73 5f 43 6c 65 61 6e 20 2a 2f 0a 20 20 20 Tls_Clean */.
0a80: 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 Tcl_EventuallyF
0a90: 72 65 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 ree((ClientData)
0aa0: 73 74 61 74 65 50 74 72 2c 20 54 6c 73 5f 46 72 statePtr, Tls_Fr
0ab0: 65 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 ee);. return
0ac0: 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 0;.}../*. *-----
0ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b10: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
0b20: 6c 73 43 6c 6f 73 65 32 50 72 6f 63 20 2d 2d 0a lsClose2Proc --.
0b30: 20 2a 0a 20 2a 09 53 69 6d 69 6c 61 72 20 74 6f *. *.Similar to
0b40: 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 2c 20 62 TlsCloseProc, b
0b50: 75 74 20 61 6c 6c 6f 77 73 20 66 6f 72 20 73 65 ut allows for se
0b60: 70 61 72 61 74 65 20 63 6c 6f 73 65 20 72 65 61 parate close rea
0b70: 64 20 61 6e 64 20 77 72 69 74 65 0a 20 2a 09 73 d and write. *.s
0b80: 69 64 65 20 6f 66 20 63 68 61 6e 6e 65 6c 2e 0a ide of channel..
0b90: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0be0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
0bf0: 74 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 t TlsClose2Proc(
0c00: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
0c10: 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 54 nceData, /* T
0c20: 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e he socket state.
0c30: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
0c40: 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 rp *interp,../*
0c50: 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e For errors - can
0c60: 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 be NULL. */.
0c70: 20 69 6e 74 20 66 6c 61 67 73 29 09 09 09 2f 2a int flags).../*
0c80: 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65 20 Flags to close
0c90: 72 65 61 64 20 61 6e 64 2f 6f 72 20 77 72 69 74 read and/or writ
0ca0: 65 20 73 69 64 65 20 6f 66 20 63 68 61 6e 6e 65 e side of channe
0cb0: 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 l */.{. State
0cc0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
0cd0: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
0ce0: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ata;.. dprint
0cf0: 66 28 22 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 f("TlsClose2Proc
0d00: 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 (%p)", (void *)
0d10: 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 statePtr);..
0d20: 69 66 20 28 28 66 6c 61 67 73 20 26 20 28 54 43 if ((flags & (TC
0d30: 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 7c 54 43 4c L_CLOSE_READ|TCL
0d40: 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d _CLOSE_WRITE)) =
0d50: 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 = 0) {..return T
0d60: 6c 73 43 6c 6f 73 65 50 72 6f 63 28 69 6e 73 74 lsCloseProc(inst
0d70: 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 65 72 70 anceData, interp
0d80: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 );. }. ret
0d90: 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f urn EINVAL;.}../
0da0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0df0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 57 61 69 74 -. *. * Tls_Wait
0e00: 46 6f 72 43 6f 6e 6e 65 63 74 20 2d 2d 0a 20 2a ForConnect --. *
0e10: 0a 20 2a 09 50 65 72 66 6f 72 6d 20 63 6f 6e 6e . *.Perform conn
0e20: 65 63 74 20 28 63 6c 69 65 6e 74 29 20 6f 72 20 ect (client) or
0e30: 61 63 63 65 70 74 20 28 73 65 72 76 65 72 29 20 accept (server)
0e40: 66 75 6e 63 74 69 6f 6e 2e 20 41 6c 73 6f 20 70 function. Also p
0e50: 65 72 66 6f 72 6d 73 0a 20 2a 09 65 71 75 69 76 erforms. *.equiv
0e60: 61 6c 65 6e 74 20 6f 66 20 68 61 6e 64 73 68 61 alent of handsha
0e70: 6b 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a ke function.. *.
0e80: 20 2a 20 52 65 73 75 6c 74 3a 0a 20 2a 20 20 20 * Result:. *
0e90: 20 30 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 0 if successful
0ea0: 2c 20 2d 31 20 69 66 20 66 61 69 6c 65 64 2e 0a , -1 if failed..
0eb0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
0ec0: 74 73 3a 0a 20 2a 20 20 20 20 49 73 73 75 65 73 ts:. * Issues
0ed0: 20 53 53 4c 5f 61 63 63 65 70 74 20 6f 72 20 53 SSL_accept or S
0ee0: 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 2a 0a 20 2a SL_connect. *. *
0ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0f40: 2f 0a 69 6e 74 20 54 6c 73 5f 57 61 69 74 46 6f /.int Tls_WaitFo
0f50: 72 43 6f 6e 6e 65 63 74 28 53 74 61 74 65 20 2a rConnect(State *
0f60: 73 74 61 74 65 50 74 72 2c 20 69 6e 74 20 2a 65 statePtr, int *e
0f70: 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 69 6e 74 rrorCodePtr, int
0f80: 20 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 handshakeFailur
0f90: 65 49 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a eIsPermanent) {.
0fa0: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e unsigned lon
0fb0: 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a g backingError;.
0fc0: 20 20 20 20 69 6e 74 20 65 72 72 2c 20 72 63 20 int err, rc
0fd0: 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 62 69 6f = 0;. int bio
0fe0: 53 68 6f 75 6c 64 52 65 74 72 79 3b 0a 20 20 20 ShouldRetry;.
0ff0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
1000: 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 0;.. dprintf
1010: 28 22 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 ("WaitForConnect
1020: 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 (%p)", (void *)
1030: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 64 statePtr);. d
1040: 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65 printFlags(state
1050: 50 74 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 Ptr);.. /* Ca
1060: 6e 20 61 6c 73 6f 20 63 68 65 63 6b 20 53 53 4c n also check SSL
1070: 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 _is_init_finishe
1080: 64 28 73 73 6c 29 20 2a 2f 0a 20 20 20 20 69 66 d(ssl) */. if
1090: 20 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c (!(statePtr->fl
10a0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e ags & TLS_TCL_IN
10b0: 49 54 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 IT)) {..dprintf(
10c0: 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e "Tls_WaitForConn
10d0: 65 63 74 20 63 61 6c 6c 65 64 20 6f 6e 20 61 6c ect called on al
10e0: 72 65 61 64 79 20 69 6e 69 74 69 61 6c 69 7a 65 ready initialize
10f0: 64 20 63 68 61 6e 6e 65 6c 20 2d 2d 20 72 65 74 d channel -- ret
1100: 75 72 6e 69 6e 67 20 77 69 74 68 20 69 6d 6d 65 urning with imme
1110: 64 69 61 74 65 20 73 75 63 63 65 73 73 22 29 3b diate success");
1120: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ..return 0;.
1130: 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }.. if (state
1140: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
1150: 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 _TCL_HANDSHAKE_F
1160: 41 49 4c 45 44 29 20 7b 0a 09 2f 2a 0a 09 20 2a AILED) {../*.. *
1170: 20 44 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 Different types
1180: 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e 73 20 68 of operations h
1190: 61 76 65 20 64 69 66 66 65 72 65 6e 74 20 72 65 ave different re
11a0: 71 75 69 72 65 6d 65 6e 74 73 0a 09 20 2a 20 53 quirements.. * S
11b0: 53 4c 20 62 65 69 6e 67 20 65 73 74 61 62 6c 69 SL being establi
11c0: 73 68 65 64 0a 09 20 2a 2f 0a 09 69 66 20 28 68 shed.. */..if (h
11d0: 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 49 andshakeFailureI
11e0: 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 09 20 sPermanent) {..
11f0: 20 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b 65 dprintf("Aske
1200: 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 d to wait for a
1210: 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 TLS handshake th
1220: 61 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 at has already f
1230: 61 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e ailed. Returnin
1240: 67 20 66 61 74 61 6c 20 65 72 72 6f 72 22 29 3b g fatal error");
1250: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
1260: 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 Ptr = ECONNABORT
1270: 45 44 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 ED;..} else {..
1280: 20 20 20 64 70 72 69 6e 74 66 28 22 41 73 6b 65 dprintf("Aske
1290: 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 d to wait for a
12a0: 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 TLS handshake th
12b0: 61 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 at has already f
12c0: 61 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e ailed. Returnin
12d0: 67 20 73 6f 66 74 20 65 72 72 6f 72 22 29 3b 0a g soft error");.
12e0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
12f0: 74 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b tr = ECONNRESET;
1300: 0a 09 7d 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 ..}..Tls_Error(s
1310: 74 61 74 65 50 74 72 2c 20 22 57 61 69 74 20 66 tatePtr, "Wait f
1320: 6f 72 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 or failed handsh
1330: 61 6b 65 22 29 3b 0a 09 72 65 74 75 72 6e 20 2d ake");..return -
1340: 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 1;. }.. fo
1350: 72 20 28 3b 3b 29 20 7b 0a 09 45 52 52 5f 63 6c r (;;) {..ERR_cl
1360: 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 2f ear_error();.../
1370: 2a 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 * Not initialize
1380: 64 20 79 65 74 21 20 41 6c 73 6f 20 63 61 6c 6c d yet! Also call
1390: 73 20 53 53 4c 5f 64 6f 5f 68 61 6e 64 73 68 61 s SSL_do_handsha
13a0: 6b 65 28 29 2e 20 2a 2f 0a 09 69 66 20 28 73 74 ke(). */..if (st
13b0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
13c0: 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 TLS_TCL_SERVER)
13d0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
13e0: 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 61 63 63 65 Calling SSL_acce
13f0: 70 74 28 29 22 29 3b 0a 09 20 20 20 20 65 72 72 pt()");.. err
1400: 20 3d 20 53 53 4c 5f 61 63 63 65 70 74 28 73 74 = SSL_accept(st
1410: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 0a 09 atePtr->ssl);...
1420: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 } else {.. dp
1430: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 rintf("Calling S
1440: 53 4c 5f 63 6f 6e 6e 65 63 74 28 29 22 29 3b 0a SL_connect()");.
1450: 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 63 . err = SSL_c
1460: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d onnect(statePtr-
1470: 3e 73 73 6c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 >ssl);..}...if (
1480: 65 72 72 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 err > 0) {..
1490: 64 70 72 69 6e 74 66 28 22 41 63 63 65 70 74 20 dprintf("Accept
14a0: 6f 72 20 63 6f 6e 6e 65 63 74 20 77 61 73 20 73 or connect was s
14b0: 75 63 63 65 73 73 66 75 6c 22 29 3b 0a 0a 09 20 uccessful");...
14c0: 20 20 20 65 72 72 20 3d 20 42 49 4f 5f 66 6c 75 err = BIO_flu
14d0: 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f sh(statePtr->bio
14e0: 29 3b 0a 09 20 20 20 20 69 66 20 28 65 72 72 20 );.. if (err
14f0: 3c 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 <= 0) {...dprint
1500: 66 28 22 46 6c 75 73 68 69 6e 67 20 74 68 65 20 f("Flushing the
1510: 6c 6f 77 65 72 20 6c 61 79 65 72 73 20 66 61 69 lower layers fai
1520: 6c 65 64 2c 20 74 68 69 73 20 77 69 6c 6c 20 70 led, this will p
1530: 72 6f 62 61 62 6c 79 20 74 65 72 6d 69 6e 61 74 robably terminat
1540: 65 20 74 68 69 73 20 73 65 73 73 69 6f 6e 22 29 e this session")
1550: 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 ;.. }..} else
1560: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
1570: 22 41 63 63 65 70 74 20 6f 72 20 63 6f 6e 6e 65 "Accept or conne
1580: 63 74 20 66 61 69 6c 65 64 22 29 3b 0a 09 7d 0a ct failed");..}.
1590: 0a 09 72 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 ..rc = SSL_get_e
15a0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 rror(statePtr->s
15b0: 73 6c 2c 20 65 72 72 29 3b 0a 09 62 61 63 6b 69 sl, err);..backi
15c0: 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 ngError = ERR_ge
15d0: 74 5f 65 72 72 6f 72 28 29 3b 0a 09 69 66 20 28 t_error();..if (
15e0: 72 63 20 21 3d 20 53 53 4c 5f 45 52 52 4f 52 5f rc != SSL_ERROR_
15f0: 4e 4f 4e 45 29 20 7b 0a 09 20 20 20 20 64 70 72 NONE) {.. dpr
1600: 69 6e 74 66 28 22 47 6f 74 20 65 72 72 6f 72 3a intf("Got error:
1610: 20 25 69 20 28 72 63 20 3d 20 25 69 29 22 2c 20 %i (rc = %i)",
1620: 65 72 72 2c 20 72 63 29 3b 0a 09 20 20 20 20 64 err, rc);.. d
1630: 70 72 69 6e 74 66 28 22 47 6f 74 20 65 72 72 6f printf("Got erro
1640: 72 3a 20 25 73 22 2c 20 45 52 52 5f 72 65 61 73 r: %s", ERR_reas
1650: 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 on_error_string(
1660: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a backingError));.
1670: 09 7d 0a 0a 09 62 69 6f 53 68 6f 75 6c 64 52 65 .}...bioShouldRe
1680: 74 72 79 20 3d 20 30 3b 0a 09 69 66 20 28 65 72 try = 0;..if (er
1690: 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 69 r <= 0) {.. i
16a0: 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 f (rc == SSL_ERR
16b0: 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 20 OR_WANT_CONNECT
16c0: 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 || rc == SSL_ERR
16d0: 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50 54 29 20 OR_WANT_ACCEPT)
16e0: 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 {...bioShouldRet
16f0: 72 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d 20 65 ry = 1;.. } e
1700: 6c 73 65 20 69 66 20 28 72 63 20 3d 3d 20 53 53 lse if (rc == SS
1710: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 L_ERROR_WANT_REA
1720: 44 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 D) {...bioShould
1730: 52 65 74 72 79 20 3d 20 31 3b 0a 09 09 73 74 61 Retry = 1;...sta
1740: 74 65 50 74 72 2d 3e 77 61 6e 74 20 3d 20 54 43 tePtr->want = TC
1750: 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 09 20 20 20 L_READABLE;..
1760: 20 7d 20 65 6c 73 65 20 69 66 20 28 72 63 20 3d } else if (rc =
1770: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 = SSL_ERROR_WANT
1780: 5f 57 52 49 54 45 29 20 7b 0a 09 09 62 69 6f 53 _WRITE) {...bioS
1790: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a houldRetry = 1;.
17a0: 09 09 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 ..statePtr->want
17b0: 20 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b = TCL_WRITABLE;
17c0: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
17d0: 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 (BIO_should_retr
17e0: 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 y(statePtr->bio)
17f0: 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 ) {...bioShouldR
1800: 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d etry = 1;.. }
1810: 20 65 6c 73 65 20 69 66 20 28 72 63 20 3d 3d 20 else if (rc ==
1820: 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c SSL_ERROR_SYSCAL
1830: 4c 20 26 26 20 54 63 6c 5f 47 65 74 45 72 72 6e L && Tcl_GetErrn
1840: 6f 28 29 20 3d 3d 20 45 41 47 41 49 4e 29 20 7b o() == EAGAIN) {
1850: 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 ...bioShouldRetr
1860: 79 20 3d 20 31 3b 0a 09 20 20 20 20 7d 0a 09 7d y = 1;.. }..}
1870: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 69 66 20 else {.. if
1880: 28 21 53 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 (!SSL_is_init_fi
1890: 6e 69 73 68 65 64 28 73 74 61 74 65 50 74 72 2d nished(statePtr-
18a0: 3e 73 73 6c 29 29 20 7b 0a 09 09 62 69 6f 53 68 >ssl)) {...bioSh
18b0: 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 ouldRetry = 1;..
18c0: 20 20 20 20 7d 0a 09 7d 0a 0a 09 69 66 20 28 62 }..}...if (b
18d0: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 29 20 7b ioShouldRetry) {
18e0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 .. dprintf("T
18f0: 68 65 20 49 2f 4f 20 64 69 64 20 6e 6f 74 20 63 he I/O did not c
1900: 6f 6d 70 6c 65 74 65 20 2d 2d 20 62 75 74 20 77 omplete -- but w
1910: 65 20 73 68 6f 75 6c 64 20 74 72 79 20 69 74 20 e should try it
1920: 61 67 61 69 6e 22 29 3b 0a 0a 09 20 20 20 20 69 again");... i
1930: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
1940: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 gs & TLS_TCL_ASY
1950: 4e 43 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 NC) {...dprintf(
1960: 22 52 65 74 75 72 6e 69 6e 67 20 45 41 47 41 49 "Returning EAGAI
1970: 4e 20 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e N so that it can
1980: 20 62 65 20 72 65 74 72 69 65 64 20 6c 61 74 65 be retried late
1990: 72 22 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 r");...*errorCod
19a0: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
19b0: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
19c0: 50 74 72 2c 20 22 48 61 6e 64 73 68 61 6b 65 20 Ptr, "Handshake
19d0: 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 2c 20 77 69 not complete, wi
19e0: 6c 6c 20 72 65 74 72 79 20 6c 61 74 65 72 22 29 ll retry later")
19f0: 3b 0a 09 09 72 65 74 75 72 6e 20 2d 31 3b 0a 09 ;...return -1;..
1a00: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 } else {...d
1a10: 70 72 69 6e 74 66 28 22 44 6f 69 6e 67 20 73 6f printf("Doing so
1a20: 20 6e 6f 77 22 29 3b 0a 09 09 63 6f 6e 74 69 6e now");...contin
1a30: 75 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 ue;.. }..}...
1a40: 64 70 72 69 6e 74 66 28 22 57 65 20 68 61 76 65 dprintf("We have
1a50: 20 65 69 74 68 65 72 20 63 6f 6d 70 6c 65 74 65 either complete
1a60: 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 74 ly established t
1a70: 68 65 20 73 65 73 73 69 6f 6e 20 6f 72 20 63 6f he session or co
1a80: 6d 70 6c 65 74 65 6c 79 20 66 61 69 6c 65 64 20 mpletely failed
1a90: 69 74 20 2d 2d 20 74 68 65 72 65 20 69 73 20 6e it -- there is n
1aa0: 6f 20 6d 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 o more need to e
1ab0: 76 65 72 20 72 65 74 72 79 20 69 74 20 74 68 6f ver retry it tho
1ac0: 75 67 68 22 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 ugh");..break;.
1ad0: 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 }.. switch
1ae0: 20 28 72 63 29 20 7b 0a 09 63 61 73 65 20 53 53 (rc) {..case SS
1af0: 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 L_ERROR_NONE:..
1b00: 20 20 20 2f 2a 20 54 68 65 20 54 4c 53 2f 53 53 /* The TLS/SS
1b10: 4c 20 49 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 L I/O operation
1b20: 63 6f 6d 70 6c 65 74 65 64 20 2a 2f 0a 09 20 20 completed */..
1b30: 20 20 64 70 72 69 6e 74 66 28 22 54 68 65 20 63 dprintf("The c
1b40: 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 67 6f 6f onnection is goo
1b50: 64 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 d");.. *error
1b60: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 CodePtr = 0;..
1b70: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
1b80: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 SSL_ERROR_SSL:..
1b90: 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 /* A non-rec
1ba0: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
1bb0: 65 72 72 6f 72 20 69 6e 20 74 68 65 20 53 53 4c error in the SSL
1bc0: 20 6c 69 62 72 61 72 79 20 6f 63 63 75 72 72 65 library occurre
1bd0: 64 2c 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f d, usually a pro
1be0: 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 tocol error */..
1bf0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
1c00: 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 47 6f 74 20 _ERROR_SSL: Got
1c10: 70 65 72 6d 61 6e 65 6e 74 20 66 61 74 61 6c 20 permanent fatal
1c20: 53 53 4c 20 65 72 72 6f 72 2c 20 61 62 6f 72 74 SSL error, abort
1c30: 69 6e 67 20 69 6d 6d 65 64 69 61 74 65 6c 79 22 ing immediately"
1c40: 29 3b 0a 09 20 20 20 20 69 66 20 28 53 53 4c 5f );.. if (SSL_
1c50: 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c get_verify_resul
1c60: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
1c70: 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b != X509_V_OK) {
1c80: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
1c90: 74 65 50 74 72 2c 20 58 35 30 39 5f 76 65 72 69 tePtr, X509_veri
1ca0: 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 fy_cert_error_st
1cb0: 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 ring(SSL_get_ver
1cc0: 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 ify_result(state
1cd0: 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 Ptr->ssl)));..
1ce0: 20 20 7d 0a 09 20 20 20 20 69 66 20 28 62 61 63 }.. if (bac
1cf0: 6b 69 6e 67 45 72 72 6f 72 20 21 3d 20 30 29 20 kingError != 0)
1d00: 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 {...Tls_Error(st
1d10: 61 74 65 50 74 72 2c 20 45 52 52 5f 72 65 61 73 atePtr, ERR_reas
1d20: 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 on_error_string(
1d30: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a backingError));.
1d40: 09 20 20 20 20 7d 0a 09 20 20 20 20 73 74 61 74 . }.. stat
1d50: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
1d60: 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 LS_TCL_HANDSHAKE
1d70: 5f 46 41 49 4c 45 44 3b 0a 09 20 20 20 20 2a 65 _FAILED;.. *e
1d80: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 rrorCodePtr = EC
1d90: 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 ONNABORTED;..
1da0: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 return -1;...ca
1db0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 se SSL_ERROR_SYS
1dc0: 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f CALL:.. /* So
1dd0: 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 me non-recoverab
1de0: 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 le, fatal I/O er
1df0: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a ror occurred */.
1e00: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
1e10: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 22 L_ERROR_SYSCALL"
1e20: 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63 );... if (bac
1e30: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
1e40: 26 20 65 72 72 20 3d 3d 20 30 29 20 7b 0a 09 09 & err == 0) {...
1e50: 64 70 72 69 6e 74 66 28 22 45 4f 46 20 72 65 61 dprintf("EOF rea
1e60: 63 68 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 ched")...*errorC
1e70: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 odePtr = ECONNRE
1e80: 53 45 54 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 SET;...Tls_Error
1e90: 28 73 74 61 74 65 50 74 72 2c 20 22 28 75 6e 65 (statePtr, "(une
1ea0: 78 70 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 xpected) EOF rea
1eb0: 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 ched");... }
1ec0: 65 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 else if (backing
1ed0: 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 Error == 0 && er
1ee0: 72 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 r == -1) {...dpr
1ef0: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
1f00: 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 occurred (errno
1f10: 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e = %lu)", (unsign
1f20: 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 ed long) Tcl_Get
1f30: 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 Errno());...*err
1f40: 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f orCodePtr = Tcl_
1f50: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 GetErrno();...if
1f60: 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 (*errorCodePtr
1f70: 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b == ECONNRESET) {
1f80: 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ... *errorCod
1f90: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 ePtr = ECONNABOR
1fa0: 54 45 44 3b 0a 09 09 7d 0a 09 09 54 6c 73 5f 45 TED;...}...Tls_E
1fb0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 rror(statePtr, T
1fc0: 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 2a 65 72 72 cl_ErrnoMsg(*err
1fd0: 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 orCodePtr));...
1fe0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 } else {...dp
1ff0: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
2000: 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 occurred (backi
2010: 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c ngError = %lu)",
2020: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a backingError);.
2030: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2040: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 = Tcl_GetErrno()
2050: 3b 0a 09 09 69 66 20 28 2a 65 72 72 6f 72 43 6f ;...if (*errorCo
2060: 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 dePtr == ECONNRE
2070: 53 45 54 29 20 7b 0a 09 09 20 20 20 20 2a 65 72 SET) {... *er
2080: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
2090: 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 7d 0a 09 NNABORTED;...}..
20a0: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
20b0: 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f Ptr, ERR_reason_
20c0: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 error_string(bac
20d0: 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 kingError));..
20e0: 20 20 7d 0a 0a 09 20 20 20 20 73 74 61 74 65 50 }... stateP
20f0: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
2100: 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 _TCL_HANDSHAKE_F
2110: 41 49 4c 45 44 3b 0a 09 20 20 20 20 72 65 74 75 AILED;.. retu
2120: 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 65 20 53 53 rn -1;...case SS
2130: 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 L_ERROR_ZERO_RET
2140: 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 URN:.. /* The
2150: 20 54 4c 53 2f 53 53 4c 20 70 65 65 72 20 68 61 TLS/SSL peer ha
2160: 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e s closed the con
2170: 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 nection for writ
2180: 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 ing by sending t
2190: 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 he close_notify
21a0: 61 6c 65 72 74 20 2a 2f 0a 09 20 20 20 20 64 70 alert */.. dp
21b0: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
21c0: 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 20 43 6f _ZERO_RETURN: Co
21d0: 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 64 20 61 nnect returned a
21e0: 6e 20 69 6e 76 61 6c 69 64 20 76 61 6c 75 65 2e n invalid value.
21f0: 2e 2e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f ..");.. *erro
2200: 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 rCodePtr = EINVA
2210: 4c 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f L;.. Tls_Erro
2220: 72 28 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 r(statePtr, "Pee
2230: 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 r has closed the
2240: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 connection for
2250: 77 72 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 writing by sendi
2260: 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 ng the close_not
2270: 69 66 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 ify alert");..
2280: 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 return -1;...c
2290: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
22a0: 4e 54 5f 52 45 41 44 3a 0a 09 63 61 73 65 20 53 NT_READ:..case S
22b0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 SL_ERROR_WANT_WR
22c0: 49 54 45 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ITE:..case SSL_E
22d0: 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c RROR_WANT_X509_L
22e0: 4f 4f 4b 55 50 3a 0a 09 63 61 73 65 20 53 53 4c OOKUP:..case SSL
22f0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e _ERROR_WANT_CONN
2300: 45 43 54 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ECT:..case SSL_E
2310: 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50 54 RROR_WANT_ACCEPT
2320: 3a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f :..case SSL_ERRO
2330: 52 5f 57 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 63 R_WANT_ASYNC:..c
2340: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
2350: 4e 54 5f 41 53 59 4e 43 5f 4a 4f 42 3a 0a 09 63 NT_ASYNC_JOB:..c
2360: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
2370: 4e 54 5f 43 4c 49 45 4e 54 5f 48 45 4c 4c 4f 5f NT_CLIENT_HELLO_
2380: 43 42 3a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f CB:.#if OPENSSL_
2390: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
23a0: 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 63 = 0x30000000L..c
23b0: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
23c0: 4e 54 5f 52 45 54 52 59 5f 56 45 52 49 46 59 3a NT_RETRY_VERIFY:
23d0: 0a 23 65 6e 64 69 66 0a 09 64 65 66 61 75 6c 74 .#endif..default
23e0: 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 :.. /* The op
23f0: 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 eration did not
2400: 63 6f 6d 70 6c 65 74 65 20 61 6e 64 20 73 68 6f complete and sho
2410: 75 6c 64 20 62 65 20 72 65 74 72 69 65 64 20 6c uld be retried l
2420: 61 74 65 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 ater. */.. dp
2430: 72 69 6e 74 66 28 22 4f 70 65 72 61 74 69 6f 6e rintf("Operation
2440: 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 did not complet
2450: 65 2c 20 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e e, call function
2460: 20 61 67 61 69 6e 20 6c 61 74 65 72 3a 20 25 69 again later: %i
2470: 22 2c 20 72 63 29 3b 0a 09 20 20 20 20 2a 65 72 ", rc);.. *er
2480: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
2490: 41 49 4e 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 AIN;.. dprint
24a0: 66 28 22 45 52 52 28 25 64 2c 20 25 64 29 20 22 f("ERR(%d, %d) "
24b0: 2c 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f 64 65 , rc, *errorCode
24c0: 50 74 72 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 Ptr);.. Tls_E
24d0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 rror(statePtr, "
24e0: 4f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f Operation did no
24f0: 74 20 63 6f 6d 70 6c 65 74 65 2c 20 63 61 6c 6c t complete, call
2500: 20 66 75 6e 63 74 69 6f 6e 20 61 67 61 69 6e 20 function again
2510: 6c 61 74 65 72 22 29 3b 0a 09 20 20 20 20 72 65 later");.. re
2520: 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a turn -1;. }..
2530: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 6d dprintf("Rem
2540: 6f 76 69 6e 67 20 74 68 65 20 5c 22 54 4c 53 5f oving the \"TLS_
2550: 54 43 4c 5f 49 4e 49 54 5c 22 20 66 6c 61 67 20 TCL_INIT\" flag
2560: 73 69 6e 63 65 20 77 65 20 68 61 76 65 20 63 6f since we have co
2570: 6d 70 6c 65 74 65 64 20 74 68 65 20 68 61 6e 64 mpleted the hand
2580: 73 68 61 6b 65 22 29 3b 0a 20 20 20 20 73 74 61 shake");. sta
2590: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 tePtr->flags &=
25a0: 7e 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b 0a 0a ~TLS_TCL_INIT;..
25b0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 dprintf("Ret
25c0: 75 72 6e 69 6e 67 20 69 6e 20 73 75 63 63 65 73 urning in succes
25d0: 73 22 29 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 s");. *errorC
25e0: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 odePtr = 0;.
25f0: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a return 0;.}../*.
2600: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2650: 20 2a 0a 20 2a 20 54 6c 73 49 6e 70 75 74 50 72 *. * TlsInputPr
2660: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 oc --. *. *.This
2670: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
2680: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e voked by the gen
2690: 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f eric IO level to
26a0: 20 72 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 read data from
26b0: 74 68 65 0a 20 2a 09 42 49 6f 2e 20 45 71 75 69 the. *.BIo. Equi
26c0: 76 61 6c 65 6e 74 20 74 6f 20 53 53 4c 5f 72 65 valent to SSL_re
26d0: 61 64 2e 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 ad.. *.Called by
26e0: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f 4f the generic I/O
26f0: 20 6c 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 layer whenever
2700: 74 68 65 20 54 63 6c 5f 52 65 61 64 28 29 2c 20 the Tcl_Read(),
2710: 54 63 6c 5f 52 65 61 64 43 68 61 72 73 2c 0a 20 Tcl_ReadChars,.
2720: 2a 09 54 63 6c 5f 47 65 74 73 2c 20 61 6e 64 20 *.Tcl_Gets, and
2730: 54 63 6c 5f 47 65 74 73 4f 62 6a 20 66 75 6e 63 Tcl_GetsObj func
2740: 74 69 6f 6e 73 20 61 72 65 20 75 73 65 64 2e 0a tions are used..
2750: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
2760: 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 *.Returns the nu
2770: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 72 65 mber of bytes re
2780: 61 64 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f ad or -1 on erro
2790: 72 2e 20 53 65 74 73 20 65 72 72 6f 72 43 6f 64 r. Sets errorCod
27a0: 65 50 74 72 20 74 6f 0a 20 2a 09 61 20 50 4f 53 ePtr to. *.a POS
27b0: 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 IX error code if
27c0: 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 72 an error occurr
27d0: 65 64 2c 20 6f 72 20 30 20 69 66 20 6e 6f 6e 65 ed, or 0 if none
27e0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
27f0: 65 63 74 73 3a 0a 20 2a 20 20 20 20 52 65 61 64 ects:. * Read
2800: 73 20 69 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 s input from the
2810: 20 69 6e 70 75 74 20 64 65 76 69 63 65 20 6f 66 input device of
2820: 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a the channel.. *
2830: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2880: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
2890: 54 6c 73 49 6e 70 75 74 50 72 6f 63 28 43 6c 69 TlsInputProc(Cli
28a0: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
28b0: 44 61 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c Data, char *buf,
28c0: 20 69 6e 74 20 62 75 66 53 69 7a 65 2c 20 69 6e int bufSize, in
28d0: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 t *errorCodePtr)
28e0: 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 {. unsigned
28f0: 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f long backingErro
2900: 72 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 r;. State *st
2910: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
2920: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
2930: 0a 20 20 20 20 69 6e 74 20 62 79 74 65 73 52 65 . int bytesRe
2940: 61 64 2c 20 65 72 72 3b 0a 20 20 20 20 2a 65 72 ad, err;. *er
2950: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
2960: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 . dprintf("Re
2970: 61 64 28 25 64 29 22 2c 20 62 75 66 53 69 7a 65 ad(%d)", bufSize
2980: 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 70 20 );.. /* Skip
2990: 69 66 20 75 73 65 72 20 76 65 72 69 66 79 20 63 if user verify c
29a0: 61 6c 6c 62 61 63 6b 20 69 73 20 73 74 69 6c 6c allback is still
29b0: 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 20 20 20 running */.
29c0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c if (statePtr->fl
29d0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 ags & TLS_TCL_CA
29e0: 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e LLBACK) {..dprin
29f0: 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 tf("Callback is
2a00: 72 75 6e 6e 69 6e 67 2c 20 72 65 61 64 69 6e 67 running, reading
2a10: 20 30 20 62 79 74 65 73 22 29 3b 0a 09 72 65 74 0 bytes");..ret
2a20: 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 urn 0;. }..
2a30: 20 20 2f 2a 20 49 66 20 6e 6f 74 20 69 6e 69 74 /* If not init
2a40: 69 61 6c 69 7a 65 64 2c 20 64 6f 20 63 6f 6e 6e ialized, do conn
2a50: 65 63 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ect */. if (s
2a60: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
2a70: 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b TLS_TCL_INIT) {
2a80: 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 63 74 ..int tlsConnect
2a90: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c ;...dprintf("Cal
2aa0: 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 ling Tls_WaitFor
2ab0: 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a 09 74 6c 73 Connect");...tls
2ac0: 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 Connect = Tls_Wa
2ad0: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 itForConnect(sta
2ae0: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 tePtr, errorCode
2af0: 50 74 72 2c 20 30 29 3b 0a 09 69 66 20 28 74 6c Ptr, 0);..if (tl
2b00: 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b 0a sConnect < 0) {.
2b10: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f . dprintf("Go
2b20: 74 20 61 6e 20 65 72 72 6f 72 20 77 61 69 74 69 t an error waiti
2b30: 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 28 74 ng to connect (t
2b40: 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 2c 20 lsConnect = %i,
2b50: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2b60: 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 %i)", tlsConnect
2b70: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 , *errorCodePtr)
2b80: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
2b90: 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 65 72 (statePtr, strer
2ba0: 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 ror(*errorCodePt
2bb0: 72 29 29 3b 0a 0a 09 20 20 20 20 62 79 74 65 73 r));... bytes
2bc0: 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 Read = -1;..
2bd0: 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 if (*errorCodePt
2be0: 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 r == ECONNRESET)
2bf0: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f {...dprintf("Go
2c00: 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 t connection res
2c10: 65 74 22 29 3b 0a 09 09 2f 2a 20 53 6f 66 74 20 et");.../* Soft
2c20: 45 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 6f 72 43 EOF */...*errorC
2c30: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 odePtr = 0;...by
2c40: 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 tesRead = 0;..
2c50: 20 20 7d 0a 09 20 20 20 20 72 65 74 75 72 6e 20 }.. return
2c60: 62 79 74 65 73 52 65 61 64 3b 0a 09 7d 0a 20 20 bytesRead;..}.
2c70: 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 }.. /*.
2c80: 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 6c * We need to cl
2c90: 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 6f ear the SSL erro
2ca0: 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 r stack now beca
2cb0: 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 use we sometimes
2cc0: 20 72 65 61 63 68 0a 20 20 20 20 20 2a 20 74 68 reach. * th
2cd0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 is function with
2ce0: 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 73 leftover errors
2cf0: 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 20 in the stack.
2d00: 49 66 20 42 49 4f 5f 72 65 61 64 0a 20 20 20 20 If BIO_read.
2d10: 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e * returns -1 an
2d20: 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e d intends EAGAIN
2d30: 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 , there is a lef
2d40: 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20 tover error, it
2d50: 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d will be. * m
2d60: 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 20 61 isconstrued as a
2d70: 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 n error, not EAG
2d80: 41 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 AIN.. *.
2d90: 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 * Alternatively
2da0: 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 20 74 6f , we may want to
2db0: 20 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 handle the <0 r
2dc0: 65 74 75 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d eturn codes from
2dd0: 0a 20 20 20 20 20 2a 20 42 49 4f 5f 72 65 61 64 . * BIO_read
2de0: 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 61 specially (as a
2df0: 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 53 dvised in the RS
2e00: 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 A docs). TLS's
2e10: 6c 6f 77 65 72 20 6c 65 76 65 6c 20 42 49 4f 0a lower level BIO.
2e20: 20 20 20 20 20 2a 20 66 75 6e 63 74 69 6f 6e 73 * functions
2e30: 20 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 play with the r
2e40: 65 74 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 etry flags thoug
2e50: 68 2c 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d h, and this seem
2e60: 73 20 74 6f 20 77 6f 72 6b 0a 20 20 20 20 20 2a s to work. *
2e70: 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 6d correctly. Sim
2e80: 69 6c 61 72 20 66 69 78 20 69 6e 20 54 6c 73 4f ilar fix in TlsO
2e90: 75 74 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 utputProc. - hob
2ea0: 62 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 bs. */. E
2eb0: 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 RR_clear_error()
2ec0: 3b 0a 20 20 20 20 2f 2a 20 42 49 4f 5f 72 65 61 ;. /* BIO_rea
2ed0: 64 2c 20 77 68 65 72 65 20 30 20 6d 65 61 6e 73 d, where 0 means
2ee0: 20 45 4f 46 20 61 6e 64 20 2d 31 20 6d 65 61 6e EOF and -1 mean
2ef0: 73 20 65 72 72 6f 72 20 2a 2f 0a 20 20 20 20 62 s error */. b
2f00: 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f 5f 72 ytesRead = BIO_r
2f10: 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ead(statePtr->bi
2f20: 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a 65 29 o, buf, bufSize)
2f30: 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 ;. dprintf("B
2f40: 49 4f 5f 72 65 61 64 20 2d 3e 20 25 64 22 2c 20 IO_read -> %d",
2f50: 62 79 74 65 73 52 65 61 64 29 3b 0a 0a 20 20 20 bytesRead);..
2f60: 20 2f 2a 20 47 65 74 20 65 72 72 6f 72 20 69 73 /* Get error is
2f70: 20 6d 6f 72 65 20 63 6f 6d 70 72 65 68 65 6e 73 more comprehens
2f80: 69 76 65 20 74 68 61 6e 20 53 53 4c 5f 77 61 6e ive than SSL_wan
2f90: 74 20 2a 2f 0a 20 20 20 20 65 72 72 20 3d 20 53 t */. err = S
2fa0: 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 SL_get_error(sta
2fb0: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 62 79 74 65 tePtr->ssl, byte
2fc0: 73 52 65 61 64 29 3b 0a 20 20 20 20 62 61 63 6b sRead);. back
2fd0: 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 ingError = ERR_g
2fe0: 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 et_error();..
2ff0: 20 69 66 20 28 62 79 74 65 73 52 65 61 64 20 3c if (bytesRead <
3000: 3d 20 30 29 20 7b 0a 09 69 66 20 28 42 49 4f 5f = 0) {..if (BIO_
3010: 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 should_retry(sta
3020: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
3030: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 61 dprintf("Rea
3040: 64 20 66 61 69 6c 65 64 20 77 69 74 68 20 63 6f d failed with co
3050: 64 65 3d 25 64 2c 20 62 79 74 65 73 20 72 65 61 de=%d, bytes rea
3060: 64 3d 25 64 3a 20 73 68 6f 75 6c 64 20 72 65 74 d=%d: should ret
3070: 72 79 22 2c 20 65 72 72 2c 20 62 79 74 65 73 52 ry", err, bytesR
3080: 65 61 64 29 3b 0a 09 20 20 20 20 2f 2a 20 53 6f ead);.. /* So
3090: 6d 65 20 64 6f 63 73 20 69 6d 70 6c 79 20 77 65 me docs imply we
30a0: 20 73 68 6f 75 6c 64 20 72 65 64 6f 20 74 68 65 should redo the
30b0: 20 42 49 4f 5f 72 65 61 64 20 6e 6f 77 20 2a 2f BIO_read now */
30c0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
30d0: 64 70 72 69 6e 74 66 28 22 52 65 61 64 20 66 61 dprintf("Read fa
30e0: 69 6c 65 64 20 77 69 74 68 20 63 6f 64 65 3d 25 iled with code=%
30f0: 64 2c 20 62 79 74 65 73 20 72 65 61 64 3d 25 64 d, bytes read=%d
3100: 3a 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f : error conditio
3110: 6e 22 2c 20 65 72 72 2c 20 62 79 74 65 73 52 65 n", err, bytesRe
3120: 61 64 29 3b 0a 09 7d 0a 09 0a 09 2f 2a 20 54 68 ad);..}..../* Th
3130: 65 73 65 20 61 72 65 20 74 68 65 20 73 61 6d 65 ese are the same
3140: 20 61 73 20 42 49 4f 5f 72 65 74 72 79 5f 74 79 as BIO_retry_ty
3150: 70 65 20 2a 2f 0a 09 69 66 20 28 42 49 4f 5f 73 pe */..if (BIO_s
3160: 68 6f 75 6c 64 5f 72 65 61 64 28 73 74 61 74 65 hould_read(state
3170: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 Ptr->bio)) {..
3180: 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 20 68 dprintf("BIO h
3190: 61 73 20 69 6e 73 75 66 66 69 63 69 65 6e 74 20 as insufficient
31a0: 64 61 74 61 20 74 6f 20 72 65 61 64 20 61 6e 64 data to read and
31b0: 20 72 65 74 75 72 6e 22 29 3b 0a 09 7d 0a 09 69 return");..}..i
31c0: 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 77 72 f (BIO_should_wr
31d0: 69 74 65 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ite(statePtr->bi
31e0: 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e o)) {.. dprin
31f0: 74 66 28 22 42 49 4f 20 68 61 73 20 70 65 6e 64 tf("BIO has pend
3200: 69 6e 67 20 64 61 74 61 20 74 6f 20 77 72 69 74 ing data to writ
3210: 65 22 29 3b 0a 09 7d 0a 09 69 66 20 28 42 49 4f e");..}..if (BIO
3220: 5f 73 68 6f 75 6c 64 5f 69 6f 5f 73 70 65 63 69 _should_io_speci
3230: 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f al(statePtr->bio
3240: 29 29 20 7b 0a 09 20 20 20 20 69 6e 74 20 72 65 )) {.. int re
3250: 61 73 6f 6e 20 3d 20 42 49 4f 5f 67 65 74 5f 72 ason = BIO_get_r
3260: 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 61 74 etry_reason(stat
3270: 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 ePtr->bio);..
3280: 20 64 70 72 69 6e 74 66 28 22 42 49 4f 20 68 61 dprintf("BIO ha
3290: 73 20 73 6f 6d 65 20 73 70 65 63 69 61 6c 20 63 s some special c
32a0: 6f 6e 64 69 74 69 6f 6e 20 6f 74 68 65 72 20 74 ondition other t
32b0: 68 61 6e 20 72 65 61 64 20 6f 72 20 77 72 69 74 han read or writ
32c0: 65 3a 20 63 6f 64 65 3d 25 64 22 2c 20 72 65 61 e: code=%d", rea
32d0: 73 6f 6e 29 3b 0a 09 7d 0a 09 64 70 72 69 6e 74 son);..}..dprint
32e0: 66 28 22 42 49 4f 20 68 61 73 20 70 65 6e 64 69 f("BIO has pendi
32f0: 6e 67 20 64 61 74 61 20 74 6f 20 77 72 69 74 65 ng data to write
3300: 22 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 ");. }.. s
3310: 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a 09 63 witch (err) {..c
3320: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f ase SSL_ERROR_NO
3330: 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 49 2f 4f 20 NE:.. /* I/O
3340: 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 operation comple
3350: 74 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 ted */.. dpri
3360: 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 4e ntf("SSL_ERROR_N
3370: 4f 4e 45 22 29 3b 0a 09 20 20 20 20 64 70 72 69 ONE");.. dpri
3380: 6e 74 42 75 66 66 65 72 28 62 75 66 2c 20 62 79 ntBuffer(buf, by
3390: 74 65 73 52 65 61 64 29 3b 0a 09 20 20 20 20 62 tesRead);.. b
33a0: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c reak;...case SSL
33b0: 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 _ERROR_SSL:..
33c0: 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 6f 76 65 /* A non-recove
33d0: 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 65 72 72 rable, fatal err
33e0: 6f 72 20 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 or in the SSL li
33f0: 62 72 61 72 79 20 6f 63 63 75 72 72 65 64 2c 20 brary occurred,
3400: 75 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 6f 63 usually a protoc
3410: 6f 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 ol error */..
3420: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 20 65 72 dprintf("SSL er
3430: 72 6f 72 2c 20 69 6e 64 69 63 61 74 69 6e 67 20 ror, indicating
3440: 74 68 61 74 20 74 68 65 20 63 6f 6e 6e 65 63 74 that the connect
3450: 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 61 62 6f ion has been abo
3460: 72 74 65 64 22 29 3b 0a 09 20 20 20 20 69 66 20 rted");.. if
3470: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 21 3d (backingError !=
3480: 20 30 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 0) {...Tls_Erro
3490: 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 5f r(statePtr, ERR_
34a0: 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 reason_error_str
34b0: 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 ing(backingError
34c0: 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 ));.. } else
34d0: 69 66 20 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 if (SSL_get_veri
34e0: 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 fy_result(stateP
34f0: 74 72 2d 3e 73 73 6c 29 20 21 3d 20 58 35 30 39 tr->ssl) != X509
3500: 5f 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 73 5f 45 _V_OK) {...Tls_E
3510: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 58 rror(statePtr, X
3520: 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 509_verify_cert_
3530: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 53 53 4c error_string(SSL
3540: 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 _get_verify_resu
3550: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c lt(statePtr->ssl
3560: 29 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 )));.. } else
3570: 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 {...Tls_Error(s
3580: 74 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 tatePtr, "Unknow
3590: 6e 20 53 53 4c 20 65 72 72 6f 72 22 29 3b 0a 09 n SSL error");..
35a0: 20 20 20 20 7d 0a 09 20 20 20 20 2a 65 72 72 6f }.. *erro
35b0: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
35c0: 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 62 79 ABORTED;.. by
35d0: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 0a 23 tesRead = -1;..#
35e0: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 if OPENSSL_VERSI
35f0: 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 ON_NUMBER >= 0x3
3600: 30 30 30 30 30 30 30 4c 0a 09 20 20 20 20 2f 2a 0000000L.. /*
3610: 20 55 6e 65 78 70 65 63 74 65 64 20 45 4f 46 20 Unexpected EOF
3620: 66 72 6f 6d 20 74 68 65 20 70 65 65 72 20 66 6f from the peer fo
3630: 72 20 4f 70 65 6e 53 53 4c 20 33 2e 30 2b 20 2a r OpenSSL 3.0+ *
3640: 2f 0a 09 20 20 20 20 69 66 20 28 45 52 52 5f 47 /.. if (ERR_G
3650: 45 54 5f 52 45 41 53 4f 4e 28 62 61 63 6b 69 6e ET_REASON(backin
3660: 67 45 72 72 6f 72 29 20 3d 3d 20 53 53 4c 5f 52 gError) == SSL_R
3670: 5f 55 4e 45 58 50 45 43 54 45 44 5f 45 4f 46 5f _UNEXPECTED_EOF_
3680: 57 48 49 4c 45 5f 52 45 41 44 49 4e 47 29 20 7b WHILE_READING) {
3690: 0a 09 09 64 70 72 69 6e 74 66 28 22 28 55 6e 65 ...dprintf("(Une
36a0: 78 70 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 xpected) EOF rea
36b0: 63 68 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 ched")...*errorC
36c0: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 odePtr = 0;...by
36d0: 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 54 tesRead = 0;...T
36e0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
36f0: 72 2c 20 22 45 4f 46 20 72 65 61 63 68 65 64 22 r, "EOF reached"
3700: 29 3b 0a 09 20 20 20 20 7d 0a 23 65 6e 64 69 66 );.. }.#endif
3710: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
3720: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
3730: 4e 54 5f 52 45 41 44 3a 0a 09 20 20 20 20 2f 2a NT_READ:.. /*
3740: 20 4f 70 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 Op did not comp
3750: 6c 65 74 65 20 64 75 65 20 74 6f 20 6e 6f 74 20 lete due to not
3760: 65 6e 6f 75 67 68 20 64 61 74 61 20 77 61 73 20 enough data was
3770: 61 76 61 69 6c 61 62 6c 65 2e 20 52 65 74 72 79 available. Retry
3780: 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 20 20 20 later. */..
3790: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c dprintf("Got SSL
37a0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 _ERROR_WANT_READ
37b0: 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 73 20 74 , mapping this t
37c0: 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 o EAGAIN");..
37d0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
37e0: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 EAGAIN;.. by
37f0: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 tesRead = -1;..
3800: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e statePtr->wan
3810: 74 20 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 t = TCL_READABLE
3820: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
3830: 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 4c 5f (statePtr, "SSL_
3840: 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 22 ERROR_WANT_READ"
3850: 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a );.. break;..
3860: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
3870: 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 20 WANT_WRITE:..
3880: 20 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 20 63 /* Op did not c
3890: 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 75 omplete due to u
38a0: 6e 61 62 6c 65 20 74 6f 20 73 65 6e 74 20 61 6c nable to sent al
38b0: 6c 20 64 61 74 61 20 74 6f 20 74 68 65 20 42 49 l data to the BI
38c0: 4f 2e 20 52 65 74 72 79 20 6c 61 74 65 72 2e 20 O. Retry later.
38d0: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
38e0: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
38f0: 41 4e 54 5f 57 52 49 54 45 2c 20 6d 61 70 70 69 ANT_WRITE, mappi
3900: 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47 41 49 ng this to EAGAI
3910: 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 N");.. *error
3920: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
3930: 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 ;.. bytesRead
3940: 20 3d 20 2d 31 3b 0a 09 20 20 20 20 73 74 61 74 = -1;.. stat
3950: 65 50 74 72 2d 3e 77 61 6e 74 20 3d 20 54 43 4c ePtr->want = TCL
3960: 5f 57 52 49 54 41 42 4c 45 3b 0a 09 20 20 20 20 _WRITABLE;..
3970: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
3980: 74 72 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 tr, "SSL_ERROR_W
3990: 41 4e 54 5f 57 52 49 54 45 22 29 3b 0a 09 20 20 ANT_WRITE");..
39a0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
39b0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 SSL_ERROR_WANT_X
39c0: 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 509_LOOKUP:..
39d0: 20 2f 2a 20 4f 70 20 64 69 64 6e 27 74 20 63 6f /* Op didn't co
39e0: 6d 70 6c 65 74 65 20 73 69 6e 63 65 20 63 61 6c mplete since cal
39f0: 6c 62 61 63 6b 20 73 65 74 20 62 79 20 53 53 4c lback set by SSL
3a00: 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f _CTX_set_client_
3a10: 63 65 72 74 5f 63 62 28 29 20 61 73 6b 65 64 20 cert_cb() asked
3a20: 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 61 67 61 to be called aga
3a30: 69 6e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e in */.. dprin
3a40: 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f tf("Got SSL_ERRO
3a50: 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b R_WANT_X509_LOOK
3a60: 55 50 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 UP, mapping it t
3a70: 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 o EAGAIN");..
3a80: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
3a90: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 EAGAIN;.. by
3aa0: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 tesRead = -1;..
3ab0: 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 Tls_Error(sta
3ac0: 74 65 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 4f tePtr, "SSL_ERRO
3ad0: 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b R_WANT_X509_LOOK
3ae0: 55 50 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b UP");.. break
3af0: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
3b00: 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20 20 20 OR_SYSCALL:..
3b10: 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e 2d 72 65 63 /* Some non-rec
3b20: 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 overable, fatal
3b30: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
3b40: 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e ed */.. dprin
3b50: 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 53 59 tf("SSL_ERROR_SY
3b60: 53 43 41 4c 4c 22 29 3b 0a 0a 09 20 20 20 20 69 SCALL");... i
3b70: 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 f (backingError
3b80: 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 == 0 && bytesRea
3b90: 64 20 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 55 d == 0) {.../* U
3ba0: 6e 65 78 70 65 63 74 65 64 20 45 4f 46 20 66 72 nexpected EOF fr
3bb0: 6f 6d 20 74 68 65 20 70 65 65 72 20 66 6f 72 20 om the peer for
3bc0: 4f 70 65 6e 53 53 4c 20 31 2e 31 20 2a 2f 0a 09 OpenSSL 1.1 */..
3bd0: 09 64 70 72 69 6e 74 66 28 22 28 55 6e 65 78 70 .dprintf("(Unexp
3be0: 65 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 68 ected) EOF reach
3bf0: 65 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ed")...*errorCod
3c00: 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 ePtr = 0;...byte
3c10: 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 54 6c 73 sRead = 0;...Tls
3c20: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
3c30: 20 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b "EOF reached");
3c40: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
3c50: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d (backingError =
3c60: 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 = 0 && bytesRead
3c70: 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 == -1) {...dpri
3c80: 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f ntf("I/O error o
3c90: 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d ccurred (errno =
3ca0: 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 %lu)", (unsigne
3cb0: 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 d long) Tcl_GetE
3cc0: 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f rrno());...*erro
3cd0: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
3ce0: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79 74 etErrno();...byt
3cf0: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 54 esRead = -1;...T
3d00: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
3d10: 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 r, Tcl_ErrnoMsg(
3d20: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b *errorCodePtr));
3d30: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ... } else {.
3d40: 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 ..dprintf("I/O e
3d50: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 62 rror occurred (b
3d60: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c ackingError = %l
3d70: 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f u)", backingErro
3d80: 72 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 r);...*errorCode
3d90: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 Ptr = Tcl_GetErr
3da0: 6e 6f 28 29 3b 0a 09 09 62 79 74 65 73 52 65 61 no();...bytesRea
3db0: 64 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 d = -1;...Tls_Er
3dc0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 ror(statePtr, ER
3dd0: 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 R_reason_error_s
3de0: 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 tring(backingErr
3df0: 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 or));.. }..
3e00: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
3e10: 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 SSL_ERROR_ZERO_R
3e20: 45 54 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 50 ETURN:.. /* P
3e30: 65 65 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 eer has closed t
3e40: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 79 he connection by
3e50: 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f sending the clo
3e60: 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 2e se_notify alert.
3e70: 20 43 61 6e 27 74 20 72 65 61 64 2c 20 62 75 74 Can't read, but
3e80: 20 63 61 6e 20 77 72 69 74 65 2e 20 2a 2f 0a 09 can write. */..
3e90: 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 dprintf("Got
3ea0: 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f SSL_ERROR_ZERO_
3eb0: 52 45 54 55 52 4e 2c 20 74 68 69 73 20 6d 65 61 RETURN, this mea
3ec0: 6e 73 20 61 6e 20 45 4f 46 20 68 61 73 20 62 65 ns an EOF has be
3ed0: 65 6e 20 72 65 61 63 68 65 64 22 29 3b 0a 09 20 en reached");..
3ee0: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 bytesRead = 0
3ef0: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
3f00: 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 54 ePtr = 0;.. T
3f10: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
3f20: 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 6c 6f r, "Peer has clo
3f30: 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 sed the connecti
3f40: 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 20 62 on for writing b
3f50: 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c y sending the cl
3f60: 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 ose_notify alert
3f70: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ");.. break;.
3f80: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
3f90: 5f 57 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 20 20 _WANT_ASYNC:..
3fa0: 20 20 2f 2a 20 55 73 65 64 20 77 69 74 68 20 66 /* Used with f
3fb0: 6c 61 67 20 53 53 4c 5f 4d 4f 44 45 5f 41 53 59 lag SSL_MODE_ASY
3fc0: 4e 43 2c 20 6f 70 20 64 69 64 6e 27 74 20 63 6f NC, op didn't co
3fd0: 6d 70 6c 65 74 65 20 62 65 63 61 75 73 65 20 61 mplete because a
3fe0: 6e 20 61 73 79 6e 63 20 65 6e 67 69 6e 65 20 69 n async engine i
3ff0: 73 20 73 74 69 6c 6c 20 70 72 6f 63 65 73 73 69 s still processi
4000: 6e 67 20 64 61 74 61 20 2a 2f 0a 09 20 20 20 20 ng data */..
4010: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c dprintf("Got SSL
4020: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e _ERROR_WANT_ASYN
4030: 43 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 73 20 C, mapping this
4040: 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 to EAGAIN");..
4050: 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 bytesRead = -1
4060: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ;.. *errorCod
4070: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
4080: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
4090: 61 74 65 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 atePtr, "SSL_ERR
40a0: 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 22 29 3b OR_WANT_ASYNC");
40b0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 64 .. break;...d
40c0: 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 efault:.. dpr
40d0: 69 6e 74 66 28 22 55 6e 6b 6e 6f 77 6e 20 65 72 intf("Unknown er
40e0: 72 6f 72 20 28 65 72 72 20 3d 20 25 69 29 2c 20 ror (err = %i),
40f0: 6d 61 70 70 69 6e 67 20 74 6f 20 45 4f 46 22 2c mapping to EOF",
4100: 20 65 72 72 29 3b 0a 09 20 20 20 20 2a 65 72 72 err);.. *err
4110: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 orCodePtr = 0;..
4120: 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 bytesRead =
4130: 30 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 0;.. Tls_Erro
4140: 72 28 73 74 61 74 65 50 74 72 2c 20 22 55 6e 6b r(statePtr, "Unk
4150: 6e 6f 77 6e 20 65 72 72 6f 72 22 29 3b 0a 09 20 nown error");..
4160: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
4170: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 49 6e . dprintf("In
4180: 70 75 74 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 put(%d) -> %d [%
4190: 64 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 d]", bufSize, by
41a0: 74 65 73 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 tesRead, *errorC
41b0: 6f 64 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 odePtr);. ret
41c0: 75 72 6e 20 62 79 74 65 73 52 65 61 64 3b 0a 7d urn bytesRead;.}
41d0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
41e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4220: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f 75 ----. *. * TlsOu
4230: 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 tputProc --. *.
4240: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
4250: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 is invoked by t
4260: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 he generic IO le
4270: 76 65 6c 20 74 6f 20 77 72 69 74 65 20 64 61 74 vel to write dat
4280: 61 20 74 6f 0a 20 2a 09 74 68 65 20 42 49 4f 2e a to. *.the BIO.
4290: 20 45 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 53 Equivalent to S
42a0: 53 4c 5f 77 72 69 74 65 2e 20 43 61 6c 6c 65 64 SL_write. Called
42b0: 20 62 79 20 74 68 65 0a 20 2a 09 67 65 6e 65 72 by the. *.gener
42c0: 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 ic I/O layer whe
42d0: 6e 65 76 65 72 20 74 68 65 20 54 63 6c 5f 57 72 never the Tcl_Wr
42e0: 69 74 65 28 29 2c 20 54 63 6c 5f 57 72 69 74 65 ite(), Tcl_Write
42f0: 43 68 61 72 73 2c 0a 20 2a 09 54 54 63 6c 5f 57 Chars,. *.TTcl_W
4300: 72 69 74 65 4f 62 6a 20 66 75 6e 63 74 69 6f 6e riteObj function
4310: 73 20 61 72 65 20 75 73 65 64 2e 0a 20 2a 0a 20 s are used.. *.
4320: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 * Results:. *
4330: 20 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d Returns the num
4340: 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 ber of bytes wri
4350: 74 74 65 6e 20 6f 72 20 2d 31 20 6f 6e 20 65 72 tten or -1 on er
4360: 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f 72 43 ror. Sets errorC
4370: 6f 64 65 50 74 72 0a 20 2a 20 20 20 20 74 6f 20 odePtr. * to
4380: 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f a POSIX error co
4390: 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f de if an error o
43a0: 63 63 75 72 72 65 64 2c 20 6f 72 20 30 20 69 66 ccurred, or 0 if
43b0: 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 none.. *. * Sid
43c0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 e effects:. *
43d0: 20 57 72 69 74 65 73 20 6f 75 74 70 75 74 20 6f Writes output o
43e0: 6e 20 74 68 65 20 6f 75 74 70 75 74 20 64 65 76 n the output dev
43f0: 69 63 65 20 6f 66 20 74 68 65 20 63 68 61 6e 6e ice of the chann
4400: 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d el.. *. *-------
4410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4450: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
4460: 63 20 69 6e 74 20 54 6c 73 4f 75 74 70 75 74 50 c int TlsOutputP
4470: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 roc(ClientData i
4480: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 63 6f 6e nstanceData, con
4490: 73 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e st char *buf, in
44a0: 74 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a t toWrite, int *
44b0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a errorCodePtr) {.
44c0: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e unsigned lon
44d0: 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a g backingError;.
44e0: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
44f0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
4500: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 instanceData;.
4510: 20 20 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 65 int written, e
4520: 72 72 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f rr;. *errorCo
4530: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 dePtr = 0;..
4540: 64 70 72 69 6e 74 66 28 22 57 72 69 74 65 28 25 dprintf("Write(%
4550: 70 2c 20 25 64 29 22 2c 20 28 76 6f 69 64 20 2a p, %d)", (void *
4560: 29 20 73 74 61 74 65 50 74 72 2c 20 74 6f 57 72 ) statePtr, toWr
4570: 69 74 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 ite);. dprint
4580: 42 75 66 66 65 72 28 62 75 66 2c 20 74 6f 57 72 Buffer(buf, toWr
4590: 69 74 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b ite);.. /* Sk
45a0: 69 70 20 69 66 20 75 73 65 72 20 76 65 72 69 66 ip if user verif
45b0: 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 73 74 y callback is st
45c0: 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 ill running */.
45d0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
45e0: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
45f0: 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 _CALLBACK) {..dp
4600: 72 69 6e 74 66 28 22 44 6f 6e 27 74 20 70 72 6f rintf("Don't pro
4610: 63 65 73 73 20 6f 75 74 70 75 74 20 77 68 69 6c cess output whil
4620: 65 20 63 61 6c 6c 62 61 63 6b 73 20 61 72 65 20 e callbacks are
4630: 72 75 6e 6e 69 6e 67 22 29 3b 0a 09 77 72 69 74 running");..writ
4640: 74 65 6e 20 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f ten = -1;..*erro
4650: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 rCodePtr = EAGAI
4660: 4e 3b 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 N;..return -1;.
4670: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 }.. /* If
4680: 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c not initialized,
4690: 20 64 6f 20 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 do connect */.
46a0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
46b0: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
46c0: 5f 49 4e 49 54 29 20 7b 0a 09 69 6e 74 20 74 6c _INIT) {..int tl
46d0: 73 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 70 72 69 sConnect;...dpri
46e0: 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 ntf("Calling Tls
46f0: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 _WaitForConnect"
4700: 29 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 63 74 20 );...tlsConnect
4710: 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e = Tls_WaitForCon
4720: 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 nect(statePtr, e
4730: 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 31 29 3b rrorCodePtr, 1);
4740: 0a 09 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 ..if (tlsConnect
4750: 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 < 0) {.. dpr
4760: 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 intf("Got an err
4770: 6f 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f or waiting to co
4780: 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 nnect (tlsConnec
4790: 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f t = %i, *errorCo
47a0: 64 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c dePtr = %i)", tl
47b0: 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 sConnect, *error
47c0: 43 6f 64 65 50 74 72 29 3b 0a 09 20 20 20 20 54 CodePtr);.. T
47d0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
47e0: 72 2c 20 73 74 72 65 72 72 6f 72 28 2a 65 72 72 r, strerror(*err
47f0: 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a 09 20 orCodePtr));...
4800: 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b written = -1;
4810: 0a 09 20 20 20 20 69 66 20 28 2a 65 72 72 6f 72 .. if (*error
4820: 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e CodePtr == ECONN
4830: 52 45 53 45 54 29 20 7b 0a 09 09 64 70 72 69 6e RESET) {...dprin
4840: 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 63 74 69 tf("Got connecti
4850: 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 09 2f 2a on reset");.../*
4860: 20 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 09 2a Soft EOF */...*
4870: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
4880: 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b ;...written = 0;
4890: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 72 65 74 .. }.. ret
48a0: 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a 09 7d 0a urn written;..}.
48b0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 74 }.. if (t
48c0: 6f 57 72 69 74 65 20 3d 3d 20 30 29 20 7b 0a 09 oWrite == 0) {..
48d0: 64 70 72 69 6e 74 66 28 22 7a 65 72 6f 2d 77 72 dprintf("zero-wr
48e0: 69 74 65 22 29 3b 0a 09 65 72 72 20 3d 20 42 49 ite");..err = BI
48f0: 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 O_flush(statePtr
4900: 2d 3e 62 69 6f 29 3b 0a 0a 09 69 66 20 28 65 72 ->bio);...if (er
4910: 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 64 r <= 0) {.. d
4920: 70 72 69 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 printf("Flushing
4930: 20 66 61 69 6c 65 64 22 29 3b 0a 09 20 20 20 20 failed");..
4940: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
4950: 74 72 2c 20 22 46 6c 75 73 68 20 66 61 69 6c 65 tr, "Flush faile
4960: 64 22 29 3b 0a 0a 09 20 20 20 20 2a 65 72 72 6f d");... *erro
4970: 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4f 3b 0a rCodePtr = EIO;.
4980: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 30 . written = 0
4990: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 ;.. return -1
49a0: 3b 0a 09 7d 0a 0a 09 77 72 69 74 74 65 6e 20 3d ;..}...written =
49b0: 20 30 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 0;..*errorCodeP
49c0: 74 72 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e 20 tr = 0;..return
49d0: 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0;. }.. /*
49e0: 0a 20 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 . * We need
49f0: 74 6f 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c to clear the SSL
4a00: 20 65 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 error stack now
4a10: 20 62 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65 because we some
4a20: 74 69 6d 65 73 20 72 65 61 63 68 0a 20 20 20 20 times reach.
4a30: 20 2a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e * this function
4a40: 20 77 69 74 68 20 6c 65 66 74 6f 76 65 72 20 65 with leftover e
4a50: 72 72 6f 72 73 20 69 6e 20 74 68 65 20 73 74 61 rrors in the sta
4a60: 63 6b 2e 20 20 49 66 20 42 49 4f 5f 77 72 69 74 ck. If BIO_writ
4a70: 65 0a 20 20 20 20 20 2a 20 72 65 74 75 72 6e 73 e. * returns
4a80: 20 2d 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 -1 and intends
4a90: 45 41 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 EAGAIN, there is
4aa0: 20 61 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f a leftover erro
4ab0: 72 2c 20 69 74 20 77 69 6c 6c 20 62 65 0a 20 20 r, it will be.
4ac0: 20 20 20 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 * misconstrue
4ad0: 64 20 61 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e d as an error, n
4ae0: 6f 74 20 45 41 47 41 49 4e 2e 0a 20 20 20 20 20 ot EAGAIN..
4af0: 2a 0a 20 20 20 20 20 2a 20 41 6c 74 65 72 6e 61 *. * Alterna
4b00: 74 69 76 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 tively, we may w
4b10: 61 6e 74 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 ant to handle th
4b20: 65 20 3c 30 20 72 65 74 75 72 6e 20 63 6f 64 65 e <0 return code
4b30: 73 20 66 72 6f 6d 0a 20 20 20 20 20 2a 20 42 49 s from. * BI
4b40: 4f 5f 77 72 69 74 65 20 73 70 65 63 69 61 6c 6c O_write speciall
4b50: 79 20 28 61 73 20 61 64 76 69 73 65 64 20 69 6e y (as advised in
4b60: 20 74 68 65 20 52 53 41 20 64 6f 63 73 29 2e 20 the RSA docs).
4b70: 20 54 4c 53 27 73 20 6c 6f 77 65 72 20 6c 65 76 TLS's lower lev
4b80: 65 6c 0a 20 20 20 20 20 2a 20 42 49 4f 20 66 75 el. * BIO fu
4b90: 6e 63 74 69 6f 6e 73 20 70 6c 61 79 20 77 69 74 nctions play wit
4ba0: 68 20 74 68 65 20 72 65 74 72 79 20 66 6c 61 67 h the retry flag
4bb0: 73 20 74 68 6f 75 67 68 2c 20 61 6e 64 20 74 68 s though, and th
4bc0: 69 73 20 73 65 65 6d 73 20 74 6f 0a 20 20 20 20 is seems to.
4bd0: 20 2a 20 77 6f 72 6b 20 63 6f 72 72 65 63 74 6c * work correctl
4be0: 79 2e 20 20 53 69 6d 69 6c 61 72 20 66 69 78 20 y. Similar fix
4bf0: 69 6e 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 2e in TlsInputProc.
4c00: 20 2d 20 68 6f 62 62 73 0a 20 20 20 20 20 2a 2f - hobbs. */
4c10: 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 . ERR_clear_e
4c20: 72 72 6f 72 28 29 3b 0a 20 20 20 20 2f 2a 20 53 rror();. /* S
4c30: 53 4c 5f 77 72 69 74 65 20 77 69 6c 6c 20 72 65 SL_write will re
4c40: 74 75 72 6e 20 31 20 66 6f 72 20 73 75 63 63 65 turn 1 for succe
4c50: 73 73 20 6f 72 20 30 20 66 6f 72 20 66 61 69 6c ss or 0 for fail
4c60: 75 72 65 20 2a 2f 0a 20 20 20 20 77 72 69 74 74 ure */. writt
4c70: 65 6e 20 3d 20 42 49 4f 5f 77 72 69 74 65 28 73 en = BIO_write(s
4c80: 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 tatePtr->bio, bu
4c90: 66 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20 20 f, toWrite);.
4ca0: 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 dprintf("BIO_wr
4cb0: 69 74 65 28 25 70 2c 20 25 64 29 20 2d 3e 20 5b ite(%p, %d) -> [
4cc0: 25 64 5d 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 %d]", (void *) s
4cd0: 74 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 tatePtr, toWrite
4ce0: 2c 20 77 72 69 74 74 65 6e 29 3b 0a 0a 20 20 20 , written);..
4cf0: 20 2f 2a 20 47 65 74 20 65 72 72 6f 72 20 69 73 /* Get error is
4d00: 20 6d 6f 72 65 20 63 6f 6d 70 72 65 68 65 6e 73 more comprehens
4d10: 69 76 65 20 74 68 61 6e 20 53 53 4c 5f 77 61 6e ive than SSL_wan
4d20: 74 20 2a 2f 0a 20 20 20 20 65 72 72 20 3d 20 53 t */. err = S
4d30: 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 SL_get_error(sta
4d40: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 tePtr->ssl, writ
4d50: 74 65 6e 29 3b 0a 20 20 20 20 62 61 63 6b 69 6e ten);. backin
4d60: 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 74 gError = ERR_get
4d70: 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 69 _error();.. i
4d80: 66 20 28 77 72 69 74 74 65 6e 20 3c 3d 20 30 29 f (written <= 0)
4d90: 20 7b 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 {..if (BIO_shou
4da0: 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 ld_retry(statePt
4db0: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 r->bio)) {..
4dc0: 64 70 72 69 6e 74 66 28 22 57 72 69 74 65 20 66 dprintf("Write f
4dd0: 61 69 6c 65 64 20 77 69 74 68 20 63 6f 64 65 20 ailed with code
4de0: 25 64 2c 20 62 79 74 65 73 20 77 72 69 74 74 65 %d, bytes writte
4df0: 6e 3d 25 64 3a 20 73 68 6f 75 6c 64 20 72 65 74 n=%d: should ret
4e00: 72 79 22 2c 20 65 72 72 2c 20 77 72 69 74 74 65 ry", err, writte
4e10: 6e 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 n);..} else {..
4e20: 20 20 20 64 70 72 69 6e 74 66 28 22 57 72 69 74 dprintf("Writ
4e30: 65 20 66 61 69 6c 65 64 20 77 69 74 68 20 63 6f e failed with co
4e40: 64 65 20 25 64 2c 20 62 79 74 65 73 20 77 72 69 de %d, bytes wri
4e50: 74 74 65 6e 3d 25 64 3a 20 65 72 72 6f 72 20 63 tten=%d: error c
4e60: 6f 6e 64 69 74 69 6f 6e 22 2c 20 65 72 72 2c 20 ondition", err,
4e70: 77 72 69 74 74 65 6e 29 3b 0a 09 7d 0a 09 0a 09 written);..}....
4e80: 2f 2a 20 54 68 65 73 65 20 61 72 65 20 74 68 65 /* These are the
4e90: 20 73 61 6d 65 20 61 73 20 42 49 4f 5f 72 65 74 same as BIO_ret
4ea0: 72 79 5f 74 79 70 65 20 2a 2f 0a 09 69 66 20 28 ry_type */..if (
4eb0: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 61 64 28 BIO_should_read(
4ec0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 statePtr->bio))
4ed0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
4ee0: 42 49 4f 20 68 61 73 20 69 6e 73 75 66 66 69 63 BIO has insuffic
4ef0: 69 65 6e 74 20 64 61 74 61 20 74 6f 20 72 65 61 ient data to rea
4f00: 64 20 61 6e 64 20 72 65 74 75 72 6e 22 29 3b 0a d and return");.
4f10: 09 7d 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 .}..if (BIO_shou
4f20: 6c 64 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 ld_write(statePt
4f30: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 r->bio)) {..
4f40: 64 70 72 69 6e 74 66 28 22 42 49 4f 20 68 61 73 dprintf("BIO has
4f50: 20 70 65 6e 64 69 6e 67 20 64 61 74 61 20 74 6f pending data to
4f60: 20 77 72 69 74 65 22 29 3b 0a 09 7d 0a 09 69 66 write");..}..if
4f70: 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 69 6f 5f (BIO_should_io_
4f80: 73 70 65 63 69 61 6c 28 73 74 61 74 65 50 74 72 special(statePtr
4f90: 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 69 ->bio)) {.. i
4fa0: 6e 74 20 72 65 61 73 6f 6e 20 3d 20 42 49 4f 5f nt reason = BIO_
4fb0: 67 65 74 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e get_retry_reason
4fc0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
4fd0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 .. dprintf("B
4fe0: 49 4f 20 68 61 73 20 73 6f 6d 65 20 73 70 65 63 IO has some spec
4ff0: 69 61 6c 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 74 ial condition ot
5000: 68 65 72 20 74 68 61 6e 20 72 65 61 64 20 6f 72 her than read or
5010: 20 77 72 69 74 65 3a 20 63 6f 64 65 3d 25 64 22 write: code=%d"
5020: 2c 20 72 65 61 73 6f 6e 29 3b 0a 09 7d 0a 09 64 , reason);..}..d
5030: 70 72 69 6e 74 66 28 22 42 49 4f 20 68 61 73 20 printf("BIO has
5040: 70 65 6e 64 69 6e 67 20 64 61 74 61 20 74 6f 20 pending data to
5050: 77 72 69 74 65 22 29 3b 0a 0a 20 20 20 20 7d 20 write");.. }
5060: 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 66 6c 75 73 else {..BIO_flus
5070: 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 h(statePtr->bio)
5080: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 ;. }.. swi
5090: 74 63 68 20 28 65 72 72 29 20 7b 0a 09 63 61 73 tch (err) {..cas
50a0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 e SSL_ERROR_NONE
50b0: 3a 0a 09 20 20 20 20 2f 2a 20 49 2f 4f 20 6f 70 :.. /* I/O op
50c0: 65 72 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 eration complete
50d0: 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 d */.. dprint
50e0: 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e f("SSL_ERROR_NON
50f0: 45 22 29 3b 0a 09 20 20 20 20 69 66 20 28 77 72 E");.. if (wr
5100: 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09 77 itten < 0) {...w
5110: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 ritten = 0;..
5120: 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a }.. break;..
5130: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
5140: 53 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e SSL:.. /* A n
5150: 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 on-recoverable,
5160: 66 61 74 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 fatal error in t
5170: 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 20 6f he SSL library o
5180: 63 63 75 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 ccurred, usually
5190: 20 61 20 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f a protocol erro
51a0: 72 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 r */.. dprint
51b0: 66 28 22 53 53 4c 20 65 72 72 6f 72 2c 20 69 6e f("SSL error, in
51c0: 64 69 63 61 74 69 6e 67 20 74 68 61 74 20 74 68 dicating that th
51d0: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 e connection has
51e0: 20 62 65 65 6e 20 61 62 6f 72 74 65 64 22 29 3b been aborted");
51f0: 0a 09 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e .. if (backin
5200: 67 45 72 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 gError != 0) {..
5210: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
5220: 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f Ptr, ERR_reason_
5230: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 error_string(bac
5240: 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 kingError));..
5250: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 53 53 4c } else if (SSL
5260: 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 _get_verify_resu
5270: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c lt(statePtr->ssl
5280: 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 ) != X509_V_OK)
5290: 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 {...Tls_Error(st
52a0: 61 74 65 50 74 72 2c 20 58 35 30 39 5f 76 65 72 atePtr, X509_ver
52b0: 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 ify_cert_error_s
52c0: 74 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 tring(SSL_get_ve
52d0: 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 rify_result(stat
52e0: 65 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 ePtr->ssl)));..
52f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c } else {...Tl
5300: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
5310: 2c 20 22 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 , "Unknown SSL e
5320: 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 rror");.. }..
5330: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
5340: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
5350: 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d ;.. written =
5360: 20 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b -1;.. break;
5370: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
5380: 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 R_WANT_READ:..
5390: 20 20 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 20 /* Op did not
53a0: 63 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 complete due to
53b0: 6e 6f 74 20 65 6e 6f 75 67 68 20 64 61 74 61 20 not enough data
53c0: 77 61 73 20 61 76 61 69 6c 61 62 6c 65 2e 20 52 was available. R
53d0: 65 74 72 79 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 etry later. */..
53e0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 dprintf("Got
53f0: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
5400: 52 45 41 44 2c 20 6d 61 70 70 69 6e 67 20 69 74 READ, mapping it
5410: 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 to EAGAIN");..
5420: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
5430: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
5440: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 written = -1;..
5450: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e statePtr->wan
5460: 74 20 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 t = TCL_READABLE
5470: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
5480: 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 4c 5f (statePtr, "SSL_
5490: 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 22 ERROR_WANT_READ"
54a0: 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a );.. break;..
54b0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
54c0: 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 20 WANT_WRITE:..
54d0: 20 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 20 63 /* Op did not c
54e0: 6f 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 75 omplete due to u
54f0: 6e 61 62 6c 65 20 74 6f 20 73 65 6e 74 20 61 6c nable to sent al
5500: 6c 20 64 61 74 61 20 74 6f 20 74 68 65 20 42 49 l data to the BI
5510: 4f 2e 20 52 65 74 72 79 20 6c 61 74 65 72 2e 20 O. Retry later.
5520: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
5530: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
5540: 41 4e 54 5f 57 52 49 54 45 2c 20 6d 61 70 70 69 ANT_WRITE, mappi
5550: 6e 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 ng it to EAGAIN"
5560: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
5570: 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a dePtr = EAGAIN;.
5580: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
5590: 31 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 1;.. statePtr
55a0: 2d 3e 77 61 6e 74 20 3d 20 54 43 4c 5f 57 52 49 ->want = TCL_WRI
55b0: 54 41 42 4c 45 3b 0a 09 20 20 20 20 54 6c 73 5f TABLE;.. Tls_
55c0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
55d0: 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f "SSL_ERROR_WANT_
55e0: 57 52 49 54 45 22 29 3b 0a 09 20 20 20 20 62 72 WRITE");.. br
55f0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
5600: 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f ERROR_WANT_X509_
5610: 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 2f 2a 20 LOOKUP:.. /*
5620: 4f 70 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 Op didn't comple
5630: 74 65 20 73 69 6e 63 65 20 63 61 6c 6c 62 61 63 te since callbac
5640: 6b 20 73 65 74 20 62 79 20 53 53 4c 5f 43 54 58 k set by SSL_CTX
5650: 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 74 _set_client_cert
5660: 5f 63 62 28 29 20 61 73 6b 65 64 20 74 6f 20 62 _cb() asked to b
5670: 65 20 63 61 6c 6c 65 64 20 61 67 61 69 6e 20 2a e called again *
5680: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
5690: 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 Got SSL_ERROR_WA
56a0: 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 2c 20 NT_X509_LOOKUP,
56b0: 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 45 41 mapping it to EA
56c0: 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 GAIN");.. *er
56d0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
56e0: 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 74 65 AIN;.. writte
56f0: 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 54 6c 73 n = -1;.. Tls
5700: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
5710: 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 "SSL_ERROR_WANT
5720: 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 22 29 3b 0a _X509_LOOKUP");.
5730: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
5740: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 se SSL_ERROR_SYS
5750: 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f CALL:.. /* So
5760: 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 me non-recoverab
5770: 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 le, fatal I/O er
5780: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a ror occurred */.
5790: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
57a0: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 22 L_ERROR_SYSCALL"
57b0: 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63 );... if (bac
57c0: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 kingError == 0 &
57d0: 26 20 77 72 69 74 74 65 6e 20 3d 3d 20 30 29 20 & written == 0)
57e0: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 {...dprintf("EOF
57f0: 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 reached")...*er
5800: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
5810: 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 ..written = 0;..
5820: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
5830: 50 74 72 2c 20 22 45 4f 46 20 72 65 61 63 68 65 Ptr, "EOF reache
5840: 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 d");... } els
5850: 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 e if (backingErr
5860: 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69 74 74 or == 0 && writt
5870: 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 en == -1) {...dp
5880: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 rintf("I/O error
5890: 20 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f occurred (errno
58a0: 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 = %lu)", (unsig
58b0: 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 ned long) Tcl_Ge
58c0: 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 tErrno());...*er
58d0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
58e0: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 77 _GetErrno();...w
58f0: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 54 ritten = -1;...T
5900: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
5910: 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 r, Tcl_ErrnoMsg(
5920: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b *errorCodePtr));
5930: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ... } else {.
5940: 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 ..dprintf("I/O e
5950: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 62 rror occurred (b
5960: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c ackingError = %l
5970: 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f u)", backingErro
5980: 72 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 r);...*errorCode
5990: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 Ptr = Tcl_GetErr
59a0: 6e 6f 28 29 3b 0a 09 09 77 72 69 74 74 65 6e 20 no();...written
59b0: 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 6f = -1;...Tls_Erro
59c0: 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 5f r(statePtr, ERR_
59d0: 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 reason_error_str
59e0: 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 ing(backingError
59f0: 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ));.. }..
5a00: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
5a10: 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 L_ERROR_ZERO_RET
5a20: 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 50 65 65 URN:.. /* Pee
5a30: 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 r has closed the
5a40: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 79 20 73 connection by s
5a50: 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 ending the close
5a60: 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 2e 20 43 _notify alert. C
5a70: 61 6e 27 74 20 72 65 61 64 2c 20 62 75 74 20 63 an't read, but c
5a80: 61 6e 20 77 72 69 74 65 2e 20 2a 2f 0a 09 20 20 an write. */..
5a90: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
5aa0: 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 SL_ERROR_ZERO_RE
5ab0: 54 55 52 4e 2c 20 74 68 69 73 20 6d 65 61 6e 73 TURN, this means
5ac0: 20 61 6e 20 45 4f 46 20 68 61 73 20 62 65 65 6e an EOF has been
5ad0: 20 72 65 61 63 68 65 64 22 29 3b 0a 09 20 20 20 reached");..
5ae0: 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 written = 0;..
5af0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
5b00: 20 3d 20 30 3b 0a 09 20 20 20 20 54 6c 73 5f 45 = 0;.. Tls_E
5b10: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 rror(statePtr, "
5b20: 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 64 20 Peer has closed
5b30: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 the connection f
5b40: 6f 72 20 77 72 69 74 69 6e 67 20 62 79 20 73 65 or writing by se
5b50: 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f nding the close_
5b60: 6e 6f 74 69 66 79 20 61 6c 65 72 74 22 29 3b 0a notify alert");.
5b70: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
5b80: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
5b90: 54 5f 41 53 59 4e 43 3a 0a 09 20 20 20 20 2f 2a T_ASYNC:.. /*
5ba0: 20 55 73 65 64 20 77 69 74 68 20 66 6c 61 67 20 Used with flag
5bb0: 53 53 4c 5f 4d 4f 44 45 5f 41 53 59 4e 43 2c 20 SSL_MODE_ASYNC,
5bc0: 6f 70 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 op didn't comple
5bd0: 74 65 20 62 65 63 61 75 73 65 20 61 6e 20 61 73 te because an as
5be0: 79 6e 63 20 65 6e 67 69 6e 65 20 69 73 20 73 74 ync engine is st
5bf0: 69 6c 6c 20 70 72 6f 63 65 73 73 69 6e 67 20 64 ill processing d
5c00: 61 74 61 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 ata */.. dpri
5c10: 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 ntf("Got SSL_ERR
5c20: 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 2c 20 6d OR_WANT_ASYNC, m
5c30: 61 70 70 69 6e 67 20 74 68 69 73 20 74 6f 20 45 apping this to E
5c40: 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 AGAIN");.. *e
5c50: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
5c60: 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 74 GAIN;.. writt
5c70: 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 54 6c en = -1;.. Tl
5c80: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
5c90: 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e , "SSL_ERROR_WAN
5ca0: 54 5f 41 53 59 4e 43 22 29 3b 0a 09 20 20 20 20 T_ASYNC");..
5cb0: 62 72 65 61 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 break;...default
5cc0: 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 :.. dprintf("
5cd0: 75 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 3a 20 25 unknown error: %
5ce0: 64 22 2c 20 65 72 72 29 3b 0a 09 20 20 20 20 54 d", err);.. T
5cf0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
5d00: 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 6f r, "Unknown erro
5d10: 72 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b r");.. break;
5d20: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 . }.. dpri
5d30: 6e 74 66 28 22 4f 75 74 70 75 74 28 25 64 29 20 ntf("Output(%d)
5d40: 2d 3e 20 25 64 22 2c 20 74 6f 57 72 69 74 65 2c -> %d", toWrite,
5d50: 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 72 written);. r
5d60: 65 74 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a 7d eturn written;.}
5d70: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
5d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dc0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 47 ----. *. * Tls_G
5dd0: 65 74 50 61 72 65 6e 74 20 2d 2d 0a 20 2a 0a 20 etParent --. *.
5de0: 2a 20 20 20 20 47 65 74 20 70 61 72 65 6e 74 20 * Get parent
5df0: 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 20 73 74 channel for a st
5e00: 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 acked channel..
5e10: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
5e20: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
5e30: 6f 72 20 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e or NULL if none.
5e40: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
5e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e90: 2d 2d 2d 0a 20 2a 2f 0a 54 63 6c 5f 43 68 61 6e ---. */.Tcl_Chan
5ea0: 6e 65 6c 20 54 6c 73 5f 47 65 74 50 61 72 65 6e nel Tls_GetParen
5eb0: 74 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 t(State *statePt
5ec0: 72 2c 20 69 6e 74 20 6d 61 73 6b 46 6c 61 67 73 r, int maskFlags
5ed0: 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 ) {. dprintf(
5ee0: 22 52 65 71 75 65 73 74 65 64 20 74 6f 20 67 65 "Requested to ge
5ef0: 74 20 70 61 72 65 6e 74 20 6f 66 20 63 68 61 6e t parent of chan
5f00: 6e 65 6c 20 25 70 22 2c 20 73 74 61 74 65 50 74 nel %p", statePt
5f10: 72 2d 3e 73 65 6c 66 29 3b 0a 0a 20 20 20 20 69 r->self);.. i
5f20: 66 20 28 28 73 74 61 74 65 50 74 72 2d 3e 66 6c f ((statePtr->fl
5f30: 61 67 73 20 26 20 7e 6d 61 73 6b 46 6c 61 67 73 ags & ~maskFlags
5f40: 29 20 26 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 ) & TLS_TCL_FAST
5f50: 50 41 54 48 29 20 7b 0a 09 64 70 72 69 6e 74 66 PATH) {..dprintf
5f60: 28 22 41 73 6b 65 64 20 74 6f 20 67 65 74 20 74 ("Asked to get t
5f70: 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 he parent channe
5f80: 6c 20 77 68 69 6c 65 20 77 65 20 61 72 65 20 75 l while we are u
5f90: 73 69 6e 67 20 46 61 73 74 50 61 74 68 20 2d 2d sing FastPath --
5fa0: 20 72 65 74 75 72 6e 69 6e 67 20 4e 55 4c 4c 22 returning NULL"
5fb0: 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b );..return NULL;
5fc0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
5fd0: 6e 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 n Tcl_GetStacked
5fe0: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
5ff0: 2d 3e 73 65 6c 66 29 3b 0a 7d 0a 0a 2f 2a 0a 20 ->self);.}../*.
6000: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6050: 2a 0a 20 2a 20 54 6c 73 53 65 74 4f 70 74 69 6f *. * TlsSetOptio
6060: 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 nProc --. *. *.S
6070: 65 74 73 20 61 6e 20 6f 70 74 69 6f 6e 20 74 6f ets an option to
6080: 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 53 4c value for a SSL
6090: 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 socket based ch
60a0: 61 6e 6e 65 6c 2e 20 43 61 6c 6c 65 64 20 62 79 annel. Called by
60b0: 20 74 68 65 0a 20 2a 09 67 65 6e 65 72 69 63 20 the. *.generic
60c0: 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 6e 65 76 I/O layer whenev
60d0: 65 72 20 74 68 65 20 54 63 6c 5f 53 65 74 43 68 er the Tcl_SetCh
60e0: 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 29 20 66 75 annelOption() fu
60f0: 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 2e 0a nction is used..
6100: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
6110: 2a 20 20 20 20 54 43 4c 5f 4f 4b 20 69 66 20 73 * TCL_OK if s
6120: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
6130: 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 _ERROR if failed
6140: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
6150: 65 63 74 73 3a 0a 20 2a 20 20 20 20 55 70 64 61 ects:. * Upda
6160: 74 65 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 tes channel opti
6170: 6f 6e 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e on to new value.
6180: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
6190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61d0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
61e0: 6e 74 0a 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 nt.TlsSetOptionP
61f0: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 roc(ClientData i
6200: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 nstanceData,
6210: 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e /* Socket state.
6220: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
6230: 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 rp *interp,../*
6240: 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e For errors - can
6250: 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 be NULL. */.
6260: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 const char *opt
6270: 69 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 ionName,./* Name
6280: 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 of the option t
6290: 6f 20 73 65 74 20 74 68 65 20 76 61 6c 75 65 20 o set the value
62a0: 66 6f 72 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e for, or..... * N
62b0: 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f ULL to get all o
62c0: 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 ptions and their
62d0: 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 values. */.
62e0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 const char *opti
62f0: 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 56 61 6c 75 onValue)./* Valu
6300: 65 20 66 6f 72 20 6f 70 74 69 6f 6e 2e 20 2a 2f e for option. */
6310: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
6320: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
6330: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
6340: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
6350: 20 70 61 72 65 6e 74 20 3d 20 54 6c 73 5f 47 65 parent = Tls_Ge
6360: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 tParent(statePtr
6370: 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 , TLS_TCL_FASTPA
6380: 54 48 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 TH);. Tcl_Dri
6390: 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 verSetOptionProc
63a0: 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b *setOptionProc;
63b0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
63c0: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 73 65 alled");.. se
63d0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 tOptionProc = Tc
63e0: 6c 5f 43 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 l_ChannelSetOpti
63f0: 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 onProc(Tcl_GetCh
6400: 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 annelType(parent
6410: 29 29 3b 0a 20 20 20 20 69 66 20 28 73 65 74 4f ));. if (setO
6420: 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c ptionProc != NUL
6430: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 L) {..return (*s
6440: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 etOptionProc)(Tc
6450: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
6460: 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 anceData(parent)
6470: 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e , interp, option
6480: 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 Name, optionValu
6490: 65 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a e);. }. /*
64a0: 0a 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 . * Request
64b0: 66 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 6f for a specific o
64c0: 70 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 ption has to fai
64d0: 6c 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 l, we don't have
64e0: 20 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 any.. */.
64f0: 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 return Tcl_Bad
6500: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e ChannelOption(in
6510: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
6520: 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d , "");.}../*. *-
6530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6570: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 4f --. *. * TlsGetO
6580: 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a ptionProc --. *.
6590: 20 2a 09 47 65 74 20 61 20 6f 70 74 69 6f 6e 27 *.Get a option'
65a0: 73 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 53 s value for a SS
65b0: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
65c0: 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 20 6c 69 73 hannel, or a lis
65d0: 74 20 6f 66 20 61 6c 6c 0a 20 2a 09 6f 70 74 69 t of all. *.opti
65e0: 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 ons and their va
65f0: 6c 75 65 73 2e 20 43 61 6c 6c 65 64 20 62 79 20 lues. Called by
6600: 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 the generic I/O
6610: 6c 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 74 layer whenever t
6620: 68 65 0a 20 2a 09 54 63 6c 5f 47 65 74 43 68 61 he. *.Tcl_GetCha
6630: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 29 20 66 75 6e nnelOption() fun
6640: 63 74 69 6f 6e 20 69 73 20 75 73 65 64 2e 0a 20 ction is used..
6650: 2a 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a *. *. * Results:
6660: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
6670: 63 6c 20 72 65 73 75 6c 74 2e 20 54 68 65 20 76 cl result. The v
6680: 61 6c 75 65 20 6f 66 20 74 68 65 20 73 70 65 63 alue of the spec
6690: 69 66 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 20 ified option or
66a0: 61 20 6c 69 73 74 20 6f 66 0a 20 2a 09 61 6c 6c a list of. *.all
66b0: 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 options and the
66c0: 69 72 20 76 61 6c 75 65 73 20 69 73 20 72 65 74 ir values is ret
66d0: 75 72 6e 65 64 20 69 6e 20 74 68 65 20 73 75 70 urned in the sup
66e0: 70 6c 69 65 64 20 44 53 74 72 69 6e 67 2e 0a 20 plied DString..
66f0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
6700: 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 s:. * None..
6710: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
6720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6750: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
6760: 69 63 20 69 6e 74 0a 54 6c 73 47 65 74 4f 70 74 ic int.TlsGetOpt
6770: 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ionProc(ClientDa
6780: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
6790: 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 /* Socket st
67a0: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f ate. */. Tcl_
67b0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 Interp *interp,.
67c0: 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 2d ./* For errors -
67d0: 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f can be NULL. */
67e0: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
67f0: 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 *optionName,./*
6800: 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 Name of the opti
6810: 6f 6e 20 74 6f 20 72 65 74 72 69 65 76 65 20 74 on to retrieve t
6820: 68 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f 72 he value for, or
6830: 0a 09 09 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20 ..... * NULL to
6840: 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 get all options
6850: 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 and their values
6860: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 44 53 74 . */. Tcl_DSt
6870: 72 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 ring *optionValu
6880: 65 29 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73 e)./* Where to s
6890: 74 6f 72 65 20 74 68 65 20 63 6f 6d 70 75 74 65 tore the compute
68a0: 64 20 76 61 6c 75 65 20 69 6e 69 74 69 61 6c 69 d value initiali
68b0: 7a 65 64 20 62 79 20 63 61 6c 6c 65 72 2e 20 2a zed by caller. *
68c0: 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 /.{. State *s
68d0: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
68e0: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
68f0: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
6900: 6c 20 70 61 72 65 6e 74 20 3d 20 54 6c 73 5f 47 l parent = Tls_G
6910: 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 etParent(statePt
6920: 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 r, TLS_TCL_FASTP
6930: 41 54 48 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 ATH);. Tcl_Dr
6940: 69 76 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f iverGetOptionPro
6950: 63 20 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 c *getOptionProc
6960: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
6970: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 67 Called");.. g
6980: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 etOptionProc = T
6990: 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 cl_ChannelGetOpt
69a0: 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 ionProc(Tcl_GetC
69b0: 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e hannelType(paren
69c0: 74 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 74 t));. if (get
69d0: 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 OptionProc != NU
69e0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a LL) {..return (*
69f0: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 getOptionProc)(T
6a00: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
6a10: 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 tanceData(parent
6a20: 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f ), interp, optio
6a30: 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c nName, optionVal
6a40: 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ue);. } else
6a50: 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 3d if (optionName =
6a60: 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 20 = (char*) NULL)
6a70: 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 71 75 65 73 {../*.. * Reques
6a80: 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 20 61 t is query for a
6a90: 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 69 73 ll options, this
6aa0: 20 69 73 20 6f 6b 2e 0a 09 20 2a 2f 0a 09 72 65 is ok... */..re
6ab0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 turn TCL_OK;.
6ac0: 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a }. /*. *
6ad0: 20 52 65 71 75 65 73 74 20 66 6f 72 20 61 20 73 Request for a s
6ae0: 70 65 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 68 pecific option h
6af0: 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 64 as to fail, we d
6b00: 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 2e 0a 20 on't have any..
6b10: 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 */. retur
6b20: 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 6c n Tcl_BadChannel
6b30: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f Option(interp, o
6b40: 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 3b 0a ptionName, "");.
6b50: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
6b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ba0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 54 -----. *. * T
6bb0: 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 lsChannelHandler
6bc0: 54 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 Timer --. *. *.C
6bd0: 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 6f 74 alled by the not
6be0: 69 66 69 65 72 20 76 69 61 20 61 20 74 69 6d 65 ifier via a time
6bf0: 72 2c 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 20 r, to flush out
6c00: 64 61 74 61 20 77 61 69 74 69 6e 67 20 69 6e 0a data waiting in.
6c10: 20 2a 09 63 68 61 6e 6e 65 6c 20 62 75 66 66 65 *.channel buffe
6c20: 72 73 2e 20 63 61 6c 6c 65 64 20 62 79 20 74 68 rs. called by th
6c30: 65 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c 61 e generic I/O la
6c40: 79 65 72 20 77 68 65 6e 65 76 65 72 20 74 68 65 yer whenever the
6c50: 0a 20 2a 09 54 63 6c 5f 47 65 74 43 68 61 6e 6e . *.Tcl_GetChann
6c60: 65 6c 48 61 6e 64 6c 65 28 29 20 66 75 6e 63 74 elHandle() funct
6c70: 69 6f 6e 20 69 73 20 75 73 65 64 2e 0a 20 2a 0a ion is used.. *.
6c80: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 * Results:. *
6c90: 20 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 None.. *.
6ca0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
6cb0: 20 2a 09 43 72 65 61 74 65 73 20 6e 6f 74 69 66 *.Creates notif
6cc0: 69 63 61 74 69 6f 6e 20 65 76 65 6e 74 2e 0a 20 ication event..
6cd0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
6ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d20: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 -. */.static voi
6d30: 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 d TlsChannelHand
6d40: 6c 65 72 54 69 6d 65 72 28 43 6c 69 65 6e 74 44 lerTimer(ClientD
6d50: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 ata clientData)
6d60: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
6d70: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
6d80: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
6d90: 20 20 69 6e 74 20 6d 61 73 6b 20 3d 20 73 74 61 int mask = sta
6da0: 74 65 50 74 72 2d 3e 77 61 6e 74 3b 20 2f 2a 20 tePtr->want; /*
6db0: 49 6e 69 74 20 74 6f 20 53 53 4c 5f 45 52 52 4f Init to SSL_ERRO
6dc0: 52 5f 57 41 4e 54 5f 52 45 41 44 20 61 6e 64 20 R_WANT_READ and
6dd0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
6de0: 52 49 54 45 20 2a 2f 0a 0a 20 20 20 20 64 70 72 RITE */.. dpr
6df0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
6e00: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 . statePtr->t
6e10: 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 imer = (Tcl_Time
6e20: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 rToken) NULL;..
6e30: 20 20 20 2f 2a 20 43 68 65 63 6b 20 66 6f 72 20 /* Check for
6e40: 61 6d 6f 75 6e 74 20 6f 66 20 64 61 74 61 20 70 amount of data p
6e50: 65 6e 64 69 6e 67 20 69 6e 20 42 49 4f 20 77 72 ending in BIO wr
6e60: 69 74 65 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 ite buffer */.
6e70: 20 20 69 66 20 28 42 49 4f 5f 77 70 65 6e 64 69 if (BIO_wpendi
6e80: 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ng(statePtr->bio
6e90: 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 5b )) {..dprintf("[
6ea0: 63 68 61 6e 3d 25 70 5d 20 42 49 4f 20 77 72 69 chan=%p] BIO wri
6eb0: 74 61 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 table", statePtr
6ec0: 2d 3e 73 65 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 ->self);...mask
6ed0: 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b |= TCL_WRITABLE;
6ee0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
6ef0: 68 65 63 6b 20 66 6f 72 20 61 6d 6f 75 6e 74 20 heck for amount
6f00: 6f 66 20 64 61 74 61 20 70 65 6e 64 69 6e 67 20 of data pending
6f10: 69 6e 20 42 49 4f 20 72 65 61 64 20 62 75 66 66 in BIO read buff
6f20: 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 42 49 er */. if (BI
6f30: 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 O_pending(stateP
6f40: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 tr->bio)) {..dpr
6f50: 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 intf("[chan=%p]
6f60: 42 49 4f 20 72 65 61 64 61 62 6c 65 22 2c 20 73 BIO readable", s
6f70: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
6f80: 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 ..mask |= TCL_RE
6f90: 41 44 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 ADABLE;. }..
6fa0: 20 20 20 2f 2a 20 4e 6f 74 69 66 79 20 65 76 65 /* Notify eve
6fb0: 6e 74 20 73 75 62 73 79 73 74 65 6d 20 74 68 61 nt subsystem tha
6fc0: 74 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 69 73 t the channel is
6fd0: 20 72 65 61 64 61 62 6c 65 20 6f 72 20 77 72 69 readable or wri
6fe0: 74 65 61 62 6c 65 20 2a 2f 0a 20 20 20 20 64 70 teable */. dp
6ff0: 72 69 6e 74 66 28 22 4e 6f 74 69 66 79 69 6e 67 rintf("Notifying
7000: 20 6f 75 72 73 65 6c 76 65 73 22 29 3b 0a 20 20 ourselves");.
7010: 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e Tcl_NotifyChan
7020: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 nel(statePtr->se
7030: 6c 66 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 73 lf, mask);. s
7040: 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 3d 20 tatePtr->want =
7050: 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 0;.. dprintf(
7060: 22 52 65 74 75 72 6e 69 6e 67 22 29 3b 0a 0a 20 "Returning");..
7070: 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 2f 2a return;.}../*
7080: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
7090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70d0: 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 68 50 . *. * TlsWatchP
70e0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 65 74 roc --. *. *.Set
70f0: 20 75 70 20 74 68 65 20 65 76 65 6e 74 20 6e 6f up the event no
7100: 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 20 tifier to watch
7110: 66 6f 72 20 65 76 65 6e 74 73 20 6f 66 20 69 6e for events of in
7120: 74 65 72 65 73 74 20 66 72 6f 6d 20 74 68 69 73 terest from this
7130: 0a 20 2a 09 63 68 61 6e 6e 65 6c 2e 20 43 61 6c . *.channel. Cal
7140: 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 led by the gener
7150: 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 ic I/O layer whe
7160: 6e 65 76 65 72 20 74 68 65 20 75 73 65 72 20 28 never the user (
7170: 6f 72 20 74 68 65 0a 20 2a 09 73 79 73 74 65 6d or the. *.system
7180: 29 20 61 6e 6e 6f 75 6e 63 65 73 20 69 74 73 20 ) announces its
7190: 28 64 69 73 29 69 6e 74 65 72 65 73 74 20 69 6e (dis)interest in
71a0: 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 events on the c
71b0: 68 61 6e 6e 65 6c 2e 20 54 68 69 73 20 69 73 0a hannel. This is.
71c0: 20 2a 09 63 61 6c 6c 65 64 20 72 65 70 65 61 74 *.called repeat
71d0: 65 64 6c 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 edly.. *. * Resu
71e0: 6c 74 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e lts:. * None.
71f0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
7200: 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 75 70 20 cts:. *.Sets up
7210: 74 68 65 20 74 69 6d 65 2d 62 61 73 65 64 20 6e the time-based n
7220: 6f 74 69 66 69 65 72 20 73 6f 20 74 68 61 74 20 otifier so that
7230: 66 75 74 75 72 65 20 65 76 65 6e 74 73 20 6f 6e future events on
7240: 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 the channel. *.
7250: 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 62 79 20 will be seen by
7260: 54 43 4c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d TCL.. *. *------
7270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72b0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
72c0: 69 63 20 76 6f 69 64 0a 54 6c 73 57 61 74 63 68 ic void.TlsWatch
72d0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
72e0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 instanceData,
72f0: 20 2f 2a 20 54 68 65 20 73 6f 63 6b 65 74 20 73 /* The socket s
7300: 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 tate. */. int
7310: 20 6d 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 6e mask).../* Even
7320: 74 73 20 6f 66 20 69 6e 74 65 72 65 73 74 3b 20 ts of interest;
7330: 61 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 an OR-ed combina
7340: 74 69 6f 6e 20 6f 66 0a 09 09 09 09 20 2a 20 54 tion of..... * T
7350: 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 4c CL_READABLE, TCL
7360: 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 _WRITABLE and TC
7370: 4c 5f 45 58 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a L_EXCEPTION. */.
7380: 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 {. Tcl_Channe
7390: 6c 20 20 20 20 20 70 61 72 65 6e 74 3b 0a 20 20 l parent;.
73a0: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
73b0: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
73c0: 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 stanceData;.
73d0: 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 68 50 Tcl_DriverWatchP
73e0: 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a roc *watchProc;.
73f0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 6c . dprintf("Tl
7400: 73 57 61 74 63 68 50 72 6f 63 28 30 78 25 78 29 sWatchProc(0x%x)
7410: 22 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 64 70 ", mask);. dp
7420: 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65 50 rintFlags(stateP
7430: 74 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 72 65 tr);.. /* Pre
7440: 74 65 6e 64 20 74 6f 20 62 65 20 64 65 61 64 20 tend to be dead
7450: 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 76 as long as the v
7460: 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 erify callback i
7470: 73 20 72 75 6e 6e 69 6e 67 2e 0a 20 20 20 20 20 s running..
7480: 2a 20 4f 74 68 65 72 77 69 73 65 20 74 68 61 74 * Otherwise that
7490: 20 63 61 6c 6c 62 61 63 6b 20 63 6f 75 6c 64 20 callback could
74a0: 62 65 20 69 6e 76 6f 6b 65 64 20 72 65 63 75 72 be invoked recur
74b0: 73 69 76 65 6c 79 2e 20 2a 2f 0a 20 20 20 20 69 sively. */. i
74c0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
74d0: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c gs & TLS_TCL_CAL
74e0: 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 LBACK) {..dprint
74f0: 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 6f f("Callback is o
7500: 6e 2d 67 6f 69 6e 67 2c 20 64 6f 69 6e 67 20 6e n-going, doing n
7510: 6f 74 68 69 6e 67 22 29 3b 0a 09 72 65 74 75 72 othing");..retur
7520: 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 61 n;. }.. pa
7530: 72 65 6e 74 20 3d 20 54 6c 73 5f 47 65 74 50 61 rent = Tls_GetPa
7540: 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 rent(statePtr, T
7550: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
7560: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 ;.. if (state
7570: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
7580: 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 _TCL_HANDSHAKE_F
7590: 41 49 4c 45 44 29 20 7b 0a 09 64 70 72 69 6e 74 AILED) {..dprint
75a0: 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63 f("Asked to watc
75b0: 68 20 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20 h a socket with
75c0: 61 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 a failed handsha
75d0: 6b 65 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 ke -- nothing ca
75e0: 6e 20 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b n happen here");
75f0: 0a 09 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 ..dprintf("Unreg
7600: 69 73 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 istering interes
7610: 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 t in the lower c
7620: 68 61 6e 6e 65 6c 22 29 3b 0a 0a 09 77 61 74 63 hannel");...watc
7630: 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e hProc = Tcl_Chan
7640: 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c nelWatchProc(Tcl
7650: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
7660: 70 61 72 65 6e 74 29 29 3b 0a 09 77 61 74 63 68 parent));..watch
7670: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
7680: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
7690: 70 61 72 65 6e 74 29 2c 20 30 29 3b 0a 09 73 74 parent), 0);..st
76a0: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
76b0: 6b 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e 3b 0a k = 0;..return;.
76c0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 }.. state
76d0: 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d Ptr->watchMask =
76e0: 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a 20 4e mask;.. /* N
76f0: 6f 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 o channel handle
7700: 72 73 20 61 6e 79 20 6d 6f 72 65 2e 20 57 65 20 rs any more. We
7710: 77 69 6c 6c 20 62 65 20 6e 6f 74 69 66 69 65 64 will be notified
7720: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 20 automatically.
7730: 20 20 20 20 2a 20 61 62 6f 75 74 20 65 76 65 6e * about even
7740: 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 ts on the channe
7750: 6c 20 62 65 6c 6f 77 20 76 69 61 20 61 20 63 61 l below via a ca
7760: 6c 6c 20 74 6f 20 6f 75 72 0a 20 20 20 20 20 2a ll to our. *
7770: 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 69 66 'TransformNotif
7780: 79 50 72 6f 63 27 2e 20 42 75 74 20 77 65 20 68 yProc'. But we h
7790: 61 76 65 20 74 6f 20 70 61 73 73 20 74 68 65 20 ave to pass the
77a0: 69 6e 74 65 72 65 73 74 20 64 6f 77 6e 20 6e 6f interest down no
77b0: 77 2e 0a 20 20 20 20 20 2a 20 57 65 20 61 72 65 w.. * We are
77c0: 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 64 64 20 allowed to add
77d0: 61 64 64 69 74 69 6f 6e 61 6c 20 27 69 6e 74 65 additional 'inte
77e0: 72 65 73 74 27 20 74 6f 20 74 68 65 20 6d 61 73 rest' to the mas
77f0: 6b 20 69 66 20 77 65 20 77 61 6e 74 0a 20 20 20 k if we want.
7800: 20 20 2a 20 74 6f 2e 20 42 75 74 20 74 68 69 73 * to. But this
7810: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 transformation
7820: 68 61 73 20 6e 6f 20 73 75 63 68 20 69 6e 74 65 has no such inte
7830: 72 65 73 74 2e 20 49 74 20 6a 75 73 74 20 70 61 rest. It just pa
7840: 73 73 65 73 0a 20 20 20 20 20 2a 20 74 68 65 20 sses. * the
7850: 72 65 71 75 65 73 74 20 64 6f 77 6e 2c 20 75 6e request down, un
7860: 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f changed.. */
7870: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 . dprintf("Re
7880: 67 69 73 74 65 72 69 6e 67 20 6f 75 72 20 69 6e gistering our in
7890: 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f terest in the lo
78a0: 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 63 68 61 wer channel (cha
78b0: 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 n=%p)", (void *)
78c0: 20 70 61 72 65 6e 74 29 3b 0a 20 20 20 20 77 61 parent);. wa
78d0: 74 63 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 tchProc = Tcl_Ch
78e0: 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 annelWatchProc(T
78f0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
7900: 65 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 e(parent));.
7910: 77 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 watchProc(Tcl_Ge
7920: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
7930: 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 6d 61 Data(parent), ma
7940: 73 6b 29 3b 0a 0a 0a 20 20 20 20 2f 2a 0a 20 20 sk);... /*.
7950: 20 20 20 2a 20 4d 61 6e 61 67 65 6d 65 6e 74 20 * Management
7960: 6f 66 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 of the internal
7970: 74 69 6d 65 72 2e 0a 20 20 20 20 20 2a 2f 0a 20 timer.. */.
7980: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
7990: 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 >timer != (Tcl_T
79a0: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 imerToken) NULL)
79b0: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 20 74 {..dprintf("A t
79c0: 69 6d 65 72 20 77 61 73 20 66 6f 75 6e 64 2c 20 imer was found,
79d0: 64 65 6c 65 74 69 6e 67 20 69 74 22 29 3b 0a 09 deleting it");..
79e0: 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 Tcl_DeleteTimerH
79f0: 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d andler(statePtr-
7a00: 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 >timer);..stateP
7a10: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c tr->timer = (Tcl
7a20: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
7a30: 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 L;. }.. if
7a40: 20 28 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 (statePtr->want
7a50: 20 7c 7c 20 28 28 6d 61 73 6b 20 26 20 54 43 4c || ((mask & TCL
7a60: 5f 52 45 41 44 41 42 4c 45 29 20 26 26 0a 09 28 _READABLE) &&..(
7a70: 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 (Tcl_InputBuffer
7a80: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
7a90: 66 29 20 3e 20 30 29 20 7c 7c 20 28 42 49 4f 5f f) > 0) || (BIO_
7aa0: 63 74 72 6c 5f 70 65 6e 64 69 6e 67 28 73 74 61 ctrl_pending(sta
7ab0: 74 65 50 74 72 2d 3e 62 69 6f 29 20 3e 20 30 29 tePtr->bio) > 0)
7ac0: 29 29 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 54 68 ))) {../*.. * Th
7ad0: 65 72 65 20 69 73 20 69 6e 74 65 72 65 73 74 20 ere is interest
7ae0: 69 6e 20 72 65 61 64 61 62 6c 65 20 65 76 65 6e in readable even
7af0: 74 73 20 61 6e 64 20 77 65 20 61 63 74 75 61 6c ts and we actual
7b00: 6c 79 20 68 61 76 65 0a 09 20 2a 20 64 61 74 61 ly have.. * data
7b10: 20 77 61 69 74 69 6e 67 2c 20 73 6f 20 67 65 6e waiting, so gen
7b20: 65 72 61 74 65 20 61 20 74 69 6d 65 72 20 74 6f erate a timer to
7b30: 20 66 6c 75 73 68 20 74 68 61 74 2e 0a 09 20 2a flush that... *
7b40: 2f 0a 09 64 70 72 69 6e 74 66 28 22 43 72 65 61 /..dprintf("Crea
7b50: 74 69 6e 67 20 61 20 6e 65 77 20 74 69 6d 65 72 ting a new timer
7b60: 20 73 69 6e 63 65 20 64 61 74 61 20 61 70 70 65 since data appe
7b70: 61 72 73 20 74 6f 20 62 65 20 77 61 69 74 69 6e ars to be waitin
7b80: 67 22 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e g");..statePtr->
7b90: 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 timer = Tcl_Crea
7ba0: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 54 teTimerHandler(T
7bb0: 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 20 54 6c LS_TCL_DELAY, Tl
7bc0: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 sChannelHandlerT
7bd0: 69 6d 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 imer, (ClientDat
7be0: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
7bf0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}../*. *----
7c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
7c50: 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 TlsGetHandleProc
7c60: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 --. *. *.This p
7c70: 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f rocedure is invo
7c80: 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 ked by the gener
7c90: 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 72 ic IO level to r
7ca0: 65 74 72 69 65 76 65 20 61 6e 20 4f 53 0a 20 2a etrieve an OS. *
7cb0: 09 73 70 65 63 69 66 69 63 20 68 61 6e 64 6c 65 .specific handle
7cc0: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 associated with
7cd0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 20 4e 6f the channel. No
7ce0: 74 20 75 73 65 64 20 66 6f 72 20 74 72 61 6e 73 t used for trans
7cf0: 66 6f 72 6d 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 forms.. *. * Res
7d00: 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 68 65 20 ults:. * The
7d10: 61 70 70 72 6f 70 72 69 61 74 65 20 54 63 6c 5f appropriate Tcl_
7d20: 46 69 6c 65 20 68 61 6e 64 6c 65 20 6f 72 20 4e File handle or N
7d30: 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a ULL if none.. *.
7d40: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
7d50: 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a . * None.. *.
7d60: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
7d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
7db0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 */.static int T
7dc0: 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 lsGetHandleProc(
7dd0: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
7de0: 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 nceData, /* S
7df0: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
7e00: 20 20 20 20 69 6e 74 20 64 69 72 65 63 74 69 6f int directio
7e10: 6e 2c 09 09 2f 2a 20 54 43 4c 5f 52 45 41 44 41 n,../* TCL_READA
7e20: 42 4c 45 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 BLE or TCL_WRITA
7e30: 42 4c 45 20 2a 2f 0a 20 20 20 20 43 6c 69 65 6e BLE */. Clien
7e40: 74 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 tData *handlePtr
7e50: 29 09 2f 2a 20 48 61 6e 64 6c 65 20 61 73 73 6f )./* Handle asso
7e60: 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 ciated with the
7e70: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b 0a 20 20 20 channel */.{.
7e80: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
7e90: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 = (State *) ins
7ea0: 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 tanceData;..
7eb0: 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 43 68 return Tcl_GetCh
7ec0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 5f annelHandle(Tls_
7ed0: 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 GetParent(stateP
7ee0: 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 tr, TLS_TCL_FAST
7ef0: 50 41 54 48 29 2c 20 64 69 72 65 63 74 69 6f 6e PATH), direction
7f00: 2c 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a , handlePtr);.}.
7f10: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
7f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f60: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4e 6f 74 ---. *. * TlsNot
7f70: 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a ifyProc --. *. *
7f80: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 .This procedure
7f90: 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 is invoked by th
7fa0: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 e generic IO lev
7fb0: 65 6c 20 74 6f 20 6e 6f 74 69 66 79 20 74 68 65 el to notify the
7fc0: 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 74 68 61 74 channel. *.that
7fd0: 20 61 6e 20 65 76 65 6e 74 20 68 61 73 20 6f 63 an event has oc
7fe0: 63 75 72 72 65 64 20 6f 6e 20 74 68 65 20 75 6e curred on the un
7ff0: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
8000: 2e 20 49 74 20 69 73 20 75 73 65 64 20 62 79 20 . It is used by
8010: 73 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 20 stacked channel
8020: 64 72 69 76 65 72 73 20 74 68 61 74 0a 20 2a 09 drivers that. *.
8030: 77 69 73 68 20 74 6f 20 62 65 20 6e 6f 74 69 66 wish to be notif
8040: 69 65 64 20 6f 66 20 65 76 65 6e 74 73 20 74 68 ied of events th
8050: 61 74 20 6f 63 63 75 72 20 6f 6e 20 74 68 65 20 at occur on the
8060: 75 6e 64 65 72 6c 79 69 6e 67 20 28 73 74 61 63 underlying (stac
8070: 6b 65 64 29 0a 20 2a 09 63 68 61 6e 6e 65 6c 2e ked). *.channel.
8080: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
8090: 20 2a 20 20 20 20 54 79 70 65 20 6f 66 20 65 76 * Type of ev
80a0: 65 6e 74 20 6f 72 20 30 20 69 66 20 66 61 69 6c ent or 0 if fail
80b0: 65 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ed. *. * Side ef
80c0: 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 4d 61 79 fects:. * May
80d0: 20 70 72 6f 63 65 73 73 20 74 68 65 20 69 6e 63 process the inc
80e0: 6f 6d 69 6e 67 20 65 76 65 6e 74 20 62 79 20 69 oming event by i
80f0: 74 73 65 6c 66 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d tself.. *. *----
8100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
8150: 61 74 69 63 20 69 6e 74 20 54 6c 73 4e 6f 74 69 atic int TlsNoti
8160: 66 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 fyProc(ClientDat
8170: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 a instanceData,
8180: 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 /* Socket sta
8190: 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d te. */. int m
81a0: 61 73 6b 29 09 09 09 2f 2a 20 74 79 70 65 20 6f ask).../* type o
81b0: 66 20 65 76 65 6e 74 20 74 68 61 74 20 6f 63 63 f event that occ
81c0: 75 72 72 65 64 3a 0a 09 09 09 09 20 2a 20 4f 52 urred:..... * OR
81d0: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 -ed combination
81e0: 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 of TCL_READABLE
81f0: 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 or TCL_WRITABLE
8200: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a */.{. State *
8210: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
8220: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
8230: 61 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 6f 72 a;. int error
8240: 43 6f 64 65 20 3d 20 30 3b 0a 0a 20 20 20 20 64 Code = 0;.. d
8250: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
8260: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a ;.. /*. *
8270: 20 44 65 6c 65 74 65 20 61 6e 20 65 78 69 73 74 Delete an exist
8280: 69 6e 67 20 74 69 6d 65 72 2e 20 49 74 20 77 61 ing timer. It wa
8290: 73 20 6e 6f 74 20 66 69 72 65 64 2c 20 79 65 74 s not fired, yet
82a0: 20 77 65 20 61 72 65 0a 20 20 20 20 20 2a 20 68 we are. * h
82b0: 65 72 65 2c 20 73 6f 20 74 68 65 20 63 68 61 6e ere, so the chan
82c0: 6e 65 6c 20 62 65 6c 6f 77 20 67 65 6e 65 72 61 nel below genera
82d0: 74 65 64 20 73 75 63 68 20 61 6e 20 65 76 65 6e ted such an even
82e0: 74 20 61 6e 64 20 77 65 0a 20 20 20 20 20 2a 20 t and we. *
82f0: 64 6f 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 54 don't have to. T
8300: 68 65 20 72 65 6e 65 77 61 6c 20 6f 66 20 74 68 he renewal of th
8310: 65 20 69 6e 74 65 72 65 73 74 20 61 66 74 65 72 e interest after
8320: 20 74 68 65 0a 20 20 20 20 20 2a 20 65 78 65 63 the. * exec
8330: 75 74 69 6f 6e 20 6f 66 20 63 68 61 6e 6e 65 6c ution of channel
8340: 20 68 61 6e 64 6c 65 72 73 20 77 69 6c 6c 20 65 handlers will e
8350: 76 65 6e 74 75 61 6c 6c 79 20 63 61 75 73 65 20 ventually cause
8360: 75 73 20 74 6f 0a 20 20 20 20 20 2a 20 72 65 63 us to. * rec
8370: 72 65 61 74 65 20 74 68 65 20 74 69 6d 65 72 20 reate the timer
8380: 28 69 6e 20 57 61 74 63 68 50 72 6f 63 29 2e 0a (in WatchProc)..
8390: 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 */. if (
83a0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
83b0: 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b != (Tcl_TimerTok
83c0: 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c en) NULL) {..Tcl
83d0: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
83e0: 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 ler(statePtr->ti
83f0: 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d mer);..statePtr-
8400: 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 >timer = (Tcl_Ti
8410: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a merToken) NULL;.
8420: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 6b }.. /* Sk
8430: 69 70 20 69 66 20 75 73 65 72 20 76 65 72 69 66 ip if user verif
8440: 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 73 74 y callback is st
8450: 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 ill running */.
8460: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
8470: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
8480: 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 _CALLBACK) {..dp
8490: 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 rintf("Callback
84a0: 69 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 72 65 74 is on-going, ret
84b0: 75 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 29 3b urning failed");
84c0: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ..return 0;.
84d0: 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e 6f 74 }.. /* If not
84e0: 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 64 6f initialized, do
84f0: 20 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 20 20 connect */.
8500: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c if (statePtr->fl
8510: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e ags & TLS_TCL_IN
8520: 49 54 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 IT) {..dprintf("
8530: 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 Calling Tls_Wait
8540: 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 09 69 ForConnect");..i
8550: 66 20 28 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f f (Tls_WaitForCo
8560: 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 nnect(statePtr,
8570: 26 65 72 72 6f 72 43 6f 64 65 2c 20 31 29 20 3c &errorCode, 1) <
8580: 20 30 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f 45 0) {.. Tls_E
8590: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 rror(statePtr, s
85a0: 74 72 65 72 72 6f 72 28 65 72 72 6f 72 43 6f 64 trerror(errorCod
85b0: 65 29 29 3b 0a 09 20 20 20 20 69 66 20 28 65 72 e));.. if (er
85c0: 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 rorCode == EAGAI
85d0: 4e 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 N) {...dprintf("
85e0: 41 73 79 6e 63 20 66 6c 61 67 20 63 6f 75 6c 64 Async flag could
85f0: 20 62 65 20 73 65 74 20 28 64 69 64 6e 27 74 20 be set (didn't
8600: 63 68 65 63 6b 29 20 61 6e 64 20 65 72 72 6f 72 check) and error
8610: 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 3a 20 Code == EAGAIN:
8620: 20 52 65 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 Returning faile
8630: 64 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 20 30 d");....return 0
8640: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 64 ;.. }... d
8650: 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 printf("Tls_Wait
8660: 46 6f 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 ForConnect retur
8670: 6e 65 64 20 61 6e 20 65 72 72 6f 72 22 29 3b 0a ned an error");.
8680: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 .}. }.. dp
8690: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 rintf("Returning
86a0: 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 %i", mask);..
86b0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 41 6e 20 65 /*. * An e
86c0: 76 65 6e 74 20 6f 63 63 75 72 72 65 64 20 69 6e vent occurred in
86d0: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
86e0: 63 68 61 6e 6e 65 6c 2e 20 20 54 68 69 73 0a 20 channel. This.
86f0: 20 20 20 20 2a 20 74 72 61 6e 73 66 6f 72 6d 61 * transforma
8700: 74 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 72 6f tion doesn't pro
8710: 63 65 73 73 20 73 75 63 68 20 65 76 65 6e 74 73 cess such events
8720: 20 74 68 75 73 20 72 65 74 75 72 6e 73 20 74 68 thus returns th
8730: 65 0a 20 20 20 20 20 2a 20 69 6e 63 6f 6d 69 6e e. * incomin
8740: 67 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 65 64 g mask unchanged
8750: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 .. */. re
8760: 74 75 72 6e 20 6d 61 73 6b 3b 0a 7d 0a 0a 2f 2a turn mask;.}../*
8770: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
8780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
87a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
87b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
87c0: 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e . *. * Tls_Chann
87d0: 65 6c 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 09 elType --. *. *.
87e0: 44 65 66 69 6e 65 73 20 74 68 65 20 63 6f 72 72 Defines the corr
87f0: 65 63 74 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 ect TLS channel
8800: 64 72 69 76 65 72 20 68 61 6e 64 6c 65 72 73 20 driver handlers
8810: 66 6f 72 20 74 68 69 73 20 63 68 61 6e 6e 65 6c for this channel
8820: 20 74 79 70 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 type.. *. * Res
8830: 75 6c 74 73 3a 0a 20 2a 09 54 63 6c 5f 43 68 61 ults:. *.Tcl_Cha
8840: 6e 6e 65 6c 54 79 70 65 20 73 74 72 75 63 74 75 nnelType structu
8850: 72 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 re.. *. * Side e
8860: 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 4e 6f ffects:. * No
8870: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
8880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
88a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
88b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
88c0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
88d0: 63 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e c const Tcl_Chan
88e0: 6e 65 6c 54 79 70 65 20 74 6c 73 43 68 61 6e 6e nelType tlsChann
88f0: 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 elType = {. "
8900: 74 6c 73 22 2c 09 09 09 2f 2a 20 54 79 70 65 20 tls",.../* Type
8910: 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c 5f name */. TCL_
8920: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f CHANNEL_VERSION_
8930: 35 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 6c 5,./* v5 channel
8940: 20 2a 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 */. TlsClose
8950: 50 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 Proc,../* Close
8960: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 49 proc */. TlsI
8970: 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e nputProc,../* In
8980: 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 put proc */.
8990: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 TlsOutputProc,..
89a0: 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a /* Output proc *
89b0: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a /. NULL,.../*
89c0: 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 Seek proc */.
89d0: 20 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 TlsSetOptionPr
89e0: 6f 63 2c 09 09 2f 2a 20 53 65 74 20 6f 70 74 69 oc,../* Set opti
89f0: 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 on proc */. T
8a00: 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c lsGetOptionProc,
8a10: 09 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 ../* Get option
8a20: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 57 proc */. TlsW
8a30: 61 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e atchProc,../* In
8a40: 69 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 itialize notifie
8a50: 72 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 48 r */. TlsGetH
8a60: 61 6e 64 6c 65 50 72 6f 63 2c 09 09 2f 2a 20 47 andleProc,../* G
8a70: 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 6f 75 et OS handles ou
8a80: 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a t of channel */.
8a90: 20 20 20 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f TlsClose2Pro
8aa0: 63 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f c,../* close2pro
8ab0: 63 20 2a 2f 0a 20 20 20 20 54 6c 73 42 6c 6f 63 c */. TlsBloc
8ac0: 6b 4d 6f 64 65 50 72 6f 63 2c 09 09 2f 2a 20 53 kModeProc,../* S
8ad0: 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 et blocking/nonb
8ae0: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 locking mode*/.
8af0: 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 6c NULL,.../* Fl
8b00: 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 ush proc */.
8b10: 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 TlsNotifyProc,..
8b20: 2f 2a 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 /* Handling of e
8b30: 76 65 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 vents bubbling u
8b40: 70 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 p */. NULL,..
8b50: 09 2f 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 ./* Wide seek pr
8b60: 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 oc */. NULL,.
8b70: 09 09 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 ../* Thread acti
8b80: 6f 6e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 on */. NULL..
8b90: 09 2f 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a ./* Truncate */.
8ba0: 7d 3b 0a 0a 63 6f 6e 73 74 20 54 63 6c 5f 43 68 };..const Tcl_Ch
8bb0: 61 6e 6e 65 6c 54 79 70 65 20 2a 54 6c 73 5f 43 annelType *Tls_C
8bc0: 68 61 6e 6e 65 6c 54 79 70 65 28 76 6f 69 64 29 hannelType(void)
8bd0: 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 26 74 {. return &t
8be0: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 7d lsChannelType;.}
8bf0: 0a .