0000: 2f 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73 20 43 /*. * Provides C
0010: 75 73 74 6f 6d 20 42 49 4f 20 6c 61 79 65 72 20 ustom BIO layer
0020: 74 6f 20 69 6e 74 65 72 66 61 63 65 20 4f 70 65 to interface Ope
0030: 6e 53 53 4c 20 77 69 74 68 20 54 43 4c 2e 20 54 nSSL with TCL. T
0040: 68 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 0a 20 hese functions.
0050: 2a 20 64 69 72 65 63 74 6c 79 20 69 6e 74 65 72 * directly inter
0060: 66 61 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 face between the
0070: 20 54 43 4c 20 49 4f 20 63 68 61 6e 6e 65 6c 20 TCL IO channel
0080: 61 6e 64 20 42 49 4f 20 62 75 66 66 65 72 73 2e and BIO buffers.
0090: 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 . *. * Copyright
00a0: 20 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d (C) 1997-2000 M
00b0: 61 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 att Newman <matt
00c0: 40 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 @novadigm.com>.
00d0: 2a 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 * Copyright (C)
00e0: 32 30 32 34 20 42 72 69 61 6e 20 4f 27 48 61 67 2024 Brian O'Hag
00f0: 61 6e 0a 20 2a 0a 20 2a 2f 0a 0a 2f 2a 0a 09 09 an. *. */../*...
0100: 74 6c 73 42 49 4f 2e 63 09 09 09 09 74 6c 73 49 tlsBIO.c....tlsI
0110: 4f 2e 63 0a 20 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 O.c. +------+
0120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0130: 20 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 +-----+
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0160: 20 20 20 2b 2d 2d 2d 2d 2d 2d 2b 0a 20 20 7c 20 +------+. |
0170: 20 20 20 20 20 7c 54 63 6c 5f 57 72 69 74 65 52 |Tcl_WriteR
0180: 61 77 20 3c 2d 2d 20 42 69 6f 57 72 69 74 65 7c aw <-- BioWrite|
0190: 20 53 53 4c 20 7c 42 49 4f 5f 77 72 69 74 65 20 SSL |BIO_write
01a0: 3c 2d 2d 20 54 6c 73 4f 75 74 70 75 74 50 72 6f <-- TlsOutputPro
01b0: 63 20 3c 2d 2d 20 57 72 69 74 65 7c 20 20 20 20 c <-- Write|
01c0: 20 20 7c 0a 20 20 7c 73 6f 63 6b 65 74 7c 20 20 |. |socket|
01d0: 20 20 20 20 3c 65 6e 63 72 79 70 74 65 64 3e 20 <encrypted>
01e0: 20 20 20 20 20 20 20 7c 20 42 49 4f 20 7c 20 20 | BIO |
01f0: 20 20 20 20 20 20 20 20 20 20 3c 75 6e 65 6e 63 <unenc
0200: 72 79 70 74 65 64 3e 20 20 20 20 20 20 20 20 20 rypted>
0210: 20 20 20 7c 20 41 70 70 20 20 7c 0a 20 20 7c 20 | App |. |
0220: 20 20 20 20 20 7c 54 63 6c 5f 52 65 61 64 52 61 |Tcl_ReadRa
0230: 77 20 20 2d 2d 3e 20 20 42 69 6f 52 65 61 64 7c w --> BioRead|
0240: 20 20 20 20 20 7c 42 49 4f 5f 52 65 61 64 20 20 |BIO_Read
0250: 2d 2d 3e 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 --> TlsInputProc
0260: 20 20 2d 2d 3e 20 20 52 65 61 64 7c 20 20 20 20 --> Read|
0270: 20 20 7c 0a 20 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 |. +------+
0280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0290: 20 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 +-----+
02a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02c0: 20 20 20 2b 2d 2d 2d 2d 2d 2d 2b 0a 2a 2f 0a 0a +------+.*/..
02d0: 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 6e 74 #include "tlsInt
02e0: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 .h".#include <op
02f0: 65 6e 73 73 6c 2f 62 69 6f 2e 68 3e 0a 0a 2f 2a enssl/bio.h>../*
0300: 20 44 65 66 69 6e 65 20 42 49 4f 20 6d 65 74 68 Define BIO meth
0310: 6f 64 73 20 73 74 72 75 63 74 75 72 65 20 2a 2f ods structure */
0320: 0a 73 74 61 74 69 63 20 42 49 4f 5f 4d 45 54 48 .static BIO_METH
0330: 4f 44 20 2a 42 69 6f 4d 65 74 68 6f 64 73 20 3d OD *BioMethods =
0340: 20 4e 55 4c 4c 3b 0a 0a 0a 0a 2f 2a 0a 20 2a 2d NULL;..../*. *-
0350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
03a0: 20 2a 20 42 49 4f 53 68 6f 75 6c 64 52 65 74 72 * BIOShouldRetr
03b0: 79 20 2d 2d 0a 20 2a 0a 20 2a 09 44 65 74 65 72 y --. *. *.Deter
03c0: 6d 69 6e 65 20 69 66 20 73 68 6f 75 6c 64 20 72 mine if should r
03d0: 65 74 72 79 20 6f 70 65 72 61 74 69 6f 6e 20 62 etry operation b
03e0: 61 73 65 64 20 6f 6e 20 65 72 72 6f 72 20 63 6f ased on error co
03f0: 64 65 2e 20 53 61 6d 65 0a 20 2a 09 63 6f 6e 64 de. Same. *.cond
0400: 69 74 69 6f 6e 73 20 61 73 20 42 49 4f 5f 73 6f itions as BIO_so
0410: 63 6b 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 20 ck_should_retry
0420: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 function.. *. *
0430: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 31 20 3d 20 Results:. *.1 =
0440: 72 65 74 72 79 2c 20 30 20 3d 20 6e 6f 20 72 65 retry, 0 = no re
0450: 74 72 79 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 try. *. * Side e
0460: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a ffects:. *.None.
0470: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
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 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 --. */..static i
04d0: 6e 74 20 42 49 4f 53 68 6f 75 6c 64 52 65 74 72 nt BIOShouldRetr
04e0: 79 28 69 6e 74 20 63 6f 64 65 29 20 7b 0a 20 20 y(int code) {.
04f0: 20 20 69 6e 74 20 72 65 73 20 3d 20 30 3b 0a 20 int res = 0;.
0500: 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 53 dprintf("BIOS
0510: 68 6f 75 6c 64 52 65 74 72 79 20 25 64 3d 25 73 houldRetry %d=%s
0520: 22 2c 20 63 6f 64 65 2c 20 54 63 6c 5f 45 72 72 ", code, Tcl_Err
0530: 6e 6f 4d 73 67 28 63 6f 64 65 29 29 3b 0a 0a 20 noMsg(code));..
0540: 20 20 20 69 66 20 28 63 6f 64 65 20 3d 3d 20 45 if (code == E
0550: 41 47 41 49 4e 20 7c 7c 20 63 6f 64 65 20 3d 3d AGAIN || code ==
0560: 20 45 57 4f 55 4c 44 42 4c 4f 43 4b 20 7c 7c 20 EWOULDBLOCK ||
0570: 63 6f 64 65 20 3d 3d 20 45 4e 4f 54 43 4f 4e 4e code == ENOTCONN
0580: 20 7c 7c 20 63 6f 64 65 20 3d 3d 20 45 50 52 4f || code == EPRO
0590: 54 4f 20 7c 7c 0a 23 69 66 64 65 66 20 5f 57 49 TO ||.#ifdef _WI
05a0: 4e 33 32 0a 09 63 6f 64 65 20 3d 3d 20 57 53 41 N32..code == WSA
05b0: 45 57 4f 55 4c 44 42 4c 4f 43 4b 20 7c 7c 0a 23 EWOULDBLOCK ||.#
05c0: 65 6e 64 69 66 0a 09 63 6f 64 65 20 3d 3d 20 45 endif..code == E
05d0: 49 4e 54 52 20 7c 7c 20 63 6f 64 65 20 3d 3d 20 INTR || code ==
05e0: 45 49 4e 50 52 4f 47 52 45 53 53 20 7c 7c 20 63 EINPROGRESS || c
05f0: 6f 64 65 20 3d 3d 20 45 41 4c 52 45 41 44 59 29 ode == EALREADY)
0600: 20 7b 0a 09 72 65 73 20 3d 20 31 3b 0a 20 20 20 {..res = 1;.
0610: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 }.. dprintf(
0620: 22 42 49 4f 53 68 6f 75 6c 64 52 65 74 72 79 20 "BIOShouldRetry
0630: 25 64 3d 25 73 2c 20 72 65 73 3d 25 64 22 2c 20 %d=%s, res=%d",
0640: 63 6f 64 65 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d code, Tcl_ErrnoM
0650: 73 67 28 63 6f 64 65 29 2c 20 72 65 73 29 3b 0a sg(code), res);.
0660: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b . return res;
0670: 0a 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d ----------------
06a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06c0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f ------. *. * Bio
06d0: 57 72 69 74 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 Write --. *. *.T
06e0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
06f0: 75 73 65 64 20 74 6f 20 72 65 61 64 20 65 6e 63 used to read enc
0700: 72 79 70 74 65 64 20 64 61 74 61 20 66 72 6f 6d rypted data from
0710: 20 74 68 65 20 42 49 4f 20 61 6e 64 20 77 72 69 the BIO and wri
0720: 74 65 20 69 74 0a 20 2a 09 69 6e 74 6f 20 74 68 te it. *.into th
0730: 65 20 73 6f 63 6b 65 74 2e 20 54 68 69 73 20 66 e socket. This f
0740: 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 unction will be
0750: 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e called in respon
0760: 73 65 20 74 6f 20 74 68 65 0a 20 2a 09 61 70 70 se to the. *.app
0770: 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 lication calling
0780: 20 74 68 65 20 42 49 4f 5f 77 72 69 74 65 5f 65 the BIO_write_e
0790: 78 28 29 20 6f 72 20 42 49 4f 5f 77 72 69 74 65 x() or BIO_write
07a0: 28 29 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 20 2a () functions.. *
07b0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
07c0: 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 Returns the numb
07d0: 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 74 er of bytes writ
07e0: 74 65 6e 20 74 6f 20 63 68 61 6e 6e 65 6c 2c 20 ten to channel,
07f0: 30 20 66 6f 72 20 45 4f 46 2c 20 6f 72 20 2d 31 0 for EOF, or -1
0800: 20 66 6f 72 0a 20 2a 09 65 72 72 6f 72 2e 0a 20 for. *.error..
0810: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
0820: 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 42 49 4f s:. *.Writes BIO
0830: 20 64 61 74 61 20 74 6f 20 63 68 61 6e 6e 65 6c data to channel
0840: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
0850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0890: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
08a0: 20 69 6e 74 20 42 69 6f 57 72 69 74 65 28 42 49 int BioWrite(BI
08b0: 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73 74 20 63 68 O *bio, const ch
08c0: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 ar *buf, int buf
08d0: 4c 65 6e 29 20 7b 0a 20 20 20 20 54 63 6c 5f 53 Len) {. Tcl_S
08e0: 69 7a 65 20 72 65 74 3b 0a 20 20 20 20 69 6e 74 ize ret;. int
08f0: 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45 72 72 6e is_eof, tclErrn
0900: 6f 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 o;. State *st
0910: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
0920: 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 28 *) BIO_get_data(
0930: 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c 5f 43 68 bio);. Tcl_Ch
0940: 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 54 6c 73 annel chan = Tls
0950: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
0960: 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20 20 64 70 Ptr, 0);.. dp
0970: 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d rintf("[chan=%p]
0980: 20 42 69 6f 57 72 69 74 65 28 62 69 6f 3d 25 70 BioWrite(bio=%p
0990: 2c 20 62 75 66 3d 25 70 2c 20 6c 65 6e 3d 25 64 , buf=%p, len=%d
09a0: 29 22 2c 20 28 76 6f 69 64 20 2a 29 63 68 61 6e )", (void *)chan
09b0: 2c 20 28 76 6f 69 64 20 2a 29 20 62 69 6f 2c 20 , (void *) bio,
09c0: 62 75 66 2c 20 62 75 66 4c 65 6e 29 3b 0a 0a 20 buf, bufLen);..
09d0: 20 20 20 42 49 4f 5f 63 6c 65 61 72 5f 72 65 74 BIO_clear_ret
09e0: 72 79 5f 66 6c 61 67 73 28 62 69 6f 29 3b 0a 20 ry_flags(bio);.
09f0: 20 20 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 Tcl_SetErrno(
0a00: 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 57 72 69 74 0);.. /* Writ
0a10: 65 20 64 61 74 61 20 74 6f 20 75 6e 64 65 72 6c e data to underl
0a20: 79 69 6e 67 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a ying channel */.
0a30: 20 20 20 20 72 65 74 20 3d 20 54 63 6c 5f 57 72 ret = Tcl_Wr
0a40: 69 74 65 52 61 77 28 63 68 61 6e 2c 20 62 75 66 iteRaw(chan, buf
0a50: 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 62 75 66 , (Tcl_Size) buf
0a60: 4c 65 6e 29 3b 0a 20 20 20 20 69 73 5f 65 6f 66 Len);. is_eof
0a70: 20 3d 20 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 = Tcl_Eof(chan)
0a80: 3b 0a 20 20 20 20 74 63 6c 45 72 72 6e 6f 20 3d ;. tclErrno =
0a90: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b Tcl_GetErrno();
0aa0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 5b .. dprintf("[
0ab0: 63 68 61 6e 3d 25 70 5d 20 42 69 6f 57 72 69 74 chan=%p] BioWrit
0ac0: 65 28 25 64 29 20 2d 3e 20 25 22 20 54 43 4c 5f e(%d) -> %" TCL_
0ad0: 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 64 SIZE_MODIFIER "d
0ae0: 20 5b 74 63 6c 45 6f 66 3d 25 64 3b 20 74 63 6c [tclEof=%d; tcl
0af0: 45 72 72 6e 6f 3d 25 64 3a 20 25 73 5d 22 2c 0a Errno=%d: %s]",.
0b00: 09 28 76 6f 69 64 20 2a 29 20 63 68 61 6e 2c 20 .(void *) chan,
0b10: 62 75 66 4c 65 6e 2c 20 72 65 74 2c 20 69 73 5f bufLen, ret, is_
0b20: 65 6f 66 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 54 eof, tclErrno, T
0b30: 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c 45 cl_ErrnoMsg(tclE
0b40: 72 72 6e 6f 29 29 3b 0a 0a 20 20 20 20 69 66 20 rrno));.. if
0b50: 28 72 65 74 20 3e 20 30 29 20 7b 0a 09 64 70 72 (ret > 0) {..dpr
0b60: 69 6e 74 66 28 22 53 75 63 63 65 73 73 66 75 6c intf("Successful
0b70: 6c 79 20 77 72 6f 74 65 20 25 22 20 54 43 4c 5f ly wrote %" TCL_
0b80: 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 64 SIZE_MODIFIER "d
0b90: 20 62 79 74 65 73 20 6f 66 20 64 61 74 61 22 2c bytes of data",
0ba0: 20 72 65 74 29 3b 0a 0a 20 20 20 20 7d 20 65 6c ret);.. } el
0bb0: 73 65 20 69 66 20 28 72 65 74 20 3d 3d 20 30 29 se if (ret == 0)
0bc0: 20 7b 0a 09 69 66 20 28 69 73 5f 65 6f 66 29 20 {..if (is_eof)
0bd0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
0be0: 47 6f 74 20 45 4f 46 20 77 68 69 6c 65 20 77 72 Got EOF while wr
0bf0: 69 74 69 6e 67 2c 20 72 65 74 75 72 6e 69 6e 67 iting, returning
0c00: 20 61 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 52 65 a Connection Re
0c10: 73 65 74 20 65 72 72 6f 72 20 77 68 69 63 68 20 set error which
0c20: 6d 61 70 73 20 74 6f 20 53 6f 66 74 20 45 4f 46 maps to Soft EOF
0c30: 22 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6e ");..Tcl_SetErrn
0c40: 6f 28 45 43 4f 4e 4e 52 45 53 45 54 29 3b 0a 09 o(ECONNRESET);..
0c50: 20 20 20 20 42 49 4f 5f 73 65 74 5f 66 6c 61 67 BIO_set_flag
0c60: 73 28 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 s(bio, BIO_FLAGS
0c70: 5f 49 4e 5f 45 4f 46 29 3b 0a 0a 09 7d 20 65 6c _IN_EOF);...} el
0c80: 73 65 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 47 se {..dprintf("G
0c90: 6f 74 20 30 20 66 72 6f 6d 20 54 63 6c 5f 57 72 ot 0 from Tcl_Wr
0ca0: 69 74 65 52 61 77 2c 20 61 6e 64 20 45 4f 46 20 iteRaw, and EOF
0cb0: 69 73 20 6e 6f 74 20 73 65 74 3b 20 72 65 74 20 is not set; ret
0cc0: 3d 20 30 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f = 0");.. BIO_
0cd0: 73 65 74 5f 72 65 74 72 79 5f 77 72 69 74 65 28 set_retry_write(
0ce0: 62 69 6f 29 3b 0a 0a 09 64 70 72 69 6e 74 66 28 bio);...dprintf(
0cf0: 22 53 65 74 74 69 6e 67 20 72 65 74 72 79 20 72 "Setting retry r
0d00: 65 61 64 20 66 6c 61 67 22 29 3b 0a 09 42 49 4f ead flag");..BIO
0d10: 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 _set_retry_read(
0d20: 62 69 6f 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 bio);..}.. }
0d30: 65 6c 73 65 20 7b 0a 09 64 70 72 69 6e 74 66 28 else {..dprintf(
0d40: 22 57 65 20 67 6f 74 20 73 6f 6d 65 20 6b 69 6e "We got some kin
0d50: 64 20 6f 66 20 49 2f 4f 20 65 72 72 6f 72 22 29 d of I/O error")
0d60: 3b 0a 0a 09 69 66 20 28 42 49 4f 53 68 6f 75 6c ;...if (BIOShoul
0d70: 64 52 65 74 72 79 28 74 63 6c 45 72 72 6e 6f 29 dRetry(tclErrno)
0d80: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
0d90: 28 22 54 72 79 20 61 67 61 69 6e 20 66 6f 72 3a ("Try again for:
0da0: 20 25 69 3d 25 73 22 2c 20 74 63 6c 45 72 72 6e %i=%s", tclErrn
0db0: 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 o, Tcl_ErrnoMsg(
0dc0: 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 09 20 20 20 tclErrno));..
0dd0: 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 77 BIO_set_retry_w
0de0: 72 69 74 65 28 62 69 6f 29 3b 0a 0a 09 7d 20 65 rite(bio);...} e
0df0: 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e lse {.. dprin
0e00: 74 66 28 22 55 6e 65 78 70 65 63 74 65 64 20 65 tf("Unexpected e
0e10: 72 72 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 63 rror: %i=%s", tc
0e20: 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e lErrno, Tcl_Errn
0e30: 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b oMsg(tclErrno));
0e40: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 ..}. }.. d
0e50: 70 72 69 6e 74 66 28 22 42 69 6f 57 72 69 74 65 printf("BioWrite
0e60: 20 72 65 74 75 72 6e 69 6e 67 20 25 22 20 54 43 returning %" TC
0e70: 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 L_SIZE_MODIFIER
0e80: 22 64 22 2c 20 72 65 74 29 3b 0a 20 20 20 20 72 "d", ret);. r
0e90: 65 74 75 72 6e 20 28 69 6e 74 29 20 72 65 74 3b eturn (int) ret;
0ea0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
0eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ef0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f ------. *. * Bio
0f00: 52 65 61 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Read --. *. *.Th
0f10: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 is function is u
0f20: 73 65 64 20 74 6f 20 72 65 61 64 20 65 6e 63 72 sed to read encr
0f30: 79 70 74 65 64 20 64 61 74 61 20 66 72 6f 6d 20 ypted data from
0f40: 74 68 65 20 73 6f 63 6b 65 74 20 61 6e 64 0a 20 the socket and.
0f50: 2a 09 77 72 69 74 65 20 69 74 20 69 6e 74 6f 20 *.write it into
0f60: 74 68 65 20 42 49 4f 2e 20 54 68 69 73 20 66 75 the BIO. This fu
0f70: 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 nction will be c
0f80: 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 alled in respons
0f90: 65 20 74 6f 20 74 68 65 0a 20 2a 09 61 70 70 6c e to the. *.appl
0fa0: 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 ication calling
0fb0: 74 68 65 20 42 49 4f 5f 72 65 61 64 5f 65 78 28 the BIO_read_ex(
0fc0: 29 20 6f 72 20 42 49 4f 5f 72 65 61 64 28 29 20 ) or BIO_read()
0fd0: 66 75 6e 63 74 69 6f 6e 73 2e 0a 20 2a 0a 20 2a functions.. *. *
0fe0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 Results:. *.Ret
0ff0: 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 urns the number
1000: 6f 66 20 62 79 74 65 73 20 72 65 61 64 20 66 72 of bytes read fr
1010: 6f 6d 20 63 68 61 6e 6e 65 6c 2c 20 30 20 66 6f om channel, 0 fo
1020: 72 20 45 4f 46 2c 20 6f 72 20 2d 31 20 66 6f 72 r EOF, or -1 for
1030: 0a 20 2a 09 65 72 72 6f 72 2e 0a 20 2a 0a 20 2a . *.error.. *. *
1040: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
1050: 2a 09 52 65 61 64 73 20 63 68 61 6e 6e 65 6c 20 *.Reads channel
1060: 64 61 74 61 20 69 6e 74 6f 20 42 49 4f 2e 0a 20 data into BIO..
1070: 2a 0a 20 2a 20 44 61 74 61 20 69 73 20 72 65 63 *. * Data is rec
1080: 65 69 76 65 64 20 69 6e 20 77 68 6f 6c 65 20 62 eived in whole b
1090: 6c 6f 63 6b 73 20 6b 6e 6f 77 6e 20 61 73 20 72 locks known as r
10a0: 65 63 6f 72 64 73 20 66 72 6f 6d 20 74 68 65 20 ecords from the
10b0: 70 65 65 72 2e 20 41 20 77 68 6f 6c 65 0a 20 2a peer. A whole. *
10c0: 20 72 65 63 6f 72 64 20 69 73 20 70 72 6f 63 65 record is proce
10d0: 73 73 65 64 20 28 65 2e 67 2e 20 64 65 63 72 79 ssed (e.g. decry
10e0: 70 74 65 64 29 20 69 6e 20 6f 6e 65 20 67 6f 20 pted) in one go
10f0: 61 6e 64 20 69 73 20 62 75 66 66 65 72 65 64 20 and is buffered
1100: 62 79 20 4f 70 65 6e 53 53 4c 0a 20 2a 20 75 6e by OpenSSL. * un
1110: 74 69 6c 20 69 74 20 69 73 20 72 65 61 64 20 62 til it is read b
1120: 79 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f y the applicatio
1130: 6e 20 76 69 61 20 61 20 63 61 6c 6c 20 74 6f 20 n via a call to
1140: 53 53 4c 5f 72 65 61 64 2e 20 53 53 4c 5f 70 65 SSL_read. SSL_pe
1150: 6e 64 69 6e 67 28 29 0a 20 2a 20 72 65 74 75 72 nding(). * retur
1160: 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 ns the number of
1170: 20 62 79 74 65 73 20 77 68 69 63 68 20 68 61 76 bytes which hav
1180: 65 20 62 65 65 6e 20 70 72 6f 63 65 73 73 65 64 e been processed
1190: 2c 20 62 75 66 66 65 72 65 64 2c 20 61 6e 64 20 , buffered, and
11a0: 61 72 65 0a 20 2a 20 61 76 61 69 6c 61 62 6c 65 are. * available
11b0: 20 69 6e 73 69 64 65 20 73 73 6c 20 66 6f 72 20 inside ssl for
11c0: 69 6d 6d 65 64 69 61 74 65 20 72 65 61 64 2e 20 immediate read.
11d0: 53 53 4c 5f 68 61 73 5f 70 65 6e 64 69 6e 67 28 SSL_has_pending(
11e0: 29 20 72 65 74 75 72 6e 73 20 31 20 69 66 0a 20 ) returns 1 if.
11f0: 2a 20 64 61 74 61 20 69 73 20 62 75 66 66 65 72 * data is buffer
1200: 65 64 20 28 77 68 65 74 68 65 72 20 70 72 6f 63 ed (whether proc
1210: 65 73 73 65 64 20 6f 72 20 75 6e 70 72 6f 63 65 essed or unproce
1220: 73 73 65 64 29 20 61 6e 64 20 30 20 6f 74 68 65 ssed) and 0 othe
1230: 72 77 69 73 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d rwise.. *. *----
1240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 ---------. */..s
1290: 74 61 74 69 63 20 69 6e 74 20 42 69 6f 52 65 61 tatic int BioRea
12a0: 64 28 42 49 4f 20 2a 62 69 6f 2c 20 63 68 61 72 d(BIO *bio, char
12b0: 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 4c 65 *buf, int bufLe
12c0: 6e 29 20 7b 0a 20 20 20 20 54 63 6c 5f 53 69 7a n) {. Tcl_Siz
12d0: 65 20 72 65 74 20 3d 20 30 3b 0a 20 20 20 20 69 e ret = 0;. i
12e0: 6e 74 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45 72 nt is_eof, tclEr
12f0: 72 6e 6f 2c 20 69 73 5f 62 6c 6f 63 6b 65 64 3b rno, is_blocked;
1300: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
1310: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
1320: 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 28 62 69 BIO_get_data(bi
1330: 6f 29 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e o);. Tcl_Chan
1340: 6e 65 6c 20 63 68 61 6e 20 3d 20 54 6c 73 5f 47 nel chan = Tls_G
1350: 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 etParent(statePt
1360: 72 2c 20 30 29 3b 0a 0a 20 20 20 20 64 70 72 69 r, 0);.. dpri
1370: 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 ntf("[chan=%p] B
1380: 69 6f 52 65 61 64 28 62 69 6f 3d 25 70 2c 20 62 ioRead(bio=%p, b
1390: 75 66 3d 25 70 2c 20 6c 65 6e 3d 25 64 29 22 2c uf=%p, len=%d)",
13a0: 20 28 76 6f 69 64 20 2a 29 20 63 68 61 6e 2c 20 (void *) chan,
13b0: 28 76 6f 69 64 20 2a 29 20 62 69 6f 2c 20 62 75 (void *) bio, bu
13c0: 66 2c 20 62 75 66 4c 65 6e 29 3b 0a 0a 20 20 20 f, bufLen);..
13d0: 20 69 66 20 28 62 75 66 20 3d 3d 20 4e 55 4c 4c if (buf == NULL
13e0: 20 7c 7c 20 62 75 66 4c 65 6e 20 3c 3d 20 30 29 || bufLen <= 0)
13f0: 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 {..return 0;.
1400: 20 20 7d 0a 0a 20 20 20 20 42 49 4f 5f 63 6c 65 }.. BIO_cle
1410: 61 72 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 62 ar_retry_flags(b
1420: 69 6f 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 io);. Tcl_Set
1430: 45 72 72 6e 6f 28 30 29 3b 0a 0a 20 20 20 20 2f Errno(0);.. /
1440: 2a 20 52 65 61 64 20 64 61 74 61 20 66 72 6f 6d * Read data from
1450: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e underlying chan
1460: 6e 65 6c 20 2a 2f 0a 20 20 20 20 72 65 74 20 3d nel */. ret =
1470: 20 54 63 6c 5f 52 65 61 64 52 61 77 28 63 68 61 Tcl_ReadRaw(cha
1480: 6e 2c 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a n, buf, (Tcl_Siz
1490: 65 29 20 62 75 66 4c 65 6e 29 3b 0a 0a 20 20 20 e) bufLen);..
14a0: 20 69 73 5f 65 6f 66 20 3d 20 54 63 6c 5f 45 6f is_eof = Tcl_Eo
14b0: 66 28 63 68 61 6e 29 3b 0a 20 20 20 20 74 63 6c f(chan);. tcl
14c0: 45 72 72 6e 6f 20 3d 20 54 63 6c 5f 47 65 74 45 Errno = Tcl_GetE
14d0: 72 72 6e 6f 28 29 3b 0a 20 20 20 20 69 73 5f 62 rrno();. is_b
14e0: 6c 6f 63 6b 65 64 20 3d 20 54 63 6c 5f 49 6e 70 locked = Tcl_Inp
14f0: 75 74 42 6c 6f 63 6b 65 64 28 63 68 61 6e 29 3b utBlocked(chan);
1500: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 5b .. dprintf("[
1510: 63 68 61 6e 3d 25 70 5d 20 42 69 6f 52 65 61 64 chan=%p] BioRead
1520: 28 25 64 29 20 2d 3e 20 25 22 20 54 43 4c 5f 53 (%d) -> %" TCL_S
1530: 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 64 20 IZE_MODIFIER "d
1540: 5b 74 63 6c 45 6f 66 3d 25 64 3b 20 62 6c 6f 63 [tclEof=%d; bloc
1550: 6b 65 64 3d 25 64 3b 20 74 63 6c 45 72 72 6e 6f ked=%d; tclErrno
1560: 3d 25 64 3a 20 25 73 5d 22 2c 0a 09 28 76 6f 69 =%d: %s]",..(voi
1570: 64 20 2a 29 20 63 68 61 6e 2c 20 62 75 66 4c 65 d *) chan, bufLe
1580: 6e 2c 20 72 65 74 2c 20 69 73 5f 65 6f 66 2c 20 n, ret, is_eof,
1590: 69 73 5f 62 6c 6f 63 6b 65 64 2c 20 74 63 6c 45 is_blocked, tclE
15a0: 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d rrno, Tcl_ErrnoM
15b0: 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 0a sg(tclErrno));..
15c0: 20 20 20 20 69 66 20 28 72 65 74 20 3e 20 30 29 if (ret > 0)
15d0: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 53 75 63 {..dprintf("Suc
15e0: 63 65 73 73 66 75 6c 6c 79 20 72 65 61 64 20 25 cessfully read %
15f0: 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 " TCL_SIZE_MODIF
1600: 49 45 52 20 22 64 20 62 79 74 65 73 20 6f 66 20 IER "d bytes of
1610: 64 61 74 61 22 2c 20 72 65 74 29 3b 0a 0a 20 20 data", ret);..
1620: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 74 } else if (ret
1630: 20 3d 3d 20 30 29 20 7b 0a 09 69 66 20 28 69 73 == 0) {..if (is
1640: 5f 65 6f 66 29 20 7b 0a 09 20 20 20 20 64 70 72 _eof) {.. dpr
1650: 69 6e 74 66 28 22 47 6f 74 20 45 4f 46 20 77 68 intf("Got EOF wh
1660: 69 6c 65 20 72 65 61 64 69 6e 67 2c 20 72 65 74 ile reading, ret
1670: 75 72 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 74 urning a Connect
1680: 69 6f 6e 20 52 65 73 65 74 20 65 72 72 6f 72 20 ion Reset error
1690: 77 68 69 63 68 20 6d 61 70 73 20 74 6f 20 53 6f which maps to So
16a0: 66 74 20 45 4f 46 22 29 3b 0a 09 20 20 20 54 63 ft EOF");.. Tc
16b0: 6c 5f 53 65 74 45 72 72 6e 6f 28 45 43 4f 4e 4e l_SetErrno(ECONN
16c0: 52 45 53 45 54 29 3b 0a 09 20 20 20 20 42 49 4f RESET);.. BIO
16d0: 5f 73 65 74 5f 66 6c 61 67 73 28 62 69 6f 2c 20 _set_flags(bio,
16e0: 42 49 4f 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 BIO_FLAGS_IN_EOF
16f0: 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 );...} else if (
1700: 69 73 5f 62 6c 6f 63 6b 65 64 29 20 7b 0a 09 20 is_blocked) {..
1710: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
1720: 69 6e 70 75 74 20 62 6c 6f 63 6b 65 64 20 66 72 input blocked fr
1730: 6f 6d 20 54 63 6c 5f 52 65 61 64 52 61 77 22 29 om Tcl_ReadRaw")
1740: 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
1750: 53 65 74 74 69 6e 67 20 72 65 74 72 79 20 72 65 Setting retry re
1760: 61 64 20 66 6c 61 67 22 29 3b 0a 09 20 20 20 20 ad flag");..
1770: 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 BIO_set_retry_re
1780: 61 64 28 62 69 6f 29 3b 0a 09 7d 0a 0a 20 20 20 ad(bio);..}..
1790: 20 7d 20 65 6c 73 65 20 7b 0a 09 64 70 72 69 6e } else {..dprin
17a0: 74 66 28 22 57 65 20 67 6f 74 20 73 6f 6d 65 20 tf("We got some
17b0: 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 65 72 72 6f kind of I/O erro
17c0: 72 22 29 3b 0a 0a 09 69 66 20 28 42 49 4f 53 68 r");...if (BIOSh
17d0: 6f 75 6c 64 52 65 74 72 79 28 74 63 6c 45 72 72 ouldRetry(tclErr
17e0: 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 no)) {.. dpri
17f0: 6e 74 66 28 22 54 72 79 20 61 67 61 69 6e 20 66 ntf("Try again f
1800: 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 63 6c 45 or: %i=%s", tclE
1810: 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d rrno, Tcl_ErrnoM
1820: 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 09 sg(tclErrno));..
1830: 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 BIO_set_retr
1840: 79 5f 72 65 61 64 28 62 69 6f 29 3b 0a 0a 09 7d y_read(bio);...}
1850: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 else {.. dpr
1860: 69 6e 74 66 28 22 55 6e 65 78 70 65 63 74 65 64 intf("Unexpected
1870: 20 65 72 72 6f 72 3a 20 25 69 3d 25 73 22 2c 20 error: %i=%s",
1880: 74 63 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 tclErrno, Tcl_Er
1890: 72 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 rnoMsg(tclErrno)
18a0: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 );..}. }..
18b0: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 52 65 61 dprintf("BioRea
18c0: 64 20 72 65 74 75 72 6e 69 6e 67 20 25 22 20 54 d returning %" T
18d0: 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 CL_SIZE_MODIFIER
18e0: 20 22 64 22 2c 20 72 65 74 29 3b 0a 20 20 20 20 "d", ret);.
18f0: 72 65 74 75 72 6e 20 28 69 6e 74 29 20 72 65 74 return (int) ret
1900: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
1910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1950: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 -------. *. * Bi
1960: 6f 50 75 74 73 20 2d 2d 0a 20 2a 0a 20 2a 09 54 oPuts --. *. *.T
1970: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
1980: 75 73 65 64 20 74 6f 20 72 65 61 64 20 61 20 4e used to read a N
1990: 55 4c 4c 20 74 65 72 6d 69 6e 61 74 65 64 20 73 ULL terminated s
19a0: 74 72 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 42 tring from the B
19b0: 49 4f 20 61 6e 64 0a 20 2a 09 77 72 69 74 65 20 IO and. *.write
19c0: 69 74 20 74 6f 20 74 68 65 20 63 68 61 6e 6e 65 it to the channe
19d0: 6c 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e l. This function
19e0: 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 will be called
19f0: 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f 0a 20 in response to.
1a00: 2a 09 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f *.the applicatio
1a10: 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 n calling the BI
1a20: 4f 5f 70 75 74 73 28 29 20 66 75 6e 63 74 69 6f O_puts() functio
1a30: 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 n.. *. * Results
1a40: 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 65 :. *.Returns the
1a50: 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 number of bytes
1a60: 20 77 72 69 74 74 65 6e 20 74 6f 20 63 68 61 6e written to chan
1a70: 6e 65 6c 20 6f 72 20 30 20 66 6f 72 20 65 72 72 nel or 0 for err
1a80: 6f 72 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 or.. *. * Side e
1a90: 66 66 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 ffects:. *.Write
1aa0: 73 20 64 61 74 61 20 74 6f 20 63 68 61 6e 6e 65 s data to channe
1ab0: 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d l.. *. *--------
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b00: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
1b10: 63 20 69 6e 74 20 42 69 6f 50 75 74 73 28 42 49 c int BioPuts(BI
1b20: 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73 74 20 63 68 O *bio, const ch
1b30: 61 72 20 2a 73 74 72 29 20 7b 0a 20 20 20 20 64 ar *str) {. d
1b40: 70 72 69 6e 74 66 28 22 42 69 6f 50 75 74 73 28 printf("BioPuts(
1b50: 25 70 29 20 5c 22 25 73 5c 22 22 2c 20 62 69 6f %p) \"%s\"", bio
1b60: 2c 20 73 74 72 29 3b 0a 0a 20 20 20 20 72 65 74 , str);.. ret
1b70: 75 72 6e 20 42 69 6f 57 72 69 74 65 28 62 69 6f urn BioWrite(bio
1b80: 2c 20 73 74 72 2c 20 28 69 6e 74 29 20 73 74 72 , str, (int) str
1b90: 6c 65 6e 28 73 74 72 29 29 3b 0a 7d 0a 0a 2f 2a len(str));.}../*
1ba0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
1bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bf0: 0a 20 2a 0a 20 2a 20 42 69 6f 43 74 72 6c 20 2d . *. * BioCtrl -
1c00: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e -. *. *.This fun
1c10: 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f ction is used to
1c20: 20 70 72 6f 63 65 73 73 20 63 6f 6e 74 72 6f 6c process control
1c30: 20 6d 65 73 73 61 67 65 73 20 69 6e 20 74 68 65 messages in the
1c40: 20 42 49 4f 2e 20 54 68 69 73 0a 20 2a 09 66 75 BIO. This. *.fu
1c50: 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 nction will be c
1c60: 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 alled in respons
1c70: 65 20 74 6f 20 74 68 65 20 61 70 70 6c 69 63 61 e to the applica
1c80: 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 tion calling the
1c90: 0a 20 2a 09 42 49 4f 5f 63 74 72 6c 28 29 20 66 . *.BIO_ctrl() f
1ca0: 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 unction.. *. * R
1cb0: 65 73 75 6c 74 73 3a 0a 20 2a 09 46 75 6e 63 74 esults:. *.Funct
1cc0: 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 0a 20 2a ion dependent. *
1cd0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
1ce0: 3a 0a 20 2a 09 46 75 6e 63 74 69 6f 6e 20 64 65 :. *.Function de
1cf0: 70 65 6e 64 65 6e 74 0a 20 2a 0a 20 2a 2d 2d 2d pendent. *. *---
1d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
1d50: 73 74 61 74 69 63 20 6c 6f 6e 67 20 42 69 6f 43 static long BioC
1d60: 74 72 6c 28 42 49 4f 20 2a 62 69 6f 2c 20 69 6e trl(BIO *bio, in
1d70: 74 20 63 6d 64 2c 20 6c 6f 6e 67 20 6e 75 6d 2c t cmd, long num,
1d80: 20 76 6f 69 64 20 2a 70 74 72 29 20 7b 0a 20 20 void *ptr) {.
1d90: 20 20 6c 6f 6e 67 20 72 65 74 20 3d 20 31 3b 0a long ret = 1;.
1da0: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
1db0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
1dc0: 42 49 4f 5f 67 65 74 5f 64 61 74 61 28 62 69 6f BIO_get_data(bio
1dd0: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e );. Tcl_Chann
1de0: 65 6c 20 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 el chan = Tls_Ge
1df0: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 tParent(statePtr
1e00: 2c 20 30 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e , 0);.. dprin
1e10: 74 66 28 22 42 69 6f 43 74 72 6c 28 25 70 2c 20 tf("BioCtrl(%p,
1e20: 30 78 25 78 2c 20 30 78 25 6c 78 2c 20 25 70 29 0x%x, 0x%lx, %p)
1e30: 22 2c 20 28 76 6f 69 64 20 2a 29 20 62 69 6f 2c ", (void *) bio,
1e40: 20 63 6d 64 2c 20 6e 75 6d 2c 20 70 74 72 29 3b cmd, num, ptr);
1e50: 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 63 6d .. switch (cm
1e60: 64 29 20 7b 0a 09 63 61 73 65 20 42 49 4f 5f 43 d) {..case BIO_C
1e70: 54 52 4c 5f 52 45 53 45 54 3a 0a 09 09 2f 2a 20 TRL_RESET:.../*
1e80: 6f 70 74 20 2d 20 52 65 73 65 74 73 20 42 49 4f opt - Resets BIO
1e90: 20 74 6f 20 69 6e 69 74 69 61 6c 20 73 74 61 74 to initial stat
1ea0: 65 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 e. Implements BI
1eb0: 4f 5f 72 65 73 65 74 2e 20 2a 2f 0a 09 09 64 70 O_reset. */...dp
1ec0: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
1ed0: 54 52 4c 5f 52 45 53 45 54 22 29 3b 0a 09 09 2f TRL_RESET");.../
1ee0: 2a 20 52 65 74 75 72 6e 20 31 20 66 6f 72 20 73 * Return 1 for s
1ef0: 75 63 63 65 73 73 20 28 30 20 66 6f 72 20 66 69 uccess (0 for fi
1f00: 6c 65 20 42 49 4f 73 29 20 61 6e 64 20 2d 31 20 le BIOs) and -1
1f10: 66 6f 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 for failure */..
1f20: 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 .ret = 0;...brea
1f30: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
1f40: 4c 5f 45 4f 46 3a 0a 09 09 2f 2a 20 6f 70 74 20 L_EOF:.../* opt
1f50: 2d 20 52 65 74 75 72 6e 73 20 77 68 65 74 68 65 - Returns whethe
1f60: 72 20 45 4f 46 20 68 61 73 20 62 65 65 6e 20 72 r EOF has been r
1f70: 65 61 63 68 65 64 2e 20 49 6d 70 6c 65 6d 65 6e eached. Implemen
1f80: 74 73 20 42 49 4f 5f 65 6f 66 2e 20 2a 2f 0a 09 ts BIO_eof. */..
1f90: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 .dprintf("Got BI
1fa0: 4f 5f 43 54 52 4c 5f 45 4f 46 22 29 3b 0a 09 09 O_CTRL_EOF");...
1fb0: 2f 2a 20 52 65 74 75 72 6e 73 20 31 20 69 66 20 /* Returns 1 if
1fc0: 45 4f 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 EOF has been rea
1fd0: 63 68 65 64 2c 20 30 20 69 66 20 6e 6f 74 2c 20 ched, 0 if not,
1fe0: 6f 72 20 3c 30 20 66 6f 72 20 66 61 69 6c 75 72 or <0 for failur
1ff0: 65 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 28 63 e */...ret = ((c
2000: 68 61 6e 29 20 3f 20 28 54 63 6c 5f 45 6f 66 28 han) ? (Tcl_Eof(
2010: 63 68 61 6e 29 20 7c 7c 20 42 49 4f 5f 74 65 73 chan) || BIO_tes
2020: 74 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f t_flags(bio, BIO
2030: 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 29 29 20 _FLAGS_IN_EOF))
2040: 3a 20 31 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 : 1);...break;..
2050: 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 49 4e case BIO_CTRL_IN
2060: 46 4f 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 65 FO:.../* opt - e
2070: 78 74 72 61 20 69 6e 66 6f 20 6f 6e 20 42 49 4f xtra info on BIO
2080: 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f . Implements BIO
2090: 5f 67 65 74 5f 6d 65 6d 5f 64 61 74 61 20 2a 2f _get_mem_data */
20a0: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
20b0: 42 49 4f 5f 43 54 52 4c 5f 49 4e 46 4f 22 29 3b BIO_CTRL_INFO");
20c0: 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 ...ret = 0;...br
20d0: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
20e0: 54 52 4c 5f 53 45 54 3a 0a 09 09 2f 2a 20 6d 61 TRL_SET:.../* ma
20f0: 6e 20 2d 20 73 65 74 20 74 68 65 20 27 49 4f 27 n - set the 'IO'
2100: 20 70 61 72 61 6d 65 74 65 72 20 2a 2f 0a 09 09 parameter */...
2110: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f dprintf("Got BIO
2120: 5f 43 54 52 4c 5f 53 45 54 22 29 3b 0a 09 09 72 _CTRL_SET");...r
2130: 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b et = 0;...break;
2140: 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f ..case BIO_CTRL_
2150: 47 45 54 3a 0a 09 09 2f 2a 20 6d 61 6e 20 2d 20 GET:.../* man -
2160: 67 65 74 20 74 68 65 20 27 49 4f 27 20 70 61 72 get the 'IO' par
2170: 61 6d 65 74 65 72 20 2a 2f 0a 09 09 64 70 72 69 ameter */...dpri
2180: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
2190: 4c 5f 47 45 54 20 22 29 3b 0a 09 09 72 65 74 20 L_GET ");...ret
21a0: 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 = 0;...break;..c
21b0: 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 50 55 53 ase BIO_CTRL_PUS
21c0: 48 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 69 6e H:.../* opt - in
21d0: 74 65 72 6e 61 6c 2c 20 75 73 65 64 20 74 6f 20 ternal, used to
21e0: 73 69 67 6e 69 66 79 20 63 68 61 6e 67 65 2e 20 signify change.
21f0: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 70 Implements BIO_p
2200: 75 73 68 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 ush */...dprintf
2210: 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 50 ("Got BIO_CTRL_P
2220: 55 53 48 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 USH");...ret = 0
2230: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 ;...break;..case
2240: 20 42 49 4f 5f 43 54 52 4c 5f 50 4f 50 3a 0a 09 BIO_CTRL_POP:..
2250: 09 2f 2a 20 6f 70 74 20 2d 20 69 6e 74 65 72 6e ./* opt - intern
2260: 61 6c 2c 20 75 73 65 64 20 74 6f 20 73 69 67 6e al, used to sign
2270: 69 66 79 20 63 68 61 6e 67 65 2e 20 49 6d 70 6c ify change. Impl
2280: 65 6d 65 6e 74 73 20 42 49 4f 5f 70 6f 70 20 2a ements BIO_pop *
2290: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
22a0: 20 42 49 4f 5f 43 54 52 4c 5f 50 4f 50 22 29 3b BIO_CTRL_POP");
22b0: 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 ...ret = 0;...br
22c0: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
22d0: 54 52 4c 5f 47 45 54 5f 43 4c 4f 53 45 3a 0a 09 TRL_GET_CLOSE:..
22e0: 09 2f 2a 20 6d 61 6e 20 2d 20 47 65 74 20 74 68 ./* man - Get th
22f0: 65 20 63 6c 6f 73 65 20 6f 6e 20 42 49 4f 5f 66 e close on BIO_f
2300: 72 65 65 28 29 20 66 6c 61 67 20 73 65 74 20 62 ree() flag set b
2310: 79 20 42 49 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 y BIO_CTRL_SET_C
2320: 4c 4f 53 45 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 LOSE. Implements
2330: 20 42 49 4f 5f 67 65 74 5f 63 6c 6f 73 65 20 2a BIO_get_close *
2340: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
2350: 20 42 49 4f 5f 43 54 52 4c 5f 43 4c 4f 53 45 22 BIO_CTRL_CLOSE"
2360: 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 );.../* Returns
2370: 42 49 4f 5f 43 4c 4f 53 45 2c 20 42 49 4f 5f 4e BIO_CLOSE, BIO_N
2380: 4f 43 4c 4f 53 45 2c 20 6f 72 20 3c 30 20 66 6f OCLOSE, or <0 fo
2390: 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 72 r failure */...r
23a0: 65 74 20 3d 20 42 49 4f 5f 67 65 74 5f 73 68 75 et = BIO_get_shu
23b0: 74 64 6f 77 6e 28 62 69 6f 29 3b 0a 09 09 62 72 tdown(bio);...br
23c0: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
23d0: 54 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 3a 0a 09 TRL_SET_CLOSE:..
23e0: 09 2f 2a 20 6d 61 6e 20 2d 20 53 65 74 20 74 68 ./* man - Set th
23f0: 65 20 63 6c 6f 73 65 20 6f 6e 20 42 49 4f 5f 66 e close on BIO_f
2400: 72 65 65 28 29 20 66 6c 61 67 2e 20 49 6d 70 6c ree() flag. Impl
2410: 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 63 ements BIO_set_c
2420: 6c 6f 73 65 20 2a 2f 0a 09 09 64 70 72 69 6e 74 lose */...dprint
2430: 66 28 22 47 6f 74 20 42 49 4f 5f 53 45 54 5f 43 f("Got BIO_SET_C
2440: 4c 4f 53 45 22 29 3b 0a 09 09 42 49 4f 5f 73 65 LOSE");...BIO_se
2450: 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 t_shutdown(bio,
2460: 6e 75 6d 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 num);.../* Retur
2470: 6e 73 20 31 20 6f 6e 20 73 75 63 63 65 73 73 20 ns 1 on success
2480: 6f 72 20 3c 3d 30 20 66 6f 72 20 66 61 69 6c 75 or <=0 for failu
2490: 72 65 20 2a 2f 0a 09 09 72 65 74 20 3d 20 31 3b re */...ret = 1;
24a0: 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 ...break;..case
24b0: 42 49 4f 5f 43 54 52 4c 5f 50 45 4e 44 49 4e 47 BIO_CTRL_PENDING
24c0: 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65 74 :.../* opt - Ret
24d0: 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 urn number of by
24e0: 74 65 73 20 69 6e 20 42 49 4f 20 77 61 69 74 69 tes in BIO waiti
24f0: 6e 67 20 74 6f 20 62 65 20 72 65 61 64 2e 20 49 ng to be read. I
2500: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 70 65 mplements BIO_pe
2510: 6e 64 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 72 69 nding. */...dpri
2520: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
2530: 4c 5f 50 45 4e 44 49 4e 47 22 29 3b 0a 09 09 2f L_PENDING");.../
2540: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 61 6d 6f * Return the amo
2550: 75 6e 74 20 6f 66 20 70 65 6e 64 69 6e 67 20 64 unt of pending d
2560: 61 74 61 20 6f 72 20 30 20 66 6f 72 20 65 72 72 ata or 0 for err
2570: 6f 72 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 28 or */...ret = ((
2580: 63 68 61 6e 29 20 3f 20 54 63 6c 5f 49 6e 70 75 chan) ? Tcl_Inpu
2590: 74 42 75 66 66 65 72 65 64 28 63 68 61 6e 29 20 tBuffered(chan)
25a0: 3a 20 30 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 : 0);...break;..
25b0: 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 46 4c case BIO_CTRL_FL
25c0: 55 53 48 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 USH:.../* opt -
25d0: 46 6c 75 73 68 20 61 6e 79 20 62 75 66 66 65 72 Flush any buffer
25e0: 65 64 20 6f 75 74 70 75 74 2e 20 49 6d 70 6c 65 ed output. Imple
25f0: 6d 65 6e 74 73 20 42 49 4f 5f 66 6c 75 73 68 2e ments BIO_flush.
2600: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 */...dprintf("G
2610: 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 46 4c 55 53 ot BIO_CTRL_FLUS
2620: 48 22 29 3b 0a 09 09 2f 2a 20 55 73 65 20 54 63 H");.../* Use Tc
2630: 6c 5f 57 72 69 74 65 52 61 77 20 69 6e 73 74 65 l_WriteRaw inste
2640: 61 64 20 6f 66 20 54 63 6c 5f 46 6c 75 73 68 20 ad of Tcl_Flush
2650: 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 72 69 to operate on ri
2660: 67 68 74 20 63 68 61 6e 20 69 6e 20 73 74 61 63 ght chan in stac
2670: 6b 20 2a 2f 0a 09 09 2f 2a 20 52 65 74 75 72 6e k */.../* Return
2680: 73 20 31 20 66 6f 72 20 73 75 63 63 65 73 73 2c s 1 for success,
2690: 20 3c 3d 30 20 66 6f 72 20 65 72 72 6f 72 2f 72 <=0 for error/r
26a0: 65 74 72 79 2e 20 2a 2f 0a 09 09 72 65 74 20 3d etry. */...ret =
26b0: 20 28 28 63 68 61 6e 29 20 26 26 20 28 54 63 6c ((chan) && (Tcl
26c0: 5f 57 72 69 74 65 52 61 77 28 63 68 61 6e 2c 20 _WriteRaw(chan,
26d0: 22 22 2c 20 30 29 20 3e 3d 20 30 29 20 3f 20 31 "", 0) >= 0) ? 1
26e0: 20 3a 20 2d 31 29 3b 0a 09 09 2f 2a 72 65 74 20 : -1);.../*ret
26f0: 3d 20 42 69 6f 57 72 69 74 65 28 62 69 6f 2c 20 = BioWrite(bio,
2700: 4e 55 4c 4c 2c 20 30 29 3b 2a 2f 0a 09 09 62 72 NULL, 0);*/...br
2710: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
2720: 54 52 4c 5f 44 55 50 3a 0a 09 09 2f 2a 20 6d 61 TRL_DUP:.../* ma
2730: 6e 20 2d 20 65 78 74 72 61 20 73 74 75 66 66 20 n - extra stuff
2740: 66 6f 72 20 27 64 75 70 65 64 27 20 42 49 4f 2e for 'duped' BIO.
2750: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2760: 64 75 70 5f 73 74 61 74 65 20 2a 2f 0a 09 09 64 dup_state */...d
2770: 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f printf("Got BIO_
2780: 43 54 52 4c 5f 44 55 50 22 29 3b 0a 09 09 72 65 CTRL_DUP");...re
2790: 74 20 3d 20 31 3b 0a 09 09 62 72 65 61 6b 3b 0a t = 1;...break;.
27a0: 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 57 .case BIO_CTRL_W
27b0: 50 45 4e 44 49 4e 47 3a 0a 09 09 2f 2a 20 6f 70 PENDING:.../* op
27c0: 74 20 2d 20 52 65 74 75 72 6e 20 6e 75 6d 62 65 t - Return numbe
27d0: 72 20 6f 66 20 62 79 74 65 73 20 69 6e 20 42 49 r of bytes in BI
27e0: 4f 20 73 74 69 6c 6c 20 74 6f 20 62 65 20 77 72 O still to be wr
27f0: 69 74 74 65 6e 2e 20 49 6d 70 6c 65 6d 65 6e 74 itten. Implement
2800: 73 20 42 49 4f 5f 77 70 65 6e 64 69 6e 67 2e 20 s BIO_wpending.
2810: 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f */...dprintf("Go
2820: 74 20 42 49 4f 5f 43 54 52 4c 5f 57 50 45 4e 44 t BIO_CTRL_WPEND
2830: 49 4e 47 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 ING");.../* Retu
2840: 72 6e 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 rn the amount of
2850: 20 70 65 6e 64 69 6e 67 20 64 61 74 61 20 6f 72 pending data or
2860: 20 30 20 66 6f 72 20 65 72 72 6f 72 20 2a 2f 0a 0 for error */.
2870: 09 09 72 65 74 20 3d 20 28 28 63 68 61 6e 29 20 ..ret = ((chan)
2880: 3f 20 54 63 6c 5f 4f 75 74 70 75 74 42 75 66 66 ? Tcl_OutputBuff
2890: 65 72 65 64 28 63 68 61 6e 29 20 3a 20 30 29 3b ered(chan) : 0);
28a0: 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 ...break;..case
28b0: 42 49 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 41 4c BIO_CTRL_SET_CAL
28c0: 4c 42 41 43 4b 3a 0a 09 09 2f 2a 20 6f 70 74 20 LBACK:.../* opt
28d0: 2d 20 53 65 74 73 20 61 6e 20 69 6e 66 6f 72 6d - Sets an inform
28e0: 61 74 69 6f 6e 61 6c 20 63 61 6c 6c 62 61 63 6b ational callback
28f0: 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f . Implements BIO
2900: 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 _set_info_callba
2910: 63 6b 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b ck */...ret = 0;
2920: 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 ...break;..case
2930: 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 43 41 4c BIO_CTRL_GET_CAL
2940: 4c 42 41 43 4b 3a 0a 09 09 2f 2a 20 6f 70 74 20 LBACK:.../* opt
2950: 2d 20 47 65 74 20 61 6e 64 20 72 65 74 75 72 6e - Get and return
2960: 20 74 68 65 20 69 6e 66 6f 20 63 61 6c 6c 62 61 the info callba
2970: 63 6b 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 ck. Implements B
2980: 49 4f 5f 67 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c IO_get_info_call
2990: 62 61 63 6b 20 2a 2f 0a 09 09 72 65 74 20 3d 20 back */...ret =
29a0: 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 09 63 61 0;...break;...ca
29b0: 73 65 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 45 se BIO_C_FILE_SE
29c0: 45 4b 3a 0a 09 09 2f 2a 20 4e 6f 74 20 75 73 65 EK:.../* Not use
29d0: 64 20 66 6f 72 20 73 6f 63 6b 65 74 73 2e 20 54 d for sockets. T
29e0: 63 6c 5f 53 65 65 6b 20 6f 6e 6c 79 20 77 6f 72 cl_Seek only wor
29f0: 6b 73 20 6f 6e 20 74 6f 70 20 63 68 61 6e 2e 20 ks on top chan.
2a00: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 73 Implements BIO_s
2a10: 65 65 6b 28 29 20 2a 2f 0a 09 09 64 70 72 69 6e eek() */...dprin
2a20: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 tf("Got BIO_C_FI
2a30: 4c 45 5f 53 45 45 4b 22 29 3b 0a 09 09 72 65 74 LE_SEEK");...ret
2a40: 20 3d 20 30 3b 20 2f 2a 20 52 65 74 75 72 6e 20 = 0; /* Return
2a50: 30 20 73 75 63 63 65 73 73 20 61 6e 64 20 2d 31 0 success and -1
2a60: 20 66 6f 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a for failure */.
2a70: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2a80: 49 4f 5f 43 5f 46 49 4c 45 5f 54 45 4c 4c 3a 0a IO_C_FILE_TELL:.
2a90: 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 20 66 6f ../* Not used fo
2aa0: 72 20 73 6f 63 6b 65 74 73 2e 20 54 63 6c 5f 54 r sockets. Tcl_T
2ab0: 65 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 6f ell only works o
2ac0: 6e 20 74 6f 70 20 63 68 61 6e 2e 20 49 6d 70 6c n top chan. Impl
2ad0: 65 6d 65 6e 74 73 20 42 49 4f 5f 74 65 6c 6c 28 ements BIO_tell(
2ae0: 29 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 ) */...dprintf("
2af0: 47 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 54 Got BIO_C_FILE_T
2b00: 45 4c 4c 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 ELL");...ret = 0
2b10: 3b 20 2f 2a 20 52 65 74 75 72 6e 20 30 20 73 75 ; /* Return 0 su
2b20: 63 63 65 73 73 20 61 6e 64 20 2d 31 20 66 6f 72 ccess and -1 for
2b30: 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 62 72 failure */...br
2b40: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
2b50: 5f 53 45 54 5f 46 44 3a 0a 09 09 2f 2a 20 49 6d _SET_FD:.../* Im
2b60: 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 74 plements BIO_set
2b70: 5f 66 64 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 _fd */...dprintf
2b80: 28 22 55 6e 73 75 70 70 6f 72 74 65 64 20 63 61 ("Unsupported ca
2b90: 6c 6c 3a 20 42 49 4f 5f 43 5f 53 45 54 5f 46 44 ll: BIO_C_SET_FD
2ba0: 22 29 3b 0a 09 09 72 65 74 20 3d 20 2d 31 3b 0a ");...ret = -1;.
2bb0: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2bc0: 49 4f 5f 43 5f 47 45 54 5f 46 44 3a 0a 09 09 2f IO_C_GET_FD:.../
2bd0: 2a 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f * Implements BIO
2be0: 5f 67 65 74 5f 66 64 28 29 20 2a 2f 0a 09 09 64 _get_fd() */...d
2bf0: 70 72 69 6e 74 66 28 22 55 6e 73 75 70 70 6f 72 printf("Unsuppor
2c00: 74 65 64 20 63 61 6c 6c 3a 20 42 49 4f 5f 43 5f ted call: BIO_C_
2c10: 47 45 54 5f 46 44 22 29 3b 0a 09 09 72 65 74 20 GET_FD");...ret
2c20: 3d 20 2d 31 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a = -1;...break;..
2c30: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 #if OPENSSL_VERS
2c40: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 ION_NUMBER >= 0x
2c50: 33 30 30 30 30 30 30 30 4c 20 26 26 20 64 65 66 30000000L && def
2c60: 69 6e 65 64 28 42 49 4f 5f 43 54 52 4c 5f 47 45 ined(BIO_CTRL_GE
2c70: 54 5f 4b 54 4c 53 5f 53 45 4e 44 29 0a 09 63 61 T_KTLS_SEND)..ca
2c80: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f se BIO_CTRL_GET_
2c90: 4b 54 4c 53 5f 53 45 4e 44 3a 0a 09 09 2f 2a 20 KTLS_SEND:.../*
2ca0: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 Implements BIO_g
2cb0: 65 74 5f 6b 74 6c 73 5f 73 65 6e 64 20 2a 2f 0a et_ktls_send */.
2cc0: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
2cd0: 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 IO_CTRL_GET_KTLS
2ce0: 5f 53 45 4e 44 22 29 3b 0a 09 09 2f 2a 20 52 65 _SEND");.../* Re
2cf0: 74 75 72 6e 73 20 31 20 69 66 20 74 68 65 20 42 turns 1 if the B
2d00: 49 4f 20 69 73 20 75 73 69 6e 67 20 74 68 65 20 IO is using the
2d10: 4b 65 72 6e 65 6c 20 54 4c 53 20 64 61 74 61 2d Kernel TLS data-
2d20: 70 61 74 68 20 66 6f 72 20 73 65 6e 64 69 6e 67 path for sending
2d30: 2c 20 30 20 69 66 20 6e 6f 74 20 2a 2f 0a 09 09 , 0 if not */...
2d40: 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b ret = 0;...break
2d50: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 4f 50 45 ;.#endif.#if OPE
2d60: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
2d70: 42 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 BER >= 0x3000000
2d80: 30 4c 20 26 26 20 64 65 66 69 6e 65 64 28 42 49 0L && defined(BI
2d90: 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f O_CTRL_GET_KTLS_
2da0: 52 45 43 56 29 0a 09 63 61 73 65 20 42 49 4f 5f RECV)..case BIO_
2db0: 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 52 45 CTRL_GET_KTLS_RE
2dc0: 43 56 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 6d 65 CV:.../* Impleme
2dd0: 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6b 74 6c 73 nts BIO_get_ktls
2de0: 5f 72 65 63 76 20 2a 2f 0a 09 09 64 70 72 69 6e _recv */...dprin
2df0: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
2e00: 5f 47 45 54 5f 4b 54 4c 53 5f 52 45 43 56 22 29 _GET_KTLS_RECV")
2e10: 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 31 ;.../* Returns 1
2e20: 20 69 66 20 74 68 65 20 42 49 4f 20 69 73 20 75 if the BIO is u
2e30: 73 69 6e 67 20 74 68 65 20 4b 65 72 6e 65 6c 20 sing the Kernel
2e40: 54 4c 53 20 64 61 74 61 2d 70 61 74 68 20 66 6f TLS data-path fo
2e50: 72 20 72 65 63 65 69 76 69 6e 67 2c 20 30 20 69 r receiving, 0 i
2e60: 66 20 6e 6f 74 20 2a 2f 0a 09 09 72 65 74 20 3d f not */...ret =
2e70: 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 23 65 6e 0;...break;.#en
2e80: 64 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a 09 09 dif..default:...
2e90: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 75 6e 6b dprintf("Got unk
2ea0: 6e 6f 77 6e 20 63 6f 6e 74 72 6f 6c 20 63 6f 6d nown control com
2eb0: 6d 61 6e 64 20 28 25 69 29 22 2c 20 63 6d 64 29 mand (%i)", cmd)
2ec0: 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 ;...ret = 0;...b
2ed0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 reak;. }.
2ee0: 64 70 72 69 6e 74 66 28 22 42 69 6f 43 74 72 6c dprintf("BioCtrl
2ef0: 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 25 6c return value %l
2f00: 69 22 2c 20 72 65 74 29 3b 0a 20 20 20 20 72 65 i", ret);. re
2f10: 74 75 72 6e 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a turn ret;.}../*.
2f20: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2f70: 20 2a 0a 20 2a 20 42 69 6f 4e 65 77 20 2d 2d 0a *. * BioNew --.
2f80: 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 *. *.This funct
2f90: 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 63 ion is used to c
2fa0: 72 65 61 74 65 20 61 20 6e 65 77 20 69 6e 73 74 reate a new inst
2fb0: 61 6e 63 65 20 6f 66 20 74 68 65 20 42 49 4f 2e ance of the BIO.
2fc0: 20 54 68 69 73 0a 20 2a 09 66 75 6e 63 74 69 6f This. *.functio
2fd0: 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 n will be called
2fe0: 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f 20 in response to
2ff0: 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 the application
3000: 63 61 6c 6c 69 6e 67 20 74 68 65 0a 20 2a 09 42 calling the. *.B
3010: 49 4f 5f 6e 65 77 28 29 20 66 75 6e 63 74 69 6f IO_new() functio
3020: 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 n.. *. * Results
3030: 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 62 6f 6f :. *.Returns boo
3040: 6c 65 61 6e 20 73 75 63 63 65 73 73 20 72 65 73 lean success res
3050: 75 6c 74 20 28 31 3d 73 75 63 63 65 73 73 2c 20 ult (1=success,
3060: 30 3d 66 61 69 6c 75 72 65 29 0a 20 2a 0a 20 2a 0=failure). *. *
3070: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3080: 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 42 49 *.Initializes BI
3090: 4f 20 73 74 72 75 63 74 75 72 65 2e 0a 20 2a 0a O structure.. *.
30a0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
30b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
30f0: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 */..static int
3100: 42 69 6f 4e 65 77 28 42 49 4f 20 2a 62 69 6f 29 BioNew(BIO *bio)
3110: 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 {. dprintf("
3120: 42 69 6f 4e 65 77 28 25 70 29 20 63 61 6c 6c 65 BioNew(%p) calle
3130: 64 22 2c 20 62 69 6f 29 3b 0a 0a 20 20 20 20 69 d", bio);.. i
3140: 66 20 28 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 20 f (bio == NULL)
3150: 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 {..return 0;.
3160: 20 7d 0a 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f }.. BIO_set_
3170: 64 61 74 61 28 62 69 6f 2c 20 4e 55 4c 4c 29 3b data(bio, NULL);
3180: 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 69 6e 69 . BIO_set_ini
3190: 74 28 62 69 6f 2c 20 30 29 3b 0a 20 20 20 20 42 t(bio, 0);. B
31a0: 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 62 IO_clear_flags(b
31b0: 69 6f 2c 20 2d 31 29 3b 0a 20 20 20 20 72 65 74 io, -1);. ret
31c0: 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d urn 1;.}../*. *-
31d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
3220: 20 2a 20 42 69 6f 46 72 65 65 20 2d 2d 0a 20 2a * BioFree --. *
3230: 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f . *.This functio
3240: 6e 20 69 73 20 75 73 65 64 20 74 6f 20 64 65 73 n is used to des
3250: 74 72 6f 79 20 61 6e 20 69 6e 73 74 61 6e 63 65 troy an instance
3260: 20 6f 66 20 61 20 42 49 4f 2e 20 54 68 69 73 20 of a BIO. This
3270: 66 75 6e 63 74 69 6f 6e 0a 20 2a 09 77 69 6c 6c function. *.will
3280: 20 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 be called in re
3290: 73 70 6f 6e 73 65 20 74 6f 20 74 68 65 20 61 70 sponse to the ap
32a0: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e plication callin
32b0: 67 20 74 68 65 20 42 49 4f 5f 66 72 65 65 28 29 g the BIO_free()
32c0: 0a 20 2a 09 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a . *.function.. *
32d0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
32e0: 52 65 74 75 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 Returns boolean
32f0: 73 75 63 63 65 73 73 20 72 65 73 75 6c 74 0a 20 success result.
3300: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3310: 73 3a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 s:. *.Initialize
3320: 73 20 42 49 4f 20 73 74 72 75 63 74 75 72 65 2e s BIO structure.
3330: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
3340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3380: 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 ---. */..static
3390: 69 6e 74 20 42 69 6f 46 72 65 65 28 42 49 4f 20 int BioFree(BIO
33a0: 2a 62 69 6f 29 20 7b 0a 20 20 20 20 64 70 72 69 *bio) {. dpri
33b0: 6e 74 66 28 22 42 69 6f 46 72 65 65 28 25 70 29 ntf("BioFree(%p)
33c0: 20 63 61 6c 6c 65 64 22 2c 20 62 69 6f 29 3b 0a called", bio);.
33d0: 0a 20 20 20 20 69 66 20 28 62 69 6f 20 3d 3d 20 . if (bio ==
33e0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
33f0: 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0;. }.. /*
3400: 20 43 6c 65 61 72 20 66 6c 61 67 73 20 69 66 20 Clear flags if
3410: 73 65 74 20 74 6f 20 42 49 4f 5f 43 4c 4f 53 45 set to BIO_CLOSE
3420: 20 28 63 6c 6f 73 65 20 49 2f 4f 20 73 74 72 65 (close I/O stre
3430: 61 6d 20 77 68 65 6e 20 74 68 65 20 42 49 4f 20 am when the BIO
3440: 69 73 20 66 72 65 65 64 29 20 2a 2f 0a 20 20 20 is freed) */.
3450: 20 69 66 20 28 42 49 4f 5f 67 65 74 5f 73 68 75 if (BIO_get_shu
3460: 74 64 6f 77 6e 28 62 69 6f 29 29 20 7b 0a 09 42 tdown(bio)) {..B
3470: 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 6f 2c IO_set_data(bio,
3480: 20 4e 55 4c 4c 29 3b 0a 09 42 49 4f 5f 73 65 74 NULL);..BIO_set
3490: 5f 69 6e 69 74 28 62 69 6f 2c 20 30 29 3b 0a 09 _init(bio, 0);..
34a0: 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 BIO_clear_flags(
34b0: 62 69 6f 2c 20 2d 31 29 3b 0a 20 20 20 20 7d 0a bio, -1);. }.
34c0: 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a return 1;.}.
34d0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
34e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3520: 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 49 4f 5f 6e 65 ---. *. * BIO_ne
3530: 77 5f 74 63 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 w_tcl --. *. *.T
3540: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
3550: 75 73 65 64 20 74 6f 20 69 6e 69 74 69 61 6c 69 used to initiali
3560: 7a 65 20 74 68 65 20 42 49 4f 20 6d 65 74 68 6f ze the BIO metho
3570: 64 20 68 61 6e 64 6c 65 72 73 2e 0a 20 2a 0a 20 d handlers.. *.
3580: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 * Results:. *.Re
3590: 74 75 72 6e 73 20 70 6f 69 6e 74 65 72 20 74 6f turns pointer to
35a0: 20 42 49 4f 20 6f 72 20 4e 55 4c 4c 20 66 6f 72 BIO or NULL for
35b0: 20 66 61 69 6c 75 72 65 0a 20 2a 0a 20 2a 20 53 failure. *. * S
35c0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
35d0: 49 6e 69 74 69 61 6c 69 7a 65 73 20 42 49 4f 20 Initializes BIO
35e0: 4d 65 74 68 6f 64 73 2e 0a 20 2a 0a 20 2a 2d 2d Methods.. *. *--
35f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3640: 0a 42 49 4f 20 2a 42 49 4f 5f 6e 65 77 5f 74 63 .BIO *BIO_new_tc
3650: 6c 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 l(State *statePt
3660: 72 2c 20 69 6e 74 20 66 6c 61 67 73 29 20 7b 0a r, int flags) {.
3670: 20 20 20 20 42 49 4f 20 2a 62 69 6f 3b 0a 23 69 BIO *bio;.#i
3680: 66 64 65 66 20 54 43 4c 54 4c 53 5f 53 53 4c 5f fdef TCLTLS_SSL_
3690: 55 53 45 5f 46 41 53 54 50 41 54 48 0a 20 20 20 USE_FASTPATH.
36a0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 Tcl_Channel par
36b0: 65 6e 74 43 68 61 6e 6e 65 6c 3b 0a 20 20 20 20 entChannel;.
36c0: 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 const Tcl_Channe
36d0: 6c 54 79 70 65 20 2a 70 61 72 65 6e 74 43 68 61 lType *parentCha
36e0: 6e 6e 65 6c 54 79 70 65 3b 0a 0a 20 20 20 20 69 nnelType;.. i
36f0: 6e 74 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c nt parentChannel
3700: 46 64 49 6e 2c 20 70 61 72 65 6e 74 43 68 61 6e FdIn, parentChan
3710: 6e 65 6c 46 64 4f 75 74 2c 20 70 61 72 65 6e 74 nelFdOut, parent
3720: 43 68 61 6e 6e 65 6c 46 64 3b 0a 20 20 20 20 69 ChannelFd;. i
3730: 6e 74 20 76 61 6c 69 64 50 61 72 65 6e 74 43 68 nt validParentCh
3740: 61 6e 6e 65 6c 46 64 3b 0a 23 65 6e 64 69 66 0a annelFd;.#endif.
3750: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 . dprintf("BI
3760: 4f 5f 6e 65 77 5f 74 63 6c 28 29 20 63 61 6c 6c O_new_tcl() call
3770: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 ed");.. /* Cr
3780: 65 61 74 65 20 63 75 73 74 6f 6d 20 42 49 4f 20 eate custom BIO
3790: 6d 65 74 68 6f 64 20 2a 2f 0a 20 20 20 20 69 66 method */. if
37a0: 20 28 42 69 6f 4d 65 74 68 6f 64 73 20 3d 3d 20 (BioMethods ==
37b0: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20 42 49 4f 5f NULL) {../* BIO_
37c0: 54 59 50 45 5f 42 49 4f 20 3d 20 28 31 39 7c 42 TYPE_BIO = (19|B
37d0: 49 4f 5f 54 59 50 45 5f 53 4f 55 52 43 45 5f 53 IO_TYPE_SOURCE_S
37e0: 49 4e 4b 29 20 2d 2d 20 68 61 6c 66 20 61 20 42 INK) -- half a B
37f0: 49 4f 20 70 61 69 72 20 2a 2f 0a 09 2f 2a 20 42 IO pair */../* B
3800: 49 4f 5f 54 59 50 45 5f 43 4f 4e 4e 45 43 54 20 IO_TYPE_CONNECT
3810: 3d 20 28 31 32 7c 42 49 4f 5f 54 59 50 45 5f 53 = (12|BIO_TYPE_S
3820: 4f 55 52 43 45 5f 53 49 4e 4b 7c 42 49 4f 5f 54 OURCE_SINK|BIO_T
3830: 59 50 45 5f 44 45 53 43 52 49 50 54 4f 52 29 20 YPE_DESCRIPTOR)
3840: 2a 2f 0a 09 2f 2a 20 42 49 4f 5f 54 59 50 45 5f */../* BIO_TYPE_
3850: 41 43 43 45 50 54 20 20 3d 20 28 31 33 7c 42 49 ACCEPT = (13|BI
3860: 4f 5f 54 59 50 45 5f 53 4f 55 52 43 45 5f 53 49 O_TYPE_SOURCE_SI
3870: 4e 4b 7c 42 49 4f 5f 54 59 50 45 5f 44 45 53 43 NK|BIO_TYPE_DESC
3880: 52 49 50 54 4f 52 29 20 2a 2f 0a 09 42 69 6f 4d RIPTOR) */..BioM
3890: 65 74 68 6f 64 73 20 3d 20 42 49 4f 5f 6d 65 74 ethods = BIO_met
38a0: 68 5f 6e 65 77 28 42 49 4f 5f 54 59 50 45 5f 42 h_new(BIO_TYPE_B
38b0: 49 4f 2c 20 22 74 63 6c 22 29 3b 0a 09 69 66 20 IO, "tcl");..if
38c0: 28 42 69 6f 4d 65 74 68 6f 64 73 20 3d 3d 20 4e (BioMethods == N
38d0: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 64 70 72 69 ULL) {.. dpri
38e0: 6e 74 66 28 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f ntf("Memory allo
38f0: 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 29 3b 0a cation error");.
3900: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 4e 55 4c .. return NUL
3910: 4c 3b 0a 09 7d 0a 09 2f 2a 20 4e 6f 74 20 75 73 L;..}../* Not us
3920: 65 64 20 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f ed BIO_meth_set_
3930: 77 72 69 74 65 5f 65 78 20 2a 2f 0a 09 42 49 4f write_ex */..BIO
3940: 5f 6d 65 74 68 5f 73 65 74 5f 77 72 69 74 65 28 _meth_set_write(
3950: 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 57 BioMethods, BioW
3960: 72 69 74 65 29 3b 0a 09 2f 2a 20 4e 6f 74 20 75 rite);../* Not u
3970: 73 65 64 20 42 49 4f 5f 6d 65 74 68 5f 73 65 74 sed BIO_meth_set
3980: 5f 72 65 61 64 5f 65 78 20 2a 2f 0a 09 42 49 4f _read_ex */..BIO
3990: 5f 6d 65 74 68 5f 73 65 74 5f 72 65 61 64 28 42 _meth_set_read(B
39a0: 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 52 65 ioMethods, BioRe
39b0: 61 64 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 ad);..BIO_meth_s
39c0: 65 74 5f 70 75 74 73 28 42 69 6f 4d 65 74 68 6f et_puts(BioMetho
39d0: 64 73 2c 20 42 69 6f 50 75 74 73 29 3b 0a 09 42 ds, BioPuts);..B
39e0: 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 74 72 6c IO_meth_set_ctrl
39f0: 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f (BioMethods, Bio
3a00: 43 74 72 6c 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 Ctrl);..BIO_meth
3a10: 5f 73 65 74 5f 63 72 65 61 74 65 28 42 69 6f 4d _set_create(BioM
3a20: 65 74 68 6f 64 73 2c 20 42 69 6f 4e 65 77 29 3b ethods, BioNew);
3a30: 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 64 ..BIO_meth_set_d
3a40: 65 73 74 72 6f 79 28 42 69 6f 4d 65 74 68 6f 64 estroy(BioMethod
3a50: 73 2c 20 42 69 6f 46 72 65 65 29 3b 0a 20 20 20 s, BioFree);.
3a60: 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 }.. if (stat
3a70: 65 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a ePtr == NULL) {.
3a80: 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 .dprintf("Asked
3a90: 74 6f 20 73 65 74 75 70 20 61 20 4e 55 4c 4c 20 to setup a NULL
3aa0: 73 74 61 74 65 2c 20 6a 75 73 74 20 63 72 65 61 state, just crea
3ab0: 74 69 6e 67 20 74 68 65 20 69 6e 69 74 69 61 6c ting the initial
3ac0: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 29 configuration")
3ad0: 3b 0a 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b ;...return NULL;
3ae0: 0a 20 20 20 20 7d 0a 0a 23 69 66 64 65 66 20 54 . }..#ifdef T
3af0: 43 4c 54 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41 CLTLS_SSL_USE_FA
3b00: 53 54 50 41 54 48 0a 20 20 20 20 2f 2a 0a 20 20 STPATH. /*.
3b10: 20 20 20 2a 20 49 66 20 74 68 65 20 63 68 61 6e * If the chan
3b20: 6e 65 6c 20 63 61 6e 20 62 65 20 6d 61 70 70 65 nel can be mappe
3b30: 64 20 62 61 63 6b 20 74 6f 20 61 20 66 69 6c 65 d back to a file
3b40: 20 64 65 73 63 72 69 70 74 6f 72 2c 20 6a 75 73 descriptor, jus
3b50: 74 20 75 73 65 20 74 68 65 20 66 69 6c 65 20 64 t use the file d
3b60: 65 73 63 72 69 70 74 6f 72 0a 20 20 20 20 20 2a escriptor. *
3b70: 20 77 69 74 68 20 74 68 65 20 53 53 4c 20 6c 69 with the SSL li
3b80: 62 72 61 72 79 20 73 69 6e 63 65 20 69 74 20 77 brary since it w
3b90: 69 6c 6c 20 6c 69 6b 65 6c 79 20 62 65 20 6f 70 ill likely be op
3ba0: 74 69 6d 69 7a 65 64 20 66 6f 72 20 74 68 69 73 timized for this
3bb0: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 70 61 .. */. pa
3bc0: 72 65 6e 74 43 68 61 6e 6e 65 6c 20 3d 20 54 6c rentChannel = Tl
3bd0: 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 s_GetParent(stat
3be0: 65 50 74 72 2c 20 30 29 3b 0a 20 20 20 20 70 61 ePtr, 0);. pa
3bf0: 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 65 20 rentChannelType
3c00: 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c = Tcl_GetChannel
3c10: 54 79 70 65 28 70 61 72 65 6e 74 43 68 61 6e 6e Type(parentChann
3c20: 65 6c 29 3b 0a 0a 20 20 20 20 76 61 6c 69 64 50 el);.. validP
3c30: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 20 3d arentChannelFd =
3c40: 20 30 3b 0a 20 20 20 20 69 66 20 28 73 74 72 63 0;. if (strc
3c50: 6d 70 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c mp(parentChannel
3c60: 54 79 70 65 2d 3e 74 79 70 65 4e 61 6d 65 2c 20 Type->typeName,
3c70: 22 74 63 70 22 29 20 3d 3d 20 30 29 20 7b 0a 09 "tcp") == 0) {..
3c80: 76 6f 69 64 20 2a 70 61 72 65 6e 74 43 68 61 6e void *parentChan
3c90: 6e 65 6c 46 64 49 6e 5f 70 2c 20 2a 70 61 72 65 nelFdIn_p, *pare
3ca0: 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70 ntChannelFdOut_p
3cb0: 3b 0a 09 69 6e 74 20 74 63 6c 47 65 74 43 68 61 ;..int tclGetCha
3cc0: 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 3b 0a 0a nnelHandleRet;..
3cd0: 09 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 .tclGetChannelHa
3ce0: 6e 64 6c 65 52 65 74 20 3d 20 54 63 6c 5f 47 65 ndleRet = Tcl_Ge
3cf0: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 tChannelHandle(p
3d00: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 2c 20 54 43 arentChannel, TC
3d10: 4c 5f 52 45 41 44 41 42 4c 45 2c 20 28 43 6c 69 L_READABLE, (Cli
3d20: 65 6e 74 44 61 74 61 29 20 26 70 61 72 65 6e 74 entData) &parent
3d30: 43 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 29 3b 0a ChannelFdIn_p);.
3d40: 09 69 66 20 28 74 63 6c 47 65 74 43 68 61 6e 6e .if (tclGetChann
3d50: 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 3d 20 54 elHandleRet == T
3d60: 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 74 63 CL_OK) {.. tc
3d70: 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c lGetChannelHandl
3d80: 65 52 65 74 20 3d 20 54 63 6c 5f 47 65 74 43 68 eRet = Tcl_GetCh
3d90: 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 61 72 65 annelHandle(pare
3da0: 6e 74 43 68 61 6e 6e 65 6c 2c 20 54 43 4c 5f 57 ntChannel, TCL_W
3db0: 52 49 54 41 42 4c 45 2c 20 28 43 6c 69 65 6e 74 RITABLE, (Client
3dc0: 44 61 74 61 29 20 26 70 61 72 65 6e 74 43 68 61 Data) &parentCha
3dd0: 6e 6e 65 6c 46 64 4f 75 74 5f 70 29 3b 0a 09 20 nnelFdOut_p);..
3de0: 20 20 20 69 66 20 28 74 63 6c 47 65 74 43 68 61 if (tclGetCha
3df0: 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 3d nnelHandleRet ==
3e00: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 70 61 72 TCL_OK) {...par
3e10: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 20 3d entChannelFdIn =
3e20: 20 50 54 52 32 49 4e 54 28 70 61 72 65 6e 74 43 PTR2INT(parentC
3e30: 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 29 3b 0a 09 hannelFdIn_p);..
3e40: 09 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 .parentChannelFd
3e50: 4f 75 74 20 3d 20 50 54 52 32 49 4e 54 28 70 61 Out = PTR2INT(pa
3e60: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 rentChannelFdOut
3e70: 5f 70 29 3b 0a 09 09 69 66 20 28 70 61 72 65 6e _p);...if (paren
3e80: 74 43 68 61 6e 6e 65 6c 46 64 49 6e 20 3d 3d 20 tChannelFdIn ==
3e90: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f parentChannelFdO
3ea0: 75 74 29 20 7b 0a 09 09 20 20 20 20 70 61 72 65 ut) {... pare
3eb0: 6e 74 43 68 61 6e 6e 65 6c 46 64 20 3d 20 70 61 ntChannelFd = pa
3ec0: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 3b rentChannelFdIn;
3ed0: 0a 09 09 20 20 20 20 76 61 6c 69 64 50 61 72 65 ... validPare
3ee0: 6e 74 43 68 61 6e 6e 65 6c 46 64 20 3d 20 31 3b ntChannelFd = 1;
3ef0: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 ...}.. }..}.
3f00: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 76 61 }.. if (va
3f10: 6c 69 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c lidParentChannel
3f20: 46 64 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 Fd) {..dprintf("
3f30: 57 65 20 66 6f 75 6e 64 20 61 20 73 68 6f 72 74 We found a short
3f40: 63 75 74 2c 20 74 68 69 73 20 63 68 61 6e 6e 65 cut, this channe
3f50: 6c 20 69 73 20 62 61 63 6b 65 64 20 62 79 20 61 l is backed by a
3f60: 20 73 6f 63 6b 65 74 3a 20 25 69 22 2c 20 70 61 socket: %i", pa
3f70: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 29 rentChannelFdIn)
3f80: 3b 0a 09 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 ;..bio = BIO_new
3f90: 5f 73 6f 63 6b 65 74 28 70 61 72 65 6e 74 43 68 _socket(parentCh
3fa0: 61 6e 6e 65 6c 46 64 2c 20 66 6c 61 67 73 29 3b annelFd, flags);
3fb0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
3fc0: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 53 s |= TLS_TCL_FAS
3fd0: 54 50 41 54 48 3b 0a 09 42 49 4f 5f 73 65 74 5f TPATH;..BIO_set_
3fe0: 64 61 74 61 28 62 69 6f 2c 20 73 74 61 74 65 50 data(bio, stateP
3ff0: 74 72 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 73 68 tr);..BIO_set_sh
4000: 75 74 64 6f 77 6e 28 62 69 6f 2c 20 66 6c 61 67 utdown(bio, flag
4010: 73 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 69 6e 69 s);..BIO_set_ini
4020: 74 28 62 69 6f 2c 20 31 29 3b 0a 09 72 65 74 75 t(bio, 1);..retu
4030: 72 6e 20 62 69 6f 3b 0a 20 20 20 20 7d 0a 23 65 rn bio;. }.#e
4040: 6e 64 69 66 0a 0a 20 20 20 20 64 70 72 69 6e 74 ndif.. dprint
4050: 66 28 22 46 61 6c 6c 69 6e 67 20 62 61 63 6b 20 f("Falling back
4060: 74 6f 20 54 63 6c 20 49 2f 4f 20 66 6f 72 20 74 to Tcl I/O for t
4070: 68 69 73 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 0a his channel");..
4080: 20 20 20 20 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 bio = BIO_ne
4090: 77 28 42 69 6f 4d 65 74 68 6f 64 73 29 3b 0a 20 w(BioMethods);.
40a0: 20 20 20 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 BIO_set_data(
40b0: 62 69 6f 2c 20 73 74 61 74 65 50 74 72 29 3b 0a bio, statePtr);.
40c0: 20 20 20 20 42 49 4f 5f 73 65 74 5f 73 68 75 74 BIO_set_shut
40d0: 64 6f 77 6e 28 62 69 6f 2c 20 66 6c 61 67 73 29 down(bio, flags)
40e0: 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 69 6e ;. BIO_set_in
40f0: 69 74 28 62 69 6f 2c 20 31 29 3b 20 2f 2a 20 45 it(bio, 1); /* E
4100: 6e 61 62 6c 65 20 72 65 61 64 20 26 20 77 72 69 nable read & wri
4110: 74 65 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e te */. return
4120: 20 62 69 6f 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d bio;.}../*. *--
4130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
4180: 2a 20 42 49 4f 5f 63 6c 65 61 6e 75 70 20 2d 2d * BIO_cleanup --
4190: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
41a0: 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 tion is used to
41b0: 64 65 73 74 72 6f 79 20 61 20 42 49 4f 5f 4d 45 destroy a BIO_ME
41c0: 54 48 4f 44 20 73 74 72 75 63 74 75 72 65 20 61 THOD structure a
41d0: 6e 64 20 66 72 65 65 20 75 70 20 61 6e 79 0a 20 nd free up any.
41e0: 2a 09 6d 65 6d 6f 72 79 20 61 73 73 6f 63 69 61 *.memory associa
41f0: 74 65 64 20 77 69 74 68 20 69 74 2e 0a 20 2a 0a ted with it.. *.
4200: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 53 * Results:. *.S
4210: 74 61 6e 64 61 72 64 20 54 43 4c 20 72 65 73 75 tandard TCL resu
4220: 6c 74 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 lt. *. * Side ef
4230: 66 65 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 6f fects:. *.Destro
4240: 79 73 20 42 49 4f 20 4d 65 74 68 6f 64 73 2e 0a ys BIO Methods..
4250: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
4260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42a0: 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 20 42 49 4f 5f --. */..int BIO_
42b0: 63 6c 65 61 6e 75 70 20 28 29 20 7b 0a 20 20 20 cleanup () {.
42c0: 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 63 6c dprintf("BIO_cl
42d0: 65 61 6e 75 70 28 29 20 63 61 6c 6c 65 64 22 29 eanup() called")
42e0: 3b 0a 0a 20 20 20 20 69 66 20 28 42 69 6f 4d 65 ;.. if (BioMe
42f0: 74 68 6f 64 73 20 21 3d 20 4e 55 4c 4c 29 20 7b thods != NULL) {
4300: 0a 09 42 49 4f 5f 6d 65 74 68 5f 66 72 65 65 28 ..BIO_meth_free(
4310: 42 69 6f 4d 65 74 68 6f 64 73 29 3b 0a 09 42 69 BioMethods);..Bi
4320: 6f 4d 65 74 68 6f 64 73 20 3d 20 4e 55 4c 4c 3b oMethods = NULL;
4330: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
4340: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a n TCL_OK;.}.