0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61 (C) 1997-2000 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 0a 20 2a 20 50 72 6f 76 69 64 65 73 20 42 49 4f . * Provides BIO
0050: 20 6c 61 79 65 72 20 74 6f 20 69 6e 74 65 72 66 layer to interf
0060: 61 63 65 20 6f 70 65 6e 73 73 6c 20 74 6f 20 54 ace openssl to T
0070: 63 6c 2e 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 cl.. */..#includ
0080: 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 0a 23 69 e "tlsInt.h"..#i
0090: 66 64 65 66 20 54 43 4c 54 4c 53 5f 4f 50 45 4e fdef TCLTLS_OPEN
00a0: 53 53 4c 5f 50 52 45 5f 31 5f 31 5f 41 50 49 0a SSL_PRE_1_1_API.
00b0: 23 64 65 66 69 6e 65 20 42 49 4f 5f 67 65 74 5f #define BIO_get_
00c0: 64 61 74 61 28 62 69 6f 29 20 20 20 20 20 20 20 data(bio)
00d0: 20 20 20 20 20 20 20 20 20 28 28 62 69 6f 29 2d ((bio)-
00e0: 3e 70 74 72 29 0a 23 64 65 66 69 6e 65 20 42 49 >ptr).#define BI
00f0: 4f 5f 67 65 74 5f 69 6e 69 74 28 62 69 6f 29 20 O_get_init(bio)
0100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
0110: 28 62 69 6f 29 2d 3e 69 6e 69 74 29 0a 23 64 65 (bio)->init).#de
0120: 66 69 6e 65 20 42 49 4f 5f 67 65 74 5f 73 68 75 fine BIO_get_shu
0130: 74 64 6f 77 6e 28 62 69 6f 29 20 20 20 20 20 20 tdown(bio)
0140: 20 20 20 20 20 20 28 28 62 69 6f 29 2d 3e 73 68 ((bio)->sh
0150: 75 74 64 6f 77 6e 29 0a 23 64 65 66 69 6e 65 20 utdown).#define
0160: 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 6f BIO_set_data(bio
0170: 2c 20 76 61 6c 29 20 20 20 20 20 20 20 20 20 20 , val)
0180: 20 28 62 69 6f 29 2d 3e 70 74 72 20 3d 20 28 76 (bio)->ptr = (v
0190: 61 6c 29 0a 23 64 65 66 69 6e 65 20 42 49 4f 5f al).#define BIO_
01a0: 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 76 61 set_init(bio, va
01b0: 6c 29 20 20 20 20 20 20 20 20 20 20 20 28 62 69 l) (bi
01c0: 6f 29 2d 3e 69 6e 69 74 20 3d 20 28 76 61 6c 29 o)->init = (val)
01d0: 0a 23 64 65 66 69 6e 65 20 42 49 4f 5f 73 65 74 .#define BIO_set
01e0: 5f 73 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 76 _shutdown(bio, v
01f0: 61 6c 29 20 20 20 20 20 20 20 28 62 69 6f 29 2d al) (bio)-
0200: 3e 73 68 75 74 64 6f 77 6e 20 3d 20 28 76 61 6c >shutdown = (val
0210: 29 0a 0a 2f 2a 20 58 58 58 3a 20 54 68 69 73 20 )../* XXX: This
0220: 61 73 73 75 6d 65 73 20 74 68 65 20 76 61 72 69 assumes the vari
0230: 61 62 6c 65 20 62 65 69 6e 67 20 61 73 73 69 67 able being assig
0240: 6e 65 64 20 74 6f 20 69 73 20 42 69 6f 4d 65 74 ned to is BioMet
0250: 68 6f 64 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 hods */.#define
0260: 42 49 4f 5f 6d 65 74 68 5f 6e 65 77 28 74 79 70 BIO_meth_new(typ
0270: 65 5f 2c 20 6e 61 6d 65 5f 29 20 20 20 20 20 20 e_, name_)
0280: 20 28 42 49 4f 5f 4d 45 54 48 4f 44 20 2a 29 54 (BIO_METHOD *)T
0290: 63 6c 5f 41 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 cl_Alloc(sizeof(
02a0: 42 49 4f 5f 4d 45 54 48 4f 44 29 29 3b 20 5c 0a BIO_METHOD)); \.
02b0: 09 09 09 09 09 20 6d 65 6d 73 65 74 28 42 69 6f ..... memset(Bio
02c0: 4d 65 74 68 6f 64 73 2c 20 30 2c 20 73 69 7a 65 Methods, 0, size
02d0: 6f 66 28 42 49 4f 5f 4d 45 54 48 4f 44 29 29 3b of(BIO_METHOD));
02e0: 20 5c 0a 09 09 09 09 09 20 42 69 6f 4d 65 74 68 \...... BioMeth
02f0: 6f 64 73 2d 3e 74 79 70 65 20 3d 20 74 79 70 65 ods->type = type
0300: 5f 3b 20 5c 0a 09 09 09 09 09 20 42 69 6f 4d 65 _; \...... BioMe
0310: 74 68 6f 64 73 2d 3e 6e 61 6d 65 20 3d 20 6e 61 thods->name = na
0320: 6d 65 5f 3b 0a 23 64 65 66 69 6e 65 20 42 49 4f me_;.#define BIO
0330: 5f 6d 65 74 68 5f 73 65 74 5f 77 72 69 74 65 28 _meth_set_write(
0340: 62 69 6f 2c 20 76 61 6c 29 20 20 20 20 20 28 62 bio, val) (b
0350: 69 6f 29 2d 3e 62 77 72 69 74 65 20 3d 20 76 61 io)->bwrite = va
0360: 6c 3b 0a 23 64 65 66 69 6e 65 20 42 49 4f 5f 6d l;.#define BIO_m
0370: 65 74 68 5f 73 65 74 5f 72 65 61 64 28 62 69 6f eth_set_read(bio
0380: 2c 20 76 61 6c 29 20 20 20 20 20 20 28 62 69 6f , val) (bio
0390: 29 2d 3e 62 72 65 61 64 20 3d 20 76 61 6c 3b 0a )->bread = val;.
03a0: 23 64 65 66 69 6e 65 20 42 49 4f 5f 6d 65 74 68 #define BIO_meth
03b0: 5f 73 65 74 5f 70 75 74 73 28 62 69 6f 2c 20 76 _set_puts(bio, v
03c0: 61 6c 29 20 20 20 20 20 20 28 62 69 6f 29 2d 3e al) (bio)->
03d0: 62 70 75 74 73 20 3d 20 76 61 6c 3b 0a 23 64 65 bputs = val;.#de
03e0: 66 69 6e 65 20 42 49 4f 5f 6d 65 74 68 5f 73 65 fine BIO_meth_se
03f0: 74 5f 63 74 72 6c 28 62 69 6f 2c 20 76 61 6c 29 t_ctrl(bio, val)
0400: 20 20 20 20 20 20 28 62 69 6f 29 2d 3e 63 74 72 (bio)->ctr
0410: 6c 20 3d 20 76 61 6c 3b 0a 23 64 65 66 69 6e 65 l = val;.#define
0420: 20 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 72 BIO_meth_set_cr
0430: 65 61 74 65 28 62 69 6f 2c 20 76 61 6c 29 20 20 eate(bio, val)
0440: 20 20 28 62 69 6f 29 2d 3e 63 72 65 61 74 65 20 (bio)->create
0450: 3d 20 76 61 6c 3b 0a 23 64 65 66 69 6e 65 20 42 = val;.#define B
0460: 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 64 65 73 74 IO_meth_set_dest
0470: 72 6f 79 28 62 69 6f 2c 20 76 61 6c 29 20 20 20 roy(bio, val)
0480: 28 62 69 6f 29 2d 3e 64 65 73 74 72 6f 79 20 3d (bio)->destroy =
0490: 20 76 61 6c 3b 0a 23 65 6e 64 69 66 0a 0a 73 74 val;.#endif..st
04a0: 61 74 69 63 20 69 6e 74 20 42 69 6f 57 72 69 74 atic int BioWrit
04b0: 65 28 42 49 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73 e(BIO *bio, cons
04c0: 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 t char *buf, int
04d0: 20 62 75 66 4c 65 6e 29 20 7b 0a 09 54 63 6c 5f bufLen) {..Tcl_
04e0: 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 09 69 Channel chan;..i
04f0: 6e 74 20 72 65 74 3b 0a 09 69 6e 74 20 74 63 6c nt ret;..int tcl
0500: 45 6f 66 43 68 61 6e 2c 20 74 63 6c 45 72 72 6e EofChan, tclErrn
0510: 6f 3b 0a 0a 09 63 68 61 6e 20 3d 20 54 6c 73 5f o;...chan = Tls_
0520: 47 65 74 50 61 72 65 6e 74 28 28 53 74 61 74 65 GetParent((State
0530: 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 *) BIO_get_data
0540: 28 62 69 6f 29 2c 20 30 29 3b 0a 0a 09 64 70 72 (bio), 0);...dpr
0550: 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 intf("[chan=%p]
0560: 42 69 6f 57 72 69 74 65 28 25 70 2c 20 3c 62 75 BioWrite(%p, <bu
0570: 66 3e 2c 20 25 64 29 22 2c 20 28 76 6f 69 64 20 f>, %d)", (void
0580: 2a 29 63 68 61 6e 2c 20 28 76 6f 69 64 20 2a 29 *)chan, (void *)
0590: 20 62 69 6f 2c 20 62 75 66 4c 65 6e 29 3b 0a 0a bio, bufLen);..
05a0: 09 72 65 74 20 3d 20 54 63 6c 5f 57 72 69 74 65 .ret = Tcl_Write
05b0: 52 61 77 28 63 68 61 6e 2c 20 62 75 66 2c 20 62 Raw(chan, buf, b
05c0: 75 66 4c 65 6e 29 3b 0a 0a 09 74 63 6c 45 6f 66 ufLen);...tclEof
05d0: 43 68 61 6e 20 3d 20 54 63 6c 5f 45 6f 66 28 63 Chan = Tcl_Eof(c
05e0: 68 61 6e 29 3b 0a 09 74 63 6c 45 72 72 6e 6f 20 han);..tclErrno
05f0: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 = Tcl_GetErrno()
0600: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 68 ;...dprintf("[ch
0610: 61 6e 3d 25 70 5d 20 42 69 6f 57 72 69 74 65 28 an=%p] BioWrite(
0620: 25 64 29 20 2d 3e 20 25 64 20 5b 74 63 6c 45 6f %d) -> %d [tclEo
0630: 66 3d 25 64 3b 20 74 63 6c 45 72 72 6e 6f 3d 25 f=%d; tclErrno=%
0640: 64 5d 22 2c 20 28 76 6f 69 64 20 2a 29 20 63 68 d]", (void *) ch
0650: 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 72 65 74 2c an, bufLen, ret,
0660: 20 74 63 6c 45 6f 66 43 68 61 6e 2c 20 54 63 6c tclEofChan, Tcl
0670: 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 0a 09 _GetErrno());...
0680: 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 BIO_clear_flags(
0690: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 57 bio, BIO_FLAGS_W
06a0: 52 49 54 45 20 7c 20 42 49 4f 5f 46 4c 41 47 53 RITE | BIO_FLAGS
06b0: 5f 53 48 4f 55 4c 44 5f 52 45 54 52 59 29 3b 0a _SHOULD_RETRY);.
06c0: 0a 09 69 66 20 28 74 63 6c 45 6f 66 43 68 61 6e ..if (tclEofChan
06d0: 20 26 26 20 72 65 74 20 3c 3d 20 30 29 20 7b 0a && ret <= 0) {.
06e0: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 45 ..dprintf("Got E
06f0: 4f 46 20 77 68 69 6c 65 20 72 65 61 64 69 6e 67 OF while reading
0700: 2c 20 72 65 74 75 72 6e 69 6e 67 20 61 20 43 6f , returning a Co
0710: 6e 6e 65 63 74 69 6f 6e 20 52 65 73 65 74 20 65 nnection Reset e
0720: 72 72 6f 72 20 77 68 69 63 68 20 6d 61 70 73 20 rror which maps
0730: 74 6f 20 53 6f 66 74 20 45 4f 46 22 29 3b 0a 09 to Soft EOF");..
0740: 09 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 43 .Tcl_SetErrno(EC
0750: 4f 4e 4e 52 45 53 45 54 29 3b 0a 09 09 72 65 74 ONNRESET);...ret
0760: 20 3d 20 30 3b 0a 09 7d 20 65 6c 73 65 20 69 66 = 0;..} else if
0770: 20 28 72 65 74 20 3d 3d 20 30 29 20 7b 0a 09 09 (ret == 0) {...
0780: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 30 20 66 dprintf("Got 0 f
0790: 72 6f 6d 20 54 63 6c 5f 57 72 69 74 65 52 61 77 rom Tcl_WriteRaw
07a0: 2c 20 61 6e 64 20 45 4f 46 20 69 73 20 6e 6f 74 , and EOF is not
07b0: 20 73 65 74 3b 20 72 65 74 20 3d 20 30 22 29 3b set; ret = 0");
07c0: 0a 09 09 64 70 72 69 6e 74 66 28 22 53 65 74 74 ...dprintf("Sett
07d0: 69 6e 67 20 72 65 74 72 79 20 72 65 61 64 20 66 ing retry read f
07e0: 6c 61 67 22 29 3b 0a 09 09 42 49 4f 5f 73 65 74 lag");...BIO_set
07f0: 5f 72 65 74 72 79 5f 72 65 61 64 28 62 69 6f 29 _retry_read(bio)
0800: 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 72 65 ;..} else if (re
0810: 74 20 3c 20 30 29 20 7b 0a 09 09 64 70 72 69 6e t < 0) {...dprin
0820: 74 66 28 22 57 65 20 67 6f 74 20 73 6f 6d 65 20 tf("We got some
0830: 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 65 72 72 6f kind of I/O erro
0840: 72 22 29 3b 0a 0a 09 09 69 66 20 28 74 63 6c 45 r");....if (tclE
0850: 72 72 6e 6f 20 3d 3d 20 45 41 47 41 49 4e 29 20 rrno == EAGAIN)
0860: 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 49 74 {....dprintf("It
0870: 27 73 20 45 41 47 41 49 4e 22 29 3b 0a 09 09 7d 's EAGAIN");...}
0880: 20 65 6c 73 65 20 7b 0a 09 09 09 64 70 72 69 6e else {....dprin
0890: 74 66 28 22 49 74 27 73 20 61 6e 20 75 6e 65 70 tf("It's an unep
08a0: 78 65 63 74 65 64 20 65 72 72 6f 72 3a 20 25 73 xected error: %s
08b0: 2f 25 69 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d /%i", Tcl_ErrnoM
08c0: 73 67 28 74 63 6c 45 72 72 6e 6f 29 2c 20 74 63 sg(tclErrno), tc
08d0: 6c 45 72 72 6e 6f 29 3b 0a 09 09 7d 0a 09 7d 20 lErrno);...}..}
08e0: 65 6c 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 else {...dprintf
08f0: 28 22 53 75 63 63 65 73 73 66 75 6c 6c 79 20 77 ("Successfully w
0900: 72 6f 74 65 20 73 6f 6d 65 20 64 61 74 61 22 29 rote some data")
0910: 3b 0a 09 7d 0a 0a 09 69 66 20 28 72 65 74 20 21 ;..}...if (ret !
0920: 3d 20 2d 31 20 7c 7c 20 28 72 65 74 20 3d 3d 20 = -1 || (ret ==
0930: 2d 31 20 26 26 20 74 63 6c 45 72 72 6e 6f 20 3d -1 && tclErrno =
0940: 3d 20 45 41 47 41 49 4e 29 29 20 7b 0a 09 09 69 = EAGAIN)) {...i
0950: 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 f (BIO_should_re
0960: 61 64 28 62 69 6f 29 29 20 7b 0a 09 09 09 64 70 ad(bio)) {....dp
0970: 72 69 6e 74 66 28 22 53 65 74 74 69 6e 67 20 73 rintf("Setting s
0980: 68 6f 75 6c 64 20 72 65 74 72 79 20 72 65 61 64 hould retry read
0990: 20 66 6c 61 67 22 29 3b 0a 0a 09 09 09 42 49 4f flag");.....BIO
09a0: 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 _set_retry_read(
09b0: 62 69 6f 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 72 bio);...}..}...r
09c0: 65 74 75 72 6e 28 72 65 74 29 3b 0a 7d 0a 0a 73 eturn(ret);.}..s
09d0: 74 61 74 69 63 20 69 6e 74 20 42 69 6f 52 65 61 tatic int BioRea
09e0: 64 28 42 49 4f 20 2a 62 69 6f 2c 20 63 68 61 72 d(BIO *bio, char
09f0: 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 4c 65 *buf, int bufLe
0a00: 6e 29 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 n) {..Tcl_Channe
0a10: 6c 20 63 68 61 6e 3b 0a 09 69 6e 74 20 72 65 74 l chan;..int ret
0a20: 20 3d 20 30 3b 0a 09 69 6e 74 20 74 63 6c 45 6f = 0;..int tclEo
0a30: 66 43 68 61 6e 2c 20 74 63 6c 45 72 72 6e 6f 3b fChan, tclErrno;
0a40: 0a 0a 09 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 ...chan = Tls_Ge
0a50: 74 50 61 72 65 6e 74 28 28 53 74 61 74 65 20 2a tParent((State *
0a60: 29 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 28 62 ) BIO_get_data(b
0a70: 69 6f 29 2c 20 30 29 3b 0a 0a 09 64 70 72 69 6e io), 0);...dprin
0a80: 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69 tf("[chan=%p] Bi
0a90: 6f 52 65 61 64 28 25 70 2c 20 3c 62 75 66 3e 2c oRead(%p, <buf>,
0aa0: 20 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 %d)", (void *)
0ab0: 63 68 61 6e 2c 20 28 76 6f 69 64 20 2a 29 20 62 chan, (void *) b
0ac0: 69 6f 2c 20 62 75 66 4c 65 6e 29 3b 0a 0a 09 69 io, bufLen);...i
0ad0: 66 20 28 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 f (buf == NULL)
0ae0: 7b 0a 09 09 72 65 74 75 72 6e 20 30 3b 0a 09 7d {...return 0;..}
0af0: 0a 0a 09 72 65 74 20 3d 20 54 63 6c 5f 52 65 61 ...ret = Tcl_Rea
0b00: 64 52 61 77 28 63 68 61 6e 2c 20 62 75 66 2c 20 dRaw(chan, buf,
0b10: 62 75 66 4c 65 6e 29 3b 0a 0a 09 74 63 6c 45 6f bufLen);...tclEo
0b20: 66 43 68 61 6e 20 3d 20 54 63 6c 5f 45 6f 66 28 fChan = Tcl_Eof(
0b30: 63 68 61 6e 29 3b 0a 09 74 63 6c 45 72 72 6e 6f chan);..tclErrno
0b40: 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 = Tcl_GetErrno(
0b50: 29 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 );...dprintf("[c
0b60: 68 61 6e 3d 25 70 5d 20 42 69 6f 52 65 61 64 28 han=%p] BioRead(
0b70: 25 64 29 20 2d 3e 20 25 64 20 5b 74 63 6c 45 6f %d) -> %d [tclEo
0b80: 66 3d 25 64 3b 20 74 63 6c 45 72 72 6e 6f 3d 25 f=%d; tclErrno=%
0b90: 64 5d 22 2c 20 28 76 6f 69 64 20 2a 29 20 63 68 d]", (void *) ch
0ba0: 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 72 65 74 2c an, bufLen, ret,
0bb0: 20 74 63 6c 45 6f 66 43 68 61 6e 2c 20 74 63 6c tclEofChan, tcl
0bc0: 45 72 72 6e 6f 29 3b 0a 0a 09 42 49 4f 5f 63 6c Errno);...BIO_cl
0bd0: 65 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 ear_flags(bio, B
0be0: 49 4f 5f 46 4c 41 47 53 5f 52 45 41 44 20 7c 20 IO_FLAGS_READ |
0bf0: 42 49 4f 5f 46 4c 41 47 53 5f 53 48 4f 55 4c 44 BIO_FLAGS_SHOULD
0c00: 5f 52 45 54 52 59 29 3b 0a 0a 09 69 66 20 28 74 _RETRY);...if (t
0c10: 63 6c 45 6f 66 43 68 61 6e 20 26 26 20 72 65 74 clEofChan && ret
0c20: 20 3c 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e <= 0) {...dprin
0c30: 74 66 28 22 47 6f 74 20 45 4f 46 20 77 68 69 6c tf("Got EOF whil
0c40: 65 20 72 65 61 64 69 6e 67 2c 20 72 65 74 75 72 e reading, retur
0c50: 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 74 69 6f ning a Connectio
0c60: 6e 20 52 65 73 65 74 20 65 72 72 6f 72 20 77 68 n Reset error wh
0c70: 69 63 68 20 6d 61 70 73 20 74 6f 20 53 6f 66 74 ich maps to Soft
0c80: 20 45 4f 46 22 29 3b 0a 09 09 54 63 6c 5f 53 65 EOF");...Tcl_Se
0c90: 74 45 72 72 6e 6f 28 45 43 4f 4e 4e 52 45 53 45 tErrno(ECONNRESE
0ca0: 54 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 T);...ret = 0;..
0cb0: 7d 20 65 6c 73 65 20 69 66 20 28 72 65 74 20 3d } else if (ret =
0cc0: 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 = 0) {...dprintf
0cd0: 28 22 47 6f 74 20 30 20 66 72 6f 6d 20 54 63 6c ("Got 0 from Tcl
0ce0: 5f 52 65 61 64 20 6f 72 20 54 63 6c 5f 52 65 61 _Read or Tcl_Rea
0cf0: 64 52 61 77 2c 20 61 6e 64 20 45 4f 46 20 69 73 dRaw, and EOF is
0d00: 20 6e 6f 74 20 73 65 74 3b 20 72 65 74 20 3d 20 not set; ret =
0d10: 30 22 29 3b 0a 09 09 64 70 72 69 6e 74 66 28 22 0");...dprintf("
0d20: 53 65 74 74 69 6e 67 20 72 65 74 72 79 20 72 65 Setting retry re
0d30: 61 64 20 66 6c 61 67 22 29 3b 0a 09 09 42 49 4f ad flag");...BIO
0d40: 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 _set_retry_read(
0d50: 62 69 6f 29 3b 0a 09 7d 20 65 6c 73 65 20 69 66 bio);..} else if
0d60: 20 28 72 65 74 20 3c 20 30 29 20 7b 0a 09 09 64 (ret < 0) {...d
0d70: 70 72 69 6e 74 66 28 22 57 65 20 67 6f 74 20 73 printf("We got s
0d80: 6f 6d 65 20 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 ome kind of I/O
0d90: 65 72 72 6f 72 22 29 3b 0a 0a 09 09 69 66 20 28 error");....if (
0da0: 74 63 6c 45 72 72 6e 6f 20 3d 3d 20 45 41 47 41 tclErrno == EAGA
0db0: 49 4e 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 IN) {....dprintf
0dc0: 28 22 49 74 27 73 20 45 41 47 41 49 4e 22 29 3b ("It's EAGAIN");
0dd0: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 64 ...} else {....d
0de0: 70 72 69 6e 74 66 28 22 49 74 27 73 20 61 6e 20 printf("It's an
0df0: 75 6e 65 70 78 65 63 74 65 64 20 65 72 72 6f 72 unepxected error
0e00: 3a 20 25 73 2f 25 69 22 2c 20 54 63 6c 5f 45 72 : %s/%i", Tcl_Er
0e10: 72 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 rnoMsg(tclErrno)
0e20: 2c 20 74 63 6c 45 72 72 6e 6f 29 3b 0a 09 09 7d , tclErrno);...}
0e30: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72 ..} else {...dpr
0e40: 69 6e 74 66 28 22 53 75 63 63 65 73 73 66 75 6c intf("Successful
0e50: 6c 79 20 72 65 61 64 20 73 6f 6d 65 20 64 61 74 ly read some dat
0e60: 61 22 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 72 65 a");..}...if (re
0e70: 74 20 21 3d 20 2d 31 20 7c 7c 20 28 72 65 74 20 t != -1 || (ret
0e80: 3d 3d 20 2d 31 20 26 26 20 74 63 6c 45 72 72 6e == -1 && tclErrn
0e90: 6f 20 3d 3d 20 45 41 47 41 49 4e 29 29 20 7b 0a o == EAGAIN)) {.
0ea0: 09 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 ..if (BIO_should
0eb0: 5f 77 72 69 74 65 28 62 69 6f 29 29 20 7b 0a 09 _write(bio)) {..
0ec0: 09 09 64 70 72 69 6e 74 66 28 22 53 65 74 74 69 ..dprintf("Setti
0ed0: 6e 67 20 73 68 6f 75 6c 64 20 72 65 74 72 79 20 ng should retry
0ee0: 77 72 69 74 65 20 66 6c 61 67 22 29 3b 0a 0a 09 write flag");...
0ef0: 09 09 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f ..BIO_set_retry_
0f00: 77 72 69 74 65 28 62 69 6f 29 3b 0a 09 09 7d 0a write(bio);...}.
0f10: 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 42 69 .}...dprintf("Bi
0f20: 6f 52 65 61 64 28 25 70 2c 20 3c 62 75 66 3e 2c oRead(%p, <buf>,
0f30: 20 25 64 29 20 5b 25 70 5d 20 72 65 74 75 72 6e %d) [%p] return
0f40: 69 6e 67 20 25 69 22 2c 20 28 76 6f 69 64 20 2a ing %i", (void *
0f50: 29 20 62 69 6f 2c 20 62 75 66 4c 65 6e 2c 20 28 ) bio, bufLen, (
0f60: 76 6f 69 64 20 2a 29 20 63 68 61 6e 2c 20 72 65 void *) chan, re
0f70: 74 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65 74 t);...return(ret
0f80: 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 );.}..static int
0f90: 20 42 69 6f 50 75 74 73 28 42 49 4f 20 2a 62 69 BioPuts(BIO *bi
0fa0: 6f 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 o, const char *s
0fb0: 74 72 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 tr) {..dprintf("
0fc0: 42 69 6f 50 75 74 73 28 25 70 2c 20 3c 73 74 72 BioPuts(%p, <str
0fd0: 69 6e 67 3a 25 70 3e 29 20 63 61 6c 6c 65 64 22 ing:%p>) called"
0fe0: 2c 20 62 69 6f 2c 20 73 74 72 29 3b 0a 0a 09 72 , bio, str);...r
0ff0: 65 74 75 72 6e 20 42 69 6f 57 72 69 74 65 28 62 eturn BioWrite(b
1000: 69 6f 2c 20 73 74 72 2c 20 28 69 6e 74 29 20 73 io, str, (int) s
1010: 74 72 6c 65 6e 28 73 74 72 29 29 3b 0a 7d 0a 0a trlen(str));.}..
1020: 73 74 61 74 69 63 20 6c 6f 6e 67 20 42 69 6f 43 static long BioC
1030: 74 72 6c 28 42 49 4f 20 2a 62 69 6f 2c 20 69 6e trl(BIO *bio, in
1040: 74 20 63 6d 64 2c 20 6c 6f 6e 67 20 6e 75 6d 2c t cmd, long num,
1050: 20 76 6f 69 64 20 2a 70 74 72 29 20 7b 0a 09 54 void *ptr) {..T
1060: 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b cl_Channel chan;
1070: 0a 09 6c 6f 6e 67 20 72 65 74 20 3d 20 31 3b 0a ..long ret = 1;.
1080: 0a 09 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 ..chan = Tls_Get
1090: 50 61 72 65 6e 74 28 28 53 74 61 74 65 20 2a 29 Parent((State *)
10a0: 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 28 62 69 BIO_get_data(bi
10b0: 6f 29 2c 20 30 29 3b 0a 0a 09 64 70 72 69 6e 74 o), 0);...dprint
10c0: 66 28 22 42 69 6f 43 74 72 6c 28 25 70 2c 20 30 f("BioCtrl(%p, 0
10d0: 78 25 78 2c 20 30 78 25 6c 78 2c 20 25 70 29 22 x%x, 0x%lx, %p)"
10e0: 2c 20 28 76 6f 69 64 20 2a 29 20 62 69 6f 2c 20 , (void *) bio,
10f0: 63 6d 64 2c 20 6e 75 6d 2c 20 70 74 72 29 3b 0a cmd, num, ptr);.
1100: 0a 09 73 77 69 74 63 68 20 28 63 6d 64 29 20 7b ..switch (cmd) {
1110: 0a 09 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c ...case BIO_CTRL
1120: 5f 52 45 53 45 54 3a 0a 09 09 09 64 70 72 69 6e _RESET:....dprin
1130: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
1140: 5f 52 45 53 45 54 22 29 3b 0a 09 09 09 6e 75 6d _RESET");....num
1150: 20 3d 20 30 3b 0a 09 09 09 72 65 74 20 3d 20 30 = 0;....ret = 0
1160: 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 ;....break;...ca
1170: 73 65 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 45 se BIO_C_FILE_SE
1180: 45 4b 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 EK:....dprintf("
1190: 47 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 Got BIO_C_FILE_S
11a0: 45 45 4b 22 29 3b 0a 09 09 09 72 65 74 20 3d 20 EEK");....ret =
11b0: 30 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 0;....break;...c
11c0: 61 73 65 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 54 ase BIO_C_FILE_T
11d0: 45 4c 4c 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 ELL:....dprintf(
11e0: 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f "Got BIO_C_FILE_
11f0: 54 45 4c 4c 22 29 3b 0a 09 09 09 72 65 74 20 3d TELL");....ret =
1200: 20 30 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 0;....break;...
1210: 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 49 4e case BIO_CTRL_IN
1220: 46 4f 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 FO:....dprintf("
1230: 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 49 4e 46 Got BIO_CTRL_INF
1240: 4f 22 29 3b 0a 09 09 09 72 65 74 20 3d 20 31 3b O");....ret = 1;
1250: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 ....break;...cas
1260: 65 20 42 49 4f 5f 43 5f 53 45 54 5f 46 44 3a 0a e BIO_C_SET_FD:.
1270: 09 09 09 64 70 72 69 6e 74 66 28 22 55 6e 73 75 ...dprintf("Unsu
1280: 70 70 6f 72 74 65 64 20 63 61 6c 6c 3a 20 42 49 pported call: BI
1290: 4f 5f 43 5f 53 45 54 5f 46 44 22 29 3b 0a 09 09 O_C_SET_FD");...
12a0: 09 72 65 74 20 3d 20 2d 31 3b 0a 09 09 09 62 72 .ret = -1;....br
12b0: 65 61 6b 3b 0a 09 09 63 61 73 65 20 42 49 4f 5f eak;...case BIO_
12c0: 43 5f 47 45 54 5f 46 44 3a 0a 09 09 09 64 70 72 C_GET_FD:....dpr
12d0: 69 6e 74 66 28 22 55 6e 73 75 70 70 6f 72 74 65 intf("Unsupporte
12e0: 64 20 63 61 6c 6c 3a 20 42 49 4f 5f 43 5f 47 45 d call: BIO_C_GE
12f0: 54 5f 46 44 22 29 3b 0a 09 09 09 72 65 74 20 3d T_FD");....ret =
1300: 20 2d 31 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 -1;....break;..
1310: 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 .case BIO_CTRL_G
1320: 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 09 64 70 72 ET_CLOSE:....dpr
1330: 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 intf("Got BIO_CT
1340: 52 4c 5f 43 4c 4f 53 45 22 29 3b 0a 09 09 09 72 RL_CLOSE");....r
1350: 65 74 20 3d 20 42 49 4f 5f 67 65 74 5f 73 68 75 et = BIO_get_shu
1360: 74 64 6f 77 6e 28 62 69 6f 29 3b 0a 09 09 09 62 tdown(bio);....b
1370: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 42 49 4f reak;...case BIO
1380: 5f 43 54 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 3a _CTRL_SET_CLOSE:
1390: 0a 09 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 ....dprintf("Got
13a0: 20 42 49 4f 5f 53 45 54 5f 43 4c 4f 53 45 22 29 BIO_SET_CLOSE")
13b0: 3b 0a 09 09 09 42 49 4f 5f 73 65 74 5f 73 68 75 ;....BIO_set_shu
13c0: 74 64 6f 77 6e 28 62 69 6f 2c 20 6e 75 6d 29 3b tdown(bio, num);
13d0: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 ....break;...cas
13e0: 65 20 42 49 4f 5f 43 54 52 4c 5f 45 4f 46 3a 0a e BIO_CTRL_EOF:.
13f0: 09 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
1400: 42 49 4f 5f 43 54 52 4c 5f 45 4f 46 22 29 3b 0a BIO_CTRL_EOF");.
1410: 09 09 09 72 65 74 20 3d 20 28 28 63 68 61 6e 29 ...ret = ((chan)
1420: 20 3f 20 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 ? Tcl_Eof(chan)
1430: 20 3a 20 31 29 3b 0a 09 09 09 62 72 65 61 6b 3b : 1);....break;
1440: 0a 09 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c ...case BIO_CTRL
1450: 5f 50 45 4e 44 49 4e 47 3a 0a 09 09 09 64 70 72 _PENDING:....dpr
1460: 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 intf("Got BIO_CT
1470: 52 4c 5f 50 45 4e 44 49 4e 47 22 29 3b 0a 09 09 RL_PENDING");...
1480: 09 72 65 74 20 3d 20 28 28 63 68 61 6e 29 20 3f .ret = ((chan) ?
1490: 20 28 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 ((Tcl_InputBuff
14a0: 65 72 65 64 28 63 68 61 6e 29 20 3f 20 31 20 3a ered(chan) ? 1 :
14b0: 20 30 29 29 20 3a 20 30 29 3b 0a 09 09 09 64 70 0)) : 0);....dp
14c0: 72 69 6e 74 66 28 22 42 49 4f 5f 43 54 52 4c 5f rintf("BIO_CTRL_
14d0: 50 45 4e 44 49 4e 47 28 25 64 29 22 2c 20 28 69 PENDING(%d)", (i
14e0: 6e 74 29 20 72 65 74 29 3b 0a 09 09 09 62 72 65 nt) ret);....bre
14f0: 61 6b 3b 0a 09 09 63 61 73 65 20 42 49 4f 5f 43 ak;...case BIO_C
1500: 54 52 4c 5f 57 50 45 4e 44 49 4e 47 3a 0a 09 09 TRL_WPENDING:...
1510: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 .dprintf("Got BI
1520: 4f 5f 43 54 52 4c 5f 57 50 45 4e 44 49 4e 47 22 O_CTRL_WPENDING"
1530: 29 3b 0a 09 09 09 72 65 74 20 3d 20 30 3b 0a 09 );....ret = 0;..
1540: 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ..break;...case
1550: 42 49 4f 5f 43 54 52 4c 5f 44 55 50 3a 0a 09 09 BIO_CTRL_DUP:...
1560: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 .dprintf("Got BI
1570: 4f 5f 43 54 52 4c 5f 44 55 50 22 29 3b 0a 09 09 O_CTRL_DUP");...
1580: 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 42 .break;...case B
1590: 49 4f 5f 43 54 52 4c 5f 46 4c 55 53 48 3a 0a 09 IO_CTRL_FLUSH:..
15a0: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
15b0: 49 4f 5f 43 54 52 4c 5f 46 4c 55 53 48 22 29 3b IO_CTRL_FLUSH");
15c0: 0a 09 09 09 72 65 74 20 3d 20 28 28 63 68 61 6e ....ret = ((chan
15d0: 29 20 26 26 20 28 54 63 6c 5f 57 72 69 74 65 52 ) && (Tcl_WriteR
15e0: 61 77 28 63 68 61 6e 2c 20 22 22 2c 20 30 29 20 aw(chan, "", 0)
15f0: 3e 3d 20 30 29 20 3f 20 31 20 3a 20 2d 31 29 3b >= 0) ? 1 : -1);
1600: 0a 09 09 09 64 70 72 69 6e 74 66 28 22 42 49 4f ....dprintf("BIO
1610: 5f 43 54 52 4c 5f 46 4c 55 53 48 20 72 65 74 75 _CTRL_FLUSH retu
1620: 72 6e 69 6e 67 20 76 61 6c 75 65 20 25 6c 69 22 rning value %li"
1630: 2c 20 72 65 74 29 3b 0a 09 09 09 62 72 65 61 6b , ret);....break
1640: 3b 0a 09 09 63 61 73 65 20 42 49 4f 5f 43 54 52 ;...case BIO_CTR
1650: 4c 5f 50 55 53 48 3a 0a 09 09 09 64 70 72 69 6e L_PUSH:....dprin
1660: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
1670: 5f 50 55 53 48 22 29 3b 0a 09 09 09 72 65 74 20 _PUSH");....ret
1680: 3d 20 30 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 = 0;....break;..
1690: 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 50 .case BIO_CTRL_P
16a0: 4f 50 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 OP:....dprintf("
16b0: 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 50 4f 50 Got BIO_CTRL_POP
16c0: 22 29 3b 0a 09 09 09 72 65 74 20 3d 20 30 3b 0a ");....ret = 0;.
16d0: 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 ...break;...case
16e0: 20 42 49 4f 5f 43 54 52 4c 5f 53 45 54 3a 0a 09 BIO_CTRL_SET:..
16f0: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
1700: 49 4f 5f 43 54 52 4c 5f 53 45 54 22 29 3b 0a 09 IO_CTRL_SET");..
1710: 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 09 62 72 ..ret = 0;....br
1720: 65 61 6b 3b 0a 09 09 63 61 73 65 20 42 49 4f 5f eak;...case BIO_
1730: 43 54 52 4c 5f 47 45 54 20 3a 0a 09 09 09 64 70 CTRL_GET :....dp
1740: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
1750: 54 52 4c 5f 47 45 54 20 22 29 3b 0a 09 09 09 72 TRL_GET ");....r
1760: 65 74 20 3d 20 30 3b 0a 09 09 09 62 72 65 61 6b et = 0;....break
1770: 3b 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 ;...default:....
1780: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 75 6e 6b dprintf("Got unk
1790: 6e 6f 77 6e 20 63 6f 6e 74 72 6f 6c 20 63 6f 6d nown control com
17a0: 6d 61 6e 64 20 28 25 69 29 22 2c 20 63 6d 64 29 mand (%i)", cmd)
17b0: 3b 0a 09 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 ;....ret = 0;...
17c0: 09 62 72 65 61 6b 3b 0a 09 7d 0a 0a 09 72 65 74 .break;..}...ret
17d0: 75 72 6e 28 72 65 74 29 3b 0a 7d 0a 0a 73 74 61 urn(ret);.}..sta
17e0: 74 69 63 20 69 6e 74 20 42 69 6f 4e 65 77 28 42 tic int BioNew(B
17f0: 49 4f 20 2a 62 69 6f 29 20 7b 0a 09 64 70 72 69 IO *bio) {..dpri
1800: 6e 74 66 28 22 42 69 6f 4e 65 77 28 25 70 29 20 ntf("BioNew(%p)
1810: 63 61 6c 6c 65 64 22 2c 20 62 69 6f 29 3b 0a 0a called", bio);..
1820: 09 42 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 .BIO_set_init(bi
1830: 6f 2c 20 30 29 3b 0a 09 42 49 4f 5f 73 65 74 5f o, 0);..BIO_set_
1840: 64 61 74 61 28 62 69 6f 2c 20 4e 55 4c 4c 29 3b data(bio, NULL);
1850: 0a 09 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 ..BIO_clear_flag
1860: 73 28 62 69 6f 2c 20 2d 31 29 3b 0a 0a 09 72 65 s(bio, -1);...re
1870: 74 75 72 6e 28 31 29 3b 0a 7d 0a 0a 73 74 61 74 turn(1);.}..stat
1880: 69 63 20 69 6e 74 20 42 69 6f 46 72 65 65 28 42 ic int BioFree(B
1890: 49 4f 20 2a 62 69 6f 29 20 7b 0a 09 69 66 20 28 IO *bio) {..if (
18a0: 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 bio == NULL) {..
18b0: 09 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a .return(0);..}..
18c0: 09 64 70 72 69 6e 74 66 28 22 42 69 6f 46 72 65 .dprintf("BioFre
18d0: 65 28 25 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 e(%p) called", b
18e0: 69 6f 29 3b 0a 0a 09 69 66 20 28 42 49 4f 5f 67 io);...if (BIO_g
18f0: 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 6f 29 et_shutdown(bio)
1900: 29 20 7b 0a 09 09 69 66 20 28 42 49 4f 5f 67 65 ) {...if (BIO_ge
1910: 74 5f 69 6e 69 74 28 62 69 6f 29 29 20 7b 0a 09 t_init(bio)) {..
1920: 09 09 2f 2a 73 68 75 74 64 6f 77 6e 28 62 69 6f ../*shutdown(bio
1930: 2d 3e 6e 75 6d 2c 20 32 29 20 2a 2f 0a 09 09 09 ->num, 2) */....
1940: 2f 2a 63 6c 6f 73 65 73 6f 63 6b 65 74 28 62 69 /*closesocket(bi
1950: 6f 2d 3e 6e 75 6d 29 20 2a 2f 0a 09 09 7d 0a 0a o->num) */...}..
1960: 09 09 42 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 ..BIO_set_init(b
1970: 69 6f 2c 20 30 29 3b 0a 09 09 42 49 4f 5f 63 6c io, 0);...BIO_cl
1980: 65 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 2d ear_flags(bio, -
1990: 31 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 1);..}...return(
19a0: 31 29 3b 0a 7d 0a 0a 42 49 4f 20 2a 42 49 4f 5f 1);.}..BIO *BIO_
19b0: 6e 65 77 5f 74 63 6c 28 53 74 61 74 65 20 2a 73 new_tcl(State *s
19c0: 74 61 74 65 50 74 72 2c 20 69 6e 74 20 66 6c 61 tatePtr, int fla
19d0: 67 73 29 20 7b 0a 09 42 49 4f 20 2a 62 69 6f 3b gs) {..BIO *bio;
19e0: 0a 09 73 74 61 74 69 63 20 42 49 4f 5f 4d 45 54 ..static BIO_MET
19f0: 48 4f 44 20 2a 42 69 6f 4d 65 74 68 6f 64 73 20 HOD *BioMethods
1a00: 3d 20 4e 55 4c 4c 3b 0a 23 69 66 64 65 66 20 54 = NULL;.#ifdef T
1a10: 43 4c 54 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41 CLTLS_SSL_USE_FA
1a20: 53 54 50 41 54 48 0a 09 54 63 6c 5f 43 68 61 6e STPATH..Tcl_Chan
1a30: 6e 65 6c 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 nel parentChanne
1a40: 6c 3b 0a 09 63 6f 6e 73 74 20 54 63 6c 5f 43 68 l;..const Tcl_Ch
1a50: 61 6e 6e 65 6c 54 79 70 65 20 2a 70 61 72 65 6e annelType *paren
1a60: 74 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 09 76 tChannelType;..v
1a70: 6f 69 64 20 2a 70 61 72 65 6e 74 43 68 61 6e 6e oid *parentChann
1a80: 65 6c 46 64 49 6e 5f 70 2c 20 2a 70 61 72 65 6e elFdIn_p, *paren
1a90: 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70 3b tChannelFdOut_p;
1aa0: 0a 09 69 6e 74 20 70 61 72 65 6e 74 43 68 61 6e ..int parentChan
1ab0: 6e 65 6c 46 64 49 6e 2c 20 70 61 72 65 6e 74 43 nelFdIn, parentC
1ac0: 68 61 6e 6e 65 6c 46 64 4f 75 74 2c 20 70 61 72 hannelFdOut, par
1ad0: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 3b 0a 09 69 entChannelFd;..i
1ae0: 6e 74 20 76 61 6c 69 64 50 61 72 65 6e 74 43 68 nt validParentCh
1af0: 61 6e 6e 65 6c 46 64 3b 0a 09 69 6e 74 20 74 63 annelFd;..int tc
1b00: 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c lGetChannelHandl
1b10: 65 52 65 74 3b 0a 23 65 6e 64 69 66 0a 0a 09 64 eRet;.#endif...d
1b20: 70 72 69 6e 74 66 28 22 42 49 4f 5f 6e 65 77 5f printf("BIO_new_
1b30: 74 63 6c 28 29 20 63 61 6c 6c 65 64 22 29 3b 0a tcl() called");.
1b40: 0a 09 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 ..if (BioMethods
1b50: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 42 69 == NULL) {...Bi
1b60: 6f 4d 65 74 68 6f 64 73 20 3d 20 42 49 4f 5f 6d oMethods = BIO_m
1b70: 65 74 68 5f 6e 65 77 28 42 49 4f 5f 54 59 50 45 eth_new(BIO_TYPE
1b80: 5f 54 43 4c 2c 20 22 74 63 6c 22 29 3b 0a 09 09 _TCL, "tcl");...
1b90: 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 77 72 69 BIO_meth_set_wri
1ba0: 74 65 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 te(BioMethods, B
1bb0: 69 6f 57 72 69 74 65 29 3b 0a 09 09 42 49 4f 5f ioWrite);...BIO_
1bc0: 6d 65 74 68 5f 73 65 74 5f 72 65 61 64 28 42 69 meth_set_read(Bi
1bd0: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 52 65 61 oMethods, BioRea
1be0: 64 29 3b 0a 09 09 42 49 4f 5f 6d 65 74 68 5f 73 d);...BIO_meth_s
1bf0: 65 74 5f 70 75 74 73 28 42 69 6f 4d 65 74 68 6f et_puts(BioMetho
1c00: 64 73 2c 20 42 69 6f 50 75 74 73 29 3b 0a 09 09 ds, BioPuts);...
1c10: 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 74 72 BIO_meth_set_ctr
1c20: 6c 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 l(BioMethods, Bi
1c30: 6f 43 74 72 6c 29 3b 0a 09 09 42 49 4f 5f 6d 65 oCtrl);...BIO_me
1c40: 74 68 5f 73 65 74 5f 63 72 65 61 74 65 28 42 69 th_set_create(Bi
1c50: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 4e 65 77 oMethods, BioNew
1c60: 29 3b 0a 09 09 42 49 4f 5f 6d 65 74 68 5f 73 65 );...BIO_meth_se
1c70: 74 5f 64 65 73 74 72 6f 79 28 42 69 6f 4d 65 74 t_destroy(BioMet
1c80: 68 6f 64 73 2c 20 42 69 6f 46 72 65 65 29 3b 0a hods, BioFree);.
1c90: 09 7d 0a 0a 09 69 66 20 28 73 74 61 74 65 50 74 .}...if (statePt
1ca0: 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 64 r == NULL) {...d
1cb0: 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f printf("Asked to
1cc0: 20 73 65 74 75 70 20 61 20 4e 55 4c 4c 20 73 74 setup a NULL st
1cd0: 61 74 65 2c 20 6a 75 73 74 20 63 72 65 61 74 69 ate, just creati
1ce0: 6e 67 20 74 68 65 20 69 6e 69 74 69 61 6c 20 63 ng the initial c
1cf0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 29 3b 0a onfiguration");.
1d00: 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b ...return(NULL);
1d10: 0a 09 7d 0a 0a 23 69 66 64 65 66 20 54 43 4c 54 ..}..#ifdef TCLT
1d20: 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41 53 54 50 LS_SSL_USE_FASTP
1d30: 41 54 48 0a 09 2f 2a 0a 09 20 2a 20 49 66 20 74 ATH../*.. * If t
1d40: 68 65 20 63 68 61 6e 6e 65 6c 20 63 61 6e 20 62 he channel can b
1d50: 65 20 6d 61 70 70 65 64 20 62 61 63 6b 20 74 6f e mapped back to
1d60: 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 a file descript
1d70: 6f 72 2c 20 6a 75 73 74 20 75 73 65 20 74 68 65 or, just use the
1d80: 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 file descriptor
1d90: 0a 09 20 2a 20 77 69 74 68 20 74 68 65 20 53 53 .. * with the SS
1da0: 4c 20 6c 69 62 72 61 72 79 20 73 69 6e 63 65 20 L library since
1db0: 69 74 20 77 69 6c 6c 20 6c 69 6b 65 6c 79 20 62 it will likely b
1dc0: 65 20 6f 70 74 69 6d 69 7a 65 64 20 66 6f 72 20 e optimized for
1dd0: 74 68 69 73 2e 0a 09 20 2a 2f 0a 09 70 61 72 65 this... */..pare
1de0: 6e 74 43 68 61 6e 6e 65 6c 20 3d 20 54 6c 73 5f ntChannel = Tls_
1df0: 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 GetParent(stateP
1e00: 74 72 2c 20 30 29 3b 0a 09 70 61 72 65 6e 74 43 tr, 0);..parentC
1e10: 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 54 63 6c hannelType = Tcl
1e20: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
1e30: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 29 3b 0a parentChannel);.
1e40: 0a 09 76 61 6c 69 64 50 61 72 65 6e 74 43 68 61 ..validParentCha
1e50: 6e 6e 65 6c 46 64 20 3d 20 30 3b 0a 09 69 66 20 nnelFd = 0;..if
1e60: 28 73 74 72 63 6d 70 28 70 61 72 65 6e 74 43 68 (strcmp(parentCh
1e70: 61 6e 6e 65 6c 54 79 70 65 2d 3e 74 79 70 65 4e annelType->typeN
1e80: 61 6d 65 2c 20 22 74 63 70 22 29 20 3d 3d 20 30 ame, "tcp") == 0
1e90: 29 20 7b 0a 09 09 74 63 6c 47 65 74 43 68 61 6e ) {...tclGetChan
1ea0: 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 20 54 nelHandleRet = T
1eb0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e cl_GetChannelHan
1ec0: 64 6c 65 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 dle(parentChanne
1ed0: 6c 2c 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c l, TCL_READABLE,
1ee0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 26 70 (ClientData) &p
1ef0: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e arentChannelFdIn
1f00: 5f 70 29 3b 0a 09 09 69 66 20 28 74 63 6c 47 65 _p);...if (tclGe
1f10: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 tChannelHandleRe
1f20: 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 t == TCL_OK) {..
1f30: 09 09 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 ..tclGetChannelH
1f40: 61 6e 64 6c 65 52 65 74 20 3d 20 54 63 6c 5f 47 andleRet = Tcl_G
1f50: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 etChannelHandle(
1f60: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 2c 20 54 parentChannel, T
1f70: 43 4c 5f 57 52 49 54 41 42 4c 45 2c 20 28 43 6c CL_WRITABLE, (Cl
1f80: 69 65 6e 74 44 61 74 61 29 20 26 70 61 72 65 6e ientData) &paren
1f90: 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70 29 tChannelFdOut_p)
1fa0: 3b 0a 09 09 09 69 66 20 28 74 63 6c 47 65 74 43 ;....if (tclGetC
1fb0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 hannelHandleRet
1fc0: 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 09 == TCL_OK) {....
1fd0: 09 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 .parentChannelFd
1fe0: 49 6e 20 3d 20 50 54 52 32 49 4e 54 28 70 61 72 In = PTR2INT(par
1ff0: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 entChannelFdIn_p
2000: 29 3b 0a 09 09 09 09 70 61 72 65 6e 74 43 68 61 );.....parentCha
2010: 6e 6e 65 6c 46 64 4f 75 74 20 3d 20 50 54 52 32 nnelFdOut = PTR2
2020: 49 4e 54 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 INT(parentChanne
2030: 6c 46 64 4f 75 74 5f 70 29 3b 0a 09 09 09 09 69 lFdOut_p);.....i
2040: 66 20 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c f (parentChannel
2050: 46 64 49 6e 20 3d 3d 20 70 61 72 65 6e 74 43 68 FdIn == parentCh
2060: 61 6e 6e 65 6c 46 64 4f 75 74 29 20 7b 0a 09 09 annelFdOut) {...
2070: 09 09 09 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c ...parentChannel
2080: 46 64 20 3d 20 70 61 72 65 6e 74 43 68 61 6e 6e Fd = parentChann
2090: 65 6c 46 64 49 6e 3b 0a 09 09 09 09 09 76 61 6c elFdIn;......val
20a0: 69 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 idParentChannelF
20b0: 64 20 3d 20 31 3b 0a 09 09 09 09 7d 0a 09 09 09 d = 1;.....}....
20c0: 7d 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 20 28 76 }...}..}...if (v
20d0: 61 6c 69 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 alidParentChanne
20e0: 6c 46 64 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 lFd) {...dprintf
20f0: 28 22 57 65 20 66 6f 75 6e 64 20 61 20 73 68 6f ("We found a sho
2100: 72 74 63 75 74 2c 20 74 68 69 73 20 63 68 61 6e rtcut, this chan
2110: 6e 65 6c 20 69 73 20 62 61 63 6b 65 64 20 62 79 nel is backed by
2120: 20 61 20 73 6f 63 6b 65 74 3a 20 25 69 22 2c 20 a socket: %i",
2130: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 parentChannelFdI
2140: 6e 29 3b 0a 09 09 62 69 6f 20 3d 20 42 49 4f 5f n);...bio = BIO_
2150: 6e 65 77 5f 73 6f 63 6b 65 74 28 70 61 72 65 6e new_socket(paren
2160: 74 43 68 61 6e 6e 65 6c 46 64 2c 20 66 6c 61 67 tChannelFd, flag
2170: 73 29 3b 0a 09 09 73 74 61 74 65 50 74 72 2d 3e s);...statePtr->
2180: 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c flags |= TLS_TCL
2190: 5f 46 41 53 54 50 41 54 48 3b 0a 09 09 72 65 74 _FASTPATH;...ret
21a0: 75 72 6e 28 62 69 6f 29 3b 0a 09 7d 0a 0a 09 64 urn(bio);..}...d
21b0: 70 72 69 6e 74 66 28 22 46 61 6c 6c 69 6e 67 20 printf("Falling
21c0: 62 61 63 6b 20 74 6f 20 54 63 6c 20 49 2f 4f 20 back to Tcl I/O
21d0: 66 6f 72 20 74 68 69 73 20 63 68 61 6e 6e 65 6c for this channel
21e0: 22 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 62 69 6f ");.#endif...bio
21f0: 20 3d 20 42 49 4f 5f 6e 65 77 28 42 69 6f 4d 65 = BIO_new(BioMe
2200: 74 68 6f 64 73 29 3b 0a 09 42 49 4f 5f 73 65 74 thods);..BIO_set
2210: 5f 64 61 74 61 28 62 69 6f 2c 20 73 74 61 74 65 _data(bio, state
2220: 50 74 72 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 73 Ptr);..BIO_set_s
2230: 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 66 6c 61 hutdown(bio, fla
2240: 67 73 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 69 6e gs);..BIO_set_in
2250: 69 74 28 62 69 6f 2c 20 31 29 3b 0a 0a 09 72 65 it(bio, 1);...re
2260: 74 75 72 6e 28 62 69 6f 29 3b 0a 7d 0a turn(bio);.}.