0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61 (C) 1997-2000 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 0a 20 2a 20 24 48 65 61 64 65 72 3a 20 2f 68 6f . * $Header: /ho
0050: 6d 65 2f 72 6b 65 65 6e 65 2f 74 6d 70 2f 63 76 me/rkeene/tmp/cv
0060: 73 32 66 6f 73 73 69 6c 2f 2e 2e 2f 74 63 6c 74 s2fossil/../tclt
0070: 6c 73 2f 74 6c 73 2f 74 6c 73 2f 74 6c 73 42 49 ls/tls/tls/tlsBI
0080: 4f 2e 63 2c 76 20 31 2e 38 20 32 30 30 34 2f 30 O.c,v 1.8 2004/0
0090: 33 2f 32 34 20 30 35 3a 32 32 3a 35 33 20 72 61 3/24 05:22:53 ra
00a0: 7a 7a 65 6c 6c 20 45 78 70 20 24 0a 20 2a 0a 20 zzell Exp $. *.
00b0: 2a 20 50 72 6f 76 69 64 65 73 20 42 49 4f 20 6c * Provides BIO l
00c0: 61 79 65 72 20 74 6f 20 69 6e 74 65 72 66 61 63 ayer to interfac
00d0: 65 20 6f 70 65 6e 73 73 6c 20 74 6f 20 54 63 6c e openssl to Tcl
00e0: 2e 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 .. */..#include
00f0: 22 74 6c 73 49 6e 74 2e 68 22 0a 0a 2f 2a 0a 20 "tlsInt.h"../*.
0100: 2a 20 46 6f 72 77 61 72 64 20 64 65 63 6c 61 72 * Forward declar
0110: 61 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 73 74 61 74 ations. */..stat
0120: 69 63 20 69 6e 74 20 42 69 6f 57 72 69 74 65 09 ic int BioWrite.
0130: 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 42 49 _ANSI_ARGS_ ((BI
0140: 4f 20 2a 68 2c 20 43 4f 4e 53 54 20 63 68 61 72 O *h, CONST char
0150: 20 2a 62 75 66 2c 20 69 6e 74 20 6e 75 6d 29 29 *buf, int num))
0160: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f ;.static int Bio
0170: 52 65 61 64 09 5f 41 4e 53 49 5f 41 52 47 53 5f Read._ANSI_ARGS_
0180: 20 28 28 42 49 4f 20 2a 68 2c 20 63 68 61 72 20 ((BIO *h, char
0190: 2a 62 75 66 2c 20 69 6e 74 20 6e 75 6d 29 29 3b *buf, int num));
01a0: 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f 50 .static int BioP
01b0: 75 74 73 09 5f 41 4e 53 49 5f 41 52 47 53 5f 20 uts._ANSI_ARGS_
01c0: 28 28 42 49 4f 20 2a 68 2c 20 43 4f 4e 53 54 20 ((BIO *h, CONST
01d0: 63 68 61 72 20 2a 73 74 72 29 29 3b 0a 73 74 61 char *str));.sta
01e0: 74 69 63 20 6c 6f 6e 67 20 42 69 6f 43 74 72 6c tic long BioCtrl
01f0: 09 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 42 ._ANSI_ARGS_ ((B
0200: 49 4f 20 2a 68 2c 20 69 6e 74 20 63 6d 64 2c 20 IO *h, int cmd,
0210: 6c 6f 6e 67 20 61 72 67 31 2c 20 76 6f 69 64 20 long arg1, void
0220: 2a 70 74 72 29 29 3b 0a 73 74 61 74 69 63 20 69 *ptr));.static i
0230: 6e 74 20 42 69 6f 4e 65 77 09 5f 41 4e 53 49 5f nt BioNew._ANSI_
0240: 41 52 47 53 5f 20 28 28 42 49 4f 20 2a 68 29 29 ARGS_ ((BIO *h))
0250: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f ;.static int Bio
0260: 46 72 65 65 09 5f 41 4e 53 49 5f 41 52 47 53 5f Free._ANSI_ARGS_
0270: 20 28 28 42 49 4f 20 2a 68 29 29 3b 0a 0a 0a 73 ((BIO *h));...s
0280: 74 61 74 69 63 20 42 49 4f 5f 4d 45 54 48 4f 44 tatic BIO_METHOD
0290: 20 42 69 6f 4d 65 74 68 6f 64 73 20 3d 20 7b 0a BioMethods = {.
02a0: 20 20 20 20 42 49 4f 5f 54 59 50 45 5f 54 43 4c BIO_TYPE_TCL
02b0: 2c 20 22 74 63 6c 22 2c 0a 20 20 20 20 42 69 6f , "tcl",. Bio
02c0: 57 72 69 74 65 2c 0a 20 20 20 20 42 69 6f 52 65 Write,. BioRe
02d0: 61 64 2c 0a 20 20 20 20 42 69 6f 50 75 74 73 2c ad,. BioPuts,
02e0: 0a 20 20 20 20 4e 55 4c 4c 2c 09 2f 2a 20 42 69 . NULL,./* Bi
02f0: 6f 47 65 74 73 20 2a 2f 0a 20 20 20 20 42 69 6f oGets */. Bio
0300: 43 74 72 6c 2c 0a 20 20 20 20 42 69 6f 4e 65 77 Ctrl,. BioNew
0310: 2c 0a 20 20 20 20 42 69 6f 46 72 65 65 2c 0a 7d ,. BioFree,.}
0320: 3b 0a 0a 42 49 4f 20 2a 0a 42 49 4f 5f 6e 65 77 ;..BIO *.BIO_new
0330: 5f 74 63 6c 28 73 74 61 74 65 50 74 72 2c 20 66 _tcl(statePtr, f
0340: 6c 61 67 73 29 0a 20 20 20 20 53 74 61 74 65 20 lags). State
0350: 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 69 *statePtr;. i
0360: 6e 74 20 66 6c 61 67 73 3b 0a 7b 0a 20 20 20 20 nt flags;.{.
0370: 42 49 4f 20 2a 62 69 6f 3b 0a 0a 20 20 20 20 62 BIO *bio;.. b
0380: 69 6f 09 09 09 3d 20 42 49 4f 5f 6e 65 77 28 26 io...= BIO_new(&
0390: 42 69 6f 4d 65 74 68 6f 64 73 29 3b 0a 20 20 20 BioMethods);.
03a0: 20 62 69 6f 2d 3e 70 74 72 09 09 3d 20 28 63 68 bio->ptr..= (ch
03b0: 61 72 2a 29 73 74 61 74 65 50 74 72 3b 0a 20 20 ar*)statePtr;.
03c0: 20 20 62 69 6f 2d 3e 69 6e 69 74 09 09 3d 20 31 bio->init..= 1
03d0: 3b 0a 20 20 20 20 62 69 6f 2d 3e 73 68 75 74 64 ;. bio->shutd
03e0: 6f 77 6e 09 3d 20 66 6c 61 67 73 3b 0a 0a 20 20 own.= flags;..
03f0: 20 20 72 65 74 75 72 6e 20 62 69 6f 3b 0a 7d 0a return bio;.}.
0400: 0a 42 49 4f 5f 4d 45 54 48 4f 44 20 2a 0a 42 49 .BIO_METHOD *.BI
0410: 4f 5f 73 5f 74 63 6c 28 29 0a 7b 0a 20 20 20 20 O_s_tcl().{.
0420: 72 65 74 75 72 6e 20 26 42 69 6f 4d 65 74 68 6f return &BioMetho
0430: 64 73 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e ds;.}..static in
0440: 74 0a 42 69 6f 57 72 69 74 65 20 28 62 69 6f 2c t.BioWrite (bio,
0450: 20 62 75 66 2c 20 62 75 66 4c 65 6e 29 0a 20 20 buf, bufLen).
0460: 20 20 42 49 4f 20 2a 62 69 6f 3b 0a 20 20 20 20 BIO *bio;.
0470: 43 4f 4e 53 54 20 63 68 61 72 20 2a 62 75 66 3b CONST char *buf;
0480: 0a 20 20 20 20 69 6e 74 20 62 75 66 4c 65 6e 3b . int bufLen;
0490: 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e .{. Tcl_Chann
04a0: 65 6c 20 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 el chan = Tls_Ge
04b0: 74 50 61 72 65 6e 74 28 28 53 74 61 74 65 2a 29 tParent((State*)
04c0: 28 62 69 6f 2d 3e 70 74 72 29 29 3b 0a 20 20 20 (bio->ptr));.
04d0: 20 69 6e 74 20 72 65 74 3b 0a 0a 20 20 20 20 64 int ret;.. d
04e0: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 5c printf(stderr,"\
04f0: 6e 42 69 6f 57 72 69 74 65 28 30 78 25 78 2c 20 nBioWrite(0x%x,
0500: 3c 62 75 66 3e 2c 20 25 64 29 20 5b 30 78 25 78 <buf>, %d) [0x%x
0510: 5d 22 2c 0a 09 20 20 20 20 28 75 6e 73 69 67 6e ]",.. (unsign
0520: 65 64 20 69 6e 74 29 20 62 69 6f 2c 20 62 75 66 ed int) bio, buf
0530: 4c 65 6e 2c 20 28 75 6e 73 69 67 6e 65 64 20 69 Len, (unsigned i
0540: 6e 74 29 20 63 68 61 6e 29 3b 0a 0a 20 20 20 20 nt) chan);..
0550: 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 if (channelTypeV
0560: 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 ersion == TLS_CH
0570: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 ANNEL_VERSION_2)
0580: 20 7b 0a 09 72 65 74 20 3d 20 54 63 6c 5f 57 72 {..ret = Tcl_Wr
0590: 69 74 65 52 61 77 28 63 68 61 6e 2c 20 62 75 66 iteRaw(chan, buf
05a0: 2c 20 62 75 66 4c 65 6e 29 3b 0a 20 20 20 20 7d , bufLen);. }
05b0: 20 65 6c 73 65 20 7b 0a 09 72 65 74 20 3d 20 54 else {..ret = T
05c0: 63 6c 5f 57 72 69 74 65 28 63 68 61 6e 2c 20 62 cl_Write(chan, b
05d0: 75 66 2c 20 62 75 66 4c 65 6e 29 3b 0a 20 20 20 uf, bufLen);.
05e0: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 }.. dprintf(
05f0: 73 74 64 65 72 72 2c 22 5c 6e 5b 30 78 25 78 5d stderr,"\n[0x%x]
0600: 20 42 69 6f 57 72 69 74 65 28 25 64 29 20 2d 3e BioWrite(%d) ->
0610: 20 25 64 20 5b 25 64 2e 25 64 5d 22 2c 0a 09 20 %d [%d.%d]",..
0620: 20 20 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 (unsigned int
0630: 29 20 63 68 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 ) chan, bufLen,
0640: 72 65 74 2c 20 54 63 6c 5f 45 6f 66 28 63 68 61 ret, Tcl_Eof(cha
0650: 6e 29 2c 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f n), Tcl_GetErrno
0660: 28 29 29 3b 0a 0a 20 20 20 20 42 49 4f 5f 63 6c ());.. BIO_cl
0670: 65 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 ear_flags(bio, B
0680: 49 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 7c 42 IO_FLAGS_WRITE|B
0690: 49 4f 5f 46 4c 41 47 53 5f 53 48 4f 55 4c 44 5f IO_FLAGS_SHOULD_
06a0: 52 45 54 52 59 29 3b 0a 0a 20 20 20 20 69 66 20 RETRY);.. if
06b0: 28 72 65 74 20 3d 3d 20 30 29 20 7b 0a 09 69 66 (ret == 0) {..if
06c0: 20 28 21 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 (!Tcl_Eof(chan)
06d0: 29 20 7b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 ) {.. BIO_set
06e0: 5f 72 65 74 72 79 5f 77 72 69 74 65 28 62 69 6f _retry_write(bio
06f0: 29 3b 0a 09 20 20 20 20 72 65 74 20 3d 20 2d 31 );.. ret = -1
0700: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 ;..}. }. i
0710: 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 f (BIO_should_re
0720: 61 64 28 62 69 6f 29 29 20 7b 0a 09 42 49 4f 5f ad(bio)) {..BIO_
0730: 73 65 74 5f 72 65 74 72 79 5f 72 65 61 64 28 62 set_retry_read(b
0740: 69 6f 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 io);. }. r
0750: 65 74 75 72 6e 20 72 65 74 3b 0a 7d 0a 0a 73 74 eturn ret;.}..st
0760: 61 74 69 63 20 69 6e 74 0a 42 69 6f 52 65 61 64 atic int.BioRead
0770: 20 28 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 4c (bio, buf, bufL
0780: 65 6e 29 0a 20 20 20 20 42 49 4f 20 2a 62 69 6f en). BIO *bio
0790: 3b 0a 20 20 20 20 63 68 61 72 20 2a 62 75 66 3b ;. char *buf;
07a0: 0a 20 20 20 20 69 6e 74 20 62 75 66 4c 65 6e 3b . int bufLen;
07b0: 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e .{. Tcl_Chann
07c0: 65 6c 20 63 68 61 6e 20 3d 20 54 6c 73 5f 47 65 el chan = Tls_Ge
07d0: 74 50 61 72 65 6e 74 28 28 53 74 61 74 65 2a 29 tParent((State*)
07e0: 62 69 6f 2d 3e 70 74 72 29 3b 0a 20 20 20 20 69 bio->ptr);. i
07f0: 6e 74 20 72 65 74 20 3d 20 30 3b 0a 0a 20 20 20 nt ret = 0;..
0800: 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c dprintf(stderr,
0810: 22 5c 6e 42 69 6f 52 65 61 64 28 30 78 25 78 2c "\nBioRead(0x%x,
0820: 20 3c 62 75 66 3e 2c 20 25 64 29 20 5b 30 78 25 <buf>, %d) [0x%
0830: 78 5d 22 2c 0a 09 20 20 20 20 28 75 6e 73 69 67 x]",.. (unsig
0840: 6e 65 64 20 69 6e 74 29 20 62 69 6f 2c 20 62 75 ned int) bio, bu
0850: 66 4c 65 6e 2c 20 28 75 6e 73 69 67 6e 65 64 20 fLen, (unsigned
0860: 69 6e 74 29 20 63 68 61 6e 29 3b 0a 0a 20 20 20 int) chan);..
0870: 20 69 66 20 28 62 75 66 20 3d 3d 20 4e 55 4c 4c if (buf == NULL
0880: 29 20 72 65 74 75 72 6e 20 30 3b 0a 0a 20 20 20 ) return 0;..
0890: 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 if (channelType
08a0: 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 Version == TLS_C
08b0: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 HANNEL_VERSION_2
08c0: 29 20 7b 0a 09 72 65 74 20 3d 20 54 63 6c 5f 52 ) {..ret = Tcl_R
08d0: 65 61 64 52 61 77 28 63 68 61 6e 2c 20 62 75 66 eadRaw(chan, buf
08e0: 2c 20 62 75 66 4c 65 6e 29 3b 0a 20 20 20 20 7d , bufLen);. }
08f0: 20 65 6c 73 65 20 7b 0a 09 72 65 74 20 3d 20 54 else {..ret = T
0900: 63 6c 5f 52 65 61 64 28 63 68 61 6e 2c 20 62 75 cl_Read(chan, bu
0910: 66 2c 20 62 75 66 4c 65 6e 29 3b 0a 20 20 20 20 f, bufLen);.
0920: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73 }.. dprintf(s
0930: 74 64 65 72 72 2c 22 5c 6e 5b 30 78 25 78 5d 20 tderr,"\n[0x%x]
0940: 42 69 6f 52 65 61 64 28 25 64 29 20 2d 3e 20 25 BioRead(%d) -> %
0950: 64 20 5b 25 64 2e 25 64 5d 22 2c 0a 09 20 20 20 d [%d.%d]",..
0960: 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 (unsigned int)
0970: 63 68 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 72 65 chan, bufLen, re
0980: 74 2c 20 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 t, Tcl_Eof(chan)
0990: 2c 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 , Tcl_GetErrno()
09a0: 29 3b 0a 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 );.. BIO_clea
09b0: 72 5f 66 6c 61 67 73 28 62 69 6f 2c 20 42 49 4f r_flags(bio, BIO
09c0: 5f 46 4c 41 47 53 5f 52 45 41 44 7c 42 49 4f 5f _FLAGS_READ|BIO_
09d0: 46 4c 41 47 53 5f 53 48 4f 55 4c 44 5f 52 45 54 FLAGS_SHOULD_RET
09e0: 52 59 29 3b 0a 0a 20 20 20 20 69 66 20 28 72 65 RY);.. if (re
09f0: 74 20 3d 3d 20 30 29 20 7b 0a 09 69 66 20 28 21 t == 0) {..if (!
0a00: 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 29 20 7b Tcl_Eof(chan)) {
0a10: 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 .. BIO_set_re
0a20: 74 72 79 5f 72 65 61 64 28 62 69 6f 29 3b 0a 09 try_read(bio);..
0a30: 20 20 20 20 72 65 74 20 3d 20 2d 31 3b 0a 09 7d ret = -1;..}
0a40: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 42 . }. if (B
0a50: 49 4f 5f 73 68 6f 75 6c 64 5f 77 72 69 74 65 28 IO_should_write(
0a60: 62 69 6f 29 29 20 7b 0a 09 42 49 4f 5f 73 65 74 bio)) {..BIO_set
0a70: 5f 72 65 74 72 79 5f 77 72 69 74 65 28 62 69 6f _retry_write(bio
0a80: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 );. }. ret
0a90: 75 72 6e 20 72 65 74 3b 0a 7d 0a 0a 73 74 61 74 urn ret;.}..stat
0aa0: 69 63 20 69 6e 74 0a 42 69 6f 50 75 74 73 09 28 ic int.BioPuts.(
0ab0: 62 69 6f 2c 20 73 74 72 29 0a 20 20 20 20 42 49 bio, str). BI
0ac0: 4f 20 2a 62 69 6f 3b 0a 20 20 20 20 43 4f 4e 53 O *bio;. CONS
0ad0: 54 20 63 68 61 72 20 2a 73 74 72 3b 0a 7b 0a 20 T char *str;.{.
0ae0: 20 20 20 72 65 74 75 72 6e 20 42 69 6f 57 72 69 return BioWri
0af0: 74 65 28 62 69 6f 2c 20 73 74 72 2c 20 28 69 6e te(bio, str, (in
0b00: 74 29 20 73 74 72 6c 65 6e 28 73 74 72 29 29 3b t) strlen(str));
0b10: 0a 7d 0a 0a 73 74 61 74 69 63 20 6c 6f 6e 67 0a .}..static long.
0b20: 42 69 6f 43 74 72 6c 09 28 62 69 6f 2c 20 63 6d BioCtrl.(bio, cm
0b30: 64 2c 20 6e 75 6d 2c 20 70 74 72 29 0a 20 20 20 d, num, ptr).
0b40: 20 42 49 4f 20 2a 62 69 6f 3b 0a 20 20 20 20 69 BIO *bio;. i
0b50: 6e 74 20 63 6d 64 3b 0a 20 20 20 20 6c 6f 6e 67 nt cmd;. long
0b60: 20 6e 75 6d 3b 0a 20 20 20 20 76 6f 69 64 20 2a num;. void *
0b70: 70 74 72 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 ptr;.{. Tcl_C
0b80: 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 54 6c hannel chan = Tl
0b90: 73 5f 47 65 74 50 61 72 65 6e 74 28 28 53 74 61 s_GetParent((Sta
0ba0: 74 65 2a 29 62 69 6f 2d 3e 70 74 72 29 3b 0a 20 te*)bio->ptr);.
0bb0: 20 20 20 6c 6f 6e 67 20 72 65 74 20 3d 20 31 3b long ret = 1;
0bc0: 0a 20 20 20 20 69 6e 74 20 2a 69 70 3b 0a 0a 20 . int *ip;..
0bd0: 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 dprintf(stder
0be0: 72 2c 22 5c 6e 42 69 6f 43 74 72 6c 28 30 78 25 r,"\nBioCtrl(0x%
0bf0: 78 2c 20 30 78 25 78 2c 20 30 78 25 78 2c 20 30 x, 0x%x, 0x%x, 0
0c00: 78 25 78 29 22 2c 0a 09 20 20 20 20 28 75 6e 73 x%x)",.. (uns
0c10: 69 67 6e 65 64 20 69 6e 74 29 20 62 69 6f 2c 20 igned int) bio,
0c20: 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 63 (unsigned int) c
0c30: 6d 64 2c 20 28 75 6e 73 69 67 6e 65 64 20 69 6e md, (unsigned in
0c40: 74 29 20 6e 75 6d 2c 0a 09 20 20 20 20 28 75 6e t) num,.. (un
0c50: 73 69 67 6e 65 64 20 69 6e 74 29 20 70 74 72 29 signed int) ptr)
0c60: 3b 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 63 ;.. switch (c
0c70: 6d 64 29 20 7b 0a 20 20 20 20 63 61 73 65 20 42 md) {. case B
0c80: 49 4f 5f 43 54 52 4c 5f 52 45 53 45 54 3a 0a 09 IO_CTRL_RESET:..
0c90: 6e 75 6d 20 3d 20 30 3b 0a 20 20 20 20 63 61 73 num = 0;. cas
0ca0: 65 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 45 45 e BIO_C_FILE_SEE
0cb0: 4b 3a 0a 20 20 20 20 63 61 73 65 20 42 49 4f 5f K:. case BIO_
0cc0: 43 5f 46 49 4c 45 5f 54 45 4c 4c 3a 0a 09 72 65 C_FILE_TELL:..re
0cd0: 74 20 3d 20 30 3b 0a 09 62 72 65 61 6b 3b 0a 20 t = 0;..break;.
0ce0: 20 20 20 63 61 73 65 20 42 49 4f 5f 43 54 52 4c case BIO_CTRL
0cf0: 5f 49 4e 46 4f 3a 0a 09 72 65 74 20 3d 20 31 3b _INFO:..ret = 1;
0d00: 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 ..break;. cas
0d10: 65 20 42 49 4f 5f 43 5f 53 45 54 5f 46 44 3a 0a e BIO_C_SET_FD:.
0d20: 09 42 69 6f 46 72 65 65 28 62 69 6f 29 3b 0a 09 .BioFree(bio);..
0d30: 2f 2a 20 53 65 74 73 20 53 74 61 74 65 2a 20 2a /* Sets State* *
0d40: 2f 0a 09 62 69 6f 2d 3e 70 74 72 09 3d 20 2a 28 /..bio->ptr.= *(
0d50: 28 63 68 61 72 20 2a 2a 29 70 74 72 29 3b 0a 09 (char **)ptr);..
0d60: 62 69 6f 2d 3e 73 68 75 74 64 6f 77 6e 09 3d 20 bio->shutdown.=
0d70: 28 69 6e 74 29 6e 75 6d 3b 0a 09 62 69 6f 2d 3e (int)num;..bio->
0d80: 69 6e 69 74 09 3d 20 31 3b 0a 09 62 72 65 61 6b init.= 1;..break
0d90: 3b 0a 20 20 20 20 63 61 73 65 20 42 49 4f 5f 43 ;. case BIO_C
0da0: 5f 47 45 54 5f 46 44 3a 0a 09 69 66 20 28 62 69 _GET_FD:..if (bi
0db0: 6f 2d 3e 69 6e 69 74 29 20 7b 0a 09 20 20 20 20 o->init) {..
0dc0: 69 70 20 3d 20 28 69 6e 74 20 2a 29 70 74 72 3b ip = (int *)ptr;
0dd0: 0a 09 20 20 20 20 69 66 20 28 69 70 20 21 3d 20 .. if (ip !=
0de0: 4e 55 4c 4c 29 20 7b 0a 09 09 2a 69 70 20 3d 20 NULL) {...*ip =
0df0: 62 69 6f 2d 3e 6e 75 6d 3b 0a 09 20 20 20 20 7d bio->num;.. }
0e00: 0a 09 20 20 20 20 72 65 74 20 3d 20 62 69 6f 2d .. ret = bio-
0e10: 3e 6e 75 6d 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a >num;..} else {.
0e20: 09 20 20 20 20 72 65 74 20 3d 20 2d 31 3b 0a 09 . ret = -1;..
0e30: 7d 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 }..break;. ca
0e40: 73 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f se BIO_CTRL_GET_
0e50: 43 4c 4f 53 45 3a 0a 09 72 65 74 20 3d 20 62 69 CLOSE:..ret = bi
0e60: 6f 2d 3e 73 68 75 74 64 6f 77 6e 3b 0a 09 62 72 o->shutdown;..br
0e70: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 42 49 eak;. case BI
0e80: 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 O_CTRL_SET_CLOSE
0e90: 3a 0a 09 62 69 6f 2d 3e 73 68 75 74 64 6f 77 6e :..bio->shutdown
0ea0: 20 3d 20 28 69 6e 74 29 6e 75 6d 3b 0a 09 62 72 = (int)num;..br
0eb0: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 42 49 eak;. case BI
0ec0: 4f 5f 43 54 52 4c 5f 45 4f 46 3a 0a 09 64 70 72 O_CTRL_EOF:..dpr
0ed0: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 42 49 intf(stderr, "BI
0ee0: 4f 5f 43 54 52 4c 5f 45 4f 46 5c 6e 22 29 3b 0a O_CTRL_EOF\n");.
0ef0: 09 72 65 74 20 3d 20 54 63 6c 5f 45 6f 66 28 63 .ret = Tcl_Eof(c
0f00: 68 61 6e 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 han);..break;.
0f10: 20 20 63 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f case BIO_CTRL_
0f20: 50 45 4e 44 49 4e 47 3a 0a 09 72 65 74 20 3d 20 PENDING:..ret =
0f30: 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 (Tcl_InputBuffer
0f40: 65 64 28 63 68 61 6e 29 20 3f 20 31 20 3a 20 30 ed(chan) ? 1 : 0
0f50: 29 3b 0a 09 64 70 72 69 6e 74 66 28 73 74 64 65 );..dprintf(stde
0f60: 72 72 2c 20 22 42 49 4f 5f 43 54 52 4c 5f 50 45 rr, "BIO_CTRL_PE
0f70: 4e 44 49 4e 47 28 25 64 29 5c 6e 22 2c 20 28 69 NDING(%d)\n", (i
0f80: 6e 74 29 20 72 65 74 29 3b 0a 09 62 72 65 61 6b nt) ret);..break
0f90: 3b 0a 20 20 20 20 63 61 73 65 20 42 49 4f 5f 43 ;. case BIO_C
0fa0: 54 52 4c 5f 57 50 45 4e 44 49 4e 47 3a 0a 09 72 TRL_WPENDING:..r
0fb0: 65 74 20 3d 20 30 3b 0a 09 62 72 65 61 6b 3b 0a et = 0;..break;.
0fc0: 20 20 20 20 63 61 73 65 20 42 49 4f 5f 43 54 52 case BIO_CTR
0fd0: 4c 5f 44 55 50 3a 0a 09 62 72 65 61 6b 3b 0a 20 L_DUP:..break;.
0fe0: 20 20 20 63 61 73 65 20 42 49 4f 5f 43 54 52 4c case BIO_CTRL
0ff0: 5f 46 4c 55 53 48 3a 0a 09 64 70 72 69 6e 74 66 _FLUSH:..dprintf
1000: 28 73 74 64 65 72 72 2c 20 22 42 49 4f 5f 43 54 (stderr, "BIO_CT
1010: 52 4c 5f 46 4c 55 53 48 5c 6e 22 29 3b 0a 09 69 RL_FLUSH\n");..i
1020: 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 f (channelTypeVe
1030: 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 rsion == TLS_CHA
1040: 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 NNEL_VERSION_2)
1050: 7b 0a 09 20 20 20 20 72 65 74 20 3d 20 28 28 54 {.. ret = ((T
1060: 63 6c 5f 57 72 69 74 65 52 61 77 28 63 68 61 6e cl_WriteRaw(chan
1070: 2c 20 22 22 2c 20 30 29 20 3e 3d 20 30 29 20 3f , "", 0) >= 0) ?
1080: 20 31 20 3a 20 2d 31 29 3b 0a 09 7d 20 65 6c 73 1 : -1);..} els
1090: 65 20 7b 0a 09 20 20 20 20 72 65 74 20 3d 20 28 e {.. ret = (
10a0: 28 54 63 6c 5f 46 6c 75 73 68 28 63 68 61 6e 29 (Tcl_Flush(chan)
10b0: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 3f 20 31 20 == TCL_OK) ? 1
10c0: 3a 20 2d 31 29 3b 0a 09 7d 0a 09 62 72 65 61 6b : -1);..}..break
10d0: 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 ;. default:..
10e0: 72 65 74 20 3d 20 30 3b 0a 09 62 72 65 61 6b 3b ret = 0;..break;
10f0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
1100: 6e 28 72 65 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 n(ret);.}..stati
1110: 63 20 69 6e 74 0a 42 69 6f 4e 65 77 09 28 62 69 c int.BioNew.(bi
1120: 6f 29 0a 20 20 20 20 42 49 4f 20 2a 62 69 6f 3b o). BIO *bio;
1130: 0a 7b 0a 20 20 20 20 62 69 6f 2d 3e 69 6e 69 74 .{. bio->init
1140: 09 3d 20 30 3b 0a 20 20 20 20 62 69 6f 2d 3e 6e .= 0;. bio->n
1150: 75 6d 09 3d 20 30 3b 0a 20 20 20 20 62 69 6f 2d um.= 0;. bio-
1160: 3e 70 74 72 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 >ptr.= NULL;.
1170: 20 62 69 6f 2d 3e 66 6c 61 67 73 09 3d 20 30 3b bio->flags.= 0;
1180: 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a .. return 1;.
1190: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 42 69 }..static int.Bi
11a0: 6f 46 72 65 65 09 28 62 69 6f 29 0a 20 20 20 20 oFree.(bio).
11b0: 42 49 4f 20 2a 62 69 6f 3b 0a 7b 0a 20 20 20 20 BIO *bio;.{.
11c0: 69 66 20 28 62 69 6f 20 3d 3d 20 4e 55 4c 4c 29 if (bio == NULL)
11d0: 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 {..return 0;.
11e0: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 62 69 6f }.. if (bio
11f0: 2d 3e 73 68 75 74 64 6f 77 6e 29 20 7b 0a 09 69 ->shutdown) {..i
1200: 66 20 28 62 69 6f 2d 3e 69 6e 69 74 29 20 7b 0a f (bio->init) {.
1210: 09 20 20 20 20 2f 2a 73 68 75 74 64 6f 77 6e 28 . /*shutdown(
1220: 62 69 6f 2d 3e 6e 75 6d 2c 20 32 29 20 2a 2f 0a bio->num, 2) */.
1230: 09 20 20 20 20 2f 2a 63 6c 6f 73 65 73 6f 63 6b . /*closesock
1240: 65 74 28 62 69 6f 2d 3e 6e 75 6d 29 20 2a 2f 0a et(bio->num) */.
1250: 09 7d 0a 09 62 69 6f 2d 3e 69 6e 69 74 09 3d 20 .}..bio->init.=
1260: 30 3b 0a 09 62 69 6f 2d 3e 66 6c 61 67 73 09 3d 0;..bio->flags.=
1270: 20 30 3b 0a 09 62 69 6f 2d 3e 6e 75 6d 09 3d 20 0;..bio->num.=
1280: 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 0;. }. ret
1290: 75 72 6e 20 31 3b 0a 7d 0a urn 1;.}.