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 41 64 64 69 74 69 6f 6e 61 6c 20 63 . * Additional c
0110: 72 65 64 69 74 20 69 73 20 64 75 65 20 66 6f 72 redit is due for
0120: 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 65 73 Andreas Kupries
0130: 20 28 61 2e 6b 75 70 72 69 65 73 40 77 65 73 74 (a.kupries@west
0140: 65 6e 64 2e 63 6f 6d 29 2c 20 66 6f 72 0a 20 2a end.com), for. *
0150: 20 70 72 6f 76 69 64 69 6e 67 20 74 68 65 20 54 providing the T
0160: 63 6c 5f 52 65 70 6c 61 63 65 43 68 61 6e 6e 65 cl_ReplaceChanne
0170: 6c 20 6d 65 63 68 61 6e 69 73 6d 20 61 6e 64 20 l mechanism and
0180: 77 6f 72 6b 69 6e 67 20 63 6c 6f 73 65 6c 79 20 working closely
0190: 77 69 74 68 20 6d 65 0a 20 2a 20 74 6f 20 65 6e with me. * to en
01a0: 68 61 6e 63 65 20 69 74 20 74 6f 20 73 75 70 70 hance it to supp
01b0: 6f 72 74 20 66 75 6c 6c 20 66 69 6c 65 65 76 65 ort full fileeve
01c0: 6e 74 20 73 65 6d 61 6e 74 69 63 73 2e 0a 20 2a nt semantics.. *
01d0: 0a 20 2a 20 41 6c 73 6f 20 77 6f 72 6b 20 64 6f . * Also work do
01e0: 6e 65 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f 77 ne by the follow
01f0: 20 70 65 6f 70 6c 65 20 70 72 6f 76 69 64 65 64 people provided
0200: 20 74 68 65 20 69 6d 70 65 74 75 73 20 74 6f 20 the impetus to
0210: 64 6f 20 74 68 69 73 20 22 72 69 67 68 74 22 3a do this "right":
0220: 0a 20 2a 09 74 63 6c 53 53 4c 20 28 43 6f 6c 69 . *.tclSSL (Coli
0230: 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c 20 53 68 61 n McCormack, Sha
0240: 72 65 64 20 54 65 63 68 6e 6f 6c 6f 67 79 29 0a red Technology).
0250: 20 2a 09 53 53 4c 74 63 6c 20 28 50 65 74 65 72 *.SSLtcl (Peter
0260: 20 41 6e 74 6d 61 6e 29 0a 20 2a 0a 20 2a 2f 0a Antman). *. */.
0270: 0a 2f 2a 0a 4e 6f 72 6d 61 6c 0a 09 09 74 6c 73 ./*.Normal...tls
0280: 42 49 4f 2e 63 09 09 09 74 6c 73 49 4f 2e 63 0a BIO.c...tlsIO.c.
0290: 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 +------+
02a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02b0: 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 +-----+
02c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02d0: 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2b 0a 20 +---+.
02e0: 7c 20 20 20 20 20 20 7c 54 63 6c 5f 57 72 69 74 | |Tcl_Writ
02f0: 65 52 61 77 3c 2d 2d 42 69 6f 4f 75 74 70 75 74 eRaw<--BioOutput
0300: 7c 20 53 53 4c 20 7c 42 49 4f 5f 77 72 69 74 65 | SSL |BIO_write
0310: 3c 2d 2d 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 <--TlsOutputProc
0320: 20 3c 2d 2d 70 75 74 73 7c 20 20 20 7c 0a 20 7c <--puts| |. |
0330: 73 6f 63 6b 65 74 7c 20 20 20 20 20 20 3c 65 6e socket| <en
0340: 63 72 79 70 74 65 64 3e 20 20 20 20 20 20 20 7c crypted> |
0350: 20 42 49 4f 20 7c 20 20 20 20 20 20 20 20 20 20 BIO |
0360: 20 20 3c 75 6e 65 6e 63 72 79 70 74 65 64 3e 20 <unencrypted>
0370: 20 20 20 20 20 20 20 7c 41 70 70 7c 0a 20 7c 20 |App|. |
0380: 20 20 20 20 20 7c 54 63 6c 5f 52 65 61 64 52 61 |Tcl_ReadRa
0390: 77 20 2d 2d 3e 20 42 69 6f 49 6e 70 75 74 7c 20 w --> BioInput|
03a0: 20 20 20 20 7c 42 49 4f 5f 52 65 61 64 20 2d 2d |BIO_Read --
03b0: 3e 54 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d >TlsInputProc --
03c0: 3e 20 72 65 61 64 7c 20 20 20 7c 0a 20 2b 2d 2d > read| |. +--
03d0: 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 ----+
03e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d +--
03f0: 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 ---+
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0410: 20 20 20 20 20 2b 2d 2d 2d 2b 0a 0a 0a 46 61 73 +---+...Fas
0420: 74 20 50 61 74 68 0a 09 09 09 09 09 09 74 6c 73 t Path.......tls
0430: 49 4f 2e 63 0a 20 20 2b 2d 2d 2d 2d 2d 2d 2b 20 IO.c. +------+
0440: 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d +---
0450: 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 --+
0460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0470: 20 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 0a 20 +-----+.
0480: 20 7c 20 20 20 20 20 20 7c 3c 2d 2d 20 77 72 69 | |<-- wri
0490: 74 65 20 3c 2d 2d 7c 20 53 53 4c 20 7c 42 49 4f te <--| SSL |BIO
04a0: 5f 77 72 69 74 65 20 3c 2d 2d 20 54 6c 73 4f 75 _write <-- TlsOu
04b0: 74 70 75 74 50 72 6f 63 20 3c 2d 2d 20 70 75 74 tputProc <-- put
04c0: 73 7c 20 20 20 20 20 7c 0a 20 20 7c 73 6f 63 6b s| |. |sock
04d0: 65 74 7c 20 3c 65 6e 63 72 79 70 74 65 64 3e 20 et| <encrypted>
04e0: 7c 20 42 49 4f 20 7c 20 20 20 20 20 20 20 20 20 | BIO |
04f0: 20 20 20 3c 75 6e 65 6e 63 72 79 70 74 65 64 3e <unencrypted>
0500: 20 20 20 20 20 20 20 20 20 20 20 7c 20 41 70 70 | App
0510: 20 7c 0a 20 20 7c 20 20 20 20 20 20 7c 2d 2d 3e |. | |-->
0520: 20 20 72 65 61 64 20 2d 2d 3e 7c 20 20 20 20 20 read -->|
0530: 7c 42 49 4f 5f 52 65 61 64 20 20 2d 2d 3e 20 54 |BIO_Read --> T
0540: 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 3e 20 lsInputProc -->
0550: 20 72 65 61 64 7c 20 20 20 20 20 7c 0a 20 20 2b read| |. +
0560: 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 ------+
0570: 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 +-----+
0580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b +
05a0: 2d 2d 2d 2d 2d 2b 0a 2a 2f 0a 0a 23 69 6e 63 6c -----+.*/..#incl
05b0: 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 ude "tlsInt.h".#
05c0: 69 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 include <errno.h
05d0: 3e 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d >../*. *--------
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 42 -----. *. * TlsB
0630: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a lockModeProc --.
0640: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 *. *.This proce
0650: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
0660: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
0670: 4f 20 6c 65 76 65 6c 20 74 6f 20 73 65 74 20 63 O level to set c
0680: 68 61 6e 6e 65 6c 20 74 6f 0a 20 2a 09 62 6c 6f hannel to. *.blo
0690: 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 cking or nonbloc
06a0: 6b 69 6e 67 20 6d 6f 64 65 2e 20 43 61 6c 6c 65 king mode. Calle
06b0: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
06c0: 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 6e 65 I/O layer whene
06d0: 76 65 72 0a 20 2a 09 74 68 65 20 54 63 6c 5f 53 ver. *.the Tcl_S
06e0: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
06f0: 29 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 ) function is us
0700: 65 64 20 77 69 74 68 20 6f 70 74 69 6f 6e 20 2d ed with option -
0710: 62 6c 6f 63 6b 69 6e 67 2e 0a 20 2a 0a 20 2a 20 blocking.. *. *
0720: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 Results:. *.0 if
0730: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 successful or P
0740: 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 OSIX error code
0750: 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a if failed.. *. *
0760: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
0770: 2a 09 53 65 74 73 20 74 68 65 20 64 65 76 69 63 *.Sets the devic
0780: 65 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 e into blocking
0790: 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d or nonblocking m
07a0: 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ode.. *. *------
07b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07f0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
0800: 69 63 20 69 6e 74 20 54 6c 73 42 6c 6f 63 6b 4d ic int TlsBlockM
0810: 6f 64 65 50 72 6f 63 28 0a 20 20 20 20 43 6c 69 odeProc(. Cli
0820: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
0830: 44 61 74 61 2c 09 2f 2a 20 43 6f 6e 6e 65 63 74 Data,./* Connect
0840: 69 6f 6e 20 73 74 61 74 65 20 69 6e 66 6f 20 2a ion state info *
0850: 2f 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 29 09 /. int mode).
0860: 09 09 2f 2a 20 42 6c 6f 63 6b 69 6e 67 20 6f 72 ../* Blocking or
0870: 20 6e 6f 6e 2d 62 6c 6f 63 6b 69 6e 67 20 6d 6f non-blocking mo
0880: 64 65 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 de */.{. Stat
0890: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
08a0: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
08b0: 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d Data;.. if (m
08c0: 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f ode == TCL_MODE_
08d0: 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 NONBLOCKING) {..
08e0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
08f0: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 |= TLS_TCL_ASYNC
0900: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
0910: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
0920: 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 &= ~(TLS_TCL_ASY
0930: 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 NC);. }. r
0940: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 eturn 0;.}../*.
0950: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
09a0: 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73 65 50 72 6f *. * TlsClosePro
09b0: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 c --. *. *.This
09c0: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
09d0: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 oked by the gene
09e0: 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 ric IO level to
09f0: 70 65 72 66 6f 72 6d 20 63 68 61 6e 6e 65 6c 0a perform channel.
0a00: 20 2a 09 74 79 70 65 20 73 70 65 63 69 66 69 63 *.type specific
0a10: 20 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 61 20 cleanup when a
0a20: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
0a30: 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 channel is clos
0a40: 65 64 2e 20 43 61 6c 6c 65 64 0a 20 2a 09 62 79 ed. Called. *.by
0a50: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f 4f the generic I/O
0a60: 20 6c 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 layer whenever
0a70: 74 68 65 20 54 63 6c 5f 43 6c 6f 73 65 28 29 20 the Tcl_Close()
0a80: 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
0a90: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
0aa0: 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 . *.0 if success
0ab0: 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 ful or POSIX err
0ac0: 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 or code if faile
0ad0: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
0ae0: 66 65 63 74 73 3a 0a 20 2a 09 43 6c 6f 73 65 73 fects:. *.Closes
0af0: 20 74 68 65 20 73 6f 63 6b 65 74 20 6f 66 20 74 the socket of t
0b00: 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 he channel.. *.
0b10: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
0b60: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
0b70: 73 43 6c 6f 73 65 50 72 6f 63 28 0a 20 20 20 20 sCloseProc(.
0b80: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
0b90: 6e 63 65 44 61 74 61 2c 09 2f 2a 20 43 6f 6e 6e nceData,./* Conn
0ba0: 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 6e 66 ection state inf
0bb0: 6f 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 o */. Tcl_Int
0bc0: 65 72 70 20 2a 69 6e 74 65 72 70 29 09 09 2f 2a erp *interp)../*
0bd0: 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 Tcl interpreter
0be0: 20 74 6f 20 72 65 70 6f 72 74 20 65 72 72 6f 72 to report error
0bf0: 73 20 74 6f 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 s to */.{. St
0c00: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
0c10: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
0c20: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 ceData;.. dpr
0c30: 69 6e 74 66 28 22 54 6c 73 43 6c 6f 73 65 50 72 intf("TlsClosePr
0c40: 6f 63 28 25 70 29 22 2c 20 28 76 6f 69 64 20 2a oc(%p)", (void *
0c50: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 ) statePtr);..
0c60: 20 20 2f 2a 20 53 65 6e 64 20 73 68 75 74 64 6f /* Send shutdo
0c70: 77 6e 20 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2e wn notification.
0c80: 20 57 69 6c 6c 20 72 65 74 75 72 6e 20 30 20 77 Will return 0 w
0c90: 68 69 6c 65 20 69 6e 20 70 72 6f 63 65 73 73 2c hile in process,
0ca0: 20 74 68 65 6e 20 31 20 77 68 65 6e 0a 20 20 20 then 1 when.
0cb0: 20 20 20 20 63 6f 6d 70 6c 65 74 65 2e 20 4f 6e complete. On
0cc0: 6c 79 20 63 6c 6f 73 65 73 20 74 68 65 20 77 72 ly closes the wr
0cd0: 69 74 65 20 64 69 72 65 63 74 69 6f 6e 20 6f 66 ite direction of
0ce0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 3b the connection;
0cf0: 20 74 68 65 20 72 65 61 64 0a 20 20 20 20 20 20 the read.
0d00: 20 64 69 72 65 63 74 69 6f 6e 20 69 73 20 63 6c direction is cl
0d10: 6f 73 65 64 20 62 79 20 74 68 65 20 70 65 65 72 osed by the peer
0d20: 2e 20 44 6f 65 73 20 6e 6f 74 20 61 66 66 65 63 . Does not affec
0d30: 74 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 t socket state.
0d40: 44 6f 6e 27 74 0a 20 20 20 20 20 20 20 63 61 6c Don't. cal
0d50: 6c 20 61 66 74 65 72 20 66 61 74 61 6c 20 65 72 l after fatal er
0d60: 72 6f 72 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 ror. */. if (
0d70: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 21 3d statePtr->ssl !=
0d80: 20 4e 55 4c 4c 20 26 26 20 21 28 73 74 61 74 65 NULL && !(state
0d90: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
0da0: 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 _TCL_HANDSHAKE_F
0db0: 41 49 4c 45 44 29 29 20 7b 0a 09 42 49 4f 5f 66 AILED)) {..BIO_f
0dc0: 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 lush(statePtr->b
0dd0: 69 6f 29 3b 0a 09 53 53 4c 5f 73 68 75 74 64 6f io);..SSL_shutdo
0de0: 77 6e 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c wn(statePtr->ssl
0df0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
0e00: 20 54 6c 73 5f 46 72 65 65 20 63 61 6c 6c 73 20 Tls_Free calls
0e10: 54 6c 73 5f 43 6c 65 61 6e 20 2a 2f 0a 20 20 20 Tls_Clean */.
0e20: 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 Tcl_EventuallyF
0e30: 72 65 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 ree((ClientData)
0e40: 73 74 61 74 65 50 74 72 2c 20 54 6c 73 5f 46 72 statePtr, Tls_Fr
0e50: 65 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 ee);. return
0e60: 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 0;.}../*. *-----
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0eb0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
0ec0: 6c 73 43 6c 6f 73 65 32 50 72 6f 63 20 2d 2d 0a lsClose2Proc --.
0ed0: 20 2a 0a 20 2a 09 53 69 6d 69 6c 61 72 20 74 6f *. *.Similar to
0ee0: 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 2c 20 62 TlsCloseProc, b
0ef0: 75 74 20 61 6c 6c 6f 77 73 20 66 6f 72 20 73 65 ut allows for se
0f00: 70 61 72 61 74 65 20 63 6c 6f 73 65 20 72 65 61 parate close rea
0f10: 64 20 61 6e 64 20 77 72 69 74 65 0a 20 2a 09 73 d and write. *.s
0f20: 69 64 65 20 6f 66 20 63 68 61 6e 6e 65 6c 2e 0a ide of channel..
0f30: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f80: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
0f90: 74 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 28 t TlsClose2Proc(
0fa0: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
0fb0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a instanceData,./*
0fc0: 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 Connection stat
0fd0: 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 54 63 e info */. Tc
0fe0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0ff0: 2c 09 09 2f 2a 20 54 63 6c 20 69 6e 74 65 72 70 ,../* Tcl interp
1000: 72 65 74 65 72 20 74 6f 20 72 65 70 6f 72 74 20 reter to report
1010: 65 72 72 6f 72 73 20 74 6f 20 2a 2f 0a 20 20 20 errors to */.
1020: 20 69 6e 74 20 66 6c 61 67 73 29 09 09 09 2f 2a int flags).../*
1030: 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65 20 Flags to close
1040: 72 65 61 64 2f 77 72 69 74 65 20 73 69 64 65 20 read/write side
1050: 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b 0a of channel */.{.
1060: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
1070: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
1080: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 instanceData;..
1090: 20 20 20 64 70 72 69 6e 74 66 28 22 54 6c 73 43 dprintf("TlsC
10a0: 6c 6f 73 65 32 50 72 6f 63 28 25 70 29 22 2c 20 lose2Proc(%p)",
10b0: 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 (void *) statePt
10c0: 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 66 6c r);.. if ((fl
10d0: 61 67 73 20 26 20 28 54 43 4c 5f 43 4c 4f 53 45 ags & (TCL_CLOSE
10e0: 5f 52 45 41 44 7c 54 43 4c 5f 43 4c 4f 53 45 5f _READ|TCL_CLOSE_
10f0: 57 52 49 54 45 29 29 20 3d 3d 20 30 29 20 7b 0a WRITE)) == 0) {.
1100: 09 72 65 74 75 72 6e 20 54 6c 73 43 6c 6f 73 65 .return TlsClose
1110: 50 72 6f 63 28 69 6e 73 74 61 6e 63 65 44 61 74 Proc(instanceDat
1120: 61 2c 20 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 a, interp);.
1130: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 45 49 4e }. return EIN
1140: 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d VAL;.}../*. *---
1150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
11a0: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
11b0: 65 63 74 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 ect --. *. *.Per
11c0: 66 6f 72 6d 20 63 6f 6e 6e 65 63 74 20 28 63 6c form connect (cl
11d0: 69 65 6e 74 29 20 6f 72 20 61 63 63 65 70 74 20 ient) or accept
11e0: 28 73 65 72 76 65 72 29 20 66 75 6e 63 74 69 6f (server) functio
11f0: 6e 2e 20 41 6c 73 6f 20 70 65 72 66 6f 72 6d 73 n. Also performs
1200: 0a 20 2a 09 65 71 75 69 76 61 6c 65 6e 74 20 6f . *.equivalent o
1210: 66 20 68 61 6e 64 73 68 61 6b 65 20 66 75 6e 63 f handshake func
1220: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 tion.. *. * Resu
1230: 6c 74 3a 0a 20 2a 20 20 20 20 31 20 69 66 20 73 lt:. * 1 if s
1240: 75 63 63 65 73 73 66 75 6c 2c 20 30 20 69 66 20 uccessful, 0 if
1250: 77 61 69 74 20 66 6f 72 20 63 6f 6e 6e 65 63 74 wait for connect
1260: 2c 20 61 6e 64 20 2d 31 20 69 66 20 66 61 69 6c , and -1 if fail
1270: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ed.. *. * Side e
1280: 66 66 65 63 74 73 3a 0a 20 2a 09 49 73 73 75 65 ffects:. *.Issue
1290: 73 20 53 53 4c 5f 61 63 63 65 70 74 20 6f 72 20 s SSL_accept or
12a0: 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 2a 0a 20 SSL_connect. *.
12b0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
12c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1300: 2a 2f 0a 69 6e 74 20 54 6c 73 5f 57 61 69 74 46 */.int Tls_WaitF
1310: 6f 72 43 6f 6e 6e 65 63 74 28 0a 20 20 20 20 53 orConnect(. S
1320: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 09 tate *statePtr,.
1330: 09 09 2f 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 ../* Connection
1340: 73 74 61 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 state info */.
1350: 20 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 int *errorCode
1360: 50 74 72 2c 09 09 09 2f 2a 20 53 74 6f 72 61 67 Ptr,.../* Storag
1370: 65 20 66 6f 72 20 65 72 72 6f 72 20 63 6f 64 65 e for error code
1380: 20 74 6f 20 72 65 74 75 72 6e 20 2a 2f 0a 20 20 to return */.
1390: 20 20 69 6e 74 20 68 61 6e 64 73 68 61 6b 65 46 int handshakeF
13a0: 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 6e ailureIsPermanen
13b0: 74 29 09 2f 2a 20 49 73 20 74 68 65 20 63 6f 6e t)./* Is the con
13c0: 6e 65 63 74 20 66 61 69 6c 75 72 65 20 70 65 72 nect failure per
13d0: 6d 61 6e 65 6e 74 20 2a 2f 0a 7b 0a 20 20 20 20 manent */.{.
13e0: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 62 61 unsigned long ba
13f0: 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 20 20 20 ckingError;.
1400: 69 6e 74 20 65 72 72 2c 20 72 63 20 3d 20 30 3b int err, rc = 0;
1410: 0a 20 20 20 20 69 6e 74 20 62 69 6f 53 68 6f 75 . int bioShou
1420: 6c 64 52 65 74 72 79 3b 0a 20 20 20 20 2a 65 72 ldRetry;. *er
1430: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
1440: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 57 61 . dprintf("Wa
1450: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 25 70 29 itForConnect(%p)
1460: 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 ", (void *) stat
1470: 65 50 74 72 29 3b 0a 20 20 20 20 64 70 72 69 6e ePtr);. dprin
1480: 74 46 6c 61 67 73 28 73 74 61 74 65 50 74 72 29 tFlags(statePtr)
1490: 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e 20 61 6c ;.. /* Can al
14a0: 73 6f 20 63 68 65 63 6b 20 53 53 4c 5f 69 73 5f so check SSL_is_
14b0: 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 73 73 init_finished(ss
14c0: 6c 29 20 2a 2f 0a 20 20 20 20 69 66 20 28 21 28 l) */. if (!(
14d0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
14e0: 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 29 & TLS_TCL_INIT))
14f0: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 54 6c 73 {..dprintf("Tls
1500: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 _WaitForConnect
1510: 63 61 6c 6c 65 64 20 6f 6e 20 61 6c 72 65 61 64 called on alread
1520: 79 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 63 68 y initialized ch
1530: 61 6e 6e 65 6c 20 2d 2d 20 72 65 74 75 72 6e 69 annel -- returni
1540: 6e 67 20 77 69 74 68 20 69 6d 6d 65 64 69 61 74 ng with immediat
1550: 65 20 73 75 63 63 65 73 73 22 29 3b 0a 09 72 65 e success");..re
1560: 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 0a 20 turn 1;. }..
1570: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
1580: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
1590: 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 _HANDSHAKE_FAILE
15a0: 44 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 69 66 D) {../*.. * Dif
15b0: 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f 66 20 ferent types of
15c0: 6f 70 65 72 61 74 69 6f 6e 73 20 68 61 76 65 20 operations have
15d0: 64 69 66 66 65 72 65 6e 74 20 72 65 71 75 69 72 different requir
15e0: 65 6d 65 6e 74 73 0a 09 20 2a 20 53 53 4c 20 62 ements.. * SSL b
15f0: 65 69 6e 67 20 65 73 74 61 62 6c 69 73 68 65 64 eing established
1600: 0a 09 20 2a 2f 0a 09 69 66 20 28 68 61 6e 64 73 .. */..if (hands
1610: 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 72 hakeFailureIsPer
1620: 6d 61 6e 65 6e 74 29 20 7b 0a 09 20 20 20 20 64 manent) {.. d
1630: 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f printf("Asked to
1640: 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 20 wait for a TLS
1650: 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 68 handshake that h
1660: 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c 65 as already faile
1670: 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 66 61 d. Returning fa
1680: 74 61 6c 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 tal error");..
1690: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
16a0: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
16b0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 .} else {.. d
16c0: 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f printf("Asked to
16d0: 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 20 wait for a TLS
16e0: 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 68 handshake that h
16f0: 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c 65 as already faile
1700: 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 73 6f d. Returning so
1710: 66 74 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 ft error");..
1720: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
1730: 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 7d 0a ECONNRESET;..}.
1740: 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 .return -1;.
1750: 7d 0a 0a 20 20 20 20 66 6f 72 20 28 3b 3b 29 20 }.. for (;;)
1760: 7b 0a 09 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 {..ERR_clear_err
1770: 6f 72 28 29 3b 0a 09 42 49 4f 5f 63 6c 65 61 72 or();..BIO_clear
1780: 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 73 74 61 _retry_flags(sta
1790: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 0a 09 2f tePtr->bio);.../
17a0: 2a 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 * Not initialize
17b0: 64 20 79 65 74 21 20 41 6c 73 6f 20 63 61 6c 6c d yet! Also call
17c0: 73 20 53 53 4c 5f 64 6f 5f 68 61 6e 64 73 68 61 s SSL_do_handsha
17d0: 6b 65 28 29 2e 20 2a 2f 0a 09 69 66 20 28 73 74 ke(). */..if (st
17e0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
17f0: 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 TLS_TCL_SERVER)
1800: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
1810: 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 61 63 63 65 Calling SSL_acce
1820: 70 74 28 29 22 29 3b 0a 09 20 20 20 20 65 72 72 pt()");.. err
1830: 20 3d 20 53 53 4c 5f 61 63 63 65 70 74 28 73 74 = SSL_accept(st
1840: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 0a 09 atePtr->ssl);...
1850: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 } else {.. dp
1860: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 rintf("Calling S
1870: 53 4c 5f 63 6f 6e 6e 65 63 74 28 29 22 29 3b 0a SL_connect()");.
1880: 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 63 . err = SSL_c
1890: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d onnect(statePtr-
18a0: 3e 73 73 6c 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 31 >ssl);..}.../* 1
18b0: 3d 73 75 63 63 65 73 73 66 75 6c 2c 20 30 3d 6e =successful, 0=n
18c0: 6f 74 20 73 75 63 63 65 73 73 66 75 6c 20 61 6e ot successful an
18d0: 64 20 73 68 75 74 20 64 6f 77 6e 2c 20 3c 30 3d d shut down, <0=
18e0: 66 61 74 61 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 fatal error */..
18f0: 69 66 20 28 65 72 72 20 3e 20 30 29 20 7b 0a 09 if (err > 0) {..
1900: 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 63 63 dprintf("Acc
1910: 65 70 74 20 6f 72 20 63 6f 6e 6e 65 63 74 20 77 ept or connect w
1920: 61 73 20 73 75 63 63 65 73 73 66 75 6c 22 29 3b as successful");
1930: 0a 0a 09 20 20 20 20 65 72 72 20 3d 20 42 49 4f ... err = BIO
1940: 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d _flush(statePtr-
1950: 3e 62 69 6f 29 3b 0a 09 20 20 20 20 69 66 20 28 >bio);.. if (
1960: 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 09 64 70 err <= 0) {...dp
1970: 72 69 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 20 rintf("Flushing
1980: 74 68 65 20 6c 6f 77 65 72 20 6c 61 79 65 72 73 the lower layers
1990: 20 66 61 69 6c 65 64 2c 20 74 68 69 73 20 77 69 failed, this wi
19a0: 6c 6c 20 70 72 6f 62 61 62 6c 79 20 74 65 72 6d ll probably term
19b0: 69 6e 61 74 65 20 74 68 69 73 20 73 65 73 73 69 inate this sessi
19c0: 6f 6e 22 29 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 on");.. }..}
19d0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 else {.. dpri
19e0: 6e 74 66 28 22 41 63 63 65 70 74 20 6f 72 20 63 ntf("Accept or c
19f0: 6f 6e 6e 65 63 74 20 66 61 69 6c 65 64 22 29 3b onnect failed");
1a00: 0a 09 7d 0a 0a 09 2f 2a 20 53 61 6d 65 20 61 73 ..}.../* Same as
1a10: 20 53 53 4c 5f 77 61 6e 74 2c 20 62 75 74 20 61 SSL_want, but a
1a20: 6c 73 6f 20 63 68 65 63 6b 73 20 74 68 65 20 65 lso checks the e
1a30: 72 72 6f 72 20 71 75 65 75 65 20 2a 2f 0a 09 72 rror queue */..r
1a40: 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f c = SSL_get_erro
1a50: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c r(statePtr->ssl,
1a60: 20 65 72 72 29 3b 0a 09 62 61 63 6b 69 6e 67 45 err);..backingE
1a70: 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 rror = ERR_get_e
1a80: 72 72 6f 72 28 29 3b 0a 09 69 66 20 28 72 63 20 rror();..if (rc
1a90: 21 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e != SSL_ERROR_NON
1aa0: 45 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 E) {.. dprint
1ab0: 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 25 69 f("Got error: %i
1ac0: 20 28 72 63 20 3d 20 25 69 29 22 2c 20 65 72 72 (rc = %i)", err
1ad0: 2c 20 72 63 29 3b 0a 09 20 20 20 20 64 70 72 69 , rc);.. dpri
1ae0: 6e 74 66 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 ntf("Got error:
1af0: 25 73 22 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f %s", ERR_reason_
1b00: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 error_string(bac
1b10: 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 7d 0a kingError));..}.
1b20: 0a 09 2f 2a 20 54 68 65 20 72 65 74 72 79 20 66 ../* The retry f
1b30: 6c 61 67 20 69 73 20 73 65 74 20 62 79 20 74 68 lag is set by th
1b40: 65 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f e BIO_set_retry_
1b50: 2a 20 66 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 09 * functions */..
1b60: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d bioShouldRetry =
1b70: 20 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 BIO_should_retr
1b80: 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 y(statePtr->bio)
1b90: 3b 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f 5f ;..dprintf("BIO_
1ba0: 73 68 6f 75 6c 64 5f 72 65 74 72 79 20 3d 20 25 should_retry = %
1bb0: 64 22 2c 20 62 69 6f 53 68 6f 75 6c 64 52 65 74 d", bioShouldRet
1bc0: 72 79 29 3b 0a 0a 09 69 66 20 28 62 69 6f 53 68 ry);...if (bioSh
1bd0: 6f 75 6c 64 52 65 74 72 79 29 20 7b 0a 09 20 20 ouldRetry) {..
1be0: 20 20 64 70 72 69 6e 74 66 28 22 54 68 65 20 49 dprintf("The I
1bf0: 2f 4f 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c /O did not compl
1c00: 65 74 65 20 2d 2d 20 62 75 74 20 77 65 20 73 68 ete -- but we sh
1c10: 6f 75 6c 64 20 74 72 79 20 69 74 20 61 67 61 69 ould try it agai
1c20: 6e 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 73 n");... if (s
1c30: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
1c40: 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 TLS_TCL_ASYNC)
1c50: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 52 65 74 {...dprintf("Ret
1c60: 75 72 6e 69 6e 67 20 45 41 47 41 49 4e 20 73 6f urning EAGAIN so
1c70: 20 74 68 61 74 20 69 74 20 63 61 6e 20 62 65 20 that it can be
1c80: 72 65 74 72 69 65 64 20 6c 61 74 65 72 22 29 3b retried later");
1c90: 0a 2f 2a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 ./*..*errorCodeP
1ca0: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 72 tr = EAGAIN;...r
1cb0: 65 74 75 72 6e 20 30 3b 2a 2f 0a 09 20 20 20 20 eturn 0;*/..
1cc0: 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e } else {...dprin
1cd0: 74 66 28 22 44 6f 69 6e 67 20 73 6f 20 6e 6f 77 tf("Doing so now
1ce0: 22 29 3b 0a 2f 2a 09 09 63 6f 6e 74 69 6e 75 65 ");./*..continue
1cf0: 3b 2a 2f 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 ;*/.. }..}...
1d00: 64 70 72 69 6e 74 66 28 22 57 65 20 68 61 76 65 dprintf("We have
1d10: 20 65 69 74 68 65 72 20 63 6f 6d 70 6c 65 74 65 either complete
1d20: 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 74 ly established t
1d30: 68 65 20 73 65 73 73 69 6f 6e 20 6f 72 20 63 6f he session or co
1d40: 6d 70 6c 65 74 65 6c 79 20 66 61 69 6c 65 64 20 mpletely failed
1d50: 69 74 20 2d 2d 20 74 68 65 72 65 20 69 73 20 6e it -- there is n
1d60: 6f 20 6d 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 o more need to e
1d70: 76 65 72 20 72 65 74 72 79 20 69 74 20 74 68 6f ver retry it tho
1d80: 75 67 68 22 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 ugh");..break;.
1d90: 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 }.. switch
1da0: 20 28 72 63 29 20 7b 0a 09 63 61 73 65 20 53 53 (rc) {..case SS
1db0: 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 L_ERROR_NONE:..
1dc0: 20 20 20 2f 2a 20 54 68 65 20 54 4c 53 2f 53 53 /* The TLS/SS
1dd0: 4c 20 49 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 L I/O operation
1de0: 63 6f 6d 70 6c 65 74 65 64 20 73 75 63 63 65 73 completed succes
1df0: 73 66 75 6c 6c 79 20 2a 2f 0a 09 20 20 20 20 64 sfully */.. d
1e00: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
1e10: 52 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 20 20 2a R_NONE");.. *
1e20: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
1e30: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
1e40: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 case SSL_ERROR_S
1e50: 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f SL:.. /* A no
1e60: 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 n-recoverable, f
1e70: 61 74 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 atal error in th
1e80: 65 20 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 e SSL library oc
1e90: 63 75 72 72 65 64 2c 0a 09 20 20 20 20 20 20 20 curred,..
1ea0: 75 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 6f 63 usually a protoc
1eb0: 6f 6c 20 65 72 72 6f 72 2e 20 54 68 69 73 20 69 ol error. This i
1ec0: 6e 63 6c 75 64 65 73 20 63 65 72 74 69 66 69 63 ncludes certific
1ed0: 61 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 0a 09 ate validation..
1ee0: 20 20 20 20 20 20 20 65 72 72 6f 72 73 2e 20 2a errors. *
1ef0: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
1f00: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 46 SSL_ERROR_SSL: F
1f10: 61 74 61 6c 20 53 53 4c 20 70 72 6f 74 6f 63 6f atal SSL protoco
1f20: 6c 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 l error occurred
1f30: 22 29 3b 0a 09 20 20 20 20 69 66 20 28 53 53 4c ");.. if (SSL
1f40: 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 _get_verify_resu
1f50: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c lt(statePtr->ssl
1f60: 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 ) != X509_V_OK)
1f70: 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 {...Tls_Error(st
1f80: 61 74 65 50 74 72 2c 0a 09 09 20 20 20 20 58 35 atePtr,... X5
1f90: 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 09_verify_cert_e
1fa0: 72 72 6f 72 5f 73 74 72 69 6e 67 28 53 53 4c 5f rror_string(SSL_
1fb0: 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c get_verify_resul
1fc0: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
1fd0: 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ));.. }..
1fe0: 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 if (backingError
1ff0: 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c 73 5f 45 != 0) {...Tls_E
2000: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 rror(statePtr, E
2010: 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f RR_reason_error_
2020: 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 string(backingEr
2030: 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 ror));.. }..
2040: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 statePtr->fla
2050: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 gs |= TLS_TCL_HA
2060: 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a NDSHAKE_FAILED;.
2070: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
2080: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
2090: 44 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d D;.. return -
20a0: 31 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 1;...case SSL_ER
20b0: 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 ROR_WANT_READ:..
20c0: 20 20 20 20 2f 2a 20 4d 6f 72 65 20 64 61 74 61 /* More data
20d0: 20 6d 75 73 74 20 62 65 20 72 65 61 64 20 66 72 must be read fr
20e0: 6f 6d 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e om the underlyin
20f0: 67 20 42 49 4f 20 6c 61 79 65 72 20 69 6e 20 6f g BIO layer in o
2100: 72 64 65 72 20 74 6f 0a 09 20 20 20 20 20 20 20 rder to..
2110: 63 6f 6d 70 6c 65 74 65 20 74 68 65 20 61 63 74 complete the act
2120: 75 61 6c 20 53 53 4c 5f 2a 28 29 20 6f 70 65 72 ual SSL_*() oper
2130: 61 74 69 6f 6e 2e 20 20 2a 2f 0a 09 20 20 20 20 ation. */..
2140: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
2150: 4f 52 5f 57 41 4e 54 5f 52 45 41 44 22 29 3b 0a OR_WANT_READ");.
2160: 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 . BIO_set_ret
2170: 72 79 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 ry_read(statePtr
2180: 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 2a 65 72 ->bio);.. *er
2190: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
21a0: 41 49 4e 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 AIN;.. dprint
21b0: 66 28 22 45 52 52 28 53 53 4c 5f 45 52 52 4f 52 f("ERR(SSL_ERROR
21c0: 5f 57 41 4e 54 5f 52 45 41 44 2c 20 45 41 47 41 _WANT_READ, EAGA
21d0: 49 4e 29 22 29 3b 0a 09 20 20 20 20 73 74 61 74 IN)");.. stat
21e0: 65 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 ePtr->want |= TC
21f0: 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 09 20 20 20 L_READABLE;..
2200: 20 72 65 74 75 72 6e 20 30 3b 0a 0a 09 63 61 73 return 0;...cas
2210: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 e SSL_ERROR_WANT
2220: 5f 57 52 49 54 45 3a 0a 09 20 20 20 20 2f 2a 20 _WRITE:.. /*
2230: 54 68 65 72 65 20 69 73 20 64 61 74 61 20 69 6e There is data in
2240: 20 74 68 65 20 53 53 4c 20 62 75 66 66 65 72 20 the SSL buffer
2250: 74 68 61 74 20 6d 75 73 74 20 62 65 20 77 72 69 that must be wri
2260: 74 74 65 6e 20 74 6f 20 74 68 65 0a 09 20 20 20 tten to the..
2270: 20 20 20 20 75 6e 64 65 72 6c 79 69 6e 67 20 42 underlying B
2280: 49 4f 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 63 IO in order to c
2290: 6f 6d 70 6c 65 74 65 20 74 68 65 20 53 53 4c 5f omplete the SSL_
22a0: 2a 28 29 20 6f 70 65 72 61 74 69 6f 6e 2e 20 2a *() operation. *
22b0: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
22c0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
22d0: 52 49 54 45 22 29 3b 0a 09 20 20 20 20 42 49 4f RITE");.. BIO
22e0: 5f 73 65 74 5f 72 65 74 72 79 5f 77 72 69 74 65 _set_retry_write
22f0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
2300: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
2310: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 Ptr = EAGAIN;..
2320: 20 20 20 64 70 72 69 6e 74 66 28 22 45 52 52 28 dprintf("ERR(
2330: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
2340: 52 49 54 45 2c 20 45 41 47 41 49 4e 29 22 29 3b RITE, EAGAIN)");
2350: 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
2360: 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 49 54 want |= TCL_WRIT
2370: 41 42 4c 45 3b 0a 09 20 20 20 20 72 65 74 75 72 ABLE;.. retur
2380: 6e 20 30 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f n 0;...case SSL_
2390: 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f ERROR_WANT_X509_
23a0: 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 2f 2a 20 LOOKUP:.. /*
23b0: 54 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 The operation di
23c0: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 62 d not complete b
23d0: 65 63 61 75 73 65 20 61 6e 20 61 70 70 6c 69 63 ecause an applic
23e0: 61 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b 0a 09 ation callback..
23f0: 20 20 20 20 20 20 20 73 65 74 20 62 79 20 53 53 set by SS
2400: 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 6e 74 L_CTX_set_client
2410: 5f 63 65 72 74 5f 63 62 28 29 20 68 61 73 20 61 _cert_cb() has a
2420: 73 6b 65 64 20 74 6f 20 62 65 20 63 61 6c 6c 65 sked to be calle
2430: 64 20 61 67 61 69 6e 2e 20 2a 2f 0a 09 20 20 20 d again. */..
2440: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 dprintf("SSL_ER
2450: 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f ROR_WANT_X509_LO
2460: 4f 4b 55 50 22 29 3b 0a 09 20 20 20 20 42 49 4f OKUP");.. BIO
2470: 5f 73 65 74 5f 72 65 74 72 79 5f 73 70 65 63 69 _set_retry_speci
2480: 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f al(statePtr->bio
2490: 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f );.. BIO_set_
24a0: 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 61 retry_reason(sta
24b0: 74 65 50 74 72 2d 3e 62 69 6f 2c 20 42 49 4f 5f tePtr->bio, BIO_
24c0: 52 52 5f 53 53 4c 5f 58 35 30 39 5f 4c 4f 4f 4b RR_SSL_X509_LOOK
24d0: 55 50 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 UP);.. *error
24e0: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
24f0: 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
2500: 45 52 52 28 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ERR(SSL_ERROR_WA
2510: 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 2c 20 NT_X509_LOOKUP,
2520: 45 41 47 41 49 4e 29 22 29 3b 0a 09 20 20 20 20 EAGAIN)");..
2530: 72 65 74 75 72 6e 20 30 3b 0a 0a 09 63 61 73 65 return 0;...case
2540: 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 SSL_ERROR_SYSCA
2550: 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 LL:.. /* Some
2560: 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 non-recoverable
2570: 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f , fatal I/O erro
2580: 72 20 6f 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 r occurred */..
2590: 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f dprintf("SSL_
25a0: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 20 46 ERROR_SYSCALL: F
25b0: 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f atal I/O error o
25c0: 63 63 75 72 72 65 64 22 29 3b 0a 0a 09 20 20 20 ccurred");...
25d0: 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f if (backingErro
25e0: 72 20 3d 3d 20 30 20 26 26 20 65 72 72 20 3d 3d r == 0 && err ==
25f0: 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 0) {...dprintf(
2600: 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 "EOF reached")..
2610: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
2620: 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 09 54 ECONNRESET;...T
2630: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
2640: 72 2c 20 22 28 75 6e 65 78 70 65 63 74 65 64 29 r, "(unexpected)
2650: 20 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b 0a EOF reached");.
2660: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
2670: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d (backingError ==
2680: 20 30 20 26 26 20 65 72 72 20 3d 3d 20 2d 31 29 0 && err == -1)
2690: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 49 2f {...dprintf("I/
26a0: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 O error occurred
26b0: 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 22 2c (errno = %lu)",
26c0: 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
26d0: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 Tcl_GetErrno())
26e0: 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ;...*errorCodePt
26f0: 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f r = Tcl_GetErrno
2700: 28 29 3b 0a 09 09 69 66 20 28 2a 65 72 72 6f 72 ();...if (*error
2710: 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e CodePtr == ECONN
2720: 52 45 53 45 54 29 20 7b 0a 09 09 20 20 20 20 2a RESET) {... *
2730: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
2740: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 7d CONNABORTED;...}
2750: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
2760: 74 65 50 74 72 2c 20 54 63 6c 5f 45 72 72 6e 6f tePtr, Tcl_Errno
2770: 4d 73 67 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 Msg(*errorCodePt
2780: 72 29 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 r));... } els
2790: 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 49 e {...dprintf("I
27a0: 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 /O error occurre
27b0: 64 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 d (backingError
27c0: 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 = %lu)", backing
27d0: 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 72 6f 72 Error);...*error
27e0: 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 CodePtr = Tcl_Ge
27f0: 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 20 28 tErrno();...if (
2800: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d *errorCodePtr ==
2810: 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 ECONNRESET) {..
2820: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
2830: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
2840: 44 3b 0a 09 09 7d 0a 09 09 54 6c 73 5f 45 72 72 D;...}...Tls_Err
2850: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 or(statePtr, ERR
2860: 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 _reason_error_st
2870: 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f ring(backingErro
2880: 72 29 29 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 r));.. }...
2890: 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 statePtr->flag
28a0: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e s |= TLS_TCL_HAN
28b0: 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 DSHAKE_FAILED;..
28c0: 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a return -1;..
28d0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
28e0: 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 ZERO_RETURN:..
28f0: 20 20 2f 2a 20 50 65 65 72 20 68 61 73 20 63 6c /* Peer has cl
2900: 65 61 6e 6c 79 20 63 6c 6f 73 65 64 20 74 68 65 eanly closed the
2910: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 79 20 73 connection by s
2920: 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 65 ending the close
2930: 5f 6e 6f 74 69 66 79 0a 09 20 20 20 20 20 20 20 _notify..
2940: 61 6c 65 72 74 2e 20 43 61 6e 27 74 20 72 65 61 alert. Can't rea
2950: 64 2c 20 62 75 74 20 63 61 6e 20 77 72 69 74 65 d, but can write
2960: 2e 20 4e 65 65 64 20 74 6f 20 72 65 74 75 72 6e . Need to return
2970: 20 61 6e 20 45 4f 46 2c 20 73 6f 20 74 68 65 0a an EOF, so the.
2980: 09 20 20 20 20 20 20 20 63 68 61 6e 6e 65 6c 20 . channel
2990: 69 73 20 63 6c 6f 73 65 64 20 77 68 69 63 68 20 is closed which
29a0: 77 69 6c 6c 20 73 65 6e 64 20 61 6e 20 53 53 4c will send an SSL
29b0: 5f 73 68 75 74 64 6f 77 6e 28 29 2e 20 2a 2f 0a _shutdown(). */.
29c0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
29d0: 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 L_ERROR_ZERO_RET
29e0: 55 52 4e 3a 20 50 65 65 72 20 68 61 73 20 63 6c URN: Peer has cl
29f0: 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 osed the connect
2a00: 69 6f 6e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 ion");.. *err
2a10: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
2a20: 4e 52 45 53 45 54 3b 0a 09 20 20 20 20 54 6c 73 NRESET;.. Tls
2a30: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
2a40: 20 22 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 "Peer has close
2a50: 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e d the connection
2a60: 20 66 6f 72 20 77 72 69 74 69 6e 67 20 62 79 20 for writing by
2a70: 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 sending the clos
2a80: 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 22 29 e_notify alert")
2a90: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 ;.. return -1
2aa0: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
2ab0: 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 3a OR_WANT_CONNECT:
2ac0: 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 .. /* The ope
2ad0: 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 ration did not c
2ae0: 6f 6d 70 6c 65 74 65 20 61 6e 64 20 63 6f 6e 6e omplete and conn
2af0: 65 63 74 20 77 6f 75 6c 64 20 68 61 76 65 20 62 ect would have b
2b00: 6c 6f 63 6b 65 64 2e 0a 09 20 20 20 20 20 20 20 locked...
2b10: 52 65 74 72 79 20 61 67 61 69 6e 20 61 66 74 65 Retry again afte
2b20: 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 r connection is
2b30: 65 73 74 61 62 6c 69 73 68 65 64 2e 20 2a 2f 0a established. */.
2b40: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 . dprintf("SS
2b50: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e L_ERROR_WANT_CON
2b60: 4e 45 43 54 22 29 3b 0a 09 20 20 20 20 42 49 4f NECT");.. BIO
2b70: 5f 73 65 74 5f 72 65 74 72 79 5f 73 70 65 63 69 _set_retry_speci
2b80: 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f al(statePtr->bio
2b90: 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f );.. BIO_set_
2ba0: 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 61 retry_reason(sta
2bb0: 74 65 50 74 72 2d 3e 62 69 6f 2c 20 42 49 4f 5f tePtr->bio, BIO_
2bc0: 52 52 5f 43 4f 4e 4e 45 43 54 29 3b 0a 09 20 20 RR_CONNECT);..
2bd0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
2be0: 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 64 = EAGAIN;.. d
2bf0: 70 72 69 6e 74 66 28 22 45 52 52 28 53 53 4c 5f printf("ERR(SSL_
2c00: 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 ERROR_WANT_CONNE
2c10: 43 54 2c 20 45 41 47 41 49 4e 29 22 29 3b 0a 09 CT, EAGAIN)");..
2c20: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 0a 09 return 0;...
2c30: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
2c40: 41 4e 54 5f 41 43 43 45 50 54 3a 0a 09 20 20 20 ANT_ACCEPT:..
2c50: 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 6f /* The operatio
2c60: 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 n did not comple
2c70: 74 65 20 61 6e 64 20 61 63 63 65 70 74 20 77 6f te and accept wo
2c80: 75 6c 64 20 68 61 76 65 20 62 6c 6f 63 6b 65 64 uld have blocked
2c90: 2e 0a 09 20 20 20 20 20 20 20 52 65 74 72 79 20 ... Retry
2ca0: 61 67 61 69 6e 20 61 66 74 65 72 20 63 6f 6e 6e again after conn
2cb0: 65 63 74 69 6f 6e 20 69 73 20 65 73 74 61 62 6c ection is establ
2cc0: 69 73 68 65 64 2e 20 2a 2f 0a 09 20 20 20 20 64 ished. */.. d
2cd0: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
2ce0: 52 5f 57 41 4e 54 5f 41 43 43 45 50 54 22 29 3b R_WANT_ACCEPT");
2cf0: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
2d00: 74 72 79 5f 73 70 65 63 69 61 6c 28 73 74 61 74 try_special(stat
2d10: 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 ePtr->bio);..
2d20: 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 BIO_set_retry_r
2d30: 65 61 73 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e eason(statePtr->
2d40: 62 69 6f 2c 20 42 49 4f 5f 52 52 5f 41 43 43 45 bio, BIO_RR_ACCE
2d50: 50 54 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 PT);.. *error
2d60: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
2d70: 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
2d80: 45 52 52 28 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ERR(SSL_ERROR_WA
2d90: 4e 54 5f 41 43 43 45 50 54 2c 20 45 41 47 41 49 NT_ACCEPT, EAGAI
2da0: 4e 29 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 N)");.. retur
2db0: 6e 20 30 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f n 0;...case SSL_
2dc0: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 ERROR_WANT_ASYNC
2dd0: 3a 0a 09 20 20 20 20 2f 2a 20 55 73 65 64 20 77 :.. /* Used w
2de0: 69 74 68 20 66 6c 61 67 20 53 53 4c 5f 4d 4f 44 ith flag SSL_MOD
2df0: 45 5f 41 53 59 4e 43 2c 20 6f 70 20 64 69 64 6e E_ASYNC, op didn
2e00: 27 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 't complete beca
2e10: 75 73 65 20 61 6e 0a 09 20 20 20 20 20 20 20 61 use an.. a
2e20: 73 79 6e 63 20 65 6e 67 69 6e 65 20 69 73 20 73 sync engine is s
2e30: 74 69 6c 6c 20 70 72 6f 63 65 73 73 69 6e 67 20 till processing
2e40: 64 61 74 61 20 2a 2f 0a 09 63 61 73 65 20 53 53 data */..case SS
2e50: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 L_ERROR_WANT_ASY
2e60: 4e 43 5f 4a 4f 42 3a 0a 09 20 20 20 20 2f 2a 20 NC_JOB:.. /*
2e70: 54 68 65 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 The asynchronous
2e80: 20 6a 6f 62 20 63 6f 75 6c 64 20 6e 6f 74 20 62 job could not b
2e90: 65 20 73 74 61 72 74 65 64 20 62 65 63 61 75 73 e started becaus
2ea0: 65 20 74 68 65 72 65 20 77 65 72 65 20 6e 6f 0a e there were no.
2eb0: 09 20 20 20 20 20 20 20 61 73 79 6e 63 20 6a 6f . async jo
2ec0: 62 73 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 bs available in
2ed0: 74 68 65 20 70 6f 6f 6c 2e 20 2a 2f 0a 09 63 61 the pool. */..ca
2ee0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
2ef0: 54 5f 43 4c 49 45 4e 54 5f 48 45 4c 4c 4f 5f 43 T_CLIENT_HELLO_C
2f00: 42 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f B:.. /* The o
2f10: 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 peration did not
2f20: 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 73 complete becaus
2f30: 65 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e e an application
2f40: 20 63 61 6c 6c 62 61 63 6b 0a 09 20 20 20 20 20 callback..
2f50: 20 20 73 65 74 20 62 79 20 53 53 4c 5f 43 54 58 set by SSL_CTX
2f60: 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 68 65 6c 6c _set_client_hell
2f70: 6f 5f 63 62 28 29 20 68 61 73 20 61 73 6b 65 64 o_cb() has asked
2f80: 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 61 67 to be called ag
2f90: 61 69 6e 2e 20 2a 2f 0a 23 69 66 20 4f 50 45 4e ain. */.#if OPEN
2fa0: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 SSL_VERSION_NUMB
2fb0: 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 30 ER >= 0x30000000
2fc0: 4c 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f L..case SSL_ERRO
2fd0: 52 5f 57 41 4e 54 5f 52 45 54 52 59 5f 56 45 52 R_WANT_RETRY_VER
2fe0: 49 46 59 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 IFY:.. /* The
2ff0: 20 6f 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e operation did n
3000: 6f 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 ot complete beca
3010: 75 73 65 20 61 20 63 65 72 74 69 66 69 63 61 74 use a certificat
3020: 65 20 76 65 72 69 66 69 63 61 74 69 6f 6e 0a 09 e verification..
3030: 20 20 20 20 20 20 20 63 61 6c 6c 62 61 63 6b 20 callback
3040: 68 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 20 has asked to be
3050: 63 61 6c 6c 65 64 20 61 67 61 69 6e 20 76 69 61 called again via
3060: 20 53 53 4c 5f 73 65 74 5f 72 65 74 72 79 5f 76 SSL_set_retry_v
3070: 65 72 69 66 79 28 33 29 2e 20 2a 2f 0a 23 65 6e erify(3). */.#en
3080: 64 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 dif..default:..
3090: 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 /* The operat
30a0: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 ion did not comp
30b0: 6c 65 74 65 20 61 6e 64 20 73 68 6f 75 6c 64 20 lete and should
30c0: 62 65 20 72 65 74 72 69 65 64 20 6c 61 74 65 72 be retried later
30d0: 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
30e0: 66 28 22 4f 70 65 72 61 74 69 6f 6e 20 64 69 64 f("Operation did
30f0: 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 2c 20 63 not complete, c
3100: 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 67 61 all function aga
3110: 69 6e 20 6c 61 74 65 72 22 29 3b 0a 09 20 20 20 in later");..
3120: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
3130: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 64 70 EAGAIN;.. dp
3140: 72 69 6e 74 66 28 22 45 52 52 28 4f 74 68 65 72 rintf("ERR(Other
3150: 2c 20 45 41 47 41 49 4e 29 22 29 3b 0a 09 20 20 , EAGAIN)");..
3160: 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 return 0;.
3170: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
3180: 52 65 6d 6f 76 69 6e 67 20 74 68 65 20 5c 22 54 Removing the \"T
3190: 4c 53 5f 54 43 4c 5f 49 4e 49 54 5c 22 20 66 6c LS_TCL_INIT\" fl
31a0: 61 67 20 73 69 6e 63 65 20 77 65 20 68 61 76 65 ag since we have
31b0: 20 63 6f 6d 70 6c 65 74 65 64 20 74 68 65 20 68 completed the h
31c0: 61 6e 64 73 68 61 6b 65 22 29 3b 0a 20 20 20 20 andshake");.
31d0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
31e0: 26 3d 20 7e 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 &= ~TLS_TCL_INIT
31f0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
3200: 52 65 74 75 72 6e 69 6e 67 20 73 75 63 63 65 73 Returning succes
3210: 73 22 29 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 s");. *errorC
3220: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 odePtr = 0;.
3230: 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a return 1;.}../*.
3240: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3290: 20 2a 0a 20 2a 20 54 6c 73 49 6e 70 75 74 50 72 *. * TlsInputPr
32a0: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 oc --. *. *.This
32b0: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
32c0: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e voked by the gen
32d0: 65 72 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 74 eric I/O layer t
32e0: 6f 20 72 65 61 64 20 64 61 74 61 20 66 72 6f 6d o read data from
32f0: 0a 20 2a 09 74 68 65 20 42 49 4f 20 77 68 65 6e . *.the BIO when
3300: 65 76 65 72 20 74 68 65 20 54 63 6c 5f 52 65 61 ever the Tcl_Rea
3310: 64 28 29 2c 20 54 63 6c 5f 52 65 61 64 43 68 61 d(), Tcl_ReadCha
3320: 72 73 2c 20 54 63 6c 5f 47 65 74 73 2c 20 61 6e rs, Tcl_Gets, an
3330: 64 0a 20 2a 09 54 63 6c 5f 47 65 74 73 4f 62 6a d. *.Tcl_GetsObj
3340: 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 75 functions are u
3350: 73 65 64 2e 20 45 71 75 69 76 61 6c 65 6e 74 20 sed. Equivalent
3360: 74 6f 20 53 53 4c 5f 72 65 61 64 5f 65 78 20 61 to SSL_read_ex a
3370: 6e 64 20 53 53 4c 5f 72 65 61 64 2e 0a 20 2a 0a nd SSL_read.. *.
3380: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 * Results:. *.R
3390: 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 eturns the numbe
33a0: 72 20 6f 66 20 62 79 74 65 73 20 72 65 61 64 20 r of bytes read
33b0: 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e 20 or -1 on error.
33c0: 53 65 74 73 20 65 72 72 6f 72 43 6f 64 65 50 74 Sets errorCodePt
33d0: 72 20 74 6f 0a 20 2a 09 61 20 50 4f 53 49 58 20 r to. *.a POSIX
33e0: 65 72 72 6f 72 20 63 6f 64 65 20 69 66 20 61 6e error code if an
33f0: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c error occurred,
3400: 20 6f 72 20 30 20 69 66 20 6e 6f 6e 65 2e 0a 20 or 0 if none..
3410: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3420: 73 3a 0a 20 2a 09 52 65 61 64 73 20 69 6e 70 75 s:. *.Reads inpu
3430: 74 20 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 74 t from the input
3440: 20 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 device of the c
3450: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 44 61 hannel.. *. * Da
3460: 74 61 20 69 73 20 72 65 63 65 69 76 65 64 20 69 ta is received i
3470: 6e 20 77 68 6f 6c 65 20 62 6c 6f 63 6b 73 20 6b n whole blocks k
3480: 6e 6f 77 6e 20 61 73 20 72 65 63 6f 72 64 73 20 nown as records
3490: 66 72 6f 6d 20 74 68 65 20 70 65 65 72 2e 20 41 from the peer. A
34a0: 20 77 68 6f 6c 65 0a 20 2a 20 72 65 63 6f 72 64 whole. * record
34b0: 20 69 73 20 70 72 6f 63 65 73 73 65 64 20 28 65 is processed (e
34c0: 2e 67 2e 20 64 65 63 72 79 70 74 65 64 29 20 69 .g. decrypted) i
34d0: 6e 20 6f 6e 65 20 67 6f 20 61 6e 64 20 69 73 20 n one go and is
34e0: 62 75 66 66 65 72 65 64 20 62 79 20 4f 70 65 6e buffered by Open
34f0: 53 53 4c 0a 20 2a 20 75 6e 74 69 6c 20 69 74 20 SSL. * until it
3500: 69 73 20 72 65 61 64 20 62 79 20 74 68 65 20 61 is read by the a
3510: 70 70 6c 69 63 61 74 69 6f 6e 20 76 69 61 20 61 pplication via a
3520: 20 63 61 6c 6c 20 74 6f 20 53 53 4c 5f 72 65 61 call to SSL_rea
3530: 64 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d d.. *. *--------
3540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3580: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
3590: 20 69 6e 74 20 54 6c 73 49 6e 70 75 74 50 72 6f int TlsInputPro
35a0: 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 c(. ClientDat
35b0: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 a instanceData,.
35c0: 2f 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 /* Connection st
35d0: 61 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 ate info */.
35e0: 63 68 61 72 20 2a 62 75 66 2c 09 09 09 2f 2a 20 char *buf,.../*
35f0: 42 75 66 66 65 72 20 74 6f 20 73 74 6f 72 65 20 Buffer to store
3600: 64 61 74 61 20 72 65 61 64 20 66 72 6f 6d 20 42 data read from B
3610: 49 4f 20 2a 2f 0a 20 20 20 20 69 6e 74 20 62 75 IO */. int bu
3620: 66 53 69 7a 65 2c 09 09 2f 2a 20 42 75 66 66 65 fSize,../* Buffe
3630: 72 20 73 69 7a 65 20 69 6e 20 62 79 74 65 73 20 r size in bytes
3640: 2a 2f 0a 20 20 20 20 69 6e 74 20 2a 65 72 72 6f */. int *erro
3650: 72 43 6f 64 65 50 74 72 29 09 09 2f 2a 20 53 74 rCodePtr)../* St
3660: 6f 72 61 67 65 20 66 6f 72 20 65 72 72 6f 72 20 orage for error
3670: 63 6f 64 65 20 74 6f 20 72 65 74 75 72 6e 20 2a code to return *
3680: 2f 0a 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 /.{. unsigned
3690: 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 long backingErr
36a0: 6f 72 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 or;. State *s
36b0: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
36c0: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
36d0: 3b 0a 20 20 20 20 69 6e 74 20 62 79 74 65 73 52 ;. int bytesR
36e0: 65 61 64 2c 20 65 72 72 3b 0a 20 20 20 20 2a 65 ead, err;. *e
36f0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
3700: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 .. dprintf("R
3710: 65 61 64 28 25 64 29 22 2c 20 62 75 66 53 69 7a ead(%d)", bufSiz
3720: 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 e);.. /* Abor
3730: 74 20 69 66 20 74 68 65 20 75 73 65 72 20 76 65 t if the user ve
3740: 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 rify callback is
3750: 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 74 still running t
3760: 6f 20 61 76 6f 69 64 20 74 72 69 67 67 65 72 69 o avoid triggeri
3770: 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f 74 68 65 ng. * anothe
3780: 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 20 74 68 r call before th
3790: 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 69 73 e current one is
37a0: 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f 0a 20 20 complete. */.
37b0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
37c0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
37d0: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
37e0: 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 intf("Callback i
37f0: 73 20 72 75 6e 6e 69 6e 67 2c 20 72 65 61 64 69 s running, readi
3800: 6e 67 20 30 20 62 79 74 65 73 22 29 3b 0a 09 72 ng 0 bytes");..r
3810: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a eturn 0;. }..
3820: 20 20 20 20 2f 2a 20 49 66 20 6e 6f 74 20 69 6e /* If not in
3830: 69 74 69 61 6c 69 7a 65 64 2c 20 64 6f 20 63 6f itialized, do co
3840: 6e 6e 65 63 74 20 2a 2f 0a 20 20 20 20 2f 2a 20 nnect */. /*
3850: 43 61 6e 20 61 6c 73 6f 20 63 68 65 63 6b 20 53 Can also check S
3860: 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 SL_is_init_finis
3870: 68 65 64 28 73 73 6c 29 20 2a 2f 0a 20 20 20 20 hed(ssl) */.
3880: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c if (statePtr->fl
3890: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e ags & TLS_TCL_IN
38a0: 49 54 29 20 7b 0a 09 69 6e 74 20 74 6c 73 43 6f IT) {..int tlsCo
38b0: 6e 6e 65 63 74 3b 0a 0a 09 64 70 72 69 6e 74 66 nnect;...dprintf
38c0: 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 ("Calling Tls_Wa
38d0: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a itForConnect");.
38e0: 0a 09 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 ..tlsConnect = T
38f0: 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 ls_WaitForConnec
3900: 74 28 73 74 61 74 65 50 74 72 2c 20 65 72 72 6f t(statePtr, erro
3910: 72 43 6f 64 65 50 74 72 2c 20 30 29 3b 0a 09 69 rCodePtr, 0);..i
3920: 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 f (tlsConnect <
3930: 30 29 20 7b 0a 09 20 20 20 20 2f 2a 20 46 61 69 0) {.. /* Fai
3940: 6c 75 72 65 2c 20 73 6f 20 61 62 6f 72 74 20 2a lure, so abort *
3950: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
3960: 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 61 69 Got an error wai
3970: 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 ting to connect
3980: 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 (tlsConnect = %i
3990: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 , *errorCodePtr
39a0: 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 = %i)", tlsConne
39b0: 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 ct, *errorCodePt
39c0: 72 29 3b 0a 0a 09 20 20 20 20 62 79 74 65 73 52 r);... bytesR
39d0: 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 69 ead = -1;.. i
39e0: 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 f (*errorCodePtr
39f0: 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 == ECONNRESET)
3a00: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 {...dprintf("Got
3a10: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 connection rese
3a20: 74 22 29 3b 0a 09 09 2f 2a 20 53 6f 66 74 20 45 t");.../* Soft E
3a30: 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 6f 72 43 6f OF */...*errorCo
3a40: 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 dePtr = 0;...byt
3a50: 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 esRead = 0;..
3a60: 20 7d 0a 09 20 20 20 20 72 65 74 75 72 6e 20 62 }.. return b
3a70: 79 74 65 73 52 65 61 64 3b 0a 09 7d 20 65 6c 73 ytesRead;..} els
3a80: 65 20 69 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 e if (tlsConnect
3a90: 20 3d 3d 20 30 29 20 7b 0a 09 20 20 20 20 2f 2a == 0) {.. /*
3aa0: 20 54 72 79 20 61 67 61 69 6e 20 2a 2f 0a 09 20 Try again */..
3ab0: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 2d bytesRead = -
3ac0: 31 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 62 1;.. return b
3ad0: 79 74 65 73 52 65 61 64 3b 0a 09 7d 0a 20 20 20 ytesRead;..}.
3ae0: 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 }.. /*.
3af0: 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 * We need to cle
3b00: 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 ar the SSL error
3b10: 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 stack now becau
3b20: 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 se we sometimes
3b30: 72 65 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 reach. * thi
3b40: 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 s function with
3b50: 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 leftover errors
3b60: 69 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 in the stack. I
3b70: 66 20 42 49 4f 5f 72 65 61 64 0a 20 20 20 20 20 f BIO_read.
3b80: 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 * returns -1 and
3b90: 20 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c intends EAGAIN,
3ba0: 20 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 there is a left
3bb0: 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 over error, it w
3bc0: 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 ill be. * mi
3bd0: 73 63 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e sconstrued as an
3be0: 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 error, not EAGA
3bf0: 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 IN.. *.
3c00: 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c * Alternatively,
3c10: 20 77 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 we may want to
3c20: 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 handle the <0 re
3c30: 74 75 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a turn codes from.
3c40: 20 20 20 20 20 2a 20 42 49 4f 5f 72 65 61 64 20 * BIO_read
3c50: 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 61 64 specially (as ad
3c60: 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 53 41 vised in the RSA
3c70: 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 6c docs). TLS's l
3c80: 6f 77 65 72 20 6c 65 76 65 6c 20 42 49 4f 0a 20 ower level BIO.
3c90: 20 20 20 20 2a 20 66 75 6e 63 74 69 6f 6e 73 20 * functions
3ca0: 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 65 play with the re
3cb0: 74 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 try flags though
3cc0: 2c 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 , and this seems
3cd0: 20 74 6f 20 77 6f 72 6b 0a 20 20 20 20 20 2a 20 to work. *
3ce0: 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 6d 69 correctly. Simi
3cf0: 6c 61 72 20 66 69 78 20 69 6e 20 54 6c 73 4f 75 lar fix in TlsOu
3d00: 74 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 tputProc. - hobb
3d10: 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 52 s. */. ER
3d20: 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b R_clear_error();
3d30: 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 72 5f 72 . BIO_clear_r
3d40: 65 74 72 79 5f 66 6c 61 67 73 28 73 74 61 74 65 etry_flags(state
3d50: 50 74 72 2d 3e 62 69 6f 29 3b 0a 20 20 20 20 62 Ptr->bio);. b
3d60: 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f 5f 72 ytesRead = BIO_r
3d70: 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ead(statePtr->bi
3d80: 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a 65 29 o, buf, bufSize)
3d90: 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 ;. dprintf("B
3da0: 49 4f 5f 72 65 61 64 20 2d 3e 20 25 64 22 2c 20 IO_read -> %d",
3db0: 62 79 74 65 73 52 65 61 64 29 3b 0a 0a 20 20 20 bytesRead);..
3dc0: 20 2f 2a 20 53 61 6d 65 20 61 73 20 53 53 4c 5f /* Same as SSL_
3dd0: 77 61 6e 74 2c 20 62 75 74 20 61 6c 73 6f 20 63 want, but also c
3de0: 68 65 63 6b 73 20 74 68 65 20 65 72 72 6f 72 20 hecks the error
3df0: 71 75 65 75 65 20 2a 2f 0a 20 20 20 20 65 72 72 queue */. err
3e00: 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 = SSL_get_error
3e10: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
3e20: 62 79 74 65 73 52 65 61 64 29 3b 0a 20 20 20 20 bytesRead);.
3e30: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 45 backingError = E
3e40: 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a RR_get_error();.
3e50: 0a 20 20 20 20 69 66 20 28 62 79 74 65 73 52 65 . if (bytesRe
3e60: 61 64 20 3c 3d 20 30 29 20 7b 0a 09 2f 2a 20 54 ad <= 0) {../* T
3e70: 68 65 20 72 65 74 72 79 20 66 6c 61 67 20 69 73 he retry flag is
3e80: 20 73 65 74 20 62 79 20 74 68 65 20 42 49 4f 5f set by the BIO_
3e90: 73 65 74 5f 72 65 74 72 79 5f 2a 20 66 75 6e 63 set_retry_* func
3ea0: 74 69 6f 6e 73 20 2a 2f 0a 09 69 66 20 28 42 49 tions */..if (BI
3eb0: 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 O_should_retry(s
3ec0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b tatePtr->bio)) {
3ed0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 .. dprintf("R
3ee0: 65 61 64 20 66 61 69 6c 65 64 20 77 69 74 68 20 ead failed with
3ef0: 63 6f 64 65 3d 25 64 2c 20 62 79 74 65 73 20 72 code=%d, bytes r
3f00: 65 61 64 3d 25 64 3a 20 73 68 6f 75 6c 64 20 72 ead=%d: should r
3f10: 65 74 72 79 22 2c 20 65 72 72 2c 20 62 79 74 65 etry", err, byte
3f20: 73 52 65 61 64 29 3b 0a 09 20 20 20 20 2f 2a 20 sRead);.. /*
3f30: 53 6f 6d 65 20 64 6f 63 73 20 69 6d 70 6c 79 20 Some docs imply
3f40: 77 65 20 73 68 6f 75 6c 64 20 72 65 64 6f 20 74 we should redo t
3f50: 68 65 20 42 49 4f 5f 72 65 61 64 20 6e 6f 77 20 he BIO_read now
3f60: 2a 2f 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 */..} else {..
3f70: 20 20 64 70 72 69 6e 74 66 28 22 52 65 61 64 20 dprintf("Read
3f80: 66 61 69 6c 65 64 20 77 69 74 68 20 63 6f 64 65 failed with code
3f90: 3d 25 64 2c 20 62 79 74 65 73 20 72 65 61 64 3d =%d, bytes read=
3fa0: 25 64 3a 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 %d: error condit
3fb0: 69 6f 6e 22 2c 20 65 72 72 2c 20 62 79 74 65 73 ion", err, bytes
3fc0: 52 65 61 64 29 3b 0a 09 7d 0a 0a 09 64 70 72 69 Read);..}...dpri
3fd0: 6e 74 66 28 22 42 49 4f 20 69 73 20 45 4f 46 20 ntf("BIO is EOF
3fe0: 25 64 22 2c 20 42 49 4f 5f 65 6f 66 28 73 74 61 %d", BIO_eof(sta
3ff0: 74 65 50 74 72 2d 3e 62 69 6f 29 29 3b 0a 0a 09 tePtr->bio));...
4000: 2f 2a 20 54 68 65 73 65 20 61 72 65 20 74 68 65 /* These are the
4010: 20 73 61 6d 65 20 61 73 20 42 49 4f 5f 72 65 74 same as BIO_ret
4020: 72 79 5f 74 79 70 65 20 2a 2f 0a 09 69 66 20 28 ry_type */..if (
4030: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 61 64 28 BIO_should_read(
4040: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 statePtr->bio))
4050: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
4060: 42 49 4f 20 68 61 73 20 69 6e 73 75 66 66 69 63 BIO has insuffic
4070: 69 65 6e 74 20 64 61 74 61 20 74 6f 20 72 65 61 ient data to rea
4080: 64 20 61 6e 64 20 72 65 74 75 72 6e 22 29 3b 0a d and return");.
4090: 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 . statePtr->w
40a0: 61 6e 74 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ant |= TCL_READA
40b0: 42 4c 45 3b 0a 09 7d 0a 09 69 66 20 28 42 49 4f BLE;..}..if (BIO
40c0: 5f 73 68 6f 75 6c 64 5f 77 72 69 74 65 28 73 74 _should_write(st
40d0: 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a atePtr->bio)) {.
40e0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 . dprintf("BI
40f0: 4f 20 68 61 73 20 70 65 6e 64 69 6e 67 20 64 61 O has pending da
4100: 74 61 20 74 6f 20 77 72 69 74 65 22 29 3b 0a 09 ta to write");..
4110: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 statePtr->wa
4120: 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 nt |= TCL_WRITAB
4130: 4c 45 3b 0a 09 7d 0a 09 69 66 20 28 42 49 4f 5f LE;..}..if (BIO_
4140: 73 68 6f 75 6c 64 5f 69 6f 5f 73 70 65 63 69 61 should_io_specia
4150: 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 l(statePtr->bio)
4160: 29 20 7b 0a 09 20 20 20 20 69 6e 74 20 72 65 61 ) {.. int rea
4170: 73 6f 6e 20 3d 20 42 49 4f 5f 67 65 74 5f 72 65 son = BIO_get_re
4180: 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 61 74 65 try_reason(state
4190: 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 Ptr->bio);..
41a0: 64 70 72 69 6e 74 66 28 22 42 49 4f 20 68 61 73 dprintf("BIO has
41b0: 20 73 6f 6d 65 20 73 70 65 63 69 61 6c 20 63 6f some special co
41c0: 6e 64 69 74 69 6f 6e 20 6f 74 68 65 72 20 74 68 ndition other th
41d0: 61 6e 20 72 65 61 64 20 6f 72 20 77 72 69 74 65 an read or write
41e0: 3a 20 63 6f 64 65 3d 25 64 22 2c 20 72 65 61 73 : code=%d", reas
41f0: 6f 6e 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 on);..}. }..
4200: 20 20 20 73 77 69 74 63 68 20 28 65 72 72 29 20 switch (err)
4210: 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f {..case SSL_ERRO
4220: 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 R_NONE:.. /*
4230: 49 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f I/O operation co
4240: 6d 70 6c 65 74 65 64 20 2a 2f 0a 09 20 20 20 20 mpleted */..
4250: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
4260: 4f 52 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 20 20 OR_NONE");..
4270: 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 75 66 dprintBuffer(buf
4280: 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a 09 20 , bytesRead);..
4290: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 break;...case
42a0: 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a SSL_ERROR_SSL:.
42b0: 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 . /* A non-re
42c0: 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c coverable, fatal
42d0: 20 65 72 72 6f 72 20 69 6e 20 74 68 65 20 53 53 error in the SS
42e0: 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 75 72 72 L library occurr
42f0: 65 64 2c 0a 09 20 20 20 20 20 20 20 75 73 75 61 ed,.. usua
4300: 6c 6c 79 20 61 20 70 72 6f 74 6f 63 6f 6c 20 65 lly a protocol e
4310: 72 72 6f 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 rror. */.. dp
4320: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
4330: 5f 53 53 4c 3a 20 46 61 74 61 6c 20 53 53 4c 20 _SSL: Fatal SSL
4340: 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 6f protocol error o
4350: 63 63 75 72 72 65 64 22 29 3b 0a 09 20 20 20 20 ccurred");..
4360: 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 if (backingError
4370: 20 21 3d 20 30 29 20 7b 0a 09 09 54 6c 73 5f 45 != 0) {...Tls_E
4380: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 rror(statePtr, E
4390: 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f RR_reason_error_
43a0: 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 string(backingEr
43b0: 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c ror));.. } el
43c0: 73 65 20 69 66 20 28 53 53 4c 5f 67 65 74 5f 76 se if (SSL_get_v
43d0: 65 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 erify_result(sta
43e0: 74 65 50 74 72 2d 3e 73 73 6c 29 20 21 3d 20 58 tePtr->ssl) != X
43f0: 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 509_V_OK) {...Tl
4400: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
4410: 2c 0a 09 09 20 20 20 20 58 35 30 39 5f 76 65 72 ,... X509_ver
4420: 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 ify_cert_error_s
4430: 74 72 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 tring(SSL_get_ve
4440: 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 rify_result(stat
4450: 65 50 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 ePtr->ssl)));..
4460: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c } else {...Tl
4470: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
4480: 2c 20 22 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 , "Unknown SSL e
4490: 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 rror");.. }..
44a0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
44b0: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
44c0: 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 ;.. bytesRead
44d0: 20 3d 20 2d 31 3b 0a 0a 23 69 66 20 4f 50 45 4e = -1;..#if OPEN
44e0: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 SSL_VERSION_NUMB
44f0: 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 30 ER >= 0x30000000
4500: 4c 0a 09 20 20 20 20 2f 2a 20 55 6e 65 78 70 65 L.. /* Unexpe
4510: 63 74 65 64 20 45 4f 46 20 66 72 6f 6d 20 74 68 cted EOF from th
4520: 65 20 70 65 65 72 20 66 6f 72 20 4f 70 65 6e 53 e peer for OpenS
4530: 53 4c 20 33 2e 30 2b 20 2a 2f 0a 09 20 20 20 20 SL 3.0+ */..
4540: 69 66 20 28 45 52 52 5f 47 45 54 5f 52 45 41 53 if (ERR_GET_REAS
4550: 4f 4e 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 ON(backingError)
4560: 20 3d 3d 20 53 53 4c 5f 52 5f 55 4e 45 58 50 45 == SSL_R_UNEXPE
4570: 43 54 45 44 5f 45 4f 46 5f 57 48 49 4c 45 5f 52 CTED_EOF_WHILE_R
4580: 45 41 44 49 4e 47 29 20 7b 0a 09 09 64 70 72 69 EADING) {...dpri
4590: 6e 74 66 28 22 28 55 6e 65 78 70 65 63 74 65 64 ntf("(Unexpected
45a0: 29 20 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a ) EOF reached").
45b0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
45c0: 3d 20 30 3b 0a 09 09 62 79 74 65 73 52 65 61 64 = 0;...bytesRead
45d0: 20 3d 20 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f = 0;...Tls_Erro
45e0: 72 28 73 74 61 74 65 50 74 72 2c 20 22 45 4f 46 r(statePtr, "EOF
45f0: 20 72 65 61 63 68 65 64 22 29 3b 0a 09 20 20 20 reached");..
4600: 20 7d 0a 23 65 6e 64 69 66 0a 09 20 20 20 20 62 }.#endif.. b
4610: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c reak;...case SSL
4620: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 _ERROR_WANT_READ
4630: 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 65 72 61 74 :.. /* Operat
4640: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 ion did not comp
4650: 6c 65 74 65 20 64 75 65 20 74 6f 20 6e 6f 74 20 lete due to not
4660: 65 6e 6f 75 67 68 20 64 61 74 61 20 77 61 73 20 enough data was
4670: 61 76 61 69 6c 61 62 6c 65 2e 0a 09 20 20 20 20 available...
4680: 20 20 20 52 65 74 72 79 20 61 67 61 69 6e 20 6c Retry again l
4690: 61 74 65 72 2e 20 2a 2f 0a 09 20 20 20 20 64 70 ater. */.. dp
46a0: 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 rintf("Got SSL_E
46b0: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 2c 20 RROR_WANT_READ,
46c0: 6d 61 70 70 69 6e 67 20 74 68 69 73 20 74 6f 20 mapping this to
46d0: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a EAGAIN");.. *
46e0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
46f0: 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 74 65 AGAIN;.. byte
4700: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 sRead = -1;..
4710: 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 statePtr->want
4720: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b |= TCL_READABLE;
4730: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
4740: 74 72 79 5f 72 65 61 64 28 73 74 61 74 65 50 74 try_read(statePt
4750: 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 62 72 r->bio);.. br
4760: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
4770: 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 ERROR_WANT_WRITE
4780: 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 65 72 61 74 :.. /* Operat
4790: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 ion did not comp
47a0: 6c 65 74 65 20 64 75 65 20 74 6f 20 75 6e 61 62 lete due to unab
47b0: 6c 65 20 74 6f 20 73 65 6e 64 20 61 6c 6c 20 64 le to send all d
47c0: 61 74 61 20 74 6f 20 74 68 65 0a 09 20 20 20 20 ata to the..
47d0: 20 20 20 42 49 4f 2e 20 52 65 74 72 79 20 61 67 BIO. Retry ag
47e0: 61 69 6e 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 ain later. */..
47f0: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
4800: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
4810: 52 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 74 68 RITE, mapping th
4820: 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a is to EAGAIN");.
4830: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
4840: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 tr = EAGAIN;..
4850: 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 bytesRead = -1
4860: 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
4870: 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 49 >want |= TCL_WRI
4880: 54 41 42 4c 45 3b 0a 09 20 20 20 20 42 49 4f 5f TABLE;.. BIO_
4890: 73 65 74 5f 72 65 74 72 79 5f 77 72 69 74 65 28 set_retry_write(
48a0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
48b0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 . break;...ca
48c0: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
48d0: 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 T_X509_LOOKUP:..
48e0: 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 /* The opera
48f0: 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d tion did not com
4900: 70 6c 65 74 65 20 62 65 63 61 75 73 65 20 61 6e plete because an
4910: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c application cal
4920: 6c 62 61 63 6b 0a 09 20 20 20 20 20 20 20 73 65 lback.. se
4930: 74 20 62 79 20 53 53 4c 5f 43 54 58 5f 73 65 74 t by SSL_CTX_set
4940: 5f 63 6c 69 65 6e 74 5f 63 65 72 74 5f 63 62 28 _client_cert_cb(
4950: 29 20 68 61 73 20 61 73 6b 65 64 20 74 6f 20 62 ) has asked to b
4960: 65 20 63 61 6c 6c 65 64 20 61 67 61 69 6e 2e 20 e called again.
4970: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
4980: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
4990: 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 2c ANT_X509_LOOKUP,
49a0: 20 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 45 mapping it to E
49b0: 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 AGAIN");.. *e
49c0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
49d0: 47 41 49 4e 3b 0a 09 20 20 20 20 62 79 74 65 73 GAIN;.. bytes
49e0: 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 Read = -1;..
49f0: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
4a00: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a L_ERROR_SYSCALL:
4a10: 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f .. /* Some no
4a20: 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 n-recoverable, f
4a30: 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f atal I/O error o
4a40: 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 20 20 20 ccurred */..
4a50: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
4a60: 4f 52 5f 53 59 53 43 41 4c 4c 3a 20 46 61 74 61 OR_SYSCALL: Fata
4a70: 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 l I/O error occu
4a80: 72 72 65 64 22 29 3b 0a 0a 09 20 20 20 20 69 66 rred");... if
4a90: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d (backingError =
4aa0: 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 = 0 && bytesRead
4ab0: 20 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 55 6e == 0) {.../* Un
4ac0: 65 78 70 65 63 74 65 64 20 45 4f 46 20 66 72 6f expected EOF fro
4ad0: 6d 20 74 68 65 20 70 65 65 72 20 66 6f 72 20 4f m the peer for O
4ae0: 70 65 6e 53 53 4c 20 31 2e 31 20 2a 2f 0a 09 09 penSSL 1.1 */...
4af0: 64 70 72 69 6e 74 66 28 22 28 55 6e 65 78 70 65 dprintf("(Unexpe
4b00: 63 74 65 64 29 20 45 4f 46 20 72 65 61 63 68 65 cted) EOF reache
4b10: 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 d")...*errorCode
4b20: 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 73 Ptr = 0;...bytes
4b30: 52 65 61 64 20 3d 20 30 3b 0a 09 09 54 6c 73 5f Read = 0;...Tls_
4b40: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
4b50: 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 3b 0a "EOF reached");.
4b60: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
4b70: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d (backingError ==
4b80: 20 30 20 26 26 20 62 79 74 65 73 52 65 61 64 20 0 && bytesRead
4b90: 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e == -1) {...dprin
4ba0: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tf("I/O error oc
4bb0: 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 curred (errno =
4bc0: 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 %lu)", (unsigned
4bd0: 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 long) Tcl_GetEr
4be0: 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 rno());...*error
4bf0: 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 CodePtr = Tcl_Ge
4c00: 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79 74 65 tErrno();...byte
4c10: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 54 6c sRead = -1;...Tl
4c20: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
4c30: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 2a , Tcl_ErrnoMsg(*
4c40: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a errorCodePtr));.
4c50: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
4c60: 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 .dprintf("I/O er
4c70: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 62 61 ror occurred (ba
4c80: 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 ckingError = %lu
4c90: 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 )", backingError
4ca0: 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 );...*errorCodeP
4cb0: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
4cc0: 6f 28 29 3b 0a 09 09 62 79 74 65 73 52 65 61 64 o();...bytesRead
4cd0: 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 = -1;...Tls_Err
4ce0: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 or(statePtr, ERR
4cf0: 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 _reason_error_st
4d00: 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f ring(backingErro
4d10: 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 r));.. }..
4d20: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
4d30: 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 SL_ERROR_ZERO_RE
4d40: 54 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 50 65 TURN:.. /* Pe
4d50: 65 72 20 68 61 73 20 63 6c 65 61 6e 6c 79 20 63 er has cleanly c
4d60: 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 losed the connec
4d70: 74 69 6f 6e 20 62 79 20 73 65 6e 64 69 6e 67 20 tion by sending
4d80: 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 the close_notify
4d90: 0a 09 20 20 20 20 20 20 20 61 6c 65 72 74 2e 20 .. alert.
4da0: 43 61 6e 27 74 20 72 65 61 64 2c 20 62 75 74 20 Can't read, but
4db0: 63 61 6e 20 77 72 69 74 65 2e 20 4e 65 65 64 20 can write. Need
4dc0: 74 6f 20 72 65 74 75 72 6e 20 61 6e 20 45 4f 46 to return an EOF
4dd0: 2c 20 73 6f 20 74 68 65 0a 09 20 20 20 20 20 20 , so the..
4de0: 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 channel is clos
4df0: 65 64 20 77 68 69 63 68 20 77 69 6c 6c 20 73 65 ed which will se
4e00: 6e 64 20 61 6e 20 53 53 4c 5f 73 68 75 74 64 6f nd an SSL_shutdo
4e10: 77 6e 28 29 2e 20 2a 2f 0a 09 20 20 20 20 64 70 wn(). */.. dp
4e20: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
4e30: 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 20 50 65 _ZERO_RETURN: Pe
4e40: 65 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 er has closed th
4e50: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 22 29 3b 0a e connection");.
4e60: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
4e70: 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 tr = 0;.. byt
4e80: 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 esRead = 0;..
4e90: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
4ea0: 50 74 72 2c 20 22 50 65 65 72 20 68 61 73 20 63 Ptr, "Peer has c
4eb0: 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 losed the connec
4ec0: 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 tion for writing
4ed0: 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 20 by sending the
4ee0: 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 close_notify ale
4ef0: 72 74 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b rt");.. break
4f00: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
4f10: 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 OR_WANT_ASYNC:..
4f20: 20 20 20 20 2f 2a 20 55 73 65 64 20 77 69 74 68 /* Used with
4f30: 20 66 6c 61 67 20 53 53 4c 5f 4d 4f 44 45 5f 41 flag SSL_MODE_A
4f40: 53 59 4e 43 2c 20 6f 70 65 72 61 74 69 6f 6e 20 SYNC, operation
4f50: 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 74 65 20 didn't complete
4f60: 62 65 63 61 75 73 65 0a 09 20 20 20 20 20 20 20 because..
4f70: 61 6e 20 61 73 79 6e 63 20 65 6e 67 69 6e 65 20 an async engine
4f80: 69 73 20 73 74 69 6c 6c 20 70 72 6f 63 65 73 73 is still process
4f90: 69 6e 67 20 64 61 74 61 2e 20 2a 2f 0a 09 20 20 ing data. */..
4fa0: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
4fb0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 SL_ERROR_WANT_AS
4fc0: 59 4e 43 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 YNC, mapping thi
4fd0: 73 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 s to EAGAIN");..
4fe0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
4ff0: 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 r = EAGAIN;..
5000: 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a bytesRead = 0;.
5010: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 64 65 . break;...de
5020: 66 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 69 fault:.. dpri
5030: 6e 74 66 28 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 ntf("Unknown err
5040: 6f 72 20 28 65 72 72 20 3d 20 25 69 29 2c 20 6d or (err = %i), m
5050: 61 70 70 69 6e 67 20 74 6f 20 45 4f 46 22 2c 20 apping to EOF",
5060: 65 72 72 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f err);.. *erro
5070: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 rCodePtr = 0;..
5080: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 bytesRead = 0
5090: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
50a0: 28 73 74 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e (statePtr, "Unkn
50b0: 6f 77 6e 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 own error");..
50c0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a break;. }..
50d0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 49 6e 70 dprintf("Inp
50e0: 75 74 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 64 ut(%d) -> %d [%d
50f0: 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 74 ]", bufSize, byt
5100: 65 73 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 6f esRead, *errorCo
5110: 64 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 dePtr);. retu
5120: 72 6e 20 62 79 74 65 73 52 65 61 64 3b 0a 7d 0a rn bytesRead;.}.
5130: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
5140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5180: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f 75 74 ---. *. * TlsOut
5190: 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a putProc --. *. *
51a0: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 .This procedure
51b0: 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 is invoked by th
51c0: 65 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c 61 e generic I/O la
51d0: 79 65 72 20 74 6f 20 77 72 69 74 65 20 64 61 74 yer to write dat
51e0: 61 20 74 6f 20 74 68 65 0a 20 2a 09 42 49 4f 20 a to the. *.BIO
51f0: 77 68 65 6e 65 76 65 72 20 74 68 65 20 74 68 65 whenever the the
5200: 20 54 63 6c 5f 57 72 69 74 65 28 29 2c 20 54 63 Tcl_Write(), Tc
5210: 6c 5f 57 72 69 74 65 43 68 61 72 73 2c 20 61 6e l_WriteChars, an
5220: 64 20 54 63 6c 5f 57 72 69 74 65 4f 62 6a 0a 20 d Tcl_WriteObj.
5230: 2a 09 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 *.functions are
5240: 75 73 65 64 2e 20 45 71 75 69 76 61 6c 65 6e 74 used. Equivalent
5250: 20 74 6f 20 53 53 4c 5f 77 72 69 74 65 5f 65 78 to SSL_write_ex
5260: 20 61 6e 64 20 53 53 4c 5f 77 72 69 74 65 2e 0a and SSL_write..
5270: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
5280: 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 *.Returns the nu
5290: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 mber of bytes wr
52a0: 69 74 74 65 6e 20 6f 72 20 2d 31 20 6f 6e 20 65 itten or -1 on e
52b0: 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f 72 rror. Sets error
52c0: 43 6f 64 65 50 74 72 0a 20 2a 09 74 6f 20 61 20 CodePtr. *.to a
52d0: 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 POSIX error code
52e0: 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 if an error occ
52f0: 75 72 72 65 64 2c 20 6f 72 20 30 20 69 66 20 6e urred, or 0 if n
5300: 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 one.. *. * Side
5310: 65 66 66 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 effects:. *.Writ
5320: 65 73 20 6f 75 74 70 75 74 20 6f 6e 20 74 68 65 es output on the
5330: 20 6f 75 74 70 75 74 20 64 65 76 69 63 65 20 6f output device o
5340: 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 f the channel..
5350: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53a0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
53b0: 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 28 0a TlsOutputProc(.
53c0: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 ClientData i
53d0: 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 nstanceData,./*
53e0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 Connection state
53f0: 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 63 6f 6e info */. con
5400: 73 74 20 63 68 61 72 20 2a 62 75 66 2c 09 09 2f st char *buf,../
5410: 2a 20 42 75 66 66 65 72 20 77 69 74 68 20 64 61 * Buffer with da
5420: 74 61 20 74 6f 20 77 72 69 74 65 20 74 6f 20 42 ta to write to B
5430: 49 4f 20 2a 2f 0a 20 20 20 20 69 6e 74 20 74 6f IO */. int to
5440: 57 72 69 74 65 2c 09 09 2f 2a 20 53 69 7a 65 20 Write,../* Size
5450: 6f 66 20 64 61 74 61 20 74 6f 20 77 72 69 74 65 of data to write
5460: 20 69 6e 20 62 79 74 65 73 20 2a 2f 0a 20 20 20 in bytes */.
5470: 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 int *errorCodeP
5480: 74 72 29 09 09 2f 2a 20 53 74 6f 72 61 67 65 20 tr)../* Storage
5490: 66 6f 72 20 65 72 72 6f 72 20 63 6f 64 65 20 74 for error code t
54a0: 6f 20 72 65 74 75 72 6e 20 2a 2f 0a 7b 0a 20 20 o return */.{.
54b0: 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 unsigned long
54c0: 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 20 backingError;.
54d0: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
54e0: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
54f0: 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 stanceData;.
5500: 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 65 72 72 int written, err
5510: 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 ;. *errorCode
5520: 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 Ptr = 0;.. dp
5530: 72 69 6e 74 66 28 22 57 72 69 74 65 28 25 70 2c rintf("Write(%p,
5540: 20 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 %d)", (void *)
5550: 73 74 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 statePtr, toWrit
5560: 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 42 75 e);. dprintBu
5570: 66 66 65 72 28 62 75 66 2c 20 74 6f 57 72 69 74 ffer(buf, toWrit
5580: 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 e);.. /* Abor
5590: 74 20 69 66 20 74 68 65 20 75 73 65 72 20 76 65 t if the user ve
55a0: 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 rify callback is
55b0: 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e 67 20 74 still running t
55c0: 6f 20 61 76 6f 69 64 20 74 72 69 67 67 65 72 69 o avoid triggeri
55d0: 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f 74 68 65 ng. * anothe
55e0: 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 20 74 68 r call before th
55f0: 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 69 73 e current one is
5600: 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f 0a 20 20 complete. */.
5610: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
5620: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
5630: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
5640: 69 6e 74 66 28 22 44 6f 6e 27 74 20 70 72 6f 63 intf("Don't proc
5650: 65 73 73 20 6f 75 74 70 75 74 20 77 68 69 6c 65 ess output while
5660: 20 63 61 6c 6c 62 61 63 6b 73 20 61 72 65 20 72 callbacks are r
5670: 75 6e 6e 69 6e 67 22 29 3b 0a 09 77 72 69 74 74 unning");..writt
5680: 65 6e 20 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f 72 en = -1;..*error
5690: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
56a0: 3b 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 ;..return -1;.
56b0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e }.. /* If n
56c0: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 ot initialized,
56d0: 64 6f 20 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 do connect */.
56e0: 20 20 2f 2a 20 43 61 6e 20 61 6c 73 6f 20 63 68 /* Can also ch
56f0: 65 63 6b 20 53 53 4c 5f 69 73 5f 69 6e 69 74 5f eck SSL_is_init_
5700: 66 69 6e 69 73 68 65 64 28 73 73 6c 29 20 2a 2f finished(ssl) */
5710: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
5720: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
5730: 43 4c 5f 49 4e 49 54 29 20 7b 0a 09 69 6e 74 20 CL_INIT) {..int
5740: 74 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 70 tlsConnect;...dp
5750: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 rintf("Calling T
5760: 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 ls_WaitForConnec
5770: 74 22 29 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 63 t");...tlsConnec
5780: 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 t = Tls_WaitForC
5790: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c onnect(statePtr,
57a0: 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 31 errorCodePtr, 1
57b0: 29 3b 0a 09 69 66 20 28 74 6c 73 43 6f 6e 6e 65 );..if (tlsConne
57c0: 63 74 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 64 ct < 0) {.. d
57d0: 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 printf("Got an e
57e0: 72 72 6f 72 20 77 61 69 74 69 6e 67 20 74 6f 20 rror waiting to
57f0: 63 6f 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e connect (tlsConn
5800: 65 63 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 ect = %i, *error
5810: 43 6f 64 65 50 74 72 20 3d 20 25 69 29 22 2c 0a CodePtr = %i)",.
5820: 09 09 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 ..tlsConnect, *e
5830: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 0a 09 rrorCodePtr);...
5840: 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 written = -1
5850: 3b 0a 09 20 20 20 20 69 66 20 28 2a 65 72 72 6f ;.. if (*erro
5860: 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e rCodePtr == ECON
5870: 4e 52 45 53 45 54 29 20 7b 0a 09 09 64 70 72 69 NRESET) {...dpri
5880: 6e 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 63 74 ntf("Got connect
5890: 69 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 09 2f ion reset");.../
58a0: 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 09 * Soft EOF */...
58b0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
58c0: 30 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 0;...written = 0
58d0: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 72 65 ;.. }.. re
58e0: 74 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a 09 7d turn written;..}
58f0: 20 65 6c 73 65 20 69 66 20 28 74 6c 73 43 6f 6e else if (tlsCon
5900: 6e 65 63 74 20 3d 3d 20 30 29 20 7b 0a 09 20 20 nect == 0) {..
5910: 20 20 2f 2a 20 54 72 79 20 61 67 61 69 6e 20 2a /* Try again *
5920: 2f 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d /.. written =
5930: 20 2d 31 3b 0a 09 20 20 20 20 72 65 74 75 72 6e -1;.. return
5940: 20 77 72 69 74 74 65 6e 3b 0a 09 7d 0a 20 20 20 written;..}.
5950: 20 7d 0a 0a 20 20 20 20 69 66 20 28 74 6f 57 72 }.. if (toWr
5960: 69 74 65 20 3d 3d 20 30 29 20 7b 0a 09 64 70 72 ite == 0) {..dpr
5970: 69 6e 74 66 28 22 7a 65 72 6f 2d 77 72 69 74 65 intf("zero-write
5980: 22 29 3b 0a 09 65 72 72 20 3d 20 42 49 4f 5f 66 ");..err = BIO_f
5990: 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 lush(statePtr->b
59a0: 69 6f 29 3b 0a 0a 09 69 66 20 28 65 72 72 20 3c io);...if (err <
59b0: 3d 20 30 29 20 7b 0a 09 20 20 20 20 64 70 72 69 = 0) {.. dpri
59c0: 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 20 66 61 ntf("Flushing fa
59d0: 69 6c 65 64 22 29 3b 0a 09 20 20 20 20 54 6c 73 iled");.. Tls
59e0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
59f0: 20 22 46 6c 75 73 68 20 66 61 69 6c 65 64 22 29 "Flush failed")
5a00: 3b 0a 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f ;... *errorCo
5a10: 64 65 50 74 72 20 3d 20 45 49 4f 3b 0a 09 20 20 dePtr = EIO;..
5a20: 20 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 written = 0;..
5a30: 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 09 return -1;..
5a40: 7d 0a 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 }...*errorCodePt
5a50: 72 20 3d 20 30 3b 0a 09 77 72 69 74 74 65 6e 20 r = 0;..written
5a60: 3d 20 30 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a = 0;..return 0;.
5a70: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 }.. /*.
5a80: 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 * We need to
5a90: 63 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 clear the SSL er
5aa0: 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 ror stack now be
5ab0: 63 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d cause we sometim
5ac0: 65 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a 20 es reach. *
5ad0: 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 this function wi
5ae0: 74 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f th leftover erro
5af0: 72 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e rs in the stack.
5b00: 20 20 49 66 20 42 49 4f 5f 77 72 69 74 65 0a 20 If BIO_write.
5b10: 20 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 * returns -1
5b20: 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 47 and intends EAG
5b30: 41 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 20 AIN, there is a
5b40: 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 leftover error,
5b50: 69 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 it will be.
5b60: 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 * misconstrued a
5b70: 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 s an error, not
5b80: 45 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 EAGAIN.. *.
5b90: 20 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 * Alternativ
5ba0: 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 ely, we may want
5bb0: 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c to handle the <
5bc0: 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 0 return codes f
5bd0: 72 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f 77 rom. * BIO_w
5be0: 72 69 74 65 20 73 70 65 63 69 61 6c 6c 79 20 28 rite specially (
5bf0: 61 73 20 61 64 76 69 73 65 64 20 69 6e 20 74 68 as advised in th
5c00: 65 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54 4c e RSA docs). TL
5c10: 53 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c 0a S's lower level.
5c20: 20 20 20 20 20 2a 20 42 49 4f 20 66 75 6e 63 74 * BIO funct
5c30: 69 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 20 74 ions play with t
5c40: 68 65 20 72 65 74 72 79 20 66 6c 61 67 73 20 74 he retry flags t
5c50: 68 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 73 20 hough, and this
5c60: 73 65 65 6d 73 20 74 6f 0a 20 20 20 20 20 2a 20 seems to. *
5c70: 77 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 2e 20 work correctly.
5c80: 20 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 Similar fix in
5c90: 54 6c 73 49 6e 70 75 74 50 72 6f 63 2e 20 2d 20 TlsInputProc. -
5ca0: 68 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20 20 hobbs. */.
5cb0: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
5cc0: 72 28 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 r();. BIO_cle
5cd0: 61 72 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 73 ar_retry_flags(s
5ce0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 20 tatePtr->bio);.
5cf0: 20 20 20 77 72 69 74 74 65 6e 20 3d 20 42 49 4f written = BIO
5d00: 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d _write(statePtr-
5d10: 3e 62 69 6f 2c 20 62 75 66 2c 20 74 6f 57 72 69 >bio, buf, toWri
5d20: 74 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 te);. dprintf
5d30: 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c 20 ("BIO_write(%p,
5d40: 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 20 28 76 %d) -> [%d]", (v
5d50: 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 2c oid *) statePtr,
5d60: 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 65 toWrite, writte
5d70: 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 61 6d 65 n);.. /* Same
5d80: 20 61 73 20 53 53 4c 5f 77 61 6e 74 2c 20 62 75 as SSL_want, bu
5d90: 74 20 61 6c 73 6f 20 63 68 65 63 6b 73 20 74 68 t also checks th
5da0: 65 20 65 72 72 6f 72 20 71 75 65 75 65 20 2a 2f e error queue */
5db0: 0a 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 67 . err = SSL_g
5dc0: 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 et_error(statePt
5dd0: 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 65 6e 29 r->ssl, written)
5de0: 3b 0a 20 20 20 20 62 61 63 6b 69 6e 67 45 72 72 ;. backingErr
5df0: 6f 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 or = ERR_get_err
5e00: 6f 72 28 29 3b 0a 0a 20 20 20 20 69 66 20 28 77 or();.. if (w
5e10: 72 69 74 74 65 6e 20 3c 3d 20 30 29 20 7b 0a 09 ritten <= 0) {..
5e20: 2f 2a 20 54 68 65 20 72 65 74 72 79 20 66 6c 61 /* The retry fla
5e30: 67 20 69 73 20 73 65 74 20 62 79 20 74 68 65 20 g is set by the
5e40: 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 2a 20 BIO_set_retry_*
5e50: 66 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 09 69 66 functions */..if
5e60: 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 (BIO_should_ret
5e70: 72 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ry(statePtr->bio
5e80: 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 )) {.. dprint
5e90: 66 28 22 57 72 69 74 65 20 66 61 69 6c 65 64 20 f("Write failed
5ea0: 77 69 74 68 20 63 6f 64 65 20 25 64 2c 20 62 79 with code %d, by
5eb0: 74 65 73 20 77 72 69 74 74 65 6e 3d 25 64 3a 20 tes written=%d:
5ec0: 73 68 6f 75 6c 64 20 72 65 74 72 79 22 2c 0a 09 should retry",..
5ed0: 09 65 72 72 2c 20 77 72 69 74 74 65 6e 29 3b 0a .err, written);.
5ee0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 .} else {.. d
5ef0: 70 72 69 6e 74 66 28 22 57 72 69 74 65 20 66 61 printf("Write fa
5f00: 69 6c 65 64 20 77 69 74 68 20 63 6f 64 65 20 25 iled with code %
5f10: 64 2c 20 62 79 74 65 73 20 77 72 69 74 74 65 6e d, bytes written
5f20: 3d 25 64 3a 20 65 72 72 6f 72 20 63 6f 6e 64 69 =%d: error condi
5f30: 74 69 6f 6e 22 2c 0a 09 09 65 72 72 2c 20 77 72 tion",...err, wr
5f40: 69 74 74 65 6e 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 itten);..}.../*
5f50: 54 68 65 73 65 20 61 72 65 20 74 68 65 20 73 61 These are the sa
5f60: 6d 65 20 61 73 20 42 49 4f 5f 72 65 74 72 79 5f me as BIO_retry_
5f70: 74 79 70 65 20 2a 2f 0a 09 69 66 20 28 42 49 4f type */..if (BIO
5f80: 5f 73 68 6f 75 6c 64 5f 72 65 61 64 28 73 74 61 _should_read(sta
5f90: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
5fa0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
5fb0: 20 68 61 73 20 69 6e 73 75 66 66 69 63 69 65 6e has insufficien
5fc0: 74 20 64 61 74 61 20 74 6f 20 72 65 61 64 20 61 t data to read a
5fd0: 6e 64 20 72 65 74 75 72 6e 22 29 3b 0a 09 7d 0a nd return");..}.
5fe0: 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f .if (BIO_should_
5ff0: 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d 3e write(statePtr->
6000: 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 bio)) {.. dpr
6010: 69 6e 74 66 28 22 42 49 4f 20 68 61 73 20 70 65 intf("BIO has pe
6020: 6e 64 69 6e 67 20 64 61 74 61 20 74 6f 20 77 72 nding data to wr
6030: 69 74 65 22 29 3b 0a 09 7d 0a 09 69 66 20 28 42 ite");..}..if (B
6040: 49 4f 5f 73 68 6f 75 6c 64 5f 69 6f 5f 73 70 65 IO_should_io_spe
6050: 63 69 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 cial(statePtr->b
6060: 69 6f 29 29 20 7b 0a 09 20 20 20 20 69 6e 74 20 io)) {.. int
6070: 72 65 61 73 6f 6e 20 3d 20 42 49 4f 5f 67 65 74 reason = BIO_get
6080: 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 _retry_reason(st
6090: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 atePtr->bio);..
60a0: 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 20 dprintf("BIO
60b0: 68 61 73 20 73 6f 6d 65 20 73 70 65 63 69 61 6c has some special
60c0: 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 74 68 65 72 condition other
60d0: 20 74 68 61 6e 20 72 65 61 64 20 6f 72 20 77 72 than read or wr
60e0: 69 74 65 3a 20 63 6f 64 65 3d 25 64 22 2c 20 72 ite: code=%d", r
60f0: 65 61 73 6f 6e 29 3b 0a 09 7d 0a 0a 20 20 20 20 eason);..}..
6100: 7d 20 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 66 6c } else {..BIO_fl
6110: 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ush(statePtr->bi
6120: 6f 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 o);. }.. s
6130: 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a 09 63 witch (err) {..c
6140: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f ase SSL_ERROR_NO
6150: 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 49 2f 4f 20 NE:.. /* I/O
6160: 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 operation comple
6170: 74 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 ted */.. dpri
6180: 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 4e ntf("SSL_ERROR_N
6190: 4f 4e 45 22 29 3b 0a 09 20 20 20 20 69 66 20 28 ONE");.. if (
61a0: 77 72 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a 09 written < 0) {..
61b0: 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 .written = 0;..
61c0: 20 20 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b }.. break;
61d0: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
61e0: 52 5f 53 53 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 R_SSL:.. /* A
61f0: 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 non-recoverable
6200: 2c 20 66 61 74 61 6c 20 65 72 72 6f 72 20 69 6e , fatal error in
6210: 20 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 the SSL library
6220: 20 6f 63 63 75 72 72 65 64 2c 0a 09 20 20 20 20 occurred,..
6230: 20 20 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f usually a pro
6240: 74 6f 63 6f 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 tocol error */..
6250: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
6260: 5f 45 52 52 4f 52 5f 53 53 4c 3a 20 46 61 74 61 _ERROR_SSL: Fata
6270: 6c 20 53 53 4c 20 70 72 6f 74 6f 63 6f 6c 20 65 l SSL protocol e
6280: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 22 29 3b rror occurred");
6290: 0a 09 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e .. if (backin
62a0: 67 45 72 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 gError != 0) {..
62b0: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
62c0: 50 74 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f Ptr, ERR_reason_
62d0: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 error_string(bac
62e0: 6b 69 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 kingError));..
62f0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 53 53 4c } else if (SSL
6300: 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 _get_verify_resu
6310: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c lt(statePtr->ssl
6320: 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 ) != X509_V_OK)
6330: 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 {...Tls_Error(st
6340: 61 74 65 50 74 72 2c 0a 09 09 20 20 20 20 58 35 atePtr,... X5
6350: 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 09_verify_cert_e
6360: 72 72 6f 72 5f 73 74 72 69 6e 67 28 53 53 4c 5f rror_string(SSL_
6370: 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c get_verify_resul
6380: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
6390: 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 ));.. } else
63a0: 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 {...Tls_Error(st
63b0: 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e atePtr, "Unknown
63c0: 20 53 53 4c 20 65 72 72 6f 72 22 29 3b 0a 09 20 SSL error");..
63d0: 20 20 20 7d 0a 09 20 20 20 20 2a 65 72 72 6f 72 }.. *error
63e0: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 CodePtr = ECONNA
63f0: 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 77 72 69 BORTED;.. wri
6400: 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 tten = -1;..
6410: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
6420: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 L_ERROR_WANT_REA
6430: 44 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 65 72 61 D:.. /* Opera
6440: 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d tion did not com
6450: 70 6c 65 74 65 20 64 75 65 20 74 6f 20 6e 6f 74 plete due to not
6460: 20 65 6e 6f 75 67 68 20 64 61 74 61 20 77 61 73 enough data was
6470: 20 61 76 61 69 6c 61 62 6c 65 2e 0a 09 20 20 20 available...
6480: 20 20 20 20 52 65 74 72 79 20 61 67 61 69 6e 20 Retry again
6490: 6c 61 74 65 72 20 77 69 74 68 20 73 61 6d 65 20 later with same
64a0: 64 61 74 61 2e 20 2a 2f 0a 09 20 20 20 20 64 70 data. */.. dp
64b0: 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 rintf("Got SSL_E
64c0: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 2c 20 RROR_WANT_READ,
64d0: 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 45 41 mapping it to EA
64e0: 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 GAIN");.. *er
64f0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
6500: 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 74 65 AIN;.. writte
6510: 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 73 74 61 n = -1;.. sta
6520: 74 65 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 tePtr->want |= T
6530: 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 09 20 20 CL_READABLE;..
6540: 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f BIO_set_retry_
6550: 72 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 read(statePtr->b
6560: 69 6f 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b io);.. break;
6570: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
6580: 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 R_WANT_WRITE:..
6590: 20 20 20 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 /* Operation
65a0: 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 did not complete
65b0: 20 64 75 65 20 74 6f 20 75 6e 61 62 6c 65 20 74 due to unable t
65c0: 6f 20 73 65 6e 64 20 61 6c 6c 20 64 61 74 61 20 o send all data
65d0: 74 6f 20 74 68 65 0a 09 20 20 20 20 20 20 20 42 to the.. B
65e0: 49 4f 2e 20 52 65 74 72 79 20 6c 61 74 65 72 20 IO. Retry later
65f0: 77 69 74 68 20 73 61 6d 65 20 64 61 74 61 2e 20 with same data.
6600: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
6610: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
6620: 41 4e 54 5f 57 52 49 54 45 2c 20 6d 61 70 70 69 ANT_WRITE, mappi
6630: 6e 67 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 ng it to EAGAIN"
6640: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
6650: 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a dePtr = EAGAIN;.
6660: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
6670: 31 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 1;.. statePtr
6680: 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 ->want |= TCL_WR
6690: 49 54 41 42 4c 45 3b 0a 09 20 20 20 20 42 49 4f ITABLE;.. BIO
66a0: 5f 73 65 74 5f 72 65 74 72 79 5f 77 72 69 74 65 _set_retry_write
66b0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
66c0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
66d0: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 ase SSL_ERROR_WA
66e0: 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a NT_X509_LOOKUP:.
66f0: 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 72 . /* The oper
6700: 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f ation did not co
6710: 6d 70 6c 65 74 65 20 62 65 63 61 75 73 65 20 61 mplete because a
6720: 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 61 n application ca
6730: 6c 6c 62 61 63 6b 0a 09 20 20 20 20 20 20 20 73 llback.. s
6740: 65 74 20 62 79 20 53 53 4c 5f 43 54 58 5f 73 65 et by SSL_CTX_se
6750: 74 5f 63 6c 69 65 6e 74 5f 63 65 72 74 5f 63 62 t_client_cert_cb
6760: 28 29 20 68 61 73 20 61 73 6b 65 64 20 74 6f 20 () has asked to
6770: 62 65 20 63 61 6c 6c 65 64 20 61 67 61 69 6e 2e be called again.
6780: 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 */.. dprintf
6790: 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f ("Got SSL_ERROR_
67a0: 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 WANT_X509_LOOKUP
67b0: 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 , mapping it to
67c0: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a EAGAIN");.. *
67d0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
67e0: 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 AGAIN;.. writ
67f0: 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 62 ten = -1;.. b
6800: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c reak;...case SSL
6810: 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a _ERROR_SYSCALL:.
6820: 09 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f 6e . /* Some non
6830: 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 -recoverable, fa
6840: 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tal I/O error oc
6850: 63 75 72 72 65 64 20 2a 2f 0a 09 20 20 20 20 64 curred */.. d
6860: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
6870: 52 5f 53 59 53 43 41 4c 4c 3a 20 46 61 74 61 6c R_SYSCALL: Fatal
6880: 20 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 I/O error occur
6890: 72 65 64 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 red");... if
68a0: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d (backingError ==
68b0: 20 30 20 26 26 20 77 72 69 74 74 65 6e 20 3d 3d 0 && written ==
68c0: 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 0) {...dprintf(
68d0: 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 "EOF reached")..
68e0: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
68f0: 20 30 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 0;...written =
6900: 30 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 0;...Tls_Error(s
6910: 74 61 74 65 50 74 72 2c 20 22 45 4f 46 20 72 65 tatePtr, "EOF re
6920: 61 63 68 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d ached");... }
6930: 20 65 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e else if (backin
6940: 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 gError == 0 && w
6950: 72 69 74 74 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a ritten == -1) {.
6960: 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 ..dprintf("I/O e
6970: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 rror occurred (e
6980: 72 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 rrno = %lu)", (u
6990: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 nsigned long) Tc
69a0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 l_GetErrno());..
69b0: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
69c0: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b Tcl_GetErrno();
69d0: 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b ...written = -1;
69e0: 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 ...Tls_Error(sta
69f0: 74 65 50 74 72 2c 20 54 63 6c 5f 45 72 72 6e 6f tePtr, Tcl_Errno
6a00: 4d 73 67 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 Msg(*errorCodePt
6a10: 72 29 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 r));... } els
6a20: 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 49 e {...dprintf("I
6a30: 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 /O error occurre
6a40: 64 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 d (backingError
6a50: 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 = %lu)", backing
6a60: 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 72 6f 72 Error);...*error
6a70: 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 CodePtr = Tcl_Ge
6a80: 74 45 72 72 6e 6f 28 29 3b 0a 09 09 77 72 69 74 tErrno();...writ
6a90: 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f ten = -1;...Tls_
6aa0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
6ab0: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
6ac0: 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 _string(backingE
6ad0: 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 rror));.. }..
6ae0: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
6af0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f e SSL_ERROR_ZERO
6b00: 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 2f 2a _RETURN:.. /*
6b10: 20 50 65 65 72 20 68 61 73 20 63 6c 65 61 6e 6c Peer has cleanl
6b20: 79 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e y closed the con
6b30: 6e 65 63 74 69 6f 6e 20 62 79 20 73 65 6e 64 69 nection by sendi
6b40: 6e 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 ng the close_not
6b50: 69 66 79 0a 09 20 20 20 20 20 20 20 61 6c 65 72 ify.. aler
6b60: 74 2e 20 43 61 6e 27 74 20 72 65 61 64 2c 20 62 t. Can't read, b
6b70: 75 74 20 63 61 6e 20 77 72 69 74 65 2e 20 4e 65 ut can write. Ne
6b80: 65 64 20 74 6f 20 72 65 74 75 72 6e 20 61 6e 20 ed to return an
6b90: 45 4f 46 2c 20 73 6f 20 74 68 65 0a 09 20 20 20 EOF, so the..
6ba0: 20 20 20 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 channel is c
6bb0: 6c 6f 73 65 64 20 77 68 69 63 68 20 77 69 6c 6c losed which will
6bc0: 20 73 65 6e 64 20 61 6e 20 53 53 4c 5f 73 68 75 send an SSL_shu
6bd0: 74 64 6f 77 6e 28 29 2e 20 2a 2f 0a 09 20 20 20 tdown(). */..
6be0: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 dprintf("SSL_ER
6bf0: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a ROR_ZERO_RETURN:
6c00: 20 50 65 65 72 20 68 61 73 20 63 6c 6f 73 65 64 Peer has closed
6c10: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 22 the connection"
6c20: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
6c30: 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 dePtr = 0;..
6c40: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 written = 0;..
6c50: 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 Tls_Error(stat
6c60: 65 50 74 72 2c 20 22 50 65 65 72 20 68 61 73 20 ePtr, "Peer has
6c70: 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 closed the conne
6c80: 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 74 69 6e ction for writin
6c90: 67 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 65 g by sending the
6ca0: 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 6c close_notify al
6cb0: 65 72 74 22 29 3b 0a 09 20 20 20 20 62 72 65 61 ert");.. brea
6cc0: 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 k;...case SSL_ER
6cd0: 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 3a 0a ROR_WANT_ASYNC:.
6ce0: 09 20 20 20 20 2f 2a 20 55 73 65 64 20 77 69 74 . /* Used wit
6cf0: 68 20 66 6c 61 67 20 53 53 4c 5f 4d 4f 44 45 5f h flag SSL_MODE_
6d00: 41 53 59 4e 43 2c 20 6f 70 65 72 61 74 69 6f 6e ASYNC, operation
6d10: 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c 65 74 65 didn't complete
6d20: 20 62 65 63 61 75 73 65 0a 09 20 20 20 20 20 20 because..
6d30: 20 61 6e 20 61 73 79 6e 63 20 65 6e 67 69 6e 65 an async engine
6d40: 20 69 73 20 73 74 69 6c 6c 20 70 72 6f 63 65 73 is still proces
6d50: 73 69 6e 67 20 64 61 74 61 2e 20 2a 2f 0a 09 20 sing data. */..
6d60: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
6d70: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 SSL_ERROR_WANT_A
6d80: 53 59 4e 43 2c 20 6d 61 70 70 69 6e 67 20 74 68 SYNC, mapping th
6d90: 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a is to EAGAIN");.
6da0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
6db0: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 tr = EAGAIN;..
6dc0: 20 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 written = 0;..
6dd0: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 64 65 66 break;...def
6de0: 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 69 6e ault:.. dprin
6df0: 74 66 28 22 75 6e 6b 6e 6f 77 6e 20 65 72 72 6f tf("unknown erro
6e00: 72 3a 20 25 64 22 2c 20 65 72 72 29 3b 0a 09 20 r: %d", err);..
6e10: 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 Tls_Error(sta
6e20: 74 65 50 74 72 2c 20 22 55 6e 6b 6e 6f 77 6e 20 tePtr, "Unknown
6e30: 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 62 72 error");.. br
6e40: 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 eak;. }..
6e50: 64 70 72 69 6e 74 66 28 22 4f 75 74 70 75 74 28 dprintf("Output(
6e60: 25 64 29 20 2d 3e 20 25 64 22 2c 20 74 6f 57 72 %d) -> %d", toWr
6e70: 69 74 65 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 ite, written);.
6e80: 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 74 65 return writte
6e90: 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d n;.}../*. *-----
6ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ee0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
6ef0: 6c 73 5f 47 65 74 50 61 72 65 6e 74 20 2d 2d 0a ls_GetParent --.
6f00: 20 2a 0a 20 2a 09 47 65 74 20 70 61 72 65 6e 74 *. *.Get parent
6f10: 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 20 73 channel for a s
6f20: 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2e 0a tacked channel..
6f30: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
6f40: 2a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 6f 72 *.Tcl_Channel or
6f50: 20 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 NULL if none..
6f60: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
6f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fb0: 2d 0a 20 2a 2f 0a 54 63 6c 5f 43 68 61 6e 6e 65 -. */.Tcl_Channe
6fc0: 6c 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 l Tls_GetParent(
6fd0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
6fe0: 65 50 74 72 2c 09 09 2f 2a 20 43 6f 6e 6e 65 63 ePtr,../* Connec
6ff0: 74 69 6f 6e 20 73 74 61 74 65 20 69 6e 66 6f 20 tion state info
7000: 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 46 */. int maskF
7010: 6c 61 67 73 29 09 09 2f 2a 20 57 68 69 63 68 20 lags)../* Which
7020: 66 6c 61 67 73 20 74 6f 20 70 72 6f 63 65 73 73 flags to process
7030: 20 2a 2f 0a 7b 0a 20 20 20 20 64 70 72 69 6e 74 */.{. dprint
7040: 66 28 22 52 65 71 75 65 73 74 65 64 20 74 6f 20 f("Requested to
7050: 67 65 74 20 70 61 72 65 6e 74 20 6f 66 20 63 68 get parent of ch
7060: 61 6e 6e 65 6c 20 25 70 22 2c 20 73 74 61 74 65 annel %p", state
7070: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 20 20 20 Ptr->self);..
7080: 20 69 66 20 28 28 73 74 61 74 65 50 74 72 2d 3e if ((statePtr->
7090: 66 6c 61 67 73 20 26 20 7e 6d 61 73 6b 46 6c 61 flags & ~maskFla
70a0: 67 73 29 20 26 20 54 4c 53 5f 54 43 4c 5f 46 41 gs) & TLS_TCL_FA
70b0: 53 54 50 41 54 48 29 20 7b 0a 09 64 70 72 69 6e STPATH) {..dprin
70c0: 74 66 28 22 41 73 6b 65 64 20 74 6f 20 67 65 74 tf("Asked to get
70d0: 20 74 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e the parent chan
70e0: 6e 65 6c 20 77 68 69 6c 65 20 77 65 20 61 72 65 nel while we are
70f0: 20 75 73 69 6e 67 20 46 61 73 74 50 61 74 68 20 using FastPath
7100: 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 4e 55 4c -- returning NUL
7110: 4c 22 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c L");..return NUL
7120: 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 L;. }. ret
7130: 75 72 6e 20 54 63 6c 5f 47 65 74 53 74 61 63 6b urn Tcl_GetStack
7140: 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 edChannel(stateP
7150: 74 72 2d 3e 73 65 6c 66 29 3b 0a 7d 0a 0a 2f 2a tr->self);.}../*
7160: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
7170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
71a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
71b0: 0a 20 2a 0a 20 2a 20 54 6c 73 53 65 74 4f 70 74 . *. * TlsSetOpt
71c0: 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a ionProc --. *. *
71d0: 09 53 65 74 73 20 61 6e 20 6f 70 74 69 6f 6e 20 .Sets an option
71e0: 74 6f 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 to value for a S
71f0: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
7200: 63 68 61 6e 6e 65 6c 2e 20 43 61 6c 6c 65 64 20 channel. Called
7210: 62 79 20 74 68 65 0a 20 2a 09 67 65 6e 65 72 69 by the. *.generi
7220: 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 6e c I/O layer when
7230: 65 76 65 72 20 74 68 65 20 54 63 6c 5f 53 65 74 ever the Tcl_Set
7240: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 29 20 ChannelOption()
7250: 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
7260: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
7270: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 . *.TCL_OK if su
7280: 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f ccessful or TCL_
7290: 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 2e ERROR if failed.
72a0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
72b0: 63 74 73 3a 0a 20 2a 09 55 70 64 61 74 65 73 20 cts:. *.Updates
72c0: 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 channel option t
72d0: 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 2a 0a o new value.. *.
72e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
72f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
7330: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 */.static int.T
7340: 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 lsSetOptionProc(
7350: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
7360: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a instanceData,./*
7370: 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a Socket state. *
7380: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
7390: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
73a0: 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 r errors - can b
73b0: 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 e NULL. */. c
73c0: 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f onst char *optio
73d0: 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f nName,./* Name o
73e0: 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 f the option to
73f0: 73 65 74 20 74 68 65 20 76 61 6c 75 65 20 66 6f set the value fo
7400: 72 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e 55 4c r, or..... * NUL
7410: 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 74 L to get all opt
7420: 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 ions and their v
7430: 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 63 6f alues. */. co
7440: 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e nst char *option
7450: 56 61 6c 75 65 29 09 2f 2a 20 56 61 6c 75 65 20 Value)./* Value
7460: 66 6f 72 20 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 7b for option. */.{
7470: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
7480: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
7490: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 instanceData;.
74a0: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 Tcl_Channel p
74b0: 61 72 65 6e 74 20 3d 20 54 6c 73 5f 47 65 74 50 arent = Tls_GetP
74c0: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 arent(statePtr,
74d0: 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 TLS_TCL_FASTPATH
74e0: 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 );. Tcl_Drive
74f0: 72 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a rSetOptionProc *
7500: 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a setOptionProc;..
7510: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
7520: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 led");.. /* P
7530: 61 73 73 20 74 6f 20 70 61 72 65 6e 74 20 2a 2f ass to parent */
7540: 0a 20 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 . setOptionPr
7550: 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c oc = Tcl_Channel
7560: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 SetOptionProc(Tc
7570: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
7580: 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 (parent));. i
7590: 66 20 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 f (setOptionProc
75a0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 != NULL) {..ret
75b0: 75 72 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e 50 urn (*setOptionP
75c0: 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e roc)(Tcl_GetChan
75d0: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
75e0: 70 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c parent), interp,
75f0: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 optionName, opt
7600: 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d ionValue);. }
7610: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 . /*. * R
7620: 65 71 75 65 73 74 20 66 6f 72 20 61 20 73 70 65 equest for a spe
7630: 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 cific option has
7640: 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e to fail, we don
7650: 27 74 20 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 't have any..
7660: 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 */. return
7670: 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 Tcl_BadChannelOp
7680: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 tion(interp, opt
7690: 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 3b 0a 7d 0a ionName, "");.}.
76a0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
76b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
76f0: 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 TlsGetOptionProc
7700: 20 2d 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 61 20 --. *. *.Get a
7710: 6f 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 20 66 option's value f
7720: 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 or a SSL socket
7730: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f based channel, o
7740: 72 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 0a r a list of all.
7750: 20 2a 09 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 *.options and t
7760: 68 65 69 72 20 76 61 6c 75 65 73 2e 20 43 61 6c heir values. Cal
7770: 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 led by the gener
7780: 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 ic I/O layer whe
7790: 6e 65 76 65 72 20 74 68 65 0a 20 2a 09 54 63 6c never the. *.Tcl
77a0: 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f _GetChannelOptio
77b0: 6e 28 29 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 n() function is
77c0: 75 73 65 64 2e 0a 20 2a 0a 20 2a 0a 20 2a 20 52 used.. *. *. * R
77d0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
77e0: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
77f0: 2e 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 . The value of t
7800: 68 65 20 73 70 65 63 69 66 69 65 64 20 6f 70 74 he specified opt
7810: 69 6f 6e 20 6f 72 20 61 20 6c 69 73 74 20 6f 66 ion or a list of
7820: 0a 20 2a 09 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 . *.all options
7830: 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 and their values
7840: 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20 is returned in
7850: 74 68 65 20 73 75 70 70 6c 69 65 64 20 44 53 74 the supplied DSt
7860: 72 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 ring.. *. * Side
7870: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
7880: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
7890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
78d0: 73 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 47 65 static int.TlsGe
78e0: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 0a 20 20 20 tOptionProc(.
78f0: 20 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 ClientData inst
7900: 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 anceData,./* Soc
7910: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 ket state. */.
7920: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
7930: 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 terp,../* For er
7940: 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 rors - can be NU
7950: 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 LL. */. const
7960: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d char *optionNam
7970: 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 e,./* Name of th
7980: 65 20 6f 70 74 69 6f 6e 20 74 6f 20 72 65 74 72 e option to retr
7990: 69 65 76 65 20 74 68 65 20 76 61 6c 75 65 20 66 ieve the value f
79a0: 6f 72 2c 0a 09 09 09 09 20 2a 20 6f 72 20 4e 55 or,..... * or NU
79b0: 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 LL to get all op
79c0: 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 tions and their
79d0: 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20 54 values. */. T
79e0: 63 6c 5f 44 53 74 72 69 6e 67 20 2a 6f 70 74 69 cl_DString *opti
79f0: 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 57 68 65 72 onValue)./* Wher
7a00: 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 63 e to store the c
7a10: 6f 6d 70 75 74 65 64 20 76 61 6c 75 65 20 69 6e omputed value in
7a20: 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63 61 6c itialized by cal
7a30: 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 ler. */.{. St
7a40: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
7a50: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
7a60: 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ceData;. Tcl_
7a70: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d Channel parent =
7a80: 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 Tls_GetParent(s
7a90: 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c tatePtr, TLS_TCL
7aa0: 5f 46 41 53 54 50 41 54 48 29 3b 0a 20 20 20 20 _FASTPATH);.
7ab0: 54 63 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 Tcl_DriverGetOpt
7ac0: 69 6f 6e 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 ionProc *getOpti
7ad0: 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 64 70 72 onProc;.. dpr
7ae0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
7af0: 0a 20 20 20 20 2f 2a 20 50 61 73 73 20 74 6f 20 . /* Pass to
7b00: 70 61 72 65 6e 74 20 2a 2f 0a 20 20 20 20 67 65 parent */. ge
7b10: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 tOptionProc = Tc
7b20: 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69 l_ChannelGetOpti
7b30: 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 onProc(Tcl_GetCh
7b40: 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 annelType(parent
7b50: 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 74 4f ));. if (getO
7b60: 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c ptionProc != NUL
7b70: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 67 L) {..return (*g
7b80: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 etOptionProc)(Tc
7b90: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
7ba0: 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 anceData(parent)
7bb0: 2c 20 69 6e 74 65 72 70 2c 0a 09 20 20 20 20 6f , interp,.. o
7bc0: 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f ptionName, optio
7bd0: 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 nValue);. } e
7be0: 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 lse if (optionNa
7bf0: 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 me == (char*) NU
7c00: 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 LL) {../*.. * Re
7c10: 71 75 65 73 74 20 69 73 20 71 75 65 72 79 20 66 quest is query f
7c20: 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 or all options,
7c30: 74 68 69 73 20 69 73 20 6f 6b 2e 0a 09 20 2a 2f this is ok... */
7c40: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
7c50: 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 . }. /*.
7c60: 20 20 20 2a 20 52 65 71 75 65 73 74 20 66 6f 72 * Request for
7c70: 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 74 69 a specific opti
7c80: 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 on has to fail,
7c90: 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e we don't have an
7ca0: 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 y.. */. r
7cb0: 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 eturn Tcl_BadCha
7cc0: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
7cd0: 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 p, optionName, "
7ce0: 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ");.}../*. *----
7cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
7d40: 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 TlsChannelHandle
7d50: 72 54 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 rTimer --. *. *.
7d60: 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 6f Called by the no
7d70: 74 69 66 69 65 72 20 76 69 61 20 61 20 74 69 6d tifier via a tim
7d80: 65 72 2c 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 er, to flush out
7d90: 20 64 61 74 61 20 77 61 69 74 69 6e 67 20 69 6e data waiting in
7da0: 0a 20 2a 09 63 68 61 6e 6e 65 6c 20 62 75 66 66 . *.channel buff
7db0: 65 72 73 2e 20 63 61 6c 6c 65 64 20 62 79 20 74 ers. called by t
7dc0: 68 65 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c he generic I/O l
7dd0: 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 74 68 ayer whenever th
7de0: 65 0a 20 2a 09 54 63 6c 5f 47 65 74 43 68 61 6e e. *.Tcl_GetChan
7df0: 6e 65 6c 48 61 6e 64 6c 65 28 29 20 66 75 6e 63 nelHandle() func
7e00: 74 69 6f 6e 20 69 73 20 75 73 65 64 2e 0a 20 2a tion is used.. *
7e10: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
7e20: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 None.. *. * Side
7e30: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 effects:. *.Cre
7e40: 61 74 65 73 20 6e 6f 74 69 66 69 63 61 74 69 6f ates notificatio
7e50: 6e 20 65 76 65 6e 74 2e 0a 20 2a 0a 20 2a 2d 2d n event.. *. *--
7e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
7eb0: 73 74 61 74 69 63 20 76 6f 69 64 20 54 6c 73 43 static void TlsC
7ec0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d hannelHandlerTim
7ed0: 65 72 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 er(. ClientDa
7ee0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 09 2f ta clientData)./
7ef0: 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 * Socket state.
7f00: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a */.{. State *
7f10: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
7f20: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
7f30: 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 20 3d 20 . int mask =
7f40: 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 3b 20 statePtr->want;
7f50: 2f 2a 20 49 6e 69 74 20 74 6f 20 53 53 4c 5f 45 /* Init to SSL_E
7f60: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 20 61 RROR_WANT_READ a
7f70: 6e 64 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e nd SSL_ERROR_WAN
7f80: 54 5f 57 52 49 54 45 20 2a 2f 0a 0a 20 20 20 20 T_WRITE */..
7f90: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 dprintf("Called
7fa0: 77 69 74 68 20 6d 61 73 6b 20 30 78 25 30 32 78 with mask 0x%02x
7fb0: 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 73 ", mask);.. s
7fc0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
7fd0: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
7fe0: 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 ) NULL;.. /*
7ff0: 43 68 65 63 6b 20 66 6f 72 20 61 6d 6f 75 6e 74 Check for amount
8000: 20 6f 66 20 64 61 74 61 20 70 65 6e 64 69 6e 67 of data pending
8010: 20 69 6e 20 49 4f 20 6f 72 20 42 49 4f 20 77 72 in IO or BIO wr
8020: 69 74 65 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 ite buffer */.
8030: 20 20 69 66 20 28 54 63 6c 5f 4f 75 74 70 75 74 if (Tcl_Output
8040: 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 Buffered(statePt
8050: 72 2d 3e 73 65 6c 66 29 20 7c 7c 20 42 49 4f 5f r->self) || BIO_
8060: 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 wpending(statePt
8070: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 69 r->bio)) {..dpri
8080: 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 ntf("[chan=%p] B
8090: 49 4f 20 77 72 69 74 61 62 6c 65 22 2c 20 73 74 IO writable", st
80a0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a atePtr->self);..
80b0: 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 .mask |= TCL_WRI
80c0: 54 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 TABLE;. }..
80d0: 20 20 2f 2a 20 43 68 65 63 6b 20 66 6f 72 20 61 /* Check for a
80e0: 6d 6f 75 6e 74 20 6f 66 20 64 61 74 61 20 70 65 mount of data pe
80f0: 6e 64 69 6e 67 20 69 6e 20 49 4f 20 6f 72 20 42 nding in IO or B
8100: 49 4f 20 72 65 61 64 20 62 75 66 66 65 72 20 2a IO read buffer *
8110: 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 49 6e /. if (Tcl_In
8120: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 putBuffered(stat
8130: 65 50 74 72 2d 3e 73 65 6c 66 29 20 7c 7c 20 42 ePtr->self) || B
8140: 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 IO_pending(state
8150: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 Ptr->bio)) {..dp
8160: 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d rintf("[chan=%p]
8170: 20 42 49 4f 20 72 65 61 64 61 62 6c 65 22 2c 20 BIO readable",
8180: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b statePtr->self);
8190: 0a 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 ...mask |= TCL_R
81a0: 45 41 44 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a EADABLE;. }..
81b0: 20 20 20 20 2f 2a 20 4e 6f 74 69 66 79 20 74 68 /* Notify th
81c0: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 61 79 e generic IO lay
81d0: 65 72 20 74 68 61 74 20 6d 61 73 6b 20 65 76 65 er that mask eve
81e0: 6e 74 73 20 68 61 76 65 20 6f 63 63 75 72 72 65 nts have occurre
81f0: 64 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c d on the channel
8200: 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 28 */. dprintf(
8210: 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 73 65 "Notifying ourse
8220: 6c 76 65 73 20 77 69 74 68 20 6d 61 73 6b 3d 25 lves with mask=%
8230: 64 22 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 54 d", mask);. T
8240: 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c cl_NotifyChannel
8250: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c (statePtr->self,
8260: 20 6d 61 73 6b 29 3b 0a 20 20 20 20 73 74 61 74 mask);. stat
8270: 65 50 74 72 2d 3e 77 61 6e 74 20 3d 20 30 3b 0a ePtr->want = 0;.
8280: 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 2f return;.}../
8290: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
82a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82e0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 68 -. *. * TlsWatch
82f0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 65 Proc --. *. *.Se
8300: 74 20 75 70 20 74 68 65 20 65 76 65 6e 74 20 6e t up the event n
8310: 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 otifier to watch
8320: 20 66 6f 72 20 65 76 65 6e 74 73 20 6f 66 20 69 for events of i
8330: 6e 74 65 72 65 73 74 20 66 72 6f 6d 20 74 68 69 nterest from thi
8340: 73 0a 20 2a 09 63 68 61 6e 6e 65 6c 2e 20 43 61 s. *.channel. Ca
8350: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
8360: 72 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 ric I/O layer wh
8370: 65 6e 65 76 65 72 20 74 68 65 20 75 73 65 72 20 enever the user
8380: 28 6f 72 20 74 68 65 0a 20 2a 09 73 79 73 74 65 (or the. *.syste
8390: 6d 29 20 61 6e 6e 6f 75 6e 63 65 73 20 69 74 73 m) announces its
83a0: 20 28 64 69 73 29 69 6e 74 65 72 65 73 74 20 69 (dis)interest i
83b0: 6e 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 n events on the
83c0: 63 68 61 6e 6e 65 6c 2e 20 54 68 69 73 20 69 73 channel. This is
83d0: 0a 20 2a 09 63 61 6c 6c 65 64 20 72 65 70 65 61 . *.called repea
83e0: 74 65 64 6c 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 tedly.. *. * Res
83f0: 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ults:. *.None..
8400: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
8410: 73 3a 0a 20 2a 09 53 65 74 73 20 75 70 20 74 68 s:. *.Sets up th
8420: 65 20 74 69 6d 65 2d 62 61 73 65 64 20 6e 6f 74 e time-based not
8430: 69 66 69 65 72 20 73 6f 20 74 68 61 74 20 66 75 ifier so that fu
8440: 74 75 72 65 20 65 76 65 6e 74 73 20 6f 6e 20 74 ture events on t
8450: 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 77 69 he channel. *.wi
8460: 6c 6c 20 62 65 20 73 65 65 6e 20 62 79 20 54 43 ll be seen by TC
8470: 4c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d L.. *. *--------
8480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84c0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
84d0: 20 76 6f 69 64 0a 54 6c 73 57 61 74 63 68 50 72 void.TlsWatchPr
84e0: 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 oc(. ClientDa
84f0: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
8500: 09 2f 2a 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 ./* Connection s
8510: 74 61 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 tate info */.
8520: 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 2f 2a 20 int mask).../*
8530: 45 76 65 6e 74 73 20 6f 66 20 69 6e 74 65 72 65 Events of intere
8540: 73 74 3b 20 61 6e 20 4f 52 2d 65 64 20 63 6f 6d st; an OR-ed com
8550: 62 69 6e 61 74 69 6f 6e 20 6f 66 0a 09 09 09 09 bination of.....
8560: 20 2a 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c * TCL_READABLE,
8570: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e TCL_WRITABLE an
8580: 64 20 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 2e d TCL_EXCEPTION.
8590: 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 */.{. Tcl_Ch
85a0: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 annel parent;.
85b0: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
85c0: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
85d0: 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 stanceData;.
85e0: 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 68 50 Tcl_DriverWatchP
85f0: 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a roc *watchProc;.
8600: 20 20 20 20 69 6e 74 20 70 65 6e 64 69 6e 67 20 int pending
8610: 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 = 0;.. dprint
8620: 66 28 22 43 61 6c 6c 65 64 20 77 69 74 68 20 6d f("Called with m
8630: 61 73 6b 20 30 78 25 30 32 78 22 2c 20 6d 61 73 ask 0x%02x", mas
8640: 6b 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 46 6c k);. dprintFl
8650: 61 67 73 28 73 74 61 74 65 50 74 72 29 3b 0a 0a ags(statePtr);..
8660: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
8670: 74 68 65 20 75 73 65 72 20 76 65 72 69 66 79 20 the user verify
8680: 63 61 6c 6c 62 61 63 6b 20 69 73 20 73 74 69 6c callback is stil
8690: 6c 20 72 75 6e 6e 69 6e 67 20 74 6f 20 61 76 6f l running to avo
86a0: 69 64 20 74 72 69 67 67 65 72 69 6e 67 0a 20 20 id triggering.
86b0: 20 20 20 2a 20 61 6e 6f 74 68 65 72 20 63 61 6c * another cal
86c0: 6c 20 62 65 66 6f 72 65 20 74 68 65 20 63 75 72 l before the cur
86d0: 72 65 6e 74 20 6f 6e 65 20 69 73 20 63 6f 6d 70 rent one is comp
86e0: 6c 65 74 65 2e 20 2a 2f 0a 20 20 20 20 69 66 20 lete. */. if
86f0: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
8700: 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 & TLS_TCL_CALLB
8710: 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 ACK) {..dprintf(
8720: 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 6f 6e 2d "Callback is on-
8730: 67 6f 69 6e 67 2c 20 64 6f 69 6e 67 20 6e 6f 74 going, doing not
8740: 68 69 6e 67 22 29 3b 0a 09 72 65 74 75 72 6e 3b hing");..return;
8750: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 61 72 65 . }.. pare
8760: 6e 74 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 nt = Tls_GetPare
8770: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 nt(statePtr, TLS
8780: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a _TCL_FASTPATH);.
8790: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
87a0: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
87b0: 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 CL_HANDSHAKE_FAI
87c0: 4c 45 44 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 LED) {..dprintf(
87d0: 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63 68 20 "Asked to watch
87e0: 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20 61 20 a socket with a
87f0: 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 6b 65 failed handshake
8800: 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 6e 20 -- nothing can
8810: 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b 0a 09 happen here");..
8820: 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 69 73 dprintf("Unregis
8830: 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 74 20 tering interest
8840: 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 in the lower cha
8850: 6e 6e 65 6c 22 29 3b 0a 0a 09 77 61 74 63 68 50 nnel");...watchP
8860: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
8870: 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 lWatchProc(Tcl_G
8880: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 etChannelType(pa
8890: 72 65 6e 74 29 29 3b 0a 09 77 61 74 63 68 50 72 rent));..watchPr
88a0: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
88b0: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 lInstanceData(pa
88c0: 72 65 6e 74 29 2c 20 30 29 3b 0a 09 73 74 61 74 rent), 0);..stat
88d0: 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 ePtr->watchMask
88e0: 3d 20 30 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 = 0;..return;.
88f0: 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 50 74 }.. statePt
8900: 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 6d r->watchMask = m
8910: 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 ask;.. /*.
8920: 20 20 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c 20 68 * No channel h
8930: 61 6e 64 6c 65 72 73 20 61 6e 79 20 6d 6f 72 65 andlers any more
8940: 2e 20 57 65 20 77 69 6c 6c 20 62 65 20 6e 6f 74 . We will be not
8950: 69 66 69 65 64 20 61 75 74 6f 6d 61 74 69 63 61 ified automatica
8960: 6c 6c 79 20 61 62 6f 75 74 0a 20 20 20 20 20 2a lly about. *
8970: 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 events on the c
8980: 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 76 69 61 hannel below via
8990: 20 61 20 63 61 6c 6c 20 74 6f 20 6f 75 72 20 27 a call to our '
89a0: 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 69 66 79 50 TransformNotifyP
89b0: 72 6f 63 27 2e 20 42 75 74 0a 20 20 20 20 20 2a roc'. But. *
89c0: 20 77 65 20 68 61 76 65 20 74 6f 20 70 61 73 73 we have to pass
89d0: 20 74 68 65 20 69 6e 74 65 72 65 73 74 20 64 6f the interest do
89e0: 77 6e 20 6e 6f 77 2e 20 57 65 20 61 72 65 20 61 wn now. We are a
89f0: 6c 6c 6f 77 65 64 20 74 6f 20 61 64 64 20 61 64 llowed to add ad
8a00: 64 69 74 69 6f 6e 61 6c 0a 20 20 20 20 20 2a 20 ditional. *
8a10: 27 69 6e 74 65 72 65 73 74 27 20 74 6f 20 74 68 'interest' to th
8a20: 65 20 6d 61 73 6b 20 69 66 20 77 65 20 77 61 6e e mask if we wan
8a30: 74 20 74 6f 2c 20 62 75 74 20 74 68 69 73 20 74 t to, but this t
8a40: 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 68 61 ransformation ha
8a50: 73 20 6e 6f 0a 20 20 20 20 20 2a 20 73 75 63 68 s no. * such
8a60: 20 69 6e 74 65 72 65 73 74 2e 20 49 74 20 6a 75 interest. It ju
8a70: 73 74 20 70 61 73 73 65 73 20 74 68 65 20 72 65 st passes the re
8a80: 71 75 65 73 74 20 64 6f 77 6e 2c 20 75 6e 63 68 quest down, unch
8a90: 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 20 anged.. */.
8aa0: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 67 69 dprintf("Regi
8ab0: 73 74 65 72 69 6e 67 20 6f 75 72 20 69 6e 74 65 stering our inte
8ac0: 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 rest in the lowe
8ad0: 72 20 63 68 61 6e 6e 65 6c 20 28 63 68 61 6e 3d r channel (chan=
8ae0: 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 70 %p)", (void *) p
8af0: 61 72 65 6e 74 29 3b 0a 20 20 20 20 77 61 74 63 arent);. watc
8b00: 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e hProc = Tcl_Chan
8b10: 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c nelWatchProc(Tcl
8b20: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
8b30: 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 77 61 parent));. wa
8b40: 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 tchProc(Tcl_GetC
8b50: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
8b60: 74 61 28 70 61 72 65 6e 74 29 2c 20 6d 61 73 6b ta(parent), mask
8b70: 29 3b 0a 0a 20 20 20 20 2f 2a 20 44 6f 20 77 65 );.. /* Do we
8b80: 20 68 61 76 65 20 61 6e 79 20 70 65 6e 64 69 6e have any pendin
8b90: 67 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 70 65 g data */. pe
8ba0: 6e 64 69 6e 67 20 3d 20 28 73 74 61 74 65 50 74 nding = (statePt
8bb0: 72 2d 3e 77 61 6e 74 20 7c 7c 20 5c 0a 09 28 28 r->want || \..((
8bc0: 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 mask & TCL_READA
8bd0: 42 4c 45 29 20 26 26 20 28 28 54 63 6c 5f 49 6e BLE) && ((Tcl_In
8be0: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 putBuffered(stat
8bf0: 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 ePtr->self) > 0)
8c00: 20 7c 7c 20 28 42 49 4f 5f 63 74 72 6c 5f 70 65 || (BIO_ctrl_pe
8c10: 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e nding(statePtr->
8c20: 62 69 6f 29 20 3e 20 30 29 29 29 20 7c 7c 0a 09 bio) > 0))) ||..
8c30: 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 57 52 49 ((mask & TCL_WRI
8c40: 54 41 42 4c 45 29 20 26 26 20 28 28 54 63 6c 5f TABLE) && ((Tcl_
8c50: 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 28 73 OutputBuffered(s
8c60: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e tatePtr->self) >
8c70: 20 30 29 20 7c 7c 20 28 42 49 4f 5f 63 74 72 6c 0) || (BIO_ctrl
8c80: 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 _wpending(stateP
8c90: 74 72 2d 3e 62 69 6f 29 20 3e 20 30 29 29 29 29 tr->bio) > 0))))
8ca0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
8cb0: 49 4f 20 57 61 6e 74 3d 25 64 2c 20 69 6e 70 75 IO Want=%d, inpu
8cc0: 74 20 62 75 66 66 65 72 3d 25 64 2c 20 6f 75 74 t buffer=%d, out
8cd0: 70 75 74 20 62 75 66 66 65 72 3d 25 64 2c 20 42 put buffer=%d, B
8ce0: 49 4f 20 70 65 6e 64 69 6e 67 3d 25 64 2c 20 42 IO pending=%d, B
8cf0: 49 4f 20 77 70 65 6e 64 69 6e 67 3d 25 64 2c 20 IO wpending=%d,
8d00: 5c 0a 09 42 49 4f 20 63 74 72 6c 20 70 65 6e 64 \..BIO ctrl pend
8d10: 69 6e 67 3d 25 7a 75 2c 20 42 49 4f 20 63 74 72 ing=%zu, BIO ctr
8d20: 6c 20 77 70 65 6e 64 69 6e 67 3d 25 7a 75 2c 20 l wpending=%zu,
8d30: 70 65 6e 64 69 6e 67 3d 25 64 22 2c 20 73 74 61 pending=%d", sta
8d40: 74 65 50 74 72 2d 3e 77 61 6e 74 2c 20 5c 0a 09 tePtr->want, \..
8d50: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
8d60: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 d(statePtr->self
8d70: 29 2c 20 54 63 6c 5f 4f 75 74 70 75 74 42 75 66 ), Tcl_OutputBuf
8d80: 66 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e fered(statePtr->
8d90: 73 65 6c 66 29 2c 20 5c 0a 09 42 49 4f 5f 70 65 self), \..BIO_pe
8da0: 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e nding(statePtr->
8db0: 62 69 6f 29 2c 20 42 49 4f 5f 77 70 65 6e 64 69 bio), BIO_wpendi
8dc0: 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ng(statePtr->bio
8dd0: 29 2c 20 5c 0a 09 42 49 4f 5f 63 74 72 6c 5f 70 ), \..BIO_ctrl_p
8de0: 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d ending(statePtr-
8df0: 3e 62 69 6f 29 2c 20 42 49 4f 5f 63 74 72 6c 5f >bio), BIO_ctrl_
8e00: 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 wpending(statePt
8e10: 72 2d 3e 62 69 6f 29 2c 20 70 65 6e 64 69 6e 67 r->bio), pending
8e20: 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 63 68 65 64 );.. /* Sched
8e30: 75 6c 65 20 6e 65 78 74 20 65 76 65 6e 74 20 69 ule next event i
8e40: 66 20 64 61 74 61 20 69 73 20 70 65 6e 64 69 6e f data is pendin
8e50: 67 2c 20 6f 74 68 65 72 77 69 73 65 20 63 65 61 g, otherwise cea
8e60: 73 65 20 65 76 65 6e 74 73 20 66 6f 72 20 6e 6f se events for no
8e70: 77 20 2a 2f 0a 20 20 20 20 69 66 20 28 21 28 6d w */. if (!(m
8e80: 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 ask & TCL_READAB
8e90: 4c 45 29 20 7c 7c 20 70 65 6e 64 69 6e 67 20 3d LE) || pending =
8ea0: 3d 20 30 29 20 7b 0a 09 2f 2a 20 52 65 6d 6f 76 = 0) {../* Remov
8eb0: 65 20 74 69 6d 65 72 2c 20 69 66 20 61 6e 79 20 e timer, if any
8ec0: 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 */..if (statePtr
8ed0: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
8ee0: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
8ef0: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
8f00: 28 22 41 20 74 69 6d 65 72 20 77 61 73 20 66 6f ("A timer was fo
8f10: 75 6e 64 2c 20 64 65 6c 65 74 69 6e 67 20 69 74 und, deleting it
8f20: 22 29 3b 0a 09 20 20 20 20 54 63 6c 5f 44 65 6c ");.. Tcl_Del
8f30: 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 eteTimerHandler(
8f40: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 statePtr->timer)
8f50: 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
8f60: 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 >timer = (Tcl_Ti
8f70: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a merToken) NULL;.
8f80: 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b .}.. } else {
8f90: 0a 09 2f 2a 20 41 64 64 20 74 69 6d 65 72 2c 20 ../* Add timer,
8fa0: 69 66 20 6e 6f 6e 65 20 2a 2f 0a 09 69 66 20 28 if none */..if (
8fb0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
8fc0: 3d 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b == (Tcl_TimerTok
8fd0: 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 en) NULL) {..
8fe0: 20 64 70 72 69 6e 74 66 28 22 43 72 65 61 74 69 dprintf("Creati
8ff0: 6e 67 20 61 20 6e 65 77 20 74 69 6d 65 72 20 73 ng a new timer s
9000: 69 6e 63 65 20 64 61 74 61 20 61 70 70 65 61 72 ince data appear
9010: 73 20 74 6f 20 62 65 20 77 61 69 74 69 6e 67 22 s to be waiting"
9020: 29 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 );.. statePtr
9030: 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 ->timer = Tcl_Cr
9040: 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 eateTimerHandler
9050: 28 54 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 20 (TLS_TCL_DELAY,
9060: 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 TlsChannelHandle
9070: 72 54 69 6d 65 72 2c 20 28 43 6c 69 65 6e 74 44 rTimer, (ClientD
9080: 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a ata) statePtr);.
9090: 09 7d 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 .}. }.}../*.
90a0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
90b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
90c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
90d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
90e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
90f0: 2a 0a 20 2a 20 54 6c 73 47 65 74 48 61 6e 64 6c *. * TlsGetHandl
9100: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 eProc --. *. *.T
9110: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 his procedure is
9120: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 invoked by the
9130: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c generic IO level
9140: 20 74 6f 20 72 65 74 72 69 65 76 65 20 61 6e 20 to retrieve an
9150: 4f 53 0a 20 2a 09 73 70 65 63 69 66 69 63 20 68 OS. *.specific h
9160: 61 6e 64 6c 65 20 61 73 73 6f 63 69 61 74 65 64 andle associated
9170: 20 77 69 74 68 20 74 68 65 20 63 68 61 6e 6e 65 with the channe
9180: 6c 2e 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 l. Not used for
9190: 74 72 61 6e 73 66 6f 72 6d 73 2e 0a 20 2a 0a 20 transforms.. *.
91a0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 * Results:. *.Th
91b0: 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 54 63 e appropriate Tc
91c0: 6c 5f 46 69 6c 65 20 68 61 6e 64 6c 65 20 6f 72 l_File handle or
91d0: 20 4e 55 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 NULL if none..
91e0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
91f0: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 s:. *.None.. *.
9200: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
9210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
9250: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
9260: 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 0a sGetHandleProc(.
9270: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 69 ClientData i
9280: 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 nstanceData,./*
9290: 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f Socket state. */
92a0: 0a 20 20 20 20 69 6e 74 20 64 69 72 65 63 74 69 . int directi
92b0: 6f 6e 2c 09 09 2f 2a 20 54 43 4c 5f 52 45 41 44 on,../* TCL_READ
92c0: 41 42 4c 45 20 6f 72 20 54 43 4c 5f 57 52 49 54 ABLE or TCL_WRIT
92d0: 41 42 4c 45 20 2a 2f 0a 20 20 20 20 43 6c 69 65 ABLE */. Clie
92e0: 6e 74 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 ntData *handlePt
92f0: 72 29 09 2f 2a 20 48 61 6e 64 6c 65 20 61 73 73 r)./* Handle ass
9300: 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 ociated with the
9310: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b 0a 20 20 channel */.{.
9320: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
9330: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
9340: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 stanceData;..
9350: 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 43 return Tcl_GetC
9360: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 hannelHandle(Tls
9370: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
9380: 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 Ptr, TLS_TCL_FAS
9390: 54 50 41 54 48 29 2c 0a 09 64 69 72 65 63 74 69 TPATH),..directi
93a0: 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a on, handlePtr);.
93b0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
93c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9400: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4e -----. *. * TlsN
9410: 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a otifyProc --. *.
9420: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
9430: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 e is invoked by
9440: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
9450: 65 76 65 6c 20 74 6f 20 6e 6f 74 69 66 79 20 74 evel to notify t
9460: 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 74 68 he channel. *.th
9470: 61 74 20 61 6e 20 65 76 65 6e 74 20 68 61 73 20 at an event has
9480: 6f 63 63 75 72 72 65 64 20 6f 6e 20 74 68 65 20 occurred on the
9490: 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e underlying chann
94a0: 65 6c 2e 20 49 74 20 69 73 20 75 73 65 64 20 62 el. It is used b
94b0: 79 0a 20 2a 09 73 74 61 63 6b 65 64 20 63 68 61 y. *.stacked cha
94c0: 6e 6e 65 6c 20 64 72 69 76 65 72 73 20 74 68 61 nnel drivers tha
94d0: 74 20 77 69 73 68 20 74 6f 20 62 65 20 6e 6f 74 t wish to be not
94e0: 69 66 69 65 64 20 6f 66 20 65 76 65 6e 74 73 20 ified of events
94f0: 74 68 61 74 20 6f 63 63 75 72 0a 20 2a 09 6f 6e that occur. *.on
9500: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
9510: 28 73 74 61 63 6b 65 64 29 20 63 68 61 6e 6e 65 (stacked) channe
9520: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 l.. *. * Results
9530: 3a 0a 20 2a 09 54 79 70 65 20 6f 66 20 65 76 65 :. *.Type of eve
9540: 6e 74 20 6f 72 20 30 20 69 66 20 66 61 69 6c 65 nt or 0 if faile
9550: 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 d. *. * Side eff
9560: 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 70 72 6f ects:. *.May pro
9570: 63 65 73 73 20 74 68 65 20 69 6e 63 6f 6d 69 6e cess the incomin
9580: 67 20 65 76 65 6e 74 20 62 79 20 69 74 73 65 6c g event by itsel
9590: 66 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d f.. *. *--------
95a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
95b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
95c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
95d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
95e0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
95f0: 20 69 6e 74 20 54 6c 73 4e 6f 74 69 66 79 50 72 int TlsNotifyPr
9600: 6f 63 28 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 oc(. ClientDa
9610: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
9620: 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 ./* Socket state
9630: 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 . */. int mas
9640: 6b 29 09 09 09 2f 2a 20 74 79 70 65 20 6f 66 20 k).../* type of
9650: 65 76 65 6e 74 20 74 68 61 74 20 6f 63 63 75 72 event that occur
9660: 72 65 64 3a 20 4f 52 2d 65 64 0a 09 09 09 09 20 red: OR-ed.....
9670: 2a 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 * combination of
9680: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 TCL_READABLE or
9690: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f TCL_WRITABLE */
96a0: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
96b0: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
96c0: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
96d0: 0a 20 20 20 20 69 6e 74 20 65 72 72 6f 72 43 6f . int errorCo
96e0: 64 65 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 de = 0;.. dpr
96f0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 77 69 74 intf("Called wit
9700: 68 20 6d 61 73 6b 20 30 78 25 30 32 78 22 2c 20 h mask 0x%02x",
9710: 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 mask);.. /* A
9720: 62 6f 72 74 20 69 66 20 74 68 65 20 75 73 65 72 bort if the user
9730: 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b verify callback
9740: 20 69 73 20 73 74 69 6c 6c 20 72 75 6e 6e 69 6e is still runnin
9750: 67 20 74 6f 20 61 76 6f 69 64 20 74 72 69 67 67 g to avoid trigg
9760: 65 72 69 6e 67 0a 20 20 20 20 20 2a 20 61 6e 6f ering. * ano
9770: 74 68 65 72 20 63 61 6c 6c 20 62 65 66 6f 72 65 ther call before
9780: 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 the current one
9790: 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 20 2a 2f is complete. */
97a0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
97b0: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
97c0: 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 CL_CALLBACK) {..
97d0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 dprintf("Callbac
97e0: 6b 20 69 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 72 k is on-going, r
97f0: 65 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 eturning failed"
9800: 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 );..return 0;.
9810: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e }.. /* If n
9820: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 ot initialized,
9830: 64 6f 20 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 do connect */.
9840: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
9850: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
9860: 49 4e 49 54 29 20 7b 0a 09 69 6e 74 20 74 6c 73 INIT) {..int tls
9870: 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 70 72 69 6e Connect;...dprin
9880: 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f tf("Calling Tls_
9890: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 WaitForConnect")
98a0: 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 63 74 20 3d ;...tlsConnect =
98b0: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
98c0: 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 65 ect(statePtr, &e
98d0: 72 72 6f 72 43 6f 64 65 2c 20 31 29 3b 0a 09 69 rrorCode, 1);..i
98e0: 66 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 f (tlsConnect <
98f0: 31 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 1) {.. dprint
9900: 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 f("Got an error
9910: 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 waiting to conne
9920: 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d ct (tlsConnect =
9930: 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 %i, *errorCodeP
9940: 74 72 20 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f tr = %i)", tlsCo
9950: 6e 6e 65 63 74 2c 20 65 72 72 6f 72 43 6f 64 65 nnect, errorCode
9960: 29 3b 0a 09 20 20 20 20 69 66 20 28 65 72 72 6f );.. if (erro
9970: 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 29 rCode == EAGAIN)
9980: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 41 73 {...dprintf("As
9990: 79 6e 63 20 66 6c 61 67 20 63 6f 75 6c 64 20 62 ync flag could b
99a0: 65 20 73 65 74 20 28 64 69 64 6e 27 74 20 63 68 e set (didn't ch
99b0: 65 63 6b 29 20 61 6e 64 20 65 72 72 6f 72 43 6f eck) and errorCo
99c0: 64 65 20 3d 3d 20 45 41 47 41 49 4e 3a 20 20 52 de == EAGAIN: R
99d0: 65 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 eturning failed"
99e0: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 20 30 3b 0a );....return 0;.
99f0: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 64 70 72 . }... dpr
9a00: 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f intf("Tls_WaitFo
9a10: 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 rConnect returne
9a20: 64 20 61 6e 20 65 72 72 6f 72 22 29 3b 0a 09 7d d an error");..}
9a30: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 . }.. /*.
9a40: 20 20 20 20 2a 20 44 65 6c 65 74 65 20 61 6e 20 * Delete an
9a50: 65 78 69 73 74 69 6e 67 20 74 69 6d 65 72 2e 20 existing timer.
9a60: 49 74 20 77 61 73 20 6e 6f 74 20 66 69 72 65 64 It was not fired
9a70: 2c 20 79 65 74 20 77 65 20 61 72 65 20 68 65 72 , yet we are her
9a80: 65 2c 20 73 6f 20 74 68 65 0a 20 20 20 20 20 2a e, so the. *
9a90: 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 67 channel below g
9aa0: 65 6e 65 72 61 74 65 64 20 73 75 63 68 20 61 6e enerated such an
9ab0: 20 65 76 65 6e 74 20 61 6e 64 20 77 65 20 64 6f event and we do
9ac0: 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 54 68 65 n't have to. The
9ad0: 20 72 65 6e 65 77 61 6c 0a 20 20 20 20 20 2a 20 renewal. *
9ae0: 6f 66 20 74 68 65 20 69 6e 74 65 72 65 73 74 20 of the interest
9af0: 61 66 74 65 72 20 74 68 65 20 65 78 65 63 75 74 after the execut
9b00: 69 6f 6e 20 6f 66 20 63 68 61 6e 6e 65 6c 20 68 ion of channel h
9b10: 61 6e 64 6c 65 72 73 20 77 69 6c 6c 20 65 76 65 andlers will eve
9b20: 6e 74 75 61 6c 6c 79 0a 20 20 20 20 20 2a 20 63 ntually. * c
9b30: 61 75 73 65 20 75 73 20 74 6f 20 72 65 63 72 65 ause us to recre
9b40: 61 74 65 20 74 68 65 20 74 69 6d 65 72 20 28 69 ate the timer (i
9b50: 6e 20 54 6c 73 57 61 74 63 68 50 72 6f 63 29 2e n TlsWatchProc).
9b60: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 . */. if
9b70: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
9b80: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
9b90: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ken) NULL) {..Tc
9ba0: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
9bb0: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
9bc0: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
9bd0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
9be0: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
9bf0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 . }.. /*.
9c00: 20 20 20 20 2a 20 41 6e 20 65 76 65 6e 74 20 6f * An event o
9c10: 63 63 75 72 72 65 64 20 69 6e 20 74 68 65 20 75 ccurred in the u
9c20: 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 nderlying channe
9c30: 6c 2e 20 54 68 69 73 20 74 72 61 6e 73 66 6f 72 l. This transfor
9c40: 6d 61 74 69 6f 6e 20 64 6f 65 73 6e 27 74 0a 20 mation doesn't.
9c50: 20 20 20 20 2a 20 70 72 6f 63 65 73 73 20 73 75 * process su
9c60: 63 68 20 65 76 65 6e 74 73 20 74 68 75 73 20 72 ch events thus r
9c70: 65 74 75 72 6e 73 20 74 68 65 20 69 6e 63 6f 6d eturns the incom
9c80: 69 6e 67 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 ing mask unchang
9c90: 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 ed.. */.
9ca0: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 dprintf("Returni
9cb0: 6e 67 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 20 ng %i", mask);.
9cc0: 20 20 20 72 65 74 75 72 6e 20 6d 61 73 6b 3b 0a return mask;.
9cd0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
9ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d20: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
9d30: 43 68 61 6e 6e 65 6c 54 79 70 65 20 2d 2d 0a 20 ChannelType --.
9d40: 2a 0a 20 2a 09 44 65 66 69 6e 65 73 20 74 68 65 *. *.Defines the
9d50: 20 63 6f 72 72 65 63 74 20 54 4c 53 20 63 68 61 correct TLS cha
9d60: 6e 6e 65 6c 20 64 72 69 76 65 72 20 68 61 6e 64 nnel driver hand
9d70: 6c 65 72 73 20 66 6f 72 20 74 68 69 73 20 63 68 lers for this ch
9d80: 61 6e 6e 65 6c 20 74 79 70 65 2e 0a 20 2a 0a 20 annel type.. *.
9d90: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 63 * Results:. *.Tc
9da0: 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 73 74 l_ChannelType st
9db0: 72 75 63 74 75 72 65 2e 0a 20 2a 0a 20 2a 20 53 ructure.. *. * S
9dc0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
9dd0: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
9de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e20: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
9e30: 74 69 63 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 tic const Tcl_Ch
9e40: 61 6e 6e 65 6c 54 79 70 65 20 74 6c 73 43 68 61 annelType tlsCha
9e50: 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 nnelType = {.
9e60: 20 22 74 6c 73 22 2c 09 09 09 2f 2a 20 54 79 70 "tls",.../* Typ
9e70: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 e name */. TC
9e80: 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f L_CHANNEL_VERSIO
9e90: 4e 5f 35 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e N_5,./* v5 chann
9ea0: 65 6c 20 2a 2f 0a 20 20 20 20 54 6c 73 43 6c 6f el */. TlsClo
9eb0: 73 65 50 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 seProc,../* Clos
9ec0: 65 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c e proc */. Tl
9ed0: 73 49 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 sInputProc,../*
9ee0: 49 6e 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 Input proc */.
9ef0: 20 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 2c TlsOutputProc,
9f00: 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 ../* Output proc
9f10: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 */. NULL,...
9f20: 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f 0a /* Seek proc */.
9f30: 20 20 20 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e TlsSetOption
9f40: 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 6f 70 Proc,../* Set op
9f50: 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 tion proc */.
9f60: 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f TlsGetOptionPro
9f70: 63 2c 09 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f c,../* Get optio
9f80: 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c n proc */. Tl
9f90: 73 57 61 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 sWatchProc,../*
9fa0: 49 6e 69 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 Initialize notif
9fb0: 69 65 72 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 ier */. TlsGe
9fc0: 74 48 61 6e 64 6c 65 50 72 6f 63 2c 09 09 2f 2a tHandleProc,../*
9fd0: 20 47 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 Get OS handles
9fe0: 6f 75 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a out of channel *
9ff0: 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 32 50 /. TlsClose2P
a000: 72 6f 63 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 roc,../* close2p
a010: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 42 6c roc */. TlsBl
a020: 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 09 2f 2a ockModeProc,../*
a030: 20 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f Set blocking/no
a040: 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f nblocking mode*/
a050: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
a060: 46 6c 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 Flush proc */.
a070: 20 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 2c TlsNotifyProc,
a080: 09 09 2f 2a 20 48 61 6e 64 6c 69 6e 67 20 6f 66 ../* Handling of
a090: 20 65 76 65 6e 74 73 20 62 75 62 62 6c 69 6e 67 events bubbling
a0a0: 20 75 70 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c up */. NULL,
a0b0: 09 09 09 2f 2a 20 57 69 64 65 20 73 65 65 6b 20 .../* Wide seek
a0c0: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c proc */. NULL
a0d0: 2c 09 09 09 2f 2a 20 54 68 72 65 61 64 20 61 63 ,.../* Thread ac
a0e0: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c tion */. NULL
a0f0: 09 09 09 2f 2a 20 54 72 75 6e 63 61 74 65 20 2a .../* Truncate *
a100: 2f 0a 7d 3b 0a 0a 63 6f 6e 73 74 20 54 63 6c 5f /.};..const Tcl_
a110: 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 54 6c 73 ChannelType *Tls
a120: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 76 6f 69 _ChannelType(voi
a130: 64 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 d) {. return
a140: 26 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 3b &tlsChannelType;
a150: 0a 7d 0a .}.