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: 28 69 6e 74 29 6e 75 6d 29 3b 0a 09 09 2f 2a 20 (int)num);.../*
2690: 52 65 74 75 72 6e 73 20 31 20 6f 6e 20 73 75 63 Returns 1 on suc
26a0: 63 65 73 73 20 6f 72 20 3c 3d 30 20 66 6f 72 20 cess or <=0 for
26b0: 66 61 69 6c 75 72 65 2e 20 2a 2f 0a 09 09 72 65 failure. */...re
26c0: 74 20 3d 20 31 3b 0a 09 09 62 72 65 61 6b 3b 0a t = 1;...break;.
26d0: 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 50 .case BIO_CTRL_P
26e0: 45 4e 44 49 4e 47 3a 0a 09 09 2f 2a 20 6f 70 74 ENDING:.../* opt
26f0: 20 2d 20 52 65 74 75 72 6e 20 6e 75 6d 62 65 72 - Return number
2700: 20 6f 66 20 62 79 74 65 73 20 69 6e 20 63 68 61 of bytes in cha
2710: 6e 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 n waiting to be
2720: 72 65 61 64 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 read. Implements
2730: 20 42 49 4f 5f 70 65 6e 64 69 6e 67 2e 20 2a 2f BIO_pending. */
2740: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
2750: 42 49 4f 5f 43 54 52 4c 5f 50 45 4e 44 49 4e 47 BIO_CTRL_PENDING
2760: 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 20 ");.../* Return
2770: 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 70 65 the amount of pe
2780: 6e 64 69 6e 67 20 64 61 74 61 20 6f 72 20 30 20 nding data or 0
2790: 66 6f 72 20 65 72 72 6f 72 2e 20 2a 2f 0a 09 09 for error. */...
27a0: 72 65 74 20 3d 20 28 28 63 68 61 6e 29 20 3f 20 ret = ((chan) ?
27b0: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
27c0: 64 28 63 68 61 6e 29 20 3a 20 30 29 3b 0a 09 09 d(chan) : 0);...
27d0: 64 70 72 69 6e 74 66 28 22 72 62 69 6f 20 70 65 dprintf("rbio pe
27e0: 6e 64 69 6e 67 3d 25 6c 64 22 2c 20 72 65 74 29 nding=%ld", ret)
27f0: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 ;...break;..case
2800: 20 42 49 4f 5f 43 54 52 4c 5f 46 4c 55 53 48 3a BIO_CTRL_FLUSH:
2810: 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 46 6c 75 73 .../* opt - Flus
2820: 68 20 61 6e 79 20 62 75 66 66 65 72 65 64 20 6f h any buffered o
2830: 75 74 70 75 74 2e 20 49 6d 70 6c 65 6d 65 6e 74 utput. Implement
2840: 73 20 42 49 4f 5f 66 6c 75 73 68 2e 20 2a 2f 0a s BIO_flush. */.
2850: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
2860: 49 4f 5f 43 54 52 4c 5f 46 4c 55 53 48 22 29 3b IO_CTRL_FLUSH");
2870: 0a 09 09 2f 2a 20 55 73 65 20 54 63 6c 5f 57 72 .../* Use Tcl_Wr
2880: 69 74 65 52 61 77 20 69 6e 73 74 65 61 64 20 6f iteRaw instead o
2890: 66 20 54 63 6c 5f 46 6c 75 73 68 20 74 6f 20 6f f Tcl_Flush to o
28a0: 70 65 72 61 74 65 20 6f 6e 20 72 69 67 68 74 20 perate on right
28b0: 63 68 61 6e 20 69 6e 20 73 74 61 63 6b 2e 20 2a chan in stack. *
28c0: 2f 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 31 /.../* Returns 1
28d0: 20 66 6f 72 20 73 75 63 63 65 73 73 2c 20 3c 3d for success, <=
28e0: 30 20 66 6f 72 20 65 72 72 6f 72 2f 72 65 74 72 0 for error/retr
28f0: 79 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 28 y. */...ret = ((
2900: 63 68 61 6e 29 20 26 26 20 28 54 63 6c 5f 57 72 chan) && (Tcl_Wr
2910: 69 74 65 52 61 77 28 63 68 61 6e 2c 20 22 22 2c iteRaw(chan, "",
2920: 20 30 29 20 3e 3d 20 30 29 20 3f 20 31 20 3a 20 0) >= 0) ? 1 :
2930: 2d 31 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 -1);...break;..c
2940: 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 44 55 50 ase BIO_CTRL_DUP
2950: 3a 0a 09 09 2f 2a 20 6d 61 6e 20 2d 20 65 78 74 :.../* man - ext
2960: 72 61 20 73 74 75 66 66 20 66 6f 72 20 27 64 75 ra stuff for 'du
2970: 70 65 64 27 20 42 49 4f 2e 20 49 6d 70 6c 65 6d ped' BIO. Implem
2980: 65 6e 74 73 20 42 49 4f 5f 64 75 70 5f 73 74 61 ents BIO_dup_sta
2990: 74 65 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 te. */...dprintf
29a0: 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 44 ("Got BIO_CTRL_D
29b0: 55 50 22 29 3b 0a 09 09 72 65 74 20 3d 20 31 3b UP");...ret = 1;
29c0: 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 ...break;..case
29d0: 42 49 4f 5f 43 54 52 4c 5f 57 50 45 4e 44 49 4e BIO_CTRL_WPENDIN
29e0: 47 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65 G:.../* opt - Re
29f0: 74 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66 20 62 turn number of b
2a00: 79 74 65 73 20 69 6e 20 63 68 61 6e 20 73 74 69 ytes in chan sti
2a10: 6c 6c 20 74 6f 20 62 65 20 77 72 69 74 74 65 6e ll to be written
2a20: 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f . Implements BIO
2a30: 5f 77 70 65 6e 64 69 6e 67 2e 20 2a 2f 0a 09 09 _wpending. */...
2a40: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f dprintf("Got BIO
2a50: 5f 43 54 52 4c 5f 57 50 45 4e 44 49 4e 47 22 29 _CTRL_WPENDING")
2a60: 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 20 74 68 ;.../* Return th
2a70: 65 20 61 6d 6f 75 6e 74 20 6f 66 20 70 65 6e 64 e amount of pend
2a80: 69 6e 67 20 64 61 74 61 20 6f 72 20 30 20 66 6f ing data or 0 fo
2a90: 72 20 65 72 72 6f 72 20 2a 2f 0a 09 09 72 65 74 r error */...ret
2aa0: 20 3d 20 28 28 63 68 61 6e 29 20 3f 20 54 63 6c = ((chan) ? Tcl
2ab0: 5f 4f 75 74 70 75 74 42 75 66 66 65 72 65 64 28 _OutputBuffered(
2ac0: 63 68 61 6e 29 20 3a 20 30 29 3b 0a 09 09 64 70 chan) : 0);...dp
2ad0: 72 69 6e 74 66 28 22 77 62 69 6f 20 70 65 6e 64 rintf("wbio pend
2ae0: 69 6e 67 3d 25 6c 64 22 2c 20 72 65 74 29 3b 0a ing=%ld", ret);.
2af0: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2b00: 49 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 41 4c 4c IO_CTRL_SET_CALL
2b10: 42 41 43 4b 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d BACK:.../* opt -
2b20: 20 53 65 74 73 20 61 6e 20 69 6e 66 6f 72 6d 61 Sets an informa
2b30: 74 69 6f 6e 61 6c 20 63 61 6c 6c 62 61 63 6b 2e tional callback.
2b40: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2b50: 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 set_info_callbac
2b60: 6b 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b k. */...ret = 0;
2b70: 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 ...break;..case
2b80: 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 43 41 4c BIO_CTRL_GET_CAL
2b90: 4c 42 41 43 4b 3a 0a 09 09 2f 2a 20 6f 70 74 20 LBACK:.../* opt
2ba0: 2d 20 47 65 74 20 61 6e 64 20 72 65 74 75 72 6e - Get and return
2bb0: 20 74 68 65 20 69 6e 66 6f 20 63 61 6c 6c 62 61 the info callba
2bc0: 63 6b 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 ck. Implements B
2bd0: 49 4f 5f 67 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c IO_get_info_call
2be0: 62 61 63 6b 2e 20 2a 2f 0a 09 09 72 65 74 20 3d back. */...ret =
2bf0: 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 09 63 0;...break;...c
2c00: 61 73 65 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 ase BIO_C_FILE_S
2c10: 45 45 4b 3a 0a 09 09 2f 2a 20 4e 6f 74 20 75 73 EEK:.../* Not us
2c20: 65 64 20 66 6f 72 20 73 6f 63 6b 65 74 73 2e 20 ed for sockets.
2c30: 54 63 6c 5f 53 65 65 6b 20 6f 6e 6c 79 20 77 6f Tcl_Seek only wo
2c40: 72 6b 73 20 6f 6e 20 74 6f 70 20 63 68 61 6e 2e rks on top chan.
2c50: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2c60: 73 65 65 6b 28 29 2e 20 2a 2f 0a 09 09 64 70 72 seek(). */...dpr
2c70: 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 5f intf("Got BIO_C_
2c80: 46 49 4c 45 5f 53 45 45 4b 22 29 3b 0a 09 09 72 FILE_SEEK");...r
2c90: 65 74 20 3d 20 30 3b 20 2f 2a 20 52 65 74 75 72 et = 0; /* Retur
2ca0: 6e 20 30 20 73 75 63 63 65 73 73 20 61 6e 64 20 n 0 success and
2cb0: 2d 31 20 66 6f 72 20 66 61 69 6c 75 72 65 20 2a -1 for failure *
2cc0: 2f 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 /...break;..case
2cd0: 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 54 45 4c 4c BIO_C_FILE_TELL
2ce0: 3a 0a 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 20 :.../* Not used
2cf0: 66 6f 72 20 73 6f 63 6b 65 74 73 2e 20 54 63 6c for sockets. Tcl
2d00: 5f 54 65 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 73 _Tell only works
2d10: 20 6f 6e 20 74 6f 70 20 63 68 61 6e 2e 20 49 6d on top chan. Im
2d20: 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 74 65 6c plements BIO_tel
2d30: 6c 28 29 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 l(). */...dprint
2d40: 66 28 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 4c f("Got BIO_C_FIL
2d50: 45 5f 54 45 4c 4c 22 29 3b 0a 09 09 72 65 74 20 E_TELL");...ret
2d60: 3d 20 30 3b 20 2f 2a 20 52 65 74 75 72 6e 20 30 = 0; /* Return 0
2d70: 20 73 75 63 63 65 73 73 20 61 6e 64 20 2d 31 20 success and -1
2d80: 66 6f 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 for failure */..
2d90: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 .break;..case BI
2da0: 4f 5f 43 5f 53 45 54 5f 46 44 3a 0a 09 09 2f 2a O_C_SET_FD:.../*
2db0: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2dc0: 73 65 74 5f 66 64 20 2a 2f 0a 09 09 64 70 72 69 set_fd */...dpri
2dd0: 6e 74 66 28 22 55 6e 73 75 70 70 6f 72 74 65 64 ntf("Unsupported
2de0: 20 63 61 6c 6c 3a 20 42 49 4f 5f 43 5f 53 45 54 call: BIO_C_SET
2df0: 5f 46 44 22 29 3b 0a 09 09 72 65 74 20 3d 20 2d _FD");...ret = -
2e00: 31 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 1;...break;..cas
2e10: 65 20 42 49 4f 5f 43 5f 47 45 54 5f 46 44 3a 0a e BIO_C_GET_FD:.
2e20: 09 09 2f 2a 20 49 6d 70 6c 65 6d 65 6e 74 73 20 ../* Implements
2e30: 42 49 4f 5f 67 65 74 5f 66 64 28 29 20 2a 2f 0a BIO_get_fd() */.
2e40: 09 09 64 70 72 69 6e 74 66 28 22 55 6e 73 75 70 ..dprintf("Unsup
2e50: 70 6f 72 74 65 64 20 63 61 6c 6c 3a 20 42 49 4f ported call: BIO
2e60: 5f 43 5f 47 45 54 5f 46 44 22 29 3b 0a 09 09 72 _C_GET_FD");...r
2e70: 65 74 20 3d 20 2d 31 3b 0a 09 09 62 72 65 61 6b et = -1;...break
2e80: 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 ;..#if OPENSSL_V
2e90: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d ERSION_NUMBER >=
2ea0: 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 63 61 0x30000000L..ca
2eb0: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f se BIO_CTRL_GET_
2ec0: 4b 54 4c 53 5f 53 45 4e 44 3a 0a 09 09 2f 2a 20 KTLS_SEND:.../*
2ed0: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 Implements BIO_g
2ee0: 65 74 5f 6b 74 6c 73 5f 73 65 6e 64 20 2a 2f 0a et_ktls_send */.
2ef0: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
2f00: 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 IO_CTRL_GET_KTLS
2f10: 5f 53 45 4e 44 22 29 3b 0a 09 09 2f 2a 20 52 65 _SEND");.../* Re
2f20: 74 75 72 6e 73 20 31 20 69 66 20 74 68 65 20 42 turns 1 if the B
2f30: 49 4f 20 69 73 20 75 73 69 6e 67 20 74 68 65 20 IO is using the
2f40: 4b 65 72 6e 65 6c 20 54 4c 53 20 64 61 74 61 2d Kernel TLS data-
2f50: 70 61 74 68 20 66 6f 72 20 73 65 6e 64 69 6e 67 path for sending
2f60: 2c 20 30 20 69 66 20 6e 6f 74 2e 20 2a 2f 0a 09 , 0 if not. */..
2f70: 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 .ret = 0;...brea
2f80: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
2f90: 4c 5f 47 45 54 5f 4b 54 4c 53 5f 52 45 43 56 3a L_GET_KTLS_RECV:
2fa0: 0a 09 09 2f 2a 20 49 6d 70 6c 65 6d 65 6e 74 73 .../* Implements
2fb0: 20 42 49 4f 5f 67 65 74 5f 6b 74 6c 73 5f 72 65 BIO_get_ktls_re
2fc0: 63 76 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 cv */...dprintf(
2fd0: 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 47 45 "Got BIO_CTRL_GE
2fe0: 54 5f 4b 54 4c 53 5f 52 45 43 56 22 29 3b 0a 09 T_KTLS_RECV");..
2ff0: 09 2f 2a 20 52 65 74 75 72 6e 73 20 31 20 69 66 ./* Returns 1 if
3000: 20 74 68 65 20 42 49 4f 20 69 73 20 75 73 69 6e the BIO is usin
3010: 67 20 74 68 65 20 4b 65 72 6e 65 6c 20 54 4c 53 g the Kernel TLS
3020: 20 64 61 74 61 2d 70 61 74 68 20 66 6f 72 20 72 data-path for r
3030: 65 63 65 69 76 69 6e 67 2c 20 30 20 69 66 20 6e eceiving, 0 if n
3040: 6f 74 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 ot. */...ret = 0
3050: 3b 0a 09 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 ;...break;.#endi
3060: 66 0a 09 64 65 66 61 75 6c 74 3a 0a 09 09 64 70 f..default:...dp
3070: 72 69 6e 74 66 28 22 47 6f 74 20 75 6e 6b 6e 6f rintf("Got unkno
3080: 77 6e 20 63 6f 6e 74 72 6f 6c 20 63 6f 6d 6d 61 wn control comma
3090: 6e 64 20 28 25 69 29 22 2c 20 63 6d 64 29 3b 0a nd (%i)", cmd);.
30a0: 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 ..ret = 0;...bre
30b0: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 70 ak;. }. dp
30c0: 72 69 6e 74 66 28 22 42 69 6f 43 74 72 6c 20 72 rintf("BioCtrl r
30d0: 65 74 75 72 6e 20 76 61 6c 75 65 20 25 6c 69 22 eturn value %li"
30e0: 2c 20 72 65 74 29 3b 0a 20 20 20 20 72 65 74 75 , ret);. retu
30f0: 72 6e 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a rn ret;.}../*. *
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 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3150: 0a 20 2a 20 42 69 6f 4e 65 77 20 2d 2d 0a 20 2a . * BioNew --. *
3160: 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f . *.This functio
3170: 6e 20 69 73 20 75 73 65 64 20 74 6f 20 63 72 65 n is used to cre
3180: 61 74 65 20 61 20 6e 65 77 20 69 6e 73 74 61 6e ate a new instan
3190: 63 65 20 6f 66 20 74 68 65 20 42 49 4f 2e 20 54 ce of the BIO. T
31a0: 68 69 73 0a 20 2a 09 66 75 6e 63 74 69 6f 6e 20 his. *.function
31b0: 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69 will be called i
31c0: 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f 20 74 68 n response to th
31d0: 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 61 e application ca
31e0: 6c 6c 69 6e 67 20 74 68 65 0a 20 2a 09 42 49 4f lling the. *.BIO
31f0: 5f 6e 65 77 28 29 20 66 75 6e 63 74 69 6f 6e 2e _new() function.
3200: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
3210: 20 2a 09 52 65 74 75 72 6e 73 20 62 6f 6f 6c 65 *.Returns boole
3220: 61 6e 20 73 75 63 63 65 73 73 20 72 65 73 75 6c an success resul
3230: 74 20 28 31 3d 73 75 63 63 65 73 73 2c 20 30 3d t (1=success, 0=
3240: 66 61 69 6c 75 72 65 29 2e 0a 20 2a 0a 20 2a 20 failure).. *. *
3250: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
3260: 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 42 49 4f .Initializes BIO
3270: 20 73 74 72 75 63 74 75 72 65 2e 0a 20 2a 0a 20 structure.. *.
3280: 2a 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 2d 2d 2d 2d 2d 0a 20 --------------.
32d0: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 */..static int B
32e0: 69 6f 4e 65 77 28 42 49 4f 20 2a 62 69 6f 29 20 ioNew(BIO *bio)
32f0: 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 {. dprintf("B
3300: 69 6f 4e 65 77 28 25 70 29 20 63 61 6c 6c 65 64 ioNew(%p) called
3310: 22 2c 20 62 69 6f 29 3b 0a 0a 20 20 20 20 69 66 ", bio);.. if
3320: 20 28 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b (bio == NULL) {
3330: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ..return 0;.
3340: 7d 0a 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 64 }.. BIO_set_d
3350: 61 74 61 28 62 69 6f 2c 20 4e 55 4c 4c 29 3b 0a ata(bio, NULL);.
3360: 20 20 20 20 42 49 4f 5f 73 65 74 5f 69 6e 69 74 BIO_set_init
3370: 28 62 69 6f 2c 20 30 29 3b 0a 20 20 20 20 42 49 (bio, 0);. BI
3380: 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 62 69 O_clear_flags(bi
3390: 6f 2c 20 2d 31 29 3b 0a 20 20 20 20 72 65 74 75 o, -1);. retu
33a0: 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d rn 1;.}../*. *--
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 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
3400: 2a 20 42 69 6f 46 72 65 65 20 2d 2d 0a 20 2a 0a * BioFree --. *.
3410: 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e *.This function
3420: 20 69 73 20 75 73 65 64 20 74 6f 20 64 65 73 74 is used to dest
3430: 72 6f 79 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 roy an instance
3440: 6f 66 20 61 20 42 49 4f 2e 20 54 68 69 73 20 66 of a BIO. This f
3450: 75 6e 63 74 69 6f 6e 0a 20 2a 09 77 69 6c 6c 20 unction. *.will
3460: 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 be called in res
3470: 70 6f 6e 73 65 20 74 6f 20 74 68 65 20 61 70 70 ponse to the app
3480: 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 lication calling
3490: 20 74 68 65 20 42 49 4f 5f 66 72 65 65 28 29 0a the BIO_free().
34a0: 20 2a 09 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a *.function.. *.
34b0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 * Results:. *.R
34c0: 65 74 75 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 73 eturns boolean s
34d0: 75 63 63 65 73 73 20 72 65 73 75 6c 74 20 28 31 uccess result (1
34e0: 3d 73 75 63 63 65 73 73 2c 20 30 3d 66 61 69 6c =success, 0=fail
34f0: 75 72 65 29 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 ure).. *. * Side
3500: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 44 65 2d effects:. *.De-
3510: 69 6e 69 74 69 61 6c 69 7a 65 73 20 42 49 4f 20 initializes BIO
3520: 73 74 72 75 63 74 75 72 65 2e 0a 20 2a 0a 20 2a structure.. *. *
3530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3580: 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 /..static int Bi
3590: 6f 46 72 65 65 28 42 49 4f 20 2a 62 69 6f 29 20 oFree(BIO *bio)
35a0: 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 {. dprintf("B
35b0: 69 6f 46 72 65 65 28 25 70 29 20 63 61 6c 6c 65 ioFree(%p) calle
35c0: 64 22 2c 20 62 69 6f 29 3b 0a 0a 20 20 20 20 69 d", bio);.. i
35d0: 66 20 28 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 20 f (bio == NULL)
35e0: 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 {..return 0;.
35f0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 }.. /* Clear
3600: 20 66 6c 61 67 73 20 69 66 20 73 65 74 20 74 6f flags if set to
3610: 20 42 49 4f 5f 43 4c 4f 53 45 20 28 63 6c 6f 73 BIO_CLOSE (clos
3620: 65 20 49 2f 4f 20 73 74 72 65 61 6d 20 77 68 65 e I/O stream whe
3630: 6e 20 74 68 65 20 42 49 4f 20 69 73 20 66 72 65 n the BIO is fre
3640: 65 64 29 20 2a 2f 0a 20 20 20 20 69 66 20 28 42 ed) */. if (B
3650: 49 4f 5f 67 65 74 5f 73 68 75 74 64 6f 77 6e 28 IO_get_shutdown(
3660: 62 69 6f 29 29 20 7b 0a 09 42 49 4f 5f 73 65 74 bio)) {..BIO_set
3670: 5f 64 61 74 61 28 62 69 6f 2c 20 4e 55 4c 4c 29 _data(bio, NULL)
3680: 3b 0a 09 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 ;..BIO_clear_fla
3690: 67 73 28 62 69 6f 2c 20 2d 31 29 3b 0a 09 42 49 gs(bio, -1);..BI
36a0: 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 O_set_init(bio,
36b0: 30 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 0);. }. re
36c0: 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a turn 1;.}../*. *
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3720: 0a 20 2a 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 20 . * BIO_new_tcl
3730: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 --. *. *.This fu
3740: 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 nction is used t
3750: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 o initialize the
3760: 20 42 49 4f 20 6d 65 74 68 6f 64 20 68 61 6e 64 BIO method hand
3770: 6c 65 72 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 lers.. *. * Resu
3780: 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 lts:. *.Returns
3790: 70 6f 69 6e 74 65 72 20 74 6f 20 42 49 4f 20 6f pointer to BIO o
37a0: 72 20 4e 55 4c 4c 20 66 6f 72 20 66 61 69 6c 75 r NULL for failu
37b0: 72 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 re. *. * Side ef
37c0: 66 65 63 74 73 3a 0a 20 2a 09 49 6e 69 74 69 61 fects:. *.Initia
37d0: 6c 69 7a 65 73 20 42 49 4f 20 4d 65 74 68 6f 64 lizes BIO Method
37e0: 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d s.. *. *--------
37f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3830: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 42 49 4f 20 2a -----. */..BIO *
3840: 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 53 74 61 74 BIO_new_tcl(Stat
3850: 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 e *statePtr, int
3860: 20 66 6c 61 67 73 29 20 7b 0a 20 20 20 20 42 49 flags) {. BI
3870: 4f 20 2a 62 69 6f 3b 0a 23 69 66 64 65 66 20 54 O *bio;.#ifdef T
3880: 43 4c 54 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41 CLTLS_SSL_USE_FA
3890: 53 54 50 41 54 48 0a 20 20 20 20 54 63 6c 5f 43 STPATH. Tcl_C
38a0: 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 43 68 61 hannel parentCha
38b0: 6e 6e 65 6c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 nnel;. const
38c0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 Tcl_ChannelType
38d0: 2a 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 *parentChannelTy
38e0: 70 65 3b 0a 0a 20 20 20 20 69 6e 74 20 70 61 72 pe;.. int par
38f0: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 2c 20 entChannelFdIn,
3900: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f parentChannelFdO
3910: 75 74 2c 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 ut, parentChanne
3920: 6c 46 64 3b 0a 20 20 20 20 69 6e 74 20 76 61 6c lFd;. int val
3930: 69 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 idParentChannelF
3940: 64 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 64 d;.#endif.. d
3950: 70 72 69 6e 74 66 28 22 42 49 4f 5f 6e 65 77 5f printf("BIO_new_
3960: 74 63 6c 28 29 20 63 61 6c 6c 65 64 22 29 3b 0a tcl() called");.
3970: 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 63 . /* Create c
3980: 75 73 74 6f 6d 20 42 49 4f 20 6d 65 74 68 6f 64 ustom BIO method
3990: 20 2a 2f 0a 20 20 20 20 69 66 20 28 42 69 6f 4d */. if (BioM
39a0: 65 74 68 6f 64 73 20 3d 3d 20 4e 55 4c 4c 29 20 ethods == NULL)
39b0: 7b 0a 09 2f 2a 20 42 49 4f 5f 54 59 50 45 5f 42 {../* BIO_TYPE_B
39c0: 49 4f 20 3d 20 28 31 39 7c 42 49 4f 5f 54 59 50 IO = (19|BIO_TYP
39d0: 45 5f 53 4f 55 52 43 45 5f 53 49 4e 4b 29 20 2d E_SOURCE_SINK) -
39e0: 2d 20 68 61 6c 66 20 61 20 42 49 4f 20 70 61 69 - half a BIO pai
39f0: 72 20 2a 2f 0a 09 2f 2a 20 63 75 73 74 6f 6d 20 r */../* custom
3a00: 3d 20 42 49 4f 5f 67 65 74 5f 6e 65 77 5f 69 6e = BIO_get_new_in
3a10: 64 65 78 28 29 20 7c 20 42 49 4f 5f 54 59 50 45 dex() | BIO_TYPE
3a20: 5f 53 4f 55 52 43 45 5f 53 49 4e 4b 20 2a 2f 0a _SOURCE_SINK */.
3a30: 09 42 69 6f 4d 65 74 68 6f 64 73 20 3d 20 42 49 .BioMethods = BI
3a40: 4f 5f 6d 65 74 68 5f 6e 65 77 28 42 49 4f 5f 54 O_meth_new(BIO_T
3a50: 59 50 45 5f 42 49 4f 2c 20 22 74 63 6c 22 29 3b YPE_BIO, "tcl");
3a60: 0a 09 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 ..if (BioMethods
3a70: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 == NULL) {..
3a80: 20 64 70 72 69 6e 74 66 28 22 4d 65 6d 6f 72 79 dprintf("Memory
3a90: 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f allocation erro
3aa0: 72 22 29 3b 0a 0a 09 20 20 20 20 72 65 74 75 72 r");... retur
3ab0: 6e 20 4e 55 4c 4c 3b 0a 09 7d 0a 09 2f 2a 20 4e n NULL;..}../* N
3ac0: 6f 74 20 75 73 65 64 20 42 49 4f 5f 6d 65 74 68 ot used BIO_meth
3ad0: 5f 73 65 74 5f 77 72 69 74 65 5f 65 78 20 2a 2f _set_write_ex */
3ae0: 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 77 ..BIO_meth_set_w
3af0: 72 69 74 65 28 42 69 6f 4d 65 74 68 6f 64 73 2c rite(BioMethods,
3b00: 20 42 69 6f 4f 75 74 70 75 74 29 3b 0a 09 2f 2a BioOutput);../*
3b10: 20 4e 6f 74 20 75 73 65 64 20 42 49 4f 5f 6d 65 Not used BIO_me
3b20: 74 68 5f 73 65 74 5f 72 65 61 64 5f 65 78 20 2a th_set_read_ex *
3b30: 2f 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f /..BIO_meth_set_
3b40: 72 65 61 64 28 42 69 6f 4d 65 74 68 6f 64 73 2c read(BioMethods,
3b50: 20 42 69 6f 49 6e 70 75 74 29 3b 0a 09 42 49 4f BioInput);..BIO
3b60: 5f 6d 65 74 68 5f 73 65 74 5f 70 75 74 73 28 42 _meth_set_puts(B
3b70: 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 50 75 ioMethods, BioPu
3b80: 74 73 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 ts);..BIO_meth_s
3b90: 65 74 5f 63 74 72 6c 28 42 69 6f 4d 65 74 68 6f et_ctrl(BioMetho
3ba0: 64 73 2c 20 42 69 6f 43 74 72 6c 29 3b 0a 09 42 ds, BioCtrl);..B
3bb0: 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 72 65 61 IO_meth_set_crea
3bc0: 74 65 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 te(BioMethods, B
3bd0: 69 6f 4e 65 77 29 3b 0a 09 42 49 4f 5f 6d 65 74 ioNew);..BIO_met
3be0: 68 5f 73 65 74 5f 64 65 73 74 72 6f 79 28 42 69 h_set_destroy(Bi
3bf0: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 46 72 65 oMethods, BioFre
3c00: 65 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 e);. }.. i
3c10: 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 4e f (statePtr == N
3c20: 55 4c 4c 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 ULL) {..dprintf(
3c30: 22 41 73 6b 65 64 20 74 6f 20 73 65 74 75 70 20 "Asked to setup
3c40: 61 20 4e 55 4c 4c 20 73 74 61 74 65 2c 20 6a 75 a NULL state, ju
3c50: 73 74 20 63 72 65 61 74 69 6e 67 20 74 68 65 20 st creating the
3c60: 69 6e 69 74 69 61 6c 20 63 6f 6e 66 69 67 75 72 initial configur
3c70: 61 74 69 6f 6e 22 29 3b 0a 0a 09 72 65 74 75 72 ation");...retur
3c80: 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 23 n NULL;. }..#
3c90: 69 66 64 65 66 20 54 43 4c 54 4c 53 5f 53 53 4c ifdef TCLTLS_SSL
3ca0: 5f 55 53 45 5f 46 41 53 54 50 41 54 48 0a 20 20 _USE_FASTPATH.
3cb0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 49 66 20 74 /*. * If t
3cc0: 68 65 20 63 68 61 6e 6e 65 6c 20 63 61 6e 20 62 he channel can b
3cd0: 65 20 6d 61 70 70 65 64 20 62 61 63 6b 20 74 6f e mapped back to
3ce0: 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 a file descript
3cf0: 6f 72 2c 20 6a 75 73 74 20 75 73 65 20 74 68 65 or, just use the
3d00: 20 66 69 6c 65 0a 20 20 20 20 20 2a 20 64 65 73 file. * des
3d10: 63 72 69 70 74 6f 72 20 77 69 74 68 20 74 68 65 criptor with the
3d20: 20 53 53 4c 20 6c 69 62 72 61 72 79 20 73 69 6e SSL library sin
3d30: 63 65 20 69 74 20 77 69 6c 6c 20 6c 69 6b 65 6c ce it will likel
3d40: 79 20 62 65 20 6f 70 74 69 6d 69 7a 65 64 20 66 y be optimized f
3d50: 6f 72 20 74 68 69 73 2e 0a 20 20 20 20 20 2a 2f or this.. */
3d60: 0a 20 20 20 20 70 61 72 65 6e 74 43 68 61 6e 6e . parentChann
3d70: 65 6c 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 el = Tls_GetPare
3d80: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 30 29 3b nt(statePtr, 0);
3d90: 0a 20 20 20 20 70 61 72 65 6e 74 43 68 61 6e 6e . parentChann
3da0: 65 6c 54 79 70 65 20 3d 20 54 63 6c 5f 47 65 74 elType = Tcl_Get
3db0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 ChannelType(pare
3dc0: 6e 74 43 68 61 6e 6e 65 6c 29 3b 0a 0a 20 20 20 ntChannel);..
3dd0: 20 76 61 6c 69 64 50 61 72 65 6e 74 43 68 61 6e validParentChan
3de0: 6e 65 6c 46 64 20 3d 20 30 3b 0a 20 20 20 20 69 nelFd = 0;. i
3df0: 66 20 28 73 74 72 63 6d 70 28 70 61 72 65 6e 74 f (strcmp(parent
3e00: 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 74 79 70 ChannelType->typ
3e10: 65 4e 61 6d 65 2c 20 22 74 63 70 22 29 20 3d 3d eName, "tcp") ==
3e20: 20 30 29 20 7b 0a 09 76 6f 69 64 20 2a 70 61 72 0) {..void *par
3e30: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 entChannelFdIn_p
3e40: 2c 20 2a 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c , *parentChannel
3e50: 46 64 4f 75 74 5f 70 3b 0a 09 69 6e 74 20 74 63 FdOut_p;..int tc
3e60: 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c lGetChannelHandl
3e70: 65 52 65 74 3b 0a 0a 09 74 63 6c 47 65 74 43 68 eRet;...tclGetCh
3e80: 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d annelHandleRet =
3e90: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 Tcl_GetChannelH
3ea0: 61 6e 64 6c 65 28 70 61 72 65 6e 74 43 68 61 6e andle(parentChan
3eb0: 6e 65 6c 2c 0a 09 20 20 20 20 54 43 4c 5f 52 45 nel,.. TCL_RE
3ec0: 41 44 41 42 4c 45 2c 20 26 70 61 72 65 6e 74 43 ADABLE, &parentC
3ed0: 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 29 3b 0a 09 hannelFdIn_p);..
3ee0: 69 66 20 28 74 63 6c 47 65 74 43 68 61 6e 6e 65 if (tclGetChanne
3ef0: 6c 48 61 6e 64 6c 65 52 65 74 20 3d 3d 20 54 43 lHandleRet == TC
3f00: 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 74 63 6c L_OK) {.. tcl
3f10: 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 GetChannelHandle
3f20: 52 65 74 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 Ret = Tcl_GetCha
3f30: 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 61 72 65 6e nnelHandle(paren
3f40: 74 43 68 61 6e 6e 65 6c 2c 0a 09 20 20 20 20 20 tChannel,..
3f50: 20 20 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 2c TCL_WRITABLE,
3f60: 20 26 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 &parentChannelF
3f70: 64 4f 75 74 5f 70 29 3b 0a 09 20 20 20 20 69 66 dOut_p);.. if
3f80: 20 28 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 (tclGetChannelH
3f90: 61 6e 64 6c 65 52 65 74 20 3d 3d 20 54 43 4c 5f andleRet == TCL_
3fa0: 4f 4b 29 20 7b 0a 09 09 70 61 72 65 6e 74 43 68 OK) {...parentCh
3fb0: 61 6e 6e 65 6c 46 64 49 6e 20 3d 20 50 54 52 32 annelFdIn = PTR2
3fc0: 49 4e 54 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 INT(parentChanne
3fd0: 6c 46 64 49 6e 5f 70 29 3b 0a 09 09 70 61 72 65 lFdIn_p);...pare
3fe0: 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 20 3d ntChannelFdOut =
3ff0: 20 50 54 52 32 49 4e 54 28 70 61 72 65 6e 74 43 PTR2INT(parentC
4000: 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70 29 3b 0a hannelFdOut_p);.
4010: 09 09 69 66 20 28 70 61 72 65 6e 74 43 68 61 6e ..if (parentChan
4020: 6e 65 6c 46 64 49 6e 20 3d 3d 20 70 61 72 65 6e nelFdIn == paren
4030: 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 29 20 7b tChannelFdOut) {
4040: 0a 09 09 20 20 20 20 70 61 72 65 6e 74 43 68 61 ... parentCha
4050: 6e 6e 65 6c 46 64 20 3d 20 70 61 72 65 6e 74 43 nnelFd = parentC
4060: 68 61 6e 6e 65 6c 46 64 49 6e 3b 0a 09 09 20 20 hannelFdIn;...
4070: 20 20 76 61 6c 69 64 50 61 72 65 6e 74 43 68 61 validParentCha
4080: 6e 6e 65 6c 46 64 20 3d 20 31 3b 0a 09 09 7d 0a nnelFd = 1;...}.
4090: 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a . }..}. }.
40a0: 0a 20 20 20 20 69 66 20 28 76 61 6c 69 64 50 61 . if (validPa
40b0: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 29 20 7b rentChannelFd) {
40c0: 0a 09 64 70 72 69 6e 74 66 28 22 57 65 20 66 6f ..dprintf("We fo
40d0: 75 6e 64 20 61 20 73 68 6f 72 74 63 75 74 2c 20 und a shortcut,
40e0: 74 68 69 73 20 63 68 61 6e 6e 65 6c 20 69 73 20 this channel is
40f0: 62 61 63 6b 65 64 20 62 79 20 61 20 73 6f 63 6b backed by a sock
4100: 65 74 3a 20 25 69 22 2c 0a 09 20 20 20 20 70 61 et: %i",.. pa
4110: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 29 rentChannelFdIn)
4120: 3b 0a 09 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 ;..bio = BIO_new
4130: 5f 73 6f 63 6b 65 74 28 70 61 72 65 6e 74 43 68 _socket(parentCh
4140: 61 6e 6e 65 6c 46 64 2c 20 66 6c 61 67 73 29 3b annelFd, flags);
4150: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
4160: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 53 s |= TLS_TCL_FAS
4170: 54 50 41 54 48 3b 0a 09 42 49 4f 5f 73 65 74 5f TPATH;..BIO_set_
4180: 64 61 74 61 28 62 69 6f 2c 20 73 74 61 74 65 50 data(bio, stateP
4190: 74 72 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 73 68 tr);..BIO_set_sh
41a0: 75 74 64 6f 77 6e 28 62 69 6f 2c 20 66 6c 61 67 utdown(bio, flag
41b0: 73 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 69 6e 69 s);..BIO_set_ini
41c0: 74 28 62 69 6f 2c 20 31 29 3b 0a 09 72 65 74 75 t(bio, 1);..retu
41d0: 72 6e 20 62 69 6f 3b 0a 20 20 20 20 7d 0a 23 65 rn bio;. }.#e
41e0: 6e 64 69 66 0a 0a 20 20 20 20 64 70 72 69 6e 74 ndif.. dprint
41f0: 66 28 22 46 61 6c 6c 69 6e 67 20 62 61 63 6b 20 f("Falling back
4200: 74 6f 20 54 63 6c 20 49 2f 4f 20 66 6f 72 20 74 to Tcl I/O for t
4210: 68 69 73 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 0a his channel");..
4220: 20 20 20 20 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 bio = BIO_ne
4230: 77 28 42 69 6f 4d 65 74 68 6f 64 73 29 3b 0a 20 w(BioMethods);.
4240: 20 20 20 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 BIO_set_data(
4250: 62 69 6f 2c 20 73 74 61 74 65 50 74 72 29 3b 0a bio, statePtr);.
4260: 20 20 20 20 42 49 4f 5f 73 65 74 5f 73 68 75 74 BIO_set_shut
4270: 64 6f 77 6e 28 62 69 6f 2c 20 66 6c 61 67 73 29 down(bio, flags)
4280: 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 69 6e ;. BIO_set_in
4290: 69 74 28 62 69 6f 2c 20 31 29 3b 20 2f 2a 20 45 it(bio, 1); /* E
42a0: 6e 61 62 6c 65 20 72 65 61 64 20 26 20 77 72 69 nable read & wri
42b0: 74 65 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e te */. return
42c0: 20 62 69 6f 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d bio;.}../*. *--
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 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
4320: 2a 20 42 49 4f 5f 63 6c 65 61 6e 75 70 20 2d 2d * BIO_cleanup --
4330: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
4340: 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 tion is used to
4350: 64 65 73 74 72 6f 79 20 61 20 42 49 4f 5f 4d 45 destroy a BIO_ME
4360: 54 48 4f 44 20 73 74 72 75 63 74 75 72 65 20 61 THOD structure a
4370: 6e 64 20 66 72 65 65 20 75 70 20 61 6e 79 0a 20 nd free up any.
4380: 2a 09 6d 65 6d 6f 72 79 20 61 73 73 6f 63 69 61 *.memory associa
4390: 74 65 64 20 77 69 74 68 20 69 74 2e 0a 20 2a 0a ted with it.. *.
43a0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 53 * Results:. *.S
43b0: 74 61 6e 64 61 72 64 20 54 43 4c 20 72 65 73 75 tandard TCL resu
43c0: 6c 74 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 lt. *. * Side ef
43d0: 66 65 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 6f fects:. *.Destro
43e0: 79 73 20 42 49 4f 20 4d 65 74 68 6f 64 73 2e 0a ys BIO Methods..
43f0: 20 2a 0a 20 2a 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 2d 2d 2d ----------------
4440: 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 20 42 49 4f 5f --. */..int BIO_
4450: 63 6c 65 61 6e 75 70 20 28 29 20 7b 0a 20 20 20 cleanup () {.
4460: 20 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 63 6c dprintf("BIO_cl
4470: 65 61 6e 75 70 28 29 20 63 61 6c 6c 65 64 22 29 eanup() called")
4480: 3b 0a 0a 20 20 20 20 69 66 20 28 42 69 6f 4d 65 ;.. if (BioMe
4490: 74 68 6f 64 73 20 21 3d 20 4e 55 4c 4c 29 20 7b thods != NULL) {
44a0: 0a 09 42 49 4f 5f 6d 65 74 68 5f 66 72 65 65 28 ..BIO_meth_free(
44b0: 42 69 6f 4d 65 74 68 6f 64 73 29 3b 0a 09 42 69 BioMethods);..Bi
44c0: 6f 4d 65 74 68 6f 64 73 20 3d 20 4e 55 4c 4c 3b oMethods = NULL;
44d0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
44e0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a n TCL_OK;.}.