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 0a 20 2a 20 66 75 6e 63 74 69 6f 6e hese. * function
0050: 73 20 64 69 72 65 63 74 6c 79 20 69 6e 74 65 72 s directly inter
0060: 66 61 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 face between the
0070: 20 49 4f 20 63 68 61 6e 6e 65 6c 20 61 6e 64 20 IO channel and
0080: 42 49 4f 20 62 75 66 66 65 72 73 2e 0a 20 2a 0a BIO buffers.. *.
0090: 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 * Copyright (C)
00a0: 20 31 39 39 37 2d 32 30 30 30 20 4d 61 74 74 20 1997-2000 Matt
00b0: 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 6e 6f 76 Newman <matt@nov
00c0: 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a 20 43 6f adigm.com>. * Co
00d0: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 34 pyright (C) 2024
00e0: 20 42 72 69 61 6e 20 4f 27 48 61 67 61 6e 0a 20 Brian O'Hagan.
00f0: 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 *. */..#include
0100: 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 6c "tlsInt.h".#incl
0110: 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 62 69 6f ude <openssl/bio
0120: 2e 68 3e 0a 0a 2f 2a 20 44 65 66 69 6e 65 20 42 .h>../* Define B
0130: 49 4f 20 6d 65 74 68 6f 64 73 20 73 74 72 75 63 IO methods struc
0140: 74 75 72 65 20 2a 2f 0a 73 74 61 74 69 63 20 42 ture */.static B
0150: 49 4f 5f 4d 45 54 48 4f 44 20 2a 42 69 6f 4d 65 IO_METHOD *BioMe
0160: 74 68 6f 64 73 20 3d 20 4e 55 4c 4c 3b 0a 0a 0a thods = NULL;...
0170: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
0180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01c0: 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 57 72 69 74 --. *. * BioWrit
01d0: 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 e --. *. *.This
01e0: 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
01f0: 20 74 6f 20 72 65 61 64 20 65 6e 63 72 79 70 74 to read encrypt
0200: 65 64 20 64 61 74 61 20 66 72 6f 6d 20 74 68 65 ed data from the
0210: 20 42 49 4f 20 61 6e 64 20 77 72 69 74 65 20 69 BIO and write i
0220: 74 0a 20 2a 09 69 6e 74 6f 20 74 68 65 20 73 6f t. *.into the so
0230: 63 6b 65 74 2e 20 54 68 69 73 20 66 75 6e 63 74 cket. This funct
0240: 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c ion will be call
0250: 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 ed in response t
0260: 6f 20 74 68 65 0a 20 2a 09 61 70 70 6c 69 63 61 o the. *.applica
0270: 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 42 49 4f tion calling BIO
0280: 5f 77 72 69 74 65 5f 65 78 28 29 20 6f 72 20 42 _write_ex() or B
0290: 49 4f 5f 77 72 69 74 65 28 29 2e 0a 20 2a 0a 20 IO_write().. *.
02a0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 * Results:. *.Re
02b0: 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 turns the number
02c0: 20 6f 66 20 62 79 74 65 73 20 77 72 69 74 74 65 of bytes writte
02d0: 6e 20 74 6f 20 63 68 61 6e 6e 65 6c 2c 20 30 20 n to channel, 0
02e0: 66 6f 72 20 45 4f 46 2c 20 6f 72 0a 20 2a 09 2d for EOF, or. *.-
02f0: 31 20 66 6f 72 20 65 72 72 6f 72 2e 0a 20 2a 0a 1 for error.. *.
0300: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
0310: 0a 20 2a 09 57 72 69 74 65 73 20 42 49 4f 20 64 . *.Writes BIO d
0320: 61 74 61 20 74 6f 20 63 68 61 6e 6e 65 6c 2e 0a ata to channel..
0330: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0380: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 --. */..static i
0390: 6e 74 20 42 69 6f 57 72 69 74 65 28 42 49 4f 20 nt BioWrite(BIO
03a0: 2a 62 69 6f 2c 20 63 6f 6e 73 74 20 63 68 61 72 *bio, const char
03b0: 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 4c 65 *buf, int bufLe
03c0: 6e 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 n) {. Tcl_Cha
03d0: 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 54 nnel chan;. T
03e0: 63 6c 5f 53 69 7a 65 20 72 65 74 3b 0a 20 20 20 cl_Size ret;.
03f0: 20 69 6e 74 20 74 63 6c 45 6f 66 43 68 61 6e 2c int tclEofChan,
0400: 20 74 63 6c 45 72 72 6e 6f 3b 0a 0a 20 20 20 20 tclErrno;..
0410: 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 chan = Tls_GetPa
0420: 72 65 6e 74 28 28 53 74 61 74 65 20 2a 29 20 42 rent((State *) B
0430: 49 4f 5f 67 65 74 5f 64 61 74 61 28 62 69 6f 29 IO_get_data(bio)
0440: 2c 20 30 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e , 0);.. dprin
0450: 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69 tf("[chan=%p] Bi
0460: 6f 57 72 69 74 65 28 25 70 2c 20 3c 62 75 66 3e oWrite(%p, <buf>
0470: 2c 20 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 , %d)", (void *)
0480: 63 68 61 6e 2c 20 28 76 6f 69 64 20 2a 29 20 62 chan, (void *) b
0490: 69 6f 2c 20 62 75 66 4c 65 6e 29 3b 0a 0a 20 20 io, bufLen);..
04a0: 20 20 72 65 74 20 3d 20 54 63 6c 5f 57 72 69 74 ret = Tcl_Writ
04b0: 65 52 61 77 28 63 68 61 6e 2c 20 62 75 66 2c 20 eRaw(chan, buf,
04c0: 28 54 63 6c 5f 53 69 7a 65 29 20 62 75 66 4c 65 (Tcl_Size) bufLe
04d0: 6e 29 3b 0a 0a 20 20 20 20 74 63 6c 45 6f 66 43 n);.. tclEofC
04e0: 68 61 6e 20 3d 20 54 63 6c 5f 45 6f 66 28 63 68 han = Tcl_Eof(ch
04f0: 61 6e 29 3b 0a 20 20 20 20 74 63 6c 45 72 72 6e an);. tclErrn
0500: 6f 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f o = Tcl_GetErrno
0510: 28 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 ();.. dprintf
0520: 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69 6f 57 ("[chan=%p] BioW
0530: 72 69 74 65 28 25 64 29 20 2d 3e 20 25 22 20 54 rite(%d) -> %" T
0540: 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 CL_SIZE_MODIFIER
0550: 20 22 64 20 5b 74 63 6c 45 6f 66 3d 25 64 3b 20 "d [tclEof=%d;
0560: 74 63 6c 45 72 72 6e 6f 3d 25 64 5d 22 2c 0a 09 tclErrno=%d]",..
0570: 28 76 6f 69 64 20 2a 29 20 63 68 61 6e 2c 20 62 (void *) chan, b
0580: 75 66 4c 65 6e 2c 20 72 65 74 2c 20 74 63 6c 45 ufLen, ret, tclE
0590: 6f 66 43 68 61 6e 2c 20 74 63 6c 45 72 72 6e 6f ofChan, tclErrno
05a0: 29 3b 0a 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 );.. BIO_clea
05b0: 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f r_flags(bio, BIO
05c0: 5f 46 4c 41 47 53 5f 57 52 49 54 45 20 7c 20 42 _FLAGS_WRITE | B
05d0: 49 4f 5f 46 4c 41 47 53 5f 53 48 4f 55 4c 44 5f IO_FLAGS_SHOULD_
05e0: 52 45 54 52 59 29 3b 0a 0a 20 20 20 20 69 66 20 RETRY);.. if
05f0: 28 74 63 6c 45 6f 66 43 68 61 6e 20 26 26 20 72 (tclEofChan && r
0600: 65 74 20 3c 3d 20 30 29 20 7b 0a 09 64 70 72 69 et <= 0) {..dpri
0610: 6e 74 66 28 22 47 6f 74 20 45 4f 46 20 77 68 69 ntf("Got EOF whi
0620: 6c 65 20 72 65 61 64 69 6e 67 2c 20 72 65 74 75 le reading, retu
0630: 72 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 74 69 rning a Connecti
0640: 6f 6e 20 52 65 73 65 74 20 65 72 72 6f 72 20 77 on Reset error w
0650: 68 69 63 68 20 6d 61 70 73 20 74 6f 20 53 6f 66 hich maps to Sof
0660: 74 20 45 4f 46 22 29 3b 0a 09 54 63 6c 5f 53 65 t EOF");..Tcl_Se
0670: 74 45 72 72 6e 6f 28 45 43 4f 4e 4e 52 45 53 45 tErrno(ECONNRESE
0680: 54 29 3b 0a 09 72 65 74 20 3d 20 30 3b 0a 0a 20 T);..ret = 0;..
0690: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 } else if (re
06a0: 74 20 3d 3d 20 30 29 20 7b 0a 09 64 70 72 69 6e t == 0) {..dprin
06b0: 74 66 28 22 47 6f 74 20 30 20 66 72 6f 6d 20 54 tf("Got 0 from T
06c0: 63 6c 5f 57 72 69 74 65 52 61 77 2c 20 61 6e 64 cl_WriteRaw, and
06d0: 20 45 4f 46 20 69 73 20 6e 6f 74 20 73 65 74 3b EOF is not set;
06e0: 20 72 65 74 20 3d 20 30 22 29 3b 0a 09 64 70 72 ret = 0");..dpr
06f0: 69 6e 74 66 28 22 53 65 74 74 69 6e 67 20 72 65 intf("Setting re
0700: 74 72 79 20 72 65 61 64 20 66 6c 61 67 22 29 3b try read flag");
0710: 0a 09 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f ..BIO_set_retry_
0720: 72 65 61 64 28 62 69 6f 29 3b 0a 0a 20 20 20 20 read(bio);..
0730: 7d 20 65 6c 73 65 20 69 66 20 28 72 65 74 20 3c } else if (ret <
0740: 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 0) {..dprintf("
0750: 57 65 20 67 6f 74 20 73 6f 6d 65 20 6b 69 6e 64 We got some kind
0760: 20 6f 66 20 49 2f 4f 20 65 72 72 6f 72 22 29 3b of I/O error");
0770: 0a 0a 09 69 66 20 28 74 63 6c 45 72 72 6e 6f 20 ...if (tclErrno
0780: 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09 20 20 == EAGAIN) {..
0790: 20 20 64 70 72 69 6e 74 66 28 22 49 74 27 73 20 dprintf("It's
07a0: 45 41 47 41 49 4e 22 29 3b 0a 09 7d 20 65 6c 73 EAGAIN");..} els
07b0: 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 e {.. dprintf
07c0: 28 22 49 74 27 73 20 61 6e 20 75 6e 65 78 70 65 ("It's an unexpe
07d0: 63 74 65 64 20 65 72 72 6f 72 3a 20 25 73 2f 25 cted error: %s/%
07e0: 69 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 i", Tcl_ErrnoMsg
07f0: 28 74 63 6c 45 72 72 6e 6f 29 2c 20 74 63 6c 45 (tclErrno), tclE
0800: 72 72 6e 6f 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d rrno);..}.. }
0810: 20 65 6c 73 65 20 7b 0a 09 64 70 72 69 6e 74 66 else {..dprintf
0820: 28 22 53 75 63 63 65 73 73 66 75 6c 6c 79 20 77 ("Successfully w
0830: 72 6f 74 65 20 25 22 20 54 43 4c 5f 53 49 5a 45 rote %" TCL_SIZE
0840: 5f 4d 4f 44 49 46 49 45 52 20 22 64 20 62 79 74 _MODIFIER "d byt
0850: 65 73 20 6f 66 20 64 61 74 61 22 2c 20 72 65 74 es of data", ret
0860: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 );. }.. if
0870: 20 28 72 65 74 20 21 3d 20 2d 31 20 7c 7c 20 28 (ret != -1 || (
0880: 72 65 74 20 3d 3d 20 2d 31 20 26 26 20 74 63 6c ret == -1 && tcl
0890: 45 72 72 6e 6f 20 3d 3d 20 45 41 47 41 49 4e 29 Errno == EAGAIN)
08a0: 29 20 7b 0a 09 69 66 20 28 42 49 4f 5f 73 68 6f ) {..if (BIO_sho
08b0: 75 6c 64 5f 72 65 61 64 28 62 69 6f 29 29 20 7b uld_read(bio)) {
08c0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 .. dprintf("S
08d0: 65 74 74 69 6e 67 20 73 68 6f 75 6c 64 20 72 65 etting should re
08e0: 74 72 79 20 72 65 61 64 20 66 6c 61 67 22 29 3b try read flag");
08f0: 0a 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 ... BIO_set_r
0900: 65 74 72 79 5f 72 65 61 64 28 62 69 6f 29 3b 0a etry_read(bio);.
0910: 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 .}. }. ret
0920: 75 72 6e 20 28 69 6e 74 29 20 72 65 74 3b 0a 7d urn (int) ret;.}
0930: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
0940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0980: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 52 65 ----. *. * BioRe
0990: 61 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 ad --. *. *.This
09a0: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 function is use
09b0: 64 20 74 6f 20 72 65 61 64 20 65 6e 63 72 79 70 d to read encryp
09c0: 74 65 64 20 64 61 74 61 20 66 72 6f 6d 20 74 68 ted data from th
09d0: 65 20 73 6f 63 6b 65 74 0a 20 2a 09 61 6e 64 20 e socket. *.and
09e0: 77 72 69 74 65 20 69 74 20 69 6e 74 6f 20 74 68 write it into th
09f0: 65 20 42 49 4f 2e 20 54 68 69 73 20 66 75 6e 63 e BIO. This func
0a00: 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c tion will be cal
0a10: 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 led in response
0a20: 74 6f 0a 20 2a 09 74 68 65 20 61 70 70 6c 69 63 to. *.the applic
0a30: 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 42 49 ation calling BI
0a40: 4f 5f 72 65 61 64 5f 65 78 28 29 20 6f 72 20 42 O_read_ex() or B
0a50: 49 4f 5f 72 65 61 64 28 29 2e 0a 20 2a 0a 20 2a IO_read().. *. *
0a60: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 Results:. *.Ret
0a70: 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 urns the number
0a80: 6f 66 20 62 79 74 65 73 20 72 65 61 64 20 66 72 of bytes read fr
0a90: 6f 6d 20 63 68 61 6e 6e 65 6c 2c 20 30 20 66 6f om channel, 0 fo
0aa0: 72 20 45 4f 46 2c 20 6f 72 20 2d 31 20 66 6f 72 r EOF, or -1 for
0ab0: 0a 20 2a 09 65 72 72 6f 72 2e 0a 20 2a 0a 20 2a . *.error.. *. *
0ac0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
0ad0: 2a 09 52 65 61 64 73 20 63 68 61 6e 6e 65 6c 20 *.Reads channel
0ae0: 64 61 74 61 20 69 6e 74 6f 20 42 49 4f 2e 0a 20 data into BIO..
0af0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b40: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
0b50: 74 20 42 69 6f 52 65 61 64 28 42 49 4f 20 2a 62 t BioRead(BIO *b
0b60: 69 6f 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 69 io, char *buf, i
0b70: 6e 74 20 62 75 66 4c 65 6e 29 20 7b 0a 20 20 20 nt bufLen) {.
0b80: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 Tcl_Channel cha
0b90: 6e 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 n;. Tcl_Size
0ba0: 72 65 74 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 ret = 0;. int
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 3b 0a 0a 20 20 20 20 63 68 61 6e Errno;.. chan
0bd0: 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 = Tls_GetParent
0be0: 28 28 53 74 61 74 65 20 2a 29 20 42 49 4f 5f 67 ((State *) BIO_g
0bf0: 65 74 5f 64 61 74 61 28 62 69 6f 29 2c 20 30 29 et_data(bio), 0)
0c00: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
0c10: 5b 63 68 61 6e 3d 25 70 5d 20 42 69 6f 52 65 61 [chan=%p] BioRea
0c20: 64 28 25 70 2c 20 3c 62 75 66 3e 2c 20 25 64 29 d(%p, <buf>, %d)
0c30: 22 2c 20 28 76 6f 69 64 20 2a 29 20 63 68 61 6e ", (void *) chan
0c40: 2c 20 28 76 6f 69 64 20 2a 29 20 62 69 6f 2c 20 , (void *) bio,
0c50: 62 75 66 4c 65 6e 29 3b 0a 0a 20 20 20 20 69 66 bufLen);.. if
0c60: 20 28 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b (buf == NULL) {
0c70: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ..return 0;.
0c80: 7d 0a 0a 20 20 20 20 72 65 74 20 3d 20 54 63 6c }.. ret = Tcl
0c90: 5f 52 65 61 64 52 61 77 28 63 68 61 6e 2c 20 62 _ReadRaw(chan, b
0ca0: 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 62 uf, (Tcl_Size) b
0cb0: 75 66 4c 65 6e 29 3b 0a 0a 20 20 20 20 74 63 6c ufLen);.. tcl
0cc0: 45 6f 66 43 68 61 6e 20 3d 20 54 63 6c 5f 45 6f EofChan = Tcl_Eo
0cd0: 66 28 63 68 61 6e 29 3b 0a 20 20 20 20 74 63 6c f(chan);. tcl
0ce0: 45 72 72 6e 6f 20 3d 20 54 63 6c 5f 47 65 74 45 Errno = Tcl_GetE
0cf0: 72 72 6e 6f 28 29 3b 0a 0a 20 20 20 20 64 70 72 rrno();.. dpr
0d00: 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 intf("[chan=%p]
0d10: 42 69 6f 52 65 61 64 28 25 64 29 20 2d 3e 20 25 BioRead(%d) -> %
0d20: 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 " TCL_SIZE_MODIF
0d30: 49 45 52 20 22 64 20 5b 74 63 6c 45 6f 66 3d 25 IER "d [tclEof=%
0d40: 64 3b 20 74 63 6c 45 72 72 6e 6f 3d 25 64 5d 22 d; tclErrno=%d]"
0d50: 2c 0a 09 28 76 6f 69 64 20 2a 29 20 63 68 61 6e ,..(void *) chan
0d60: 2c 20 62 75 66 4c 65 6e 2c 20 72 65 74 2c 20 74 , bufLen, ret, t
0d70: 63 6c 45 6f 66 43 68 61 6e 2c 20 74 63 6c 45 72 clEofChan, tclEr
0d80: 72 6e 6f 29 3b 0a 0a 20 20 20 20 42 49 4f 5f 63 rno);.. BIO_c
0d90: 6c 65 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 lear_flags(bio,
0da0: 42 49 4f 5f 46 4c 41 47 53 5f 52 45 41 44 20 7c BIO_FLAGS_READ |
0db0: 20 42 49 4f 5f 46 4c 41 47 53 5f 53 48 4f 55 4c BIO_FLAGS_SHOUL
0dc0: 44 5f 52 45 54 52 59 29 3b 0a 0a 20 20 20 20 69 D_RETRY);.. i
0dd0: 66 20 28 74 63 6c 45 6f 66 43 68 61 6e 20 26 26 f (tclEofChan &&
0de0: 20 72 65 74 20 3c 3d 20 30 29 20 7b 0a 09 64 70 ret <= 0) {..dp
0df0: 72 69 6e 74 66 28 22 47 6f 74 20 45 4f 46 20 77 rintf("Got EOF w
0e00: 68 69 6c 65 20 72 65 61 64 69 6e 67 2c 20 72 65 hile reading, re
0e10: 74 75 72 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 turning a Connec
0e20: 74 69 6f 6e 20 52 65 73 65 74 20 65 72 72 6f 72 tion Reset error
0e30: 20 77 68 69 63 68 20 6d 61 70 73 20 74 6f 20 53 which maps to S
0e40: 6f 66 74 20 45 4f 46 22 29 3b 0a 09 54 63 6c 5f oft EOF");..Tcl_
0e50: 53 65 74 45 72 72 6e 6f 28 45 43 4f 4e 4e 52 45 SetErrno(ECONNRE
0e60: 53 45 54 29 3b 0a 09 72 65 74 20 3d 20 30 3b 0a SET);..ret = 0;.
0e70: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
0e80: 72 65 74 20 3d 3d 20 30 29 20 7b 0a 09 64 70 72 ret == 0) {..dpr
0e90: 69 6e 74 66 28 22 47 6f 74 20 30 20 66 72 6f 6d intf("Got 0 from
0ea0: 20 54 63 6c 5f 52 65 61 64 20 6f 72 20 54 63 6c Tcl_Read or Tcl
0eb0: 5f 52 65 61 64 52 61 77 2c 20 61 6e 64 20 45 4f _ReadRaw, and EO
0ec0: 46 20 69 73 20 6e 6f 74 20 73 65 74 3b 20 72 65 F is not set; re
0ed0: 74 20 3d 20 30 22 29 3b 0a 09 64 70 72 69 6e 74 t = 0");..dprint
0ee0: 66 28 22 53 65 74 74 69 6e 67 20 72 65 74 72 79 f("Setting retry
0ef0: 20 72 65 61 64 20 66 6c 61 67 22 29 3b 0a 09 42 read flag");..B
0f00: 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 61 IO_set_retry_rea
0f10: 64 28 62 69 6f 29 3b 0a 0a 20 20 20 20 7d 20 65 d(bio);.. } e
0f20: 6c 73 65 20 69 66 20 28 72 65 74 20 3c 20 30 29 lse if (ret < 0)
0f30: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 57 65 20 {..dprintf("We
0f40: 67 6f 74 20 73 6f 6d 65 20 6b 69 6e 64 20 6f 66 got some kind of
0f50: 20 49 2f 4f 20 65 72 72 6f 72 22 29 3b 0a 0a 09 I/O error");...
0f60: 69 66 20 28 74 63 6c 45 72 72 6e 6f 20 3d 3d 20 if (tclErrno ==
0f70: 45 41 47 41 49 4e 29 20 7b 0a 09 20 20 20 20 64 EAGAIN) {.. d
0f80: 70 72 69 6e 74 66 28 22 49 74 27 73 20 45 41 47 printf("It's EAG
0f90: 41 49 4e 22 29 3b 0a 09 7d 20 65 6c 73 65 20 7b AIN");..} else {
0fa0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 49 .. dprintf("I
0fb0: 74 27 73 20 61 6e 20 75 6e 65 78 70 65 63 74 65 t's an unexpecte
0fc0: 64 20 65 72 72 6f 72 3a 20 25 73 2f 25 69 22 2c d error: %s/%i",
0fd0: 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 Tcl_ErrnoMsg(tc
0fe0: 6c 45 72 72 6e 6f 29 2c 20 74 63 6c 45 72 72 6e lErrno), tclErrn
0ff0: 6f 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c o);..}.. } el
1000: 73 65 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 53 se {..dprintf("S
1010: 75 63 63 65 73 73 66 75 6c 6c 79 20 72 65 61 64 uccessfully read
1020: 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 %" TCL_SIZE_MOD
1030: 49 46 49 45 52 20 22 64 20 62 79 74 65 73 20 6f IFIER "d bytes o
1040: 66 20 64 61 74 61 22 2c 20 72 65 74 29 3b 0a 20 f data", ret);.
1050: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 65 }.. if (re
1060: 74 20 21 3d 20 2d 31 20 7c 7c 20 28 72 65 74 20 t != -1 || (ret
1070: 3d 3d 20 2d 31 20 26 26 20 74 63 6c 45 72 72 6e == -1 && tclErrn
1080: 6f 20 3d 3d 20 45 41 47 41 49 4e 29 29 20 7b 0a o == EAGAIN)) {.
1090: 09 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f .if (BIO_should_
10a0: 77 72 69 74 65 28 62 69 6f 29 29 20 7b 0a 09 20 write(bio)) {..
10b0: 20 20 20 64 70 72 69 6e 74 66 28 22 53 65 74 74 dprintf("Sett
10c0: 69 6e 67 20 73 68 6f 75 6c 64 20 72 65 74 72 79 ing should retry
10d0: 20 77 72 69 74 65 20 66 6c 61 67 22 29 3b 0a 0a write flag");..
10e0: 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 . BIO_set_ret
10f0: 72 79 5f 77 72 69 74 65 28 62 69 6f 29 3b 0a 09 ry_write(bio);..
1100: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 }. }.. dpr
1110: 69 6e 74 66 28 22 42 69 6f 52 65 61 64 28 25 70 intf("BioRead(%p
1120: 2c 20 3c 62 75 66 3e 2c 20 25 64 29 20 5b 25 70 , <buf>, %d) [%p
1130: 5d 20 72 65 74 75 72 6e 69 6e 67 20 25 22 20 54 ] returning %" T
1140: 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 CL_SIZE_MODIFIER
1150: 20 22 64 22 2c 20 28 76 6f 69 64 20 2a 29 20 62 "d", (void *) b
1160: 69 6f 2c 0a 09 62 75 66 4c 65 6e 2c 20 28 76 6f io,..bufLen, (vo
1170: 69 64 20 2a 29 20 63 68 61 6e 2c 20 72 65 74 29 id *) chan, ret)
1180: 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 28 69 ;.. return (i
1190: 6e 74 29 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a 20 nt) ret;.}../*.
11a0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
11b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
11f0: 2a 0a 20 2a 20 42 69 6f 50 75 74 73 20 2d 2d 0a *. * BioPuts --.
1200: 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 *. *.This funct
1210: 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 72 ion is used to r
1220: 65 61 64 20 61 20 4e 55 4c 4c 20 74 65 72 6d 69 ead a NULL termi
1230: 6e 61 74 65 64 20 73 74 72 69 6e 67 20 66 72 6f nated string fro
1240: 6d 20 74 68 65 20 42 49 4f 20 61 6e 64 0a 20 2a m the BIO and. *
1250: 09 77 72 69 74 65 20 69 74 20 74 6f 20 74 68 65 .write it to the
1260: 20 63 68 61 6e 6e 65 6c 2e 20 54 68 69 73 20 66 channel. This f
1270: 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 unction will be
1280: 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e called in respon
1290: 73 65 20 74 6f 0a 20 2a 09 74 68 65 20 61 70 70 se to. *.the app
12a0: 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 lication calling
12b0: 20 42 49 4f 5f 70 75 74 73 28 29 2e 0a 20 2a 0a BIO_puts().. *.
12c0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 * Results:. *.R
12d0: 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 eturns the numbe
12e0: 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 74 74 r of bytes writt
12f0: 65 6e 20 74 6f 20 63 68 61 6e 6e 65 6c 20 6f 72 en to channel or
1300: 20 30 20 66 6f 72 20 65 72 72 6f 72 2e 0a 20 2a 0 for error.. *
1310: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
1320: 3a 0a 20 2a 09 57 72 69 74 65 73 20 64 61 74 61 :. *.Writes data
1330: 20 74 6f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a to channel.. *.
1340: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1390: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 */..static int
13a0: 42 69 6f 50 75 74 73 28 42 49 4f 20 2a 62 69 6f BioPuts(BIO *bio
13b0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 74 , const char *st
13c0: 72 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 r) {. dprintf
13d0: 28 22 42 69 6f 50 75 74 73 28 25 70 2c 20 3c 73 ("BioPuts(%p, <s
13e0: 74 72 69 6e 67 3a 25 70 3e 29 20 63 61 6c 6c 65 tring:%p>) calle
13f0: 64 22 2c 20 62 69 6f 2c 20 73 74 72 29 3b 0a 0a d", bio, str);..
1400: 20 20 20 20 72 65 74 75 72 6e 20 42 69 6f 57 72 return BioWr
1410: 69 74 65 28 62 69 6f 2c 20 73 74 72 2c 20 28 69 ite(bio, str, (i
1420: 6e 74 29 20 73 74 72 6c 65 6e 28 73 74 72 29 29 nt) strlen(str))
1430: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
1440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1480: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 -------. *. * Bi
1490: 6f 43 74 72 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 oCtrl --. *. *.T
14a0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
14b0: 75 73 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 used to process
14c0: 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 73 control messages
14d0: 20 69 6e 20 74 68 65 20 42 49 4f 2e 20 54 68 69 in the BIO. Thi
14e0: 73 0a 20 2a 09 66 75 6e 63 74 69 6f 6e 20 77 69 s. *.function wi
14f0: 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 ll be called in
1500: 72 65 73 70 6f 6e 73 65 20 74 6f 20 74 68 65 20 response to the
1510: 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c application call
1520: 69 6e 67 20 42 49 4f 5f 63 74 72 6c 28 29 2e 0a ing BIO_ctrl()..
1530: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
1540: 2a 09 46 75 6e 63 74 69 6f 6e 20 64 65 70 65 6e *.Function depen
1550: 64 65 6e 74 0a 20 2a 0a 20 2a 20 53 69 64 65 20 dent. *. * Side
1560: 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 75 6e 63 effects:. *.Func
1570: 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 0a 20 tion dependent.
1580: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
1590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15d0: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 6c 6f -. */..static lo
15e0: 6e 67 20 42 69 6f 43 74 72 6c 28 42 49 4f 20 2a ng BioCtrl(BIO *
15f0: 62 69 6f 2c 20 69 6e 74 20 63 6d 64 2c 20 6c 6f bio, int cmd, lo
1600: 6e 67 20 6e 75 6d 2c 20 76 6f 69 64 20 2a 70 74 ng num, void *pt
1610: 72 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 r) {. Tcl_Cha
1620: 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 6c nnel chan;. l
1630: 6f 6e 67 20 72 65 74 20 3d 20 31 3b 0a 0a 20 20 ong ret = 1;..
1640: 20 20 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 chan = Tls_Get
1650: 50 61 72 65 6e 74 28 28 53 74 61 74 65 20 2a 29 Parent((State *)
1660: 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 28 62 69 BIO_get_data(bi
1670: 6f 29 2c 20 30 29 3b 0a 0a 20 20 20 20 64 70 72 o), 0);.. dpr
1680: 69 6e 74 66 28 22 42 69 6f 43 74 72 6c 28 25 70 intf("BioCtrl(%p
1690: 2c 20 30 78 25 78 2c 20 30 78 25 6c 78 2c 20 25 , 0x%x, 0x%lx, %
16a0: 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 62 69 p)", (void *) bi
16b0: 6f 2c 20 63 6d 64 2c 20 6e 75 6d 2c 20 70 74 72 o, cmd, num, ptr
16c0: 29 3b 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 );.. switch (
16d0: 63 6d 64 29 20 7b 0a 09 63 61 73 65 20 42 49 4f cmd) {..case BIO
16e0: 5f 43 54 52 4c 5f 52 45 53 45 54 3a 0a 09 09 64 _CTRL_RESET:...d
16f0: 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f printf("Got BIO_
1700: 43 54 52 4c 5f 52 45 53 45 54 22 29 3b 0a 09 09 CTRL_RESET");...
1710: 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b ret = 0;...break
1720: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f 46 49 ;..case BIO_C_FI
1730: 4c 45 5f 53 45 45 4b 3a 0a 09 09 64 70 72 69 6e LE_SEEK:...dprin
1740: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 tf("Got BIO_C_FI
1750: 4c 45 5f 53 45 45 4b 22 29 3b 0a 09 09 72 65 74 LE_SEEK");...ret
1760: 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 = 0;...break;..
1770: 63 61 73 65 20 42 49 4f 5f 43 5f 46 49 4c 45 5f case BIO_C_FILE_
1780: 54 45 4c 4c 3a 0a 09 09 64 70 72 69 6e 74 66 28 TELL:...dprintf(
1790: 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f "Got BIO_C_FILE_
17a0: 54 45 4c 4c 22 29 3b 0a 09 09 72 65 74 20 3d 20 TELL");...ret =
17b0: 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 0;...break;..cas
17c0: 65 20 42 49 4f 5f 43 54 52 4c 5f 49 4e 46 4f 3a e BIO_CTRL_INFO:
17d0: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
17e0: 42 49 4f 5f 43 54 52 4c 5f 49 4e 46 4f 22 29 3b BIO_CTRL_INFO");
17f0: 0a 09 09 72 65 74 20 3d 20 31 3b 0a 09 09 62 72 ...ret = 1;...br
1800: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
1810: 5f 53 45 54 5f 46 44 3a 0a 09 09 64 70 72 69 6e _SET_FD:...dprin
1820: 74 66 28 22 55 6e 73 75 70 70 6f 72 74 65 64 20 tf("Unsupported
1830: 63 61 6c 6c 3a 20 42 49 4f 5f 43 5f 53 45 54 5f call: BIO_C_SET_
1840: 46 44 22 29 3b 0a 09 09 72 65 74 20 3d 20 2d 31 FD");...ret = -1
1850: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 ;...break;..case
1860: 20 42 49 4f 5f 43 5f 47 45 54 5f 46 44 3a 0a 09 BIO_C_GET_FD:..
1870: 09 64 70 72 69 6e 74 66 28 22 55 6e 73 75 70 70 .dprintf("Unsupp
1880: 6f 72 74 65 64 20 63 61 6c 6c 3a 20 42 49 4f 5f orted call: BIO_
1890: 43 5f 47 45 54 5f 46 44 22 29 3b 0a 09 09 72 65 C_GET_FD");...re
18a0: 74 20 3d 20 2d 31 3b 0a 09 09 62 72 65 61 6b 3b t = -1;...break;
18b0: 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f ..case BIO_CTRL_
18c0: 47 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 64 70 72 GET_CLOSE:...dpr
18d0: 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 intf("Got BIO_CT
18e0: 52 4c 5f 43 4c 4f 53 45 22 29 3b 0a 09 09 72 65 RL_CLOSE");...re
18f0: 74 20 3d 20 42 49 4f 5f 67 65 74 5f 73 68 75 74 t = BIO_get_shut
1900: 64 6f 77 6e 28 62 69 6f 29 3b 0a 09 09 62 72 65 down(bio);...bre
1910: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 ak;..case BIO_CT
1920: 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 RL_SET_CLOSE:...
1930: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f dprintf("Got BIO
1940: 5f 53 45 54 5f 43 4c 4f 53 45 22 29 3b 0a 09 09 _SET_CLOSE");...
1950: 42 49 4f 5f 73 65 74 5f 73 68 75 74 64 6f 77 6e BIO_set_shutdown
1960: 28 62 69 6f 2c 20 6e 75 6d 29 3b 0a 09 09 62 72 (bio, num);...br
1970: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
1980: 54 52 4c 5f 45 4f 46 3a 0a 09 09 64 70 72 69 6e TRL_EOF:...dprin
1990: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
19a0: 5f 45 4f 46 22 29 3b 0a 09 09 72 65 74 20 3d 20 _EOF");...ret =
19b0: 28 28 63 68 61 6e 29 20 3f 20 54 63 6c 5f 45 6f ((chan) ? Tcl_Eo
19c0: 66 28 63 68 61 6e 29 20 3a 20 31 29 3b 0a 09 09 f(chan) : 1);...
19d0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
19e0: 5f 43 54 52 4c 5f 50 45 4e 44 49 4e 47 3a 0a 09 _CTRL_PENDING:..
19f0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 .dprintf("Got BI
1a00: 4f 5f 43 54 52 4c 5f 50 45 4e 44 49 4e 47 22 29 O_CTRL_PENDING")
1a10: 3b 0a 09 09 72 65 74 20 3d 20 28 28 63 68 61 6e ;...ret = ((chan
1a20: 29 20 3f 20 28 28 54 63 6c 5f 49 6e 70 75 74 42 ) ? ((Tcl_InputB
1a30: 75 66 66 65 72 65 64 28 63 68 61 6e 29 20 3f 20 uffered(chan) ?
1a40: 31 20 3a 20 30 29 29 20 3a 20 30 29 3b 0a 09 09 1 : 0)) : 0);...
1a50: 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 43 54 52 dprintf("BIO_CTR
1a60: 4c 5f 50 45 4e 44 49 4e 47 28 25 64 29 22 2c 20 L_PENDING(%d)",
1a70: 28 69 6e 74 29 20 72 65 74 29 3b 0a 09 09 62 72 (int) ret);...br
1a80: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
1a90: 54 52 4c 5f 57 50 45 4e 44 49 4e 47 3a 0a 09 09 TRL_WPENDING:...
1aa0: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f dprintf("Got BIO
1ab0: 5f 43 54 52 4c 5f 57 50 45 4e 44 49 4e 47 22 29 _CTRL_WPENDING")
1ac0: 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 ;...ret = 0;...b
1ad0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f reak;..case BIO_
1ae0: 43 54 52 4c 5f 44 55 50 3a 0a 09 09 64 70 72 69 CTRL_DUP:...dpri
1af0: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
1b00: 4c 5f 44 55 50 22 29 3b 0a 09 09 62 72 65 61 6b L_DUP");...break
1b10: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c ;..case BIO_CTRL
1b20: 5f 46 4c 55 53 48 3a 0a 09 09 64 70 72 69 6e 74 _FLUSH:...dprint
1b30: 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f f("Got BIO_CTRL_
1b40: 46 4c 55 53 48 22 29 3b 0a 09 09 72 65 74 20 3d FLUSH");...ret =
1b50: 20 28 28 63 68 61 6e 29 20 26 26 20 28 54 63 6c ((chan) && (Tcl
1b60: 5f 57 72 69 74 65 52 61 77 28 63 68 61 6e 2c 20 _WriteRaw(chan,
1b70: 22 22 2c 20 30 29 20 3e 3d 20 30 29 20 3f 20 31 "", 0) >= 0) ? 1
1b80: 20 3a 20 2d 31 29 3b 0a 09 09 64 70 72 69 6e 74 : -1);...dprint
1b90: 66 28 22 42 49 4f 5f 43 54 52 4c 5f 46 4c 55 53 f("BIO_CTRL_FLUS
1ba0: 48 20 72 65 74 75 72 6e 69 6e 67 20 76 61 6c 75 H returning valu
1bb0: 65 20 25 6c 69 22 2c 20 72 65 74 29 3b 0a 09 09 e %li", ret);...
1bc0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
1bd0: 5f 43 54 52 4c 5f 50 55 53 48 3a 0a 09 09 64 70 _CTRL_PUSH:...dp
1be0: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
1bf0: 54 52 4c 5f 50 55 53 48 22 29 3b 0a 09 09 72 65 TRL_PUSH");...re
1c00: 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a t = 0;...break;.
1c10: 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 50 .case BIO_CTRL_P
1c20: 4f 50 3a 0a 09 09 64 70 72 69 6e 74 66 28 22 47 OP:...dprintf("G
1c30: 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 50 4f 50 22 ot BIO_CTRL_POP"
1c40: 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 );...ret = 0;...
1c50: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
1c60: 5f 43 54 52 4c 5f 53 45 54 3a 0a 09 09 64 70 72 _CTRL_SET:...dpr
1c70: 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 intf("Got BIO_CT
1c80: 52 4c 5f 53 45 54 22 29 3b 0a 09 09 72 65 74 20 RL_SET");...ret
1c90: 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 = 0;...break;..c
1ca0: 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 ase BIO_CTRL_GET
1cb0: 20 3a 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f :...dprintf("Go
1cc0: 74 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 20 22 t BIO_CTRL_GET "
1cd0: 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 );...ret = 0;...
1ce0: 62 72 65 61 6b 3b 0a 23 69 66 64 65 66 20 42 49 break;.#ifdef BI
1cf0: 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f O_CTRL_GET_KTLS_
1d00: 53 45 4e 44 0a 09 63 61 73 65 20 42 49 4f 5f 43 SEND..case BIO_C
1d10: 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 53 45 4e TRL_GET_KTLS_SEN
1d20: 44 3a 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f D:...dprintf("Go
1d30: 74 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b t BIO_CTRL_GET_K
1d40: 54 4c 53 5f 53 45 4e 44 22 29 3b 0a 09 09 72 65 TLS_SEND");...re
1d50: 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a t = 0;...break;.
1d60: 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 42 49 #endif.#ifdef BI
1d70: 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f O_CTRL_GET_KTLS_
1d80: 52 45 43 56 0a 09 63 61 73 65 20 42 49 4f 5f 43 RECV..case BIO_C
1d90: 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 52 45 43 TRL_GET_KTLS_REC
1da0: 56 3a 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f V:...dprintf("Go
1db0: 74 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b t BIO_CTRL_GET_K
1dc0: 54 4c 53 5f 52 45 43 56 22 29 3b 0a 09 09 72 65 TLS_RECV");...re
1dd0: 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a t = 0;...break;.
1de0: 23 65 6e 64 69 66 0a 09 64 65 66 61 75 6c 74 3a #endif..default:
1df0: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
1e00: 75 6e 6b 6e 6f 77 6e 20 63 6f 6e 74 72 6f 6c 20 unknown control
1e10: 63 6f 6d 6d 61 6e 64 20 28 25 69 29 22 2c 20 63 command (%i)", c
1e20: 6d 64 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a md);...ret = 0;.
1e30: 09 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 ..break;. }.
1e40: 20 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0a 7d return ret;.}
1e50: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ea0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 4e 65 ----. *. * BioNe
1eb0: 77 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 w --. *. *.This
1ec0: 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
1ed0: 20 74 6f 20 63 72 65 61 74 65 20 61 20 6e 65 77 to create a new
1ee0: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 instance of the
1ef0: 20 42 49 4f 2e 20 54 68 69 73 0a 20 2a 09 66 75 BIO. This. *.fu
1f00: 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 nction will be c
1f10: 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 alled in respons
1f20: 65 20 74 6f 20 74 68 65 20 61 70 70 6c 69 63 61 e to the applica
1f30: 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 42 49 4f tion calling BIO
1f40: 5f 6e 65 77 28 29 2e 0a 20 2a 0a 20 2a 20 52 65 _new().. *. * Re
1f50: 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e sults:. *.Return
1f60: 73 20 62 6f 6f 6c 65 61 6e 20 73 75 63 63 65 73 s boolean succes
1f70: 73 20 72 65 73 75 6c 74 20 28 31 3d 73 75 63 63 s result (1=succ
1f80: 65 73 73 2c 20 30 3d 66 61 69 6c 75 72 65 29 0a ess, 0=failure).
1f90: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1fa0: 74 73 3a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a ts:. *.Initializ
1fb0: 65 73 20 42 49 4f 20 73 74 72 75 63 74 75 72 65 es BIO structure
1fc0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
1fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2010: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
2020: 20 69 6e 74 20 42 69 6f 4e 65 77 28 42 49 4f 20 int BioNew(BIO
2030: 2a 62 69 6f 29 20 7b 0a 20 20 20 20 64 70 72 69 *bio) {. dpri
2040: 6e 74 66 28 22 42 69 6f 4e 65 77 28 25 70 29 20 ntf("BioNew(%p)
2050: 63 61 6c 6c 65 64 22 2c 20 62 69 6f 29 3b 0a 0a called", bio);..
2060: 20 20 20 20 42 49 4f 5f 73 65 74 5f 69 6e 69 74 BIO_set_init
2070: 28 62 69 6f 2c 20 30 29 3b 0a 20 20 20 20 42 49 (bio, 0);. BI
2080: 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 6f 2c 20 O_set_data(bio,
2090: 4e 55 4c 4c 29 3b 0a 20 20 20 20 42 49 4f 5f 63 NULL);. BIO_c
20a0: 6c 65 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 lear_flags(bio,
20b0: 2d 31 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 -1);. return
20c0: 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 1;.}../*. *-----
20d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2110: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 --------. *. * B
2120: 69 6f 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 ioFree --. *. *.
2130: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
2140: 20 75 73 65 64 20 74 6f 20 64 65 73 74 72 6f 79 used to destroy
2150: 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 an instance of
2160: 61 20 42 49 4f 2e 20 54 68 69 73 20 66 75 6e 63 a BIO. This func
2170: 74 69 6f 6e 0a 20 2a 09 77 69 6c 6c 20 62 65 20 tion. *.will be
2180: 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e called in respon
2190: 73 65 20 74 6f 20 74 68 65 20 61 70 70 6c 69 63 se to the applic
21a0: 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 42 49 ation calling BI
21b0: 4f 5f 66 72 65 65 28 29 2e 0a 20 2a 0a 20 2a 20 O_free().. *. *
21c0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 Results:. *.Retu
21d0: 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 73 75 63 63 rns boolean succ
21e0: 65 73 73 20 72 65 73 75 6c 74 0a 20 2a 0a 20 2a ess result. *. *
21f0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
2200: 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 42 49 *.Initializes BI
2210: 4f 20 73 74 72 75 63 74 75 72 65 2e 0a 20 2a 0a O structure.. *.
2220: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2270: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 */..static int
2280: 42 69 6f 46 72 65 65 28 42 49 4f 20 2a 62 69 6f BioFree(BIO *bio
2290: 29 20 7b 0a 20 20 20 20 69 66 20 28 62 69 6f 20 ) {. if (bio
22a0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
22b0: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 rn 0;. }..
22c0: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 46 72 65 dprintf("BioFre
22d0: 65 28 25 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 e(%p) called", b
22e0: 69 6f 29 3b 0a 0a 20 20 20 20 69 66 20 28 42 49 io);.. if (BI
22f0: 4f 5f 67 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 O_get_shutdown(b
2300: 69 6f 29 29 20 7b 0a 09 69 66 20 28 42 49 4f 5f io)) {..if (BIO_
2310: 67 65 74 5f 69 6e 69 74 28 62 69 6f 29 29 20 7b get_init(bio)) {
2320: 0a 09 20 20 20 20 2f 2a 73 68 75 74 64 6f 77 6e .. /*shutdown
2330: 28 62 69 6f 2d 3e 6e 75 6d 2c 20 32 29 20 2a 2f (bio->num, 2) */
2340: 0a 09 20 20 20 20 2f 2a 63 6c 6f 73 65 73 6f 63 .. /*closesoc
2350: 6b 65 74 28 62 69 6f 2d 3e 6e 75 6d 29 20 2a 2f ket(bio->num) */
2360: 0a 09 7d 0a 0a 09 42 49 4f 5f 73 65 74 5f 69 6e ..}...BIO_set_in
2370: 69 74 28 62 69 6f 2c 20 30 29 3b 0a 09 42 49 4f it(bio, 0);..BIO
2380: 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 62 69 6f _clear_flags(bio
2390: 2c 20 2d 31 29 3b 0a 20 20 20 20 7d 0a 20 20 20 , -1);. }.
23a0: 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a return 1;.}../*
23b0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
23c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2400: 0a 20 2a 0a 20 2a 20 42 49 4f 5f 6e 65 77 5f 74 . *. * BIO_new_t
2410: 63 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 cl --. *. *.This
2420: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 function is use
2430: 64 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 d to initialize
2440: 74 68 65 20 42 49 4f 20 6d 65 74 68 6f 64 20 68 the BIO method h
2450: 61 6e 64 6c 65 72 73 2e 0a 20 2a 0a 20 2a 20 52 andlers.. *. * R
2460: 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 esults:. *.Retur
2470: 6e 73 20 70 6f 69 6e 74 65 72 20 74 6f 20 42 49 ns pointer to BI
2480: 4f 20 6f 72 20 4e 55 4c 4c 20 66 6f 72 20 66 61 O or NULL for fa
2490: 69 6c 75 72 65 0a 20 2a 0a 20 2a 20 53 69 64 65 ilure. *. * Side
24a0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 49 6e 69 effects:. *.Ini
24b0: 74 69 61 6c 69 7a 65 73 20 42 49 4f 20 4d 65 74 tializes BIO Met
24c0: 68 6f 64 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d hods.. *. *-----
24d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2510: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 42 49 --------. */..BI
2520: 4f 20 2a 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 53 O *BIO_new_tcl(S
2530: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
2540: 69 6e 74 20 66 6c 61 67 73 29 20 7b 0a 20 20 20 int flags) {.
2550: 20 42 49 4f 20 2a 62 69 6f 3b 0a 23 69 66 64 65 BIO *bio;.#ifde
2560: 66 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 55 53 45 f TCLTLS_SSL_USE
2570: 5f 46 41 53 54 50 41 54 48 0a 20 20 20 20 54 63 _FASTPATH. Tc
2580: 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 l_Channel parent
2590: 43 68 61 6e 6e 65 6c 3b 0a 20 20 20 20 63 6f 6e Channel;. con
25a0: 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 st Tcl_ChannelTy
25b0: 70 65 20 2a 70 61 72 65 6e 74 43 68 61 6e 6e 65 pe *parentChanne
25c0: 6c 54 79 70 65 3b 0a 20 20 20 20 76 6f 69 64 20 lType;. void
25d0: 2a 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 *parentChannelFd
25e0: 49 6e 5f 70 2c 20 2a 70 61 72 65 6e 74 43 68 61 In_p, *parentCha
25f0: 6e 6e 65 6c 46 64 4f 75 74 5f 70 3b 0a 20 20 20 nnelFdOut_p;.
2600: 20 69 6e 74 20 70 61 72 65 6e 74 43 68 61 6e 6e int parentChann
2610: 65 6c 46 64 49 6e 2c 20 70 61 72 65 6e 74 43 68 elFdIn, parentCh
2620: 61 6e 6e 65 6c 46 64 4f 75 74 2c 20 70 61 72 65 annelFdOut, pare
2630: 6e 74 43 68 61 6e 6e 65 6c 46 64 3b 0a 20 20 20 ntChannelFd;.
2640: 20 69 6e 74 20 76 61 6c 69 64 50 61 72 65 6e 74 int validParent
2650: 43 68 61 6e 6e 65 6c 46 64 3b 0a 20 20 20 20 69 ChannelFd;. i
2660: 6e 74 20 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c nt tclGetChannel
2670: 48 61 6e 64 6c 65 52 65 74 3b 0a 23 65 6e 64 69 HandleRet;.#endi
2680: 66 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 f.. dprintf("
2690: 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 29 20 63 61 BIO_new_tcl() ca
26a0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
26b0: 28 42 69 6f 4d 65 74 68 6f 64 73 20 3d 3d 20 4e (BioMethods == N
26c0: 55 4c 4c 29 20 7b 0a 09 42 69 6f 4d 65 74 68 6f ULL) {..BioMetho
26d0: 64 73 20 3d 20 42 49 4f 5f 6d 65 74 68 5f 6e 65 ds = BIO_meth_ne
26e0: 77 28 42 49 4f 5f 54 59 50 45 5f 54 43 4c 2c 20 w(BIO_TYPE_TCL,
26f0: 22 74 63 6c 22 29 3b 0a 09 42 49 4f 5f 6d 65 74 "tcl");..BIO_met
2700: 68 5f 73 65 74 5f 77 72 69 74 65 28 42 69 6f 4d h_set_write(BioM
2710: 65 74 68 6f 64 73 2c 20 42 69 6f 57 72 69 74 65 ethods, BioWrite
2720: 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 );..BIO_meth_set
2730: 5f 72 65 61 64 28 42 69 6f 4d 65 74 68 6f 64 73 _read(BioMethods
2740: 2c 20 42 69 6f 52 65 61 64 29 3b 0a 09 42 49 4f , BioRead);..BIO
2750: 5f 6d 65 74 68 5f 73 65 74 5f 70 75 74 73 28 42 _meth_set_puts(B
2760: 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 50 75 ioMethods, BioPu
2770: 74 73 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 ts);..BIO_meth_s
2780: 65 74 5f 63 74 72 6c 28 42 69 6f 4d 65 74 68 6f et_ctrl(BioMetho
2790: 64 73 2c 20 42 69 6f 43 74 72 6c 29 3b 0a 09 42 ds, BioCtrl);..B
27a0: 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 72 65 61 IO_meth_set_crea
27b0: 74 65 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 te(BioMethods, B
27c0: 69 6f 4e 65 77 29 3b 0a 09 42 49 4f 5f 6d 65 74 ioNew);..BIO_met
27d0: 68 5f 73 65 74 5f 64 65 73 74 72 6f 79 28 42 69 h_set_destroy(Bi
27e0: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 46 72 65 oMethods, BioFre
27f0: 65 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 e);. }.. i
2800: 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 4e f (statePtr == N
2810: 55 4c 4c 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 ULL) {..dprintf(
2820: 22 41 73 6b 65 64 20 74 6f 20 73 65 74 75 70 20 "Asked to setup
2830: 61 20 4e 55 4c 4c 20 73 74 61 74 65 2c 20 6a 75 a NULL state, ju
2840: 73 74 20 63 72 65 61 74 69 6e 67 20 74 68 65 20 st creating the
2850: 69 6e 69 74 69 61 6c 20 63 6f 6e 66 69 67 75 72 initial configur
2860: 61 74 69 6f 6e 22 29 3b 0a 0a 09 72 65 74 75 72 ation");...retur
2870: 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 23 n NULL;. }..#
2880: 69 66 64 65 66 20 54 43 4c 54 4c 53 5f 53 53 4c ifdef TCLTLS_SSL
2890: 5f 55 53 45 5f 46 41 53 54 50 41 54 48 0a 20 20 _USE_FASTPATH.
28a0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 49 66 20 74 /*. * If t
28b0: 68 65 20 63 68 61 6e 6e 65 6c 20 63 61 6e 20 62 he channel can b
28c0: 65 20 6d 61 70 70 65 64 20 62 61 63 6b 20 74 6f e mapped back to
28d0: 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 a file descript
28e0: 6f 72 2c 20 6a 75 73 74 20 75 73 65 20 74 68 65 or, just use the
28f0: 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 file descriptor
2900: 0a 20 20 20 20 20 2a 20 77 69 74 68 20 74 68 65 . * with the
2910: 20 53 53 4c 20 6c 69 62 72 61 72 79 20 73 69 6e SSL library sin
2920: 63 65 20 69 74 20 77 69 6c 6c 20 6c 69 6b 65 6c ce it will likel
2930: 79 20 62 65 20 6f 70 74 69 6d 69 7a 65 64 20 66 y be optimized f
2940: 6f 72 20 74 68 69 73 2e 0a 20 20 20 20 20 2a 2f or this.. */
2950: 0a 20 20 20 20 70 61 72 65 6e 74 43 68 61 6e 6e . parentChann
2960: 65 6c 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 el = Tls_GetPare
2970: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 30 29 3b nt(statePtr, 0);
2980: 0a 20 20 20 20 70 61 72 65 6e 74 43 68 61 6e 6e . parentChann
2990: 65 6c 54 79 70 65 20 3d 20 54 63 6c 5f 47 65 74 elType = Tcl_Get
29a0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 ChannelType(pare
29b0: 6e 74 43 68 61 6e 6e 65 6c 29 3b 0a 0a 20 20 20 ntChannel);..
29c0: 20 76 61 6c 69 64 50 61 72 65 6e 74 43 68 61 6e validParentChan
29d0: 6e 65 6c 46 64 20 3d 20 30 3b 0a 20 20 20 20 69 nelFd = 0;. i
29e0: 66 20 28 73 74 72 63 6d 70 28 70 61 72 65 6e 74 f (strcmp(parent
29f0: 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 74 79 70 ChannelType->typ
2a00: 65 4e 61 6d 65 2c 20 22 74 63 70 22 29 20 3d 3d eName, "tcp") ==
2a10: 20 30 29 20 7b 0a 09 74 63 6c 47 65 74 43 68 61 0) {..tclGetCha
2a20: 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 20 nnelHandleRet =
2a30: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 Tcl_GetChannelHa
2a40: 6e 64 6c 65 28 70 61 72 65 6e 74 43 68 61 6e 6e ndle(parentChann
2a50: 65 6c 2c 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 el, TCL_READABLE
2a60: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 26 , (ClientData) &
2a70: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 parentChannelFdI
2a80: 6e 5f 70 29 3b 0a 09 69 66 20 28 74 63 6c 47 65 n_p);..if (tclGe
2a90: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 tChannelHandleRe
2aa0: 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 t == TCL_OK) {..
2ab0: 20 20 20 20 74 63 6c 47 65 74 43 68 61 6e 6e 65 tclGetChanne
2ac0: 6c 48 61 6e 64 6c 65 52 65 74 20 3d 20 54 63 6c lHandleRet = Tcl
2ad0: 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c _GetChannelHandl
2ae0: 65 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 2c e(parentChannel,
2af0: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 2c 20 28 TCL_WRITABLE, (
2b00: 43 6c 69 65 6e 74 44 61 74 61 29 20 26 70 61 72 ClientData) &par
2b10: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f entChannelFdOut_
2b20: 70 29 3b 0a 09 20 20 20 20 69 66 20 28 74 63 6c p);.. if (tcl
2b30: 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 GetChannelHandle
2b40: 52 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b Ret == TCL_OK) {
2b50: 0a 09 09 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c ...parentChannel
2b60: 46 64 49 6e 20 3d 20 50 54 52 32 49 4e 54 28 70 FdIn = PTR2INT(p
2b70: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e arentChannelFdIn
2b80: 5f 70 29 3b 0a 09 09 70 61 72 65 6e 74 43 68 61 _p);...parentCha
2b90: 6e 6e 65 6c 46 64 4f 75 74 20 3d 20 50 54 52 32 nnelFdOut = PTR2
2ba0: 49 4e 54 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 INT(parentChanne
2bb0: 6c 46 64 4f 75 74 5f 70 29 3b 0a 09 09 69 66 20 lFdOut_p);...if
2bc0: 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 (parentChannelFd
2bd0: 49 6e 20 3d 3d 20 70 61 72 65 6e 74 43 68 61 6e In == parentChan
2be0: 6e 65 6c 46 64 4f 75 74 29 20 7b 0a 09 09 20 20 nelFdOut) {...
2bf0: 20 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 parentChannelF
2c00: 64 20 3d 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 d = parentChanne
2c10: 6c 46 64 49 6e 3b 0a 09 09 20 20 20 20 76 61 6c lFdIn;... val
2c20: 69 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 idParentChannelF
2c30: 64 20 3d 20 31 3b 0a 09 09 7d 0a 09 20 20 20 20 d = 1;...}..
2c40: 7d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 }..}. }..
2c50: 69 66 20 28 76 61 6c 69 64 50 61 72 65 6e 74 43 if (validParentC
2c60: 68 61 6e 6e 65 6c 46 64 29 20 7b 0a 09 64 70 72 hannelFd) {..dpr
2c70: 69 6e 74 66 28 22 57 65 20 66 6f 75 6e 64 20 61 intf("We found a
2c80: 20 73 68 6f 72 74 63 75 74 2c 20 74 68 69 73 20 shortcut, this
2c90: 63 68 61 6e 6e 65 6c 20 69 73 20 62 61 63 6b 65 channel is backe
2ca0: 64 20 62 79 20 61 20 73 6f 63 6b 65 74 3a 20 25 d by a socket: %
2cb0: 69 22 2c 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 i", parentChanne
2cc0: 6c 46 64 49 6e 29 3b 0a 09 62 69 6f 20 3d 20 42 lFdIn);..bio = B
2cd0: 49 4f 5f 6e 65 77 5f 73 6f 63 6b 65 74 28 70 61 IO_new_socket(pa
2ce0: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 2c 20 66 rentChannelFd, f
2cf0: 6c 61 67 73 29 3b 0a 09 73 74 61 74 65 50 74 72 lags);..statePtr
2d00: 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 ->flags |= TLS_T
2d10: 43 4c 5f 46 41 53 54 50 41 54 48 3b 0a 09 72 65 CL_FASTPATH;..re
2d20: 74 75 72 6e 20 62 69 6f 3b 0a 20 20 20 20 7d 0a turn bio;. }.
2d30: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 46 61 . dprintf("Fa
2d40: 6c 6c 69 6e 67 20 62 61 63 6b 20 74 6f 20 54 63 lling back to Tc
2d50: 6c 20 49 2f 4f 20 66 6f 72 20 74 68 69 73 20 63 l I/O for this c
2d60: 68 61 6e 6e 65 6c 22 29 3b 0a 23 65 6e 64 69 66 hannel");.#endif
2d70: 0a 0a 20 20 20 20 62 69 6f 20 3d 20 42 49 4f 5f .. bio = BIO_
2d80: 6e 65 77 28 42 69 6f 4d 65 74 68 6f 64 73 29 3b new(BioMethods);
2d90: 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 64 61 74 . BIO_set_dat
2da0: 61 28 62 69 6f 2c 20 73 74 61 74 65 50 74 72 29 a(bio, statePtr)
2db0: 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 73 68 ;. BIO_set_sh
2dc0: 75 74 64 6f 77 6e 28 62 69 6f 2c 20 66 6c 61 67 utdown(bio, flag
2dd0: 73 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f s);. BIO_set_
2de0: 69 6e 69 74 28 62 69 6f 2c 20 31 29 3b 0a 20 20 init(bio, 1);.
2df0: 20 20 72 65 74 75 72 6e 20 62 69 6f 3b 0a 7d 0a return bio;.}.
2e00: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
2e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e50: 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 49 4f 5f 63 6c ---. *. * BIO_cl
2e60: 65 61 6e 75 70 20 2d 2d 0a 20 2a 0a 20 2a 09 54 eanup --. *. *.T
2e70: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
2e80: 75 73 65 64 20 74 6f 20 64 65 73 74 72 6f 79 20 used to destroy
2e90: 61 20 42 49 4f 5f 4d 45 54 48 4f 44 20 73 74 72 a BIO_METHOD str
2ea0: 75 63 74 75 72 65 20 61 6e 64 20 66 72 65 65 20 ucture and free
2eb0: 75 70 20 61 6e 79 0a 20 2a 09 6d 65 6d 6f 72 79 up any. *.memory
2ec0: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 associated with
2ed0: 20 69 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c it.. *. * Resul
2ee0: 74 73 3a 0a 20 2a 09 53 74 61 6e 64 61 72 64 20 ts:. *.Standard
2ef0: 54 43 4c 20 72 65 73 75 6c 74 0a 20 2a 0a 20 2a TCL result. *. *
2f00: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
2f10: 2a 09 44 65 73 74 72 6f 79 73 20 42 49 4f 20 4d *.Destroys BIO M
2f20: 65 74 68 6f 64 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d ethods.. *. *---
2f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
2f80: 69 6e 74 20 42 49 4f 5f 63 6c 65 61 6e 75 70 20 int BIO_cleanup
2f90: 28 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 () {. dprintf
2fa0: 28 22 42 49 4f 5f 63 6c 65 61 6e 75 70 28 29 20 ("BIO_cleanup()
2fb0: 63 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 called");.. i
2fc0: 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 20 21 3d f (BioMethods !=
2fd0: 20 4e 55 4c 4c 29 20 7b 0a 09 42 49 4f 5f 6d 65 NULL) {..BIO_me
2fe0: 74 68 5f 66 72 65 65 28 42 69 6f 4d 65 74 68 6f th_free(BioMetho
2ff0: 64 73 29 3b 0a 09 42 69 6f 4d 65 74 68 6f 64 73 ds);..BioMethods
3000: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 = NULL;. }.
3010: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
3020: 3b 0a 7d 0a ;.}.