Hex Artifact Content

Artifact 1e7db36ef0f2d41573a4be401da5f5b7ae3d0776457931a32c16e3ca0be3e15c:


0000: 2f 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73 20 43  /*. * Provides C
0010: 75 73 74 6f 6d 20 42 49 4f 20 6c 61 79 65 72 20  ustom BIO layer 
0020: 74 6f 20 69 6e 74 65 72 66 61 63 65 20 4f 70 65  to interface Ope
0030: 6e 53 53 4c 20 77 69 74 68 20 54 43 4c 2e 20 54  nSSL with TCL. T
0040: 68 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 0a 20  hese functions. 
0050: 2a 20 64 69 72 65 63 74 6c 79 20 69 6e 74 65 72  * directly inter
0060: 66 61 63 65 20 62 65 74 77 65 65 6e 20 74 68 65  face between the
0070: 20 54 43 4c 20 49 4f 20 63 68 61 6e 6e 65 6c 20   TCL IO channel 
0080: 61 6e 64 20 42 49 4f 20 62 75 66 66 65 72 73 2e  and BIO buffers.
0090: 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74  . *. * Copyright
00a0: 20 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d   (C) 1997-2000 M
00b0: 61 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74  att Newman <matt
00c0: 40 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20  @novadigm.com>. 
00d0: 2a 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20  * Copyright (C) 
00e0: 32 30 32 34 2d 32 30 32 35 20 42 72 69 61 6e 20  2024-2025 Brian 
00f0: 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f 0a 0a  O'Hagan. *. */..
0100: 2f 2a 0a 4e 6f 72 6d 61 6c 0a 09 09 74 6c 73 42  /*.Normal...tlsB
0110: 49 4f 2e 63 09 09 09 74 6c 73 49 4f 2e 63 0a 20  IO.c...tlsIO.c. 
0120: 2b 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20  +------+        
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0140: 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20  +-----+         
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0160: 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2b 0a 20 7c          +---+. |
0170: 20 20 20 20 20 20 7c 54 63 6c 5f 57 72 69 74 65        |Tcl_Write
0180: 52 61 77 3c 2d 2d 42 69 6f 4f 75 74 70 75 74 7c  Raw<--BioOutput|
0190: 20 53 53 4c 20 7c 42 49 4f 5f 77 72 69 74 65 3c   SSL |BIO_write<
01a0: 2d 2d 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20  --TlsOutputProc 
01b0: 3c 2d 2d 70 75 74 73 7c 20 20 20 7c 0a 20 7c 73  <--puts|   |. |s
01c0: 6f 63 6b 65 74 7c 20 20 20 20 20 20 3c 65 6e 63  ocket|      <enc
01d0: 72 79 70 74 65 64 3e 20 20 20 20 20 20 20 7c 20  rypted>       | 
01e0: 42 49 4f 20 7c 20 20 20 20 20 20 20 20 20 20 20  BIO |           
01f0: 20 3c 75 6e 65 6e 63 72 79 70 74 65 64 3e 20 20   <unencrypted>  
0200: 20 20 20 20 20 20 7c 41 70 70 7c 0a 20 7c 20 20        |App|. |  
0210: 20 20 20 20 7c 54 63 6c 5f 52 65 61 64 52 61 77      |Tcl_ReadRaw
0220: 20 2d 2d 3e 20 42 69 6f 49 6e 70 75 74 7c 20 20   --> BioInput|  
0230: 20 20 20 7c 42 49 4f 5f 52 65 61 64 20 2d 2d 3e     |BIO_Read -->
0240: 54 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 3e  TlsInputProc -->
0250: 20 72 65 61 64 7c 20 20 20 7c 0a 20 2b 2d 2d 2d   read|   |. +---
0260: 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20  ---+            
0270: 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d              +---
0280: 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20  --+             
0290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02a0: 20 20 20 20 2b 2d 2d 2d 2b 0a 0a 0a 46 61 73 74      +---+...Fast
02b0: 20 50 61 74 68 0a 09 09 09 09 09 09 74 6c 73 49   Path.......tlsI
02c0: 4f 2e 63 0a 20 20 2b 2d 2d 2d 2d 2d 2d 2b 20 20  O.c.  +------+  
02d0: 20 20 20 20 20 20 20 20 20 20 20 2b 2d 2d 2d 2d             +----
02e0: 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  -+              
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0300: 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2b 0a 20 20        +-----+.  
0310: 7c 20 20 20 20 20 20 7c 3c 2d 2d 20 77 72 69 74  |      |<-- writ
0320: 65 20 3c 2d 2d 7c 20 53 53 4c 20 7c 42 49 4f 5f  e <--| SSL |BIO_
0330: 77 72 69 74 65 20 3c 2d 2d 20 54 6c 73 4f 75 74  write <-- TlsOut
0340: 70 75 74 50 72 6f 63 20 3c 2d 2d 20 70 75 74 73  putProc <-- puts
0350: 7c 20 20 20 20 20 7c 0a 20 20 7c 73 6f 63 6b 65  |     |.  |socke
0360: 74 7c 20 3c 65 6e 63 72 79 70 74 65 64 3e 20 7c  t| <encrypted> |
0370: 20 42 49 4f 20 7c 20 20 20 20 20 20 20 20 20 20   BIO |          
0380: 20 20 3c 75 6e 65 6e 63 72 79 70 74 65 64 3e 20    <unencrypted> 
0390: 20 20 20 20 20 20 20 20 20 20 7c 20 41 70 70 20            | App 
03a0: 7c 0a 20 20 7c 20 20 20 20 20 20 7c 2d 2d 3e 20  |.  |      |--> 
03b0: 20 72 65 61 64 20 2d 2d 3e 7c 20 20 20 20 20 7c   read -->|     |
03c0: 42 49 4f 5f 52 65 61 64 20 20 2d 2d 3e 20 54 6c  BIO_Read  --> Tl
03d0: 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 3e 20 20  sInputProc -->  
03e0: 72 65 61 64 7c 20 20 20 20 20 7c 0a 20 20 2b 2d  read|     |.  +-
03f0: 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20  -----+          
0400: 20 20 20 2b 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20     +-----+      
0410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 2d                +-
0430: 2d 2d 2d 2d 2b 0a 2a 2f 0a 0a 23 69 6e 63 6c 75  ----+.*/..#inclu
0440: 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69  de "tlsInt.h".#i
0450: 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f  nclude <openssl/
0460: 62 69 6f 2e 68 3e 0a 0a 2f 2a 20 44 65 66 69 6e  bio.h>../* Defin
0470: 65 20 42 49 4f 20 6d 65 74 68 6f 64 73 20 73 74  e BIO methods st
0480: 72 75 63 74 75 72 65 20 2a 2f 0a 73 74 61 74 69  ructure */.stati
0490: 63 20 42 49 4f 5f 4d 45 54 48 4f 44 20 2a 42 69  c BIO_METHOD *Bi
04a0: 6f 4d 65 74 68 6f 64 73 20 3d 20 4e 55 4c 4c 3b  oMethods = NULL;
04b0: 0a 0a 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ..../*. *-------
04c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
04e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
04f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0500: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 49 4f  ------. *. * BIO
0510: 53 68 6f 75 6c 64 52 65 74 72 79 20 2d 2d 0a 20  ShouldRetry --. 
0520: 2a 0a 20 2a 09 44 65 74 65 72 6d 69 6e 65 20 69  *. *.Determine i
0530: 66 20 61 6e 20 6f 70 65 72 61 74 69 6f 6e 20 73  f an operation s
0540: 68 6f 75 6c 64 20 62 65 20 72 65 74 72 69 65 64  hould be retried
0550: 20 66 6f 72 20 6e 6f 6e 2d 66 61 74 61 6c 20 65   for non-fatal e
0560: 72 72 6f 72 73 20 61 66 74 65 72 0a 20 2a 09 6e  rrors after. *.n
0570: 65 78 74 20 73 65 6c 65 63 74 2f 28 65 29 70 6f  ext select/(e)po
0580: 6c 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  ll.. *. * Result
0590: 73 3a 0a 20 2a 09 31 20 3d 20 72 65 74 72 79 2c  s:. *.1 = retry,
05a0: 20 30 20 3d 20 6e 6f 20 72 65 74 72 79 0a 20 2a   0 = no retry. *
05b0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
05c0: 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 20  :. *.None. *. * 
05d0: 4e 6f 74 65 73 3a 0a 20 2a 09 57 65 20 63 68 65  Notes:. *.We che
05e0: 63 6b 20 74 68 65 20 73 61 6d 65 20 63 6f 64 65  ck the same code
05f0: 73 20 61 73 20 42 49 4f 5f 73 6f 63 6b 5f 73 68  s as BIO_sock_sh
0600: 6f 75 6c 64 5f 72 65 74 72 79 20 61 6e 64 0a 20  ould_retry and. 
0610: 2a 09 42 49 4f 5f 73 6f 63 6b 5f 6e 6f 6e 5f 66  *.BIO_sock_non_f
0620: 61 74 61 6c 5f 65 72 72 6f 72 20 28 45 57 4f 55  atal_error (EWOU
0630: 4c 44 42 4c 4f 43 4b 2c 20 45 4e 4f 54 43 4f 4e  LDBLOCK, ENOTCON
0640: 4e 2c 20 45 49 4e 54 52 2c 20 45 41 47 41 49 4e  N, EINTR, EAGAIN
0650: 2c 20 45 50 52 4f 54 4f 2c 0a 20 2a 09 45 49 4e  , EPROTO,. *.EIN
0660: 50 52 4f 47 52 45 53 53 2c 20 61 6e 64 20 45 41  PROGRESS, and EA
0670: 4c 52 45 41 44 59 29 20 65 78 63 65 70 74 20 66  LREADY) except f
0680: 6f 72 20 45 4e 4f 54 43 4f 4e 4e 2e 20 4e 65 77  or ENOTCONN. New
0690: 65 72 20 46 72 65 65 42 53 44 73 20 72 65 74 75  er FreeBSDs retu
06a0: 72 6e 0a 20 2a 09 45 4e 4f 54 43 4f 4e 4e 20 69  rn. *.ENOTCONN i
06b0: 6e 73 74 65 61 64 20 6f 66 20 45 41 47 41 49 4e  nstead of EAGAIN
06c0: 2f 45 57 4f 55 4c 44 42 4c 4f 43 4b 20 77 68 65  /EWOULDBLOCK whe
06d0: 6e 20 74 72 79 69 6e 67 20 74 6f 20 73 65 6e 64  n trying to send
06e0: 20 6f 6e 20 61 0a 20 2a 09 6e 6f 6e 2d 62 6c 6f   on a. *.non-blo
06f0: 63 6b 69 6e 67 20 73 6f 63 6b 65 74 20 77 68 69  cking socket whi
0700: 63 68 20 69 73 20 6e 6f 74 20 79 65 74 20 66 75  ch is not yet fu
0710: 6c 6c 79 20 63 6f 6e 6e 65 63 74 65 64 2e 20 57  lly connected. W
0720: 68 69 6c 65 20 54 43 4c 20 63 6f 72 65 0a 20 2a  hile TCL core. *
0730: 09 75 73 65 73 20 45 57 4f 55 4c 44 42 4c 4f 43  .uses EWOULDBLOC
0740: 4b 20 69 66 20 74 68 65 20 63 6f 6e 6e 65 63 74  K if the connect
0750: 20 69 73 20 73 74 69 6c 6c 20 69 6e 20 70 72 6f   is still in pro
0760: 67 72 65 73 73 2c 20 69 74 20 75 73 65 73 20 45  gress, it uses E
0770: 4e 4f 54 43 4f 4e 4e 0a 20 2a 09 69 66 20 69 74  NOTCONN. *.if it
0780: 20 66 61 69 6c 65 64 2e 20 53 6f 20 77 65 20 73   failed. So we s
0790: 6b 69 70 20 69 74 2e 0a 20 2a 0a 20 2a 2d 2d 2d  kip it.. *. *---
07a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a  ----------. */..
07f0: 73 74 61 74 69 63 20 69 6e 74 20 42 49 4f 53 68  static int BIOSh
0800: 6f 75 6c 64 52 65 74 72 79 28 69 6e 74 20 63 6f  ouldRetry(int co
0810: 64 65 29 20 7b 0a 20 20 20 20 69 6e 74 20 72 65  de) {.    int re
0820: 73 20 3d 20 30 3b 0a 20 20 20 20 64 70 72 69 6e  s = 0;.    dprin
0830: 74 66 28 22 42 49 4f 53 68 6f 75 6c 64 52 65 74  tf("BIOShouldRet
0840: 72 79 20 25 64 3d 25 73 22 2c 20 63 6f 64 65 2c  ry %d=%s", code,
0850: 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 63 6f   Tcl_ErrnoMsg(co
0860: 64 65 29 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 68  de));..    /* Ch
0870: 65 63 6b 20 66 6f 72 20 6e 6f 6e 2d 62 6c 6f 63  eck for non-bloc
0880: 6b 69 6e 67 20 72 65 74 72 79 2d 61 62 6c 65 20  king retry-able 
0890: 65 72 72 6f 72 20 63 6f 64 65 73 2c 20 62 75 74  error codes, but
08a0: 20 73 6b 69 70 20 45 4e 4f 54 43 4f 4e 4e 20 2a   skip ENOTCONN *
08b0: 2f 0a 20 20 20 20 69 66 20 28 63 6f 64 65 20 3d  /.    if (code =
08c0: 3d 20 45 57 4f 55 4c 44 42 4c 4f 43 4b 20 7c 7c  = EWOULDBLOCK ||
08d0: 20 63 6f 64 65 20 3d 3d 20 45 49 4e 50 52 4f 47   code == EINPROG
08e0: 52 45 53 53 20 7c 7c 20 63 6f 64 65 20 3d 3d 20  RESS || code == 
08f0: 45 41 4c 52 45 41 44 59 20 7c 7c 20 0a 09 63 6f  EALREADY || ..co
0900: 64 65 20 3d 3d 20 45 41 47 41 49 4e 20 7c 7c 20  de == EAGAIN || 
0910: 63 6f 64 65 20 3d 3d 20 45 50 52 4f 54 4f 20 7c  code == EPROTO |
0920: 7c 20 63 6f 64 65 20 3d 3d 20 45 49 4e 54 52 29  | code == EINTR)
0930: 20 7b 0a 09 72 65 73 20 3d 20 31 3b 0a 20 20 20   {..res = 1;.   
0940: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28   }..    dprintf(
0950: 22 42 49 4f 53 68 6f 75 6c 64 52 65 74 72 79 20  "BIOShouldRetry 
0960: 25 64 3d 25 73 2c 20 72 65 74 72 79 3d 25 64 22  %d=%s, retry=%d"
0970: 2c 20 63 6f 64 65 2c 20 54 63 6c 5f 45 72 72 6e  , code, Tcl_Errn
0980: 6f 4d 73 67 28 63 6f 64 65 29 2c 20 72 65 73 29  oMsg(code), res)
0990: 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65  ;..    return re
09a0: 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  s;.}../*. *-----
09b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
09c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
09d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42  --------. *. * B
0a00: 69 6f 4f 75 74 70 75 74 20 2d 2d 0a 20 2a 0a 20  ioOutput --. *. 
0a10: 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20  *.This function 
0a20: 69 73 20 75 73 65 64 20 74 6f 20 67 65 74 20 65  is used to get e
0a30: 6e 63 72 79 70 74 65 64 20 64 61 74 61 20 66 72  ncrypted data fr
0a40: 6f 6d 20 74 68 65 20 42 49 4f 20 69 6e 20 62 75  om the BIO in bu
0a50: 66 20 61 6e 64 0a 20 2a 09 77 72 69 74 65 20 69  f and. *.write i
0a60: 74 20 74 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c  t to the channel
0a70: 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20  . This function 
0a80: 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 69  will be called i
0a90: 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f 0a 20 2a  n response to. *
0aa0: 09 74 68 65 20 74 6c 73 49 4f 20 63 61 6c 6c 69  .the tlsIO calli
0ab0: 6e 67 20 74 68 65 20 42 49 4f 5f 77 72 69 74 65  ng the BIO_write
0ac0: 5f 65 78 28 29 20 6f 72 20 42 49 4f 5f 77 72 69  _ex() or BIO_wri
0ad0: 74 65 28 29 20 66 75 6e 63 74 69 6f 6e 73 2e 0a  te() functions..
0ae0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
0af0: 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75  *.Returns the nu
0b00: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72  mber of bytes wr
0b10: 69 74 74 65 6e 20 74 6f 20 63 68 61 6e 6e 65 6c  itten to channel
0b20: 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20 6f 72 20  , 0 for EOF, or 
0b30: 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72 6f 72 2e  -1 for. *.error.
0b40: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
0b50: 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 42  cts:. *.Writes B
0b60: 49 4f 20 64 61 74 61 20 74 6f 20 63 68 61 6e 6e  IO data to chann
0b70: 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  el.. *. *-------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0bc0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74  ------. */..stat
0bd0: 69 63 20 69 6e 74 20 42 69 6f 4f 75 74 70 75 74  ic int BioOutput
0be0: 28 42 49 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73 74  (BIO *bio, const
0bf0: 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20   char *buf, int 
0c00: 62 75 66 4c 65 6e 29 20 7b 0a 20 20 20 20 54 63  bufLen) {.    Tc
0c10: 6c 5f 53 69 7a 65 20 72 65 74 3b 0a 20 20 20 20  l_Size ret;.    
0c20: 69 6e 74 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45  int is_eof, tclE
0c30: 72 72 6e 6f 3b 0a 20 20 20 20 53 74 61 74 65 20  rrno;.    State 
0c40: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61  *statePtr = (Sta
0c50: 74 65 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61  te *) BIO_get_da
0c60: 74 61 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c  ta(bio);.    Tcl
0c70: 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20  _Channel chan = 
0c80: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74  Tls_GetParent(st
0c90: 61 74 65 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20  atePtr, 0);..   
0ca0: 20 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d   dprintf("[chan=
0cb0: 25 70 5d 20 42 69 6f 4f 75 74 70 75 74 28 62 69  %p] BioOutput(bi
0cc0: 6f 3d 25 70 2c 20 62 75 66 3d 25 70 2c 20 6c 65  o=%p, buf=%p, le
0cd0: 6e 3d 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29  n=%d)", (void *)
0ce0: 63 68 61 6e 2c 0a 09 28 76 6f 69 64 20 2a 29 20  chan,..(void *) 
0cf0: 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 4c 65 6e  bio, buf, bufLen
0d00: 29 3b 0a 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61  );..    BIO_clea
0d10: 72 5f 72 65 74 72 79 5f 66 6c 61 67 73 28 62 69  r_retry_flags(bi
0d20: 6f 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 45  o);.    Tcl_SetE
0d30: 72 72 6e 6f 28 30 29 3b 0a 0a 20 20 20 20 2f 2a  rrno(0);..    /*
0d40: 20 57 72 69 74 65 20 64 61 74 61 20 74 6f 20 75   Write data to u
0d50: 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65  nderlying channe
0d60: 6c 20 2a 2f 0a 20 20 20 20 72 65 74 20 3d 20 54  l */.    ret = T
0d70: 63 6c 5f 57 72 69 74 65 52 61 77 28 63 68 61 6e  cl_WriteRaw(chan
0d80: 2c 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65  , buf, (Tcl_Size
0d90: 29 20 62 75 66 4c 65 6e 29 3b 0a 20 20 20 20 69  ) bufLen);.    i
0da0: 73 5f 65 6f 66 20 3d 20 54 63 6c 5f 45 6f 66 28  s_eof = Tcl_Eof(
0db0: 63 68 61 6e 29 3b 0a 20 20 20 20 74 63 6c 45 72  chan);.    tclEr
0dc0: 72 6e 6f 20 3d 20 54 63 6c 5f 47 65 74 45 72 72  rno = Tcl_GetErr
0dd0: 6e 6f 28 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e  no();..    dprin
0de0: 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 69  tf("[chan=%p] Bi
0df0: 6f 4f 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25  oOutput(%d) -> %
0e00: 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46  " TCL_SIZE_MODIF
0e10: 49 45 52 20 22 64 20 5b 74 63 6c 45 6f 66 3d 25  IER "d [tclEof=%
0e20: 64 3b 20 74 63 6c 45 72 72 6e 6f 3d 25 64 3a 20  d; tclErrno=%d: 
0e30: 25 73 5d 22 2c 0a 09 28 76 6f 69 64 20 2a 29 20  %s]",..(void *) 
0e40: 63 68 61 6e 2c 20 62 75 66 4c 65 6e 2c 20 72 65  chan, bufLen, re
0e50: 74 2c 20 69 73 5f 65 6f 66 2c 20 74 63 6c 45 72  t, is_eof, tclEr
0e60: 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73  rno, Tcl_ErrnoMs
0e70: 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 0a 20  g(tclErrno));.. 
0e80: 20 20 20 69 66 20 28 72 65 74 20 3e 20 30 29 20     if (ret > 0) 
0e90: 7b 0a 09 64 70 72 69 6e 74 66 28 22 53 75 63 63  {..dprintf("Succ
0ea0: 65 73 73 66 75 6c 6c 79 20 77 72 6f 74 65 20 25  essfully wrote %
0eb0: 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46  " TCL_SIZE_MODIF
0ec0: 49 45 52 20 22 64 20 62 79 74 65 73 20 6f 66 20  IER "d bytes of 
0ed0: 64 61 74 61 22 2c 20 72 65 74 29 3b 0a 0a 20 20  data", ret);..  
0ee0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 74    } else if (ret
0ef0: 20 3d 3d 20 30 29 20 7b 0a 09 69 66 20 28 69 73   == 0) {..if (is
0f00: 5f 65 6f 66 29 20 7b 0a 09 20 20 20 20 64 70 72  _eof) {..    dpr
0f10: 69 6e 74 66 28 22 47 6f 74 20 45 4f 46 20 77 68  intf("Got EOF wh
0f20: 69 6c 65 20 77 72 69 74 69 6e 67 2c 20 72 65 74  ile writing, ret
0f30: 75 72 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 74  urning a Connect
0f40: 69 6f 6e 20 52 65 73 65 74 20 65 72 72 6f 72 20  ion Reset error 
0f50: 77 68 69 63 68 20 6d 61 70 73 20 74 6f 20 53 6f  which maps to So
0f60: 66 74 20 45 4f 46 22 29 3b 0a 09 20 20 20 20 54  ft EOF");..    T
0f70: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 43 4f 4e  cl_SetErrno(ECON
0f80: 4e 52 45 53 45 54 29 3b 0a 09 20 20 20 20 42 49  NRESET);..    BI
0f90: 4f 5f 73 65 74 5f 66 6c 61 67 73 28 62 69 6f 2c  O_set_flags(bio,
0fa0: 20 42 49 4f 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f   BIO_FLAGS_IN_EO
0fb0: 46 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09  F);...} else {..
0fc0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74      dprintf("Got
0fd0: 20 30 20 66 72 6f 6d 20 54 63 6c 5f 57 72 69 74   0 from Tcl_Writ
0fe0: 65 52 61 77 2c 20 61 6e 64 20 45 4f 46 20 69 73  eRaw, and EOF is
0ff0: 20 6e 6f 74 20 73 65 74 3b 20 72 65 74 20 3d 20   not set; ret = 
1000: 30 22 29 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65  0");..    BIO_se
1010: 74 5f 72 65 74 72 79 5f 77 72 69 74 65 28 62 69  t_retry_write(bi
1020: 6f 29 3b 0a 0a 09 20 20 20 20 64 70 72 69 6e 74  o);...    dprint
1030: 66 28 22 53 65 74 74 69 6e 67 20 72 65 74 72 79  f("Setting retry
1040: 20 72 65 61 64 20 66 6c 61 67 22 29 3b 0a 09 20   read flag");.. 
1050: 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72 79     BIO_set_retry
1060: 5f 72 65 61 64 28 62 69 6f 29 3b 0a 09 7d 0a 0a  _read(bio);..}..
1070: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 64 70      } else {..dp
1080: 72 69 6e 74 66 28 22 57 65 20 67 6f 74 20 73 6f  rintf("We got so
1090: 6d 65 20 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 65  me kind of I/O e
10a0: 72 72 6f 72 22 29 3b 0a 0a 09 69 66 20 28 42 49  rror");...if (BI
10b0: 4f 53 68 6f 75 6c 64 52 65 74 72 79 28 74 63 6c  OShouldRetry(tcl
10c0: 45 72 72 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64  Errno)) {..    d
10d0: 70 72 69 6e 74 66 28 22 54 72 79 20 61 67 61 69  printf("Try agai
10e0: 6e 20 66 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74  n for: %i=%s", t
10f0: 63 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72  clErrno, Tcl_Err
1100: 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29 29  noMsg(tclErrno))
1110: 3b 0a 09 20 20 20 20 42 49 4f 5f 73 65 74 5f 72  ;..    BIO_set_r
1120: 65 74 72 79 5f 77 72 69 74 65 28 62 69 6f 29 3b  etry_write(bio);
1130: 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20  ...} else {..   
1140: 20 64 70 72 69 6e 74 66 28 22 55 6e 65 78 70 65   dprintf("Unexpe
1150: 63 74 65 64 20 65 72 72 6f 72 3a 20 25 69 3d 25  cted error: %i=%
1160: 73 22 2c 20 74 63 6c 45 72 72 6e 6f 2c 20 54 63  s", tclErrno, Tc
1170: 6c 5f 45 72 72 6e 6f 4d 73 67 28 74 63 6c 45 72  l_ErrnoMsg(tclEr
1180: 72 6e 6f 29 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a  rno));..}.    }.
1190: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 69  .    dprintf("Bi
11a0: 6f 4f 75 74 70 75 74 20 72 65 74 75 72 6e 69 6e  oOutput returnin
11b0: 67 20 25 22 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f  g %" TCL_SIZE_MO
11c0: 44 49 46 49 45 52 20 22 64 22 2c 20 72 65 74 29  DIFIER "d", ret)
11d0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e  ;.    return (in
11e0: 74 29 20 72 65 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a  t) ret;.}../*. *
11f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
1240: 0a 20 2a 20 42 69 6f 49 6e 70 75 74 20 2d 2d 0a  . * BioInput --.
1250: 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74   *. *.This funct
1260: 69 6f 6e 20 69 73 20 75 73 65 64 20 74 6f 20 72  ion is used to r
1270: 65 61 64 20 65 6e 63 72 79 70 74 65 64 20 64 61  ead encrypted da
1280: 74 61 20 66 72 6f 6d 20 74 68 65 20 63 68 61 6e  ta from the chan
1290: 6e 65 6c 20 61 6e 64 20 70 61 73 73 0a 20 2a 09  nel and pass. *.
12a0: 69 74 20 74 6f 20 74 68 65 20 42 49 4f 20 69 6e  it to the BIO in
12b0: 20 62 75 66 2e 20 54 68 69 73 20 66 75 6e 63 74   buf. This funct
12c0: 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c  ion will be call
12d0: 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74  ed in response t
12e0: 6f 20 74 68 65 0a 20 2a 09 74 6c 73 49 4f 20 63  o the. *.tlsIO c
12f0: 61 6c 6c 69 6e 67 20 74 68 65 20 42 49 4f 5f 72  alling the BIO_r
1300: 65 61 64 5f 65 78 28 29 20 6f 72 20 42 49 4f 5f  ead_ex() or BIO_
1310: 72 65 61 64 28 29 20 66 75 6e 63 74 69 6f 6e 73  read() functions
1320: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
1330: 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68 65 20  . *.Returns the 
1340: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20  number of bytes 
1350: 72 65 61 64 20 66 72 6f 6d 20 63 68 61 6e 6e 65  read from channe
1360: 6c 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20 6f 72  l, 0 for EOF, or
1370: 20 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72 6f 72   -1 for. *.error
1380: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
1390: 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 63  ects:. *.Reads c
13a0: 68 61 6e 6e 65 6c 20 64 61 74 61 20 69 6e 74 6f  hannel data into
13b0: 20 42 49 4f 20 6f 72 20 73 65 74 73 20 72 65 74   BIO or sets ret
13c0: 72 79 20 66 6c 61 67 73 2e 0a 20 2a 0a 20 2a 2d  ry flags.. *. *-
13d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
13e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
13f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
1420: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 42 69 6f  ..static int Bio
1430: 49 6e 70 75 74 28 42 49 4f 20 2a 62 69 6f 2c 20  Input(BIO *bio, 
1440: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 62  char *buf, int b
1450: 75 66 4c 65 6e 29 20 7b 0a 20 20 20 20 54 63 6c  ufLen) {.    Tcl
1460: 5f 53 69 7a 65 20 72 65 74 20 3d 20 30 3b 0a 20  _Size ret = 0;. 
1470: 20 20 20 69 6e 74 20 69 73 5f 65 6f 66 2c 20 74     int is_eof, t
1480: 63 6c 45 72 72 6e 6f 2c 20 69 73 5f 62 6c 6f 63  clErrno, is_bloc
1490: 6b 65 64 3b 0a 20 20 20 20 53 74 61 74 65 20 2a  ked;.    State *
14a0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74  statePtr = (Stat
14b0: 65 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61 74  e *) BIO_get_dat
14c0: 61 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c 5f  a(bio);.    Tcl_
14d0: 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20 54  Channel chan = T
14e0: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61  ls_GetParent(sta
14f0: 74 65 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20 20  tePtr, 0);..    
1500: 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25  dprintf("[chan=%
1510: 70 5d 20 42 69 6f 49 6e 70 75 74 28 62 69 6f 3d  p] BioInput(bio=
1520: 25 70 2c 20 62 75 66 3d 25 70 2c 20 6c 65 6e 3d  %p, buf=%p, len=
1530: 25 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 63  %d)", (void *) c
1540: 68 61 6e 2c 0a 09 28 76 6f 69 64 20 2a 29 20 62  han,..(void *) b
1550: 69 6f 2c 20 62 75 66 2c 20 62 75 66 4c 65 6e 29  io, buf, bufLen)
1560: 3b 0a 0a 20 20 20 20 69 66 20 28 62 75 66 20 3d  ;..    if (buf =
1570: 3d 20 4e 55 4c 4c 20 7c 7c 20 62 75 66 4c 65 6e  = NULL || bufLen
1580: 20 3c 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e   <= 0) {..return
1590: 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 42   0;.    }..    B
15a0: 49 4f 5f 63 6c 65 61 72 5f 72 65 74 72 79 5f 66  IO_clear_retry_f
15b0: 6c 61 67 73 28 62 69 6f 29 3b 0a 20 20 20 20 54  lags(bio);.    T
15c0: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 30 29 3b 0a  cl_SetErrno(0);.
15d0: 0a 20 20 20 20 2f 2a 20 52 65 61 64 20 64 61 74  .    /* Read dat
15e0: 61 20 66 72 6f 6d 20 75 6e 64 65 72 6c 79 69 6e  a from underlyin
15f0: 67 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20  g channel */.   
1600: 20 72 65 74 20 3d 20 54 63 6c 5f 52 65 61 64 52   ret = Tcl_ReadR
1610: 61 77 28 63 68 61 6e 2c 20 62 75 66 2c 20 28 54  aw(chan, buf, (T
1620: 63 6c 5f 53 69 7a 65 29 20 62 75 66 4c 65 6e 29  cl_Size) bufLen)
1630: 3b 0a 0a 20 20 20 20 69 73 5f 65 6f 66 20 3d 20  ;..    is_eof = 
1640: 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 3b 0a 20  Tcl_Eof(chan);. 
1650: 20 20 20 74 63 6c 45 72 72 6e 6f 20 3d 20 54 63     tclErrno = Tc
1660: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 20 20  l_GetErrno();.  
1670: 20 20 69 73 5f 62 6c 6f 63 6b 65 64 20 3d 20 54    is_blocked = T
1680: 63 6c 5f 49 6e 70 75 74 42 6c 6f 63 6b 65 64 28  cl_InputBlocked(
1690: 63 68 61 6e 29 3b 0a 0a 20 20 20 20 64 70 72 69  chan);..    dpri
16a0: 6e 74 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42  ntf("[chan=%p] B
16b0: 69 6f 49 6e 70 75 74 28 62 75 66 20 6c 65 6e 3d  ioInput(buf len=
16c0: 25 64 29 20 2d 3e 20 25 22 20 54 43 4c 5f 53 49  %d) -> %" TCL_SI
16d0: 5a 45 5f 4d 4f 44 49 46 49 45 52 20 22 64 20 5b  ZE_MODIFIER "d [
16e0: 74 63 6c 45 6f 66 3d 25 64 3b 20 62 6c 6f 63 6b  tclEof=%d; block
16f0: 65 64 3d 25 64 3b 20 74 63 6c 45 72 72 6e 6f 3d  ed=%d; tclErrno=
1700: 25 64 3a 20 25 73 5d 22 2c 0a 09 28 76 6f 69 64  %d: %s]",..(void
1710: 20 2a 29 20 63 68 61 6e 2c 20 62 75 66 4c 65 6e   *) chan, bufLen
1720: 2c 20 72 65 74 2c 20 69 73 5f 65 6f 66 2c 20 69  , ret, is_eof, i
1730: 73 5f 62 6c 6f 63 6b 65 64 2c 20 74 63 6c 45 72  s_blocked, tclEr
1740: 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73  rno, Tcl_ErrnoMs
1750: 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 0a 20  g(tclErrno));.. 
1760: 20 20 20 69 66 20 28 72 65 74 20 3e 20 30 29 20     if (ret > 0) 
1770: 7b 0a 09 64 70 72 69 6e 74 66 28 22 53 75 63 63  {..dprintf("Succ
1780: 65 73 73 66 75 6c 6c 79 20 72 65 61 64 20 25 22  essfully read %"
1790: 20 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49   TCL_SIZE_MODIFI
17a0: 45 52 20 22 64 20 62 79 74 65 73 20 6f 66 20 64  ER "d bytes of d
17b0: 61 74 61 22 2c 20 72 65 74 29 3b 0a 0a 20 20 20  ata", ret);..   
17c0: 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 74 20   } else if (ret 
17d0: 3d 3d 20 30 29 20 7b 0a 09 69 66 20 28 69 73 5f  == 0) {..if (is_
17e0: 65 6f 66 29 20 7b 0a 09 20 20 20 20 64 70 72 69  eof) {..    dpri
17f0: 6e 74 66 28 22 47 6f 74 20 45 4f 46 20 77 68 69  ntf("Got EOF whi
1800: 6c 65 20 72 65 61 64 69 6e 67 2c 20 72 65 74 75  le reading, retu
1810: 72 6e 69 6e 67 20 61 20 43 6f 6e 6e 65 63 74 69  rning a Connecti
1820: 6f 6e 20 52 65 73 65 74 20 65 72 72 6f 72 20 77  on Reset error w
1830: 68 69 63 68 20 6d 61 70 73 20 74 6f 20 53 6f 66  hich maps to Sof
1840: 74 20 45 4f 46 22 29 3b 0a 09 20 20 20 20 54 63  t EOF");..    Tc
1850: 6c 5f 53 65 74 45 72 72 6e 6f 28 45 43 4f 4e 4e  l_SetErrno(ECONN
1860: 52 45 53 45 54 29 3b 0a 09 20 20 20 20 42 49 4f  RESET);..    BIO
1870: 5f 73 65 74 5f 66 6c 61 67 73 28 62 69 6f 2c 20  _set_flags(bio, 
1880: 42 49 4f 5f 46 4c 41 47 53 5f 49 4e 5f 45 4f 46  BIO_FLAGS_IN_EOF
1890: 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 69 66 20 28  );...} else if (
18a0: 69 73 5f 62 6c 6f 63 6b 65 64 29 20 7b 0a 09 20  is_blocked) {.. 
18b0: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20     dprintf("Got 
18c0: 69 6e 70 75 74 20 62 6c 6f 63 6b 65 64 20 66 72  input blocked fr
18d0: 6f 6d 20 54 63 6c 5f 52 65 61 64 52 61 77 2e 20  om Tcl_ReadRaw. 
18e0: 53 65 74 74 69 6e 67 20 72 65 74 72 79 20 72 65  Setting retry re
18f0: 61 64 20 66 6c 61 67 22 29 3b 0a 09 20 20 20 20  ad flag");..    
1900: 42 49 4f 5f 73 65 74 5f 72 65 74 72 79 5f 72 65  BIO_set_retry_re
1910: 61 64 28 62 69 6f 29 3b 0a 09 7d 0a 0a 20 20 20  ad(bio);..}..   
1920: 20 7d 20 65 6c 73 65 20 7b 0a 09 64 70 72 69 6e   } else {..dprin
1930: 74 66 28 22 57 65 20 67 6f 74 20 73 6f 6d 65 20  tf("We got some 
1940: 6b 69 6e 64 20 6f 66 20 49 2f 4f 20 65 72 72 6f  kind of I/O erro
1950: 72 22 29 3b 0a 0a 09 69 66 20 28 42 49 4f 53 68  r");...if (BIOSh
1960: 6f 75 6c 64 52 65 74 72 79 28 74 63 6c 45 72 72  ouldRetry(tclErr
1970: 6e 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69  no)) {..    dpri
1980: 6e 74 66 28 22 54 72 79 20 61 67 61 69 6e 20 66  ntf("Try again f
1990: 6f 72 3a 20 25 69 3d 25 73 22 2c 20 74 63 6c 45  or: %i=%s", tclE
19a0: 72 72 6e 6f 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d  rrno, Tcl_ErrnoM
19b0: 73 67 28 74 63 6c 45 72 72 6e 6f 29 29 3b 0a 09  sg(tclErrno));..
19c0: 20 20 20 20 42 49 4f 5f 73 65 74 5f 72 65 74 72      BIO_set_retr
19d0: 79 5f 72 65 61 64 28 62 69 6f 29 3b 0a 0a 09 7d  y_read(bio);...}
19e0: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72   else {..    dpr
19f0: 69 6e 74 66 28 22 55 6e 65 78 70 65 63 74 65 64  intf("Unexpected
1a00: 20 65 72 72 6f 72 3a 20 25 69 3d 25 73 22 2c 20   error: %i=%s", 
1a10: 74 63 6c 45 72 72 6e 6f 2c 20 54 63 6c 5f 45 72  tclErrno, Tcl_Er
1a20: 72 6e 6f 4d 73 67 28 74 63 6c 45 72 72 6e 6f 29  rnoMsg(tclErrno)
1a30: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20  );..}.    }..   
1a40: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 49 6e 70   dprintf("BioInp
1a50: 75 74 20 72 65 74 75 72 6e 69 6e 67 20 25 22 20  ut returning %" 
1a60: 54 43 4c 5f 53 49 5a 45 5f 4d 4f 44 49 46 49 45  TCL_SIZE_MODIFIE
1a70: 52 20 22 64 22 2c 20 72 65 74 29 3b 0a 20 20 20  R "d", ret);.   
1a80: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 20 72 65   return (int) re
1a90: 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  t;.}../*. *-----
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ae0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42  --------. *. * B
1af0: 69 6f 50 75 74 73 20 2d 2d 0a 20 2a 0a 20 2a 09  ioPuts --. *. *.
1b00: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73  This function is
1b10: 20 75 73 65 64 20 74 6f 20 72 65 61 64 20 61 20   used to read a 
1b20: 4e 55 4c 4c 20 74 65 72 6d 69 6e 61 74 65 64 20  NULL terminated 
1b30: 73 74 72 69 6e 67 20 66 72 6f 6d 20 74 68 65 20  string from the 
1b40: 42 49 4f 20 61 6e 64 0a 20 2a 09 77 72 69 74 65  BIO and. *.write
1b50: 20 69 74 20 74 6f 20 74 68 65 20 63 68 61 6e 6e   it to the chann
1b60: 65 6c 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f  el. This functio
1b70: 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64  n will be called
1b80: 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f 0a   in response to.
1b90: 20 2a 09 74 68 65 20 61 70 70 6c 69 63 61 74 69   *.the applicati
1ba0: 6f 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 42  on calling the B
1bb0: 49 4f 5f 70 75 74 73 28 29 20 66 75 6e 63 74 69  IO_puts() functi
1bc0: 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  on.. *. * Result
1bd0: 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20 74 68  s:. *.Returns th
1be0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65  e number of byte
1bf0: 73 20 72 65 61 64 20 66 72 6f 6d 20 63 68 61 6e  s read from chan
1c00: 6e 65 6c 2c 20 30 20 66 6f 72 20 45 4f 46 2c 20  nel, 0 for EOF, 
1c10: 6f 72 20 2d 31 20 66 6f 72 0a 20 2a 09 65 72 72  or -1 for. *.err
1c20: 6f 72 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  or.. *. * Side e
1c30: 66 66 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 65  ffects:. *.Write
1c40: 73 20 64 61 74 61 20 74 6f 20 63 68 61 6e 6e 65  s data to channe
1c50: 6c 20 6f 72 20 73 65 74 73 20 72 65 74 72 79 20  l or sets retry 
1c60: 66 6c 61 67 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d  flags.. *. *----
1c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73  ---------. */..s
1cc0: 74 61 74 69 63 20 69 6e 74 20 42 69 6f 50 75 74  tatic int BioPut
1cd0: 73 28 42 49 4f 20 2a 62 69 6f 2c 20 63 6f 6e 73  s(BIO *bio, cons
1ce0: 74 20 63 68 61 72 20 2a 73 74 72 29 20 7b 0a 20  t char *str) {. 
1cf0: 20 20 20 64 70 72 69 6e 74 66 28 22 42 69 6f 50     dprintf("BioP
1d00: 75 74 73 28 25 70 29 20 5c 22 25 73 5c 22 22 2c  uts(%p) \"%s\"",
1d10: 20 62 69 6f 2c 20 73 74 72 29 3b 0a 0a 20 20 20   bio, str);..   
1d20: 20 72 65 74 75 72 6e 20 42 69 6f 4f 75 74 70 75   return BioOutpu
1d30: 74 28 62 69 6f 2c 20 73 74 72 2c 20 28 69 6e 74  t(bio, str, (int
1d40: 29 20 73 74 72 6c 65 6e 28 73 74 72 29 29 3b 0a  ) strlen(str));.
1d50: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  }../*. *--------
1d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1da0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 43  -----. *. * BioC
1db0: 74 72 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69  trl --. *. *.Thi
1dc0: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73  s function is us
1dd0: 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 63 6f  ed to process co
1de0: 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 73 20 69  ntrol messages i
1df0: 6e 20 74 68 65 20 42 49 4f 2e 20 54 68 69 73 0a  n the BIO. This.
1e00: 20 2a 09 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c   *.function will
1e10: 20 62 65 20 63 61 6c 6c 65 64 20 69 6e 20 72 65   be called in re
1e20: 73 70 6f 6e 73 65 20 74 6f 20 74 68 65 20 61 70  sponse to the ap
1e30: 70 6c 69 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e  plication callin
1e40: 67 20 74 68 65 0a 20 2a 09 42 49 4f 5f 63 74 72  g the. *.BIO_ctr
1e50: 6c 28 29 20 66 75 6e 63 74 69 6f 6e 2e 20 53 65  l() function. Se
1e60: 76 65 72 61 6c 20 66 75 6e 63 74 69 6f 6e 73 20  veral functions 
1e70: 77 72 61 70 20 42 49 4f 5f 63 74 72 6c 28 29 20  wrap BIO_ctrl() 
1e80: 73 75 63 68 20 61 73 0a 20 2a 09 42 49 4f 5f 65  such as. *.BIO_e
1e90: 6f 66 2c 20 42 49 4f 5f 66 6c 75 73 68 2c 20 42  of, BIO_flush, B
1ea0: 49 4f 5f 70 65 6e 64 69 6e 67 2c 20 42 49 4f 5f  IO_pending, BIO_
1eb0: 77 70 65 6e 64 69 6e 67 2c 20 65 74 63 2e 0a 20  wpending, etc.. 
1ec0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
1ed0: 09 46 75 6e 63 74 69 6f 6e 20 64 65 70 65 6e 64  .Function depend
1ee0: 65 6e 74 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ent. *. * Side e
1ef0: 66 66 65 63 74 73 3a 0a 20 2a 09 46 75 6e 63 74  ffects:. *.Funct
1f00: 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 0a 20 2a  ion dependent. *
1f10: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f60: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 6c 6f 6e  . */..static lon
1f70: 67 20 42 69 6f 43 74 72 6c 28 42 49 4f 20 2a 62  g BioCtrl(BIO *b
1f80: 69 6f 2c 20 69 6e 74 20 63 6d 64 2c 20 6c 6f 6e  io, int cmd, lon
1f90: 67 20 6e 75 6d 2c 20 76 6f 69 64 20 2a 70 74 72  g num, void *ptr
1fa0: 29 20 7b 0a 20 20 20 20 6c 6f 6e 67 20 72 65 74  ) {.    long ret
1fb0: 20 3d 20 31 3b 0a 20 20 20 20 53 74 61 74 65 20   = 1;.    State 
1fc0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61  *statePtr = (Sta
1fd0: 74 65 20 2a 29 20 42 49 4f 5f 67 65 74 5f 64 61  te *) BIO_get_da
1fe0: 74 61 28 62 69 6f 29 3b 0a 20 20 20 20 54 63 6c  ta(bio);.    Tcl
1ff0: 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 3d 20  _Channel chan = 
2000: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74  Tls_GetParent(st
2010: 61 74 65 50 74 72 2c 20 30 29 3b 0a 0a 20 20 20  atePtr, 0);..   
2020: 20 64 70 72 69 6e 74 66 28 22 42 69 6f 43 74 72   dprintf("BioCtr
2030: 6c 28 25 70 2c 20 30 78 25 78 2c 20 30 78 25 6c  l(%p, 0x%x, 0x%l
2040: 78 2c 20 25 70 29 22 2c 20 28 76 6f 69 64 20 2a  x, %p)", (void *
2050: 29 20 62 69 6f 2c 20 63 6d 64 2c 20 6e 75 6d 2c  ) bio, cmd, num,
2060: 20 70 74 72 29 3b 0a 0a 20 20 20 20 73 77 69 74   ptr);..    swit
2070: 63 68 20 28 63 6d 64 29 20 7b 0a 09 63 61 73 65  ch (cmd) {..case
2080: 20 42 49 4f 5f 43 54 52 4c 5f 52 45 53 45 54 3a   BIO_CTRL_RESET:
2090: 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65 73 65  .../* opt - Rese
20a0: 74 73 20 42 49 4f 20 74 6f 20 69 6e 69 74 69 61  ts BIO to initia
20b0: 6c 20 73 74 61 74 65 2e 20 49 6d 70 6c 65 6d 65  l state. Impleme
20c0: 6e 74 73 20 42 49 4f 5f 72 65 73 65 74 2e 20 2a  nts BIO_reset. *
20d0: 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74  /...dprintf("Got
20e0: 20 42 49 4f 5f 43 54 52 4c 5f 52 45 53 45 54 22   BIO_CTRL_RESET"
20f0: 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 20 31  );.../* Return 1
2100: 20 66 6f 72 20 73 75 63 63 65 73 73 20 28 30 20   for success (0 
2110: 66 6f 72 20 66 69 6c 65 20 42 49 4f 73 29 20 61  for file BIOs) a
2120: 6e 64 20 2d 31 20 66 6f 72 20 66 61 69 6c 75 72  nd -1 for failur
2130: 65 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 30 3b  e. */...ret = 0;
2140: 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20  ...break;..case 
2150: 42 49 4f 5f 43 54 52 4c 5f 45 4f 46 3a 0a 09 09  BIO_CTRL_EOF:...
2160: 2f 2a 20 6f 70 74 20 2d 20 52 65 74 75 72 6e 73  /* opt - Returns
2170: 20 77 68 65 74 68 65 72 20 45 4f 46 20 68 61 73   whether EOF has
2180: 20 62 65 65 6e 20 72 65 61 63 68 65 64 2e 20 49   been reached. I
2190: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 65 6f  mplements BIO_eo
21a0: 66 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28  f. */...dprintf(
21b0: 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 45 4f  "Got BIO_CTRL_EO
21c0: 46 22 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e  F");.../* Return
21d0: 73 20 31 20 69 66 20 45 4f 46 20 68 61 73 20 62  s 1 if EOF has b
21e0: 65 65 6e 20 72 65 61 63 68 65 64 2c 20 30 20 69  een reached, 0 i
21f0: 66 20 6e 6f 74 2c 20 6f 72 20 3c 30 20 66 6f 72  f not, or <0 for
2200: 20 66 61 69 6c 75 72 65 2e 20 2a 2f 0a 09 09 72   failure. */...r
2210: 65 74 20 3d 20 28 28 63 68 61 6e 29 20 3f 20 28  et = ((chan) ? (
2220: 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 20 7c 7c  Tcl_Eof(chan) ||
2230: 20 42 49 4f 5f 74 65 73 74 5f 66 6c 61 67 73 28   BIO_test_flags(
2240: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 49  bio, BIO_FLAGS_I
2250: 4e 5f 45 4f 46 29 29 20 3a 20 31 29 3b 0a 09 09  N_EOF)) : 1);...
2260: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f  break;..case BIO
2270: 5f 43 54 52 4c 5f 49 4e 46 4f 3a 0a 09 09 2f 2a  _CTRL_INFO:.../*
2280: 20 6f 70 74 20 2d 20 65 78 74 72 61 20 69 6e 66   opt - extra inf
2290: 6f 20 6f 6e 20 42 49 4f 2e 20 49 6d 70 6c 65 6d  o on BIO. Implem
22a0: 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6d 65 6d  ents BIO_get_mem
22b0: 5f 64 61 74 61 2e 20 2a 2f 0a 09 09 64 70 72 69  _data. */...dpri
22c0: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52  ntf("Got BIO_CTR
22d0: 4c 5f 49 4e 46 4f 22 29 3b 0a 09 09 72 65 74 20  L_INFO");...ret 
22e0: 3d 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63  = 0;...break;..c
22f0: 61 73 65 20 42 49 4f 5f 43 54 52 4c 5f 53 45 54  ase BIO_CTRL_SET
2300: 3a 0a 09 09 2f 2a 20 6d 61 6e 20 2d 20 73 65 74  :.../* man - set
2310: 20 74 68 65 20 27 49 4f 27 20 70 61 72 61 6d 65   the 'IO' parame
2320: 74 65 72 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74  ter. */...dprint
2330: 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f  f("Got BIO_CTRL_
2340: 53 45 54 22 29 3b 0a 09 09 72 65 74 20 3d 20 30  SET");...ret = 0
2350: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65  ;...break;..case
2360: 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 3a 0a 09   BIO_CTRL_GET:..
2370: 09 2f 2a 20 6d 61 6e 20 2d 20 67 65 74 20 74 68  ./* man - get th
2380: 65 20 27 49 4f 27 20 70 61 72 61 6d 65 74 65 72  e 'IO' parameter
2390: 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22  . */...dprintf("
23a0: 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54  Got BIO_CTRL_GET
23b0: 20 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a   ");...ret = 0;.
23c0: 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42  ..break;..case B
23d0: 49 4f 5f 43 54 52 4c 5f 50 55 53 48 3a 0a 09 09  IO_CTRL_PUSH:...
23e0: 2f 2a 20 6f 70 74 20 2d 20 69 6e 74 65 72 6e 61  /* opt - interna
23f0: 6c 2c 20 75 73 65 64 20 74 6f 20 73 69 67 6e 69  l, used to signi
2400: 66 79 20 63 68 61 6e 67 65 2e 20 49 6d 70 6c 65  fy change. Imple
2410: 6d 65 6e 74 73 20 42 49 4f 5f 70 75 73 68 2e 20  ments BIO_push. 
2420: 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f  */...dprintf("Go
2430: 74 20 42 49 4f 5f 43 54 52 4c 5f 50 55 53 48 22  t BIO_CTRL_PUSH"
2440: 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09  );...ret = 0;...
2450: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f  break;..case BIO
2460: 5f 43 54 52 4c 5f 50 4f 50 3a 0a 09 09 2f 2a 20  _CTRL_POP:.../* 
2470: 6f 70 74 20 2d 20 69 6e 74 65 72 6e 61 6c 2c 20  opt - internal, 
2480: 75 73 65 64 20 74 6f 20 73 69 67 6e 69 66 79 20  used to signify 
2490: 63 68 61 6e 67 65 2e 20 49 6d 70 6c 65 6d 65 6e  change. Implemen
24a0: 74 73 20 42 49 4f 5f 70 6f 70 2e 20 2a 2f 0a 09  ts BIO_pop. */..
24b0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49  .dprintf("Got BI
24c0: 4f 5f 43 54 52 4c 5f 50 4f 50 22 29 3b 0a 09 09  O_CTRL_POP");...
24d0: 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b  ret = 0;...break
24e0: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c  ;..case BIO_CTRL
24f0: 5f 47 45 54 5f 43 4c 4f 53 45 3a 0a 09 09 2f 2a  _GET_CLOSE:.../*
2500: 20 6d 61 6e 20 2d 20 47 65 74 20 74 68 65 20 63   man - Get the c
2510: 6c 6f 73 65 20 6f 6e 20 42 49 4f 5f 66 72 65 65  lose on BIO_free
2520: 28 29 20 66 6c 61 67 20 73 65 74 20 62 79 20 42  () flag set by B
2530: 49 4f 5f 43 54 52 4c 5f 53 45 54 5f 43 4c 4f 53  IO_CTRL_SET_CLOS
2540: 45 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49  E. Implements BI
2550: 4f 5f 67 65 74 5f 63 6c 6f 73 65 2e 20 2a 2f 0a  O_get_close. */.
2560: 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42  ..dprintf("Got B
2570: 49 4f 5f 43 54 52 4c 5f 43 4c 4f 53 45 22 29 3b  IO_CTRL_CLOSE");
2580: 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 42 49  .../* Returns BI
2590: 4f 5f 43 4c 4f 53 45 2c 20 42 49 4f 5f 4e 4f 43  O_CLOSE, BIO_NOC
25a0: 4c 4f 53 45 2c 20 6f 72 20 3c 30 20 66 6f 72 20  LOSE, or <0 for 
25b0: 66 61 69 6c 75 72 65 2e 20 2a 2f 0a 09 09 72 65  failure. */...re
25c0: 74 20 3d 20 42 49 4f 5f 67 65 74 5f 73 68 75 74  t = BIO_get_shut
25d0: 64 6f 77 6e 28 62 69 6f 29 3b 0a 09 09 62 72 65  down(bio);...bre
25e0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54  ak;..case BIO_CT
25f0: 52 4c 5f 53 45 54 5f 43 4c 4f 53 45 3a 0a 09 09  RL_SET_CLOSE:...
2600: 2f 2a 20 6d 61 6e 20 2d 20 53 65 74 20 74 68 65  /* man - Set the
2610: 20 63 6c 6f 73 65 20 6f 6e 20 42 49 4f 5f 66 72   close on BIO_fr
2620: 65 65 28 29 20 66 6c 61 67 2e 20 49 6d 70 6c 65  ee() flag. Imple
2630: 6d 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 63 6c  ments BIO_set_cl
2640: 6f 73 65 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74  ose. */...dprint
2650: 66 28 22 47 6f 74 20 42 49 4f 5f 53 45 54 5f 43  f("Got BIO_SET_C
2660: 4c 4f 53 45 22 29 3b 0a 09 09 42 49 4f 5f 73 65  LOSE");...BIO_se
2670: 74 5f 73 68 75 74 64 6f 77 6e 28 62 69 6f 2c 20  t_shutdown(bio, 
2680: 6e 75 6d 29 3b 0a 09 09 2f 2a 20 52 65 74 75 72  num);.../* Retur
2690: 6e 73 20 31 20 6f 6e 20 73 75 63 63 65 73 73 20  ns 1 on success 
26a0: 6f 72 20 3c 3d 30 20 66 6f 72 20 66 61 69 6c 75  or <=0 for failu
26b0: 72 65 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20 31  re. */...ret = 1
26c0: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73 65  ;...break;..case
26d0: 20 42 49 4f 5f 43 54 52 4c 5f 50 45 4e 44 49 4e   BIO_CTRL_PENDIN
26e0: 47 3a 0a 09 09 2f 2a 20 6f 70 74 20 2d 20 52 65  G:.../* opt - Re
26f0: 74 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66 20 62  turn number of b
2700: 79 74 65 73 20 69 6e 20 63 68 61 6e 20 77 61 69  ytes in chan wai
2710: 74 69 6e 67 20 74 6f 20 62 65 20 72 65 61 64 2e  ting to be read.
2720: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f   Implements BIO_
2730: 70 65 6e 64 69 6e 67 2e 20 2a 2f 0a 09 09 64 70  pending. */...dp
2740: 72 69 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43  rintf("Got BIO_C
2750: 54 52 4c 5f 50 45 4e 44 49 4e 47 22 29 3b 0a 09  TRL_PENDING");..
2760: 09 2f 2a 20 52 65 74 75 72 6e 20 74 68 65 20 61  ./* Return the a
2770: 6d 6f 75 6e 74 20 6f 66 20 70 65 6e 64 69 6e 67  mount of pending
2780: 20 64 61 74 61 20 6f 72 20 30 20 66 6f 72 20 65   data or 0 for e
2790: 72 72 6f 72 2e 20 2a 2f 0a 09 09 72 65 74 20 3d  rror. */...ret =
27a0: 20 28 28 63 68 61 6e 29 20 3f 20 54 63 6c 5f 49   ((chan) ? Tcl_I
27b0: 6e 70 75 74 42 75 66 66 65 72 65 64 28 63 68 61  nputBuffered(cha
27c0: 6e 29 20 3a 20 30 29 3b 0a 09 09 64 70 72 69 6e  n) : 0);...dprin
27d0: 74 66 28 22 72 62 69 6f 20 70 65 6e 64 69 6e 67  tf("rbio pending
27e0: 3d 25 64 22 2c 20 72 65 74 29 3b 0a 09 09 62 72  =%d", ret);...br
27f0: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43  eak;..case BIO_C
2800: 54 52 4c 5f 46 4c 55 53 48 3a 0a 09 09 2f 2a 20  TRL_FLUSH:.../* 
2810: 6f 70 74 20 2d 20 46 6c 75 73 68 20 61 6e 79 20  opt - Flush any 
2820: 62 75 66 66 65 72 65 64 20 6f 75 74 70 75 74 2e  buffered output.
2830: 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f   Implements BIO_
2840: 66 6c 75 73 68 2e 20 2a 2f 0a 09 09 64 70 72 69  flush. */...dpri
2850: 6e 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52  ntf("Got BIO_CTR
2860: 4c 5f 46 4c 55 53 48 22 29 3b 0a 09 09 2f 2a 20  L_FLUSH");.../* 
2870: 55 73 65 20 54 63 6c 5f 57 72 69 74 65 52 61 77  Use Tcl_WriteRaw
2880: 20 69 6e 73 74 65 61 64 20 6f 66 20 54 63 6c 5f   instead of Tcl_
2890: 46 6c 75 73 68 20 74 6f 20 6f 70 65 72 61 74 65  Flush to operate
28a0: 20 6f 6e 20 72 69 67 68 74 20 63 68 61 6e 20 69   on right chan i
28b0: 6e 20 73 74 61 63 6b 2e 20 2a 2f 0a 09 09 2f 2a  n stack. */.../*
28c0: 20 52 65 74 75 72 6e 73 20 31 20 66 6f 72 20 73   Returns 1 for s
28d0: 75 63 63 65 73 73 2c 20 3c 3d 30 20 66 6f 72 20  uccess, <=0 for 
28e0: 65 72 72 6f 72 2f 72 65 74 72 79 2e 20 2a 2f 0a  error/retry. */.
28f0: 09 09 72 65 74 20 3d 20 28 28 63 68 61 6e 29 20  ..ret = ((chan) 
2900: 26 26 20 28 54 63 6c 5f 57 72 69 74 65 52 61 77  && (Tcl_WriteRaw
2910: 28 63 68 61 6e 2c 20 22 22 2c 20 30 29 20 3e 3d  (chan, "", 0) >=
2920: 20 30 29 20 3f 20 31 20 3a 20 2d 31 29 3b 0a 09   0) ? 1 : -1);..
2930: 09 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 42 49  .break;..case BI
2940: 4f 5f 43 54 52 4c 5f 44 55 50 3a 0a 09 09 2f 2a  O_CTRL_DUP:.../*
2950: 20 6d 61 6e 20 2d 20 65 78 74 72 61 20 73 74 75   man - extra stu
2960: 66 66 20 66 6f 72 20 27 64 75 70 65 64 27 20 42  ff for 'duped' B
2970: 49 4f 2e 20 49 6d 70 6c 65 6d 65 6e 74 73 20 42  IO. Implements B
2980: 49 4f 5f 64 75 70 5f 73 74 61 74 65 2e 20 2a 2f  IO_dup_state. */
2990: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20  ...dprintf("Got 
29a0: 42 49 4f 5f 43 54 52 4c 5f 44 55 50 22 29 3b 0a  BIO_CTRL_DUP");.
29b0: 09 09 72 65 74 20 3d 20 31 3b 0a 09 09 62 72 65  ..ret = 1;...bre
29c0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54  ak;..case BIO_CT
29d0: 52 4c 5f 57 50 45 4e 44 49 4e 47 3a 0a 09 09 2f  RL_WPENDING:.../
29e0: 2a 20 6f 70 74 20 2d 20 52 65 74 75 72 6e 20 6e  * opt - Return n
29f0: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69  umber of bytes i
2a00: 6e 20 63 68 61 6e 20 73 74 69 6c 6c 20 74 6f 20  n chan still to 
2a10: 62 65 20 77 72 69 74 74 65 6e 2e 20 49 6d 70 6c  be written. Impl
2a20: 65 6d 65 6e 74 73 20 42 49 4f 5f 77 70 65 6e 64  ements BIO_wpend
2a30: 69 6e 67 2e 20 2a 2f 0a 09 09 64 70 72 69 6e 74  ing. */...dprint
2a40: 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c 5f  f("Got BIO_CTRL_
2a50: 57 50 45 4e 44 49 4e 47 22 29 3b 0a 09 09 2f 2a  WPENDING");.../*
2a60: 20 52 65 74 75 72 6e 20 74 68 65 20 61 6d 6f 75   Return the amou
2a70: 6e 74 20 6f 66 20 70 65 6e 64 69 6e 67 20 64 61  nt of pending da
2a80: 74 61 20 6f 72 20 30 20 66 6f 72 20 65 72 72 6f  ta or 0 for erro
2a90: 72 20 2a 2f 0a 09 09 72 65 74 20 3d 20 28 28 63  r */...ret = ((c
2aa0: 68 61 6e 29 20 3f 20 54 63 6c 5f 4f 75 74 70 75  han) ? Tcl_Outpu
2ab0: 74 42 75 66 66 65 72 65 64 28 63 68 61 6e 29 20  tBuffered(chan) 
2ac0: 3a 20 30 29 3b 0a 09 09 64 70 72 69 6e 74 66 28  : 0);...dprintf(
2ad0: 22 77 62 69 6f 20 70 65 6e 64 69 6e 67 3d 25 64  "wbio pending=%d
2ae0: 22 2c 20 72 65 74 29 3b 0a 09 09 62 72 65 61 6b  ", ret);...break
2af0: 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52 4c  ;..case BIO_CTRL
2b00: 5f 53 45 54 5f 43 41 4c 4c 42 41 43 4b 3a 0a 09  _SET_CALLBACK:..
2b10: 09 2f 2a 20 6f 70 74 20 2d 20 53 65 74 73 20 61  ./* opt - Sets a
2b20: 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 61 6c 20  n informational 
2b30: 63 61 6c 6c 62 61 63 6b 2e 20 49 6d 70 6c 65 6d  callback. Implem
2b40: 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 69 6e 66  ents BIO_set_inf
2b50: 6f 5f 63 61 6c 6c 62 61 63 6b 2e 20 2a 2f 0a 09  o_callback. */..
2b60: 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65 61  .ret = 0;...brea
2b70: 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 54 52  k;..case BIO_CTR
2b80: 4c 5f 47 45 54 5f 43 41 4c 4c 42 41 43 4b 3a 0a  L_GET_CALLBACK:.
2b90: 09 09 2f 2a 20 6f 70 74 20 2d 20 47 65 74 20 61  ../* opt - Get a
2ba0: 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e  nd return the in
2bb0: 66 6f 20 63 61 6c 6c 62 61 63 6b 2e 20 49 6d 70  fo callback. Imp
2bc0: 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74 5f  lements BIO_get_
2bd0: 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 2e 20 2a  info_callback. *
2be0: 2f 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62  /...ret = 0;...b
2bf0: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 42 49 4f  reak;...case BIO
2c00: 5f 43 5f 46 49 4c 45 5f 53 45 45 4b 3a 0a 09 09  _C_FILE_SEEK:...
2c10: 2f 2a 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 20  /* Not used for 
2c20: 73 6f 63 6b 65 74 73 2e 20 54 63 6c 5f 53 65 65  sockets. Tcl_See
2c30: 6b 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 6f 6e 20  k only works on 
2c40: 74 6f 70 20 63 68 61 6e 2e 20 49 6d 70 6c 65 6d  top chan. Implem
2c50: 65 6e 74 73 20 42 49 4f 5f 73 65 65 6b 28 29 2e  ents BIO_seek().
2c60: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 47   */...dprintf("G
2c70: 6f 74 20 42 49 4f 5f 43 5f 46 49 4c 45 5f 53 45  ot BIO_C_FILE_SE
2c80: 45 4b 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b  EK");...ret = 0;
2c90: 20 2f 2a 20 52 65 74 75 72 6e 20 30 20 73 75 63   /* Return 0 suc
2ca0: 63 65 73 73 20 61 6e 64 20 2d 31 20 66 6f 72 20  cess and -1 for 
2cb0: 66 61 69 6c 75 72 65 20 2a 2f 0a 09 09 62 72 65  failure */...bre
2cc0: 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f  ak;..case BIO_C_
2cd0: 46 49 4c 45 5f 54 45 4c 4c 3a 0a 09 09 2f 2a 20  FILE_TELL:.../* 
2ce0: 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 73 6f 63  Not used for soc
2cf0: 6b 65 74 73 2e 20 54 63 6c 5f 54 65 6c 6c 20 6f  kets. Tcl_Tell o
2d00: 6e 6c 79 20 77 6f 72 6b 73 20 6f 6e 20 74 6f 70  nly works on top
2d10: 20 63 68 61 6e 2e 20 49 6d 70 6c 65 6d 65 6e 74   chan. Implement
2d20: 73 20 42 49 4f 5f 74 65 6c 6c 28 29 2e 20 2a 2f  s BIO_tell(). */
2d30: 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20  ...dprintf("Got 
2d40: 42 49 4f 5f 43 5f 46 49 4c 45 5f 54 45 4c 4c 22  BIO_C_FILE_TELL"
2d50: 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 20 2f 2a  );...ret = 0; /*
2d60: 20 52 65 74 75 72 6e 20 30 20 73 75 63 63 65 73   Return 0 succes
2d70: 73 20 61 6e 64 20 2d 31 20 66 6f 72 20 66 61 69  s and -1 for fai
2d80: 6c 75 72 65 20 2a 2f 0a 09 09 62 72 65 61 6b 3b  lure */...break;
2d90: 0a 09 63 61 73 65 20 42 49 4f 5f 43 5f 53 45 54  ..case BIO_C_SET
2da0: 5f 46 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 6d  _FD:.../* Implem
2db0: 65 6e 74 73 20 42 49 4f 5f 73 65 74 5f 66 64 20  ents BIO_set_fd 
2dc0: 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 55 6e  */...dprintf("Un
2dd0: 73 75 70 70 6f 72 74 65 64 20 63 61 6c 6c 3a 20  supported call: 
2de0: 42 49 4f 5f 43 5f 53 45 54 5f 46 44 22 29 3b 0a  BIO_C_SET_FD");.
2df0: 09 09 72 65 74 20 3d 20 2d 31 3b 0a 09 09 62 72  ..ret = -1;...br
2e00: 65 61 6b 3b 0a 09 63 61 73 65 20 42 49 4f 5f 43  eak;..case BIO_C
2e10: 5f 47 45 54 5f 46 44 3a 0a 09 09 2f 2a 20 49 6d  _GET_FD:.../* Im
2e20: 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65 74  plements BIO_get
2e30: 5f 66 64 28 29 20 2a 2f 0a 09 09 64 70 72 69 6e  _fd() */...dprin
2e40: 74 66 28 22 55 6e 73 75 70 70 6f 72 74 65 64 20  tf("Unsupported 
2e50: 63 61 6c 6c 3a 20 42 49 4f 5f 43 5f 47 45 54 5f  call: BIO_C_GET_
2e60: 46 44 22 29 3b 0a 09 09 72 65 74 20 3d 20 2d 31  FD");...ret = -1
2e70: 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 23 69 66 20  ;...break;..#if 
2e80: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f  OPENSSL_VERSION_
2e90: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30  NUMBER >= 0x3000
2ea0: 30 30 30 30 4c 0a 09 63 61 73 65 20 42 49 4f 5f  0000L..case BIO_
2eb0: 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f 53 45  CTRL_GET_KTLS_SE
2ec0: 4e 44 3a 0a 09 09 2f 2a 20 49 6d 70 6c 65 6d 65  ND:.../* Impleme
2ed0: 6e 74 73 20 42 49 4f 5f 67 65 74 5f 6b 74 6c 73  nts BIO_get_ktls
2ee0: 5f 73 65 6e 64 20 2a 2f 0a 09 09 64 70 72 69 6e  _send */...dprin
2ef0: 74 66 28 22 47 6f 74 20 42 49 4f 5f 43 54 52 4c  tf("Got BIO_CTRL
2f00: 5f 47 45 54 5f 4b 54 4c 53 5f 53 45 4e 44 22 29  _GET_KTLS_SEND")
2f10: 3b 0a 09 09 2f 2a 20 52 65 74 75 72 6e 73 20 31  ;.../* Returns 1
2f20: 20 69 66 20 74 68 65 20 42 49 4f 20 69 73 20 75   if the BIO is u
2f30: 73 69 6e 67 20 74 68 65 20 4b 65 72 6e 65 6c 20  sing the Kernel 
2f40: 54 4c 53 20 64 61 74 61 2d 70 61 74 68 20 66 6f  TLS data-path fo
2f50: 72 20 73 65 6e 64 69 6e 67 2c 20 30 20 69 66 20  r sending, 0 if 
2f60: 6e 6f 74 2e 20 2a 2f 0a 09 09 72 65 74 20 3d 20  not. */...ret = 
2f70: 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 63 61 73  0;...break;..cas
2f80: 65 20 42 49 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b  e BIO_CTRL_GET_K
2f90: 54 4c 53 5f 52 45 43 56 3a 0a 09 09 2f 2a 20 49  TLS_RECV:.../* I
2fa0: 6d 70 6c 65 6d 65 6e 74 73 20 42 49 4f 5f 67 65  mplements BIO_ge
2fb0: 74 5f 6b 74 6c 73 5f 72 65 63 76 20 2a 2f 0a 09  t_ktls_recv */..
2fc0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 42 49  .dprintf("Got BI
2fd0: 4f 5f 43 54 52 4c 5f 47 45 54 5f 4b 54 4c 53 5f  O_CTRL_GET_KTLS_
2fe0: 52 45 43 56 22 29 3b 0a 09 09 2f 2a 20 52 65 74  RECV");.../* Ret
2ff0: 75 72 6e 73 20 31 20 69 66 20 74 68 65 20 42 49  urns 1 if the BI
3000: 4f 20 69 73 20 75 73 69 6e 67 20 74 68 65 20 4b  O is using the K
3010: 65 72 6e 65 6c 20 54 4c 53 20 64 61 74 61 2d 70  ernel TLS data-p
3020: 61 74 68 20 66 6f 72 20 72 65 63 65 69 76 69 6e  ath for receivin
3030: 67 2c 20 30 20 69 66 20 6e 6f 74 2e 20 2a 2f 0a  g, 0 if not. */.
3040: 09 09 72 65 74 20 3d 20 30 3b 0a 09 09 62 72 65  ..ret = 0;...bre
3050: 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 64 65 66 61  ak;.#endif..defa
3060: 75 6c 74 3a 0a 09 09 64 70 72 69 6e 74 66 28 22  ult:...dprintf("
3070: 47 6f 74 20 75 6e 6b 6e 6f 77 6e 20 63 6f 6e 74  Got unknown cont
3080: 72 6f 6c 20 63 6f 6d 6d 61 6e 64 20 28 25 69 29  rol command (%i)
3090: 22 2c 20 63 6d 64 29 3b 0a 09 09 72 65 74 20 3d  ", cmd);...ret =
30a0: 20 30 3b 0a 09 09 62 72 65 61 6b 3b 0a 20 20 20   0;...break;.   
30b0: 20 7d 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22   }.    dprintf("
30c0: 42 69 6f 43 74 72 6c 20 72 65 74 75 72 6e 20 76  BioCtrl return v
30d0: 61 6c 75 65 20 25 6c 69 22 2c 20 72 65 74 29 3b  alue %li", ret);
30e0: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 74 3b  .    return ret;
30f0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  .}../*. *-------
3100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3140: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f  ------. *. * Bio
3150: 4e 65 77 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69  New --. *. *.Thi
3160: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73  s function is us
3170: 65 64 20 74 6f 20 63 72 65 61 74 65 20 61 20 6e  ed to create a n
3180: 65 77 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74  ew instance of t
3190: 68 65 20 42 49 4f 2e 20 54 68 69 73 0a 20 2a 09  he BIO. This. *.
31a0: 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65  function will be
31b0: 20 63 61 6c 6c 65 64 20 69 6e 20 72 65 73 70 6f   called in respo
31c0: 6e 73 65 20 74 6f 20 74 68 65 20 61 70 70 6c 69  nse to the appli
31d0: 63 61 74 69 6f 6e 20 63 61 6c 6c 69 6e 67 20 74  cation calling t
31e0: 68 65 0a 20 2a 09 42 49 4f 5f 6e 65 77 28 29 20  he. *.BIO_new() 
31f0: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20  function.. *. * 
3200: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75  Results:. *.Retu
3210: 72 6e 73 20 62 6f 6f 6c 65 61 6e 20 73 75 63 63  rns boolean succ
3220: 65 73 73 20 72 65 73 75 6c 74 20 28 31 3d 73 75  ess result (1=su
3230: 63 63 65 73 73 2c 20 30 3d 66 61 69 6c 75 72 65  ccess, 0=failure
3240: 29 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  ).. *. * Side ef
3250: 66 65 63 74 73 3a 0a 20 2a 09 49 6e 69 74 69 61  fects:. *.Initia
3260: 6c 69 7a 65 73 20 42 49 4f 20 73 74 72 75 63 74  lizes BIO struct
3270: 75 72 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  ure.. *. *------
3280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32c0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61  -------. */..sta
32d0: 74 69 63 20 69 6e 74 20 42 69 6f 4e 65 77 28 42  tic int BioNew(B
32e0: 49 4f 20 2a 62 69 6f 29 20 7b 0a 20 20 20 20 64  IO *bio) {.    d
32f0: 70 72 69 6e 74 66 28 22 42 69 6f 4e 65 77 28 25  printf("BioNew(%
3300: 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 69 6f 29  p) called", bio)
3310: 3b 0a 0a 20 20 20 20 69 66 20 28 62 69 6f 20 3d  ;..    if (bio =
3320: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72  = NULL) {..retur
3330: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  n 0;.    }..    
3340: 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69 6f  BIO_set_data(bio
3350: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 42 49 4f  , NULL);.    BIO
3360: 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20 30  _set_init(bio, 0
3370: 29 3b 0a 20 20 20 20 42 49 4f 5f 63 6c 65 61 72  );.    BIO_clear
3380: 5f 66 6c 61 67 73 28 62 69 6f 2c 20 2d 31 29 3b  _flags(bio, -1);
3390: 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d  .    return 1;.}
33a0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
33b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
33c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
33d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
33e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
33f0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 69 6f 46 72  ----. *. * BioFr
3400: 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73  ee --. *. *.This
3410: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65   function is use
3420: 64 20 74 6f 20 64 65 73 74 72 6f 79 20 61 6e 20  d to destroy an 
3430: 69 6e 73 74 61 6e 63 65 20 6f 66 20 61 20 42 49  instance of a BI
3440: 4f 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e  O. This function
3450: 0a 20 2a 09 77 69 6c 6c 20 62 65 20 63 61 6c 6c  . *.will be call
3460: 65 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74  ed in response t
3470: 6f 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f  o the applicatio
3480: 6e 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 42 49  n calling the BI
3490: 4f 5f 66 72 65 65 28 29 0a 20 2a 09 66 75 6e 63  O_free(). *.func
34a0: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  tion.. *. * Resu
34b0: 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72 6e 73 20  lts:. *.Returns 
34c0: 62 6f 6f 6c 65 61 6e 20 73 75 63 63 65 73 73 20  boolean success 
34d0: 72 65 73 75 6c 74 20 28 31 3d 73 75 63 63 65 73  result (1=succes
34e0: 73 2c 20 30 3d 66 61 69 6c 75 72 65 29 2e 0a 20  s, 0=failure).. 
34f0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
3500: 73 3a 0a 20 2a 09 44 65 2d 69 6e 69 74 69 61 6c  s:. *.De-initial
3510: 69 7a 65 73 20 42 49 4f 20 73 74 72 75 63 74 75  izes BIO structu
3520: 72 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  re.. *. *-------
3530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3570: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74  ------. */..stat
3580: 69 63 20 69 6e 74 20 42 69 6f 46 72 65 65 28 42  ic int BioFree(B
3590: 49 4f 20 2a 62 69 6f 29 20 7b 0a 20 20 20 20 64  IO *bio) {.    d
35a0: 70 72 69 6e 74 66 28 22 42 69 6f 46 72 65 65 28  printf("BioFree(
35b0: 25 70 29 20 63 61 6c 6c 65 64 22 2c 20 62 69 6f  %p) called", bio
35c0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 69 6f 20  );..    if (bio 
35d0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75  == NULL) {..retu
35e0: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  rn 0;.    }..   
35f0: 20 2f 2a 20 43 6c 65 61 72 20 66 6c 61 67 73 20   /* Clear flags 
3600: 69 66 20 73 65 74 20 74 6f 20 42 49 4f 5f 43 4c  if set to BIO_CL
3610: 4f 53 45 20 28 63 6c 6f 73 65 20 49 2f 4f 20 73  OSE (close I/O s
3620: 74 72 65 61 6d 20 77 68 65 6e 20 74 68 65 20 42  tream when the B
3630: 49 4f 20 69 73 20 66 72 65 65 64 29 20 2a 2f 0a  IO is freed) */.
3640: 20 20 20 20 69 66 20 28 42 49 4f 5f 67 65 74 5f      if (BIO_get_
3650: 73 68 75 74 64 6f 77 6e 28 62 69 6f 29 29 20 7b  shutdown(bio)) {
3660: 0a 09 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62  ..BIO_set_data(b
3670: 69 6f 2c 20 4e 55 4c 4c 29 3b 0a 09 42 49 4f 5f  io, NULL);..BIO_
3680: 63 6c 65 61 72 5f 66 6c 61 67 73 28 62 69 6f 2c  clear_flags(bio,
3690: 20 2d 31 29 3b 0a 09 42 49 4f 5f 73 65 74 5f 69   -1);..BIO_set_i
36a0: 6e 69 74 28 62 69 6f 2c 20 30 29 3b 0a 20 20 20  nit(bio, 0);.   
36b0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b   }.    return 1;
36c0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  .}../*. *-------
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3710: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 49 4f  ------. *. * BIO
3720: 5f 6e 65 77 5f 74 63 6c 20 2d 2d 0a 20 2a 0a 20  _new_tcl --. *. 
3730: 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20  *.This function 
3740: 69 73 20 75 73 65 64 20 74 6f 20 69 6e 69 74 69  is used to initi
3750: 61 6c 69 7a 65 20 74 68 65 20 42 49 4f 20 6d 65  alize the BIO me
3760: 74 68 6f 64 20 68 61 6e 64 6c 65 72 73 2e 0a 20  thod handlers.. 
3770: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
3780: 09 52 65 74 75 72 6e 73 20 70 6f 69 6e 74 65 72  .Returns pointer
3790: 20 74 6f 20 42 49 4f 20 6f 72 20 4e 55 4c 4c 20   to BIO or NULL 
37a0: 66 6f 72 20 66 61 69 6c 75 72 65 0a 20 2a 0a 20  for failure. *. 
37b0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
37c0: 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 42   *.Initializes B
37d0: 49 4f 20 4d 65 74 68 6f 64 73 2e 0a 20 2a 0a 20  IO Methods.. *. 
37e0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
37f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
3830: 2a 2f 0a 0a 42 49 4f 20 2a 42 49 4f 5f 6e 65 77  */..BIO *BIO_new
3840: 5f 74 63 6c 28 53 74 61 74 65 20 2a 73 74 61 74  _tcl(State *stat
3850: 65 50 74 72 2c 20 69 6e 74 20 66 6c 61 67 73 29  ePtr, int flags)
3860: 20 7b 0a 20 20 20 20 42 49 4f 20 2a 62 69 6f 3b   {.    BIO *bio;
3870: 0a 23 69 66 64 65 66 20 54 43 4c 54 4c 53 5f 53  .#ifdef TCLTLS_S
3880: 53 4c 5f 55 53 45 5f 46 41 53 54 50 41 54 48 0a  SL_USE_FASTPATH.
3890: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20      Tcl_Channel 
38a0: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 3b 0a 20  parentChannel;. 
38b0: 20 20 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61     const Tcl_Cha
38c0: 6e 6e 65 6c 54 79 70 65 20 2a 70 61 72 65 6e 74  nnelType *parent
38d0: 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 0a 20 20  ChannelType;..  
38e0: 20 20 69 6e 74 20 70 61 72 65 6e 74 43 68 61 6e    int parentChan
38f0: 6e 65 6c 46 64 49 6e 2c 20 70 61 72 65 6e 74 43  nelFdIn, parentC
3900: 68 61 6e 6e 65 6c 46 64 4f 75 74 2c 20 70 61 72  hannelFdOut, par
3910: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 3b 0a 20 20  entChannelFd;.  
3920: 20 20 69 6e 74 20 76 61 6c 69 64 50 61 72 65 6e    int validParen
3930: 74 43 68 61 6e 6e 65 6c 46 64 3b 0a 23 65 6e 64  tChannelFd;.#end
3940: 69 66 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28  if..    dprintf(
3950: 22 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 29 20 63  "BIO_new_tcl() c
3960: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a  alled");..    /*
3970: 20 43 72 65 61 74 65 20 63 75 73 74 6f 6d 20 42   Create custom B
3980: 49 4f 20 6d 65 74 68 6f 64 20 2a 2f 0a 20 20 20  IO method */.   
3990: 20 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 20   if (BioMethods 
39a0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20 42  == NULL) {../* B
39b0: 49 4f 5f 54 59 50 45 5f 42 49 4f 20 3d 20 28 31  IO_TYPE_BIO = (1
39c0: 39 7c 42 49 4f 5f 54 59 50 45 5f 53 4f 55 52 43  9|BIO_TYPE_SOURC
39d0: 45 5f 53 49 4e 4b 29 20 2d 2d 20 68 61 6c 66 20  E_SINK) -- half 
39e0: 61 20 42 49 4f 20 70 61 69 72 20 2a 2f 0a 09 2f  a BIO pair */../
39f0: 2a 20 63 75 73 74 6f 6d 20 3d 20 42 49 4f 5f 67  * custom = BIO_g
3a00: 65 74 5f 6e 65 77 5f 69 6e 64 65 78 28 29 20 7c  et_new_index() |
3a10: 20 42 49 4f 5f 54 59 50 45 5f 53 4f 55 52 43 45   BIO_TYPE_SOURCE
3a20: 5f 53 49 4e 4b 20 2a 2f 0a 09 42 69 6f 4d 65 74  _SINK */..BioMet
3a30: 68 6f 64 73 20 3d 20 42 49 4f 5f 6d 65 74 68 5f  hods = BIO_meth_
3a40: 6e 65 77 28 42 49 4f 5f 54 59 50 45 5f 42 49 4f  new(BIO_TYPE_BIO
3a50: 2c 20 22 74 63 6c 22 29 3b 0a 09 69 66 20 28 42  , "tcl");..if (B
3a60: 69 6f 4d 65 74 68 6f 64 73 20 3d 3d 20 4e 55 4c  ioMethods == NUL
3a70: 4c 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74  L) {..    dprint
3a80: 66 28 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61  f("Memory alloca
3a90: 74 69 6f 6e 20 65 72 72 6f 72 22 29 3b 0a 0a 09  tion error");...
3aa0: 20 20 20 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b      return NULL;
3ab0: 0a 09 7d 0a 09 2f 2a 20 4e 6f 74 20 75 73 65 64  ..}../* Not used
3ac0: 20 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 77 72   BIO_meth_set_wr
3ad0: 69 74 65 5f 65 78 20 2a 2f 0a 09 42 49 4f 5f 6d  ite_ex */..BIO_m
3ae0: 65 74 68 5f 73 65 74 5f 77 72 69 74 65 28 42 69  eth_set_write(Bi
3af0: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 4f 75 74  oMethods, BioOut
3b00: 70 75 74 29 3b 0a 09 2f 2a 20 4e 6f 74 20 75 73  put);../* Not us
3b10: 65 64 20 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f  ed BIO_meth_set_
3b20: 72 65 61 64 5f 65 78 20 2a 2f 0a 09 42 49 4f 5f  read_ex */..BIO_
3b30: 6d 65 74 68 5f 73 65 74 5f 72 65 61 64 28 42 69  meth_set_read(Bi
3b40: 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f 49 6e 70  oMethods, BioInp
3b50: 75 74 29 3b 0a 09 42 49 4f 5f 6d 65 74 68 5f 73  ut);..BIO_meth_s
3b60: 65 74 5f 70 75 74 73 28 42 69 6f 4d 65 74 68 6f  et_puts(BioMetho
3b70: 64 73 2c 20 42 69 6f 50 75 74 73 29 3b 0a 09 42  ds, BioPuts);..B
3b80: 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 63 74 72 6c  IO_meth_set_ctrl
3b90: 28 42 69 6f 4d 65 74 68 6f 64 73 2c 20 42 69 6f  (BioMethods, Bio
3ba0: 43 74 72 6c 29 3b 0a 09 42 49 4f 5f 6d 65 74 68  Ctrl);..BIO_meth
3bb0: 5f 73 65 74 5f 63 72 65 61 74 65 28 42 69 6f 4d  _set_create(BioM
3bc0: 65 74 68 6f 64 73 2c 20 42 69 6f 4e 65 77 29 3b  ethods, BioNew);
3bd0: 0a 09 42 49 4f 5f 6d 65 74 68 5f 73 65 74 5f 64  ..BIO_meth_set_d
3be0: 65 73 74 72 6f 79 28 42 69 6f 4d 65 74 68 6f 64  estroy(BioMethod
3bf0: 73 2c 20 42 69 6f 46 72 65 65 29 3b 0a 20 20 20  s, BioFree);.   
3c00: 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74   }..    if (stat
3c10: 65 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  ePtr == NULL) {.
3c20: 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20  .dprintf("Asked 
3c30: 74 6f 20 73 65 74 75 70 20 61 20 4e 55 4c 4c 20  to setup a NULL 
3c40: 73 74 61 74 65 2c 20 6a 75 73 74 20 63 72 65 61  state, just crea
3c50: 74 69 6e 67 20 74 68 65 20 69 6e 69 74 69 61 6c  ting the initial
3c60: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 29   configuration")
3c70: 3b 0a 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b  ;...return NULL;
3c80: 0a 20 20 20 20 7d 0a 0a 23 69 66 64 65 66 20 54  .    }..#ifdef T
3c90: 43 4c 54 4c 53 5f 53 53 4c 5f 55 53 45 5f 46 41  CLTLS_SSL_USE_FA
3ca0: 53 54 50 41 54 48 0a 20 20 20 20 2f 2a 0a 20 20  STPATH.    /*.  
3cb0: 20 20 20 2a 20 49 66 20 74 68 65 20 63 68 61 6e     * If the chan
3cc0: 6e 65 6c 20 63 61 6e 20 62 65 20 6d 61 70 70 65  nel can be mappe
3cd0: 64 20 62 61 63 6b 20 74 6f 20 61 20 66 69 6c 65  d back to a file
3ce0: 20 64 65 73 63 72 69 70 74 6f 72 2c 20 6a 75 73   descriptor, jus
3cf0: 74 20 75 73 65 20 74 68 65 20 66 69 6c 65 0a 20  t use the file. 
3d00: 20 20 20 20 2a 20 64 65 73 63 72 69 70 74 6f 72      * descriptor
3d10: 20 77 69 74 68 20 74 68 65 20 53 53 4c 20 6c 69   with the SSL li
3d20: 62 72 61 72 79 20 73 69 6e 63 65 20 69 74 20 77  brary since it w
3d30: 69 6c 6c 20 6c 69 6b 65 6c 79 20 62 65 20 6f 70  ill likely be op
3d40: 74 69 6d 69 7a 65 64 20 66 6f 72 20 74 68 69 73  timized for this
3d50: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 70 61  ..     */.    pa
3d60: 72 65 6e 74 43 68 61 6e 6e 65 6c 20 3d 20 54 6c  rentChannel = Tl
3d70: 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74  s_GetParent(stat
3d80: 65 50 74 72 2c 20 30 29 3b 0a 20 20 20 20 70 61  ePtr, 0);.    pa
3d90: 72 65 6e 74 43 68 61 6e 6e 65 6c 54 79 70 65 20  rentChannelType 
3da0: 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c  = Tcl_GetChannel
3db0: 54 79 70 65 28 70 61 72 65 6e 74 43 68 61 6e 6e  Type(parentChann
3dc0: 65 6c 29 3b 0a 0a 20 20 20 20 76 61 6c 69 64 50  el);..    validP
3dd0: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 20 3d  arentChannelFd =
3de0: 20 30 3b 0a 20 20 20 20 69 66 20 28 73 74 72 63   0;.    if (strc
3df0: 6d 70 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c  mp(parentChannel
3e00: 54 79 70 65 2d 3e 74 79 70 65 4e 61 6d 65 2c 20  Type->typeName, 
3e10: 22 74 63 70 22 29 20 3d 3d 20 30 29 20 7b 0a 09  "tcp") == 0) {..
3e20: 76 6f 69 64 20 2a 70 61 72 65 6e 74 43 68 61 6e  void *parentChan
3e30: 6e 65 6c 46 64 49 6e 5f 70 2c 20 2a 70 61 72 65  nelFdIn_p, *pare
3e40: 6e 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70  ntChannelFdOut_p
3e50: 3b 0a 09 69 6e 74 20 74 63 6c 47 65 74 43 68 61  ;..int tclGetCha
3e60: 6e 6e 65 6c 48 61 6e 64 6c 65 52 65 74 3b 0a 0a  nnelHandleRet;..
3e70: 09 74 63 6c 47 65 74 43 68 61 6e 6e 65 6c 48 61  .tclGetChannelHa
3e80: 6e 64 6c 65 52 65 74 20 3d 20 54 63 6c 5f 47 65  ndleRet = Tcl_Ge
3e90: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 70  tChannelHandle(p
3ea0: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 2c 0a 09 20  arentChannel,.. 
3eb0: 20 20 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c     TCL_READABLE,
3ec0: 20 26 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46   &parentChannelF
3ed0: 64 49 6e 5f 70 29 3b 0a 09 69 66 20 28 74 63 6c  dIn_p);..if (tcl
3ee0: 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65  GetChannelHandle
3ef0: 52 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b  Ret == TCL_OK) {
3f00: 0a 09 20 20 20 20 74 63 6c 47 65 74 43 68 61 6e  ..    tclGetChan
3f10: 6e 65 6c 48 61 6e 64 6c 65 52 65 74 20 3d 20 54  nelHandleRet = T
3f20: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e  cl_GetChannelHan
3f30: 64 6c 65 28 70 61 72 65 6e 74 43 68 61 6e 6e 65  dle(parentChanne
3f40: 6c 2c 0a 09 20 20 20 20 20 20 20 20 54 43 4c 5f  l,..        TCL_
3f50: 57 52 49 54 41 42 4c 45 2c 20 26 70 61 72 65 6e  WRITABLE, &paren
3f60: 74 43 68 61 6e 6e 65 6c 46 64 4f 75 74 5f 70 29  tChannelFdOut_p)
3f70: 3b 0a 09 20 20 20 20 69 66 20 28 74 63 6c 47 65  ;..    if (tclGe
3f80: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 52 65  tChannelHandleRe
3f90: 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t == TCL_OK) {..
3fa0: 09 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64  .parentChannelFd
3fb0: 49 6e 20 3d 20 50 54 52 32 49 4e 54 28 70 61 72  In = PTR2INT(par
3fc0: 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e 5f 70  entChannelFdIn_p
3fd0: 29 3b 0a 09 09 70 61 72 65 6e 74 43 68 61 6e 6e  );...parentChann
3fe0: 65 6c 46 64 4f 75 74 20 3d 20 50 54 52 32 49 4e  elFdOut = PTR2IN
3ff0: 54 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46  T(parentChannelF
4000: 64 4f 75 74 5f 70 29 3b 0a 09 09 69 66 20 28 70  dOut_p);...if (p
4010: 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 49 6e  arentChannelFdIn
4020: 20 3d 3d 20 70 61 72 65 6e 74 43 68 61 6e 6e 65   == parentChanne
4030: 6c 46 64 4f 75 74 29 20 7b 0a 09 09 20 20 20 20  lFdOut) {...    
4040: 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 20  parentChannelFd 
4050: 3d 20 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46  = parentChannelF
4060: 64 49 6e 3b 0a 09 09 20 20 20 20 76 61 6c 69 64  dIn;...    valid
4070: 50 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64 20  ParentChannelFd 
4080: 3d 20 31 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a  = 1;...}..    }.
4090: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66  .}.    }..    if
40a0: 20 28 76 61 6c 69 64 50 61 72 65 6e 74 43 68 61   (validParentCha
40b0: 6e 6e 65 6c 46 64 29 20 7b 0a 09 64 70 72 69 6e  nnelFd) {..dprin
40c0: 74 66 28 22 57 65 20 66 6f 75 6e 64 20 61 20 73  tf("We found a s
40d0: 68 6f 72 74 63 75 74 2c 20 74 68 69 73 20 63 68  hortcut, this ch
40e0: 61 6e 6e 65 6c 20 69 73 20 62 61 63 6b 65 64 20  annel is backed 
40f0: 62 79 20 61 20 73 6f 63 6b 65 74 3a 20 25 69 22  by a socket: %i"
4100: 2c 0a 09 20 20 20 20 70 61 72 65 6e 74 43 68 61  ,..    parentCha
4110: 6e 6e 65 6c 46 64 49 6e 29 3b 0a 09 62 69 6f 20  nnelFdIn);..bio 
4120: 3d 20 42 49 4f 5f 6e 65 77 5f 73 6f 63 6b 65 74  = BIO_new_socket
4130: 28 70 61 72 65 6e 74 43 68 61 6e 6e 65 6c 46 64  (parentChannelFd
4140: 2c 20 66 6c 61 67 73 29 3b 0a 09 73 74 61 74 65  , flags);..state
4150: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c  Ptr->flags |= TL
4160: 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 3b 0a  S_TCL_FASTPATH;.
4170: 09 42 49 4f 5f 73 65 74 5f 64 61 74 61 28 62 69  .BIO_set_data(bi
4180: 6f 2c 20 73 74 61 74 65 50 74 72 29 3b 0a 09 42  o, statePtr);..B
4190: 49 4f 5f 73 65 74 5f 73 68 75 74 64 6f 77 6e 28  IO_set_shutdown(
41a0: 62 69 6f 2c 20 66 6c 61 67 73 29 3b 0a 09 42 49  bio, flags);..BI
41b0: 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c 20  O_set_init(bio, 
41c0: 31 29 3b 0a 09 72 65 74 75 72 6e 20 62 69 6f 3b  1);..return bio;
41d0: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20  .    }.#endif.. 
41e0: 20 20 20 64 70 72 69 6e 74 66 28 22 46 61 6c 6c     dprintf("Fall
41f0: 69 6e 67 20 62 61 63 6b 20 74 6f 20 54 63 6c 20  ing back to Tcl 
4200: 49 2f 4f 20 66 6f 72 20 74 68 69 73 20 63 68 61  I/O for this cha
4210: 6e 6e 65 6c 22 29 3b 0a 0a 20 20 20 20 62 69 6f  nnel");..    bio
4220: 20 3d 20 42 49 4f 5f 6e 65 77 28 42 69 6f 4d 65   = BIO_new(BioMe
4230: 74 68 6f 64 73 29 3b 0a 20 20 20 20 42 49 4f 5f  thods);.    BIO_
4240: 73 65 74 5f 64 61 74 61 28 62 69 6f 2c 20 73 74  set_data(bio, st
4250: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 42 49 4f  atePtr);.    BIO
4260: 5f 73 65 74 5f 73 68 75 74 64 6f 77 6e 28 62 69  _set_shutdown(bi
4270: 6f 2c 20 66 6c 61 67 73 29 3b 0a 20 20 20 20 42  o, flags);.    B
4280: 49 4f 5f 73 65 74 5f 69 6e 69 74 28 62 69 6f 2c  IO_set_init(bio,
4290: 20 31 29 3b 20 2f 2a 20 45 6e 61 62 6c 65 20 72   1); /* Enable r
42a0: 65 61 64 20 26 20 77 72 69 74 65 20 2a 2f 0a 20  ead & write */. 
42b0: 20 20 20 72 65 74 75 72 6e 20 62 69 6f 3b 0a 7d     return bio;.}
42c0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
42d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
42e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
42f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4310: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 42 49 4f 5f 63  ----. *. * BIO_c
4320: 6c 65 61 6e 75 70 20 2d 2d 0a 20 2a 0a 20 2a 09  leanup --. *. *.
4330: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73  This function is
4340: 20 75 73 65 64 20 74 6f 20 64 65 73 74 72 6f 79   used to destroy
4350: 20 61 20 42 49 4f 5f 4d 45 54 48 4f 44 20 73 74   a BIO_METHOD st
4360: 72 75 63 74 75 72 65 20 61 6e 64 20 66 72 65 65  ructure and free
4370: 20 75 70 20 61 6e 79 0a 20 2a 09 6d 65 6d 6f 72   up any. *.memor
4380: 79 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74  y associated wit
4390: 68 20 69 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  h it.. *. * Resu
43a0: 6c 74 73 3a 0a 20 2a 09 53 74 61 6e 64 61 72 64  lts:. *.Standard
43b0: 20 54 43 4c 20 72 65 73 75 6c 74 0a 20 2a 0a 20   TCL result. *. 
43c0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
43d0: 20 2a 09 44 65 73 74 72 6f 79 73 20 42 49 4f 20   *.Destroys BIO 
43e0: 4d 65 74 68 6f 64 73 2e 0a 20 2a 0a 20 2a 2d 2d  Methods.. *. *--
43f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
4440: 0a 69 6e 74 20 42 49 4f 5f 63 6c 65 61 6e 75 70  .int BIO_cleanup
4450: 20 28 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74   () {.    dprint
4460: 66 28 22 42 49 4f 5f 63 6c 65 61 6e 75 70 28 29  f("BIO_cleanup()
4470: 20 63 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20   called");..    
4480: 69 66 20 28 42 69 6f 4d 65 74 68 6f 64 73 20 21  if (BioMethods !
4490: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 42 49 4f 5f 6d  = NULL) {..BIO_m
44a0: 65 74 68 5f 66 72 65 65 28 42 69 6f 4d 65 74 68  eth_free(BioMeth
44b0: 6f 64 73 29 3b 0a 09 42 69 6f 4d 65 74 68 6f 64  ods);..BioMethod
44c0: 73 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a  s = NULL;.    }.
44d0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f      return TCL_O
44e0: 4b 3b 0a 7d 0a                                   K;.}.