0000: 2f 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73 20 43 /*. * Provides C
0010: 75 73 74 6f 6d 20 42 49 4f 20 6c 61 79 65 72 20 ustom BIO layer
0020: 74 6f 20 69 6e 74 65 72 66 61 63 65 20 4f 70 65 to interface Ope
0030: 6e 53 53 4c 20 77 69 74 68 20 54 43 4c 2e 20 54 nSSL with TCL. T
0040: 68 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 0a 20 hese functions.
0050: 2a 20 64 69 72 65 63 74 6c 79 20 69 6e 74 65 72 * directly inter
0060: 66 61 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 face between the
0070: 20 54 43 4c 20 49 4f 20 63 68 61 6e 6e 65 6c 20 TCL IO channel
0080: 61 6e 64 20 42 49 4f 20 62 75 66 66 65 72 73 2e and BIO buffers.
0090: 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 . *. * Copyright
00a0: 20 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d (C) 1997-2000 M
00b0: 61 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 att Newman <matt
00c0: 40 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 @novadigm.com>.
00d0: 2a 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 * Copyright (C)
00e0: 32 30 32 34 2d 32 30 32 35 20 42 72 69 61 6e 20 2024-2025 Brian
00f0: 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f 0a 0a O'Hagan. *. */..
0100: 2f 2a 0a 4e 6f 72 6d 61 6c 0a 09 09 74 6c 73 42 /*.Normal...tlsB
0110: 49 4f 2e 63 09 09 09 74 6c 73 49 4f 2e 63 0a 20 IO.c...tlsIO.c.
0120: 2b 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 +------+
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0140: 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 +-----+
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0160: 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2b 0a 20 7c +---+. |
0170: 20 20 20 20 20 20 7c 54 63 6c 5f 57 72 69 74 65 |Tcl_Write
0180: 52 61 77 3c 2d 2d 42 69 6f 4f 75 74 70 75 74 7c Raw<--BioOutput|
0190: 20 53 53 4c 20 7c 42 49 4f 5f 77 72 69 74 65 3c SSL |BIO_write<
01a0: 2d 2d 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 --TlsOutputProc
01b0: 3c 2d 2d 70 75 74 73 7c 20 20 20 7c 0a 20 7c 73 <--puts| |. |s
01c0: 6f 63 6b 65 74 7c 20 20 20 20 20 20 3c 65 6e 63 ocket| <enc
01d0: 72 79 70 74 65 64 3e 20 20 20 20 20 20 20 7c 20 rypted> |
01e0: 42 49 4f 20 7c 20 20 20 20 20 20 20 20 20 20 20 BIO |
01f0: 20 3c 75 6e 65 6e 63 72 79 70 74 65 64 3e 20 20 <unencrypted>
0200: 20 20 20 20 20 20 7c 41 70 70 7c 0a 20 7c 20 20 |App|. |
0210: 20 20 20 20 7c 54 63 6c 5f 52 65 61 64 52 61 77 |Tcl_ReadRaw
0220: 20 2d 2d 3e 20 42 69 6f 49 6e 70 75 74 7c 20 20 --> BioInput|
0230: 20 20 20 7c 42 49 4f 5f 52 65 61 64 20 2d 2d 3e |BIO_Read -->
0240: 54 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 3e TlsInputProc -->
0250: 20 72 65 61 64 7c 20 20 20 7c 0a 20 2b 2d 2d 2d read| |. +---
0260: 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 ---+
0270: 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d +---
0280: 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 --+
0290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02a0: 20 20 20 20 2b 2d 2d 2d 2b 0a 0a 0a 46 61 73 74 +---+...Fast
02b0: 20 50 61 74 68 0a 09 09 09 09 09 09 74 6c 73 49 Path.......tlsI
02c0: 4f 2e 63 0a 20 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 O.c. +------+
02d0: 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2d +----
02e0: 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -+
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0300: 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 0a 20 20 +-----+.
0310: 7c 20 20 20 20 20 20 7c 3c 2d 2d 20 77 72 69 74 | |<-- writ
0320: 65 20 3c 2d 2d 7c 20 53 53 4c 20 7c 42 49 4f 5f e <--| SSL |BIO_
0330: 77 72 69 74 65 20 3c 2d 2d 20 54 6c 73 4f 75 74 write <-- TlsOut
0340: 70 75 74 50 72 6f 63 20 3c 2d 2d 20 70 75 74 73 putProc <-- puts
0350: 7c 20 20 20 20 20 7c 0a 20 20 7c 73 6f 63 6b 65 | |. |socke
0360: 74 7c 20 3c 65 6e 63 72 79 70 74 65 64 3e 20 7c t| <encrypted> |
0370: 20 42 49 4f 20 7c 20 20 20 20 20 20 20 20 20 20 BIO |
0380: 20 20 3c 75 6e 65 6e 63 72 79 70 74 65 64 3e 20 <unencrypted>
0390: 20 20 20 20 20 20 20 20 20 20 7c 20 41 70 70 20 | App
03a0: 7c 0a 20 20 7c 20 20 20 20 20 20 7c 2d 2d 3e 20 |. | |-->
03b0: 20 72 65 61 64 20 2d 2d 3e 7c 20 20 20 20 20 7c read -->| |
03c0: 42 49 4f 5f 52 65 61 64 20 20 2d 2d 3e 20 54 6c BIO_Read --> Tl
03d0: 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 3e 20 20 sInputProc -->
03e0: 72 65 61 64 7c 20 20 20 20 20 7c 0a 20 20 2b 2d read| |. +-
03f0: 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 -----+
0400: 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 +-----+
0410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d +-
0430: 2d 2d 2d 2d 2b 0a 2a 2f 0a 0a 23 69 6e 63 6c 75 ----+.*/..#inclu
0440: 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 de "tlsInt.h".#i
0450: 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f nclude <openssl/
0460: 62 69 6f 2e 68 3e 0a 0a 2f 2a 20 44 65 66 69 6e bio.h>../* Defin
0470: 65 20 42 49 4f 20 6d 65 74 68 6f 64 73 20 73 74 e BIO methods st
0480: 72 75 63 74 75 72 65 20 2a 2f 0a 73 74 61 74 69 ructure */.stati
0490: 63 20 42 49 4f 5f 4d 45 54 48 4f 44 20 2a 42 69 c BIO_METHOD *Bi
04a0: 6f 4d 65 74 68 6f 64 73 20 3d 20 4e 55 4c 4c 3b oMethods = NULL;
04b0: 0a 0a 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ..../*. *-------
04c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0500: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 49 4f ------. *. * BIO
0510: 53 68 6f 75 6c 64 52 65 74 72 79 20 2d 2d 0a 20 ShouldRetry --.
0520: 2a 0a 20 2a 09 44 65 74 65 72 6d 69 6e 65 20 69 *. *.Determine i
0530: 66 20 61 6e 20 6f 70 65 72 61 74 69 6f 6e 20 73 f an operation s
0540: 68 6f 75 6c 64 20 62 65 20 72 65 74 72 69 65 64 hould be retried
0550: 20 66 6f 72 20 6e 6f 6e 2d 66 61 74 61 6c 20 65 for non-fatal e
0560: 72 72 6f 72 73 20 61 66 74 65 72 0a 20 2a 09 6e rrors after. *.n
0570: 65 78 74 20 73 65 6c 65 63 74 2f 28 65 29 70 6f ext select/(e)po
0580: 6c 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ll.. *. * Result
0590: 73 3a 0a 20 2a 09 31 20 3d 20 72 65 74 72 79 2c s:. *.1 = retry,
05a0: 20 30 20 3d 20 6e 6f 20 72 65 74 72 79 0a 20 2a 0 = no retry. *
05b0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
05c0: 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 :. *.None. *. *
05d0: 4e 6f 74 65 73 3a 0a 20 2a 09 57 65 20 63 68 65 Notes:. *.We che
05e0: 63 6b 20 74 68 65 20 73 61 6d 65 20 63 6f 64 65 ck the same code
05f0: 73 20 61 73 20 42 49 4f 5f 73 6f 63 6b 5f 73 68 s as BIO_sock_sh
0600: 6f 75 6c 64 5f 72 65 74 72 79 20 61 6e 64 0a 20 ould_retry and.
0610: 2a 09 42 49 4f 5f 73 6f 63 6b 5f 6e 6f 6e 5f 66 *.BIO_sock_non_f
0620: 61 74 61 6c 5f 65 72 72 6f 72 20 28 45 57 4f 55 atal_error (EWOU
0630: 4c 44 42 4c 4f 43 4b 2c 20 45 4e 4f 54 43 4f 4e LDBLOCK, ENOTCON
0640: 4e 2c 20 45 49 4e 54 52 2c 20 45 41 47 41 49 4e N, EINTR, EAGAIN
0650: 2c 20 45 50 52 4f 54 4f 2c 0a 20 2a 09 45 49 4e , EPROTO,. *.EIN
0660: 50 52 4f 47 52 45 53 53 2c 20 61 6e 64 20 45 41 PROGRESS, and EA
0670: 4c 52 45 41 44 59 29 20 65 78 63 65 70 74 20 66 LREADY) except f
0680: 6f 72 20 45 4e 4f 54 43 4f 4e 4e 2e 20 4e 65 77 or ENOTCONN. New
0690: 65 72 20 46 72 65 65 42 53 44 73 20 72 65 74 75 er FreeBSDs retu
06a0: 72 6e 0a 20 2a 09 45 4e 4f 54 43 4f 4e 4e 20 69 rn. *.ENOTCONN i
06b0: 6e 73 74 65 61 64 20 6f 66 20 45 41 47 41 49 4e nstead of EAGAIN
06c0: 2f 45 57 4f 55 4c 44 42 4c 4f 43 4b 20 77 68 65 /EWOULDBLOCK whe
06d0: 6e 20 74 72 79 69 6e 67 20 74 6f 20 73 65 6e 64 n trying to send
06e0: 20 6f 6e 20 61 0a 20 2a 09 6e 6f 6e 2d 62 6c 6f on a. *.non-blo
06f0: 63 6b 69 6e 67 20 73 6f 63 6b 65 74 20 77 68 69 cking socket whi
0700: 63 68 20 69 73 20 6e 6f 74 20 79 65 74 20 66 75 ch is not yet fu
0710: 6c 6c 79 20 63 6f 6e 6e 65 63 74 65 64 2e 20 57 lly connected. W
0720: 68 69 6c 65 20 54 43 4c 20 63 6f 72 65 0a 20 2a hile TCL core. *
0730: 09 75 73 65 73 20 45 57 4f 55 4c 44 42 4c 4f 43 .uses EWOULDBLOC
0740: 4b 20 69 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 K if the connect
0750: 20 69 73 20 73 74 69 6c 6c 20 69 6e 20 70 72 6f is still in pro
0760: 67 72 65 73 73 2c 20 69 74 20 75 73 65 73 20 45 gress, it uses E
0770: 4e 4f 54 43 4f 4e 4e 0a 20 2a 09 69 66 20 69 74 NOTCONN. *.if it
0780: 20 66 61 69 6c 65 64 2e 20 53 6f 20 77 65 20 73 failed. So we s
0790: 6b 69 70 20 69 74 2e 0a 20 2a 0a 20 2a 2d 2d 2d kip it.. *. *---
07a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
07f0: 73 74 61 74 69 63 20 69 6e 74 20 42 49 4f 53 68 static int BIOSh
0800: 6f 75 6c 64 52 65 74 72 79 28 69 6e 74 20 63 6f ouldRetry(int co
0810: 64 65 29 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 de) {. int re
0820: 73 20 3d 20 30 3b 0a 20 20 20 20 64 70 72 69 6e s = 0;. dprin
0830: 74 66 28 22 42 49 4f 53 68 6f 75 6c 64 52 65 74 tf("BIOShouldRet
0840: 72 79 20 25 64 3d 25 73 22 2c 20 63 6f 64 65 2c ry %d=%s", code,
0850: 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 63 6f Tcl_ErrnoMsg(co
0860: 64 65 29 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 68 de));.. /* Ch
0870: 65 63 6b 20 66 6f 72 20 6e 6f 6e 2d 62 6c 6f 63 eck for non-bloc
0880: 6b 69 6e 67 20 72 65 74 72 79 2d 61 62 6c 65 20 king retry-able
0890: 65 72 72 6f 72 20 63 6f 64 65 73 2c 20 62 75 74 error codes, but
08a0: 20 73 6b 69 70 20 45 4e 4f 54 43 4f 4e 4e 20 2a skip ENOTCONN *
08b0: 2f 0a 20 20 20 20 69 66 20 28 63 6f 64 65 20 3d /. if (code =
08c0: 3d 20 45 57 4f 55 4c 44 42 4c 4f 43 4b 20 7c 7c = EWOULDBLOCK ||
08d0: 20 63 6f 64 65 20 3d 3d 20 45 49 4e 50 52 4f 47 code == EINPROG
08e0: 52 45 53 53 20 7c 7c 20 63 6f 64 65 20 3d 3d 20 RESS || code ==
08f0: 45 41 4c 52 45 41 44 59 20 7c 7c 20 0a 09 63 6f EALREADY || ..co
0900: 64 65 20 3d 3d 20 45 41 47 41 49 4e 20 7c 7c 20 de == EAGAIN ||
0910: 63 6f 64 65 20 3d 3d 20 45 50 52 4f 54 4f 20 7c code == EPROTO |
0920: 7c 20 63 6f 64 65 20 3d 3d 20 45 49 4e 54 52 29 | code == EINTR)
0930: 20 7b 0a 09 72 65 73 20 3d 20 31 3b 0a 20 20 20 {..res = 1;.
0940: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 }.. dprintf(
0950: 22 42 49 4f 53 68 6f 75 6c 64 52 65 74 72 79 20 "BIOShouldRetry
0960: 25 64 3d 25 73 2c 20 72 65 74 72 79 3d 25 64 22 %d=%s, retry=%d"
0970: 2c 20 63 6f 64 65 2c 20 54 63 6c 5f 45 72 72 6e , code, Tcl_Errn
0980: 6f 4d 73 67 28 63 6f 64 65 29 2c 20 72 65 73 29 oMsg(code), res)
0990: 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 ;.. return re
09a0: 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d s;.}../*. *-----
09b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 --------. *. * B
0a00: 69 6f 4f 75 74 70 75 74 20 2d 2d 0a 20 2a 0a 20 ioOutput --. *.
0a10: 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 *.This function
0a20: 69 73 20 75 73 65 64 20 74 6f 20 67 65 74 20 65 is used to get e
0a30: 6e 63 72 79 70 74 65 64 20 64 61 74 61 20 66 72 ncrypted data fr
0a40: 6f 6d 20 74 68 65 20 42 49 4f 20 69 6e 20 62 75 om the BIO in bu
0a50: 66 20 61 6e 64 0a 20 2a 09 77 72 69 74 65 20 69 f and. *.write i
0a60: 74 20 74 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c t to the channel
0a70: 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 . This function
0a80: 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69 will be called i
0a90: 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f 0a 20 2a n response to. *
0aa0: 09 74 68 65 20 74 6c 73 49 4f 20 63 61 6c 6c 69 .the tlsIO calli
0ab0: 6e 67 20 74 68 65 20 42 49 4f 5f 77 72 69 74 65 ng the BIO_write
0ac0: 5f 65 78 28 29 20 6f 72 20 42 49 4f 5f 77 72 69 _ex() or BIO_wri
0ad0: 74 65 28 29 20 66 75 6e 63 74 69 6f 6e 73 2e 0a te() functions..
0ae0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
0af0: 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 *.Returns the nu
0b00: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 mber of bytes wr
0b10: 69 74 74 65 6e 20 74 6f 20 63 68 61 6e 6e 65 6c itten to channel
0b20: 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20 6f 72 20 , 0 for EOF, or
0b30: 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72 6f 72 2e -1 for. *.error.
0b40: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
0b50: 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 42 cts:. *.Writes B
0b60: 49 4f 20 64 61 74 61 20 74 6f 20 63 68 61 6e 6e IO data to chann
0b70: 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d el.. *. *-------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
0bd0: 69 63 20 69 6e 74 20 42 69 6f 4f 75 74 70 75 74 ic int BioOutput
0be0: 28 42 49 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73 74 (BIO *bio, const
0bf0: 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 char *buf, int
0c00: 62 75 66 4c 65 6e 29 20 7b 0a 20 20 20 20 54 63 bufLen) {. Tc
0c10: 6c 5f 53 69 7a 65 20 72 65 74 3b 0a 20 20 20 20 l_Size ret;.
0c20: 69 6e 74 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45 int is_eof, tclE
0c30: 72 72 6e 6f 3b 0a 20 20 20 20 53 74 61 74 65 20 rrno;. State
0c40: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
0c50: 74 65 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 te *) BIO_get_da
0c60: 74 61 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c ta(bio);. Tcl
0c70: 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 _Channel chan =
0c80: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
0c90: 61 74 65 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20 atePtr, 0);..
0ca0: 20 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d dprintf("[chan=
0cb0: 25 70 5d 20 42 69 6f 4f 75 74 70 75 74 28 62 69 %p] BioOutput(bi
0cc0: 6f 3d 25 70 2c 20 62 75 66 3d 25 70 2c 20 6c 65 o=%p, buf=%p, le
0cd0: 6e 3d 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 n=%d)", (void *)
0ce0: 63 68 61 6e 2c 0a 09 28 76 6f 69 64 20 2a 29 20 chan,..(void *)
0cf0: 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 4c 65 6e bio, buf, bufLen
0d00: 29 3b 0a 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 );.. BIO_clea
0d10: 72 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 62 69 r_retry_flags(bi
0d20: 6f 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 45 o);. Tcl_SetE
0d30: 72 72 6e 6f 28 30 29 3b 0a 0a 20 20 20 20 2f 2a rrno(0);.. /*
0d40: 20 57 72 69 74 65 20 64 61 74 61 20 74 6f 20 75 Write data to u
0d50: 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 nderlying channe
0d60: 6c 20 2a 2f 0a 20 20 20 20 72 65 74 20 3d 20 54 l */. ret = T
0d70: 63 6c 5f 57 72 69 74 65 52 61 77 28 63 68 61 6e cl_WriteRaw(chan
0d80: 2c 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 , buf, (Tcl_Size
0d90: 29 20 62 75 66 4c 65 6e 29 3b 0a 20 20 20 20 69 ) bufLen);. i
0da0: 73 5f 65 6f 66 20 3d 20 54 63 6c 5f 45 6f 66 28 s_eof = Tcl_Eof(
0db0: 63 68 61 6e 29 3b 0a 20 20 20 20 74 63 6c 45 72 chan);. tclEr
0dc0: 72 6e 6f 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 rno = Tcl_GetErr
0dd0: 6e 6f 28 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e no();.. dprin
0de0: 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69 tf("[chan=%p] Bi
0df0: 6f 4f 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25 oOutput(%d) -> %
0e00: 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 " TCL_SIZE_MODIF
0e10: 49 45 52 20 22 64 20 5b 74 63 6c 45 6f 66 3d 25 IER "d [tclEof=%
0e20: 64 3b 20 74 63 6c 45 72 72 6e 6f 3d 25 64 3a 20 d; tclErrno=%d:
0e30: 25 73 5d 22 2c 0a 09 28 76 6f 69 64 20 2a 29 20 %s]",..(void *)
0e40: 63 68 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 72 65 chan, bufLen, re
0e50: 74 2c 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45 72 t, is_eof, tclEr
0e60: 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 rno, Tcl_ErrnoMs
0e70: 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 0a 20 g(tclErrno));..
0e80: 20 20 20 69 66 20 28 72 65 74 20 3e 20 30 29 20 if (ret > 0)
0e90: 7b 0a 09 64 70 72 69 6e 74 66 28 22 53 75 63 63 {..dprintf("Succ
0ea0: 65 73 73 66 75 6c 6c 79 20 77 72 6f 74 65 20 25 essfully wrote %
0eb0: 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 " TCL_SIZE_MODIF
0ec0: 49 45 52 20 22 64 20 62 79 74 65 73 20 6f 66 20 IER "d bytes of
0ed0: 64 61 74 61 22 2c 20 72 65 74 29 3b 0a 0a 20 20 data", ret);..
0ee0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 74 } else if (ret
0ef0: 20 3d 3d 20 30 29 20 7b 0a 09 69 66 20 28 69 73 == 0) {..if (is
0f00: 5f 65 6f 66 29 20 7b 0a 09 20 20 20 20 64 70 72 _eof) {.. dpr
0f10: 69 6e 74 66 28 22 47 6f 74 20 45 4f 46 20 77 68 intf("Got EOF wh
0f20: 69 6c 65 20 77 72 69 74 69 6e 67 2c 20 72 65 74 ile writing, ret
0f30: 75 72 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 74 urning a Connect
0f40: 69 6f 6e 20 52 65 73 65 74 20 65 72 72 6f 72 20 ion Reset error
0f50: 77 68 69 63 68 20 6d 61 70 73 20 74 6f 20 53 6f which maps to So
0f60: 66 74 20 45 4f 46 22 29 3b 0a 09 20 20 20 20 54 ft EOF");.. T
0f70: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 43 4f 4e cl_SetErrno(ECON
0f80: 4e 52 45 53 45 54 29 3b 0a 09 20 20 20 20 42 49 NRESET);.. BI
0f90: 4f 5f 73 65 74 5f 66 6c 61 67 73 28 62 69 6f 2c O_set_flags(bio,
0fa0: 20 42 49 4f 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f BIO_FLAGS_IN_EO
0fb0: 46 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 F);...} else {..
0fc0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 dprintf("Got
0fd0: 20 30 20 66 72 6f 6d 20 54 63 6c 5f 57 72 69 74 0 from Tcl_Writ
0fe0: 65 52 61 77 2c 20 61 6e 64 20 45 4f 46 20 69 73 eRaw, and EOF is
0ff0: 20 6e 6f 74 20 73 65 74 3b 20 72 65 74 20 3d 20 not set; ret =
1000: 30 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 0");.. BIO_se
1010: 74 5f 72 65 74 72 79 5f 77 72 69 74 65 28 62 69 t_retry_write(bi
1020: 6f 29 3b 0a 0a 09 20 20 20 20 64 70 72 69 6e 74 o);... dprint
1030: 66 28 22 53 65 74 74 69 6e 67 20 72 65 74 72 79 f("Setting retry
1040: 20 72 65 61 64 20 66 6c 61 67 22 29 3b 0a 09 20 read flag");..
1050: 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 BIO_set_retry
1060: 5f 72 65 61 64 28 62 69 6f 29 3b 0a 09 7d 0a 0a _read(bio);..}..
1070: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 64 70 } else {..dp
1080: 72 69 6e 74 66 28 22 57 65 20 67 6f 74 20 73 6f rintf("We got so
1090: 6d 65 20 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 65 me kind of I/O e
10a0: 72 72 6f 72 22 29 3b 0a 0a 09 69 66 20 28 42 49 rror");...if (BI
10b0: 4f 53 68 6f 75 6c 64 52 65 74 72 79 28 74 63 6c OShouldRetry(tcl
10c0: 45 72 72 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64 Errno)) {.. d
10d0: 70 72 69 6e 74 66 28 22 54 72 79 20 61 67 61 69 printf("Try agai
10e0: 6e 20 66 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 n for: %i=%s", t
10f0: 63 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 clErrno, Tcl_Err
1100: 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 noMsg(tclErrno))
1110: 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 ;.. BIO_set_r
1120: 65 74 72 79 5f 77 72 69 74 65 28 62 69 6f 29 3b etry_write(bio);
1130: 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 ...} else {..
1140: 20 64 70 72 69 6e 74 66 28 22 55 6e 65 78 70 65 dprintf("Unexpe
1150: 63 74 65 64 20 65 72 72 6f 72 3a 20 25 69 3d 25 cted error: %i=%
1160: 73 22 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 54 63 s", tclErrno, Tc
1170: 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c 45 72 l_ErrnoMsg(tclEr
1180: 72 6e 6f 29 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a rno));..}. }.
1190: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 . dprintf("Bi
11a0: 6f 4f 75 74 70 75 74 20 72 65 74 75 72 6e 69 6e oOutput returnin
11b0: 67 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f g %" TCL_SIZE_MO
11c0: 44 49 46 49 45 52 20 22 64 22 2c 20 72 65 74 29 DIFIER "d", ret)
11d0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e ;. return (in
11e0: 74 29 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a t) ret;.}../*. *
11f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1240: 0a 20 2a 20 42 69 6f 49 6e 70 75 74 20 2d 2d 0a . * BioInput --.
1250: 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 *. *.This funct
1260: 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 72 ion is used to r
1270: 65 61 64 20 65 6e 63 72 79 70 74 65 64 20 64 61 ead encrypted da
1280: 74 61 20 66 72 6f 6d 20 74 68 65 20 63 68 61 6e ta from the chan
1290: 6e 65 6c 20 61 6e 64 20 70 61 73 73 0a 20 2a 09 nel and pass. *.
12a0: 69 74 20 74 6f 20 74 68 65 20 42 49 4f 20 69 6e it to the BIO in
12b0: 20 62 75 66 2e 20 54 68 69 73 20 66 75 6e 63 74 buf. This funct
12c0: 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c ion will be call
12d0: 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 ed in response t
12e0: 6f 20 74 68 65 0a 20 2a 09 74 6c 73 49 4f 20 63 o the. *.tlsIO c
12f0: 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 4f 5f 72 alling the BIO_r
1300: 65 61 64 5f 65 78 28 29 20 6f 72 20 42 49 4f 5f ead_ex() or BIO_
1310: 72 65 61 64 28 29 20 66 75 6e 63 74 69 6f 6e 73 read() functions
1320: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
1330: 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20 . *.Returns the
1340: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 number of bytes
1350: 72 65 61 64 20 66 72 6f 6d 20 63 68 61 6e 6e 65 read from channe
1360: 6c 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20 6f 72 l, 0 for EOF, or
1370: 20 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72 6f 72 -1 for. *.error
1380: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
1390: 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 63 ects:. *.Reads c
13a0: 68 61 6e 6e 65 6c 20 64 61 74 61 20 69 6e 74 6f hannel data into
13b0: 20 42 49 4f 20 6f 72 20 73 65 74 73 20 72 65 74 BIO or sets ret
13c0: 72 79 20 66 6c 61 67 73 2e 0a 20 2a 0a 20 2a 2d ry flags.. *. *-
13d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
1420: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f ..static int Bio
1430: 49 6e 70 75 74 28 42 49 4f 20 2a 62 69 6f 2c 20 Input(BIO *bio,
1440: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 62 char *buf, int b
1450: 75 66 4c 65 6e 29 20 7b 0a 20 20 20 20 54 63 6c ufLen) {. Tcl
1460: 5f 53 69 7a 65 20 72 65 74 20 3d 20 30 3b 0a 20 _Size ret = 0;.
1470: 20 20 20 69 6e 74 20 69 73 5f 65 6f 66 2c 20 74 int is_eof, t
1480: 63 6c 45 72 72 6e 6f 2c 20 69 73 5f 62 6c 6f 63 clErrno, is_bloc
1490: 6b 65 64 3b 0a 20 20 20 20 53 74 61 74 65 20 2a ked;. State *
14a0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
14b0: 65 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 74 e *) BIO_get_dat
14c0: 61 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c 5f a(bio);. Tcl_
14d0: 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 54 Channel chan = T
14e0: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 ls_GetParent(sta
14f0: 74 65 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20 20 tePtr, 0);..
1500: 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 dprintf("[chan=%
1510: 70 5d 20 42 69 6f 49 6e 70 75 74 28 62 69 6f 3d p] BioInput(bio=
1520: 25 70 2c 20 62 75 66 3d 25 70 2c 20 6c 65 6e 3d %p, buf=%p, len=
1530: 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 63 %d)", (void *) c
1540: 68 61 6e 2c 0a 09 28 76 6f 69 64 20 2a 29 20 62 han,..(void *) b
1550: 69 6f 2c 20 62 75 66 2c 20 62 75 66 4c 65 6e 29 io, buf, bufLen)
1560: 3b 0a 0a 20 20 20 20 69 66 20 28 62 75 66 20 3d ;.. if (buf =
1570: 3d 20 4e 55 4c 4c 20 7c 7c 20 62 75 66 4c 65 6e = NULL || bufLen
1580: 20 3c 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e <= 0) {..return
1590: 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 42 0;. }.. B
15a0: 49 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 5f 66 IO_clear_retry_f
15b0: 6c 61 67 73 28 62 69 6f 29 3b 0a 20 20 20 20 54 lags(bio);. T
15c0: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 30 29 3b 0a cl_SetErrno(0);.
15d0: 0a 20 20 20 20 2f 2a 20 52 65 61 64 20 64 61 74 . /* Read dat
15e0: 61 20 66 72 6f 6d 20 75 6e 64 65 72 6c 79 69 6e a from underlyin
15f0: 67 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 g channel */.
1600: 20 72 65 74 20 3d 20 54 63 6c 5f 52 65 61 64 52 ret = Tcl_ReadR
1610: 61 77 28 63 68 61 6e 2c 20 62 75 66 2c 20 28 54 aw(chan, buf, (T
1620: 63 6c 5f 53 69 7a 65 29 20 62 75 66 4c 65 6e 29 cl_Size) bufLen)
1630: 3b 0a 0a 20 20 20 20 69 73 5f 65 6f 66 20 3d 20 ;.. is_eof =
1640: 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 3b 0a 20 Tcl_Eof(chan);.
1650: 20 20 20 74 63 6c 45 72 72 6e 6f 20 3d 20 54 63 tclErrno = Tc
1660: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 20 20 l_GetErrno();.
1670: 20 20 69 73 5f 62 6c 6f 63 6b 65 64 20 3d 20 54 is_blocked = T
1680: 63 6c 5f 49 6e 70 75 74 42 6c 6f 63 6b 65 64 28 cl_InputBlocked(
1690: 63 68 61 6e 29 3b 0a 0a 20 20 20 20 64 70 72 69 chan);.. dpri
16a0: 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 ntf("[chan=%p] B
16b0: 69 6f 49 6e 70 75 74 28 62 75 66 20 6c 65 6e 3d ioInput(buf len=
16c0: 25 64 29 20 2d 3e 20 25 22 20 54 43 4c 5f 53 49 %d) -> %" TCL_SI
16d0: 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 64 20 5b ZE_MODIFIER "d [
16e0: 74 63 6c 45 6f 66 3d 25 64 3b 20 62 6c 6f 63 6b tclEof=%d; block
16f0: 65 64 3d 25 64 3b 20 74 63 6c 45 72 72 6e 6f 3d ed=%d; tclErrno=
1700: 25 64 3a 20 25 73 5d 22 2c 0a 09 28 76 6f 69 64 %d: %s]",..(void
1710: 20 2a 29 20 63 68 61 6e 2c 20 62 75 66 4c 65 6e *) chan, bufLen
1720: 2c 20 72 65 74 2c 20 69 73 5f 65 6f 66 2c 20 69 , ret, is_eof, i
1730: 73 5f 62 6c 6f 63 6b 65 64 2c 20 74 63 6c 45 72 s_blocked, tclEr
1740: 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 rno, Tcl_ErrnoMs
1750: 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 0a 20 g(tclErrno));..
1760: 20 20 20 69 66 20 28 72 65 74 20 3e 20 30 29 20 if (ret > 0)
1770: 7b 0a 09 64 70 72 69 6e 74 66 28 22 53 75 63 63 {..dprintf("Succ
1780: 65 73 73 66 75 6c 6c 79 20 72 65 61 64 20 25 22 essfully read %"
1790: 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 TCL_SIZE_MODIFI
17a0: 45 52 20 22 64 20 62 79 74 65 73 20 6f 66 20 64 ER "d bytes of d
17b0: 61 74 61 22 2c 20 72 65 74 29 3b 0a 0a 20 20 20 ata", ret);..
17c0: 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 74 20 } else if (ret
17d0: 3d 3d 20 30 29 20 7b 0a 09 69 66 20 28 69 73 5f == 0) {..if (is_
17e0: 65 6f 66 29 20 7b 0a 09 20 20 20 20 64 70 72 69 eof) {.. dpri
17f0: 6e 74 66 28 22 47 6f 74 20 45 4f 46 20 77 68 69 ntf("Got EOF whi
1800: 6c 65 20 72 65 61 64 69 6e 67 2c 20 72 65 74 75 le reading, retu
1810: 72 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 74 69 rning a Connecti
1820: 6f 6e 20 52 65 73 65 74 20 65 72 72 6f 72 20 77 on Reset error w
1830: 68 69 63 68 20 6d 61 70 73 20 74 6f 20 53 6f 66 hich maps to Sof
1840: 74 20 45 4f 46 22 29 3b 0a 09 20 20 20 20 54 63 t EOF");.. Tc
1850: 6c 5f 53 65 74 45 72 72 6e 6f 28 45 43 4f 4e 4e l_SetErrno(ECONN
1860: 52 45 53 45 54 29 3b 0a 09 20 20 20 20 42 49 4f RESET);.. BIO
1870: 5f 73 65 74 5f 66 6c 61 67 73 28 62 69 6f 2c 20 _set_flags(bio,
1880: 42 49 4f 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 BIO_FLAGS_IN_EOF
1890: 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 );...} else if (
18a0: 69 73 5f 62 6c 6f 63 6b 65 64 29 20 7b 0a 09 20 is_blocked) {..
18b0: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 dprintf("Got
18c0: 69 6e 70 75 74 20 62 6c 6f 63 6b 65 64 20 66 72 input blocked fr
18d0: 6f 6d 20 54 63 6c 5f 52 65 61 64 52 61 77 2e 20 om Tcl_ReadRaw.
18e0: 53 65 74 74 69 6e 67 20 72 65 74 72 79 20 72 65 Setting retry re
18f0: 61 64 20 66 6c 61 67 22 29 3b 0a 09 20 20 20 20 ad flag");..
1900: 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65 BIO_set_retry_re
1910: 61 64 28 62 69 6f 29 3b 0a 09 7d 0a 0a 20 20 20 ad(bio);..}..
1920: 20 7d 20 65 6c 73 65 20 7b 0a 09 64 70 72 69 6e } else {..dprin
1930: 74 66 28 22 57 65 20 67 6f 74 20 73 6f 6d 65 20 tf("We got some
1940: 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 65 72 72 6f kind of I/O erro
1950: 72 22 29 3b 0a 0a 09 69 66 20 28 42 49 4f 53 68 r");...if (BIOSh
1960: 6f 75 6c 64 52 65 74 72 79 28 74 63 6c 45 72 72 ouldRetry(tclErr
1970: 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 no)) {.. dpri
1980: 6e 74 66 28 22 54 72 79 20 61 67 61 69 6e 20 66 ntf("Try again f
1990: 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 63 6c 45 or: %i=%s", tclE
19a0: 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d rrno, Tcl_ErrnoM
19b0: 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 09 sg(tclErrno));..
19c0: 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 BIO_set_retr
19d0: 79 5f 72 65 61 64 28 62 69 6f 29 3b 0a 0a 09 7d y_read(bio);...}
19e0: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 else {.. dpr
19f0: 69 6e 74 66 28 22 55 6e 65 78 70 65 63 74 65 64 intf("Unexpected
1a00: 20 65 72 72 6f 72 3a 20 25 69 3d 25 73 22 2c 20 error: %i=%s",
1a10: 74 63 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 tclErrno, Tcl_Er
1a20: 72 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 rnoMsg(tclErrno)
1a30: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 );..}. }..
1a40: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 49 6e 70 dprintf("BioInp
1a50: 75 74 20 72 65 74 75 72 6e 69 6e 67 20 25 22 20 ut returning %"
1a60: 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 TCL_SIZE_MODIFIE
1a70: 52 20 22 64 22 2c 20 72 65 74 29 3b 0a 20 20 20 R "d", ret);.
1a80: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 20 72 65 return (int) re
1a90: 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d t;.}../*. *-----
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ae0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 --------. *. * B
1af0: 69 6f 50 75 74 73 20 2d 2d 0a 20 2a 0a 20 2a 09 ioPuts --. *. *.
1b00: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
1b10: 20 75 73 65 64 20 74 6f 20 72 65 61 64 20 61 20 used to read a
1b20: 4e 55 4c 4c 20 74 65 72 6d 69 6e 61 74 65 64 20 NULL terminated
1b30: 73 74 72 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 string from the
1b40: 42 49 4f 20 61 6e 64 0a 20 2a 09 77 72 69 74 65 BIO and. *.write
1b50: 20 69 74 20 74 6f 20 74 68 65 20 63 68 61 6e 6e it to the chann
1b60: 65 6c 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f el. This functio
1b70: 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 n will be called
1b80: 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f 0a in response to.
1b90: 20 2a 09 74 68 65 20 61 70 70 6c 69 63 61 74 69 *.the applicati
1ba0: 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 42 on calling the B
1bb0: 49 4f 5f 70 75 74 73 28 29 20 66 75 6e 63 74 69 IO_puts() functi
1bc0: 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 on.. *. * Result
1bd0: 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 s:. *.Returns th
1be0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 e number of byte
1bf0: 73 20 72 65 61 64 20 66 72 6f 6d 20 63 68 61 6e s read from chan
1c00: 6e 65 6c 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20 nel, 0 for EOF,
1c10: 6f 72 20 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72 or -1 for. *.err
1c20: 6f 72 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 or.. *. * Side e
1c30: 66 66 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 ffects:. *.Write
1c40: 73 20 64 61 74 61 20 74 6f 20 63 68 61 6e 6e 65 s data to channe
1c50: 6c 20 6f 72 20 73 65 74 73 20 72 65 74 72 79 20 l or sets retry
1c60: 66 6c 61 67 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d flags.. *. *----
1c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 ---------. */..s
1cc0: 74 61 74 69 63 20 69 6e 74 20 42 69 6f 50 75 74 tatic int BioPut
1cd0: 73 28 42 49 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73 s(BIO *bio, cons
1ce0: 74 20 63 68 61 72 20 2a 73 74 72 29 20 7b 0a 20 t char *str) {.
1cf0: 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 6f 50 dprintf("BioP
1d00: 75 74 73 28 25 70 29 20 5c 22 25 73 5c 22 22 2c uts(%p) \"%s\"",
1d10: 20 62 69 6f 2c 20 73 74 72 29 3b 0a 0a 20 20 20 bio, str);..
1d20: 20 72 65 74 75 72 6e 20 42 69 6f 4f 75 74 70 75 return BioOutpu
1d30: 74 28 62 69 6f 2c 20 73 74 72 2c 20 28 69 6e 74 t(bio, str, (int
1d40: 29 20 73 74 72 6c 65 6e 28 73 74 72 29 29 3b 0a ) strlen(str));.
1d50: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
1d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1da0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 43 -----. *. * BioC
1db0: 74 72 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 trl --. *. *.Thi
1dc0: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 s function is us
1dd0: 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 63 6f ed to process co
1de0: 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 73 20 69 ntrol messages i
1df0: 6e 20 74 68 65 20 42 49 4f 2e 20 54 68 69 73 0a n the BIO. This.
1e00: 20 2a 09 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c *.function will
1e10: 20 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 be called in re
1e20: 73 70 6f 6e 73 65 20 74 6f 20 74 68 65 20 61 70 sponse to the ap
1e30: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e plication callin
1e40: 67 20 74 68 65 0a 20 2a 09 42 49 4f 5f 63 74 72 g the. *.BIO_ctr
1e50: 6c 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 53 65 l() function. Se
1e60: 76 65 72 61 6c 20 66 75 6e 63 74 69 6f 6e 73 20 veral functions
1e70: 77 72 61 70 20 42 49 4f 5f 63 74 72 6c 28 29 20 wrap BIO_ctrl()
1e80: 73 75 63 68 20 61 73 0a 20 2a 09 42 49 4f 5f 65 such as. *.BIO_e
1e90: 6f 66 2c 20 42 49 4f 5f 66 6c 75 73 68 2c 20 42 of, BIO_flush, B
1ea0: 49 4f 5f 70 65 6e 64 69 6e 67 2c 20 42 49 4f 5f IO_pending, BIO_
1eb0: 77 70 65 6e 64 69 6e 67 2c 20 65 74 63 2e 0a 20 wpending, etc..
1ec0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
1ed0: 09 46 75 6e 63 74 69 6f 6e 20 64 65 70 65 6e 64 .Function depend
1ee0: 65 6e 74 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ent. *. * Side e
1ef0: 66 66 65 63 74 73 3a 0a 20 2a 09 46 75 6e 63 74 ffects:. *.Funct
1f00: 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 0a 20 2a ion dependent. *
1f10: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f60: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 6c 6f 6e . */..static lon
1f70: 67 20 42 69 6f 43 74 72 6c 28 42 49 4f 20 2a 62 g BioCtrl(BIO *b
1f80: 69 6f 2c 20 69 6e 74 20 63 6d 64 2c 20 6c 6f 6e io, int cmd, lon
1f90: 67 20 6e 75 6d 2c 20 76 6f 69 64 20 2a 70 74 72 g num, void *ptr
1fa0: 29 20 7b 0a 20 20 20 20 6c 6f 6e 67 20 72 65 74 ) {. long ret
1fb0: 20 3d 20 31 3b 0a 20 20 20 20 53 74 61 74 65 20 = 1;. State
1fc0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
1fd0: 74 65 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 te *) BIO_get_da
1fe0: 74 61 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c ta(bio);. Tcl
1ff0: 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 _Channel chan =
2000: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
2010: 61 74 65 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20 atePtr, 0);..
2020: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 43 74 72 dprintf("BioCtr
2030: 6c 28 25 70 2c 20 30 78 25 78 2c 20 30 78 25 6c l(%p, 0x%x, 0x%l
2040: 78 2c 20 25 70 29 22 2c 20 28 76 6f 69 64 20 2a x, %p)", (void *
2050: 29 20 62 69 6f 2c 20 63 6d 64 2c 20 6e 75 6d 2c ) bio, cmd, num,
2060: 20 70 74 72 29 3b 0a 0a 20 20 20 20 73 77 69 74 ptr);.. swit
2070: 63 68 20 28 63 6d 64 29 20 7b 0a 09 63 61 73 65 ch (cmd) {..case
2080: 20 42 49 4f 5f 43 54 52 4c 5f 52 45 53 45 54 3a BIO_CTRL_RESET:
2090: 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65 73 65 .../* opt - Rese
20a0: 74 73 20 42 49 4f 20 74 6f 20 69 6e 69 74 69 61 ts BIO to initia
20b0: 6c 20 73 74 61 74 65 2e 20 49 6d 70 6c 65 6d 65 l state. Impleme
20c0: 6e 74 73 20 42 49 4f 5f 72 65 73 65 74 2e 20 2a nts BIO_reset. *
20d0: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
20e0: 20 42 49 4f 5f 43 54 52 4c 5f 52 45 53 45 54 22 BIO_CTRL_RESET"
20f0: 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 20 31 );.../* Return 1
2100: 20 66 6f 72 20 73 75 63 63 65 73 73 20 28 30 20 for success (0
2110: 66 6f 72 20 66 69 6c 65 20 42 49 4f 73 29 20 61 for file BIOs) a
2120: 6e 64 20 2d 31 20 66 6f 72 20 66 61 69 6c 75 72 nd -1 for failur
2130: 65 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b e. */...ret = 0;
2140: 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 ...break;..case
2150: 42 49 4f 5f 43 54 52 4c 5f 45 4f 46 3a 0a 09 09 BIO_CTRL_EOF:...
2160: 2f 2a 20 6f 70 74 20 2d 20 52 65 74 75 72 6e 73 /* opt - Returns
2170: 20 77 68 65 74 68 65 72 20 45 4f 46 20 68 61 73 whether EOF has
2180: 20 62 65 65 6e 20 72 65 61 63 68 65 64 2e 20 49 been reached. I
2190: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 65 6f mplements BIO_eo
21a0: 66 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 f. */...dprintf(
21b0: 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 45 4f "Got BIO_CTRL_EO
21c0: 46 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e F");.../* Return
21d0: 73 20 31 20 69 66 20 45 4f 46 20 68 61 73 20 62 s 1 if EOF has b
21e0: 65 65 6e 20 72 65 61 63 68 65 64 2c 20 30 20 69 een reached, 0 i
21f0: 66 20 6e 6f 74 2c 20 6f 72 20 3c 30 20 66 6f 72 f not, or <0 for
2200: 20 66 61 69 6c 75 72 65 2e 20 2a 2f 0a 09 09 72 failure. */...r
2210: 65 74 20 3d 20 28 28 63 68 61 6e 29 20 3f 20 28 et = ((chan) ? (
2220: 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 20 7c 7c Tcl_Eof(chan) ||
2230: 20 42 49 4f 5f 74 65 73 74 5f 66 6c 61 67 73 28 BIO_test_flags(
2240: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 49 bio, BIO_FLAGS_I
2250: 4e 5f 45 4f 46 29 29 20 3a 20 31 29 3b 0a 09 09 N_EOF)) : 1);...
2260: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
2270: 5f 43 54 52 4c 5f 49 4e 46 4f 3a 0a 09 09 2f 2a _CTRL_INFO:.../*
2280: 20 6f 70 74 20 2d 20 65 78 74 72 61 20 69 6e 66 opt - extra inf
2290: 6f 20 6f 6e 20 42 49 4f 2e 20 49 6d 70 6c 65 6d o on BIO. Implem
22a0: 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6d 65 6d ents BIO_get_mem
22b0: 5f 64 61 74 61 2e 20 2a 2f 0a 09 09 64 70 72 69 _data. */...dpri
22c0: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
22d0: 4c 5f 49 4e 46 4f 22 29 3b 0a 09 09 72 65 74 20 L_INFO");...ret
22e0: 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 = 0;...break;..c
22f0: 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 53 45 54 ase BIO_CTRL_SET
2300: 3a 0a 09 09 2f 2a 20 6d 61 6e 20 2d 20 73 65 74 :.../* man - set
2310: 20 74 68 65 20 27 49 4f 27 20 70 61 72 61 6d 65 the 'IO' parame
2320: 74 65 72 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 ter. */...dprint
2330: 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f f("Got BIO_CTRL_
2340: 53 45 54 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 SET");...ret = 0
2350: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 ;...break;..case
2360: 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 3a 0a 09 BIO_CTRL_GET:..
2370: 09 2f 2a 20 6d 61 6e 20 2d 20 67 65 74 20 74 68 ./* man - get th
2380: 65 20 27 49 4f 27 20 70 61 72 61 6d 65 74 65 72 e 'IO' parameter
2390: 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 . */...dprintf("
23a0: 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 Got BIO_CTRL_GET
23b0: 20 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a ");...ret = 0;.
23c0: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
23d0: 49 4f 5f 43 54 52 4c 5f 50 55 53 48 3a 0a 09 09 IO_CTRL_PUSH:...
23e0: 2f 2a 20 6f 70 74 20 2d 20 69 6e 74 65 72 6e 61 /* opt - interna
23f0: 6c 2c 20 75 73 65 64 20 74 6f 20 73 69 67 6e 69 l, used to signi
2400: 66 79 20 63 68 61 6e 67 65 2e 20 49 6d 70 6c 65 fy change. Imple
2410: 6d 65 6e 74 73 20 42 49 4f 5f 70 75 73 68 2e 20 ments BIO_push.
2420: 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f */...dprintf("Go
2430: 74 20 42 49 4f 5f 43 54 52 4c 5f 50 55 53 48 22 t BIO_CTRL_PUSH"
2440: 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 );...ret = 0;...
2450: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
2460: 5f 43 54 52 4c 5f 50 4f 50 3a 0a 09 09 2f 2a 20 _CTRL_POP:.../*
2470: 6f 70 74 20 2d 20 69 6e 74 65 72 6e 61 6c 2c 20 opt - internal,
2480: 75 73 65 64 20 74 6f 20 73 69 67 6e 69 66 79 20 used to signify
2490: 63 68 61 6e 67 65 2e 20 49 6d 70 6c 65 6d 65 6e change. Implemen
24a0: 74 73 20 42 49 4f 5f 70 6f 70 2e 20 2a 2f 0a 09 ts BIO_pop. */..
24b0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 .dprintf("Got BI
24c0: 4f 5f 43 54 52 4c 5f 50 4f 50 22 29 3b 0a 09 09 O_CTRL_POP");...
24d0: 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b ret = 0;...break
24e0: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c ;..case BIO_CTRL
24f0: 5f 47 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 2f 2a _GET_CLOSE:.../*
2500: 20 6d 61 6e 20 2d 20 47 65 74 20 74 68 65 20 63 man - Get the c
2510: 6c 6f 73 65 20 6f 6e 20 42 49 4f 5f 66 72 65 65 lose on BIO_free
2520: 28 29 20 66 6c 61 67 20 73 65 74 20 62 79 20 42 () flag set by B
2530: 49 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 4c 4f 53 IO_CTRL_SET_CLOS
2540: 45 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 E. Implements BI
2550: 4f 5f 67 65 74 5f 63 6c 6f 73 65 2e 20 2a 2f 0a O_get_close. */.
2560: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
2570: 49 4f 5f 43 54 52 4c 5f 43 4c 4f 53 45 22 29 3b IO_CTRL_CLOSE");
2580: 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 42 49 .../* Returns BI
2590: 4f 5f 43 4c 4f 53 45 2c 20 42 49 4f 5f 4e 4f 43 O_CLOSE, BIO_NOC
25a0: 4c 4f 53 45 2c 20 6f 72 20 3c 30 20 66 6f 72 20 LOSE, or <0 for
25b0: 66 61 69 6c 75 72 65 2e 20 2a 2f 0a 09 09 72 65 failure. */...re
25c0: 74 20 3d 20 42 49 4f 5f 67 65 74 5f 73 68 75 74 t = BIO_get_shut
25d0: 64 6f 77 6e 28 62 69 6f 29 3b 0a 09 09 62 72 65 down(bio);...bre
25e0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 ak;..case BIO_CT
25f0: 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 RL_SET_CLOSE:...
2600: 2f 2a 20 6d 61 6e 20 2d 20 53 65 74 20 74 68 65 /* man - Set the
2610: 20 63 6c 6f 73 65 20 6f 6e 20 42 49 4f 5f 66 72 close on BIO_fr
2620: 65 65 28 29 20 66 6c 61 67 2e 20 49 6d 70 6c 65 ee() flag. Imple
2630: 6d 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 63 6c ments BIO_set_cl
2640: 6f 73 65 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 ose. */...dprint
2650: 66 28 22 47 6f 74 20 42 49 4f 5f 53 45 54 5f 43 f("Got BIO_SET_C
2660: 4c 4f 53 45 22 29 3b 0a 09 09 42 49 4f 5f 73 65 LOSE");...BIO_se
2670: 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 t_shutdown(bio,
2680: 6e 75 6d 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 num);.../* Retur
2690: 6e 73 20 31 20 6f 6e 20 73 75 63 63 65 73 73 20 ns 1 on success
26a0: 6f 72 20 3c 3d 30 20 66 6f 72 20 66 61 69 6c 75 or <=0 for failu
26b0: 72 65 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 31 re. */...ret = 1
26c0: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 ;...break;..case
26d0: 20 42 49 4f 5f 43 54 52 4c 5f 50 45 4e 44 49 4e BIO_CTRL_PENDIN
26e0: 47 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65 G:.../* opt - Re
26f0: 74 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66 20 62 turn number of b
2700: 79 74 65 73 20 69 6e 20 63 68 61 6e 20 77 61 69 ytes in chan wai
2710: 74 69 6e 67 20 74 6f 20 62 65 20 72 65 61 64 2e ting to be read.
2720: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2730: 70 65 6e 64 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 pending. */...dp
2740: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
2750: 54 52 4c 5f 50 45 4e 44 49 4e 47 22 29 3b 0a 09 TRL_PENDING");..
2760: 09 2f 2a 20 52 65 74 75 72 6e 20 74 68 65 20 61 ./* Return the a
2770: 6d 6f 75 6e 74 20 6f 66 20 70 65 6e 64 69 6e 67 mount of pending
2780: 20 64 61 74 61 20 6f 72 20 30 20 66 6f 72 20 65 data or 0 for e
2790: 72 72 6f 72 2e 20 2a 2f 0a 09 09 72 65 74 20 3d rror. */...ret =
27a0: 20 28 28 63 68 61 6e 29 20 3f 20 54 63 6c 5f 49 ((chan) ? Tcl_I
27b0: 6e 70 75 74 42 75 66 66 65 72 65 64 28 63 68 61 nputBuffered(cha
27c0: 6e 29 20 3a 20 30 29 3b 0a 09 09 64 70 72 69 6e n) : 0);...dprin
27d0: 74 66 28 22 72 62 69 6f 20 70 65 6e 64 69 6e 67 tf("rbio pending
27e0: 3d 25 6c 64 22 2c 20 72 65 74 29 3b 0a 09 09 62 =%ld", ret);...b
27f0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f reak;..case BIO_
2800: 43 54 52 4c 5f 46 4c 55 53 48 3a 0a 09 09 2f 2a CTRL_FLUSH:.../*
2810: 20 6f 70 74 20 2d 20 46 6c 75 73 68 20 61 6e 79 opt - Flush any
2820: 20 62 75 66 66 65 72 65 64 20 6f 75 74 70 75 74 buffered output
2830: 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f . Implements BIO
2840: 5f 66 6c 75 73 68 2e 20 2a 2f 0a 09 09 64 70 72 _flush. */...dpr
2850: 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 intf("Got BIO_CT
2860: 52 4c 5f 46 4c 55 53 48 22 29 3b 0a 09 09 2f 2a RL_FLUSH");.../*
2870: 20 55 73 65 20 54 63 6c 5f 57 72 69 74 65 52 61 Use Tcl_WriteRa
2880: 77 20 69 6e 73 74 65 61 64 20 6f 66 20 54 63 6c w instead of Tcl
2890: 5f 46 6c 75 73 68 20 74 6f 20 6f 70 65 72 61 74 _Flush to operat
28a0: 65 20 6f 6e 20 72 69 67 68 74 20 63 68 61 6e 20 e on right chan
28b0: 69 6e 20 73 74 61 63 6b 2e 20 2a 2f 0a 09 09 2f in stack. */.../
28c0: 2a 20 52 65 74 75 72 6e 73 20 31 20 66 6f 72 20 * Returns 1 for
28d0: 73 75 63 63 65 73 73 2c 20 3c 3d 30 20 66 6f 72 success, <=0 for
28e0: 20 65 72 72 6f 72 2f 72 65 74 72 79 2e 20 2a 2f error/retry. */
28f0: 0a 09 09 72 65 74 20 3d 20 28 28 63 68 61 6e 29 ...ret = ((chan)
2900: 20 26 26 20 28 54 63 6c 5f 57 72 69 74 65 52 61 && (Tcl_WriteRa
2910: 77 28 63 68 61 6e 2c 20 22 22 2c 20 30 29 20 3e w(chan, "", 0) >
2920: 3d 20 30 29 20 3f 20 31 20 3a 20 2d 31 29 3b 0a = 0) ? 1 : -1);.
2930: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2940: 49 4f 5f 43 54 52 4c 5f 44 55 50 3a 0a 09 09 2f IO_CTRL_DUP:.../
2950: 2a 20 6d 61 6e 20 2d 20 65 78 74 72 61 20 73 74 * man - extra st
2960: 75 66 66 20 66 6f 72 20 27 64 75 70 65 64 27 20 uff for 'duped'
2970: 42 49 4f 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 BIO. Implements
2980: 42 49 4f 5f 64 75 70 5f 73 74 61 74 65 2e 20 2a BIO_dup_state. *
2990: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
29a0: 20 42 49 4f 5f 43 54 52 4c 5f 44 55 50 22 29 3b BIO_CTRL_DUP");
29b0: 0a 09 09 72 65 74 20 3d 20 31 3b 0a 09 09 62 72 ...ret = 1;...br
29c0: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
29d0: 54 52 4c 5f 57 50 45 4e 44 49 4e 47 3a 0a 09 09 TRL_WPENDING:...
29e0: 2f 2a 20 6f 70 74 20 2d 20 52 65 74 75 72 6e 20 /* opt - Return
29f0: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 number of bytes
2a00: 69 6e 20 63 68 61 6e 20 73 74 69 6c 6c 20 74 6f in chan still to
2a10: 20 62 65 20 77 72 69 74 74 65 6e 2e 20 49 6d 70 be written. Imp
2a20: 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 77 70 65 6e lements BIO_wpen
2a30: 64 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 72 69 6e ding. */...dprin
2a40: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
2a50: 5f 57 50 45 4e 44 49 4e 47 22 29 3b 0a 09 09 2f _WPENDING");.../
2a60: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 61 6d 6f * Return the amo
2a70: 75 6e 74 20 6f 66 20 70 65 6e 64 69 6e 67 20 64 unt of pending d
2a80: 61 74 61 20 6f 72 20 30 20 66 6f 72 20 65 72 72 ata or 0 for err
2a90: 6f 72 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 28 or */...ret = ((
2aa0: 63 68 61 6e 29 20 3f 20 54 63 6c 5f 4f 75 74 70 chan) ? Tcl_Outp
2ab0: 75 74 42 75 66 66 65 72 65 64 28 63 68 61 6e 29 utBuffered(chan)
2ac0: 20 3a 20 30 29 3b 0a 09 09 64 70 72 69 6e 74 66 : 0);...dprintf
2ad0: 28 22 77 62 69 6f 20 70 65 6e 64 69 6e 67 3d 25 ("wbio pending=%
2ae0: 6c 64 22 2c 20 72 65 74 29 3b 0a 09 09 62 72 65 ld", ret);...bre
2af0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 ak;..case BIO_CT
2b00: 52 4c 5f 53 45 54 5f 43 41 4c 4c 42 41 43 4b 3a RL_SET_CALLBACK:
2b10: 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 53 65 74 73 .../* opt - Sets
2b20: 20 61 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 61 an informationa
2b30: 6c 20 63 61 6c 6c 62 61 63 6b 2e 20 49 6d 70 6c l callback. Impl
2b40: 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 69 ements BIO_set_i
2b50: 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 2e 20 2a 2f nfo_callback. */
2b60: 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 ...ret = 0;...br
2b70: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
2b80: 54 52 4c 5f 47 45 54 5f 43 41 4c 4c 42 41 43 4b TRL_GET_CALLBACK
2b90: 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 47 65 74 :.../* opt - Get
2ba0: 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 and return the
2bb0: 69 6e 66 6f 20 63 61 6c 6c 62 61 63 6b 2e 20 49 info callback. I
2bc0: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 mplements BIO_ge
2bd0: 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 2e t_info_callback.
2be0: 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 */...ret = 0;..
2bf0: 09 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 42 .break;...case B
2c00: 49 4f 5f 43 5f 46 49 4c 45 5f 53 45 45 4b 3a 0a IO_C_FILE_SEEK:.
2c10: 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 20 66 6f ../* Not used fo
2c20: 72 20 73 6f 63 6b 65 74 73 2e 20 54 63 6c 5f 53 r sockets. Tcl_S
2c30: 65 65 6b 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 6f eek only works o
2c40: 6e 20 74 6f 70 20 63 68 61 6e 2e 20 49 6d 70 6c n top chan. Impl
2c50: 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 65 6b 28 ements BIO_seek(
2c60: 29 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 ). */...dprintf(
2c70: 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f "Got BIO_C_FILE_
2c80: 53 45 45 4b 22 29 3b 0a 09 09 72 65 74 20 3d 20 SEEK");...ret =
2c90: 30 3b 20 2f 2a 20 52 65 74 75 72 6e 20 30 20 73 0; /* Return 0 s
2ca0: 75 63 63 65 73 73 20 61 6e 64 20 2d 31 20 66 6f uccess and -1 fo
2cb0: 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 62 r failure */...b
2cc0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f reak;..case BIO_
2cd0: 43 5f 46 49 4c 45 5f 54 45 4c 4c 3a 0a 09 09 2f C_FILE_TELL:.../
2ce0: 2a 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 73 * Not used for s
2cf0: 6f 63 6b 65 74 73 2e 20 54 63 6c 5f 54 65 6c 6c ockets. Tcl_Tell
2d00: 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 6f 6e 20 74 only works on t
2d10: 6f 70 20 63 68 61 6e 2e 20 49 6d 70 6c 65 6d 65 op chan. Impleme
2d20: 6e 74 73 20 42 49 4f 5f 74 65 6c 6c 28 29 2e 20 nts BIO_tell().
2d30: 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f */...dprintf("Go
2d40: 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 54 45 4c t BIO_C_FILE_TEL
2d50: 4c 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 20 L");...ret = 0;
2d60: 2f 2a 20 52 65 74 75 72 6e 20 30 20 73 75 63 63 /* Return 0 succ
2d70: 65 73 73 20 61 6e 64 20 2d 31 20 66 6f 72 20 66 ess and -1 for f
2d80: 61 69 6c 75 72 65 20 2a 2f 0a 09 09 62 72 65 61 ailure */...brea
2d90: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f 53 k;..case BIO_C_S
2da0: 45 54 5f 46 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c ET_FD:.../* Impl
2db0: 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 66 ements BIO_set_f
2dc0: 64 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 d */...dprintf("
2dd0: 55 6e 73 75 70 70 6f 72 74 65 64 20 63 61 6c 6c Unsupported call
2de0: 3a 20 42 49 4f 5f 43 5f 53 45 54 5f 46 44 22 29 : BIO_C_SET_FD")
2df0: 3b 0a 09 09 72 65 74 20 3d 20 2d 31 3b 0a 09 09 ;...ret = -1;...
2e00: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
2e10: 5f 43 5f 47 45 54 5f 46 44 3a 0a 09 09 2f 2a 20 _C_GET_FD:.../*
2e20: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 Implements BIO_g
2e30: 65 74 5f 66 64 28 29 20 2a 2f 0a 09 09 64 70 72 et_fd() */...dpr
2e40: 69 6e 74 66 28 22 55 6e 73 75 70 70 6f 72 74 65 intf("Unsupporte
2e50: 64 20 63 61 6c 6c 3a 20 42 49 4f 5f 43 5f 47 45 d call: BIO_C_GE
2e60: 54 5f 46 44 22 29 3b 0a 09 09 72 65 74 20 3d 20 T_FD");...ret =
2e70: 2d 31 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 23 69 -1;...break;..#i
2e80: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
2e90: 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 N_NUMBER >= 0x30
2ea0: 30 30 30 30 30 30 4c 0a 09 63 61 73 65 20 42 49 000000L..case BI
2eb0: 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f O_CTRL_GET_KTLS_
2ec0: 53 45 4e 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 SEND:.../* Imple
2ed0: 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6b 74 ments BIO_get_kt
2ee0: 6c 73 5f 73 65 6e 64 20 2a 2f 0a 09 09 64 70 72 ls_send */...dpr
2ef0: 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 intf("Got BIO_CT
2f00: 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 53 45 4e 44 RL_GET_KTLS_SEND
2f10: 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 ");.../* Returns
2f20: 20 31 20 69 66 20 74 68 65 20 42 49 4f 20 69 73 1 if the BIO is
2f30: 20 75 73 69 6e 67 20 74 68 65 20 4b 65 72 6e 65 using the Kerne
2f40: 6c 20 54 4c 53 20 64 61 74 61 2d 70 61 74 68 20 l TLS data-path
2f50: 66 6f 72 20 73 65 6e 64 69 6e 67 2c 20 30 20 69 for sending, 0 i
2f60: 66 20 6e 6f 74 2e 20 2a 2f 0a 09 09 72 65 74 20 f not. */...ret
2f70: 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 = 0;...break;..c
2f80: 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 ase BIO_CTRL_GET
2f90: 5f 4b 54 4c 53 5f 52 45 43 56 3a 0a 09 09 2f 2a _KTLS_RECV:.../*
2fa0: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2fb0: 67 65 74 5f 6b 74 6c 73 5f 72 65 63 76 20 2a 2f get_ktls_recv */
2fc0: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
2fd0: 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c BIO_CTRL_GET_KTL
2fe0: 53 5f 52 45 43 56 22 29 3b 0a 09 09 2f 2a 20 52 S_RECV");.../* R
2ff0: 65 74 75 72 6e 73 20 31 20 69 66 20 74 68 65 20 eturns 1 if the
3000: 42 49 4f 20 69 73 20 75 73 69 6e 67 20 74 68 65 BIO is using the
3010: 20 4b 65 72 6e 65 6c 20 54 4c 53 20 64 61 74 61 Kernel TLS data
3020: 2d 70 61 74 68 20 66 6f 72 20 72 65 63 65 69 76 -path for receiv
3030: 69 6e 67 2c 20 30 20 69 66 20 6e 6f 74 2e 20 2a ing, 0 if not. *
3040: 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 /...ret = 0;...b
3050: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 64 65 reak;.#endif..de
3060: 66 61 75 6c 74 3a 0a 09 09 64 70 72 69 6e 74 66 fault:...dprintf
3070: 28 22 47 6f 74 20 75 6e 6b 6e 6f 77 6e 20 63 6f ("Got unknown co
3080: 6e 74 72 6f 6c 20 63 6f 6d 6d 61 6e 64 20 28 25 ntrol command (%
3090: 69 29 22 2c 20 63 6d 64 29 3b 0a 09 09 72 65 74 i)", cmd);...ret
30a0: 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 20 = 0;...break;.
30b0: 20 20 20 7d 0a 20 20 20 20 64 70 72 69 6e 74 66 }. dprintf
30c0: 28 22 42 69 6f 43 74 72 6c 20 72 65 74 75 72 6e ("BioCtrl return
30d0: 20 76 61 6c 75 65 20 25 6c 69 22 2c 20 72 65 74 value %li", ret
30e0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 );. return re
30f0: 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d t;.}../*. *-----
3100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3140: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 --------. *. * B
3150: 69 6f 4e 65 77 20 2d 2d 0a 20 2a 0a 20 2a 09 54 ioNew --. *. *.T
3160: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
3170: 75 73 65 64 20 74 6f 20 63 72 65 61 74 65 20 61 used to create a
3180: 20 6e 65 77 20 69 6e 73 74 61 6e 63 65 20 6f 66 new instance of
3190: 20 74 68 65 20 42 49 4f 2e 20 54 68 69 73 0a 20 the BIO. This.
31a0: 2a 09 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 *.function will
31b0: 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 be called in res
31c0: 70 6f 6e 73 65 20 74 6f 20 74 68 65 20 61 70 70 ponse to the app
31d0: 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 lication calling
31e0: 20 74 68 65 0a 20 2a 09 42 49 4f 5f 6e 65 77 28 the. *.BIO_new(
31f0: 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 ) function.. *.
3200: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 * Results:. *.Re
3210: 74 75 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 73 75 turns boolean su
3220: 63 63 65 73 73 20 72 65 73 75 6c 74 20 28 31 3d ccess result (1=
3230: 73 75 63 63 65 73 73 2c 20 30 3d 66 61 69 6c 75 success, 0=failu
3240: 72 65 29 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 re).. *. * Side
3250: 65 66 66 65 63 74 73 3a 0a 20 2a 09 49 6e 69 74 effects:. *.Init
3260: 69 61 6c 69 7a 65 73 20 42 49 4f 20 73 74 72 75 ializes BIO stru
3270: 63 74 75 72 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d cture.. *. *----
3280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 ---------. */..s
32d0: 74 61 74 69 63 20 69 6e 74 20 42 69 6f 4e 65 77 tatic int BioNew
32e0: 28 42 49 4f 20 2a 62 69 6f 29 20 7b 0a 20 20 20 (BIO *bio) {.
32f0: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 4e 65 77 dprintf("BioNew
3300: 28 25 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 69 (%p) called", bi
3310: 6f 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 69 6f o);.. if (bio
3320: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 == NULL) {..ret
3330: 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 urn 0;. }..
3340: 20 20 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 BIO_set_data(b
3350: 69 6f 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 42 io, NULL);. B
3360: 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c IO_set_init(bio,
3370: 20 30 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 0);. BIO_cle
3380: 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 2d 31 ar_flags(bio, -1
3390: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b );. return 1;
33a0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
33b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33f0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f ------. *. * Bio
3400: 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Free --. *. *.Th
3410: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 is function is u
3420: 73 65 64 20 74 6f 20 64 65 73 74 72 6f 79 20 61 sed to destroy a
3430: 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 61 20 n instance of a
3440: 42 49 4f 2e 20 54 68 69 73 20 66 75 6e 63 74 69 BIO. This functi
3450: 6f 6e 0a 20 2a 09 77 69 6c 6c 20 62 65 20 63 61 on. *.will be ca
3460: 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 lled in response
3470: 20 74 6f 20 74 68 65 20 61 70 70 6c 69 63 61 74 to the applicat
3480: 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 ion calling the
3490: 42 49 4f 5f 66 72 65 65 28 29 0a 20 2a 09 66 75 BIO_free(). *.fu
34a0: 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 nction.. *. * Re
34b0: 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e sults:. *.Return
34c0: 73 20 62 6f 6f 6c 65 61 6e 20 73 75 63 63 65 73 s boolean succes
34d0: 73 20 72 65 73 75 6c 74 20 28 31 3d 73 75 63 63 s result (1=succ
34e0: 65 73 73 2c 20 30 3d 66 61 69 6c 75 72 65 29 2e ess, 0=failure).
34f0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
3500: 63 74 73 3a 0a 20 2a 09 44 65 2d 69 6e 69 74 69 cts:. *.De-initi
3510: 61 6c 69 7a 65 73 20 42 49 4f 20 73 74 72 75 63 alizes BIO struc
3520: 74 75 72 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ture.. *. *-----
3530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
3580: 61 74 69 63 20 69 6e 74 20 42 69 6f 46 72 65 65 atic int BioFree
3590: 28 42 49 4f 20 2a 62 69 6f 29 20 7b 0a 20 20 20 (BIO *bio) {.
35a0: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 46 72 65 dprintf("BioFre
35b0: 65 28 25 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 e(%p) called", b
35c0: 69 6f 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 69 io);.. if (bi
35d0: 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 o == NULL) {..re
35e0: 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 turn 0;. }..
35f0: 20 20 20 2f 2a 20 43 6c 65 61 72 20 66 6c 61 67 /* Clear flag
3600: 73 20 69 66 20 73 65 74 20 74 6f 20 42 49 4f 5f s if set to BIO_
3610: 43 4c 4f 53 45 20 28 63 6c 6f 73 65 20 49 2f 4f CLOSE (close I/O
3620: 20 73 74 72 65 61 6d 20 77 68 65 6e 20 74 68 65 stream when the
3630: 20 42 49 4f 20 69 73 20 66 72 65 65 64 29 20 2a BIO is freed) *
3640: 2f 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 67 65 /. if (BIO_ge
3650: 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 6f 29 29 t_shutdown(bio))
3660: 20 7b 0a 09 42 49 4f 5f 73 65 74 5f 64 61 74 61 {..BIO_set_data
3670: 28 62 69 6f 2c 20 4e 55 4c 4c 29 3b 0a 09 42 49 (bio, NULL);..BI
3680: 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 62 69 O_clear_flags(bi
3690: 6f 2c 20 2d 31 29 3b 0a 09 42 49 4f 5f 73 65 74 o, -1);..BIO_set
36a0: 5f 69 6e 69 74 28 62 69 6f 2c 20 30 29 3b 0a 20 _init(bio, 0);.
36b0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
36c0: 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 1;.}../*. *-----
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 --------. *. * B
3720: 49 4f 5f 6e 65 77 5f 74 63 6c 20 2d 2d 0a 20 2a IO_new_tcl --. *
3730: 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f . *.This functio
3740: 6e 20 69 73 20 75 73 65 64 20 74 6f 20 69 6e 69 n is used to ini
3750: 74 69 61 6c 69 7a 65 20 74 68 65 20 42 49 4f 20 tialize the BIO
3760: 6d 65 74 68 6f 64 20 68 61 6e 64 6c 65 72 73 2e method handlers.
3770: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
3780: 20 2a 09 52 65 74 75 72 6e 73 20 70 6f 69 6e 74 *.Returns point
3790: 65 72 20 74 6f 20 42 49 4f 20 6f 72 20 4e 55 4c er to BIO or NUL
37a0: 4c 20 66 6f 72 20 66 61 69 6c 75 72 65 0a 20 2a L for failure. *
37b0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
37c0: 3a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 :. *.Initializes
37d0: 20 42 49 4f 20 4d 65 74 68 6f 64 73 2e 0a 20 2a BIO Methods.. *
37e0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
37f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3830: 0a 20 2a 2f 0a 0a 42 49 4f 20 2a 42 49 4f 5f 6e . */..BIO *BIO_n
3840: 65 77 5f 74 63 6c 28 53 74 61 74 65 20 2a 73 74 ew_tcl(State *st
3850: 61 74 65 50 74 72 2c 20 69 6e 74 20 66 6c 61 67 atePtr, int flag
3860: 73 29 20 7b 0a 20 20 20 20 42 49 4f 20 2a 62 69 s) {. BIO *bi
3870: 6f 3b 0a 23 69 66 64 65 66 20 54 43 4c 54 4c 53 o;.#ifdef TCLTLS
3880: 5f 53 53 4c 5f 55 53 45 5f 46 41 53 54 50 41 54 _SSL_USE_FASTPAT
3890: 48 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 H. Tcl_Channe
38a0: 6c 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 3b l parentChannel;
38b0: 0a 20 20 20 20 63 6f 6e 73 74 20 54 63 6c 5f 43 . const Tcl_C
38c0: 68 61 6e 6e 65 6c 54 79 70 65 20 2a 70 61 72 65 hannelType *pare
38d0: 6e 74 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 0a ntChannelType;..
38e0: 20 20 20 20 69 6e 74 20 70 61 72 65 6e 74 43 68 int parentCh
38f0: 61 6e 6e 65 6c 46 64 49 6e 2c 20 70 61 72 65 6e annelFdIn, paren
3900: 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 2c 20 70 tChannelFdOut, p
3910: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 3b 0a arentChannelFd;.
3920: 20 20 20 20 69 6e 74 20 76 61 6c 69 64 50 61 72 int validPar
3930: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 3b 0a 23 65 entChannelFd;.#e
3940: 6e 64 69 66 0a 0a 20 20 20 20 64 70 72 69 6e 74 ndif.. dprint
3950: 66 28 22 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 29 f("BIO_new_tcl()
3960: 20 63 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 called");..
3970: 2f 2a 20 43 72 65 61 74 65 20 63 75 73 74 6f 6d /* Create custom
3980: 20 42 49 4f 20 6d 65 74 68 6f 64 20 2a 2f 0a 20 BIO method */.
3990: 20 20 20 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 if (BioMethod
39a0: 73 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a s == NULL) {../*
39b0: 20 42 49 4f 5f 54 59 50 45 5f 42 49 4f 20 3d 20 BIO_TYPE_BIO =
39c0: 28 31 39 7c 42 49 4f 5f 54 59 50 45 5f 53 4f 55 (19|BIO_TYPE_SOU
39d0: 52 43 45 5f 53 49 4e 4b 29 20 2d 2d 20 68 61 6c RCE_SINK) -- hal
39e0: 66 20 61 20 42 49 4f 20 70 61 69 72 20 2a 2f 0a f a BIO pair */.
39f0: 09 2f 2a 20 63 75 73 74 6f 6d 20 3d 20 42 49 4f ./* custom = BIO
3a00: 5f 67 65 74 5f 6e 65 77 5f 69 6e 64 65 78 28 29 _get_new_index()
3a10: 20 7c 20 42 49 4f 5f 54 59 50 45 5f 53 4f 55 52 | BIO_TYPE_SOUR
3a20: 43 45 5f 53 49 4e 4b 20 2a 2f 0a 09 42 69 6f 4d CE_SINK */..BioM
3a30: 65 74 68 6f 64 73 20 3d 20 42 49 4f 5f 6d 65 74 ethods = BIO_met
3a40: 68 5f 6e 65 77 28 42 49 4f 5f 54 59 50 45 5f 42 h_new(BIO_TYPE_B
3a50: 49 4f 2c 20 22 74 63 6c 22 29 3b 0a 09 69 66 20 IO, "tcl");..if
3a60: 28 42 69 6f 4d 65 74 68 6f 64 73 20 3d 3d 20 4e (BioMethods == N
3a70: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 64 70 72 69 ULL) {.. dpri
3a80: 6e 74 66 28 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f ntf("Memory allo
3a90: 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 29 3b 0a cation error");.
3aa0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 4e 55 4c .. return NUL
3ab0: 4c 3b 0a 09 7d 0a 09 2f 2a 20 4e 6f 74 20 75 73 L;..}../* Not us
3ac0: 65 64 20 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f ed BIO_meth_set_
3ad0: 77 72 69 74 65 5f 65 78 20 2a 2f 0a 09 42 49 4f write_ex */..BIO
3ae0: 5f 6d 65 74 68 5f 73 65 74 5f 77 72 69 74 65 28 _meth_set_write(
3af0: 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 4f BioMethods, BioO
3b00: 75 74 70 75 74 29 3b 0a 09 2f 2a 20 4e 6f 74 20 utput);../* Not
3b10: 75 73 65 64 20 42 49 4f 5f 6d 65 74 68 5f 73 65 used BIO_meth_se
3b20: 74 5f 72 65 61 64 5f 65 78 20 2a 2f 0a 09 42 49 t_read_ex */..BI
3b30: 4f 5f 6d 65 74 68 5f 73 65 74 5f 72 65 61 64 28 O_meth_set_read(
3b40: 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 49 BioMethods, BioI
3b50: 6e 70 75 74 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 nput);..BIO_meth
3b60: 5f 73 65 74 5f 70 75 74 73 28 42 69 6f 4d 65 74 _set_puts(BioMet
3b70: 68 6f 64 73 2c 20 42 69 6f 50 75 74 73 29 3b 0a hods, BioPuts);.
3b80: 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 74 .BIO_meth_set_ct
3b90: 72 6c 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 rl(BioMethods, B
3ba0: 69 6f 43 74 72 6c 29 3b 0a 09 42 49 4f 5f 6d 65 ioCtrl);..BIO_me
3bb0: 74 68 5f 73 65 74 5f 63 72 65 61 74 65 28 42 69 th_set_create(Bi
3bc0: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 4e 65 77 oMethods, BioNew
3bd0: 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 );..BIO_meth_set
3be0: 5f 64 65 73 74 72 6f 79 28 42 69 6f 4d 65 74 68 _destroy(BioMeth
3bf0: 6f 64 73 2c 20 42 69 6f 46 72 65 65 29 3b 0a 20 ods, BioFree);.
3c00: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 }.. if (st
3c10: 61 74 65 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 atePtr == NULL)
3c20: 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 {..dprintf("Aske
3c30: 64 20 74 6f 20 73 65 74 75 70 20 61 20 4e 55 4c d to setup a NUL
3c40: 4c 20 73 74 61 74 65 2c 20 6a 75 73 74 20 63 72 L state, just cr
3c50: 65 61 74 69 6e 67 20 74 68 65 20 69 6e 69 74 69 eating the initi
3c60: 61 6c 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e al configuration
3c70: 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 4e 55 4c ");...return NUL
3c80: 4c 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 64 65 66 L;. }..#ifdef
3c90: 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 55 53 45 5f TCLTLS_SSL_USE_
3ca0: 46 41 53 54 50 41 54 48 0a 20 20 20 20 2f 2a 0a FASTPATH. /*.
3cb0: 20 20 20 20 20 2a 20 49 66 20 74 68 65 20 63 68 * If the ch
3cc0: 61 6e 6e 65 6c 20 63 61 6e 20 62 65 20 6d 61 70 annel can be map
3cd0: 70 65 64 20 62 61 63 6b 20 74 6f 20 61 20 66 69 ped back to a fi
3ce0: 6c 65 20 64 65 73 63 72 69 70 74 6f 72 2c 20 6a le descriptor, j
3cf0: 75 73 74 20 75 73 65 20 74 68 65 20 66 69 6c 65 ust use the file
3d00: 0a 20 20 20 20 20 2a 20 64 65 73 63 72 69 70 74 . * descript
3d10: 6f 72 20 77 69 74 68 20 74 68 65 20 53 53 4c 20 or with the SSL
3d20: 6c 69 62 72 61 72 79 20 73 69 6e 63 65 20 69 74 library since it
3d30: 20 77 69 6c 6c 20 6c 69 6b 65 6c 79 20 62 65 20 will likely be
3d40: 6f 70 74 69 6d 69 7a 65 64 20 66 6f 72 20 74 68 optimized for th
3d50: 69 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 is.. */.
3d60: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 20 3d 20 parentChannel =
3d70: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
3d80: 61 74 65 50 74 72 2c 20 30 29 3b 0a 20 20 20 20 atePtr, 0);.
3d90: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 parentChannelTyp
3da0: 65 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e e = Tcl_GetChann
3db0: 65 6c 54 79 70 65 28 70 61 72 65 6e 74 43 68 61 elType(parentCha
3dc0: 6e 6e 65 6c 29 3b 0a 0a 20 20 20 20 76 61 6c 69 nnel);.. vali
3dd0: 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 dParentChannelFd
3de0: 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 73 74 = 0;. if (st
3df0: 72 63 6d 70 28 70 61 72 65 6e 74 43 68 61 6e 6e rcmp(parentChann
3e00: 65 6c 54 79 70 65 2d 3e 74 79 70 65 4e 61 6d 65 elType->typeName
3e10: 2c 20 22 74 63 70 22 29 20 3d 3d 20 30 29 20 7b , "tcp") == 0) {
3e20: 0a 09 76 6f 69 64 20 2a 70 61 72 65 6e 74 43 68 ..void *parentCh
3e30: 61 6e 6e 65 6c 46 64 49 6e 5f 70 2c 20 2a 70 61 annelFdIn_p, *pa
3e40: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 rentChannelFdOut
3e50: 5f 70 3b 0a 09 69 6e 74 20 74 63 6c 47 65 74 43 _p;..int tclGetC
3e60: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 3b hannelHandleRet;
3e70: 0a 0a 09 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c ...tclGetChannel
3e80: 48 61 6e 64 6c 65 52 65 74 20 3d 20 54 63 6c 5f HandleRet = Tcl_
3e90: 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 GetChannelHandle
3ea0: 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 2c 0a (parentChannel,.
3eb0: 09 20 20 20 20 54 43 4c 5f 52 45 41 44 41 42 4c . TCL_READABL
3ec0: 45 2c 20 26 70 61 72 65 6e 74 43 68 61 6e 6e 65 E, &parentChanne
3ed0: 6c 46 64 49 6e 5f 70 29 3b 0a 09 69 66 20 28 74 lFdIn_p);..if (t
3ee0: 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 clGetChannelHand
3ef0: 6c 65 52 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 leRet == TCL_OK)
3f00: 20 7b 0a 09 20 20 20 20 74 63 6c 47 65 74 43 68 {.. tclGetCh
3f10: 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d annelHandleRet =
3f20: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 Tcl_GetChannelH
3f30: 61 6e 64 6c 65 28 70 61 72 65 6e 74 43 68 61 6e andle(parentChan
3f40: 6e 65 6c 2c 0a 09 20 20 20 20 20 20 20 20 54 43 nel,.. TC
3f50: 4c 5f 57 52 49 54 41 42 4c 45 2c 20 26 70 61 72 L_WRITABLE, &par
3f60: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f entChannelFdOut_
3f70: 70 29 3b 0a 09 20 20 20 20 69 66 20 28 74 63 6c p);.. if (tcl
3f80: 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 GetChannelHandle
3f90: 52 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b Ret == TCL_OK) {
3fa0: 0a 09 09 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c ...parentChannel
3fb0: 46 64 49 6e 20 3d 20 50 54 52 32 49 4e 54 28 70 FdIn = PTR2INT(p
3fc0: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e arentChannelFdIn
3fd0: 5f 70 29 3b 0a 09 09 70 61 72 65 6e 74 43 68 61 _p);...parentCha
3fe0: 6e 6e 65 6c 46 64 4f 75 74 20 3d 20 50 54 52 32 nnelFdOut = PTR2
3ff0: 49 4e 54 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 INT(parentChanne
4000: 6c 46 64 4f 75 74 5f 70 29 3b 0a 09 09 69 66 20 lFdOut_p);...if
4010: 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 (parentChannelFd
4020: 49 6e 20 3d 3d 20 70 61 72 65 6e 74 43 68 61 6e In == parentChan
4030: 6e 65 6c 46 64 4f 75 74 29 20 7b 0a 09 09 20 20 nelFdOut) {...
4040: 20 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 parentChannelF
4050: 64 20 3d 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 d = parentChanne
4060: 6c 46 64 49 6e 3b 0a 09 09 20 20 20 20 76 61 6c lFdIn;... val
4070: 69 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 idParentChannelF
4080: 64 20 3d 20 31 3b 0a 09 09 7d 0a 09 20 20 20 20 d = 1;...}..
4090: 7d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 }..}. }..
40a0: 69 66 20 28 76 61 6c 69 64 50 61 72 65 6e 74 43 if (validParentC
40b0: 68 61 6e 6e 65 6c 46 64 29 20 7b 0a 09 64 70 72 hannelFd) {..dpr
40c0: 69 6e 74 66 28 22 57 65 20 66 6f 75 6e 64 20 61 intf("We found a
40d0: 20 73 68 6f 72 74 63 75 74 2c 20 74 68 69 73 20 shortcut, this
40e0: 63 68 61 6e 6e 65 6c 20 69 73 20 62 61 63 6b 65 channel is backe
40f0: 64 20 62 79 20 61 20 73 6f 63 6b 65 74 3a 20 25 d by a socket: %
4100: 69 22 2c 0a 09 20 20 20 20 70 61 72 65 6e 74 43 i",.. parentC
4110: 68 61 6e 6e 65 6c 46 64 49 6e 29 3b 0a 09 62 69 hannelFdIn);..bi
4120: 6f 20 3d 20 42 49 4f 5f 6e 65 77 5f 73 6f 63 6b o = BIO_new_sock
4130: 65 74 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c et(parentChannel
4140: 46 64 2c 20 66 6c 61 67 73 29 3b 0a 09 73 74 61 Fd, flags);..sta
4150: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
4160: 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 TLS_TCL_FASTPATH
4170: 3b 0a 09 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 ;..BIO_set_data(
4180: 62 69 6f 2c 20 73 74 61 74 65 50 74 72 29 3b 0a bio, statePtr);.
4190: 09 42 49 4f 5f 73 65 74 5f 73 68 75 74 64 6f 77 .BIO_set_shutdow
41a0: 6e 28 62 69 6f 2c 20 66 6c 61 67 73 29 3b 0a 09 n(bio, flags);..
41b0: 42 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f BIO_set_init(bio
41c0: 2c 20 31 29 3b 0a 09 72 65 74 75 72 6e 20 62 69 , 1);..return bi
41d0: 6f 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a o;. }.#endif.
41e0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 46 61 . dprintf("Fa
41f0: 6c 6c 69 6e 67 20 62 61 63 6b 20 74 6f 20 54 63 lling back to Tc
4200: 6c 20 49 2f 4f 20 66 6f 72 20 74 68 69 73 20 63 l I/O for this c
4210: 68 61 6e 6e 65 6c 22 29 3b 0a 0a 20 20 20 20 62 hannel");.. b
4220: 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 28 42 69 6f io = BIO_new(Bio
4230: 4d 65 74 68 6f 64 73 29 3b 0a 20 20 20 20 42 49 Methods);. BI
4240: 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 6f 2c 20 O_set_data(bio,
4250: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 42 statePtr);. B
4260: 49 4f 5f 73 65 74 5f 73 68 75 74 64 6f 77 6e 28 IO_set_shutdown(
4270: 62 69 6f 2c 20 66 6c 61 67 73 29 3b 0a 20 20 20 bio, flags);.
4280: 20 42 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 BIO_set_init(bi
4290: 6f 2c 20 31 29 3b 20 2f 2a 20 45 6e 61 62 6c 65 o, 1); /* Enable
42a0: 20 72 65 61 64 20 26 20 77 72 69 74 65 20 2a 2f read & write */
42b0: 0a 20 20 20 20 72 65 74 75 72 6e 20 62 69 6f 3b . return bio;
42c0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
42d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4310: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 49 4f ------. *. * BIO
4320: 5f 63 6c 65 61 6e 75 70 20 2d 2d 0a 20 2a 0a 20 _cleanup --. *.
4330: 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 *.This function
4340: 69 73 20 75 73 65 64 20 74 6f 20 64 65 73 74 72 is used to destr
4350: 6f 79 20 61 20 42 49 4f 5f 4d 45 54 48 4f 44 20 oy a BIO_METHOD
4360: 73 74 72 75 63 74 75 72 65 20 61 6e 64 20 66 72 structure and fr
4370: 65 65 20 75 70 20 61 6e 79 0a 20 2a 09 6d 65 6d ee up any. *.mem
4380: 6f 72 79 20 61 73 73 6f 63 69 61 74 65 64 20 77 ory associated w
4390: 69 74 68 20 69 74 2e 0a 20 2a 0a 20 2a 20 52 65 ith it.. *. * Re
43a0: 73 75 6c 74 73 3a 0a 20 2a 09 53 74 61 6e 64 61 sults:. *.Standa
43b0: 72 64 20 54 43 4c 20 72 65 73 75 6c 74 0a 20 2a rd TCL result. *
43c0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
43d0: 3a 0a 20 2a 09 44 65 73 74 72 6f 79 73 20 42 49 :. *.Destroys BI
43e0: 4f 20 4d 65 74 68 6f 64 73 2e 0a 20 2a 0a 20 2a O Methods.. *. *
43f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4440: 2f 0a 0a 69 6e 74 20 42 49 4f 5f 63 6c 65 61 6e /..int BIO_clean
4450: 75 70 20 28 29 20 7b 0a 20 20 20 20 64 70 72 69 up () {. dpri
4460: 6e 74 66 28 22 42 49 4f 5f 63 6c 65 61 6e 75 70 ntf("BIO_cleanup
4470: 28 29 20 63 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 () called");..
4480: 20 20 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 if (BioMethods
4490: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 42 49 4f != NULL) {..BIO
44a0: 5f 6d 65 74 68 5f 66 72 65 65 28 42 69 6f 4d 65 _meth_free(BioMe
44b0: 74 68 6f 64 73 29 3b 0a 09 42 69 6f 4d 65 74 68 thods);..BioMeth
44c0: 6f 64 73 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ods = NULL;.
44d0: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
44e0: 5f 4f 4b 3b 0a 7d 0a _OK;.}.