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 20 42 72 69 61 6e 20 4f 27 48 61 67 2024 Brian O'Hag
00f0: 61 6e 0a 20 2a 0a 20 2a 2f 0a 0a 2f 2a 0a 4e 6f an. *. */../*.No
0100: 72 6d 61 6c 0a 09 09 74 6c 73 42 49 4f 2e 63 09 rmal...tlsBIO.c.
0110: 09 09 74 6c 73 49 4f 2e 63 0a 20 2b 2d 2d 2d 2d ..tlsIO.c. +----
0120: 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 --+
0130: 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2d +----
0140: 2d 2b 20 20 20 20 20 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 2b 2d 2d 2d 2b 0a 20 7c 20 20 20 20 20 +---+. |
0170: 20 7c 54 63 6c 5f 57 72 69 74 65 52 61 77 3c 2d |Tcl_WriteRaw<-
0180: 2d 42 69 6f 4f 75 74 70 75 74 7c 20 53 53 4c 20 -BioOutput| SSL
0190: 7c 42 49 4f 5f 77 72 69 74 65 3c 2d 2d 54 6c 73 |BIO_write<--Tls
01a0: 4f 75 74 70 75 74 50 72 6f 63 3c 2d 2d 57 72 69 OutputProc<--Wri
01b0: 74 65 7c 20 20 20 7c 0a 20 7c 73 6f 63 6b 65 74 te| |. |socket
01c0: 7c 20 20 20 20 20 20 3c 65 6e 63 72 79 70 74 65 | <encrypte
01d0: 64 3e 20 20 20 20 20 20 20 7c 20 42 49 4f 20 7c d> | BIO |
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 3c 75 6e 65 <une
01f0: 6e 63 72 79 70 74 65 64 3e 20 20 20 20 20 20 20 ncrypted>
0200: 20 7c 41 70 70 7c 0a 20 7c 20 20 20 20 20 20 7c |App|. | |
0210: 54 63 6c 5f 52 65 61 64 52 61 77 20 2d 2d 3e 20 Tcl_ReadRaw -->
0220: 42 69 6f 49 6e 70 75 74 7c 20 20 20 20 20 7c 42 BioInput| |B
0230: 49 4f 5f 52 65 61 64 20 2d 2d 3e 54 6c 73 49 6e IO_Read -->TlsIn
0240: 70 75 74 50 72 6f 63 20 2d 2d 3e 20 52 65 61 64 putProc --> Read
0250: 7c 20 20 20 7c 0a 20 2b 2d 2d 2d 2d 2d 2d 2b 20 | |. +------+
0260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270: 20 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 +-----+
0280: 20 20 20 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 2b +
02a0: 2d 2d 2d 2b 0a 0a 0a 46 61 73 74 20 50 61 74 68 ---+...Fast Path
02b0: 0a 09 09 09 09 09 09 74 6c 73 49 4f 2e 63 0a 20 .......tlsIO.c.
02c0: 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 +------+
02d0: 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 +-----+
02e0: 20 20 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 2b 2d 2d 2d 2d 2d 2b 0a 20 20 7c 20 20 20 +-----+. |
0310: 20 20 20 7c 3c 2d 2d 20 77 72 69 74 65 20 3c 2d |<-- write <-
0320: 2d 7c 20 53 53 4c 20 7c 42 49 4f 5f 77 72 69 74 -| SSL |BIO_writ
0330: 65 20 3c 2d 2d 20 54 6c 73 4f 75 74 70 75 74 50 e <-- TlsOutputP
0340: 72 6f 63 20 3c 2d 2d 20 57 72 69 74 65 7c 20 20 roc <-- Write|
0350: 20 20 20 7c 0a 20 20 7c 73 6f 63 6b 65 74 7c 20 |. |socket|
0360: 3c 65 6e 63 72 79 70 74 65 64 3e 20 7c 20 42 49 <encrypted> | BI
0370: 4f 20 7c 20 20 20 20 20 20 20 20 20 20 20 20 3c O | <
0380: 75 6e 65 6e 63 72 79 70 74 65 64 3e 20 20 20 20 unencrypted>
0390: 20 20 20 20 20 20 20 20 7c 20 41 70 70 20 7c 0a | App |.
03a0: 20 20 7c 20 20 20 20 20 20 7c 3c 2d 2d 20 20 72 | |<-- r
03b0: 65 61 64 20 3c 2d 2d 7c 20 20 20 20 20 7c 42 49 ead <--| |BI
03c0: 4f 5f 52 65 61 64 20 20 2d 2d 3e 20 54 6c 73 49 O_Read --> TlsI
03d0: 6e 70 75 74 50 72 6f 63 20 20 2d 2d 3e 20 20 52 nputProc --> R
03e0: 65 61 64 7c 20 20 20 20 20 7c 0a 20 20 2b 2d 2d ead| |. +--
03f0: 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 ----+
0400: 20 20 2b 2d 2d 2d 2d 2d 2b 20 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 73 68 6f 75 6c 64 20 72 65 74 72 79 20 6f f should retry o
0540: 70 65 72 61 74 69 6f 6e 20 62 61 73 65 64 20 6f peration based o
0550: 6e 20 65 72 72 6f 72 20 63 6f 64 65 2e 20 53 61 n error code. Sa
0560: 6d 65 0a 20 2a 09 63 6f 6e 64 69 74 69 6f 6e 73 me. *.conditions
0570: 20 61 73 20 42 49 4f 5f 73 6f 63 6b 5f 73 68 6f as BIO_sock_sho
0580: 75 6c 64 5f 72 65 74 72 79 20 66 75 6e 63 74 69 uld_retry functi
0590: 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 on.. *. * Result
05a0: 73 3a 0a 20 2a 09 31 20 3d 20 72 65 74 72 79 2c s:. *.1 = retry,
05b0: 20 30 20 3d 20 6e 6f 20 72 65 74 72 79 0a 20 2a 0 = no retry. *
05c0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
05d0: 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d :. *.None. *. *-
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
0630: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 49 4f ..static int BIO
0640: 53 68 6f 75 6c 64 52 65 74 72 79 28 69 6e 74 20 ShouldRetry(int
0650: 63 6f 64 65 29 20 7b 0a 20 20 20 20 69 6e 74 20 code) {. int
0660: 72 65 73 20 3d 20 30 3b 0a 20 20 20 20 64 70 72 res = 0;. dpr
0670: 69 6e 74 66 28 22 42 49 4f 53 68 6f 75 6c 64 52 intf("BIOShouldR
0680: 65 74 72 79 20 25 64 3d 25 73 22 2c 20 63 6f 64 etry %d=%s", cod
0690: 65 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 e, Tcl_ErrnoMsg(
06a0: 63 6f 64 65 29 29 3b 0a 0a 20 20 20 20 69 66 20 code));.. if
06b0: 28 63 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 20 (code == EAGAIN
06c0: 7c 7c 20 63 6f 64 65 20 3d 3d 20 45 57 4f 55 4c || code == EWOUL
06d0: 44 42 4c 4f 43 4b 20 7c 7c 20 63 6f 64 65 20 3d DBLOCK || code =
06e0: 3d 20 45 4e 4f 54 43 4f 4e 4e 20 7c 7c 20 63 6f = ENOTCONN || co
06f0: 64 65 20 3d 3d 20 45 50 52 4f 54 4f 20 7c 7c 0a de == EPROTO ||.
0700: 23 69 66 64 65 66 20 5f 57 49 4e 33 32 0a 09 63 #ifdef _WIN32..c
0710: 6f 64 65 20 3d 3d 20 57 53 41 45 57 4f 55 4c 44 ode == WSAEWOULD
0720: 42 4c 4f 43 4b 20 7c 7c 0a 23 65 6e 64 69 66 0a BLOCK ||.#endif.
0730: 09 63 6f 64 65 20 3d 3d 20 45 49 4e 54 52 20 7c .code == EINTR |
0740: 7c 20 63 6f 64 65 20 3d 3d 20 45 49 4e 50 52 4f | code == EINPRO
0750: 47 52 45 53 53 20 7c 7c 20 63 6f 64 65 20 3d 3d GRESS || code ==
0760: 20 45 41 4c 52 45 41 44 59 29 20 7b 0a 09 72 65 EALREADY) {..re
0770: 73 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 s = 1;. }..
0780: 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f 53 68 dprintf("BIOSh
0790: 6f 75 6c 64 52 65 74 72 79 20 25 64 3d 25 73 2c ouldRetry %d=%s,
07a0: 20 72 65 73 3d 25 64 22 2c 20 63 6f 64 65 2c 20 res=%d", code,
07b0: 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 63 6f 64 Tcl_ErrnoMsg(cod
07c0: 65 29 2c 20 72 65 73 29 3b 0a 0a 20 20 20 20 72 e), res);.. r
07d0: 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a eturn res;.}../*
07e0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
07f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0830: 0a 20 2a 0a 20 2a 20 42 69 6f 4f 75 74 70 75 74 . *. * BioOutput
0840: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 --. *. *.This f
0850: 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 unction is used
0860: 74 6f 20 72 65 61 64 20 65 6e 63 72 79 70 74 65 to read encrypte
0870: 64 20 64 61 74 61 20 66 72 6f 6d 20 74 68 65 20 d data from the
0880: 42 49 4f 20 61 6e 64 20 77 72 69 74 65 20 69 74 BIO and write it
0890: 0a 20 2a 09 69 6e 74 6f 20 74 68 65 20 73 6f 63 . *.into the soc
08a0: 6b 65 74 2e 20 54 68 69 73 20 66 75 6e 63 74 69 ket. This functi
08b0: 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 on will be calle
08c0: 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f d in response to
08d0: 20 74 68 65 0a 20 2a 09 61 70 70 6c 69 63 61 74 the. *.applicat
08e0: 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 ion calling the
08f0: 42 49 4f 5f 77 72 69 74 65 5f 65 78 28 29 20 6f BIO_write_ex() o
0900: 72 20 42 49 4f 5f 77 72 69 74 65 28 29 20 66 75 r BIO_write() fu
0910: 6e 63 74 69 6f 6e 73 2e 0a 20 2a 0a 20 2a 20 52 nctions.. *. * R
0920: 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 esults:. *.Retur
0930: 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 ns the number of
0940: 20 62 79 74 65 73 20 77 72 69 74 74 65 6e 20 74 bytes written t
0950: 6f 20 63 68 61 6e 6e 65 6c 2c 20 30 20 66 6f 72 o channel, 0 for
0960: 20 45 4f 46 2c 20 6f 72 20 2d 31 20 66 6f 72 0a EOF, or -1 for.
0970: 20 2a 09 65 72 72 6f 72 2e 0a 20 2a 0a 20 2a 20 *.error.. *. *
0980: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
0990: 09 57 72 69 74 65 73 20 42 49 4f 20 64 61 74 61 .Writes BIO data
09a0: 20 74 6f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a to channel.. *.
09b0: 20 2a 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 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0a00: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 */..static int
0a10: 42 69 6f 4f 75 74 70 75 74 28 42 49 4f 20 2a 62 BioOutput(BIO *b
0a20: 69 6f 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a io, const char *
0a30: 62 75 66 2c 20 69 6e 74 20 62 75 66 4c 65 6e 29 buf, int bufLen)
0a40: 20 7b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 {. Tcl_Size
0a50: 72 65 74 3b 0a 20 20 20 20 69 6e 74 20 69 73 5f ret;. int is_
0a60: 65 6f 66 2c 20 74 63 6c 45 72 72 6e 6f 3b 0a 20 eof, tclErrno;.
0a70: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
0a80: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 42 tr = (State *) B
0a90: 49 4f 5f 67 65 74 5f 64 61 74 61 28 62 69 6f 29 IO_get_data(bio)
0aa0: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
0ab0: 6c 20 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 l chan = Tls_Get
0ac0: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c Parent(statePtr,
0ad0: 20 30 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 0);.. dprint
0ae0: 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69 6f f("[chan=%p] Bio
0af0: 4f 75 74 70 75 74 28 62 69 6f 3d 25 70 2c 20 62 Output(bio=%p, b
0b00: 75 66 3d 25 70 2c 20 6c 65 6e 3d 25 64 29 22 2c uf=%p, len=%d)",
0b10: 20 28 76 6f 69 64 20 2a 29 63 68 61 6e 2c 0a 09 (void *)chan,..
0b20: 28 76 6f 69 64 20 2a 29 20 62 69 6f 2c 20 62 75 (void *) bio, bu
0b30: 66 2c 20 62 75 66 4c 65 6e 29 3b 0a 0a 20 20 20 f, bufLen);..
0b40: 20 42 49 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 BIO_clear_retry
0b50: 5f 66 6c 61 67 73 28 62 69 6f 29 3b 0a 20 20 20 _flags(bio);.
0b60: 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 30 29 Tcl_SetErrno(0)
0b70: 3b 0a 0a 20 20 20 20 2f 2a 20 57 72 69 74 65 20 ;.. /* Write
0b80: 64 61 74 61 20 74 6f 20 75 6e 64 65 72 6c 79 69 data to underlyi
0b90: 6e 67 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 ng channel */.
0ba0: 20 20 72 65 74 20 3d 20 54 63 6c 5f 57 72 69 74 ret = Tcl_Writ
0bb0: 65 52 61 77 28 63 68 61 6e 2c 20 62 75 66 2c 20 eRaw(chan, buf,
0bc0: 28 54 63 6c 5f 53 69 7a 65 29 20 62 75 66 4c 65 (Tcl_Size) bufLe
0bd0: 6e 29 3b 0a 20 20 20 20 69 73 5f 65 6f 66 20 3d n);. is_eof =
0be0: 20 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 3b 0a Tcl_Eof(chan);.
0bf0: 20 20 20 20 74 63 6c 45 72 72 6e 6f 20 3d 20 54 tclErrno = T
0c00: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 0a cl_GetErrno();..
0c10: 20 20 20 20 64 70 72 69 6e 74 66 28 22 5b 63 68 dprintf("[ch
0c20: 61 6e 3d 25 70 5d 20 42 69 6f 4f 75 74 70 75 74 an=%p] BioOutput
0c30: 28 25 64 29 20 2d 3e 20 25 22 20 54 43 4c 5f 53 (%d) -> %" TCL_S
0c40: 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 64 20 IZE_MODIFIER "d
0c50: 5b 74 63 6c 45 6f 66 3d 25 64 3b 20 74 63 6c 45 [tclEof=%d; tclE
0c60: 72 72 6e 6f 3d 25 64 3a 20 25 73 5d 22 2c 0a 09 rrno=%d: %s]",..
0c70: 28 76 6f 69 64 20 2a 29 20 63 68 61 6e 2c 20 62 (void *) chan, b
0c80: 75 66 4c 65 6e 2c 20 72 65 74 2c 20 69 73 5f 65 ufLen, ret, is_e
0c90: 6f 66 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 54 63 of, tclErrno, Tc
0ca0: 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c 45 72 l_ErrnoMsg(tclEr
0cb0: 72 6e 6f 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 rno));.. if (
0cc0: 72 65 74 20 3e 20 30 29 20 7b 0a 09 64 70 72 69 ret > 0) {..dpri
0cd0: 6e 74 66 28 22 53 75 63 63 65 73 73 66 75 6c 6c ntf("Successfull
0ce0: 79 20 77 72 6f 74 65 20 25 22 20 54 43 4c 5f 53 y wrote %" TCL_S
0cf0: 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 64 20 IZE_MODIFIER "d
0d00: 62 79 74 65 73 20 6f 66 20 64 61 74 61 22 2c 20 bytes of data",
0d10: 72 65 74 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 ret);.. } els
0d20: 65 20 69 66 20 28 72 65 74 20 3d 3d 20 30 29 20 e if (ret == 0)
0d30: 7b 0a 09 69 66 20 28 69 73 5f 65 6f 66 29 20 7b {..if (is_eof) {
0d40: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 .. dprintf("G
0d50: 6f 74 20 45 4f 46 20 77 68 69 6c 65 20 77 72 69 ot EOF while wri
0d60: 74 69 6e 67 2c 20 72 65 74 75 72 6e 69 6e 67 20 ting, returning
0d70: 61 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 52 65 73 a Connection Res
0d80: 65 74 20 65 72 72 6f 72 20 77 68 69 63 68 20 6d et error which m
0d90: 61 70 73 20 74 6f 20 53 6f 66 74 20 45 4f 46 22 aps to Soft EOF"
0da0: 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 45 );.. Tcl_SetE
0db0: 72 72 6e 6f 28 45 43 4f 4e 4e 52 45 53 45 54 29 rrno(ECONNRESET)
0dc0: 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 66 ;.. BIO_set_f
0dd0: 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f 5f 46 4c lags(bio, BIO_FL
0de0: 41 47 53 5f 49 4e 5f 45 4f 46 29 3b 0a 0a 09 7d AGS_IN_EOF);...}
0df0: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 else {.. dpr
0e00: 69 6e 74 66 28 22 47 6f 74 20 30 20 66 72 6f 6d intf("Got 0 from
0e10: 20 54 63 6c 5f 57 72 69 74 65 52 61 77 2c 20 61 Tcl_WriteRaw, a
0e20: 6e 64 20 45 4f 46 20 69 73 20 6e 6f 74 20 73 65 nd EOF is not se
0e30: 74 3b 20 72 65 74 20 3d 20 30 22 29 3b 0a 09 20 t; ret = 0");..
0e40: 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 BIO_set_retry
0e50: 5f 77 72 69 74 65 28 62 69 6f 29 3b 0a 0a 09 20 _write(bio);...
0e60: 20 20 20 64 70 72 69 6e 74 66 28 22 53 65 74 74 dprintf("Sett
0e70: 69 6e 67 20 72 65 74 72 79 20 72 65 61 64 20 66 ing retry read f
0e80: 6c 61 67 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f lag");.. BIO_
0e90: 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 62 set_retry_read(b
0ea0: 69 6f 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 io);..}.. } e
0eb0: 6c 73 65 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 lse {..dprintf("
0ec0: 57 65 20 67 6f 74 20 73 6f 6d 65 20 6b 69 6e 64 We got some kind
0ed0: 20 6f 66 20 49 2f 4f 20 65 72 72 6f 72 22 29 3b of I/O error");
0ee0: 0a 0a 09 69 66 20 28 42 49 4f 53 68 6f 75 6c 64 ...if (BIOShould
0ef0: 52 65 74 72 79 28 74 63 6c 45 72 72 6e 6f 29 29 Retry(tclErrno))
0f00: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
0f10: 22 54 72 79 20 61 67 61 69 6e 20 66 6f 72 3a 20 "Try again for:
0f20: 25 69 3d 25 73 22 2c 20 74 63 6c 45 72 72 6e 6f %i=%s", tclErrno
0f30: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 , Tcl_ErrnoMsg(t
0f40: 63 6c 45 72 72 6e 6f 29 29 3b 0a 09 20 20 20 20 clErrno));..
0f50: 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 77 72 BIO_set_retry_wr
0f60: 69 74 65 28 62 69 6f 29 3b 0a 0a 09 7d 20 65 6c ite(bio);...} el
0f70: 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 se {.. dprint
0f80: 66 28 22 55 6e 65 78 70 65 63 74 65 64 20 65 72 f("Unexpected er
0f90: 72 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 63 6c ror: %i=%s", tcl
0fa0: 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f Errno, Tcl_Errno
0fb0: 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a Msg(tclErrno));.
0fc0: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 .}. }.. dp
0fd0: 72 69 6e 74 66 28 22 42 69 6f 4f 75 74 70 75 74 rintf("BioOutput
0fe0: 20 72 65 74 75 72 6e 69 6e 67 20 25 22 20 54 43 returning %" TC
0ff0: 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 52 20 L_SIZE_MODIFIER
1000: 22 64 22 2c 20 72 65 74 29 3b 0a 20 20 20 20 72 "d", ret);. r
1010: 65 74 75 72 6e 20 28 69 6e 74 29 20 72 65 74 3b eturn (int) ret;
1020: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
1030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1070: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f ------. *. * Bio
1080: 49 6e 70 75 74 20 2d 2d 0a 20 2a 0a 20 2a 09 54 Input --. *. *.T
1090: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
10a0: 75 73 65 64 20 74 6f 20 72 65 61 64 20 65 6e 63 used to read enc
10b0: 72 79 70 74 65 64 20 64 61 74 61 20 66 72 6f 6d rypted data from
10c0: 20 74 68 65 20 73 6f 63 6b 65 74 20 61 6e 64 0a the socket and.
10d0: 20 2a 09 77 72 69 74 65 20 69 74 20 69 6e 74 6f *.write it into
10e0: 20 74 68 65 20 42 49 4f 2e 20 54 68 69 73 20 66 the BIO. This f
10f0: 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 unction will be
1100: 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e called in respon
1110: 73 65 20 74 6f 20 74 68 65 0a 20 2a 09 61 70 70 se to the. *.app
1120: 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 lication calling
1130: 20 74 68 65 20 42 49 4f 5f 72 65 61 64 5f 65 78 the BIO_read_ex
1140: 28 29 20 6f 72 20 42 49 4f 5f 72 65 61 64 28 29 () or BIO_read()
1150: 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 20 2a 0a 20 functions.. *.
1160: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 * Results:. *.Re
1170: 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 turns the number
1180: 20 6f 66 20 62 79 74 65 73 20 72 65 61 64 20 66 of bytes read f
1190: 72 6f 6d 20 63 68 61 6e 6e 65 6c 2c 20 30 20 66 rom channel, 0 f
11a0: 6f 72 20 45 4f 46 2c 20 6f 72 20 2d 31 20 66 6f or EOF, or -1 fo
11b0: 72 0a 20 2a 09 65 72 72 6f 72 2e 0a 20 2a 0a 20 r. *.error.. *.
11c0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
11d0: 20 2a 09 52 65 61 64 73 20 63 68 61 6e 6e 65 6c *.Reads channel
11e0: 20 64 61 74 61 20 69 6e 74 6f 20 42 49 4f 2e 0a data into BIO..
11f0: 20 2a 0a 20 2a 20 44 61 74 61 20 69 73 20 72 65 *. * Data is re
1200: 63 65 69 76 65 64 20 69 6e 20 77 68 6f 6c 65 20 ceived in whole
1210: 62 6c 6f 63 6b 73 20 6b 6e 6f 77 6e 20 61 73 20 blocks known as
1220: 72 65 63 6f 72 64 73 20 66 72 6f 6d 20 74 68 65 records from the
1230: 20 70 65 65 72 2e 20 41 20 77 68 6f 6c 65 0a 20 peer. A whole.
1240: 2a 20 72 65 63 6f 72 64 20 69 73 20 70 72 6f 63 * record is proc
1250: 65 73 73 65 64 20 28 65 2e 67 2e 20 64 65 63 72 essed (e.g. decr
1260: 79 70 74 65 64 29 20 69 6e 20 6f 6e 65 20 67 6f ypted) in one go
1270: 20 61 6e 64 20 69 73 20 62 75 66 66 65 72 65 64 and is buffered
1280: 20 62 79 20 4f 70 65 6e 53 53 4c 0a 20 2a 20 75 by OpenSSL. * u
1290: 6e 74 69 6c 20 69 74 20 69 73 20 72 65 61 64 20 ntil it is read
12a0: 62 79 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 by the applicati
12b0: 6f 6e 20 76 69 61 20 61 20 63 61 6c 6c 20 74 6f on via a call to
12c0: 20 53 53 4c 5f 72 65 61 64 2e 20 53 53 4c 5f 70 SSL_read. SSL_p
12d0: 65 6e 64 69 6e 67 28 29 0a 20 2a 20 72 65 74 75 ending(). * retu
12e0: 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f rns the number o
12f0: 66 20 62 79 74 65 73 20 77 68 69 63 68 20 68 61 f bytes which ha
1300: 76 65 20 62 65 65 6e 20 70 72 6f 63 65 73 73 65 ve been processe
1310: 64 2c 20 62 75 66 66 65 72 65 64 2c 20 61 6e 64 d, buffered, and
1320: 20 61 72 65 0a 20 2a 20 61 76 61 69 6c 61 62 6c are. * availabl
1330: 65 20 69 6e 73 69 64 65 20 73 73 6c 20 66 6f 72 e inside ssl for
1340: 20 69 6d 6d 65 64 69 61 74 65 20 72 65 61 64 2e immediate read.
1350: 20 53 53 4c 5f 68 61 73 5f 70 65 6e 64 69 6e 67 SSL_has_pending
1360: 28 29 20 72 65 74 75 72 6e 73 20 31 20 69 66 0a () returns 1 if.
1370: 20 2a 20 64 61 74 61 20 69 73 20 62 75 66 66 65 * data is buffe
1380: 72 65 64 20 28 77 68 65 74 68 65 72 20 70 72 6f red (whether pro
1390: 63 65 73 73 65 64 20 6f 72 20 75 6e 70 72 6f 63 cessed or unproc
13a0: 65 73 73 65 64 29 20 61 6e 64 20 30 20 6f 74 68 essed) and 0 oth
13b0: 65 72 77 69 73 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d erwise.. *. *---
13c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 0a ----------. */..
1410: 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f 49 6e static int BioIn
1420: 70 75 74 28 42 49 4f 20 2a 62 69 6f 2c 20 63 68 put(BIO *bio, ch
1430: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 ar *buf, int buf
1440: 4c 65 6e 29 20 7b 0a 20 20 20 20 54 63 6c 5f 53 Len) {. Tcl_S
1450: 69 7a 65 20 72 65 74 20 3d 20 30 3b 0a 20 20 20 ize ret = 0;.
1460: 20 69 6e 74 20 69 73 5f 65 6f 66 2c 20 74 63 6c int is_eof, tcl
1470: 45 72 72 6e 6f 2c 20 69 73 5f 62 6c 6f 63 6b 65 Errno, is_blocke
1480: 64 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 d;. State *st
1490: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
14a0: 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 74 61 28 *) BIO_get_data(
14b0: 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c 5f 43 68 bio);. Tcl_Ch
14c0: 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 54 6c 73 annel chan = Tls
14d0: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
14e0: 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20 20 64 70 Ptr, 0);.. dp
14f0: 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d rintf("[chan=%p]
1500: 20 42 69 6f 49 6e 70 75 74 28 62 69 6f 3d 25 70 BioInput(bio=%p
1510: 2c 20 62 75 66 3d 25 70 2c 20 6c 65 6e 3d 25 64 , buf=%p, len=%d
1520: 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 63 68 61 )", (void *) cha
1530: 6e 2c 0a 09 28 76 6f 69 64 20 2a 29 20 62 69 6f n,..(void *) bio
1540: 2c 20 62 75 66 2c 20 62 75 66 4c 65 6e 29 3b 0a , buf, bufLen);.
1550: 0a 20 20 20 20 69 66 20 28 62 75 66 20 3d 3d 20 . if (buf ==
1560: 4e 55 4c 4c 20 7c 7c 20 62 75 66 4c 65 6e 20 3c NULL || bufLen <
1570: 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 = 0) {..return 0
1580: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 42 49 4f ;. }.. BIO
1590: 5f 63 6c 65 61 72 5f 72 65 74 72 79 5f 66 6c 61 _clear_retry_fla
15a0: 67 73 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c gs(bio);. Tcl
15b0: 5f 53 65 74 45 72 72 6e 6f 28 30 29 3b 0a 0a 20 _SetErrno(0);..
15c0: 20 20 20 2f 2a 20 52 65 61 64 20 64 61 74 61 20 /* Read data
15d0: 66 72 6f 6d 20 75 6e 64 65 72 6c 79 69 6e 67 20 from underlying
15e0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 72 channel */. r
15f0: 65 74 20 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 et = Tcl_ReadRaw
1600: 28 63 68 61 6e 2c 20 62 75 66 2c 20 28 54 63 6c (chan, buf, (Tcl
1610: 5f 53 69 7a 65 29 20 62 75 66 4c 65 6e 29 3b 0a _Size) bufLen);.
1620: 0a 20 20 20 20 69 73 5f 65 6f 66 20 3d 20 54 63 . is_eof = Tc
1630: 6c 5f 45 6f 66 28 63 68 61 6e 29 3b 0a 20 20 20 l_Eof(chan);.
1640: 20 74 63 6c 45 72 72 6e 6f 20 3d 20 54 63 6c 5f tclErrno = Tcl_
1650: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 20 20 20 20 GetErrno();.
1660: 69 73 5f 62 6c 6f 63 6b 65 64 20 3d 20 54 63 6c is_blocked = Tcl
1670: 5f 49 6e 70 75 74 42 6c 6f 63 6b 65 64 28 63 68 _InputBlocked(ch
1680: 61 6e 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 an);.. dprint
1690: 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69 6f f("[chan=%p] Bio
16a0: 49 6e 70 75 74 28 25 64 29 20 2d 3e 20 25 22 20 Input(%d) -> %"
16b0: 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45 TCL_SIZE_MODIFIE
16c0: 52 20 22 64 20 5b 74 63 6c 45 6f 66 3d 25 64 3b R "d [tclEof=%d;
16d0: 20 62 6c 6f 63 6b 65 64 3d 25 64 3b 20 74 63 6c blocked=%d; tcl
16e0: 45 72 72 6e 6f 3d 25 64 3a 20 25 73 5d 22 2c 0a Errno=%d: %s]",.
16f0: 09 28 76 6f 69 64 20 2a 29 20 63 68 61 6e 2c 20 .(void *) chan,
1700: 62 75 66 4c 65 6e 2c 20 72 65 74 2c 20 69 73 5f bufLen, ret, is_
1710: 65 6f 66 2c 20 69 73 5f 62 6c 6f 63 6b 65 64 2c eof, is_blocked,
1720: 20 74 63 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 tclErrno, Tcl_E
1730: 72 72 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f rrnoMsg(tclErrno
1740: 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 72 65 74 ));.. if (ret
1750: 20 3e 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 > 0) {..dprintf
1760: 28 22 53 75 63 63 65 73 73 66 75 6c 6c 79 20 72 ("Successfully r
1770: 65 61 64 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f ead %" TCL_SIZE_
1780: 4d 4f 44 49 46 49 45 52 20 22 64 20 62 79 74 65 MODIFIER "d byte
1790: 73 20 6f 66 20 64 61 74 61 22 2c 20 72 65 74 29 s of data", ret)
17a0: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ;.. } else if
17b0: 20 28 72 65 74 20 3d 3d 20 30 29 20 7b 0a 09 69 (ret == 0) {..i
17c0: 66 20 28 69 73 5f 65 6f 66 29 20 7b 0a 09 20 20 f (is_eof) {..
17d0: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 45 dprintf("Got E
17e0: 4f 46 20 77 68 69 6c 65 20 72 65 61 64 69 6e 67 OF while reading
17f0: 2c 20 72 65 74 75 72 6e 69 6e 67 20 61 20 43 6f , returning a Co
1800: 6e 6e 65 63 74 69 6f 6e 20 52 65 73 65 74 20 65 nnection Reset e
1810: 72 72 6f 72 20 77 68 69 63 68 20 6d 61 70 73 20 rror which maps
1820: 74 6f 20 53 6f 66 74 20 45 4f 46 22 29 3b 0a 09 to Soft EOF");..
1830: 20 20 20 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f Tcl_SetErrno
1840: 28 45 43 4f 4e 4e 52 45 53 45 54 29 3b 0a 09 20 (ECONNRESET);..
1850: 20 20 20 42 49 4f 5f 73 65 74 5f 66 6c 61 67 73 BIO_set_flags
1860: 28 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f (bio, BIO_FLAGS_
1870: 49 4e 5f 45 4f 46 29 3b 0a 0a 09 7d 20 65 6c 73 IN_EOF);...} els
1880: 65 20 69 66 20 28 69 73 5f 62 6c 6f 63 6b 65 64 e if (is_blocked
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 69 6e 70 75 74 20 62 6c 6f 63 ("Got input bloc
18b0: 6b 65 64 20 66 72 6f 6d 20 54 63 6c 5f 52 65 61 ked from Tcl_Rea
18c0: 64 52 61 77 2e 20 53 65 74 74 69 6e 67 20 72 65 dRaw. Setting re
18d0: 74 72 79 20 72 65 61 64 20 66 6c 61 67 22 29 3b try read flag");
18e0: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
18f0: 74 72 79 5f 72 65 61 64 28 62 69 6f 29 3b 0a 09 try_read(bio);..
1900: 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a }.. } else {.
1910: 09 64 70 72 69 6e 74 66 28 22 57 65 20 67 6f 74 .dprintf("We got
1920: 20 73 6f 6d 65 20 6b 69 6e 64 20 6f 66 20 49 2f some kind of I/
1930: 4f 20 65 72 72 6f 72 22 29 3b 0a 0a 09 69 66 20 O error");...if
1940: 28 42 49 4f 53 68 6f 75 6c 64 52 65 74 72 79 28 (BIOShouldRetry(
1950: 74 63 6c 45 72 72 6e 6f 29 29 20 7b 0a 09 20 20 tclErrno)) {..
1960: 20 20 64 70 72 69 6e 74 66 28 22 54 72 79 20 61 dprintf("Try a
1970: 67 61 69 6e 20 66 6f 72 3a 20 25 69 3d 25 73 22 gain for: %i=%s"
1980: 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f , tclErrno, Tcl_
1990: 45 72 72 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e ErrnoMsg(tclErrn
19a0: 6f 29 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 o));.. BIO_se
19b0: 74 5f 72 65 74 72 79 5f 72 65 61 64 28 62 69 6f t_retry_read(bio
19c0: 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 );...} else {..
19d0: 20 20 20 64 70 72 69 6e 74 66 28 22 55 6e 65 78 dprintf("Unex
19e0: 70 65 63 74 65 64 20 65 72 72 6f 72 3a 20 25 69 pected error: %i
19f0: 3d 25 73 22 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 =%s", tclErrno,
1a00: 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c Tcl_ErrnoMsg(tcl
1a10: 45 72 72 6e 6f 29 29 3b 0a 09 7d 0a 20 20 20 20 Errno));..}.
1a20: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
1a30: 42 69 6f 49 6e 70 75 74 20 72 65 74 75 72 6e 69 BioInput returni
1a40: 6e 67 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f 4d ng %" TCL_SIZE_M
1a50: 4f 44 49 46 49 45 52 20 22 64 22 2c 20 72 65 74 ODIFIER "d", ret
1a60: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 28 69 );. return (i
1a70: 6e 74 29 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a 20 nt) ret;.}../*.
1a80: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 --------------.
1ad0: 2a 0a 20 2a 20 42 69 6f 50 75 74 73 20 2d 2d 0a *. * BioPuts --.
1ae0: 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 *. *.This funct
1af0: 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 72 ion is used to r
1b00: 65 61 64 20 61 20 4e 55 4c 4c 20 74 65 72 6d 69 ead a NULL termi
1b10: 6e 61 74 65 64 20 73 74 72 69 6e 67 20 66 72 6f nated string fro
1b20: 6d 20 74 68 65 20 42 49 4f 20 61 6e 64 0a 20 2a m the BIO and. *
1b30: 09 77 72 69 74 65 20 69 74 20 74 6f 20 74 68 65 .write it to the
1b40: 20 63 68 61 6e 6e 65 6c 2e 20 54 68 69 73 20 66 channel. This f
1b50: 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 unction will be
1b60: 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e called in respon
1b70: 73 65 20 74 6f 0a 20 2a 09 74 68 65 20 61 70 70 se to. *.the app
1b80: 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 lication calling
1b90: 20 74 68 65 20 42 49 4f 5f 70 75 74 73 28 29 20 the BIO_puts()
1ba0: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 function.. *. *
1bb0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 Results:. *.Retu
1bc0: 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f rns the number o
1bd0: 66 20 62 79 74 65 73 20 77 72 69 74 74 65 6e 20 f bytes written
1be0: 74 6f 20 63 68 61 6e 6e 65 6c 20 6f 72 20 30 20 to channel or 0
1bf0: 66 6f 72 20 65 72 72 6f 72 2e 0a 20 2a 0a 20 2a for error.. *. *
1c00: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
1c10: 2a 09 57 72 69 74 65 73 20 64 61 74 61 20 74 6f *.Writes data to
1c20: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d channel.. *. *-
1c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
1c80: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f ..static int Bio
1c90: 50 75 74 73 28 42 49 4f 20 2a 62 69 6f 2c 20 63 Puts(BIO *bio, c
1ca0: 6f 6e 73 74 20 63 68 61 72 20 2a 73 74 72 29 20 onst char *str)
1cb0: 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 {. dprintf("B
1cc0: 69 6f 50 75 74 73 28 25 70 29 20 5c 22 25 73 5c ioPuts(%p) \"%s\
1cd0: 22 22 2c 20 62 69 6f 2c 20 73 74 72 29 3b 0a 0a "", bio, str);..
1ce0: 20 20 20 20 72 65 74 75 72 6e 20 42 69 6f 4f 75 return BioOu
1cf0: 74 70 75 74 28 62 69 6f 2c 20 73 74 72 2c 20 28 tput(bio, str, (
1d00: 69 6e 74 29 20 73 74 72 6c 65 6e 28 73 74 72 29 int) strlen(str)
1d10: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
1d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a 20 42 --------. *. * B
1d70: 69 6f 43 74 72 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 ioCtrl --. *. *.
1d80: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
1d90: 20 75 73 65 64 20 74 6f 20 70 72 6f 63 65 73 73 used to process
1da0: 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 control message
1db0: 73 20 69 6e 20 74 68 65 20 42 49 4f 2e 20 54 68 s in the BIO. Th
1dc0: 69 73 0a 20 2a 09 66 75 6e 63 74 69 6f 6e 20 77 is. *.function w
1dd0: 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69 6e ill be called in
1de0: 20 72 65 73 70 6f 6e 73 65 20 74 6f 20 74 68 65 response to the
1df0: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c application cal
1e00: 6c 69 6e 67 20 74 68 65 0a 20 2a 09 42 49 4f 5f ling the. *.BIO_
1e10: 63 74 72 6c 28 29 20 66 75 6e 63 74 69 6f 6e 2e ctrl() function.
1e20: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
1e30: 20 2a 09 46 75 6e 63 74 69 6f 6e 20 64 65 70 65 *.Function depe
1e40: 6e 64 65 6e 74 0a 20 2a 0a 20 2a 20 53 69 64 65 ndent. *. * Side
1e50: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 75 6e effects:. *.Fun
1e60: 63 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 0a ction dependent.
1e70: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
1e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ec0: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 6c --. */..static l
1ed0: 6f 6e 67 20 42 69 6f 43 74 72 6c 28 42 49 4f 20 ong BioCtrl(BIO
1ee0: 2a 62 69 6f 2c 20 69 6e 74 20 63 6d 64 2c 20 6c *bio, int cmd, l
1ef0: 6f 6e 67 20 6e 75 6d 2c 20 76 6f 69 64 20 2a 70 ong num, void *p
1f00: 74 72 29 20 7b 0a 20 20 20 20 6c 6f 6e 67 20 72 tr) {. long r
1f10: 65 74 20 3d 20 31 3b 0a 20 20 20 20 53 74 61 74 et = 1;. Stat
1f20: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
1f30: 74 61 74 65 20 2a 29 20 42 49 4f 5f 67 65 74 5f tate *) BIO_get_
1f40: 64 61 74 61 28 62 69 6f 29 3b 0a 20 20 20 20 54 data(bio);. T
1f50: 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 cl_Channel chan
1f60: 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 = Tls_GetParent(
1f70: 73 74 61 74 65 50 74 72 2c 20 30 29 3b 0a 0a 20 statePtr, 0);..
1f80: 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 6f 43 dprintf("BioC
1f90: 74 72 6c 28 25 70 2c 20 30 78 25 78 2c 20 30 78 trl(%p, 0x%x, 0x
1fa0: 25 6c 78 2c 20 25 70 29 22 2c 20 28 76 6f 69 64 %lx, %p)", (void
1fb0: 20 2a 29 20 62 69 6f 2c 20 63 6d 64 2c 20 6e 75 *) bio, cmd, nu
1fc0: 6d 2c 20 70 74 72 29 3b 0a 0a 20 20 20 20 73 77 m, ptr);.. sw
1fd0: 69 74 63 68 20 28 63 6d 64 29 20 7b 0a 09 63 61 itch (cmd) {..ca
1fe0: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 52 45 53 45 se BIO_CTRL_RESE
1ff0: 54 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65 T:.../* opt - Re
2000: 73 65 74 73 20 42 49 4f 20 74 6f 20 69 6e 69 74 sets BIO to init
2010: 69 61 6c 20 73 74 61 74 65 2e 20 49 6d 70 6c 65 ial state. Imple
2020: 6d 65 6e 74 73 20 42 49 4f 5f 72 65 73 65 74 2e ments BIO_reset.
2030: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 */...dprintf("G
2040: 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 52 45 53 45 ot BIO_CTRL_RESE
2050: 54 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e T");.../* Return
2060: 20 31 20 66 6f 72 20 73 75 63 63 65 73 73 20 28 1 for success (
2070: 30 20 66 6f 72 20 66 69 6c 65 20 42 49 4f 73 29 0 for file BIOs)
2080: 20 61 6e 64 20 2d 31 20 66 6f 72 20 66 61 69 6c and -1 for fail
2090: 75 72 65 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 ure */...ret = 0
20a0: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 ;...break;..case
20b0: 20 42 49 4f 5f 43 54 52 4c 5f 45 4f 46 3a 0a 09 BIO_CTRL_EOF:..
20c0: 09 2f 2a 20 6f 70 74 20 2d 20 52 65 74 75 72 6e ./* opt - Return
20d0: 73 20 77 68 65 74 68 65 72 20 45 4f 46 20 68 61 s whether EOF ha
20e0: 73 20 62 65 65 6e 20 72 65 61 63 68 65 64 2e 20 s been reached.
20f0: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 65 Implements BIO_e
2100: 6f 66 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 of. */...dprintf
2110: 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 45 ("Got BIO_CTRL_E
2120: 4f 46 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 OF");.../* Retur
2130: 6e 73 20 31 20 69 66 20 45 4f 46 20 68 61 73 20 ns 1 if EOF has
2140: 62 65 65 6e 20 72 65 61 63 68 65 64 2c 20 30 20 been reached, 0
2150: 69 66 20 6e 6f 74 2c 20 6f 72 20 3c 30 20 66 6f if not, or <0 fo
2160: 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 72 r failure */...r
2170: 65 74 20 3d 20 28 28 63 68 61 6e 29 20 3f 20 28 et = ((chan) ? (
2180: 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 20 7c 7c Tcl_Eof(chan) ||
2190: 20 42 49 4f 5f 74 65 73 74 5f 66 6c 61 67 73 28 BIO_test_flags(
21a0: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 49 bio, BIO_FLAGS_I
21b0: 4e 5f 45 4f 46 29 29 20 3a 20 31 29 3b 0a 09 09 N_EOF)) : 1);...
21c0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
21d0: 5f 43 54 52 4c 5f 49 4e 46 4f 3a 0a 09 09 2f 2a _CTRL_INFO:.../*
21e0: 20 6f 70 74 20 2d 20 65 78 74 72 61 20 69 6e 66 opt - extra inf
21f0: 6f 20 6f 6e 20 42 49 4f 2e 20 49 6d 70 6c 65 6d o on BIO. Implem
2200: 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6d 65 6d ents BIO_get_mem
2210: 5f 64 61 74 61 20 2a 2f 0a 09 09 64 70 72 69 6e _data */...dprin
2220: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
2230: 5f 49 4e 46 4f 22 29 3b 0a 09 09 72 65 74 20 3d _INFO");...ret =
2240: 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 0;...break;..ca
2250: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 53 45 54 3a se BIO_CTRL_SET:
2260: 0a 09 09 2f 2a 20 6d 61 6e 20 2d 20 73 65 74 20 .../* man - set
2270: 74 68 65 20 27 49 4f 27 20 70 61 72 61 6d 65 74 the 'IO' paramet
2280: 65 72 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 er */...dprintf(
2290: 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 53 45 "Got BIO_CTRL_SE
22a0: 54 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a T");...ret = 0;.
22b0: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
22c0: 49 4f 5f 43 54 52 4c 5f 47 45 54 3a 0a 09 09 2f IO_CTRL_GET:.../
22d0: 2a 20 6d 61 6e 20 2d 20 67 65 74 20 74 68 65 20 * man - get the
22e0: 27 49 4f 27 20 70 61 72 61 6d 65 74 65 72 20 2a 'IO' parameter *
22f0: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
2300: 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 20 22 29 BIO_CTRL_GET ")
2310: 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 ;...ret = 0;...b
2320: 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f reak;..case BIO_
2330: 43 54 52 4c 5f 50 55 53 48 3a 0a 09 09 2f 2a 20 CTRL_PUSH:.../*
2340: 6f 70 74 20 2d 20 69 6e 74 65 72 6e 61 6c 2c 20 opt - internal,
2350: 75 73 65 64 20 74 6f 20 73 69 67 6e 69 66 79 20 used to signify
2360: 63 68 61 6e 67 65 2e 20 49 6d 70 6c 65 6d 65 6e change. Implemen
2370: 74 73 20 42 49 4f 5f 70 75 73 68 20 2a 2f 0a 09 ts BIO_push */..
2380: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 .dprintf("Got BI
2390: 4f 5f 43 54 52 4c 5f 50 55 53 48 22 29 3b 0a 09 O_CTRL_PUSH");..
23a0: 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 .ret = 0;...brea
23b0: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
23c0: 4c 5f 50 4f 50 3a 0a 09 09 2f 2a 20 6f 70 74 20 L_POP:.../* opt
23d0: 2d 20 69 6e 74 65 72 6e 61 6c 2c 20 75 73 65 64 - internal, used
23e0: 20 74 6f 20 73 69 67 6e 69 66 79 20 63 68 61 6e to signify chan
23f0: 67 65 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 ge. Implements B
2400: 49 4f 5f 70 6f 70 20 2a 2f 0a 09 09 64 70 72 69 IO_pop */...dpri
2410: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
2420: 4c 5f 50 4f 50 22 29 3b 0a 09 09 72 65 74 20 3d L_POP");...ret =
2430: 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 0;...break;..ca
2440: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f se BIO_CTRL_GET_
2450: 43 4c 4f 53 45 3a 0a 09 09 2f 2a 20 6d 61 6e 20 CLOSE:.../* man
2460: 2d 20 47 65 74 20 74 68 65 20 63 6c 6f 73 65 20 - Get the close
2470: 6f 6e 20 42 49 4f 5f 66 72 65 65 28 29 20 66 6c on BIO_free() fl
2480: 61 67 20 73 65 74 20 62 79 20 42 49 4f 5f 43 54 ag set by BIO_CT
2490: 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 2e 20 49 6d RL_SET_CLOSE. Im
24a0: 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 plements BIO_get
24b0: 5f 63 6c 6f 73 65 20 2a 2f 0a 09 09 64 70 72 69 _close */...dpri
24c0: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 ntf("Got BIO_CTR
24d0: 4c 5f 43 4c 4f 53 45 22 29 3b 0a 09 09 2f 2a 20 L_CLOSE");.../*
24e0: 52 65 74 75 72 6e 73 20 42 49 4f 5f 43 4c 4f 53 Returns BIO_CLOS
24f0: 45 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 45 2c 20 E, BIO_NOCLOSE,
2500: 6f 72 20 3c 30 20 66 6f 72 20 66 61 69 6c 75 72 or <0 for failur
2510: 65 20 2a 2f 0a 09 09 72 65 74 20 3d 20 42 49 4f e */...ret = BIO
2520: 5f 67 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 _get_shutdown(bi
2530: 6f 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 o);...break;..ca
2540: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 53 45 54 5f se BIO_CTRL_SET_
2550: 43 4c 4f 53 45 3a 0a 09 09 2f 2a 20 6d 61 6e 20 CLOSE:.../* man
2560: 2d 20 53 65 74 20 74 68 65 20 63 6c 6f 73 65 20 - Set the close
2570: 6f 6e 20 42 49 4f 5f 66 72 65 65 28 29 20 66 6c on BIO_free() fl
2580: 61 67 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 ag. Implements B
2590: 49 4f 5f 73 65 74 5f 63 6c 6f 73 65 20 2a 2f 0a IO_set_close */.
25a0: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 ..dprintf("Got B
25b0: 49 4f 5f 53 45 54 5f 43 4c 4f 53 45 22 29 3b 0a IO_SET_CLOSE");.
25c0: 09 09 42 49 4f 5f 73 65 74 5f 73 68 75 74 64 6f ..BIO_set_shutdo
25d0: 77 6e 28 62 69 6f 2c 20 6e 75 6d 29 3b 0a 09 09 wn(bio, num);...
25e0: 2f 2a 20 52 65 74 75 72 6e 73 20 31 20 6f 6e 20 /* Returns 1 on
25f0: 73 75 63 63 65 73 73 20 6f 72 20 3c 3d 30 20 66 success or <=0 f
2600: 6f 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 or failure */...
2610: 72 65 74 20 3d 20 31 3b 0a 09 09 62 72 65 61 6b ret = 1;...break
2620: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c ;..case BIO_CTRL
2630: 5f 50 45 4e 44 49 4e 47 3a 0a 09 09 2f 2a 20 6f _PENDING:.../* o
2640: 70 74 20 2d 20 52 65 74 75 72 6e 20 6e 75 6d 62 pt - Return numb
2650: 65 72 20 6f 66 20 62 79 74 65 73 20 69 6e 20 42 er of bytes in B
2660: 49 4f 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 IO waiting to be
2670: 20 72 65 61 64 2e 20 49 6d 70 6c 65 6d 65 6e 74 read. Implement
2680: 73 20 42 49 4f 5f 70 65 6e 64 69 6e 67 2e 20 2a s BIO_pending. *
2690: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
26a0: 20 42 49 4f 5f 43 54 52 4c 5f 50 45 4e 44 49 4e BIO_CTRL_PENDIN
26b0: 47 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e G");.../* Return
26c0: 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 70 the amount of p
26d0: 65 6e 64 69 6e 67 20 64 61 74 61 20 6f 72 20 30 ending data or 0
26e0: 20 66 6f 72 20 65 72 72 6f 72 20 2a 2f 0a 09 09 for error */...
26f0: 72 65 74 20 3d 20 28 28 63 68 61 6e 29 20 3f 20 ret = ((chan) ?
2700: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
2710: 64 28 63 68 61 6e 29 20 3a 20 30 29 3b 0a 09 09 d(chan) : 0);...
2720: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f break;..case BIO
2730: 5f 43 54 52 4c 5f 46 4c 55 53 48 3a 0a 09 09 2f _CTRL_FLUSH:.../
2740: 2a 20 6f 70 74 20 2d 20 46 6c 75 73 68 20 61 6e * opt - Flush an
2750: 79 20 62 75 66 66 65 72 65 64 20 6f 75 74 70 75 y buffered outpu
2760: 74 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 t. Implements BI
2770: 4f 5f 66 6c 75 73 68 2e 20 2a 2f 0a 09 09 64 70 O_flush. */...dp
2780: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
2790: 54 52 4c 5f 46 4c 55 53 48 22 29 3b 0a 09 09 2f TRL_FLUSH");.../
27a0: 2a 20 55 73 65 20 54 63 6c 5f 57 72 69 74 65 52 * Use Tcl_WriteR
27b0: 61 77 20 69 6e 73 74 65 61 64 20 6f 66 20 54 63 aw instead of Tc
27c0: 6c 5f 46 6c 75 73 68 20 74 6f 20 6f 70 65 72 61 l_Flush to opera
27d0: 74 65 20 6f 6e 20 72 69 67 68 74 20 63 68 61 6e te on right chan
27e0: 20 69 6e 20 73 74 61 63 6b 20 2a 2f 0a 09 09 2f in stack */.../
27f0: 2a 20 52 65 74 75 72 6e 73 20 31 20 66 6f 72 20 * Returns 1 for
2800: 73 75 63 63 65 73 73 2c 20 3c 3d 30 20 66 6f 72 success, <=0 for
2810: 20 65 72 72 6f 72 2f 72 65 74 72 79 2e 20 2a 2f error/retry. */
2820: 0a 09 09 72 65 74 20 3d 20 28 28 63 68 61 6e 29 ...ret = ((chan)
2830: 20 26 26 20 28 54 63 6c 5f 57 72 69 74 65 52 61 && (Tcl_WriteRa
2840: 77 28 63 68 61 6e 2c 20 22 22 2c 20 30 29 20 3e w(chan, "", 0) >
2850: 3d 20 30 29 20 3f 20 31 20 3a 20 2d 31 29 3b 0a = 0) ? 1 : -1);.
2860: 09 09 2f 2a 72 65 74 20 3d 20 42 69 6f 4f 75 74 ../*ret = BioOut
2870: 70 75 74 28 62 69 6f 2c 20 4e 55 4c 4c 2c 20 30 put(bio, NULL, 0
2880: 29 3b 2a 2f 0a 09 09 62 72 65 61 6b 3b 0a 09 63 );*/...break;..c
2890: 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 44 55 50 ase BIO_CTRL_DUP
28a0: 3a 0a 09 09 2f 2a 20 6d 61 6e 20 2d 20 65 78 74 :.../* man - ext
28b0: 72 61 20 73 74 75 66 66 20 66 6f 72 20 27 64 75 ra stuff for 'du
28c0: 70 65 64 27 20 42 49 4f 2e 20 49 6d 70 6c 65 6d ped' BIO. Implem
28d0: 65 6e 74 73 20 42 49 4f 5f 64 75 70 5f 73 74 61 ents BIO_dup_sta
28e0: 74 65 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 te */...dprintf(
28f0: 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 44 55 "Got BIO_CTRL_DU
2900: 50 22 29 3b 0a 09 09 72 65 74 20 3d 20 31 3b 0a P");...ret = 1;.
2910: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 ..break;..case B
2920: 49 4f 5f 43 54 52 4c 5f 57 50 45 4e 44 49 4e 47 IO_CTRL_WPENDING
2930: 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65 74 :.../* opt - Ret
2940: 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 urn number of by
2950: 74 65 73 20 69 6e 20 42 49 4f 20 73 74 69 6c 6c tes in BIO still
2960: 20 74 6f 20 62 65 20 77 72 69 74 74 65 6e 2e 20 to be written.
2970: 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 77 Implements BIO_w
2980: 70 65 6e 64 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 pending. */...dp
2990: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 rintf("Got BIO_C
29a0: 54 52 4c 5f 57 50 45 4e 44 49 4e 47 22 29 3b 0a TRL_WPENDING");.
29b0: 09 09 2f 2a 20 52 65 74 75 72 6e 20 74 68 65 20 ../* Return the
29c0: 61 6d 6f 75 6e 74 20 6f 66 20 70 65 6e 64 69 6e amount of pendin
29d0: 67 20 64 61 74 61 20 6f 72 20 30 20 66 6f 72 20 g data or 0 for
29e0: 65 72 72 6f 72 20 2a 2f 0a 09 09 72 65 74 20 3d error */...ret =
29f0: 20 28 28 63 68 61 6e 29 20 3f 20 54 63 6c 5f 4f ((chan) ? Tcl_O
2a00: 75 74 70 75 74 42 75 66 66 65 72 65 64 28 63 68 utputBuffered(ch
2a10: 61 6e 29 20 3a 20 30 29 3b 0a 09 09 62 72 65 61 an) : 0);...brea
2a20: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
2a30: 4c 5f 53 45 54 5f 43 41 4c 4c 42 41 43 4b 3a 0a L_SET_CALLBACK:.
2a40: 09 09 2f 2a 20 6f 70 74 20 2d 20 53 65 74 73 20 ../* opt - Sets
2a50: 61 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 61 6c an informational
2a60: 20 63 61 6c 6c 62 61 63 6b 2e 20 49 6d 70 6c 65 callback. Imple
2a70: 6d 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 69 6e ments BIO_set_in
2a80: 66 6f 5f 63 61 6c 6c 62 61 63 6b 20 2a 2f 0a 09 fo_callback */..
2a90: 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 .ret = 0;...brea
2aa0: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 k;..case BIO_CTR
2ab0: 4c 5f 47 45 54 5f 43 41 4c 4c 42 41 43 4b 3a 0a L_GET_CALLBACK:.
2ac0: 09 09 2f 2a 20 6f 70 74 20 2d 20 47 65 74 20 61 ../* opt - Get a
2ad0: 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e nd return the in
2ae0: 66 6f 20 63 61 6c 6c 62 61 63 6b 2e 20 49 6d 70 fo callback. Imp
2af0: 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f lements BIO_get_
2b00: 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 20 2a 2f info_callback */
2b10: 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 ...ret = 0;...br
2b20: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 42 49 4f 5f eak;...case BIO_
2b30: 43 5f 46 49 4c 45 5f 53 45 45 4b 3a 0a 09 09 2f C_FILE_SEEK:.../
2b40: 2a 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 73 * Not used for s
2b50: 6f 63 6b 65 74 73 2e 20 54 63 6c 5f 53 65 65 6b ockets. Tcl_Seek
2b60: 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 6f 6e 20 74 only works on t
2b70: 6f 70 20 63 68 61 6e 2e 20 49 6d 70 6c 65 6d 65 op chan. Impleme
2b80: 6e 74 73 20 42 49 4f 5f 73 65 65 6b 28 29 20 2a nts BIO_seek() *
2b90: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
2ba0: 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 45 45 4b BIO_C_FILE_SEEK
2bb0: 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 20 2f ");...ret = 0; /
2bc0: 2a 20 52 65 74 75 72 6e 20 30 20 73 75 63 63 65 * Return 0 succe
2bd0: 73 73 20 61 6e 64 20 2d 31 20 66 6f 72 20 66 61 ss and -1 for fa
2be0: 69 6c 75 72 65 20 2a 2f 0a 09 09 62 72 65 61 6b ilure */...break
2bf0: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f 46 49 ;..case BIO_C_FI
2c00: 4c 45 5f 54 45 4c 4c 3a 0a 09 09 2f 2a 20 4e 6f LE_TELL:.../* No
2c10: 74 20 75 73 65 64 20 66 6f 72 20 73 6f 63 6b 65 t used for socke
2c20: 74 73 2e 20 54 63 6c 5f 54 65 6c 6c 20 6f 6e 6c ts. Tcl_Tell onl
2c30: 79 20 77 6f 72 6b 73 20 6f 6e 20 74 6f 70 20 63 y works on top c
2c40: 68 61 6e 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 han. Implements
2c50: 42 49 4f 5f 74 65 6c 6c 28 29 20 2a 2f 0a 09 09 BIO_tell() */...
2c60: 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f dprintf("Got BIO
2c70: 5f 43 5f 46 49 4c 45 5f 54 45 4c 4c 22 29 3b 0a _C_FILE_TELL");.
2c80: 09 09 72 65 74 20 3d 20 30 3b 20 2f 2a 20 52 65 ..ret = 0; /* Re
2c90: 74 75 72 6e 20 30 20 73 75 63 63 65 73 73 20 61 turn 0 success a
2ca0: 6e 64 20 2d 31 20 66 6f 72 20 66 61 69 6c 75 72 nd -1 for failur
2cb0: 65 20 2a 2f 0a 09 09 62 72 65 61 6b 3b 0a 09 63 e */...break;..c
2cc0: 61 73 65 20 42 49 4f 5f 43 5f 53 45 54 5f 46 44 ase BIO_C_SET_FD
2cd0: 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 6d 65 6e 74 :.../* Implement
2ce0: 73 20 42 49 4f 5f 73 65 74 5f 66 64 20 2a 2f 0a s BIO_set_fd */.
2cf0: 09 09 64 70 72 69 6e 74 66 28 22 55 6e 73 75 70 ..dprintf("Unsup
2d00: 70 6f 72 74 65 64 20 63 61 6c 6c 3a 20 42 49 4f ported call: BIO
2d10: 5f 43 5f 53 45 54 5f 46 44 22 29 3b 0a 09 09 72 _C_SET_FD");...r
2d20: 65 74 20 3d 20 2d 31 3b 0a 09 09 62 72 65 61 6b et = -1;...break
2d30: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f 47 45 ;..case BIO_C_GE
2d40: 54 5f 46 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 T_FD:.../* Imple
2d50: 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f 66 64 ments BIO_get_fd
2d60: 28 29 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 () */...dprintf(
2d70: 22 55 6e 73 75 70 70 6f 72 74 65 64 20 63 61 6c "Unsupported cal
2d80: 6c 3a 20 42 49 4f 5f 43 5f 47 45 54 5f 46 44 22 l: BIO_C_GET_FD"
2d90: 29 3b 0a 09 09 72 65 74 20 3d 20 2d 31 3b 0a 09 );...ret = -1;..
2da0: 09 62 72 65 61 6b 3b 0a 0a 23 69 66 20 4f 50 45 .break;..#if OPE
2db0: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
2dc0: 42 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 BER >= 0x3000000
2dd0: 30 4c 20 26 26 20 64 65 66 69 6e 65 64 28 42 49 0L && defined(BI
2de0: 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f O_CTRL_GET_KTLS_
2df0: 53 45 4e 44 29 0a 09 63 61 73 65 20 42 49 4f 5f SEND)..case BIO_
2e00: 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 53 45 CTRL_GET_KTLS_SE
2e10: 4e 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 6d 65 ND:.../* Impleme
2e20: 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6b 74 6c 73 nts BIO_get_ktls
2e30: 5f 73 65 6e 64 20 2a 2f 0a 09 09 64 70 72 69 6e _send */...dprin
2e40: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c tf("Got BIO_CTRL
2e50: 5f 47 45 54 5f 4b 54 4c 53 5f 53 45 4e 44 22 29 _GET_KTLS_SEND")
2e60: 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 31 ;.../* Returns 1
2e70: 20 69 66 20 74 68 65 20 42 49 4f 20 69 73 20 75 if the BIO is u
2e80: 73 69 6e 67 20 74 68 65 20 4b 65 72 6e 65 6c 20 sing the Kernel
2e90: 54 4c 53 20 64 61 74 61 2d 70 61 74 68 20 66 6f TLS data-path fo
2ea0: 72 20 73 65 6e 64 69 6e 67 2c 20 30 20 69 66 20 r sending, 0 if
2eb0: 6e 6f 74 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 not */...ret = 0
2ec0: 3b 0a 09 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 ;...break;.#endi
2ed0: 66 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 f.#if OPENSSL_VE
2ee0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 RSION_NUMBER >=
2ef0: 30 78 33 30 30 30 30 30 30 30 4c 20 26 26 20 64 0x30000000L && d
2f00: 65 66 69 6e 65 64 28 42 49 4f 5f 43 54 52 4c 5f efined(BIO_CTRL_
2f10: 47 45 54 5f 4b 54 4c 53 5f 52 45 43 56 29 0a 09 GET_KTLS_RECV)..
2f20: 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 case BIO_CTRL_GE
2f30: 54 5f 4b 54 4c 53 5f 52 45 43 56 3a 0a 09 09 2f T_KTLS_RECV:.../
2f40: 2a 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f * Implements BIO
2f50: 5f 67 65 74 5f 6b 74 6c 73 5f 72 65 63 76 20 2a _get_ktls_recv *
2f60: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 /...dprintf("Got
2f70: 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 BIO_CTRL_GET_KT
2f80: 4c 53 5f 52 45 43 56 22 29 3b 0a 09 09 2f 2a 20 LS_RECV");.../*
2f90: 52 65 74 75 72 6e 73 20 31 20 69 66 20 74 68 65 Returns 1 if the
2fa0: 20 42 49 4f 20 69 73 20 75 73 69 6e 67 20 74 68 BIO is using th
2fb0: 65 20 4b 65 72 6e 65 6c 20 54 4c 53 20 64 61 74 e Kernel TLS dat
2fc0: 61 2d 70 61 74 68 20 66 6f 72 20 72 65 63 65 69 a-path for recei
2fd0: 76 69 6e 67 2c 20 30 20 69 66 20 6e 6f 74 20 2a ving, 0 if not *
2fe0: 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 /...ret = 0;...b
2ff0: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 64 65 reak;.#endif..de
3000: 66 61 75 6c 74 3a 0a 09 09 64 70 72 69 6e 74 66 fault:...dprintf
3010: 28 22 47 6f 74 20 75 6e 6b 6e 6f 77 6e 20 63 6f ("Got unknown co
3020: 6e 74 72 6f 6c 20 63 6f 6d 6d 61 6e 64 20 28 25 ntrol command (%
3030: 69 29 22 2c 20 63 6d 64 29 3b 0a 09 09 72 65 74 i)", cmd);...ret
3040: 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 20 = 0;...break;.
3050: 20 20 20 7d 0a 20 20 20 20 64 70 72 69 6e 74 66 }. dprintf
3060: 28 22 42 69 6f 43 74 72 6c 20 72 65 74 75 72 6e ("BioCtrl return
3070: 20 76 61 6c 75 65 20 25 6c 69 22 2c 20 72 65 74 value %li", ret
3080: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 );. return re
3090: 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d t;.}../*. *-----
30a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 --------. *. * B
30f0: 69 6f 4e 65 77 20 2d 2d 0a 20 2a 0a 20 2a 09 54 ioNew --. *. *.T
3100: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
3110: 75 73 65 64 20 74 6f 20 63 72 65 61 74 65 20 61 used to create a
3120: 20 6e 65 77 20 69 6e 73 74 61 6e 63 65 20 6f 66 new instance of
3130: 20 74 68 65 20 42 49 4f 2e 20 54 68 69 73 0a 20 the BIO. This.
3140: 2a 09 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 *.function will
3150: 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 be called in res
3160: 70 6f 6e 73 65 20 74 6f 20 74 68 65 20 61 70 70 ponse to the app
3170: 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 lication calling
3180: 20 74 68 65 0a 20 2a 09 42 49 4f 5f 6e 65 77 28 the. *.BIO_new(
3190: 29 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 ) function.. *.
31a0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 * Results:. *.Re
31b0: 74 75 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 73 75 turns boolean su
31c0: 63 63 65 73 73 20 72 65 73 75 6c 74 20 28 31 3d ccess result (1=
31d0: 73 75 63 63 65 73 73 2c 20 30 3d 66 61 69 6c 75 success, 0=failu
31e0: 72 65 29 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 re). *. * Side e
31f0: 66 66 65 63 74 73 3a 0a 20 2a 09 49 6e 69 74 69 ffects:. *.Initi
3200: 61 6c 69 7a 65 73 20 42 49 4f 20 73 74 72 75 63 alizes BIO struc
3210: 74 75 72 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ture.. *. *-----
3220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3260: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
3270: 61 74 69 63 20 69 6e 74 20 42 69 6f 4e 65 77 28 atic int BioNew(
3280: 42 49 4f 20 2a 62 69 6f 29 20 7b 0a 20 20 20 20 BIO *bio) {.
3290: 64 70 72 69 6e 74 66 28 22 42 69 6f 4e 65 77 28 dprintf("BioNew(
32a0: 25 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 69 6f %p) called", bio
32b0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 69 6f 20 );.. if (bio
32c0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
32d0: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 rn 0;. }..
32e0: 20 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 BIO_set_data(bi
32f0: 6f 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 42 49 o, NULL);. BI
3300: 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 O_set_init(bio,
3310: 30 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 0);. BIO_clea
3320: 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 2d 31 29 r_flags(bio, -1)
3330: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a ;. return 1;.
3340: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
3350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3390: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 46 -----. *. * BioF
33a0: 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 ree --. *. *.Thi
33b0: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 s function is us
33c0: 65 64 20 74 6f 20 64 65 73 74 72 6f 79 20 61 6e ed to destroy an
33d0: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 61 20 42 instance of a B
33e0: 49 4f 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f IO. This functio
33f0: 6e 0a 20 2a 09 77 69 6c 6c 20 62 65 20 63 61 6c n. *.will be cal
3400: 6c 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 led in response
3410: 74 6f 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 to the applicati
3420: 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 42 on calling the B
3430: 49 4f 5f 66 72 65 65 28 29 0a 20 2a 09 66 75 6e IO_free(). *.fun
3440: 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 ction.. *. * Res
3450: 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 ults:. *.Returns
3460: 20 62 6f 6f 6c 65 61 6e 20 73 75 63 63 65 73 73 boolean success
3470: 20 72 65 73 75 6c 74 0a 20 2a 0a 20 2a 20 53 69 result. *. * Si
3480: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 49 de effects:. *.I
3490: 6e 69 74 69 61 6c 69 7a 65 73 20 42 49 4f 20 73 nitializes BIO s
34a0: 74 72 75 63 74 75 72 65 2e 0a 20 2a 0a 20 2a 2d tructure.. *. *-
34b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
3500: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f ..static int Bio
3510: 46 72 65 65 28 42 49 4f 20 2a 62 69 6f 29 20 7b Free(BIO *bio) {
3520: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 . dprintf("Bi
3530: 6f 46 72 65 65 28 25 70 29 20 63 61 6c 6c 65 64 oFree(%p) called
3540: 22 2c 20 62 69 6f 29 3b 0a 0a 20 20 20 20 69 66 ", bio);.. if
3550: 20 28 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b (bio == NULL) {
3560: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ..return 0;.
3570: 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 }.. /* Clear
3580: 66 6c 61 67 73 20 69 66 20 73 65 74 20 74 6f 20 flags if set to
3590: 42 49 4f 5f 43 4c 4f 53 45 20 28 63 6c 6f 73 65 BIO_CLOSE (close
35a0: 20 49 2f 4f 20 73 74 72 65 61 6d 20 77 68 65 6e I/O stream when
35b0: 20 74 68 65 20 42 49 4f 20 69 73 20 66 72 65 65 the BIO is free
35c0: 64 29 20 2a 2f 0a 20 20 20 20 69 66 20 28 42 49 d) */. if (BI
35d0: 4f 5f 67 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 O_get_shutdown(b
35e0: 69 6f 29 29 20 7b 0a 09 42 49 4f 5f 73 65 74 5f io)) {..BIO_set_
35f0: 64 61 74 61 28 62 69 6f 2c 20 4e 55 4c 4c 29 3b data(bio, NULL);
3600: 0a 09 42 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 ..BIO_set_init(b
3610: 69 6f 2c 20 30 29 3b 0a 09 42 49 4f 5f 63 6c 65 io, 0);..BIO_cle
3620: 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 2d 31 ar_flags(bio, -1
3630: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 );. }. ret
3640: 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d urn 1;.}../*. *-
3650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
36a0: 20 2a 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 20 2d * BIO_new_tcl -
36b0: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e -. *. *.This fun
36c0: 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f ction is used to
36d0: 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 initialize the
36e0: 42 49 4f 20 6d 65 74 68 6f 64 20 68 61 6e 64 6c BIO method handl
36f0: 65 72 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ers.. *. * Resul
3700: 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 70 ts:. *.Returns p
3710: 6f 69 6e 74 65 72 20 74 6f 20 42 49 4f 20 6f 72 ointer to BIO or
3720: 20 4e 55 4c 4c 20 66 6f 72 20 66 61 69 6c 75 72 NULL for failur
3730: 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 e. *. * Side eff
3740: 65 63 74 73 3a 0a 20 2a 09 49 6e 69 74 69 61 6c ects:. *.Initial
3750: 69 7a 65 73 20 42 49 4f 20 4d 65 74 68 6f 64 73 izes BIO Methods
3760: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
3770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37b0: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 42 49 4f 20 2a 42 ----. */..BIO *B
37c0: 49 4f 5f 6e 65 77 5f 74 63 6c 28 53 74 61 74 65 IO_new_tcl(State
37d0: 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 20 *statePtr, int
37e0: 66 6c 61 67 73 29 20 7b 0a 20 20 20 20 42 49 4f flags) {. BIO
37f0: 20 2a 62 69 6f 3b 0a 23 69 66 64 65 66 20 54 43 *bio;.#ifdef TC
3800: 4c 54 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41 53 LTLS_SSL_USE_FAS
3810: 54 50 41 54 48 0a 20 20 20 20 54 63 6c 5f 43 68 TPATH. Tcl_Ch
3820: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 43 68 61 6e annel parentChan
3830: 6e 65 6c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 54 nel;. const T
3840: 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a cl_ChannelType *
3850: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 parentChannelTyp
3860: 65 3b 0a 0a 20 20 20 20 69 6e 74 20 70 61 72 65 e;.. int pare
3870: 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 2c 20 70 ntChannelFdIn, p
3880: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 arentChannelFdOu
3890: 74 2c 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c t, parentChannel
38a0: 46 64 3b 0a 20 20 20 20 69 6e 74 20 76 61 6c 69 Fd;. int vali
38b0: 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 dParentChannelFd
38c0: 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 64 70 ;.#endif.. dp
38d0: 72 69 6e 74 66 28 22 42 49 4f 5f 6e 65 77 5f 74 rintf("BIO_new_t
38e0: 63 6c 28 29 20 63 61 6c 6c 65 64 22 29 3b 0a 0a cl() called");..
38f0: 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 63 75 /* Create cu
3900: 73 74 6f 6d 20 42 49 4f 20 6d 65 74 68 6f 64 20 stom BIO method
3910: 2a 2f 0a 20 20 20 20 69 66 20 28 42 69 6f 4d 65 */. if (BioMe
3920: 74 68 6f 64 73 20 3d 3d 20 4e 55 4c 4c 29 20 7b thods == NULL) {
3930: 0a 09 2f 2a 20 42 49 4f 5f 54 59 50 45 5f 42 49 ../* BIO_TYPE_BI
3940: 4f 20 3d 20 28 31 39 7c 42 49 4f 5f 54 59 50 45 O = (19|BIO_TYPE
3950: 5f 53 4f 55 52 43 45 5f 53 49 4e 4b 29 20 2d 2d _SOURCE_SINK) --
3960: 20 68 61 6c 66 20 61 20 42 49 4f 20 70 61 69 72 half a BIO pair
3970: 20 2a 2f 0a 09 2f 2a 20 42 49 4f 5f 54 59 50 45 */../* BIO_TYPE
3980: 5f 43 4f 4e 4e 45 43 54 20 3d 20 28 31 32 7c 42 _CONNECT = (12|B
3990: 49 4f 5f 54 59 50 45 5f 53 4f 55 52 43 45 5f 53 IO_TYPE_SOURCE_S
39a0: 49 4e 4b 7c 42 49 4f 5f 54 59 50 45 5f 44 45 53 INK|BIO_TYPE_DES
39b0: 43 52 49 50 54 4f 52 29 20 2a 2f 0a 09 2f 2a 20 CRIPTOR) */../*
39c0: 42 49 4f 5f 54 59 50 45 5f 41 43 43 45 50 54 20 BIO_TYPE_ACCEPT
39d0: 20 3d 20 28 31 33 7c 42 49 4f 5f 54 59 50 45 5f = (13|BIO_TYPE_
39e0: 53 4f 55 52 43 45 5f 53 49 4e 4b 7c 42 49 4f 5f SOURCE_SINK|BIO_
39f0: 54 59 50 45 5f 44 45 53 43 52 49 50 54 4f 52 29 TYPE_DESCRIPTOR)
3a00: 20 2a 2f 0a 09 42 69 6f 4d 65 74 68 6f 64 73 20 */..BioMethods
3a10: 3d 20 42 49 4f 5f 6d 65 74 68 5f 6e 65 77 28 42 = BIO_meth_new(B
3a20: 49 4f 5f 54 59 50 45 5f 42 49 4f 2c 20 22 74 63 IO_TYPE_BIO, "tc
3a30: 6c 22 29 3b 0a 09 69 66 20 28 42 69 6f 4d 65 74 l");..if (BioMet
3a40: 68 6f 64 73 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a hods == NULL) {.
3a50: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 4d 65 . dprintf("Me
3a60: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
3a70: 65 72 72 6f 72 22 29 3b 0a 0a 09 20 20 20 20 72 error");... r
3a80: 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 09 7d 0a 09 eturn NULL;..}..
3a90: 2f 2a 20 4e 6f 74 20 75 73 65 64 20 42 49 4f 5f /* Not used BIO_
3aa0: 6d 65 74 68 5f 73 65 74 5f 77 72 69 74 65 5f 65 meth_set_write_e
3ab0: 78 20 2a 2f 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 x */..BIO_meth_s
3ac0: 65 74 5f 77 72 69 74 65 28 42 69 6f 4d 65 74 68 et_write(BioMeth
3ad0: 6f 64 73 2c 20 42 69 6f 4f 75 74 70 75 74 29 3b ods, BioOutput);
3ae0: 0a 09 2f 2a 20 4e 6f 74 20 75 73 65 64 20 42 49 ../* Not used BI
3af0: 4f 5f 6d 65 74 68 5f 73 65 74 5f 72 65 61 64 5f O_meth_set_read_
3b00: 65 78 20 2a 2f 0a 09 42 49 4f 5f 6d 65 74 68 5f ex */..BIO_meth_
3b10: 73 65 74 5f 72 65 61 64 28 42 69 6f 4d 65 74 68 set_read(BioMeth
3b20: 6f 64 73 2c 20 42 69 6f 49 6e 70 75 74 29 3b 0a ods, BioInput);.
3b30: 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 70 75 .BIO_meth_set_pu
3b40: 74 73 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 ts(BioMethods, B
3b50: 69 6f 50 75 74 73 29 3b 0a 09 42 49 4f 5f 6d 65 ioPuts);..BIO_me
3b60: 74 68 5f 73 65 74 5f 63 74 72 6c 28 42 69 6f 4d th_set_ctrl(BioM
3b70: 65 74 68 6f 64 73 2c 20 42 69 6f 43 74 72 6c 29 ethods, BioCtrl)
3b80: 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f ;..BIO_meth_set_
3b90: 63 72 65 61 74 65 28 42 69 6f 4d 65 74 68 6f 64 create(BioMethod
3ba0: 73 2c 20 42 69 6f 4e 65 77 29 3b 0a 09 42 49 4f s, BioNew);..BIO
3bb0: 5f 6d 65 74 68 5f 73 65 74 5f 64 65 73 74 72 6f _meth_set_destro
3bc0: 79 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 y(BioMethods, Bi
3bd0: 6f 46 72 65 65 29 3b 0a 20 20 20 20 7d 0a 0a 20 oFree);. }..
3be0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 20 if (statePtr
3bf0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 64 70 72 69 == NULL) {..dpri
3c00: 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 73 65 ntf("Asked to se
3c10: 74 75 70 20 61 20 4e 55 4c 4c 20 73 74 61 74 65 tup a NULL state
3c20: 2c 20 6a 75 73 74 20 63 72 65 61 74 69 6e 67 20 , just creating
3c30: 74 68 65 20 69 6e 69 74 69 61 6c 20 63 6f 6e 66 the initial conf
3c40: 69 67 75 72 61 74 69 6f 6e 22 29 3b 0a 0a 09 72 iguration");...r
3c50: 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 eturn NULL;.
3c60: 7d 0a 0a 23 69 66 64 65 66 20 54 43 4c 54 4c 53 }..#ifdef TCLTLS
3c70: 5f 53 53 4c 5f 55 53 45 5f 46 41 53 54 50 41 54 _SSL_USE_FASTPAT
3c80: 48 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 H. /*. *
3c90: 49 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 63 If the channel c
3ca0: 61 6e 20 62 65 20 6d 61 70 70 65 64 20 62 61 63 an be mapped bac
3cb0: 6b 20 74 6f 20 61 20 66 69 6c 65 20 64 65 73 63 k to a file desc
3cc0: 72 69 70 74 6f 72 2c 20 6a 75 73 74 20 75 73 65 riptor, just use
3cd0: 20 74 68 65 20 66 69 6c 65 0a 20 20 20 20 20 2a the file. *
3ce0: 20 64 65 73 63 72 69 70 74 6f 72 20 77 69 74 68 descriptor with
3cf0: 20 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 the SSL library
3d00: 20 73 69 6e 63 65 20 69 74 20 77 69 6c 6c 20 6c since it will l
3d10: 69 6b 65 6c 79 20 62 65 20 6f 70 74 69 6d 69 7a ikely be optimiz
3d20: 65 64 20 66 6f 72 20 74 68 69 73 2e 0a 20 20 20 ed for this..
3d30: 20 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 43 */. parentC
3d40: 68 61 6e 6e 65 6c 20 3d 20 54 6c 73 5f 47 65 74 hannel = Tls_Get
3d50: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c Parent(statePtr,
3d60: 20 30 29 3b 0a 20 20 20 20 70 61 72 65 6e 74 43 0);. parentC
3d70: 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 54 63 6c hannelType = Tcl
3d80: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
3d90: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 29 3b 0a parentChannel);.
3da0: 0a 20 20 20 20 76 61 6c 69 64 50 61 72 65 6e 74 . validParent
3db0: 43 68 61 6e 6e 65 6c 46 64 20 3d 20 30 3b 0a 20 ChannelFd = 0;.
3dc0: 20 20 20 69 66 20 28 73 74 72 63 6d 70 28 70 61 if (strcmp(pa
3dd0: 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 65 2d rentChannelType-
3de0: 3e 74 79 70 65 4e 61 6d 65 2c 20 22 74 63 70 22 >typeName, "tcp"
3df0: 29 20 3d 3d 20 30 29 20 7b 0a 09 76 6f 69 64 20 ) == 0) {..void
3e00: 2a 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 *parentChannelFd
3e10: 49 6e 5f 70 2c 20 2a 70 61 72 65 6e 74 43 68 61 In_p, *parentCha
3e20: 6e 6e 65 6c 46 64 4f 75 74 5f 70 3b 0a 09 69 6e nnelFdOut_p;..in
3e30: 74 20 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 t tclGetChannelH
3e40: 61 6e 64 6c 65 52 65 74 3b 0a 0a 09 74 63 6c 47 andleRet;...tclG
3e50: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 etChannelHandleR
3e60: 65 74 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e et = Tcl_GetChan
3e70: 6e 65 6c 48 61 6e 64 6c 65 28 70 61 72 65 6e 74 nelHandle(parent
3e80: 43 68 61 6e 6e 65 6c 2c 0a 09 20 20 20 20 54 43 Channel,.. TC
3e90: 4c 5f 52 45 41 44 41 42 4c 45 2c 20 26 70 61 72 L_READABLE, &par
3ea0: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 5f 70 entChannelFdIn_p
3eb0: 29 3b 0a 09 69 66 20 28 74 63 6c 47 65 74 43 68 );..if (tclGetCh
3ec0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d annelHandleRet =
3ed0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 = TCL_OK) {..
3ee0: 20 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61 tclGetChannelHa
3ef0: 6e 64 6c 65 52 65 74 20 3d 20 54 63 6c 5f 47 65 ndleRet = Tcl_Ge
3f00: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 tChannelHandle(p
3f10: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 2c 0a 09 20 arentChannel,..
3f20: 20 20 20 20 20 20 20 54 43 4c 5f 57 52 49 54 41 TCL_WRITA
3f30: 42 4c 45 2c 20 26 70 61 72 65 6e 74 43 68 61 6e BLE, &parentChan
3f40: 6e 65 6c 46 64 4f 75 74 5f 70 29 3b 0a 09 20 20 nelFdOut_p);..
3f50: 20 20 69 66 20 28 74 63 6c 47 65 74 43 68 61 6e if (tclGetChan
3f60: 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 3d 20 nelHandleRet ==
3f70: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 70 61 72 65 TCL_OK) {...pare
3f80: 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 20 3d 20 ntChannelFdIn =
3f90: 50 54 52 32 49 4e 54 28 70 61 72 65 6e 74 43 68 PTR2INT(parentCh
3fa0: 61 6e 6e 65 6c 46 64 49 6e 5f 70 29 3b 0a 09 09 annelFdIn_p);...
3fb0: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f parentChannelFdO
3fc0: 75 74 20 3d 20 50 54 52 32 49 4e 54 28 70 61 72 ut = PTR2INT(par
3fd0: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f entChannelFdOut_
3fe0: 70 29 3b 0a 09 09 69 66 20 28 70 61 72 65 6e 74 p);...if (parent
3ff0: 43 68 61 6e 6e 65 6c 46 64 49 6e 20 3d 3d 20 70 ChannelFdIn == p
4000: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 arentChannelFdOu
4010: 74 29 20 7b 0a 09 09 20 20 20 20 70 61 72 65 6e t) {... paren
4020: 74 43 68 61 6e 6e 65 6c 46 64 20 3d 20 70 61 72 tChannelFd = par
4030: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 3b 0a entChannelFdIn;.
4040: 09 09 20 20 20 20 76 61 6c 69 64 50 61 72 65 6e .. validParen
4050: 74 43 68 61 6e 6e 65 6c 46 64 20 3d 20 31 3b 0a tChannelFd = 1;.
4060: 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 ..}.. }..}.
4070: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 76 61 6c }.. if (val
4080: 69 64 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 idParentChannelF
4090: 64 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 57 d) {..dprintf("W
40a0: 65 20 66 6f 75 6e 64 20 61 20 73 68 6f 72 74 63 e found a shortc
40b0: 75 74 2c 20 74 68 69 73 20 63 68 61 6e 6e 65 6c ut, this channel
40c0: 20 69 73 20 62 61 63 6b 65 64 20 62 79 20 61 20 is backed by a
40d0: 73 6f 63 6b 65 74 3a 20 25 69 22 2c 0a 09 20 20 socket: %i",..
40e0: 20 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 parentChannelF
40f0: 64 49 6e 29 3b 0a 09 62 69 6f 20 3d 20 42 49 4f dIn);..bio = BIO
4100: 5f 6e 65 77 5f 73 6f 63 6b 65 74 28 70 61 72 65 _new_socket(pare
4110: 6e 74 43 68 61 6e 6e 65 6c 46 64 2c 20 66 6c 61 ntChannelFd, fla
4120: 67 73 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e gs);..statePtr->
4130: 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c flags |= TLS_TCL
4140: 5f 46 41 53 54 50 41 54 48 3b 0a 09 42 49 4f 5f _FASTPATH;..BIO_
4150: 73 65 74 5f 64 61 74 61 28 62 69 6f 2c 20 73 74 set_data(bio, st
4160: 61 74 65 50 74 72 29 3b 0a 09 42 49 4f 5f 73 65 atePtr);..BIO_se
4170: 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 t_shutdown(bio,
4180: 66 6c 61 67 73 29 3b 0a 09 42 49 4f 5f 73 65 74 flags);..BIO_set
4190: 5f 69 6e 69 74 28 62 69 6f 2c 20 31 29 3b 0a 09 _init(bio, 1);..
41a0: 72 65 74 75 72 6e 20 62 69 6f 3b 0a 20 20 20 20 return bio;.
41b0: 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 64 70 }.#endif.. dp
41c0: 72 69 6e 74 66 28 22 46 61 6c 6c 69 6e 67 20 62 rintf("Falling b
41d0: 61 63 6b 20 74 6f 20 54 63 6c 20 49 2f 4f 20 66 ack to Tcl I/O f
41e0: 6f 72 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 22 or this channel"
41f0: 29 3b 0a 0a 20 20 20 20 62 69 6f 20 3d 20 42 49 );.. bio = BI
4200: 4f 5f 6e 65 77 28 42 69 6f 4d 65 74 68 6f 64 73 O_new(BioMethods
4210: 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 64 );. BIO_set_d
4220: 61 74 61 28 62 69 6f 2c 20 73 74 61 74 65 50 74 ata(bio, statePt
4230: 72 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f r);. BIO_set_
4240: 73 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20 66 6c shutdown(bio, fl
4250: 61 67 73 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 ags);. BIO_se
4260: 74 5f 69 6e 69 74 28 62 69 6f 2c 20 31 29 3b 20 t_init(bio, 1);
4270: 2f 2a 20 45 6e 61 62 6c 65 20 72 65 61 64 20 26 /* Enable read &
4280: 20 77 72 69 74 65 20 2a 2f 0a 20 20 20 20 72 65 write */. re
4290: 74 75 72 6e 20 62 69 6f 3b 0a 7d 0a 0a 2f 2a 0a turn bio;.}../*.
42a0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
42b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42c0: 2d 2d 2d 2d 2d 2d 2d 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 0a ---------------.
42f0: 20 2a 0a 20 2a 20 42 49 4f 5f 63 6c 65 61 6e 75 *. * BIO_cleanu
4300: 70 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 p --. *. *.This
4310: 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 function is used
4320: 20 74 6f 20 64 65 73 74 72 6f 79 20 61 20 42 49 to destroy a BI
4330: 4f 5f 4d 45 54 48 4f 44 20 73 74 72 75 63 74 75 O_METHOD structu
4340: 72 65 20 61 6e 64 20 66 72 65 65 20 75 70 20 61 re and free up a
4350: 6e 79 0a 20 2a 09 6d 65 6d 6f 72 79 20 61 73 73 ny. *.memory ass
4360: 6f 63 69 61 74 65 64 20 77 69 74 68 20 69 74 2e ociated with it.
4370: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
4380: 20 2a 09 53 74 61 6e 64 61 72 64 20 54 43 4c 20 *.Standard TCL
4390: 72 65 73 75 6c 74 0a 20 2a 0a 20 2a 20 53 69 64 result. *. * Sid
43a0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 44 65 e effects:. *.De
43b0: 73 74 72 6f 79 73 20 42 49 4f 20 4d 65 74 68 6f stroys BIO Metho
43c0: 64 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ds.. *. *-------
43d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 0a 69 6e 74 20 ------. */..int
4420: 42 49 4f 5f 63 6c 65 61 6e 75 70 20 28 29 20 7b BIO_cleanup () {
4430: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 . dprintf("BI
4440: 4f 5f 63 6c 65 61 6e 75 70 28 29 20 63 61 6c 6c O_cleanup() call
4450: 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 42 ed");.. if (B
4460: 69 6f 4d 65 74 68 6f 64 73 20 21 3d 20 4e 55 4c ioMethods != NUL
4470: 4c 29 20 7b 0a 09 42 49 4f 5f 6d 65 74 68 5f 66 L) {..BIO_meth_f
4480: 72 65 65 28 42 69 6f 4d 65 74 68 6f 64 73 29 3b ree(BioMethods);
4490: 0a 09 42 69 6f 4d 65 74 68 6f 64 73 20 3d 20 4e ..BioMethods = N
44a0: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 ULL;. }. r
44b0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.