Artifact e1102d2f2c75fd3a5c6f9d59dc2e2f25540e12eb74e04e7152db36a9dbc81293:

• File generic/tlsIO.c — part of check-in [baec6798d6] at 2024-02-23 11:57:15 on branch nijtmans — Added set option support. Source: https://www.androwish.org/home/info/1af65d23b6962476 (user: jan.nijtmans, size: 25414) [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 0a 2f 2a 0a   "tlsInt.h"../*.
02b0: 20 2a 20 46 6f 72 77 61 72 64 20 64 65 63 6c 61   * Forward decla
02c0: 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a 73 74 61 74  rations. */.stat
02d0: 69 63 20 76 6f 69 64 20 54 6c 73 43 68 61 6e 6e  ic void TlsChann
02e0: 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 28 76  elHandlerTimer(v
02f0: 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 61 29  oid *clientData)
0300: 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  ;../*. *--------
0310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
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 0a 20 2a 0a 20  -----------. *. 
0350: 2a 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72  * TlsBlockModePr
0360: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 54  oc --. *. *    T
0370: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73  his procedure is
0380: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20   invoked by the 
0390: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c  generic IO level
03a0: 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 73 65 74  . *       to set
03b0: 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e 6f   blocking and no
03c0: 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 0a  nblocking modes.
03d0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
03e0: 2a 20 20 20 20 30 20 69 66 20 73 75 63 63 65 73  *    0 if succes
03f0: 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72  sful or POSIX er
0400: 72 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c  ror code if fail
0410: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ed.. *. * Side e
0420: 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 53 65  ffects:. *    Se
0430: 74 73 20 74 68 65 20 64 65 76 69 63 65 20 69 6e  ts the device in
0440: 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e  to blocking or n
0450: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e  onblocking mode.
0460: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
0470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
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 0a 20 2a 2f 0a 73 74  ---------. */.st
04b0: 61 74 69 63 20 69 6e 74 20 54 6c 73 42 6c 6f 63  atic int TlsBloc
04c0: 6b 4d 6f 64 65 50 72 6f 63 28 76 6f 69 64 20 2a  kModeProc(void *
04d0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e  instanceData, in
04e0: 74 20 6d 6f 64 65 29 20 7b 0a 20 20 20 20 53 74  t mode) {.    St
04f0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20  ate *statePtr = 
0500: 28 53 74 61 74 65 20 2a 29 69 6e 73 74 61 6e 63  (State *)instanc
0510: 65 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28  eData;..    if (
0520: 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45  mode == TCL_MODE
0530: 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a  _NONBLOCKING) {.
0540: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73  .statePtr->flags
0550: 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e   |= TLS_TCL_ASYN
0560: 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  C;.    } else {.
0570: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73  .statePtr->flags
0580: 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53   &= ~(TLS_TCL_AS
0590: 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20  YNC);.    }.    
05a0: 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a  return(0);.}../*
05b0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
05c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
05d0: 2d 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 0a 20 2a 0a 20 2a 20 54 6c 73  ------. *. * Tls
0600: 43 6c 6f 73 65 32 50 72 6f 63 20 2d 2d 0a 20 2a  Close2Proc --. *
0610: 0a 20 2a 20 20 20 20 54 68 69 73 20 70 72 6f 63  . *    This proc
0620: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64  edure is invoked
0630: 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20   by the generic 
0640: 49 4f 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 66  IO level to perf
0650: 6f 72 6d 0a 20 2a 20 20 20 20 63 68 61 6e 6e 65  orm. *    channe
0660: 6c 2d 74 79 70 65 2d 73 70 65 63 69 66 69 63 20  l-type-specific 
0670: 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 61 20 53  cleanup when a S
0680: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20  SL socket based 
0690: 63 68 61 6e 6e 65 6c 0a 20 2a 20 20 20 20 69 73  channel. *    is
06a0: 20 63 6c 6f 73 65 64 2e 0a 20 2a 0a 20 2a 20 20   closed.. *. *  
06b0: 20 20 4e 6f 74 65 3a 20 77 65 20 6c 65 61 76 65    Note: we leave
06c0: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20   the underlying 
06d0: 73 6f 63 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 73  socket alone, is
06e0: 20 74 68 69 73 20 72 69 67 68 74 3f 0a 20 2a 0a   this right?. *.
06f0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20   * Results:. *  
0700: 20 20 30 20 69 66 20 73 75 63 63 65 73 73 66 75    0 if successfu
0710: 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72  l or POSIX error
0720: 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e   code if failed.
0730: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
0740: 63 74 73 3a 0a 20 2a 20 20 20 20 43 6c 6f 73 65  cts:. *    Close
0750: 73 20 74 68 65 20 73 6f 63 6b 65 74 20 6f 66 20  s the socket of 
0760: 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a  the channel.. *.
0770: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
0780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
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 0a 20 2a 2f 0a 23 69 66 20 54 43  -----. */.#if TC
07c0: 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20  L_MAJOR_VERSION 
07d0: 3e 20 38 0a 23 20 20 20 64 65 66 69 6e 65 20 54  > 8.#   define T
07e0: 6c 73 43 6c 6f 73 65 50 72 6f 63 20 4e 55 4c 4c  lsCloseProc NULL
07f0: 20 2f 2a 20 4e 6f 20 6c 6f 6e 67 65 72 20 6e 65   /* No longer ne
0800: 63 63 65 73 73 61 72 79 20 69 6e 20 54 63 6c 20  ccessary in Tcl 
0810: 39 20 2a 2f 0a 23 65 6c 73 65 0a 73 74 61 74 69  9 */.#else.stati
0820: 63 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 50 72  c int TlsClosePr
0830: 6f 63 28 0a 20 20 20 20 76 6f 69 64 20 2a 69 6e  oc(.    void *in
0840: 73 74 61 6e 63 65 44 61 74 61 2c 0a 20 20 20 20  stanceData,.    
0850: 54 43 4c 5f 55 4e 55 53 45 44 28 54 63 6c 5f 49  TCL_UNUSED(Tcl_I
0860: 6e 74 65 72 70 20 2a 29 29 0a 7b 0a 20 20 20 20  nterp *)).{.    
0870: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20  State *statePtr 
0880: 3d 20 28 53 74 61 74 65 20 2a 29 69 6e 73 74 61  = (State *)insta
0890: 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 64 70  nceData;..    dp
08a0: 72 69 6e 74 66 28 22 54 6c 73 43 6c 6f 73 65 50  rintf("TlsCloseP
08b0: 72 6f 63 28 25 70 29 22 2c 20 73 74 61 74 65 50  roc(%p)", stateP
08c0: 74 72 29 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c  tr);..    Tls_Cl
08d0: 65 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20  ean(statePtr);. 
08e0: 20 20 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c     Tcl_Eventuall
08f0: 79 46 72 65 65 28 73 74 61 74 65 50 74 72 2c 20  yFree(statePtr, 
0900: 54 6c 73 5f 46 72 65 65 29 3b 0a 20 20 20 20 72  Tls_Free);.    r
0910: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.
0920: 23 65 6e 64 69 66 0a 0a 73 74 61 74 69 63 20 69  #endif..static i
0930: 6e 74 20 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63  nt TlsClose2Proc
0940: 28 0a 20 20 20 20 76 6f 69 64 20 2a 69 6e 73 74  (.    void *inst
0950: 61 6e 63 65 44 61 74 61 2c 20 20 20 20 2f 2a 20  anceData,    /* 
0960: 54 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65  The socket state
0970: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74  . */.    Tcl_Int
0980: 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a  erp *interp,../*
0990: 20 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61   For errors - ca
09a0: 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20  n be NULL. */.  
09b0: 20 20 69 6e 74 20 66 6c 61 67 73 29 09 09 09 2f    int flags).../
09c0: 2a 20 46 6c 61 67 73 20 74 6f 20 63 6c 6f 73 65  * Flags to close
09d0: 20 72 65 61 64 20 61 6e 64 2f 6f 72 20 77 72 69   read and/or wri
09e0: 74 65 20 73 69 64 65 20 6f 66 20 63 68 61 6e 6e  te side of chann
09f0: 65 6c 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74  el */.{.    Stat
0a00: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53  e *statePtr = (S
0a10: 74 61 74 65 20 2a 29 69 6e 73 74 61 6e 63 65 44  tate *)instanceD
0a20: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74  ata;..    dprint
0a30: 66 28 22 54 6c 73 43 6c 6f 73 65 32 50 72 6f 63  f("TlsClose2Proc
0a40: 28 25 70 29 22 2c 20 73 74 61 74 65 50 74 72 29  (%p)", statePtr)
0a50: 3b 0a 0a 20 20 20 20 69 66 20 28 28 66 6c 61 67  ;..    if ((flag
0a60: 73 26 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41  s&(TCL_CLOSE_REA
0a70: 44 7c 54 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54  D|TCL_CLOSE_WRIT
0a80: 45 29 29 29 20 7b 0a 09 72 65 74 75 72 6e 20 45  E))) {..return E
0a90: 49 4e 56 41 4c 3b 0a 20 20 20 20 7d 0a 20 20 20  INVAL;.    }.   
0aa0: 20 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 74 65   Tls_Clean(state
0ab0: 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 45 76  Ptr);.    Tcl_Ev
0ac0: 65 6e 74 75 61 6c 6c 79 46 72 65 65 28 73 74 61  entuallyFree(sta
0ad0: 74 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 65 29  tePtr, Tls_Free)
0ae0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
0af0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d  _OK;.}../*. *---
0b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0b30: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 54 6c 73 5f 57  ---*. *. * Tls_W
0b40: 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 2d 2d  aitForConnect --
0b50: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 3a 0a 20  . *. * Result:. 
0b60: 2a 20 20 20 20 30 20 69 66 20 73 75 63 63 65 73  *    0 if succes
0b70: 73 66 75 6c 2c 20 2d 31 20 69 66 20 66 61 69 6c  sful, -1 if fail
0b80: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ed.. *. * Side e
0b90: 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 49 73  ffects:. *    Is
0ba0: 73 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74 20  sues SSL_accept 
0bb0: 6f 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20  or SSL_connect. 
0bc0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
0bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a  ----------*. */.
0c00: 69 6e 74 20 54 6c 73 5f 57 61 69 74 46 6f 72 43  int Tls_WaitForC
0c10: 6f 6e 6e 65 63 74 28 53 74 61 74 65 20 2a 73 74  onnect(State *st
0c20: 61 74 65 50 74 72 2c 20 69 6e 74 20 2a 65 72 72  atePtr, int *err
0c30: 6f 72 43 6f 64 65 50 74 72 2c 20 69 6e 74 20 68  orCodePtr, int h
0c40: 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 49  andshakeFailureI
0c50: 73 50 65 72 6d 61 6e 65 6e 74 29 20 7b 0a 20 20  sPermanent) {.  
0c60: 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20    unsigned long 
0c70: 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 20 20  backingError;.  
0c80: 20 20 69 6e 74 20 65 72 72 2c 20 72 63 3b 0a 20    int err, rc;. 
0c90: 20 20 20 69 6e 74 20 62 69 6f 53 68 6f 75 6c 64     int bioShould
0ca0: 52 65 74 72 79 3b 0a 0a 20 20 20 20 64 70 72 69  Retry;..    dpri
0cb0: 6e 74 66 28 22 57 61 69 74 46 6f 72 43 6f 6e 6e  ntf("WaitForConn
0cc0: 65 63 74 28 25 70 29 22 2c 20 73 74 61 74 65 50  ect(%p)", stateP
0cd0: 74 72 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 46  tr);.    dprintF
0ce0: 6c 61 67 73 28 73 74 61 74 65 50 74 72 29 3b 0a  lags(statePtr);.
0cf0: 0a 20 20 20 20 69 66 20 28 21 28 73 74 61 74 65  .    if (!(state
0d00: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53  Ptr->flags & TLS
0d10: 5f 54 43 4c 5f 49 4e 49 54 29 29 20 7b 0a 09 64  _TCL_INIT)) {..d
0d20: 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 74  printf("Tls_Wait
0d30: 46 6f 72 43 6f 6e 6e 65 63 74 20 63 61 6c 6c 65  ForConnect calle
0d40: 64 20 6f 6e 20 61 6c 72 65 61 64 79 20 69 6e 69  d on already ini
0d50: 74 69 61 6c 69 7a 65 64 20 63 68 61 6e 6e 65 6c  tialized channel
0d60: 20 2d 2d 20 72 65 74 75 72 6e 69 6e 67 20 77 69   -- returning wi
0d70: 74 68 20 69 6d 6d 65 64 69 61 74 65 20 73 75 63  th immediate suc
0d80: 63 65 73 73 22 29 3b 0a 09 2a 65 72 72 6f 72 43  cess");..*errorC
0d90: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 72 65 74  odePtr = 0;..ret
0da0: 75 72 6e 28 30 29 3b 0a 20 20 20 20 7d 0a 0a 20  urn(0);.    }.. 
0db0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d     if (statePtr-
0dc0: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c  >flags & TLS_TCL
0dd0: 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45  _HANDSHAKE_FAILE
0de0: 44 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 69 66  D) {../*.. * Dif
0df0: 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f 66 20  ferent types of 
0e00: 6f 70 65 72 61 74 69 6f 6e 73 20 68 61 76 65 20  operations have 
0e10: 64 69 66 66 65 72 65 6e 74 20 72 65 71 75 69 72  different requir
0e20: 65 6d 65 6e 74 73 0a 09 20 2a 20 53 53 4c 20 62  ements.. * SSL b
0e30: 65 69 6e 67 20 65 73 74 61 62 6c 69 73 68 65 64  eing established
0e40: 0a 09 20 2a 2f 0a 09 69 66 20 28 68 61 6e 64 73  .. */..if (hands
0e50: 68 61 6b 65 46 61 69 6c 75 72 65 49 73 50 65 72  hakeFailureIsPer
0e60: 6d 61 6e 65 6e 74 29 20 7b 0a 09 20 20 20 20 64  manent) {..    d
0e70: 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f  printf("Asked to
0e80: 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 20   wait for a TLS 
0e90: 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 68  handshake that h
0ea0: 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c 65  as already faile
0eb0: 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 66 61  d.  Returning fa
0ec0: 74 61 6c 20 65 72 72 6f 72 22 29 3b 0a 09 20 20  tal error");..  
0ed0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20    *errorCodePtr 
0ee0: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a  = ECONNABORTED;.
0ef0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64  .} else {..    d
0f00: 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f  printf("Asked to
0f10: 20 77 61 69 74 20 66 6f 72 20 61 20 54 4c 53 20   wait for a TLS 
0f20: 68 61 6e 64 73 68 61 6b 65 20 74 68 61 74 20 68  handshake that h
0f30: 61 73 20 61 6c 72 65 61 64 79 20 66 61 69 6c 65  as already faile
0f40: 64 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 73 6f  d.  Returning so
0f50: 66 74 20 65 72 72 6f 72 22 29 3b 0a 09 20 20 20  ft error");..   
0f60: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d   *errorCodePtr =
0f70: 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 7d 0a   ECONNRESET;..}.
0f80: 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 20 20 20  .return(-1);.   
0f90: 20 7d 0a 0a 20 20 20 20 66 6f 72 20 28 3b 3b 29   }..    for (;;)
0fa0: 20 7b 0a 09 2f 2a 20 4e 6f 74 20 69 6e 69 74 69   {../* Not initi
0fb0: 61 6c 69 7a 65 64 20 79 65 74 21 20 2a 2f 0a 09  alized yet! */..
0fc0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c  if (statePtr->fl
0fd0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45  ags & TLS_TCL_SE
0fe0: 52 56 45 52 29 20 7b 0a 09 20 20 20 20 64 70 72  RVER) {..    dpr
0ff0: 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 53  intf("Calling SS
1000: 4c 5f 61 63 63 65 70 74 28 29 22 29 3b 0a 09 20  L_accept()");.. 
1010: 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 61 63 63     err = SSL_acc
1020: 65 70 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73  ept(statePtr->ss
1030: 6c 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20  l);..} else {.. 
1040: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c     dprintf("Call
1050: 69 6e 67 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 28  ing SSL_connect(
1060: 29 22 29 3b 0a 09 20 20 20 20 65 72 72 20 3d 20  )");..    err = 
1070: 53 53 4c 5f 63 6f 6e 6e 65 63 74 28 73 74 61 74  SSL_connect(stat
1080: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 7d 0a 0a  ePtr->ssl);..}..
1090: 09 69 66 20 28 65 72 72 20 3e 20 30 29 20 7b 0a  .if (err > 0) {.
10a0: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 54 68  .    dprintf("Th
10b0: 61 74 20 73 65 65 6d 73 20 74 6f 20 68 61 76 65  at seems to have
10c0: 20 67 6f 6e 65 20 6f 6b 61 79 22 29 3b 0a 0a 09   gone okay");...
10d0: 20 20 20 20 65 72 72 20 3d 20 42 49 4f 5f 66 6c      err = BIO_fl
10e0: 75 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69  ush(statePtr->bi
10f0: 6f 29 3b 0a 09 20 20 20 20 69 66 20 28 65 72 72  o);..    if (err
1100: 20 3c 3d 20 30 29 20 7b 0a 09 09 64 70 72 69 6e   <= 0) {...dprin
1110: 74 66 28 22 46 6c 75 73 68 69 6e 67 20 74 68 65  tf("Flushing the
1120: 20 6c 6f 77 65 72 20 6c 61 79 65 72 73 20 66 61   lower layers fa
1130: 69 6c 65 64 2c 20 74 68 69 73 20 77 69 6c 6c 20  iled, this will 
1140: 70 72 6f 62 61 62 6c 79 20 74 65 72 6d 69 6e 61  probably termina
1150: 74 65 20 74 68 69 73 20 73 65 73 73 69 6f 6e 22  te this session"
1160: 29 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 72  );..    }..}...r
1170: 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f  c = SSL_get_erro
1180: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c  r(statePtr->ssl,
1190: 20 65 72 72 29 3b 0a 0a 09 64 70 72 69 6e 74 66   err);...dprintf
11a0: 28 22 47 6f 74 20 65 72 72 6f 72 3a 20 25 69 20  ("Got error: %i 
11b0: 28 72 63 20 3d 20 25 69 29 22 2c 20 65 72 72 2c  (rc = %i)", err,
11c0: 20 72 63 29 3b 0a 0a 09 62 69 6f 53 68 6f 75 6c   rc);...bioShoul
11d0: 64 52 65 74 72 79 20 3d 20 30 3b 0a 09 69 66 20  dRetry = 0;..if 
11e0: 28 65 72 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20  (err <= 0) {..  
11f0: 20 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f    if (rc == SSL_
1200: 45 52 52 4f 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45  ERROR_WANT_CONNE
1210: 43 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f  CT || rc == SSL_
1220: 45 52 52 4f 52 5f 57 41 4e 54 5f 41 43 43 45 50  ERROR_WANT_ACCEP
1230: 54 20 7c 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45  T || rc == SSL_E
1240: 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 20 7c  RROR_WANT_READ |
1250: 7c 20 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f  | rc == SSL_ERRO
1260: 52 5f 57 41 4e 54 5f 57 52 49 54 45 29 20 7b 0a  R_WANT_WRITE) {.
1270: 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79  ..bioShouldRetry
1280: 20 3d 20 31 3b 0a 09 20 20 20 20 7d 20 65 6c 73   = 1;..    } els
1290: 65 20 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64  e if (BIO_should
12a0: 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 2d  _retry(statePtr-
12b0: 3e 62 69 6f 29 29 20 7b 0a 09 09 62 69 6f 53 68  >bio)) {...bioSh
12c0: 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a 09  ouldRetry = 1;..
12d0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72      } else if (r
12e0: 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 53  c == SSL_ERROR_S
12f0: 59 53 43 41 4c 4c 20 26 26 20 54 63 6c 5f 47 65  YSCALL && Tcl_Ge
1300: 74 45 72 72 6e 6f 28 29 20 3d 3d 20 45 41 47 41  tErrno() == EAGA
1310: 49 4e 29 20 7b 0a 09 09 62 69 6f 53 68 6f 75 6c  IN) {...bioShoul
1320: 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 20 20 20  dRetry = 1;..   
1330: 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20   }..} else {..  
1340: 20 20 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e    if (!SSL_is_in
1350: 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74  it_finished(stat
1360: 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 09  ePtr->ssl)) {...
1370: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d  bioShouldRetry =
1380: 20 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09   1;..    }..}...
1390: 69 66 20 28 62 69 6f 53 68 6f 75 6c 64 52 65 74  if (bioShouldRet
13a0: 72 79 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e  ry) {..    dprin
13b0: 74 66 28 22 54 68 65 20 49 2f 4f 20 64 69 64 20  tf("The I/O did 
13c0: 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 20 2d 2d 20  not complete -- 
13d0: 62 75 74 20 77 65 20 73 68 6f 75 6c 64 20 74 72  but we should tr
13e0: 79 20 69 74 20 61 67 61 69 6e 22 29 3b 0a 0a 09  y it again");...
13f0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72      if (statePtr
1400: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43  ->flags & TLS_TC
1410: 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 09 64 70 72  L_ASYNC) {...dpr
1420: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20  intf("Returning 
1430: 45 41 47 41 49 4e 20 73 6f 20 74 68 61 74 20 69  EAGAIN so that i
1440: 74 20 63 61 6e 20 62 65 20 72 65 74 72 69 65 64  t can be retried
1450: 20 6c 61 74 65 72 22 29 3b 0a 09 09 2a 65 72 72   later");...*err
1460: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41  orCodePtr = EAGA
1470: 49 4e 3b 0a 09 09 72 65 74 75 72 6e 28 2d 31 29  IN;...return(-1)
1480: 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  ;..    } else {.
1490: 09 09 64 70 72 69 6e 74 66 28 22 44 6f 69 6e 67  ..dprintf("Doing
14a0: 20 73 6f 20 6e 6f 77 22 29 3b 0a 09 09 63 6f 6e   so now");...con
14b0: 74 69 6e 75 65 3b 0a 09 20 20 20 20 7d 0a 09 7d  tinue;..    }..}
14c0: 0a 0a 09 64 70 72 69 6e 74 66 28 22 57 65 20 68  ...dprintf("We h
14d0: 61 76 65 20 65 69 74 68 65 72 20 63 6f 6d 70 6c  ave either compl
14e0: 65 74 65 6c 79 20 65 73 74 61 62 6c 69 73 68 65  etely establishe
14f0: 64 20 74 68 65 20 73 65 73 73 69 6f 6e 20 6f 72  d the session or
1500: 20 63 6f 6d 70 6c 65 74 65 6c 79 20 66 61 69 6c   completely fail
1510: 65 64 20 69 74 20 2d 2d 20 74 68 65 72 65 20 69  ed it -- there i
1520: 73 20 6e 6f 20 6d 6f 72 65 20 6e 65 65 64 20 74  s no more need t
1530: 6f 20 65 76 65 72 20 72 65 74 72 79 20 69 74 20  o ever retry it 
1540: 74 68 6f 75 67 68 22 29 3b 0a 09 62 72 65 61 6b  though");..break
1550: 3b 0a 20 20 20 20 7d 0a 0a 0a 20 20 20 20 2a 65  ;.    }...    *e
1560: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49  rrorCodePtr = EI
1570: 4e 56 41 4c 3b 0a 0a 20 20 20 20 73 77 69 74 63  NVAL;..    switc
1580: 68 20 28 72 63 29 20 7b 0a 09 63 61 73 65 20 53  h (rc) {..case S
1590: 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09  SL_ERROR_NONE:..
15a0: 20 20 20 20 2f 2a 20 54 68 65 20 63 6f 6e 6e 65      /* The conne
15b0: 63 74 69 6f 6e 20 69 73 20 75 70 2c 20 77 65 20  ction is up, we 
15c0: 61 72 65 20 64 6f 6e 65 20 68 65 72 65 20 2a 2f  are done here */
15d0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 54  ..    dprintf("T
15e0: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73  he connection is
15f0: 20 75 70 22 29 3b 0a 09 20 20 20 20 62 72 65 61   up");..    brea
1600: 6b 3b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52  k;..case SSL_ERR
1610: 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a  OR_ZERO_RETURN:.
1620: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 53 53  .    dprintf("SS
1630: 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54  L_ERROR_ZERO_RET
1640: 55 52 4e 3a 20 43 6f 6e 6e 65 63 74 20 72 65 74  URN: Connect ret
1650: 75 72 6e 65 64 20 61 6e 20 69 6e 76 61 6c 69 64  urned an invalid
1660: 20 76 61 6c 75 65 2e 2e 2e 22 29 0a 09 20 20 20   value...")..   
1670: 20 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 63 61   return(-1);..ca
1680: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53  se SSL_ERROR_SYS
1690: 43 41 4c 4c 3a 0a 09 20 20 20 20 62 61 63 6b 69  CALL:..    backi
16a0: 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67 65  ngError = ERR_ge
16b0: 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 20 20 20  t_error();...   
16c0: 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f   if (backingErro
16d0: 72 20 3d 3d 20 30 20 26 26 20 65 72 72 20 3d 3d  r == 0 && err ==
16e0: 20 30 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28   0) {...dprintf(
16f0: 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09  "EOF reached")..
1700: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d  .*errorCodePtr =
1710: 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 20 20   ECONNRESET;..  
1720: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 62 61 63    } else if (bac
1730: 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26  kingError == 0 &
1740: 26 20 65 72 72 20 3d 3d 20 2d 31 29 20 7b 0a 09  & err == -1) {..
1750: 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72  .dprintf("I/O er
1760: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72  ror occurred (er
1770: 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e  rno = %lu)", (un
1780: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c  signed long) Tcl
1790: 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09  _GetErrno());...
17a0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20  *errorCodePtr = 
17b0: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a  Tcl_GetErrno();.
17c0: 09 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65  ..if (*errorCode
17d0: 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45  Ptr == ECONNRESE
17e0: 54 29 20 7b 0a 09 09 20 20 20 20 2a 65 72 72 6f  T) {...    *erro
17f0: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e  rCodePtr = ECONN
1800: 41 42 4f 52 54 45 44 3b 0a 09 09 7d 0a 09 20 20  ABORTED;...}..  
1810: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64 70 72    } else {...dpr
1820: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20  intf("I/O error 
1830: 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b 69 6e  occurred (backin
1840: 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20  gError = %lu)", 
1850: 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09  backingError);..
1860: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d  .*errorCodePtr =
1870: 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 09   backingError;..
1880: 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50  .if (*errorCodeP
1890: 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54  tr == ECONNRESET
18a0: 29 20 7b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72  ) {...    *error
18b0: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41  CodePtr = ECONNA
18c0: 42 4f 52 54 45 44 3b 0a 09 09 7d 0a 09 09 7d 0a  BORTED;...}...}.
18d0: 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61  ...statePtr->fla
18e0: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41  gs |= TLS_TCL_HA
18f0: 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a  NDSHAKE_FAILED;.
1900: 09 09 72 65 74 75 72 6e 20 2d 31 3b 0a 09 63 61  ..return -1;..ca
1910: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c  se SSL_ERROR_SSL
1920: 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22  :..    dprintf("
1930: 47 6f 74 20 70 65 72 6d 61 6e 65 6e 74 20 66 61  Got permanent fa
1940: 74 61 6c 20 53 53 4c 20 65 72 72 6f 72 2c 20 61  tal SSL error, a
1950: 62 6f 72 74 69 6e 67 20 69 6d 6d 65 64 69 61 74  borting immediat
1960: 65 6c 79 22 29 3b 0a 09 09 54 6c 73 5f 45 72 72  ely");...Tls_Err
1970: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 68  or(statePtr, (ch
1980: 61 72 20 2a 29 45 52 52 5f 72 65 61 73 6f 6e 5f  ar *)ERR_reason_
1990: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 45 52 52  error_string(ERR
19a0: 5f 67 65 74 5f 65 72 72 6f 72 28 29 29 29 3b 0a  _get_error()));.
19b0: 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66  .    statePtr->f
19c0: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f  lags |= TLS_TCL_
19d0: 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44  HANDSHAKE_FAILED
19e0: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64  ;..    *errorCod
19f0: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52  ePtr = ECONNABOR
1a00: 54 45 44 3b 0a 09 20 20 20 20 72 65 74 75 72 6e  TED;..    return
1a10: 28 2d 31 29 3b 0a 09 64 65 66 61 75 6c 74 3a 0a  (-1);..default:.
1a20: 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 57 65  .    dprintf("We
1a30: 20 67 6f 74 20 61 20 63 6f 6e 66 75 73 69 6e 67   got a confusing
1a40: 20 72 65 70 6c 79 3a 20 25 69 22 2c 20 72 63 29   reply: %i", rc)
1a50: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64  ;..    *errorCod
1a60: 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72  ePtr = Tcl_GetEr
1a70: 72 6e 6f 28 29 3b 0a 09 20 20 20 20 64 70 72 69  rno();..    dpri
1a80: 6e 74 66 28 22 45 52 52 28 25 64 2c 20 25 64 29  ntf("ERR(%d, %d)
1a90: 20 22 2c 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f   ", rc, *errorCo
1aa0: 64 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74  dePtr);..    ret
1ab0: 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 0a 23  urn -1;.    }..#
1ac0: 69 66 20 30 0a 20 20 20 20 69 66 20 28 73 74 61  if 0.    if (sta
1ad0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54  tePtr->flags & T
1ae0: 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b  LS_TCL_SERVER) {
1af0: 0a 09 64 70 72 69 6e 74 66 28 22 54 68 69 73 20  ..dprintf("This 
1b00: 69 73 20 61 6e 20 54 4c 53 20 73 65 72 76 65 72  is an TLS server
1b10: 2c 20 63 68 65 63 6b 69 6e 67 20 74 68 65 20 63  , checking the c
1b20: 65 72 74 69 66 69 63 61 74 65 20 66 6f 72 20 74  ertificate for t
1b30: 68 65 20 70 65 65 72 22 29 3b 0a 0a 09 65 72 72  he peer");...err
1b40: 20 3d 20 53 53 4c 5f 67 65 74 5f 76 65 72 69 66   = SSL_get_verif
1b50: 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 74  y_result(statePt
1b60: 72 2d 3e 73 73 6c 29 3b 0a 09 69 66 20 28 65 72  r->ssl);..if (er
1b70: 72 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20  r != X509_V_OK) 
1b80: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 49 6e 76  {...dprintf("Inv
1b90: 61 6c 69 64 20 63 65 72 74 69 66 69 63 61 74 65  alid certificate
1ba0: 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66  , returning in f
1bb0: 61 69 6c 75 72 65 22 29 3b 0a 0a 09 09 54 6c 73  ailure");....Tls
1bc0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c  _Error(statePtr,
1bd0: 20 28 63 68 61 72 20 2a 29 58 35 30 39 5f 76 65   (char *)X509_ve
1be0: 72 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f  rify_cert_error_
1bf0: 73 74 72 69 6e 67 28 65 72 72 29 29 3b 0a 09 09  string(err));...
1c00: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20  statePtr->flags 
1c10: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53  |= TLS_TCL_HANDS
1c20: 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 09 09 2a  HAKE_FAILED;...*
1c30: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45  errorCodePtr = E
1c40: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 72  CONNABORTED;...r
1c50: 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 20 20  eturn(-1);..}.  
1c60: 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20    }.#endif..    
1c70: 64 70 72 69 6e 74 66 28 22 52 65 6d 6f 76 69 6e  dprintf("Removin
1c80: 67 20 74 68 65 20 5c 22 54 4c 53 5f 54 43 4c 5f  g the \"TLS_TCL_
1c90: 49 4e 49 54 5c 22 20 66 6c 61 67 20 73 69 6e 63  INIT\" flag sinc
1ca0: 65 20 77 65 20 68 61 76 65 20 63 6f 6d 70 6c 65  e we have comple
1cb0: 74 65 64 20 74 68 65 20 68 61 6e 64 73 68 61 6b  ted the handshak
1cc0: 65 22 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74  e");.    statePt
1cd0: 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 54 4c 53  r->flags &= ~TLS
1ce0: 5f 54 43 4c 5f 49 4e 49 54 3b 0a 0a 20 20 20 20  _TCL_INIT;..    
1cf0: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69  dprintf("Returni
1d00: 6e 67 20 69 6e 20 73 75 63 63 65 73 73 22 29 3b  ng in success");
1d10: 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50  .    *errorCodeP
1d20: 74 72 20 3d 20 30 3b 0a 20 20 20 20 72 65 74 75  tr = 0;.    retu
1d30: 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d  rn 0;.}../*. *--
1d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d80: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 49 6e 70 75 74  -. *. * TlsInput
1d90: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20  Proc --. *. *   
1da0: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
1db0: 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68  is invoked by th
1dc0: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76  e generic IO lev
1dd0: 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 72  el. *       to r
1de0: 65 61 64 20 69 6e 70 75 74 20 66 72 6f 6d 20 61  ead input from a
1df0: 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65   SSL socket base
1e00: 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a  d channel.. *. *
1e10: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20   Results:. *    
1e20: 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62  Returns the numb
1e30: 65 72 20 6f 66 20 62 79 74 65 73 20 72 65 61 64  er of bytes read
1e40: 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e   or -1 on error.
1e50: 20 53 65 74 73 20 65 72 72 6f 72 43 6f 64 65 50   Sets errorCodeP
1e60: 74 72 0a 20 2a 20 20 20 20 74 6f 20 61 20 50 4f  tr. *    to a PO
1e70: 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69  SIX error code i
1e80: 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72  f an error occur
1e90: 72 65 64 2c 20 6f 72 20 30 20 69 66 20 6e 6f 6e  red, or 0 if non
1ea0: 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  e.. *. * Side ef
1eb0: 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 52 65 61  fects:. *    Rea
1ec0: 64 73 20 69 6e 70 75 74 20 66 72 6f 6d 20 74 68  ds input from th
1ed0: 65 20 69 6e 70 75 74 20 64 65 76 69 63 65 20 6f  e input device o
1ee0: 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20  f the channel.. 
1ef0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
1f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f30: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61  -------. */..sta
1f40: 74 69 63 20 69 6e 74 20 54 6c 73 49 6e 70 75 74  tic int TlsInput
1f50: 50 72 6f 63 28 0a 20 20 20 20 76 6f 69 64 20 2a  Proc(.    void *
1f60: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 20 20  instanceData,.  
1f70: 20 20 63 68 61 72 20 2a 62 75 66 2c 0a 20 20 20    char *buf,.   
1f80: 20 69 6e 74 20 62 75 66 53 69 7a 65 2c 0a 20 20   int bufSize,.  
1f90: 20 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65    int *errorCode
1fa0: 50 74 72 29 0a 7b 0a 20 20 20 20 75 6e 73 69 67  Ptr).{.    unsig
1fb0: 6e 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67  ned long backing
1fc0: 45 72 72 6f 72 3b 0a 20 20 20 20 53 74 61 74 65  Error;.    State
1fd0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74   *statePtr = (St
1fe0: 61 74 65 20 2a 29 69 6e 73 74 61 6e 63 65 44 61  ate *)instanceDa
1ff0: 74 61 3b 0a 20 20 20 20 69 6e 74 20 62 79 74 65  ta;.    int byte
2000: 73 52 65 61 64 3b 0a 20 20 20 20 69 6e 74 20 74  sRead;.    int t
2010: 6c 73 43 6f 6e 6e 65 63 74 3b 0a 20 20 20 20 69  lsConnect;.    i
2020: 6e 74 20 65 72 72 3b 0a 0a 20 20 20 20 2a 65 72  nt err;..    *er
2030: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a  rorCodePtr = 0;.
2040: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49  .    dprintf("BI
2050: 4f 5f 72 65 61 64 28 25 64 29 22 2c 20 62 75 66  O_read(%d)", buf
2060: 53 69 7a 65 29 3b 0a 0a 20 20 20 20 69 66 20 28  Size);..    if (
2070: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20  statePtr->flags 
2080: 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41  & TLS_TCL_CALLBA
2090: 43 4b 29 20 7b 0a 09 2f 2a 20 64 6f 6e 27 74 20  CK) {../* don't 
20a0: 70 72 6f 63 65 73 73 20 61 6e 79 20 62 79 74 65  process any byte
20b0: 73 20 77 68 69 6c 65 20 76 65 72 69 66 79 20 63  s while verify c
20c0: 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e 69  allback is runni
20d0: 6e 67 20 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22  ng */..dprintf("
20e0: 43 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e  Callback is runn
20f0: 69 6e 67 2c 20 72 65 61 64 69 6e 67 20 30 20 62  ing, reading 0 b
2100: 79 74 65 73 22 29 3b 0a 09 72 65 74 75 72 6e 28  ytes");..return(
2110: 30 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64  0);.    }..    d
2120: 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20  printf("Calling 
2130: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65  Tls_WaitForConne
2140: 63 74 22 29 3b 0a 20 20 20 20 74 6c 73 43 6f 6e  ct");.    tlsCon
2150: 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 46  nect = Tls_WaitF
2160: 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50  orConnect(stateP
2170: 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 72  tr, errorCodePtr
2180: 2c 20 30 29 3b 0a 20 20 20 20 69 66 20 28 74 6c  , 0);.    if (tl
2190: 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b 0a  sConnect < 0) {.
21a0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e  .dprintf("Got an
21b0: 20 65 72 72 6f 72 20 77 61 69 74 69 6e 67 20 74   error waiting t
21c0: 6f 20 63 6f 6e 6e 65 63 74 20 28 74 6c 73 43 6f  o connect (tlsCo
21d0: 6e 6e 65 63 74 20 3d 20 25 69 2c 20 2a 65 72 72  nnect = %i, *err
21e0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 25 69 29 22  orCodePtr = %i)"
21f0: 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a 65  , tlsConnect, *e
2200: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 0a 09  rrorCodePtr);...
2210: 62 79 74 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a  bytesRead = -1;.
2220: 09 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50  .if (*errorCodeP
2230: 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54  tr == ECONNRESET
2240: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66  ) {..    dprintf
2250: 28 22 47 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e  ("Got connection
2260: 20 72 65 73 65 74 22 29 3b 0a 09 20 20 20 20 2f   reset");..    /
2270: 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 20  * Soft EOF */.. 
2280: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72     *errorCodePtr
2290: 20 3d 20 30 3b 0a 09 20 20 20 20 62 79 74 65 73   = 0;..    bytes
22a0: 52 65 61 64 20 3d 20 30 3b 0a 09 7d 0a 09 72 65  Read = 0;..}..re
22b0: 74 75 72 6e 28 62 79 74 65 73 52 65 61 64 29 3b  turn(bytesRead);
22c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20  .    }..    /*. 
22d0: 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f      * We need to
22e0: 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65   clear the SSL e
22f0: 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62  rror stack now b
2300: 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69  ecause we someti
2310: 6d 65 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a  mes reach.     *
2320: 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77   this function w
2330: 69 74 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72  ith leftover err
2340: 6f 72 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b  ors in the stack
2350: 2e 20 20 49 66 20 42 49 4f 5f 72 65 61 64 0a 20  .  If BIO_read. 
2360: 20 20 20 20 2a 20 72 65 74 75 72 6e 73 20 2d 31      * returns -1
2370: 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 47   and intends EAG
2380: 41 49 4e 2c 20 74 68 65 72 65 20 69 73 20 61 20  AIN, there is a 
2390: 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 2c 20  leftover error, 
23a0: 69 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20  it will be.     
23b0: 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61  * misconstrued a
23c0: 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20  s an error, not 
23d0: 45 41 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a 20  EAGAIN..     *. 
23e0: 20 20 20 20 2a 20 41 6c 74 65 72 6e 61 74 69 76      * Alternativ
23f0: 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74  ely, we may want
2400: 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c   to handle the <
2410: 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66  0 return codes f
2420: 72 6f 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f 72  rom.     * BIO_r
2430: 65 61 64 20 73 70 65 63 69 61 6c 6c 79 20 28 61  ead specially (a
2440: 73 20 61 64 76 69 73 65 64 20 69 6e 20 74 68 65  s advised in the
2450: 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53   RSA docs).  TLS
2460: 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c 20 42  's lower level B
2470: 49 4f 0a 20 20 20 20 20 2a 20 66 75 6e 63 74 69  IO.     * functi
2480: 6f 6e 73 20 70 6c 61 79 20 77 69 74 68 20 74 68  ons play with th
2490: 65 20 72 65 74 72 79 20 66 6c 61 67 73 20 74 68  e retry flags th
24a0: 6f 75 67 68 2c 20 61 6e 64 20 74 68 69 73 20 73  ough, and this s
24b0: 65 65 6d 73 20 74 6f 20 77 6f 72 6b 0a 20 20 20  eems to work.   
24c0: 20 20 2a 20 63 6f 72 72 65 63 74 6c 79 2e 20 20    * correctly.  
24d0: 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 54  Similar fix in T
24e0: 6c 73 4f 75 74 70 75 74 50 72 6f 63 2e 20 2d 20  lsOutputProc. - 
24f0: 68 6f 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20 20  hobbs.     */.  
2500: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f    ERR_clear_erro
2510: 72 28 29 3b 0a 20 20 20 20 62 79 74 65 73 52 65  r();.    bytesRe
2520: 61 64 20 3d 20 42 49 4f 5f 72 65 61 64 28 73 74  ad = BIO_read(st
2530: 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66  atePtr->bio, buf
2540: 2c 20 62 75 66 53 69 7a 65 29 3b 0a 20 20 20 20  , bufSize);.    
2550: 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 72 65 61  dprintf("BIO_rea
2560: 64 20 2d 3e 20 25 64 22 2c 20 62 79 74 65 73 52  d -> %d", bytesR
2570: 65 61 64 29 3b 0a 0a 20 20 20 20 65 72 72 20 3d  ead);..    err =
2580: 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73   SSL_get_error(s
2590: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 62 79  tatePtr->ssl, by
25a0: 74 65 73 52 65 61 64 29 3b 0a 0a 23 69 66 20 30  tesRead);..#if 0
25b0: 0a 20 20 20 20 69 66 20 28 62 79 74 65 73 52 65  .    if (bytesRe
25c0: 61 64 20 3c 3d 20 30 29 20 7b 0a 09 69 66 20 28  ad <= 0) {..if (
25d0: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79  BIO_should_retry
25e0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29  (statePtr->bio))
25f0: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28   {..    dprintf(
2600: 22 49 2f 4f 20 66 61 69 6c 65 64 2c 20 77 69 6c  "I/O failed, wil
2610: 6c 20 72 65 74 72 79 20 62 61 73 65 64 20 6f 6e  l retry based on
2620: 20 45 41 47 41 49 4e 22 29 3b 0a 09 20 20 20 20   EAGAIN");..    
2630: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20  *errorCodePtr = 
2640: 45 41 47 41 49 4e 3b 0a 09 7d 0a 20 20 20 20 7d  EAGAIN;..}.    }
2650: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 73 77 69  .#endif..    swi
2660: 74 63 68 20 28 65 72 72 29 20 7b 0a 09 63 61 73  tch (err) {..cas
2670: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45  e SSL_ERROR_NONE
2680: 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 42 75 66  :..    dprintBuf
2690: 66 65 72 28 62 75 66 2c 20 62 79 74 65 73 52 65  fer(buf, bytesRe
26a0: 61 64 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b  ad);..    break;
26b0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52  ..case SSL_ERROR
26c0: 5f 53 53 4c 3a 0a 09 20 20 20 20 64 70 72 69 6e  _SSL:..    dprin
26d0: 74 66 28 22 53 53 4c 20 6e 65 67 6f 74 69 61 74  tf("SSL negotiat
26e0: 69 6f 6e 20 65 72 72 6f 72 2c 20 69 6e 64 69 63  ion error, indic
26f0: 61 74 69 6e 67 20 74 68 61 74 20 74 68 65 20 63  ating that the c
2700: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 62 65  onnection has be
2710: 65 6e 20 61 62 6f 72 74 65 64 22 29 3b 0a 0a 09  en aborted");...
2720: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74      Tls_Error(st
2730: 61 74 65 50 74 72 2c 20 54 43 4c 54 4c 53 5f 53  atePtr, TCLTLS_S
2740: 53 4c 5f 45 52 52 4f 52 28 73 74 61 74 65 50 74  SL_ERROR(statePt
2750: 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61  r->ssl, bytesRea
2760: 64 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72  d));..    *error
2770: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41  CodePtr = ECONNA
2780: 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 62 79 74  BORTED;..    byt
2790: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 0a 09 20  esRead = -1;... 
27a0: 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20     break;..case 
27b0: 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c  SSL_ERROR_SYSCAL
27c0: 4c 3a 0a 09 09 62 61 63 6b 69 6e 67 45 72 72 6f  L:...backingErro
27d0: 72 20 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f  r = ERR_get_erro
27e0: 72 28 29 3b 0a 0a 09 09 69 66 20 28 62 61 63 6b  r();....if (back
27f0: 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26  ingError == 0 &&
2800: 20 62 79 74 65 73 52 65 61 64 20 3d 3d 20 30 29   bytesRead == 0)
2810: 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22   {.....dprintf("
2820: 45 4f 46 20 72 65 61 63 68 65 64 22 29 0a 09 09  EOF reached")...
2830: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20  ..*errorCodePtr 
2840: 3d 20 30 3b 0a 09 09 09 09 62 79 74 65 73 52 65  = 0;.....bytesRe
2850: 61 64 20 3d 20 30 3b 0a 09 09 7d 20 65 6c 73 65  ad = 0;...} else
2860: 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f   if (backingErro
2870: 72 20 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52  r == 0 && bytesR
2880: 65 61 64 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 09  ead == -1) {....
2890: 09 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72  .dprintf("I/O er
28a0: 72 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72  ror occurred (er
28b0: 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e  rno = %lu)", (un
28c0: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c  signed long) Tcl
28d0: 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09  _GetErrno());...
28e0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20  ..*errorCodePtr 
28f0: 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29  = Tcl_GetErrno()
2900: 3b 0a 09 09 09 09 62 79 74 65 73 52 65 61 64 20  ;.....bytesRead 
2910: 3d 20 2d 31 3b 0a 09 09 7d 20 65 6c 73 65 20 7b  = -1;...} else {
2920: 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 49 2f  .....dprintf("I/
2930: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64  O error occurred
2940: 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d   (backingError =
2950: 20 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 45   %lu)", backingE
2960: 72 72 6f 72 29 3b 0a 09 09 09 09 2a 65 72 72 6f  rror);.....*erro
2970: 72 43 6f 64 65 50 74 72 20 3d 20 62 61 63 6b 69  rCodePtr = backi
2980: 6e 67 45 72 72 6f 72 3b 0a 09 09 09 09 62 79 74  ngError;.....byt
2990: 65 73 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 7d  esRead = -1;...}
29a0: 0a 0a 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73  ....break;...cas
29b0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f  e SSL_ERROR_ZERO
29c0: 5f 52 45 54 55 52 4e 3a 0a 09 09 09 64 70 72 69  _RETURN:....dpri
29d0: 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52  ntf("Got SSL_ERR
29e0: 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 2c 20  OR_ZERO_RETURN, 
29f0: 74 68 69 73 20 6d 65 61 6e 73 20 61 6e 20 45 4f  this means an EO
2a00: 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 63 68  F has been reach
2a10: 65 64 22 29 3b 0a 09 09 09 62 79 74 65 73 52 65  ed");....bytesRe
2a20: 61 64 20 3d 20 30 3b 0a 09 09 09 2a 65 72 72 6f  ad = 0;....*erro
2a30: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09  rCodePtr = 0;...
2a40: 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 53  .break;...case S
2a50: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45  SL_ERROR_WANT_RE
2a60: 41 44 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22  AD:....dprintf("
2a70: 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41  Got SSL_ERROR_WA
2a80: 4e 54 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e 67  NT_READ, mapping
2a90: 20 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22   this to EAGAIN"
2aa0: 29 3b 0a 09 09 09 62 79 74 65 73 52 65 61 64 20  );....bytesRead 
2ab0: 3d 20 2d 31 3b 0a 09 09 09 2a 65 72 72 6f 72 43  = -1;....*errorC
2ac0: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b  odePtr = EAGAIN;
2ad0: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 64 65 66  ....break;...def
2ae0: 61 75 6c 74 3a 0a 09 09 09 64 70 72 69 6e 74 66  ault:....dprintf
2af0: 28 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 20  ("Unknown error 
2b00: 28 65 72 72 20 3d 20 25 69 29 2c 20 6d 61 70 70  (err = %i), mapp
2b10: 69 6e 67 20 74 6f 20 45 4f 46 22 2c 20 65 72 72  ing to EOF", err
2b20: 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50  );...*errorCodeP
2b30: 74 72 20 3d 20 30 3b 0a 09 09 62 79 74 65 73 52  tr = 0;...bytesR
2b40: 65 61 64 20 3d 20 30 3b 0a 09 09 62 72 65 61 6b  ead = 0;...break
2b50: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72  ;.    }..    dpr
2b60: 69 6e 74 66 28 22 49 6e 70 75 74 28 25 64 29 20  intf("Input(%d) 
2b70: 2d 3e 20 25 64 20 5b 25 64 5d 22 2c 20 62 75 66  -> %d [%d]", buf
2b80: 53 69 7a 65 2c 20 62 79 74 65 73 52 65 61 64 2c  Size, bytesRead,
2b90: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b   *errorCodePtr);
2ba0: 0a 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 65  .    return byte
2bb0: 73 52 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d  sRead;.}../*. *-
2bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2c00: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f 75 74 70  --. *. * TlsOutp
2c10: 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20  utProc --. *. * 
2c20: 20 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72     This procedur
2c30: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20  e is invoked by 
2c40: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c  the generic IO l
2c50: 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f  evel. *       to
2c60: 20 77 72 69 74 65 20 6f 75 74 70 75 74 20 74 6f   write output to
2c70: 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61   a SSL socket ba
2c80: 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a  sed channel.. *.
2c90: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20   * Results:. *  
2ca0: 20 20 52 65 74 75 72 6e 73 20 74 68 65 20 6e 75    Returns the nu
2cb0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72  mber of bytes wr
2cc0: 69 74 74 65 6e 20 6f 72 20 2d 31 20 6f 6e 20 65  itten or -1 on e
2cd0: 72 72 6f 72 2e 20 53 65 74 73 20 65 72 72 6f 72  rror. Sets error
2ce0: 43 6f 64 65 50 74 72 0a 20 2a 20 20 20 20 74 6f  CodePtr. *    to
2cf0: 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63   a POSIX error c
2d00: 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20  ode if an error 
2d10: 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 30 20 69  occurred, or 0 i
2d20: 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69  f none.. *. * Si
2d30: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 20 20  de effects:. *  
2d40: 20 20 57 72 69 74 65 73 20 6f 75 74 70 75 74 20    Writes output 
2d50: 6f 6e 20 74 68 65 20 6f 75 74 70 75 74 20 64 65  on the output de
2d60: 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 61 6e  vice of the chan
2d70: 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  nel.. *. *------
2d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
2dc0: 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c  /..static int Tl
2dd0: 73 4f 75 74 70 75 74 50 72 6f 63 28 0a 20 20 20  sOutputProc(.   
2de0: 20 76 6f 69 64 20 2a 69 6e 73 74 61 6e 63 65 44   void *instanceD
2df0: 61 74 61 2c 0a 20 20 20 20 63 6f 6e 73 74 20 63  ata,.    const c
2e00: 68 61 72 20 2a 62 75 66 2c 0a 20 20 20 20 69 6e  har *buf,.    in
2e10: 74 20 74 6f 57 72 69 74 65 2c 0a 20 20 20 20 69  t toWrite,.    i
2e20: 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72  nt *errorCodePtr
2e30: 29 0a 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64  ).{.    unsigned
2e40: 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72   long backingErr
2e50: 6f 72 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73  or;.    State *s
2e60: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65  tatePtr = (State
2e70: 20 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 61 3b   *)instanceData;
2e80: 0a 20 20 20 20 69 6e 74 20 77 72 69 74 74 65 6e  .    int written
2e90: 2c 20 65 72 72 3b 0a 20 20 20 20 69 6e 74 20 74  , err;.    int t
2ea0: 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 20 20 20 20  lsConnect;..    
2eb0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20  *errorCodePtr = 
2ec0: 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28  0;..    dprintf(
2ed0: 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c 20 25  "BIO_write(%p, %
2ee0: 64 29 22 2c 20 28 76 6f 69 64 20 2a 29 20 73 74  d)", (void *) st
2ef0: 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 29  atePtr, toWrite)
2f00: 3b 0a 20 20 20 20 64 70 72 69 6e 74 42 75 66 66  ;.    dprintBuff
2f10: 65 72 28 62 75 66 2c 20 74 6f 57 72 69 74 65 29  er(buf, toWrite)
2f20: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65  ;..    if (state
2f30: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53  Ptr->flags & TLS
2f40: 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b  _TCL_CALLBACK) {
2f50: 0a 09 64 70 72 69 6e 74 66 28 22 44 6f 6e 27 74  ..dprintf("Don't
2f60: 20 70 72 6f 63 65 73 73 20 6f 75 74 70 75 74 20   process output 
2f70: 77 68 69 6c 65 20 63 61 6c 6c 62 61 63 6b 73 20  while callbacks 
2f80: 61 72 65 20 72 75 6e 6e 69 6e 67 22 29 3b 0a 09  are running");..
2f90: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 2a  written = -1;..*
2fa0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45  errorCodePtr = E
2fb0: 41 47 41 49 4e 3b 0a 09 72 65 74 75 72 6e 28 2d  AGAIN;..return(-
2fc0: 31 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64  1);.    }..    d
2fd0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20  printf("Calling 
2fe0: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65  Tls_WaitForConne
2ff0: 63 74 22 29 3b 0a 20 20 20 20 74 6c 73 43 6f 6e  ct");.    tlsCon
3000: 6e 65 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 46  nect = Tls_WaitF
3010: 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50  orConnect(stateP
3020: 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 72  tr, errorCodePtr
3030: 2c 20 31 29 3b 0a 20 20 20 20 69 66 20 28 74 6c  , 1);.    if (tl
3040: 73 43 6f 6e 6e 65 63 74 20 3c 20 30 29 20 7b 0a  sConnect < 0) {.
3050: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e  .dprintf("Got an
3060: 20 65 72 72 6f 72 20 77 61 69 74 69 6e 67 20 74   error waiting t
3070: 6f 20 63 6f 6e 6e 65 63 74 20 28 74 6c 73 43 6f  o connect (tlsCo
3080: 6e 6e 65 63 74 20 3d 20 25 69 2c 20 2a 65 72 72  nnect = %i, *err
3090: 6f 72 43 6f 64 65 50 74 72 20 3d 20 25 69 29 22  orCodePtr = %i)"
30a0: 2c 20 74 6c 73 43 6f 6e 6e 65 63 74 2c 20 2a 65  , tlsConnect, *e
30b0: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 0a 09  rrorCodePtr);...
30c0: 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 69  written = -1;..i
30d0: 66 20 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72  f (*errorCodePtr
30e0: 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20   == ECONNRESET) 
30f0: 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22  {..    dprintf("
3100: 47 6f 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 72  Got connection r
3110: 65 73 65 74 22 29 3b 0a 09 20 20 20 20 2f 2a 20  eset");..    /* 
3120: 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 20 20 20  Soft EOF */..   
3130: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d   *errorCodePtr =
3140: 20 30 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e   0;..    written
3150: 20 3d 20 30 3b 0a 09 7d 0a 09 72 65 74 75 72 6e   = 0;..}..return
3160: 28 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 7d  (written);.    }
3170: 0a 0a 20 20 20 20 69 66 20 28 74 6f 57 72 69 74  ..    if (toWrit
3180: 65 20 3d 3d 20 30 29 20 7b 0a 09 64 70 72 69 6e  e == 0) {..dprin
3190: 74 66 28 22 7a 65 72 6f 2d 77 72 69 74 65 22 29  tf("zero-write")
31a0: 3b 0a 09 65 72 72 20 3d 20 42 49 4f 5f 66 6c 75  ;..err = BIO_flu
31b0: 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f  sh(statePtr->bio
31c0: 29 3b 0a 0a 09 69 66 20 28 65 72 72 20 3c 3d 20  );...if (err <= 
31d0: 30 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74  0) {..    dprint
31e0: 66 28 22 46 6c 75 73 68 69 6e 67 20 66 61 69 6c  f("Flushing fail
31f0: 65 64 22 29 3b 0a 0a 09 20 20 20 20 2a 65 72 72  ed");...    *err
3200: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4f 3b  orCodePtr = EIO;
3210: 0a 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20  ..    written = 
3220: 30 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 28 2d  0;..    return(-
3230: 31 29 3b 0a 09 7d 0a 0a 09 77 72 69 74 74 65 6e  1);..}...written
3240: 20 3d 20 30 3b 0a 09 2a 65 72 72 6f 72 43 6f 64   = 0;..*errorCod
3250: 65 50 74 72 20 3d 20 30 3b 0a 09 72 65 74 75 72  ePtr = 0;..retur
3260: 6e 28 30 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  n(0);.    }..   
3270: 20 2f 2a 0a 20 20 20 20 20 2a 20 57 65 20 6e 65   /*.     * We ne
3280: 65 64 20 74 6f 20 63 6c 65 61 72 20 74 68 65 20  ed to clear the 
3290: 53 53 4c 20 65 72 72 6f 72 20 73 74 61 63 6b 20  SSL error stack 
32a0: 6e 6f 77 20 62 65 63 61 75 73 65 20 77 65 20 73  now because we s
32b0: 6f 6d 65 74 69 6d 65 73 20 72 65 61 63 68 0a 20  ometimes reach. 
32c0: 20 20 20 20 2a 20 74 68 69 73 20 66 75 6e 63 74      * this funct
32d0: 69 6f 6e 20 77 69 74 68 20 6c 65 66 74 6f 76 65  ion with leftove
32e0: 72 20 65 72 72 6f 72 73 20 69 6e 20 74 68 65 20  r errors in the 
32f0: 73 74 61 63 6b 2e 20 20 49 66 20 42 49 4f 5f 77  stack.  If BIO_w
3300: 72 69 74 65 0a 20 20 20 20 20 2a 20 72 65 74 75  rite.     * retu
3310: 72 6e 73 20 2d 31 20 61 6e 64 20 69 6e 74 65 6e  rns -1 and inten
3320: 64 73 20 45 41 47 41 49 4e 2c 20 74 68 65 72 65  ds EAGAIN, there
3330: 20 69 73 20 61 20 6c 65 66 74 6f 76 65 72 20 65   is a leftover e
3340: 72 72 6f 72 2c 20 69 74 20 77 69 6c 6c 20 62 65  rror, it will be
3350: 0a 20 20 20 20 20 2a 20 6d 69 73 63 6f 6e 73 74  .     * misconst
3360: 72 75 65 64 20 61 73 20 61 6e 20 65 72 72 6f 72  rued as an error
3370: 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a 20 20  , not EAGAIN..  
3380: 20 20 20 2a 0a 20 20 20 20 20 2a 20 41 6c 74 65     *.     * Alte
3390: 72 6e 61 74 69 76 65 6c 79 2c 20 77 65 20 6d 61  rnatively, we ma
33a0: 79 20 77 61 6e 74 20 74 6f 20 68 61 6e 64 6c 65  y want to handle
33b0: 20 74 68 65 20 3c 30 20 72 65 74 75 72 6e 20 63   the <0 return c
33c0: 6f 64 65 73 20 66 72 6f 6d 0a 20 20 20 20 20 2a  odes from.     *
33d0: 20 42 49 4f 5f 77 72 69 74 65 20 73 70 65 63 69   BIO_write speci
33e0: 61 6c 6c 79 20 28 61 73 20 61 64 76 69 73 65 64  ally (as advised
33f0: 20 69 6e 20 74 68 65 20 52 53 41 20 64 6f 63 73   in the RSA docs
3400: 29 2e 20 20 54 4c 53 27 73 20 6c 6f 77 65 72 20  ).  TLS's lower 
3410: 6c 65 76 65 6c 0a 20 20 20 20 20 2a 20 42 49 4f  level.     * BIO
3420: 20 66 75 6e 63 74 69 6f 6e 73 20 70 6c 61 79 20   functions play 
3430: 77 69 74 68 20 74 68 65 20 72 65 74 72 79 20 66  with the retry f
3440: 6c 61 67 73 20 74 68 6f 75 67 68 2c 20 61 6e 64  lags though, and
3450: 20 74 68 69 73 20 73 65 65 6d 73 20 74 6f 0a 20   this seems to. 
3460: 20 20 20 20 2a 20 77 6f 72 6b 20 63 6f 72 72 65      * work corre
3470: 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61 72 20 66  ctly.  Similar f
3480: 69 78 20 69 6e 20 54 6c 73 49 6e 70 75 74 50 72  ix in TlsInputPr
3490: 6f 63 2e 20 2d 20 68 6f 62 62 73 0a 20 20 20 20  oc. - hobbs.    
34a0: 20 2a 2f 0a 20 20 20 20 45 52 52 5f 63 6c 65 61   */.    ERR_clea
34b0: 72 5f 65 72 72 6f 72 28 29 3b 0a 20 20 20 20 77  r_error();.    w
34c0: 72 69 74 74 65 6e 20 3d 20 42 49 4f 5f 77 72 69  ritten = BIO_wri
34d0: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f  te(statePtr->bio
34e0: 2c 20 62 75 66 2c 20 74 6f 57 72 69 74 65 29 3b  , buf, toWrite);
34f0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 42 49  .    dprintf("BI
3500: 4f 5f 77 72 69 74 65 28 25 70 2c 20 25 64 29 20  O_write(%p, %d) 
3510: 2d 3e 20 5b 25 64 5d 22 2c 20 28 76 6f 69 64 20  -> [%d]", (void 
3520: 2a 29 20 73 74 61 74 65 50 74 72 2c 20 74 6f 57  *) statePtr, toW
3530: 72 69 74 65 2c 20 77 72 69 74 74 65 6e 29 3b 0a  rite, written);.
3540: 0a 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 67  .    err = SSL_g
3550: 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74  et_error(statePt
3560: 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 65 6e 29  r->ssl, written)
3570: 3b 0a 20 20 20 20 73 77 69 74 63 68 20 28 65 72  ;.    switch (er
3580: 72 29 20 7b 0a 09 63 61 73 65 20 53 53 4c 5f 45  r) {..case SSL_E
3590: 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20  RROR_NONE:..    
35a0: 69 66 20 28 77 72 69 74 74 65 6e 20 3c 20 30 29  if (written < 0)
35b0: 20 7b 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 30   {...written = 0
35c0: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72  ;..    }..    br
35d0: 65 61 6b 3b 0a 09 63 61 73 65 20 53 53 4c 5f 45  eak;..case SSL_E
35e0: 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a  RROR_WANT_WRITE:
35f0: 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 22 47  ..    dprintf("G
3600: 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e  ot SSL_ERROR_WAN
3610: 54 5f 57 52 49 54 45 2c 20 6d 61 70 70 69 6e 67  T_WRITE, mapping
3620: 20 69 74 20 74 6f 20 45 41 47 41 49 4e 22 29 3b   it to EAGAIN");
3630: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65  ..    *errorCode
3640: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20  Ptr = EAGAIN;.. 
3650: 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b     written = -1;
3660: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61  ..    break;..ca
3670: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e  se SSL_ERROR_WAN
3680: 54 5f 52 45 41 44 3a 0a 09 20 20 20 20 64 70 72  T_READ:..    dpr
3690: 69 6e 74 66 28 22 20 77 72 69 74 65 20 52 20 42  intf(" write R B
36a0: 4c 4f 43 4b 22 29 3b 0a 09 20 20 20 20 62 72 65  LOCK");..    bre
36b0: 61 6b 3b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52  ak;..case SSL_ER
36c0: 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 5f 4c 4f  ROR_WANT_X509_LO
36d0: 4f 4b 55 50 3a 0a 09 20 20 20 20 64 70 72 69 6e  OKUP:..    dprin
36e0: 74 66 28 22 20 77 72 69 74 65 20 58 20 42 4c 4f  tf(" write X BLO
36f0: 43 4b 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b  CK");..    break
3700: 3b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f  ;..case SSL_ERRO
3710: 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09  R_ZERO_RETURN:..
3720: 20 20 20 20 64 70 72 69 6e 74 66 28 22 20 63 6c      dprintf(" cl
3730: 6f 73 65 64 22 29 3b 0a 09 20 20 20 20 77 72 69  osed");..    wri
3740: 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 2a  tten = 0;..    *
3750: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30  errorCodePtr = 0
3760: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63  ;..    break;..c
3770: 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59  ase SSL_ERROR_SY
3780: 53 43 41 4c 4c 3a 0a 09 20 20 20 20 62 61 63 6b  SCALL:..    back
3790: 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f 67  ingError = ERR_g
37a0: 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 20 20  et_error();...  
37b0: 20 20 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72    if (backingErr
37c0: 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69 74 74  or == 0 && writt
37d0: 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72  en == 0) {...dpr
37e0: 69 6e 74 66 28 22 45 4f 46 20 72 65 61 63 68 65  intf("EOF reache
37f0: 64 22 29 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65  d")...*errorCode
3800: 50 74 72 20 3d 20 30 3b 0a 09 09 77 72 69 74 74  Ptr = 0;...writt
3810: 65 6e 20 3d 20 30 3b 0a 09 20 20 20 20 7d 20 65  en = 0;..    } e
3820: 6c 73 65 20 69 66 20 28 62 61 63 6b 69 6e 67 45  lse if (backingE
3830: 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 77 72 69  rror == 0 && wri
3840: 74 74 65 6e 20 3d 3d 20 2d 31 29 20 7b 0a 09 09  tten == -1) {...
3850: 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72  dprintf("I/O err
3860: 6f 72 20 6f 63 63 75 72 72 65 64 20 28 65 72 72  or occurred (err
3870: 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73  no = %lu)", (uns
3880: 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f  igned long) Tcl_
3890: 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 2a  GetErrno());...*
38a0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54  errorCodePtr = T
38b0: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09  cl_GetErrno();..
38c0: 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09  .written = -1;..
38d0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 64      } else {...d
38e0: 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f  printf("I/O erro
38f0: 72 20 6f 63 63 75 72 72 65 64 20 28 62 61 63 6b  r occurred (back
3900: 69 6e 67 45 72 72 6f 72 20 3d 20 25 6c 75 29 22  ingError = %lu)"
3910: 2c 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b  , backingError);
3920: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72  ...*errorCodePtr
3930: 20 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b   = backingError;
3940: 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 3b  ...written = -1;
3950: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 65  ..    }..    bre
3960: 61 6b 3b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52  ak;..case SSL_ER
3970: 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 54 6c  ROR_SSL:..    Tl
3980: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72  s_Error(statePtr
3990: 2c 20 54 43 4c 54 4c 53 5f 53 53 4c 5f 45 52 52  , TCLTLS_SSL_ERR
39a0: 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c  OR(statePtr->ssl
39b0: 2c 20 77 72 69 74 74 65 6e 29 29 3b 0a 09 20 20  , written));..  
39c0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20    *errorCodePtr 
39d0: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a  = ECONNABORTED;.
39e0: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d  .    written = -
39f0: 31 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09  1;..    break;..
3a00: 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 64 70  default:..    dp
3a10: 72 69 6e 74 66 28 22 75 6e 6b 6e 6f 77 6e 20 65  rintf("unknown e
3a20: 72 72 6f 72 3a 20 25 64 22 2c 20 65 72 72 29 3b  rror: %d", err);
3a30: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20  ..    break;.   
3a40: 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28   }..    dprintf(
3a50: 22 4f 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25  "Output(%d) -> %
3a60: 64 22 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69  d", toWrite, wri
3a70: 74 74 65 6e 29 3b 0a 20 20 20 20 72 65 74 75 72  tten);.    retur
3a80: 6e 28 77 72 69 74 74 65 6e 29 3b 0a 7d 0a 0a 2f  n(written);.}../
3a90: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
3aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ad0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c  -------. *. * Tl
3ae0: 73 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d  sSetOptionProc -
3af0: 2d 0a 20 2a 0a 20 2a 20 20 20 20 53 65 74 73 20  -. *. *    Sets 
3b00: 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20  an option value 
3b10: 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74  for a SSL socket
3b20: 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20   based channel, 
3b30: 6f 72 20 61 0a 20 2a 20 20 20 20 6c 69 73 74 20  or a. *    list 
3b40: 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61  of all options a
3b50: 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e  nd their values.
3b60: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
3b70: 20 2a 20 20 20 20 54 43 4c 5f 4f 4b 20 69 66 20   *    TCL_OK if 
3b80: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43  successful or TC
3b90: 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65  L_ERROR if faile
3ba0: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  d.. *. * Side ef
3bb0: 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 55 70 64  fects:. *    Upd
3bc0: 61 74 65 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74  ates channel opt
3bd0: 69 6f 6e 20 74 6f 20 6e 65 77 20 76 61 6c 75 65  ion to new value
3be0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
3bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73  ----------. */.s
3c30: 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 53 65 74  tatic int.TlsSet
3c40: 4f 70 74 69 6f 6e 50 72 6f 63 28 76 6f 69 64 20  OptionProc(void 
3c50: 2a 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20  *instanceData,  
3c60: 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74    /* Socket stat
3c70: 65 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e  e. */.    Tcl_In
3c80: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f  terp *interp,../
3c90: 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 2d 20 63  * For errors - c
3ca0: 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20  an be NULL. */. 
3cb0: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f     const char *o
3cc0: 70 74 69 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61  ptionName,./* Na
3cd0: 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e  me of the option
3ce0: 20 74 6f 20 73 65 74 20 74 68 65 20 76 61 6c 75   to set the valu
3cf0: 65 20 66 6f 72 2c 20 6f 72 0a 09 09 09 09 20 2a  e for, or..... *
3d00: 20 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c   NULL to get all
3d10: 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65   options and the
3d20: 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 20 20  ir values. */.  
3d30: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70    const char *op
3d40: 74 69 6f 6e 56 61 6c 75 65 29 09 2f 2a 20 56 61  tionValue)./* Va
3d50: 6c 75 65 20 66 6f 72 20 6f 70 74 69 6f 6e 2e 20  lue for option. 
3d60: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a  */.{.    State *
3d70: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74  statePtr = (Stat
3d80: 65 20 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 61  e *)instanceData
3d90: 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e  ;..    Tcl_Chann
3da0: 65 6c 20 64 6f 77 6e 43 68 61 6e 20 3d 20 54 6c  el downChan = Tl
3db0: 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74  s_GetParent(stat
3dc0: 65 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41  ePtr, TLS_TCL_FA
3dd0: 53 54 50 41 54 48 29 3b 0a 20 20 20 20 54 63 6c  STPATH);.    Tcl
3de0: 5f 44 72 69 76 65 72 53 65 74 4f 70 74 69 6f 6e  _DriverSetOption
3df0: 50 72 6f 63 20 2a 73 65 74 4f 70 74 69 6f 6e 50  Proc *setOptionP
3e00: 72 6f 63 3b 0a 0a 20 20 20 20 73 65 74 4f 70 74  roc;..    setOpt
3e10: 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68  ionProc = Tcl_Ch
3e20: 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e 50 72  annelSetOptionPr
3e30: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65  oc(Tcl_GetChanne
3e40: 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 29  lType(downChan))
3e50: 3b 0a 20 20 20 20 69 66 20 28 73 65 74 4f 70 74  ;.    if (setOpt
3e60: 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29  ionProc != NULL)
3e70: 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74   {..return (*set
3e80: 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f  OptionProc)(Tcl_
3e90: 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e  GetChannelInstan
3ea0: 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61 6e 29  ceData(downChan)
3eb0: 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e  , interp, option
3ec0: 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75  Name, optionValu
3ed0: 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69  e);.    } else i
3ee0: 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d  f (optionName ==
3ef0: 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 20 7b   (char*) NULL) {
3f00: 0a 09 2f 2a 0a 09 20 2a 20 52 65 71 75 65 73 74  ../*.. * Request
3f10: 20 69 73 20 71 75 65 72 79 20 66 6f 72 20 61 6c   is query for al
3f20: 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 69 73 20  l options, this 
3f30: 69 73 20 6f 6b 2e 0a 09 20 2a 2f 0a 09 72 65 74  is ok... */..ret
3f40: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20  urn TCL_OK;.    
3f50: 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  }.    /*.     * 
3f60: 52 65 71 75 65 73 74 20 66 6f 72 20 61 20 73 70  Request for a sp
3f70: 65 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 68 61  ecific option ha
3f80: 73 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f  s to fail, we do
3f90: 6e 27 74 20 68 61 76 65 20 61 6e 79 2e 0a 20 20  n't have any..  
3fa0: 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e     */.    return
3fb0: 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f   Tcl_BadChannelO
3fc0: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70  ption(interp, op
3fd0: 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 3b 0a 7d  tionName, "");.}
3fe0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
3ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
4030: 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f   TlsGetOptionPro
4040: 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 47 65  c --. *. *    Ge
4050: 74 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c  ts an option val
4060: 75 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63  ue for a SSL soc
4070: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65  ket based channe
4080: 6c 2c 20 6f 72 20 61 0a 20 2a 20 20 20 20 6c 69  l, or a. *    li
4090: 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e  st of all option
40a0: 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75  s and their valu
40b0: 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  es.. *. * Result
40c0: 73 3a 0a 20 2a 20 20 20 20 41 20 73 74 61 6e 64  s:. *    A stand
40d0: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 20  ard Tcl result. 
40e0: 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65  The value of the
40f0: 20 73 70 65 63 69 66 69 65 64 20 6f 70 74 69 6f   specified optio
4100: 6e 20 6f 72 20 61 0a 20 2a 20 20 20 20 6c 69 73  n or a. *    lis
4110: 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73  t of all options
4120: 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65   and their value
4130: 73 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6e  s is returned in
4140: 20 74 68 65 0a 20 2a 20 20 20 20 73 75 70 70 6c   the. *    suppl
4150: 69 65 64 20 44 53 74 72 69 6e 67 2e 0a 20 2a 0a  ied DString.. *.
4160: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
4170: 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a  . *    None.. *.
4180: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
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 0a 20 2a 2f 0a 73 74 61 74 69 63  -----. */.static
41d0: 20 69 6e 74 0a 54 6c 73 47 65 74 4f 70 74 69 6f   int.TlsGetOptio
41e0: 6e 50 72 6f 63 28 0a 20 20 20 20 76 6f 69 64 20  nProc(.    void 
41f0: 2a 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f  *instanceData,./
4200: 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20  * Socket state. 
4210: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72  */.    Tcl_Inter
4220: 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46  p *interp,../* F
4230: 6f 72 20 65 72 72 6f 72 73 20 2d 20 63 61 6e 20  or errors - can 
4240: 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20  be NULL. */.    
4250: 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69  const char *opti
4260: 6f 6e 4e 61 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20  onName,./* Name 
4270: 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f  of the option to
4280: 20 72 65 74 72 69 65 76 65 20 74 68 65 20 76 61   retrieve the va
4290: 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 09 09 09 09  lue for, or.....
42a0: 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61   * NULL to get a
42b0: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74  ll options and t
42c0: 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a  heir values. */.
42d0: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20      Tcl_DString 
42e0: 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 09 2f 2a  *optionValue)./*
42f0: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20   Where to store 
4300: 74 68 65 20 63 6f 6d 70 75 74 65 64 20 76 61 6c  the computed val
4310: 75 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62  ue initialized b
4320: 79 20 63 61 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20  y caller. */.{. 
4330: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50     State *stateP
4340: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 69 6e  tr = (State *)in
4350: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20  stanceData;..   
4360: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 64 6f 77   Tcl_Channel dow
4370: 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50  nChan = Tls_GetP
4380: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20  arent(statePtr, 
4390: 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48  TLS_TCL_FASTPATH
43a0: 29 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65  );.    Tcl_Drive
43b0: 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a  rGetOptionProc *
43c0: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a  getOptionProc;..
43d0: 20 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f      getOptionPro
43e0: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47  c = Tcl_ChannelG
43f0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c  etOptionProc(Tcl
4400: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28  _GetChannelType(
4410: 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 20 20 20 20  downChan));.    
4420: 69 66 20 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f  if (getOptionPro
4430: 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65  c != NULL) {..re
4440: 74 75 72 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e  turn (*getOption
4450: 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61  Proc)(Tcl_GetCha
4460: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61  nnelInstanceData
4470: 28 64 6f 77 6e 43 68 61 6e 29 2c 20 69 6e 74 65  (downChan), inte
4480: 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20  rp, optionName, 
4490: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20  optionValue);.  
44a0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 74    } else if (opt
44b0: 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72  ionName == (char
44c0: 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09  *) NULL) {../*..
44d0: 20 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 75   * Request is qu
44e0: 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69  ery for all opti
44f0: 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e  ons, this is ok.
4500: 0a 09 20 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43  .. */..return TC
4510: 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20  L_OK;.    }.    
4520: 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 75 65 73  /*.     * Reques
4530: 74 20 66 6f 72 20 61 20 73 70 65 63 69 66 69 63  t for a specific
4540: 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f 20 66   option has to f
4550: 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 68 61  ail, we don't ha
4560: 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a  ve any..     */.
4570: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 42      return Tcl_B
4580: 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28  adChannelOption(
4590: 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61  interp, optionNa
45a0: 6d 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20  me, "");.}../*. 
45b0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
45c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
45d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
45e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
45f0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 61  ----. *. * TlsWa
4600: 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a  tchProc --. *. *
4610: 20 20 20 20 49 6e 69 74 69 61 6c 69 7a 65 20 74      Initialize t
4620: 68 65 20 6e 6f 74 69 66 69 65 72 20 74 6f 20 77  he notifier to w
4630: 61 74 63 68 20 54 63 6c 5f 46 69 6c 65 73 20 66  atch Tcl_Files f
4640: 72 6f 6d 20 74 68 69 73 20 63 68 61 6e 6e 65 6c  rom this channel
4650: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
4660: 0a 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a  . *    None.. *.
4670: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
4680: 0a 20 2a 20 20 20 20 53 65 74 73 20 75 70 20 74  . *    Sets up t
4690: 68 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 74  he notifier so t
46a0: 68 61 74 20 61 20 66 75 74 75 72 65 20 65 76 65  hat a future eve
46b0: 6e 74 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65  nt on the channe
46c0: 6c 0a 20 2a 20 20 20 20 77 69 6c 6c 20 62 65 20  l. *    will be 
46d0: 73 65 65 6e 20 62 79 20 54 63 6c 2e 0a 20 2a 0a  seen by Tcl.. *.
46e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
46f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4720: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69  -----. */..stati
4730: 63 20 76 6f 69 64 0a 54 6c 73 57 61 74 63 68 50  c void.TlsWatchP
4740: 72 6f 63 28 0a 20 20 20 20 76 6f 69 64 20 2a 69  roc(.    void *i
4750: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20 20  nstanceData,    
4760: 2f 2a 20 54 68 65 20 73 6f 63 6b 65 74 20 73 74  /* The socket st
4770: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20  ate. */.    int 
4780: 6d 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 6e 74  mask).../* Event
4790: 73 20 6f 66 20 69 6e 74 65 72 65 73 74 3b 20 61  s of interest; a
47a0: 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74  n OR-ed combinat
47b0: 69 6f 6e 20 6f 66 0a 09 09 09 09 20 2a 20 54 43  ion of..... * TC
47c0: 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 4c 5f  L_READABLE, TCL_
47d0: 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c  WRITABLE and TCL
47e0: 5f 45 58 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b  _EXCEPTION. */.{
47f0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c  .    Tcl_Channel
4800: 20 20 20 20 20 64 6f 77 6e 43 68 61 6e 3b 0a 20       downChan;. 
4810: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50     State *stateP
4820: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 69 6e  tr = (State *)in
4830: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20  stanceData;..   
4840: 20 64 70 72 69 6e 74 66 28 22 54 6c 73 57 61 74   dprintf("TlsWat
4850: 63 68 50 72 6f 63 28 30 78 25 78 29 22 2c 20 6d  chProc(0x%x)", m
4860: 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 50 72  ask);..    /* Pr
4870: 65 74 65 6e 64 20 74 6f 20 62 65 20 64 65 61 64  etend to be dead
4880: 20 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 20   as long as the 
4890: 76 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20  verify callback 
48a0: 69 73 20 72 75 6e 6e 69 6e 67 2e 0a 20 20 20 20  is running..    
48b0: 20 2a 20 4f 74 68 65 72 77 69 73 65 20 74 68 61   * Otherwise tha
48c0: 74 20 63 61 6c 6c 62 61 63 6b 20 63 6f 75 6c 64  t callback could
48d0: 20 62 65 20 69 6e 76 6f 6b 65 64 20 72 65 63 75   be invoked recu
48e0: 72 73 69 76 65 6c 79 2e 20 2a 2f 0a 20 20 20 20  rsively. */.    
48f0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c  if (statePtr->fl
4900: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41  ags & TLS_TCL_CA
4910: 4c 4c 42 41 43 4b 29 20 7b 0a 09 64 70 72 69 6e  LLBACK) {..dprin
4920: 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 20  tf("Callback is 
4930: 6f 6e 2d 67 6f 69 6e 67 2c 20 64 6f 69 6e 67 20  on-going, doing 
4940: 6e 6f 74 68 69 6e 67 22 29 3b 0a 09 72 65 74 75  nothing");..retu
4950: 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64  rn;.    }..    d
4960: 70 72 69 6e 74 46 6c 61 67 73 28 73 74 61 74 65  printFlags(state
4970: 50 74 72 29 3b 0a 0a 20 20 20 20 64 6f 77 6e 43  Ptr);..    downC
4980: 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72  han = Tls_GetPar
4990: 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 54 4c  ent(statePtr, TL
49a0: 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 3b  S_TCL_FASTPATH);
49b0: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50  ..    if (stateP
49c0: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f  tr->flags & TLS_
49d0: 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 41  TCL_HANDSHAKE_FA
49e0: 49 4c 45 44 29 20 7b 0a 09 64 70 72 69 6e 74 66  ILED) {..dprintf
49f0: 28 22 41 73 6b 65 64 20 74 6f 20 77 61 74 63 68  ("Asked to watch
4a00: 20 61 20 73 6f 63 6b 65 74 20 77 69 74 68 20 61   a socket with a
4a10: 20 66 61 69 6c 65 64 20 68 61 6e 64 73 68 61 6b   failed handshak
4a20: 65 20 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 6e  e -- nothing can
4a30: 20 68 61 70 70 65 6e 20 68 65 72 65 22 29 3b 0a   happen here");.
4a40: 09 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 69  .dprintf("Unregi
4a50: 73 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 74  stering interest
4a60: 20 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68   in the lower ch
4a70: 61 6e 6e 65 6c 22 29 3b 0a 0a 09 54 63 6c 5f 47  annel");...Tcl_G
4a80: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f  etChannelType(do
4a90: 77 6e 43 68 61 6e 29 2d 3e 77 61 74 63 68 50 72  wnChan)->watchPr
4aa0: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65  oc(Tcl_GetChanne
4ab0: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f  lInstanceData(do
4ac0: 77 6e 43 68 61 6e 29 2c 20 30 29 3b 0a 09 73 74  wnChan), 0);..st
4ad0: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73  atePtr->watchMas
4ae0: 6b 20 3d 20 30 3b 0a 09 72 65 74 75 72 6e 3b 0a  k = 0;..return;.
4af0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65      }..    state
4b00: 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d  Ptr->watchMask =
4b10: 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a 20 4e   mask;..    /* N
4b20: 6f 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65  o channel handle
4b30: 72 73 20 61 6e 79 20 6d 6f 72 65 2e 20 57 65 20  rs any more. We 
4b40: 77 69 6c 6c 20 62 65 20 6e 6f 74 69 66 69 65 64  will be notified
4b50: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 20   automatically. 
4b60: 20 20 20 20 2a 20 61 62 6f 75 74 20 65 76 65 6e      * about even
4b70: 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65  ts on the channe
4b80: 6c 20 62 65 6c 6f 77 20 76 69 61 20 61 20 63 61  l below via a ca
4b90: 6c 6c 20 74 6f 20 6f 75 72 0a 20 20 20 20 20 2a  ll to our.     *
4ba0: 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 69 66   'TransformNotif
4bb0: 79 50 72 6f 63 27 2e 20 42 75 74 20 77 65 20 68  yProc'. But we h
4bc0: 61 76 65 20 74 6f 20 70 61 73 73 20 74 68 65 20  ave to pass the 
4bd0: 69 6e 74 65 72 65 73 74 20 64 6f 77 6e 20 6e 6f  interest down no
4be0: 77 2e 0a 20 20 20 20 20 2a 20 57 65 20 61 72 65  w..     * We are
4bf0: 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 64 64 20   allowed to add 
4c00: 61 64 64 69 74 69 6f 6e 61 6c 20 27 69 6e 74 65  additional 'inte
4c10: 72 65 73 74 27 20 74 6f 20 74 68 65 20 6d 61 73  rest' to the mas
4c20: 6b 20 69 66 20 77 65 20 77 61 6e 74 0a 20 20 20  k if we want.   
4c30: 20 20 2a 20 74 6f 2e 20 42 75 74 20 74 68 69 73    * to. But this
4c40: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20   transformation 
4c50: 68 61 73 20 6e 6f 20 73 75 63 68 20 69 6e 74 65  has no such inte
4c60: 72 65 73 74 2e 20 49 74 20 6a 75 73 74 20 70 61  rest. It just pa
4c70: 73 73 65 73 0a 20 20 20 20 20 2a 20 74 68 65 20  sses.     * the 
4c80: 72 65 71 75 65 73 74 20 64 6f 77 6e 2c 20 75 6e  request down, un
4c90: 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a 2f  changed..     */
4ca0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65  .    dprintf("Re
4cb0: 67 69 73 74 65 72 69 6e 67 20 6f 75 72 20 69 6e  gistering our in
4cc0: 74 65 72 65 73 74 20 69 6e 20 74 68 65 20 6c 6f  terest in the lo
4cd0: 77 65 72 20 63 68 61 6e 6e 65 6c 20 28 63 68 61  wer channel (cha
4ce0: 6e 3d 25 70 29 22 2c 20 28 76 6f 69 64 20 2a 29  n=%p)", (void *)
4cf0: 20 64 6f 77 6e 43 68 61 6e 29 3b 0a 20 20 20 20   downChan);.    
4d00: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79  Tcl_GetChannelTy
4d10: 70 65 28 64 6f 77 6e 43 68 61 6e 29 2d 3e 77 61  pe(downChan)->wa
4d20: 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43  tchProc(Tcl_GetC
4d30: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61  hannelInstanceDa
4d40: 74 61 28 64 6f 77 6e 43 68 61 6e 29 2c 20 6d 61  ta(downChan), ma
4d50: 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20  sk);..    /*.   
4d60: 20 20 2a 20 4d 61 6e 61 67 65 6d 65 6e 74 20 6f    * Management o
4d70: 66 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 74  f the internal t
4d80: 69 6d 65 72 2e 0a 20 20 20 20 20 2a 2f 0a 20 20  imer..     */.  
4d90: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e    if (statePtr->
4da0: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69  timer != (Tcl_Ti
4db0: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20  merToken) NULL) 
4dc0: 7b 0a 09 64 70 72 69 6e 74 66 28 22 41 20 74 69  {..dprintf("A ti
4dd0: 6d 65 72 20 77 61 73 20 66 6f 75 6e 64 2c 20 64  mer was found, d
4de0: 65 6c 65 74 69 6e 67 20 69 74 22 29 3b 0a 09 54  eleting it");..T
4df0: 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61  cl_DeleteTimerHa
4e00: 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e  ndler(statePtr->
4e10: 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74  timer);..statePt
4e20: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f  r->timer = (Tcl_
4e30: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c  TimerToken) NULL
4e40: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20  ;.    }..    if 
4e50: 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41  ((mask & TCL_REA
4e60: 44 41 42 4c 45 29 20 26 26 0a 09 28 28 54 63 6c  DABLE) &&..((Tcl
4e70: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73  _InputBuffered(s
4e80: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e  tatePtr->self) >
4e90: 20 30 29 20 7c 7c 20 28 42 49 4f 5f 63 74 72 6c   0) || (BIO_ctrl
4ea0: 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74  _pending(statePt
4eb0: 72 2d 3e 62 69 6f 29 20 3e 20 30 29 29 29 20 7b  r->bio) > 0))) {
4ec0: 0a 09 2f 2a 0a 09 20 2a 20 54 68 65 72 65 20 69  ../*.. * There i
4ed0: 73 20 69 6e 74 65 72 65 73 74 20 69 6e 20 72 65  s interest in re
4ee0: 61 64 61 62 6c 65 20 65 76 65 6e 74 73 20 61 6e  adable events an
4ef0: 64 20 77 65 20 61 63 74 75 61 6c 6c 79 20 68 61  d we actually ha
4f00: 76 65 0a 09 20 2a 20 64 61 74 61 20 77 61 69 74  ve.. * data wait
4f10: 69 6e 67 2c 20 73 6f 20 67 65 6e 65 72 61 74 65  ing, so generate
4f20: 20 61 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 73   a timer to flus
4f30: 68 20 74 68 61 74 2e 0a 09 20 2a 2f 0a 09 64 70  h that... */..dp
4f40: 72 69 6e 74 66 28 22 43 72 65 61 74 69 6e 67 20  rintf("Creating 
4f50: 61 20 6e 65 77 20 74 69 6d 65 72 20 73 69 6e 63  a new timer sinc
4f60: 65 20 64 61 74 61 20 61 70 70 65 61 72 73 20 74  e data appears t
4f70: 6f 20 62 65 20 77 61 69 74 69 6e 67 22 29 3b 0a  o be waiting");.
4f80: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72  .statePtr->timer
4f90: 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d   = Tcl_CreateTim
4fa0: 65 72 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 43  erHandler(TLS_TC
4fb0: 4c 5f 44 45 4c 41 59 2c 20 54 6c 73 43 68 61 6e  L_DELAY, TlsChan
4fc0: 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 2c  nelHandlerTimer,
4fd0: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20   statePtr);.    
4fe0: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  }.}../*. *------
4ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
5030: 0a 20 2a 20 54 6c 73 47 65 74 48 61 6e 64 6c 65  . * TlsGetHandle
5040: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20  Proc --. *. *   
5050: 20 43 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 6c   Called from Tcl
5060: 5f 47 65 74 43 68 61 6e 6e 65 6c 46 69 6c 65 20  _GetChannelFile 
5070: 74 6f 20 72 65 74 72 69 65 76 65 20 6f 2f 73 20  to retrieve o/s 
5080: 66 69 6c 65 20 68 61 6e 64 6c 65 72 0a 20 2a 20  file handler. * 
5090: 20 20 20 66 72 6f 6d 20 74 68 65 20 53 53 4c 20     from the SSL 
50a0: 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61  socket based cha
50b0: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  nnel.. *. * Resu
50c0: 6c 74 73 3a 0a 20 2a 20 20 20 20 54 68 65 20 61  lts:. *    The a
50d0: 70 70 72 6f 70 72 69 61 74 65 20 54 63 6c 5f 46  ppropriate Tcl_F
50e0: 69 6c 65 20 68 61 6e 64 6c 65 20 6f 72 20 4e 55  ile handle or NU
50f0: 4c 4c 20 69 66 20 6e 6f 6e 65 2e 0a 20 2a 0a 20  LL if none.. *. 
5100: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
5110: 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20   *    None.. *. 
5120: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
5130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5160: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20  ----. */.static 
5170: 69 6e 74 20 54 6c 73 47 65 74 48 61 6e 64 6c 65  int TlsGetHandle
5180: 50 72 6f 63 28 0a 20 20 20 20 76 6f 69 64 20 2a  Proc(.    void *
5190: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 20 20  instanceData,   
51a0: 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65   /* Socket state
51b0: 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 64 69 72  . */.    int dir
51c0: 65 63 74 69 6f 6e 2c 09 09 2f 2a 20 54 43 4c 5f  ection,../* TCL_
51d0: 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f  READABLE or TCL_
51e0: 57 52 49 54 41 42 4c 45 20 2a 2f 0a 20 20 20 20  WRITABLE */.    
51f0: 76 6f 69 64 20 2a 2a 68 61 6e 64 6c 65 50 74 72  void **handlePtr
5200: 29 09 2f 2a 20 48 61 6e 64 6c 65 20 61 73 73 6f  )./* Handle asso
5210: 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20  ciated with the 
5220: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 7b 0a 20 20 20  channel */.{.   
5230: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72   State *statePtr
5240: 20 3d 20 28 53 74 61 74 65 20 2a 29 69 6e 73 74   = (State *)inst
5250: 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 72  anceData;..    r
5260: 65 74 75 72 6e 28 54 63 6c 5f 47 65 74 43 68 61  eturn(Tcl_GetCha
5270: 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 5f 47  nnelHandle(Tls_G
5280: 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74  etParent(statePt
5290: 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50  r, TLS_TCL_FASTP
52a0: 41 54 48 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c  ATH), direction,
52b0: 20 68 61 6e 64 6c 65 50 74 72 29 29 3b 0a 7d 0a   handlePtr));.}.
52c0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ./*. *----------
52d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
52e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
52f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
5310: 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d  TlsNotifyProc --
5320: 0a 20 2a 0a 20 2a 20 20 20 20 48 61 6e 64 6c 65  . *. *    Handle
5330: 72 20 63 61 6c 6c 65 64 20 62 79 20 54 63 6c 20  r called by Tcl 
5340: 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20  to inform us of 
5350: 61 63 74 69 76 69 74 79 0a 20 2a 20 20 20 20 6f  activity. *    o
5360: 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67  n the underlying
5370: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20   channel.. *. * 
5380: 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20 20 54  Results:. *    T
5390: 79 70 65 20 6f 66 20 65 76 65 6e 74 20 6f 72 20  ype of event or 
53a0: 30 20 69 66 20 66 61 69 6c 65 64 0a 20 2a 0a 20  0 if failed. *. 
53b0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
53c0: 20 2a 20 20 20 20 4d 61 79 20 70 72 6f 63 65 73   *    May proces
53d0: 73 20 74 68 65 20 69 6e 63 6f 6d 69 6e 67 20 65  s the incoming e
53e0: 76 65 6e 74 20 62 79 20 69 74 73 65 6c 66 2e 0a  vent by itself..
53f0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
5400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5430: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74  --------. */..st
5440: 61 74 69 63 20 69 6e 74 20 54 6c 73 4e 6f 74 69  atic int TlsNoti
5450: 66 79 50 72 6f 63 28 0a 20 20 20 20 76 6f 69 64  fyProc(.    void
5460: 20 2a 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20   *instanceData, 
5470: 20 20 20 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61     /* Socket sta
5480: 74 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6d  te. */.    int m
5490: 61 73 6b 29 09 09 09 2f 2a 20 74 79 70 65 20 6f  ask).../* type o
54a0: 66 20 65 76 65 6e 74 20 74 68 61 74 20 6f 63 63  f event that occ
54b0: 75 72 72 65 64 3a 0a 09 09 09 09 20 2a 20 4f 52  urred:..... * OR
54c0: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20  -ed combination 
54d0: 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20  of TCL_READABLE 
54e0: 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20  or TCL_WRITABLE 
54f0: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a  */.{.    State *
5500: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74  statePtr = (Stat
5510: 65 20 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 61  e *)instanceData
5520: 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 6f 72 43  ;.    int errorC
5530: 6f 64 65 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20  ode;..    /*.   
5540: 20 20 2a 20 41 6e 20 65 76 65 6e 74 20 6f 63 63    * An event occ
5550: 75 72 72 65 64 20 69 6e 20 74 68 65 20 75 6e 64  urred in the und
5560: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e  erlying channel.
5570: 20 20 54 68 69 73 0a 20 20 20 20 20 2a 20 74 72    This.     * tr
5580: 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 64 6f 65  ansformation doe
5590: 73 6e 27 74 20 70 72 6f 63 65 73 73 20 73 75 63  sn't process suc
55a0: 68 20 65 76 65 6e 74 73 20 74 68 75 73 20 72 65  h events thus re
55b0: 74 75 72 6e 73 20 74 68 65 0a 20 20 20 20 20 2a  turns the.     *
55c0: 20 69 6e 63 6f 6d 69 6e 67 20 6d 61 73 6b 20 75   incoming mask u
55d0: 6e 63 68 61 6e 67 65 64 2e 0a 20 20 20 20 20 2a  nchanged..     *
55e0: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50  /.    if (stateP
55f0: 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63  tr->timer != (Tc
5600: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55  l_TimerToken) NU
5610: 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 65  LL) {../*.. * De
5620: 6c 65 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67  lete an existing
5630: 20 74 69 6d 65 72 2e 20 49 74 20 77 61 73 20 6e   timer. It was n
5640: 6f 74 20 66 69 72 65 64 2c 20 79 65 74 20 77 65  ot fired, yet we
5650: 20 61 72 65 0a 09 20 2a 20 68 65 72 65 2c 20 73   are.. * here, s
5660: 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 62 65  o the channel be
5670: 6c 6f 77 20 67 65 6e 65 72 61 74 65 64 20 73 75  low generated su
5680: 63 68 20 61 6e 20 65 76 65 6e 74 20 61 6e 64 20  ch an event and 
5690: 77 65 0a 09 20 2a 20 64 6f 6e 27 74 20 68 61 76  we.. * don't hav
56a0: 65 20 74 6f 2e 20 54 68 65 20 72 65 6e 65 77 61  e to. The renewa
56b0: 6c 20 6f 66 20 74 68 65 20 69 6e 74 65 72 65 73  l of the interes
56c0: 74 20 61 66 74 65 72 20 74 68 65 0a 09 20 2a 20  t after the.. * 
56d0: 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 63 68 61  execution of cha
56e0: 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 77 69  nnel handlers wi
56f0: 6c 6c 20 65 76 65 6e 74 75 61 6c 6c 79 20 63 61  ll eventually ca
5700: 75 73 65 20 75 73 20 74 6f 0a 09 20 2a 20 72 65  use us to.. * re
5710: 63 72 65 61 74 65 20 74 68 65 20 74 69 6d 65 72  create the timer
5720: 20 28 69 6e 20 57 61 74 63 68 50 72 6f 63 29 2e   (in WatchProc).
5730: 0a 09 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c 65 74  .. */..Tcl_Delet
5740: 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74  eTimerHandler(st
5750: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a  atePtr->timer);.
5760: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72  .statePtr->timer
5770: 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b   = (Tcl_TimerTok
5780: 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a  en) NULL;.    }.
5790: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74  .    if (statePt
57a0: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54  r->flags & TLS_T
57b0: 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b 0a 09  CL_CALLBACK) {..
57c0: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69  dprintf("Returni
57d0: 6e 67 20 30 20 64 75 65 20 74 6f 20 63 61 6c 6c  ng 0 due to call
57e0: 62 61 63 6b 22 29 3b 0a 09 72 65 74 75 72 6e 20  back");..return 
57f0: 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70  0;.    }..    dp
5800: 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54  rintf("Calling T
5810: 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63  ls_WaitForConnec
5820: 74 22 29 3b 0a 20 20 20 20 65 72 72 6f 72 43 6f  t");.    errorCo
5830: 64 65 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28  de = 0;.    if (
5840: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65  Tls_WaitForConne
5850: 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 65 72  ct(statePtr, &er
5860: 72 6f 72 43 6f 64 65 2c 20 31 29 20 3c 20 30 29  rorCode, 1) < 0)
5870: 20 7b 0a 09 69 66 20 28 65 72 72 6f 72 43 6f 64   {..if (errorCod
5880: 65 20 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09  e == EAGAIN) {..
5890: 20 20 20 20 64 70 72 69 6e 74 66 28 22 41 73 79      dprintf("Asy
58a0: 6e 63 20 66 6c 61 67 20 63 6f 75 6c 64 20 62 65  nc flag could be
58b0: 20 73 65 74 20 28 64 69 64 6e 27 74 20 63 68 65   set (didn't che
58c0: 63 6b 29 20 61 6e 64 20 65 72 72 6f 72 43 6f 64  ck) and errorCod
58d0: 65 20 3d 3d 20 45 41 47 41 49 4e 3a 20 20 52 65  e == EAGAIN:  Re
58e0: 74 75 72 6e 69 6e 67 20 30 22 29 3b 0a 0a 09 20  turning 0");... 
58f0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 09 7d 0a     return 0;..}.
5900: 0a 09 64 70 72 69 6e 74 66 28 22 54 6c 73 5f 57  ..dprintf("Tls_W
5910: 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 72 65  aitForConnect re
5920: 74 75 72 6e 65 64 20 61 6e 20 65 72 72 6f 72 22  turned an error"
5930: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70  );.    }..    dp
5940: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67  rintf("Returning
5950: 20 25 69 22 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20   %i", mask);..  
5960: 20 20 72 65 74 75 72 6e 28 6d 61 73 6b 29 3b 0a    return(mask);.
5970: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  }../*. *--------
5980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
59a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a  --------------*.
59b0: 20 2a 0a 20 2a 20 20 20 20 54 6c 73 43 68 61 6e   *. *    TlsChan
59c0: 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 20  nelHandlerTimer 
59d0: 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 2d 2d 2d 2d  --. *. *    ----
59e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
59f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a  ------------*. *
5a10: 20 20 20 20 43 61 6c 6c 65 64 20 62 79 20 74 68      Called by th
5a20: 65 20 6e 6f 74 69 66 69 65 72 20 28 2d 3e 20 74  e notifier (-> t
5a30: 69 6d 65 72 29 20 74 6f 20 66 6c 75 73 68 20 6f  imer) to flush o
5a40: 75 74 0a 20 2a 20 20 20 20 69 6e 66 6f 72 6d 61  ut. *    informa
5a50: 74 69 6f 6e 20 77 61 69 74 69 6e 67 20 69 6e 20  tion waiting in 
5a60: 63 68 61 6e 6e 65 6c 20 62 75 66 66 65 72 73 2e  channel buffers.
5a70: 0a 20 2a 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *    ---------
5a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5aa0: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20  -------*. *. *  
5ab0: 20 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a    Side effects:.
5ac0: 20 2a 20 20 20 20 20 20 20 20 41 73 20 6f 66 20   *        As of 
5ad0: 27 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c  'TlsChannelHandl
5ae0: 65 72 27 2e 0a 20 2a 0a 20 2a 20 20 20 20 52 65  er'.. *. *    Re
5af0: 73 75 6c 74 3a 0a 20 2a 20 20 20 20 20 20 20 20  sult:. *        
5b00: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  None.. *. *-----
5b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5b40: 2d 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f  -*. */.static vo
5b50: 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e  id TlsChannelHan
5b60: 64 6c 65 72 54 69 6d 65 72 28 76 6f 69 64 20 2a  dlerTimer(void *
5b70: 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a 20 20  clientData) {.  
5b80: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74    State *statePt
5b90: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 63 6c 69  r = (State *)cli
5ba0: 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74  entData;.    int
5bb0: 20 6d 61 73 6b 20 3d 20 30 3b 0a 0a 20 20 20 20   mask = 0;..    
5bc0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22  dprintf("Called"
5bd0: 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72  );..    statePtr
5be0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54  ->timer = (Tcl_T
5bf0: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b  imerToken) NULL;
5c00: 0a 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 77 70  ..    if (BIO_wp
5c10: 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d  ending(statePtr-
5c20: 3e 62 69 6f 29 29 20 7b 0a 09 64 70 72 69 6e 74  >bio)) {..dprint
5c30: 66 28 22 5b 63 68 61 6e 3d 25 70 5d 20 42 49 4f  f("[chan=%p] BIO
5c40: 20 77 72 69 74 61 62 6c 65 22 2c 20 73 74 61 74   writable", stat
5c50: 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 0a 09 6d  ePtr->self);...m
5c60: 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41  ask |= TCL_WRITA
5c70: 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  BLE;.    }..    
5c80: 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28  if (BIO_pending(
5c90: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20  statePtr->bio)) 
5ca0: 7b 0a 09 64 70 72 69 6e 74 66 28 22 5b 63 68 61  {..dprintf("[cha
5cb0: 6e 3d 25 70 5d 20 42 49 4f 20 72 65 61 64 61 62  n=%p] BIO readab
5cc0: 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73  le", statePtr->s
5cd0: 65 6c 66 29 3b 0a 0a 09 6d 61 73 6b 20 7c 3d 20  elf);...mask |= 
5ce0: 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 20 20  TCL_READABLE;.  
5cf0: 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66    }..    dprintf
5d00: 28 22 4e 6f 74 69 66 79 69 6e 67 20 6f 75 72 73  ("Notifying ours
5d10: 65 6c 76 65 73 22 29 3b 0a 20 20 20 20 54 63 6c  elves");.    Tcl
5d20: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73  _NotifyChannel(s
5d30: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d  tatePtr->self, m
5d40: 61 73 6b 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e  ask);..    dprin
5d50: 74 66 28 22 52 65 74 75 72 6e 69 6e 67 22 29 3b  tf("Returning");
5d60: 0a 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a  ..    return;.}.
5d70: 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 54 6c 73  .Tcl_Channel Tls
5d80: 5f 47 65 74 50 61 72 65 6e 74 28 53 74 61 74 65  _GetParent(State
5d90: 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 20   *statePtr, int 
5da0: 6d 61 73 6b 46 6c 61 67 73 29 20 7b 0a 20 20 20  maskFlags) {.   
5db0: 20 64 70 72 69 6e 74 66 28 22 52 65 71 75 65 73   dprintf("Reques
5dc0: 74 65 64 20 74 6f 20 67 65 74 20 70 61 72 65 6e  ted to get paren
5dd0: 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 25 70 22  t of channel %p"
5de0: 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66  , statePtr->self
5df0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 73 74 61  );..    if ((sta
5e00: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 7e  tePtr->flags & ~
5e10: 6d 61 73 6b 46 6c 61 67 73 29 20 26 20 54 4c 53  maskFlags) & TLS
5e20: 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 29 20 7b  _TCL_FASTPATH) {
5e30: 0a 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64  ..dprintf("Asked
5e40: 20 74 6f 20 67 65 74 20 74 68 65 20 70 61 72 65   to get the pare
5e50: 6e 74 20 63 68 61 6e 6e 65 6c 20 77 68 69 6c 65  nt channel while
5e60: 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 46 61   we are using Fa
5e70: 73 74 50 61 74 68 20 2d 2d 20 72 65 74 75 72 6e  stPath -- return
5e80: 69 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 72 65 74  ing NULL");..ret
5e90: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d  urn(NULL);.    }
5ea0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f  .    return Tcl_
5eb0: 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65  GetStackedChanne
5ec0: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66  l(statePtr->self
5ed0: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  );.}../*. *-----
5ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
5f20: 2a 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 6c  *. * Tls_Channel
5f30: 54 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20  Type --. *. *   
5f40: 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 72 72   Return the corr
5f50: 65 63 74 20 54 4c 53 20 63 68 61 6e 6e 65 6c 20  ect TLS channel 
5f60: 64 72 69 76 65 72 20 69 6e 66 6f 0a 20 2a 0a 20  driver info. *. 
5f70: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 20 20 20  * Results:. *   
5f80: 20 54 68 65 20 63 6f 72 72 65 63 74 20 63 68 61   The correct cha
5f90: 6e 6e 65 6c 20 64 72 69 76 65 72 20 66 6f 72 20  nnel driver for 
5fa0: 74 68 65 20 63 75 72 72 65 6e 74 20 76 65 72 73  the current vers
5fb0: 69 6f 6e 20 6f 66 20 54 63 6c 2e 0a 20 2a 0a 20  ion of Tcl.. *. 
5fc0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
5fd0: 20 2a 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20   *    None.. *. 
5fe0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
5ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6020: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20  ----. */.static 
6030: 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65  const Tcl_Channe
6040: 6c 54 79 70 65 20 74 6c 73 43 68 61 6e 6e 65 6c  lType tlsChannel
6050: 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 74 6c  Type = {.    "tl
6060: 73 22 2c 09 09 09 2f 2a 20 54 79 70 65 20 6e 61  s",.../* Type na
6070: 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c 5f 43 48  me */.    TCL_CH
6080: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c  ANNEL_VERSION_5,
6090: 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 6c 20 2a  ./* v5 channel *
60a0: 2f 0a 20 20 20 20 54 6c 73 43 6c 6f 73 65 50 72  /.    TlsClosePr
60b0: 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72  oc,../* Close pr
60c0: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 49 6e 70  oc */.    TlsInp
60d0: 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75  utProc,../* Inpu
60e0: 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c  t proc */.    Tl
60f0: 73 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a  sOutputProc,../*
6100: 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a   Output proc */.
6110: 20 20 20 20 30 2c 09 09 09 2f 2a 20 53 65 65 6b      0,.../* Seek
6120: 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73   proc */.    Tls
6130: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09  SetOptionProc,..
6140: 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 72  /* Set option pr
6150: 6f 63 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74  oc */.    TlsGet
6160: 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 09 2f 2a 20  OptionProc,../* 
6170: 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20  Get option proc 
6180: 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74 63 68 50  */.    TlsWatchP
6190: 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c  roc,../* Initial
61a0: 69 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a  ize notifier */.
61b0: 20 20 20 20 54 6c 73 47 65 74 48 61 6e 64 6c 65      TlsGetHandle
61c0: 50 72 6f 63 2c 09 09 2f 2a 20 47 65 74 20 4f 53  Proc,../* Get OS
61d0: 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 20   handles out of 
61e0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 54  channel */.    T
61f0: 6c 73 43 6c 6f 73 65 32 50 72 6f 63 2c 09 09 2f  lsClose2Proc,../
6200: 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20 2a 2f 0a  * close2proc */.
6210: 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65      TlsBlockMode
6220: 50 72 6f 63 2c 09 09 2f 2a 20 53 65 74 20 62 6c  Proc,../* Set bl
6230: 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69  ocking/nonblocki
6240: 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 30 2c  ng mode*/.    0,
6250: 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 6f 63  .../* Flush proc
6260: 20 2a 2f 0a 20 20 20 20 54 6c 73 4e 6f 74 69 66   */.    TlsNotif
6270: 79 50 72 6f 63 2c 09 09 2f 2a 20 48 61 6e 64 6c  yProc,../* Handl
6280: 69 6e 67 20 6f 66 20 65 76 65 6e 74 73 20 62 75  ing of events bu
6290: 62 62 6c 69 6e 67 20 75 70 20 2a 2f 0a 20 20 20  bbling up */.   
62a0: 20 30 2c 09 09 09 2f 2a 20 57 69 64 65 20 73 65   0,.../* Wide se
62b0: 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e  ek proc */.    N
62c0: 55 4c 4c 2c 09 09 09 2f 2a 20 54 68 72 65 61 64  ULL,.../* Thread
62d0: 20 61 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 4e   action */.    N
62e0: 55 4c 4c 09 09 09 2f 2a 20 54 72 75 6e 63 61 74  ULL.../* Truncat
62f0: 65 20 2a 2f 0a 7d 3b 0a 0a 63 6f 6e 73 74 20 54  e */.};..const T
6300: 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a  cl_ChannelType *
6310: 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28  Tls_ChannelType(
6320: 76 6f 69 64 29 20 7b 0a 20 20 20 20 72 65 74 75  void) {.    retu
6330: 72 6e 20 26 74 6c 73 43 68 61 6e 6e 65 6c 54 79  rn &tlsChannelTy
6340: 70 65 3b 0a 7d 0a                                pe;.}.