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 69 66 20 28 54 63 6c 5f );.. if (Tcl_
0d10: 45 6f 66 28 63 68 61 6e 29 29 20 7b 0a 09 72 65 Eof(chan)) {..re
0d20: 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 turn 0;. }..
0d30: 20 20 20 42 49 4f 5f 63 6c 65 61 72 5f 72 65 74 BIO_clear_ret
0d40: 72 79 5f 66 6c 61 67 73 28 62 69 6f 29 3b 0a 20 ry_flags(bio);.
0d50: 20 20 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 Tcl_SetErrno(
0d60: 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 57 72 69 74 0);.. /* Writ
0d70: 65 20 64 61 74 61 20 74 6f 20 75 6e 64 65 72 6c e data to underl
0d80: 79 69 6e 67 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a ying channel */.
0d90: 20 20 20 20 72 65 74 20 3d 20 54 63 6c 5f 57 72 ret = Tcl_Wr
0da0: 69 74 65 52 61 77 28 63 68 61 6e 2c 20 62 75 66 iteRaw(chan, buf
0db0: 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 62 75 66 , (Tcl_Size) buf
0dc0: 4c 65 6e 29 3b 0a 20 20 20 20 69 73 5f 65 6f 66 Len);. is_eof
0dd0: 20 3d 20 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 = Tcl_Eof(chan)
0de0: 3b 0a 20 20 20 20 74 63 6c 45 72 72 6e 6f 20 3d ;. tclErrno =
0df0: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b Tcl_GetErrno();
0e00: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 5b .. dprintf("[
0e10: 63 68 61 6e 3d 25 70 5d 20 42 69 6f 4f 75 74 70 chan=%p] BioOutp
0e20: 75 74 28 25 64 29 20 2d 3e 20 25 22 20 54 43 4c ut(%d) -> %" TCL
0e30: 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 _SIZE_MODIFIER "
0e40: 64 20 5b 74 63 6c 45 6f 66 3d 25 64 3b 20 74 63 d [tclEof=%d; tc
0e50: 6c 45 72 72 6e 6f 3d 25 64 3a 20 25 73 5d 22 2c lErrno=%d: %s]",
0e60: 0a 09 28 76 6f 69 64 20 2a 29 20 63 68 61 6e 2c ..(void *) chan,
0e70: 20 62 75 66 4c 65 6e 2c 20 72 65 74 2c 20 69 73 bufLen, ret, is
0e80: 5f 65 6f 66 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 _eof, tclErrno,
0e90: 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c Tcl_ErrnoMsg(tcl
0ea0: 45 72 72 6e 6f 29 29 3b 0a 0a 20 20 20 20 69 66 Errno));.. if
0eb0: 20 28 72 65 74 20 3e 20 30 29 20 7b 0a 09 64 70 (ret > 0) {..dp
0ec0: 72 69 6e 74 66 28 22 53 75 63 63 65 73 73 66 75 rintf("Successfu
0ed0: 6c 6c 79 20 77 72 6f 74 65 20 25 22 20 54 43 4c lly wrote %" TCL
0ee0: 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 _SIZE_MODIFIER "
0ef0: 64 20 62 79 74 65 73 20 6f 66 20 64 61 74 61 22 d bytes of data"
0f00: 2c 20 72 65 74 29 3b 0a 0a 20 20 20 20 7d 20 65 , ret);.. } e
0f10: 6c 73 65 20 69 66 20 28 72 65 74 20 3d 3d 20 30 lse if (ret == 0
0f20: 29 20 7b 0a 09 69 66 20 28 69 73 5f 65 6f 66 29 ) {..if (is_eof)
0f30: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
0f40: 22 47 6f 74 20 45 4f 46 20 77 68 69 6c 65 20 77 "Got EOF while w
0f50: 72 69 74 69 6e 67 2c 20 72 65 74 75 72 6e 69 6e riting, returnin
0f60: 67 20 61 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 52 g a Connection R
0f70: 65 73 65 74 20 65 72 72 6f 72 20 77 68 69 63 68 eset error which
0f80: 20 6d 61 70 73 20 74 6f 20 53 6f 66 74 20 45 4f maps to Soft EO
0f90: 46 22 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 F");.. Tcl_Se
0fa0: 74 45 72 72 6e 6f 28 45 43 4f 4e 4e 52 45 53 45 tErrno(ECONNRESE
0fb0: 54 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 T);.. BIO_set
0fc0: 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f 5f _flags(bio, BIO_
0fd0: 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 29 3b 0a 0a FLAGS_IN_EOF);..
0fe0: 09 7d 20 65 6c 73 65 20 69 66 20 28 42 49 4f 53 .} else if (BIOS
0ff0: 68 6f 75 6c 64 52 65 74 72 79 28 74 63 6c 45 72 houldRetry(tclEr
1000: 72 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 rno)) {.. dpr
1010: 69 6e 74 66 28 22 47 6f 74 20 30 20 66 72 6f 6d intf("Got 0 from
1020: 20 54 63 6c 5f 57 72 69 74 65 52 61 77 2c 20 61 Tcl_WriteRaw, a
1030: 6e 64 20 45 4f 46 20 69 73 20 6e 6f 74 20 73 65 nd EOF is not se
1040: 74 3b 20 72 65 74 20 3d 20 30 22 29 3b 0a 09 20 t; ret = 0");..
1050: 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 BIO_set_retry
1060: 5f 77 72 69 74 65 28 62 69 6f 29 3b 0a 0a 09 20 _write(bio);...
1070: 20 20 20 64 70 72 69 6e 74 66 28 22 53 65 74 74 dprintf("Sett
1080: 69 6e 67 20 72 65 74 72 79 20 72 65 61 64 20 66 ing retry read f
1090: 6c 61 67 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f lag");.. BIO_
10a0: 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 62 set_retry_read(b
10b0: 69 6f 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 io);..}.. } e
10c0: 6c 73 65 20 7b 0a 09 2f 2a 20 45 50 49 50 45 20 lse {../* EPIPE
10d0: 6f 72 20 45 43 4f 4e 4e 52 45 53 45 54 20 6d 65 or ECONNRESET me
10e0: 61 6e 20 70 65 65 72 20 69 73 20 67 6f 6e 65 20 an peer is gone
10f0: 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22 57 65 20 */..dprintf("We
1100: 67 6f 74 20 73 6f 6d 65 20 6b 69 6e 64 20 6f 66 got some kind of
1110: 20 49 2f 4f 20 65 72 72 6f 72 22 29 3b 0a 0a 09 I/O error");...
1120: 69 66 20 28 42 49 4f 53 68 6f 75 6c 64 52 65 74 if (BIOShouldRet
1130: 72 79 28 74 63 6c 45 72 72 6e 6f 29 29 20 7b 0a ry(tclErrno)) {.
1140: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 72 . dprintf("Tr
1150: 79 20 61 67 61 69 6e 20 66 6f 72 3a 20 25 69 3d y again for: %i=
1160: 25 73 22 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 54 %s", tclErrno, T
1170: 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c 45 cl_ErrnoMsg(tclE
1180: 72 72 6e 6f 29 29 3b 0a 09 20 20 20 20 42 49 4f rrno));.. BIO
1190: 5f 73 65 74 5f 72 65 74 72 79 5f 77 72 69 74 65 _set_retry_write
11a0: 28 62 69 6f 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 (bio);...} else
11b0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 {.. dprintf("
11c0: 55 6e 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 Unexpected error
11d0: 3a 20 25 69 3d 25 73 22 2c 20 74 63 6c 45 72 72 : %i=%s", tclErr
11e0: 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 no, Tcl_ErrnoMsg
11f0: 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 09 20 20 (tclErrno));..
1200: 20 20 42 49 4f 5f 73 65 74 5f 66 6c 61 67 73 28 BIO_set_flags(
1210: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 49 bio, BIO_FLAGS_I
1220: 4e 5f 45 4f 46 29 3b 0a 09 7d 0a 20 20 20 20 7d N_EOF);..}. }
1230: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 .. dprintf("B
1240: 69 6f 4f 75 74 70 75 74 20 72 65 74 75 72 6e 69 ioOutput returni
1250: 6e 67 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f 4d ng %" TCL_SIZE_M
1260: 4f 44 49 46 49 45 52 20 22 64 22 2c 20 72 65 74 ODIFIER "d", ret
1270: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 28 69 );. return (i
1280: 6e 74 29 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a 20 nt) ret;.}../*.
1290: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
12a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
12e0: 2a 0a 20 2a 20 42 69 6f 49 6e 70 75 74 20 2d 2d *. * BioInput --
12f0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
1300: 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 tion is used to
1310: 72 65 61 64 20 65 6e 63 72 79 70 74 65 64 20 64 read encrypted d
1320: 61 74 61 20 66 72 6f 6d 20 74 68 65 20 63 68 61 ata from the cha
1330: 6e 6e 65 6c 20 61 6e 64 20 70 61 73 73 0a 20 2a nnel and pass. *
1340: 09 69 74 20 74 6f 20 74 68 65 20 42 49 4f 20 69 .it to the BIO i
1350: 6e 20 62 75 66 2e 20 54 68 69 73 20 66 75 6e 63 n buf. This func
1360: 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c tion will be cal
1370: 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 led in response
1380: 74 6f 20 74 68 65 0a 20 2a 09 74 6c 73 49 4f 20 to the. *.tlsIO
1390: 63 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 4f 5f calling the BIO_
13a0: 72 65 61 64 5f 65 78 28 29 20 6f 72 20 42 49 4f read_ex() or BIO
13b0: 5f 72 65 61 64 28 29 20 66 75 6e 63 74 69 6f 6e _read() function
13c0: 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 s.. *. * Results
13d0: 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 65 :. *.Returns the
13e0: 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 number of bytes
13f0: 20 72 65 61 64 20 66 72 6f 6d 20 63 68 61 6e 6e read from chann
1400: 65 6c 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20 6f el, 0 for EOF, o
1410: 72 20 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72 6f r -1 for. *.erro
1420: 72 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 r.. *. * Side ef
1430: 66 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 fects:. *.Reads
1440: 63 68 61 6e 6e 65 6c 20 64 61 74 61 20 69 6e 74 channel data int
1450: 6f 20 42 49 4f 20 6f 72 20 73 65 74 73 20 72 65 o BIO or sets re
1460: 74 72 79 20 66 6c 61 67 73 2e 0a 20 2a 0a 20 2a try flags.. *. *
1470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
14c0: 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 /..static int Bi
14d0: 6f 49 6e 70 75 74 28 42 49 4f 20 2a 62 69 6f 2c oInput(BIO *bio,
14e0: 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 char *buf, int
14f0: 62 75 66 4c 65 6e 29 20 7b 0a 20 20 20 20 54 63 bufLen) {. Tc
1500: 6c 5f 53 69 7a 65 20 72 65 74 3b 0a 20 20 20 20 l_Size ret;.
1510: 69 6e 74 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45 int is_eof, tclE
1520: 72 72 6e 6f 2c 20 69 73 5f 62 6c 6f 63 6b 65 64 rrno, is_blocked
1530: 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 ;. State *sta
1540: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
1550: 29 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 28 62 ) BIO_get_data(b
1560: 69 6f 29 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 io);. Tcl_Cha
1570: 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 54 6c 73 5f nnel chan = Tls_
1580: 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 GetParent(stateP
1590: 74 72 2c 20 30 29 3b 0a 0a 20 20 20 20 64 70 72 tr, 0);.. dpr
15a0: 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 intf("[chan=%p]
15b0: 42 69 6f 49 6e 70 75 74 28 62 69 6f 3d 25 70 2c BioInput(bio=%p,
15c0: 20 62 75 66 3d 25 70 2c 20 6c 65 6e 3d 25 64 29 buf=%p, len=%d)
15d0: 22 2c 20 28 76 6f 69 64 20 2a 29 20 63 68 61 6e ", (void *) chan
15e0: 2c 0a 09 28 76 6f 69 64 20 2a 29 20 62 69 6f 2c ,..(void *) bio,
15f0: 20 62 75 66 2c 20 62 75 66 4c 65 6e 29 3b 0a 0a buf, bufLen);..
1600: 20 20 20 20 69 66 20 28 62 75 66 20 3d 3d 20 4e if (buf == N
1610: 55 4c 4c 20 7c 7c 20 62 75 66 4c 65 6e 20 3c 3d ULL || bufLen <=
1620: 20 30 20 7c 7c 20 54 63 6c 5f 45 6f 66 28 63 68 0 || Tcl_Eof(ch
1630: 61 6e 29 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 an)) {..return 0
1640: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 42 49 4f ;. }.. BIO
1650: 5f 63 6c 65 61 72 5f 72 65 74 72 79 5f 66 6c 61 _clear_retry_fla
1660: 67 73 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c gs(bio);. Tcl
1670: 5f 53 65 74 45 72 72 6e 6f 28 30 29 3b 0a 0a 20 _SetErrno(0);..
1680: 20 20 20 2f 2a 20 52 65 61 64 20 64 61 74 61 20 /* Read data
1690: 66 72 6f 6d 20 75 6e 64 65 72 6c 79 69 6e 67 20 from underlying
16a0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 72 channel */. r
16b0: 65 74 20 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 et = Tcl_ReadRaw
16c0: 28 63 68 61 6e 2c 20 62 75 66 2c 20 28 54 63 6c (chan, buf, (Tcl
16d0: 5f 53 69 7a 65 29 20 62 75 66 4c 65 6e 29 3b 0a _Size) bufLen);.
16e0: 20 20 20 20 69 73 5f 65 6f 66 20 3d 20 54 63 6c is_eof = Tcl
16f0: 5f 45 6f 66 28 63 68 61 6e 29 3b 0a 20 20 20 20 _Eof(chan);.
1700: 74 63 6c 45 72 72 6e 6f 20 3d 20 54 63 6c 5f 47 tclErrno = Tcl_G
1710: 65 74 45 72 72 6e 6f 28 29 3b 0a 20 20 20 20 69 etErrno();. i
1720: 73 5f 62 6c 6f 63 6b 65 64 20 3d 20 54 63 6c 5f s_blocked = Tcl_
1730: 49 6e 70 75 74 42 6c 6f 63 6b 65 64 28 63 68 61 InputBlocked(cha
1740: 6e 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 n);.. dprintf
1750: 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69 6f 49 ("[chan=%p] BioI
1760: 6e 70 75 74 28 62 75 66 20 6c 65 6e 3d 25 64 29 nput(buf len=%d)
1770: 20 2d 3e 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f -> %" TCL_SIZE_
1780: 4d 4f 44 49 46 49 45 52 20 22 64 20 5b 74 63 6c MODIFIER "d [tcl
1790: 45 6f 66 3d 25 64 3b 20 62 6c 6f 63 6b 65 64 3d Eof=%d; blocked=
17a0: 25 64 3b 20 74 63 6c 45 72 72 6e 6f 3d 25 64 3a %d; tclErrno=%d:
17b0: 20 25 73 5d 22 2c 0a 09 28 76 6f 69 64 20 2a 29 %s]",..(void *)
17c0: 20 63 68 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 72 chan, bufLen, r
17d0: 65 74 2c 20 69 73 5f 65 6f 66 2c 20 69 73 5f 62 et, is_eof, is_b
17e0: 6c 6f 63 6b 65 64 2c 20 74 63 6c 45 72 72 6e 6f locked, tclErrno
17f0: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 , Tcl_ErrnoMsg(t
1800: 63 6c 45 72 72 6e 6f 29 29 3b 0a 0a 20 20 20 20 clErrno));..
1810: 69 66 20 28 72 65 74 20 3e 20 30 29 20 7b 0a 09 if (ret > 0) {..
1820: 64 70 72 69 6e 74 66 28 22 53 75 63 63 65 73 73 dprintf("Success
1830: 66 75 6c 6c 79 20 72 65 61 64 20 25 22 20 54 43 fully read %" TC
1840: 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 L_SIZE_MODIFIER
1850: 22 64 20 62 79 74 65 73 20 6f 66 20 64 61 74 61 "d bytes of data
1860: 22 2c 20 72 65 74 29 3b 0a 0a 20 20 20 20 7d 20 ", ret);.. }
1870: 65 6c 73 65 20 69 66 20 28 72 65 74 20 3d 3d 20 else if (ret ==
1880: 30 29 20 7b 0a 09 69 66 20 28 69 73 5f 65 6f 66 0) {..if (is_eof
1890: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
18a0: 28 22 47 6f 74 20 45 4f 46 20 77 68 69 6c 65 20 ("Got EOF while
18b0: 72 65 61 64 69 6e 67 2c 20 72 65 74 75 72 6e 69 reading, returni
18c0: 6e 67 20 61 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 ng a Connection
18d0: 52 65 73 65 74 20 65 72 72 6f 72 20 77 68 69 63 Reset error whic
18e0: 68 20 6d 61 70 73 20 74 6f 20 53 6f 66 74 20 45 h maps to Soft E
18f0: 4f 46 22 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 OF");.. Tcl_S
1900: 65 74 45 72 72 6e 6f 28 45 43 4f 4e 4e 52 45 53 etErrno(ECONNRES
1910: 45 54 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 ET);.. BIO_se
1920: 74 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f t_flags(bio, BIO
1930: 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 29 3b 0a _FLAGS_IN_EOF);.
1940: 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 42 49 4f ..} else if (BIO
1950: 53 68 6f 75 6c 64 52 65 74 72 79 28 74 63 6c 45 ShouldRetry(tclE
1960: 72 72 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 rrno)) {.. dp
1970: 72 69 6e 74 66 28 22 47 6f 74 20 30 20 66 72 6f rintf("Got 0 fro
1980: 6d 20 54 63 6c 5f 52 65 61 64 52 61 77 2c 20 61 m Tcl_ReadRaw, a
1990: 6e 64 20 45 4f 46 20 69 73 20 6e 6f 74 20 73 65 nd EOF is not se
19a0: 74 3b 20 72 65 74 20 3d 20 30 22 29 3b 0a 09 20 t; ret = 0");..
19b0: 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 BIO_set_retry
19c0: 5f 72 65 61 64 28 62 69 6f 29 3b 0a 09 7d 0a 0a _read(bio);..}..
19d0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 64 70 } else {..dp
19e0: 72 69 6e 74 66 28 22 57 65 20 67 6f 74 20 73 6f rintf("We got so
19f0: 6d 65 20 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 65 me kind of I/O e
1a00: 72 72 6f 72 22 29 3b 0a 0a 09 69 66 20 28 42 49 rror");...if (BI
1a10: 4f 53 68 6f 75 6c 64 52 65 74 72 79 28 74 63 6c OShouldRetry(tcl
1a20: 45 72 72 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64 Errno)) {.. d
1a30: 70 72 69 6e 74 66 28 22 54 72 79 20 61 67 61 69 printf("Try agai
1a40: 6e 20 66 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 n for: %i=%s", t
1a50: 63 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 clErrno, Tcl_Err
1a60: 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 noMsg(tclErrno))
1a70: 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 ;.. BIO_set_r
1a80: 65 74 72 79 5f 72 65 61 64 28 62 69 6f 29 3b 0a etry_read(bio);.
1a90: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
1aa0: 64 70 72 69 6e 74 66 28 22 55 6e 65 78 70 65 63 dprintf("Unexpec
1ab0: 74 65 64 20 65 72 72 6f 72 3a 20 25 69 3d 25 73 ted error: %i=%s
1ac0: 22 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 54 63 6c ", tclErrno, Tcl
1ad0: 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c 45 72 72 _ErrnoMsg(tclErr
1ae0: 6e 6f 29 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 no));.. BIO_s
1af0: 65 74 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 et_flags(bio, BI
1b00: 4f 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 29 3b O_FLAGS_IN_EOF);
1b10: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 ..}. }.. d
1b20: 70 72 69 6e 74 66 28 22 42 69 6f 49 6e 70 75 74 printf("BioInput
1b30: 20 72 65 74 75 72 6e 69 6e 67 20 25 22 20 54 43 returning %" TC
1b40: 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 L_SIZE_MODIFIER
1b50: 22 64 22 2c 20 72 65 74 29 3b 0a 20 20 20 20 72 "d", ret);. r
1b60: 65 74 75 72 6e 20 28 69 6e 74 29 20 72 65 74 3b eturn (int) ret;
1b70: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
1b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bc0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f ------. *. * Bio
1bd0: 50 75 74 73 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Puts --. *. *.Th
1be0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 is function is u
1bf0: 73 65 64 20 74 6f 20 72 65 61 64 20 61 20 4e 55 sed to read a NU
1c00: 4c 4c 20 74 65 72 6d 69 6e 61 74 65 64 20 73 74 LL terminated st
1c10: 72 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 42 49 ring from the BI
1c20: 4f 20 61 6e 64 0a 20 2a 09 77 72 69 74 65 20 69 O and. *.write i
1c30: 74 20 74 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c t to the channel
1c40: 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 . This function
1c50: 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69 will be called i
1c60: 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f 0a 20 2a n response to. *
1c70: 09 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e .the application
1c80: 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 4f calling the BIO
1c90: 5f 70 75 74 73 28 29 20 66 75 6e 63 74 69 6f 6e _puts() function
1ca0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
1cb0: 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20 . *.Returns the
1cc0: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 number of bytes
1cd0: 72 65 61 64 20 66 72 6f 6d 20 63 68 61 6e 6e 65 read from channe
1ce0: 6c 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20 6f 72 l, 0 for EOF, or
1cf0: 20 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72 6f 72 -1 for. *.error
1d00: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
1d10: 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 ects:. *.Writes
1d20: 64 61 74 61 20 74 6f 20 63 68 61 6e 6e 65 6c 20 data to channel
1d30: 6f 72 20 73 65 74 73 20 72 65 74 72 79 20 66 6c or sets retry fl
1d40: 61 67 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ags.. *. *------
1d50: 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
1da0: 74 69 63 20 69 6e 74 20 42 69 6f 50 75 74 73 28 tic int BioPuts(
1db0: 42 49 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73 74 20 BIO *bio, const
1dc0: 63 68 61 72 20 2a 73 74 72 29 20 7b 0a 20 20 20 char *str) {.
1dd0: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 50 75 74 dprintf("BioPut
1de0: 73 28 25 70 29 20 5c 22 25 73 5c 22 22 2c 20 62 s(%p) \"%s\"", b
1df0: 69 6f 2c 20 73 74 72 29 3b 0a 0a 20 20 20 20 72 io, str);.. r
1e00: 65 74 75 72 6e 20 42 69 6f 4f 75 74 70 75 74 28 eturn BioOutput(
1e10: 62 69 6f 2c 20 73 74 72 2c 20 28 69 6e 74 29 20 bio, str, (int)
1e20: 73 74 72 6c 65 6e 28 73 74 72 29 29 3b 0a 7d 0a strlen(str));.}.
1e30: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
1e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e80: 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 43 74 72 ---. *. * BioCtr
1e90: 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 l --. *. *.This
1ea0: 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
1eb0: 20 74 6f 20 70 72 6f 63 65 73 73 20 63 6f 6e 74 to process cont
1ec0: 72 6f 6c 20 6d 65 73 73 61 67 65 73 20 69 6e 20 rol messages in
1ed0: 74 68 65 20 42 49 4f 2e 20 54 68 69 73 0a 20 2a the BIO. This. *
1ee0: 09 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 .function will b
1ef0: 65 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 e called in resp
1f00: 6f 6e 73 65 20 74 6f 20 74 68 65 20 61 70 70 6c onse to the appl
1f10: 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 ication calling
1f20: 74 68 65 0a 20 2a 09 42 49 4f 5f 63 74 72 6c 28 the. *.BIO_ctrl(
1f30: 29 20 66 75 6e 63 74 69 6f 6e 2e 20 53 65 76 65 ) function. Seve
1f40: 72 61 6c 20 66 75 6e 63 74 69 6f 6e 73 20 77 72 ral functions wr
1f50: 61 70 20 42 49 4f 5f 63 74 72 6c 28 29 20 73 75 ap BIO_ctrl() su
1f60: 63 68 20 61 73 0a 20 2a 09 42 49 4f 5f 65 6f 66 ch as. *.BIO_eof
1f70: 2c 20 42 49 4f 5f 66 6c 75 73 68 2c 20 42 49 4f , BIO_flush, BIO
1f80: 5f 70 65 6e 64 69 6e 67 2c 20 42 49 4f 5f 77 70 _pending, BIO_wp
1f90: 65 6e 64 69 6e 67 2c 20 65 74 63 2e 0a 20 2a 0a ending, etc.. *.
1fa0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 46 * Results:. *.F
1fb0: 75 6e 63 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e unction dependen
1fc0: 74 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 t. *. * Side eff
1fd0: 65 63 74 73 3a 0a 20 2a 09 46 75 6e 63 74 69 6f ects:. *.Functio
1fe0: 6e 20 64 65 70 65 6e 64 65 6e 74 0a 20 2a 0a 20 n dependent. *.
1ff0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2040: 2a 2f 0a 0a 73 74 61 74 69 63 20 6c 6f 6e 67 20 */..static long
2050: 42 69 6f 43 74 72 6c 28 42 49 4f 20 2a 62 69 6f BioCtrl(BIO *bio
2060: 2c 20 69 6e 74 20 63 6d 64 2c 20 6c 6f 6e 67 20 , int cmd, long
2070: 6e 75 6d 2c 20 76 6f 69 64 20 2a 70 74 72 29 20 num, void *ptr)
2080: 7b 0a 20 20 20 20 6c 6f 6e 67 20 72 65 74 20 3d {. long ret =
2090: 20 31 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 1;. State *s
20a0: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
20b0: 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 *) BIO_get_data
20c0: 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c 5f 43 (bio);. Tcl_C
20d0: 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 54 6c hannel chan = Tl
20e0: 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 s_GetParent(stat
20f0: 65 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20 20 64 ePtr, 0);.. d
2100: 70 72 69 6e 74 66 28 22 42 69 6f 43 74 72 6c 28 printf("BioCtrl(
2110: 25 70 2c 20 30 78 25 78 2c 20 30 78 25 6c 78 2c %p, 0x%x, 0x%lx,
2120: 20 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 %p)", (void *)
2130: 62 69 6f 2c 20 63 6d 64 2c 20 6e 75 6d 2c 20 70 bio, cmd, num, p
2140: 74 72 29 3b 0a 0a 20 20 20 20 73 77 69 74 63 68 tr);.. switch
2150: 20 28 63 6d 64 29 20 7b 0a 09 63 61 73 65 20 42 (cmd) {..case B
2160: 49 4f 5f 43 54 52 4c 5f 52 45 53 45 54 3a 0a 09 IO_CTRL_RESET:..
2170: 09 2f 2a 20 6f 70 74 20 2d 20 52 65 73 65 74 73 ./* opt - Resets
2180: 20 42 49 4f 20 74 6f 20 69 6e 69 74 69 61 6c 20 BIO to initial
2190: 73 74 61 74 65 2e 20 49 6d 70 6c 65 6d 65 6e 74 state. Implement
21a0: 73 20 42 49 4f 5f 72 65 73 65 74 2e 20 2a 2f 0a s BIO_reset. */.
21b0: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
21c0: 49 4f 5f 43 54 52 4c 5f 52 45 53 45 54 22 29 3b IO_CTRL_RESET");
21d0: 0a 09 09 2f 2a 20 52 65 74 75 72 6e 20 31 20 66 .../* Return 1 f
21e0: 6f 72 20 73 75 63 63 65 73 73 20 28 30 20 66 6f or success (0 fo
21f0: 72 20 66 69 6c 65 20 42 49 4f 73 29 20 61 6e 64 r file BIOs) and
2200: 20 2d 31 20 66 6f 72 20 66 61 69 6c 75 72 65 2e -1 for failure.
2210: 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 */...ret = 0;..
2220: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 .break;..case BI
2230: 4f 5f 43 54 52 4c 5f 45 4f 46 3a 0a 09 09 2f 2a O_CTRL_EOF:.../*
2240: 20 6f 70 74 20 2d 20 52 65 74 75 72 6e 73 20 77 opt - Returns w
2250: 68 65 74 68 65 72 20 45 4f 46 20 68 61 73 20 62 hether EOF has b
2260: 65 65 6e 20 72 65 61 63 68 65 64 2e 20 49 6d 70 een reached. Imp
2270: 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 65 6f 66 2e lements BIO_eof.
2280: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 */...dprintf("G
2290: 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 45 4f 46 22 ot BIO_CTRL_EOF"
22a0: 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 );.../* Returns
22b0: 31 20 69 66 20 45 4f 46 20 68 61 73 20 62 65 65 1 if EOF has bee
22c0: 6e 20 72 65 61 63 68 65 64 2c 20 30 20 69 66 20 n reached, 0 if
22d0: 6e 6f 74 2c 20 6f 72 20 3c 30 20 66 6f 72 20 66 not, or <0 for f
22e0: 61 69 6c 75 72 65 2e 20 2a 2f 0a 09 09 72 65 74 ailure. */...ret
22f0: 20 3d 20 28 28 63 68 61 6e 29 20 3f 20 28 54 63 = ((chan) ? (Tc
2300: 6c 5f 45 6f 66 28 63 68 61 6e 29 20 7c 7c 20 42 l_Eof(chan) || B
2310: 49 4f 5f 74 65 73 74 5f 66 6c 61 67 73 28 62 69 IO_test_flags(bi
2320: 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 49 4e 5f o, BIO_FLAGS_IN_
2330: 45 4f 46 29 29 20 3a 20 31 29 3b 0a 09 09 62 72 EOF)) : 1);...br
2340: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
2350: 54 52 4c 5f 49 4e 46 4f 3a 0a 09 09 2f 2a 20 6f TRL_INFO:.../* o
2360: 70 74 20 2d 20 65 78 74 72 61 20 69 6e 66 6f 20 pt - extra info
2370: 6f 6e 20 42 49 4f 2e 20 49 6d 70 6c 65 6d 65 6e on BIO. Implemen
2380: 74 73 20 42 49 4f 5f 67 65 74 5f 6d 65 6d 5f 64 ts BIO_get_mem_d
2390: 61 74 61 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 ata. */...dprint
23a0: 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f f("Got BIO_CTRL_
23b0: 49 4e 46 4f 22 29 3b 0a 09 09 72 65 74 20 3d 20 INFO");...ret =
23c0: 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 0;...break;..cas
23d0: 65 20 42 49 4f 5f 43 54 52 4c 5f 53 45 54 3a 0a e BIO_CTRL_SET:.
23e0: 09 09 2f 2a 20 6d 61 6e 20 2d 20 73 65 74 20 74 ../* man - set t
23f0: 68 65 20 27 49 4f 27 20 70 61 72 61 6d 65 74 65 he 'IO' paramete
2400: 72 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 r. */...dprintf(
2410: 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 53 45 "Got BIO_CTRL_SE
2420: 54 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a T");...ret = 0;.
2430: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2440: 49 4f 5f 43 54 52 4c 5f 47 45 54 3a 0a 09 09 2f IO_CTRL_GET:.../
2450: 2a 20 6d 61 6e 20 2d 20 67 65 74 20 74 68 65 20 * man - get the
2460: 27 49 4f 27 20 70 61 72 61 6d 65 74 65 72 2e 20 'IO' parameter.
2470: 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f */...dprintf("Go
2480: 74 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 20 22 t BIO_CTRL_GET "
2490: 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 );...ret = 0;...
24a0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
24b0: 5f 43 54 52 4c 5f 50 55 53 48 3a 0a 09 09 2f 2a _CTRL_PUSH:.../*
24c0: 20 6f 70 74 20 2d 20 69 6e 74 65 72 6e 61 6c 2c opt - internal,
24d0: 20 75 73 65 64 20 74 6f 20 73 69 67 6e 69 66 79 used to signify
24e0: 20 63 68 61 6e 67 65 2e 20 49 6d 70 6c 65 6d 65 change. Impleme
24f0: 6e 74 73 20 42 49 4f 5f 70 75 73 68 2e 20 2a 2f nts BIO_push. */
2500: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
2510: 42 49 4f 5f 43 54 52 4c 5f 50 55 53 48 22 29 3b BIO_CTRL_PUSH");
2520: 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 ...ret = 0;...br
2530: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 eak;..case BIO_C
2540: 54 52 4c 5f 50 4f 50 3a 0a 09 09 2f 2a 20 6f 70 TRL_POP:.../* op
2550: 74 20 2d 20 69 6e 74 65 72 6e 61 6c 2c 20 75 73 t - internal, us
2560: 65 64 20 74 6f 20 73 69 67 6e 69 66 79 20 63 68 ed to signify ch
2570: 61 6e 67 65 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 ange. Implements
2580: 20 42 49 4f 5f 70 6f 70 2e 20 2a 2f 0a 09 09 64 BIO_pop. */...d
2590: 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f printf("Got BIO_
25a0: 43 54 52 4c 5f 50 4f 50 22 29 3b 0a 09 09 72 65 CTRL_POP");...re
25b0: 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a t = 0;...break;.
25c0: 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 .case BIO_CTRL_G
25d0: 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 2f 2a 20 6d ET_CLOSE:.../* m
25e0: 61 6e 20 2d 20 47 65 74 20 74 68 65 20 63 6c 6f an - Get the clo
25f0: 73 65 20 6f 6e 20 42 49 4f 5f 66 72 65 65 28 29 se on BIO_free()
2600: 20 66 6c 61 67 20 73 65 74 20 62 79 20 42 49 4f flag set by BIO
2610: 5f 43 54 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 2e _CTRL_SET_CLOSE.
2620: 0a 5c 09 09 20 2a 20 49 6d 70 6c 65 6d 65 6e 74 .\.. * Implement
2630: 73 20 42 49 4f 5f 67 65 74 5f 63 6c 6f 73 65 2e s BIO_get_close.
2640: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 */...dprintf("G
2650: 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 43 4c 4f 53 ot BIO_CTRL_CLOS
2660: 45 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e E");.../* Return
2670: 73 20 42 49 4f 5f 43 4c 4f 53 45 2c 20 42 49 4f s BIO_CLOSE, BIO
2680: 5f 4e 4f 43 4c 4f 53 45 2c 20 6f 72 20 3c 30 20 _NOCLOSE, or <0
2690: 66 6f 72 20 66 61 69 6c 75 72 65 2e 20 2a 2f 0a for failure. */.
26a0: 09 09 72 65 74 20 3d 20 42 49 4f 5f 67 65 74 5f ..ret = BIO_get_
26b0: 73 68 75 74 64 6f 77 6e 28 62 69 6f 29 3b 0a 09 shutdown(bio);..
26c0: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 .break;..case BI
26d0: 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 O_CTRL_SET_CLOSE
26e0: 3a 0a 09 09 2f 2a 20 6d 61 6e 20 2d 20 53 65 74 :.../* man - Set
26f0: 20 74 68 65 20 63 6c 6f 73 65 20 6f 6e 20 42 49 the close on BI
2700: 4f 5f 66 72 65 65 28 29 20 66 6c 61 67 2e 20 49 O_free() flag. I
2710: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 mplements BIO_se
2720: 74 5f 63 6c 6f 73 65 2e 20 2a 2f 0a 09 09 64 70 t_close. */...dp
2730: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 53 rintf("Got BIO_S
2740: 45 54 5f 43 4c 4f 53 45 22 29 3b 0a 09 09 42 49 ET_CLOSE");...BI
2750: 4f 5f 73 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 O_set_shutdown(b
2760: 69 6f 2c 20 28 69 6e 74 29 6e 75 6d 29 3b 0a 09 io, (int)num);..
2770: 09 2f 2a 20 52 65 74 75 72 6e 73 20 31 20 6f 6e ./* Returns 1 on
2780: 20 73 75 63 63 65 73 73 20 6f 72 20 3c 3d 30 20 success or <=0
2790: 66 6f 72 20 66 61 69 6c 75 72 65 2e 20 2a 2f 0a for failure. */.
27a0: 09 09 72 65 74 20 3d 20 31 3b 0a 09 09 62 72 65 ..ret = 1;...bre
27b0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 ak;..case BIO_CT
27c0: 52 4c 5f 50 45 4e 44 49 4e 47 3a 0a 09 09 2f 2a RL_PENDING:.../*
27d0: 20 6f 70 74 20 2d 20 52 65 74 75 72 6e 20 6e 75 opt - Return nu
27e0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 6e mber of bytes in
27f0: 20 63 68 61 6e 20 77 61 69 74 69 6e 67 20 74 6f chan waiting to
2800: 20 62 65 20 72 65 61 64 2e 0a 09 09 20 20 20 49 be read.... I
2810: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 70 65 mplements BIO_pe
2820: 6e 64 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 72 69 nding. */...dpri
2830: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
2840: 4c 5f 50 45 4e 44 49 4e 47 22 29 3b 0a 09 09 2f L_PENDING");.../
2850: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 61 6d 6f * Return the amo
2860: 75 6e 74 20 6f 66 20 70 65 6e 64 69 6e 67 20 64 unt of pending d
2870: 61 74 61 20 6f 72 20 30 20 66 6f 72 20 65 72 72 ata or 0 for err
2880: 6f 72 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 or. */...ret = (
2890: 28 63 68 61 6e 29 20 3f 20 54 63 6c 5f 49 6e 70 (chan) ? Tcl_Inp
28a0: 75 74 42 75 66 66 65 72 65 64 28 63 68 61 6e 29 utBuffered(chan)
28b0: 20 3a 20 30 29 3b 0a 09 09 64 70 72 69 6e 74 66 : 0);...dprintf
28c0: 28 22 72 62 69 6f 20 70 65 6e 64 69 6e 67 3d 25 ("rbio pending=%
28d0: 6c 64 22 2c 20 72 65 74 29 3b 0a 09 09 62 72 65 ld", ret);...bre
28e0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 ak;..case BIO_CT
28f0: 52 4c 5f 46 4c 55 53 48 3a 0a 09 09 2f 2a 20 6f RL_FLUSH:.../* o
2900: 70 74 20 2d 20 46 6c 75 73 68 20 61 6e 79 20 62 pt - Flush any b
2910: 75 66 66 65 72 65 64 20 6f 75 74 70 75 74 2e 20 uffered output.
2920: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 66 Implements BIO_f
2930: 6c 75 73 68 2e 20 2a 2f 0a 09 09 64 70 72 69 6e lush. */...dprin
2940: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
2950: 5f 46 4c 55 53 48 22 29 3b 0a 09 09 2f 2a 20 55 _FLUSH");.../* U
2960: 73 65 20 54 63 6c 5f 57 72 69 74 65 52 61 77 20 se Tcl_WriteRaw
2970: 69 6e 73 74 65 61 64 20 6f 66 20 54 63 6c 5f 46 instead of Tcl_F
2980: 6c 75 73 68 20 74 6f 20 6f 70 65 72 61 74 65 20 lush to operate
2990: 6f 6e 20 72 69 67 68 74 0a 09 09 20 2a 20 63 68 on right... * ch
29a0: 61 6e 20 69 6e 20 73 74 61 63 6b 2e 20 52 65 74 an in stack. Ret
29b0: 75 72 6e 73 20 31 20 66 6f 72 20 73 75 63 63 65 urns 1 for succe
29c0: 73 73 2c 20 3c 3d 30 20 66 6f 72 20 65 72 72 6f ss, <=0 for erro
29d0: 72 2f 72 65 74 72 79 2e 20 2a 2f 0a 09 09 69 66 r/retry. */...if
29e0: 20 28 21 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 (!Tcl_Eof(chan)
29f0: 20 26 26 20 21 42 49 4f 5f 74 65 73 74 5f 66 6c && !BIO_test_fl
2a00: 61 67 73 28 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 ags(bio, BIO_FLA
2a10: 47 53 5f 49 4e 5f 45 4f 46 29 29 20 7b 0a 09 09 GS_IN_EOF)) {...
2a20: 20 20 20 20 72 65 74 20 3d 20 28 6c 6f 6e 67 29 ret = (long)
2a30: 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 63 68 Tcl_WriteRaw(ch
2a40: 61 6e 2c 20 22 22 2c 20 30 29 3b 0a 09 09 20 20 an, "", 0);...
2a50: 20 20 69 66 20 28 54 63 6c 5f 45 6f 66 28 63 68 if (Tcl_Eof(ch
2a60: 61 6e 29 20 7c 7c 20 28 72 65 74 20 3c 20 30 20 an) || (ret < 0
2a70: 26 26 20 21 42 49 4f 53 68 6f 75 6c 64 52 65 74 && !BIOShouldRet
2a80: 72 79 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 ry(Tcl_GetErrno(
2a90: 29 29 29 29 20 7b 0a 09 09 09 42 49 4f 5f 73 65 )))) {....BIO_se
2aa0: 74 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f t_flags(bio, BIO
2ab0: 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f 46 29 3b 0a _FLAGS_IN_EOF);.
2ac0: 09 09 09 72 65 74 20 3d 20 2d 31 3b 0a 09 09 20 ...ret = -1;...
2ad0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 72 } else {....r
2ae0: 65 74 20 3d 20 31 3b 0a 09 09 20 20 20 20 7d 0a et = 1;... }.
2af0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 ..} else {...
2b00: 20 72 65 74 20 3d 20 31 3b 0a 09 09 7d 0a 09 09 ret = 1;...}...
2b10: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
2b20: 5f 43 54 52 4c 5f 44 55 50 3a 0a 09 09 2f 2a 20 _CTRL_DUP:.../*
2b30: 6d 61 6e 20 2d 20 65 78 74 72 61 20 73 74 75 66 man - extra stuf
2b40: 66 20 66 6f 72 20 27 64 75 70 65 64 27 20 42 49 f for 'duped' BI
2b50: 4f 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 O. Implements BI
2b60: 4f 5f 64 75 70 5f 73 74 61 74 65 2e 20 2a 2f 0a O_dup_state. */.
2b70: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
2b80: 49 4f 5f 43 54 52 4c 5f 44 55 50 22 29 3b 0a 09 IO_CTRL_DUP");..
2b90: 09 72 65 74 20 3d 20 31 3b 0a 09 09 62 72 65 61 .ret = 1;...brea
2ba0: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
2bb0: 4c 5f 57 50 45 4e 44 49 4e 47 3a 0a 09 09 2f 2a L_WPENDING:.../*
2bc0: 20 6f 70 74 20 2d 20 52 65 74 75 72 6e 20 6e 75 opt - Return nu
2bd0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 6e mber of bytes in
2be0: 20 63 68 61 6e 20 73 74 69 6c 6c 20 74 6f 20 62 chan still to b
2bf0: 65 20 77 72 69 74 74 65 6e 2e 0a 09 09 20 2a 20 e written.... *
2c00: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 77 Implements BIO_w
2c10: 70 65 6e 64 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 pending. */...dp
2c20: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
2c30: 54 52 4c 5f 57 50 45 4e 44 49 4e 47 22 29 3b 0a TRL_WPENDING");.
2c40: 09 09 2f 2a 20 52 65 74 75 72 6e 20 74 68 65 20 ../* Return the
2c50: 61 6d 6f 75 6e 74 20 6f 66 20 70 65 6e 64 69 6e amount of pendin
2c60: 67 20 64 61 74 61 20 6f 72 20 30 20 66 6f 72 20 g data or 0 for
2c70: 65 72 72 6f 72 20 2a 2f 0a 09 09 72 65 74 20 3d error */...ret =
2c80: 20 28 28 63 68 61 6e 29 20 3f 20 54 63 6c 5f 4f ((chan) ? Tcl_O
2c90: 75 74 70 75 74 42 75 66 66 65 72 65 64 28 63 68 utputBuffered(ch
2ca0: 61 6e 29 20 3a 20 30 29 3b 0a 09 09 64 70 72 69 an) : 0);...dpri
2cb0: 6e 74 66 28 22 77 62 69 6f 20 70 65 6e 64 69 6e ntf("wbio pendin
2cc0: 67 3d 25 6c 64 22 2c 20 72 65 74 29 3b 0a 09 09 g=%ld", ret);...
2cd0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
2ce0: 5f 43 54 52 4c 5f 53 45 54 5f 43 41 4c 4c 42 41 _CTRL_SET_CALLBA
2cf0: 43 4b 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 53 CK:.../* opt - S
2d00: 65 74 73 20 61 6e 20 69 6e 66 6f 72 6d 61 74 69 ets an informati
2d10: 6f 6e 61 6c 20 63 61 6c 6c 62 61 63 6b 2e 20 49 onal callback. I
2d20: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 mplements BIO_se
2d30: 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 2e t_info_callback.
2d40: 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 */...ret = 0;..
2d50: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 .break;..case BI
2d60: 4f 5f 43 54 52 4c 5f 47 45 54 5f 43 41 4c 4c 42 O_CTRL_GET_CALLB
2d70: 41 43 4b 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 ACK:.../* opt -
2d80: 47 65 74 20 61 6e 64 20 72 65 74 75 72 6e 20 74 Get and return t
2d90: 68 65 20 69 6e 66 6f 20 63 61 6c 6c 62 61 63 6b he info callback
2da0: 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f . Implements BIO
2db0: 5f 67 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 _get_info_callba
2dc0: 63 6b 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 ck. */...ret = 0
2dd0: 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 09 63 61 73 ;...break;...cas
2de0: 65 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 45 45 e BIO_C_FILE_SEE
2df0: 4b 3a 0a 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 K:.../* Not used
2e00: 20 66 6f 72 20 73 6f 63 6b 65 74 73 2e 20 54 63 for sockets. Tc
2e10: 6c 5f 53 65 65 6b 20 6f 6e 6c 79 20 77 6f 72 6b l_Seek only work
2e20: 73 20 6f 6e 20 74 6f 70 20 63 68 61 6e 2e 20 49 s on top chan. I
2e30: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 mplements BIO_se
2e40: 65 6b 28 29 2e 20 2a 2f 0a 09 09 64 70 72 69 6e ek(). */...dprin
2e50: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 tf("Got BIO_C_FI
2e60: 4c 45 5f 53 45 45 4b 22 29 3b 0a 09 09 72 65 74 LE_SEEK");...ret
2e70: 20 3d 20 30 3b 20 2f 2a 20 52 65 74 75 72 6e 20 = 0; /* Return
2e80: 30 20 73 75 63 63 65 73 73 20 61 6e 64 20 2d 31 0 success and -1
2e90: 20 66 6f 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a for failure */.
2ea0: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2eb0: 49 4f 5f 43 5f 46 49 4c 45 5f 54 45 4c 4c 3a 0a IO_C_FILE_TELL:.
2ec0: 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 20 66 6f ../* Not used fo
2ed0: 72 20 73 6f 63 6b 65 74 73 2e 20 54 63 6c 5f 54 r sockets. Tcl_T
2ee0: 65 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 6f ell only works o
2ef0: 6e 20 74 6f 70 20 63 68 61 6e 2e 20 49 6d 70 6c n top chan. Impl
2f00: 65 6d 65 6e 74 73 20 42 49 4f 5f 74 65 6c 6c 28 ements BIO_tell(
2f10: 29 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 ). */...dprintf(
2f20: 22 47 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f "Got BIO_C_FILE_
2f30: 54 45 4c 4c 22 29 3b 0a 09 09 72 65 74 20 3d 20 TELL");...ret =
2f40: 30 3b 20 2f 2a 20 52 65 74 75 72 6e 20 30 20 73 0; /* Return 0 s
2f50: 75 63 63 65 73 73 20 61 6e 64 20 2d 31 20 66 6f uccess and -1 fo
2f60: 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 62 r failure */...b
2f70: 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f reak;..case BIO_
2f80: 43 5f 53 45 54 5f 46 44 3a 0a 09 09 2f 2a 20 49 C_SET_FD:.../* I
2f90: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 73 65 mplements BIO_se
2fa0: 74 5f 66 64 20 2a 2f 0a 09 09 64 70 72 69 6e 74 t_fd */...dprint
2fb0: 66 28 22 55 6e 73 75 70 70 6f 72 74 65 64 20 63 f("Unsupported c
2fc0: 61 6c 6c 3a 20 42 49 4f 5f 43 5f 53 45 54 5f 46 all: BIO_C_SET_F
2fd0: 44 22 29 3b 0a 09 09 72 65 74 20 3d 20 2d 31 3b D");...ret = -1;
2fe0: 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 ...break;..case
2ff0: 42 49 4f 5f 43 5f 47 45 54 5f 46 44 3a 0a 09 09 BIO_C_GET_FD:...
3000: 2f 2a 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 /* Implements BI
3010: 4f 5f 67 65 74 5f 66 64 28 29 20 2a 2f 0a 09 09 O_get_fd() */...
3020: 64 70 72 69 6e 74 66 28 22 55 6e 73 75 70 70 6f dprintf("Unsuppo
3030: 72 74 65 64 20 63 61 6c 6c 3a 20 42 49 4f 5f 43 rted call: BIO_C
3040: 5f 47 45 54 5f 46 44 22 29 3b 0a 09 09 72 65 74 _GET_FD");...ret
3050: 20 3d 20 2d 31 3b 0a 09 09 62 72 65 61 6b 3b 0a = -1;...break;.
3060: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
3070: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 SION_NUMBER >= 0
3080: 78 33 30 30 30 30 30 30 30 4c 0a 09 63 61 73 65 x30000000L..case
3090: 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 BIO_CTRL_GET_KT
30a0: 4c 53 5f 53 45 4e 44 3a 0a 09 09 2f 2a 20 49 6d LS_SEND:.../* Im
30b0: 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 plements BIO_get
30c0: 5f 6b 74 6c 73 5f 73 65 6e 64 20 2a 2f 0a 09 09 _ktls_send */...
30d0: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f dprintf("Got BIO
30e0: 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 53 _CTRL_GET_KTLS_S
30f0: 45 4e 44 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 END");.../* Retu
3100: 72 6e 73 20 31 20 69 66 20 74 68 65 20 42 49 4f rns 1 if the BIO
3110: 20 69 73 20 75 73 69 6e 67 20 74 68 65 20 4b 65 is using the Ke
3120: 72 6e 65 6c 20 54 4c 53 20 64 61 74 61 2d 70 61 rnel TLS data-pa
3130: 74 68 20 66 6f 72 20 73 65 6e 64 69 6e 67 2c 20 th for sending,
3140: 30 20 69 66 20 6e 6f 74 2e 20 2a 2f 0a 09 09 72 0 if not. */...r
3150: 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b et = 0;...break;
3160: 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f ..case BIO_CTRL_
3170: 47 45 54 5f 4b 54 4c 53 5f 52 45 43 56 3a 0a 09 GET_KTLS_RECV:..
3180: 09 2f 2a 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 ./* Implements B
3190: 49 4f 5f 67 65 74 5f 6b 74 6c 73 5f 72 65 63 76 IO_get_ktls_recv
31a0: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 */...dprintf("G
31b0: 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f ot BIO_CTRL_GET_
31c0: 4b 54 4c 53 5f 52 45 43 56 22 29 3b 0a 09 09 2f KTLS_RECV");.../
31d0: 2a 20 52 65 74 75 72 6e 73 20 31 20 69 66 20 74 * Returns 1 if t
31e0: 68 65 20 42 49 4f 20 69 73 20 75 73 69 6e 67 20 he BIO is using
31f0: 74 68 65 20 4b 65 72 6e 65 6c 20 54 4c 53 20 64 the Kernel TLS d
3200: 61 74 61 2d 70 61 74 68 20 66 6f 72 20 72 65 63 ata-path for rec
3210: 65 69 76 69 6e 67 2c 20 30 20 69 66 20 6e 6f 74 eiving, 0 if not
3220: 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a . */...ret = 0;.
3230: 09 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a ..break;.#endif.
3240: 09 64 65 66 61 75 6c 74 3a 0a 09 09 64 70 72 69 .default:...dpri
3250: 6e 74 66 28 22 47 6f 74 20 75 6e 6b 6e 6f 77 6e ntf("Got unknown
3260: 20 63 6f 6e 74 72 6f 6c 20 63 6f 6d 6d 61 6e 64 control command
3270: 20 28 25 69 29 22 2c 20 63 6d 64 29 3b 0a 09 09 (%i)", cmd);...
3280: 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b ret = 0;...break
3290: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 70 72 69 ;. }. dpri
32a0: 6e 74 66 28 22 42 69 6f 43 74 72 6c 20 72 65 74 ntf("BioCtrl ret
32b0: 75 72 6e 20 76 61 6c 75 65 20 25 6c 69 22 2c 20 urn value %li",
32c0: 72 65 74 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ret);. return
32d0: 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d ret;.}../*. *--
32e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
3330: 2a 20 42 69 6f 4e 65 77 20 2d 2d 0a 20 2a 0a 20 * BioNew --. *.
3340: 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 *.This function
3350: 69 73 20 75 73 65 64 20 74 6f 20 63 72 65 61 74 is used to creat
3360: 65 20 61 20 6e 65 77 20 69 6e 73 74 61 6e 63 65 e a new instance
3370: 20 6f 66 20 74 68 65 20 42 49 4f 2e 20 54 68 69 of the BIO. Thi
3380: 73 0a 20 2a 09 66 75 6e 63 74 69 6f 6e 20 77 69 s. *.function wi
3390: 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 ll be called in
33a0: 72 65 73 70 6f 6e 73 65 20 74 6f 20 74 68 65 20 response to the
33b0: 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c application call
33c0: 69 6e 67 20 74 68 65 0a 20 2a 09 42 49 4f 5f 6e ing the. *.BIO_n
33d0: 65 77 28 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 ew() function..
33e0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
33f0: 09 52 65 74 75 72 6e 73 20 62 6f 6f 6c 65 61 6e .Returns boolean
3400: 20 73 75 63 63 65 73 73 20 72 65 73 75 6c 74 20 success result
3410: 28 31 3d 73 75 63 63 65 73 73 2c 20 30 3d 66 61 (1=success, 0=fa
3420: 69 6c 75 72 65 29 2e 0a 20 2a 0a 20 2a 20 53 69 ilure).. *. * Si
3430: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 49 de effects:. *.I
3440: 6e 69 74 69 61 6c 69 7a 65 73 20 42 49 4f 20 73 nitializes BIO s
3450: 74 72 75 63 74 75 72 65 2e 0a 20 2a 0a 20 2a 2d tructure.. *. *-
3460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
34b0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f ..static int Bio
34c0: 4e 65 77 28 42 49 4f 20 2a 62 69 6f 29 20 7b 0a New(BIO *bio) {.
34d0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 6f dprintf("Bio
34e0: 4e 65 77 28 25 70 29 20 63 61 6c 6c 65 64 22 2c New(%p) called",
34f0: 20 62 69 6f 29 3b 0a 0a 20 20 20 20 69 66 20 28 bio);.. if (
3500: 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 bio == NULL) {..
3510: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a return 0;. }.
3520: 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 64 61 74 . BIO_set_dat
3530: 61 28 62 69 6f 2c 20 4e 55 4c 4c 29 3b 0a 20 20 a(bio, NULL);.
3540: 20 20 42 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 BIO_set_init(b
3550: 69 6f 2c 20 30 29 3b 0a 20 20 20 20 42 49 4f 5f io, 0);. BIO_
3560: 63 6c 65 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c clear_flags(bio,
3570: 20 2d 31 29 3b 0a 20 20 20 20 72 65 74 75 72 6e -1);. return
3580: 20 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 1;.}../*. *----
3590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
35e0: 42 69 6f 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a BioFree --. *. *
35f0: 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 .This function i
3600: 73 20 75 73 65 64 20 74 6f 20 64 65 73 74 72 6f s used to destro
3610: 79 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 y an instance of
3620: 20 61 20 42 49 4f 2e 20 54 68 69 73 20 66 75 6e a BIO. This fun
3630: 63 74 69 6f 6e 0a 20 2a 09 77 69 6c 6c 20 62 65 ction. *.will be
3640: 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f called in respo
3650: 6e 73 65 20 74 6f 20 74 68 65 20 61 70 70 6c 69 nse to the appli
3660: 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 cation calling t
3670: 68 65 20 42 49 4f 5f 66 72 65 65 28 29 0a 20 2a he BIO_free(). *
3680: 09 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a .function.. *. *
3690: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 Results:. *.Ret
36a0: 75 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 73 75 63 urns boolean suc
36b0: 63 65 73 73 20 72 65 73 75 6c 74 20 28 31 3d 73 cess result (1=s
36c0: 75 63 63 65 73 73 2c 20 30 3d 66 61 69 6c 75 72 uccess, 0=failur
36d0: 65 29 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 e).. *. * Side e
36e0: 66 66 65 63 74 73 3a 0a 20 2a 09 44 65 2d 69 6e ffects:. *.De-in
36f0: 69 74 69 61 6c 69 7a 65 73 20 42 49 4f 20 73 74 itializes BIO st
3700: 72 75 63 74 75 72 65 2e 0a 20 2a 0a 20 2a 2d 2d ructure.. *. *--
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3760: 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f 46 .static int BioF
3770: 72 65 65 28 42 49 4f 20 2a 62 69 6f 29 20 7b 0a ree(BIO *bio) {.
3780: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 6f dprintf("Bio
3790: 46 72 65 65 28 25 70 29 20 63 61 6c 6c 65 64 22 Free(%p) called"
37a0: 2c 20 62 69 6f 29 3b 0a 0a 20 20 20 20 69 66 20 , bio);.. if
37b0: 28 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a (bio == NULL) {.
37c0: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
37d0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 66 .. /* Clear f
37e0: 6c 61 67 73 20 69 66 20 73 65 74 20 74 6f 20 42 lags if set to B
37f0: 49 4f 5f 43 4c 4f 53 45 20 28 63 6c 6f 73 65 20 IO_CLOSE (close
3800: 49 2f 4f 20 73 74 72 65 61 6d 20 77 68 65 6e 20 I/O stream when
3810: 74 68 65 20 42 49 4f 20 69 73 20 66 72 65 65 64 the BIO is freed
3820: 29 20 2a 2f 0a 20 20 20 20 69 66 20 28 42 49 4f ) */. if (BIO
3830: 5f 67 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 _get_shutdown(bi
3840: 6f 29 29 20 7b 0a 09 42 49 4f 5f 73 65 74 5f 64 o)) {..BIO_set_d
3850: 61 74 61 28 62 69 6f 2c 20 4e 55 4c 4c 29 3b 0a ata(bio, NULL);.
3860: 09 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 .BIO_clear_flags
3870: 28 62 69 6f 2c 20 2d 31 29 3b 0a 09 42 49 4f 5f (bio, -1);..BIO_
3880: 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 30 29 set_init(bio, 0)
3890: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
38a0: 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d rn 1;.}../*. *--
38b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
3900: 2a 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 20 2d 2d * BIO_new_tcl --
3910: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
3920: 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 tion is used to
3930: 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 42 initialize the B
3940: 49 4f 20 6d 65 74 68 6f 64 20 68 61 6e 64 6c 65 IO method handle
3950: 72 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 rs.. *. * Result
3960: 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 70 6f s:. *.Returns po
3970: 69 6e 74 65 72 20 74 6f 20 42 49 4f 20 6f 72 20 inter to BIO or
3980: 4e 55 4c 4c 20 66 6f 72 20 66 61 69 6c 75 72 65 NULL for failure
3990: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
39a0: 63 74 73 3a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 cts:. *.Initiali
39b0: 7a 65 73 20 42 49 4f 20 4d 65 74 68 6f 64 73 2e zes BIO Methods.
39c0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
39d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a10: 2d 2d 2d 0a 20 2a 2f 0a 0a 42 49 4f 20 2a 42 49 ---. */..BIO *BI
3a20: 4f 5f 6e 65 77 5f 74 63 6c 28 53 74 61 74 65 20 O_new_tcl(State
3a30: 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 20 66 *statePtr, int f
3a40: 6c 61 67 73 29 20 7b 0a 20 20 20 20 42 49 4f 20 lags) {. BIO
3a50: 2a 62 69 6f 3b 0a 23 69 66 64 65 66 20 54 43 4c *bio;.#ifdef TCL
3a60: 54 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41 53 54 TLS_SSL_USE_FAST
3a70: 50 41 54 48 0a 20 20 20 20 54 63 6c 5f 43 68 61 PATH. Tcl_Cha
3a80: 6e 6e 65 6c 20 70 61 72 65 6e 74 43 68 61 6e 6e nnel parentChann
3a90: 65 6c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 54 63 el;. const Tc
3aa0: 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 70 l_ChannelType *p
3ab0: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 65 arentChannelType
3ac0: 3b 0a 0a 20 20 20 20 69 6e 74 20 70 61 72 65 6e ;.. int paren
3ad0: 74 43 68 61 6e 6e 65 6c 46 64 49 6e 2c 20 70 61 tChannelFdIn, pa
3ae0: 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 rentChannelFdOut
3af0: 2c 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 , parentChannelF
3b00: 64 3b 0a 20 20 20 20 69 6e 74 20 76 61 6c 69 64 d;. int valid
3b10: 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 3b ParentChannelFd;
3b20: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 64 70 72 .#endif.. dpr
3b30: 69 6e 74 66 28 22 42 49 4f 5f 6e 65 77 5f 74 63 intf("BIO_new_tc
3b40: 6c 28 29 20 63 61 6c 6c 65 64 22 29 3b 0a 0a 20 l() called");..
3b50: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 63 75 73 /* Create cus
3b60: 74 6f 6d 20 42 49 4f 20 6d 65 74 68 6f 64 20 2a tom BIO method *
3b70: 2f 0a 20 20 20 20 69 66 20 28 42 69 6f 4d 65 74 /. if (BioMet
3b80: 68 6f 64 73 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a hods == NULL) {.
3b90: 09 2f 2a 20 42 49 4f 5f 54 59 50 45 5f 42 49 4f ./* BIO_TYPE_BIO
3ba0: 20 3d 20 28 31 39 7c 42 49 4f 5f 54 59 50 45 5f = (19|BIO_TYPE_
3bb0: 53 4f 55 52 43 45 5f 53 49 4e 4b 29 20 2d 2d 20 SOURCE_SINK) --
3bc0: 68 61 6c 66 20 61 20 42 49 4f 20 70 61 69 72 20 half a BIO pair
3bd0: 2a 2f 0a 09 2f 2a 20 63 75 73 74 6f 6d 20 3d 20 */../* custom =
3be0: 42 49 4f 5f 67 65 74 5f 6e 65 77 5f 69 6e 64 65 BIO_get_new_inde
3bf0: 78 28 29 20 7c 20 42 49 4f 5f 54 59 50 45 5f 53 x() | BIO_TYPE_S
3c00: 4f 55 52 43 45 5f 53 49 4e 4b 20 2a 2f 0a 09 42 OURCE_SINK */..B
3c10: 69 6f 4d 65 74 68 6f 64 73 20 3d 20 42 49 4f 5f ioMethods = BIO_
3c20: 6d 65 74 68 5f 6e 65 77 28 42 49 4f 5f 54 59 50 meth_new(BIO_TYP
3c30: 45 5f 42 49 4f 2c 20 22 74 63 6c 22 29 3b 0a 09 E_BIO, "tcl");..
3c40: 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 20 3d if (BioMethods =
3c50: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 64 = NULL) {.. d
3c60: 70 72 69 6e 74 66 28 22 4d 65 6d 6f 72 79 20 61 printf("Memory a
3c70: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
3c80: 29 3b 0a 0a 09 20 20 20 20 72 65 74 75 72 6e 20 );... return
3c90: 4e 55 4c 4c 3b 0a 09 7d 0a 09 2f 2a 20 4e 6f 74 NULL;..}../* Not
3ca0: 20 75 73 65 64 20 42 49 4f 5f 6d 65 74 68 5f 73 used BIO_meth_s
3cb0: 65 74 5f 77 72 69 74 65 5f 65 78 20 2a 2f 0a 09 et_write_ex */..
3cc0: 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 77 72 69 BIO_meth_set_wri
3cd0: 74 65 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 te(BioMethods, B
3ce0: 69 6f 4f 75 74 70 75 74 29 3b 0a 09 2f 2a 20 4e ioOutput);../* N
3cf0: 6f 74 20 75 73 65 64 20 42 49 4f 5f 6d 65 74 68 ot used BIO_meth
3d00: 5f 73 65 74 5f 72 65 61 64 5f 65 78 20 2a 2f 0a _set_read_ex */.
3d10: 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 72 65 .BIO_meth_set_re
3d20: 61 64 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 ad(BioMethods, B
3d30: 69 6f 49 6e 70 75 74 29 3b 0a 09 42 49 4f 5f 6d ioInput);..BIO_m
3d40: 65 74 68 5f 73 65 74 5f 70 75 74 73 28 42 69 6f eth_set_puts(Bio
3d50: 4d 65 74 68 6f 64 73 2c 20 42 69 6f 50 75 74 73 Methods, BioPuts
3d60: 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 );..BIO_meth_set
3d70: 5f 63 74 72 6c 28 42 69 6f 4d 65 74 68 6f 64 73 _ctrl(BioMethods
3d80: 2c 20 42 69 6f 43 74 72 6c 29 3b 0a 09 42 49 4f , BioCtrl);..BIO
3d90: 5f 6d 65 74 68 5f 73 65 74 5f 63 72 65 61 74 65 _meth_set_create
3da0: 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f (BioMethods, Bio
3db0: 4e 65 77 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f New);..BIO_meth_
3dc0: 73 65 74 5f 64 65 73 74 72 6f 79 28 42 69 6f 4d set_destroy(BioM
3dd0: 65 74 68 6f 64 73 2c 20 42 69 6f 46 72 65 65 29 ethods, BioFree)
3de0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
3df0: 28 73 74 61 74 65 50 74 72 20 3d 3d 20 4e 55 4c (statePtr == NUL
3e00: 4c 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 L) {..dprintf("A
3e10: 73 6b 65 64 20 74 6f 20 73 65 74 75 70 20 61 20 sked to setup a
3e20: 4e 55 4c 4c 20 73 74 61 74 65 2c 20 6a 75 73 74 NULL state, just
3e30: 20 63 72 65 61 74 69 6e 67 20 74 68 65 20 69 6e creating the in
3e40: 69 74 69 61 6c 20 63 6f 6e 66 69 67 75 72 61 74 itial configurat
3e50: 69 6f 6e 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 ion");...return
3e60: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 NULL;. }..#if
3e70: 64 65 66 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 55 def TCLTLS_SSL_U
3e80: 53 45 5f 46 41 53 54 50 41 54 48 0a 20 20 20 20 SE_FASTPATH.
3e90: 2f 2a 0a 20 20 20 20 20 2a 20 49 66 20 74 68 65 /*. * If the
3ea0: 20 63 68 61 6e 6e 65 6c 20 63 61 6e 20 62 65 20 channel can be
3eb0: 6d 61 70 70 65 64 20 62 61 63 6b 20 74 6f 20 61 mapped back to a
3ec0: 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 file descriptor
3ed0: 2c 20 6a 75 73 74 20 75 73 65 20 74 68 65 20 66 , just use the f
3ee0: 69 6c 65 0a 20 20 20 20 20 2a 20 64 65 73 63 72 ile. * descr
3ef0: 69 70 74 6f 72 20 77 69 74 68 20 74 68 65 20 53 iptor with the S
3f00: 53 4c 20 6c 69 62 72 61 72 79 20 73 69 6e 63 65 SL library since
3f10: 20 69 74 20 77 69 6c 6c 20 6c 69 6b 65 6c 79 20 it will likely
3f20: 62 65 20 6f 70 74 69 6d 69 7a 65 64 20 66 6f 72 be optimized for
3f30: 20 74 68 69 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 this.. */.
3f40: 20 20 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c parentChannel
3f50: 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 = Tls_GetParent
3f60: 28 73 74 61 74 65 50 74 72 2c 20 30 29 3b 0a 20 (statePtr, 0);.
3f70: 20 20 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c parentChannel
3f80: 54 79 70 65 20 3d 20 54 63 6c 5f 47 65 74 43 68 Type = Tcl_GetCh
3f90: 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 annelType(parent
3fa0: 43 68 61 6e 6e 65 6c 29 3b 0a 0a 20 20 20 20 76 Channel);.. v
3fb0: 61 6c 69 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 alidParentChanne
3fc0: 6c 46 64 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 lFd = 0;. if
3fd0: 28 73 74 72 63 6d 70 28 70 61 72 65 6e 74 43 68 (strcmp(parentCh
3fe0: 61 6e 6e 65 6c 54 79 70 65 2d 3e 74 79 70 65 4e annelType->typeN
3ff0: 61 6d 65 2c 20 22 74 63 70 22 29 20 3d 3d 20 30 ame, "tcp") == 0
4000: 29 20 7b 0a 09 76 6f 69 64 20 2a 70 61 72 65 6e ) {..void *paren
4010: 74 43 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 2c 20 tChannelFdIn_p,
4020: 2a 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 *parentChannelFd
4030: 4f 75 74 5f 70 3b 0a 09 69 6e 74 20 74 63 6c 47 Out_p;..int tclG
4040: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 etChannelHandleR
4050: 65 74 3b 0a 0a 09 74 63 6c 47 65 74 43 68 61 6e et;...tclGetChan
4060: 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 20 54 nelHandleRet = T
4070: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e cl_GetChannelHan
4080: 64 6c 65 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 dle(parentChanne
4090: 6c 2c 0a 09 20 20 20 20 54 43 4c 5f 52 45 41 44 l,.. TCL_READ
40a0: 41 42 4c 45 2c 20 26 70 61 72 65 6e 74 43 68 61 ABLE, &parentCha
40b0: 6e 6e 65 6c 46 64 49 6e 5f 70 29 3b 0a 09 69 66 nnelFdIn_p);..if
40c0: 20 28 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 (tclGetChannelH
40d0: 61 6e 64 6c 65 52 65 74 20 3d 3d 20 54 43 4c 5f andleRet == TCL_
40e0: 4f 4b 29 20 7b 0a 09 20 20 20 20 74 63 6c 47 65 OK) {.. tclGe
40f0: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 tChannelHandleRe
4100: 74 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e t = Tcl_GetChann
4110: 65 6c 48 61 6e 64 6c 65 28 70 61 72 65 6e 74 43 elHandle(parentC
4120: 68 61 6e 6e 65 6c 2c 0a 09 20 20 20 20 20 20 20 hannel,..
4130: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 2c 20 26 TCL_WRITABLE, &
4140: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f parentChannelFdO
4150: 75 74 5f 70 29 3b 0a 09 20 20 20 20 69 66 20 28 ut_p);.. if (
4160: 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e tclGetChannelHan
4170: 64 6c 65 52 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b dleRet == TCL_OK
4180: 29 20 7b 0a 09 09 70 61 72 65 6e 74 43 68 61 6e ) {...parentChan
4190: 6e 65 6c 46 64 49 6e 20 3d 20 50 54 52 32 49 4e nelFdIn = PTR2IN
41a0: 54 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 T(parentChannelF
41b0: 64 49 6e 5f 70 29 3b 0a 09 09 70 61 72 65 6e 74 dIn_p);...parent
41c0: 43 68 61 6e 6e 65 6c 46 64 4f 75 74 20 3d 20 50 ChannelFdOut = P
41d0: 54 52 32 49 4e 54 28 70 61 72 65 6e 74 43 68 61 TR2INT(parentCha
41e0: 6e 6e 65 6c 46 64 4f 75 74 5f 70 29 3b 0a 09 09 nnelFdOut_p);...
41f0: 69 66 20 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 if (parentChanne
4200: 6c 46 64 49 6e 20 3d 3d 20 70 61 72 65 6e 74 43 lFdIn == parentC
4210: 68 61 6e 6e 65 6c 46 64 4f 75 74 29 20 7b 0a 09 hannelFdOut) {..
4220: 09 20 20 20 20 70 61 72 65 6e 74 43 68 61 6e 6e . parentChann
4230: 65 6c 46 64 20 3d 20 70 61 72 65 6e 74 43 68 61 elFd = parentCha
4240: 6e 6e 65 6c 46 64 49 6e 3b 0a 09 09 20 20 20 20 nnelFdIn;...
4250: 76 61 6c 69 64 50 61 72 65 6e 74 43 68 61 6e 6e validParentChann
4260: 65 6c 46 64 20 3d 20 31 3b 0a 09 09 7d 0a 09 20 elFd = 1;...}..
4270: 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 }..}. }..
4280: 20 20 20 69 66 20 28 76 61 6c 69 64 50 61 72 65 if (validPare
4290: 6e 74 43 68 61 6e 6e 65 6c 46 64 29 20 7b 0a 09 ntChannelFd) {..
42a0: 64 70 72 69 6e 74 66 28 22 57 65 20 66 6f 75 6e dprintf("We foun
42b0: 64 20 61 20 73 68 6f 72 74 63 75 74 2c 20 74 68 d a shortcut, th
42c0: 69 73 20 63 68 61 6e 6e 65 6c 20 69 73 20 62 61 is channel is ba
42d0: 63 6b 65 64 20 62 79 20 61 20 73 6f 63 6b 65 74 cked by a socket
42e0: 3a 20 25 69 22 2c 0a 09 20 20 20 20 70 61 72 65 : %i",.. pare
42f0: 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 29 3b 0a ntChannelFdIn);.
4300: 09 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 5f 73 .bio = BIO_new_s
4310: 6f 63 6b 65 74 28 70 61 72 65 6e 74 43 68 61 6e ocket(parentChan
4320: 6e 65 6c 46 64 2c 20 66 6c 61 67 73 29 3b 0a 09 nelFd, flags);..
4330: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
4340: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 |= TLS_TCL_FASTP
4350: 41 54 48 3b 0a 09 42 49 4f 5f 73 65 74 5f 64 61 ATH;..BIO_set_da
4360: 74 61 28 62 69 6f 2c 20 73 74 61 74 65 50 74 72 ta(bio, statePtr
4370: 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 73 68 75 74 );..BIO_set_shut
4380: 64 6f 77 6e 28 62 69 6f 2c 20 66 6c 61 67 73 29 down(bio, flags)
4390: 3b 0a 09 42 49 4f 5f 73 65 74 5f 69 6e 69 74 28 ;..BIO_set_init(
43a0: 62 69 6f 2c 20 31 29 3b 0a 09 72 65 74 75 72 6e bio, 1);..return
43b0: 20 62 69 6f 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 bio;. }.#end
43c0: 69 66 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 if.. dprintf(
43d0: 22 46 61 6c 6c 69 6e 67 20 62 61 63 6b 20 74 6f "Falling back to
43e0: 20 54 63 6c 20 49 2f 4f 20 66 6f 72 20 74 68 69 Tcl I/O for thi
43f0: 73 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 0a 20 20 s channel");..
4400: 20 20 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 28 bio = BIO_new(
4410: 42 69 6f 4d 65 74 68 6f 64 73 29 3b 0a 20 20 20 BioMethods);.
4420: 20 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 BIO_set_data(bi
4430: 6f 2c 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 o, statePtr);.
4440: 20 20 42 49 4f 5f 73 65 74 5f 73 68 75 74 64 6f BIO_set_shutdo
4450: 77 6e 28 62 69 6f 2c 20 66 6c 61 67 73 29 3b 0a wn(bio, flags);.
4460: 20 20 20 20 42 49 4f 5f 73 65 74 5f 69 6e 69 74 BIO_set_init
4470: 28 62 69 6f 2c 20 31 29 3b 20 2f 2a 20 45 6e 61 (bio, 1); /* Ena
4480: 62 6c 65 20 72 65 61 64 20 26 20 77 72 69 74 65 ble read & write
4490: 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 62 */. return b
44a0: 69 6f 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d io;.}../*. *----
44b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
4500: 42 49 4f 5f 63 6c 65 61 6e 75 70 20 2d 2d 0a 20 BIO_cleanup --.
4510: 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 *. *.This functi
4520: 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 64 65 on is used to de
4530: 73 74 72 6f 79 20 61 20 42 49 4f 5f 4d 45 54 48 stroy a BIO_METH
4540: 4f 44 20 73 74 72 75 63 74 75 72 65 20 61 6e 64 OD structure and
4550: 20 66 72 65 65 20 75 70 20 61 6e 79 0a 20 2a 09 free up any. *.
4560: 6d 65 6d 6f 72 79 20 61 73 73 6f 63 69 61 74 65 memory associate
4570: 64 20 77 69 74 68 20 69 74 2e 0a 20 2a 0a 20 2a d with it.. *. *
4580: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 53 74 61 Results:. *.Sta
4590: 6e 64 61 72 64 20 54 43 4c 20 72 65 73 75 6c 74 ndard TCL result
45a0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
45b0: 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 6f 79 73 cts:. *.Destroys
45c0: 20 42 49 4f 20 4d 65 74 68 6f 64 73 2e 0a 20 2a BIO Methods.. *
45d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
45e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4620: 0a 20 2a 2f 0a 0a 69 6e 74 20 42 49 4f 5f 63 6c . */..int BIO_cl
4630: 65 61 6e 75 70 20 28 29 20 7b 0a 20 20 20 20 64 eanup () {. d
4640: 70 72 69 6e 74 66 28 22 42 49 4f 5f 63 6c 65 61 printf("BIO_clea
4650: 6e 75 70 28 29 20 63 61 6c 6c 65 64 22 29 3b 0a nup() called");.
4660: 0a 20 20 20 20 69 66 20 28 42 69 6f 4d 65 74 68 . if (BioMeth
4670: 6f 64 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ods != NULL) {..
4680: 42 49 4f 5f 6d 65 74 68 5f 66 72 65 65 28 42 69 BIO_meth_free(Bi
4690: 6f 4d 65 74 68 6f 64 73 29 3b 0a 09 42 69 6f 4d oMethods);..BioM
46a0: 65 74 68 6f 64 73 20 3d 20 4e 55 4c 4c 3b 0a 20 ethods = NULL;.
46b0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
46c0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a TCL_OK;.}.