TclTLS: Hex Artifact Content

Artifact 9278c7db29d6e963d6377136966fe6ead55e321b:

File tlsIO.c — part of check-in [b3dc06600e] at 2015-05-01 18:44:34 on branch trunk — * configure.in: Bump to version 1.6.5. * win/makefile.vc: * configure: regen with ac-2.59 * tls.c: Accepted SF TLS [bug/patch #57](https://sourceforge.net/p/tls/bugs/57/). * tlsIO.c: Accepted core Tcl patch in [ticket](http://core.tcl.tk/tcl/tktview/0f94f855cafed92d0e174b7d835453a02831b4dd). (user: andreas_kupries, size: 29076) [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 24 48 65 61 64 65  ons. *. * $Heade
0070: 72 3a 20 2f 68 6f 6d 65 2f 72 6b 65 65 6e 65 2f  r: /home/rkeene/
0080: 74 6d 70 2f 63 76 73 32 66 6f 73 73 69 6c 2f 2e  tmp/cvs2fossil/.
0090: 2e 2f 74 63 6c 74 6c 73 2f 74 6c 73 2f 74 6c 73  ./tcltls/tls/tls
00a0: 2f 74 6c 73 49 4f 2e 63 2c 76 20 31 2e 31 38 20  /tlsIO.c,v 1.18 
00b0: 32 30 31 35 2f 30 35 2f 30 31 20 31 38 3a 34 34  2015/05/01 18:44
00c0: 3a 33 34 20 61 6e 64 72 65 61 73 5f 6b 75 70 72  :34 andreas_kupr
00d0: 69 65 73 20 45 78 70 20 24 0a 20 2a 0a 20 2a 20  ies Exp $. *. * 
00e0: 54 4c 53 20 28 61 6b 61 20 53 53 4c 29 20 43 68  TLS (aka SSL) Ch
00f0: 61 6e 6e 65 6c 20 2d 20 63 61 6e 20 62 65 20 6c  annel - can be l
0100: 61 79 65 72 65 64 20 6f 6e 20 61 6e 79 20 62 69  ayered on any bi
0110: 2d 64 69 72 65 63 74 69 6f 6e 61 6c 0a 20 2a 20  -directional. * 
0120: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 4e 6f 74  Tcl_Channel (Not
0130: 65 3a 20 52 65 71 75 69 72 65 73 20 54 72 66 20  e: Requires Trf 
0140: 43 6f 72 65 20 50 61 74 63 68 29 0a 20 2a 0a 20  Core Patch). *. 
0150: 2a 20 54 68 69 73 20 77 61 73 20 62 75 69 6c 74  * This was built
0160: 20 66 72 6f 6d 20 73 63 72 61 74 63 68 20 62 61   from scratch ba
0170: 73 65 64 20 75 70 6f 6e 20 6f 62 73 65 72 76 61  sed upon observa
0180: 74 69 6f 6e 20 6f 66 20 4f 70 65 6e 53 53 4c 20  tion of OpenSSL 
0190: 30 2e 39 2e 32 42 0a 20 2a 0a 20 2a 20 41 64 64  0.9.2B. *. * Add
01a0: 69 74 69 6f 6e 20 63 72 65 64 69 74 20 69 73 20  ition credit is 
01b0: 64 75 65 20 66 6f 72 20 41 6e 64 72 65 61 73 20  due for Andreas 
01c0: 4b 75 70 72 69 65 73 20 28 61 2e 6b 75 70 72 69  Kupries (a.kupri
01d0: 65 73 40 77 65 73 74 65 6e 64 2e 63 6f 6d 29 2c  es@westend.com),
01e0: 20 66 6f 72 0a 20 2a 20 70 72 6f 76 69 64 69 6e   for. * providin
01f0: 67 20 74 68 65 20 54 63 6c 5f 52 65 70 6c 61 63  g the Tcl_Replac
0200: 65 43 68 61 6e 6e 65 6c 20 6d 65 63 68 61 6e 69  eChannel mechani
0210: 73 6d 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 63  sm and working c
0220: 6c 6f 73 65 6c 79 20 77 69 74 68 20 6d 65 0a 20  losely with me. 
0230: 2a 20 74 6f 20 65 6e 68 61 6e 63 65 20 69 74 20  * to enhance it 
0240: 74 6f 20 73 75 70 70 6f 72 74 20 66 75 6c 6c 20  to support full 
0250: 66 69 6c 65 65 76 65 6e 74 20 73 65 6d 61 6e 74  fileevent semant
0260: 69 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f 20  ics.. *. * Also 
0270: 77 6f 72 6b 20 64 6f 6e 65 20 62 79 20 74 68 65  work done by the
0280: 20 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 70   follow people p
0290: 72 6f 76 69 64 65 64 20 74 68 65 20 69 6d 70 65  rovided the impe
02a0: 74 75 73 20 74 6f 20 64 6f 20 74 68 69 73 20 22  tus to do this "
02b0: 72 69 67 68 74 22 3a 0a 20 2a 09 74 63 6c 53 53  right":. *.tclSS
02c0: 4c 20 28 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61  L (Colin McCorma
02d0: 63 6b 2c 20 53 68 61 72 65 64 20 54 65 63 68 6e  ck, Shared Techn
02e0: 6f 6c 6f 67 79 29 0a 20 2a 09 53 53 4c 74 63 6c  ology). *.SSLtcl
02f0: 20 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a   (Peter Antman).
0300: 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65   *. */..#include
0310: 20 22 74 6c 73 49 6e 74 2e 68 22 0a 0a 2f 2a 0a   "tlsInt.h"../*.
0320: 20 2a 20 46 6f 72 77 61 72 64 20 64 65 63 6c 61   * Forward decla
0330: 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 73 74 61  rations. */..sta
0340: 74 69 63 20 69 6e 74 09 54 6c 73 42 6c 6f 63 6b  tic int.TlsBlock
0350: 4d 6f 64 65 50 72 6f 63 20 5f 41 4e 53 49 5f 41  ModeProc _ANSI_A
0360: 52 47 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61  RGS_((ClientData
0370: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 09   instanceData,..
0380: 09 09 69 6e 74 20 6d 6f 64 65 29 29 3b 0a 73 74  ..int mode));.st
0390: 61 74 69 63 20 69 6e 74 09 54 6c 73 43 6c 6f 73  atic int.TlsClos
03a0: 65 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53  eProc _ANSI_ARGS
03b0: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69  _ ((ClientData i
03c0: 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 09 09 09  nstanceData,....
03d0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
03e0: 72 70 29 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  rp));.static int
03f0: 09 54 6c 73 49 6e 70 75 74 50 72 6f 63 20 5f 41  .TlsInputProc _A
0400: 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e  NSI_ARGS_((Clien
0410: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61  tData instanceDa
0420: 74 61 2c 0a 09 09 09 63 68 61 72 20 2a 62 75 66  ta,....char *buf
0430: 2c 20 69 6e 74 20 62 75 66 53 69 7a 65 2c 20 69  , int bufSize, i
0440: 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72  nt *errorCodePtr
0450: 29 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 09 54  ));.static int.T
0460: 6c 73 4f 75 74 70 75 74 50 72 6f 63 20 5f 41 4e  lsOutputProc _AN
0470: 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74  SI_ARGS_((Client
0480: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74  Data instanceDat
0490: 61 2c 0a 09 09 09 43 4f 4e 53 54 20 63 68 61 72  a,....CONST char
04a0: 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 57 72 69   *buf, int toWri
04b0: 74 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f  te, int *errorCo
04c0: 64 65 50 74 72 29 29 3b 0a 73 74 61 74 69 63 20  dePtr));.static 
04d0: 69 6e 74 09 54 6c 73 47 65 74 4f 70 74 69 6f 6e  int.TlsGetOption
04e0: 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f  Proc _ANSI_ARGS_
04f0: 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e   ((ClientData in
0500: 73 74 61 6e 63 65 44 61 74 61 2c 0a 09 09 09 54  stanceData,....T
0510: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0520: 70 2c 20 43 4f 4e 53 54 38 34 20 63 68 61 72 20  p, CONST84 char 
0530: 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 09 09  *optionName,....
0540: 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 64 73 50  Tcl_DString *dsP
0550: 74 72 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69  tr));.static voi
0560: 64 09 54 6c 73 57 61 74 63 68 50 72 6f 63 20 5f  d.TlsWatchProc _
0570: 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65  ANSI_ARGS_((Clie
0580: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44  ntData instanceD
0590: 61 74 61 2c 20 69 6e 74 20 6d 61 73 6b 29 29 3b  ata, int mask));
05a0: 0a 73 74 61 74 69 63 20 69 6e 74 09 54 6c 73 47  .static int.TlsG
05b0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 5f 41 4e  etHandleProc _AN
05c0: 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e  SI_ARGS_ ((Clien
05d0: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61  tData instanceDa
05e0: 74 61 2c 0a 09 09 09 69 6e 74 20 64 69 72 65 63  ta,....int direc
05f0: 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 74 61  tion, ClientData
0600: 20 2a 68 61 6e 64 6c 65 50 74 72 29 29 3b 0a 73   *handlePtr));.s
0610: 74 61 74 69 63 20 69 6e 74 09 54 6c 73 4e 6f 74  tatic int.TlsNot
0620: 69 66 79 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52  ifyProc _ANSI_AR
0630: 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61  GS_ ((ClientData
0640: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 09   instanceData,..
0650: 09 09 69 6e 74 20 6d 61 73 6b 29 29 3b 0a 73 74  ..int mask));.st
0660: 61 74 69 63 20 76 6f 69 64 09 54 6c 73 43 68 61  atic void.TlsCha
0670: 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 5f 41 4e 53  nnelHandler _ANS
0680: 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74  I_ARGS_ ((Client
0690: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c  Data clientData,
06a0: 0a 09 09 09 69 6e 74 20 6d 61 73 6b 29 29 3b 0a  ....int mask));.
06b0: 73 74 61 74 69 63 20 76 6f 69 64 09 54 6c 73 43  static void.TlsC
06c0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d  hannelHandlerTim
06d0: 65 72 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28  er _ANSI_ARGS_ (
06e0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65  (ClientData clie
06f0: 6e 74 44 61 74 61 29 29 3b 0a 0a 2f 2a 0a 20 2a  ntData));../*. *
0700: 20 54 68 69 73 20 73 74 72 75 63 74 75 72 65 20   This structure 
0710: 64 65 73 63 72 69 62 65 73 20 74 68 65 20 63 68  describes the ch
0720: 61 6e 6e 65 6c 20 74 79 70 65 20 73 74 72 75 63  annel type struc
0730: 74 75 72 65 20 66 6f 72 20 54 43 50 20 73 6f 63  ture for TCP soc
0740: 6b 65 74 0a 20 2a 20 62 61 73 65 64 20 49 4f 2e  ket. * based IO.
0750: 20 20 54 68 65 73 65 20 61 72 65 20 77 68 61 74    These are what
0760: 20 74 68 65 20 73 74 72 75 63 74 75 72 65 73 20   the structures 
0770: 73 68 6f 75 6c 64 20 6c 6f 6f 6b 20 6c 69 6b 65  should look like
0780: 2c 20 62 75 74 20 77 65 0a 20 2a 20 68 61 76 65  , but we. * have
0790: 20 74 6f 20 62 75 69 6c 64 20 74 68 65 6d 20 75   to build them u
07a0: 70 20 61 74 20 72 75 6e 74 69 6d 65 20 74 6f 20  p at runtime to 
07b0: 62 65 20 63 6f 72 72 65 63 74 20 64 65 70 65 6e  be correct depen
07c0: 64 69 6e 67 20 6f 6e 20 77 68 65 74 68 65 72 0a  ding on whether.
07d0: 20 2a 20 77 65 20 61 72 65 20 6c 6f 61 64 65 64   * we are loaded
07e0: 20 69 6e 74 6f 20 61 6e 20 38 2e 32 2e 30 2d 38   into an 8.2.0-8
07f0: 2e 33 2e 31 20 6f 72 20 38 2e 33 2e 32 2b 20 54  .3.1 or 8.3.2+ T
0800: 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a  cl interpreter..
0810: 20 2a 2f 0a 23 69 66 64 65 66 20 54 4c 53 5f 53   */.#ifdef TLS_S
0820: 54 41 54 49 43 5f 53 54 52 55 43 54 55 52 45 53  TATIC_STRUCTURES
0830: 5f 4e 4f 54 5f 55 53 45 44 0a 73 74 61 74 69 63  _NOT_USED.static
0840: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65   Tcl_ChannelType
0850: 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 32   tlsChannelType2
0860: 20 3d 20 7b 0a 20 20 20 20 22 74 6c 73 22 2c 09   = {.    "tls",.
0870: 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 2e 20 2a  ./* Type name. *
0880: 2f 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45  /.    TCL_CHANNE
0890: 4c 5f 56 45 52 53 49 4f 4e 5f 32 2c 09 2f 2a 20  L_VERSION_2,./* 
08a0: 41 20 76 32 20 63 68 61 6e 6e 65 6c 20 28 38 2e  A v2 channel (8.
08b0: 33 2e 32 2b 29 20 2a 2f 0a 20 20 20 20 54 6c 73  3.2+) */.    Tls
08c0: 43 6c 6f 73 65 50 72 6f 63 2c 09 2f 2a 20 43 6c  CloseProc,./* Cl
08d0: 6f 73 65 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20  ose proc. */.   
08e0: 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 2c 09 2f   TlsInputProc,./
08f0: 2a 20 49 6e 70 75 74 20 70 72 6f 63 2e 20 2a 2f  * Input proc. */
0900: 0a 20 20 20 20 54 6c 73 4f 75 74 70 75 74 50 72  .    TlsOutputPr
0910: 6f 63 2c 09 2f 2a 20 4f 75 74 70 75 74 20 70 72  oc,./* Output pr
0920: 6f 63 2e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c  oc. */.    NULL,
0930: 09 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 2e 20  ../* Seek proc. 
0940: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 2f 2a  */.    NULL,../*
0950: 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63   Set option proc
0960: 2e 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 4f  . */.    TlsGetO
0970: 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 47 65  ptionProc,./* Ge
0980: 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 2e 20 2a  t option proc. *
0990: 2f 0a 20 20 20 20 54 6c 73 57 61 74 63 68 50 72  /.    TlsWatchPr
09a0: 6f 63 2c 09 2f 2a 20 49 6e 69 74 69 61 6c 69 7a  oc,./* Initializ
09b0: 65 20 6e 6f 74 69 66 69 65 72 2e 20 2a 2f 0a 20  e notifier. */. 
09c0: 20 20 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 50     TlsGetHandleP
09d0: 72 6f 63 2c 09 2f 2a 20 47 65 74 20 66 69 6c 65  roc,./* Get file
09e0: 20 68 61 6e 64 6c 65 20 6f 75 74 20 6f 66 20 63   handle out of c
09f0: 68 61 6e 6e 65 6c 2e 20 2a 2f 0a 20 20 20 20 4e  hannel. */.    N
0a00: 55 4c 4c 2c 09 09 2f 2a 20 43 6c 6f 73 65 32 50  ULL,../* Close2P
0a10: 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 54 6c 73 42  roc. */.    TlsB
0a20: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 2f 2a  lockModeProc,./*
0a30: 20 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f   Set blocking/no
0a40: 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 2a  nblocking mode.*
0a50: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 2f 2a 20  /.    NULL,../* 
0a60: 46 6c 75 73 68 50 72 6f 63 2e 20 2a 2f 0a 20 20  FlushProc. */.  
0a70: 20 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 2c    TlsNotifyProc,
0a80: 09 2f 2a 20 68 61 6e 64 6c 65 72 50 72 6f 63 2e  ./* handlerProc.
0a90: 20 2a 2f 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 54   */.};..static T
0aa0: 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 74  cl_ChannelType t
0ab0: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 31 20 3d  lsChannelType1 =
0ac0: 20 7b 0a 20 20 20 20 22 74 6c 73 22 2c 09 09 2f   {.    "tls",../
0ad0: 2a 20 54 79 70 65 20 6e 61 6d 65 2e 20 2a 2f 0a  * Type name. */.
0ae0: 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65      TlsBlockMode
0af0: 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 62 6c 6f  Proc,./* Set blo
0b00: 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e  cking/nonblockin
0b10: 67 20 6d 6f 64 65 2e 2a 2f 0a 20 20 20 20 54 6c  g mode.*/.    Tl
0b20: 73 43 6c 6f 73 65 50 72 6f 63 2c 09 2f 2a 20 43  sCloseProc,./* C
0b30: 6c 6f 73 65 20 70 72 6f 63 2e 20 2a 2f 0a 20 20  lose proc. */.  
0b40: 20 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 2c 09    TlsInputProc,.
0b50: 2f 2a 20 49 6e 70 75 74 20 70 72 6f 63 2e 20 2a  /* Input proc. *
0b60: 2f 0a 20 20 20 20 54 6c 73 4f 75 74 70 75 74 50  /.    TlsOutputP
0b70: 72 6f 63 2c 09 2f 2a 20 4f 75 74 70 75 74 20 70  roc,./* Output p
0b80: 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c  roc. */.    NULL
0b90: 2c 09 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 2e  ,../* Seek proc.
0ba0: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 2f   */.    NULL,../
0bb0: 2a 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f  * Set option pro
0bc0: 63 2e 20 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74  c. */.    TlsGet
0bd0: 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 47  OptionProc,./* G
0be0: 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 2e 20  et option proc. 
0bf0: 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74 63 68 50  */.    TlsWatchP
0c00: 72 6f 63 2c 09 2f 2a 20 49 6e 69 74 69 61 6c 69  roc,./* Initiali
0c10: 7a 65 20 6e 6f 74 69 66 69 65 72 2e 20 2a 2f 0a  ze notifier. */.
0c20: 20 20 20 20 54 6c 73 47 65 74 48 61 6e 64 6c 65      TlsGetHandle
0c30: 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 66 69 6c  Proc,./* Get fil
0c40: 65 20 68 61 6e 64 6c 65 20 6f 75 74 20 6f 66 20  e handle out of 
0c50: 63 68 61 6e 6e 65 6c 2e 20 2a 2f 0a 7d 3b 0a 23  channel. */.};.#
0c60: 65 6c 73 65 0a 73 74 61 74 69 63 20 54 63 6c 5f  else.static Tcl_
0c70: 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 74 6c 73  ChannelType *tls
0c80: 43 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 4e 55  ChannelType = NU
0c90: 4c 4c 3b 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20  LL;.#endif../*. 
0ca0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
0cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ce0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43  ----. *. * Tls_C
0cf0: 68 61 6e 6e 65 6c 54 79 70 65 20 2d 2d 0a 20 2a  hannelType --. *
0d00: 0a 20 2a 09 52 65 74 75 72 6e 20 74 68 65 20 63  . *.Return the c
0d10: 6f 72 72 65 63 74 20 54 4c 53 20 63 68 61 6e 6e  orrect TLS chann
0d20: 65 6c 20 64 72 69 76 65 72 20 69 6e 66 6f 0a 20  el driver info. 
0d30: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
0d40: 09 54 68 65 20 63 6f 72 72 65 63 74 20 63 68 61  .The correct cha
0d50: 6e 6e 65 6c 20 64 72 69 76 65 72 20 66 6f 72 20  nnel driver for 
0d60: 74 68 65 20 63 75 72 72 65 6e 74 20 76 65 72 73  the current vers
0d70: 69 6f 6e 20 6f 66 20 54 63 6c 2e 0a 20 2a 0a 20  ion of Tcl.. *. 
0d80: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
0d90: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d   *.None.. *. *--
0da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0de0: 2d 0a 20 2a 2f 0a 54 63 6c 5f 43 68 61 6e 6e 65  -. */.Tcl_Channe
0df0: 6c 54 79 70 65 20 2a 54 6c 73 5f 43 68 61 6e 6e  lType *Tls_Chann
0e00: 65 6c 54 79 70 65 28 29 0a 7b 0a 20 20 20 20 2f  elType().{.    /
0e10: 2a 0a 20 20 20 20 20 2a 20 49 6e 69 74 69 61 6c  *.     * Initial
0e20: 69 7a 65 20 74 68 65 20 63 68 61 6e 6e 65 6c 20  ize the channel 
0e30: 74 79 70 65 20 69 66 20 6e 65 63 65 73 73 61 72  type if necessar
0e40: 79 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66  y.     */.    if
0e50: 20 28 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65   (tlsChannelType
0e60: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a   == NULL) {../*.
0e70: 09 20 2a 20 41 6c 6c 6f 63 61 74 69 6f 6e 20 6f  . * Allocation o
0e80: 66 20 61 20 6e 65 77 20 63 68 61 6e 6e 65 6c 74  f a new channelt
0e90: 79 70 65 20 73 74 72 75 63 74 75 72 65 20 69 73  ype structure is
0ea0: 20 6e 6f 74 20 65 61 73 79 2c 20 62 65 63 61 75   not easy, becau
0eb0: 73 65 20 6f 66 0a 09 20 2a 20 74 68 65 20 76 61  se of.. * the va
0ec0: 72 69 6f 75 73 20 76 65 72 73 6f 6e 20 6f 66 20  rious verson of 
0ed0: 74 68 65 20 63 6f 72 65 20 61 6e 64 20 73 75 62  the core and sub
0ee0: 73 65 71 75 65 6e 74 20 63 68 61 6e 67 65 73 20  sequent changes 
0ef0: 74 6f 20 74 68 65 0a 09 20 2a 20 73 74 72 75 63  to the.. * struc
0f00: 74 75 72 65 2e 20 54 68 65 20 6d 61 69 6e 20 63  ture. The main c
0f10: 68 61 6c 6c 65 6e 67 65 20 69 73 20 74 6f 20 61  hallenge is to a
0f20: 6c 6c 6f 63 61 74 65 20 65 6e 6f 75 67 68 20 6d  llocate enough m
0f30: 65 6d 6f 72 79 20 66 6f 72 0a 09 20 2a 20 6f 64  emory for.. * od
0f40: 65 72 6e 20 76 65 72 73 69 6f 6e 73 20 65 76 65  ern versions eve
0f50: 6e 20 69 66 20 74 68 69 73 20 65 78 74 79 65 6e  n if this extyen
0f60: 73 69 6f 6e 20 69 73 20 63 6f 6d 70 69 6c 65 64  sion is compiled
0f70: 20 61 67 61 69 6e 73 74 20 6f 6e 65 0a 09 20 2a   against one.. *
0f80: 20 6f 66 20 74 68 65 20 6f 6c 64 65 72 20 76 61   of the older va
0f90: 72 69 61 6e 74 21 0a 09 20 2a 0a 09 20 2a 20 28  riant!.. *.. * (
0fa0: 31 29 20 56 65 72 73 69 6f 6e 73 20 62 65 66 6f  1) Versions befo
0fb0: 72 65 20 73 74 75 62 73 20 28 38 2e 30 2e 78 29  re stubs (8.0.x)
0fc0: 20 61 72 65 20 73 69 6d 70 6c 65 2c 20 62 65 63   are simple, bec
0fd0: 61 75 73 65 20 74 68 65 79 20 61 72 65 0a 09 20  ause they are.. 
0fe0: 2a 20 20 20 20 20 73 75 70 70 6f 72 74 65 64 20  *     supported 
0ff0: 6f 6e 6c 79 20 69 66 20 74 68 65 20 65 78 74 65  only if the exte
1000: 6e 73 69 6f 6e 20 69 73 20 63 6f 6d 70 69 6c 65  nsion is compile
1010: 64 20 61 67 61 69 6e 73 74 20 65 78 61 63 74 6c  d against exactl
1020: 79 0a 09 20 2a 20 20 20 20 20 74 68 61 74 20 76  y.. *     that v
1030: 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f  ersion of the co
1040: 72 65 2e 0a 09 20 2a 0a 09 20 2a 20 28 32 29 20  re... *.. * (2) 
1050: 57 69 74 68 20 73 74 75 62 73 20 77 65 20 6a 75  With stubs we ju
1060: 73 74 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65  st determine the
1070: 20 64 69 66 66 65 72 65 6e 63 65 20 62 65 74 77   difference betw
1080: 65 65 6e 20 74 68 65 20 6f 6c 64 65 72 0a 09 20  een the older.. 
1090: 2a 20 20 20 20 20 61 6e 64 20 6d 6f 64 65 72 6e  *     and modern
10a0: 20 76 61 72 69 61 6e 74 20 61 6e 64 20 6f 76 65   variant and ove
10b0: 72 61 6c 6c 6f 63 61 74 65 20 61 63 63 6f 72 64  rallocate accord
10c0: 69 6e 67 6c 79 20 69 66 20 63 6f 6d 70 69 6c 65  ingly if compile
10d0: 64 0a 09 20 2a 20 20 20 20 20 61 67 61 69 6e 73  d.. *     agains
10e0: 74 20 61 6e 20 6f 6c 64 65 72 20 76 61 72 69 61  t an older varia
10f0: 6e 74 2e 0a 09 20 2a 2f 0a 0a 09 75 6e 73 69 67  nt... */...unsig
1100: 6e 65 64 20 69 6e 74 20 73 69 7a 65 20 3d 20 73  ned int size = s
1110: 69 7a 65 6f 66 28 54 63 6c 5f 43 68 61 6e 6e 65  izeof(Tcl_Channe
1120: 6c 54 79 70 65 29 3b 20 2f 2a 20 42 61 73 65 20  lType); /* Base 
1130: 73 69 7a 65 20 2a 2f 0a 0a 09 2f 2a 0a 09 20 2a  size */.../*.. *
1140: 20 53 69 7a 65 20 6f 66 20 61 20 70 72 6f 63 65   Size of a proce
1150: 64 75 72 65 20 70 6f 69 6e 74 65 72 2e 20 57 65  dure pointer. We
1160: 20 61 73 73 75 6d 65 20 74 68 61 74 20 61 6c 6c   assume that all
1170: 20 70 72 6f 63 65 64 75 72 65 0a 09 20 2a 20 70   procedure.. * p
1180: 6f 69 6e 74 65 72 73 20 61 72 65 20 6f 66 20 74  ointers are of t
1190: 68 65 20 73 61 6d 65 20 73 69 7a 65 2c 20 72 65  he same size, re
11a0: 67 61 72 64 6c 65 73 73 20 6f 66 20 65 78 61 63  gardless of exac
11b0: 74 20 74 79 70 65 0a 09 20 2a 20 28 61 72 67 75  t type.. * (argu
11c0: 6d 65 6e 74 73 20 61 6e 64 20 72 65 74 75 72 6e  ments and return
11d0: 20 76 61 6c 75 65 73 29 2e 0a 09 20 2a 0a 09 20   values)... *.. 
11e0: 2a 20 38 2e 32 2e 20 20 20 46 69 72 73 74 20 76  * 8.2.   First v
11f0: 65 72 73 69 6f 6e 20 63 6f 6e 74 61 69 6e 69 6e  ersion containin
1200: 67 20 63 6c 6f 73 65 32 70 72 6f 63 2e 20 42 61  g close2proc. Ba
1210: 73 65 6c 69 6e 65 2e 0a 09 20 2a 20 38 2e 33 2e  seline... * 8.3.
1220: 32 20 20 54 68 72 65 65 20 61 64 64 69 74 69 6f  2  Three additio
1230: 6e 61 6c 20 76 65 63 74 6f 72 73 2e 20 4d 6f 76  nal vectors. Mov
1240: 65 64 20 62 6c 6f 63 6b 4d 6f 64 65 2c 20 6e 65  ed blockMode, ne
1250: 77 20 66 6c 75 73 68 2d 20 61 6e 64 0a 09 20 2a  w flush- and.. *
1260: 20 20 20 20 20 20 20 20 68 61 6e 64 6c 65 72 50          handlerP
1270: 72 6f 63 27 73 2e 0a 09 20 2a 0a 09 20 2a 20 3d  roc's... *.. * =
1280: 3e 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 61 67  > Compilation ag
1290: 61 69 6e 73 74 20 65 61 72 6c 69 65 72 20 76 65  ainst earlier ve
12a0: 72 73 69 6f 6e 20 68 61 73 20 74 6f 20 6f 76 65  rsion has to ove
12b0: 72 61 6c 6c 6f 63 61 74 65 20 74 68 72 65 65 0a  rallocate three.
12c0: 09 20 2a 20 20 20 20 70 72 6f 63 65 64 75 72 65  . *    procedure
12d0: 20 70 6f 69 6e 74 65 72 73 2e 0a 09 20 2a 2f 0a   pointers... */.
12e0: 0a 23 69 66 64 65 66 20 45 4d 55 4c 41 54 45 5f  .#ifdef EMULATE_
12f0: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f  CHANNEL_VERSION_
1300: 32 0a 09 73 69 7a 65 20 2b 3d 20 33 20 2a 20 70  2..size += 3 * p
1310: 72 6f 63 50 74 72 53 69 7a 65 3b 0a 23 65 6e 64  rocPtrSize;.#end
1320: 69 66 0a 0a 09 74 6c 73 43 68 61 6e 6e 65 6c 54  if...tlsChannelT
1330: 79 70 65 20 3d 20 28 54 63 6c 5f 43 68 61 6e 6e  ype = (Tcl_Chann
1340: 65 6c 54 79 70 65 20 2a 29 20 63 6b 61 6c 6c 6f  elType *) ckallo
1350: 63 28 73 69 7a 65 29 3b 0a 09 6d 65 6d 73 65 74  c(size);..memset
1360: 28 28 56 4f 49 44 20 2a 29 20 74 6c 73 43 68 61  ((VOID *) tlsCha
1370: 6e 6e 65 6c 54 79 70 65 2c 20 30 2c 20 73 69 7a  nnelType, 0, siz
1380: 65 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 43 6f 6d  e);.../*.. * Com
1390: 6d 6f 6e 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20  mon elements of 
13a0: 74 68 65 20 73 74 72 75 63 74 75 72 65 20 28 6e  the structure (n
13b0: 6f 20 63 68 61 6e 67 65 73 20 69 6e 20 6c 6f 63  o changes in loc
13c0: 61 74 69 6f 6e 20 6f 72 20 6e 61 6d 65 29 0a 09  ation or name)..
13d0: 20 2a 20 63 6c 6f 73 65 32 50 72 6f 63 2c 20 73   * close2Proc, s
13e0: 65 65 6b 50 72 6f 63 2c 20 73 65 74 4f 70 74 69  eekProc, setOpti
13f0: 6f 6e 50 72 6f 63 20 73 74 61 79 20 4e 55 4c 4c  onProc stay NULL
1400: 2e 0a 09 20 2a 2f 0a 0a 09 74 6c 73 43 68 61 6e  ... */...tlsChan
1410: 6e 65 6c 54 79 70 65 2d 3e 74 79 70 65 4e 61 6d  nelType->typeNam
1420: 65 09 3d 20 22 74 6c 73 22 3b 0a 09 74 6c 73 43  e.= "tls";..tlsC
1430: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 63 6c 6f 73  hannelType->clos
1440: 65 50 72 6f 63 09 3d 20 54 6c 73 43 6c 6f 73 65  eProc.= TlsClose
1450: 50 72 6f 63 3b 0a 09 74 6c 73 43 68 61 6e 6e 65  Proc;..tlsChanne
1460: 6c 54 79 70 65 2d 3e 69 6e 70 75 74 50 72 6f 63  lType->inputProc
1470: 09 3d 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 3b  .= TlsInputProc;
1480: 0a 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65  ..tlsChannelType
1490: 2d 3e 6f 75 74 70 75 74 50 72 6f 63 09 3d 20 54  ->outputProc.= T
14a0: 6c 73 4f 75 74 70 75 74 50 72 6f 63 3b 0a 09 74  lsOutputProc;..t
14b0: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 67  lsChannelType->g
14c0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 09 3d 20 54  etOptionProc.= T
14d0: 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b  lsGetOptionProc;
14e0: 0a 09 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65  ..tlsChannelType
14f0: 2d 3e 77 61 74 63 68 50 72 6f 63 09 3d 20 54 6c  ->watchProc.= Tl
1500: 73 57 61 74 63 68 50 72 6f 63 3b 0a 09 74 6c 73  sWatchProc;..tls
1510: 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 67 65 74  ChannelType->get
1520: 48 61 6e 64 6c 65 50 72 6f 63 09 3d 20 54 6c 73  HandleProc.= Tls
1530: 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 3b 0a 0a  GetHandleProc;..
1540: 09 2f 2a 0a 09 20 2a 20 62 6c 6f 63 6b 4d 6f 64  ./*.. * blockMod
1550: 65 50 72 6f 63 20 69 73 20 61 20 74 77 69 73 74  eProc is a twist
1560: 65 72 2e 20 20 57 65 20 68 61 76 65 20 74 6f 20  er.  We have to 
1570: 6d 61 6b 65 20 73 6f 6d 65 20 72 75 6e 74 69 6d  make some runtim
1580: 65 2d 63 68 6f 69 63 65 73 2c 0a 09 20 2a 20 64  e-choices,.. * d
1590: 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20  epending on the 
15a0: 76 65 72 73 69 6f 6e 20 77 65 20 63 6f 6d 70 69  version we compi
15b0: 6c 65 64 20 61 67 61 69 6e 73 74 2e 0a 09 20 2a  led against... *
15c0: 2f 0a 0a 23 69 66 64 65 66 20 45 4d 55 4c 41 54  /..#ifdef EMULAT
15d0: 45 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f  E_CHANNEL_VERSIO
15e0: 4e 5f 32 0a 09 2f 2a 0a 09 20 2a 20 57 65 20 61  N_2../*.. * We a
15f0: 72 65 20 63 6f 6d 70 69 6c 69 6e 67 20 61 67 61  re compiling aga
1600: 69 6e 73 74 20 61 6e 20 38 2e 33 2e 31 2d 20 63  inst an 8.3.1- c
1610: 6f 72 65 2e 20 20 57 65 20 68 61 76 65 20 74 6f  ore.  We have to
1620: 20 63 72 65 61 74 65 20 73 6f 6d 65 0a 09 20 2a   create some.. *
1630: 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72   definitions for
1640: 20 74 68 65 20 6e 65 77 20 65 6c 65 6d 65 6e 74   the new element
1650: 73 20 61 73 20 74 68 65 20 63 6f 6d 70 69 6c 65  s as the compile
1660: 72 20 64 6f 65 73 20 6e 6f 74 20 6b 6e 6f 77 20  r does not know 
1670: 74 68 65 6d 0a 09 20 2a 20 62 79 20 6e 61 6d 65  them.. * by name
1680: 2e 0a 09 20 2a 2f 0a 0a 09 69 66 20 28 63 68 61  ... */...if (cha
1690: 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20  nnelTypeVersion 
16a0: 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56  == TLS_CHANNEL_V
16b0: 45 52 53 49 4f 4e 5f 31 29 20 7b 0a 09 20 20 20  ERSION_1) {..   
16c0: 20 2f 2a 0a 09 20 20 20 20 20 2a 20 54 68 65 20   /*..     * The 
16d0: 27 76 65 72 73 69 6f 6e 27 20 65 6c 65 6d 65 6e  'version' elemen
16e0: 74 20 6f 66 20 38 2e 33 2e 32 20 69 73 20 69 6e  t of 8.3.2 is in
16f0: 20 74 68 65 20 74 68 65 20 70 6c 61 63 65 20 6f   the the place o
1700: 66 20 74 68 65 0a 09 20 20 20 20 20 2a 20 62 6c  f the..     * bl
1710: 6f 63 6b 4d 6f 64 65 50 72 6f 63 2e 20 46 6f 72  ockModeProc. For
1720: 20 38 2e 32 2e 30 2d 38 2e 33 2e 31 20 77 65 20   8.2.0-8.3.1 we 
1730: 68 61 76 65 20 74 6f 20 73 65 74 20 6f 75 72 20  have to set our 
1740: 62 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 0a 09 20  blockModeProc.. 
1750: 20 20 20 20 2a 20 69 6e 74 6f 20 74 68 69 73 20      * into this 
1760: 70 6c 61 63 65 2e 0a 09 20 20 20 20 20 2a 2f 0a  place...     */.
1770: 09 20 20 20 20 74 6c 73 43 68 61 6e 6e 65 6c 54  .    tlsChannelT
1780: 79 70 65 2d 3e 62 6c 6f 63 6b 4d 6f 64 65 50 72  ype->blockModePr
1790: 6f 63 20 3d 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64  oc = TlsBlockMod
17a0: 65 50 72 6f 63 3b 0a 09 7d 20 65 6c 73 65 20 2f  eProc;..} else /
17b0: 2a 20 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72  * channelTypeVer
17c0: 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e  sion == TLS_CHAN
17d0: 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 20 2a 2f  NEL_VERSION_2 */
17e0: 20 7b 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 20   {..    /*..    
17f0: 20 2a 20 46 6f 72 20 74 68 65 20 38 2e 33 2e 32   * For the 8.3.2
1800: 20 63 6f 72 65 20 77 65 20 70 72 65 73 65 6e 74   core we present
1810: 20 6f 75 72 73 65 6c 76 65 73 20 61 73 20 61 20   ourselves as a 
1820: 76 65 72 73 69 6f 6e 20 32 0a 09 20 20 20 20 20  version 2..     
1830: 2a 20 64 72 69 76 65 72 2e 20 54 68 69 73 20 6d  * driver. This m
1840: 65 61 6e 73 20 61 20 73 70 65 63 69 61 6c 20 76  eans a special v
1850: 61 6c 75 65 20 69 6e 20 76 65 72 73 69 6f 6e 20  alue in version 
1860: 28 65 78 0a 09 20 20 20 20 20 2a 20 62 6c 6f 63  (ex..     * bloc
1870: 6b 4d 6f 64 65 50 72 6f 63 29 2c 20 62 6c 6f 63  kModeProc), bloc
1880: 6b 4d 6f 64 65 50 72 6f 63 20 69 6e 20 61 20 64  kModeProc in a d
1890: 69 66 66 65 72 65 6e 74 20 70 6c 61 63 65 20 61  ifferent place a
18a0: 6e 64 20 6f 66 0a 09 20 20 20 20 20 2a 20 63 6f  nd of..     * co
18b0: 75 72 73 65 20 75 73 61 67 65 20 6f 66 20 74 68  urse usage of th
18c0: 65 20 68 61 6e 64 6c 65 72 50 72 6f 63 2e 20 20  e handlerProc.  
18d0: 54 68 65 20 6c 61 73 74 20 74 77 6f 20 68 61 76  The last two hav
18e0: 65 20 74 6f 0a 09 20 20 20 20 20 2a 20 72 65 66  e to..     * ref
18f0: 65 72 65 6e 63 65 64 20 77 69 74 68 20 70 6f 69  erenced with poi
1900: 6e 74 65 72 20 6d 61 67 69 63 20 62 65 63 61 75  nter magic becau
1910: 73 65 20 74 68 65 79 20 61 72 65 6e 27 74 20 64  se they aren't d
1920: 65 66 69 6e 65 64 0a 09 20 20 20 20 20 2a 20 6f  efined..     * o
1930: 74 68 65 72 77 69 73 65 2e 0a 09 20 20 20 20 20  therwise...     
1940: 2a 2f 0a 0a 09 20 20 20 20 74 6c 73 43 68 61 6e  */...    tlsChan
1950: 6e 65 6c 54 79 70 65 2d 3e 62 6c 6f 63 6b 4d 6f  nelType->blockMo
1960: 64 65 50 72 6f 63 20 3d 0a 09 09 28 54 63 6c 5f  deProc =...(Tcl_
1970: 44 72 69 76 65 72 42 6c 6f 63 6b 4d 6f 64 65 50  DriverBlockModeP
1980: 72 6f 63 2a 29 20 54 4c 53 5f 43 48 41 4e 4e 45  roc*) TLS_CHANNE
1990: 4c 5f 56 45 52 53 49 4f 4e 5f 32 3b 0a 09 20 20  L_VERSION_2;..  
19a0: 20 20 28 2a 28 28 54 63 6c 5f 44 72 69 76 65 72    (*((Tcl_Driver
19b0: 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 2a 2a 29  BlockModeProc**)
19c0: 28 26 28 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70  (&(tlsChannelTyp
19d0: 65 2d 3e 63 6c 6f 73 65 32 50 72 6f 63 29 2b 31  e->close2Proc)+1
19e0: 29 29 29 0a 09 09 3d 20 54 6c 73 42 6c 6f 63 6b  )))...= TlsBlock
19f0: 4d 6f 64 65 50 72 6f 63 3b 0a 09 20 20 20 20 28  ModeProc;..    (
1a00: 2a 28 28 54 6c 73 44 72 69 76 65 72 48 61 6e 64  *((TlsDriverHand
1a10: 6c 65 72 50 72 6f 63 2a 2a 29 28 26 28 74 6c 73  lerProc**)(&(tls
1a20: 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 63 6c 6f  ChannelType->clo
1a30: 73 65 32 50 72 6f 63 29 2b 33 29 29 29 0a 09 09  se2Proc)+3)))...
1a40: 3d 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 3b  = TlsNotifyProc;
1a50: 0a 09 7d 0a 23 65 6c 73 65 0a 09 2f 2a 0a 09 20  ..}.#else../*.. 
1a60: 2a 20 43 6f 6d 70 69 6c 65 64 20 61 67 61 69 6e  * Compiled again
1a70: 73 74 20 38 2e 33 2e 32 2b 2e 20 44 69 72 65 63  st 8.3.2+. Direc
1a80: 74 20 61 63 63 65 73 73 20 74 6f 20 61 6c 6c 20  t access to all 
1a90: 65 6c 65 6d 65 6e 74 73 20 70 6f 73 73 69 62 6c  elements possibl
1aa0: 65 2e 20 55 73 65 0a 09 20 2a 20 63 68 61 6e 6e  e. Use.. * chann
1ab0: 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 69 6e  elTypeVersion in
1ac0: 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 73 65 6c  formation to sel
1ad0: 65 63 74 20 74 68 65 20 76 61 6c 75 65 73 20 74  ect the values t
1ae0: 6f 20 75 73 65 2e 0a 09 20 2a 2f 0a 0a 09 69 66  o use... */...if
1af0: 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72   (channelTypeVer
1b00: 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e  sion == TLS_CHAN
1b10: 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 31 29 20 7b  NEL_VERSION_1) {
1b20: 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a  ..    /*..     *
1b30: 20 54 68 65 20 27 76 65 72 73 69 6f 6e 27 20 65   The 'version' e
1b40: 6c 65 6d 65 6e 74 20 6f 66 20 38 2e 33 2e 32 20  lement of 8.3.2 
1b50: 69 73 20 69 6e 20 74 68 65 20 74 68 65 20 70 6c  is in the the pl
1b60: 61 63 65 20 6f 66 20 74 68 65 0a 09 20 20 20 20  ace of the..    
1b70: 20 2a 20 62 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63   * blockModeProc
1b80: 2e 20 46 6f 72 20 74 68 65 20 6f 72 69 67 69 6e  . For the origin
1b90: 61 6c 20 70 61 74 63 68 20 69 6e 20 38 2e 31 2e  al patch in 8.1.
1ba0: 78 20 61 6e 64 20 74 68 65 20 66 69 72 73 74 6c  x and the firstl
1bb0: 79 0a 09 20 20 20 20 20 2a 20 69 6e 63 6c 75 64  y..     * includ
1bc0: 65 64 20 28 38 2e 32 29 20 77 65 20 68 61 76 65  ed (8.2) we have
1bd0: 20 74 6f 20 73 65 74 20 6f 75 72 20 62 6c 6f 63   to set our bloc
1be0: 6b 4d 6f 64 65 50 72 6f 63 20 69 6e 74 6f 20 74  kModeProc into t
1bf0: 68 69 73 0a 09 20 20 20 20 20 2a 20 70 6c 61 63  his..     * plac
1c00: 65 2e 0a 09 20 20 20 20 20 2a 2f 0a 09 20 20 20  e...     */..   
1c10: 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d   tlsChannelType-
1c20: 3e 76 65 72 73 69 6f 6e 20 3d 20 28 54 63 6c 5f  >version = (Tcl_
1c30: 43 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69  ChannelTypeVersi
1c40: 6f 6e 29 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50  on)TlsBlockModeP
1c50: 72 6f 63 3b 0a 09 7d 20 65 6c 73 65 20 2f 2a 20  roc;..} else /* 
1c60: 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69  channelTypeVersi
1c70: 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45  on == TLS_CHANNE
1c80: 4c 5f 56 45 52 53 49 4f 4e 5f 32 20 2a 2f 20 7b  L_VERSION_2 */ {
1c90: 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a  ..    /*..     *
1ca0: 20 46 6f 72 20 74 68 65 20 38 2e 33 2e 32 20 63   For the 8.3.2 c
1cb0: 6f 72 65 20 77 65 20 70 72 65 73 65 6e 74 20 6f  ore we present o
1cc0: 75 72 73 65 6c 76 65 73 20 61 73 20 61 20 76 65  urselves as a ve
1cd0: 72 73 69 6f 6e 20 32 0a 09 20 20 20 20 20 2a 20  rsion 2..     * 
1ce0: 64 72 69 76 65 72 2e 20 54 68 69 73 20 6d 65 61  driver. This mea
1cf0: 6e 73 20 61 20 73 70 65 63 69 61 6c 20 76 61 6c  ns a special val
1d00: 75 65 20 69 6e 20 76 65 72 73 69 6f 6e 20 28 65  ue in version (e
1d10: 78 0a 09 20 20 20 20 20 2a 20 62 6c 6f 63 6b 4d  x..     * blockM
1d20: 6f 64 65 50 72 6f 63 29 2c 20 62 6c 6f 63 6b 4d  odeProc), blockM
1d30: 6f 64 65 50 72 6f 63 20 69 6e 20 61 20 64 69 66  odeProc in a dif
1d40: 66 65 72 65 6e 74 20 70 6c 61 63 65 20 61 6e 64  ferent place and
1d50: 20 6f 66 0a 09 20 20 20 20 20 2a 20 63 6f 75 72   of..     * cour
1d60: 73 65 20 75 73 61 67 65 20 6f 66 20 74 68 65 20  se usage of the 
1d70: 68 61 6e 64 6c 65 72 50 72 6f 63 2e 0a 09 20 20  handlerProc...  
1d80: 20 20 20 2a 2f 0a 0a 09 20 20 20 20 74 6c 73 43     */...    tlsC
1d90: 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 76 65 72 73  hannelType->vers
1da0: 69 6f 6e 20 20 20 20 20 20 20 3d 20 54 43 4c 5f  ion       = TCL_
1db0: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f  CHANNEL_VERSION_
1dc0: 32 3b 0a 09 20 20 20 20 74 6c 73 43 68 61 6e 6e  2;..    tlsChann
1dd0: 65 6c 54 79 70 65 2d 3e 62 6c 6f 63 6b 4d 6f 64  elType->blockMod
1de0: 65 50 72 6f 63 20 3d 20 54 6c 73 42 6c 6f 63 6b  eProc = TlsBlock
1df0: 4d 6f 64 65 50 72 6f 63 3b 0a 09 20 20 20 20 74  ModeProc;..    t
1e00: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 2d 3e 68  lsChannelType->h
1e10: 61 6e 64 6c 65 72 50 72 6f 63 20 20 20 3d 20 54  andlerProc   = T
1e20: 6c 73 4e 6f 74 69 66 79 50 72 6f 63 3b 0a 09 7d  lsNotifyProc;..}
1e30: 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 20  .#endif.    }.  
1e40: 20 20 72 65 74 75 72 6e 20 74 6c 73 43 68 61 6e    return tlsChan
1e50: 6e 65 6c 54 79 70 65 3b 0a 7d 0a 0c 0a 2f 2a 0a  nelType;.}.../*.
1e60: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
1e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ea0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 42  -----. *. * TlsB
1eb0: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a  lockModeProc --.
1ec0: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65   *. *.This proce
1ed0: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20  dure is invoked 
1ee0: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49  by the generic I
1ef0: 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20  O level. *      
1f00: 20 74 6f 20 73 65 74 20 62 6c 6f 63 6b 69 6e 67   to set blocking
1f10: 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67   and nonblocking
1f20: 20 6d 6f 64 65 73 0a 20 2a 20 52 65 73 75 6c 74   modes. * Result
1f30: 73 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65  s:. *.0 if succe
1f40: 73 73 66 75 6c 2c 20 65 72 72 6e 6f 20 77 68 65  ssful, errno whe
1f50: 6e 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20  n failed.. *. * 
1f60: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
1f70: 09 53 65 74 73 20 74 68 65 20 64 65 76 69 63 65  .Sets the device
1f80: 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f   into blocking o
1f90: 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f  r nonblocking mo
1fa0: 64 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  de.. *. *-------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
1ff0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c 73  ..static int.Tls
2000: 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c  BlockModeProc(Cl
2010: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63  ientData instanc
2020: 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 74  eData,./* Socket
2030: 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 20   state. */.     
2040: 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20              int 
2050: 6d 6f 64 65 29 09 09 09 2f 2a 20 54 68 65 20 6d  mode).../* The m
2060: 6f 64 65 20 74 6f 20 73 65 74 2e 20 43 61 6e 20  ode to set. Can 
2070: 62 65 20 6f 6e 65 20 6f 66 0a 09 09 09 09 09 09  be one of.......
2080: 2a 20 54 43 4c 5f 4d 4f 44 45 5f 42 4c 4f 43 4b  * TCL_MODE_BLOCK
2090: 49 4e 47 20 6f 72 0a 09 09 09 09 09 09 2a 20 54  ING or.......* T
20a0: 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b  CL_MODE_NONBLOCK
20b0: 49 4e 47 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74  ING. */.{.    St
20c0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20  ate *statePtr = 
20d0: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e  (State *) instan
20e0: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20  ceData;..    if 
20f0: 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44  (mode == TCL_MOD
2100: 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b  E_NONBLOCKING) {
2110: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67  ..statePtr->flag
2120: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59  s |= TLS_TCL_ASY
2130: 4e 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b  NC;.    } else {
2140: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67  ..statePtr->flag
2150: 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41  s &= ~(TLS_TCL_A
2160: 53 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20  SYNC);.    }.   
2170: 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65   if (channelType
2180: 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43  Version == TLS_C
2190: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32  HANNEL_VERSION_2
21a0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20  ) {..return 0;. 
21b0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 74     } else {..ret
21c0: 75 72 6e 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e  urn Tcl_SetChann
21d0: 65 6c 4f 70 74 69 6f 6e 28 73 74 61 74 65 50 74  elOption(statePt
21e0: 72 2d 3e 69 6e 74 65 72 70 2c 20 54 6c 73 5f 47  r->interp, Tls_G
21f0: 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74  etParent(statePt
2200: 72 29 2c 0a 09 09 22 2d 62 6c 6f 63 6b 69 6e 67  r),..."-blocking
2210: 22 2c 20 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f  ", (mode == TCL_
2220: 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47  MODE_NONBLOCKING
2230: 29 20 3f 20 22 30 22 20 3a 20 22 31 22 29 3b 0a  ) ? "0" : "1");.
2240: 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d      }.}.../*. *-
2250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2290: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73  --. *. * TlsClos
22a0: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54  eProc --. *. *.T
22b0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73  his procedure is
22c0: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20   invoked by the 
22d0: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c  generic IO level
22e0: 20 74 6f 20 70 65 72 66 6f 72 6d 0a 20 2a 09 63   to perform. *.c
22f0: 68 61 6e 6e 65 6c 2d 74 79 70 65 2d 73 70 65 63  hannel-type-spec
2300: 69 66 69 63 20 63 6c 65 61 6e 75 70 20 77 68 65  ific cleanup whe
2310: 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62  n a SSL socket b
2320: 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09  ased channel. *.
2330: 69 73 20 63 6c 6f 73 65 64 2e 0a 20 2a 0a 20 2a  is closed.. *. *
2340: 09 4e 6f 74 65 3a 20 77 65 20 6c 65 61 76 65 20  .Note: we leave 
2350: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 73  the underlying s
2360: 6f 63 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 73 20  ocket alone, is 
2370: 74 68 69 73 20 72 69 67 68 74 3f 0a 20 2a 0a 20  this right?. *. 
2380: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20  * Results:. *.0 
2390: 69 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 74  if successful, t
23a0: 68 65 20 76 61 6c 75 65 20 6f 66 20 54 63 6c 5f  he value of Tcl_
23b0: 47 65 74 45 72 72 6e 6f 28 29 20 69 66 20 66 61  GetErrno() if fa
23c0: 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  iled.. *. * Side
23d0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 6c 6f   effects:. *.Clo
23e0: 73 65 73 20 74 68 65 20 73 6f 63 6b 65 74 20 6f  ses the socket o
23f0: 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20  f the channel.. 
2400: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
2410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2440: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74  -------. */.stat
2450: 69 63 20 69 6e 74 0a 54 6c 73 43 6c 6f 73 65 50  ic int.TlsCloseP
2460: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69  roc(ClientData i
2470: 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20  nstanceData,./* 
2480: 54 68 65 20 73 6f 63 6b 65 74 20 74 6f 20 63 6c  The socket to cl
2490: 6f 73 65 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20  ose. */.        
24a0: 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20       Tcl_Interp 
24b0: 2a 69 6e 74 65 72 70 29 09 2f 2a 20 46 6f 72 20  *interp)./* For 
24c0: 65 72 72 6f 72 20 72 65 70 6f 72 74 69 6e 67 20  error reporting 
24d0: 2d 20 75 6e 75 73 65 64 2e 20 2a 2f 0a 7b 0a 20  - unused. */.{. 
24e0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50     State *stateP
24f0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69  tr = (State *) i
2500: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20  nstanceData;..  
2510: 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72    dprintf(stderr
2520: 2c 22 5c 6e 54 6c 73 43 6c 6f 73 65 50 72 6f 63  ,"\nTlsCloseProc
2530: 28 30 78 25 78 29 22 2c 20 28 75 6e 73 69 67 6e  (0x%x)", (unsign
2540: 65 64 20 69 6e 74 29 20 73 74 61 74 65 50 74 72  ed int) statePtr
2550: 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 68 61 6e  );..    if (chan
2560: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d  nelTypeVersion =
2570: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45  = TLS_CHANNEL_VE
2580: 52 53 49 4f 4e 5f 31 29 20 7b 0a 09 2f 2a 0a 09  RSION_1) {../*..
2590: 20 2a 20 52 65 6d 6f 76 65 20 65 76 65 6e 74 20   * Remove event 
25a0: 68 61 6e 64 6c 65 72 20 74 6f 20 75 6e 64 65 72  handler to under
25b0: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2c 20 74  lying channel, t
25c0: 68 69 73 20 63 6f 75 6c 64 0a 09 20 2a 20 62 65  his could.. * be
25d0: 20 62 65 63 61 75 73 65 20 77 65 20 61 72 65 20   because we are 
25e0: 63 6c 6f 73 69 6e 67 20 66 6f 72 20 72 65 61 6c  closing for real
25f0: 2c 20 6f 72 20 62 65 69 6e 67 20 22 75 6e 73 74  , or being "unst
2600: 61 63 6b 65 64 22 2e 0a 09 20 2a 2f 0a 0a 09 54  acked"... */...T
2610: 63 6c 5f 44 65 6c 65 74 65 43 68 61 6e 6e 65 6c  cl_DeleteChannel
2620: 48 61 6e 64 6c 65 72 28 54 6c 73 5f 47 65 74 50  Handler(Tls_GetP
2630: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 29 2c  arent(statePtr),
2640: 0a 09 09 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e  ...TlsChannelHan
2650: 64 6c 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74  dler, (ClientDat
2660: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20  a) statePtr);.  
2670: 20 20 7d 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65    }..    Tls_Cle
2680: 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20  an(statePtr);.  
2690: 20 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79    Tcl_Eventually
26a0: 46 72 65 65 28 28 43 6c 69 65 6e 74 44 61 74 61  Free((ClientData
26b0: 29 73 74 61 74 65 50 74 72 2c 20 54 6c 73 5f 46  )statePtr, Tls_F
26c0: 72 65 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  ree);.    return
26d0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a   TCL_OK;.}.../*.
26e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
26f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2720: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 49  -----. *. * TlsI
2730: 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20  nputProc --. *. 
2740: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65  *.This procedure
2750: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74   is invoked by t
2760: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65  he generic IO le
2770: 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20  vel. *       to 
2780: 72 65 61 64 20 69 6e 70 75 74 20 66 72 6f 6d 20  read input from 
2790: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73  a SSL socket bas
27a0: 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20  ed channel.. *. 
27b0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68  * Results:. *.Th
27c0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65  e number of byte
27d0: 73 20 72 65 61 64 20 69 73 20 72 65 74 75 72 6e  s read is return
27e0: 65 64 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f  ed or -1 on erro
27f0: 72 2e 20 41 6e 20 6f 75 74 70 75 74 0a 20 2a 09  r. An output. *.
2800: 61 72 67 75 6d 65 6e 74 20 63 6f 6e 74 61 69 6e  argument contain
2810: 73 20 74 68 65 20 50 4f 53 49 58 20 65 72 72 6f  s the POSIX erro
2820: 72 20 63 6f 64 65 20 6f 6e 20 65 72 72 6f 72 2c  r code on error,
2830: 20 6f 72 20 7a 65 72 6f 20 69 66 20 6e 6f 0a 20   or zero if no. 
2840: 2a 09 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64  *.error occurred
2850: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
2860: 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 69  ects:. *.Reads i
2870: 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 20 69 6e  nput from the in
2880: 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 74 68  put device of th
2890: 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a  e channel.. *. *
28a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
28b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
28c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
28d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
28e0: 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20  ---. */..static 
28f0: 69 6e 74 0a 54 6c 73 49 6e 70 75 74 50 72 6f 63  int.TlsInputProc
2900: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74  (ClientData inst
2910: 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63  anceData,./* Soc
2920: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 09 63  ket state. */..c
2930: 68 61 72 20 2a 62 75 66 2c 09 09 09 2f 2a 20 57  har *buf,.../* W
2940: 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 64 61  here to store da
2950: 74 61 20 72 65 61 64 2e 20 2a 2f 0a 09 69 6e 74  ta read. */..int
2960: 20 62 75 66 53 69 7a 65 2c 09 09 09 2f 2a 20 48   bufSize,.../* H
2970: 6f 77 20 6d 75 63 68 20 73 70 61 63 65 20 69 73  ow much space is
2980: 20 61 76 61 69 6c 61 62 6c 65 0a 09 09 09 09 09   available......
2990: 20 2a 20 69 6e 20 74 68 65 20 62 75 66 66 65 72   * in the buffer
29a0: 3f 20 2a 2f 0a 09 69 6e 74 20 2a 65 72 72 6f 72  ? */..int *error
29b0: 43 6f 64 65 50 74 72 29 09 09 2f 2a 20 57 68 65  CodePtr)../* Whe
29c0: 72 65 20 74 6f 20 73 74 6f 72 65 20 65 72 72 6f  re to store erro
29d0: 72 20 63 6f 64 65 2e 20 2a 2f 0a 7b 0a 20 20 20  r code. */.{.   
29e0: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72   State *statePtr
29f0: 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73   = (State *) ins
2a00: 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 69  tanceData;.    i
2a10: 6e 74 20 62 79 74 65 73 52 65 61 64 3b 09 09 09  nt bytesRead;...
2a20: 2f 2a 20 48 6f 77 20 6d 61 6e 79 20 62 79 74 65  /* How many byte
2a30: 73 20 77 65 72 65 20 72 65 61 64 3f 20 2a 2f 0a  s were read? */.
2a40: 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50  .    *errorCodeP
2a50: 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72  tr = 0;..    dpr
2a60: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 5c 6e 42  intf(stderr,"\nB
2a70: 49 4f 5f 72 65 61 64 28 25 64 29 22 2c 20 62 75  IO_read(%d)", bu
2a80: 66 53 69 7a 65 29 3b 0a 0a 20 20 20 20 69 66 20  fSize);..    if 
2a90: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73  (statePtr->flags
2aa0: 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42   & TLS_TCL_CALLB
2ab0: 41 43 4b 29 20 7b 0a 20 20 20 20 20 20 20 2f 2a  ACK) {.       /*
2ac0: 20 64 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 61   don't process a
2ad0: 6e 79 20 62 79 74 65 73 20 77 68 69 6c 65 20 76  ny bytes while v
2ae0: 65 72 69 66 79 20 63 61 6c 6c 62 61 63 6b 20 69  erify callback i
2af0: 73 20 72 75 6e 6e 69 6e 67 20 2a 2f 0a 20 20 20  s running */.   
2b00: 20 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20      bytesRead = 
2b10: 30 3b 0a 20 20 20 20 20 20 20 67 6f 74 6f 20 69  0;.       goto i
2b20: 6e 70 75 74 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  nput;.    }..   
2b30: 20 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e 69   if (!SSL_is_ini
2b40: 74 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74 65  t_finished(state
2b50: 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 62 79  Ptr->ssl)) {..by
2b60: 74 65 73 52 65 61 64 20 3d 20 54 6c 73 5f 57 61  tesRead = Tls_Wa
2b70: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61  itForConnect(sta
2b80: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65  tePtr, errorCode
2b90: 50 74 72 29 3b 0a 09 69 66 20 28 62 79 74 65 73  Ptr);..if (bytes
2ba0: 52 65 61 64 20 3c 3d 20 30 29 20 7b 0a 09 20 20  Read <= 0) {..  
2bb0: 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f 64 65    if (*errorCode
2bc0: 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 45  Ptr == ECONNRESE
2bd0: 54 29 20 7b 0a 09 09 2f 2a 20 53 6f 66 74 20 45  T) {.../* Soft E
2be0: 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 6f 72 43 6f  OF */...*errorCo
2bf0: 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 62 79 74  dePtr = 0;...byt
2c00: 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 20 20  esRead = 0;..   
2c10: 20 7d 0a 09 20 20 20 20 67 6f 74 6f 20 69 6e 70   }..    goto inp
2c20: 75 74 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20  ut;..}.    }.   
2c30: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66   if (statePtr->f
2c40: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49  lags & TLS_TCL_I
2c50: 4e 49 54 29 20 7b 0a 09 73 74 61 74 65 50 74 72  NIT) {..statePtr
2c60: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53  ->flags &= ~(TLS
2c70: 5f 54 43 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20  _TCL_INIT);.    
2c80: 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  }.    /*.     * 
2c90: 57 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 72  We need to clear
2ca0: 20 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 73   the SSL error s
2cb0: 74 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 65  tack now because
2cc0: 20 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 65   we sometimes re
2cd0: 61 63 68 0a 20 20 20 20 20 2a 20 74 68 69 73 20  ach.     * this 
2ce0: 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c 65  function with le
2cf0: 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 6e  ftover errors in
2d00: 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 20   the stack.  If 
2d10: 42 49 4f 5f 72 65 61 64 0a 20 20 20 20 20 2a 20  BIO_read.     * 
2d20: 72 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 69  returns -1 and i
2d30: 6e 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 74  ntends EAGAIN, t
2d40: 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f 76  here is a leftov
2d50: 65 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 6c  er error, it wil
2d60: 6c 20 62 65 0a 20 20 20 20 20 2a 20 6d 69 73 63  l be.     * misc
2d70: 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 65  onstrued as an e
2d80: 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e  rror, not EAGAIN
2d90: 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 2a 20  ..     *.     * 
2da0: 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 77  Alternatively, w
2db0: 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 68 61  e may want to ha
2dc0: 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 74 75  ndle the <0 retu
2dd0: 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a 20 20  rn codes from.  
2de0: 20 20 20 2a 20 42 49 4f 5f 72 65 61 64 20 73 70     * BIO_read sp
2df0: 65 63 69 61 6c 6c 79 20 28 61 73 20 61 64 76 69  ecially (as advi
2e00: 73 65 64 20 69 6e 20 74 68 65 20 52 53 41 20 64  sed in the RSA d
2e10: 6f 63 73 29 2e 20 20 54 4c 53 27 73 20 6c 6f 77  ocs).  TLS's low
2e20: 65 72 20 6c 65 76 65 6c 20 42 49 4f 0a 20 20 20  er level BIO.   
2e30: 20 20 2a 20 66 75 6e 63 74 69 6f 6e 73 20 70 6c    * functions pl
2e40: 61 79 20 77 69 74 68 20 74 68 65 20 72 65 74 72  ay with the retr
2e50: 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 2c 20  y flags though, 
2e60: 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 20 74  and this seems t
2e70: 6f 20 77 6f 72 6b 0a 20 20 20 20 20 2a 20 63 6f  o work.     * co
2e80: 72 72 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61  rrectly.  Simila
2e90: 72 20 66 69 78 20 69 6e 20 54 6c 73 4f 75 74 70  r fix in TlsOutp
2ea0: 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a  utProc. - hobbs.
2eb0: 20 20 20 20 20 2a 2f 0a 20 20 20 20 45 52 52 5f       */.    ERR_
2ec0: 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 20  clear_error();. 
2ed0: 20 20 20 62 79 74 65 73 52 65 61 64 20 3d 20 42     bytesRead = B
2ee0: 49 4f 5f 72 65 61 64 28 73 74 61 74 65 50 74 72  IO_read(statePtr
2ef0: 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 53  ->bio, buf, bufS
2f00: 69 7a 65 29 3b 0a 20 20 20 20 64 70 72 69 6e 74  ize);.    dprint
2f10: 66 28 73 74 64 65 72 72 2c 22 5c 6e 42 49 4f 5f  f(stderr,"\nBIO_
2f20: 72 65 61 64 20 2d 3e 20 25 64 22 2c 20 62 79 74  read -> %d", byt
2f30: 65 73 52 65 61 64 29 3b 0a 0a 20 20 20 20 69 66  esRead);..    if
2f40: 20 28 62 79 74 65 73 52 65 61 64 20 3c 20 30 29   (bytesRead < 0)
2f50: 20 7b 0a 09 69 6e 74 20 65 72 72 20 3d 20 53 53   {..int err = SS
2f60: 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74  L_get_error(stat
2f70: 65 50 74 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73  ePtr->ssl, bytes
2f80: 52 65 61 64 29 3b 0a 0a 09 69 66 20 28 65 72 72  Read);...if (err
2f90: 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53   == SSL_ERROR_SS
2fa0: 4c 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f 45 72  L) {..    Tls_Er
2fb0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 53 53  ror(statePtr, SS
2fc0: 4c 5f 45 52 52 4f 52 28 73 74 61 74 65 50 74 72  L_ERROR(statePtr
2fd0: 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61 64  ->ssl, bytesRead
2fe0: 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43  ));..    *errorC
2ff0: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42  odePtr = ECONNAB
3000: 4f 52 54 45 44 3b 0a 09 7d 20 65 6c 73 65 20 69  ORTED;..} else i
3010: 66 20 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65  f (BIO_should_re
3020: 74 72 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69  try(statePtr->bi
3030: 6f 29 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e  o)) {..    dprin
3040: 74 66 28 73 74 64 65 72 72 2c 22 52 45 21 20 22  tf(stderr,"RE! "
3050: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f  );..    *errorCo
3060: 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a  dePtr = EAGAIN;.
3070: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2a  .} else {..    *
3080: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54  errorCodePtr = T
3090: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09  cl_GetErrno();..
30a0: 20 20 20 20 69 66 20 28 2a 65 72 72 6f 72 43 6f      if (*errorCo
30b0: 64 65 50 74 72 20 3d 3d 20 45 43 4f 4e 4e 52 45  dePtr == ECONNRE
30c0: 53 45 54 29 20 7b 0a 09 09 2f 2a 20 53 6f 66 74  SET) {.../* Soft
30d0: 20 45 4f 46 20 2a 2f 0a 09 09 2a 65 72 72 6f 72   EOF */...*error
30e0: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 62  CodePtr = 0;...b
30f0: 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20  ytesRead = 0;.. 
3100: 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 20     }..}.    }.  
3110: 20 20 69 6e 70 75 74 3a 0a 20 20 20 20 64 70 72    input:.    dpr
3120: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5c 6e  intf(stderr, "\n
3130: 49 6e 70 75 74 28 25 64 29 20 2d 3e 20 25 64 20  Input(%d) -> %d 
3140: 5b 25 64 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20  [%d]", bufSize, 
3150: 62 79 74 65 73 52 65 61 64 2c 20 2a 65 72 72 6f  bytesRead, *erro
3160: 72 43 6f 64 65 50 74 72 29 3b 0a 20 20 20 20 72  rCodePtr);.    r
3170: 65 74 75 72 6e 20 62 79 74 65 73 52 65 61 64 3b  eturn bytesRead;
3180: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  .}.../*. *------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
31d0: 0a 20 2a 20 54 6c 73 4f 75 74 70 75 74 50 72 6f  . * TlsOutputPro
31e0: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20  c --. *. *.This 
31f0: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76  procedure is inv
3200: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65  oked by the gene
3210: 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20  ric IO level. * 
3220: 20 20 20 20 20 20 74 6f 20 77 72 69 74 65 20 6f        to write o
3230: 75 74 70 75 74 20 74 6f 20 61 20 53 53 4c 20 73  utput to a SSL s
3240: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e  ocket based chan
3250: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  nel.. *. * Resul
3260: 74 73 3a 0a 20 2a 09 54 68 65 20 6e 75 6d 62 65  ts:. *.The numbe
3270: 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 74 74  r of bytes writt
3280: 65 6e 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20  en is returned. 
3290: 41 6e 20 6f 75 74 70 75 74 20 61 72 67 75 6d 65  An output argume
32a0: 6e 74 20 69 73 0a 20 2a 09 73 65 74 20 74 6f 20  nt is. *.set to 
32b0: 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f  a POSIX error co
32c0: 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f  de if an error o
32d0: 63 63 75 72 72 65 64 2c 20 6f 72 20 7a 65 72 6f  ccurred, or zero
32e0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
32f0: 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20  ects:. *.Writes 
3300: 6f 75 74 70 75 74 20 6f 6e 20 74 68 65 20 6f 75  output on the ou
3310: 74 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 74  tput device of t
3320: 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20  he channel.. *. 
3330: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
3340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3370: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63  ----. */..static
3380: 20 69 6e 74 0a 54 6c 73 4f 75 74 70 75 74 50 72   int.TlsOutputPr
3390: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e  oc(ClientData in
33a0: 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53  stanceData,./* S
33b0: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a  ocket state. */.
33c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f                CO
33d0: 4e 53 54 20 63 68 61 72 20 2a 62 75 66 2c 09 09  NST char *buf,..
33e0: 2f 2a 20 54 68 65 20 64 61 74 61 20 62 75 66 66  /* The data buff
33f0: 65 72 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  er. */.         
3400: 20 20 20 20 20 69 6e 74 20 74 6f 57 72 69 74 65       int toWrite
3410: 2c 09 09 2f 2a 20 48 6f 77 20 6d 61 6e 79 20 62  ,../* How many b
3420: 79 74 65 73 20 74 6f 20 77 72 69 74 65 3f 20 2a  ytes to write? *
3430: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  /.              
3440: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74  int *errorCodePt
3450: 72 29 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73  r)./* Where to s
3460: 74 6f 72 65 20 65 72 72 6f 72 20 63 6f 64 65 2e  tore error code.
3470: 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20   */.{.    State 
3480: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61  *statePtr = (Sta
3490: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61  te *) instanceDa
34a0: 74 61 3b 0a 20 20 20 20 69 6e 74 20 77 72 69 74  ta;.    int writ
34b0: 74 65 6e 2c 20 65 72 72 3b 0a 0a 20 20 20 20 2a  ten, err;..    *
34c0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30  errorCodePtr = 0
34d0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73  ;..    dprintf(s
34e0: 74 64 65 72 72 2c 22 5c 6e 42 49 4f 5f 77 72 69  tderr,"\nBIO_wri
34f0: 74 65 28 30 78 25 78 2c 20 25 64 29 22 2c 20 28  te(0x%x, %d)", (
3500: 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 73 74  unsigned int) st
3510: 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 29  atePtr, toWrite)
3520: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65  ;..    if (state
3530: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53  Ptr->flags & TLS
3540: 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 7b  _TCL_CALLBACK) {
3550: 0a 20 20 20 20 20 20 20 2f 2a 20 64 6f 6e 27 74  .       /* don't
3560: 20 70 72 6f 63 65 73 73 20 61 6e 79 20 62 79 74   process any byt
3570: 65 73 20 77 68 69 6c 65 20 76 65 72 69 66 79 20  es while verify 
3580: 63 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e  callback is runn
3590: 69 6e 67 20 2a 2f 0a 20 20 20 20 20 20 20 77 72  ing */.       wr
35a0: 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 20 20 20 20  itten = -1;.    
35b0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72     *errorCodePtr
35c0: 20 3d 20 45 41 47 41 49 4e 3b 0a 20 20 20 20 20   = EAGAIN;.     
35d0: 20 20 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 20    goto output;. 
35e0: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 21 53     }..    if (!S
35f0: 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73  SL_is_init_finis
3600: 68 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73  hed(statePtr->ss
3610: 6c 29 29 20 7b 0a 09 77 72 69 74 74 65 6e 20 3d  l)) {..written =
3620: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e   Tls_WaitForConn
3630: 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 72  ect(statePtr, er
3640: 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 69 66  rorCodePtr);..if
3650: 20 28 77 72 69 74 74 65 6e 20 3c 3d 20 30 29 20   (written <= 0) 
3660: 7b 0a 09 20 20 20 20 67 6f 74 6f 20 6f 75 74 70  {..    goto outp
3670: 75 74 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20  ut;..}.    }.   
3680: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66   if (statePtr->f
3690: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49  lags & TLS_TCL_I
36a0: 4e 49 54 29 20 7b 0a 09 73 74 61 74 65 50 74 72  NIT) {..statePtr
36b0: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53  ->flags &= ~(TLS
36c0: 5f 54 43 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20  _TCL_INIT);.    
36d0: 7d 0a 20 20 20 20 69 66 20 28 74 6f 57 72 69 74  }.    if (toWrit
36e0: 65 20 3d 3d 20 30 29 20 7b 0a 09 64 70 72 69 6e  e == 0) {..dprin
36f0: 74 66 28 73 74 64 65 72 72 2c 20 22 7a 65 72 6f  tf(stderr, "zero
3700: 2d 77 72 69 74 65 5c 6e 22 29 3b 0a 09 42 49 4f  -write\n");..BIO
3710: 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d  _flush(statePtr-
3720: 3e 62 69 6f 29 3b 0a 09 77 72 69 74 74 65 6e 20  >bio);..written 
3730: 3d 20 30 3b 0a 09 67 6f 74 6f 20 6f 75 74 70 75  = 0;..goto outpu
3740: 74 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  t;.    } else {.
3750: 09 2f 2a 0a 09 20 2a 20 57 65 20 6e 65 65 64 20  ./*.. * We need 
3760: 74 6f 20 63 6c 65 61 72 20 74 68 65 20 53 53 4c  to clear the SSL
3770: 20 65 72 72 6f 72 20 73 74 61 63 6b 20 6e 6f 77   error stack now
3780: 20 62 65 63 61 75 73 65 20 77 65 20 73 6f 6d 65   because we some
3790: 74 69 6d 65 73 20 72 65 61 63 68 0a 09 20 2a 20  times reach.. * 
37a0: 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69  this function wi
37b0: 74 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f  th leftover erro
37c0: 72 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e  rs in the stack.
37d0: 20 20 49 66 20 42 49 4f 5f 77 72 69 74 65 0a 09    If BIO_write..
37e0: 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 61 6e   * returns -1 an
37f0: 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 49 4e  d intends EAGAIN
3800: 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c 65 66  , there is a lef
3810: 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 74 20  tover error, it 
3820: 77 69 6c 6c 20 62 65 0a 09 20 2a 20 6d 69 73 63  will be.. * misc
3830: 6f 6e 73 74 72 75 65 64 20 61 73 20 61 6e 20 65  onstrued as an e
3840: 72 72 6f 72 2c 20 6e 6f 74 20 45 41 47 41 49 4e  rror, not EAGAIN
3850: 2e 0a 09 20 2a 0a 09 20 2a 20 41 6c 74 65 72 6e  ... *.. * Altern
3860: 61 74 69 76 65 6c 79 2c 20 77 65 20 6d 61 79 20  atively, we may 
3870: 77 61 6e 74 20 74 6f 20 68 61 6e 64 6c 65 20 74  want to handle t
3880: 68 65 20 3c 30 20 72 65 74 75 72 6e 20 63 6f 64  he <0 return cod
3890: 65 73 20 66 72 6f 6d 0a 09 20 2a 20 42 49 4f 5f  es from.. * BIO_
38a0: 77 72 69 74 65 20 73 70 65 63 69 61 6c 6c 79 20  write specially 
38b0: 28 61 73 20 61 64 76 69 73 65 64 20 69 6e 20 74  (as advised in t
38c0: 68 65 20 52 53 41 20 64 6f 63 73 29 2e 20 20 54  he RSA docs).  T
38d0: 4c 53 27 73 20 6c 6f 77 65 72 20 6c 65 76 65 6c  LS's lower level
38e0: 0a 09 20 2a 20 42 49 4f 20 66 75 6e 63 74 69 6f  .. * BIO functio
38f0: 6e 73 20 70 6c 61 79 20 77 69 74 68 20 74 68 65  ns play with the
3900: 20 72 65 74 72 79 20 66 6c 61 67 73 20 74 68 6f   retry flags tho
3910: 75 67 68 2c 20 61 6e 64 20 74 68 69 73 20 73 65  ugh, and this se
3920: 65 6d 73 20 74 6f 0a 09 20 2a 20 77 6f 72 6b 20  ems to.. * work 
3930: 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 6d 69  correctly.  Simi
3940: 6c 61 72 20 66 69 78 20 69 6e 20 54 6c 73 49 6e  lar fix in TlsIn
3950: 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f 62 62 73  putProc. - hobbs
3960: 0a 09 20 2a 2f 0a 09 45 52 52 5f 63 6c 65 61 72  .. */..ERR_clear
3970: 5f 65 72 72 6f 72 28 29 3b 0a 09 77 72 69 74 74  _error();..writt
3980: 65 6e 20 3d 20 42 49 4f 5f 77 72 69 74 65 28 73  en = BIO_write(s
3990: 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75  tatePtr->bio, bu
39a0: 66 2c 20 74 6f 57 72 69 74 65 29 3b 0a 09 64 70  f, toWrite);..dp
39b0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 5c 6e  rintf(stderr,"\n
39c0: 42 49 4f 5f 77 72 69 74 65 28 30 78 25 78 2c 20  BIO_write(0x%x, 
39d0: 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 0a 09 09  %d) -> [%d]",...
39e0: 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 73  (unsigned int) s
39f0: 74 61 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65  tatePtr, toWrite
3a00: 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20  , written);.    
3a10: 7d 0a 20 20 20 20 69 66 20 28 77 72 69 74 74 65  }.    if (writte
3a20: 6e 20 3c 3d 20 30 29 20 7b 0a 09 73 77 69 74 63  n <= 0) {..switc
3a30: 68 20 28 28 65 72 72 20 3d 20 53 53 4c 5f 67 65  h ((err = SSL_ge
3a40: 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 72  t_error(statePtr
3a50: 2d 3e 73 73 6c 2c 20 77 72 69 74 74 65 6e 29 29  ->ssl, written))
3a60: 29 20 7b 0a 09 20 20 20 20 63 61 73 65 20 53 53  ) {..    case SS
3a70: 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 09  L_ERROR_NONE:...
3a80: 69 66 20 28 77 72 69 74 74 65 6e 20 3c 20 30 29  if (written < 0)
3a90: 20 7b 0a 09 09 20 20 20 20 77 72 69 74 74 65 6e   {...    written
3aa0: 20 3d 20 30 3b 0a 09 09 7d 0a 09 09 62 72 65 61   = 0;...}...brea
3ab0: 6b 3b 0a 09 20 20 20 20 63 61 73 65 20 53 53 4c  k;..    case SSL
3ac0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54  _ERROR_WANT_WRIT
3ad0: 45 3a 0a 09 09 64 70 72 69 6e 74 66 28 73 74 64  E:...dprintf(std
3ae0: 65 72 72 2c 22 20 77 72 69 74 65 20 57 20 42 4c  err," write W BL
3af0: 4f 43 4b 22 29 3b 0a 09 09 62 72 65 61 6b 3b 0a  OCK");...break;.
3b00: 09 20 20 20 20 63 61 73 65 20 53 53 4c 5f 45 52  .    case SSL_ER
3b10: 52 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09  ROR_WANT_READ:..
3b20: 09 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .dprintf(stderr,
3b30: 22 20 77 72 69 74 65 20 52 20 42 4c 4f 43 4b 22  " write R BLOCK"
3b40: 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 20  );...break;..   
3b50: 20 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f   case SSL_ERROR_
3b60: 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50  WANT_X509_LOOKUP
3b70: 3a 0a 09 09 64 70 72 69 6e 74 66 28 73 74 64 65  :...dprintf(stde
3b80: 72 72 2c 22 20 77 72 69 74 65 20 58 20 42 4c 4f  rr," write X BLO
3b90: 43 4b 22 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09  CK");...break;..
3ba0: 20 20 20 20 63 61 73 65 20 53 53 4c 5f 45 52 52      case SSL_ERR
3bb0: 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a  OR_ZERO_RETURN:.
3bc0: 09 09 64 70 72 69 6e 74 66 28 73 74 64 65 72 72  ..dprintf(stderr
3bd0: 2c 22 20 63 6c 6f 73 65 64 5c 6e 22 29 3b 0a 09  ," closed\n");..
3be0: 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09  .written = 0;...
3bf0: 62 72 65 61 6b 3b 0a 09 20 20 20 20 63 61 73 65  break;..    case
3c00: 20 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41   SSL_ERROR_SYSCA
3c10: 4c 4c 3a 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65  LL:...*errorCode
3c20: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72  Ptr = Tcl_GetErr
3c30: 6e 6f 28 29 3b 0a 09 09 64 70 72 69 6e 74 66 28  no();...dprintf(
3c40: 73 74 64 65 72 72 2c 22 20 5b 25 64 5d 20 73 79  stderr," [%d] sy
3c50: 73 63 61 6c 6c 20 65 72 72 72 3a 20 25 64 22 2c  scall errr: %d",
3c60: 0a 09 09 09 77 72 69 74 74 65 6e 2c 20 2a 65 72  ....written, *er
3c70: 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 09 77  rorCodePtr);...w
3c80: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 62  ritten = -1;...b
3c90: 72 65 61 6b 3b 0a 09 20 20 20 20 63 61 73 65 20  reak;..    case 
3ca0: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09  SSL_ERROR_SSL:..
3cb0: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65  .Tls_Error(state
3cc0: 50 74 72 2c 20 53 53 4c 5f 45 52 52 4f 52 28 73  Ptr, SSL_ERROR(s
3cd0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72  tatePtr->ssl, wr
3ce0: 69 74 74 65 6e 29 29 3b 0a 09 09 2a 65 72 72 6f  itten));...*erro
3cf0: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e  rCodePtr = ECONN
3d00: 41 42 4f 52 54 45 44 3b 0a 09 09 77 72 69 74 74  ABORTED;...writt
3d10: 65 6e 20 3d 20 2d 31 3b 0a 09 09 62 72 65 61 6b  en = -1;...break
3d20: 3b 0a 09 20 20 20 20 64 65 66 61 75 6c 74 3a 0a  ;..    default:.
3d30: 09 09 64 70 72 69 6e 74 66 28 73 74 64 65 72 72  ..dprintf(stderr
3d40: 2c 22 20 75 6e 6b 6e 6f 77 6e 20 65 72 72 3a 20  ," unknown err: 
3d50: 25 64 5c 6e 22 2c 20 65 72 72 29 3b 0a 09 09 62  %d\n", err);...b
3d60: 72 65 61 6b 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20  reak;..}.    }. 
3d70: 20 20 20 6f 75 74 70 75 74 3a 0a 20 20 20 20 64     output:.    d
3d80: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22  printf(stderr, "
3d90: 5c 6e 4f 75 74 70 75 74 28 25 64 29 20 2d 3e 20  \nOutput(%d) -> 
3da0: 25 64 22 2c 20 74 6f 57 72 69 74 65 2c 20 77 72  %d", toWrite, wr
3db0: 69 74 74 65 6e 29 3b 0a 20 20 20 20 72 65 74 75  itten);.    retu
3dc0: 72 6e 20 77 72 69 74 74 65 6e 3b 0a 7d 0a 0c 0a  rn written;.}...
3dd0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
3de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3e10: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54  --------. *. * T
3e20: 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20  lsGetOptionProc 
3e30: 2d 2d 0a 20 2a 0a 20 2a 09 43 6f 6d 70 75 74 65  --. *. *.Compute
3e40: 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75  s an option valu
3e50: 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b  e for a SSL sock
3e60: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c  et based channel
3e70: 2c 20 6f 72 20 61 0a 20 2a 09 6c 69 73 74 20 6f  , or a. *.list o
3e80: 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e  f all options an
3e90: 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 0a  d their values..
3ea0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
3eb0: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c  *.A standard Tcl
3ec0: 20 72 65 73 75 6c 74 2e 20 54 68 65 20 76 61 6c   result. The val
3ed0: 75 65 20 6f 66 20 74 68 65 20 73 70 65 63 69 66  ue of the specif
3ee0: 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 20 61 0a  ied option or a.
3ef0: 20 2a 09 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f   *.list of all o
3f00: 70 74 69 6f 6e 73 20 61 6e 64 09 74 68 65 69 72  ptions and.their
3f10: 20 76 61 6c 75 65 73 20 69 73 20 72 65 74 75 72   values is retur
3f20: 6e 65 64 20 69 6e 20 74 68 65 0a 20 2a 09 73 75  ned in the. *.su
3f30: 70 70 6c 69 65 64 20 44 53 74 72 69 6e 67 2e 0a  pplied DString..
3f40: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63   *. * Side effec
3f50: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a  ts:. *.None.. *.
3f60: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
3f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3fa0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63  -----. */.static
3fb0: 20 69 6e 74 0a 54 6c 73 47 65 74 4f 70 74 69 6f   int.TlsGetOptio
3fc0: 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61  nProc(ClientData
3fd0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f   instanceData,./
3fe0: 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20  * Socket state. 
3ff0: 2a 2f 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a  */..Tcl_Interp *
4000: 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20  interp,../* For 
4010: 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20  errors - can be 
4020: 4e 55 4c 4c 2e 20 2a 2f 0a 09 43 4f 4e 53 54 38  NULL. */..CONST8
4030: 34 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61  4 char *optionNa
4040: 6d 65 2c 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 74  me,./* Name of t
4050: 68 65 20 6f 70 74 69 6f 6e 20 74 6f 0a 09 09 09  he option to....
4060: 09 09 20 2a 20 72 65 74 72 69 65 76 65 20 74 68  .. * retrieve th
4070: 65 20 76 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a  e value for, or.
4080: 09 09 09 09 09 20 2a 20 4e 55 4c 4c 20 74 6f 20  ..... * NULL to 
4090: 67 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20  get all options 
40a0: 61 6e 64 0a 09 09 09 09 09 20 2a 20 74 68 65 69  and...... * thei
40b0: 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 09 54 63  r values. */..Tc
40c0: 6c 5f 44 53 74 72 69 6e 67 20 2a 64 73 50 74 72  l_DString *dsPtr
40d0: 29 09 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73  )../* Where to s
40e0: 74 6f 72 65 20 74 68 65 20 63 6f 6d 70 75 74 65  tore the compute
40f0: 64 20 76 61 6c 75 65 0a 09 09 09 09 09 20 2a 20  d value...... * 
4100: 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63  initialized by c
4110: 61 6c 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 20 20  aller. */.{.    
4120: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20  State *statePtr 
4130: 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74  = (State *) inst
4140: 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 69  anceData;..    i
4150: 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65  f (channelTypeVe
4160: 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41  rsion == TLS_CHA
4170: 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20  NNEL_VERSION_2) 
4180: 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 64  {..Tcl_Channel d
4190: 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 5f 47 65  ownChan = Tls_Ge
41a0: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72  tParent(statePtr
41b0: 29 3b 0a 09 54 63 6c 5f 44 72 69 76 65 72 47 65  );..Tcl_DriverGe
41c0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 65 74  tOptionProc *get
41d0: 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 09 67 65  OptionProc;...ge
41e0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63  tOptionProc = Tc
41f0: 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69  l_ChannelGetOpti
4200: 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68  onProc(Tcl_GetCh
4210: 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68  annelType(downCh
4220: 61 6e 29 29 3b 0a 09 69 66 20 28 67 65 74 4f 70  an));..if (getOp
4230: 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c  tionProc != NULL
4240: 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20  ) {..    return 
4250: 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29  (*getOptionProc)
4260: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49  (Tcl_GetChannelI
4270: 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e  nstanceData(down
4280: 43 68 61 6e 29 2c 0a 09 09 20 20 20 20 69 6e 74  Chan),...    int
4290: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c  erp, optionName,
42a0: 20 64 73 50 74 72 29 3b 0a 09 7d 20 65 6c 73 65   dsPtr);..} else
42b0: 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20   if (optionName 
42c0: 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29  == (char*) NULL)
42d0: 20 7b 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 20   {..    /*..    
42e0: 20 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 75   * Request is qu
42f0: 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69  ery for all opti
4300: 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e  ons, this is ok.
4310: 0a 09 20 20 20 20 20 2a 2f 0a 09 20 20 20 20 72  ..     */..    r
4320: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 7d  eturn TCL_OK;..}
4330: 0a 09 2f 2a 0a 09 20 2a 20 52 65 71 75 65 73 74  ../*.. * Request
4340: 20 66 6f 72 20 61 20 73 70 65 63 69 66 69 63 20   for a specific 
4350: 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f 20 66 61  option has to fa
4360: 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 68 61 76  il, we don't hav
4370: 65 20 61 6e 79 2e 0a 09 20 2a 2f 0a 09 72 65 74  e any... */..ret
4380: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
4390: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 69 7a     } else {..siz
43a0: 65 5f 74 20 6c 65 6e 20 3d 20 30 3b 0a 0a 09 69  e_t len = 0;...i
43b0: 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 21 3d  f (optionName !=
43c0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 20   (char *) NULL) 
43d0: 7b 0a 09 20 20 20 20 6c 65 6e 20 3d 20 73 74 72  {..    len = str
43e0: 6c 65 6e 28 6f 70 74 69 6f 6e 4e 61 6d 65 29 3b  len(optionName);
43f0: 0a 09 7d 0a 23 69 66 20 30 0a 09 69 66 20 28 28  ..}.#if 0..if ((
4400: 6c 65 6e 20 3d 3d 20 30 29 20 7c 7c 20 28 28 6c  len == 0) || ((l
4410: 65 6e 20 3e 20 31 29 20 26 26 20 28 6f 70 74 69  en > 1) && (opti
4420: 6f 6e 4e 61 6d 65 5b 31 5d 20 3d 3d 20 27 63 27  onName[1] == 'c'
4430: 29 20 26 26 0a 09 09 28 73 74 72 6e 63 6d 70 28  ) &&...(strncmp(
4440: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 2d 63 69  optionName, "-ci
4450: 70 68 65 72 22 2c 20 6c 65 6e 29 20 3d 3d 20 30  pher", len) == 0
4460: 29 29 29 20 7b 0a 09 20 20 20 20 69 66 20 28 6c  ))) {..    if (l
4470: 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 54 63 6c  en == 0) {...Tcl
4480: 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c  _DStringAppendEl
4490: 65 6d 65 6e 74 28 64 73 50 74 72 2c 20 22 2d 63  ement(dsPtr, "-c
44a0: 69 70 68 65 72 22 29 3b 0a 09 20 20 20 20 7d 0a  ipher");..    }.
44b0: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
44c0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 64 73  AppendElement(ds
44d0: 50 74 72 2c 20 53 53 4c 5f 67 65 74 5f 63 69 70  Ptr, SSL_get_cip
44e0: 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73  her(statePtr->ss
44f0: 6c 29 29 3b 0a 09 20 20 20 20 69 66 20 28 6c 65  l));..    if (le
4500: 6e 29 20 7b 0a 09 09 72 65 74 75 72 6e 20 54 43  n) {...return TC
4510: 4c 5f 4f 4b 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a  L_OK;..    }..}.
4520: 23 65 6e 64 69 66 0a 09 72 65 74 75 72 6e 20 54  #endif..return T
4530: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 7d 0a 0c  CL_OK;.    }.}..
4540: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ./*. *----------
4550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
4590: 54 6c 73 57 61 74 63 68 50 72 6f 63 20 2d 2d 0a  TlsWatchProc --.
45a0: 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65   *. *.Initialize
45b0: 20 74 68 65 20 6e 6f 74 69 66 69 65 72 20 74 6f   the notifier to
45c0: 20 77 61 74 63 68 20 54 63 6c 5f 46 69 6c 65 73   watch Tcl_Files
45d0: 20 66 72 6f 6d 20 74 68 69 73 20 63 68 61 6e 6e   from this chann
45e0: 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  el.. *. * Result
45f0: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20  s:. *.None.. *. 
4600: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
4610: 20 2a 09 53 65 74 73 20 75 70 20 74 68 65 20 6e   *.Sets up the n
4620: 6f 74 69 66 69 65 72 20 73 6f 20 74 68 61 74 20  otifier so that 
4630: 61 20 66 75 74 75 72 65 20 65 76 65 6e 74 20 6f  a future event o
4640: 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 2a  n the channel. *
4650: 09 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 62 79  .will be seen by
4660: 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d   Tcl.. *. *-----
4670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
46a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
46b0: 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a  */..static void.
46c0: 54 6c 73 57 61 74 63 68 50 72 6f 63 28 43 6c 69  TlsWatchProc(Cli
46d0: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65  entData instance
46e0: 44 61 74 61 2c 09 2f 2a 20 54 68 65 20 73 6f 63  Data,./* The soc
46f0: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20  ket state. */.  
4700: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 6d             int m
4710: 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 6e 74 73  ask).../* Events
4720: 20 6f 66 20 69 6e 74 65 72 65 73 74 3b 20 61 6e   of interest; an
4730: 20 4f 52 2d 65 64 0a 20 20 20 20 20 20 20 20 20   OR-ed.         
4740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4760: 2a 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66  * combination of
4770: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 0a 20   TCL_READABLE,. 
4780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
47a0: 20 20 20 20 20 20 20 20 2a 20 54 43 4c 5f 57 52          * TCL_WR
47b0: 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45  ITABLE and TCL_E
47c0: 58 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20  XCEPTION. */.{. 
47d0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50     State *stateP
47e0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69  tr = (State *) i
47f0: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20  nstanceData;..  
4800: 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72    dprintf(stderr
4810: 2c 20 22 54 6c 73 57 61 74 63 68 50 72 6f 63 28  , "TlsWatchProc(
4820: 30 78 25 78 29 5c 6e 22 2c 20 6d 61 73 6b 29 3b  0x%x)\n", mask);
4830: 0a 0a 20 20 20 20 2f 2a 20 50 72 65 74 65 6e 64  ..    /* Pretend
4840: 20 74 6f 20 62 65 20 64 65 61 64 20 61 73 20 6c   to be dead as l
4850: 6f 6e 67 20 61 73 20 74 68 65 20 76 65 72 69 66  ong as the verif
4860: 79 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 72 75  y callback is ru
4870: 6e 6e 69 6e 67 2e 20 0a 20 20 20 20 20 2a 20 4f  nning. .     * O
4880: 74 68 65 72 77 69 73 65 20 74 68 61 74 20 63 61  therwise that ca
4890: 6c 6c 62 61 63 6b 20 63 6f 75 6c 64 20 62 65 20  llback could be 
48a0: 69 6e 76 6f 6b 65 64 20 72 65 63 75 72 73 69 76  invoked recursiv
48b0: 65 6c 79 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28  ely. */.    if (
48c0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20  statePtr->flags 
48d0: 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41  & TLS_TCL_CALLBA
48e0: 43 4b 29 20 7b 20 72 65 74 75 72 6e 3b 20 7d 0a  CK) { return; }.
48f0: 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c  .    if (channel
4900: 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54  TypeVersion == T
4910: 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49  LS_CHANNEL_VERSI
4920: 4f 4e 5f 32 29 20 7b 0a 09 54 63 6c 5f 43 68 61  ON_2) {..Tcl_Cha
4930: 6e 6e 65 6c 20 20 20 20 20 64 6f 77 6e 43 68 61  nnel     downCha
4940: 6e 3b 0a 0a 09 73 74 61 74 65 50 74 72 2d 3e 77  n;...statePtr->w
4950: 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b  atchMask = mask;
4960: 0a 0a 09 2f 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c  .../* No channel
4970: 20 68 61 6e 64 6c 65 72 73 20 61 6e 79 20 6d 6f   handlers any mo
4980: 72 65 2e 20 57 65 20 77 69 6c 6c 20 62 65 20 6e  re. We will be n
4990: 6f 74 69 66 69 65 64 20 61 75 74 6f 6d 61 74 69  otified automati
49a0: 63 61 6c 6c 79 0a 09 20 2a 20 61 62 6f 75 74 20  cally.. * about 
49b0: 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68  events on the ch
49c0: 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 76 69 61 20  annel below via 
49d0: 61 20 63 61 6c 6c 20 74 6f 20 6f 75 72 0a 09 20  a call to our.. 
49e0: 2a 20 27 54 72 61 6e 73 66 6f 72 6d 4e 6f 74 69  * 'TransformNoti
49f0: 66 79 50 72 6f 63 27 2e 20 42 75 74 20 77 65 20  fyProc'. But we 
4a00: 68 61 76 65 20 74 6f 20 70 61 73 73 20 74 68 65  have to pass the
4a10: 20 69 6e 74 65 72 65 73 74 20 64 6f 77 6e 20 6e   interest down n
4a20: 6f 77 2e 0a 09 20 2a 20 57 65 20 61 72 65 20 61  ow... * We are a
4a30: 6c 6c 6f 77 65 64 20 74 6f 20 61 64 64 20 61 64  llowed to add ad
4a40: 64 69 74 69 6f 6e 61 6c 20 27 69 6e 74 65 72 65  ditional 'intere
4a50: 73 74 27 20 74 6f 20 74 68 65 20 6d 61 73 6b 20  st' to the mask 
4a60: 69 66 20 77 65 20 77 61 6e 74 0a 09 20 2a 20 74  if we want.. * t
4a70: 6f 2e 20 42 75 74 20 74 68 69 73 20 74 72 61 6e  o. But this tran
4a80: 73 66 6f 72 6d 61 74 69 6f 6e 20 68 61 73 20 6e  sformation has n
4a90: 6f 20 73 75 63 68 20 69 6e 74 65 72 65 73 74 2e  o such interest.
4aa0: 20 49 74 20 6a 75 73 74 20 70 61 73 73 65 73 0a   It just passes.
4ab0: 09 20 2a 20 74 68 65 20 72 65 71 75 65 73 74 20  . * the request 
4ac0: 64 6f 77 6e 2c 20 75 6e 63 68 61 6e 67 65 64 2e  down, unchanged.
4ad0: 0a 09 20 2a 2f 0a 0a 09 64 6f 77 6e 43 68 61 6e  .. */...downChan
4ae0: 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74   = Tls_GetParent
4af0: 28 73 74 61 74 65 50 74 72 29 3b 0a 0a 09 28 54  (statePtr);...(T
4b00: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70  cl_GetChannelTyp
4b10: 65 28 64 6f 77 6e 43 68 61 6e 29 29 0a 09 20 20  e(downChan))..  
4b20: 20 20 2d 3e 77 61 74 63 68 50 72 6f 63 28 54 63    ->watchProc(Tc
4b30: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74  l_GetChannelInst
4b40: 61 6e 63 65 44 61 74 61 28 64 6f 77 6e 43 68 61  anceData(downCha
4b50: 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a 09 2f 2a 0a  n), mask);.../*.
4b60: 09 20 2a 20 4d 61 6e 61 67 65 6d 65 6e 74 20 6f  . * Management o
4b70: 66 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 74  f the internal t
4b80: 69 6d 65 72 2e 0a 09 20 2a 2f 0a 0a 09 69 66 20  imer... */...if 
4b90: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72  (statePtr->timer
4ba0: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f   != (Tcl_TimerTo
4bb0: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 20 20  ken) NULL) {..  
4bc0: 20 20 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65    Tcl_DeleteTime
4bd0: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74  rHandler(statePt
4be0: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 20 20 20 20  r->timer);..    
4bf0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20  statePtr->timer 
4c00: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65  = (Tcl_TimerToke
4c10: 6e 29 20 4e 55 4c 4c 3b 0a 09 7d 0a 09 69 66 20  n) NULL;..}..if 
4c20: 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41  ((mask & TCL_REA
4c30: 44 41 42 4c 45 29 20 26 26 20 54 63 6c 5f 49 6e  DABLE) && Tcl_In
4c40: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74  putBuffered(stat
4c50: 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29  ePtr->self) > 0)
4c60: 20 7b 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 20   {..    /*..    
4c70: 20 2a 20 54 68 65 72 65 20 69 73 20 69 6e 74 65   * There is inte
4c80: 72 65 73 74 20 69 6e 20 72 65 61 64 61 62 6c 65  rest in readable
4c90: 20 65 76 65 6e 74 73 20 61 6e 64 20 77 65 20 61   events and we a
4ca0: 63 74 75 61 6c 6c 79 20 68 61 76 65 0a 09 20 20  ctually have..  
4cb0: 20 20 20 2a 20 64 61 74 61 20 77 61 69 74 69 6e     * data waitin
4cc0: 67 2c 20 73 6f 20 67 65 6e 65 72 61 74 65 20 61  g, so generate a
4cd0: 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20   timer to flush 
4ce0: 74 68 61 74 2e 0a 09 20 20 20 20 20 2a 2f 0a 09  that...     */..
4cf0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69      statePtr->ti
4d00: 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 65  mer = Tcl_Create
4d10: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 54 4c 53  TimerHandler(TLS
4d20: 5f 54 43 4c 5f 44 45 4c 41 59 2c 0a 09 09 20 20  _TCL_DELAY,...  
4d30: 20 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64    TlsChannelHand
4d40: 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c 69 65 6e  lerTimer, (Clien
4d50: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29  tData) statePtr)
4d60: 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20  ;..}.    } else 
4d70: 7b 0a 09 69 66 20 28 6d 61 73 6b 20 3d 3d 20 73  {..if (mask == s
4d80: 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61  tatePtr->watchMa
4d90: 73 6b 29 0a 09 20 20 20 20 72 65 74 75 72 6e 3b  sk)..    return;
4da0: 0a 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d  ...if (statePtr-
4db0: 3e 77 61 74 63 68 4d 61 73 6b 29 20 7b 0a 09 20  >watchMask) {.. 
4dc0: 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a 20 52 65     /*..     * Re
4dd0: 6d 6f 76 65 20 65 76 65 6e 74 20 68 61 6e 64 6c  move event handl
4de0: 65 72 20 74 6f 20 75 6e 64 65 72 6c 79 69 6e 67  er to underlying
4df0: 20 63 68 61 6e 6e 65 6c 2c 20 74 68 69 73 20 63   channel, this c
4e00: 6f 75 6c 64 0a 09 20 20 20 20 20 2a 20 62 65 20  ould..     * be 
4e10: 62 65 63 61 75 73 65 20 77 65 20 61 72 65 20 63  because we are c
4e20: 6c 6f 73 69 6e 67 20 66 6f 72 20 72 65 61 6c 2c  losing for real,
4e30: 20 6f 72 20 62 65 69 6e 67 20 22 75 6e 73 74 61   or being "unsta
4e40: 63 6b 65 64 22 2e 0a 09 20 20 20 20 20 2a 2f 0a  cked"...     */.
4e50: 0a 09 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65  ..    Tcl_Delete
4e60: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 54  ChannelHandler(T
4e70: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61  ls_GetParent(sta
4e80: 74 65 50 74 72 29 2c 0a 09 09 20 20 20 20 54 6c  tePtr),...    Tl
4e90: 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 2c  sChannelHandler,
4ea0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74   (ClientData) st
4eb0: 61 74 65 50 74 72 29 3b 0a 09 7d 0a 09 73 74 61  atePtr);..}..sta
4ec0: 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b  tePtr->watchMask
4ed0: 20 3d 20 6d 61 73 6b 3b 0a 09 69 66 20 28 73 74   = mask;..if (st
4ee0: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73  atePtr->watchMas
4ef0: 6b 29 20 7b 0a 09 20 20 20 20 2f 2a 0a 09 20 20  k) {..    /*..  
4f00: 20 20 20 2a 20 53 65 74 75 70 20 61 63 74 69 76     * Setup activ
4f10: 65 20 6d 6f 6e 69 74 6f 72 20 66 6f 72 20 65 76  e monitor for ev
4f20: 65 6e 74 73 20 6f 6e 20 75 6e 64 65 72 6c 79 69  ents on underlyi
4f30: 6e 67 20 43 68 61 6e 6e 65 6c 2e 0a 09 20 20 20  ng Channel...   
4f40: 20 20 2a 2f 0a 0a 09 20 20 20 20 54 63 6c 5f 43    */...    Tcl_C
4f50: 72 65 61 74 65 43 68 61 6e 6e 65 6c 48 61 6e 64  reateChannelHand
4f60: 6c 65 72 28 54 6c 73 5f 47 65 74 50 61 72 65 6e  ler(Tls_GetParen
4f70: 74 28 73 74 61 74 65 50 74 72 29 2c 0a 09 09 20  t(statePtr),... 
4f80: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74     statePtr->wat
4f90: 63 68 4d 61 73 6b 2c 20 54 6c 73 43 68 61 6e 6e  chMask, TlsChann
4fa0: 65 6c 48 61 6e 64 6c 65 72 2c 0a 09 09 20 20 20  elHandler,...   
4fb0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74   (ClientData) st
4fc0: 61 74 65 50 74 72 29 3b 0a 09 7d 0a 20 20 20 20  atePtr);..}.    
4fd0: 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  }.}.../*. *-----
4fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20  --------------. 
5020: 2a 0a 20 2a 20 54 6c 73 47 65 74 48 61 6e 64 6c  *. * TlsGetHandl
5030: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43  eProc --. *. *.C
5040: 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47  alled from Tcl_G
5050: 65 74 43 68 61 6e 6e 65 6c 46 69 6c 65 20 74 6f  etChannelFile to
5060: 20 72 65 74 72 69 65 76 65 20 6f 2f 73 20 66 69   retrieve o/s fi
5070: 6c 65 20 68 61 6e 64 6c 65 72 0a 20 2a 09 66 72  le handler. *.fr
5080: 6f 6d 20 74 68 65 20 53 53 4c 20 73 6f 63 6b 65  om the SSL socke
5090: 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e  t based channel.
50a0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
50b0: 20 2a 09 54 68 65 20 61 70 70 72 6f 70 72 69 61   *.The appropria
50c0: 74 65 20 54 63 6c 5f 46 69 6c 65 20 6f 72 20 4e  te Tcl_File or N
50d0: 55 4c 4c 20 69 66 20 6e 6f 74 20 70 72 65 73 65  ULL if not prese
50e0: 6e 74 2e 20 0a 20 2a 0a 20 2a 20 53 69 64 65 20  nt. . *. * Side 
50f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65  effects:. *.None
5100: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
5110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5120: 2d 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 0a 20 2a 2f 0a 73  ----------. */.s
5150: 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 47 65 74  tatic int.TlsGet
5160: 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e  HandleProc(Clien
5170: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61  tData instanceDa
5180: 74 61 2c 09 2f 2a 20 54 68 65 20 73 6f 63 6b 65  ta,./* The socke
5190: 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20  t state. */.    
51a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74               int
51b0: 20 64 69 72 65 63 74 69 6f 6e 2c 09 09 2f 2a 20   direction,../* 
51c0: 57 68 69 63 68 20 54 63 6c 5f 46 69 6c 65 20 74  Which Tcl_File t
51d0: 6f 20 72 65 74 72 69 65 76 65 3f 20 2a 2f 0a 20  o retrieve? */. 
51e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
51f0: 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e 64  ClientData *hand
5200: 6c 65 50 74 72 29 09 2f 2a 20 57 68 65 72 65 20  lePtr)./* Where 
5210: 74 6f 20 73 74 6f 72 65 20 74 68 65 20 68 61 6e  to store the han
5220: 64 6c 65 2e 20 20 2a 2f 0a 7b 0a 20 20 20 20 53  dle.  */.{.    S
5230: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d  tate *statePtr =
5240: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61   (State *) insta
5250: 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 72 65  nceData;..    re
5260: 74 75 72 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e  turn Tcl_GetChan
5270: 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 5f 47 65  nelHandle(Tls_Ge
5280: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72  tParent(statePtr
5290: 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 68 61  ), direction, ha
52a0: 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a  ndlePtr);.}.../*
52b0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
52c0: 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 54 6c 73  ------. *. * Tls
5300: 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a  NotifyProc --. *
5310: 0a 20 2a 09 48 61 6e 64 6c 65 72 20 63 61 6c 6c  . *.Handler call
5320: 65 64 20 62 79 20 54 63 6c 20 74 6f 20 69 6e 66  ed by Tcl to inf
5330: 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 69  orm us of activi
5340: 74 79 0a 20 2a 09 6f 6e 20 74 68 65 20 75 6e 64  ty. *.on the und
5350: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e  erlying channel.
5360: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
5370: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53   *.None.. *. * S
5380: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09  ide effects:. *.
5390: 4d 61 79 20 70 72 6f 63 65 73 73 20 74 68 65 20  May process the 
53a0: 69 6e 63 6f 6d 69 6e 67 20 65 76 65 6e 74 20 62  incoming event b
53b0: 79 20 69 74 73 65 6c 66 2e 0a 20 2a 0a 20 2a 2d  y itself.. *. *-
53c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5400: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69  --. */..static i
5410: 6e 74 0a 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63  nt.TlsNotifyProc
5420: 28 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 6d  (instanceData, m
5430: 61 73 6b 29 0a 20 20 20 20 43 6c 69 65 6e 74 44  ask).    ClientD
5440: 61 74 61 09 20 20 20 69 6e 73 74 61 6e 63 65 44  ata.   instanceD
5450: 61 74 61 3b 20 2f 2a 20 54 68 65 20 73 74 61 74  ata; /* The stat
5460: 65 20 6f 66 20 74 68 65 20 6e 6f 74 69 66 69 65  e of the notifie
5470: 64 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e  d transformation
5480: 20 2a 2f 0a 20 20 20 20 69 6e 74 09 09 20 20 20   */.    int..   
5490: 6d 61 73 6b 3b 20 20 20 20 20 20 20 2f 2a 20 54  mask;       /* T
54a0: 68 65 20 6d 61 73 6b 20 6f 66 20 6f 63 63 75 72  he mask of occur
54b0: 69 6e 67 20 65 76 65 6e 74 73 20 2a 2f 0a 7b 0a  ing events */.{.
54c0: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65      State *state
54d0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20  Ptr = (State *) 
54e0: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20  instanceData;.. 
54f0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 41 6e 20     /*.     * An 
5500: 65 76 65 6e 74 20 6f 63 63 75 72 65 64 20 69 6e  event occured in
5510: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20   the underlying 
5520: 63 68 61 6e 6e 65 6c 2e 20 20 54 68 69 73 0a 20  channel.  This. 
5530: 20 20 20 20 2a 20 74 72 61 6e 73 66 6f 72 6d 61      * transforma
5540: 74 69 6f 6e 20 64 6f 65 73 6e 27 74 20 70 72 6f  tion doesn't pro
5550: 63 65 73 73 20 73 75 63 68 20 65 76 65 6e 74 73  cess such events
5560: 20 74 68 75 73 20 72 65 74 75 72 6e 73 20 74 68   thus returns th
5570: 65 0a 20 20 20 20 20 2a 20 69 6e 63 6f 6d 69 6e  e.     * incomin
5580: 67 20 6d 61 73 6b 20 75 6e 63 68 61 6e 67 65 64  g mask unchanged
5590: 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69  ..     */..    i
55a0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d  f (statePtr->tim
55b0: 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72  er != (Tcl_Timer
55c0: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09  Token) NULL) {..
55d0: 2f 2a 0a 09 20 2a 20 44 65 6c 65 74 65 20 61 6e  /*.. * Delete an
55e0: 20 65 78 69 73 74 69 6e 67 20 74 69 6d 65 72 2e   existing timer.
55f0: 20 49 74 20 77 61 73 20 6e 6f 74 20 66 69 72 65   It was not fire
5600: 64 2c 20 79 65 74 20 77 65 20 61 72 65 0a 09 20  d, yet we are.. 
5610: 2a 20 68 65 72 65 2c 20 73 6f 20 74 68 65 20 63  * here, so the c
5620: 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 67 65 6e  hannel below gen
5630: 65 72 61 74 65 64 20 73 75 63 68 20 61 6e 20 65  erated such an e
5640: 76 65 6e 74 20 61 6e 64 20 77 65 0a 09 20 2a 20  vent and we.. * 
5650: 64 6f 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 54  don't have to. T
5660: 68 65 20 72 65 6e 65 77 61 6c 20 6f 66 20 74 68  he renewal of th
5670: 65 20 69 6e 74 65 72 65 73 74 20 61 66 74 65 72  e interest after
5680: 20 74 68 65 0a 09 20 2a 20 65 78 65 63 75 74 69   the.. * executi
5690: 6f 6e 20 6f 66 20 63 68 61 6e 6e 65 6c 20 68 61  on of channel ha
56a0: 6e 64 6c 65 72 73 20 77 69 6c 6c 20 65 76 65 6e  ndlers will even
56b0: 74 75 61 6c 6c 79 20 63 61 75 73 65 20 75 73 20  tually cause us 
56c0: 74 6f 0a 09 20 2a 20 72 65 63 72 65 61 74 65 20  to.. * recreate 
56d0: 74 68 65 20 74 69 6d 65 72 20 28 69 6e 20 57 61  the timer (in Wa
56e0: 74 63 68 50 72 6f 63 29 2e 0a 09 20 2a 2f 0a 0a  tchProc)... */..
56f0: 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72  .Tcl_DeleteTimer
5700: 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72  Handler(statePtr
5710: 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65  ->timer);..state
5720: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63  Ptr->timer = (Tc
5730: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55  l_TimerToken) NU
5740: 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69  LL;.    }..    i
5750: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61  f (statePtr->fla
5760: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 41 4c  gs & TLS_TCL_CAL
5770: 4c 42 41 43 4b 29 20 7b 0a 09 72 65 74 75 72 6e  LBACK) {..return
5780: 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69   0;.    }..    i
5790: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61  f (statePtr->fla
57a0: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49  gs & TLS_TCL_INI
57b0: 54 0a 09 20 20 20 20 26 26 20 21 53 53 4c 5f 69  T..    && !SSL_i
57c0: 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28  s_init_finished(
57d0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 20  statePtr->ssl)) 
57e0: 7b 0a 09 69 6e 74 20 65 72 72 6f 72 43 6f 64 65  {..int errorCode
57f0: 3b 0a 09 69 66 20 28 54 6c 73 5f 57 61 69 74 46  ;..if (Tls_WaitF
5800: 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50  orConnect(stateP
5810: 74 72 2c 20 26 65 72 72 6f 72 43 6f 64 65 29 20  tr, &errorCode) 
5820: 3c 3d 20 30 0a 09 09 26 26 20 65 72 72 6f 72 43  <= 0...&& errorC
5830: 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 29 20 7b  ode == EAGAIN) {
5840: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a  ..    return 0;.
5850: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 65  .}.    }..    re
5860: 74 75 72 6e 20 6d 61 73 6b 3b 0a 7d 0a 0c 0a 2f  turn mask;.}.../
5870: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
5880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
58a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20  ----------*. *. 
58b0: 2a 20 20 20 20 20 20 54 6c 73 43 68 61 6e 6e 65  *      TlsChanne
58c0: 6c 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20  lHandler --. *. 
58d0: 2a 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d  *      ---------
58e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
58f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5900: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 20 20 20 20 20  -------*. *     
5910: 20 48 61 6e 64 6c 65 72 20 63 61 6c 6c 65 64 20   Handler called 
5920: 62 79 20 54 63 6c 20 61 73 20 61 20 72 65 73 75  by Tcl as a resu
5930: 6c 74 20 6f 66 0a 20 2a 20 20 20 20 20 20 54 63  lt of. *      Tc
5940: 6c 5f 43 72 65 61 74 65 43 68 61 6e 6e 65 6c 48  l_CreateChannelH
5950: 61 6e 64 6c 65 72 20 2d 20 74 6f 20 69 6e 66 6f  andler - to info
5960: 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 69 74  rm us of activit
5970: 79 0a 20 2a 20 20 20 20 20 20 6f 6e 20 74 68 65  y. *      on the
5980: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e   underlying chan
5990: 6e 65 6c 2e 0a 20 2a 20 20 20 20 20 20 2d 2d 2d  nel.. *      ---
59a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
59b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
59c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20  -------------*. 
59d0: 2a 0a 20 2a 20 20 20 20 20 20 53 69 64 65 65 66  *. *      Sideef
59e0: 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 20 20 20  fects:. *       
59f0: 20 20 20 20 20 20 20 4d 61 79 20 67 65 6e 65 72         May gener
5a00: 61 74 65 20 73 75 62 73 65 71 75 65 6e 74 20 63  ate subsequent c
5a10: 61 6c 6c 73 20 74 6f 0a 20 2a 20 20 20 20 20 20  alls to. *      
5a20: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 6f 74 69          Tcl_Noti
5a30: 66 79 43 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a  fyChannel.. *. *
5a40: 20 20 20 20 20 20 52 65 73 75 6c 74 3a 0a 20 2a        Result:. *
5a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 6f                No
5a60: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ne.. *. *-------
5a70: 2d 2d 2d 2d 2d 2d 2d 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 2a  ---------------*
5aa0: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69  . */..static voi
5ab0: 64 0a 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64  d.TlsChannelHand
5ac0: 6c 65 72 20 28 63 6c 69 65 6e 74 44 61 74 61 2c  ler (clientData,
5ad0: 20 6d 61 73 6b 29 0a 20 20 20 20 43 6c 69 65 6e   mask).    Clien
5ae0: 74 44 61 74 61 20 20 20 20 20 63 6c 69 65 6e 74  tData     client
5af0: 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 20 20  Data;.    int   
5b00: 20 20 20 20 20 20 20 20 20 6d 61 73 6b 3b 0a 7b           mask;.{
5b10: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74  .    State *stat
5b20: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29  ePtr = (State *)
5b30: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 64 70   clientData;..dp
5b40: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 48  rintf(stderr, "H
5b50: 41 4e 44 4c 45 52 28 30 78 25 78 29 5c 6e 22 2c  ANDLER(0x%x)\n",
5b60: 20 6d 61 73 6b 29 3b 0a 20 20 20 20 54 63 6c 5f   mask);.    Tcl_
5b70: 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e  Preserve( (Clien
5b80: 74 44 61 74 61 29 73 74 61 74 65 50 74 72 29 3b  tData)statePtr);
5b90: 0a 0a 20 20 20 20 69 66 20 28 6d 61 73 6b 20 26  ..    if (mask &
5ba0: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 7b   TCL_READABLE) {
5bb0: 0a 09 42 49 4f 5f 73 65 74 5f 66 6c 61 67 73 28  ..BIO_set_flags(
5bc0: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c  statePtr->p_bio,
5bd0: 20 42 49 4f 5f 46 4c 41 47 53 5f 52 45 41 44 29   BIO_FLAGS_READ)
5be0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09  ;.    } else {..
5bf0: 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28  BIO_clear_flags(
5c00: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c  statePtr->p_bio,
5c10: 20 42 49 4f 5f 46 4c 41 47 53 5f 52 45 41 44 29   BIO_FLAGS_READ)
5c20: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20  ;.    }..    if 
5c30: 28 6d 61 73 6b 20 26 20 54 43 4c 5f 57 52 49 54  (mask & TCL_WRIT
5c40: 41 42 4c 45 29 20 7b 0a 09 42 49 4f 5f 73 65 74  ABLE) {..BIO_set
5c50: 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d  _flags(statePtr-
5c60: 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47  >p_bio, BIO_FLAG
5c70: 53 5f 57 52 49 54 45 29 3b 0a 20 20 20 20 7d 20  S_WRITE);.    } 
5c80: 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 63 6c 65 61  else {..BIO_clea
5c90: 72 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72  r_flags(statePtr
5ca0: 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41  ->p_bio, BIO_FLA
5cb0: 47 53 5f 57 52 49 54 45 29 3b 0a 20 20 20 20 7d  GS_WRITE);.    }
5cc0: 0a 0a 20 20 20 20 6d 61 73 6b 20 3d 20 30 3b 0a  ..    mask = 0;.
5cd0: 20 20 20 20 69 66 20 28 42 49 4f 5f 77 70 65 6e      if (BIO_wpen
5ce0: 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62  ding(statePtr->b
5cf0: 69 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 7c 3d 20  io)) {..mask |= 
5d00: 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 20 20  TCL_WRITABLE;.  
5d10: 20 20 7d 0a 20 20 20 20 69 66 20 28 42 49 4f 5f    }.    if (BIO_
5d20: 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72  pending(statePtr
5d30: 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b 20  ->bio)) {..mask 
5d40: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b  |= TCL_READABLE;
5d50: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20  .    }..    /*. 
5d60: 20 20 20 20 2a 20 54 68 65 20 66 6f 6c 6c 6f 77      * The follow
5d70: 69 6e 67 20 4e 6f 74 69 66 79 43 68 61 6e 6e 65  ing NotifyChanne
5d80: 6c 20 63 61 6c 6c 73 20 73 65 65 6d 73 20 74 6f  l calls seems to
5d90: 20 62 65 20 69 6d 70 6f 72 74 61 6e 74 2c 20 62   be important, b
5da0: 75 74 0a 20 20 20 20 20 2a 20 77 65 20 64 6f 6e  ut.     * we don
5db0: 27 74 20 6b 6e 6f 77 20 77 68 79 2e 20 20 49 74  't know why.  It
5dc0: 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 69 66 20 74   looks like if t
5dd0: 68 65 20 6d 61 73 6b 20 69 73 20 65 76 65 72 20  he mask is ever 
5de0: 6e 6f 6e 2d 7a 65 72 6f 0a 20 20 20 20 20 2a 20  non-zero.     * 
5df0: 74 68 61 74 20 69 74 20 77 69 6c 6c 20 65 6e 74  that it will ent
5e00: 65 72 20 61 6e 20 69 6e 66 69 6e 69 74 65 20 6c  er an infinite l
5e10: 6f 6f 70 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20  oop..     *.    
5e20: 20 2a 20 4e 6f 74 69 66 79 20 74 68 65 20 75 70   * Notify the up
5e30: 70 65 72 20 63 68 61 6e 6e 65 6c 20 6f 66 20 74  per channel of t
5e40: 68 65 20 63 75 72 72 65 6e 74 20 42 49 4f 20 73  he current BIO s
5e50: 74 61 74 65 20 73 6f 20 74 68 65 20 65 76 65 6e  tate so the even
5e60: 74 0a 20 20 20 20 20 2a 20 63 6f 6e 74 69 6e 75  t.     * continu
5e70: 65 73 20 74 6f 20 70 72 6f 70 61 67 61 74 65 20  es to propagate 
5e80: 75 70 20 74 68 65 20 63 68 61 69 6e 2e 0a 20 20  up the chain..  
5e90: 20 20 20 2a 0a 20 20 20 20 20 2a 20 73 74 61 6e     *.     * stan
5ea0: 74 6f 6e 3a 20 49 74 20 6c 6f 6f 6b 73 20 6c 69  ton: It looks li
5eb0: 6b 65 20 74 68 69 73 20 63 6f 75 6c 64 20 72 65  ke this could re
5ec0: 73 75 6c 74 20 69 6e 20 61 6e 20 69 6e 66 69 6e  sult in an infin
5ed0: 69 74 65 20 6c 6f 6f 70 20 69 66 0a 20 20 20 20  ite loop if.    
5ee0: 20 2a 20 74 68 65 20 75 70 70 65 72 20 63 68 61   * the upper cha
5ef0: 6e 6e 65 6c 20 64 6f 65 73 6e 27 74 20 63 61 75  nnel doesn't cau
5f00: 73 65 20 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65  se ChannelHandle
5f10: 72 20 74 6f 20 62 65 20 72 65 6d 6f 76 65 64 0a  r to be removed.
5f20: 20 20 20 20 20 2a 20 62 65 66 6f 72 65 20 54 63       * before Tc
5f30: 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 20  l_NotifyChannel 
5f40: 63 61 6c 6c 73 20 63 68 61 6e 6e 65 6c 20 68 61  calls channel ha
5f50: 6e 64 6c 65 72 73 20 6f 6e 20 74 68 65 20 6c 6f  ndlers on the lo
5f60: 77 65 72 20 63 68 61 6e 6e 65 6c 2e 0a 20 20 20  wer channel..   
5f70: 20 20 2a 2f 0a 20 20 20 20 0a 20 20 20 20 54 63    */.    .    Tc
5f80: 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28  l_NotifyChannel(
5f90: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20  statePtr->self, 
5fa0: 6d 61 73 6b 29 3b 0a 20 20 20 20 0a 20 20 20 20  mask);.    .    
5fb0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69  if (statePtr->ti
5fc0: 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65  mer != (Tcl_Time
5fd0: 72 54 6f 6b 65 6e 29 4e 55 4c 4c 29 20 7b 0a 09  rToken)NULL) {..
5fe0: 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48  Tcl_DeleteTimerH
5ff0: 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d  andler(statePtr-
6000: 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50  >timer);..stateP
6010: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c  tr->timer = (Tcl
6020: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c  _TimerToken)NULL
6030: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28  ;.    }.    if (
6040: 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44  (mask & TCL_READ
6050: 41 42 4c 45 29 20 26 26 20 54 63 6c 5f 49 6e 70  ABLE) && Tcl_Inp
6060: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65  utBuffered(state
6070: 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 20  Ptr->self) > 0) 
6080: 7b 0a 09 2f 2a 0a 09 20 2a 20 44 61 74 61 20 69  {../*.. * Data i
6090: 73 20 77 61 69 74 69 6e 67 2c 20 66 6c 75 73 68  s waiting, flush
60a0: 20 69 74 20 6f 75 74 20 69 6e 20 73 68 6f 72 74   it out in short
60b0: 20 74 69 6d 65 0a 09 20 2a 2f 0a 09 73 74 61 74   time.. */..stat
60c0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63  ePtr->timer = Tc
60d0: 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e  l_CreateTimerHan
60e0: 64 6c 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c  dler(TLS_TCL_DEL
60f0: 41 59 2c 0a 09 09 54 6c 73 43 68 61 6e 6e 65 6c  AY,...TlsChannel
6100: 48 61 6e 64 6c 65 72 54 69 6d 65 72 2c 20 28 43  HandlerTimer, (C
6110: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65  lientData) state
6120: 50 74 72 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20  Ptr);.    }.    
6130: 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c  Tcl_Release( (Cl
6140: 69 65 6e 74 44 61 74 61 29 73 74 61 74 65 50 74  ientData)statePt
6150: 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d  r);.}.../*. *---
6160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6190: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 43 68  ---*. *. *.TlsCh
61a0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65  annelHandlerTime
61b0: 72 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d  r --. *. *.-----
61c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
61d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
61e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09  -----------*. *.
61f0: 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 6f  Called by the no
6200: 74 69 66 69 65 72 20 28 2d 3e 20 74 69 6d 65 72  tifier (-> timer
6210: 29 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 0a 20  ) to flush out. 
6220: 2a 09 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 61  *.information wa
6230: 69 74 69 6e 67 20 69 6e 20 63 68 61 6e 6e 65 6c  iting in channel
6240: 20 62 75 66 66 65 72 73 2e 0a 20 2a 09 2d 2d 2d   buffers.. *.---
6250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20  -------------*. 
6280: 2a 0a 20 2a 09 53 69 64 65 65 66 66 65 63 74 73  *. *.Sideeffects
6290: 3a 0a 20 2a 09 09 41 73 20 6f 66 20 27 54 6c 73  :. *..As of 'Tls
62a0: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 27 2e  ChannelHandler'.
62b0: 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20  . *. *.Result:. 
62c0: 2a 09 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d  *..None.. *. *--
62d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
62e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
62f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6300: 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 73 74 61 74 69  ----*. */..stati
6310: 63 20 76 6f 69 64 0a 54 6c 73 43 68 61 6e 6e 65  c void.TlsChanne
6320: 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 20 28 63  lHandlerTimer (c
6330: 6c 69 65 6e 74 44 61 74 61 29 0a 43 6c 69 65 6e  lientData).Clien
6340: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
6350: 3b 20 2f 2a 20 54 72 61 6e 73 66 6f 72 6d 61 74  ; /* Transformat
6360: 69 6f 6e 20 74 6f 20 71 75 65 72 79 20 2a 2f 0a  ion to query */.
6370: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61  {.    State *sta
6380: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a  tePtr = (State *
6390: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20  ) clientData;.  
63a0: 20 20 69 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a    int mask = 0;.
63b0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74  .    statePtr->t
63c0: 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65  imer = (Tcl_Time
63d0: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20  rToken) NULL;.. 
63e0: 20 20 20 69 66 20 28 42 49 4f 5f 77 70 65 6e 64     if (BIO_wpend
63f0: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69  ing(statePtr->bi
6400: 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54  o)) {..mask |= T
6410: 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 20 20 20  CL_WRITABLE;.   
6420: 20 7d 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 70   }.    if (BIO_p
6430: 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d  ending(statePtr-
6440: 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 7c  >bio)) {..mask |
6450: 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a  = TCL_READABLE;.
6460: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 4e 6f      }.    Tcl_No
6470: 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 74 61 74  tifyChannel(stat
6480: 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b  ePtr->self, mask
6490: 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d  );.}.../*. *----
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64d0: 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 57 61  --*. *. *.Tls_Wa
64e0: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 2d 2d 0a  itForConnect --.
64f0: 20 2a 0a 20 2a 09 53 69 64 65 65 66 66 65 63 74   *. *.Sideeffect
6500: 73 3a 0a 20 2a 09 09 49 73 73 75 65 73 20 53 53  s:. *..Issues SS
6510: 4c 5f 61 63 63 65 70 74 20 6f 72 20 53 53 4c 5f  L_accept or SSL_
6520: 63 6f 6e 6e 65 63 74 0a 20 2a 0a 20 2a 09 52 65  connect. *. *.Re
6530: 73 75 6c 74 3a 0a 20 2a 09 09 4e 6f 6e 65 2e 0a  sult:. *..None..
6540: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f  -----------*. */
6580: 0a 69 6e 74 0a 54 6c 73 5f 57 61 69 74 46 6f 72  .int.Tls_WaitFor
6590: 43 6f 6e 6e 65 63 74 28 20 73 74 61 74 65 50 74  Connect( statePt
65a0: 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 72 29  r, errorCodePtr)
65b0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74  .    State *stat
65c0: 65 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 2a 65  ePtr;.    int *e
65d0: 72 72 6f 72 43 6f 64 65 50 74 72 3b 09 09 2f 2a  rrorCodePtr;../*
65e0: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20   Where to store 
65f0: 65 72 72 6f 72 20 63 6f 64 65 2e 20 2a 2f 0a 7b  error code. */.{
6600: 0a 20 20 20 20 69 6e 74 20 65 72 72 3b 0a 0a 20  .    int err;.. 
6610: 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72     dprintf(stder
6620: 72 2c 22 5c 6e 57 61 69 74 46 6f 72 43 6f 6e 6e  r,"\nWaitForConn
6630: 65 63 74 28 30 78 25 78 29 22 2c 20 28 75 6e 73  ect(0x%x)", (uns
6640: 69 67 6e 65 64 20 69 6e 74 29 20 73 74 61 74 65  igned int) state
6650: 50 74 72 29 3b 0a 0a 20 20 20 20 66 6f 72 20 28  Ptr);..    for (
6660: 3b 3b 29 20 7b 0a 09 2f 2a 20 4e 6f 74 20 69 6e  ;;) {../* Not in
6670: 69 74 69 61 6c 69 7a 65 64 20 79 65 74 21 20 2a  itialized yet! *
6680: 2f 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d  /..if (statePtr-
6690: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c  >flags & TLS_TCL
66a0: 5f 53 45 52 56 45 52 29 20 7b 0a 09 20 20 20 20  _SERVER) {..    
66b0: 65 72 72 20 3d 20 53 53 4c 5f 61 63 63 65 70 74  err = SSL_accept
66c0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b  (statePtr->ssl);
66d0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20  ..} else {..    
66e0: 65 72 72 20 3d 20 53 53 4c 5f 63 6f 6e 6e 65 63  err = SSL_connec
66f0: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29  t(statePtr->ssl)
6700: 3b 0a 09 7d 0a 09 2f 2a 53 53 4c 5f 77 72 69 74  ;..}../*SSL_writ
6710: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c  e(statePtr->ssl,
6720: 20 28 63 68 61 72 2a 29 26 65 72 72 2c 20 30 29   (char*)&err, 0)
6730: 3b 09 48 41 43 4b 21 21 21 20 2a 2f 0a 09 69 66  ;.HACK!!! */..if
6740: 20 28 65 72 72 20 3e 20 30 29 20 7b 0a 09 20 20   (err > 0) {..  
6750: 20 20 42 49 4f 5f 66 6c 75 73 68 28 73 74 61 74    BIO_flush(stat
6760: 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 7d 0a 0a  ePtr->bio);..}..
6770: 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 7b  .if (err <= 0) {
6780: 0a 09 20 20 20 20 69 6e 74 20 72 63 20 3d 20 53  ..    int rc = S
6790: 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61  SL_get_error(sta
67a0: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 65 72 72 29  tePtr->ssl, err)
67b0: 3b 0a 0a 09 20 20 20 20 69 66 20 28 72 63 20 3d  ;...    if (rc =
67c0: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 29  = SSL_ERROR_SSL)
67d0: 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73   {...Tls_Error(s
67e0: 74 61 74 65 50 74 72 2c 0a 09 09 09 28 63 68 61  tatePtr,....(cha
67f0: 72 20 2a 29 45 52 52 5f 72 65 61 73 6f 6e 5f 65  r *)ERR_reason_e
6800: 72 72 6f 72 5f 73 74 72 69 6e 67 28 45 52 52 5f  rror_string(ERR_
6810: 67 65 74 5f 65 72 72 6f 72 28 29 29 29 3b 0a 09  get_error()));..
6820: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d  .*errorCodePtr =
6830: 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09   ECONNABORTED;..
6840: 09 72 65 74 75 72 6e 20 2d 31 3b 0a 09 20 20 20  .return -1;..   
6850: 20 7d 20 65 6c 73 65 20 69 66 20 28 42 49 4f 5f   } else if (BIO_
6860: 73 68 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61  should_retry(sta
6870: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09  tePtr->bio)) {..
6880: 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66  .if (statePtr->f
6890: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 41  lags & TLS_TCL_A
68a0: 53 59 4e 43 29 20 7b 0a 09 09 20 20 20 20 64 70  SYNC) {...    dp
68b0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 45 21  rintf(stderr,"E!
68c0: 20 22 29 3b 0a 09 09 20 20 20 20 2a 65 72 72 6f   ");...    *erro
68d0: 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49  rCodePtr = EAGAI
68e0: 4e 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20  N;...    return 
68f0: 2d 31 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09  -1;...} else {..
6900: 09 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 09  .    continue;..
6910: 09 7d 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69  .}..    } else i
6920: 66 20 28 65 72 72 20 3d 3d 20 30 29 20 7b 0a 09  f (err == 0) {..
6930: 09 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .dprintf(stderr,
6940: 22 43 52 21 20 22 29 3b 0a 09 09 2a 65 72 72 6f  "CR! ");...*erro
6950: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e  rCodePtr = ECONN
6960: 52 45 53 45 54 3b 0a 09 09 72 65 74 75 72 6e 20  RESET;...return 
6970: 2d 31 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20  -1;..    }..    
6980: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c  if (statePtr->fl
6990: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45  ags & TLS_TCL_SE
69a0: 52 56 45 52 29 20 7b 0a 09 09 65 72 72 20 3d 20  RVER) {...err = 
69b0: 53 53 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72  SSL_get_verify_r
69c0: 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e  esult(statePtr->
69d0: 73 73 6c 29 3b 0a 09 09 69 66 20 28 65 72 72 20  ssl);...if (err 
69e0: 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a  != X509_V_OK) {.
69f0: 09 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28  ..    Tls_Error(
6a00: 73 74 61 74 65 50 74 72 2c 0a 09 09 09 20 20 20  statePtr,....   
6a10: 20 28 63 68 61 72 20 2a 29 58 35 30 39 5f 76 65   (char *)X509_ve
6a20: 72 69 66 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f  rify_cert_error_
6a30: 73 74 72 69 6e 67 28 65 72 72 29 29 3b 0a 09 09  string(err));...
6a40: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74      *errorCodePt
6a50: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44  r = ECONNABORTED
6a60: 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 2d  ;...    return -
6a70: 31 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20  1;...}..    }.. 
6a80: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72     *errorCodePtr
6a90: 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28   = Tcl_GetErrno(
6aa0: 29 3b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28  );..    dprintf(
6ab0: 73 74 64 65 72 72 2c 22 45 52 52 28 25 64 2c 20  stderr,"ERR(%d, 
6ac0: 25 64 29 20 22 2c 20 72 63 2c 20 2a 65 72 72 6f  %d) ", rc, *erro
6ad0: 72 43 6f 64 65 50 74 72 29 3b 0a 09 20 20 20 20  rCodePtr);..    
6ae0: 72 65 74 75 72 6e 20 2d 31 3b 0a 09 7d 0a 09 64  return -1;..}..d
6af0: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 52  printf(stderr,"R
6b00: 30 21 20 22 29 3b 0a 09 72 65 74 75 72 6e 20 31  0! ");..return 1
6b10: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 54 63 6c 5f 43  ;.    }.}..Tcl_C
6b20: 68 61 6e 6e 65 6c 0a 54 6c 73 5f 47 65 74 50 61  hannel.Tls_GetPa
6b30: 72 65 6e 74 28 20 73 74 61 74 65 50 74 72 20 29  rent( statePtr )
6b40: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74  .    State *stat
6b50: 65 50 74 72 3b 0a 7b 0a 20 20 20 20 69 66 20 28  ePtr;.{.    if (
6b60: 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69  channelTypeVersi
6b70: 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45  on == TLS_CHANNE
6b80: 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09  L_VERSION_2) {..
6b90: 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 53 74  return Tcl_GetSt
6ba0: 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61  ackedChannel(sta
6bb0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20  tePtr->self);.  
6bc0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 2f 2a 20 54    } else {../* T
6bd0: 68 65 20 72 65 61 73 6f 6e 20 66 6f 72 20 74 68  he reason for th
6be0: 65 20 65 78 69 73 74 65 6e 63 65 20 6f 66 20 74  e existence of t
6bf0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73  his procedure is
6c00: 0a 09 20 2a 20 74 68 65 20 66 61 63 74 20 74 68  .. * the fact th
6c10: 61 74 20 73 74 61 63 6b 69 6e 67 20 61 20 74 72  at stacking a tr
6c20: 61 6e 73 66 6f 72 6d 20 6f 76 65 72 20 61 6e 6f  ansform over ano
6c30: 74 68 65 72 0a 09 20 2a 20 74 72 61 6e 73 66 6f  ther.. * transfo
6c40: 72 6d 20 77 69 6c 6c 20 6c 65 61 76 65 20 6f 75  rm will leave ou
6c50: 72 20 69 6e 74 65 72 6e 61 6c 20 70 6f 69 6e 74  r internal point
6c60: 65 72 20 75 6e 63 68 61 6e 67 65 64 2c 0a 09 20  er unchanged,.. 
6c70: 2a 20 61 6e 64 20 74 68 75 73 20 70 6f 69 6e 74  * and thus point
6c80: 69 6e 67 20 74 6f 20 74 68 65 20 6e 65 77 20 74  ing to the new t
6c90: 72 61 6e 73 66 6f 72 6d 2c 20 61 6e 64 20 6e 6f  ransform, and no
6ca0: 74 20 74 68 65 0a 09 20 2a 20 43 68 61 6e 6e 65  t the.. * Channe
6cb0: 6c 20 73 74 72 75 63 74 75 72 65 20 63 6f 6e 74  l structure cont
6cc0: 61 69 6e 69 6e 67 20 74 68 65 20 73 61 76 65 64  aining the saved
6cd0: 20 73 74 61 74 65 20 6f 66 20 74 68 69 73 0a 09   state of this..
6ce0: 20 2a 20 74 72 61 6e 73 66 6f 72 6d 2e 20 54 68   * transform. Th
6cf0: 69 73 20 69 73 20 74 68 65 20 70 72 69 63 65 20  is is the price 
6d00: 74 6f 20 70 61 79 20 66 6f 72 20 6c 65 61 76 69  to pay for leavi
6d10: 6e 67 0a 09 20 2a 20 54 63 6c 5f 43 68 61 6e 6e  ng.. * Tcl_Chann
6d20: 65 6c 20 72 65 66 65 72 65 6e 63 65 73 20 69 6e  el references in
6d30: 74 61 63 74 2e 20 54 68 65 20 6f 6e 6c 79 20 6f  tact. The only o
6d40: 74 68 65 72 20 73 6f 6c 75 74 69 6f 6e 0a 09 20  ther solution.. 
6d50: 2a 20 69 73 20 61 6e 20 65 78 74 65 6e 73 69 6f  * is an extensio
6d60: 6e 20 6f 66 20 54 63 6c 5f 43 68 61 6e 6e 65 6c  n of Tcl_Channel
6d70: 54 79 70 65 20 77 69 74 68 20 61 6e 6f 74 68 65  Type with anothe
6d80: 72 20 64 72 69 76 65 72 0a 09 20 2a 20 70 72 6f  r driver.. * pro
6d90: 63 65 64 75 72 65 20 74 6f 20 6e 6f 74 69 66 79  cedure to notify
6da0: 20 61 20 43 68 61 6e 6e 65 6c 20 61 62 6f 75 74   a Channel about
6db0: 20 74 68 65 20 28 75 6e 29 73 74 61 63 6b 69 6e   the (un)stackin
6dc0: 67 2e 0a 09 20 2a 0a 09 20 2a 20 49 74 20 77 61  g... *.. * It wa
6dd0: 6c 6b 73 20 74 68 65 20 63 68 61 69 6e 20 6f 66  lks the chain of
6de0: 20 43 68 61 6e 6e 65 6c 20 73 74 72 75 63 74 75   Channel structu
6df0: 72 65 73 20 75 6e 74 69 6c 20 69 74 0a 09 20 2a  res until it.. *
6e00: 20 66 69 6e 64 73 20 74 68 65 20 6f 6e 65 20 70   finds the one p
6e10: 6f 69 6e 74 69 6e 67 20 68 61 76 69 6e 67 20 27  ointing having '
6e20: 63 74 72 6c 27 20 61 73 20 69 6e 73 74 61 6e 63  ctrl' as instanc
6e30: 65 44 61 74 61 0a 09 20 2a 20 61 6e 64 20 74 68  eData.. * and th
6e40: 65 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20 73  en returns the s
6e50: 75 70 65 72 63 65 64 69 6e 67 20 63 68 61 6e 6e  uperceding chann
6e60: 65 6c 20 74 6f 20 74 68 61 74 2e 20 28 41 4b 29  el to that. (AK)
6e70: 0a 09 20 2a 2f 0a 0a 09 54 63 6c 5f 43 68 61 6e  .. */...Tcl_Chan
6e80: 6e 65 6c 20 73 65 6c 66 20 3d 20 73 74 61 74 65  nel self = state
6e90: 50 74 72 2d 3e 73 65 6c 66 3b 0a 09 54 63 6c 5f  Ptr->self;..Tcl_
6ea0: 43 68 61 6e 6e 65 6c 20 6e 65 78 74 3b 0a 0a 09  Channel next;...
6eb0: 77 68 69 6c 65 20 28 28 43 6c 69 65 6e 74 44 61  while ((ClientDa
6ec0: 74 61 29 20 73 74 61 74 65 50 74 72 20 21 3d 20  ta) statePtr != 
6ed0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e  Tcl_GetChannelIn
6ee0: 73 74 61 6e 63 65 44 61 74 61 20 28 73 65 6c 66  stanceData (self
6ef0: 29 29 20 7b 0a 09 20 20 20 20 6e 65 78 74 20 3d  )) {..    next =
6f00: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43   Tcl_GetStackedC
6f10: 68 61 6e 6e 65 6c 20 28 73 65 6c 66 29 3b 0a 09  hannel (self);..
6f20: 20 20 20 20 69 66 20 28 6e 65 78 74 20 3d 3d 20      if (next == 
6f30: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55  (Tcl_Channel) NU
6f40: 4c 4c 29 20 7b 0a 09 09 2f 2a 20 30 39 2f 32 34  LL) {.../* 09/24
6f50: 2f 31 39 39 39 20 55 6e 73 74 61 63 6b 69 6e 67  /1999 Unstacking
6f60: 20 62 75 67 2c 0a 09 09 20 2a 20 66 6f 75 6e 64   bug,... * found
6f70: 20 62 79 20 4d 61 74 74 20 4e 65 77 6d 61 6e 20   by Matt Newman 
6f80: 3c 6d 61 74 74 40 73 65 6e 73 75 73 2e 6f 72 67  <matt@sensus.org
6f90: 3e 2e 0a 09 09 20 2a 0a 09 09 20 2a 20 57 65 20  >.... *... * We 
6fa0: 77 65 72 65 20 75 6e 61 62 6c 65 20 74 6f 20 66  were unable to f
6fb0: 69 6e 64 20 74 68 65 20 63 68 61 6e 6e 65 6c 20  ind the channel 
6fc0: 73 74 72 75 63 74 75 72 65 20 66 6f 72 20 74 68  structure for th
6fd0: 69 73 0a 09 09 20 2a 20 74 72 61 6e 73 66 6f 72  is... * transfor
6fe0: 6d 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 68  mation in the ch
6ff0: 61 69 6e 20 6f 66 20 73 74 61 63 6b 65 64 20 63  ain of stacked c
7000: 68 61 6e 6e 65 6c 2e 20 54 68 69 73 0a 09 09 20  hannel. This... 
7010: 2a 20 6d 65 61 6e 73 20 74 68 61 74 20 77 65 20  * means that we 
7020: 61 72 65 20 63 75 72 72 65 6e 74 6c 79 20 69 6e  are currently in
7030: 20 74 68 65 20 70 72 6f 63 65 73 73 20 6f 66 20   the process of 
7040: 75 6e 73 74 61 63 6b 69 6e 67 0a 09 09 20 2a 20  unstacking... * 
7050: 69 74 20 2a 61 6e 64 2a 20 74 68 65 72 65 20 77  it *and* there w
7060: 65 72 65 20 73 6f 6d 65 20 62 79 74 65 73 20 77  ere some bytes w
7070: 61 69 74 69 6e 67 20 77 68 69 63 68 20 61 72 65  aiting which are
7080: 20 6e 6f 77 0a 09 09 20 2a 20 66 6c 75 73 68 65   now... * flushe
7090: 64 2e 20 49 6e 20 74 68 69 73 20 73 69 74 75 61  d. In this situa
70a0: 74 69 6f 6e 20 74 68 65 20 70 6f 69 6e 74 65 72  tion the pointer
70b0: 20 74 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a   to the channel.
70c0: 09 09 20 2a 20 69 74 73 65 6c 66 20 61 6c 72 65  .. * itself alre
70d0: 61 64 79 20 72 65 66 65 72 73 20 74 6f 20 74 68  ady refers to th
70e0: 65 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c  e parent channel
70f0: 20 77 65 20 68 61 76 65 20 74 6f 0a 09 09 20 2a   we have to... *
7100: 20 77 72 69 74 65 20 74 68 65 20 62 79 74 65 73   write the bytes
7110: 20 69 6e 74 6f 2c 20 73 6f 20 77 65 20 72 65 74   into, so we ret
7120: 75 72 6e 20 74 68 61 74 2e 0a 09 09 20 2a 2f 0a  urn that.... */.
7130: 09 09 72 65 74 75 72 6e 20 73 74 61 74 65 50 74  ..return statePt
7140: 72 2d 3e 73 65 6c 66 3b 0a 09 20 20 20 20 7d 0a  r->self;..    }.
7150: 09 20 20 20 20 73 65 6c 66 20 3d 20 6e 65 78 74  .    self = next
7160: 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 20 54 63  ;..}...return Tc
7170: 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e  l_GetStackedChan
7180: 6e 65 6c 20 28 73 65 6c 66 29 3b 0a 20 20 20 20  nel (self);.    
7190: 7d 0a 7d 0a                                      }.}.