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 20 20 20 20 74 63 6c 53 53 4c 20 28 43 . * tclSSL (C
0230: 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c 20 olin McCormack,
0240: 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f 67 Shared Technolog
0250: 79 29 0a 20 2a 20 20 20 20 53 53 4c 74 63 6c 20 y). * SSLtcl
0260: 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a 20 (Peter Antman).
0270: 2a 0a 20 2a 2f 0a 0a 2f 2a 0a 09 09 74 6c 73 42 *. */../*...tlsB
0280: 49 4f 2e 63 09 09 09 09 74 6c 73 49 4f 2e 63 0a IO.c....tlsIO.c.
0290: 20 20 2b 2d 2d 2d 2d 2d 2d 2b 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 20 20 2b 2d 2d 2d 2d 2d 2b 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 20 20 20 20 20 20 2b +
02e0: 2d 2d 2d 2d 2d 2d 2b 0a 20 20 7c 20 20 20 20 20 ------+. |
02f0: 20 7c 54 63 6c 5f 57 72 69 74 65 52 61 77 20 3c |Tcl_WriteRaw <
0300: 2d 2d 20 42 69 6f 57 72 69 74 65 7c 20 53 53 4c -- BioWrite| SSL
0310: 20 7c 42 49 4f 5f 77 72 69 74 65 20 3c 2d 2d 20 |BIO_write <--
0320: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 3c 2d TlsOutputProc <-
0330: 2d 20 57 72 69 74 65 7c 20 20 20 20 20 20 7c 0a - Write| |.
0340: 20 20 7c 73 6f 63 6b 65 74 7c 20 20 20 20 20 20 |socket|
0350: 3c 65 6e 63 72 79 70 74 65 64 3e 20 20 20 20 20 <encrypted>
0360: 20 20 20 7c 20 42 49 4f 20 7c 20 20 20 20 20 20 | BIO |
0370: 20 20 20 20 20 20 3c 75 6e 65 6e 63 72 79 70 74 <unencrypt
0380: 65 64 3e 20 20 20 20 20 20 20 20 20 20 20 20 7c ed> |
0390: 20 41 70 70 20 20 7c 0a 20 20 7c 20 20 20 20 20 App |. |
03a0: 20 7c 54 63 6c 5f 52 65 61 64 52 61 77 20 20 2d |Tcl_ReadRaw -
03b0: 2d 3e 20 20 42 69 6f 52 65 61 64 7c 20 20 20 20 -> BioRead|
03c0: 20 7c 42 49 4f 5f 52 65 61 64 20 20 2d 2d 3e 20 |BIO_Read -->
03d0: 54 6c 73 49 6e 70 75 74 50 72 6f 63 20 20 2d 2d TlsInputProc --
03e0: 3e 20 20 52 65 61 64 7c 20 20 20 20 20 20 7c 0a > Read| |.
03f0: 20 20 2b 2d 2d 2d 2d 2d 2d 2b 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 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 +-----+
0420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b +
0440: 2d 2d 2d 2d 2d 2d 2b 0a 2a 2f 0a 0a 23 69 6e 63 ------+.*/..#inc
0450: 6c 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a lude "tlsInt.h".
0460: 23 69 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e #include <errno.
0470: 68 3e 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d h>../*. *-------
0480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04c0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
04d0: 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d BlockModeProc --
04e0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 . *. *.This proc
04f0: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 edure is invoked
0500: 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 by the generic
0510: 49 4f 20 6c 65 76 65 6c 20 74 6f 20 73 65 74 20 IO level to set
0520: 63 68 61 6e 6e 65 6c 20 74 6f 0a 20 2a 09 62 6c channel to. *.bl
0530: 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f ocking or nonblo
0540: 63 6b 69 6e 67 20 6d 6f 64 65 2e 20 43 61 6c 6c cking mode. Call
0550: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
0560: 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 65 6e c I/O layer when
0570: 65 76 65 72 0a 20 2a 09 74 68 65 20 54 63 6c 5f ever. *.the Tcl_
0580: 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e SetChannelOption
0590: 28 29 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 () function is u
05a0: 73 65 64 20 77 69 74 68 20 6f 70 74 69 6f 6e 20 sed with option
05b0: 2d 62 6c 6f 63 6b 69 6e 67 2e 0a 20 2a 0a 20 2a -blocking.. *. *
05c0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 Results:. *
05d0: 30 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 0 if successful
05e0: 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 or POSIX error c
05f0: 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 ode if failed..
0600: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
0610: 73 3a 0a 20 2a 20 20 20 20 53 65 74 73 20 74 68 s:. * Sets th
0620: 65 20 64 65 76 69 63 65 20 69 6e 74 6f 20 62 6c e device into bl
0630: 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f ocking or nonblo
0640: 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a 0a 20 cking mode.. *.
0650: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
06a0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
06b0: 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 28 76 sBlockModeProc(v
06c0: 6f 69 64 20 2a 69 6e 73 74 61 6e 63 65 44 61 74 oid *instanceDat
06d0: 61 2c 20 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20 a, int mode) {.
06e0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
06f0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
0700: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 nstanceData;..
0710: 20 20 69 66 20 28 6d 6f 64 65 20 3d 3d 20 54 43 if (mode == TC
0720: 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 L_MODE_NONBLOCKI
0730: 4e 47 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d NG) {..statePtr-
0740: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
0750: 4c 5f 41 53 59 4e 43 3b 0a 20 20 20 20 7d 20 65 L_ASYNC;. } e
0760: 6c 73 65 20 7b 0a 09 73 74 61 74 65 50 74 72 2d lse {..statePtr-
0770: 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 5f >flags &= ~(TLS_
0780: 54 43 4c 5f 41 53 59 4e 43 29 3b 0a 20 20 20 20 TCL_ASYNC);.
0790: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a }. return 0;.
07a0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
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 0a 20 2a 0a 20 2a 20 54 6c 73 43 -----. *. * TlsC
0800: 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 loseProc --. *.
0810: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
0820: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 is invoked by t
0830: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 he generic IO le
0840: 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d 20 63 vel to perform c
0850: 68 61 6e 6e 65 6c 0a 20 2a 09 74 79 70 65 20 73 hannel. *.type s
0860: 70 65 63 69 66 69 63 20 63 6c 65 61 6e 75 70 20 pecific cleanup
0870: 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 when a SSL socke
0880: 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 20 t based channel
0890: 69 73 20 63 6c 6f 73 65 64 2e 0a 20 2a 09 43 61 is closed.. *.Ca
08a0: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
08b0: 72 69 63 20 49 2f 4f 20 6c 61 79 65 72 20 77 68 ric I/O layer wh
08c0: 65 6e 65 76 65 72 20 74 68 65 20 54 63 6c 5f 43 enever the Tcl_C
08d0: 6c 6f 73 65 28 29 20 66 75 6e 63 74 69 6f 6e 20 lose() function
08e0: 69 73 0a 20 2a 09 75 73 65 64 2e 0a 20 2a 0a 20 is. *.used.. *.
08f0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 * Results:. *
0900: 20 30 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 0 if successful
0910: 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72 20 or POSIX error
0920: 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e 0a code if failed..
0930: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
0940: 74 73 3a 0a 20 2a 20 20 20 20 43 6c 6f 73 65 73 ts:. * Closes
0950: 20 74 68 65 20 73 6f 63 6b 65 74 20 6f 66 20 74 the socket of t
0960: 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 he channel.. *.
0970: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
09c0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
09d0: 73 43 6c 6f 73 65 50 72 6f 63 28 76 6f 69 64 20 sCloseProc(void
09e0: 2a 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 54 *instanceData, T
09f0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0a00: 70 29 20 7b 0a 20 20 20 20 53 74 61 74 65 20 2a p) {. State *
0a10: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
0a20: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
0a30: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
0a40: 22 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 25 70 "TlsCloseProc(%p
0a50: 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 )", (void *) sta
0a60: 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 tePtr);.. /*
0a70: 46 6c 75 73 68 20 61 6e 79 20 70 65 6e 64 69 6e Flush any pendin
0a80: 67 20 64 61 74 61 20 2a 2f 0a 0a 20 20 20 20 2f g data */.. /
0a90: 2a 20 53 65 6e 64 20 73 68 75 74 64 6f 77 6e 20 * Send shutdown
0aa0: 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2e 20 57 69 notification. Wi
0ab0: 6c 6c 20 72 65 74 75 72 6e 20 30 20 77 68 69 6c ll return 0 whil
0ac0: 65 20 69 6e 20 70 72 6f 63 65 73 73 2c 20 74 68 e in process, th
0ad0: 65 6e 20 31 20 77 68 65 6e 20 63 6f 6d 70 6c 65 en 1 when comple
0ae0: 74 65 2e 20 2a 2f 0a 20 20 20 20 2f 2a 20 43 6c te. */. /* Cl
0af0: 6f 73 65 73 20 74 68 65 20 77 72 69 74 65 20 64 oses the write d
0b00: 69 72 65 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 irection of the
0b10: 63 6f 6e 6e 65 63 74 69 6f 6e 3b 20 74 68 65 20 connection; the
0b20: 72 65 61 64 20 64 69 72 65 63 74 69 6f 6e 20 69 read direction i
0b30: 73 20 63 6c 6f 73 65 64 20 62 79 20 74 68 65 20 s closed by the
0b40: 70 65 65 72 2e 20 2a 2f 0a 20 20 20 20 2f 2a 20 peer. */. /*
0b50: 44 6f 65 73 20 6e 6f 74 20 61 66 66 65 63 74 20 Does not affect
0b60: 73 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 44 6f socket state. Do
0b70: 6e 27 74 20 63 61 6c 6c 20 61 66 74 65 72 20 66 n't call after f
0b80: 61 74 61 6c 20 65 72 72 6f 72 2e 20 2a 2f 0a 20 atal error. */.
0b90: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
0ba0: 3e 73 73 6c 20 21 3d 20 4e 55 4c 4c 20 26 26 20 >ssl != NULL &&
0bb0: 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 !(statePtr->flag
0bc0: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 s & TLS_TCL_HAND
0bd0: 53 48 41 4b 45 5f 46 41 49 4c 45 44 29 29 20 7b SHAKE_FAILED)) {
0be0: 0a 09 53 53 4c 5f 73 68 75 74 64 6f 77 6e 28 73 ..SSL_shutdown(s
0bf0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 tatePtr->ssl);.
0c00: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 54 6c 73 }.. /* Tls
0c10: 5f 46 72 65 65 20 63 61 6c 6c 73 20 54 6c 73 5f _Free calls Tls_
0c20: 43 6c 65 61 6e 20 2a 2f 0a 20 20 20 20 54 63 6c Clean */. Tcl
0c30: 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 28 _EventuallyFree(
0c40: 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 (void *)statePtr
0c50: 2c 20 54 6c 73 5f 46 72 65 65 29 3b 0a 20 20 20 , Tls_Free);.
0c60: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
0c70: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
0c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cc0: 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73 65 32 . *. * TlsClose2
0cd0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 69 Proc --. *. *.Si
0ce0: 6d 69 6c 61 72 20 74 6f 20 54 6c 73 43 6c 6f 73 milar to TlsClos
0cf0: 65 50 72 6f 63 2c 20 62 75 74 20 61 6c 6c 6f 77 eProc, but allow
0d00: 73 20 66 6f 72 20 73 65 70 61 72 61 74 65 20 63 s for separate c
0d10: 6c 6f 73 65 20 72 65 61 64 20 61 6e 64 20 77 72 lose read and wr
0d20: 69 74 65 0a 20 2a 09 73 69 64 65 20 6f 66 20 63 ite. *.side of c
0d30: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d hannel.. *. *---
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
0d90: 74 61 74 69 63 20 69 6e 74 20 54 6c 73 43 6c 6f tatic int TlsClo
0da0: 73 65 32 50 72 6f 63 28 76 6f 69 64 20 2a 69 6e se2Proc(void *in
0db0: 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f stanceData, /
0dc0: 2a 20 54 68 65 20 73 6f 63 6b 65 74 20 73 74 61 * The socket sta
0dd0: 74 65 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 te. */. Tcl_I
0de0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 nterp *interp,..
0df0: 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 /* For errors -
0e00: 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a can be NULL. */.
0e10: 20 20 20 20 69 6e 74 20 66 6c 61 67 73 29 09 09 int flags)..
0e20: 09 2f 2a 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f ./* Flags to clo
0e30: 73 65 20 72 65 61 64 20 61 6e 64 2f 6f 72 20 77 se read and/or w
0e40: 72 69 74 65 20 73 69 64 65 20 6f 66 20 63 68 61 rite side of cha
0e50: 6e 6e 65 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 nnel */.{. St
0e60: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
0e70: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
0e80: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 ceData;.. dpr
0e90: 69 6e 74 66 28 22 54 6c 73 43 6c 6f 73 65 32 50 intf("TlsClose2P
0ea0: 72 6f 63 28 25 70 29 22 2c 20 28 76 6f 69 64 20 roc(%p)", (void
0eb0: 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 *) statePtr);..
0ec0: 20 20 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 if ((flags &
0ed0: 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 7c (TCL_CLOSE_READ|
0ee0: 54 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 TCL_CLOSE_WRITE)
0ef0: 29 20 3d 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 ) == 0) {..retur
0f00: 6e 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 69 n TlsCloseProc(i
0f10: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
0f20: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 erp);. }.
0f30: 72 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d return EINVAL;.}
0f40: 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f90: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 57 ----. *. * Tls_W
0fa0: 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 2d 2d aitForConnect --
0fb0: 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 63 . *. *.Perform c
0fc0: 6f 6e 6e 65 63 74 20 28 63 6c 69 65 6e 74 29 20 onnect (client)
0fd0: 6f 72 20 61 63 63 65 70 74 20 28 73 65 72 76 65 or accept (serve
0fe0: 72 29 20 66 75 6e 63 74 69 6f 6e 2e 20 41 6c 73 r) function. Als
0ff0: 6f 20 70 65 72 66 6f 72 6d 73 0a 20 2a 09 65 71 o performs. *.eq
1000: 75 69 76 61 6c 65 6e 74 20 6f 66 20 68 61 6e 64 uivalent of hand
1010: 73 68 61 6b 65 20 66 75 6e 63 74 69 6f 6e 2e 0a shake function..
1020: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 3a 0a 20 2a *. * Result:. *
1030: 20 20 20 20 30 20 69 66 20 73 75 63 63 65 73 73 0 if success
1040: 66 75 6c 2c 20 2d 31 20 69 66 20 66 61 69 6c 65 ful, -1 if faile
1050: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
1060: 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 49 73 73 fects:. * Iss
1070: 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74 20 6f ues SSL_accept o
1080: 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 2a r SSL_connect. *
1090: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
10a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10e0: 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 57 61 69 . */.int Tls_Wai
10f0: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 53 74 61 74 tForConnect(Stat
1100: 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 e *statePtr, int
1110: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 *errorCodePtr,
1120: 69 6e 74 20 68 61 6e 64 73 68 61 6b 65 46 61 69 int handshakeFai
1130: 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 29 lureIsPermanent)
1140: 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 {. unsigned
1150: 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f long backingErro
1160: 72 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 2c 20 r;. int err,
1170: 72 63 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 rc = 0;. int
1180: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 3b 0a bioShouldRetry;.
1190: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
11a0: 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 r = 0;.. dpri
11b0: 6e 74 66 28 22 57 61 69 74 46 6f 72 43 6f 6e 6e ntf("WaitForConn
11c0: 65 63 74 28 25 70 29 22 2c 20 28 76 6f 69 64 20 ect(%p)", (void
11d0: 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 *) statePtr);.
11e0: 20 20 64 70 72 69 6e 74 46 6c 61 67 73 28 73 74 dprintFlags(st
11f0: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 2f 2a atePtr);.. /*
1200: 20 43 61 6e 20 61 6c 73 6f 20 63 68 65 63 6b 20 Can also check
1210: 53 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 SSL_is_init_fini
1220: 73 68 65 64 28 73 73 6c 29 20 2a 2f 0a 20 20 20 shed(ssl) */.
1230: 20 69 66 20 28 21 28 73 74 61 74 65 50 74 72 2d if (!(statePtr-
1240: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
1250: 5f 49 4e 49 54 29 29 20 7b 0a 09 64 70 72 69 6e _INIT)) {..dprin
1260: 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 tf("Tls_WaitForC
1270: 6f 6e 6e 65 63 74 20 63 61 6c 6c 65 64 20 6f 6e onnect called on
1280: 20 61 6c 72 65 61 64 79 20 69 6e 69 74 69 61 6c already initial
1290: 69 7a 65 64 20 63 68 61 6e 6e 65 6c 20 2d 2d 20 ized channel --
12a0: 72 65 74 75 72 6e 69 6e 67 20 77 69 74 68 20 69 returning with i
12b0: 6d 6d 65 64 69 61 74 65 20 73 75 63 63 65 73 73 mmediate success
12c0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 ");..return 0;.
12d0: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 }.. if (st
12e0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
12f0: 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b TLS_TCL_HANDSHAK
1300: 45 5f 46 41 49 4c 45 44 29 20 7b 0a 09 2f 2a 0a E_FAILED) {../*.
1310: 09 20 2a 20 44 69 66 66 65 72 65 6e 74 20 74 79 . * Different ty
1320: 70 65 73 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e pes of operation
1330: 73 20 68 61 76 65 20 64 69 66 66 65 72 65 6e 74 s have different
1340: 20 72 65 71 75 69 72 65 6d 65 6e 74 73 0a 09 20 requirements..
1350: 2a 20 53 53 4c 20 62 65 69 6e 67 20 65 73 74 61 * SSL being esta
1360: 62 6c 69 73 68 65 64 0a 09 20 2a 2f 0a 09 69 66 blished.. */..if
1370: 20 28 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 (handshakeFailu
1380: 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b reIsPermanent) {
1390: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 .. dprintf("A
13a0: 73 6b 65 64 20 74 6f 20 77 61 69 74 20 66 6f 72 sked to wait for
13b0: 20 61 20 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 a TLS handshake
13c0: 20 74 68 61 74 20 68 61 73 20 61 6c 72 65 61 64 that has alread
13d0: 79 20 66 61 69 6c 65 64 2e 20 20 52 65 74 75 72 y failed. Retur
13e0: 6e 69 6e 67 20 66 61 74 61 6c 20 65 72 72 6f 72 ning fatal error
13f0: 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ");.. *errorC
1400: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 odePtr = ECONNAB
1410: 4f 52 54 45 44 3b 0a 09 7d 20 65 6c 73 65 20 7b ORTED;..} else {
1420: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 .. dprintf("A
1430: 73 6b 65 64 20 74 6f 20 77 61 69 74 20 66 6f 72 sked to wait for
1440: 20 61 20 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 a TLS handshake
1450: 20 74 68 61 74 20 68 61 73 20 61 6c 72 65 61 64 that has alread
1460: 79 20 66 61 69 6c 65 64 2e 20 20 52 65 74 75 72 y failed. Retur
1470: 6e 69 6e 67 20 73 6f 66 74 20 65 72 72 6f 72 22 ning soft error"
1480: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
1490: 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 53 dePtr = ECONNRES
14a0: 45 54 3b 0a 09 7d 0a 09 54 6c 73 5f 45 72 72 6f ET;..}..Tls_Erro
14b0: 72 28 73 74 61 74 65 50 74 72 2c 20 22 57 61 69 r(statePtr, "Wai
14c0: 74 20 66 6f 72 20 66 61 69 6c 65 64 20 68 61 6e t for failed han
14d0: 64 73 68 61 6b 65 22 29 3b 0a 09 72 65 74 75 72 dshake");..retur
14e0: 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 n -1;. }..
14f0: 20 66 6f 72 20 28 3b 3b 29 20 7b 0a 09 45 52 52 for (;;) {..ERR
1500: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
1510: 09 42 49 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 .BIO_clear_retry
1520: 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d _flags(statePtr-
1530: 3e 62 69 6f 29 3b 0a 0a 09 2f 2a 20 4e 6f 74 20 >bio);.../* Not
1540: 69 6e 69 74 69 61 6c 69 7a 65 64 20 79 65 74 21 initialized yet!
1550: 20 41 6c 73 6f 20 63 61 6c 6c 73 20 53 53 4c 5f Also calls SSL_
1560: 64 6f 5f 68 61 6e 64 73 68 61 6b 65 28 29 2e 20 do_handshake().
1570: 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 */..if (statePtr
1580: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
1590: 4c 5f 53 45 52 56 45 52 29 20 7b 0a 09 20 20 20 L_SERVER) {..
15a0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e dprintf("Callin
15b0: 67 20 53 53 4c 5f 61 63 63 65 70 74 28 29 22 29 g SSL_accept()")
15c0: 3b 0a 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c ;.. err = SSL
15d0: 5f 61 63 63 65 70 74 28 73 74 61 74 65 50 74 72 _accept(statePtr
15e0: 2d 3e 73 73 6c 29 3b 0a 0a 09 7d 20 65 6c 73 65 ->ssl);...} else
15f0: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
1600: 22 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 63 6f 6e "Calling SSL_con
1610: 6e 65 63 74 28 29 22 29 3b 0a 09 20 20 20 20 65 nect()");.. e
1620: 72 72 20 3d 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 rr = SSL_connect
1630: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
1640: 0a 09 7d 0a 0a 09 2f 2a 20 31 3d 73 75 63 63 65 ..}.../* 1=succe
1650: 73 73 66 75 6c 2c 20 30 3d 6e 6f 74 20 73 75 63 ssful, 0=not suc
1660: 63 65 73 73 66 75 6c 20 61 6e 64 20 73 68 75 74 cessful and shut
1670: 20 64 6f 77 6e 2c 20 3c 30 3d 66 61 74 61 6c 20 down, <0=fatal
1680: 65 72 72 6f 72 20 2a 2f 0a 09 69 66 20 28 65 72 error */..if (er
1690: 72 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 64 70 r > 0) {.. dp
16a0: 72 69 6e 74 66 28 22 41 63 63 65 70 74 20 6f 72 rintf("Accept or
16b0: 20 63 6f 6e 6e 65 63 74 20 77 61 73 20 73 75 63 connect was suc
16c0: 63 65 73 73 66 75 6c 22 29 3b 0a 0a 09 20 20 20 cessful");...
16d0: 20 65 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 err = BIO_flush
16e0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
16f0: 0a 09 20 20 20 20 69 66 20 28 65 72 72 20 3c 3d .. if (err <=
1700: 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 0) {...dprintf(
1710: 22 46 6c 75 73 68 69 6e 67 20 74 68 65 20 6c 6f "Flushing the lo
1720: 77 65 72 20 6c 61 79 65 72 73 20 66 61 69 6c 65 wer layers faile
1730: 64 2c 20 74 68 69 73 20 77 69 6c 6c 20 70 72 6f d, this will pro
1740: 62 61 62 6c 79 20 74 65 72 6d 69 6e 61 74 65 20 bably terminate
1750: 74 68 69 73 20 73 65 73 73 69 6f 6e 22 29 3b 0a this session");.
1760: 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b . }..} else {
1770: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 .. dprintf("A
1780: 63 63 65 70 74 20 6f 72 20 63 6f 6e 6e 65 63 74 ccept or connect
1790: 20 66 61 69 6c 65 64 22 29 3b 0a 09 7d 0a 0a 09 failed");..}...
17a0: 2f 2a 20 53 61 6d 65 20 61 73 20 53 53 4c 5f 77 /* Same as SSL_w
17b0: 61 6e 74 2c 20 62 75 74 20 61 6c 73 6f 20 63 68 ant, but also ch
17c0: 65 63 6b 73 20 74 68 65 20 65 72 72 6f 72 20 71 ecks the error q
17d0: 75 65 75 65 20 2a 2f 0a 09 72 63 20 3d 20 53 53 ueue */..rc = SS
17e0: 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74 L_get_error(stat
17f0: 65 50 74 72 2d 3e 73 73 6c 2c 20 65 72 72 29 3b ePtr->ssl, err);
1800: 0a 09 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d ..backingError =
1810: 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 ERR_get_error()
1820: 3b 0a 09 69 66 20 28 72 63 20 21 3d 20 53 53 4c ;..if (rc != SSL
1830: 5f 45 52 52 4f 52 5f 4e 4f 4e 45 29 20 7b 0a 09 _ERROR_NONE) {..
1840: 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 dprintf("Got
1850: 20 65 72 72 6f 72 3a 20 25 69 20 28 72 63 20 3d error: %i (rc =
1860: 20 25 69 29 22 2c 20 65 72 72 2c 20 72 63 29 3b %i)", err, rc);
1870: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 .. dprintf("G
1880: 6f 74 20 65 72 72 6f 72 3a 20 25 73 22 2c 20 45 ot error: %s", E
1890: 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f RR_reason_error_
18a0: 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 string(backingEr
18b0: 72 6f 72 29 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 54 ror));..}.../* T
18c0: 68 65 20 72 65 74 72 79 20 66 6c 61 67 20 69 73 he retry flag is
18d0: 20 73 65 74 20 62 79 20 74 68 65 20 42 49 4f 5f set by the BIO_
18e0: 73 65 74 5f 72 65 74 72 79 5f 2a 20 66 75 6e 63 set_retry_* func
18f0: 74 69 6f 6e 73 20 2a 2f 0a 09 62 69 6f 53 68 6f tions */..bioSho
1900: 75 6c 64 52 65 74 72 79 20 3d 20 42 49 4f 5f 73 uldRetry = BIO_s
1910: 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 hould_retry(stat
1920: 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 0a 09 69 66 ePtr->bio);...if
1930: 20 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 20 (err <= 0) {..
1940: 20 20 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c if (rc == SSL
1950: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e _ERROR_WANT_CONN
1960: 45 43 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c ECT || rc == SSL
1970: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 _ERROR_WANT_ACCE
1980: 50 54 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c PT) {...bioShoul
1990: 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20 dRetry = 1;..
19a0: 20 7d 20 65 6c 73 65 20 69 66 20 28 72 63 20 3d } else if (rc =
19b0: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 = SSL_ERROR_WANT
19c0: 5f 52 45 41 44 29 20 7b 0a 09 09 62 69 6f 53 68 _READ) {...bioSh
19d0: 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 ouldRetry = 1;..
19e0: 09 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 .statePtr->want
19f0: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b |= TCL_READABLE;
1a00: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
1a10: 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 (rc == SSL_ERROR
1a20: 5f 57 41 4e 54 5f 57 52 49 54 45 29 20 7b 0a 09 _WANT_WRITE) {..
1a30: 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 .bioShouldRetry
1a40: 3d 20 31 3b 0a 09 09 73 74 61 74 65 50 74 72 2d = 1;...statePtr-
1a50: 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 49 >want |= TCL_WRI
1a60: 54 41 42 4c 45 3b 0a 09 20 20 20 20 7d 20 65 6c TABLE;.. } el
1a70: 73 65 20 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c se if (BIO_shoul
1a80: 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 d_retry(statePtr
1a90: 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 62 69 6f 53 ->bio)) {...bioS
1aa0: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a houldRetry = 1;.
1ab0: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
1ac0: 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f rc == SSL_ERROR_
1ad0: 53 59 53 43 41 4c 4c 20 26 26 20 54 63 6c 5f 47 SYSCALL && Tcl_G
1ae0: 65 74 45 72 72 6e 6f 28 29 20 3d 3d 20 45 41 47 etErrno() == EAG
1af0: 41 49 4e 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 AIN) {...bioShou
1b00: 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 ldRetry = 1;..
1b10: 20 20 7d 0a 09 7d 0a 0a 09 69 66 20 28 62 69 6f }..}...if (bio
1b20: 53 68 6f 75 6c 64 52 65 74 72 79 29 20 7b 0a 09 ShouldRetry) {..
1b30: 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 68 65 dprintf("The
1b40: 20 49 2f 4f 20 64 69 64 20 6e 6f 74 20 63 6f 6d I/O did not com
1b50: 70 6c 65 74 65 20 2d 2d 20 62 75 74 20 77 65 20 plete -- but we
1b60: 73 68 6f 75 6c 64 20 74 72 79 20 69 74 20 61 67 should try it ag
1b70: 61 69 6e 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 ain");... if
1b80: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
1b90: 20 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 & TLS_TCL_ASYNC
1ba0: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 52 ) {...dprintf("R
1bb0: 65 74 75 72 6e 69 6e 67 20 45 41 47 41 49 4e 20 eturning EAGAIN
1bc0: 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e 20 62 so that it can b
1bd0: 65 20 72 65 74 72 69 65 64 20 6c 61 74 65 72 22 e retried later"
1be0: 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 );...*errorCodeP
1bf0: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 54 tr = EAGAIN;...T
1c00: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
1c10: 72 2c 20 22 48 61 6e 64 73 68 61 6b 65 20 6e 6f r, "Handshake no
1c20: 74 20 63 6f 6d 70 6c 65 74 65 2c 20 77 69 6c 6c t complete, will
1c30: 20 72 65 74 72 79 20 6c 61 74 65 72 22 29 3b 0a retry later");.
1c40: 09 09 72 65 74 75 72 6e 20 2d 31 3b 0a 09 20 20 ..return -1;..
1c50: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 } else {...dpr
1c60: 69 6e 74 66 28 22 44 6f 69 6e 67 20 73 6f 20 6e intf("Doing so n
1c70: 6f 77 22 29 3b 0a 09 09 63 6f 6e 74 69 6e 75 65 ow");...continue
1c80: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 64 70 ;.. }..}...dp
1c90: 72 69 6e 74 66 28 22 57 65 20 68 61 76 65 20 65 rintf("We have e
1ca0: 69 74 68 65 72 20 63 6f 6d 70 6c 65 74 65 6c 79 ither completely
1cb0: 20 65 73 74 61 62 6c 69 73 68 65 64 20 74 68 65 established the
1cc0: 20 73 65 73 73 69 6f 6e 20 6f 72 20 63 6f 6d 70 session or comp
1cd0: 6c 65 74 65 6c 79 20 66 61 69 6c 65 64 20 69 74 letely failed it
1ce0: 20 2d 2d 20 74 68 65 72 65 20 69 73 20 6e 6f 20 -- there is no
1cf0: 6d 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 76 65 more need to eve
1d00: 72 20 72 65 74 72 79 20 69 74 20 74 68 6f 75 67 r retry it thoug
1d10: 68 22 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 20 h");..break;.
1d20: 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 }.. switch (
1d30: 72 63 29 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f rc) {..case SSL_
1d40: 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 ERROR_NONE:..
1d50: 20 2f 2a 20 54 68 65 20 54 4c 53 2f 53 53 4c 20 /* The TLS/SSL
1d60: 49 2f 4f 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f I/O operation co
1d70: 6d 70 6c 65 74 65 64 20 73 75 63 63 65 73 73 66 mpleted successf
1d80: 75 6c 6c 79 20 2a 2f 0a 09 20 20 20 20 64 70 72 ully */.. dpr
1d90: 69 6e 74 66 28 22 54 68 65 20 63 6f 6e 6e 65 63 intf("The connec
1da0: 74 69 6f 6e 20 69 73 20 67 6f 6f 64 22 29 3b 0a tion is good");.
1db0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
1dc0: 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 72 65 tr = 0;.. bre
1dd0: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 ak;...case SSL_E
1de0: 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 2f RROR_SSL:.. /
1df0: 2a 20 41 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 * A non-recovera
1e00: 62 6c 65 2c 20 66 61 74 61 6c 20 65 72 72 6f 72 ble, fatal error
1e10: 20 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62 72 in the SSL libr
1e20: 61 72 79 20 6f 63 63 75 72 72 65 64 2c 20 75 73 ary occurred, us
1e30: 75 61 6c 6c 79 20 61 20 70 72 6f 74 6f 63 6f 6c ually a protocol
1e40: 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 64 error */.. d
1e50: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
1e60: 52 5f 53 53 4c 3a 20 47 6f 74 20 70 65 72 6d 61 R_SSL: Got perma
1e70: 6e 65 6e 74 20 66 61 74 61 6c 20 53 53 4c 20 65 nent fatal SSL e
1e80: 72 72 6f 72 2c 20 61 62 6f 72 74 69 6e 67 20 69 rror, aborting i
1e90: 6d 6d 65 64 69 61 74 65 6c 79 22 29 3b 0a 09 20 mmediately");..
1ea0: 20 20 20 69 66 20 28 53 53 4c 5f 67 65 74 5f 76 if (SSL_get_v
1eb0: 65 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 erify_result(sta
1ec0: 74 65 50 74 72 2d 3e 73 73 6c 29 20 21 3d 20 58 tePtr->ssl) != X
1ed0: 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 509_V_OK) {...Tl
1ee0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
1ef0: 2c 20 58 35 30 39 5f 76 65 72 69 66 79 5f 63 65 , X509_verify_ce
1f00: 72 74 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 rt_error_string(
1f10: 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 SSL_get_verify_r
1f20: 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e esult(statePtr->
1f30: 73 73 6c 29 29 29 3b 0a 09 20 20 20 20 7d 0a 09 ssl)));.. }..
1f40: 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 if (backingE
1f50: 72 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 rror != 0) {...T
1f60: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
1f70: 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 r, ERR_reason_er
1f80: 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 ror_string(backi
1f90: 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 ngError));..
1fa0: 7d 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d }.. statePtr-
1fb0: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
1fc0: 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c L_HANDSHAKE_FAIL
1fd0: 45 44 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ED;.. *errorC
1fe0: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 odePtr = ECONNAB
1ff0: 4f 52 54 45 44 3b 0a 09 20 20 20 20 72 65 74 75 ORTED;.. retu
2000: 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 65 20 53 53 rn -1;...case SS
2010: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a L_ERROR_SYSCALL:
2020: 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f .. /* Some no
2030: 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 n-recoverable, f
2040: 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f atal I/O error o
2050: 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 20 20 20 ccurred */..
2060: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
2070: 4f 52 5f 53 59 53 43 41 4c 4c 22 29 3b 0a 0a 09 OR_SYSCALL");...
2080: 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 if (backingE
2090: 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 72 rror == 0 && err
20a0: 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e == 0) {...dprin
20b0: 74 66 28 22 45 4f 46 20 72 65 61 63 68 65 64 22 tf("EOF reached"
20c0: 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 )...*errorCodePt
20d0: 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a r = ECONNRESET;.
20e0: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
20f0: 65 50 74 72 2c 20 22 28 75 6e 65 78 70 65 63 74 ePtr, "(unexpect
2100: 65 64 29 20 45 4f 46 20 72 65 61 63 68 65 64 22 ed) EOF reached"
2110: 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 );... } else
2120: 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 if (backingError
2130: 20 3d 3d 20 30 20 26 26 20 65 72 72 20 3d 3d 20 == 0 && err ==
2140: 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 -1) {...dprintf(
2150: 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 "I/O error occur
2160: 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 6c 75 red (errno = %lu
2170: 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f )", (unsigned lo
2180: 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f ng) Tcl_GetErrno
2190: 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ());...*errorCod
21a0: 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 ePtr = Tcl_GetEr
21b0: 72 6e 6f 28 29 3b 0a 09 09 69 66 20 28 2a 65 72 rno();...if (*er
21c0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 rorCodePtr == EC
21d0: 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 20 20 ONNRESET) {...
21e0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
21f0: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
2200: 09 09 7d 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 ..}...Tls_Error(
2210: 73 74 61 74 65 50 74 72 2c 20 54 63 6c 5f 45 72 statePtr, Tcl_Er
2220: 72 6e 6f 4d 73 67 28 2a 65 72 72 6f 72 43 6f 64 rnoMsg(*errorCod
2230: 65 50 74 72 29 29 3b 0a 0a 09 20 20 20 20 7d 20 ePtr));... }
2240: 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 else {...dprintf
2250: 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 ("I/O error occu
2260: 72 72 65 64 20 28 62 61 63 6b 69 6e 67 45 72 72 rred (backingErr
2270: 6f 72 20 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b or = %lu)", back
2280: 69 6e 67 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 ingError);...*er
2290: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
22a0: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 _GetErrno();...i
22b0: 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 f (*errorCodePtr
22c0: 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 == ECONNRESET)
22d0: 7b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f {... *errorCo
22e0: 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f dePtr = ECONNABO
22f0: 52 54 45 44 3b 0a 09 09 7d 0a 09 09 54 6c 73 5f RTED;...}...Tls_
2300: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
2310: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
2320: 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 _string(backingE
2330: 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 7d 0a 0a rror));.. }..
2340: 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 . statePtr->f
2350: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
2360: 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 HANDSHAKE_FAILED
2370: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 ;.. return -1
2380: 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
2390: 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a OR_ZERO_RETURN:.
23a0: 09 20 20 20 20 2f 2a 20 50 65 65 72 20 68 61 73 . /* Peer has
23b0: 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f 6e 6e closed the conn
23c0: 65 63 74 69 6f 6e 20 62 79 20 73 65 6e 64 69 6e ection by sendin
23d0: 67 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 g the close_noti
23e0: 66 79 20 61 6c 65 72 74 2e 20 43 61 6e 27 74 20 fy alert. Can't
23f0: 72 65 61 64 2c 20 62 75 74 20 63 61 6e 20 77 72 read, but can wr
2400: 69 74 65 2e 20 2a 2f 0a 09 20 20 20 20 2f 2a 20 ite. */.. /*
2410: 4e 65 65 64 20 74 6f 20 72 65 74 75 72 6e 20 61 Need to return a
2420: 6e 20 45 4f 46 2c 20 73 6f 20 63 68 61 6e 6e 65 n EOF, so channe
2430: 6c 20 69 73 20 63 6c 6f 73 65 64 20 77 68 69 63 l is closed whic
2440: 68 20 77 69 6c 6c 20 73 65 6e 64 20 61 6e 20 53 h will send an S
2450: 53 4c 5f 73 68 75 74 64 6f 77 6e 28 29 2e 20 2a SL_shutdown(). *
2460: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
2470: 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 SSL_ERROR_ZERO_R
2480: 45 54 55 52 4e 3a 20 43 6f 6e 6e 65 63 74 20 72 ETURN: Connect r
2490: 65 74 75 72 6e 65 64 20 61 6e 20 69 6e 76 61 6c eturned an inval
24a0: 69 64 20 76 61 6c 75 65 2e 2e 2e 22 29 3b 0a 09 id value...");..
24b0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
24c0: 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a r = ECONNRESET;.
24d0: 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 . Tls_Error(s
24e0: 74 61 74 65 50 74 72 2c 20 22 50 65 65 72 20 68 tatePtr, "Peer h
24f0: 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 6f as closed the co
2500: 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 69 nnection for wri
2510: 74 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 20 ting by sending
2520: 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 the close_notify
2530: 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 72 alert");.. r
2540: 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 65 eturn -1;...case
2550: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
2560: 52 45 41 44 3a 0a 09 20 20 20 20 2f 2a 20 4d 6f READ:.. /* Mo
2570: 72 65 20 64 61 74 61 20 6d 75 73 74 20 62 65 20 re data must be
2580: 72 65 61 64 20 66 72 6f 6d 20 74 68 65 20 75 6e read from the un
2590: 64 65 72 6c 79 69 6e 67 20 42 49 4f 20 6c 61 79 derlying BIO lay
25a0: 65 72 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 63 er in order to c
25b0: 6f 6d 70 6c 65 74 65 20 74 68 65 20 61 63 74 75 omplete the actu
25c0: 61 6c 20 53 53 4c 5f 2a 28 29 20 6f 70 65 72 61 al SSL_*() opera
25d0: 74 69 6f 6e 2e 20 20 2a 2f 0a 09 20 20 20 20 64 tion. */.. d
25e0: 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f printf("SSL_ERRO
25f0: 52 5f 57 41 4e 54 5f 52 45 41 44 22 29 3b 0a 09 R_WANT_READ");..
2600: 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 BIO_set_retr
2610: 79 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 2d y_read(statePtr-
2620: 3e 62 69 6f 29 3b 0a 09 20 20 20 20 2a 65 72 72 >bio);.. *err
2630: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
2640: 49 4e 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 IN;.. dprintf
2650: 28 22 45 52 52 28 25 64 2c 20 25 64 29 20 22 2c ("ERR(%d, %d) ",
2660: 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 rc, *errorCodeP
2670: 74 72 29 3b 0a 09 20 20 20 20 73 74 61 74 65 50 tr);.. stateP
2680: 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f tr->want |= TCL_
2690: 52 45 41 44 41 42 4c 45 3b 0a 09 20 20 20 20 72 READABLE;.. r
26a0: 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 65 eturn -1;...case
26b0: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
26c0: 57 52 49 54 45 3a 0a 09 20 20 20 20 2f 2a 20 54 WRITE:.. /* T
26d0: 68 65 72 65 20 69 73 20 64 61 74 61 20 69 6e 20 here is data in
26e0: 74 68 65 20 53 53 4c 20 62 75 66 66 65 72 20 74 the SSL buffer t
26f0: 68 61 74 20 6d 75 73 74 20 62 65 20 77 72 69 74 hat must be writ
2700: 74 65 6e 20 74 6f 20 74 68 65 20 75 6e 64 65 72 ten to the under
2710: 6c 79 69 6e 67 20 42 49 4f 20 69 6e 20 6f 72 64 lying BIO in ord
2720: 65 72 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 74 er to complete t
2730: 68 65 20 53 53 4c 5f 2a 28 29 20 6f 70 65 72 61 he SSL_*() opera
2740: 74 69 6f 6e 2e 20 2a 2f 0a 09 20 20 20 20 64 70 tion. */.. dp
2750: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
2760: 5f 57 41 4e 54 5f 57 52 49 54 45 22 29 3b 0a 09 _WANT_WRITE");..
2770: 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 BIO_set_retr
2780: 79 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 y_write(statePtr
2790: 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 2a 65 72 ->bio);.. *er
27a0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 rorCodePtr = EAG
27b0: 41 49 4e 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 AIN;.. dprint
27c0: 66 28 22 45 52 52 28 25 64 2c 20 25 64 29 20 22 f("ERR(%d, %d) "
27d0: 2c 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f 64 65 , rc, *errorCode
27e0: 50 74 72 29 3b 0a 09 20 20 20 20 73 74 61 74 65 Ptr);.. state
27f0: 50 74 72 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c Ptr->want |= TCL
2800: 5f 57 52 49 54 41 42 4c 45 3b 0a 09 20 20 20 20 _WRITABLE;..
2810: 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 return -1;...cas
2820: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 e SSL_ERROR_WANT
2830: 5f 43 4f 4e 4e 45 43 54 3a 0a 09 20 20 20 20 2f _CONNECT:.. /
2840: 2a 20 43 6f 6e 6e 65 63 74 20 77 6f 75 6c 64 20 * Connect would
2850: 68 61 76 65 20 62 6c 6f 63 6b 65 64 2e 20 2a 2f have blocked. */
2860: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
2870: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f SL_ERROR_WANT_CO
2880: 4e 4e 45 43 54 22 29 3b 0a 09 20 20 20 20 42 49 NNECT");.. BI
2890: 4f 5f 73 65 74 5f 72 65 74 72 79 5f 73 70 65 63 O_set_retry_spec
28a0: 69 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ial(statePtr->bi
28b0: 6f 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 o);.. BIO_set
28c0: 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 _retry_reason(st
28d0: 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 42 49 4f atePtr->bio, BIO
28e0: 5f 52 52 5f 43 4f 4e 4e 45 43 54 29 3b 0a 09 20 _RR_CONNECT);..
28f0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
2900: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
2910: 64 70 72 69 6e 74 66 28 22 45 52 52 28 25 64 2c dprintf("ERR(%d,
2920: 20 25 64 29 20 22 2c 20 72 63 2c 20 2a 65 72 72 %d) ", rc, *err
2930: 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 20 20 20 orCodePtr);..
2940: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 return -1;...ca
2950: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
2960: 54 5f 41 43 43 45 50 54 3a 0a 09 20 20 20 20 2f T_ACCEPT:.. /
2970: 2a 20 41 63 63 65 70 74 20 77 6f 75 6c 64 20 68 * Accept would h
2980: 61 76 65 20 62 6c 6f 63 6b 65 64 20 2a 2f 0a 09 ave blocked */..
2990: 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c dprintf("SSL
29a0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 _ERROR_WANT_ACCE
29b0: 50 54 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 PT");.. BIO_s
29c0: 65 74 5f 72 65 74 72 79 5f 73 70 65 63 69 61 6c et_retry_special
29d0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
29e0: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
29f0: 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 61 74 65 try_reason(state
2a00: 50 74 72 2d 3e 62 69 6f 2c 20 42 49 4f 5f 52 52 Ptr->bio, BIO_RR
2a10: 5f 41 43 43 45 50 54 29 3b 0a 09 20 20 20 20 2a _ACCEPT);.. *
2a20: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
2a30: 41 47 41 49 4e 3b 0a 09 20 20 20 20 64 70 72 69 AGAIN;.. dpri
2a40: 6e 74 66 28 22 45 52 52 28 25 64 2c 20 25 64 29 ntf("ERR(%d, %d)
2a50: 20 22 2c 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f ", rc, *errorCo
2a60: 64 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74 dePtr);.. ret
2a70: 75 72 6e 20 2d 31 3b 0a 0a 09 63 61 73 65 20 53 urn -1;...case S
2a80: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 SL_ERROR_WANT_X5
2a90: 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 09_LOOKUP:..
2aa0: 2f 2a 20 41 70 70 20 63 61 6c 6c 62 61 63 6b 20 /* App callback
2ab0: 73 65 74 20 62 79 20 53 53 4c 5f 43 54 58 5f 73 set by SSL_CTX_s
2ac0: 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 74 5f 63 et_client_cert_c
2ad0: 62 20 68 61 73 20 61 73 6b 65 64 20 74 6f 20 62 b has asked to b
2ae0: 65 20 63 61 6c 6c 65 64 20 61 67 61 69 6e 20 2a e called again *
2af0: 2f 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f 70 /.. /* The op
2b00: 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 eration did not
2b10: 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 73 65 complete because
2b20: 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 an application
2b30: 63 61 6c 6c 62 61 63 6b 20 73 65 74 20 62 79 20 callback set by
2b40: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 SSL_CTX_set_clie
2b50: 6e 74 5f 63 65 72 74 5f 63 62 28 29 20 68 61 73 nt_cert_cb() has
2b60: 20 61 73 6b 65 64 20 74 6f 20 62 65 20 63 61 6c asked to be cal
2b70: 6c 65 64 20 61 67 61 69 6e 2e 20 2a 2f 0a 09 20 led again. */..
2b80: 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f dprintf("SSL_
2b90: 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f ERROR_WANT_X509_
2ba0: 4c 4f 4f 4b 55 50 22 29 3b 0a 09 20 20 20 20 42 LOOKUP");.. B
2bb0: 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 73 70 65 IO_set_retry_spe
2bc0: 63 69 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 cial(statePtr->b
2bd0: 69 6f 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 io);.. BIO_se
2be0: 74 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 t_retry_reason(s
2bf0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 42 49 tatePtr->bio, BI
2c00: 4f 5f 52 52 5f 53 53 4c 5f 58 35 30 39 5f 4c 4f O_RR_SSL_X509_LO
2c10: 4f 4b 55 50 29 3b 0a 09 20 20 20 20 2a 65 72 72 OKUP);.. *err
2c20: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
2c30: 49 4e 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 IN;.. dprintf
2c40: 28 22 45 52 52 28 25 64 2c 20 25 64 29 20 22 2c ("ERR(%d, %d) ",
2c50: 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 rc, *errorCodeP
2c60: 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tr);.. return
2c70: 20 2d 31 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f -1;...case SSL_
2c80: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 ERROR_WANT_ASYNC
2c90: 3a 0a 09 20 20 20 20 2f 2a 20 55 73 65 64 20 77 :.. /* Used w
2ca0: 69 74 68 20 66 6c 61 67 20 53 53 4c 5f 4d 4f 44 ith flag SSL_MOD
2cb0: 45 5f 41 53 59 4e 43 2c 20 6f 70 20 64 69 64 6e E_ASYNC, op didn
2cc0: 27 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 't complete beca
2cd0: 75 73 65 20 61 6e 20 61 73 79 6e 63 20 65 6e 67 use an async eng
2ce0: 69 6e 65 20 69 73 20 73 74 69 6c 6c 20 70 72 6f ine is still pro
2cf0: 63 65 73 73 69 6e 67 20 64 61 74 61 20 2a 2f 0a cessing data */.
2d00: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
2d10: 57 41 4e 54 5f 41 53 59 4e 43 5f 4a 4f 42 3a 0a WANT_ASYNC_JOB:.
2d20: 09 20 20 20 20 2f 2a 20 54 68 65 20 61 73 79 6e . /* The asyn
2d30: 63 68 72 6f 6e 6f 75 73 20 6a 6f 62 20 63 6f 75 chronous job cou
2d40: 6c 64 20 6e 6f 74 20 62 65 20 73 74 61 72 74 65 ld not be starte
2d50: 64 20 62 65 63 61 75 73 65 20 74 68 65 72 65 20 d because there
2d60: 77 65 72 65 20 6e 6f 20 61 73 79 6e 63 20 6a 6f were no async jo
2d70: 62 73 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 bs available in
2d80: 74 68 65 20 70 6f 6f 6c 2e 20 2a 2f 0a 09 63 61 the pool. */..ca
2d90: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
2da0: 54 5f 43 4c 49 45 4e 54 5f 48 45 4c 4c 4f 5f 43 T_CLIENT_HELLO_C
2db0: 42 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 6f B:.. /* The o
2dc0: 70 65 72 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 peration did not
2dd0: 20 63 6f 6d 70 6c 65 74 65 20 62 65 63 61 75 73 complete becaus
2de0: 65 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e e an application
2df0: 20 63 61 6c 6c 62 61 63 6b 20 73 65 74 20 62 79 callback set by
2e00: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69 SSL_CTX_set_cli
2e10: 65 6e 74 5f 68 65 6c 6c 6f 5f 63 62 28 29 20 68 ent_hello_cb() h
2e20: 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 20 63 as asked to be c
2e30: 61 6c 6c 65 64 20 61 67 61 69 6e 2e 20 2a 2f 0a alled again. */.
2e40: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 #if OPENSSL_VERS
2e50: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 ION_NUMBER >= 0x
2e60: 33 30 30 30 30 30 30 30 4c 0a 09 63 61 73 65 20 30000000L..case
2e70: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 SSL_ERROR_WANT_R
2e80: 45 54 52 59 5f 56 45 52 49 46 59 3a 0a 09 20 20 ETRY_VERIFY:..
2e90: 20 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 69 /* The operati
2ea0: 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c on did not compl
2eb0: 65 74 65 20 62 65 63 61 75 73 65 20 61 20 63 65 ete because a ce
2ec0: 72 74 69 66 69 63 61 74 65 20 76 65 72 69 66 69 rtificate verifi
2ed0: 63 61 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b 20 cation callback
2ee0: 68 61 73 20 61 73 6b 65 64 20 74 6f 20 62 65 20 has asked to be
2ef0: 63 61 6c 6c 65 64 20 61 67 61 69 6e 20 76 69 61 called again via
2f00: 20 53 53 4c 5f 73 65 74 5f 72 65 74 72 79 5f 76 SSL_set_retry_v
2f10: 65 72 69 66 79 28 33 29 2e 20 2a 2f 0a 23 65 6e erify(3). */.#en
2f20: 64 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 dif..default:..
2f30: 20 20 20 2f 2a 20 54 68 65 20 6f 70 65 72 61 74 /* The operat
2f40: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 ion did not comp
2f50: 6c 65 74 65 20 61 6e 64 20 73 68 6f 75 6c 64 20 lete and should
2f60: 62 65 20 72 65 74 72 69 65 64 20 6c 61 74 65 72 be retried later
2f70: 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
2f80: 66 28 22 4f 70 65 72 61 74 69 6f 6e 20 64 69 64 f("Operation did
2f90: 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 2c 20 63 not complete, c
2fa0: 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 67 61 all function aga
2fb0: 69 6e 20 6c 61 74 65 72 3a 20 25 69 22 2c 20 72 in later: %i", r
2fc0: 63 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 c);.. *errorC
2fd0: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
2fe0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 45 .. dprintf("E
2ff0: 52 52 28 25 64 2c 20 25 64 29 20 22 2c 20 72 63 RR(%d, %d) ", rc
3000: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 , *errorCodePtr)
3010: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
3020: 28 73 74 61 74 65 50 74 72 2c 20 22 4f 70 65 72 (statePtr, "Oper
3030: 61 74 69 6f 6e 20 64 69 64 20 6e 6f 74 20 63 6f ation did not co
3040: 6d 70 6c 65 74 65 2c 20 63 61 6c 6c 20 66 75 6e mplete, call fun
3050: 63 74 69 6f 6e 20 61 67 61 69 6e 20 6c 61 74 65 ction again late
3060: 72 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e r");.. return
3070: 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 -1;. }..
3080: 64 70 72 69 6e 74 66 28 22 52 65 6d 6f 76 69 6e dprintf("Removin
3090: 67 20 74 68 65 20 5c 22 54 4c 53 5f 54 43 4c 5f g the \"TLS_TCL_
30a0: 49 4e 49 54 5c 22 20 66 6c 61 67 20 73 69 6e 63 INIT\" flag sinc
30b0: 65 20 77 65 20 68 61 76 65 20 63 6f 6d 70 6c 65 e we have comple
30c0: 74 65 64 20 74 68 65 20 68 61 6e 64 73 68 61 6b ted the handshak
30d0: 65 22 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 e");. statePt
30e0: 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 54 4c 53 r->flags &= ~TLS
30f0: 5f 54 43 4c 5f 49 4e 49 54 3b 0a 0a 20 20 20 20 _TCL_INIT;..
3100: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 dprintf("Returni
3110: 6e 67 20 69 6e 20 73 75 63 63 65 73 73 22 29 3b ng in success");
3120: 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3130: 74 72 20 3d 20 30 3b 0a 20 20 20 20 72 65 74 75 tr = 0;. retu
3140: 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d rn 0;.}../*. *--
3150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
31a0: 2a 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d * TlsInputProc -
31b0: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f -. *. *.This pro
31c0: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
31d0: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
31e0: 20 49 2f 4f 20 6c 61 79 65 72 20 74 6f 20 72 65 I/O layer to re
31f0: 61 64 20 64 61 74 61 20 66 72 6f 6d 0a 20 2a 09 ad data from. *.
3200: 74 68 65 20 42 49 4f 20 77 68 65 6e 65 76 65 72 the BIO whenever
3210: 20 74 68 65 20 54 63 6c 5f 52 65 61 64 28 29 2c the Tcl_Read(),
3220: 20 54 63 6c 5f 52 65 61 64 43 68 61 72 73 2c 20 Tcl_ReadChars,
3230: 54 63 6c 5f 47 65 74 73 2c 20 61 6e 64 0a 20 2a Tcl_Gets, and. *
3240: 09 54 63 6c 5f 47 65 74 73 4f 62 6a 20 66 75 6e .Tcl_GetsObj fun
3250: 63 74 69 6f 6e 73 20 61 72 65 20 75 73 65 64 2e ctions are used.
3260: 20 45 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 53 Equivalent to S
3270: 53 4c 5f 72 65 61 64 5f 65 78 20 61 6e 64 20 53 SL_read_ex and S
3280: 53 4c 5f 72 65 61 64 2e 0a 20 2a 0a 20 2a 20 52 SL_read.. *. * R
3290: 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 esults:. *.Retur
32a0: 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 ns the number of
32b0: 20 62 79 74 65 73 20 72 65 61 64 20 6f 72 20 2d bytes read or -
32c0: 31 20 6f 6e 20 65 72 72 6f 72 2e 20 53 65 74 73 1 on error. Sets
32d0: 20 65 72 72 6f 72 43 6f 64 65 50 74 72 20 74 6f errorCodePtr to
32e0: 0a 20 2a 09 61 20 50 4f 53 49 58 20 65 72 72 6f . *.a POSIX erro
32f0: 72 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 r code if an err
3300: 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 or occurred, or
3310: 30 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 0 if none.. *. *
3320: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3330: 2a 20 20 20 20 52 65 61 64 73 20 69 6e 70 75 74 * Reads input
3340: 20 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 74 20 from the input
3350: 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 device of the ch
3360: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 44 61 74 annel.. *. * Dat
3370: 61 20 69 73 20 72 65 63 65 69 76 65 64 20 69 6e a is received in
3380: 20 77 68 6f 6c 65 20 62 6c 6f 63 6b 73 20 6b 6e whole blocks kn
3390: 6f 77 6e 20 61 73 20 72 65 63 6f 72 64 73 20 66 own as records f
33a0: 72 6f 6d 20 74 68 65 20 70 65 65 72 2e 20 41 20 rom the peer. A
33b0: 77 68 6f 6c 65 0a 20 2a 20 72 65 63 6f 72 64 20 whole. * record
33c0: 69 73 20 70 72 6f 63 65 73 73 65 64 20 28 65 2e is processed (e.
33d0: 67 2e 20 64 65 63 72 79 70 74 65 64 29 20 69 6e g. decrypted) in
33e0: 20 6f 6e 65 20 67 6f 20 61 6e 64 20 69 73 20 62 one go and is b
33f0: 75 66 66 65 72 65 64 20 62 79 20 4f 70 65 6e 53 uffered by OpenS
3400: 53 4c 0a 20 2a 20 75 6e 74 69 6c 20 69 74 20 69 SL. * until it i
3410: 73 20 72 65 61 64 20 62 79 20 74 68 65 20 61 70 s read by the ap
3420: 70 6c 69 63 61 74 69 6f 6e 20 76 69 61 20 61 20 plication via a
3430: 63 61 6c 6c 20 74 6f 20 53 53 4c 5f 72 65 61 64 call to SSL_read
3440: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
3450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3490: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
34a0: 69 6e 74 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 int TlsInputProc
34b0: 28 76 6f 69 64 20 2a 69 6e 73 74 61 6e 63 65 44 (void *instanceD
34c0: 61 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 ata, char *buf,
34d0: 69 6e 74 20 62 75 66 53 69 7a 65 2c 20 69 6e 74 int bufSize, int
34e0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 *errorCodePtr)
34f0: 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c {. unsigned l
3500: 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 ong backingError
3510: 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 ;. State *sta
3520: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
3530: 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a ) instanceData;.
3540: 20 20 20 20 69 6e 74 20 62 79 74 65 73 52 65 61 int bytesRea
3550: 64 2c 20 65 72 72 3b 0a 20 20 20 20 2a 65 72 72 d, err;. *err
3560: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a orCodePtr = 0;..
3570: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 61 dprintf("Rea
3580: 64 28 25 64 29 22 2c 20 62 75 66 53 69 7a 65 29 d(%d)", bufSize)
3590: 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 70 20 69 ;.. /* Skip i
35a0: 66 20 75 73 65 72 20 76 65 72 69 66 79 20 63 61 f user verify ca
35b0: 6c 6c 62 61 63 6b 20 69 73 20 73 74 69 6c 6c 20 llback is still
35c0: 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 20 20 20 69 running */. i
35d0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
35e0: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c gs & TLS_TCL_CAL
35f0: 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e 74 LBACK) {..dprint
3600: 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 72 f("Callback is r
3610: 75 6e 6e 69 6e 67 2c 20 72 65 61 64 69 6e 67 20 unning, reading
3620: 30 20 62 79 74 65 73 22 29 3b 0a 09 72 65 74 75 0 bytes");..retu
3630: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 rn 0;. }..
3640: 20 2f 2a 20 49 66 20 6e 6f 74 20 69 6e 69 74 69 /* If not initi
3650: 61 6c 69 7a 65 64 2c 20 64 6f 20 63 6f 6e 6e 65 alized, do conne
3660: 63 74 20 2a 2f 0a 20 20 20 20 2f 2a 20 43 61 6e ct */. /* Can
3670: 20 61 6c 73 6f 20 63 68 65 63 6b 20 53 53 4c 5f also check SSL_
3680: 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 is_init_finished
3690: 28 73 73 6c 29 20 2a 2f 0a 20 20 20 20 69 66 20 (ssl) */. if
36a0: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
36b0: 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 & TLS_TCL_INIT)
36c0: 20 7b 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 {..int tlsConne
36d0: 63 74 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 ct;...dprintf("C
36e0: 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 alling Tls_WaitF
36f0: 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 0a 09 74 orConnect");...t
3700: 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c 73 5f lsConnect = Tls_
3710: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 WaitForConnect(s
3720: 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f tatePtr, errorCo
3730: 64 65 50 74 72 2c 20 30 29 3b 0a 09 69 66 20 28 dePtr, 0);..if (
3740: 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 tlsConnect < 0)
3750: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
3760: 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 61 69 Got an error wai
3770: 74 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 ting to connect
3780: 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 (tlsConnect = %i
3790: 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 , *errorCodePtr
37a0: 3d 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 = %i)", tlsConne
37b0: 63 74 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 ct, *errorCodePt
37c0: 72 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 r);.. Tls_Err
37d0: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 74 72 or(statePtr, str
37e0: 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64 65 error(*errorCode
37f0: 50 74 72 29 29 3b 0a 0a 09 20 20 20 20 62 79 74 Ptr));... byt
3800: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 esRead = -1;..
3810: 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 if (*errorCode
3820: 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 Ptr == ECONNRESE
3830: 54 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 T) {...dprintf("
3840: 47 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 Got connection r
3850: 65 73 65 74 22 29 3b 0a 09 09 2f 2a 20 53 6f 66 eset");.../* Sof
3860: 74 20 45 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 6f t EOF */...*erro
3870: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 rCodePtr = 0;...
3880: 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 bytesRead = 0;..
3890: 20 20 20 20 7d 0a 09 20 20 20 20 72 65 74 75 72 }.. retur
38a0: 6e 20 62 79 74 65 73 52 65 61 64 3b 0a 09 7d 0a n bytesRead;..}.
38b0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 }.. /*.
38c0: 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 * We need to
38d0: 63 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 clear the SSL er
38e0: 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 ror stack now be
38f0: 63 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d cause we sometim
3900: 65 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a 20 es reach. *
3910: 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 this function wi
3920: 74 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f th leftover erro
3930: 72 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e rs in the stack.
3940: 20 20 49 66 20 42 49 4f 5f 72 65 61 64 0a 20 20 If BIO_read.
3950: 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 * returns -1
3960: 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 and intends EAGA
3970: 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c IN, there is a l
3980: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 eftover error, i
3990: 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a t will be. *
39a0: 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 misconstrued as
39b0: 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 an error, not E
39c0: 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 AGAIN.. *.
39d0: 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 * Alternative
39e0: 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 20 ly, we may want
39f0: 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 to handle the <0
3a00: 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 72 return codes fr
3a10: 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f 72 65 om. * BIO_re
3a20: 61 64 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 ad specially (as
3a30: 20 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 advised in the
3a40: 52 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 RSA docs). TLS'
3a50: 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c 20 42 49 s lower level BI
3a60: 4f 0a 20 20 20 20 20 2a 20 66 75 6e 63 74 69 6f O. * functio
3a70: 6e 73 20 70 6c 61 79 20 77 69 74 68 20 74 68 65 ns play with the
3a80: 20 72 65 74 72 79 20 66 6c 61 67 73 20 74 68 6f retry flags tho
3a90: 75 67 68 2c 20 61 6e 64 20 74 68 69 73 20 73 65 ugh, and this se
3aa0: 65 6d 73 20 74 6f 20 77 6f 72 6b 0a 20 20 20 20 ems to work.
3ab0: 20 2a 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 * correctly. S
3ac0: 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 54 6c imilar fix in Tl
3ad0: 73 4f 75 74 70 75 74 50 72 6f 63 2e 20 2d 20 68 sOutputProc. - h
3ae0: 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 obbs. */.
3af0: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 ERR_clear_error
3b00: 28 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 ();. BIO_clea
3b10: 72 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 73 74 r_retry_flags(st
3b20: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 20 20 atePtr->bio);.
3b30: 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 42 49 bytesRead = BI
3b40: 4f 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 2d O_read(statePtr-
3b50: 3e 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 >bio, buf, bufSi
3b60: 7a 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 ze);. dprintf
3b70: 28 22 42 49 4f 5f 72 65 61 64 20 2d 3e 20 25 64 ("BIO_read -> %d
3b80: 22 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a 0a ", bytesRead);..
3b90: 20 20 20 20 2f 2a 20 53 61 6d 65 20 61 73 20 53 /* Same as S
3ba0: 53 4c 5f 77 61 6e 74 2c 20 62 75 74 20 61 6c 73 SL_want, but als
3bb0: 6f 20 63 68 65 63 6b 73 20 74 68 65 20 65 72 72 o checks the err
3bc0: 6f 72 20 71 75 65 75 65 20 2a 2f 0a 20 20 20 20 or queue */.
3bd0: 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 err = SSL_get_er
3be0: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ror(statePtr->ss
3bf0: 6c 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a 20 l, bytesRead);.
3c00: 20 20 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 backingError
3c10: 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 = ERR_get_error(
3c20: 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 79 74 65 );.. if (byte
3c30: 73 52 65 61 64 20 3c 3d 20 30 29 20 7b 0a 09 2f sRead <= 0) {../
3c40: 2a 20 54 68 65 20 72 65 74 72 79 20 66 6c 61 67 * The retry flag
3c50: 20 69 73 20 73 65 74 20 62 79 20 74 68 65 20 42 is set by the B
3c60: 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 2a 20 66 IO_set_retry_* f
3c70: 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 09 69 66 20 unctions */..if
3c80: 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 (BIO_should_retr
3c90: 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 y(statePtr->bio)
3ca0: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
3cb0: 28 22 52 65 61 64 20 66 61 69 6c 65 64 20 77 69 ("Read failed wi
3cc0: 74 68 20 63 6f 64 65 3d 25 64 2c 20 62 79 74 65 th code=%d, byte
3cd0: 73 20 72 65 61 64 3d 25 64 3a 20 73 68 6f 75 6c s read=%d: shoul
3ce0: 64 20 72 65 74 72 79 22 2c 20 65 72 72 2c 20 62 d retry", err, b
3cf0: 79 74 65 73 52 65 61 64 29 3b 0a 09 20 20 20 20 ytesRead);..
3d00: 2f 2a 20 53 6f 6d 65 20 64 6f 63 73 20 69 6d 70 /* Some docs imp
3d10: 6c 79 20 77 65 20 73 68 6f 75 6c 64 20 72 65 64 ly we should red
3d20: 6f 20 74 68 65 20 42 49 4f 5f 72 65 61 64 20 6e o the BIO_read n
3d30: 6f 77 20 2a 2f 0a 09 7d 20 65 6c 73 65 20 7b 0a ow */..} else {.
3d40: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 . dprintf("Re
3d50: 61 64 20 66 61 69 6c 65 64 20 77 69 74 68 20 63 ad failed with c
3d60: 6f 64 65 3d 25 64 2c 20 62 79 74 65 73 20 72 65 ode=%d, bytes re
3d70: 61 64 3d 25 64 3a 20 65 72 72 6f 72 20 63 6f 6e ad=%d: error con
3d80: 64 69 74 69 6f 6e 22 2c 20 65 72 72 2c 20 62 79 dition", err, by
3d90: 74 65 73 52 65 61 64 29 3b 0a 09 7d 0a 0a 09 64 tesRead);..}...d
3da0: 70 72 69 6e 74 66 28 22 42 49 4f 20 69 73 20 45 printf("BIO is E
3db0: 4f 46 20 25 64 22 2c 20 42 49 4f 5f 65 6f 66 28 OF %d", BIO_eof(
3dc0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 3b statePtr->bio));
3dd0: 0a 0a 09 2f 2a 20 54 68 65 73 65 20 61 72 65 20 .../* These are
3de0: 74 68 65 20 73 61 6d 65 20 61 73 20 42 49 4f 5f the same as BIO_
3df0: 72 65 74 72 79 5f 74 79 70 65 20 2a 2f 0a 09 69 retry_type */..i
3e00: 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 f (BIO_should_re
3e10: 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ad(statePtr->bio
3e20: 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 )) {.. dprint
3e30: 66 28 22 42 49 4f 20 68 61 73 20 69 6e 73 75 66 f("BIO has insuf
3e40: 66 69 63 69 65 6e 74 20 64 61 74 61 20 74 6f 20 ficient data to
3e50: 72 65 61 64 20 61 6e 64 20 72 65 74 75 72 6e 22 read and return"
3e60: 29 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 );.. statePtr
3e70: 2d 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 52 45 ->want |= TCL_RE
3e80: 41 44 41 42 4c 45 3b 0a 09 7d 0a 09 69 66 20 28 ADABLE;..}..if (
3e90: 42 49 4f 5f 73 68 6f 75 6c 64 5f 77 72 69 74 65 BIO_should_write
3ea0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
3eb0: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
3ec0: 22 42 49 4f 20 68 61 73 20 70 65 6e 64 69 6e 67 "BIO has pending
3ed0: 20 64 61 74 61 20 74 6f 20 77 72 69 74 65 22 29 data to write")
3ee0: 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
3ef0: 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 49 >want |= TCL_WRI
3f00: 54 41 42 4c 45 3b 0a 09 7d 0a 09 69 66 20 28 42 TABLE;..}..if (B
3f10: 49 4f 5f 73 68 6f 75 6c 64 5f 69 6f 5f 73 70 65 IO_should_io_spe
3f20: 63 69 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 cial(statePtr->b
3f30: 69 6f 29 29 20 7b 0a 09 20 20 20 20 69 6e 74 20 io)) {.. int
3f40: 72 65 61 73 6f 6e 20 3d 20 42 49 4f 5f 67 65 74 reason = BIO_get
3f50: 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 74 _retry_reason(st
3f60: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 atePtr->bio);..
3f70: 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 20 dprintf("BIO
3f80: 68 61 73 20 73 6f 6d 65 20 73 70 65 63 69 61 6c has some special
3f90: 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 74 68 65 72 condition other
3fa0: 20 74 68 61 6e 20 72 65 61 64 20 6f 72 20 77 72 than read or wr
3fb0: 69 74 65 3a 20 63 6f 64 65 3d 25 64 22 2c 20 72 ite: code=%d", r
3fc0: 65 61 73 6f 6e 29 3b 0a 09 7d 0a 09 64 70 72 69 eason);..}..dpri
3fd0: 6e 74 66 28 22 42 49 4f 20 68 61 73 20 70 65 6e ntf("BIO has pen
3fe0: 64 69 6e 67 20 64 61 74 61 20 74 6f 20 77 72 69 ding data to wri
3ff0: 74 65 22 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 te");. }..
4000: 20 73 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a switch (err) {.
4010: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
4020: 4e 4f 4e 45 3a 0a 09 20 20 20 20 2f 2a 20 49 2f NONE:.. /* I/
4030: 4f 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6d 70 O operation comp
4040: 6c 65 74 65 64 20 2a 2f 0a 09 20 20 20 20 64 70 leted */.. dp
4050: 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 4f 52 rintf("SSL_ERROR
4060: 5f 4e 4f 4e 45 22 29 3b 0a 09 20 20 20 20 64 70 _NONE");.. dp
4070: 72 69 6e 74 42 75 66 66 65 72 28 62 75 66 2c 20 rintBuffer(buf,
4080: 62 79 74 65 73 52 65 61 64 29 3b 0a 09 20 20 20 bytesRead);..
4090: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
40a0: 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 SL_ERROR_SSL:..
40b0: 20 20 20 2f 2a 20 41 20 6e 6f 6e 2d 72 65 63 6f /* A non-reco
40c0: 76 65 72 61 62 6c 65 2c 20 66 61 74 61 6c 20 65 verable, fatal e
40d0: 72 72 6f 72 20 69 6e 20 74 68 65 20 53 53 4c 20 rror in the SSL
40e0: 6c 69 62 72 61 72 79 20 6f 63 63 75 72 72 65 64 library occurred
40f0: 2c 20 75 73 75 61 6c 6c 79 20 61 20 70 72 6f 74 , usually a prot
4100: 6f 63 6f 6c 20 65 72 72 6f 72 20 2a 2f 0a 09 20 ocol error */..
4110: 20 20 20 64 70 72 69 6e 74 66 28 22 53 53 4c 20 dprintf("SSL
4120: 65 72 72 6f 72 2c 20 69 6e 64 69 63 61 74 69 6e error, indicatin
4130: 67 20 74 68 61 74 20 74 68 65 20 63 6f 6e 6e 65 g that the conne
4140: 63 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 61 ction has been a
4150: 62 6f 72 74 65 64 22 29 3b 0a 09 20 20 20 20 69 borted");.. i
4160: 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 f (backingError
4170: 21 3d 20 30 29 20 7b 0a 09 09 54 6c 73 5f 45 72 != 0) {...Tls_Er
4180: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 ror(statePtr, ER
4190: 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 R_reason_error_s
41a0: 74 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 tring(backingErr
41b0: 6f 72 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 or));.. } els
41c0: 65 20 69 66 20 28 53 53 4c 5f 67 65 74 5f 76 65 e if (SSL_get_ve
41d0: 72 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 rify_result(stat
41e0: 65 50 74 72 2d 3e 73 73 6c 29 20 21 3d 20 58 35 ePtr->ssl) != X5
41f0: 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 54 6c 73 09_V_OK) {...Tls
4200: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
4210: 20 58 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 X509_verify_cer
4220: 74 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 53 t_error_string(S
4230: 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 SL_get_verify_re
4240: 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 sult(statePtr->s
4250: 73 6c 29 29 29 3b 0a 09 20 20 20 20 7d 20 65 6c sl)));.. } el
4260: 73 65 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 se {...Tls_Error
4270: 28 73 74 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e (statePtr, "Unkn
4280: 6f 77 6e 20 53 53 4c 20 65 72 72 6f 72 22 29 3b own SSL error");
4290: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 2a 65 72 .. }.. *er
42a0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
42b0: 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 NNABORTED;..
42c0: 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a bytesRead = -1;.
42d0: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
42e0: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 SION_NUMBER >= 0
42f0: 78 33 30 30 30 30 30 30 30 4c 0a 09 20 20 20 20 x30000000L..
4300: 2f 2a 20 55 6e 65 78 70 65 63 74 65 64 20 45 4f /* Unexpected EO
4310: 46 20 66 72 6f 6d 20 74 68 65 20 70 65 65 72 20 F from the peer
4320: 66 6f 72 20 4f 70 65 6e 53 53 4c 20 33 2e 30 2b for OpenSSL 3.0+
4330: 20 2a 2f 0a 09 20 20 20 20 69 66 20 28 45 52 52 */.. if (ERR
4340: 5f 47 45 54 5f 52 45 41 53 4f 4e 28 62 61 63 6b _GET_REASON(back
4350: 69 6e 67 45 72 72 6f 72 29 20 3d 3d 20 53 53 4c ingError) == SSL
4360: 5f 52 5f 55 4e 45 58 50 45 43 54 45 44 5f 45 4f _R_UNEXPECTED_EO
4370: 46 5f 57 48 49 4c 45 5f 52 45 41 44 49 4e 47 29 F_WHILE_READING)
4380: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 28 55 {...dprintf("(U
4390: 6e 65 78 70 65 63 74 65 64 29 20 45 4f 46 20 72 nexpected) EOF r
43a0: 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 72 6f eached")...*erro
43b0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 rCodePtr = 0;...
43c0: 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 bytesRead = 0;..
43d0: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
43e0: 50 74 72 2c 20 22 45 4f 46 20 72 65 61 63 68 65 Ptr, "EOF reache
43f0: 64 22 29 3b 0a 09 20 20 20 20 7d 0a 23 65 6e 64 d");.. }.#end
4400: 69 66 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a if.. break;..
4410: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
4420: 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 20 20 WANT_READ:..
4430: 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 20 63 6f /* Op did not co
4440: 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 6e 6f mplete due to no
4450: 74 20 65 6e 6f 75 67 68 20 64 61 74 61 20 77 61 t enough data wa
4460: 73 20 61 76 61 69 6c 61 62 6c 65 2e 20 52 65 74 s available. Ret
4470: 72 79 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 20 ry later. */..
4480: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
4490: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
44a0: 41 44 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 73 AD, mapping this
44b0: 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 to EAGAIN");..
44c0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
44d0: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
44e0: 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a bytesRead = -1;.
44f0: 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 . statePtr->w
4500: 61 6e 74 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ant |= TCL_READA
4510: 42 4c 45 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 BLE;.. Tls_Er
4520: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 ror(statePtr, "S
4530: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
4540: 41 44 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 AD");.. BIO_s
4550: 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 73 74 et_retry_read(st
4560: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 atePtr->bio);..
4570: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 break;...case
4580: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f SSL_ERROR_WANT_
4590: 57 52 49 54 45 3a 0a 09 20 20 20 20 2f 2a 20 4f WRITE:.. /* O
45a0: 70 20 64 69 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 p did not comple
45b0: 74 65 20 64 75 65 20 74 6f 20 75 6e 61 62 6c 65 te due to unable
45c0: 20 74 6f 20 73 65 6e 64 20 61 6c 6c 20 64 61 74 to send all dat
45d0: 61 20 74 6f 20 74 68 65 20 42 49 4f 2e 20 52 65 a to the BIO. Re
45e0: 74 72 79 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 try later. */..
45f0: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
4600: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 SSL_ERROR_WANT_W
4610: 52 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 74 68 RITE, mapping th
4620: 69 73 20 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a is to EAGAIN");.
4630: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
4640: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 tr = EAGAIN;..
4650: 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 bytesRead = -1
4660: 3b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
4670: 3e 77 61 6e 74 20 7c 3d 20 54 43 4c 5f 57 52 49 >want |= TCL_WRI
4680: 54 41 42 4c 45 3b 0a 09 20 20 20 20 54 6c 73 5f TABLE;.. Tls_
4690: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
46a0: 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f "SSL_ERROR_WANT_
46b0: 57 52 49 54 45 22 29 3b 0a 09 20 20 20 20 42 49 WRITE");.. BI
46c0: 4f 5f 73 65 74 5f 72 65 74 72 79 5f 77 72 69 74 O_set_retry_writ
46d0: 65 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 e(statePtr->bio)
46e0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
46f0: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
4700: 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a ANT_X509_LOOKUP:
4710: 0a 09 20 20 20 20 2f 2a 20 4f 70 20 64 69 64 6e .. /* Op didn
4720: 27 74 20 63 6f 6d 70 6c 65 74 65 20 73 69 6e 63 't complete sinc
4730: 65 20 63 61 6c 6c 62 61 63 6b 20 73 65 74 20 62 e callback set b
4740: 79 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c y SSL_CTX_set_cl
4750: 69 65 6e 74 5f 63 65 72 74 5f 63 62 28 29 20 61 ient_cert_cb() a
4760: 73 6b 65 64 20 74 6f 20 62 65 20 63 61 6c 6c 65 sked to be calle
4770: 64 20 61 67 61 69 6e 20 2a 2f 0a 09 20 20 20 20 d again */..
4780: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c dprintf("Got SSL
4790: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 _ERROR_WANT_X509
47a0: 5f 4c 4f 4f 4b 55 50 2c 20 6d 61 70 70 69 6e 67 _LOOKUP, mapping
47b0: 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 29 3b it to EAGAIN");
47c0: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
47d0: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 Ptr = EAGAIN;..
47e0: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 2d bytesRead = -
47f0: 31 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 1;.. Tls_Erro
4800: 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 4c r(statePtr, "SSL
4810: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 _ERROR_WANT_X509
4820: 5f 4c 4f 4f 4b 55 50 22 29 3b 0a 09 20 20 20 20 _LOOKUP");..
4830: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
4840: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a L_ERROR_SYSCALL:
4850: 0a 09 20 20 20 20 2f 2a 20 53 6f 6d 65 20 6e 6f .. /* Some no
4860: 6e 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 n-recoverable, f
4870: 61 74 61 6c 20 49 2f 4f 20 65 72 72 6f 72 20 6f atal I/O error o
4880: 63 63 75 72 72 65 64 20 2a 2f 0a 09 20 20 20 20 ccurred */..
4890: 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52 52 dprintf("SSL_ERR
48a0: 4f 52 5f 53 59 53 43 41 4c 4c 22 29 3b 0a 0a 09 OR_SYSCALL");...
48b0: 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 if (backingE
48c0: 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 62 79 74 rror == 0 && byt
48d0: 65 73 52 65 61 64 20 3d 3d 20 30 29 20 7b 0a 09 esRead == 0) {..
48e0: 09 2f 2a 20 55 6e 65 78 70 65 63 74 65 64 20 45 ./* Unexpected E
48f0: 4f 46 20 66 72 6f 6d 20 74 68 65 20 70 65 65 72 OF from the peer
4900: 20 66 6f 72 20 4f 70 65 6e 53 53 4c 20 31 2e 31 for OpenSSL 1.1
4910: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 28 */...dprintf("(
4920: 55 6e 65 78 70 65 63 74 65 64 29 20 45 4f 46 20 Unexpected) EOF
4930: 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 72 reached")...*err
4940: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 orCodePtr = 0;..
4950: 09 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a .bytesRead = 0;.
4960: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
4970: 65 50 74 72 2c 20 22 45 4f 46 20 72 65 61 63 68 ePtr, "EOF reach
4980: 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c ed");... } el
4990: 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 se if (backingEr
49a0: 72 6f 72 20 3d 3d 20 30 20 26 26 20 62 79 74 65 ror == 0 && byte
49b0: 73 52 65 61 64 20 3d 3d 20 2d 31 29 20 7b 0a 09 sRead == -1) {..
49c0: 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 .dprintf("I/O er
49d0: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 ror occurred (er
49e0: 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e rno = %lu)", (un
49f0: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c signed long) Tcl
4a00: 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 _GetErrno());...
4a10: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
4a20: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a Tcl_GetErrno();.
4a30: 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 ..bytesRead = -1
4a40: 3b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 ;...Tls_Error(st
4a50: 61 74 65 50 74 72 2c 20 54 63 6c 5f 45 72 72 6e atePtr, Tcl_Errn
4a60: 6f 4d 73 67 28 2a 65 72 72 6f 72 43 6f 64 65 50 oMsg(*errorCodeP
4a70: 74 72 29 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c tr));... } el
4a80: 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 se {...dprintf("
4a90: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 I/O error occurr
4aa0: 65 64 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 ed (backingError
4ab0: 20 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e = %lu)", backin
4ac0: 67 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 72 6f gError);...*erro
4ad0: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
4ae0: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79 74 etErrno();...byt
4af0: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 54 esRead = -1;...T
4b00: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
4b10: 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 r, ERR_reason_er
4b20: 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 ror_string(backi
4b30: 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 ngError));..
4b40: 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 }.. break;...
4b50: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a case SSL_ERROR_Z
4b60: 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 ERO_RETURN:..
4b70: 20 2f 2a 20 50 65 65 72 20 68 61 73 20 63 6c 6f /* Peer has clo
4b80: 73 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 sed the connecti
4b90: 6f 6e 20 62 79 20 73 65 6e 64 69 6e 67 20 74 68 on by sending th
4ba0: 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 79 20 61 e close_notify a
4bb0: 6c 65 72 74 2e 20 43 61 6e 27 74 20 72 65 61 64 lert. Can't read
4bc0: 2c 20 62 75 74 20 63 61 6e 20 77 72 69 74 65 2e , but can write.
4bd0: 20 2a 2f 0a 09 20 20 20 20 2f 2a 20 4e 65 65 64 */.. /* Need
4be0: 20 74 6f 20 72 65 74 75 72 6e 20 61 6e 20 45 4f to return an EO
4bf0: 46 2c 20 73 6f 20 63 68 61 6e 6e 65 6c 20 69 73 F, so channel is
4c00: 20 63 6c 6f 73 65 64 20 77 68 69 63 68 20 77 69 closed which wi
4c10: 6c 6c 20 73 65 6e 64 20 61 6e 20 53 53 4c 5f 73 ll send an SSL_s
4c20: 68 75 74 64 6f 77 6e 28 29 2e 20 2a 2f 0a 09 20 hutdown(). */..
4c30: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
4c40: 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 SSL_ERROR_ZERO_R
4c50: 45 54 55 52 4e 2c 20 74 68 69 73 20 6d 65 61 6e ETURN, this mean
4c60: 73 20 61 6e 20 45 4f 46 20 68 61 73 20 62 65 65 s an EOF has bee
4c70: 6e 20 72 65 61 63 68 65 64 22 29 3b 0a 09 20 20 n reached");..
4c80: 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 3b bytesRead = 0;
4c90: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
4ca0: 50 74 72 20 3d 20 30 3b 0a 09 20 20 20 20 54 6c Ptr = 0;.. Tl
4cb0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
4cc0: 2c 20 22 50 65 65 72 20 68 61 73 20 63 6c 6f 73 , "Peer has clos
4cd0: 65 64 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f ed the connectio
4ce0: 6e 20 66 6f 72 20 77 72 69 74 69 6e 67 20 62 79 n for writing by
4cf0: 20 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f sending the clo
4d00: 73 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 22 se_notify alert"
4d10: 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a );.. break;..
4d20: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
4d30: 57 41 4e 54 5f 41 53 59 4e 43 3a 0a 09 20 20 20 WANT_ASYNC:..
4d40: 20 2f 2a 20 55 73 65 64 20 77 69 74 68 20 66 6c /* Used with fl
4d50: 61 67 20 53 53 4c 5f 4d 4f 44 45 5f 41 53 59 4e ag SSL_MODE_ASYN
4d60: 43 2c 20 6f 70 20 64 69 64 6e 27 74 20 63 6f 6d C, op didn't com
4d70: 70 6c 65 74 65 20 62 65 63 61 75 73 65 20 61 6e plete because an
4d80: 20 61 73 79 6e 63 20 65 6e 67 69 6e 65 20 69 73 async engine is
4d90: 20 73 74 69 6c 6c 20 70 72 6f 63 65 73 73 69 6e still processin
4da0: 67 20 64 61 74 61 20 2a 2f 0a 09 20 20 20 20 64 g data */.. d
4db0: 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f printf("Got SSL_
4dc0: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 4e 43 ERROR_WANT_ASYNC
4dd0: 2c 20 6d 61 70 70 69 6e 67 20 74 68 69 73 20 74 , mapping this t
4de0: 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 o EAGAIN");..
4df0: 20 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b bytesRead = -1;
4e00: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
4e10: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 Ptr = EAGAIN;..
4e20: 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 Tls_Error(sta
4e30: 74 65 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 4f tePtr, "SSL_ERRO
4e40: 52 5f 57 41 4e 54 5f 41 53 59 4e 43 22 29 3b 0a R_WANT_ASYNC");.
4e50: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 64 65 . break;...de
4e60: 66 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 69 fault:.. dpri
4e70: 6e 74 66 28 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 ntf("Unknown err
4e80: 6f 72 20 28 65 72 72 20 3d 20 25 69 29 2c 20 6d or (err = %i), m
4e90: 61 70 70 69 6e 67 20 74 6f 20 45 4f 46 22 2c 20 apping to EOF",
4ea0: 65 72 72 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f err);.. *erro
4eb0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20 rCodePtr = 0;..
4ec0: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 30 bytesRead = 0
4ed0: 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 ;.. Tls_Error
4ee0: 28 73 74 61 74 65 50 74 72 2c 20 22 55 6e 6b 6e (statePtr, "Unkn
4ef0: 6f 77 6e 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 own error");..
4f00: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a break;. }..
4f10: 20 20 20 20 64 70 72 69 6e 74 66 28 22 49 6e 70 dprintf("Inp
4f20: 75 74 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 64 ut(%d) -> %d [%d
4f30: 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 74 ]", bufSize, byt
4f40: 65 73 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 6f esRead, *errorCo
4f50: 64 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 dePtr);. retu
4f60: 72 6e 20 62 79 74 65 73 52 65 61 64 3b 0a 7d 0a rn bytesRead;.}.
4f70: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
4f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fc0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f 75 74 ---. *. * TlsOut
4fd0: 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a putProc --. *. *
4fe0: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 .This procedure
4ff0: 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 is invoked by th
5000: 65 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c 61 e generic I/O la
5010: 79 65 72 20 74 6f 20 77 72 69 74 65 20 64 61 74 yer to write dat
5020: 61 20 74 6f 20 74 68 65 0a 20 2a 09 42 49 4f 20 a to the. *.BIO
5030: 77 68 65 6e 65 76 65 72 20 74 68 65 20 74 68 65 whenever the the
5040: 20 54 63 6c 5f 57 72 69 74 65 28 29 2c 20 54 63 Tcl_Write(), Tc
5050: 6c 5f 57 72 69 74 65 43 68 61 72 73 2c 20 61 6e l_WriteChars, an
5060: 64 20 54 63 6c 5f 57 72 69 74 65 4f 62 6a 0a 20 d Tcl_WriteObj.
5070: 2a 09 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 *.functions are
5080: 75 73 65 64 2e 20 45 71 75 69 76 61 6c 65 6e 74 used. Equivalent
5090: 20 74 6f 20 53 53 4c 5f 77 72 69 74 65 5f 65 78 to SSL_write_ex
50a0: 20 61 6e 64 20 53 53 4c 5f 77 72 69 74 65 2e 0a and SSL_write..
50b0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
50c0: 2a 20 20 20 20 52 65 74 75 72 6e 73 20 74 68 65 * Returns the
50d0: 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 number of bytes
50e0: 20 77 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 6f written or -1 o
50f0: 6e 20 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 n error. Sets er
5100: 72 6f 72 43 6f 64 65 50 74 72 0a 20 2a 20 20 20 rorCodePtr. *
5110: 20 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f to a POSIX erro
5120: 72 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 r code if an err
5130: 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 or occurred, or
5140: 30 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 0 if none.. *. *
5150: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
5160: 2a 20 20 20 20 57 72 69 74 65 73 20 6f 75 74 70 * Writes outp
5170: 75 74 20 6f 6e 20 74 68 65 20 6f 75 74 70 75 74 ut on the output
5180: 20 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 device of the c
5190: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d hannel.. *. *---
51a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
51f0: 74 61 74 69 63 20 69 6e 74 20 54 6c 73 4f 75 74 tatic int TlsOut
5200: 70 75 74 50 72 6f 63 28 76 6f 69 64 20 2a 69 6e putProc(void *in
5210: 73 74 61 6e 63 65 44 61 74 61 2c 20 63 6f 6e 73 stanceData, cons
5220: 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 t char *buf, int
5230: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 toWrite, int *e
5240: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 rrorCodePtr) {.
5250: 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 unsigned long
5260: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 backingError;.
5270: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
5280: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
5290: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 nstanceData;.
52a0: 20 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 65 72 int written, er
52b0: 72 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 r;. *errorCod
52c0: 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 ePtr = 0;.. d
52d0: 70 72 69 6e 74 66 28 22 57 72 69 74 65 28 25 70 printf("Write(%p
52e0: 2c 20 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 , %d)", (void *)
52f0: 20 73 74 61 74 65 50 74 72 2c 20 74 6f 57 72 69 statePtr, toWri
5300: 74 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 42 te);. dprintB
5310: 75 66 66 65 72 28 62 75 66 2c 20 74 6f 57 72 69 uffer(buf, toWri
5320: 74 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 te);.. /* Ski
5330: 70 20 69 66 20 75 73 65 72 20 76 65 72 69 66 79 p if user verify
5340: 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 73 74 69 callback is sti
5350: 6c 6c 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 20 ll running */.
5360: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
5370: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
5380: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
5390: 69 6e 74 66 28 22 44 6f 6e 27 74 20 70 72 6f 63 intf("Don't proc
53a0: 65 73 73 20 6f 75 74 70 75 74 20 77 68 69 6c 65 ess output while
53b0: 20 63 61 6c 6c 62 61 63 6b 73 20 61 72 65 20 72 callbacks are r
53c0: 75 6e 6e 69 6e 67 22 29 3b 0a 09 77 72 69 74 74 unning");..writt
53d0: 65 6e 20 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f 72 en = -1;..*error
53e0: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e CodePtr = EAGAIN
53f0: 3b 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 ;..return -1;.
5400: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e }.. /* If n
5410: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 ot initialized,
5420: 64 6f 20 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 do connect */.
5430: 20 20 2f 2a 20 43 61 6e 20 61 6c 73 6f 20 63 68 /* Can also ch
5440: 65 63 6b 20 53 53 4c 5f 69 73 5f 69 6e 69 74 5f eck SSL_is_init_
5450: 66 69 6e 69 73 68 65 64 28 73 73 6c 29 20 2a 2f finished(ssl) */
5460: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
5470: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
5480: 43 4c 5f 49 4e 49 54 29 20 7b 0a 09 69 6e 74 20 CL_INIT) {..int
5490: 74 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 09 64 70 tlsConnect;...dp
54a0: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 rintf("Calling T
54b0: 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 ls_WaitForConnec
54c0: 74 22 29 3b 0a 0a 09 74 6c 73 43 6f 6e 6e 65 63 t");...tlsConnec
54d0: 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 t = Tls_WaitForC
54e0: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c onnect(statePtr,
54f0: 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 31 errorCodePtr, 1
5500: 29 3b 0a 09 69 66 20 28 74 6c 73 43 6f 6e 6e 65 );..if (tlsConne
5510: 63 74 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 64 ct < 0) {.. d
5520: 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 printf("Got an e
5530: 72 72 6f 72 20 77 61 69 74 69 6e 67 20 74 6f 20 rror waiting to
5540: 63 6f 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e connect (tlsConn
5550: 65 63 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 ect = %i, *error
5560: 43 6f 64 65 50 74 72 20 3d 20 25 69 29 22 2c 20 CodePtr = %i)",
5570: 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 tlsConnect, *err
5580: 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 20 20 20 orCodePtr);..
5590: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
55a0: 50 74 72 2c 20 73 74 72 65 72 72 6f 72 28 2a 65 Ptr, strerror(*e
55b0: 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a rrorCodePtr));..
55c0: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
55d0: 31 3b 0a 09 20 20 20 20 69 66 20 28 2a 65 72 72 1;.. if (*err
55e0: 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f orCodePtr == ECO
55f0: 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 64 70 72 NNRESET) {...dpr
5600: 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 63 intf("Got connec
5610: 74 69 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 09 tion reset");...
5620: 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 /* Soft EOF */..
5630: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
5640: 20 30 3b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 0;...written =
5650: 30 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 72 0;.. }.. r
5660: 65 74 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a 09 eturn written;..
5670: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 }. }.. if
5680: 28 74 6f 57 72 69 74 65 20 3d 3d 20 30 29 20 7b (toWrite == 0) {
5690: 0a 09 64 70 72 69 6e 74 66 28 22 7a 65 72 6f 2d ..dprintf("zero-
56a0: 77 72 69 74 65 22 29 3b 0a 09 65 72 72 20 3d 20 write");..err =
56b0: 42 49 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 50 BIO_flush(stateP
56c0: 74 72 2d 3e 62 69 6f 29 3b 0a 0a 09 69 66 20 28 tr->bio);...if (
56d0: 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 err <= 0) {..
56e0: 20 64 70 72 69 6e 74 66 28 22 46 6c 75 73 68 69 dprintf("Flushi
56f0: 6e 67 20 66 61 69 6c 65 64 22 29 3b 0a 09 20 20 ng failed");..
5700: 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 Tls_Error(stat
5710: 65 50 74 72 2c 20 22 46 6c 75 73 68 20 66 61 69 ePtr, "Flush fai
5720: 6c 65 64 22 29 3b 0a 0a 09 20 20 20 20 2a 65 72 led");... *er
5730: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4f rorCodePtr = EIO
5740: 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d ;.. written =
5750: 20 30 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 0;.. return
5760: 2d 31 3b 0a 09 7d 0a 0a 09 77 72 69 74 74 65 6e -1;..}...written
5770: 20 3d 20 30 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 = 0;..*errorCod
5780: 65 50 74 72 20 3d 20 30 3b 0a 09 72 65 74 75 72 ePtr = 0;..retur
5790: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
57a0: 2f 2a 0a 20 20 20 20 20 2a 20 57 65 20 6e 65 65 /*. * We nee
57b0: 64 20 74 6f 20 63 6c 65 61 72 20 74 68 65 20 53 d to clear the S
57c0: 53 4c 20 65 72 72 6f 72 20 73 74 61 63 6b 20 6e SL error stack n
57d0: 6f 77 20 62 65 63 61 75 73 65 20 77 65 20 73 6f ow because we so
57e0: 6d 65 74 69 6d 65 73 20 72 65 61 63 68 0a 20 20 metimes reach.
57f0: 20 20 20 2a 20 74 68 69 73 20 66 75 6e 63 74 69 * this functi
5800: 6f 6e 20 77 69 74 68 20 6c 65 66 74 6f 76 65 72 on with leftover
5810: 20 65 72 72 6f 72 73 20 69 6e 20 74 68 65 20 73 errors in the s
5820: 74 61 63 6b 2e 20 20 49 66 20 42 49 4f 5f 77 72 tack. If BIO_wr
5830: 69 74 65 0a 20 20 20 20 20 2a 20 72 65 74 75 72 ite. * retur
5840: 6e 73 20 2d 31 20 61 6e 64 20 69 6e 74 65 6e 64 ns -1 and intend
5850: 73 20 45 41 47 41 49 4e 2c 20 74 68 65 72 65 20 s EAGAIN, there
5860: 69 73 20 61 20 6c 65 66 74 6f 76 65 72 20 65 72 is a leftover er
5870: 72 6f 72 2c 20 69 74 20 77 69 6c 6c 20 62 65 0a ror, it will be.
5880: 20 20 20 20 20 2a 20 6d 69 73 63 6f 6e 73 74 72 * misconstr
5890: 75 65 64 20 61 73 20 61 6e 20 65 72 72 6f 72 2c ued as an error,
58a0: 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a 20 20 20 not EAGAIN..
58b0: 20 20 2a 0a 20 20 20 20 20 2a 20 41 6c 74 65 72 *. * Alter
58c0: 6e 61 74 69 76 65 6c 79 2c 20 77 65 20 6d 61 79 natively, we may
58d0: 20 77 61 6e 74 20 74 6f 20 68 61 6e 64 6c 65 20 want to handle
58e0: 74 68 65 20 3c 30 20 72 65 74 75 72 6e 20 63 6f the <0 return co
58f0: 64 65 73 20 66 72 6f 6d 0a 20 20 20 20 20 2a 20 des from. *
5900: 42 49 4f 5f 77 72 69 74 65 20 73 70 65 63 69 61 BIO_write specia
5910: 6c 6c 79 20 28 61 73 20 61 64 76 69 73 65 64 20 lly (as advised
5920: 69 6e 20 74 68 65 20 52 53 41 20 64 6f 63 73 29 in the RSA docs)
5930: 2e 20 20 54 4c 53 27 73 20 6c 6f 77 65 72 20 6c . TLS's lower l
5940: 65 76 65 6c 0a 20 20 20 20 20 2a 20 42 49 4f 20 evel. * BIO
5950: 66 75 6e 63 74 69 6f 6e 73 20 70 6c 61 79 20 77 functions play w
5960: 69 74 68 20 74 68 65 20 72 65 74 72 79 20 66 6c ith the retry fl
5970: 61 67 73 20 74 68 6f 75 67 68 2c 20 61 6e 64 20 ags though, and
5980: 74 68 69 73 20 73 65 65 6d 73 20 74 6f 0a 20 20 this seems to.
5990: 20 20 20 2a 20 77 6f 72 6b 20 63 6f 72 72 65 63 * work correc
59a0: 74 6c 79 2e 20 20 53 69 6d 69 6c 61 72 20 66 69 tly. Similar fi
59b0: 78 20 69 6e 20 54 6c 73 49 6e 70 75 74 50 72 6f x in TlsInputPro
59c0: 63 2e 20 2d 20 68 6f 62 62 73 0a 20 20 20 20 20 c. - hobbs.
59d0: 2a 2f 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 */. ERR_clear
59e0: 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 20 42 49 _error();. BI
59f0: 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 5f 66 6c O_clear_retry_fl
5a00: 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ags(statePtr->bi
5a10: 6f 29 3b 0a 20 20 20 20 77 72 69 74 74 65 6e 20 o);. written
5a20: 3d 20 42 49 4f 5f 77 72 69 74 65 28 73 74 61 74 = BIO_write(stat
5a30: 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 ePtr->bio, buf,
5a40: 74 6f 57 72 69 74 65 29 3b 0a 20 20 20 20 64 70 toWrite);. dp
5a50: 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 69 74 65 rintf("BIO_write
5a60: 28 25 70 2c 20 25 64 29 20 2d 3e 20 5b 25 64 5d (%p, %d) -> [%d]
5a70: 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 ", (void *) stat
5a80: 65 50 74 72 2c 20 74 6f 57 72 69 74 65 2c 20 77 ePtr, toWrite, w
5a90: 72 69 74 74 65 6e 29 3b 0a 0a 20 20 20 20 2f 2a ritten);.. /*
5aa0: 20 53 61 6d 65 20 61 73 20 53 53 4c 5f 77 61 6e Same as SSL_wan
5ab0: 74 2c 20 62 75 74 20 61 6c 73 6f 20 63 68 65 63 t, but also chec
5ac0: 6b 73 20 74 68 65 20 65 72 72 6f 72 20 71 75 65 ks the error que
5ad0: 75 65 20 2a 2f 0a 20 20 20 20 65 72 72 20 3d 20 ue */. err =
5ae0: 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 SSL_get_error(st
5af0: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 atePtr->ssl, wri
5b00: 74 74 65 6e 29 3b 0a 20 20 20 20 62 61 63 6b 69 tten);. backi
5b10: 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65 ngError = ERR_ge
5b20: 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 t_error();..
5b30: 69 66 20 28 77 72 69 74 74 65 6e 20 3c 3d 20 30 if (written <= 0
5b40: 29 20 7b 0a 09 2f 2a 20 54 68 65 20 72 65 74 72 ) {../* The retr
5b50: 79 20 66 6c 61 67 20 69 73 20 73 65 74 20 62 79 y flag is set by
5b60: 20 74 68 65 20 42 49 4f 5f 73 65 74 5f 72 65 74 the BIO_set_ret
5b70: 72 79 5f 2a 20 66 75 6e 63 74 69 6f 6e 73 20 2a ry_* functions *
5b80: 2f 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c /..if (BIO_shoul
5b90: 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 d_retry(statePtr
5ba0: 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 64 ->bio)) {.. d
5bb0: 70 72 69 6e 74 66 28 22 57 72 69 74 65 20 66 61 printf("Write fa
5bc0: 69 6c 65 64 20 77 69 74 68 20 63 6f 64 65 20 25 iled with code %
5bd0: 64 2c 20 62 79 74 65 73 20 77 72 69 74 74 65 6e d, bytes written
5be0: 3d 25 64 3a 20 73 68 6f 75 6c 64 20 72 65 74 72 =%d: should retr
5bf0: 79 22 2c 20 65 72 72 2c 20 77 72 69 74 74 65 6e y", err, written
5c00: 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 );..} else {..
5c10: 20 20 64 70 72 69 6e 74 66 28 22 57 72 69 74 65 dprintf("Write
5c20: 20 66 61 69 6c 65 64 20 77 69 74 68 20 63 6f 64 failed with cod
5c30: 65 20 25 64 2c 20 62 79 74 65 73 20 77 72 69 74 e %d, bytes writ
5c40: 74 65 6e 3d 25 64 3a 20 65 72 72 6f 72 20 63 6f ten=%d: error co
5c50: 6e 64 69 74 69 6f 6e 22 2c 20 65 72 72 2c 20 77 ndition", err, w
5c60: 72 69 74 74 65 6e 29 3b 0a 09 7d 0a 0a 09 2f 2a ritten);..}.../*
5c70: 20 54 68 65 73 65 20 61 72 65 20 74 68 65 20 73 These are the s
5c80: 61 6d 65 20 61 73 20 42 49 4f 5f 72 65 74 72 79 ame as BIO_retry
5c90: 5f 74 79 70 65 20 2a 2f 0a 09 69 66 20 28 42 49 _type */..if (BI
5ca0: 4f 5f 73 68 6f 75 6c 64 5f 72 65 61 64 28 73 74 O_should_read(st
5cb0: 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a atePtr->bio)) {.
5cc0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 . dprintf("BI
5cd0: 4f 20 68 61 73 20 69 6e 73 75 66 66 69 63 69 65 O has insufficie
5ce0: 6e 74 20 64 61 74 61 20 74 6f 20 72 65 61 64 20 nt data to read
5cf0: 61 6e 64 20 72 65 74 75 72 6e 22 29 3b 0a 09 7d and return");..}
5d00: 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 ..if (BIO_should
5d10: 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d _write(statePtr-
5d20: 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 >bio)) {.. dp
5d30: 72 69 6e 74 66 28 22 42 49 4f 20 68 61 73 20 70 rintf("BIO has p
5d40: 65 6e 64 69 6e 67 20 64 61 74 61 20 74 6f 20 77 ending data to w
5d50: 72 69 74 65 22 29 3b 0a 09 7d 0a 09 69 66 20 28 rite");..}..if (
5d60: 42 49 4f 5f 73 68 6f 75 6c 64 5f 69 6f 5f 73 70 BIO_should_io_sp
5d70: 65 63 69 61 6c 28 73 74 61 74 65 50 74 72 2d 3e ecial(statePtr->
5d80: 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 69 6e 74 bio)) {.. int
5d90: 20 72 65 61 73 6f 6e 20 3d 20 42 49 4f 5f 67 65 reason = BIO_ge
5da0: 74 5f 72 65 74 72 79 5f 72 65 61 73 6f 6e 28 73 t_retry_reason(s
5db0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 tatePtr->bio);..
5dc0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
5dd0: 20 68 61 73 20 73 6f 6d 65 20 73 70 65 63 69 61 has some specia
5de0: 6c 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 74 68 65 l condition othe
5df0: 72 20 74 68 61 6e 20 72 65 61 64 20 6f 72 20 77 r than read or w
5e00: 72 69 74 65 3a 20 63 6f 64 65 3d 25 64 22 2c 20 rite: code=%d",
5e10: 72 65 61 73 6f 6e 29 3b 0a 09 7d 0a 09 64 70 72 reason);..}..dpr
5e20: 69 6e 74 66 28 22 42 49 4f 20 68 61 73 20 70 65 intf("BIO has pe
5e30: 6e 64 69 6e 67 20 64 61 74 61 20 74 6f 20 77 72 nding data to wr
5e40: 69 74 65 22 29 3b 0a 0a 20 20 20 20 7d 20 65 6c ite");.. } el
5e50: 73 65 20 7b 0a 09 42 49 4f 5f 66 6c 75 73 68 28 se {..BIO_flush(
5e60: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
5e70: 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 }.. switc
5e80: 68 20 28 65 72 72 29 20 7b 0a 09 63 61 73 65 20 h (err) {..case
5e90: 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a SSL_ERROR_NONE:.
5ea0: 09 20 20 20 20 2f 2a 20 49 2f 4f 20 6f 70 65 72 . /* I/O oper
5eb0: 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 20 ation completed
5ec0: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
5ed0: 22 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 22 "SSL_ERROR_NONE"
5ee0: 29 3b 0a 09 20 20 20 20 69 66 20 28 77 72 69 74 );.. if (writ
5ef0: 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09 77 72 69 ten < 0) {...wri
5f00: 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 7d tten = 0;.. }
5f10: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
5f20: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 ase SSL_ERROR_SS
5f30: 4c 3a 0a 09 20 20 20 20 2f 2a 20 41 20 6e 6f 6e L:.. /* A non
5f40: 2d 72 65 63 6f 76 65 72 61 62 6c 65 2c 20 66 61 -recoverable, fa
5f50: 74 61 6c 20 65 72 72 6f 72 20 69 6e 20 74 68 65 tal error in the
5f60: 20 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 63 63 SSL library occ
5f70: 75 72 72 65 64 2c 20 75 73 75 61 6c 6c 79 20 61 urred, usually a
5f80: 20 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 20 protocol error
5f90: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
5fa0: 22 53 53 4c 20 65 72 72 6f 72 2c 20 69 6e 64 69 "SSL error, indi
5fb0: 63 61 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 cating that the
5fc0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 connection has b
5fd0: 65 65 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 09 een aborted");..
5fe0: 20 20 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 if (backingE
5ff0: 72 72 6f 72 20 21 3d 20 30 29 20 7b 0a 09 09 54 rror != 0) {...T
6000: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
6010: 72 2c 20 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 r, ERR_reason_er
6020: 72 6f 72 5f 73 74 72 69 6e 67 28 62 61 63 6b 69 ror_string(backi
6030: 6e 67 45 72 72 6f 72 29 29 3b 0a 09 20 20 20 20 ngError));..
6040: 7d 20 65 6c 73 65 20 69 66 20 28 53 53 4c 5f 67 } else if (SSL_g
6050: 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 et_verify_result
6060: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 (statePtr->ssl)
6070: 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a != X509_V_OK) {.
6080: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
6090: 65 50 74 72 2c 20 58 35 30 39 5f 76 65 72 69 66 ePtr, X509_verif
60a0: 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 y_cert_error_str
60b0: 69 6e 67 28 53 53 4c 5f 67 65 74 5f 76 65 72 69 ing(SSL_get_veri
60c0: 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 fy_result(stateP
60d0: 74 72 2d 3e 73 73 6c 29 29 29 3b 0a 09 20 20 20 tr->ssl)));..
60e0: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 6c 73 5f } else {...Tls_
60f0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
6100: 22 55 6e 6b 6e 6f 77 6e 20 53 53 4c 20 65 72 72 "Unknown SSL err
6110: 6f 72 22 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 or");.. }..
6120: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
6130: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
6140: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
6150: 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 1;.. break;..
6160: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
6170: 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 20 20 WANT_READ:..
6180: 2f 2a 20 4f 70 20 64 69 64 20 6e 6f 74 20 63 6f /* Op did not co
6190: 6d 70 6c 65 74 65 20 64 75 65 20 74 6f 20 6e 6f mplete due to no
61a0: 74 20 65 6e 6f 75 67 68 20 64 61 74 61 20 77 61 t enough data wa
61b0: 73 20 61 76 61 69 6c 61 62 6c 65 2e 20 52 65 74 s available. Ret
61c0: 72 79 20 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 20 ry later. */..
61d0: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 dprintf("Got S
61e0: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
61f0: 41 44 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 AD, mapping it t
6200: 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 o EAGAIN");..
6210: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
6220: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 EAGAIN;.. wr
6230: 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 itten = -1;..
6240: 20 73 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 statePtr->want
6250: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b |= TCL_READABLE;
6260: 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 .. Tls_Error(
6270: 73 74 61 74 65 50 74 72 2c 20 22 53 53 4c 5f 45 statePtr, "SSL_E
6280: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 22 29 RROR_WANT_READ")
6290: 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 ;.. BIO_set_r
62a0: 65 74 72 79 5f 72 65 61 64 28 73 74 61 74 65 50 etry_read(stateP
62b0: 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 62 tr->bio);.. b
62c0: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c reak;...case SSL
62d0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 _ERROR_WANT_WRIT
62e0: 45 3a 0a 09 20 20 20 20 2f 2a 20 4f 70 20 64 69 E:.. /* Op di
62f0: 64 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 64 d not complete d
6300: 75 65 20 74 6f 20 75 6e 61 62 6c 65 20 74 6f 20 ue to unable to
6310: 73 65 6e 64 20 61 6c 6c 20 64 61 74 61 20 74 6f send all data to
6320: 20 74 68 65 20 42 49 4f 2e 20 52 65 74 72 79 20 the BIO. Retry
6330: 6c 61 74 65 72 2e 20 2a 2f 0a 09 20 20 20 20 64 later. */.. d
6340: 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f printf("Got SSL_
6350: 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 ERROR_WANT_WRITE
6360: 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 , mapping it to
6370: 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a EAGAIN");.. *
6380: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
6390: 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 AGAIN;.. writ
63a0: 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 73 ten = -1;.. s
63b0: 74 61 74 65 50 74 72 2d 3e 77 61 6e 74 20 7c 3d tatePtr->want |=
63c0: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 09 TCL_WRITABLE;..
63d0: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
63e0: 61 74 65 50 74 72 2c 20 22 53 53 4c 5f 45 52 52 atePtr, "SSL_ERR
63f0: 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 22 29 3b OR_WANT_WRITE");
6400: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
6410: 74 72 79 5f 77 72 69 74 65 28 73 74 61 74 65 50 try_write(stateP
6420: 74 72 2d 3e 62 69 6f 29 3b 0a 09 20 20 20 20 62 tr->bio);.. b
6430: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c reak;...case SSL
6440: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 _ERROR_WANT_X509
6450: 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 2f 2a _LOOKUP:.. /*
6460: 20 4f 70 20 64 69 64 6e 27 74 20 63 6f 6d 70 6c Op didn't compl
6470: 65 74 65 20 73 69 6e 63 65 20 63 61 6c 6c 62 61 ete since callba
6480: 63 6b 20 73 65 74 20 62 79 20 53 53 4c 5f 43 54 ck set by SSL_CT
6490: 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 63 65 72 X_set_client_cer
64a0: 74 5f 63 62 28 29 20 61 73 6b 65 64 20 74 6f 20 t_cb() asked to
64b0: 62 65 20 63 61 6c 6c 65 64 20 61 67 61 69 6e 20 be called again
64c0: 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 */.. dprintf(
64d0: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 "Got SSL_ERROR_W
64e0: 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 2c ANT_X509_LOOKUP,
64f0: 20 6d 61 70 70 69 6e 67 20 69 74 20 74 6f 20 45 mapping it to E
6500: 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20 2a 65 AGAIN");.. *e
6510: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
6520: 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 74 74 GAIN;.. writt
6530: 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 54 6c en = -1;.. Tl
6540: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
6550: 2c 20 22 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e , "SSL_ERROR_WAN
6560: 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 22 29 3b T_X509_LOOKUP");
6570: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
6580: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 ase SSL_ERROR_SY
6590: 53 43 41 4c 4c 3a 0a 09 20 20 20 20 2f 2a 20 53 SCALL:.. /* S
65a0: 6f 6d 65 20 6e 6f 6e 2d 72 65 63 6f 76 65 72 61 ome non-recovera
65b0: 62 6c 65 2c 20 66 61 74 61 6c 20 49 2f 4f 20 65 ble, fatal I/O e
65c0: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 2a 2f rror occurred */
65d0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
65e0: 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c SL_ERROR_SYSCALL
65f0: 22 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 ");... if (ba
6600: 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 ckingError == 0
6610: 26 26 20 77 72 69 74 74 65 6e 20 3d 3d 20 30 29 && written == 0)
6620: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 45 4f {...dprintf("EO
6630: 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a 65 F reached")...*e
6640: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
6650: 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a ...written = 0;.
6660: 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 ..Tls_Error(stat
6670: 65 50 74 72 2c 20 22 45 4f 46 20 72 65 61 63 68 ePtr, "EOF reach
6680: 65 64 22 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c ed");... } el
6690: 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 se if (backingEr
66a0: 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69 74 ror == 0 && writ
66b0: 74 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 ten == -1) {...d
66c0: 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f printf("I/O erro
66d0: 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e r occurred (errn
66e0: 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 o = %lu)", (unsi
66f0: 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 gned long) Tcl_G
6700: 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 etErrno());...*e
6710: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 rrorCodePtr = Tc
6720: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 l_GetErrno();...
6730: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 written = -1;...
6740: 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 Tls_Error(stateP
6750: 74 72 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 tr, Tcl_ErrnoMsg
6760: 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 (*errorCodePtr))
6770: 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;... } else {
6780: 0a 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 ...dprintf("I/O
6790: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 error occurred (
67a0: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 backingError = %
67b0: 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 lu)", backingErr
67c0: 6f 72 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 or);...*errorCod
67d0: 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 ePtr = Tcl_GetEr
67e0: 72 6e 6f 28 29 3b 0a 09 09 77 72 69 74 74 65 6e rno();...written
67f0: 20 3d 20 2d 31 3b 0a 09 09 54 6c 73 5f 45 72 72 = -1;...Tls_Err
6800: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 45 52 52 or(statePtr, ERR
6810: 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 _reason_error_st
6820: 72 69 6e 67 28 62 61 63 6b 69 6e 67 45 72 72 6f ring(backingErro
6830: 72 29 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 r));.. }..
6840: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 break;...case S
6850: 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 SL_ERROR_ZERO_RE
6860: 54 55 52 4e 3a 0a 09 20 20 20 20 2f 2a 20 50 65 TURN:.. /* Pe
6870: 65 72 20 68 61 73 20 63 6c 6f 73 65 64 20 74 68 er has closed th
6880: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 79 20 e connection by
6890: 73 65 6e 64 69 6e 67 20 74 68 65 20 63 6c 6f 73 sending the clos
68a0: 65 5f 6e 6f 74 69 66 79 20 61 6c 65 72 74 2e 20 e_notify alert.
68b0: 43 61 6e 27 74 20 72 65 61 64 2c 20 62 75 74 20 Can't read, but
68c0: 63 61 6e 20 77 72 69 74 65 2e 20 2a 2f 0a 09 20 can write. */..
68d0: 20 20 20 2f 2a 20 4e 65 65 64 20 74 6f 20 72 65 /* Need to re
68e0: 74 75 72 6e 20 61 6e 20 45 4f 46 2c 20 73 6f 20 turn an EOF, so
68f0: 63 68 61 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 65 channel is close
6900: 64 20 77 68 69 63 68 20 77 69 6c 6c 20 73 65 6e d which will sen
6910: 64 20 61 6e 20 53 53 4c 5f 73 68 75 74 64 6f 77 d an SSL_shutdow
6920: 6e 28 29 2e 20 2a 2f 0a 09 20 20 20 20 64 70 72 n(). */.. dpr
6930: 69 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 intf("Got SSL_ER
6940: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 2c ROR_ZERO_RETURN,
6950: 20 74 68 69 73 20 6d 65 61 6e 73 20 61 6e 20 45 this means an E
6960: 4f 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 63 OF has been reac
6970: 68 65 64 22 29 3b 0a 09 20 20 20 20 77 72 69 74 hed");.. writ
6980: 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65 ten = 0;.. *e
6990: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
69a0: 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 .. Tls_Error(
69b0: 73 74 61 74 65 50 74 72 2c 20 22 50 65 65 72 20 statePtr, "Peer
69c0: 68 61 73 20 63 6c 6f 73 65 64 20 74 68 65 20 63 has closed the c
69d0: 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 77 72 onnection for wr
69e0: 69 74 69 6e 67 20 62 79 20 73 65 6e 64 69 6e 67 iting by sending
69f0: 20 74 68 65 20 63 6c 6f 73 65 5f 6e 6f 74 69 66 the close_notif
6a00: 79 20 61 6c 65 72 74 22 29 3b 0a 09 20 20 20 20 y alert");..
6a10: 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 break;...case SS
6a20: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 L_ERROR_WANT_ASY
6a30: 4e 43 3a 0a 09 20 20 20 20 2f 2a 20 55 73 65 64 NC:.. /* Used
6a40: 20 77 69 74 68 20 66 6c 61 67 20 53 53 4c 5f 4d with flag SSL_M
6a50: 4f 44 45 5f 41 53 59 4e 43 2c 20 6f 70 20 64 69 ODE_ASYNC, op di
6a60: 64 6e 27 74 20 63 6f 6d 70 6c 65 74 65 20 62 65 dn't complete be
6a70: 63 61 75 73 65 20 61 6e 20 61 73 79 6e 63 20 65 cause an async e
6a80: 6e 67 69 6e 65 20 69 73 20 73 74 69 6c 6c 20 70 ngine is still p
6a90: 72 6f 63 65 73 73 69 6e 67 20 64 61 74 61 20 2a rocessing data *
6aa0: 2f 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
6ab0: 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 Got SSL_ERROR_WA
6ac0: 4e 54 5f 41 53 59 4e 43 2c 20 6d 61 70 70 69 6e NT_ASYNC, mappin
6ad0: 67 20 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e g this to EAGAIN
6ae0: 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ");.. *errorC
6af0: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
6b00: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 .. written =
6b10: 2d 31 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 -1;.. Tls_Err
6b20: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 53 53 or(statePtr, "SS
6b30: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 41 53 59 L_ERROR_WANT_ASY
6b40: 4e 43 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b NC");.. break
6b50: 3b 0a 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 ;...default:..
6b60: 20 20 64 70 72 69 6e 74 66 28 22 75 6e 6b 6e 6f dprintf("unkno
6b70: 77 6e 20 65 72 72 6f 72 3a 20 25 64 22 2c 20 65 wn error: %d", e
6b80: 72 72 29 3b 0a 09 20 20 20 20 54 6c 73 5f 45 72 rr);.. Tls_Er
6b90: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 22 55 ror(statePtr, "U
6ba0: 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 22 29 3b 0a nknown error");.
6bb0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 . break;.
6bc0: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
6bd0: 4f 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25 64 Output(%d) -> %d
6be0: 22 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 ", toWrite, writ
6bf0: 74 65 6e 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ten);. return
6c00: 20 77 72 69 74 74 65 6e 3b 0a 7d 0a 0a 2f 2a 0a written;.}../*.
6c10: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
6c60: 20 2a 0a 20 2a 20 54 6c 73 5f 47 65 74 50 61 72 *. * Tls_GetPar
6c70: 65 6e 74 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 ent --. *. *
6c80: 47 65 74 20 70 61 72 65 6e 74 20 63 68 61 6e 6e Get parent chann
6c90: 65 6c 20 66 6f 72 20 61 20 73 74 61 63 6b 65 64 el for a stacked
6ca0: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
6cb0: 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 Results:. * T
6cc0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 6f 72 20 4e 55 cl_Channel or NU
6cd0: 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 LL if none.. *.
6ce0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6d30: 2a 2f 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 54 */.Tcl_Channel T
6d40: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 53 74 61 ls_GetParent(Sta
6d50: 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e te *statePtr, in
6d60: 74 20 6d 61 73 6b 46 6c 61 67 73 29 20 7b 0a 20 t maskFlags) {.
6d70: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 71 75 dprintf("Requ
6d80: 65 73 74 65 64 20 74 6f 20 67 65 74 20 70 61 72 ested to get par
6d90: 65 6e 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 25 ent of channel %
6da0: 70 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 p", statePtr->se
6db0: 6c 66 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 73 lf);.. if ((s
6dc0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
6dd0: 20 7e 6d 61 73 6b 46 6c 61 67 73 29 20 26 20 54 ~maskFlags) & T
6de0: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 LS_TCL_FASTPATH)
6df0: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 73 6b {..dprintf("Ask
6e00: 65 64 20 74 6f 20 67 65 74 20 74 68 65 20 70 61 ed to get the pa
6e10: 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 77 68 69 rent channel whi
6e20: 6c 65 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 le we are using
6e30: 46 61 73 74 50 61 74 68 20 2d 2d 20 72 65 74 75 FastPath -- retu
6e40: 72 6e 69 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 72 rning NULL");..r
6e50: 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 eturn NULL;.
6e60: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c }. return Tcl
6e70: 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e _GetStackedChann
6e80: 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c el(statePtr->sel
6e90: 66 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d f);.}../*. *----
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 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
6ef0: 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 TlsSetOptionProc
6f00: 20 2d 2d 0a 20 2a 0a 20 2a 09 53 65 74 73 20 61 --. *. *.Sets a
6f10: 6e 20 6f 70 74 69 6f 6e 20 74 6f 20 76 61 6c 75 n option to valu
6f20: 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b e for a SSL sock
6f30: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c et based channel
6f40: 2e 20 43 61 6c 6c 65 64 20 62 79 20 74 68 65 0a . Called by the.
6f50: 20 2a 09 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c *.generic I/O l
6f60: 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 74 68 ayer whenever th
6f70: 65 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c e Tcl_SetChannel
6f80: 4f 70 74 69 6f 6e 28 29 20 66 75 6e 63 74 69 6f Option() functio
6f90: 6e 20 69 73 20 75 73 65 64 2e 0a 20 2a 0a 20 2a n is used.. *. *
6fa0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 Results:. *
6fb0: 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 TCL_OK if succes
6fc0: 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f sful or TCL_ERRO
6fd0: 52 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a R if failed.. *.
6fe0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
6ff0: 0a 20 2a 20 20 20 20 55 70 64 61 74 65 73 20 63 . * Updates c
7000: 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 6f hannel option to
7010: 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 new value.. *.
7020: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
7030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
7070: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c */.static int.Tl
7080: 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 76 sSetOptionProc(v
7090: 6f 69 64 20 2a 69 6e 73 74 61 6e 63 65 44 61 74 oid *instanceDat
70a0: 61 2c 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 a, /* Socket
70b0: 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 54 63 state. */. Tc
70c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
70d0: 2c 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 ,../* For errors
70e0: 20 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 - can be NULL.
70f0: 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 */. const cha
7100: 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 2f r *optionName,./
7110: 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 * Name of the op
7120: 74 69 6f 6e 20 74 6f 20 73 65 74 20 74 68 65 20 tion to set the
7130: 76 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 09 09 value for, or...
7140: 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 74 .. * NULL to get
7150: 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 all options and
7160: 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a their values. *
7170: 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 /. const char
7180: 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f *optionValue)./
7190: 2a 20 56 61 6c 75 65 20 66 6f 72 20 6f 70 74 69 * Value for opti
71a0: 6f 6e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 on. */.{. Sta
71b0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
71c0: 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 State *) instanc
71d0: 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 eData;. Tcl_C
71e0: 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d 20 hannel parent =
71f0: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
7200: 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f atePtr, TLS_TCL_
7210: 46 41 53 54 50 41 54 48 29 3b 0a 20 20 20 20 54 FASTPATH);. T
7220: 63 6c 5f 44 72 69 76 65 72 53 65 74 4f 70 74 69 cl_DriverSetOpti
7230: 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 74 69 6f onProc *setOptio
7240: 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 64 70 72 69 nProc;.. dpri
7250: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
7260: 20 20 20 20 2f 2a 20 50 61 73 73 20 74 6f 20 70 /* Pass to p
7270: 61 72 65 6e 74 20 2a 2f 0a 20 20 20 20 73 65 74 arent */. set
7280: 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c OptionProc = Tcl
7290: 5f 43 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f _ChannelSetOptio
72a0: 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 nProc(Tcl_GetCha
72b0: 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 nnelType(parent)
72c0: 29 3b 0a 20 20 20 20 69 66 20 28 73 65 74 4f 70 );. if (setOp
72d0: 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c tionProc != NULL
72e0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 ) {..return (*se
72f0: 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c tOptionProc)(Tcl
7300: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
7310: 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c nceData(parent),
7320: 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e interp, optionN
7330: 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 ame, optionValue
7340: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a );. }. /*.
7350: 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 66 * Request f
7360: 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 or a specific op
7370: 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c tion has to fail
7380: 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 , we don't have
7390: 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 any.. */.
73a0: 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 return Tcl_BadC
73b0: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
73c0: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
73d0: 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d "");.}../*. *--
73e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7420: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 4f 70 -. *. * TlsGetOp
7430: 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 tionProc --. *.
7440: 2a 09 47 65 74 20 61 20 6f 70 74 69 6f 6e 27 73 *.Get a option's
7450: 20 76 61 6c 75 65 20 66 6f 72 20 61 20 53 53 4c value for a SSL
7460: 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 socket based ch
7470: 61 6e 6e 65 6c 2c 20 6f 72 20 61 20 6c 69 73 74 annel, or a list
7480: 20 6f 66 20 61 6c 6c 0a 20 2a 09 6f 70 74 69 6f of all. *.optio
7490: 6e 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c ns and their val
74a0: 75 65 73 2e 20 43 61 6c 6c 65 64 20 62 79 20 74 ues. Called by t
74b0: 68 65 20 67 65 6e 65 72 69 63 20 49 2f 4f 20 6c he generic I/O l
74c0: 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 74 68 ayer whenever th
74d0: 65 0a 20 2a 09 54 63 6c 5f 47 65 74 43 68 61 6e e. *.Tcl_GetChan
74e0: 6e 65 6c 4f 70 74 69 6f 6e 28 29 20 66 75 6e 63 nelOption() func
74f0: 74 69 6f 6e 20 69 73 20 75 73 65 64 2e 0a 20 2a tion is used.. *
7500: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
7510: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
7520: 6c 20 72 65 73 75 6c 74 2e 20 54 68 65 20 76 61 l result. The va
7530: 6c 75 65 20 6f 66 20 74 68 65 20 73 70 65 63 69 lue of the speci
7540: 66 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 20 61 fied option or a
7550: 20 6c 69 73 74 20 6f 66 0a 20 2a 09 61 6c 6c 20 list of. *.all
7560: 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 options and thei
7570: 72 20 76 61 6c 75 65 73 20 69 73 20 72 65 74 75 r values is retu
7580: 72 6e 65 64 20 69 6e 20 74 68 65 20 73 75 70 70 rned in the supp
7590: 6c 69 65 64 20 44 53 74 72 69 6e 67 2e 0a 20 2a lied DString.. *
75a0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
75b0: 3a 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a :. * None.. *
75c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
75d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7600: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
7610: 63 20 69 6e 74 0a 54 6c 73 47 65 74 4f 70 74 69 c int.TlsGetOpti
7620: 6f 6e 50 72 6f 63 28 76 6f 69 64 20 2a 69 6e 73 onProc(void *ins
7630: 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a tanceData, /*
7640: 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a Socket state. *
7650: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
7660: 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f *interp,../* Fo
7670: 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 r errors - can b
7680: 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 e NULL. */. c
7690: 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f onst char *optio
76a0: 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f nName,./* Name o
76b0: 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 f the option to
76c0: 72 65 74 72 69 65 76 65 20 74 68 65 20 76 61 6c retrieve the val
76d0: 75 65 20 66 6f 72 2c 20 6f 72 0a 09 09 09 09 20 ue for, or.....
76e0: 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c * NULL to get al
76f0: 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 l options and th
7700: 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 eir values. */.
7710: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a Tcl_DString *
7720: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 optionValue)./*
7730: 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 74 Where to store t
7740: 68 65 20 63 6f 6d 70 75 74 65 64 20 76 61 6c 75 he computed valu
7750: 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 e initialized by
7760: 20 63 61 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 caller. */.{.
7770: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
7780: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
7790: 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 stanceData;.
77a0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 Tcl_Channel pare
77b0: 6e 74 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 nt = Tls_GetPare
77c0: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53 nt(statePtr, TLS
77d0: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a _TCL_FASTPATH);.
77e0: 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 47 65 Tcl_DriverGe
77f0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 65 74 tOptionProc *get
7800: 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 OptionProc;..
7810: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
7820: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 61 73 73 ");.. /* Pass
7830: 20 74 6f 20 70 61 72 65 6e 74 20 2a 2f 0a 20 20 to parent */.
7840: 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 getOptionProc
7850: 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 = Tcl_ChannelGet
7860: 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 OptionProc(Tcl_G
7870: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 etChannelType(pa
7880: 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 28 rent));. if (
7890: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d getOptionProc !=
78a0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
78b0: 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 (*getOptionProc
78c0: 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c )(Tcl_GetChannel
78d0: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 InstanceData(par
78e0: 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 ent), interp, op
78f0: 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e tionName, option
7900: 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c Value);. } el
7910: 73 65 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d se if (optionNam
7920: 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c e == (char*) NUL
7930: 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 71 L) {../*.. * Req
7940: 75 65 73 74 20 69 73 20 71 75 65 72 79 20 66 6f uest is query fo
7950: 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 r all options, t
7960: 68 69 73 20 69 73 20 6f 6b 2e 0a 09 20 2a 2f 0a his is ok... */.
7970: 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a .return TCL_OK;.
7980: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 }. /*.
7990: 20 20 2a 20 52 65 71 75 65 73 74 20 66 6f 72 20 * Request for
79a0: 61 20 73 70 65 63 69 66 69 63 20 6f 70 74 69 6f a specific optio
79b0: 6e 20 68 61 73 20 74 6f 20 66 61 69 6c 2c 20 77 n has to fail, w
79c0: 65 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 e don't have any
79d0: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 .. */. re
79e0: 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e turn Tcl_BadChan
79f0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
7a00: 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 , optionName, ""
7a10: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
7a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a60: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 20 --------. *. *
7a70: 20 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 TlsChannelHand
7a80: 6c 65 72 54 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 lerTimer --. *.
7a90: 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 *.Called by the
7aa0: 6e 6f 74 69 66 69 65 72 20 76 69 61 20 61 20 74 notifier via a t
7ab0: 69 6d 65 72 2c 20 74 6f 20 66 6c 75 73 68 20 6f imer, to flush o
7ac0: 75 74 20 64 61 74 61 20 77 61 69 74 69 6e 67 20 ut data waiting
7ad0: 69 6e 0a 20 2a 09 63 68 61 6e 6e 65 6c 20 62 75 in. *.channel bu
7ae0: 66 66 65 72 73 2e 20 63 61 6c 6c 65 64 20 62 79 ffers. called by
7af0: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f 4f the generic I/O
7b00: 20 6c 61 79 65 72 20 77 68 65 6e 65 76 65 72 20 layer whenever
7b10: 74 68 65 0a 20 2a 09 54 63 6c 5f 47 65 74 43 68 the. *.Tcl_GetCh
7b20: 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 29 20 66 75 annelHandle() fu
7b30: 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 2e 0a nction is used..
7b40: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
7b50: 2a 20 20 20 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 * None..
7b60: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
7b70: 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 6e 6f s:. *.Creates no
7b80: 74 69 66 69 63 61 74 69 6f 6e 20 65 76 65 6e 74 tification event
7b90: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
7ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7be0: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
7bf0: 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 void TlsChannelH
7c00: 61 6e 64 6c 65 72 54 69 6d 65 72 28 76 6f 69 64 andlerTimer(void
7c10: 20 2a 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a *clientData) {.
7c20: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
7c30: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
7c40: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
7c50: 69 6e 74 20 6d 61 73 6b 20 3d 20 73 74 61 74 65 int mask = state
7c60: 50 74 72 2d 3e 77 61 6e 74 3b 20 2f 2a 20 49 6e Ptr->want; /* In
7c70: 69 74 20 74 6f 20 53 53 4c 5f 45 52 52 4f 52 5f it to SSL_ERROR_
7c80: 57 41 4e 54 5f 52 45 41 44 20 61 6e 64 20 53 53 WANT_READ and SS
7c90: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 L_ERROR_WANT_WRI
7ca0: 54 45 20 2a 2f 0a 0a 20 20 20 20 64 70 72 69 6e TE */.. dprin
7cb0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
7cc0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d statePtr->tim
7cd0: 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 er = (Tcl_TimerT
7ce0: 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 oken) NULL;..
7cf0: 20 2f 2a 20 43 68 65 63 6b 20 66 6f 72 20 61 6d /* Check for am
7d00: 6f 75 6e 74 20 6f 66 20 64 61 74 61 20 70 65 6e ount of data pen
7d10: 64 69 6e 67 20 69 6e 20 42 49 4f 20 77 72 69 74 ding in BIO writ
7d20: 65 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 20 20 e buffer */.
7d30: 69 66 20 28 42 49 4f 5f 77 70 65 6e 64 69 6e 67 if (BIO_wpending
7d40: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
7d50: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 68 {..dprintf("[ch
7d60: 61 6e 3d 25 70 5d 20 42 49 4f 20 77 72 69 74 61 an=%p] BIO writa
7d70: 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e ble", statePtr->
7d80: 73 65 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c 3d self);...mask |=
7d90: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 20 TCL_WRITABLE;.
7da0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 68 65 }.. /* Che
7db0: 63 6b 20 66 6f 72 20 61 6d 6f 75 6e 74 20 6f 66 ck for amount of
7dc0: 20 64 61 74 61 20 70 65 6e 64 69 6e 67 20 69 6e data pending in
7dd0: 20 42 49 4f 20 72 65 61 64 20 62 75 66 66 65 72 BIO read buffer
7de0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 42 49 4f 5f */. if (BIO_
7df0: 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 pending(statePtr
7e00: 2d 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 69 6e ->bio)) {..dprin
7e10: 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 49 tf("[chan=%p] BI
7e20: 4f 20 72 65 61 64 61 62 6c 65 22 2c 20 73 74 61 O readable", sta
7e30: 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 tePtr->self);...
7e40: 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 mask |= TCL_READ
7e50: 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 ABLE;. }..
7e60: 20 2f 2a 20 4e 6f 74 69 66 79 20 74 68 65 20 67 /* Notify the g
7e70: 65 6e 65 72 69 63 20 49 4f 20 6c 61 79 65 72 20 eneric IO layer
7e80: 74 68 61 74 20 74 68 65 20 6d 61 73 6b 20 65 76 that the mask ev
7e90: 65 6e 74 73 20 68 61 76 65 20 6f 63 63 75 72 72 ents have occurr
7ea0: 65 64 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 ed on the channe
7eb0: 6c 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 l */. dprintf
7ec0: 28 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 73 ("Notifying ours
7ed0: 65 6c 76 65 73 22 29 3b 0a 20 20 20 20 54 63 6c elves");. Tcl
7ee0: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 _NotifyChannel(s
7ef0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d tatePtr->self, m
7f00: 61 73 6b 29 3b 0a 20 20 20 20 73 74 61 74 65 50 ask);. stateP
7f10: 74 72 2d 3e 77 61 6e 74 20 3d 20 30 3b 0a 0a 20 tr->want = 0;..
7f20: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 dprintf("Retu
7f30: 72 6e 69 6e 67 22 29 3b 0a 0a 20 20 20 20 72 65 rning");.. re
7f40: 74 75 72 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d turn;.}../*. *--
7f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
7fa0: 2a 20 54 6c 73 57 61 74 63 68 50 72 6f 63 20 2d * TlsWatchProc -
7fb0: 2d 0a 20 2a 0a 20 2a 09 53 65 74 20 75 70 20 74 -. *. *.Set up t
7fc0: 68 65 20 65 76 65 6e 74 20 6e 6f 74 69 66 69 65 he event notifie
7fd0: 72 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 65 r to watch for e
7fe0: 76 65 6e 74 73 20 6f 66 20 69 6e 74 65 72 65 73 vents of interes
7ff0: 74 20 66 72 6f 6d 20 74 68 69 73 0a 20 2a 09 63 t from this. *.c
8000: 68 61 6e 6e 65 6c 2e 20 43 61 6c 6c 65 64 20 62 hannel. Called b
8010: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 2f y the generic I/
8020: 4f 20 6c 61 79 65 72 20 77 68 65 6e 65 76 65 72 O layer whenever
8030: 20 74 68 65 20 75 73 65 72 20 28 6f 72 20 74 68 the user (or th
8040: 65 0a 20 2a 09 73 79 73 74 65 6d 29 20 61 6e 6e e. *.system) ann
8050: 6f 75 6e 63 65 73 20 69 74 73 20 28 64 69 73 29 ounces its (dis)
8060: 69 6e 74 65 72 65 73 74 20 69 6e 20 65 76 65 6e interest in even
8070: 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 ts on the channe
8080: 6c 2e 20 54 68 69 73 20 69 73 0a 20 2a 09 63 61 l. This is. *.ca
8090: 6c 6c 65 64 20 72 65 70 65 61 74 65 64 6c 79 2e lled repeatedly.
80a0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
80b0: 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 * None.. *.
80c0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
80d0: 20 2a 09 53 65 74 73 20 75 70 20 74 68 65 20 74 *.Sets up the t
80e0: 69 6d 65 2d 62 61 73 65 64 20 6e 6f 74 69 66 69 ime-based notifi
80f0: 65 72 20 73 6f 20 74 68 61 74 20 66 75 74 75 72 er so that futur
8100: 65 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 e events on the
8110: 63 68 61 6e 6e 65 6c 0a 20 2a 09 77 69 6c 6c 20 channel. *.will
8120: 62 65 20 73 65 65 6e 20 62 79 20 54 43 4c 2e 0a be seen by TCL..
8130: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
8140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8180: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f --. */.static vo
8190: 69 64 0a 54 6c 73 57 61 74 63 68 50 72 6f 63 28 id.TlsWatchProc(
81a0: 76 6f 69 64 20 2a 69 6e 73 74 61 6e 63 65 44 61 void *instanceDa
81b0: 74 61 2c 20 20 20 20 2f 2a 20 54 68 65 20 73 6f ta, /* The so
81c0: 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 cket state. */.
81d0: 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 2f int mask).../
81e0: 2a 20 45 76 65 6e 74 73 20 6f 66 20 69 6e 74 65 * Events of inte
81f0: 72 65 73 74 3b 20 61 6e 20 4f 52 2d 65 64 20 63 rest; an OR-ed c
8200: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 0a 09 09 ombination of...
8210: 09 09 20 2a 20 54 43 4c 5f 52 45 41 44 41 42 4c .. * TCL_READABL
8220: 45 2c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 E, TCL_WRITABLE
8230: 61 6e 64 20 54 43 4c 5f 45 58 43 45 50 54 49 4f and TCL_EXCEPTIO
8240: 4e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c 5f N. */.{. Tcl_
8250: 43 68 61 6e 6e 65 6c 20 20 20 20 20 70 61 72 65 Channel pare
8260: 6e 74 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 nt;. State *s
8270: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
8280: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
8290: 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 ;. Tcl_Driver
82a0: 57 61 74 63 68 50 72 6f 63 20 2a 77 61 74 63 68 WatchProc *watch
82b0: 50 72 6f 63 3b 0a 20 20 20 20 69 6e 74 20 70 65 Proc;. int pe
82c0: 6e 64 69 6e 67 20 3d 20 30 3b 0a 0a 20 20 20 20 nding = 0;..
82d0: 64 70 72 69 6e 74 66 28 22 54 6c 73 57 61 74 63 dprintf("TlsWatc
82e0: 68 50 72 6f 63 28 30 78 25 78 29 22 2c 20 6d 61 hProc(0x%x)", ma
82f0: 73 6b 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 46 sk);. dprintF
8300: 6c 61 67 73 28 73 74 61 74 65 50 74 72 29 3b 0a lags(statePtr);.
8310: 0a 20 20 20 20 2f 2a 20 50 72 65 74 65 6e 64 20 . /* Pretend
8320: 74 6f 20 62 65 20 64 65 61 64 20 61 73 20 6c 6f to be dead as lo
8330: 6e 67 20 61 73 20 74 68 65 20 76 65 72 69 66 79 ng as the verify
8340: 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e callback is run
8350: 6e 69 6e 67 2e 0a 20 20 20 20 20 2a 20 4f 74 68 ning.. * Oth
8360: 65 72 77 69 73 65 20 74 68 61 74 20 63 61 6c 6c erwise that call
8370: 62 61 63 6b 20 63 6f 75 6c 64 20 62 65 20 69 6e back could be in
8380: 76 6f 6b 65 64 20 72 65 63 75 72 73 69 76 65 6c voked recursivel
8390: 79 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 y. */. if (st
83a0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
83b0: 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b TLS_TCL_CALLBACK
83c0: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 61 ) {..dprintf("Ca
83d0: 6c 6c 62 61 63 6b 20 69 73 20 6f 6e 2d 67 6f 69 llback is on-goi
83e0: 6e 67 2c 20 64 6f 69 6e 67 20 6e 6f 74 68 69 6e ng, doing nothin
83f0: 67 22 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 g");..return;.
8400: 20 20 7d 0a 0a 20 20 20 20 70 61 72 65 6e 74 20 }.. parent
8410: 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 = Tls_GetParent(
8420: 73 74 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 statePtr, TLS_TC
8430: 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a 0a 20 20 L_FASTPATH);..
8440: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
8450: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
8460: 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 HANDSHAKE_FAILED
8470: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 73 ) {..dprintf("As
8480: 6b 65 64 20 74 6f 20 77 61 74 63 68 20 61 20 73 ked to watch a s
8490: 6f 63 6b 65 74 20 77 69 74 68 20 61 20 66 61 69 ocket with a fai
84a0: 6c 65 64 20 68 61 6e 64 73 68 61 6b 65 20 2d 2d led handshake --
84b0: 20 6e 6f 74 68 69 6e 67 20 63 61 6e 20 68 61 70 nothing can hap
84c0: 70 65 6e 20 68 65 72 65 22 29 3b 0a 09 64 70 72 pen here");..dpr
84d0: 69 6e 74 66 28 22 55 6e 72 65 67 69 73 74 65 72 intf("Unregister
84e0: 69 6e 67 20 69 6e 74 65 72 65 73 74 20 69 6e 20 ing interest in
84f0: 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 the lower channe
8500: 6c 22 29 3b 0a 0a 09 77 61 74 63 68 50 72 6f 63 l");...watchProc
8510: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 = Tcl_ChannelWa
8520: 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 tchProc(Tcl_GetC
8530: 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e hannelType(paren
8540: 74 29 29 3b 0a 09 77 61 74 63 68 50 72 6f 63 28 t));..watchProc(
8550: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
8560: 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e stanceData(paren
8570: 74 29 2c 20 30 29 3b 0a 09 73 74 61 74 65 50 74 t), 0);..statePt
8580: 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 r->watchMask = 0
8590: 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d ;..return;. }
85a0: 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
85b0: 77 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b watchMask = mask
85c0: 3b 0a 0a 20 20 20 20 2f 2a 20 4e 6f 20 63 68 61 ;.. /* No cha
85d0: 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 61 6e nnel handlers an
85e0: 79 20 6d 6f 72 65 2e 20 57 65 20 77 69 6c 6c 20 y more. We will
85f0: 62 65 20 6e 6f 74 69 66 69 65 64 20 61 75 74 6f be notified auto
8600: 6d 61 74 69 63 61 6c 6c 79 0a 20 20 20 20 20 2a matically. *
8610: 20 61 62 6f 75 74 20 65 76 65 6e 74 73 20 6f 6e about events on
8620: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c the channel bel
8630: 6f 77 20 76 69 61 20 61 20 63 61 6c 6c 20 74 6f ow via a call to
8640: 20 6f 75 72 0a 20 20 20 20 20 2a 20 27 54 72 61 our. * 'Tra
8650: 6e 73 66 6f 72 6d 4e 6f 74 69 66 79 50 72 6f 63 nsformNotifyProc
8660: 27 2e 20 42 75 74 20 77 65 20 68 61 76 65 20 74 '. But we have t
8670: 6f 20 70 61 73 73 20 74 68 65 20 69 6e 74 65 72 o pass the inter
8680: 65 73 74 20 64 6f 77 6e 20 6e 6f 77 2e 0a 20 20 est down now..
8690: 20 20 20 2a 20 57 65 20 61 72 65 20 61 6c 6c 6f * We are allo
86a0: 77 65 64 20 74 6f 20 61 64 64 20 61 64 64 69 74 wed to add addit
86b0: 69 6f 6e 61 6c 20 27 69 6e 74 65 72 65 73 74 27 ional 'interest'
86c0: 20 74 6f 20 74 68 65 20 6d 61 73 6b 20 69 66 20 to the mask if
86d0: 77 65 20 77 61 6e 74 0a 20 20 20 20 20 2a 20 74 we want. * t
86e0: 6f 2e 20 42 75 74 20 74 68 69 73 20 74 72 61 6e o. But this tran
86f0: 73 66 6f 72 6d 61 74 69 6f 6e 20 68 61 73 20 6e sformation has n
8700: 6f 20 73 75 63 68 20 69 6e 74 65 72 65 73 74 2e o such interest.
8710: 20 49 74 20 6a 75 73 74 20 70 61 73 73 65 73 0a It just passes.
8720: 20 20 20 20 20 2a 20 74 68 65 20 72 65 71 75 65 * the reque
8730: 73 74 20 64 6f 77 6e 2c 20 75 6e 63 68 61 6e 67 st down, unchang
8740: 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 ed.. */.
8750: 64 70 72 69 6e 74 66 28 22 52 65 67 69 73 74 65 dprintf("Registe
8760: 72 69 6e 67 20 6f 75 72 20 69 6e 74 65 72 65 73 ring our interes
8770: 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 t in the lower c
8780: 68 61 6e 6e 65 6c 20 28 63 68 61 6e 3d 25 70 29 hannel (chan=%p)
8790: 22 2c 20 28 76 6f 69 64 20 2a 29 20 70 61 72 65 ", (void *) pare
87a0: 6e 74 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 nt);. watchPr
87b0: 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c oc = Tcl_Channel
87c0: 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 WatchProc(Tcl_Ge
87d0: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 tChannelType(par
87e0: 65 6e 74 29 29 3b 0a 20 20 20 20 77 61 74 63 68 ent));. watch
87f0: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
8800: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
8810: 70 61 72 65 6e 74 29 2c 20 6d 61 73 6b 29 3b 0a parent), mask);.
8820: 0a 20 20 20 20 2f 2a 20 44 6f 20 77 65 20 68 61 . /* Do we ha
8830: 76 65 20 61 6e 79 20 70 65 6e 64 69 6e 67 20 65 ve any pending e
8840: 76 65 6e 74 73 20 2a 2f 0a 20 20 20 20 70 65 6e vents */. pen
8850: 64 69 6e 67 20 3d 20 28 73 74 61 74 65 50 74 72 ding = (statePtr
8860: 2d 3e 77 61 6e 74 20 7c 7c 20 5c 0a 09 28 28 6d ->want || \..((m
8870: 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 ask & TCL_READAB
8880: 4c 45 29 20 26 26 20 28 28 54 63 6c 5f 49 6e 70 LE) && ((Tcl_Inp
8890: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 utBuffered(state
88a0: 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 20 Ptr->self) > 0)
88b0: 7c 7c 20 28 42 49 4f 5f 63 74 72 6c 5f 70 65 6e || (BIO_ctrl_pen
88c0: 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 ding(statePtr->b
88d0: 69 6f 29 20 3e 20 30 29 29 29 20 7c 7c 0a 09 28 io) > 0))) ||..(
88e0: 28 6d 61 73 6b 20 26 20 54 43 4c 5f 57 52 49 54 (mask & TCL_WRIT
88f0: 41 42 4c 45 29 20 26 26 20 28 28 54 63 6c 5f 4f ABLE) && ((Tcl_O
8900: 75 74 70 75 74 42 75 66 66 65 72 65 64 28 73 74 utputBuffered(st
8910: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 atePtr->self) >
8920: 30 29 20 7c 7c 20 28 42 49 4f 5f 63 74 72 6c 5f 0) || (BIO_ctrl_
8930: 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 wpending(statePt
8940: 72 2d 3e 62 69 6f 29 20 3e 20 30 29 29 29 29 3b r->bio) > 0))));
8950: 0a 0a 20 20 20 20 69 66 20 28 21 28 6d 61 73 6b .. if (!(mask
8960: 20 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 & TCL_READABLE)
8970: 20 7c 7c 20 70 65 6e 64 69 6e 67 20 3d 3d 20 30 || pending == 0
8980: 29 20 7b 0a 09 2f 2a 20 52 65 6d 6f 76 65 20 74 ) {../* Remove t
8990: 69 6d 65 72 2c 20 69 66 20 61 6e 79 20 2a 2f 0a imer, if any */.
89a0: 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 .if (statePtr->t
89b0: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
89c0: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
89d0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 .. dprintf("A
89e0: 20 74 69 6d 65 72 20 77 61 73 20 66 6f 75 6e 64 timer was found
89f0: 2c 20 64 65 6c 65 74 69 6e 67 20 69 74 22 29 3b , deleting it");
8a00: 0a 09 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 .. Tcl_Delete
8a10: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
8a20: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
8a30: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69 statePtr->ti
8a40: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 mer = (Tcl_Timer
8a50: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 09 7d 0a Token) NULL;..}.
8a60: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 2f . } else {../
8a70: 2a 20 41 64 64 20 74 69 6d 65 72 2c 20 69 66 20 * Add timer, if
8a80: 6e 6f 6e 65 20 2a 2f 0a 09 69 66 20 28 73 74 61 none */..if (sta
8a90: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 3d 20 tePtr->timer ==
8aa0: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
8ab0: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 64 70 NULL) {.. dp
8ac0: 72 69 6e 74 66 28 22 43 72 65 61 74 69 6e 67 20 rintf("Creating
8ad0: 61 20 6e 65 77 20 74 69 6d 65 72 20 73 69 6e 63 a new timer sinc
8ae0: 65 20 64 61 74 61 20 61 70 70 65 61 72 73 20 74 e data appears t
8af0: 6f 20 62 65 20 77 61 69 74 69 6e 67 22 29 3b 0a o be waiting");.
8b00: 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 . statePtr->t
8b10: 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 imer = Tcl_Creat
8b20: 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 54 4c eTimerHandler(TL
8b30: 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 20 54 6c 73 S_TCL_DELAY, Tls
8b40: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 ChannelHandlerTi
8b50: 6d 65 72 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 mer, (void *) st
8b60: 61 74 65 50 74 72 29 3b 0a 09 7d 0a 20 20 20 20 atePtr);..}.
8b70: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d }.}../*. *------
8b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8bc0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
8bd0: 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d sGetHandleProc -
8be0: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f -. *. *.This pro
8bf0: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
8c00: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
8c10: 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 72 65 74 IO level to ret
8c20: 72 69 65 76 65 20 61 6e 20 4f 53 0a 20 2a 09 73 rieve an OS. *.s
8c30: 70 65 63 69 66 69 63 20 68 61 6e 64 6c 65 20 61 pecific handle a
8c40: 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 ssociated with t
8c50: 68 65 20 63 68 61 6e 6e 65 6c 2e 20 4e 6f 74 20 he channel. Not
8c60: 75 73 65 64 20 66 6f 72 20 74 72 61 6e 73 66 6f used for transfo
8c70: 72 6d 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c rms.. *. * Resul
8c80: 74 73 3a 0a 20 2a 20 20 20 20 54 68 65 20 61 70 ts:. * The ap
8c90: 70 72 6f 70 72 69 61 74 65 20 54 63 6c 5f 46 69 propriate Tcl_Fi
8ca0: 6c 65 20 68 61 6e 64 6c 65 20 6f 72 20 4e 55 4c le handle or NUL
8cb0: 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a L if none.. *. *
8cc0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
8cd0: 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a * None.. *. *
8ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
8d30: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 /.static int Tls
8d40: 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 76 6f GetHandleProc(vo
8d50: 69 64 20 2a 69 6e 73 74 61 6e 63 65 44 61 74 61 id *instanceData
8d60: 2c 20 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 , /* Socket s
8d70: 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 tate. */. int
8d80: 20 64 69 72 65 63 74 69 6f 6e 2c 09 09 2f 2a 20 direction,../*
8d90: 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 TCL_READABLE or
8da0: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a TCL_WRITABLE */.
8db0: 20 20 20 20 76 6f 69 64 20 2a 2a 68 61 6e 64 6c void **handl
8dc0: 65 50 74 72 29 09 2f 2a 20 48 61 6e 64 6c 65 20 ePtr)./* Handle
8dd0: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 associated with
8de0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b the channel */.{
8df0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
8e00: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
8e10: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a instanceData;..
8e20: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 return Tcl_G
8e30: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 etChannelHandle(
8e40: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
8e50: 61 74 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f atePtr, TLS_TCL_
8e60: 46 41 53 54 50 41 54 48 29 2c 20 64 69 72 65 63 FASTPATH), direc
8e70: 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 tion, handlePtr)
8e80: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
8e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ed0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
8ee0: 73 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 sNotifyProc --.
8ef0: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
8f00: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 ure is invoked b
8f10: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f y the generic IO
8f20: 20 6c 65 76 65 6c 20 74 6f 20 6e 6f 74 69 66 79 level to notify
8f30: 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 the channel. *.
8f40: 74 68 61 74 20 61 6e 20 65 76 65 6e 74 20 68 61 that an event ha
8f50: 73 20 6f 63 63 75 72 72 65 64 20 6f 6e 20 74 68 s occurred on th
8f60: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 e underlying cha
8f70: 6e 6e 65 6c 2e 20 49 74 20 69 73 20 75 73 65 64 nnel. It is used
8f80: 20 62 79 20 73 74 61 63 6b 65 64 20 63 68 61 6e by stacked chan
8f90: 6e 65 6c 20 64 72 69 76 65 72 73 20 74 68 61 74 nel drivers that
8fa0: 0a 20 2a 09 77 69 73 68 20 74 6f 20 62 65 20 6e . *.wish to be n
8fb0: 6f 74 69 66 69 65 64 20 6f 66 20 65 76 65 6e 74 otified of event
8fc0: 73 20 74 68 61 74 20 6f 63 63 75 72 20 6f 6e 20 s that occur on
8fd0: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 28 the underlying (
8fe0: 73 74 61 63 6b 65 64 29 0a 20 2a 09 63 68 61 6e stacked). *.chan
8ff0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
9000: 74 73 3a 0a 20 2a 20 20 20 20 54 79 70 65 20 6f ts:. * Type o
9010: 66 20 65 76 65 6e 74 20 6f 72 20 30 20 69 66 20 f event or 0 if
9020: 66 61 69 6c 65 64 0a 20 2a 0a 20 2a 20 53 69 64 failed. *. * Sid
9030: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 e effects:. *
9040: 20 4d 61 79 20 70 72 6f 63 65 73 73 20 74 68 65 May process the
9050: 20 69 6e 63 6f 6d 69 6e 67 20 65 76 65 6e 74 20 incoming event
9060: 62 79 20 69 74 73 65 6c 66 2e 0a 20 2a 0a 20 2a by itself.. *. *
9070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
90a0: 2d 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 0a 20 2a -------------. *
90c0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 /.static int Tls
90d0: 4e 6f 74 69 66 79 50 72 6f 63 28 76 6f 69 64 20 NotifyProc(void
90e0: 2a 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20 *instanceData,
90f0: 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 /* Socket stat
9100: 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 e. */. int ma
9110: 73 6b 29 09 09 09 2f 2a 20 74 79 70 65 20 6f 66 sk).../* type of
9120: 20 65 76 65 6e 74 20 74 68 61 74 20 6f 63 63 75 event that occu
9130: 72 72 65 64 3a 0a 09 09 09 09 20 2a 20 4f 52 2d rred:..... * OR-
9140: 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f ed combination o
9150: 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f f TCL_READABLE o
9160: 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a r TCL_WRITABLE *
9170: 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 /.{. State *s
9180: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
9190: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
91a0: 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 6f 72 43 ;. int errorC
91b0: 6f 64 65 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 ode = 0;.. dp
91c0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
91d0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
91e0: 44 65 6c 65 74 65 20 61 6e 20 65 78 69 73 74 69 Delete an existi
91f0: 6e 67 20 74 69 6d 65 72 2e 20 49 74 20 77 61 73 ng timer. It was
9200: 20 6e 6f 74 20 66 69 72 65 64 2c 20 79 65 74 20 not fired, yet
9210: 77 65 20 61 72 65 0a 20 20 20 20 20 2a 20 68 65 we are. * he
9220: 72 65 2c 20 73 6f 20 74 68 65 20 63 68 61 6e 6e re, so the chann
9230: 65 6c 20 62 65 6c 6f 77 20 67 65 6e 65 72 61 74 el below generat
9240: 65 64 20 73 75 63 68 20 61 6e 20 65 76 65 6e 74 ed such an event
9250: 20 61 6e 64 20 77 65 0a 20 20 20 20 20 2a 20 64 and we. * d
9260: 6f 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 54 68 on't have to. Th
9270: 65 20 72 65 6e 65 77 61 6c 20 6f 66 20 74 68 65 e renewal of the
9280: 20 69 6e 74 65 72 65 73 74 20 61 66 74 65 72 20 interest after
9290: 74 68 65 0a 20 20 20 20 20 2a 20 65 78 65 63 75 the. * execu
92a0: 74 69 6f 6e 20 6f 66 20 63 68 61 6e 6e 65 6c 20 tion of channel
92b0: 68 61 6e 64 6c 65 72 73 20 77 69 6c 6c 20 65 76 handlers will ev
92c0: 65 6e 74 75 61 6c 6c 79 20 63 61 75 73 65 20 75 entually cause u
92d0: 73 20 74 6f 0a 20 20 20 20 20 2a 20 72 65 63 72 s to. * recr
92e0: 65 61 74 65 20 74 68 65 20 74 69 6d 65 72 20 28 eate the timer (
92f0: 69 6e 20 57 61 74 63 68 50 72 6f 63 29 2e 0a 20 in WatchProc)..
9300: 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 */. if (s
9310: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
9320: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
9330: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
9340: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
9350: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
9360: 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e er);..statePtr->
9370: 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d timer = (Tcl_Tim
9380: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 erToken) NULL;.
9390: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 }.. /* Ski
93a0: 70 20 69 66 20 75 73 65 72 20 76 65 72 69 66 79 p if user verify
93b0: 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 73 74 69 callback is sti
93c0: 6c 6c 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 20 ll running */.
93d0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
93e0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
93f0: 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 CALLBACK) {..dpr
9400: 69 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 intf("Callback i
9410: 73 20 6f 6e 2d 67 6f 69 6e 67 2c 20 72 65 74 75 s on-going, retu
9420: 72 6e 69 6e 67 20 66 61 69 6c 65 64 22 29 3b 0a rning failed");.
9430: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
9440: 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e 6f 74 20 .. /* If not
9450: 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 64 6f 20 initialized, do
9460: 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 20 20 69 connect */. i
9470: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
9480: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 gs & TLS_TCL_INI
9490: 54 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 T) {..dprintf("C
94a0: 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 alling Tls_WaitF
94b0: 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 09 69 66 orConnect");..if
94c0: 20 28 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e (Tls_WaitForCon
94d0: 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 nect(statePtr, &
94e0: 65 72 72 6f 72 43 6f 64 65 2c 20 31 29 20 3c 20 errorCode, 1) <
94f0: 30 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f 45 72 0) {.. Tls_Er
9500: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 74 ror(statePtr, st
9510: 72 65 72 72 6f 72 28 65 72 72 6f 72 43 6f 64 65 rerror(errorCode
9520: 29 29 3b 0a 09 20 20 20 20 69 66 20 28 65 72 72 ));.. if (err
9530: 6f 72 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e orCode == EAGAIN
9540: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 41 ) {...dprintf("A
9550: 73 79 6e 63 20 66 6c 61 67 20 63 6f 75 6c 64 20 sync flag could
9560: 62 65 20 73 65 74 20 28 64 69 64 6e 27 74 20 63 be set (didn't c
9570: 68 65 63 6b 29 20 61 6e 64 20 65 72 72 6f 72 43 heck) and errorC
9580: 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 3a 20 20 ode == EAGAIN:
9590: 52 65 74 75 72 6e 69 6e 67 20 66 61 69 6c 65 64 Returning failed
95a0: 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 20 30 3b ");....return 0;
95b0: 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 64 70 .. }... dp
95c0: 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 46 rintf("Tls_WaitF
95d0: 6f 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e orConnect return
95e0: 65 64 20 61 6e 20 65 72 72 6f 72 22 29 3b 0a 09 ed an error");..
95f0: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 }. }.. dpr
9600: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 intf("Returning
9610: 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 %i", mask);..
9620: 20 2f 2a 0a 20 20 20 20 20 2a 20 41 6e 20 65 76 /*. * An ev
9630: 65 6e 74 20 6f 63 63 75 72 72 65 64 20 69 6e 20 ent occurred in
9640: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 the underlying c
9650: 68 61 6e 6e 65 6c 2e 20 20 54 68 69 73 0a 20 20 hannel. This.
9660: 20 20 20 2a 20 74 72 61 6e 73 66 6f 72 6d 61 74 * transformat
9670: 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 72 6f 63 ion doesn't proc
9680: 65 73 73 20 73 75 63 68 20 65 76 65 6e 74 73 20 ess such events
9690: 74 68 75 73 20 72 65 74 75 72 6e 73 20 74 68 65 thus returns the
96a0: 0a 20 20 20 20 20 2a 20 69 6e 63 6f 6d 69 6e 67 . * incoming
96b0: 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 65 64 2e mask unchanged.
96c0: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 . */. ret
96d0: 75 72 6e 20 6d 61 73 6b 3b 0a 7d 0a 0a 2f 2a 0a urn mask;.}../*.
96e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
96f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
9730: 20 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 *. * Tls_Channe
9740: 6c 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 09 44 lType --. *. *.D
9750: 65 66 69 6e 65 73 20 74 68 65 20 63 6f 72 72 65 efines the corre
9760: 63 74 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20 64 ct TLS channel d
9770: 72 69 76 65 72 20 68 61 6e 64 6c 65 72 73 20 66 river handlers f
9780: 6f 72 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 20 or this channel
9790: 74 79 70 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 type.. *. * Resu
97a0: 6c 74 73 3a 0a 20 2a 09 54 63 6c 5f 43 68 61 6e lts:. *.Tcl_Chan
97b0: 6e 65 6c 54 79 70 65 20 73 74 72 75 63 74 75 72 nelType structur
97c0: 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 e.. *. * Side ef
97d0: 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 4e 6f 6e fects:. * Non
97e0: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
97f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9830: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
9840: 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e const Tcl_Chann
9850: 65 6c 54 79 70 65 20 74 6c 73 43 68 61 6e 6e 65 elType tlsChanne
9860: 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 74 lType = {. "t
9870: 6c 73 22 2c 09 09 09 2f 2a 20 54 79 70 65 20 6e ls",.../* Type n
9880: 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c 5f 43 ame */. TCL_C
9890: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 HANNEL_VERSION_5
98a0: 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 6c 20 ,./* v5 channel
98b0: 2a 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 50 */. TlsCloseP
98c0: 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 roc,../* Close p
98d0: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 49 6e roc */. TlsIn
98e0: 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 putProc,../* Inp
98f0: 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 ut proc */. T
9900: 6c 73 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f lsOutputProc,../
9910: 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f * Output proc */
9920: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
9930: 53 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 Seek proc */.
9940: 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f TlsSetOptionPro
9950: 63 2c 09 09 2f 2a 20 53 65 74 20 6f 70 74 69 6f c,../* Set optio
9960: 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c n proc */. Tl
9970: 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 sGetOptionProc,.
9980: 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 ./* Get option p
9990: 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 57 61 roc */. TlsWa
99a0: 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 tchProc,../* Ini
99b0: 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 tialize notifier
99c0: 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 48 61 */. TlsGetHa
99d0: 6e 64 6c 65 50 72 6f 63 2c 09 09 2f 2a 20 47 65 ndleProc,../* Ge
99e0: 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 6f 75 74 t OS handles out
99f0: 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 of channel */.
9a00: 20 20 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 TlsClose2Proc
9a10: 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 ,../* close2proc
9a20: 20 2a 2f 0a 20 20 20 20 54 6c 73 42 6c 6f 63 6b */. TlsBlock
9a30: 4d 6f 64 65 50 72 6f 63 2c 09 09 2f 2a 20 53 65 ModeProc,../* Se
9a40: 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c t blocking/nonbl
9a50: 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 ocking mode*/.
9a60: 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 NULL,.../* Flu
9a70: 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 sh proc */. T
9a80: 6c 73 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f lsNotifyProc,../
9a90: 2a 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 * Handling of ev
9aa0: 65 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 ents bubbling up
9ab0: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 */. NULL,...
9ac0: 2f 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f /* Wide seek pro
9ad0: 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 c */. NULL,..
9ae0: 09 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f ./* Thread actio
9af0: 6e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 n */. NULL...
9b00: 2f 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d /* Truncate */.}
9b10: 3b 0a 0a 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 ;..const Tcl_Cha
9b20: 6e 6e 65 6c 54 79 70 65 20 2a 54 6c 73 5f 43 68 nnelType *Tls_Ch
9b30: 61 6e 6e 65 6c 54 79 70 65 28 76 6f 69 64 29 20 annelType(void)
9b40: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 26 74 6c {. return &tl
9b50: 73 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 7d 0a sChannelType;.}.