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 64 22 2c 20 72 65 74 29 3b 0a 09 09 62 72 =%d", ret);...br
27f0: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
2800: 54 52 4c 5f 46 4c 55 53 48 3a 0a 09 09 2f 2a 20 TRL_FLUSH:.../*
2810: 6f 70 74 20 2d 20 46 6c 75 73 68 20 61 6e 79 20 opt - Flush any
2820: 62 75 66 66 65 72 65 64 20 6f 75 74 70 75 74 2e buffered output.
2830: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f Implements BIO_
2840: 66 6c 75 73 68 2e 20 2a 2f 0a 09 09 64 70 72 69 flush. */...dpri
2850: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
2860: 4c 5f 46 4c 55 53 48 22 29 3b 0a 09 09 2f 2a 20 L_FLUSH");.../*
2870: 55 73 65 20 54 63 6c 5f 57 72 69 74 65 52 61 77 Use Tcl_WriteRaw
2880: 20 69 6e 73 74 65 61 64 20 6f 66 20 54 63 6c 5f instead of Tcl_
2890: 46 6c 75 73 68 20 74 6f 20 6f 70 65 72 61 74 65 Flush to operate
28a0: 20 6f 6e 20 72 69 67 68 74 20 63 68 61 6e 20 69 on right chan i
28b0: 6e 20 73 74 61 63 6b 2e 20 2a 2f 0a 09 09 2f 2a n stack. */.../*
28c0: 20 52 65 74 75 72 6e 73 20 31 20 66 6f 72 20 73 Returns 1 for s
28d0: 75 63 63 65 73 73 2c 20 3c 3d 30 20 66 6f 72 20 uccess, <=0 for
28e0: 65 72 72 6f 72 2f 72 65 74 72 79 2e 20 2a 2f 0a error/retry. */.
28f0: 09 09 72 65 74 20 3d 20 28 28 63 68 61 6e 29 20 ..ret = ((chan)
2900: 26 26 20 28 54 63 6c 5f 57 72 69 74 65 52 61 77 && (Tcl_WriteRaw
2910: 28 63 68 61 6e 2c 20 22 22 2c 20 30 29 20 3e 3d (chan, "", 0) >=
2920: 20 30 29 20 3f 20 31 20 3a 20 2d 31 29 3b 0a 09 0) ? 1 : -1);..
2930: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 .break;..case BI
2940: 4f 5f 43 54 52 4c 5f 44 55 50 3a 0a 09 09 2f 2a O_CTRL_DUP:.../*
2950: 20 6d 61 6e 20 2d 20 65 78 74 72 61 20 73 74 75 man - extra stu
2960: 66 66 20 66 6f 72 20 27 64 75 70 65 64 27 20 42 ff for 'duped' B
2970: 49 4f 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 IO. Implements B
2980: 49 4f 5f 64 75 70 5f 73 74 61 74 65 2e 20 2a 2f IO_dup_state. */
2990: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
29a0: 42 49 4f 5f 43 54 52 4c 5f 44 55 50 22 29 3b 0a BIO_CTRL_DUP");.
29b0: 09 09 72 65 74 20 3d 20 31 3b 0a 09 09 62 72 65 ..ret = 1;...bre
29c0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 ak;..case BIO_CT
29d0: 52 4c 5f 57 50 45 4e 44 49 4e 47 3a 0a 09 09 2f RL_WPENDING:.../
29e0: 2a 20 6f 70 74 20 2d 20 52 65 74 75 72 6e 20 6e * opt - Return n
29f0: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 umber of bytes i
2a00: 6e 20 63 68 61 6e 20 73 74 69 6c 6c 20 74 6f 20 n chan still to
2a10: 62 65 20 77 72 69 74 74 65 6e 2e 20 49 6d 70 6c be written. Impl
2a20: 65 6d 65 6e 74 73 20 42 49 4f 5f 77 70 65 6e 64 ements BIO_wpend
2a30: 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 ing. */...dprint
2a40: 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f f("Got BIO_CTRL_
2a50: 57 50 45 4e 44 49 4e 47 22 29 3b 0a 09 09 2f 2a WPENDING");.../*
2a60: 20 52 65 74 75 72 6e 20 74 68 65 20 61 6d 6f 75 Return the amou
2a70: 6e 74 20 6f 66 20 70 65 6e 64 69 6e 67 20 64 61 nt of pending da
2a80: 74 61 20 6f 72 20 30 20 66 6f 72 20 65 72 72 6f ta or 0 for erro
2a90: 72 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 28 63 r */...ret = ((c
2aa0: 68 61 6e 29 20 3f 20 54 63 6c 5f 4f 75 74 70 75 han) ? Tcl_Outpu
2ab0: 74 42 75 66 66 65 72 65 64 28 63 68 61 6e 29 20 tBuffered(chan)
2ac0: 3a 20 30 29 3b 0a 09 09 64 70 72 69 6e 74 66 28 : 0);...dprintf(
2ad0: 22 77 62 69 6f 20 70 65 6e 64 69 6e 67 3d 25 64 "wbio pending=%d
2ae0: 22 2c 20 72 65 74 29 3b 0a 09 09 62 72 65 61 6b ", ret);...break
2af0: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c ;..case BIO_CTRL
2b00: 5f 53 45 54 5f 43 41 4c 4c 42 41 43 4b 3a 0a 09 _SET_CALLBACK:..
2b10: 09 2f 2a 20 6f 70 74 20 2d 20 53 65 74 73 20 61 ./* opt - Sets a
2b20: 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 61 6c 20 n informational
2b30: 63 61 6c 6c 62 61 63 6b 2e 20 49 6d 70 6c 65 6d callback. Implem
2b40: 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 69 6e 66 ents BIO_set_inf
2b50: 6f 5f 63 61 6c 6c 62 61 63 6b 2e 20 2a 2f 0a 09 o_callback. */..
2b60: 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 .ret = 0;...brea
2b70: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
2b80: 4c 5f 47 45 54 5f 43 41 4c 4c 42 41 43 4b 3a 0a L_GET_CALLBACK:.
2b90: 09 09 2f 2a 20 6f 70 74 20 2d 20 47 65 74 20 61 ../* opt - Get a
2ba0: 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e nd return the in
2bb0: 66 6f 20 63 61 6c 6c 62 61 63 6b 2e 20 49 6d 70 fo callback. Imp
2bc0: 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f lements BIO_get_
2bd0: 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 2e 20 2a info_callback. *
2be0: 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 /...ret = 0;...b
2bf0: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 42 49 4f reak;...case BIO
2c00: 5f 43 5f 46 49 4c 45 5f 53 45 45 4b 3a 0a 09 09 _C_FILE_SEEK:...
2c10: 2f 2a 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 /* Not used for
2c20: 73 6f 63 6b 65 74 73 2e 20 54 63 6c 5f 53 65 65 sockets. Tcl_See
2c30: 6b 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 6f 6e 20 k only works on
2c40: 74 6f 70 20 63 68 61 6e 2e 20 49 6d 70 6c 65 6d top chan. Implem
2c50: 65 6e 74 73 20 42 49 4f 5f 73 65 65 6b 28 29 2e ents BIO_seek().
2c60: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 */...dprintf("G
2c70: 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 45 ot BIO_C_FILE_SE
2c80: 45 4b 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b EK");...ret = 0;
2c90: 20 2f 2a 20 52 65 74 75 72 6e 20 30 20 73 75 63 /* Return 0 suc
2ca0: 63 65 73 73 20 61 6e 64 20 2d 31 20 66 6f 72 20 cess and -1 for
2cb0: 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 62 72 65 failure */...bre
2cc0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f ak;..case BIO_C_
2cd0: 46 49 4c 45 5f 54 45 4c 4c 3a 0a 09 09 2f 2a 20 FILE_TELL:.../*
2ce0: 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 73 6f 63 Not used for soc
2cf0: 6b 65 74 73 2e 20 54 63 6c 5f 54 65 6c 6c 20 6f kets. Tcl_Tell o
2d00: 6e 6c 79 20 77 6f 72 6b 73 20 6f 6e 20 74 6f 70 nly works on top
2d10: 20 63 68 61 6e 2e 20 49 6d 70 6c 65 6d 65 6e 74 chan. Implement
2d20: 73 20 42 49 4f 5f 74 65 6c 6c 28 29 2e 20 2a 2f s BIO_tell(). */
2d30: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
2d40: 42 49 4f 5f 43 5f 46 49 4c 45 5f 54 45 4c 4c 22 BIO_C_FILE_TELL"
2d50: 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 20 2f 2a );...ret = 0; /*
2d60: 20 52 65 74 75 72 6e 20 30 20 73 75 63 63 65 73 Return 0 succes
2d70: 73 20 61 6e 64 20 2d 31 20 66 6f 72 20 66 61 69 s and -1 for fai
2d80: 6c 75 72 65 20 2a 2f 0a 09 09 62 72 65 61 6b 3b lure */...break;
2d90: 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f 53 45 54 ..case BIO_C_SET
2da0: 5f 46 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 6d _FD:.../* Implem
2db0: 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 66 64 20 ents BIO_set_fd
2dc0: 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 55 6e */...dprintf("Un
2dd0: 73 75 70 70 6f 72 74 65 64 20 63 61 6c 6c 3a 20 supported call:
2de0: 42 49 4f 5f 43 5f 53 45 54 5f 46 44 22 29 3b 0a BIO_C_SET_FD");.
2df0: 09 09 72 65 74 20 3d 20 2d 31 3b 0a 09 09 62 72 ..ret = -1;...br
2e00: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
2e10: 5f 47 45 54 5f 46 44 3a 0a 09 09 2f 2a 20 49 6d _GET_FD:.../* Im
2e20: 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 plements BIO_get
2e30: 5f 66 64 28 29 20 2a 2f 0a 09 09 64 70 72 69 6e _fd() */...dprin
2e40: 74 66 28 22 55 6e 73 75 70 70 6f 72 74 65 64 20 tf("Unsupported
2e50: 63 61 6c 6c 3a 20 42 49 4f 5f 43 5f 47 45 54 5f call: BIO_C_GET_
2e60: 46 44 22 29 3b 0a 09 09 72 65 74 20 3d 20 2d 31 FD");...ret = -1
2e70: 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 23 69 66 20 ;...break;..#if
2e80: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
2e90: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
2ea0: 30 30 30 30 4c 0a 09 63 61 73 65 20 42 49 4f 5f 0000L..case BIO_
2eb0: 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 53 45 CTRL_GET_KTLS_SE
2ec0: 4e 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 6d 65 ND:.../* Impleme
2ed0: 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6b 74 6c 73 nts BIO_get_ktls
2ee0: 5f 73 65 6e 64 20 2a 2f 0a 09 09 64 70 72 69 6e _send */...dprin
2ef0: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
2f00: 5f 47 45 54 5f 4b 54 4c 53 5f 53 45 4e 44 22 29 _GET_KTLS_SEND")
2f10: 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 31 ;.../* Returns 1
2f20: 20 69 66 20 74 68 65 20 42 49 4f 20 69 73 20 75 if the BIO is u
2f30: 73 69 6e 67 20 74 68 65 20 4b 65 72 6e 65 6c 20 sing the Kernel
2f40: 54 4c 53 20 64 61 74 61 2d 70 61 74 68 20 66 6f TLS data-path fo
2f50: 72 20 73 65 6e 64 69 6e 67 2c 20 30 20 69 66 20 r sending, 0 if
2f60: 6e 6f 74 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 not. */...ret =
2f70: 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 0;...break;..cas
2f80: 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b e BIO_CTRL_GET_K
2f90: 54 4c 53 5f 52 45 43 56 3a 0a 09 09 2f 2a 20 49 TLS_RECV:.../* I
2fa0: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 mplements BIO_ge
2fb0: 74 5f 6b 74 6c 73 5f 72 65 63 76 20 2a 2f 0a 09 t_ktls_recv */..
2fc0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 .dprintf("Got BI
2fd0: 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f O_CTRL_GET_KTLS_
2fe0: 52 45 43 56 22 29 3b 0a 09 09 2f 2a 20 52 65 74 RECV");.../* Ret
2ff0: 75 72 6e 73 20 31 20 69 66 20 74 68 65 20 42 49 urns 1 if the BI
3000: 4f 20 69 73 20 75 73 69 6e 67 20 74 68 65 20 4b O is using the K
3010: 65 72 6e 65 6c 20 54 4c 53 20 64 61 74 61 2d 70 ernel TLS data-p
3020: 61 74 68 20 66 6f 72 20 72 65 63 65 69 76 69 6e ath for receivin
3030: 67 2c 20 30 20 69 66 20 6e 6f 74 2e 20 2a 2f 0a g, 0 if not. */.
3040: 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 ..ret = 0;...bre
3050: 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 64 65 66 61 ak;.#endif..defa
3060: 75 6c 74 3a 0a 09 09 64 70 72 69 6e 74 66 28 22 ult:...dprintf("
3070: 47 6f 74 20 75 6e 6b 6e 6f 77 6e 20 63 6f 6e 74 Got unknown cont
3080: 72 6f 6c 20 63 6f 6d 6d 61 6e 64 20 28 25 69 29 rol command (%i)
3090: 22 2c 20 63 6d 64 29 3b 0a 09 09 72 65 74 20 3d ", cmd);...ret =
30a0: 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 20 20 20 0;...break;.
30b0: 20 7d 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }. dprintf("
30c0: 42 69 6f 43 74 72 6c 20 72 65 74 75 72 6e 20 76 BioCtrl return v
30d0: 61 6c 75 65 20 25 6c 69 22 2c 20 72 65 74 29 3b alue %li", ret);
30e0: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 74 3b . return ret;
30f0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
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 0a 20 2a 0a 20 2a 20 42 69 6f ------. *. * Bio
3150: 4e 65 77 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 New --. *. *.Thi
3160: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 s function is us
3170: 65 64 20 74 6f 20 63 72 65 61 74 65 20 61 20 6e ed to create a n
3180: 65 77 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 ew instance of t
3190: 68 65 20 42 49 4f 2e 20 54 68 69 73 0a 20 2a 09 he BIO. This. *.
31a0: 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 function will be
31b0: 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f called in respo
31c0: 6e 73 65 20 74 6f 20 74 68 65 20 61 70 70 6c 69 nse to the appli
31d0: 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 cation calling t
31e0: 68 65 0a 20 2a 09 42 49 4f 5f 6e 65 77 28 29 20 he. *.BIO_new()
31f0: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 function.. *. *
3200: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 Results:. *.Retu
3210: 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 73 75 63 63 rns boolean succ
3220: 65 73 73 20 72 65 73 75 6c 74 20 28 31 3d 73 75 ess result (1=su
3230: 63 63 65 73 73 2c 20 30 3d 66 61 69 6c 75 72 65 ccess, 0=failure
3240: 29 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ).. *. * Side ef
3250: 66 65 63 74 73 3a 0a 20 2a 09 49 6e 69 74 69 61 fects:. *.Initia
3260: 6c 69 7a 65 73 20 42 49 4f 20 73 74 72 75 63 74 lizes BIO struct
3270: 75 72 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ure.. *. *------
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 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
32d0: 74 69 63 20 69 6e 74 20 42 69 6f 4e 65 77 28 42 tic int BioNew(B
32e0: 49 4f 20 2a 62 69 6f 29 20 7b 0a 20 20 20 20 64 IO *bio) {. d
32f0: 70 72 69 6e 74 66 28 22 42 69 6f 4e 65 77 28 25 printf("BioNew(%
3300: 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 69 6f 29 p) called", bio)
3310: 3b 0a 0a 20 20 20 20 69 66 20 28 62 69 6f 20 3d ;.. if (bio =
3320: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
3330: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
3340: 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 6f BIO_set_data(bio
3350: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 42 49 4f , NULL);. BIO
3360: 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 30 _set_init(bio, 0
3370: 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 72 );. BIO_clear
3380: 5f 66 6c 61 67 73 28 62 69 6f 2c 20 2d 31 29 3b _flags(bio, -1);
3390: 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d . return 1;.}
33a0: 0a 0a 2f 2a 0a 20 2a 2d 2d 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 0a 20 2a 0a 20 2a 20 42 69 6f 46 72 ----. *. * BioFr
3400: 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 ee --. *. *.This
3410: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 function is use
3420: 64 20 74 6f 20 64 65 73 74 72 6f 79 20 61 6e 20 d to destroy an
3430: 69 6e 73 74 61 6e 63 65 20 6f 66 20 61 20 42 49 instance of a BI
3440: 4f 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e O. This function
3450: 0a 20 2a 09 77 69 6c 6c 20 62 65 20 63 61 6c 6c . *.will be call
3460: 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 ed in response t
3470: 6f 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f o the applicatio
3480: 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 n calling the BI
3490: 4f 5f 66 72 65 65 28 29 0a 20 2a 09 66 75 6e 63 O_free(). *.func
34a0: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 tion.. *. * Resu
34b0: 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 lts:. *.Returns
34c0: 62 6f 6f 6c 65 61 6e 20 73 75 63 63 65 73 73 20 boolean success
34d0: 72 65 73 75 6c 74 20 28 31 3d 73 75 63 63 65 73 result (1=succes
34e0: 73 2c 20 30 3d 66 61 69 6c 75 72 65 29 2e 0a 20 s, 0=failure)..
34f0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3500: 73 3a 0a 20 2a 09 44 65 2d 69 6e 69 74 69 61 6c s:. *.De-initial
3510: 69 7a 65 73 20 42 49 4f 20 73 74 72 75 63 74 75 izes BIO structu
3520: 72 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d re.. *. *-------
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 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
3580: 69 63 20 69 6e 74 20 42 69 6f 46 72 65 65 28 42 ic int BioFree(B
3590: 49 4f 20 2a 62 69 6f 29 20 7b 0a 20 20 20 20 64 IO *bio) {. d
35a0: 70 72 69 6e 74 66 28 22 42 69 6f 46 72 65 65 28 printf("BioFree(
35b0: 25 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 69 6f %p) called", bio
35c0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 69 6f 20 );.. if (bio
35d0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
35e0: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 rn 0;. }..
35f0: 20 2f 2a 20 43 6c 65 61 72 20 66 6c 61 67 73 20 /* Clear flags
3600: 69 66 20 73 65 74 20 74 6f 20 42 49 4f 5f 43 4c if set to BIO_CL
3610: 4f 53 45 20 28 63 6c 6f 73 65 20 49 2f 4f 20 73 OSE (close I/O s
3620: 74 72 65 61 6d 20 77 68 65 6e 20 74 68 65 20 42 tream when the B
3630: 49 4f 20 69 73 20 66 72 65 65 64 29 20 2a 2f 0a IO is freed) */.
3640: 20 20 20 20 69 66 20 28 42 49 4f 5f 67 65 74 5f if (BIO_get_
3650: 73 68 75 74 64 6f 77 6e 28 62 69 6f 29 29 20 7b shutdown(bio)) {
3660: 0a 09 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 ..BIO_set_data(b
3670: 69 6f 2c 20 4e 55 4c 4c 29 3b 0a 09 42 49 4f 5f io, NULL);..BIO_
3680: 63 6c 65 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c clear_flags(bio,
3690: 20 2d 31 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 69 -1);..BIO_set_i
36a0: 6e 69 74 28 62 69 6f 2c 20 30 29 3b 0a 20 20 20 nit(bio, 0);.
36b0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b }. return 1;
36c0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
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 0a 20 2a 0a 20 2a 20 42 49 4f ------. *. * BIO
3720: 5f 6e 65 77 5f 74 63 6c 20 2d 2d 0a 20 2a 0a 20 _new_tcl --. *.
3730: 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 *.This function
3740: 69 73 20 75 73 65 64 20 74 6f 20 69 6e 69 74 69 is used to initi
3750: 61 6c 69 7a 65 20 74 68 65 20 42 49 4f 20 6d 65 alize the BIO me
3760: 74 68 6f 64 20 68 61 6e 64 6c 65 72 73 2e 0a 20 thod handlers..
3770: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
3780: 09 52 65 74 75 72 6e 73 20 70 6f 69 6e 74 65 72 .Returns pointer
3790: 20 74 6f 20 42 49 4f 20 6f 72 20 4e 55 4c 4c 20 to BIO or NULL
37a0: 66 6f 72 20 66 61 69 6c 75 72 65 0a 20 2a 0a 20 for failure. *.
37b0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
37c0: 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 42 *.Initializes B
37d0: 49 4f 20 4d 65 74 68 6f 64 73 2e 0a 20 2a 0a 20 IO Methods.. *.
37e0: 2a 2d 2d 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 0a 20 --------------.
3830: 2a 2f 0a 0a 42 49 4f 20 2a 42 49 4f 5f 6e 65 77 */..BIO *BIO_new
3840: 5f 74 63 6c 28 53 74 61 74 65 20 2a 73 74 61 74 _tcl(State *stat
3850: 65 50 74 72 2c 20 69 6e 74 20 66 6c 61 67 73 29 ePtr, int flags)
3860: 20 7b 0a 20 20 20 20 42 49 4f 20 2a 62 69 6f 3b {. BIO *bio;
3870: 0a 23 69 66 64 65 66 20 54 43 4c 54 4c 53 5f 53 .#ifdef TCLTLS_S
3880: 53 4c 5f 55 53 45 5f 46 41 53 54 50 41 54 48 0a SL_USE_FASTPATH.
3890: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
38a0: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 3b 0a 20 parentChannel;.
38b0: 20 20 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 const Tcl_Cha
38c0: 6e 6e 65 6c 54 79 70 65 20 2a 70 61 72 65 6e 74 nnelType *parent
38d0: 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 0a 20 20 ChannelType;..
38e0: 20 20 69 6e 74 20 70 61 72 65 6e 74 43 68 61 6e int parentChan
38f0: 6e 65 6c 46 64 49 6e 2c 20 70 61 72 65 6e 74 43 nelFdIn, parentC
3900: 68 61 6e 6e 65 6c 46 64 4f 75 74 2c 20 70 61 72 hannelFdOut, par
3910: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 3b 0a 20 20 entChannelFd;.
3920: 20 20 69 6e 74 20 76 61 6c 69 64 50 61 72 65 6e int validParen
3930: 74 43 68 61 6e 6e 65 6c 46 64 3b 0a 23 65 6e 64 tChannelFd;.#end
3940: 69 66 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 if.. dprintf(
3950: 22 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 29 20 63 "BIO_new_tcl() c
3960: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
3970: 20 43 72 65 61 74 65 20 63 75 73 74 6f 6d 20 42 Create custom B
3980: 49 4f 20 6d 65 74 68 6f 64 20 2a 2f 0a 20 20 20 IO method */.
3990: 20 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 20 if (BioMethods
39a0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20 42 == NULL) {../* B
39b0: 49 4f 5f 54 59 50 45 5f 42 49 4f 20 3d 20 28 31 IO_TYPE_BIO = (1
39c0: 39 7c 42 49 4f 5f 54 59 50 45 5f 53 4f 55 52 43 9|BIO_TYPE_SOURC
39d0: 45 5f 53 49 4e 4b 29 20 2d 2d 20 68 61 6c 66 20 E_SINK) -- half
39e0: 61 20 42 49 4f 20 70 61 69 72 20 2a 2f 0a 09 2f a BIO pair */../
39f0: 2a 20 63 75 73 74 6f 6d 20 3d 20 42 49 4f 5f 67 * custom = BIO_g
3a00: 65 74 5f 6e 65 77 5f 69 6e 64 65 78 28 29 20 7c et_new_index() |
3a10: 20 42 49 4f 5f 54 59 50 45 5f 53 4f 55 52 43 45 BIO_TYPE_SOURCE
3a20: 5f 53 49 4e 4b 20 2a 2f 0a 09 42 69 6f 4d 65 74 _SINK */..BioMet
3a30: 68 6f 64 73 20 3d 20 42 49 4f 5f 6d 65 74 68 5f hods = BIO_meth_
3a40: 6e 65 77 28 42 49 4f 5f 54 59 50 45 5f 42 49 4f new(BIO_TYPE_BIO
3a50: 2c 20 22 74 63 6c 22 29 3b 0a 09 69 66 20 28 42 , "tcl");..if (B
3a60: 69 6f 4d 65 74 68 6f 64 73 20 3d 3d 20 4e 55 4c ioMethods == NUL
3a70: 4c 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 L) {.. dprint
3a80: 66 28 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 f("Memory alloca
3a90: 74 69 6f 6e 20 65 72 72 6f 72 22 29 3b 0a 0a 09 tion error");...
3aa0: 20 20 20 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b return NULL;
3ab0: 0a 09 7d 0a 09 2f 2a 20 4e 6f 74 20 75 73 65 64 ..}../* Not used
3ac0: 20 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 77 72 BIO_meth_set_wr
3ad0: 69 74 65 5f 65 78 20 2a 2f 0a 09 42 49 4f 5f 6d ite_ex */..BIO_m
3ae0: 65 74 68 5f 73 65 74 5f 77 72 69 74 65 28 42 69 eth_set_write(Bi
3af0: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 4f 75 74 oMethods, BioOut
3b00: 70 75 74 29 3b 0a 09 2f 2a 20 4e 6f 74 20 75 73 put);../* Not us
3b10: 65 64 20 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f ed BIO_meth_set_
3b20: 72 65 61 64 5f 65 78 20 2a 2f 0a 09 42 49 4f 5f read_ex */..BIO_
3b30: 6d 65 74 68 5f 73 65 74 5f 72 65 61 64 28 42 69 meth_set_read(Bi
3b40: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 49 6e 70 oMethods, BioInp
3b50: 75 74 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 ut);..BIO_meth_s
3b60: 65 74 5f 70 75 74 73 28 42 69 6f 4d 65 74 68 6f et_puts(BioMetho
3b70: 64 73 2c 20 42 69 6f 50 75 74 73 29 3b 0a 09 42 ds, BioPuts);..B
3b80: 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 74 72 6c IO_meth_set_ctrl
3b90: 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f (BioMethods, Bio
3ba0: 43 74 72 6c 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 Ctrl);..BIO_meth
3bb0: 5f 73 65 74 5f 63 72 65 61 74 65 28 42 69 6f 4d _set_create(BioM
3bc0: 65 74 68 6f 64 73 2c 20 42 69 6f 4e 65 77 29 3b ethods, BioNew);
3bd0: 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 64 ..BIO_meth_set_d
3be0: 65 73 74 72 6f 79 28 42 69 6f 4d 65 74 68 6f 64 estroy(BioMethod
3bf0: 73 2c 20 42 69 6f 46 72 65 65 29 3b 0a 20 20 20 s, BioFree);.
3c00: 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 }.. if (stat
3c10: 65 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a ePtr == NULL) {.
3c20: 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 .dprintf("Asked
3c30: 74 6f 20 73 65 74 75 70 20 61 20 4e 55 4c 4c 20 to setup a NULL
3c40: 73 74 61 74 65 2c 20 6a 75 73 74 20 63 72 65 61 state, just crea
3c50: 74 69 6e 67 20 74 68 65 20 69 6e 69 74 69 61 6c ting the initial
3c60: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 29 configuration")
3c70: 3b 0a 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b ;...return NULL;
3c80: 0a 20 20 20 20 7d 0a 0a 23 69 66 64 65 66 20 54 . }..#ifdef T
3c90: 43 4c 54 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41 CLTLS_SSL_USE_FA
3ca0: 53 54 50 41 54 48 0a 20 20 20 20 2f 2a 0a 20 20 STPATH. /*.
3cb0: 20 20 20 2a 20 49 66 20 74 68 65 20 63 68 61 6e * If the chan
3cc0: 6e 65 6c 20 63 61 6e 20 62 65 20 6d 61 70 70 65 nel can be mappe
3cd0: 64 20 62 61 63 6b 20 74 6f 20 61 20 66 69 6c 65 d back to a file
3ce0: 20 64 65 73 63 72 69 70 74 6f 72 2c 20 6a 75 73 descriptor, jus
3cf0: 74 20 75 73 65 20 74 68 65 20 66 69 6c 65 0a 20 t use the file.
3d00: 20 20 20 20 2a 20 64 65 73 63 72 69 70 74 6f 72 * descriptor
3d10: 20 77 69 74 68 20 74 68 65 20 53 53 4c 20 6c 69 with the SSL li
3d20: 62 72 61 72 79 20 73 69 6e 63 65 20 69 74 20 77 brary since it w
3d30: 69 6c 6c 20 6c 69 6b 65 6c 79 20 62 65 20 6f 70 ill likely be op
3d40: 74 69 6d 69 7a 65 64 20 66 6f 72 20 74 68 69 73 timized for this
3d50: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 70 61 .. */. pa
3d60: 72 65 6e 74 43 68 61 6e 6e 65 6c 20 3d 20 54 6c rentChannel = Tl
3d70: 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 s_GetParent(stat
3d80: 65 50 74 72 2c 20 30 29 3b 0a 20 20 20 20 70 61 ePtr, 0);. pa
3d90: 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 65 20 rentChannelType
3da0: 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c = Tcl_GetChannel
3db0: 54 79 70 65 28 70 61 72 65 6e 74 43 68 61 6e 6e Type(parentChann
3dc0: 65 6c 29 3b 0a 0a 20 20 20 20 76 61 6c 69 64 50 el);.. validP
3dd0: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 20 3d arentChannelFd =
3de0: 20 30 3b 0a 20 20 20 20 69 66 20 28 73 74 72 63 0;. if (strc
3df0: 6d 70 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c mp(parentChannel
3e00: 54 79 70 65 2d 3e 74 79 70 65 4e 61 6d 65 2c 20 Type->typeName,
3e10: 22 74 63 70 22 29 20 3d 3d 20 30 29 20 7b 0a 09 "tcp") == 0) {..
3e20: 76 6f 69 64 20 2a 70 61 72 65 6e 74 43 68 61 6e void *parentChan
3e30: 6e 65 6c 46 64 49 6e 5f 70 2c 20 2a 70 61 72 65 nelFdIn_p, *pare
3e40: 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70 ntChannelFdOut_p
3e50: 3b 0a 09 69 6e 74 20 74 63 6c 47 65 74 43 68 61 ;..int tclGetCha
3e60: 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 3b 0a 0a nnelHandleRet;..
3e70: 09 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 .tclGetChannelHa
3e80: 6e 64 6c 65 52 65 74 20 3d 20 54 63 6c 5f 47 65 ndleRet = Tcl_Ge
3e90: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 tChannelHandle(p
3ea0: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 2c 0a 09 20 arentChannel,..
3eb0: 20 20 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c TCL_READABLE,
3ec0: 20 26 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 &parentChannelF
3ed0: 64 49 6e 5f 70 29 3b 0a 09 69 66 20 28 74 63 6c dIn_p);..if (tcl
3ee0: 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 GetChannelHandle
3ef0: 52 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b Ret == TCL_OK) {
3f00: 0a 09 20 20 20 20 74 63 6c 47 65 74 43 68 61 6e .. tclGetChan
3f10: 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 20 54 nelHandleRet = T
3f20: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e cl_GetChannelHan
3f30: 64 6c 65 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 dle(parentChanne
3f40: 6c 2c 0a 09 20 20 20 20 20 20 20 20 54 43 4c 5f l,.. TCL_
3f50: 57 52 49 54 41 42 4c 45 2c 20 26 70 61 72 65 6e WRITABLE, &paren
3f60: 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70 29 tChannelFdOut_p)
3f70: 3b 0a 09 20 20 20 20 69 66 20 28 74 63 6c 47 65 ;.. if (tclGe
3f80: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 tChannelHandleRe
3f90: 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 t == TCL_OK) {..
3fa0: 09 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 .parentChannelFd
3fb0: 49 6e 20 3d 20 50 54 52 32 49 4e 54 28 70 61 72 In = PTR2INT(par
3fc0: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 entChannelFdIn_p
3fd0: 29 3b 0a 09 09 70 61 72 65 6e 74 43 68 61 6e 6e );...parentChann
3fe0: 65 6c 46 64 4f 75 74 20 3d 20 50 54 52 32 49 4e elFdOut = PTR2IN
3ff0: 54 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 T(parentChannelF
4000: 64 4f 75 74 5f 70 29 3b 0a 09 09 69 66 20 28 70 dOut_p);...if (p
4010: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e arentChannelFdIn
4020: 20 3d 3d 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 == parentChanne
4030: 6c 46 64 4f 75 74 29 20 7b 0a 09 09 20 20 20 20 lFdOut) {...
4040: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 20 parentChannelFd
4050: 3d 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 = parentChannelF
4060: 64 49 6e 3b 0a 09 09 20 20 20 20 76 61 6c 69 64 dIn;... valid
4070: 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 20 ParentChannelFd
4080: 3d 20 31 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a = 1;...}.. }.
4090: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 .}. }.. if
40a0: 20 28 76 61 6c 69 64 50 61 72 65 6e 74 43 68 61 (validParentCha
40b0: 6e 6e 65 6c 46 64 29 20 7b 0a 09 64 70 72 69 6e nnelFd) {..dprin
40c0: 74 66 28 22 57 65 20 66 6f 75 6e 64 20 61 20 73 tf("We found a s
40d0: 68 6f 72 74 63 75 74 2c 20 74 68 69 73 20 63 68 hortcut, this ch
40e0: 61 6e 6e 65 6c 20 69 73 20 62 61 63 6b 65 64 20 annel is backed
40f0: 62 79 20 61 20 73 6f 63 6b 65 74 3a 20 25 69 22 by a socket: %i"
4100: 2c 0a 09 20 20 20 20 70 61 72 65 6e 74 43 68 61 ,.. parentCha
4110: 6e 6e 65 6c 46 64 49 6e 29 3b 0a 09 62 69 6f 20 nnelFdIn);..bio
4120: 3d 20 42 49 4f 5f 6e 65 77 5f 73 6f 63 6b 65 74 = BIO_new_socket
4130: 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 (parentChannelFd
4140: 2c 20 66 6c 61 67 73 29 3b 0a 09 73 74 61 74 65 , flags);..state
4150: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c Ptr->flags |= TL
4160: 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 3b 0a S_TCL_FASTPATH;.
4170: 09 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 .BIO_set_data(bi
4180: 6f 2c 20 73 74 61 74 65 50 74 72 29 3b 0a 09 42 o, statePtr);..B
4190: 49 4f 5f 73 65 74 5f 73 68 75 74 64 6f 77 6e 28 IO_set_shutdown(
41a0: 62 69 6f 2c 20 66 6c 61 67 73 29 3b 0a 09 42 49 bio, flags);..BI
41b0: 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 O_set_init(bio,
41c0: 31 29 3b 0a 09 72 65 74 75 72 6e 20 62 69 6f 3b 1);..return bio;
41d0: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 . }.#endif..
41e0: 20 20 20 64 70 72 69 6e 74 66 28 22 46 61 6c 6c dprintf("Fall
41f0: 69 6e 67 20 62 61 63 6b 20 74 6f 20 54 63 6c 20 ing back to Tcl
4200: 49 2f 4f 20 66 6f 72 20 74 68 69 73 20 63 68 61 I/O for this cha
4210: 6e 6e 65 6c 22 29 3b 0a 0a 20 20 20 20 62 69 6f nnel");.. bio
4220: 20 3d 20 42 49 4f 5f 6e 65 77 28 42 69 6f 4d 65 = BIO_new(BioMe
4230: 74 68 6f 64 73 29 3b 0a 20 20 20 20 42 49 4f 5f thods);. BIO_
4240: 73 65 74 5f 64 61 74 61 28 62 69 6f 2c 20 73 74 set_data(bio, st
4250: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 42 49 4f atePtr);. BIO
4260: 5f 73 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 _set_shutdown(bi
4270: 6f 2c 20 66 6c 61 67 73 29 3b 0a 20 20 20 20 42 o, flags);. B
4280: 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c IO_set_init(bio,
4290: 20 31 29 3b 20 2f 2a 20 45 6e 61 62 6c 65 20 72 1); /* Enable r
42a0: 65 61 64 20 26 20 77 72 69 74 65 20 2a 2f 0a 20 ead & write */.
42b0: 20 20 20 72 65 74 75 72 6e 20 62 69 6f 3b 0a 7d return bio;.}
42c0: 0a 0a 2f 2a 0a 20 2a 2d 2d 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 0a 20 2a 0a 20 2a 20 42 49 4f 5f 63 ----. *. * BIO_c
4320: 6c 65 61 6e 75 70 20 2d 2d 0a 20 2a 0a 20 2a 09 leanup --. *. *.
4330: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
4340: 20 75 73 65 64 20 74 6f 20 64 65 73 74 72 6f 79 used to destroy
4350: 20 61 20 42 49 4f 5f 4d 45 54 48 4f 44 20 73 74 a BIO_METHOD st
4360: 72 75 63 74 75 72 65 20 61 6e 64 20 66 72 65 65 ructure and free
4370: 20 75 70 20 61 6e 79 0a 20 2a 09 6d 65 6d 6f 72 up any. *.memor
4380: 79 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 y associated wit
4390: 68 20 69 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 h it.. *. * Resu
43a0: 6c 74 73 3a 0a 20 2a 09 53 74 61 6e 64 61 72 64 lts:. *.Standard
43b0: 20 54 43 4c 20 72 65 73 75 6c 74 0a 20 2a 0a 20 TCL result. *.
43c0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
43d0: 20 2a 09 44 65 73 74 72 6f 79 73 20 42 49 4f 20 *.Destroys BIO
43e0: 4d 65 74 68 6f 64 73 2e 0a 20 2a 0a 20 2a 2d 2d 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 0a 20 2a 2f 0a -----------. */.
4440: 0a 69 6e 74 20 42 49 4f 5f 63 6c 65 61 6e 75 70 .int BIO_cleanup
4450: 20 28 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 () {. dprint
4460: 66 28 22 42 49 4f 5f 63 6c 65 61 6e 75 70 28 29 f("BIO_cleanup()
4470: 20 63 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 called");..
4480: 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 20 21 if (BioMethods !
4490: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 42 49 4f 5f 6d = NULL) {..BIO_m
44a0: 65 74 68 5f 66 72 65 65 28 42 69 6f 4d 65 74 68 eth_free(BioMeth
44b0: 6f 64 73 29 3b 0a 09 42 69 6f 4d 65 74 68 6f 64 ods);..BioMethod
44c0: 73 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a s = NULL;. }.
44d0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
44e0: 4b 3b 0a 7d 0a K;.}.