Artifact 0b06e535854729be12e38dc4fdec6f6f1e433db66f955faca3b946ded321a1ff:

• File generic/tlsIO.c — part of check-in [61a7c2c15a] at 2023-11-03 22:03:10 on branch crypto — Moved info commands to tlsInfo.c file. Moved REASON macro definition to tlsInt.h file so all files can use. (user: bohagan, size: 26025) [annotate] [blame] [check-ins using]

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: 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32   Copyright (C) 2
0050: 30 30 30 20 41 6a 75 62 61 20 53 6f 6c 75 74 69  000 Ajuba Soluti
0060: 6f 6e 73 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61  ons. *. * TLS (a
0070: 6b 61 20 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20  ka SSL) Channel 
0080: 2d 20 63 61 6e 20 62 65 20 6c 61 79 65 72 65 64  - can be layered
0090: 20 6f 6e 20 61 6e 79 20 62 69 2d 64 69 72 65 63   on any bi-direc
00a0: 74 69 6f 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68  tional. * Tcl_Ch
00b0: 61 6e 6e 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71  annel (Note: Req
00c0: 75 69 72 65 73 20 54 72 66 20 43 6f 72 65 20 50  uires Trf Core P
00d0: 61 74 63 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73  atch). *. * This
00e0: 20 77 61 73 20 62 75 69 6c 74 20 66 72 6f 6d 20   was built from 
00f0: 73 63 72 61 74 63 68 20 62 61 73 65 64 20 75 70  scratch based up
0100: 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e 20 6f  on observation o
0110: 66 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 32 42  f OpenSSL 0.9.2B
0120: 0a 20 2a 0a 20 2a 20 41 64 64 69 74 69 6f 6e 20  . *. * Addition 
0130: 63 72 65 64 69 74 20 69 73 20 64 75 65 20 66 6f  credit is due fo
0140: 72 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 65  r Andreas Kuprie
0150: 73 20 28 61 2e 6b 75 70 72 69 65 73 40 77 65 73  s (a.kupries@wes
0160: 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 6f 72 0a 20  tend.com), for. 
0170: 2a 20 70 72 6f 76 69 64 69 6e 67 20 74 68 65 20  * providing the 
0180: 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 61 6e 6e  Tcl_ReplaceChann
0190: 65 6c 20 6d 65 63 68 61 6e 69 73 6d 20 61 6e 64  el mechanism and
01a0: 20 77 6f 72 6b 69 6e 67 20 63 6c 6f 73 65 6c 79   working closely
01b0: 20 77 69 74 68 20 6d 65 0a 20 2a 20 74 6f 20 65   with me. * to e
01c0: 6e 68 61 6e 63 65 20 69 74 20 74 6f 20 73 75 70  nhance it to sup
01d0: 70 6f 72 74 20 66 75 6c 6c 20 66 69 6c 65 65 76  port full fileev
01e0: 65 6e 74 20 73 65 6d 61 6e 74 69 63 73 2e 0a 20  ent semantics.. 
01f0: 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f 72 6b 20 64  *. * Also work d
0200: 6f 6e 65 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f  one by the follo
0210: 77 20 70 65 6f 70 6c 65 20 70 72 6f 76 69 64 65  w people provide
0220: 64 20 74 68 65 20 69 6d 70 65 74 75 73 20 74 6f  d the impetus to
0230: 20 64 6f 20 74 68 69 73 20 22 72 69 67 68 74 22   do this "right"
0240: 3a 0a 20 2a 20 20 20 20 74 63 6c 53 53 4c 20 28  :. *    tclSSL (
0250: 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c  Colin McCormack,
0260: 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f   Shared Technolo
0270: 67 79 29 0a 20 2a 20 20 20 20 53 53 4c 74 63 6c  gy). *    SSLtcl
0280: 20 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a   (Peter Antman).
0290: 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65   *. */..#include
02a0: 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63   "tlsInt.h".#inc
02b0: 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a 0a  lude <errno.h>..
02c0: 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 64 65  /*. * Forward de
02d0: 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a 73  clarations. */.s
02e0: 74 61 74 69 63 20 76 6f 69 64 20 54 6c 73 43 68  tatic void TlsCh
02f0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65  annelHandlerTime
0300: 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69  r(ClientData cli
0310: 65 6e 74 44 61 74 61 29 3b 0a 0a 2f 2a 0a 20 2a  entData);../*. *
0320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0360: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 42 6c 6f  ---. *. * TlsBlo
0370: 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a 20 2a  ckModeProc --. *
0380: 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f 63  . *    This proc
0390: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64  edure is invoked
03a0: 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20   by the generic 
03b0: 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20  IO level. *     
03c0: 20 20 74 6f 20 73 65 74 20 62 6c 6f 63 6b 69 6e    to set blockin
03d0: 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b 69 6e  g and nonblockin
03e0: 67 20 6d 6f 64 65 73 0a 20 2a 0a 20 2a 20 52 65  g modes. *. * Re
03f0: 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 30 20 69  sults:. *    0 i
0400: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20  f successful or 
0410: 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65  POSIX error code
0420: 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20   if failed.. *. 
0430: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
0440: 20 2a 20 20 20 20 53 65 74 73 20 74 68 65 20 64   *    Sets the d
0450: 65 76 69 63 65 20 69 6e 74 6f 20 62 6c 6f 63 6b  evice into block
0460: 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69  ing or nonblocki
0470: 6e 67 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d  ng mode.. *. *--
0480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
04a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
04b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
04c0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  -. */.static int
04d0: 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f   TlsBlockModePro
04e0: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73  c(ClientData ins
04f0: 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 6d  tanceData, int m
0500: 6f 64 65 29 20 7b 0a 20 20 20 20 53 74 61 74 65  ode) {.    State
0510: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74   *statePtr = (St
0520: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44  ate *) instanceD
0530: 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f  ata;..    if (mo
0540: 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e  de == TCL_MODE_N
0550: 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 73  ONBLOCKING) {..s
0560: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c  tatePtr->flags |
0570: 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 3b  = TLS_TCL_ASYNC;
0580: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73  .    } else {..s
0590: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26  tatePtr->flags &
05a0: 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 4e  = ~(TLS_TCL_ASYN
05b0: 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  C);.    }.    re
05c0: 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20  turn(0);.}../*. 
05d0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0610: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c  ----. *. * TlsCl
0620: 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a  oseProc --. *. *
0630: 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 64 75      This procedu
0640: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79  re is invoked by
0650: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20   the generic IO 
0660: 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d  level to perform
0670: 0a 20 2a 20 20 20 20 63 68 61 6e 6e 65 6c 2d 74  . *    channel-t
0680: 79 70 65 2d 73 70 65 63 69 66 69 63 20 63 6c 65  ype-specific cle
0690: 61 6e 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20  anup when a SSL 
06a0: 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61  socket based cha
06b0: 6e 6e 65 6c 0a 20 2a 20 20 20 20 69 73 20 63 6c  nnel. *    is cl
06c0: 6f 73 65 64 2e 0a 20 2a 0a 20 2a 20 20 20 20 4e  osed.. *. *    N
06d0: 6f 74 65 3a 20 77 65 20 6c 65 61 76 65 20 74 68  ote: we leave th
06e0: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 73 6f 63  e underlying soc
06f0: 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 73 20 74 68  ket alone, is th
0700: 69 73 20 72 69 67 68 74 3f 0a 20 2a 0a 20 2a 20  is right?. *. * 
0710: 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 30  Results:. *    0
0720: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f   if successful o
0730: 72 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f  r POSIX error co
0740: 64 65 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a  de if failed.. *
0750: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
0760: 3a 0a 20 2a 20 20 20 20 43 6c 6f 73 65 73 20 74  :. *    Closes t
0770: 68 65 20 73 6f 63 6b 65 74 20 6f 66 20 74 68 65  he socket of the
0780: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d   channel.. *. *-
0790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e  --. */.static in
07e0: 74 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 43  t TlsCloseProc(C
07f0: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e  lientData instan
0800: 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65  ceData, Tcl_Inte
0810: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20  rp *interp) {.  
0820: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74    State *statePt
0830: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e  r = (State *) in
0840: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20  stanceData;..   
0850: 20 64 70 72 69 6e 74 66 28 22 54 6c 73 43 6c 6f   dprintf("TlsClo
0860: 73 65 50 72 6f 63 28 25 70 29 22 2c 20 28 76 6f  seProc(%p)", (vo
0870: 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b  id *) statePtr);
0880: 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 6e 28  ..    Tls_Clean(
0890: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54  statePtr);.    T
08a0: 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65  cl_EventuallyFre
08b0: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74  e((ClientData)st
08c0: 61 74 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 65  atePtr, Tls_Free
08d0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 28 30 29  );.    return(0)
08e0: 3b 0a 0a 09 2f 2a 20 49 6e 74 65 72 70 20 69 73  ;.../* Interp is
08f0: 20 75 6e 75 73 65 64 2e 20 2a 2f 0a 09 69 6e 74   unused. */..int
0900: 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 7d 0a  erp = interp;.}.
0910: 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 43  .static int TlsC
0920: 6c 6f 73 65 32 50 72 6f 63 28 43 6c 69 65 6e 74  lose2Proc(Client
0930: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74  Data instanceDat
0940: 61 2c 20 20 20 20 2f 2a 20 54 68 65 20 73 6f 63  a,    /* The soc
0950: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20  ket state. */.  
0960: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
0970: 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72  terp,../* For er
0980: 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55  rors - can be NU
0990: 4c 4c 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 66  LL. */.    int f
09a0: 6c 61 67 73 29 09 09 09 2f 2a 20 46 6c 61 67 73  lags).../* Flags
09b0: 20 74 6f 20 63 6c 6f 73 65 20 72 65 61 64 20 61   to close read a
09c0: 6e 64 2f 6f 72 20 77 72 69 74 65 20 73 69 64 65  nd/or write side
09d0: 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b   of channel */.{
09e0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74  .    State *stat
09f0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29  ePtr = (State *)
0a00: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a   instanceData;..
0a10: 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 6c 73      dprintf("Tls
0a20: 43 6c 6f 73 65 32 50 72 6f 63 28 25 70 29 22 2c  Close2Proc(%p)",
0a30: 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50   (void *) stateP
0a40: 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 66  tr);..    if ((f
0a50: 6c 61 67 73 20 26 20 28 54 43 4c 5f 43 4c 4f 53  lags & (TCL_CLOS
0a60: 45 5f 52 45 41 44 7c 54 43 4c 5f 43 4c 4f 53 45  E_READ|TCL_CLOSE
0a70: 5f 57 52 49 54 45 29 29 20 3d 3d 20 30 29 20 7b  _WRITE)) == 0) {
0a80: 0a 09 72 65 74 75 72 6e 20 54 6c 73 43 6c 6f 73  ..return TlsClos
0a90: 65 50 72 6f 63 28 69 6e 73 74 61 6e 63 65 44 61  eProc(instanceDa
0aa0: 74 61 2c 20 69 6e 74 65 72 70 29 3b 0a 20 20 20  ta, interp);.   
0ab0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 45 49   }.    return EI
0ac0: 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d  NVAL;.}../*. *--
0ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0b00: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 54 6c 73 5f  ----*. *. * Tls_
0b10: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 2d  WaitForConnect -
0b20: 2d 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 3a 0a  -. *. * Result:.
0b30: 20 2a 20 20 20 20 30 20 69 66 20 73 75 63 63 65   *    0 if succe
0b40: 73 73 66 75 6c 2c 20 2d 31 20 69 66 20 66 61 69  ssful, -1 if fai
0b50: 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  led.. *. * Side 
0b60: 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 49  effects:. *    I
0b70: 73 73 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74  ssues SSL_accept
0b80: 20 6f 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a   or SSL_connect.
0b90: 20 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2a 0a 20 2a 2f  -----------*. */
0bd0: 0a 69 6e 74 20 54 6c 73 5f 57 61 69 74 46 6f 72  .int Tls_WaitFor
0be0: 43 6f 6e 6e 65 63 74 28 53 74 61 74 65 20 2a 73  Connect(State *s
0bf0: 74 61 74 65 50 74 72 2c 20 69 6e 74 20 2a 65 72  tatePtr, int *er
0c00: 72 6f 72 43 6f 64 65 50 74 72 2c 20 69 6e 74 20  rorCodePtr, int 
0c10: 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65  handshakeFailure
0c20: 49 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 20  IsPermanent) {. 
0c30: 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67     unsigned long
0c40: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20   backingError;. 
0c50: 20 20 20 69 6e 74 20 65 72 72 2c 20 72 63 3b 0a     int err, rc;.
0c60: 20 20 20 20 69 6e 74 20 62 69 6f 53 68 6f 75 6c      int bioShoul
0c70: 64 52 65 74 72 79 3b 0a 20 20 20 20 2a 65 72 72  dRetry;.    *err
0c80: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a  orCodePtr = 0;..
0c90: 20 20 20 20 64 70 72 69 6e 74 66 28 22 57 61 69      dprintf("Wai
0ca0: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 25 70 29 22  tForConnect(%p)"
0cb0: 2c 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65  , (void *) state
0cc0: 50 74 72 29 3b 0a 20 20 20 20 64 70 72 69 6e 74  Ptr);.    dprint
0cd0: 46 6c 61 67 73 28 73 74 61 74 65 50 74 72 29 3b  Flags(statePtr);
0ce0: 0a 0a 20 20 20 20 69 66 20 28 21 28 73 74 61 74  ..    if (!(stat
0cf0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c  ePtr->flags & TL
0d00: 53 5f 54 43 4c 5f 49 4e 49 54 29 29 20 7b 0a 09  S_TCL_INIT)) {..
0d10: 64 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69  dprintf("Tls_Wai
0d20: 74 46 6f 72 43 6f 6e 6e 65 63 74 20 63 61 6c 6c  tForConnect call
0d30: 65 64 20 6f 6e 20 61 6c 72 65 61 64 79 20 69 6e  ed on already in
0d40: 69 74 69 61 6c 69 7a 65 64 20 63 68 61 6e 6e 65  itialized channe
0d50: 6c 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 77  l -- returning w
0d60: 69 74 68 20 69 6d 6d 65 64 69 61 74 65 20 73 75  ith immediate su
0d70: 63 63 65 73 73 22 29 3b 0a 09 72 65 74 75 72 6e  ccess");..return
0d80: 28 30 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  (0);.    }..    
0d90: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c  if (statePtr->fl
0da0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 48 41  ags & TLS_TCL_HA
0db0: 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 29 20  NDSHAKE_FAILED) 
0dc0: 7b 0a 09 2f 2a 0a 09 20 2a 20 44 69 66 66 65 72  {../*.. * Differ
0dd0: 65 6e 74 20 74 79 70 65 73 20 6f 66 20 6f 70 65  ent types of ope
0de0: 72 61 74 69 6f 6e 73 20 68 61 76 65 20 64 69 66  rations have dif
0df0: 66 65 72 65 6e 74 20 72 65 71 75 69 72 65 6d 65  ferent requireme
0e00: 6e 74 73 0a 09 20 2a 20 53 53 4c 20 62 65 69 6e  nts.. * SSL bein
0e10: 67 20 65 73 74 61 62 6c 69 73 68 65 64 0a 09 20  g established.. 
0e20: 2a 2f 0a 09 69 66 20 28 68 61 6e 64 73 68 61 6b  */..if (handshak
0e30: 65 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e  eFailureIsPerman
0e40: 65 6e 74 29 20 7b 0a 09 20 20 20 20 64 70 72 69  ent) {..    dpri
0e50: 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61  ntf("Asked to wa
0e60: 69 74 20 66 6f 72 20 61 20 54 4c 53 20 68 61 6e  it for a TLS han
0e70: 64 73 68 61 6b 65 20 74 68 61 74 20 68 61 73 20  dshake that has 
0e80: 61 6c 72 65 61 64 79 20 66 61 69 6c 65 64 2e 20  already failed. 
0e90: 20 52 65 74 75 72 6e 69 6e 67 20 66 61 74 61 6c   Returning fatal
0ea0: 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 2a   error");..    *
0eb0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45  errorCodePtr = E
0ec0: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 7d 20  CONNABORTED;..} 
0ed0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70 72 69  else {..    dpri
0ee0: 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61  ntf("Asked to wa
0ef0: 69 74 20 66 6f 72 20 61 20 54 4c 53 20 68 61 6e  it for a TLS han
0f00: 64 73 68 61 6b 65 20 74 68 61 74 20 68 61 73 20  dshake that has 
0f10: 61 6c 72 65 61 64 79 20 66 61 69 6c 65 64 2e 20  already failed. 
0f20: 20 52 65 74 75 72 6e 69 6e 67 20 73 6f 66 74 20   Returning soft 
0f30: 65 72 72 6f 72 22 29 3b 0a 09 20 20 20 20 2a 65  error");..    *e
0f40: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43  rrorCodePtr = EC
0f50: 4f 4e 4e 52 45 53 45 54 3b 0a 09 7d 0a 09 72 65  ONNRESET;..}..re
0f60: 74 75 72 6e 28 2d 31 29 3b 0a 20 20 20 20 7d 0a  turn(-1);.    }.
0f70: 0a 20 20 20 20 66 6f 72 20 28 3b 3b 29 20 7b 0a  .    for (;;) {.
0f80: 09 2f 2a 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69  ./* Not initiali
0f90: 7a 65 64 20 79 65 74 21 20 41 6c 73 6f 20 63 61  zed yet! Also ca
0fa0: 6c 6c 73 20 53 53 4c 5f 64 6f 5f 68 61 6e 64 73  lls SSL_do_hands
0fb0: 68 61 6b 65 2e 20 2a 2f 0a 09 69 66 20 28 73 74  hake. */..if (st
0fc0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20  atePtr->flags & 
0fd0: 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20  TLS_TCL_SERVER) 
0fe0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22  {..    dprintf("
0ff0: 43 61 6c 6c 69 6e 67 20 53 53 4c 5f 61 63 63 65  Calling SSL_acce
1000: 70 74 28 29 22 29 3b 0a 09 20 20 20 20 65 72 72  pt()");..    err
1010: 20 3d 20 53 53 4c 5f 61 63 63 65 70 74 28 73 74   = SSL_accept(st
1020: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 0a 09  atePtr->ssl);...
1030: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 70  } else {..    dp
1040: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 53  rintf("Calling S
1050: 53 4c 5f 63 6f 6e 6e 65 63 74 28 29 22 29 3b 0a  SL_connect()");.
1060: 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 63  .    err = SSL_c
1070: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d  onnect(statePtr-
1080: 3e 73 73 6c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28  >ssl);..}...if (
1090: 65 72 72 20 3e 20 30 29 20 7b 0a 09 20 20 20 20  err > 0) {..    
10a0: 64 70 72 69 6e 74 66 28 22 54 68 61 74 20 73 65  dprintf("That se
10b0: 65 6d 73 20 74 6f 20 68 61 76 65 20 67 6f 6e 65  ems to have gone
10c0: 20 6f 6b 61 79 22 29 3b 0a 0a 09 20 20 20 20 65   okay");...    e
10d0: 72 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 73  rr = BIO_flush(s
10e0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09  tatePtr->bio);..
10f0: 20 20 20 20 69 66 20 28 65 72 72 20 3c 3d 20 30      if (err <= 0
1100: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 46  ) {...dprintf("F
1110: 6c 75 73 68 69 6e 67 20 74 68 65 20 6c 6f 77 65  lushing the lowe
1120: 72 20 6c 61 79 65 72 73 20 66 61 69 6c 65 64 2c  r layers failed,
1130: 20 74 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 61   this will proba
1140: 62 6c 79 20 74 65 72 6d 69 6e 61 74 65 20 74 68  bly terminate th
1150: 69 73 20 73 65 73 73 69 6f 6e 22 29 3b 0a 09 20  is session");.. 
1160: 20 20 20 7d 0a 09 7d 0a 0a 09 72 63 20 3d 20 53     }..}...rc = S
1170: 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61  SL_get_error(sta
1180: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 65 72 72 29  tePtr->ssl, err)
1190: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 47 6f 74  ;...dprintf("Got
11a0: 20 65 72 72 6f 72 3a 20 25 69 20 28 72 63 20 3d   error: %i (rc =
11b0: 20 25 69 29 22 2c 20 65 72 72 2c 20 72 63 29 3b   %i)", err, rc);
11c0: 0a 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 65  ..dprintf("Got e
11d0: 72 72 6f 72 3a 20 25 73 22 2c 20 52 45 41 53 4f  rror: %s", REASO
11e0: 4e 28 29 29 3b 0a 0a 09 62 69 6f 53 68 6f 75 6c  N());...bioShoul
11f0: 64 52 65 74 72 79 20 3d 20 30 3b 0a 09 69 66 20  dRetry = 0;..if 
1200: 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20  (err <= 0) {..  
1210: 20 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f    if (rc == SSL_
1220: 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45  ERROR_WANT_CONNE
1230: 43 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f  CT || rc == SSL_
1240: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50  ERROR_WANT_ACCEP
1250: 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45  T || rc == SSL_E
1260: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 20 7c  RROR_WANT_READ |
1270: 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f  | rc == SSL_ERRO
1280: 52 5f 57 41 4e 54 5f 57 52 49 54 45 29 20 7b 0a  R_WANT_WRITE) {.
1290: 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79  ..bioShouldRetry
12a0: 20 3d 20 31 3b 0a 09 20 20 20 20 7d 20 65 6c 73   = 1;..    } els
12b0: 65 20 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64  e if (BIO_should
12c0: 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 2d  _retry(statePtr-
12d0: 3e 62 69 6f 29 29 20 7b 0a 09 09 62 69 6f 53 68  >bio)) {...bioSh
12e0: 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09  ouldRetry = 1;..
12f0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72      } else if (r
1300: 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 53  c == SSL_ERROR_S
1310: 59 53 43 41 4c 4c 20 26 26 20 54 63 6c 5f 47 65  YSCALL && Tcl_Ge
1320: 74 45 72 72 6e 6f 28 29 20 3d 3d 20 45 41 47 41  tErrno() == EAGA
1330: 49 4e 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c  IN) {...bioShoul
1340: 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20  dRetry = 1;..   
1350: 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20   }..} else {..  
1360: 20 20 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e    if (!SSL_is_in
1370: 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74  it_finished(stat
1380: 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 09  ePtr->ssl)) {...
1390: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d  bioShouldRetry =
13a0: 20 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09   1;..    }..}...
13b0: 69 66 20 28 62 69 6f 53 68 6f 75 6c 64 52 65 74  if (bioShouldRet
13c0: 72 79 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e  ry) {..    dprin
13d0: 74 66 28 22 54 68 65 20 49 2f 4f 20 64 69 64 20  tf("The I/O did 
13e0: 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 2d 2d 20  not complete -- 
13f0: 62 75 74 20 77 65 20 73 68 6f 75 6c 64 20 74 72  but we should tr
1400: 79 20 69 74 20 61 67 61 69 6e 22 29 3b 0a 0a 09  y it again");...
1410: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72      if (statePtr
1420: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43  ->flags & TLS_TC
1430: 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 09 64 70 72  L_ASYNC) {...dpr
1440: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20  intf("Returning 
1450: 45 41 47 41 49 4e 20 73 6f 20 74 68 61 74 20 69  EAGAIN so that i
1460: 74 20 63 61 6e 20 62 65 20 72 65 74 72 69 65 64  t can be retried
1470: 20 6c 61 74 65 72 22 29 3b 0a 0a 09 09 2a 65 72   later");....*er
1480: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47  rorCodePtr = EAG
1490: 41 49 4e 3b 0a 09 09 72 65 74 75 72 6e 28 2d 31  AIN;...return(-1
14a0: 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b  );..    } else {
14b0: 0a 09 09 64 70 72 69 6e 74 66 28 22 44 6f 69 6e  ...dprintf("Doin
14c0: 67 20 73 6f 20 6e 6f 77 22 29 3b 0a 0a 09 09 63  g so now");....c
14d0: 6f 6e 74 69 6e 75 65 3b 0a 09 20 20 20 20 7d 0a  ontinue;..    }.
14e0: 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 57 65  .}...dprintf("We
14f0: 20 68 61 76 65 20 65 69 74 68 65 72 20 63 6f 6d   have either com
1500: 70 6c 65 74 65 6c 79 20 65 73 74 61 62 6c 69 73  pletely establis
1510: 68 65 64 20 74 68 65 20 73 65 73 73 69 6f 6e 20  hed the session 
1520: 6f 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 66 61  or completely fa
1530: 69 6c 65 64 20 69 74 20 2d 2d 20 74 68 65 72 65  iled it -- there
1540: 20 69 73 20 6e 6f 20 6d 6f 72 65 20 6e 65 65 64   is no more need
1550: 20 74 6f 20 65 76 65 72 20 72 65 74 72 79 20 69   to ever retry i
1560: 74 20 74 68 6f 75 67 68 22 29 3b 0a 09 62 72 65  t though");..bre
1570: 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73  ak;.    }..    s
1580: 77 69 74 63 68 20 28 72 63 29 20 7b 0a 09 63 61  witch (rc) {..ca
1590: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e  se SSL_ERROR_NON
15a0: 45 3a 0a 09 20 20 20 20 2f 2a 20 54 68 65 20 63  E:..    /* The c
15b0: 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 75 70 2c  onnection is up,
15c0: 20 77 65 20 61 72 65 20 64 6f 6e 65 20 68 65 72   we are done her
15d0: 65 20 2a 2f 0a 09 20 20 20 20 64 70 72 69 6e 74  e */..    dprint
15e0: 66 28 22 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f  f("The connectio
15f0: 6e 20 69 73 20 75 70 22 29 3b 0a 09 20 20 20 20  n is up");..    
1600: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20  *errorCodePtr = 
1610: 30 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09  0;..    break;..
1620: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a  case SSL_ERROR_Z
1630: 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20  ERO_RETURN:..   
1640: 20 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 45 52   dprintf("SSL_ER
1650: 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a  ROR_ZERO_RETURN:
1660: 20 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65   Connect returne
1670: 64 20 61 6e 20 69 6e 76 61 6c 69 64 20 76 61 6c  d an invalid val
1680: 75 65 2e 2e 2e 22 29 3b 0a 09 20 20 20 20 2a 65  ue...");..    *e
1690: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49  rrorCodePtr = EI
16a0: 4e 56 41 4c 3b 0a 09 20 20 20 20 72 65 74 75 72  NVAL;..    retur
16b0: 6e 28 2d 31 29 3b 0a 09 63 61 73 65 20 53 53 4c  n(-1);..case SSL
16c0: 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a  _ERROR_SYSCALL:.
16d0: 09 20 20 20 20 62 61 63 6b 69 6e 67 45 72 72 6f  .    backingErro
16e0: 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f  r = ERR_get_erro
16f0: 72 28 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62  r();...    if (b
1700: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30  ackingError == 0
1710: 20 26 26 20 65 72 72 20 3d 3d 20 30 29 20 7b 0a   && err == 0) {.
1720: 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 20 72  ..dprintf("EOF r
1730: 65 61 63 68 65 64 22 29 0a 09 09 2a 65 72 72 6f  eached")...*erro
1740: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e  rCodePtr = ECONN
1750: 52 45 53 45 54 3b 0a 09 20 20 20 20 7d 20 65 6c  RESET;..    } el
1760: 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72  se if (backingEr
1770: 72 6f 72 20 3d 3d 20 30 20 26 26 20 65 72 72 20  ror == 0 && err 
1780: 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72 69 6e  == -1) {...dprin
1790: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63  tf("I/O error oc
17a0: 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20 3d 20  curred (errno = 
17b0: 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64  %lu)", (unsigned
17c0: 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72   long) Tcl_GetEr
17d0: 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72 6f 72  rno());...*error
17e0: 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65  CodePtr = Tcl_Ge
17f0: 74 45 72 72 6e 6f 28 29 3b 0a 09 09 69 66 20 28  tErrno();...if (
1800: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d  *errorCodePtr ==
1810: 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09   ECONNRESET) {..
1820: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50  .    *errorCodeP
1830: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45  tr = ECONNABORTE
1840: 44 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 20 65 6c  D;...}..    } el
1850: 73 65 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22  se {...dprintf("
1860: 49 2f 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72  I/O error occurr
1870: 65 64 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72  ed (backingError
1880: 20 3d 20 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e   = %lu)", backin
1890: 67 45 72 72 6f 72 29 3b 0a 09 09 2a 65 72 72 6f  gError);...*erro
18a0: 72 43 6f 64 65 50 74 72 20 3d 20 62 61 63 6b 69  rCodePtr = backi
18b0: 6e 67 45 72 72 6f 72 3b 0a 09 09 69 66 20 28 2a  ngError;...if (*
18c0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20  errorCodePtr == 
18d0: 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09  ECONNRESET) {...
18e0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74      *errorCodePt
18f0: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44  r = ECONNABORTED
1900: 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 0a 09 20  ;...}..    }... 
1910: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61     statePtr->fla
1920: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41  gs |= TLS_TCL_HA
1930: 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a  NDSHAKE_FAILED;.
1940: 09 20 20 20 20 72 65 74 75 72 6e 28 2d 31 29 3b  .    return(-1);
1950: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f  ...case SSL_ERRO
1960: 52 5f 53 53 4c 3a 0a 09 20 20 20 20 64 70 72 69  R_SSL:..    dpri
1970: 6e 74 66 28 22 47 6f 74 20 70 65 72 6d 61 6e 65  ntf("Got permane
1980: 6e 74 20 66 61 74 61 6c 20 53 53 4c 20 65 72 72  nt fatal SSL err
1990: 6f 72 2c 20 61 62 6f 72 74 69 6e 67 20 69 6d 6d  or, aborting imm
19a0: 65 64 69 61 74 65 6c 79 22 29 3b 0a 09 20 20 20  ediately");..   
19b0: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65   Tls_Error(state
19c0: 50 74 72 2c 20 28 63 68 61 72 20 2a 29 52 45 41  Ptr, (char *)REA
19d0: 53 4f 4e 28 29 29 3b 0a 09 20 20 20 20 73 74 61  SON());..    sta
19e0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20  tePtr->flags |= 
19f0: 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b  TLS_TCL_HANDSHAK
1a00: 45 5f 46 41 49 4c 45 44 3b 0a 09 20 20 20 20 2a  E_FAILED;..    *
1a10: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45  errorCodePtr = E
1a20: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20  CONNABORTED;..  
1a30: 20 20 72 65 74 75 72 6e 28 2d 31 29 3b 0a 0a 09    return(-1);...
1a40: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57  case SSL_ERROR_W
1a50: 41 4e 54 5f 43 4f 4e 4e 45 43 54 3a 0a 09 63 61  ANT_CONNECT:..ca
1a60: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e  se SSL_ERROR_WAN
1a70: 54 5f 41 43 43 45 50 54 3a 0a 09 63 61 73 65 20  T_ACCEPT:..case 
1a80: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58  SSL_ERROR_WANT_X
1a90: 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 64 65 66  509_LOOKUP:..def
1aa0: 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 69 6e  ault:..    dprin
1ab0: 74 66 28 22 57 65 20 67 6f 74 20 61 20 63 6f 6e  tf("We got a con
1ac0: 66 75 73 69 6e 67 20 72 65 70 6c 79 3a 20 25 69  fusing reply: %i
1ad0: 22 2c 20 72 63 29 3b 0a 09 20 20 20 20 2a 65 72  ", rc);..    *er
1ae0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c  rorCodePtr = Tcl
1af0: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 20 20  _GetErrno();..  
1b00: 20 20 64 70 72 69 6e 74 66 28 22 45 52 52 28 25    dprintf("ERR(%
1b10: 64 2c 20 25 64 29 20 22 2c 20 72 63 2c 20 2a 65  d, %d) ", rc, *e
1b20: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 20  rrorCodePtr);.. 
1b30: 20 20 20 72 65 74 75 72 6e 28 2d 31 29 3b 0a 20     return(-1);. 
1b40: 20 20 20 7d 0a 0a 23 69 66 20 30 0a 20 20 20 20     }..#if 0.    
1b50: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c  if (statePtr->fl
1b60: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45  ags & TLS_TCL_SE
1b70: 52 56 45 52 29 20 7b 0a 09 64 70 72 69 6e 74 66  RVER) {..dprintf
1b80: 28 22 54 68 69 73 20 69 73 20 61 6e 20 54 4c 53  ("This is an TLS
1b90: 20 73 65 72 76 65 72 2c 20 63 68 65 63 6b 69 6e   server, checkin
1ba0: 67 20 74 68 65 20 63 65 72 74 69 66 69 63 61 74  g the certificat
1bb0: 65 20 66 6f 72 20 74 68 65 20 70 65 65 72 22 29  e for the peer")
1bc0: 3b 0a 0a 09 65 72 72 20 3d 20 53 53 4c 5f 67 65  ;...err = SSL_ge
1bd0: 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c 74 28  t_verify_result(
1be0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a  statePtr->ssl);.
1bf0: 09 69 66 20 28 65 72 72 20 21 3d 20 58 35 30 39  .if (err != X509
1c00: 5f 56 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 64 70  _V_OK) {..    dp
1c10: 72 69 6e 74 66 28 22 49 6e 76 61 6c 69 64 20 63  rintf("Invalid c
1c20: 65 72 74 69 66 69 63 61 74 65 2c 20 72 65 74 75  ertificate, retu
1c30: 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65  rning in failure
1c40: 22 29 3b 0a 0a 09 20 20 20 20 54 6c 73 5f 45 72  ");...    Tls_Er
1c50: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63  ror(statePtr, (c
1c60: 68 61 72 20 2a 29 58 35 30 39 5f 76 65 72 69 66  har *)X509_verif
1c70: 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72  y_cert_error_str
1c80: 69 6e 67 28 65 72 72 29 29 3b 0a 09 20 20 20 20  ing(err));..    
1c90: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20  statePtr->flags 
1ca0: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53  |= TLS_TCL_HANDS
1cb0: 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 20 20  HAKE_FAILED;..  
1cc0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20    *errorCodePtr 
1cd0: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a  = ECONNABORTED;.
1ce0: 09 20 20 20 20 72 65 74 75 72 6e 28 2d 31 29 3b  .    return(-1);
1cf0: 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66  ..}.    }.#endif
1d00: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52  ..    dprintf("R
1d10: 65 6d 6f 76 69 6e 67 20 74 68 65 20 5c 22 54 4c  emoving the \"TL
1d20: 53 5f 54 43 4c 5f 49 4e 49 54 5c 22 20 66 6c 61  S_TCL_INIT\" fla
1d30: 67 20 73 69 6e 63 65 20 77 65 20 68 61 76 65 20  g since we have 
1d40: 63 6f 6d 70 6c 65 74 65 64 20 74 68 65 20 68 61  completed the ha
1d50: 6e 64 73 68 61 6b 65 22 29 3b 0a 20 20 20 20 73  ndshake");.    s
1d60: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26  tatePtr->flags &
1d70: 3d 20 7e 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b  = ~TLS_TCL_INIT;
1d80: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52  ..    dprintf("R
1d90: 65 74 75 72 6e 69 6e 67 20 69 6e 20 73 75 63 63  eturning in succ
1da0: 65 73 73 22 29 3b 0a 20 20 20 20 2a 65 72 72 6f  ess");.    *erro
1db0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20  rCodePtr = 0;.  
1dc0: 20 20 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a    return(0);.}..
1dd0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
1de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e10: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54  --------. *. * T
1e20: 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20  lsInputProc --. 
1e30: 2a 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f  *. *    This pro
1e40: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65  cedure is invoke
1e50: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63  d by the generic
1e60: 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20   IO level. *    
1e70: 20 20 20 74 6f 20 72 65 61 64 20 69 6e 70 75 74     to read input
1e80: 20 66 72 6f 6d 20 61 20 53 53 4c 20 73 6f 63 6b   from a SSL sock
1e90: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c  et based channel
1ea0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
1eb0: 0a 20 2a 20 20 20 20 52 65 74 75 72 6e 73 20 74  . *    Returns t
1ec0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74  he number of byt
1ed0: 65 73 20 72 65 61 64 20 6f 72 20 2d 31 20 6f 6e  es read or -1 on
1ee0: 20 65 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72   error. Sets err
1ef0: 6f 72 43 6f 64 65 50 74 72 0a 20 2a 20 20 20 20  orCodePtr. *    
1f00: 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72  to a POSIX error
1f10: 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f   code if an erro
1f20: 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 30  r occurred, or 0
1f30: 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20   if none.. *. * 
1f40: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
1f50: 20 20 20 20 52 65 61 64 73 20 69 6e 70 75 74 20      Reads input 
1f60: 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 74 20 64  from the input d
1f70: 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 61  evice of the cha
1f80: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  nnel.. *. *-----
1f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
1fd0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c  */.static int Tl
1fe0: 73 49 6e 70 75 74 50 72 6f 63 28 43 6c 69 65 6e  sInputProc(Clien
1ff0: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61  tData instanceDa
2000: 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 69  ta, char *buf, i
2010: 6e 74 20 62 75 66 53 69 7a 65 2c 20 69 6e 74 20  nt bufSize, int 
2020: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b  *errorCodePtr) {
2030: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f  .    unsigned lo
2040: 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b  ng backingError;
2050: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74  .    State *stat
2060: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29  ePtr = (State *)
2070: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20   instanceData;. 
2080: 20 20 20 69 6e 74 20 62 79 74 65 73 52 65 61 64     int bytesRead
2090: 3b 0a 20 20 20 20 69 6e 74 20 74 6c 73 43 6f 6e  ;.    int tlsCon
20a0: 6e 65 63 74 3b 0a 20 20 20 20 69 6e 74 20 65 72  nect;.    int er
20b0: 72 3b 0a 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f  r;..    *errorCo
20c0: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20  dePtr = 0;..    
20d0: 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 61  dprintf("BIO_rea
20e0: 64 28 25 64 29 22 2c 20 62 75 66 53 69 7a 65 29  d(%d)", bufSize)
20f0: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65  ;..    if (state
2100: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53  Ptr->flags & TLS
2110: 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b  _TCL_CALLBACK) {
2120: 0a 09 2f 2a 20 64 6f 6e 27 74 20 70 72 6f 63 65  ../* don't proce
2130: 73 73 20 61 6e 79 20 62 79 74 65 73 20 77 68 69  ss any bytes whi
2140: 6c 65 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61  le verify callba
2150: 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 20 2a 2f  ck is running */
2160: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 62  ..dprintf("Callb
2170: 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 2c 20  ack is running, 
2180: 72 65 61 64 69 6e 67 20 30 20 62 79 74 65 73 22  reading 0 bytes"
2190: 29 3b 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 20  );..return(0);. 
21a0: 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74     }..    dprint
21b0: 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57  f("Calling Tls_W
21c0: 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b  aitForConnect");
21d0: 0a 20 20 20 20 74 6c 73 43 6f 6e 6e 65 63 74 20  .    tlsConnect 
21e0: 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e  = Tls_WaitForCon
21f0: 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 65  nect(statePtr, e
2200: 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 30 29 3b  rrorCodePtr, 0);
2210: 0a 20 20 20 20 69 66 20 28 74 6c 73 43 6f 6e 6e  .    if (tlsConn
2220: 65 63 74 20 3c 20 30 29 20 7b 0a 09 64 70 72 69  ect < 0) {..dpri
2230: 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f  ntf("Got an erro
2240: 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f 6e  r waiting to con
2250: 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 74  nect (tlsConnect
2260: 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f 64   = %i, *errorCod
2270: 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c 73  ePtr = %i)", tls
2280: 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 43  Connect, *errorC
2290: 6f 64 65 50 74 72 29 3b 0a 09 54 6c 73 5f 45 72  odePtr);..Tls_Er
22a0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73 74  ror(statePtr, st
22b0: 72 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f 64  rerror(*errorCod
22c0: 65 50 74 72 29 29 3b 0a 0a 09 62 79 74 65 73 52  ePtr));...bytesR
22d0: 65 61 64 20 3d 20 2d 31 3b 0a 09 69 66 20 28 2a  ead = -1;..if (*
22e0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20  errorCodePtr == 
22f0: 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 20  ECONNRESET) {.. 
2300: 20 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20     dprintf("Got 
2310: 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74  connection reset
2320: 22 29 3b 0a 09 20 20 20 20 2f 2a 20 53 6f 66 74  ");..    /* Soft
2330: 20 45 4f 46 20 2a 2f 0a 09 20 20 20 20 2a 65 72   EOF */..    *er
2340: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a  rorCodePtr = 0;.
2350: 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d  .    bytesRead =
2360: 20 30 3b 0a 09 7d 0a 09 72 65 74 75 72 6e 28 62   0;..}..return(b
2370: 79 74 65 73 52 65 61 64 29 3b 0a 20 20 20 20 7d  ytesRead);.    }
2380: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  ..    /*.     * 
2390: 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 72  We need to clear
23a0: 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 73   the SSL error s
23b0: 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 65  tack now because
23c0: 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 65   we sometimes re
23d0: 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 20  ach.     * this 
23e0: 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c 65  function with le
23f0: 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 6e  ftover errors in
2400: 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 20   the stack.  If 
2410: 42 49 4f 5f 72 65 61 64 0a 20 20 20 20 20 2a 20  BIO_read.     * 
2420: 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 69  returns -1 and i
2430: 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 74  ntends EAGAIN, t
2440: 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f 76  here is a leftov
2450: 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 6c  er error, it wil
2460: 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 73 63  l be.     * misc
2470: 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 65  onstrued as an e
2480: 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e  rror, not EAGAIN
2490: 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 2a 20  ..     *.     * 
24a0: 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 77  Alternatively, w
24b0: 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 68 61  e may want to ha
24c0: 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 74 75  ndle the <0 retu
24d0: 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a 20 20  rn codes from.  
24e0: 20 20 20 2a 20 42 49 4f 5f 72 65 61 64 20 73 70     * BIO_read sp
24f0: 65 63 69 61 6c 6c 79 20 28 61 73 20 61 64 76 69  ecially (as advi
2500: 73 65 64 20 69 6e 20 74 68 65 20 52 53 41 20 64  sed in the RSA d
2510: 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 6c 6f 77  ocs).  TLS's low
2520: 65 72 20 6c 65 76 65 6c 20 42 49 4f 0a 20 20 20  er level BIO.   
2530: 20 20 2a 20 66 75 6e 63 74 69 6f 6e 73 20 70 6c    * functions pl
2540: 61 79 20 77 69 74 68 20 74 68 65 20 72 65 74 72  ay with the retr
2550: 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 2c 20  y flags though, 
2560: 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 20 74  and this seems t
2570: 6f 20 77 6f 72 6b 0a 20 20 20 20 20 2a 20 63 6f  o work.     * co
2580: 72 72 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61  rrectly.  Simila
2590: 72 20 66 69 78 20 69 6e 20 54 6c 73 4f 75 74 70  r fix in TlsOutp
25a0: 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a  utProc. - hobbs.
25b0: 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 52 52 5f       */.    ERR_
25c0: 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 20  clear_error();. 
25d0: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 42     bytesRead = B
25e0: 49 4f 5f 72 65 61 64 28 73 74 61 74 65 50 74 72  IO_read(statePtr
25f0: 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 53  ->bio, buf, bufS
2600: 69 7a 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74  ize);.    dprint
2610: 66 28 22 42 49 4f 5f 72 65 61 64 20 2d 3e 20 25  f("BIO_read -> %
2620: 64 22 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a  d", bytesRead);.
2630: 0a 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 67  .    err = SSL_g
2640: 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74  et_error(statePt
2650: 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61  r->ssl, bytesRea
2660: 64 29 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 69  d);..#if 0.    i
2670: 66 20 28 62 79 74 65 73 52 65 61 64 20 3c 3d 20  f (bytesRead <= 
2680: 30 29 20 7b 0a 09 69 66 20 28 42 49 4f 5f 73 68  0) {..if (BIO_sh
2690: 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65  ould_retry(state
26a0: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20  Ptr->bio)) {..  
26b0: 20 20 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 66    dprintf("I/O f
26c0: 61 69 6c 65 64 2c 20 77 69 6c 6c 20 72 65 74 72  ailed, will retr
26d0: 79 20 62 61 73 65 64 20 6f 6e 20 45 41 47 41 49  y based on EAGAI
26e0: 4e 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72  N");..    *error
26f0: 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e  CodePtr = EAGAIN
2700: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69  ;..}.    }.#endi
2710: 66 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 65  f..    switch (e
2720: 72 72 29 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f  rr) {..case SSL_
2730: 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20  ERROR_NONE:..   
2740: 20 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 75   dprintBuffer(bu
2750: 66 2c 20 62 79 74 65 73 52 65 61 64 29 3b 0a 09  f, bytesRead);..
2760: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73      break;...cas
2770: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a  e SSL_ERROR_SSL:
2780: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53  ..    dprintf("S
2790: 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 65  SL negotiation e
27a0: 72 72 6f 72 2c 20 69 6e 64 69 63 61 74 69 6e 67  rror, indicating
27b0: 20 74 68 61 74 20 74 68 65 20 63 6f 6e 6e 65 63   that the connec
27c0: 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 61 62  tion has been ab
27d0: 6f 72 74 65 64 22 29 3b 0a 0a 09 20 20 20 20 54  orted");...    T
27e0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74  ls_Error(statePt
27f0: 72 2c 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 45 52  r, TCLTLS_SSL_ER
2800: 52 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73  ROR(statePtr->ss
2810: 6c 2c 20 62 79 74 65 73 52 65 61 64 29 29 3b 0a  l, bytesRead));.
2820: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50  .    *errorCodeP
2830: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45  tr = ECONNABORTE
2840: 44 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61  D;..    bytesRea
2850: 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 62 72 65  d = -1;..    bre
2860: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45  ak;...case SSL_E
2870: 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 20  RROR_SYSCALL:.. 
2880: 20 20 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 20     backingError 
2890: 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28  = ERR_get_error(
28a0: 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 62 61 63  );...    if (bac
28b0: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26  kingError == 0 &
28c0: 26 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 30  & bytesRead == 0
28d0: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 45  ) {...dprintf("E
28e0: 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 2a  OF reached")...*
28f0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30  errorCodePtr = 0
2900: 3b 0a 09 09 62 79 74 65 73 52 65 61 64 20 3d 20  ;...bytesRead = 
2910: 30 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69  0;..    } else i
2920: 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20  f (backingError 
2930: 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 61  == 0 && bytesRea
2940: 64 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 64 70 72  d == -1) {...dpr
2950: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20  intf("I/O error 
2960: 6f 63 63 75 72 72 65 64 20 28 65 72 72 6e 6f 20  occurred (errno 
2970: 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e  = %lu)", (unsign
2980: 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74  ed long) Tcl_Get
2990: 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a 65 72 72  Errno());...*err
29a0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f  orCodePtr = Tcl_
29b0: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 62 79  GetErrno();...by
29c0: 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20  tesRead = -1;.. 
29d0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70     } else {...dp
29e0: 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72  rintf("I/O error
29f0: 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69   occurred (backi
2a00: 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c  ngError = %lu)",
2a10: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a   backingError);.
2a20: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20  ..*errorCodePtr 
2a30: 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a  = backingError;.
2a40: 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31  ..bytesRead = -1
2a50: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72  ;..    }..    br
2a60: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f  eak;...case SSL_
2a70: 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52  ERROR_ZERO_RETUR
2a80: 4e 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28  N:..    dprintf(
2a90: 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 5a  "Got SSL_ERROR_Z
2aa0: 45 52 4f 5f 52 45 54 55 52 4e 2c 20 74 68 69 73  ERO_RETURN, this
2ab0: 20 6d 65 61 6e 73 20 61 6e 20 45 4f 46 20 68 61   means an EOF ha
2ac0: 73 20 62 65 65 6e 20 72 65 61 63 68 65 64 22 29  s been reached")
2ad0: 3b 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64  ;..    bytesRead
2ae0: 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65 72 72 6f   = 0;..    *erro
2af0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 20  rCodePtr = 0;.. 
2b00: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65     break;...case
2b10: 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f   SSL_ERROR_WANT_
2b20: 52 45 41 44 3a 0a 09 20 20 20 20 64 70 72 69 6e  READ:..    dprin
2b30: 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 4f  tf("Got SSL_ERRO
2b40: 52 5f 57 41 4e 54 5f 52 45 41 44 2c 20 6d 61 70  R_WANT_READ, map
2b50: 70 69 6e 67 20 74 68 69 73 20 74 6f 20 45 41 47  ping this to EAG
2b60: 41 49 4e 22 29 3b 0a 09 20 20 20 20 62 79 74 65  AIN");..    byte
2b70: 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20  sRead = -1;..   
2b80: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d   *errorCodePtr =
2b90: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 62 72   EAGAIN;..    br
2ba0: 65 61 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 3a 0a  eak;...default:.
2bb0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 55 6e  .    dprintf("Un
2bc0: 6b 6e 6f 77 6e 20 65 72 72 6f 72 20 28 65 72 72  known error (err
2bd0: 20 3d 20 25 69 29 2c 20 6d 61 70 70 69 6e 67 20   = %i), mapping 
2be0: 74 6f 20 45 4f 46 22 2c 20 65 72 72 29 3b 0a 09  to EOF", err);..
2bf0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74      *errorCodePt
2c00: 72 20 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 65  r = 0;..    byte
2c10: 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20 20  sRead = 0;..    
2c20: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20  break;.    }..  
2c30: 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65    if (*errorCode
2c40: 50 74 72 20 3c 20 30 29 20 7b 0a 09 54 6c 73 5f  Ptr < 0) {..Tls_
2c50: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20  Error(statePtr, 
2c60: 73 74 72 65 72 72 6f 72 28 2a 65 72 72 6f 72 43  strerror(*errorC
2c70: 6f 64 65 50 74 72 29 29 3b 0a 20 20 20 20 7d 0a  odePtr));.    }.
2c80: 20 20 20 20 64 70 72 69 6e 74 66 28 22 49 6e 70      dprintf("Inp
2c90: 75 74 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 64  ut(%d) -> %d [%d
2ca0: 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 74  ]", bufSize, byt
2cb0: 65 73 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 6f  esRead, *errorCo
2cc0: 64 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75  dePtr);.    retu
2cd0: 72 6e 28 62 79 74 65 73 52 65 61 64 29 3b 0a 7d  rn(bytesRead);.}
2ce0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
2cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
2d30: 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 2d   TlsOutputProc -
2d40: 2d 0a 20 2a 0a 20 2a 20 20 20 20 54 68 69 73 20  -. *. *    This 
2d50: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76  procedure is inv
2d60: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65  oked by the gene
2d70: 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20  ric IO level. * 
2d80: 20 20 20 20 20 20 74 6f 20 77 72 69 74 65 20 6f        to write o
2d90: 75 74 70 75 74 20 74 6f 20 61 20 53 53 4c 20 73  utput to a SSL s
2da0: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e  ocket based chan
2db0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  nel.. *. * Resul
2dc0: 74 73 3a 0a 20 2a 20 20 20 20 52 65 74 75 72 6e  ts:. *    Return
2dd0: 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  s the number of 
2de0: 62 79 74 65 73 20 77 72 69 74 74 65 6e 20 6f 72  bytes written or
2df0: 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e 20 53 65   -1 on error. Se
2e00: 74 73 20 65 72 72 6f 72 43 6f 64 65 50 74 72 0a  ts errorCodePtr.
2e10: 20 2a 20 20 20 20 74 6f 20 61 20 50 4f 53 49 58   *    to a POSIX
2e20: 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 20 61   error code if a
2e30: 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64  n error occurred
2e40: 2c 20 6f 72 20 30 20 69 66 20 6e 6f 6e 65 2e 0a  , or 0 if none..
2e50: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63   *. * Side effec
2e60: 74 73 3a 0a 20 2a 20 20 20 20 57 72 69 74 65 73  ts:. *    Writes
2e70: 20 6f 75 74 70 75 74 20 6f 6e 20 74 68 65 20 6f   output on the o
2e80: 75 74 70 75 74 20 64 65 76 69 63 65 20 6f 66 20  utput device of 
2e90: 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a  the channel.. *.
2ea0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
2eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2ee0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63  -----. */.static
2ef0: 20 69 6e 74 20 54 6c 73 4f 75 74 70 75 74 50 72   int TlsOutputPr
2f00: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e  oc(ClientData in
2f10: 73 74 61 6e 63 65 44 61 74 61 2c 20 63 6f 6e 73  stanceData, cons
2f20: 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74  t char *buf, int
2f30: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65   toWrite, int *e
2f40: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20  rrorCodePtr) {. 
2f50: 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67     unsigned long
2f60: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20   backingError;. 
2f70: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50     State *stateP
2f80: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69  tr = (State *) i
2f90: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20  nstanceData;.   
2fa0: 20 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 65 72   int written, er
2fb0: 72 3b 0a 20 20 20 20 69 6e 74 20 74 6c 73 43 6f  r;.    int tlsCo
2fc0: 6e 6e 65 63 74 3b 0a 0a 20 20 20 20 2a 65 72 72  nnect;..    *err
2fd0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a  orCodePtr = 0;..
2fe0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49 4f      dprintf("BIO
2ff0: 5f 77 72 69 74 65 28 25 70 2c 20 25 64 29 22 2c  _write(%p, %d)",
3000: 20 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50   (void *) stateP
3010: 74 72 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20  tr, toWrite);.  
3020: 20 20 64 70 72 69 6e 74 42 75 66 66 65 72 28 62    dprintBuffer(b
3030: 75 66 2c 20 74 6f 57 72 69 74 65 29 3b 0a 0a 20  uf, toWrite);.. 
3040: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d     if (statePtr-
3050: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c  >flags & TLS_TCL
3060: 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70  _CALLBACK) {..dp
3070: 72 69 6e 74 66 28 22 44 6f 6e 27 74 20 70 72 6f  rintf("Don't pro
3080: 63 65 73 73 20 6f 75 74 70 75 74 20 77 68 69 6c  cess output whil
3090: 65 20 63 61 6c 6c 62 61 63 6b 73 20 61 72 65 20  e callbacks are 
30a0: 72 75 6e 6e 69 6e 67 22 29 3b 0a 09 77 72 69 74  running");..writ
30b0: 74 65 6e 20 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f  ten = -1;..*erro
30c0: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49  rCodePtr = EAGAI
30d0: 4e 3b 0a 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a  N;..return(-1);.
30e0: 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e      }..    dprin
30f0: 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f  tf("Calling Tls_
3100: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29  WaitForConnect")
3110: 3b 0a 20 20 20 20 74 6c 73 43 6f 6e 6e 65 63 74  ;.    tlsConnect
3120: 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f   = Tls_WaitForCo
3130: 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20  nnect(statePtr, 
3140: 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 31 29  errorCodePtr, 1)
3150: 3b 0a 20 20 20 20 69 66 20 28 74 6c 73 43 6f 6e  ;.    if (tlsCon
3160: 6e 65 63 74 20 3c 20 30 29 20 7b 0a 09 64 70 72  nect < 0) {..dpr
3170: 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72  intf("Got an err
3180: 6f 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f  or waiting to co
3190: 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63  nnect (tlsConnec
31a0: 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f  t = %i, *errorCo
31b0: 64 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c  dePtr = %i)", tl
31c0: 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72  sConnect, *error
31d0: 43 6f 64 65 50 74 72 29 3b 0a 09 54 6c 73 5f 45  CodePtr);..Tls_E
31e0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 73  rror(statePtr, s
31f0: 74 72 65 72 72 6f 72 28 2a 65 72 72 6f 72 43 6f  trerror(*errorCo
3200: 64 65 50 74 72 29 29 3b 0a 0a 09 77 72 69 74 74  dePtr));...writt
3210: 65 6e 20 3d 20 2d 31 3b 0a 09 69 66 20 28 2a 65  en = -1;..if (*e
3220: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45  rrorCodePtr == E
3230: 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 20 20  CONNRESET) {..  
3240: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 63    dprintf("Got c
3250: 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 22  onnection reset"
3260: 29 3b 0a 09 20 20 20 20 2f 2a 20 53 6f 66 74 20  );..    /* Soft 
3270: 45 4f 46 20 2a 2f 0a 09 20 20 20 20 2a 65 72 72  EOF */..    *err
3280: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09  orCodePtr = 0;..
3290: 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 30 3b      written = 0;
32a0: 0a 09 7d 0a 09 72 65 74 75 72 6e 28 77 72 69 74  ..}..return(writ
32b0: 74 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  ten);.    }..   
32c0: 20 69 66 20 28 74 6f 57 72 69 74 65 20 3d 3d 20   if (toWrite == 
32d0: 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 7a  0) {..dprintf("z
32e0: 65 72 6f 2d 77 72 69 74 65 22 29 3b 0a 09 65 72  ero-write");..er
32f0: 72 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 73 74  r = BIO_flush(st
3300: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 0a 09  atePtr->bio);...
3310: 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a  if (err <= 0) {.
3320: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 46 6c  .    dprintf("Fl
3330: 75 73 68 69 6e 67 20 66 61 69 6c 65 64 22 29 3b  ushing failed");
3340: 0a 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64  ...    *errorCod
3350: 65 50 74 72 20 3d 20 45 49 4f 3b 0a 09 20 20 20  ePtr = EIO;..   
3360: 20 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20   written = 0;.. 
3370: 20 20 20 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09     return(-1);..
3380: 7d 0a 0a 09 77 72 69 74 74 65 6e 20 3d 20 30 3b  }...written = 0;
3390: 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20  ..*errorCodePtr 
33a0: 3d 20 30 3b 0a 09 72 65 74 75 72 6e 28 30 29 3b  = 0;..return(0);
33b0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20  .    }..    /*. 
33c0: 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f      * We need to
33d0: 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65   clear the SSL e
33e0: 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62  rror stack now b
33f0: 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69  ecause we someti
3400: 6d 65 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a  mes reach.     *
3410: 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77   this function w
3420: 69 74 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72  ith leftover err
3430: 6f 72 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b  ors in the stack
3440: 2e 20 20 49 66 20 42 49 4f 5f 77 72 69 74 65 0a  .  If BIO_write.
3450: 20 20 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d       * returns -
3460: 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41  1 and intends EA
3470: 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61  GAIN, there is a
3480: 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c   leftover error,
3490: 20 69 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20   it will be.    
34a0: 20 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20   * misconstrued 
34b0: 61 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74  as an error, not
34c0: 20 45 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a   EAGAIN..     *.
34d0: 20 20 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 69       * Alternati
34e0: 76 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e  vely, we may wan
34f0: 74 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20  t to handle the 
3500: 3c 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20  <0 return codes 
3510: 66 72 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f  from.     * BIO_
3520: 77 72 69 74 65 20 73 70 65 63 69 61 6c 6c 79 20  write specially 
3530: 28 61 73 20 61 64 76 69 73 65 64 20 69 6e 20 74  (as advised in t
3540: 68 65 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54  he RSA docs).  T
3550: 4c 53 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c  LS's lower level
3560: 0a 20 20 20 20 20 2a 20 42 49 4f 20 66 75 6e 63  .     * BIO func
3570: 74 69 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 20  tions play with 
3580: 74 68 65 20 72 65 74 72 79 20 66 6c 61 67 73 20  the retry flags 
3590: 74 68 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 73  though, and this
35a0: 20 73 65 65 6d 73 20 74 6f 0a 20 20 20 20 20 2a   seems to.     *
35b0: 20 77 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 2e   work correctly.
35c0: 20 20 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e    Similar fix in
35d0: 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 2e 20 2d   TlsInputProc. -
35e0: 20 68 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20   hobbs.     */. 
35f0: 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72     ERR_clear_err
3600: 6f 72 28 29 3b 0a 20 20 20 20 77 72 69 74 74 65  or();.    writte
3610: 6e 20 3d 20 42 49 4f 5f 77 72 69 74 65 28 73 74  n = BIO_write(st
3620: 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66  atePtr->bio, buf
3630: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 20 20 20 20  , toWrite);.    
3640: 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 72 69  dprintf("BIO_wri
3650: 74 65 28 25 70 2c 20 25 64 29 20 2d 3e 20 5b 25  te(%p, %d) -> [%
3660: 64 5d 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74  d]", (void *) st
3670: 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 2c  atePtr, toWrite,
3680: 20 77 72 69 74 74 65 6e 29 3b 0a 0a 20 20 20 20   written);..    
3690: 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72  err = SSL_get_er
36a0: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73  ror(statePtr->ss
36b0: 6c 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20  l, written);.   
36c0: 20 73 77 69 74 63 68 20 28 65 72 72 29 20 7b 0a   switch (err) {.
36d0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f  .case SSL_ERROR_
36e0: 4e 4f 4e 45 3a 0a 09 20 20 20 20 69 66 20 28 77  NONE:..    if (w
36f0: 72 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a 09 09  ritten < 0) {...
3700: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20  written = 0;..  
3710: 20 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a    }..    break;.
3720: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52  ..case SSL_ERROR
3730: 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20  _WANT_WRITE:..  
3740: 20 20 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53    dprintf("Got S
3750: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52  SL_ERROR_WANT_WR
3760: 49 54 45 2c 20 6d 61 70 70 69 6e 67 20 69 74 20  ITE, mapping it 
3770: 74 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20  to EAGAIN");..  
3780: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20    *errorCodePtr 
3790: 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77  = EAGAIN;..    w
37a0: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20  ritten = -1;..  
37b0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20    break;...case 
37c0: 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52  SSL_ERROR_WANT_R
37d0: 45 41 44 3a 0a 09 20 20 20 20 64 70 72 69 6e 74  EAD:..    dprint
37e0: 66 28 22 20 77 72 69 74 65 20 52 20 42 4c 4f 43  f(" write R BLOC
37f0: 4b 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b  K");..    break;
3800: 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f  ...case SSL_ERRO
3810: 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b  R_WANT_X509_LOOK
3820: 55 50 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66  UP:..    dprintf
3830: 28 22 20 77 72 69 74 65 20 58 20 42 4c 4f 43 4b  (" write X BLOCK
3840: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a  ");..    break;.
3850: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52  ..case SSL_ERROR
3860: 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 20  _ZERO_RETURN:.. 
3870: 20 20 20 64 70 72 69 6e 74 66 28 22 20 63 6c 6f     dprintf(" clo
3880: 73 65 64 22 29 3b 0a 09 20 20 20 20 77 72 69 74  sed");..    writ
3890: 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 2a 65  ten = 0;..    *e
38a0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b  rrorCodePtr = 0;
38b0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63  ..    break;...c
38c0: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59  ase SSL_ERROR_SY
38d0: 53 43 41 4c 4c 3a 0a 09 20 20 20 20 62 61 63 6b  SCALL:..    back
38e0: 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67  ingError = ERR_g
38f0: 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 20 20  et_error();...  
3900: 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72    if (backingErr
3910: 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69 74 74  or == 0 && writt
3920: 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72  en == 0) {...dpr
3930: 69 6e 74 66 28 22 45 4f 46 20 72 65 61 63 68 65  intf("EOF reache
3940: 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65  d")...*errorCode
3950: 50 74 72 20 3d 20 30 3b 0a 09 09 77 72 69 74 74  Ptr = 0;...writt
3960: 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 7d 20 65  en = 0;..    } e
3970: 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45  lse if (backingE
3980: 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69  rror == 0 && wri
3990: 74 74 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 09  tten == -1) {...
39a0: 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72  dprintf("I/O err
39b0: 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 72  or occurred (err
39c0: 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73  no = %lu)", (uns
39d0: 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f  igned long) Tcl_
39e0: 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a  GetErrno());...*
39f0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54  errorCodePtr = T
3a00: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09  cl_GetErrno();..
3a10: 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09  .written = -1;..
3a20: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64      } else {...d
3a30: 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f  printf("I/O erro
3a40: 72 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b  r occurred (back
3a50: 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22  ingError = %lu)"
3a60: 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b  , backingError);
3a70: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72  ...*errorCodePtr
3a80: 20 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b   = backingError;
3a90: 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b  ...written = -1;
3aa0: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 65  ..    }..    bre
3ab0: 61 6b 3b 0a 0a 09 63 61 73 65 20 53 53 4c 5f 45  ak;...case SSL_E
3ac0: 52 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 54  RROR_SSL:..    T
3ad0: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74  ls_Error(statePt
3ae0: 72 2c 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 45 52  r, TCLTLS_SSL_ER
3af0: 52 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73  ROR(statePtr->ss
3b00: 6c 2c 20 77 72 69 74 74 65 6e 29 29 3b 0a 09 20  l, written));.. 
3b10: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72     *errorCodePtr
3b20: 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b   = ECONNABORTED;
3b30: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20  ..    written = 
3b40: 2d 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a  -1;..    break;.
3b50: 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20  ..default:..    
3b60: 64 70 72 69 6e 74 66 28 22 20 75 6e 6b 6e 6f 77  dprintf(" unknow
3b70: 6e 20 65 72 72 3a 20 25 64 22 2c 20 65 72 72 29  n err: %d", err)
3b80: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  ;..    break;.  
3b90: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 2a 65 72    }..    if (*er
3ba0: 72 6f 72 43 6f 64 65 50 74 72 20 3c 20 30 29 20  rorCodePtr < 0) 
3bb0: 7b 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61  {..Tls_Error(sta
3bc0: 74 65 50 74 72 2c 20 73 74 72 65 72 72 6f 72 28  tePtr, strerror(
3bd0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b  *errorCodePtr));
3be0: 0a 20 20 20 20 7d 0a 20 20 20 20 64 70 72 69 6e  .    }.    dprin
3bf0: 74 66 28 22 4f 75 74 70 75 74 28 25 64 29 20 2d  tf("Output(%d) -
3c00: 3e 20 25 64 22 2c 20 74 6f 57 72 69 74 65 2c 20  > %d", toWrite, 
3c10: 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 72 65  written);.    re
3c20: 74 75 72 6e 28 77 72 69 74 74 65 6e 29 3b 0a 7d  turn(written);.}
3c30: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
3c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
3c80: 20 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f   TlsSetOptionPro
3c90: 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 53 65  c --. *. *    Se
3ca0: 74 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c  ts an option val
3cb0: 75 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63  ue for a SSL soc
3cc0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65  ket based channe
3cd0: 6c 2c 20 6f 72 20 61 0a 20 2a 20 20 20 20 6c 69  l, or a. *    li
3ce0: 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e  st of all option
3cf0: 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75  s and their valu
3d00: 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  es.. *. * Result
3d10: 73 3a 0a 20 2a 20 20 20 20 54 43 4c 5f 4f 4b 20  s:. *    TCL_OK 
3d20: 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72  if successful or
3d30: 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 61   TCL_ERROR if fa
3d40: 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  iled.. *. * Side
3d50: 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20   effects:. *    
3d60: 55 70 64 61 74 65 73 20 63 68 61 6e 6e 65 6c 20  Updates channel 
3d70: 6f 70 74 69 6f 6e 20 74 6f 20 6e 65 77 20 76 61  option to new va
3d80: 6c 75 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  lue.. *. *------
3d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
3dd0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c 73  /.static int.Tls
3de0: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c  SetOptionProc(Cl
3df0: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63  ientData instanc
3e00: 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 6f 63  eData,    /* Soc
3e10: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20  ket state. */.  
3e20: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
3e30: 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72  terp,../* For er
3e40: 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55  rors - can be NU
3e50: 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74  LL. */.    const
3e60: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d   char *optionNam
3e70: 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68  e,./* Name of th
3e80: 65 20 6f 70 74 69 6f 6e 20 74 6f 20 73 65 74 20  e option to set 
3e90: 74 68 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f  the value for, o
3ea0: 72 0a 09 09 09 09 20 2a 20 4e 55 4c 4c 20 74 6f  r..... * NULL to
3eb0: 20 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73   get all options
3ec0: 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65   and their value
3ed0: 73 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20  s. */.    const 
3ee0: 63 68 61 72 20 2a 6f 70 74 69 6f 6e 56 61 6c 75  char *optionValu
3ef0: 65 29 09 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20  e)./* Value for 
3f00: 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 7b 0a 20 20 20  option. */.{.   
3f10: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72   State *statePtr
3f20: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73   = (State *) ins
3f30: 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20  tanceData;..    
3f40: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f 77 6e  Tcl_Channel down
3f50: 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61  Chan = Tls_GetPa
3f60: 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54  rent(statePtr, T
3f70: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29  LS_TCL_FASTPATH)
3f80: 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72  ;.    Tcl_Driver
3f90: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 73  SetOptionProc *s
3fa0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20  etOptionProc;.. 
3fb0: 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63     setOptionProc
3fc0: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53 65   = Tcl_ChannelSe
3fd0: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f  tOptionProc(Tcl_
3fe0: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64  GetChannelType(d
3ff0: 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 20 20 20 69  ownChan));.    i
4000: 66 20 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63  f (setOptionProc
4010: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74   != NULL) {..ret
4020: 75 72 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e 50  urn (*setOptionP
4030: 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e  roc)(Tcl_GetChan
4040: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28  nelInstanceData(
4050: 64 6f 77 6e 43 68 61 6e 29 2c 20 69 6e 74 65 72  downChan), inter
4060: 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f  p, optionName, o
4070: 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20  ptionValue);.   
4080: 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69   } else if (opti
4090: 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a  onName == (char*
40a0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20  ) NULL) {../*.. 
40b0: 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 75 65  * Request is que
40c0: 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f  ry for all optio
40d0: 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 0a  ns, this is ok..
40e0: 09 20 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c  . */..return TCL
40f0: 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f  _OK;.    }.    /
4100: 2a 0a 20 20 20 20 20 2a 20 52 65 71 75 65 73 74  *.     * Request
4110: 20 66 6f 72 20 61 20 73 70 65 63 69 66 69 63 20   for a specific 
4120: 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61  option has to fa
4130: 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76  il, we don't hav
4140: 65 20 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20  e any..     */. 
4150: 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61     return Tcl_Ba
4160: 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69  dChannelOption(i
4170: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d  nterp, optionNam
4180: 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a  e, "");.}../*. *
4190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
41a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
41b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
41c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
41d0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74  ---. *. * TlsGet
41e0: 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a  OptionProc --. *
41f0: 0a 20 2a 20 20 20 20 47 65 74 73 20 61 6e 20 6f  . *    Gets an o
4200: 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 6f 72 20  ption value for 
4210: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73  a SSL socket bas
4220: 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 61  ed channel, or a
4230: 0a 20 2a 20 20 20 20 6c 69 73 74 20 6f 66 20 61  . *    list of a
4240: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74  ll options and t
4250: 68 65 69 72 20 76 61 6c 75 65 73 2e 0a 20 2a 0a  heir values.. *.
4260: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20   * Results:. *  
4270: 20 20 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c    A standard Tcl
4280: 20 72 65 73 75 6c 74 2e 20 54 68 65 20 76 61 6c   result. The val
4290: 75 65 20 6f 66 20 74 68 65 20 73 70 65 63 69 66  ue of the specif
42a0: 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 20 61 0a  ied option or a.
42b0: 20 2a 20 20 20 20 6c 69 73 74 20 6f 66 20 61 6c   *    list of al
42c0: 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68  l options and th
42d0: 65 69 72 20 76 61 6c 75 65 73 20 69 73 20 72 65  eir values is re
42e0: 74 75 72 6e 65 64 20 69 6e 20 74 68 65 0a 20 2a  turned in the. *
42f0: 20 20 20 20 73 75 70 70 6c 69 65 64 20 44 53 74      supplied DSt
4300: 72 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  ring.. *. * Side
4310: 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20   effects:. *    
4320: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  None.. *. *-----
4330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
4370: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c  */.static int.Tl
4380: 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43  sGetOptionProc(C
4390: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e  lientData instan
43a0: 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 6f  ceData,    /* So
43b0: 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20  cket state. */. 
43c0: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69     Tcl_Interp *i
43d0: 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65  nterp,../* For e
43e0: 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e  rrors - can be N
43f0: 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 63 6f 6e 73  ULL. */.    cons
4400: 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61  t char *optionNa
4410: 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74  me,./* Name of t
4420: 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 72 65 74  he option to ret
4430: 72 69 65 76 65 20 74 68 65 20 76 61 6c 75 65 20  rieve the value 
4440: 66 6f 72 2c 20 6f 72 0a 09 09 09 09 20 2a 20 4e  for, or..... * N
4450: 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f  ULL to get all o
4460: 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72  ptions and their
4470: 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 20 20 20   values. */.    
4480: 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 6f 70 74  Tcl_DString *opt
4490: 69 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 57 68 65  ionValue)./* Whe
44a0: 72 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20  re to store the 
44b0: 63 6f 6d 70 75 74 65 64 20 76 61 6c 75 65 20 69  computed value i
44c0: 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63 61  nitialized by ca
44d0: 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53  ller. */.{.    S
44e0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d  tate *statePtr =
44f0: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61   (State *) insta
4500: 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 54 63  nceData;..    Tc
4510: 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f 77 6e 43 68  l_Channel downCh
4520: 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65  an = Tls_GetPare
4530: 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c 53  nt(statePtr, TLS
4540: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b 0a  _TCL_FASTPATH);.
4550: 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 47 65      Tcl_DriverGe
4560: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 65 74  tOptionProc *get
4570: 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20  OptionProc;..   
4580: 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d   getOptionProc =
4590: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f   Tcl_ChannelGetO
45a0: 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65  ptionProc(Tcl_Ge
45b0: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77  tChannelType(dow
45c0: 6e 43 68 61 6e 29 29 3b 0a 20 20 20 20 69 66 20  nChan));.    if 
45d0: 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21  (getOptionProc !
45e0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72  = NULL) {..retur
45f0: 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f  n (*getOptionPro
4600: 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65  c)(Tcl_GetChanne
4610: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f  lInstanceData(do
4620: 77 6e 43 68 61 6e 29 2c 20 69 6e 74 65 72 70 2c  wnChan), interp,
4630: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74   optionName, opt
4640: 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d  ionValue);.    }
4650: 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e   else if (option
4660: 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20  Name == (char*) 
4670: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20  NULL) {../*.. * 
4680: 52 65 71 75 65 73 74 20 69 73 20 71 75 65 72 79  Request is query
4690: 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73   for all options
46a0: 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 0a 09 20  , this is ok... 
46b0: 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f  */..return TCL_O
46c0: 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a  K;.    }.    /*.
46d0: 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 66       * Request f
46e0: 6f 72 20 61 20 73 70 65 63 69 66 69 63 20 6f 70  or a specific op
46f0: 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c  tion has to fail
4700: 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20  , we don't have 
4710: 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20  any..     */.   
4720: 20 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43   return Tcl_BadC
4730: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74  hannelOption(int
4740: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c  erp, optionName,
4750: 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d   "");.}../*. *--
4760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
47a0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 68  -. *. * TlsWatch
47b0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20  Proc --. *. *   
47c0: 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20   Initialize the 
47d0: 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63  notifier to watc
47e0: 68 20 54 63 6c 5f 46 69 6c 65 73 20 66 72 6f 6d  h Tcl_Files from
47f0: 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20   this channel.. 
4800: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
4810: 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20      None.. *. * 
4820: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
4830: 20 20 20 20 53 65 74 73 20 75 70 20 74 68 65 20      Sets up the 
4840: 6e 6f 74 69 66 69 65 72 20 73 6f 20 74 68 61 74  notifier so that
4850: 20 61 20 66 75 74 75 72 65 20 65 76 65 6e 74 20   a future event 
4860: 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20  on the channel. 
4870: 2a 20 20 20 20 77 69 6c 6c 20 62 65 20 73 65 65  *    will be see
4880: 6e 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d  n by Tcl.. *. *-
4890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
48a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
48b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
48c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
48d0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f  --. */.static vo
48e0: 69 64 0a 54 6c 73 57 61 74 63 68 50 72 6f 63 28  id.TlsWatchProc(
48f0: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61  ClientData insta
4900: 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20 54  nceData,    /* T
4910: 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e  he socket state.
4920: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b   */.    int mask
4930: 29 09 09 09 2f 2a 20 45 76 65 6e 74 73 20 6f 66  ).../* Events of
4940: 20 69 6e 74 65 72 65 73 74 3b 20 61 6e 20 4f 52   interest; an OR
4950: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20  -ed combination 
4960: 6f 66 0a 09 09 09 09 20 2a 20 54 43 4c 5f 52 45  of..... * TCL_RE
4970: 41 44 41 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54  ADABLE, TCL_WRIT
4980: 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 58 43  ABLE and TCL_EXC
4990: 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 20  EPTION. */.{.   
49a0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 20 20 20   Tcl_Channel    
49b0: 20 64 6f 77 6e 43 68 61 6e 3b 0a 20 20 20 20 53   downChan;.    S
49c0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d  tate *statePtr =
49d0: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61   (State *) insta
49e0: 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 54 63 6c  nceData;.    Tcl
49f0: 5f 44 72 69 76 65 72 57 61 74 63 68 50 72 6f 63  _DriverWatchProc
4a00: 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a 0a 20 20   *watchProc;..  
4a10: 20 20 64 70 72 69 6e 74 66 28 22 54 6c 73 57 61    dprintf("TlsWa
4a20: 74 63 68 50 72 6f 63 28 30 78 25 78 29 22 2c 20  tchProc(0x%x)", 
4a30: 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 50  mask);..    /* P
4a40: 72 65 74 65 6e 64 20 74 6f 20 62 65 20 64 65 61  retend to be dea
4a50: 64 20 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65  d as long as the
4a60: 20 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b   verify callback
4a70: 20 69 73 20 72 75 6e 6e 69 6e 67 2e 0a 20 20 20   is running..   
4a80: 20 20 2a 20 4f 74 68 65 72 77 69 73 65 20 74 68    * Otherwise th
4a90: 61 74 20 63 61 6c 6c 62 61 63 6b 20 63 6f 75 6c  at callback coul
4aa0: 64 20 62 65 20 69 6e 76 6f 6b 65 64 20 72 65 63  d be invoked rec
4ab0: 75 72 73 69 76 65 6c 79 2e 20 2a 2f 0a 20 20 20  ursively. */.   
4ac0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66   if (statePtr->f
4ad0: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43  lags & TLS_TCL_C
4ae0: 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69  ALLBACK) {..dpri
4af0: 6e 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73  ntf("Callback is
4b00: 20 6f 6e 2d 67 6f 69 6e 67 2c 20 64 6f 69 6e 67   on-going, doing
4b10: 20 6e 6f 74 68 69 6e 67 22 29 3b 0a 09 72 65 74   nothing");..ret
4b20: 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  urn;.    }..    
4b30: 64 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74  dprintFlags(stat
4b40: 65 50 74 72 29 3b 0a 0a 20 20 20 20 64 6f 77 6e  ePtr);..    down
4b50: 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61  Chan = Tls_GetPa
4b60: 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54  rent(statePtr, T
4b70: 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29  LS_TCL_FASTPATH)
4b80: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65  ;..    if (state
4b90: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53  Ptr->flags & TLS
4ba0: 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46  _TCL_HANDSHAKE_F
4bb0: 41 49 4c 45 44 29 20 7b 0a 09 64 70 72 69 6e 74  AILED) {..dprint
4bc0: 66 28 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63  f("Asked to watc
4bd0: 68 20 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20  h a socket with 
4be0: 61 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61  a failed handsha
4bf0: 6b 65 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61  ke -- nothing ca
4c00: 6e 20 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b  n happen here");
4c10: 0a 09 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67  ..dprintf("Unreg
4c20: 69 73 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73  istering interes
4c30: 74 20 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63  t in the lower c
4c40: 68 61 6e 6e 65 6c 22 29 3b 0a 0a 09 77 61 74 63  hannel");...watc
4c50: 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e  hProc = Tcl_Chan
4c60: 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c  nelWatchProc(Tcl
4c70: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28  _GetChannelType(
4c80: 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 09 77 61 74  downChan));..wat
4c90: 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68  chProc(Tcl_GetCh
4ca0: 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74  annelInstanceDat
4cb0: 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 30 29 3b  a(downChan), 0);
4cc0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63  ..statePtr->watc
4cd0: 68 4d 61 73 6b 20 3d 20 30 3b 0a 09 72 65 74 75  hMask = 0;..retu
4ce0: 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73  rn;.    }..    s
4cf0: 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61  tatePtr->watchMa
4d00: 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 20  sk = mask;..    
4d10: 2f 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c 20 68 61  /* No channel ha
4d20: 6e 64 6c 65 72 73 20 61 6e 79 20 6d 6f 72 65 2e  ndlers any more.
4d30: 20 57 65 20 77 69 6c 6c 20 62 65 20 6e 6f 74 69   We will be noti
4d40: 66 69 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c  fied automatical
4d50: 6c 79 0a 20 20 20 20 20 2a 20 61 62 6f 75 74 20  ly.     * about 
4d60: 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68  events on the ch
4d70: 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 76 69 61 20  annel below via 
4d80: 61 20 63 61 6c 6c 20 74 6f 20 6f 75 72 0a 20 20  a call to our.  
4d90: 20 20 20 2a 20 27 54 72 61 6e 73 66 6f 72 6d 4e     * 'TransformN
4da0: 6f 74 69 66 79 50 72 6f 63 27 2e 20 42 75 74 20  otifyProc'. But 
4db0: 77 65 20 68 61 76 65 20 74 6f 20 70 61 73 73 20  we have to pass 
4dc0: 74 68 65 20 69 6e 74 65 72 65 73 74 20 64 6f 77  the interest dow
4dd0: 6e 20 6e 6f 77 2e 0a 20 20 20 20 20 2a 20 57 65  n now..     * We
4de0: 20 61 72 65 20 61 6c 6c 6f 77 65 64 20 74 6f 20   are allowed to 
4df0: 61 64 64 20 61 64 64 69 74 69 6f 6e 61 6c 20 27  add additional '
4e00: 69 6e 74 65 72 65 73 74 27 20 74 6f 20 74 68 65  interest' to the
4e10: 20 6d 61 73 6b 20 69 66 20 77 65 20 77 61 6e 74   mask if we want
4e20: 0a 20 20 20 20 20 2a 20 74 6f 2e 20 42 75 74 20  .     * to. But 
4e30: 74 68 69 73 20 74 72 61 6e 73 66 6f 72 6d 61 74  this transformat
4e40: 69 6f 6e 20 68 61 73 20 6e 6f 20 73 75 63 68 20  ion has no such 
4e50: 69 6e 74 65 72 65 73 74 2e 20 49 74 20 6a 75 73  interest. It jus
4e60: 74 20 70 61 73 73 65 73 0a 20 20 20 20 20 2a 20  t passes.     * 
4e70: 74 68 65 20 72 65 71 75 65 73 74 20 64 6f 77 6e  the request down
4e80: 2c 20 75 6e 63 68 61 6e 67 65 64 2e 0a 20 20 20  , unchanged..   
4e90: 20 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66    */.    dprintf
4ea0: 28 22 52 65 67 69 73 74 65 72 69 6e 67 20 6f 75  ("Registering ou
4eb0: 72 20 69 6e 74 65 72 65 73 74 20 69 6e 20 74 68  r interest in th
4ec0: 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 20  e lower channel 
4ed0: 28 63 68 61 6e 3d 25 70 29 22 2c 20 28 76 6f 69  (chan=%p)", (voi
4ee0: 64 20 2a 29 20 64 6f 77 6e 43 68 61 6e 29 3b 0a  d *) downChan);.
4ef0: 20 20 20 20 77 61 74 63 68 50 72 6f 63 20 3d 20      watchProc = 
4f00: 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68  Tcl_ChannelWatch
4f10: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e  Proc(Tcl_GetChan
4f20: 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e  nelType(downChan
4f30: 29 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f  ));.    watchPro
4f40: 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c  c(Tcl_GetChannel
4f50: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77  InstanceData(dow
4f60: 6e 43 68 61 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a  nChan), mask);..
4f70: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d  .    /*.     * M
4f80: 61 6e 61 67 65 6d 65 6e 74 20 6f 66 20 74 68 65  anagement of the
4f90: 20 69 6e 74 65 72 6e 61 6c 20 74 69 6d 65 72 2e   internal timer.
4fa0: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20  .     */.    if 
4fb0: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72  (statePtr->timer
4fc0: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f   != (Tcl_TimerTo
4fd0: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 64 70  ken) NULL) {..dp
4fe0: 72 69 6e 74 66 28 22 41 20 74 69 6d 65 72 20 77  rintf("A timer w
4ff0: 61 73 20 66 6f 75 6e 64 2c 20 64 65 6c 65 74 69  as found, deleti
5000: 6e 67 20 69 74 22 29 3b 0a 09 54 63 6c 5f 44 65  ng it");..Tcl_De
5010: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72  leteTimerHandler
5020: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72  (statePtr->timer
5030: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69  );..statePtr->ti
5040: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72  mer = (Tcl_Timer
5050: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20  Token) NULL;.   
5060: 20 7d 0a 0a 20 20 20 20 69 66 20 28 28 6d 61 73   }..    if ((mas
5070: 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45  k & TCL_READABLE
5080: 29 20 26 26 0a 09 28 28 54 63 6c 5f 49 6e 70 75  ) &&..((Tcl_Inpu
5090: 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50  tBuffered(stateP
50a0: 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 20 7c  tr->self) > 0) |
50b0: 7c 20 28 42 49 4f 5f 63 74 72 6c 5f 70 65 6e 64  | (BIO_ctrl_pend
50c0: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69  ing(statePtr->bi
50d0: 6f 29 20 3e 20 30 29 29 29 20 7b 0a 09 2f 2a 0a  o) > 0))) {../*.
50e0: 09 20 2a 20 54 68 65 72 65 20 69 73 20 69 6e 74  . * There is int
50f0: 65 72 65 73 74 20 69 6e 20 72 65 61 64 61 62 6c  erest in readabl
5100: 65 20 65 76 65 6e 74 73 20 61 6e 64 20 77 65 20  e events and we 
5110: 61 63 74 75 61 6c 6c 79 20 68 61 76 65 0a 09 20  actually have.. 
5120: 2a 20 64 61 74 61 20 77 61 69 74 69 6e 67 2c 20  * data waiting, 
5130: 73 6f 20 67 65 6e 65 72 61 74 65 20 61 20 74 69  so generate a ti
5140: 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 74 68 61  mer to flush tha
5150: 74 2e 0a 09 20 2a 2f 0a 09 64 70 72 69 6e 74 66  t... */..dprintf
5160: 28 22 43 72 65 61 74 69 6e 67 20 61 20 6e 65 77  ("Creating a new
5170: 20 74 69 6d 65 72 20 73 69 6e 63 65 20 64 61 74   timer since dat
5180: 61 20 61 70 70 65 61 72 73 20 74 6f 20 62 65 20  a appears to be 
5190: 77 61 69 74 69 6e 67 22 29 3b 0a 09 73 74 61 74  waiting");..stat
51a0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63  ePtr->timer = Tc
51b0: 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e  l_CreateTimerHan
51c0: 64 6c 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c  dler(TLS_TCL_DEL
51d0: 41 59 2c 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61  AY, TlsChannelHa
51e0: 6e 64 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c 69  ndlerTimer, (Cli
51f0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74  entData) statePt
5200: 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a  r);.    }.}../*.
5210: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
5220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5250: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47  -----. *. * TlsG
5260: 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a  etHandleProc --.
5270: 20 2a 0a 20 2a 20 20 20 20 43 61 6c 6c 65 64 20   *. *    Called 
5280: 66 72 6f 6d 20 54 63 6c 5f 47 65 74 43 68 61 6e  from Tcl_GetChan
5290: 6e 65 6c 46 69 6c 65 20 74 6f 20 72 65 74 72 69  nelFile to retri
52a0: 65 76 65 20 6f 2f 73 20 66 69 6c 65 20 68 61 6e  eve o/s file han
52b0: 64 6c 65 72 0a 20 2a 20 20 20 20 66 72 6f 6d 20  dler. *    from 
52c0: 74 68 65 20 53 53 4c 20 73 6f 63 6b 65 74 20 62  the SSL socket b
52d0: 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a  ased channel.. *
52e0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20  . * Results:. * 
52f0: 20 20 20 54 68 65 20 61 70 70 72 6f 70 72 69 61     The appropria
5300: 74 65 20 54 63 6c 5f 46 69 6c 65 20 68 61 6e 64  te Tcl_File hand
5310: 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 66 20 6e 6f  le or NULL if no
5320: 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ne.. *. * Side e
5330: 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 4e 6f  ffects:. *    No
5340: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ne.. *. *-------
5350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
5390: 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 47  .static int TlsG
53a0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69  etHandleProc(Cli
53b0: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65  entData instance
53c0: 44 61 74 61 2c 20 20 20 20 2f 2a 20 53 6f 63 6b  Data,    /* Sock
53d0: 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20  et state. */.   
53e0: 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c 09   int direction,.
53f0: 09 2f 2a 20 54 43 4c 5f 52 45 41 44 41 42 4c 45  ./* TCL_READABLE
5400: 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45   or TCL_WRITABLE
5410: 20 2a 2f 0a 20 20 20 20 43 6c 69 65 6e 74 44 61   */.    ClientDa
5420: 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 09 2f  ta *handlePtr)./
5430: 2a 20 48 61 6e 64 6c 65 20 61 73 73 6f 63 69 61  * Handle associa
5440: 74 65 64 20 77 69 74 68 20 74 68 65 20 63 68 61  ted with the cha
5450: 6e 6e 65 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74  nnel */.{.    St
5460: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20  ate *statePtr = 
5470: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e  (State *) instan
5480: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 72 65 74  ceData;..    ret
5490: 75 72 6e 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e  urn(Tcl_GetChann
54a0: 65 6c 48 61 6e 64 6c 65 28 54 6c 73 5f 47 65 74  elHandle(Tls_Get
54b0: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c  Parent(statePtr,
54c0: 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54   TLS_TCL_FASTPAT
54d0: 48 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 68  H), direction, h
54e0: 61 6e 64 6c 65 50 74 72 29 29 3b 0a 7d 0a 0a 2f  andlePtr));.}../
54f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
5500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5530: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c  -------. *. * Tl
5540: 73 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20  sNotifyProc --. 
5550: 2a 0a 20 2a 20 20 20 20 48 61 6e 64 6c 65 72 20  *. *    Handler 
5560: 63 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 74 6f  called by Tcl to
5570: 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63   inform us of ac
5580: 74 69 76 69 74 79 0a 20 2a 20 20 20 20 6f 6e 20  tivity. *    on 
5590: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63  the underlying c
55a0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65  hannel.. *. * Re
55b0: 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54 79 70  sults:. *    Typ
55c0: 65 20 6f 66 20 65 76 65 6e 74 20 6f 72 20 30 20  e of event or 0 
55d0: 69 66 20 66 61 69 6c 65 64 0a 20 2a 0a 20 2a 20  if failed. *. * 
55e0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
55f0: 20 20 20 20 4d 61 79 20 70 72 6f 63 65 73 73 20      May process 
5600: 74 68 65 20 69 6e 63 6f 6d 69 6e 67 20 65 76 65  the incoming eve
5610: 6e 74 20 62 79 20 69 74 73 65 6c 66 2e 0a 20 2a  nt by itself.. *
5620: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
5630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5660: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69  ------. */.stati
5670: 63 20 69 6e 74 20 54 6c 73 4e 6f 74 69 66 79 50  c int TlsNotifyP
5680: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69  roc(ClientData i
5690: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20  nstanceData,    
56a0: 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e  /* Socket state.
56b0: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b   */.    int mask
56c0: 29 09 09 09 2f 2a 20 74 79 70 65 20 6f 66 20 65  ).../* type of e
56d0: 76 65 6e 74 20 74 68 61 74 20 6f 63 63 75 72 72  vent that occurr
56e0: 65 64 3a 0a 09 09 09 09 20 2a 20 4f 52 2d 65 64  ed:..... * OR-ed
56f0: 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20   combination of 
5700: 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20  TCL_READABLE or 
5710: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a  TCL_WRITABLE */.
5720: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61  {.    State *sta
5730: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a  tePtr = (State *
5740: 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a  ) instanceData;.
5750: 20 20 20 20 69 6e 74 20 65 72 72 6f 72 43 6f 64      int errorCod
5760: 65 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20  e;..    /*.     
5770: 2a 20 41 6e 20 65 76 65 6e 74 20 6f 63 63 75 72  * An event occur
5780: 72 65 64 20 69 6e 20 74 68 65 20 75 6e 64 65 72  red in the under
5790: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 20 20  lying channel.  
57a0: 54 68 69 73 0a 20 20 20 20 20 2a 20 74 72 61 6e  This.     * tran
57b0: 73 66 6f 72 6d 61 74 69 6f 6e 20 64 6f 65 73 6e  sformation doesn
57c0: 27 74 20 70 72 6f 63 65 73 73 20 73 75 63 68 20  't process such 
57d0: 65 76 65 6e 74 73 20 74 68 75 73 20 72 65 74 75  events thus retu
57e0: 72 6e 73 20 74 68 65 0a 20 20 20 20 20 2a 20 69  rns the.     * i
57f0: 6e 63 6f 6d 69 6e 67 20 6d 61 73 6b 20 75 6e 63  ncoming mask unc
5800: 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f 0a  hanged..     */.
5810: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72      if (statePtr
5820: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f  ->timer != (Tcl_
5830: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c  TimerToken) NULL
5840: 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 65 6c 65  ) {../*.. * Dele
5850: 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20 74  te an existing t
5860: 69 6d 65 72 2e 20 49 74 20 77 61 73 20 6e 6f 74  imer. It was not
5870: 20 66 69 72 65 64 2c 20 79 65 74 20 77 65 20 61   fired, yet we a
5880: 72 65 0a 09 20 2a 20 68 65 72 65 2c 20 73 6f 20  re.. * here, so 
5890: 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f  the channel belo
58a0: 77 20 67 65 6e 65 72 61 74 65 64 20 73 75 63 68  w generated such
58b0: 20 61 6e 20 65 76 65 6e 74 20 61 6e 64 20 77 65   an event and we
58c0: 0a 09 20 2a 20 64 6f 6e 27 74 20 68 61 76 65 20  .. * don't have 
58d0: 74 6f 2e 20 54 68 65 20 72 65 6e 65 77 61 6c 20  to. The renewal 
58e0: 6f 66 20 74 68 65 20 69 6e 74 65 72 65 73 74 20  of the interest 
58f0: 61 66 74 65 72 20 74 68 65 0a 09 20 2a 20 65 78  after the.. * ex
5900: 65 63 75 74 69 6f 6e 20 6f 66 20 63 68 61 6e 6e  ecution of chann
5910: 65 6c 20 68 61 6e 64 6c 65 72 73 20 77 69 6c 6c  el handlers will
5920: 20 65 76 65 6e 74 75 61 6c 6c 79 20 63 61 75 73   eventually caus
5930: 65 20 75 73 20 74 6f 0a 09 20 2a 20 72 65 63 72  e us to.. * recr
5940: 65 61 74 65 20 74 68 65 20 74 69 6d 65 72 20 28  eate the timer (
5950: 69 6e 20 57 61 74 63 68 50 72 6f 63 29 2e 0a 09  in WatchProc)...
5960: 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54   */..Tcl_DeleteT
5970: 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74  imerHandler(stat
5980: 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73  ePtr->timer);..s
5990: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d  tatePtr->timer =
59a0: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e   (Tcl_TimerToken
59b0: 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20  ) NULL;.    }.. 
59c0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d     if (statePtr-
59d0: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c  >flags & TLS_TCL
59e0: 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70  _CALLBACK) {..dp
59f0: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67  rintf("Returning
5a00: 20 30 20 64 75 65 20 74 6f 20 63 61 6c 6c 62 61   0 due to callba
5a10: 63 6b 22 29 3b 0a 09 72 65 74 75 72 6e 20 30 3b  ck");..return 0;
5a20: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69  .    }..    dpri
5a30: 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73  ntf("Calling Tls
5a40: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22  _WaitForConnect"
5a50: 29 3b 0a 20 20 20 20 65 72 72 6f 72 43 6f 64 65  );.    errorCode
5a60: 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 54 6c   = 0;.    if (Tl
5a70: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74  s_WaitForConnect
5a80: 28 73 74 61 74 65 50 74 72 2c 20 26 65 72 72 6f  (statePtr, &erro
5a90: 72 43 6f 64 65 2c 20 31 29 20 3c 20 30 29 20 7b  rCode, 1) < 0) {
5aa0: 0a 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74  ..Tls_Error(stat
5ab0: 65 50 74 72 2c 20 73 74 72 65 72 72 6f 72 28 65  ePtr, strerror(e
5ac0: 72 72 6f 72 43 6f 64 65 29 29 3b 0a 09 69 66 20  rrorCode));..if 
5ad0: 28 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41  (errorCode == EA
5ae0: 47 41 49 4e 29 20 7b 0a 09 20 20 20 20 64 70 72  GAIN) {..    dpr
5af0: 69 6e 74 66 28 22 41 73 79 6e 63 20 66 6c 61 67  intf("Async flag
5b00: 20 63 6f 75 6c 64 20 62 65 20 73 65 74 20 28 64   could be set (d
5b10: 69 64 6e 27 74 20 63 68 65 63 6b 29 20 61 6e 64  idn't check) and
5b20: 20 65 72 72 6f 72 43 6f 64 65 20 3d 3d 20 45 41   errorCode == EA
5b30: 47 41 49 4e 3a 20 20 52 65 74 75 72 6e 69 6e 67  GAIN:  Returning
5b40: 20 30 22 29 3b 0a 0a 09 20 20 20 20 72 65 74 75   0");...    retu
5b50: 72 6e 20 30 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e  rn 0;..}...dprin
5b60: 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f 72 43  tf("Tls_WaitForC
5b70: 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 64 20  onnect returned 
5b80: 61 6e 20 65 72 72 6f 72 22 29 3b 0a 20 20 20 20  an error");.    
5b90: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22  }..    dprintf("
5ba0: 52 65 74 75 72 6e 69 6e 67 20 25 69 22 2c 20 6d  Returning %i", m
5bb0: 61 73 6b 29 3b 0a 0a 20 20 20 20 72 65 74 75 72  ask);..    retur
5bc0: 6e 28 6d 61 73 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 20  n(mask);.}../*. 
5bd0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
5be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5c00: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20  -------*. *. *  
5c10: 20 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64    TlsChannelHand
5c20: 6c 65 72 54 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20  lerTimer --. *. 
5c30: 2a 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *    -----------
5c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5c60: 2d 2d 2d 2d 2d 2a 0a 20 2a 20 20 20 20 43 61 6c  -----*. *    Cal
5c70: 6c 65 64 20 62 79 20 74 68 65 20 6e 6f 74 69 66  led by the notif
5c80: 69 65 72 20 28 2d 3e 20 74 69 6d 65 72 29 20 74  ier (-> timer) t
5c90: 6f 20 66 6c 75 73 68 20 6f 75 74 0a 20 2a 20 20  o flush out. *  
5ca0: 20 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 61    information wa
5cb0: 69 74 69 6e 67 20 69 6e 20 63 68 61 6e 6e 65 6c  iting in channel
5cc0: 20 62 75 66 66 65 72 73 2e 0a 20 2a 20 20 20 20   buffers.. *    
5cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5d00: 2a 0a 20 2a 0a 20 2a 20 20 20 20 53 69 64 65 20  *. *. *    Side 
5d10: 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 20  effects:. *     
5d20: 20 20 20 41 73 20 6f 66 20 27 54 6c 73 43 68 61     As of 'TlsCha
5d30: 6e 6e 65 6c 48 61 6e 64 6c 65 72 27 2e 0a 20 2a  nnelHandler'.. *
5d40: 0a 20 2a 20 20 20 20 52 65 73 75 6c 74 3a 0a 20  . *    Result:. 
5d50: 2a 20 20 20 20 20 20 20 20 4e 6f 6e 65 2e 0a 20  *        None.. 
5d60: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
5d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a  ----------*. */.
5da0: 73 74 61 74 69 63 20 76 6f 69 64 20 54 6c 73 43  static void TlsC
5db0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d  hannelHandlerTim
5dc0: 65 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  er(ClientData cl
5dd0: 69 65 6e 74 44 61 74 61 29 20 7b 0a 20 20 20 20  ientData) {.    
5de0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20  State *statePtr 
5df0: 3d 20 28 53 74 61 74 65 20 2a 29 20 63 6c 69 65  = (State *) clie
5e00: 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20  ntData;.    int 
5e10: 6d 61 73 6b 20 3d 20 30 3b 0a 0a 20 20 20 20 64  mask = 0;..    d
5e20: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29  printf("Called")
5e30: 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d  ;..    statePtr-
5e40: 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69  >timer = (Tcl_Ti
5e50: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a  merToken) NULL;.
5e60: 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 77 70 65  .    if (BIO_wpe
5e70: 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e  nding(statePtr->
5e80: 62 69 6f 29 29 20 7b 0a 09 64 70 72 69 6e 74 66  bio)) {..dprintf
5e90: 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 49 4f 20  ("[chan=%p] BIO 
5ea0: 77 72 69 74 61 62 6c 65 22 2c 20 73 74 61 74 65  writable", state
5eb0: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 6d 61  Ptr->self);...ma
5ec0: 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42  sk |= TCL_WRITAB
5ed0: 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69  LE;.    }..    i
5ee0: 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 73  f (BIO_pending(s
5ef0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b  tatePtr->bio)) {
5f00: 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e  ..dprintf("[chan
5f10: 3d 25 70 5d 20 42 49 4f 20 72 65 61 64 61 62 6c  =%p] BIO readabl
5f20: 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65  e", statePtr->se
5f30: 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c 3d 20 54  lf);...mask |= T
5f40: 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 20 20 20  CL_READABLE;.   
5f50: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28   }..    dprintf(
5f60: 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 73 65  "Notifying ourse
5f70: 6c 76 65 73 22 29 3b 0a 20 20 20 20 54 63 6c 5f  lves");.    Tcl_
5f80: 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 74  NotifyChannel(st
5f90: 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d 61  atePtr->self, ma
5fa0: 73 6b 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74  sk);..    dprint
5fb0: 66 28 22 52 65 74 75 72 6e 69 6e 67 22 29 3b 0a  f("Returning");.
5fc0: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a  .    return;.}..
5fd0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 54 6c 73 5f  Tcl_Channel Tls_
5fe0: 47 65 74 50 61 72 65 6e 74 28 53 74 61 74 65 20  GetParent(State 
5ff0: 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 20 6d  *statePtr, int m
6000: 61 73 6b 46 6c 61 67 73 29 20 7b 0a 20 20 20 20  askFlags) {.    
6010: 64 70 72 69 6e 74 66 28 22 52 65 71 75 65 73 74  dprintf("Request
6020: 65 64 20 74 6f 20 67 65 74 20 70 61 72 65 6e 74  ed to get parent
6030: 20 6f 66 20 63 68 61 6e 6e 65 6c 20 25 70 22 2c   of channel %p",
6040: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29   statePtr->self)
6050: 3b 0a 0a 20 20 20 20 69 66 20 28 28 73 74 61 74  ;..    if ((stat
6060: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 7e 6d  ePtr->flags & ~m
6070: 61 73 6b 46 6c 61 67 73 29 20 26 20 54 4c 53 5f  askFlags) & TLS_
6080: 54 43 4c 5f 46 41 53 54 50 41 54 48 29 20 7b 0a  TCL_FASTPATH) {.
6090: 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20  .dprintf("Asked 
60a0: 74 6f 20 67 65 74 20 74 68 65 20 70 61 72 65 6e  to get the paren
60b0: 74 20 63 68 61 6e 6e 65 6c 20 77 68 69 6c 65 20  t channel while 
60c0: 77 65 20 61 72 65 20 75 73 69 6e 67 20 46 61 73  we are using Fas
60d0: 74 50 61 74 68 20 2d 2d 20 72 65 74 75 72 6e 69  tPath -- returni
60e0: 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 72 65 74 75  ng NULL");..retu
60f0: 72 6e 28 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a  rn(NULL);.    }.
6100: 20 20 20 20 72 65 74 75 72 6e 28 54 63 6c 5f 47      return(Tcl_G
6110: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c  etStackedChannel
6120: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29  (statePtr->self)
6130: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  );.}../*. *-----
6140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
6180: 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 6c  *. * Tls_Channel
6190: 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20  Type --. *. *   
61a0: 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 72 72   Return the corr
61b0: 65 63 74 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20  ect TLS channel 
61c0: 64 72 69 76 65 72 20 69 6e 66 6f 0a 20 2a 0a 20  driver info. *. 
61d0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20  * Results:. *   
61e0: 20 54 68 65 20 63 6f 72 72 65 63 74 20 63 68 61   The correct cha
61f0: 6e 6e 65 6c 20 64 72 69 76 65 72 20 66 6f 72 20  nnel driver for 
6200: 74 68 65 20 63 75 72 72 65 6e 74 20 76 65 72 73  the current vers
6210: 69 6f 6e 20 6f 66 20 54 63 6c 2e 0a 20 2a 0a 20  ion of Tcl.. *. 
6220: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
6230: 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20   *    None.. *. 
6240: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
6250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6280: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20  ----. */.static 
6290: 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65  const Tcl_Channe
62a0: 6c 54 79 70 65 20 74 6c 73 43 68 61 6e 6e 65 6c  lType tlsChannel
62b0: 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 74 6c  Type = {.    "tl
62c0: 73 22 2c 09 09 09 2f 2a 20 54 79 70 65 20 6e 61  s",.../* Type na
62d0: 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c 5f 43 48  me */.    TCL_CH
62e0: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c  ANNEL_VERSION_5,
62f0: 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 6c 20 2a  ./* v5 channel *
6300: 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 50 72  /.    TlsClosePr
6310: 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72  oc,../* Close pr
6320: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 49 6e 70  oc */.    TlsInp
6330: 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75  utProc,../* Inpu
6340: 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c  t proc */.    Tl
6350: 73 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a  sOutputProc,../*
6360: 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a   Output proc */.
6370: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53      NULL,.../* S
6380: 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20  eek proc */.    
6390: 54 6c 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63  TlsSetOptionProc
63a0: 2c 09 09 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e  ,../* Set option
63b0: 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73   proc */.    Tls
63c0: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09  GetOptionProc,..
63d0: 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 72  /* Get option pr
63e0: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74  oc */.    TlsWat
63f0: 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74  chProc,../* Init
6400: 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 20  ialize notifier 
6410: 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 48 61 6e  */.    TlsGetHan
6420: 64 6c 65 50 72 6f 63 2c 09 09 2f 2a 20 47 65 74  dleProc,../* Get
6430: 20 4f 53 20 68 61 6e 64 6c 65 73 20 6f 75 74 20   OS handles out 
6440: 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20  of channel */.  
6450: 20 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63 2c    TlsClose2Proc,
6460: 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20  ../* close2proc 
6470: 2a 2f 0a 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d  */.    TlsBlockM
6480: 6f 64 65 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74  odeProc,../* Set
6490: 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f   blocking/nonblo
64a0: 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20  cking mode*/.   
64b0: 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 73   NULL,.../* Flus
64c0: 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c  h proc */.    Tl
64d0: 73 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a  sNotifyProc,../*
64e0: 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65   Handling of eve
64f0: 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 20  nts bubbling up 
6500: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f  */.    NULL,.../
6510: 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f 63  * Wide seek proc
6520: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09   */.    NULL,...
6530: 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f 6e  /* Thread action
6540: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f   */.    NULL.../
6550: 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b  * Truncate */.};
6560: 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70  ..Tcl_ChannelTyp
6570: 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79  e *Tls_ChannelTy
6580: 70 65 28 76 6f 69 64 29 20 7b 0a 20 20 20 20 72  pe(void) {.    r
6590: 65 74 75 72 6e 20 26 74 6c 73 43 68 61 6e 6e 65  eturn &tlsChanne
65a0: 6c 54 79 70 65 3b 0a 7d 0a                       lType;.}.