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 4e 6f an. *. */../*.No
0100: 72 6d 61 6c 0a 09 09 74 6c 73 42 49 4f 2e 63 09 rmal...tlsBIO.c.
0110: 09 09 74 6c 73 49 4f 2e 63 0a 20 2b 2d 2d 2d 2d ..tlsIO.c. +----
0120: 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 --+
0130: 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2d +----
0140: 2d 2b 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 2b 0a 20 7c 20 20 20 20 20 +---+. |
0170: 20 7c 54 63 6c 5f 57 72 69 74 65 52 61 77 3c 2d |Tcl_WriteRaw<-
0180: 2d 42 69 6f 4f 75 74 70 75 74 7c 20 53 53 4c 20 -BioOutput| SSL
0190: 7c 42 49 4f 5f 77 72 69 74 65 3c 2d 2d 54 6c 73 |BIO_write<--Tls
01a0: 4f 75 74 70 75 74 50 72 6f 63 20 3c 2d 2d 70 75 OutputProc <--pu
01b0: 74 73 7c 20 20 20 7c 0a 20 7c 73 6f 63 6b 65 74 ts| |. |socket
01c0: 7c 20 20 20 20 20 20 3c 65 6e 63 72 79 70 74 65 | <encrypte
01d0: 64 3e 20 20 20 20 20 20 20 7c 20 42 49 4f 20 7c d> | BIO |
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 3c 75 6e 65 <une
01f0: 6e 63 72 79 70 74 65 64 3e 20 20 20 20 20 20 20 ncrypted>
0200: 20 7c 41 70 70 7c 0a 20 7c 20 20 20 20 20 20 7c |App|. | |
0210: 54 63 6c 5f 52 65 61 64 52 61 77 20 2d 2d 3e 20 Tcl_ReadRaw -->
0220: 42 69 6f 49 6e 70 75 74 7c 20 20 20 20 20 7c 42 BioInput| |B
0230: 49 4f 5f 52 65 61 64 20 2d 2d 3e 54 6c 73 49 6e IO_Read -->TlsIn
0240: 70 75 74 50 72 6f 63 20 2d 2d 3e 20 72 65 61 64 putProc --> read
0250: 7c 20 20 20 7c 0a 20 2b 2d 2d 2d 2d 2d 2d 2b 20 | |. +------+
0260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270: 20 20 20 20 20 20 20 2b 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 20 20 20 20 20 20 20 20 2b +
02a0: 2d 2d 2d 2b 0a 0a 0a 46 61 73 74 20 50 61 74 68 ---+...Fast Path
02b0: 0a 09 09 09 09 09 09 74 6c 73 49 4f 2e 63 0a 20 .......tlsIO.c.
02c0: 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 +------+
02d0: 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 +-----+
02e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0300: 20 2b 2d 2d 2d 2d 2d 2b 0a 20 20 7c 20 20 20 20 +-----+. |
0310: 20 20 7c 3c 2d 2d 20 77 72 69 74 65 20 3c 2d 2d |<-- write <--
0320: 7c 20 53 53 4c 20 7c 42 49 4f 5f 77 72 69 74 65 | SSL |BIO_write
0330: 20 3c 2d 2d 20 54 6c 73 4f 75 74 70 75 74 50 72 <-- TlsOutputPr
0340: 6f 63 20 3c 2d 2d 20 70 75 74 73 7c 20 20 20 20 oc <-- puts|
0350: 20 7c 0a 20 20 7c 73 6f 63 6b 65 74 7c 20 3c 65 |. |socket| <e
0360: 6e 63 72 79 70 74 65 64 3e 20 7c 20 42 49 4f 20 ncrypted> | BIO
0370: 7c 20 20 20 20 20 20 20 20 20 20 20 20 3c 75 6e | <un
0380: 65 6e 63 72 79 70 74 65 64 3e 20 20 20 20 20 20 encrypted>
0390: 20 20 20 20 20 7c 20 41 70 70 20 7c 0a 20 20 7c | App |. |
03a0: 20 20 20 20 20 20 7c 2d 2d 3e 20 20 72 65 61 64 |--> read
03b0: 20 2d 2d 3e 7c 20 20 20 20 20 7c 42 49 4f 5f 52 -->| |BIO_R
03c0: 65 61 64 20 20 2d 2d 3e 20 54 6c 73 49 6e 70 75 ead --> TlsInpu
03d0: 74 50 72 6f 63 20 2d 2d 3e 20 20 72 65 61 64 7c tProc --> read|
03e0: 20 20 20 20 20 7c 0a 20 20 2b 2d 2d 2d 2d 2d 2d |. +------
03f0: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d + +-
0400: 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 ----+
0410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0420: 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b +-----+
0430: 0a 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 .*/..#include "t
0440: 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 lsInt.h".#includ
0450: 65 20 3c 6f 70 65 6e 73 73 6c 2f 62 69 6f 2e 68 e <openssl/bio.h
0460: 3e 0a 0a 2f 2a 20 44 65 66 69 6e 65 20 42 49 4f >../* Define BIO
0470: 20 6d 65 74 68 6f 64 73 20 73 74 72 75 63 74 75 methods structu
0480: 72 65 20 2a 2f 0a 73 74 61 74 69 63 20 42 49 4f re */.static BIO
0490: 5f 4d 45 54 48 4f 44 20 2a 42 69 6f 4d 65 74 68 _METHOD *BioMeth
04a0: 6f 64 73 20 3d 20 4e 55 4c 4c 3b 0a 0a 0a 0a 2f ods = NULL;..../
04b0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
04c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0500: 2d 0a 20 2a 0a 20 2a 20 42 49 4f 53 68 6f 75 6c -. *. * BIOShoul
0510: 64 52 65 74 72 79 20 2d 2d 0a 20 2a 0a 20 2a 09 dRetry --. *. *.
0520: 44 65 74 65 72 6d 69 6e 65 20 69 66 20 73 68 6f Determine if sho
0530: 75 6c 64 20 72 65 74 72 79 20 6f 70 65 72 61 74 uld retry operat
0540: 69 6f 6e 20 62 61 73 65 64 20 6f 6e 20 65 72 72 ion based on err
0550: 6f 72 20 63 6f 64 65 2e 20 55 73 65 73 20 74 68 or code. Uses th
0560: 65 20 73 61 6d 65 0a 20 2a 09 63 6f 6e 64 69 74 e same. *.condit
0570: 69 6f 6e 73 20 61 73 20 42 49 4f 5f 73 6f 63 6b ions as BIO_sock
0580: 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 20 66 75 _should_retry fu
0590: 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 nction.. *. * Re
05a0: 73 75 6c 74 73 3a 0a 20 2a 09 31 20 3d 20 72 65 sults:. *.1 = re
05b0: 74 72 79 2c 20 30 20 3d 20 6e 6f 20 72 65 74 72 try, 0 = no retr
05c0: 79 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 y. *. * Side eff
05d0: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a ects:. *.None. *
05e0: 0a 20 2a 20 54 68 65 20 42 49 4f 5f 73 6f 63 6b . * The BIO_sock
05f0: 5f 6e 6f 6e 5f 66 61 74 61 6c 5f 65 72 72 6f 72 _non_fatal_error
0600: 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 73 20 45 function uses E
0610: 57 4f 55 4c 44 42 4c 4f 43 4b 2c 20 45 4e 4f 54 WOULDBLOCK, ENOT
0620: 43 4f 4e 4e 2c 20 45 49 4e 54 52 2c 0a 20 2a 20 CONN, EINTR,. *
0630: 45 41 47 41 49 4e 2c 20 45 50 52 4f 54 4f 2c 20 EAGAIN, EPROTO,
0640: 45 49 4e 50 52 4f 47 52 45 53 53 2c 20 61 6e 64 EINPROGRESS, and
0650: 20 45 41 4c 52 45 41 44 59 20 61 73 20 72 65 74 EALREADY as ret
0660: 72 79 20 65 72 72 6f 72 73 2e 20 48 6f 77 65 76 ry errors. Howev
0670: 65 72 2c 20 54 63 6c 20 63 6f 72 65 0a 20 2a 20 er, Tcl core. *
0680: 75 73 65 73 20 45 57 4f 55 4c 44 42 4c 4f 43 4b uses EWOULDBLOCK
0690: 20 69 66 20 63 6f 6e 6e 65 63 74 20 69 73 20 73 if connect is s
06a0: 74 69 6c 6c 20 69 6e 20 70 72 6f 67 72 65 73 73 till in progress
06b0: 20 61 6e 64 20 45 4e 4f 54 43 4f 4e 4e 20 69 66 and ENOTCONN if
06c0: 20 69 74 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 it failed.. *.
06d0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
06e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
0720: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 */..static int B
0730: 49 4f 53 68 6f 75 6c 64 52 65 74 72 79 28 69 6e IOShouldRetry(in
0740: 74 20 63 6f 64 65 29 20 7b 0a 20 20 20 20 69 6e t code) {. in
0750: 74 20 72 65 73 20 3d 20 30 3b 0a 20 20 20 20 64 t res = 0;. d
0760: 70 72 69 6e 74 66 28 22 42 49 4f 53 68 6f 75 6c printf("BIOShoul
0770: 64 52 65 74 72 79 20 25 64 3d 25 73 22 2c 20 63 dRetry %d=%s", c
0780: 6f 64 65 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 ode, Tcl_ErrnoMs
0790: 67 28 63 6f 64 65 29 29 3b 0a 0a 20 20 20 20 2f g(code));.. /
07a0: 2a 20 52 65 74 72 79 20 63 6f 64 65 2c 20 73 6b * Retry code, sk
07b0: 69 70 20 45 4e 4f 54 43 4f 4e 4e 20 73 69 6e 63 ip ENOTCONN sinc
07c0: 65 20 54 63 6c 20 63 6f 72 65 20 74 72 65 61 74 e Tcl core treat
07d0: 73 20 61 73 20 66 61 69 6c 65 64 2e 20 2a 2f 0a s as failed. */.
07e0: 20 20 20 20 69 66 20 28 63 6f 64 65 20 3d 3d 20 if (code ==
07f0: 45 57 4f 55 4c 44 42 4c 4f 43 4b 20 7c 7c 20 63 EWOULDBLOCK || c
0800: 6f 64 65 20 3d 3d 20 45 49 4e 50 52 4f 47 52 45 ode == EINPROGRE
0810: 53 53 20 7c 7c 20 63 6f 64 65 20 3d 3d 20 45 41 SS || code == EA
0820: 4c 52 45 41 44 59 20 7c 7c 20 0a 09 63 6f 64 65 LREADY || ..code
0830: 20 3d 3d 20 45 41 47 41 49 4e 20 7c 7c 20 63 6f == EAGAIN || co
0840: 64 65 20 3d 3d 20 45 50 52 4f 54 4f 20 7c 7c 20 de == EPROTO ||
0850: 63 6f 64 65 20 3d 3d 20 45 49 4e 54 52 29 20 7b code == EINTR) {
0860: 0a 09 72 65 73 20 3d 20 31 3b 0a 20 20 20 20 7d ..res = 1;. }
0870: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 .. dprintf("B
0880: 49 4f 53 68 6f 75 6c 64 52 65 74 72 79 20 25 64 IOShouldRetry %d
0890: 3d 25 73 2c 20 72 65 74 72 79 3d 25 64 22 2c 20 =%s, retry=%d",
08a0: 63 6f 64 65 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d code, Tcl_ErrnoM
08b0: 73 67 28 63 6f 64 65 29 2c 20 72 65 73 29 3b 0a sg(code), res);.
08c0: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b . return res;
08d0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
08e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f ------. *. * Bio
0930: 4f 75 74 70 75 74 20 2d 2d 0a 20 2a 0a 20 2a 09 Output --. *. *.
0940: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
0950: 20 75 73 65 64 20 74 6f 20 72 65 61 64 20 65 6e used to read en
0960: 63 72 79 70 74 65 64 20 64 61 74 61 20 66 72 6f crypted data fro
0970: 6d 20 74 68 65 20 42 49 4f 20 61 6e 64 20 77 72 m the BIO and wr
0980: 69 74 65 20 69 74 0a 20 2a 09 69 6e 74 6f 20 74 ite it. *.into t
0990: 68 65 20 73 6f 63 6b 65 74 2e 20 54 68 69 73 20 he socket. This
09a0: 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 function will be
09b0: 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f called in respo
09c0: 6e 73 65 20 74 6f 20 74 68 65 0a 20 2a 09 61 70 nse to the. *.ap
09d0: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e plication callin
09e0: 67 20 74 68 65 20 42 49 4f 5f 77 72 69 74 65 5f g the BIO_write_
09f0: 65 78 28 29 20 6f 72 20 42 49 4f 5f 77 72 69 74 ex() or BIO_writ
0a00: 65 28 29 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 20 e() functions..
0a10: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
0a20: 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d .Returns the num
0a30: 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 ber of bytes wri
0a40: 74 74 65 6e 20 74 6f 20 63 68 61 6e 6e 65 6c 2c tten to channel,
0a50: 20 30 20 66 6f 72 20 45 4f 46 2c 20 6f 72 20 2d 0 for EOF, or -
0a60: 31 20 66 6f 72 0a 20 2a 09 65 72 72 6f 72 2e 0a 1 for. *.error..
0a70: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
0a80: 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 42 49 ts:. *.Writes BI
0a90: 4f 20 64 61 74 61 20 74 6f 20 63 68 61 6e 6e 65 O data to channe
0aa0: 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d l.. *. *--------
0ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0af0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
0b00: 63 20 69 6e 74 20 42 69 6f 4f 75 74 70 75 74 28 c int BioOutput(
0b10: 42 49 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73 74 20 BIO *bio, const
0b20: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 62 char *buf, int b
0b30: 75 66 4c 65 6e 29 20 7b 0a 20 20 20 20 54 63 6c ufLen) {. Tcl
0b40: 5f 53 69 7a 65 20 72 65 74 3b 0a 20 20 20 20 69 _Size ret;. i
0b50: 6e 74 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45 72 nt is_eof, tclEr
0b60: 72 6e 6f 3b 0a 20 20 20 20 53 74 61 74 65 20 2a rno;. State *
0b70: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
0b80: 65 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 74 e *) BIO_get_dat
0b90: 61 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c 5f a(bio);. Tcl_
0ba0: 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 54 Channel chan = T
0bb0: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 ls_GetParent(sta
0bc0: 74 65 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20 20 tePtr, 0);..
0bd0: 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 dprintf("[chan=%
0be0: 70 5d 20 42 69 6f 4f 75 74 70 75 74 28 62 69 6f p] BioOutput(bio
0bf0: 3d 25 70 2c 20 62 75 66 3d 25 70 2c 20 6c 65 6e =%p, buf=%p, len
0c00: 3d 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 63 =%d)", (void *)c
0c10: 68 61 6e 2c 0a 09 28 76 6f 69 64 20 2a 29 20 62 han,..(void *) b
0c20: 69 6f 2c 20 62 75 66 2c 20 62 75 66 4c 65 6e 29 io, buf, bufLen)
0c30: 3b 0a 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 72 ;.. BIO_clear
0c40: 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 62 69 6f _retry_flags(bio
0c50: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 45 72 );. Tcl_SetEr
0c60: 72 6e 6f 28 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 rno(0);.. /*
0c70: 57 72 69 74 65 20 64 61 74 61 20 74 6f 20 75 6e Write data to un
0c80: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
0c90: 20 2a 2f 0a 20 20 20 20 72 65 74 20 3d 20 54 63 */. ret = Tc
0ca0: 6c 5f 57 72 69 74 65 52 61 77 28 63 68 61 6e 2c l_WriteRaw(chan,
0cb0: 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 buf, (Tcl_Size)
0cc0: 20 62 75 66 4c 65 6e 29 3b 0a 20 20 20 20 69 73 bufLen);. is
0cd0: 5f 65 6f 66 20 3d 20 54 63 6c 5f 45 6f 66 28 63 _eof = Tcl_Eof(c
0ce0: 68 61 6e 29 3b 0a 20 20 20 20 74 63 6c 45 72 72 han);. tclErr
0cf0: 6e 6f 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e no = Tcl_GetErrn
0d00: 6f 28 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 o();.. dprint
0d10: 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69 6f f("[chan=%p] Bio
0d20: 4f 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25 22 Output(%d) -> %"
0d30: 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 TCL_SIZE_MODIFI
0d40: 45 52 20 22 64 20 5b 74 63 6c 45 6f 66 3d 25 64 ER "d [tclEof=%d
0d50: 3b 20 74 63 6c 45 72 72 6e 6f 3d 25 64 3a 20 25 ; tclErrno=%d: %
0d60: 73 5d 22 2c 0a 09 28 76 6f 69 64 20 2a 29 20 63 s]",..(void *) c
0d70: 68 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 72 65 74 han, bufLen, ret
0d80: 2c 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45 72 72 , is_eof, tclErr
0d90: 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 no, Tcl_ErrnoMsg
0da0: 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 0a 20 20 (tclErrno));..
0db0: 20 20 69 66 20 28 72 65 74 20 3e 20 30 29 20 7b if (ret > 0) {
0dc0: 0a 09 64 70 72 69 6e 74 66 28 22 53 75 63 63 65 ..dprintf("Succe
0dd0: 73 73 66 75 6c 6c 79 20 77 72 6f 74 65 20 25 22 ssfully wrote %"
0de0: 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 TCL_SIZE_MODIFI
0df0: 45 52 20 22 64 20 62 79 74 65 73 20 6f 66 20 64 ER "d bytes of d
0e00: 61 74 61 22 2c 20 72 65 74 29 3b 0a 0a 20 20 20 ata", ret);..
0e10: 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 74 20 } else if (ret
0e20: 3d 3d 20 30 29 20 7b 0a 09 69 66 20 28 69 73 5f == 0) {..if (is_
0e30: 65 6f 66 29 20 7b 0a 09 20 20 20 20 64 70 72 69 eof) {.. dpri
0e40: 6e 74 66 28 22 47 6f 74 20 45 4f 46 20 77 68 69 ntf("Got EOF whi
0e50: 6c 65 20 77 72 69 74 69 6e 67 2c 20 72 65 74 75 le writing, retu
0e60: 72 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 74 69 rning a Connecti
0e70: 6f 6e 20 52 65 73 65 74 20 65 72 72 6f 72 20 77 on Reset error w
0e80: 68 69 63 68 20 6d 61 70 73 20 74 6f 20 53 6f 66 hich maps to Sof
0e90: 74 20 45 4f 46 22 29 3b 0a 09 20 20 20 20 54 63 t EOF");.. Tc
0ea0: 6c 5f 53 65 74 45 72 72 6e 6f 28 45 43 4f 4e 4e l_SetErrno(ECONN
0eb0: 52 45 53 45 54 29 3b 0a 09 20 20 20 20 42 49 4f RESET);.. BIO
0ec0: 5f 73 65 74 5f 66 6c 61 67 73 28 62 69 6f 2c 20 _set_flags(bio,
0ed0: 42 49 4f 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 BIO_FLAGS_IN_EOF
0ee0: 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 );...} else {..
0ef0: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
0f00: 30 20 66 72 6f 6d 20 54 63 6c 5f 57 72 69 74 65 0 from Tcl_Write
0f10: 52 61 77 2c 20 61 6e 64 20 45 4f 46 20 69 73 20 Raw, and EOF is
0f20: 6e 6f 74 20 73 65 74 3b 20 72 65 74 20 3d 20 30 not set; ret = 0
0f30: 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 ");.. BIO_set
0f40: 5f 72 65 74 72 79 5f 77 72 69 74 65 28 62 69 6f _retry_write(bio
0f50: 29 3b 0a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 );... dprintf
0f60: 28 22 53 65 74 74 69 6e 67 20 72 65 74 72 79 20 ("Setting retry
0f70: 72 65 61 64 20 66 6c 61 67 22 29 3b 0a 09 20 20 read flag");..
0f80: 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f BIO_set_retry_
0f90: 72 65 61 64 28 62 69 6f 29 3b 0a 09 7d 0a 0a 20 read(bio);..}..
0fa0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 64 70 72 } else {..dpr
0fb0: 69 6e 74 66 28 22 57 65 20 67 6f 74 20 73 6f 6d intf("We got som
0fc0: 65 20 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 65 72 e kind of I/O er
0fd0: 72 6f 72 22 29 3b 0a 0a 09 69 66 20 28 42 49 4f ror");...if (BIO
0fe0: 53 68 6f 75 6c 64 52 65 74 72 79 28 74 63 6c 45 ShouldRetry(tclE
0ff0: 72 72 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 rrno)) {.. dp
1000: 72 69 6e 74 66 28 22 54 72 79 20 61 67 61 69 6e rintf("Try again
1010: 20 66 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 63 for: %i=%s", tc
1020: 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e lErrno, Tcl_Errn
1030: 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b oMsg(tclErrno));
1040: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
1050: 74 72 79 5f 77 72 69 74 65 28 62 69 6f 29 3b 0a try_write(bio);.
1060: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
1070: 64 70 72 69 6e 74 66 28 22 55 6e 65 78 70 65 63 dprintf("Unexpec
1080: 74 65 64 20 65 72 72 6f 72 3a 20 25 69 3d 25 73 ted error: %i=%s
1090: 22 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 54 63 6c ", tclErrno, Tcl
10a0: 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c 45 72 72 _ErrnoMsg(tclErr
10b0: 6e 6f 29 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a no));..}. }..
10c0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 6f dprintf("Bio
10d0: 4f 75 74 70 75 74 20 72 65 74 75 72 6e 69 6e 67 Output returning
10e0: 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 %" TCL_SIZE_MOD
10f0: 49 46 49 45 52 20 22 64 22 2c 20 72 65 74 29 3b IFIER "d", ret);
1100: 0a 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e 74 . return (int
1110: 29 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d ) ret;.}../*. *-
1120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1170: 20 2a 20 42 69 6f 49 6e 70 75 74 20 2d 2d 0a 20 * BioInput --.
1180: 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 *. *.This functi
1190: 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 72 65 on is used to re
11a0: 61 64 20 65 6e 63 72 79 70 74 65 64 20 64 61 74 ad encrypted dat
11b0: 61 20 66 72 6f 6d 20 74 68 65 20 73 6f 63 6b 65 a from the socke
11c0: 74 20 61 6e 64 0a 20 2a 09 77 72 69 74 65 20 69 t and. *.write i
11d0: 74 20 69 6e 74 6f 20 74 68 65 20 42 49 4f 2e 20 t into the BIO.
11e0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 This function wi
11f0: 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 ll be called in
1200: 72 65 73 70 6f 6e 73 65 20 74 6f 20 74 68 65 0a response to the.
1210: 20 2a 09 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 *.application c
1220: 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 4f 5f 72 alling the BIO_r
1230: 65 61 64 5f 65 78 28 29 20 6f 72 20 42 49 4f 5f ead_ex() or BIO_
1240: 72 65 61 64 28 29 20 66 75 6e 63 74 69 6f 6e 73 read() functions
1250: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
1260: 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20 . *.Returns the
1270: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 number of bytes
1280: 72 65 61 64 20 66 72 6f 6d 20 63 68 61 6e 6e 65 read from channe
1290: 6c 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20 6f 72 l, 0 for EOF, or
12a0: 20 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72 6f 72 -1 for. *.error
12b0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
12c0: 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 63 ects:. *.Reads c
12d0: 68 61 6e 6e 65 6c 20 64 61 74 61 20 69 6e 74 6f hannel data into
12e0: 20 42 49 4f 2e 0a 20 2a 0a 20 2a 20 44 61 74 61 BIO.. *. * Data
12f0: 20 69 73 20 72 65 63 65 69 76 65 64 20 69 6e 20 is received in
1300: 77 68 6f 6c 65 20 62 6c 6f 63 6b 73 20 6b 6e 6f whole blocks kno
1310: 77 6e 20 61 73 20 72 65 63 6f 72 64 73 20 66 72 wn as records fr
1320: 6f 6d 20 74 68 65 20 70 65 65 72 2e 20 41 20 77 om the peer. A w
1330: 68 6f 6c 65 0a 20 2a 20 72 65 63 6f 72 64 20 69 hole. * record i
1340: 73 20 70 72 6f 63 65 73 73 65 64 20 28 65 2e 67 s processed (e.g
1350: 2e 20 64 65 63 72 79 70 74 65 64 29 20 69 6e 20 . decrypted) in
1360: 6f 6e 65 20 67 6f 20 61 6e 64 20 69 73 20 62 75 one go and is bu
1370: 66 66 65 72 65 64 20 62 79 20 4f 70 65 6e 53 53 ffered by OpenSS
1380: 4c 0a 20 2a 20 75 6e 74 69 6c 20 69 74 20 69 73 L. * until it is
1390: 20 72 65 61 64 20 62 79 20 74 68 65 20 61 70 70 read by the app
13a0: 6c 69 63 61 74 69 6f 6e 20 76 69 61 20 61 20 63 lication via a c
13b0: 61 6c 6c 20 74 6f 20 53 53 4c 5f 72 65 61 64 2e all to SSL_read.
13c0: 20 53 53 4c 5f 70 65 6e 64 69 6e 67 28 29 0a 20 SSL_pending().
13d0: 2a 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e 75 * returns the nu
13e0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 68 mber of bytes wh
13f0: 69 63 68 20 68 61 76 65 20 62 65 65 6e 20 70 72 ich have been pr
1400: 6f 63 65 73 73 65 64 2c 20 62 75 66 66 65 72 65 ocessed, buffere
1410: 64 2c 20 61 6e 64 20 61 72 65 0a 20 2a 20 61 76 d, and are. * av
1420: 61 69 6c 61 62 6c 65 20 69 6e 73 69 64 65 20 73 ailable inside s
1430: 73 6c 20 66 6f 72 20 69 6d 6d 65 64 69 61 74 65 sl for immediate
1440: 20 72 65 61 64 2e 20 53 53 4c 5f 68 61 73 5f 70 read. SSL_has_p
1450: 65 6e 64 69 6e 67 28 29 20 72 65 74 75 72 6e 73 ending() returns
1460: 20 31 20 69 66 0a 20 2a 20 64 61 74 61 20 69 73 1 if. * data is
1470: 20 62 75 66 66 65 72 65 64 20 28 77 68 65 74 68 buffered (wheth
1480: 65 72 20 70 72 6f 63 65 73 73 65 64 20 6f 72 20 er processed or
1490: 75 6e 70 72 6f 63 65 73 73 65 64 29 20 61 6e 64 unprocessed) and
14a0: 20 30 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 2a 0 otherwise.. *
14b0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
14c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 . */..static int
1510: 20 42 69 6f 49 6e 70 75 74 28 42 49 4f 20 2a 62 BioInput(BIO *b
1520: 69 6f 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 69 io, char *buf, i
1530: 6e 74 20 62 75 66 4c 65 6e 29 20 7b 0a 20 20 20 nt bufLen) {.
1540: 20 54 63 6c 5f 53 69 7a 65 20 72 65 74 20 3d 20 Tcl_Size ret =
1550: 30 3b 0a 20 20 20 20 69 6e 74 20 69 73 5f 65 6f 0;. int is_eo
1560: 66 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 69 73 5f f, tclErrno, is_
1570: 62 6c 6f 63 6b 65 64 3b 0a 20 20 20 20 53 74 61 blocked;. Sta
1580: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
1590: 53 74 61 74 65 20 2a 29 20 42 49 4f 5f 67 65 74 State *) BIO_get
15a0: 5f 64 61 74 61 28 62 69 6f 29 3b 0a 20 20 20 20 _data(bio);.
15b0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
15c0: 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 = Tls_GetParent
15d0: 28 73 74 61 74 65 50 74 72 2c 20 30 29 3b 0a 0a (statePtr, 0);..
15e0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 5b 63 68 dprintf("[ch
15f0: 61 6e 3d 25 70 5d 20 42 69 6f 49 6e 70 75 74 28 an=%p] BioInput(
1600: 62 69 6f 3d 25 70 2c 20 62 75 66 3d 25 70 2c 20 bio=%p, buf=%p,
1610: 6c 65 6e 3d 25 64 29 22 2c 20 28 76 6f 69 64 20 len=%d)", (void
1620: 2a 29 20 63 68 61 6e 2c 0a 09 28 76 6f 69 64 20 *) chan,..(void
1630: 2a 29 20 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 *) bio, buf, buf
1640: 4c 65 6e 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 Len);.. if (b
1650: 75 66 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 62 75 uf == NULL || bu
1660: 66 4c 65 6e 20 3c 3d 20 30 29 20 7b 0a 09 72 65 fLen <= 0) {..re
1670: 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 turn 0;. }..
1680: 20 20 20 42 49 4f 5f 63 6c 65 61 72 5f 72 65 74 BIO_clear_ret
1690: 72 79 5f 66 6c 61 67 73 28 62 69 6f 29 3b 0a 20 ry_flags(bio);.
16a0: 20 20 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 Tcl_SetErrno(
16b0: 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 52 65 61 64 0);.. /* Read
16c0: 20 64 61 74 61 20 66 72 6f 6d 20 75 6e 64 65 72 data from under
16d0: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 20 2a 2f lying channel */
16e0: 0a 20 20 20 20 72 65 74 20 3d 20 54 63 6c 5f 52 . ret = Tcl_R
16f0: 65 61 64 52 61 77 28 63 68 61 6e 2c 20 62 75 66 eadRaw(chan, buf
1700: 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 62 75 66 , (Tcl_Size) buf
1710: 4c 65 6e 29 3b 0a 0a 20 20 20 20 69 73 5f 65 6f Len);.. is_eo
1720: 66 20 3d 20 54 63 6c 5f 45 6f 66 28 63 68 61 6e f = Tcl_Eof(chan
1730: 29 3b 0a 20 20 20 20 74 63 6c 45 72 72 6e 6f 20 );. tclErrno
1740: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 = Tcl_GetErrno()
1750: 3b 0a 20 20 20 20 69 73 5f 62 6c 6f 63 6b 65 64 ;. is_blocked
1760: 20 3d 20 54 63 6c 5f 49 6e 70 75 74 42 6c 6f 63 = Tcl_InputBloc
1770: 6b 65 64 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 ked(chan);..
1780: 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 dprintf("[chan=%
1790: 70 5d 20 42 69 6f 49 6e 70 75 74 28 25 64 29 20 p] BioInput(%d)
17a0: 2d 3e 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f 4d -> %" TCL_SIZE_M
17b0: 4f 44 49 46 49 45 52 20 22 64 20 5b 74 63 6c 45 ODIFIER "d [tclE
17c0: 6f 66 3d 25 64 3b 20 62 6c 6f 63 6b 65 64 3d 25 of=%d; blocked=%
17d0: 64 3b 20 74 63 6c 45 72 72 6e 6f 3d 25 64 3a 20 d; tclErrno=%d:
17e0: 25 73 5d 22 2c 0a 09 28 76 6f 69 64 20 2a 29 20 %s]",..(void *)
17f0: 63 68 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 72 65 chan, bufLen, re
1800: 74 2c 20 69 73 5f 65 6f 66 2c 20 69 73 5f 62 6c t, is_eof, is_bl
1810: 6f 63 6b 65 64 2c 20 74 63 6c 45 72 72 6e 6f 2c ocked, tclErrno,
1820: 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 Tcl_ErrnoMsg(tc
1830: 6c 45 72 72 6e 6f 29 29 3b 0a 0a 20 20 20 20 69 lErrno));.. i
1840: 66 20 28 72 65 74 20 3e 20 30 29 20 7b 0a 09 64 f (ret > 0) {..d
1850: 70 72 69 6e 74 66 28 22 53 75 63 63 65 73 73 66 printf("Successf
1860: 75 6c 6c 79 20 72 65 61 64 20 25 22 20 54 43 4c ully read %" TCL
1870: 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 _SIZE_MODIFIER "
1880: 64 20 62 79 74 65 73 20 6f 66 20 64 61 74 61 22 d bytes of data"
1890: 2c 20 72 65 74 29 3b 0a 0a 20 20 20 20 7d 20 65 , ret);.. } e
18a0: 6c 73 65 20 69 66 20 28 72 65 74 20 3d 3d 20 30 lse if (ret == 0
18b0: 29 20 7b 0a 09 69 66 20 28 69 73 5f 65 6f 66 29 ) {..if (is_eof)
18c0: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
18d0: 22 47 6f 74 20 45 4f 46 20 77 68 69 6c 65 20 72 "Got EOF while r
18e0: 65 61 64 69 6e 67 2c 20 72 65 74 75 72 6e 69 6e eading, returnin
18f0: 67 20 61 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 52 g a Connection R
1900: 65 73 65 74 20 65 72 72 6f 72 20 77 68 69 63 68 eset error which
1910: 20 6d 61 70 73 20 74 6f 20 53 6f 66 74 20 45 4f maps to Soft EO
1920: 46 22 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 F");.. Tcl_Se
1930: 74 45 72 72 6e 6f 28 45 43 4f 4e 4e 52 45 53 45 tErrno(ECONNRESE
1940: 54 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 T);.. BIO_set
1950: 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f 5f _flags(bio, BIO_
1960: 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 29 3b 0a 0a FLAGS_IN_EOF);..
1970: 09 7d 20 65 6c 73 65 20 69 66 20 28 69 73 5f 62 .} else if (is_b
1980: 6c 6f 63 6b 65 64 29 20 7b 0a 09 20 20 20 20 64 locked) {.. d
1990: 70 72 69 6e 74 66 28 22 47 6f 74 20 69 6e 70 75 printf("Got inpu
19a0: 74 20 62 6c 6f 63 6b 65 64 20 66 72 6f 6d 20 54 t blocked from T
19b0: 63 6c 5f 52 65 61 64 52 61 77 2e 20 53 65 74 74 cl_ReadRaw. Sett
19c0: 69 6e 67 20 72 65 74 72 79 20 72 65 61 64 20 66 ing retry read f
19d0: 6c 61 67 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f lag");.. BIO_
19e0: 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 62 set_retry_read(b
19f0: 69 6f 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 io);..}.. } e
1a00: 6c 73 65 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 lse {..dprintf("
1a10: 57 65 20 67 6f 74 20 73 6f 6d 65 20 6b 69 6e 64 We got some kind
1a20: 20 6f 66 20 49 2f 4f 20 65 72 72 6f 72 22 29 3b of I/O error");
1a30: 0a 0a 09 69 66 20 28 42 49 4f 53 68 6f 75 6c 64 ...if (BIOShould
1a40: 52 65 74 72 79 28 74 63 6c 45 72 72 6e 6f 29 29 Retry(tclErrno))
1a50: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
1a60: 22 54 72 79 20 61 67 61 69 6e 20 66 6f 72 3a 20 "Try again for:
1a70: 25 69 3d 25 73 22 2c 20 74 63 6c 45 72 72 6e 6f %i=%s", tclErrno
1a80: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 , Tcl_ErrnoMsg(t
1a90: 63 6c 45 72 72 6e 6f 29 29 3b 0a 09 20 20 20 20 clErrno));..
1aa0: 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 BIO_set_retry_re
1ab0: 61 64 28 62 69 6f 29 3b 0a 0a 09 7d 20 65 6c 73 ad(bio);...} els
1ac0: 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 e {.. dprintf
1ad0: 28 22 55 6e 65 78 70 65 63 74 65 64 20 65 72 72 ("Unexpected err
1ae0: 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 63 6c 45 or: %i=%s", tclE
1af0: 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d rrno, Tcl_ErrnoM
1b00: 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 09 sg(tclErrno));..
1b10: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 }. }.. dpr
1b20: 69 6e 74 66 28 22 42 69 6f 49 6e 70 75 74 20 72 intf("BioInput r
1b30: 65 74 75 72 6e 69 6e 67 20 25 22 20 54 43 4c 5f eturning %" TCL_
1b40: 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 64 SIZE_MODIFIER "d
1b50: 22 2c 20 72 65 74 29 3b 0a 20 20 20 20 72 65 74 ", ret);. ret
1b60: 75 72 6e 20 28 69 6e 74 29 20 72 65 74 3b 0a 7d urn (int) ret;.}
1b70: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ba0: 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 42 69 6f 50 75 ----. *. * BioPu
1bd0: 74 73 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 ts --. *. *.This
1be0: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 function is use
1bf0: 64 20 74 6f 20 72 65 61 64 20 61 20 4e 55 4c 4c d to read a NULL
1c00: 20 74 65 72 6d 69 6e 61 74 65 64 20 73 74 72 69 terminated stri
1c10: 6e 67 20 66 72 6f 6d 20 74 68 65 20 42 49 4f 20 ng from the BIO
1c20: 61 6e 64 0a 20 2a 09 77 72 69 74 65 20 69 74 20 and. *.write it
1c30: 74 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 20 to the channel.
1c40: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 This function wi
1c50: 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 ll be called in
1c60: 72 65 73 70 6f 6e 73 65 20 74 6f 0a 20 2a 09 74 response to. *.t
1c70: 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 he application c
1c80: 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 4f 5f 70 alling the BIO_p
1c90: 75 74 73 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a uts() function..
1ca0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
1cb0: 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 *.Returns the nu
1cc0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 mber of bytes wr
1cd0: 69 74 74 65 6e 20 74 6f 20 63 68 61 6e 6e 65 6c itten to channel
1ce0: 20 6f 72 20 30 20 66 6f 72 20 65 72 72 6f 72 2e or 0 for error.
1cf0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
1d00: 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 64 cts:. *.Writes d
1d10: 61 74 61 20 74 6f 20 63 68 61 6e 6e 65 6c 2e 0a ata to channel..
1d20: 20 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
1d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d70: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 --. */..static i
1d80: 6e 74 20 42 69 6f 50 75 74 73 28 42 49 4f 20 2a nt BioPuts(BIO *
1d90: 62 69 6f 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 bio, const char
1da0: 2a 73 74 72 29 20 7b 0a 20 20 20 20 64 70 72 69 *str) {. dpri
1db0: 6e 74 66 28 22 42 69 6f 50 75 74 73 28 25 70 29 ntf("BioPuts(%p)
1dc0: 20 5c 22 25 73 5c 22 22 2c 20 62 69 6f 2c 20 73 \"%s\"", bio, s
1dd0: 74 72 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e tr);.. return
1de0: 20 42 69 6f 4f 75 74 70 75 74 28 62 69 6f 2c 20 BioOutput(bio,
1df0: 73 74 72 2c 20 28 69 6e 74 29 20 73 74 72 6c 65 str, (int) strle
1e00: 6e 28 73 74 72 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 n(str));.}../*.
1e10: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1e60: 2a 0a 20 2a 20 42 69 6f 43 74 72 6c 20 2d 2d 0a *. * BioCtrl --.
1e70: 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 *. *.This funct
1e80: 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 70 ion is used to p
1e90: 72 6f 63 65 73 73 20 63 6f 6e 74 72 6f 6c 20 6d rocess control m
1ea0: 65 73 73 61 67 65 73 20 69 6e 20 74 68 65 20 42 essages in the B
1eb0: 49 4f 2e 20 54 68 69 73 0a 20 2a 09 66 75 6e 63 IO. This. *.func
1ec0: 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c tion will be cal
1ed0: 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 led in response
1ee0: 74 6f 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 to the applicati
1ef0: 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 0a 20 on calling the.
1f00: 2a 09 42 49 4f 5f 63 74 72 6c 28 29 20 66 75 6e *.BIO_ctrl() fun
1f10: 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 ction.. *. * Res
1f20: 75 6c 74 73 3a 0a 20 2a 09 46 75 6e 63 74 69 6f ults:. *.Functio
1f30: 6e 20 64 65 70 65 6e 64 65 6e 74 0a 20 2a 0a 20 n dependent. *.
1f40: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
1f50: 20 2a 09 46 75 6e 63 74 69 6f 6e 20 64 65 70 65 *.Function depe
1f60: 6e 64 65 6e 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ndent. *. *-----
1f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
1fc0: 61 74 69 63 20 6c 6f 6e 67 20 42 69 6f 43 74 72 atic long BioCtr
1fd0: 6c 28 42 49 4f 20 2a 62 69 6f 2c 20 69 6e 74 20 l(BIO *bio, int
1fe0: 63 6d 64 2c 20 6c 6f 6e 67 20 6e 75 6d 2c 20 76 cmd, long num, v
1ff0: 6f 69 64 20 2a 70 74 72 29 20 7b 0a 20 20 20 20 oid *ptr) {.
2000: 6c 6f 6e 67 20 72 65 74 20 3d 20 31 3b 0a 20 20 long ret = 1;.
2010: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
2020: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 42 49 r = (State *) BI
2030: 4f 5f 67 65 74 5f 64 61 74 61 28 62 69 6f 29 3b O_get_data(bio);
2040: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
2050: 20 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 chan = Tls_GetP
2060: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 arent(statePtr,
2070: 30 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 0);.. dprintf
2080: 28 22 42 69 6f 43 74 72 6c 28 25 70 2c 20 30 78 ("BioCtrl(%p, 0x
2090: 25 78 2c 20 30 78 25 6c 78 2c 20 25 70 29 22 2c %x, 0x%lx, %p)",
20a0: 20 28 76 6f 69 64 20 2a 29 20 62 69 6f 2c 20 63 (void *) bio, c
20b0: 6d 64 2c 20 6e 75 6d 2c 20 70 74 72 29 3b 0a 0a md, num, ptr);..
20c0: 20 20 20 20 73 77 69 74 63 68 20 28 63 6d 64 29 switch (cmd)
20d0: 20 7b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 {..case BIO_CTR
20e0: 4c 5f 52 45 53 45 54 3a 0a 09 09 2f 2a 20 6f 70 L_RESET:.../* op
20f0: 74 20 2d 20 52 65 73 65 74 73 20 42 49 4f 20 74 t - Resets BIO t
2100: 6f 20 69 6e 69 74 69 61 6c 20 73 74 61 74 65 2e o initial state.
2110: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2120: 72 65 73 65 74 2e 20 2a 2f 0a 09 09 64 70 72 69 reset. */...dpri
2130: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
2140: 4c 5f 52 45 53 45 54 22 29 3b 0a 09 09 2f 2a 20 L_RESET");.../*
2150: 52 65 74 75 72 6e 20 31 20 66 6f 72 20 73 75 63 Return 1 for suc
2160: 63 65 73 73 20 28 30 20 66 6f 72 20 66 69 6c 65 cess (0 for file
2170: 20 42 49 4f 73 29 20 61 6e 64 20 2d 31 20 66 6f BIOs) and -1 fo
2180: 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 72 r failure */...r
2190: 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b et = 0;...break;
21a0: 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f ..case BIO_CTRL_
21b0: 45 4f 46 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 EOF:.../* opt -
21c0: 52 65 74 75 72 6e 73 20 77 68 65 74 68 65 72 20 Returns whether
21d0: 45 4f 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 EOF has been rea
21e0: 63 68 65 64 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 ched. Implements
21f0: 20 42 49 4f 5f 65 6f 66 2e 20 2a 2f 0a 09 09 64 BIO_eof. */...d
2200: 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f printf("Got BIO_
2210: 43 54 52 4c 5f 45 4f 46 22 29 3b 0a 09 09 2f 2a CTRL_EOF");.../*
2220: 20 52 65 74 75 72 6e 73 20 31 20 69 66 20 45 4f Returns 1 if EO
2230: 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 63 68 F has been reach
2240: 65 64 2c 20 30 20 69 66 20 6e 6f 74 2c 20 6f 72 ed, 0 if not, or
2250: 20 3c 30 20 66 6f 72 20 66 61 69 6c 75 72 65 20 <0 for failure
2260: 2a 2f 0a 09 09 72 65 74 20 3d 20 28 28 63 68 61 */...ret = ((cha
2270: 6e 29 20 3f 20 28 54 63 6c 5f 45 6f 66 28 63 68 n) ? (Tcl_Eof(ch
2280: 61 6e 29 20 7c 7c 20 42 49 4f 5f 74 65 73 74 5f an) || BIO_test_
2290: 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f 5f 46 flags(bio, BIO_F
22a0: 4c 41 47 53 5f 49 4e 5f 45 4f 46 29 29 20 3a 20 LAGS_IN_EOF)) :
22b0: 31 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 1);...break;..ca
22c0: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 49 4e 46 4f se BIO_CTRL_INFO
22d0: 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 65 78 74 :.../* opt - ext
22e0: 72 61 20 69 6e 66 6f 20 6f 6e 20 42 49 4f 2e 20 ra info on BIO.
22f0: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 Implements BIO_g
2300: 65 74 5f 6d 65 6d 5f 64 61 74 61 20 2a 2f 0a 09 et_mem_data */..
2310: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 .dprintf("Got BI
2320: 4f 5f 43 54 52 4c 5f 49 4e 46 4f 22 29 3b 0a 09 O_CTRL_INFO");..
2330: 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 .ret = 0;...brea
2340: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
2350: 4c 5f 53 45 54 3a 0a 09 09 2f 2a 20 6d 61 6e 20 L_SET:.../* man
2360: 2d 20 73 65 74 20 74 68 65 20 27 49 4f 27 20 70 - set the 'IO' p
2370: 61 72 61 6d 65 74 65 72 20 2a 2f 0a 09 09 64 70 arameter */...dp
2380: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
2390: 54 52 4c 5f 53 45 54 22 29 3b 0a 09 09 72 65 74 TRL_SET");...ret
23a0: 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 = 0;...break;..
23b0: 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 case BIO_CTRL_GE
23c0: 54 3a 0a 09 09 2f 2a 20 6d 61 6e 20 2d 20 67 65 T:.../* man - ge
23d0: 74 20 74 68 65 20 27 49 4f 27 20 70 61 72 61 6d t the 'IO' param
23e0: 65 74 65 72 20 2a 2f 0a 09 09 64 70 72 69 6e 74 eter */...dprint
23f0: 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f f("Got BIO_CTRL_
2400: 47 45 54 20 22 29 3b 0a 09 09 72 65 74 20 3d 20 GET ");...ret =
2410: 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 0;...break;..cas
2420: 65 20 42 49 4f 5f 43 54 52 4c 5f 50 55 53 48 3a e BIO_CTRL_PUSH:
2430: 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 69 6e 74 65 .../* opt - inte
2440: 72 6e 61 6c 2c 20 75 73 65 64 20 74 6f 20 73 69 rnal, used to si
2450: 67 6e 69 66 79 20 63 68 61 6e 67 65 2e 20 49 6d gnify change. Im
2460: 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 70 75 73 plements BIO_pus
2470: 68 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 h */...dprintf("
2480: 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 50 55 53 Got BIO_CTRL_PUS
2490: 48 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a H");...ret = 0;.
24a0: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
24b0: 49 4f 5f 43 54 52 4c 5f 50 4f 50 3a 0a 09 09 2f IO_CTRL_POP:.../
24c0: 2a 20 6f 70 74 20 2d 20 69 6e 74 65 72 6e 61 6c * opt - internal
24d0: 2c 20 75 73 65 64 20 74 6f 20 73 69 67 6e 69 66 , used to signif
24e0: 79 20 63 68 61 6e 67 65 2e 20 49 6d 70 6c 65 6d y change. Implem
24f0: 65 6e 74 73 20 42 49 4f 5f 70 6f 70 20 2a 2f 0a ents BIO_pop */.
2500: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
2510: 49 4f 5f 43 54 52 4c 5f 50 4f 50 22 29 3b 0a 09 IO_CTRL_POP");..
2520: 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 .ret = 0;...brea
2530: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
2540: 4c 5f 47 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 2f L_GET_CLOSE:.../
2550: 2a 20 6d 61 6e 20 2d 20 47 65 74 20 74 68 65 20 * man - Get the
2560: 63 6c 6f 73 65 20 6f 6e 20 42 49 4f 5f 66 72 65 close on BIO_fre
2570: 65 28 29 20 66 6c 61 67 20 73 65 74 20 62 79 20 e() flag set by
2580: 42 49 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 4c 4f BIO_CTRL_SET_CLO
2590: 53 45 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 SE. Implements B
25a0: 49 4f 5f 67 65 74 5f 63 6c 6f 73 65 20 2a 2f 0a IO_get_close */.
25b0: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
25c0: 49 4f 5f 43 54 52 4c 5f 43 4c 4f 53 45 22 29 3b IO_CTRL_CLOSE");
25d0: 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 42 49 .../* Returns BI
25e0: 4f 5f 43 4c 4f 53 45 2c 20 42 49 4f 5f 4e 4f 43 O_CLOSE, BIO_NOC
25f0: 4c 4f 53 45 2c 20 6f 72 20 3c 30 20 66 6f 72 20 LOSE, or <0 for
2600: 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 72 65 74 failure */...ret
2610: 20 3d 20 42 49 4f 5f 67 65 74 5f 73 68 75 74 64 = BIO_get_shutd
2620: 6f 77 6e 28 62 69 6f 29 3b 0a 09 09 62 72 65 61 own(bio);...brea
2630: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
2640: 4c 5f 53 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 2f L_SET_CLOSE:.../
2650: 2a 20 6d 61 6e 20 2d 20 53 65 74 20 74 68 65 20 * man - Set the
2660: 63 6c 6f 73 65 20 6f 6e 20 42 49 4f 5f 66 72 65 close on BIO_fre
2670: 65 28 29 20 66 6c 61 67 2e 20 49 6d 70 6c 65 6d e() flag. Implem
2680: 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 63 6c 6f ents BIO_set_clo
2690: 73 65 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 se */...dprintf(
26a0: 22 47 6f 74 20 42 49 4f 5f 53 45 54 5f 43 4c 4f "Got BIO_SET_CLO
26b0: 53 45 22 29 3b 0a 09 09 42 49 4f 5f 73 65 74 5f SE");...BIO_set_
26c0: 73 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 6e 75 shutdown(bio, nu
26d0: 6d 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 m);.../* Returns
26e0: 20 31 20 6f 6e 20 73 75 63 63 65 73 73 20 6f 72 1 on success or
26f0: 20 3c 3d 30 20 66 6f 72 20 66 61 69 6c 75 72 65 <=0 for failure
2700: 20 2a 2f 0a 09 09 72 65 74 20 3d 20 31 3b 0a 09 */...ret = 1;..
2710: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 .break;..case BI
2720: 4f 5f 43 54 52 4c 5f 50 45 4e 44 49 4e 47 3a 0a O_CTRL_PENDING:.
2730: 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65 74 75 72 ../* opt - Retur
2740: 6e 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 n number of byte
2750: 73 20 69 6e 20 42 49 4f 20 77 61 69 74 69 6e 67 s in BIO waiting
2760: 20 74 6f 20 62 65 20 72 65 61 64 2e 20 49 6d 70 to be read. Imp
2770: 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 70 65 6e 64 lements BIO_pend
2780: 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 ing. */...dprint
2790: 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f f("Got BIO_CTRL_
27a0: 50 45 4e 44 49 4e 47 22 29 3b 0a 09 09 2f 2a 20 PENDING");.../*
27b0: 52 65 74 75 72 6e 20 74 68 65 20 61 6d 6f 75 6e Return the amoun
27c0: 74 20 6f 66 20 70 65 6e 64 69 6e 67 20 64 61 74 t of pending dat
27d0: 61 20 6f 72 20 30 20 66 6f 72 20 65 72 72 6f 72 a or 0 for error
27e0: 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 28 63 68 */...ret = ((ch
27f0: 61 6e 29 20 3f 20 54 63 6c 5f 49 6e 70 75 74 42 an) ? Tcl_InputB
2800: 75 66 66 65 72 65 64 28 63 68 61 6e 29 20 3a 20 uffered(chan) :
2810: 30 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 0);...break;..ca
2820: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 46 4c 55 53 se BIO_CTRL_FLUS
2830: 48 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 46 6c H:.../* opt - Fl
2840: 75 73 68 20 61 6e 79 20 62 75 66 66 65 72 65 64 ush any buffered
2850: 20 6f 75 74 70 75 74 2e 20 49 6d 70 6c 65 6d 65 output. Impleme
2860: 6e 74 73 20 42 49 4f 5f 66 6c 75 73 68 2e 20 2a nts BIO_flush. *
2870: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
2880: 20 42 49 4f 5f 43 54 52 4c 5f 46 4c 55 53 48 22 BIO_CTRL_FLUSH"
2890: 29 3b 0a 09 09 2f 2a 20 55 73 65 20 54 63 6c 5f );.../* Use Tcl_
28a0: 57 72 69 74 65 52 61 77 20 69 6e 73 74 65 61 64 WriteRaw instead
28b0: 20 6f 66 20 54 63 6c 5f 46 6c 75 73 68 20 74 6f of Tcl_Flush to
28c0: 20 6f 70 65 72 61 74 65 20 6f 6e 20 72 69 67 68 operate on righ
28d0: 74 20 63 68 61 6e 20 69 6e 20 73 74 61 63 6b 20 t chan in stack
28e0: 2a 2f 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 */.../* Returns
28f0: 31 20 66 6f 72 20 73 75 63 63 65 73 73 2c 20 3c 1 for success, <
2900: 3d 30 20 66 6f 72 20 65 72 72 6f 72 2f 72 65 74 =0 for error/ret
2910: 72 79 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 ry. */...ret = (
2920: 28 63 68 61 6e 29 20 26 26 20 28 54 63 6c 5f 57 (chan) && (Tcl_W
2930: 72 69 74 65 52 61 77 28 63 68 61 6e 2c 20 22 22 riteRaw(chan, ""
2940: 2c 20 30 29 20 3e 3d 20 30 29 20 3f 20 31 20 3a , 0) >= 0) ? 1 :
2950: 20 2d 31 29 3b 0a 09 09 2f 2a 72 65 74 20 3d 20 -1);.../*ret =
2960: 42 69 6f 4f 75 74 70 75 74 28 62 69 6f 2c 20 4e BioOutput(bio, N
2970: 55 4c 4c 2c 20 30 29 3b 2a 2f 0a 09 09 62 72 65 ULL, 0);*/...bre
2980: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 ak;..case BIO_CT
2990: 52 4c 5f 44 55 50 3a 0a 09 09 2f 2a 20 6d 61 6e RL_DUP:.../* man
29a0: 20 2d 20 65 78 74 72 61 20 73 74 75 66 66 20 66 - extra stuff f
29b0: 6f 72 20 27 64 75 70 65 64 27 20 42 49 4f 2e 20 or 'duped' BIO.
29c0: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 64 Implements BIO_d
29d0: 75 70 5f 73 74 61 74 65 20 2a 2f 0a 09 09 64 70 up_state */...dp
29e0: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
29f0: 54 52 4c 5f 44 55 50 22 29 3b 0a 09 09 72 65 74 TRL_DUP");...ret
2a00: 20 3d 20 31 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 = 1;...break;..
2a10: 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 57 50 case BIO_CTRL_WP
2a20: 45 4e 44 49 4e 47 3a 0a 09 09 2f 2a 20 6f 70 74 ENDING:.../* opt
2a30: 20 2d 20 52 65 74 75 72 6e 20 6e 75 6d 62 65 72 - Return number
2a40: 20 6f 66 20 62 79 74 65 73 20 69 6e 20 42 49 4f of bytes in BIO
2a50: 20 73 74 69 6c 6c 20 74 6f 20 62 65 20 77 72 69 still to be wri
2a60: 74 74 65 6e 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 tten. Implements
2a70: 20 42 49 4f 5f 77 70 65 6e 64 69 6e 67 2e 20 2a BIO_wpending. *
2a80: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
2a90: 20 42 49 4f 5f 43 54 52 4c 5f 57 50 45 4e 44 49 BIO_CTRL_WPENDI
2aa0: 4e 47 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 NG");.../* Retur
2ab0: 6e 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 n the amount of
2ac0: 70 65 6e 64 69 6e 67 20 64 61 74 61 20 6f 72 20 pending data or
2ad0: 30 20 66 6f 72 20 65 72 72 6f 72 20 2a 2f 0a 09 0 for error */..
2ae0: 09 72 65 74 20 3d 20 28 28 63 68 61 6e 29 20 3f .ret = ((chan) ?
2af0: 20 54 63 6c 5f 4f 75 74 70 75 74 42 75 66 66 65 Tcl_OutputBuffe
2b00: 72 65 64 28 63 68 61 6e 29 20 3a 20 30 29 3b 0a red(chan) : 0);.
2b10: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2b20: 49 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 41 4c 4c IO_CTRL_SET_CALL
2b30: 42 41 43 4b 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d BACK:.../* opt -
2b40: 20 53 65 74 73 20 61 6e 20 69 6e 66 6f 72 6d 61 Sets an informa
2b50: 74 69 6f 6e 61 6c 20 63 61 6c 6c 62 61 63 6b 2e tional callback.
2b60: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2b70: 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 set_info_callbac
2b80: 6b 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a k */...ret = 0;.
2b90: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2ba0: 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 43 41 4c 4c IO_CTRL_GET_CALL
2bb0: 42 41 43 4b 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d BACK:.../* opt -
2bc0: 20 47 65 74 20 61 6e 64 20 72 65 74 75 72 6e 20 Get and return
2bd0: 74 68 65 20 69 6e 66 6f 20 63 61 6c 6c 62 61 63 the info callbac
2be0: 6b 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 k. Implements BI
2bf0: 4f 5f 67 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 O_get_info_callb
2c00: 61 63 6b 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 ack */...ret = 0
2c10: 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 09 63 61 73 ;...break;...cas
2c20: 65 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 45 45 e BIO_C_FILE_SEE
2c30: 4b 3a 0a 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 K:.../* Not used
2c40: 20 66 6f 72 20 73 6f 63 6b 65 74 73 2e 20 54 63 for sockets. Tc
2c50: 6c 5f 53 65 65 6b 20 6f 6e 6c 79 20 77 6f 72 6b l_Seek only work
2c60: 73 20 6f 6e 20 74 6f 70 20 63 68 61 6e 2e 20 49 s on top chan. I
2c70: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 mplements BIO_se
2c80: 65 6b 28 29 20 2a 2f 0a 09 09 64 70 72 69 6e 74 ek() */...dprint
2c90: 66 28 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 4c f("Got BIO_C_FIL
2ca0: 45 5f 53 45 45 4b 22 29 3b 0a 09 09 72 65 74 20 E_SEEK");...ret
2cb0: 3d 20 30 3b 20 2f 2a 20 52 65 74 75 72 6e 20 30 = 0; /* Return 0
2cc0: 20 73 75 63 63 65 73 73 20 61 6e 64 20 2d 31 20 success and -1
2cd0: 66 6f 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 for failure */..
2ce0: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 .break;..case BI
2cf0: 4f 5f 43 5f 46 49 4c 45 5f 54 45 4c 4c 3a 0a 09 O_C_FILE_TELL:..
2d00: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 ./* Not used for
2d10: 20 73 6f 63 6b 65 74 73 2e 20 54 63 6c 5f 54 65 sockets. Tcl_Te
2d20: 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 6f 6e ll only works on
2d30: 20 74 6f 70 20 63 68 61 6e 2e 20 49 6d 70 6c 65 top chan. Imple
2d40: 6d 65 6e 74 73 20 42 49 4f 5f 74 65 6c 6c 28 29 ments BIO_tell()
2d50: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 */...dprintf("G
2d60: 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 54 45 ot BIO_C_FILE_TE
2d70: 4c 4c 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b LL");...ret = 0;
2d80: 20 2f 2a 20 52 65 74 75 72 6e 20 30 20 73 75 63 /* Return 0 suc
2d90: 63 65 73 73 20 61 6e 64 20 2d 31 20 66 6f 72 20 cess and -1 for
2da0: 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 62 72 65 failure */...bre
2db0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f ak;..case BIO_C_
2dc0: 53 45 54 5f 46 44 3a 0a 09 09 2f 2a 20 49 6d 70 SET_FD:.../* Imp
2dd0: 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f lements BIO_set_
2de0: 66 64 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 fd */...dprintf(
2df0: 22 55 6e 73 75 70 70 6f 72 74 65 64 20 63 61 6c "Unsupported cal
2e00: 6c 3a 20 42 49 4f 5f 43 5f 53 45 54 5f 46 44 22 l: BIO_C_SET_FD"
2e10: 29 3b 0a 09 09 72 65 74 20 3d 20 2d 31 3b 0a 09 );...ret = -1;..
2e20: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 .break;..case BI
2e30: 4f 5f 43 5f 47 45 54 5f 46 44 3a 0a 09 09 2f 2a O_C_GET_FD:.../*
2e40: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2e50: 67 65 74 5f 66 64 28 29 20 2a 2f 0a 09 09 64 70 get_fd() */...dp
2e60: 72 69 6e 74 66 28 22 55 6e 73 75 70 70 6f 72 74 rintf("Unsupport
2e70: 65 64 20 63 61 6c 6c 3a 20 42 49 4f 5f 43 5f 47 ed call: BIO_C_G
2e80: 45 54 5f 46 44 22 29 3b 0a 09 09 72 65 74 20 3d ET_FD");...ret =
2e90: 20 2d 31 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 23 -1;...break;..#
2ea0: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 if OPENSSL_VERSI
2eb0: 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 ON_NUMBER >= 0x3
2ec0: 30 30 30 30 30 30 30 4c 0a 09 63 61 73 65 20 42 0000000L..case B
2ed0: 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 IO_CTRL_GET_KTLS
2ee0: 5f 53 45 4e 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c _SEND:.../* Impl
2ef0: 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6b ements BIO_get_k
2f00: 74 6c 73 5f 73 65 6e 64 20 2a 2f 0a 09 09 64 70 tls_send */...dp
2f10: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
2f20: 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 53 45 4e TRL_GET_KTLS_SEN
2f30: 44 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e D");.../* Return
2f40: 73 20 31 20 69 66 20 74 68 65 20 42 49 4f 20 69 s 1 if the BIO i
2f50: 73 20 75 73 69 6e 67 20 74 68 65 20 4b 65 72 6e s using the Kern
2f60: 65 6c 20 54 4c 53 20 64 61 74 61 2d 70 61 74 68 el TLS data-path
2f70: 20 66 6f 72 20 73 65 6e 64 69 6e 67 2c 20 30 20 for sending, 0
2f80: 69 66 20 6e 6f 74 20 2a 2f 0a 09 09 72 65 74 20 if not */...ret
2f90: 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 = 0;...break;..c
2fa0: 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 ase BIO_CTRL_GET
2fb0: 5f 4b 54 4c 53 5f 52 45 43 56 3a 0a 09 09 2f 2a _KTLS_RECV:.../*
2fc0: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2fd0: 67 65 74 5f 6b 74 6c 73 5f 72 65 63 76 20 2a 2f get_ktls_recv */
2fe0: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
2ff0: 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c BIO_CTRL_GET_KTL
3000: 53 5f 52 45 43 56 22 29 3b 0a 09 09 2f 2a 20 52 S_RECV");.../* R
3010: 65 74 75 72 6e 73 20 31 20 69 66 20 74 68 65 20 eturns 1 if the
3020: 42 49 4f 20 69 73 20 75 73 69 6e 67 20 74 68 65 BIO is using the
3030: 20 4b 65 72 6e 65 6c 20 54 4c 53 20 64 61 74 61 Kernel TLS data
3040: 2d 70 61 74 68 20 66 6f 72 20 72 65 63 65 69 76 -path for receiv
3050: 69 6e 67 2c 20 30 20 69 66 20 6e 6f 74 20 2a 2f ing, 0 if not */
3060: 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 ...ret = 0;...br
3070: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 64 65 66 eak;.#endif..def
3080: 61 75 6c 74 3a 0a 09 09 64 70 72 69 6e 74 66 28 ault:...dprintf(
3090: 22 47 6f 74 20 75 6e 6b 6e 6f 77 6e 20 63 6f 6e "Got unknown con
30a0: 74 72 6f 6c 20 63 6f 6d 6d 61 6e 64 20 28 25 69 trol command (%i
30b0: 29 22 2c 20 63 6d 64 29 3b 0a 09 09 72 65 74 20 )", cmd);...ret
30c0: 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 20 20 = 0;...break;.
30d0: 20 20 7d 0a 20 20 20 20 64 70 72 69 6e 74 66 28 }. dprintf(
30e0: 22 42 69 6f 43 74 72 6c 20 72 65 74 75 72 6e 20 "BioCtrl return
30f0: 76 61 6c 75 65 20 25 6c 69 22 2c 20 72 65 74 29 value %li", ret)
3100: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 74 ;. return ret
3110: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
3120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a 20 42 69 -------. *. * Bi
3170: 6f 4e 65 77 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 oNew --. *. *.Th
3180: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 is function is u
3190: 73 65 64 20 74 6f 20 63 72 65 61 74 65 20 61 20 sed to create a
31a0: 6e 65 77 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 new instance of
31b0: 74 68 65 20 42 49 4f 2e 20 54 68 69 73 0a 20 2a the BIO. This. *
31c0: 09 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 .function will b
31d0: 65 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 e called in resp
31e0: 6f 6e 73 65 20 74 6f 20 74 68 65 20 61 70 70 6c onse to the appl
31f0: 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 ication calling
3200: 74 68 65 0a 20 2a 09 42 49 4f 5f 6e 65 77 28 29 the. *.BIO_new()
3210: 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a function.. *. *
3220: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 Results:. *.Ret
3230: 75 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 73 75 63 urns boolean suc
3240: 63 65 73 73 20 72 65 73 75 6c 74 20 28 31 3d 73 cess result (1=s
3250: 75 63 63 65 73 73 2c 20 30 3d 66 61 69 6c 75 72 uccess, 0=failur
3260: 65 29 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 e). *. * Side ef
3270: 66 65 63 74 73 3a 0a 20 2a 09 49 6e 69 74 69 61 fects:. *.Initia
3280: 6c 69 7a 65 73 20 42 49 4f 20 73 74 72 75 63 74 lizes BIO struct
3290: 75 72 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ure.. *. *------
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32e0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
32f0: 74 69 63 20 69 6e 74 20 42 69 6f 4e 65 77 28 42 tic int BioNew(B
3300: 49 4f 20 2a 62 69 6f 29 20 7b 0a 20 20 20 20 64 IO *bio) {. d
3310: 70 72 69 6e 74 66 28 22 42 69 6f 4e 65 77 28 25 printf("BioNew(%
3320: 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 69 6f 29 p) called", bio)
3330: 3b 0a 0a 20 20 20 20 69 66 20 28 62 69 6f 20 3d ;.. if (bio =
3340: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
3350: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
3360: 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 6f BIO_set_data(bio
3370: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 42 49 4f , NULL);. BIO
3380: 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 30 _set_init(bio, 0
3390: 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 72 );. BIO_clear
33a0: 5f 66 6c 61 67 73 28 62 69 6f 2c 20 2d 31 29 3b _flags(bio, -1);
33b0: 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d . return 1;.}
33c0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
33d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3410: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 46 72 ----. *. * BioFr
3420: 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 ee --. *. *.This
3430: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 function is use
3440: 64 20 74 6f 20 64 65 73 74 72 6f 79 20 61 6e 20 d to destroy an
3450: 69 6e 73 74 61 6e 63 65 20 6f 66 20 61 20 42 49 instance of a BI
3460: 4f 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e O. This function
3470: 0a 20 2a 09 77 69 6c 6c 20 62 65 20 63 61 6c 6c . *.will be call
3480: 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 ed in response t
3490: 6f 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f o the applicatio
34a0: 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 n calling the BI
34b0: 4f 5f 66 72 65 65 28 29 0a 20 2a 09 66 75 6e 63 O_free(). *.func
34c0: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 tion.. *. * Resu
34d0: 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 lts:. *.Returns
34e0: 62 6f 6f 6c 65 61 6e 20 73 75 63 63 65 73 73 20 boolean success
34f0: 72 65 73 75 6c 74 0a 20 2a 0a 20 2a 20 53 69 64 result. *. * Sid
3500: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 49 6e e effects:. *.In
3510: 69 74 69 61 6c 69 7a 65 73 20 42 49 4f 20 73 74 itializes BIO st
3520: 72 75 63 74 75 72 65 2e 0a 20 2a 0a 20 2a 2d 2d ructure.. *. *--
3530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3580: 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f 46 .static int BioF
3590: 72 65 65 28 42 49 4f 20 2a 62 69 6f 29 20 7b 0a ree(BIO *bio) {.
35a0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 6f dprintf("Bio
35b0: 46 72 65 65 28 25 70 29 20 63 61 6c 6c 65 64 22 Free(%p) called"
35c0: 2c 20 62 69 6f 29 3b 0a 0a 20 20 20 20 69 66 20 , bio);.. if
35d0: 28 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a (bio == NULL) {.
35e0: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
35f0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 66 .. /* Clear f
3600: 6c 61 67 73 20 69 66 20 73 65 74 20 74 6f 20 42 lags if set to B
3610: 49 4f 5f 43 4c 4f 53 45 20 28 63 6c 6f 73 65 20 IO_CLOSE (close
3620: 49 2f 4f 20 73 74 72 65 61 6d 20 77 68 65 6e 20 I/O stream when
3630: 74 68 65 20 42 49 4f 20 69 73 20 66 72 65 65 64 the BIO is freed
3640: 29 20 2a 2f 0a 20 20 20 20 69 66 20 28 42 49 4f ) */. if (BIO
3650: 5f 67 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 _get_shutdown(bi
3660: 6f 29 29 20 7b 0a 09 42 49 4f 5f 73 65 74 5f 64 o)) {..BIO_set_d
3670: 61 74 61 28 62 69 6f 2c 20 4e 55 4c 4c 29 3b 0a ata(bio, NULL);.
3680: 09 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 .BIO_clear_flags
3690: 28 62 69 6f 2c 20 2d 31 29 3b 0a 09 42 49 4f 5f (bio, -1);..BIO_
36a0: 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 30 29 set_init(bio, 0)
36b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
36c0: 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d rn 1;.}../*. *--
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
3720: 2a 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 20 2d 2d * BIO_new_tcl --
3730: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
3740: 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 tion is used to
3750: 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 42 initialize the B
3760: 49 4f 20 6d 65 74 68 6f 64 20 68 61 6e 64 6c 65 IO method handle
3770: 72 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 rs.. *. * Result
3780: 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 70 6f s:. *.Returns po
3790: 69 6e 74 65 72 20 74 6f 20 42 49 4f 20 6f 72 20 inter to BIO or
37a0: 4e 55 4c 4c 20 66 6f 72 20 66 61 69 6c 75 72 65 NULL for failure
37b0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
37c0: 63 74 73 3a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 cts:. *.Initiali
37d0: 7a 65 73 20 42 49 4f 20 4d 65 74 68 6f 64 73 2e zes BIO Methods.
37e0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
37f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3830: 2d 2d 2d 0a 20 2a 2f 0a 0a 42 49 4f 20 2a 42 49 ---. */..BIO *BI
3840: 4f 5f 6e 65 77 5f 74 63 6c 28 53 74 61 74 65 20 O_new_tcl(State
3850: 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 20 66 *statePtr, int f
3860: 6c 61 67 73 29 20 7b 0a 20 20 20 20 42 49 4f 20 lags) {. BIO
3870: 2a 62 69 6f 3b 0a 23 69 66 64 65 66 20 54 43 4c *bio;.#ifdef TCL
3880: 54 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41 53 54 TLS_SSL_USE_FAST
3890: 50 41 54 48 0a 20 20 20 20 54 63 6c 5f 43 68 61 PATH. Tcl_Cha
38a0: 6e 6e 65 6c 20 70 61 72 65 6e 74 43 68 61 6e 6e nnel parentChann
38b0: 65 6c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 54 63 el;. const Tc
38c0: 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 70 l_ChannelType *p
38d0: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 65 arentChannelType
38e0: 3b 0a 0a 20 20 20 20 69 6e 74 20 70 61 72 65 6e ;.. int paren
38f0: 74 43 68 61 6e 6e 65 6c 46 64 49 6e 2c 20 70 61 tChannelFdIn, pa
3900: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 rentChannelFdOut
3910: 2c 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 , parentChannelF
3920: 64 3b 0a 20 20 20 20 69 6e 74 20 76 61 6c 69 64 d;. int valid
3930: 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 3b ParentChannelFd;
3940: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 64 70 72 .#endif.. dpr
3950: 69 6e 74 66 28 22 42 49 4f 5f 6e 65 77 5f 74 63 intf("BIO_new_tc
3960: 6c 28 29 20 63 61 6c 6c 65 64 22 29 3b 0a 0a 20 l() called");..
3970: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 63 75 73 /* Create cus
3980: 74 6f 6d 20 42 49 4f 20 6d 65 74 68 6f 64 20 2a tom BIO method *
3990: 2f 0a 20 20 20 20 69 66 20 28 42 69 6f 4d 65 74 /. if (BioMet
39a0: 68 6f 64 73 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a hods == NULL) {.
39b0: 09 2f 2a 20 42 49 4f 5f 54 59 50 45 5f 42 49 4f ./* BIO_TYPE_BIO
39c0: 20 3d 20 28 31 39 7c 42 49 4f 5f 54 59 50 45 5f = (19|BIO_TYPE_
39d0: 53 4f 55 52 43 45 5f 53 49 4e 4b 29 20 2d 2d 20 SOURCE_SINK) --
39e0: 68 61 6c 66 20 61 20 42 49 4f 20 70 61 69 72 20 half a BIO pair
39f0: 2a 2f 0a 09 2f 2a 20 42 49 4f 5f 54 59 50 45 5f */../* BIO_TYPE_
3a00: 43 4f 4e 4e 45 43 54 20 3d 20 28 31 32 7c 42 49 CONNECT = (12|BI
3a10: 4f 5f 54 59 50 45 5f 53 4f 55 52 43 45 5f 53 49 O_TYPE_SOURCE_SI
3a20: 4e 4b 7c 42 49 4f 5f 54 59 50 45 5f 44 45 53 43 NK|BIO_TYPE_DESC
3a30: 52 49 50 54 4f 52 29 20 2a 2f 0a 09 2f 2a 20 42 RIPTOR) */../* B
3a40: 49 4f 5f 54 59 50 45 5f 41 43 43 45 50 54 20 20 IO_TYPE_ACCEPT
3a50: 3d 20 28 31 33 7c 42 49 4f 5f 54 59 50 45 5f 53 = (13|BIO_TYPE_S
3a60: 4f 55 52 43 45 5f 53 49 4e 4b 7c 42 49 4f 5f 54 OURCE_SINK|BIO_T
3a70: 59 50 45 5f 44 45 53 43 52 49 50 54 4f 52 29 20 YPE_DESCRIPTOR)
3a80: 2a 2f 0a 09 42 69 6f 4d 65 74 68 6f 64 73 20 3d */..BioMethods =
3a90: 20 42 49 4f 5f 6d 65 74 68 5f 6e 65 77 28 42 49 BIO_meth_new(BI
3aa0: 4f 5f 54 59 50 45 5f 42 49 4f 2c 20 22 74 63 6c O_TYPE_BIO, "tcl
3ab0: 22 29 3b 0a 09 69 66 20 28 42 69 6f 4d 65 74 68 ");..if (BioMeth
3ac0: 6f 64 73 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ods == NULL) {..
3ad0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 4d 65 6d dprintf("Mem
3ae0: 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 ory allocation e
3af0: 72 72 6f 72 22 29 3b 0a 0a 09 20 20 20 20 72 65 rror");... re
3b00: 74 75 72 6e 20 4e 55 4c 4c 3b 0a 09 7d 0a 09 2f turn NULL;..}../
3b10: 2a 20 4e 6f 74 20 75 73 65 64 20 42 49 4f 5f 6d * Not used BIO_m
3b20: 65 74 68 5f 73 65 74 5f 77 72 69 74 65 5f 65 78 eth_set_write_ex
3b30: 20 2a 2f 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 */..BIO_meth_se
3b40: 74 5f 77 72 69 74 65 28 42 69 6f 4d 65 74 68 6f t_write(BioMetho
3b50: 64 73 2c 20 42 69 6f 4f 75 74 70 75 74 29 3b 0a ds, BioOutput);.
3b60: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 20 42 49 4f ./* Not used BIO
3b70: 5f 6d 65 74 68 5f 73 65 74 5f 72 65 61 64 5f 65 _meth_set_read_e
3b80: 78 20 2a 2f 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 x */..BIO_meth_s
3b90: 65 74 5f 72 65 61 64 28 42 69 6f 4d 65 74 68 6f et_read(BioMetho
3ba0: 64 73 2c 20 42 69 6f 49 6e 70 75 74 29 3b 0a 09 ds, BioInput);..
3bb0: 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 70 75 74 BIO_meth_set_put
3bc0: 73 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 s(BioMethods, Bi
3bd0: 6f 50 75 74 73 29 3b 0a 09 42 49 4f 5f 6d 65 74 oPuts);..BIO_met
3be0: 68 5f 73 65 74 5f 63 74 72 6c 28 42 69 6f 4d 65 h_set_ctrl(BioMe
3bf0: 74 68 6f 64 73 2c 20 42 69 6f 43 74 72 6c 29 3b thods, BioCtrl);
3c00: 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 ..BIO_meth_set_c
3c10: 72 65 61 74 65 28 42 69 6f 4d 65 74 68 6f 64 73 reate(BioMethods
3c20: 2c 20 42 69 6f 4e 65 77 29 3b 0a 09 42 49 4f 5f , BioNew);..BIO_
3c30: 6d 65 74 68 5f 73 65 74 5f 64 65 73 74 72 6f 79 meth_set_destroy
3c40: 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f (BioMethods, Bio
3c50: 46 72 65 65 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 Free);. }..
3c60: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 20 3d if (statePtr =
3c70: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 64 70 72 69 6e = NULL) {..dprin
3c80: 74 66 28 22 41 73 6b 65 64 20 74 6f 20 73 65 74 tf("Asked to set
3c90: 75 70 20 61 20 4e 55 4c 4c 20 73 74 61 74 65 2c up a NULL state,
3ca0: 20 6a 75 73 74 20 63 72 65 61 74 69 6e 67 20 74 just creating t
3cb0: 68 65 20 69 6e 69 74 69 61 6c 20 63 6f 6e 66 69 he initial confi
3cc0: 67 75 72 61 74 69 6f 6e 22 29 3b 0a 0a 09 72 65 guration");...re
3cd0: 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d turn NULL;. }
3ce0: 0a 0a 23 69 66 64 65 66 20 54 43 4c 54 4c 53 5f ..#ifdef TCLTLS_
3cf0: 53 53 4c 5f 55 53 45 5f 46 41 53 54 50 41 54 48 SSL_USE_FASTPATH
3d00: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 49 . /*. * I
3d10: 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 63 61 f the channel ca
3d20: 6e 20 62 65 20 6d 61 70 70 65 64 20 62 61 63 6b n be mapped back
3d30: 20 74 6f 20 61 20 66 69 6c 65 20 64 65 73 63 72 to a file descr
3d40: 69 70 74 6f 72 2c 20 6a 75 73 74 20 75 73 65 20 iptor, just use
3d50: 74 68 65 20 66 69 6c 65 0a 20 20 20 20 20 2a 20 the file. *
3d60: 64 65 73 63 72 69 70 74 6f 72 20 77 69 74 68 20 descriptor with
3d70: 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 20 the SSL library
3d80: 73 69 6e 63 65 20 69 74 20 77 69 6c 6c 20 6c 69 since it will li
3d90: 6b 65 6c 79 20 62 65 20 6f 70 74 69 6d 69 7a 65 kely be optimize
3da0: 64 20 66 6f 72 20 74 68 69 73 2e 0a 20 20 20 20 d for this..
3db0: 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 43 68 */. parentCh
3dc0: 61 6e 6e 65 6c 20 3d 20 54 6c 73 5f 47 65 74 50 annel = Tls_GetP
3dd0: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 arent(statePtr,
3de0: 30 29 3b 0a 20 20 20 20 70 61 72 65 6e 74 43 68 0);. parentCh
3df0: 61 6e 6e 65 6c 54 79 70 65 20 3d 20 54 63 6c 5f annelType = Tcl_
3e00: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 GetChannelType(p
3e10: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 29 3b 0a 0a arentChannel);..
3e20: 20 20 20 20 76 61 6c 69 64 50 61 72 65 6e 74 43 validParentC
3e30: 68 61 6e 6e 65 6c 46 64 20 3d 20 30 3b 0a 20 20 hannelFd = 0;.
3e40: 20 20 69 66 20 28 73 74 72 63 6d 70 28 70 61 72 if (strcmp(par
3e50: 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e entChannelType->
3e60: 74 79 70 65 4e 61 6d 65 2c 20 22 74 63 70 22 29 typeName, "tcp")
3e70: 20 3d 3d 20 30 29 20 7b 0a 09 76 6f 69 64 20 2a == 0) {..void *
3e80: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 parentChannelFdI
3e90: 6e 5f 70 2c 20 2a 70 61 72 65 6e 74 43 68 61 6e n_p, *parentChan
3ea0: 6e 65 6c 46 64 4f 75 74 5f 70 3b 0a 09 69 6e 74 nelFdOut_p;..int
3eb0: 20 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 tclGetChannelHa
3ec0: 6e 64 6c 65 52 65 74 3b 0a 0a 09 74 63 6c 47 65 ndleRet;...tclGe
3ed0: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 tChannelHandleRe
3ee0: 74 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e t = Tcl_GetChann
3ef0: 65 6c 48 61 6e 64 6c 65 28 70 61 72 65 6e 74 43 elHandle(parentC
3f00: 68 61 6e 6e 65 6c 2c 0a 09 20 20 20 20 54 43 4c hannel,.. TCL
3f10: 5f 52 45 41 44 41 42 4c 45 2c 20 26 70 61 72 65 _READABLE, &pare
3f20: 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 29 ntChannelFdIn_p)
3f30: 3b 0a 09 69 66 20 28 74 63 6c 47 65 74 43 68 61 ;..if (tclGetCha
3f40: 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 3d nnelHandleRet ==
3f50: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 TCL_OK) {..
3f60: 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e tclGetChannelHan
3f70: 64 6c 65 52 65 74 20 3d 20 54 63 6c 5f 47 65 74 dleRet = Tcl_Get
3f80: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 61 ChannelHandle(pa
3f90: 72 65 6e 74 43 68 61 6e 6e 65 6c 2c 0a 09 20 20 rentChannel,..
3fa0: 20 20 20 20 20 20 54 43 4c 5f 57 52 49 54 41 42 TCL_WRITAB
3fb0: 4c 45 2c 20 26 70 61 72 65 6e 74 43 68 61 6e 6e LE, &parentChann
3fc0: 65 6c 46 64 4f 75 74 5f 70 29 3b 0a 09 20 20 20 elFdOut_p);..
3fd0: 20 69 66 20 28 74 63 6c 47 65 74 43 68 61 6e 6e if (tclGetChann
3fe0: 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 3d 20 54 elHandleRet == T
3ff0: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 70 61 72 65 6e CL_OK) {...paren
4000: 74 43 68 61 6e 6e 65 6c 46 64 49 6e 20 3d 20 50 tChannelFdIn = P
4010: 54 52 32 49 4e 54 28 70 61 72 65 6e 74 43 68 61 TR2INT(parentCha
4020: 6e 6e 65 6c 46 64 49 6e 5f 70 29 3b 0a 09 09 70 nnelFdIn_p);...p
4030: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 arentChannelFdOu
4040: 74 20 3d 20 50 54 52 32 49 4e 54 28 70 61 72 65 t = PTR2INT(pare
4050: 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70 ntChannelFdOut_p
4060: 29 3b 0a 09 09 69 66 20 28 70 61 72 65 6e 74 43 );...if (parentC
4070: 68 61 6e 6e 65 6c 46 64 49 6e 20 3d 3d 20 70 61 hannelFdIn == pa
4080: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 rentChannelFdOut
4090: 29 20 7b 0a 09 09 20 20 20 20 70 61 72 65 6e 74 ) {... parent
40a0: 43 68 61 6e 6e 65 6c 46 64 20 3d 20 70 61 72 65 ChannelFd = pare
40b0: 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 3b 0a 09 ntChannelFdIn;..
40c0: 09 20 20 20 20 76 61 6c 69 64 50 61 72 65 6e 74 . validParent
40d0: 43 68 61 6e 6e 65 6c 46 64 20 3d 20 31 3b 0a 09 ChannelFd = 1;..
40e0: 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 .}.. }..}.
40f0: 20 7d 0a 0a 20 20 20 20 69 66 20 28 76 61 6c 69 }.. if (vali
4100: 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 dParentChannelFd
4110: 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 57 65 ) {..dprintf("We
4120: 20 66 6f 75 6e 64 20 61 20 73 68 6f 72 74 63 75 found a shortcu
4130: 74 2c 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 20 t, this channel
4140: 69 73 20 62 61 63 6b 65 64 20 62 79 20 61 20 73 is backed by a s
4150: 6f 63 6b 65 74 3a 20 25 69 22 2c 0a 09 20 20 20 ocket: %i",..
4160: 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 parentChannelFd
4170: 49 6e 29 3b 0a 09 62 69 6f 20 3d 20 42 49 4f 5f In);..bio = BIO_
4180: 6e 65 77 5f 73 6f 63 6b 65 74 28 70 61 72 65 6e new_socket(paren
4190: 74 43 68 61 6e 6e 65 6c 46 64 2c 20 66 6c 61 67 tChannelFd, flag
41a0: 73 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 s);..statePtr->f
41b0: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
41c0: 46 41 53 54 50 41 54 48 3b 0a 09 42 49 4f 5f 73 FASTPATH;..BIO_s
41d0: 65 74 5f 64 61 74 61 28 62 69 6f 2c 20 73 74 61 et_data(bio, sta
41e0: 74 65 50 74 72 29 3b 0a 09 42 49 4f 5f 73 65 74 tePtr);..BIO_set
41f0: 5f 73 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 66 _shutdown(bio, f
4200: 6c 61 67 73 29 3b 0a 09 42 49 4f 5f 73 65 74 5f lags);..BIO_set_
4210: 69 6e 69 74 28 62 69 6f 2c 20 31 29 3b 0a 09 72 init(bio, 1);..r
4220: 65 74 75 72 6e 20 62 69 6f 3b 0a 20 20 20 20 7d eturn bio;. }
4230: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 64 70 72 .#endif.. dpr
4240: 69 6e 74 66 28 22 46 61 6c 6c 69 6e 67 20 62 61 intf("Falling ba
4250: 63 6b 20 74 6f 20 54 63 6c 20 49 2f 4f 20 66 6f ck to Tcl I/O fo
4260: 72 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 22 29 r this channel")
4270: 3b 0a 0a 20 20 20 20 62 69 6f 20 3d 20 42 49 4f ;.. bio = BIO
4280: 5f 6e 65 77 28 42 69 6f 4d 65 74 68 6f 64 73 29 _new(BioMethods)
4290: 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 64 61 ;. BIO_set_da
42a0: 74 61 28 62 69 6f 2c 20 73 74 61 74 65 50 74 72 ta(bio, statePtr
42b0: 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 73 );. BIO_set_s
42c0: 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 66 6c 61 hutdown(bio, fla
42d0: 67 73 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 gs);. BIO_set
42e0: 5f 69 6e 69 74 28 62 69 6f 2c 20 31 29 3b 20 2f _init(bio, 1); /
42f0: 2a 20 45 6e 61 62 6c 65 20 72 65 61 64 20 26 20 * Enable read &
4300: 77 72 69 74 65 20 2a 2f 0a 20 20 20 20 72 65 74 write */. ret
4310: 75 72 6e 20 62 69 6f 3b 0a 7d 0a 0a 2f 2a 0a 20 urn bio;.}../*.
4320: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4370: 2a 0a 20 2a 20 42 49 4f 5f 63 6c 65 61 6e 75 70 *. * BIO_cleanup
4380: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 --. *. *.This f
4390: 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 unction is used
43a0: 74 6f 20 64 65 73 74 72 6f 79 20 61 20 42 49 4f to destroy a BIO
43b0: 5f 4d 45 54 48 4f 44 20 73 74 72 75 63 74 75 72 _METHOD structur
43c0: 65 20 61 6e 64 20 66 72 65 65 20 75 70 20 61 6e e and free up an
43d0: 79 0a 20 2a 09 6d 65 6d 6f 72 79 20 61 73 73 6f y. *.memory asso
43e0: 63 69 61 74 65 64 20 77 69 74 68 20 69 74 2e 0a ciated with it..
43f0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
4400: 2a 09 53 74 61 6e 64 61 72 64 20 54 43 4c 20 72 *.Standard TCL r
4410: 65 73 75 6c 74 0a 20 2a 0a 20 2a 20 53 69 64 65 esult. *. * Side
4420: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 44 65 73 effects:. *.Des
4430: 74 72 6f 79 73 20 42 49 4f 20 4d 65 74 68 6f 64 troys BIO Method
4440: 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d s.. *. *--------
4450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4490: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 20 42 -----. */..int B
44a0: 49 4f 5f 63 6c 65 61 6e 75 70 20 28 29 20 7b 0a IO_cleanup () {.
44b0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f dprintf("BIO
44c0: 5f 63 6c 65 61 6e 75 70 28 29 20 63 61 6c 6c 65 _cleanup() calle
44d0: 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 42 69 d");.. if (Bi
44e0: 6f 4d 65 74 68 6f 64 73 20 21 3d 20 4e 55 4c 4c oMethods != NULL
44f0: 29 20 7b 0a 09 42 49 4f 5f 6d 65 74 68 5f 66 72 ) {..BIO_meth_fr
4500: 65 65 28 42 69 6f 4d 65 74 68 6f 64 73 29 3b 0a ee(BioMethods);.
4510: 09 42 69 6f 4d 65 74 68 6f 64 73 20 3d 20 4e 55 .BioMethods = NU
4520: 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 LL;. }. re
4530: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a turn TCL_OK;.}.