0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61 (C) 1997-2000 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 0a 20 2a 20 24 48 65 61 64 65 72 3a 20 2f 68 6f . * $Header: /ho
0050: 6d 65 2f 72 6b 65 65 6e 65 2f 74 6d 70 2f 63 76 me/rkeene/tmp/cv
0060: 73 32 66 6f 73 73 69 6c 2f 2e 2e 2f 74 63 6c 74 s2fossil/../tclt
0070: 6c 73 2f 74 6c 73 2f 74 6c 73 2f 74 6c 73 49 4f ls/tls/tls/tlsIO
0080: 2e 63 2c 76 20 31 2e 39 20 32 30 30 30 2f 30 38 .c,v 1.9 2000/08
0090: 2f 31 35 20 30 30 3a 30 32 3a 30 38 20 68 6f 62 /15 00:02:08 hob
00a0: 62 73 20 45 78 70 20 24 0a 20 2a 0a 20 2a 20 54 bs Exp $. *. * T
00b0: 4c 53 20 28 61 6b 61 20 53 53 4c 29 20 43 68 61 LS (aka SSL) Cha
00c0: 6e 6e 65 6c 20 2d 20 63 61 6e 20 62 65 20 6c 61 nnel - can be la
00d0: 79 65 72 65 64 20 6f 6e 20 61 6e 79 20 62 69 2d yered on any bi-
00e0: 64 69 72 65 63 74 69 6f 6e 61 6c 0a 20 2a 20 54 directional. * T
00f0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 4e 6f 74 65 cl_Channel (Note
0100: 3a 20 52 65 71 75 69 72 65 73 20 54 72 66 20 43 : Requires Trf C
0110: 6f 72 65 20 50 61 74 63 68 29 0a 20 2a 0a 20 2a ore Patch). *. *
0120: 20 54 68 69 73 20 77 61 73 20 62 75 69 6c 74 20 This was built
0130: 66 72 6f 6d 20 73 63 72 61 74 63 68 20 62 61 73 from scratch bas
0140: 65 64 20 75 70 6f 6e 20 6f 62 73 65 72 76 61 74 ed upon observat
0150: 69 6f 6e 20 6f 66 20 4f 70 65 6e 53 53 4c 20 30 ion of OpenSSL 0
0160: 2e 39 2e 32 42 0a 20 2a 0a 20 2a 20 41 64 64 69 .9.2B. *. * Addi
0170: 74 69 6f 6e 20 63 72 65 64 69 74 20 69 73 20 64 tion credit is d
0180: 75 65 20 66 6f 72 20 41 6e 64 72 65 61 73 20 4b ue for Andreas K
0190: 75 70 72 69 65 73 20 28 61 2e 6b 75 70 72 69 65 upries (a.kuprie
01a0: 73 40 77 65 73 74 65 6e 64 2e 63 6f 6d 29 2c 20 s@westend.com),
01b0: 66 6f 72 0a 20 2a 20 70 72 6f 76 69 64 69 6e 67 for. * providing
01c0: 20 74 68 65 20 54 63 6c 5f 52 65 70 6c 61 63 65 the Tcl_Replace
01d0: 43 68 61 6e 6e 65 6c 20 6d 65 63 68 61 6e 69 73 Channel mechanis
01e0: 6d 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 63 6c m and working cl
01f0: 6f 73 65 6c 79 20 77 69 74 68 20 6d 65 0a 20 2a osely with me. *
0200: 20 74 6f 20 65 6e 68 61 6e 63 65 20 69 74 20 74 to enhance it t
0210: 6f 20 73 75 70 70 6f 72 74 20 66 75 6c 6c 20 66 o support full f
0220: 69 6c 65 65 76 65 6e 74 20 73 65 6d 61 6e 74 69 ileevent semanti
0230: 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f 20 77 cs.. *. * Also w
0240: 6f 72 6b 20 64 6f 6e 65 20 62 79 20 74 68 65 20 ork done by the
0250: 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 70 72 follow people pr
0260: 6f 76 69 64 65 64 20 74 68 65 20 69 6d 70 65 74 ovided the impet
0270: 75 73 20 74 6f 20 64 6f 20 74 68 69 73 20 22 72 us to do this "r
0280: 69 67 68 74 22 3a 0a 20 2a 09 74 63 6c 53 53 4c ight":. *.tclSSL
0290: 20 28 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 (Colin McCormac
02a0: 6b 2c 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f k, Shared Techno
02b0: 6c 6f 67 79 29 0a 20 2a 09 53 53 4c 74 63 6c 20 logy). *.SSLtcl
02c0: 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a 20 (Peter Antman).
02d0: 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 *. */..#include
02e0: 22 74 6c 73 49 6e 74 2e 68 22 0a 0a 2f 2a 0a 20 "tlsInt.h"../*.
02f0: 2a 20 45 78 74 65 72 6e 61 6c 20 66 75 6e 63 74 * External funct
0300: 69 6f 6e 73 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 ions. */../*. *
0310: 4c 6f 63 61 6c 20 44 65 66 69 6e 65 73 0a 20 2a Local Defines. *
0320: 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 /../*. * Forward
0330: 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a declarations. *
0340: 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 54 6c /..static int.Tl
0350: 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 5f sBlockModeProc _
0360: 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 ANSI_ARGS_((Clie
0370: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 ntData instanceD
0380: 61 74 61 2c 0a 09 09 09 69 6e 74 20 6d 6f 64 65 ata,....int mode
0390: 29 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 09 54 ));.static int.T
03a0: 6c 73 43 6c 6f 73 65 50 72 6f 63 20 5f 41 4e 53 lsCloseProc _ANS
03b0: 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 I_ARGS_ ((Client
03c0: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
03d0: 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 a,....Tcl_Interp
03e0: 20 2a 69 6e 74 65 72 70 29 29 3b 0a 73 74 61 74 *interp));.stat
03f0: 69 63 20 69 6e 74 09 54 6c 73 49 6e 70 75 74 50 ic int.TlsInputP
0400: 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 roc _ANSI_ARGS_(
0410: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
0420: 61 6e 63 65 44 61 74 61 2c 0a 09 09 09 63 68 61 anceData,....cha
0430: 72 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 53 r *buf, int bufS
0440: 69 7a 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 ize, int *errorC
0450: 6f 64 65 50 74 72 29 29 3b 0a 73 74 61 74 69 63 odePtr));.static
0460: 20 69 6e 74 09 54 6c 73 4f 75 74 70 75 74 50 72 int.TlsOutputPr
0470: 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 oc _ANSI_ARGS_((
0480: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
0490: 6e 63 65 44 61 74 61 2c 0a 09 09 09 63 68 61 72 nceData,....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 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e p, char *optionN
0530: 61 6d 65 2c 0a 09 09 09 54 63 6c 5f 44 53 74 72 ame,....Tcl_DStr
0540: 69 6e 67 20 2a 64 73 50 74 72 29 29 3b 0a 73 74 ing *dsPtr));.st
0550: 61 74 69 63 20 76 6f 69 64 09 54 6c 73 57 61 74 atic void.TlsWat
0560: 63 68 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 chProc _ANSI_ARG
0570: 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69 S_((ClientData i
0580: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
0590: 20 6d 61 73 6b 29 29 3b 0a 73 74 61 74 69 63 20 mask));.static
05a0: 69 6e 74 09 54 6c 73 47 65 74 48 61 6e 64 6c 65 int.TlsGetHandle
05b0: 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f Proc _ANSI_ARGS_
05c0: 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e ((ClientData in
05d0: 73 74 61 6e 63 65 44 61 74 61 2c 0a 09 09 09 69 stanceData,....i
05e0: 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c 20 43 6c nt direction, Cl
05f0: 69 65 6e 74 44 61 74 61 20 2a 68 61 6e 64 6c 65 ientData *handle
0600: 50 74 72 29 29 3b 0a 73 74 61 74 69 63 20 69 6e Ptr));.static in
0610: 74 09 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 t.TlsNotifyProc
0620: 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c _ANSI_ARGS_ ((Cl
0630: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
0640: 65 44 61 74 61 2c 0a 09 09 09 69 6e 74 20 6d 61 eData,....int ma
0650: 73 6b 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 sk));.static voi
0660: 64 09 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 d.TlsChannelHand
0670: 6c 65 72 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 ler _ANSI_ARGS_
0680: 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ((ClientData cli
0690: 65 6e 74 44 61 74 61 2c 0a 09 09 09 69 6e 74 20 entData,....int
06a0: 6d 61 73 6b 29 29 3b 0a 73 74 61 74 69 63 20 76 mask));.static v
06b0: 6f 69 64 09 54 6c 73 43 68 61 6e 6e 65 6c 48 61 oid.TlsChannelHa
06c0: 6e 64 6c 65 72 54 69 6d 65 72 20 5f 41 4e 53 49 ndlerTimer _ANSI
06d0: 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 _ARGS_ ((ClientD
06e0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 29 ata clientData))
06f0: 3b 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 20 73 74 ;../*. * This st
0700: 72 75 63 74 75 72 65 20 64 65 73 63 72 69 62 65 ructure describe
0710: 73 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 74 79 s the channel ty
0720: 70 65 20 73 74 72 75 63 74 75 72 65 20 66 6f 72 pe structure for
0730: 20 54 43 50 20 73 6f 63 6b 65 74 0a 20 2a 20 62 TCP socket. * b
0740: 61 73 65 64 20 49 4f 3a 0a 20 2a 2f 0a 73 74 61 ased IO:. */.sta
0750: 74 69 63 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 tic Tcl_ChannelT
0760: 79 70 65 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 ype tlsChannelTy
0770: 70 65 32 20 3d 20 7b 0a 20 20 20 20 22 74 6c 73 pe2 = {. "tls
0780: 22 2c 09 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 ",../* Type name
0790: 2e 20 2a 2f 0a 23 69 66 6e 64 65 66 20 54 43 4c . */.#ifndef TCL
07a0: 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e _CHANNEL_VERSION
07b0: 5f 32 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a _2. /*. *
07c0: 20 41 76 6f 69 64 73 20 77 61 72 6e 69 6e 67 20 Avoids warning
07d0: 69 6e 20 57 69 6e 64 6f 77 73 20 63 6f 6d 70 69 in Windows compi
07e0: 6c 65 72 20 77 68 65 6e 20 63 6f 6d 70 69 6c 69 ler when compili
07f0: 6e 67 20 77 69 74 68 20 38 2e 33 2e 31 2d 2e 0a ng with 8.3.1-..
0800: 20 20 20 20 20 2a 2f 0a 20 20 20 20 28 54 63 6c */. (Tcl
0810: 5f 44 72 69 76 65 72 42 6c 6f 63 6b 4d 6f 64 65 _DriverBlockMode
0820: 50 72 6f 63 20 2a 29 0a 23 65 6e 64 69 66 0a 20 Proc *).#endif.
0830: 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 TCL_CHANNEL_V
0840: 45 52 53 49 4f 4e 5f 32 2c 09 2f 2a 20 41 20 76 ERSION_2,./* A v
0850: 32 20 63 68 61 6e 6e 65 6c 20 28 38 2e 33 2e 32 2 channel (8.3.2
0860: 2b 29 20 2a 2f 0a 20 20 20 20 54 6c 73 43 6c 6f +) */. TlsClo
0870: 73 65 50 72 6f 63 2c 09 2f 2a 20 43 6c 6f 73 65 seProc,./* Close
0880: 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 54 6c proc. */. Tl
0890: 73 49 6e 70 75 74 50 72 6f 63 2c 09 2f 2a 20 49 sInputProc,./* I
08a0: 6e 70 75 74 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 nput proc. */.
08b0: 20 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 2c TlsOutputProc,
08c0: 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 2e ./* Output proc.
08d0: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 2f */. NULL,../
08e0: 2a 20 53 65 65 6b 20 70 72 6f 63 2e 20 2a 2f 0a * Seek proc. */.
08f0: 20 20 20 20 4e 55 4c 4c 2c 09 09 2f 2a 20 53 65 NULL,../* Se
0900: 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 2e 20 2a t option proc. *
0910: 2f 0a 20 20 20 20 54 6c 73 47 65 74 4f 70 74 69 /. TlsGetOpti
0920: 6f 6e 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 6f onProc,./* Get o
0930: 70 74 69 6f 6e 20 70 72 6f 63 2e 20 2a 2f 0a 20 ption proc. */.
0940: 20 20 20 54 6c 73 57 61 74 63 68 50 72 6f 63 2c TlsWatchProc,
0950: 09 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 6e ./* Initialize n
0960: 6f 74 69 66 69 65 72 2e 20 2a 2f 0a 20 20 20 20 otifier. */.
0970: 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 TlsGetHandleProc
0980: 2c 09 2f 2a 20 47 65 74 20 66 69 6c 65 20 68 61 ,./* Get file ha
0990: 6e 64 6c 65 20 6f 75 74 20 6f 66 20 63 68 61 6e ndle out of chan
09a0: 6e 65 6c 2e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c nel. */. NULL
09b0: 2c 09 09 2f 2a 20 43 6c 6f 73 65 32 50 72 6f 63 ,../* Close2Proc
09c0: 2e 20 2a 2f 0a 20 20 20 20 54 6c 73 42 6c 6f 63 . */. TlsBloc
09d0: 6b 4d 6f 64 65 50 72 6f 63 2c 09 2f 2a 20 53 65 kModeProc,./* Se
09e0: 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c t blocking/nonbl
09f0: 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 2a 2f 0a 20 ocking mode.*/.
0a00: 20 20 20 4e 55 4c 4c 2c 09 09 2f 2a 20 46 6c 75 NULL,../* Flu
0a10: 73 68 50 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 54 shProc. */. T
0a20: 6c 73 4e 6f 74 69 66 79 50 72 6f 63 2c 09 2f 2a lsNotifyProc,./*
0a30: 20 68 61 6e 64 6c 65 72 50 72 6f 63 2e 20 2a 2f handlerProc. */
0a40: 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 54 63 6c 5f .};..static Tcl_
0a50: 43 68 61 6e 6e 65 6c 54 79 70 65 20 74 6c 73 43 ChannelType tlsC
0a60: 68 61 6e 6e 65 6c 54 79 70 65 31 20 3d 20 7b 0a hannelType1 = {.
0a70: 20 20 20 20 22 74 6c 73 22 2c 09 09 2f 2a 20 54 "tls",../* T
0a80: 79 70 65 20 6e 61 6d 65 2e 20 2a 2f 0a 23 69 66 ype name. */.#if
0a90: 64 65 66 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f def TCL_CHANNEL_
0aa0: 56 45 52 53 49 4f 4e 5f 32 0a 20 20 20 20 2f 2a VERSION_2. /*
0ab0: 0a 20 20 20 20 20 2a 20 41 76 6f 69 64 73 20 77 . * Avoids w
0ac0: 61 72 6e 69 6e 67 20 69 6e 20 57 69 6e 64 6f 77 arning in Window
0ad0: 73 20 63 6f 6d 70 69 6c 65 72 20 77 68 65 6e 20 s compiler when
0ae0: 63 6f 6d 70 69 6c 69 6e 67 20 77 69 74 68 20 38 compiling with 8
0af0: 2e 33 2e 32 2b 2e 0a 20 20 20 20 20 2a 2f 0a 20 .3.2+.. */.
0b00: 20 20 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 (Tcl_ChannelT
0b10: 79 70 65 56 65 72 73 69 6f 6e 29 0a 23 65 6e 64 ypeVersion).#end
0b20: 69 66 0a 20 20 20 20 54 6c 73 42 6c 6f 63 6b 4d if. TlsBlockM
0b30: 6f 64 65 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 odeProc,./* Set
0b40: 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 blocking/nonbloc
0b50: 6b 69 6e 67 20 6d 6f 64 65 2e 2a 2f 0a 20 20 20 king mode.*/.
0b60: 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 2c 09 2f TlsCloseProc,./
0b70: 2a 20 43 6c 6f 73 65 20 70 72 6f 63 2e 20 2a 2f * Close proc. */
0b80: 0a 20 20 20 20 54 6c 73 49 6e 70 75 74 50 72 6f . TlsInputPro
0b90: 63 2c 09 2f 2a 20 49 6e 70 75 74 20 70 72 6f 63 c,./* Input proc
0ba0: 2e 20 2a 2f 0a 20 20 20 20 54 6c 73 4f 75 74 70 . */. TlsOutp
0bb0: 75 74 50 72 6f 63 2c 09 2f 2a 20 4f 75 74 70 75 utProc,./* Outpu
0bc0: 74 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 4e t proc. */. N
0bd0: 55 4c 4c 2c 09 09 2f 2a 20 53 65 65 6b 20 70 72 ULL,../* Seek pr
0be0: 6f 63 2e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c oc. */. NULL,
0bf0: 09 09 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e 20 ../* Set option
0c00: 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 54 6c 73 proc. */. Tls
0c10: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f GetOptionProc,./
0c20: 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f * Get option pro
0c30: 63 2e 20 2a 2f 0a 20 20 20 20 54 6c 73 57 61 74 c. */. TlsWat
0c40: 63 68 50 72 6f 63 2c 09 2f 2a 20 49 6e 69 74 69 chProc,./* Initi
0c50: 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 2e 20 alize notifier.
0c60: 2a 2f 0a 20 20 20 20 54 6c 73 47 65 74 48 61 6e */. TlsGetHan
0c70: 64 6c 65 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 dleProc,./* Get
0c80: 66 69 6c 65 20 68 61 6e 64 6c 65 20 6f 75 74 20 file handle out
0c90: 6f 66 20 63 68 61 6e 6e 65 6c 2e 20 2a 2f 0a 7d of channel. */.}
0ca0: 3b 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 ;..Tcl_ChannelTy
0cb0: 70 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 pe *Tls_ChannelT
0cc0: 79 70 65 28 29 0a 7b 0a 20 20 20 20 69 66 20 28 ype().{. if (
0cd0: 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 channelTypeVersi
0ce0: 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 on == TLS_CHANNE
0cf0: 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 L_VERSION_2) {..
0d00: 72 65 74 75 72 6e 20 26 74 6c 73 43 68 61 6e 6e return &tlsChann
0d10: 65 6c 54 79 70 65 32 3b 0a 20 20 20 20 7d 20 65 elType2;. } e
0d20: 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e 20 26 74 lse {..return &t
0d30: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 31 3b 0a lsChannelType1;.
0d40: 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d }.}.../*. *-
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d90: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 42 6c 6f 63 --. *. * TlsBloc
0da0: 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a kModeProc --. *.
0db0: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
0dc0: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 e is invoked by
0dd0: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
0de0: 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f evel. * to
0df0: 20 73 65 74 20 62 6c 6f 63 6b 69 6e 67 20 61 6e set blocking an
0e00: 64 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f d nonblocking mo
0e10: 64 65 73 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a des. * Results:.
0e20: 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 66 *.0 if successf
0e30: 75 6c 2c 20 65 72 72 6e 6f 20 77 68 65 6e 20 66 ul, errno when f
0e40: 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 ailed.. *. * Sid
0e50: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 e effects:. *.Se
0e60: 74 73 20 74 68 65 20 64 65 76 69 63 65 20 69 6e ts the device in
0e70: 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e to blocking or n
0e80: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e onblocking mode.
0e90: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 ---------. */..s
0ee0: 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 42 6c 6f tatic int.TlsBlo
0ef0: 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65 6e ckModeProc(Clien
0f00: 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 tData instanceDa
0f10: 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 ta,./* Socket st
0f20: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 ate. */.
0f30: 20 20 20 20 20 20 20 20 20 69 6e 74 20 6d 6f 64 int mod
0f40: 65 29 09 09 09 2f 2a 20 54 68 65 20 6d 6f 64 65 e).../* The mode
0f50: 20 74 6f 20 73 65 74 2e 20 43 61 6e 20 62 65 20 to set. Can be
0f60: 6f 6e 65 20 6f 66 0a 09 09 09 09 09 09 2a 20 54 one of.......* T
0f70: 43 4c 5f 4d 4f 44 45 5f 42 4c 4f 43 4b 49 4e 47 CL_MODE_BLOCKING
0f80: 20 6f 72 0a 09 09 09 09 09 09 2a 20 54 43 4c 5f or.......* TCL_
0f90: 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 MODE_NONBLOCKING
0fa0: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 . */.{. State
0fb0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
0fc0: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
0fd0: 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f ata;.. if (mo
0fe0: 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e de == TCL_MODE_N
0ff0: 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 73 ONBLOCKING) {..s
1000: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
1010: 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 3b = TLS_TCL_ASYNC;
1020: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 . } else {..s
1030: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
1040: 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 4e = ~(TLS_TCL_ASYN
1050: 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 C);. }. if
1060: 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 (channelTypeVer
1070: 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e sion == TLS_CHAN
1080: 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b NEL_VERSION_2) {
1090: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ..return 0;.
10a0: 7d 20 65 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e } else {..return
10b0: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f Tcl_SetChannelO
10c0: 70 74 69 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e ption(statePtr->
10d0: 69 6e 74 65 72 70 2c 20 54 6c 73 5f 47 65 74 50 interp, Tls_GetP
10e0: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 29 2c arent(statePtr),
10f0: 0a 09 09 22 2d 62 6c 6f 63 6b 69 6e 67 22 2c 20 ..."-blocking",
1100: 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 (mode == TCL_MOD
1110: 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 3f E_NONBLOCKING) ?
1120: 20 22 30 22 20 3a 20 22 31 22 29 3b 0a 20 20 20 "0" : "1");.
1130: 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}.../*. *----
1140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1180: 20 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73 65 50 72 *. * TlsClosePr
1190: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 oc --. *. *.This
11a0: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
11b0: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e voked by the gen
11c0: 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f eric IO level to
11d0: 20 70 65 72 66 6f 72 6d 0a 20 2a 09 63 68 61 6e perform. *.chan
11e0: 6e 65 6c 2d 74 79 70 65 2d 73 70 65 63 69 66 69 nel-type-specifi
11f0: 63 20 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 61 c cleanup when a
1200: 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 SSL socket base
1210: 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 d channel. *.is
1220: 63 6c 6f 73 65 64 2e 0a 20 2a 0a 20 2a 09 4e 6f closed.. *. *.No
1230: 74 65 3a 20 77 65 20 6c 65 61 76 65 20 74 68 65 te: we leave the
1240: 20 75 6e 64 65 72 6c 79 69 6e 67 20 73 6f 63 6b underlying sock
1250: 65 74 20 61 6c 6f 6e 65 2c 20 69 73 20 74 68 69 et alone, is thi
1260: 73 20 72 69 67 68 74 3f 0a 20 2a 0a 20 2a 20 52 s right?. *. * R
1270: 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 20 esults:. *.0 if
1280: 73 75 63 63 65 73 73 66 75 6c 2c 20 74 68 65 20 successful, the
1290: 76 61 6c 75 65 20 6f 66 20 54 63 6c 5f 47 65 74 value of Tcl_Get
12a0: 45 72 72 6e 6f 28 29 20 69 66 20 66 61 69 6c 65 Errno() if faile
12b0: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
12c0: 66 65 63 74 73 3a 0a 20 2a 09 43 6c 6f 73 65 73 fects:. *.Closes
12d0: 20 74 68 65 20 73 6f 63 6b 65 74 20 6f 66 20 74 the socket of t
12e0: 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 he channel.. *.
12f0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1330: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
1340: 69 6e 74 0a 54 6c 73 43 6c 6f 73 65 50 72 6f 63 int.TlsCloseProc
1350: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
1360: 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 54 68 65 anceData,./* The
1370: 20 73 6f 63 6b 65 74 20 74 6f 20 63 6c 6f 73 65 socket to close
1380: 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 . */.
1390: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
13a0: 74 65 72 70 29 09 2f 2a 20 46 6f 72 20 65 72 72 terp)./* For err
13b0: 6f 72 20 72 65 70 6f 72 74 69 6e 67 20 2d 20 75 or reporting - u
13c0: 6e 75 73 65 64 2e 20 2a 2f 0a 7b 0a 20 20 20 20 nused. */.{.
13d0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
13e0: 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 = (State *) inst
13f0: 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 64 anceData;.. d
1400: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 5c printf(stderr,"\
1410: 6e 54 6c 73 43 6c 6f 73 65 50 72 6f 63 28 30 78 nTlsCloseProc(0x
1420: 25 78 29 22 2c 20 73 74 61 74 65 50 74 72 29 3b %x)", statePtr);
1430: 0a 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 .. if (channe
1440: 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 lTypeVersion ==
1450: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TLS_CHANNEL_VERS
1460: 49 4f 4e 5f 31 29 20 7b 0a 09 2f 2a 0a 09 20 2a ION_1) {../*.. *
1470: 20 52 65 6d 6f 76 65 20 65 76 65 6e 74 20 68 61 Remove event ha
1480: 6e 64 6c 65 72 20 74 6f 20 75 6e 64 65 72 6c 79 ndler to underly
1490: 69 6e 67 20 63 68 61 6e 6e 65 6c 2c 20 74 68 69 ing channel, thi
14a0: 73 20 63 6f 75 6c 64 0a 09 20 2a 20 62 65 20 62 s could.. * be b
14b0: 65 63 61 75 73 65 20 77 65 20 61 72 65 20 63 6c ecause we are cl
14c0: 6f 73 69 6e 67 20 66 6f 72 20 72 65 61 6c 2c 20 osing for real,
14d0: 6f 72 20 62 65 69 6e 67 20 22 75 6e 73 74 61 63 or being "unstac
14e0: 6b 65 64 22 2e 0a 09 20 2a 2f 0a 0a 09 54 63 6c ked"... */...Tcl
14f0: 5f 44 65 6c 65 74 65 43 68 61 6e 6e 65 6c 48 61 _DeleteChannelHa
1500: 6e 64 6c 65 72 28 54 6c 73 5f 47 65 74 50 61 72 ndler(Tls_GetPar
1510: 65 6e 74 28 73 74 61 74 65 50 74 72 29 2c 0a 09 ent(statePtr),..
1520: 09 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c .TlsChannelHandl
1530: 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 er, (ClientData)
1540: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
1550: 7d 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 6e }.. Tls_Clean
1560: 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 (statePtr);.
1570: 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 Tcl_EventuallyFr
1580: 65 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 73 ee((ClientData)s
1590: 74 61 74 65 50 74 72 2c 20 54 6c 73 5f 46 72 65 tatePtr, Tls_Fre
15a0: 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 e);. return T
15b0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a CL_OK;.}.../*. *
15c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1600: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 49 6e 70 ---. *. * TlsInp
1610: 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 utProc --. *. *.
1620: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 This procedure i
1630: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
1640: 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 generic IO leve
1650: 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 72 65 l. * to re
1660: 61 64 20 69 6e 70 75 74 20 66 72 6f 6d 20 61 20 ad input from a
1670: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
1680: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
1690: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 Results:. *.The
16a0: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 number of bytes
16b0: 72 65 61 64 20 69 73 20 72 65 74 75 72 6e 65 64 read is returned
16c0: 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f 72 2e or -1 on error.
16d0: 20 41 6e 20 6f 75 74 70 75 74 0a 20 2a 09 61 72 An output. *.ar
16e0: 67 75 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 73 20 gument contains
16f0: 74 68 65 20 50 4f 53 49 58 20 65 72 72 6f 72 20 the POSIX error
1700: 63 6f 64 65 20 6f 6e 20 65 72 72 6f 72 2c 20 6f code on error, o
1710: 72 20 7a 65 72 6f 20 69 66 20 6e 6f 0a 20 2a 09 r zero if no. *.
1720: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2e 0a error occurred..
1730: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1740: 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 69 6e 70 ts:. *.Reads inp
1750: 75 74 20 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 ut from the inpu
1760: 74 20 64 65 76 69 63 65 20 6f 66 20 74 68 65 20 t device of the
1770: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d channel.. *. *--
1780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17c0: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
17d0: 74 0a 54 6c 73 49 6e 70 75 74 50 72 6f 63 28 43 t.TlsInputProc(C
17e0: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
17f0: 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 ceData,./* Socke
1800: 74 20 73 74 61 74 65 2e 20 2a 2f 0a 09 63 68 61 t state. */..cha
1810: 72 20 2a 62 75 66 2c 09 09 09 2f 2a 20 57 68 65 r *buf,.../* Whe
1820: 72 65 20 74 6f 20 73 74 6f 72 65 20 64 61 74 61 re to store data
1830: 20 72 65 61 64 2e 20 2a 2f 0a 09 69 6e 74 20 62 read. */..int b
1840: 75 66 53 69 7a 65 2c 09 09 09 2f 2a 20 48 6f 77 ufSize,.../* How
1850: 20 6d 75 63 68 20 73 70 61 63 65 20 69 73 20 61 much space is a
1860: 76 61 69 6c 61 62 6c 65 0a 09 09 09 09 09 20 2a vailable...... *
1870: 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 3f 20 in the buffer?
1880: 2a 2f 0a 09 69 6e 74 20 2a 65 72 72 6f 72 43 6f */..int *errorCo
1890: 64 65 50 74 72 29 09 09 2f 2a 20 57 68 65 72 65 dePtr)../* Where
18a0: 20 74 6f 20 73 74 6f 72 65 20 65 72 72 6f 72 20 to store error
18b0: 63 6f 64 65 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 code. */.{. S
18c0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
18d0: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 (State *) insta
18e0: 6e 63 65 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 nceData;. int
18f0: 20 62 79 74 65 73 52 65 61 64 3b 09 09 09 2f 2a bytesRead;.../*
1900: 20 48 6f 77 20 6d 61 6e 79 20 62 79 74 65 73 20 How many bytes
1910: 77 65 72 65 20 72 65 61 64 3f 20 2a 2f 0a 0a 20 were read? */..
1920: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
1930: 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e = 0;.. dprin
1940: 74 66 28 73 74 64 65 72 72 2c 22 5c 6e 42 49 4f tf(stderr,"\nBIO
1950: 5f 72 65 61 64 28 25 64 29 22 2c 20 62 75 66 53 _read(%d)", bufS
1960: 69 7a 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 ize);.. if (!
1970: 53 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 SSL_is_init_fini
1980: 73 68 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 shed(statePtr->s
1990: 73 6c 29 29 20 7b 0a 09 62 79 74 65 73 52 65 61 sl)) {..bytesRea
19a0: 64 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 d = Tls_WaitForC
19b0: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c onnect(statePtr,
19c0: 20 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a errorCodePtr);.
19d0: 09 69 66 20 28 62 79 74 65 73 52 65 61 64 20 3c .if (bytesRead <
19e0: 3d 20 30 29 20 7b 0a 09 20 20 20 20 67 6f 74 6f = 0) {.. goto
19f0: 20 69 6e 70 75 74 3b 0a 09 7d 0a 20 20 20 20 7d input;..}. }
1a00: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
1a10: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
1a20: 43 4c 5f 49 4e 49 54 29 20 7b 0a 09 73 74 61 74 CL_INIT) {..stat
1a30: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e ePtr->flags &= ~
1a40: 28 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 3b 0a (TLS_TCL_INIT);.
1a50: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 }. /*.
1a60: 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 * We need to c
1a70: 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 lear the SSL err
1a80: 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 or stack now bec
1a90: 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 ause we sometime
1aa0: 73 20 72 65 61 63 68 0a 20 20 20 20 20 2a 20 74 s reach. * t
1ab0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 his function wit
1ac0: 68 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f 72 h leftover error
1ad0: 73 20 69 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 s in the stack.
1ae0: 20 49 66 20 42 49 4f 5f 72 65 61 64 0a 20 20 20 If BIO_read.
1af0: 20 20 2a 20 72 65 74 75 72 6e 73 20 2d 31 20 61 * returns -1 a
1b00: 6e 64 20 69 6e 74 65 6e 64 73 20 45 41 47 41 49 nd intends EAGAI
1b10: 4e 2c 20 74 68 65 72 65 20 69 73 20 61 20 6c 65 N, there is a le
1b20: 66 74 6f 76 65 72 20 65 72 72 6f 72 2c 20 69 74 ftover error, it
1b30: 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 2a 20 will be. *
1b40: 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 73 20 misconstrued as
1b50: 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 45 41 an error, not EA
1b60: 47 41 49 4e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 GAIN.. *.
1b70: 20 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 65 6c * Alternativel
1b80: 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 20 74 y, we may want t
1b90: 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c 30 20 o handle the <0
1ba0: 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 72 6f return codes fro
1bb0: 6d 0a 20 20 20 20 20 2a 20 42 49 4f 5f 72 65 61 m. * BIO_rea
1bc0: 64 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 d specially (as
1bd0: 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 advised in the R
1be0: 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 SA docs). TLS's
1bf0: 20 6c 6f 77 65 72 20 6c 65 76 65 6c 20 42 49 4f lower level BIO
1c00: 0a 20 20 20 20 20 2a 20 66 75 6e 63 74 69 6f 6e . * function
1c10: 73 20 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 s play with the
1c20: 72 65 74 72 79 20 66 6c 61 67 73 20 74 68 6f 75 retry flags thou
1c30: 67 68 2c 20 61 6e 64 20 74 68 69 73 20 73 65 65 gh, and this see
1c40: 6d 73 20 74 6f 20 77 6f 72 6b 0a 20 20 20 20 20 ms to work.
1c50: 2a 20 63 6f 72 72 65 63 74 6c 79 2e 20 20 53 69 * correctly. Si
1c60: 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 54 6c 73 milar fix in Tls
1c70: 4f 75 74 70 75 74 50 72 6f 63 2e 20 2d 20 68 6f OutputProc. - ho
1c80: 62 62 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 bbs. */.
1c90: 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 ERR_clear_error(
1ca0: 29 3b 0a 20 20 20 20 62 79 74 65 73 52 65 61 64 );. bytesRead
1cb0: 20 3d 20 42 49 4f 5f 72 65 61 64 28 73 74 61 74 = BIO_read(stat
1cc0: 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 ePtr->bio, buf,
1cd0: 62 75 66 53 69 7a 65 29 3b 0a 20 20 20 20 64 70 bufSize);. dp
1ce0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 5c 6e rintf(stderr,"\n
1cf0: 42 49 4f 5f 72 65 61 64 20 2d 3e 20 25 64 22 2c BIO_read -> %d",
1d00: 20 62 79 74 65 73 52 65 61 64 29 3b 0a 0a 20 20 bytesRead);..
1d10: 20 20 69 66 20 28 62 79 74 65 73 52 65 61 64 20 if (bytesRead
1d20: 3c 20 30 29 20 7b 0a 09 69 6e 74 20 65 72 72 20 < 0) {..int err
1d30: 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 = SSL_get_error(
1d40: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 62 statePtr->ssl, b
1d50: 79 74 65 73 52 65 61 64 29 3b 0a 0a 09 69 66 20 ytesRead);...if
1d60: 28 65 72 72 20 3d 3d 20 53 53 4c 5f 45 52 52 4f (err == SSL_ERRO
1d70: 52 5f 53 53 4c 29 20 7b 0a 09 20 20 20 20 54 6c R_SSL) {.. Tl
1d80: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
1d90: 2c 20 53 53 4c 5f 45 52 52 4f 52 28 73 74 61 74 , SSL_ERROR(stat
1da0: 65 50 74 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 ePtr->ssl, bytes
1db0: 52 65 61 64 29 29 3b 0a 09 20 20 20 20 2a 65 72 Read));.. *er
1dc0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
1dd0: 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 7d 20 65 6c NNABORTED;..} el
1de0: 73 65 20 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c se if (BIO_shoul
1df0: 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 d_retry(statePtr
1e00: 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 64 ->bio)) {.. d
1e10: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 52 printf(stderr,"R
1e20: 45 21 20 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 E! ");.. *err
1e30: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
1e40: 49 4e 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 IN;..} else {..
1e50: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
1e60: 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 = Tcl_GetErrno(
1e70: 29 3b 0a 09 20 20 20 20 69 66 20 28 2a 65 72 72 );.. if (*err
1e80: 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f orCodePtr == ECO
1e90: 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 2f 2a 20 NNRESET) {.../*
1ea0: 53 6f 66 74 20 45 4f 46 20 2a 2f 0a 09 09 2a 65 Soft EOF */...*e
1eb0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
1ec0: 0a 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 30 ...bytesRead = 0
1ed0: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 ;.. }..}.
1ee0: 7d 0a 20 20 20 20 69 6e 70 75 74 3a 0a 20 20 20 }. input:.
1ef0: 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c dprintf(stderr,
1f00: 20 22 5c 6e 49 6e 70 75 74 28 25 64 29 20 2d 3e "\nInput(%d) ->
1f10: 20 25 64 20 5b 25 64 5d 22 2c 20 62 75 66 53 69 %d [%d]", bufSi
1f20: 7a 65 2c 20 62 79 74 65 73 52 65 61 64 2c 20 2a ze, bytesRead, *
1f30: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 20 errorCodePtr);.
1f40: 20 20 20 72 65 74 75 72 6e 20 62 79 74 65 73 52 return bytesR
1f50: 65 61 64 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d ead;.}.../*. *--
1f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fa0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 4f 75 74 70 75 -. *. * TlsOutpu
1fb0: 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 tProc --. *. *.T
1fc0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 his procedure is
1fd0: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 invoked by the
1fe0: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c generic IO level
1ff0: 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 77 72 69 . * to wri
2000: 74 65 20 6f 75 74 70 75 74 20 74 6f 20 61 20 53 te output to a S
2010: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
2020: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 channel.. *. * R
2030: 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 6e esults:. *.The n
2040: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 umber of bytes w
2050: 72 69 74 74 65 6e 20 69 73 20 72 65 74 75 72 6e ritten is return
2060: 65 64 2e 20 41 6e 20 6f 75 74 70 75 74 20 61 72 ed. An output ar
2070: 67 75 6d 65 6e 74 20 69 73 0a 20 2a 09 73 65 74 gument is. *.set
2080: 20 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f to a POSIX erro
2090: 72 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 r code if an err
20a0: 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 or occurred, or
20b0: 7a 65 72 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 zero.. *. * Side
20c0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 57 72 69 effects:. *.Wri
20d0: 74 65 73 20 6f 75 74 70 75 74 20 6f 6e 20 74 68 tes output on th
20e0: 65 20 6f 75 74 70 75 74 20 64 65 76 69 63 65 20 e output device
20f0: 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a of the channel..
2100: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
2110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2140: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
2150: 61 74 69 63 20 69 6e 74 0a 54 6c 73 4f 75 74 70 atic int.TlsOutp
2160: 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 utProc(ClientDat
2170: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 a instanceData,.
2180: 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e /* Socket state.
2190: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 */.
21a0: 20 20 63 68 61 72 20 2a 62 75 66 2c 09 09 2f 2a char *buf,../*
21b0: 20 54 68 65 20 64 61 74 61 20 62 75 66 66 65 72 The data buffer
21c0: 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 . */.
21d0: 20 20 20 69 6e 74 20 74 6f 57 72 69 74 65 2c 09 int toWrite,.
21e0: 09 2f 2a 20 48 6f 77 20 6d 61 6e 79 20 62 79 74 ./* How many byt
21f0: 65 73 20 74 6f 20 77 72 69 74 65 3f 20 2a 2f 0a es to write? */.
2200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e in
2210: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 t *errorCodePtr)
2220: 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73 74 6f ./* Where to sto
2230: 72 65 20 65 72 72 6f 72 20 63 6f 64 65 2e 20 2a re error code. *
2240: 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 /.{. State *s
2250: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
2260: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
2270: 3b 0a 20 20 20 20 69 6e 74 20 77 72 69 74 74 65 ;. int writte
2280: 6e 2c 20 65 72 72 3b 0a 0a 20 20 20 20 2a 65 72 n, err;.. *er
2290: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
22a0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 . dprintf(std
22b0: 65 72 72 2c 22 5c 6e 42 49 4f 5f 77 72 69 74 65 err,"\nBIO_write
22c0: 28 30 78 25 78 2c 20 25 64 29 22 2c 20 73 74 61 (0x%x, %d)", sta
22d0: 74 65 50 74 72 2c 20 74 6f 57 72 69 74 65 29 3b tePtr, toWrite);
22e0: 0a 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f 69 .. if (!SSL_i
22f0: 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 s_init_finished(
2300: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 statePtr->ssl))
2310: 7b 0a 09 77 72 69 74 74 65 6e 20 3d 20 54 6c 73 {..written = Tls
2320: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 _WaitForConnect(
2330: 73 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 43 statePtr, errorC
2340: 6f 64 65 50 74 72 29 3b 0a 09 69 66 20 28 77 72 odePtr);..if (wr
2350: 69 74 74 65 6e 20 3c 3d 20 30 29 20 7b 0a 09 20 itten <= 0) {..
2360: 20 20 20 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a goto output;.
2370: 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 .}. }. if
2380: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
2390: 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 & TLS_TCL_INIT)
23a0: 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c {..statePtr->fl
23b0: 61 67 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c ags &= ~(TLS_TCL
23c0: 5f 49 4e 49 54 29 3b 0a 20 20 20 20 7d 0a 20 20 _INIT);. }.
23d0: 20 20 69 66 20 28 74 6f 57 72 69 74 65 20 3d 3d if (toWrite ==
23e0: 20 30 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 73 0) {..dprintf(s
23f0: 74 64 65 72 72 2c 20 22 7a 65 72 6f 2d 77 72 69 tderr, "zero-wri
2400: 74 65 5c 6e 22 29 3b 0a 09 42 49 4f 5f 66 6c 75 te\n");..BIO_flu
2410: 73 68 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f sh(statePtr->bio
2420: 29 3b 0a 09 77 72 69 74 74 65 6e 20 3d 20 30 3b );..written = 0;
2430: 0a 09 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 20 ..goto output;.
2440: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 2f 2a 0a } else {../*.
2450: 09 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 . * We need to c
2460: 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 lear the SSL err
2470: 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 or stack now bec
2480: 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 ause we sometime
2490: 73 20 72 65 61 63 68 0a 09 20 2a 20 74 68 69 73 s reach.. * this
24a0: 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c function with l
24b0: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 eftover errors i
24c0: 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 n the stack. If
24d0: 20 42 49 4f 5f 77 72 69 74 65 0a 09 20 2a 20 72 BIO_write.. * r
24e0: 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 6e eturns -1 and in
24f0: 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 68 tends EAGAIN, th
2500: 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f 76 65 ere is a leftove
2510: 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 6c 6c r error, it will
2520: 20 62 65 0a 09 20 2a 20 6d 69 73 63 6f 6e 73 74 be.. * misconst
2530: 72 75 65 64 20 61 73 20 61 6e 20 65 72 72 6f 72 rued as an error
2540: 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a 09 20 , not EAGAIN...
2550: 2a 0a 09 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 *.. * Alternativ
2560: 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 ely, we may want
2570: 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c to handle the <
2580: 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 0 return codes f
2590: 72 6f 6d 0a 09 20 2a 20 42 49 4f 5f 77 72 69 74 rom.. * BIO_writ
25a0: 65 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 e specially (as
25b0: 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 advised in the R
25c0: 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 SA docs). TLS's
25d0: 20 6c 6f 77 65 72 20 6c 65 76 65 6c 0a 09 20 2a lower level.. *
25e0: 20 42 49 4f 20 66 75 6e 63 74 69 6f 6e 73 20 70 BIO functions p
25f0: 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 65 74 lay with the ret
2600: 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 2c ry flags though,
2610: 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 20 and this seems
2620: 74 6f 0a 09 20 2a 20 77 6f 72 6b 20 63 6f 72 72 to.. * work corr
2630: 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61 72 20 ectly. Similar
2640: 66 69 78 20 69 6e 20 54 6c 73 49 6e 70 75 74 50 fix in TlsInputP
2650: 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a 09 20 2a roc. - hobbs.. *
2660: 2f 0a 09 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 /..ERR_clear_err
2670: 6f 72 28 29 3b 0a 09 77 72 69 74 74 65 6e 20 3d or();..written =
2680: 20 42 49 4f 5f 77 72 69 74 65 28 73 74 61 74 65 BIO_write(state
2690: 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 74 Ptr->bio, buf, t
26a0: 6f 57 72 69 74 65 29 3b 0a 09 64 70 72 69 6e 74 oWrite);..dprint
26b0: 66 28 73 74 64 65 72 72 2c 22 5c 6e 42 49 4f 5f f(stderr,"\nBIO_
26c0: 77 72 69 74 65 28 30 78 25 78 2c 20 25 64 29 20 write(0x%x, %d)
26d0: 2d 3e 20 5b 25 64 5d 22 2c 0a 09 09 73 74 61 74 -> [%d]",...stat
26e0: 65 50 74 72 2c 20 74 6f 57 72 69 74 65 2c 20 77 ePtr, toWrite, w
26f0: 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 ritten);. }.
2700: 20 20 20 69 66 20 28 77 72 69 74 74 65 6e 20 3c if (written <
2710: 3d 20 30 29 20 7b 0a 09 73 77 69 74 63 68 20 28 = 0) {..switch (
2720: 28 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 (err = SSL_get_e
2730: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 rror(statePtr->s
2740: 73 6c 2c 20 77 72 69 74 74 65 6e 29 29 29 20 7b sl, written))) {
2750: 0a 09 20 20 20 20 63 61 73 65 20 53 53 4c 5f 45 .. case SSL_E
2760: 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 09 69 66 20 RROR_NONE:...if
2770: 28 77 72 69 74 74 65 6e 20 3c 20 30 29 20 7b 0a (written < 0) {.
2780: 09 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 .. written =
2790: 30 3b 0a 09 09 7d 0a 09 09 62 72 65 61 6b 3b 0a 0;...}...break;.
27a0: 09 20 20 20 20 63 61 73 65 20 53 53 4c 5f 45 52 . case SSL_ER
27b0: 52 4f 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a ROR_WANT_WRITE:.
27c0: 09 09 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 ..dprintf(stderr
27d0: 2c 22 20 77 72 69 74 65 20 57 20 42 4c 4f 43 4b ," write W BLOCK
27e0: 22 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 ");...break;..
27f0: 20 20 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 case SSL_ERROR
2800: 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 09 64 70 _WANT_READ:...dp
2810: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 20 77 rintf(stderr," w
2820: 72 69 74 65 20 52 20 42 4c 4f 43 4b 22 29 3b 0a rite R BLOCK");.
2830: 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 63 61 ..break;.. ca
2840: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e se SSL_ERROR_WAN
2850: 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a 0a 09 T_X509_LOOKUP:..
2860: 09 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c .dprintf(stderr,
2870: 22 20 77 72 69 74 65 20 58 20 42 4c 4f 43 4b 22 " write X BLOCK"
2880: 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 );...break;..
2890: 20 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f case SSL_ERROR_
28a0: 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 09 64 ZERO_RETURN:...d
28b0: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 20 printf(stderr,"
28c0: 63 6c 6f 73 65 64 5c 6e 22 29 3b 0a 09 09 77 72 closed\n");...wr
28d0: 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 62 72 65 itten = 0;...bre
28e0: 61 6b 3b 0a 09 20 20 20 20 63 61 73 65 20 53 53 ak;.. case SS
28f0: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a L_ERROR_SYSCALL:
2900: 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
2910: 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 = Tcl_GetErrno(
2920: 29 3b 0a 09 09 64 70 72 69 6e 74 66 28 73 74 64 );...dprintf(std
2930: 65 72 72 2c 22 20 5b 25 64 5d 20 73 79 73 63 61 err," [%d] sysca
2940: 6c 6c 20 65 72 72 72 3a 20 25 64 22 2c 0a 09 09 ll errr: %d",...
2950: 09 77 72 69 74 74 65 6e 2c 20 2a 65 72 72 6f 72 .written, *error
2960: 43 6f 64 65 50 74 72 29 3b 0a 09 09 77 72 69 74 CodePtr);...writ
2970: 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 62 72 65 61 ten = -1;...brea
2980: 6b 3b 0a 09 20 20 20 20 63 61 73 65 20 53 53 4c k;.. case SSL
2990: 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 09 54 6c _ERROR_SSL:...Tl
29a0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
29b0: 2c 20 53 53 4c 5f 45 52 52 4f 52 28 73 74 61 74 , SSL_ERROR(stat
29c0: 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 ePtr->ssl, writt
29d0: 65 6e 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f en));...*errorCo
29e0: 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f dePtr = ECONNABO
29f0: 52 54 45 44 3b 0a 09 09 77 72 69 74 74 65 6e 20 RTED;...written
2a00: 3d 20 2d 31 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 = -1;...break;..
2a10: 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 09 64 default:...d
2a20: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 20 printf(stderr,"
2a30: 75 6e 6b 6e 6f 77 6e 20 65 72 72 3a 20 25 64 5c unknown err: %d\
2a40: 6e 22 2c 20 65 72 72 29 3b 0a 09 09 62 72 65 61 n", err);...brea
2a50: 6b 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 k;..}. }.
2a60: 6f 75 74 70 75 74 3a 0a 20 20 20 20 64 70 72 69 output:. dpri
2a70: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5c 6e 4f ntf(stderr, "\nO
2a80: 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25 64 22 utput(%d) -> %d"
2a90: 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 , toWrite, writt
2aa0: 65 6e 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 en);. return
2ab0: 77 72 69 74 74 65 6e 3b 0a 7d 0a 0c 0a 2f 2a 0a written;.}.../*.
2ac0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b00: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 -----. *. * TlsG
2b10: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a etOptionProc --.
2b20: 20 2a 0a 20 2a 09 43 6f 6d 70 75 74 65 73 20 61 *. *.Computes a
2b30: 6e 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 n option value f
2b40: 6f 72 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 or a SSL socket
2b50: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f based channel, o
2b60: 72 20 61 0a 20 2a 09 6c 69 73 74 20 6f 66 20 61 r a. *.list of a
2b70: 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 ll options and t
2b80: 68 65 69 72 20 76 61 6c 75 65 73 2e 0a 20 2a 0a heir values.. *.
2b90: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
2ba0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 standard Tcl re
2bb0: 73 75 6c 74 2e 20 54 68 65 20 76 61 6c 75 65 20 sult. The value
2bc0: 6f 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64 of the specified
2bd0: 20 6f 70 74 69 6f 6e 20 6f 72 20 61 0a 20 2a 09 option or a. *.
2be0: 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 list of all opti
2bf0: 6f 6e 73 20 61 6e 64 09 74 68 65 69 72 20 76 61 ons and.their va
2c00: 6c 75 65 73 20 69 73 20 72 65 74 75 72 6e 65 64 lues is returned
2c10: 20 69 6e 20 74 68 65 0a 20 2a 09 73 75 70 70 6c in the. *.suppl
2c20: 69 65 64 20 44 53 74 72 69 6e 67 2e 0a 20 2a 0a ied DString.. *.
2c30: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2c40: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
2c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c90: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
2ca0: 74 0a 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 t.TlsGetOptionPr
2cb0: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
2cc0: 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 stanceData,./* S
2cd0: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
2ce0: 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 .Tcl_Interp *int
2cf0: 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 65 72 72 erp,../* For err
2d00: 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 4e 55 4c ors - can be NUL
2d10: 4c 2e 20 2a 2f 0a 09 63 68 61 72 20 2a 6f 70 74 L. */..char *opt
2d20: 69 6f 6e 4e 61 6d 65 2c 09 09 2f 2a 20 4e 61 6d ionName,../* Nam
2d30: 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 e of the option
2d40: 74 6f 0a 09 09 09 09 09 20 2a 20 72 65 74 72 69 to...... * retri
2d50: 65 76 65 20 74 68 65 20 76 61 6c 75 65 20 66 6f eve the value fo
2d60: 72 2c 20 6f 72 0a 09 09 09 09 09 20 2a 20 4e 55 r, or...... * NU
2d70: 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 6f 70 LL to get all op
2d80: 74 69 6f 6e 73 20 61 6e 64 0a 09 09 09 09 09 20 tions and......
2d90: 2a 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 20 * their values.
2da0: 2a 2f 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 20 */..Tcl_DString
2db0: 2a 64 73 50 74 72 29 09 09 2f 2a 20 57 68 65 72 *dsPtr)../* Wher
2dc0: 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 63 e to store the c
2dd0: 6f 6d 70 75 74 65 64 20 76 61 6c 75 65 0a 09 09 omputed value...
2de0: 09 09 09 20 2a 20 69 6e 69 74 69 61 6c 69 7a 65 ... * initialize
2df0: 64 20 62 79 20 63 61 6c 6c 65 72 2e 20 2a 2f 0a d by caller. */.
2e00: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
2e10: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
2e20: 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a ) instanceData;.
2e30: 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c . if (channel
2e40: 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 TypeVersion == T
2e50: 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 LS_CHANNEL_VERSI
2e60: 4f 4e 5f 32 29 20 7b 0a 09 54 63 6c 5f 43 68 61 ON_2) {..Tcl_Cha
2e70: 6e 6e 65 6c 20 64 6f 77 6e 43 68 61 6e 20 3d 20 nnel downChan =
2e80: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
2e90: 61 74 65 50 74 72 29 3b 0a 09 54 63 6c 5f 44 72 atePtr);..Tcl_Dr
2ea0: 69 76 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f iverGetOptionPro
2eb0: 63 20 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 c *getOptionProc
2ec0: 3b 0a 0a 09 67 65 74 4f 70 74 69 6f 6e 50 72 6f ;...getOptionPro
2ed0: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 c = Tcl_ChannelG
2ee0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c etOptionProc(Tcl
2ef0: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
2f00: 64 6f 77 6e 43 68 61 6e 29 29 3b 0a 09 69 66 20 downChan));..if
2f10: 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 (getOptionProc !
2f20: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 72 = NULL) {.. r
2f30: 65 74 75 72 6e 20 28 2a 67 65 74 4f 70 74 69 6f eturn (*getOptio
2f40: 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 nProc)(Tcl_GetCh
2f50: 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 annelInstanceDat
2f60: 61 28 64 6f 77 6e 43 68 61 6e 29 2c 0a 09 09 20 a(downChan),...
2f70: 20 20 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f interp, optio
2f80: 6e 4e 61 6d 65 2c 20 64 73 50 74 72 29 3b 0a 09 nName, dsPtr);..
2f90: 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f } else if (optio
2fa0: 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 nName == (char*)
2fb0: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 2f 2a NULL) {.. /*
2fc0: 0a 09 20 20 20 20 20 2a 20 52 65 71 75 65 73 74 .. * Request
2fd0: 20 69 73 20 71 75 65 72 79 20 66 6f 72 20 61 6c is query for al
2fe0: 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 69 73 20 l options, this
2ff0: 69 73 20 6f 6b 2e 0a 09 20 20 20 20 20 2a 2f 0a is ok... */.
3000: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
3010: 4f 4b 3b 0a 09 7d 0a 09 2f 2a 0a 09 20 2a 20 52 OK;..}../*.. * R
3020: 65 71 75 65 73 74 20 66 6f 72 20 61 20 73 70 65 equest for a spe
3030: 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 cific option has
3040: 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e to fail, we don
3050: 27 74 20 68 61 76 65 20 61 6e 79 2e 0a 09 20 2a 't have any... *
3060: 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 /..return TCL_ER
3070: 52 4f 52 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ROR;. } else
3080: 7b 0a 09 73 69 7a 65 5f 74 20 6c 65 6e 20 3d 20 {..size_t len =
3090: 30 3b 0a 0a 09 69 66 20 28 6f 70 74 69 6f 6e 4e 0;...if (optionN
30a0: 61 6d 65 20 21 3d 20 28 63 68 61 72 20 2a 29 20 ame != (char *)
30b0: 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 6c 65 6e NULL) {.. len
30c0: 20 3d 20 73 74 72 6c 65 6e 28 6f 70 74 69 6f 6e = strlen(option
30d0: 4e 61 6d 65 29 3b 0a 09 7d 0a 23 69 66 20 30 0a Name);..}.#if 0.
30e0: 09 69 66 20 28 28 6c 65 6e 20 3d 3d 20 30 29 20 .if ((len == 0)
30f0: 7c 7c 20 28 28 6c 65 6e 20 3e 20 31 29 20 26 26 || ((len > 1) &&
3100: 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 5b 31 5d 20 (optionName[1]
3110: 3d 3d 20 27 63 27 29 20 26 26 0a 09 09 28 73 74 == 'c') &&...(st
3120: 72 6e 63 6d 70 28 6f 70 74 69 6f 6e 4e 61 6d 65 rncmp(optionName
3130: 2c 20 22 2d 63 69 70 68 65 72 22 2c 20 6c 65 6e , "-cipher", len
3140: 29 20 3d 3d 20 30 29 29 29 20 7b 0a 09 20 20 20 ) == 0))) {..
3150: 20 69 66 20 28 6c 65 6e 20 3d 3d 20 30 29 20 7b if (len == 0) {
3160: 0a 09 09 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 ...Tcl_DStringAp
3170: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 64 73 50 74 pendElement(dsPt
3180: 72 2c 20 22 2d 63 69 70 68 65 72 22 29 3b 0a 09 r, "-cipher");..
3190: 20 20 20 20 7d 0a 09 20 20 20 20 54 63 6c 5f 44 }.. Tcl_D
31a0: 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d StringAppendElem
31b0: 65 6e 74 28 64 73 50 74 72 2c 20 53 53 4c 5f 67 ent(dsPtr, SSL_g
31c0: 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 et_cipher(stateP
31d0: 74 72 2d 3e 73 73 6c 29 29 3b 0a 09 20 20 20 20 tr->ssl));..
31e0: 69 66 20 28 6c 65 6e 29 20 7b 0a 09 09 72 65 74 if (len) {...ret
31f0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 20 20 20 urn TCL_OK;..
3200: 20 7d 0a 09 7d 0a 23 65 6e 64 69 66 0a 09 72 65 }..}.#endif..re
3210: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 turn TCL_OK;.
3220: 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}.../*. *----
3230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3270: 20 2a 0a 20 2a 20 54 6c 73 57 61 74 63 68 50 72 *. * TlsWatchPr
3280: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 oc --. *. *.Init
3290: 69 61 6c 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 ialize the notif
32a0: 69 65 72 20 74 6f 20 77 61 74 63 68 20 54 63 6c ier to watch Tcl
32b0: 5f 46 69 6c 65 73 20 66 72 6f 6d 20 74 68 69 73 _Files from this
32c0: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
32d0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 Results:. *.None
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 53 65 74 73 20 75 70 ects:. *.Sets up
3300: 20 74 68 65 20 6e 6f 74 69 66 69 65 72 20 73 6f the notifier so
3310: 20 74 68 61 74 20 61 20 66 75 74 75 72 65 20 65 that a future e
3320: 76 65 6e 74 20 6f 6e 20 74 68 65 20 63 68 61 6e vent on the chan
3330: 6e 65 6c 0a 20 2a 09 77 69 6c 6c 20 62 65 20 73 nel. *.will be s
3340: 65 65 6e 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 een by Tcl.. *.
3350: 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3390: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
33a0: 20 76 6f 69 64 0a 54 6c 73 57 61 74 63 68 50 72 void.TlsWatchPr
33b0: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
33c0: 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 54 stanceData,./* T
33d0: 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e he socket state.
33e0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 */.
33f0: 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 2f 2a 20 int mask).../*
3400: 45 76 65 6e 74 73 20 6f 66 20 69 6e 74 65 72 65 Events of intere
3410: 73 74 3b 20 61 6e 20 4f 52 2d 65 64 0a 20 20 20 st; an OR-ed.
3420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3440: 20 20 20 20 20 20 2a 20 63 6f 6d 62 69 6e 61 74 * combinat
3450: 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 ion of TCL_READA
3460: 42 4c 45 2c 0a 20 20 20 20 20 20 20 20 20 20 20 BLE,.
3470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 *
3490: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 TCL_WRITABLE and
34a0: 20 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 2e 20 TCL_EXCEPTION.
34b0: 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a */.{. State *
34c0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
34d0: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
34e0: 61 3b 0a 0a 20 20 20 20 69 66 20 28 63 68 61 6e a;.. if (chan
34f0: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d nelTypeVersion =
3500: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TLS_CHANNEL_VE
3510: 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 54 63 6c 5f RSION_2) {..Tcl_
3520: 43 68 61 6e 6e 65 6c 20 20 20 20 20 64 6f 77 6e Channel down
3530: 43 68 61 6e 3b 0a 0a 09 73 74 61 74 65 50 74 72 Chan;...statePtr
3540: 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 ->watchMask = ma
3550: 73 6b 3b 0a 0a 09 2f 2a 20 4e 6f 20 63 68 61 6e sk;.../* No chan
3560: 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 61 6e 79 nel handlers any
3570: 20 6d 6f 72 65 2e 20 57 65 20 77 69 6c 6c 20 62 more. We will b
3580: 65 20 6e 6f 74 69 66 69 65 64 20 61 75 74 6f 6d e notified autom
3590: 61 74 69 63 61 6c 6c 79 0a 09 20 2a 20 61 62 6f atically.. * abo
35a0: 75 74 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 ut events on the
35b0: 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 76 channel below v
35c0: 69 61 20 61 20 63 61 6c 6c 20 74 6f 20 6f 75 72 ia a call to our
35d0: 0a 09 20 2a 20 27 54 72 61 6e 73 66 6f 72 6d 4e .. * 'TransformN
35e0: 6f 74 69 66 79 50 72 6f 63 27 2e 20 42 75 74 20 otifyProc'. But
35f0: 77 65 20 68 61 76 65 20 74 6f 20 70 61 73 73 20 we have to pass
3600: 74 68 65 20 69 6e 74 65 72 65 73 74 20 64 6f 77 the interest dow
3610: 6e 20 6e 6f 77 2e 0a 09 20 2a 20 57 65 20 61 72 n now... * We ar
3620: 65 20 61 6c 6c 6f 77 65 64 20 74 6f 20 61 64 64 e allowed to add
3630: 20 61 64 64 69 74 69 6f 6e 61 6c 20 27 69 6e 74 additional 'int
3640: 65 72 65 73 74 27 20 74 6f 20 74 68 65 20 6d 61 erest' to the ma
3650: 73 6b 20 69 66 20 77 65 20 77 61 6e 74 0a 09 20 sk if we want..
3660: 2a 20 74 6f 2e 20 42 75 74 20 74 68 69 73 20 74 * to. But this t
3670: 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 68 61 ransformation ha
3680: 73 20 6e 6f 20 73 75 63 68 20 69 6e 74 65 72 65 s no such intere
3690: 73 74 2e 20 49 74 20 6a 75 73 74 20 70 61 73 73 st. It just pass
36a0: 65 73 0a 09 20 2a 20 74 68 65 20 72 65 71 75 65 es.. * the reque
36b0: 73 74 20 64 6f 77 6e 2c 20 75 6e 63 68 61 6e 67 st down, unchang
36c0: 65 64 2e 0a 09 20 2a 2f 0a 0a 09 64 6f 77 6e 43 ed... */...downC
36d0: 68 61 6e 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 han = Tls_GetPar
36e0: 65 6e 74 28 73 74 61 74 65 50 74 72 29 3b 0a 0a ent(statePtr);..
36f0: 09 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c .(Tcl_GetChannel
3700: 54 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 0a Type(downChan)).
3710: 09 20 20 20 20 2d 3e 77 61 74 63 68 50 72 6f 63 . ->watchProc
3720: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 (Tcl_GetChannelI
3730: 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e nstanceData(down
3740: 43 68 61 6e 29 2c 20 6d 61 73 6b 29 3b 0a 0a 09 Chan), mask);...
3750: 2f 2a 0a 09 20 2a 20 4d 61 6e 61 67 65 6d 65 6e /*.. * Managemen
3760: 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6e 61 t of the interna
3770: 6c 20 74 69 6d 65 72 2e 0a 09 20 2a 2f 0a 0a 09 l timer... */...
3780: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 if (statePtr->ti
3790: 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 mer != (Tcl_Time
37a0: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a rToken) NULL) {.
37b0: 09 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 54 . Tcl_DeleteT
37c0: 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 imerHandler(stat
37d0: 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 20 ePtr->timer);..
37e0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d statePtr->tim
37f0: 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 er = (Tcl_TimerT
3800: 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 09 7d 0a 09 oken) NULL;..}..
3810: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
3820: 52 45 41 44 41 42 4c 45 29 20 26 26 20 54 63 6c READABLE) && Tcl
3830: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 _InputBuffered(s
3840: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e tatePtr->self) >
3850: 20 30 29 20 7b 0a 09 20 20 20 20 2f 2a 0a 09 20 0) {.. /*..
3860: 20 20 20 20 2a 20 54 68 65 72 65 20 69 73 20 69 * There is i
3870: 6e 74 65 72 65 73 74 20 69 6e 20 72 65 61 64 61 nterest in reada
3880: 62 6c 65 20 65 76 65 6e 74 73 20 61 6e 64 20 77 ble events and w
3890: 65 20 61 63 74 75 61 6c 6c 79 20 68 61 76 65 0a e actually have.
38a0: 09 20 20 20 20 20 2a 20 64 61 74 61 20 77 61 69 . * data wai
38b0: 74 69 6e 67 2c 20 73 6f 20 67 65 6e 65 72 61 74 ting, so generat
38c0: 65 20 61 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 e a timer to flu
38d0: 73 68 20 74 68 61 74 2e 0a 09 20 20 20 20 20 2a sh that... *
38e0: 2f 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d /.. statePtr-
38f0: 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 >timer = Tcl_Cre
3900: 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 ateTimerHandler(
3910: 54 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 0a 09 TLS_TCL_DELAY,..
3920: 09 20 20 20 20 54 6c 73 43 68 61 6e 6e 65 6c 48 . TlsChannelH
3930: 61 6e 64 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c andlerTimer, (Cl
3940: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
3950: 74 72 29 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c tr);..}. } el
3960: 73 65 20 7b 0a 09 69 66 20 28 6d 61 73 6b 20 3d se {..if (mask =
3970: 3d 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 = statePtr->watc
3980: 68 4d 61 73 6b 29 0a 09 20 20 20 20 72 65 74 75 hMask).. retu
3990: 72 6e 3b 0a 0a 09 69 66 20 28 73 74 61 74 65 50 rn;...if (stateP
39a0: 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 29 20 7b tr->watchMask) {
39b0: 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a .. /*.. *
39c0: 20 52 65 6d 6f 76 65 20 65 76 65 6e 74 20 68 61 Remove event ha
39d0: 6e 64 6c 65 72 20 74 6f 20 75 6e 64 65 72 6c 79 ndler to underly
39e0: 69 6e 67 20 63 68 61 6e 6e 65 6c 2c 20 74 68 69 ing channel, thi
39f0: 73 20 63 6f 75 6c 64 0a 09 20 20 20 20 20 2a 20 s could.. *
3a00: 62 65 20 62 65 63 61 75 73 65 20 77 65 20 61 72 be because we ar
3a10: 65 20 63 6c 6f 73 69 6e 67 20 66 6f 72 20 72 65 e closing for re
3a20: 61 6c 2c 20 6f 72 20 62 65 69 6e 67 20 22 75 6e al, or being "un
3a30: 73 74 61 63 6b 65 64 22 2e 0a 09 20 20 20 20 20 stacked"...
3a40: 2a 2f 0a 0a 09 20 20 20 20 54 63 6c 5f 44 65 6c */... Tcl_Del
3a50: 65 74 65 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 eteChannelHandle
3a60: 72 28 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 r(Tls_GetParent(
3a70: 73 74 61 74 65 50 74 72 29 2c 0a 09 09 20 20 20 statePtr),...
3a80: 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c TlsChannelHandl
3a90: 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 er, (ClientData)
3aa0: 20 73 74 61 74 65 50 74 72 29 3b 0a 09 7d 0a 09 statePtr);..}..
3ab0: 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d statePtr->watchM
3ac0: 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 09 69 66 20 ask = mask;..if
3ad0: 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 (statePtr->watch
3ae0: 4d 61 73 6b 29 20 7b 0a 09 20 20 20 20 2f 2a 0a Mask) {.. /*.
3af0: 09 20 20 20 20 20 2a 20 53 65 74 75 70 20 61 63 . * Setup ac
3b00: 74 69 76 65 20 6d 6f 6e 69 74 6f 72 20 66 6f 72 tive monitor for
3b10: 20 65 76 65 6e 74 73 20 6f 6e 20 75 6e 64 65 72 events on under
3b20: 6c 79 69 6e 67 20 43 68 61 6e 6e 65 6c 2e 0a 09 lying Channel...
3b30: 20 20 20 20 20 2a 2f 0a 0a 09 20 20 20 20 54 63 */... Tc
3b40: 6c 5f 43 72 65 61 74 65 43 68 61 6e 6e 65 6c 48 l_CreateChannelH
3b50: 61 6e 64 6c 65 72 28 54 6c 73 5f 47 65 74 50 61 andler(Tls_GetPa
3b60: 72 65 6e 74 28 73 74 61 74 65 50 74 72 29 2c 0a rent(statePtr),.
3b70: 09 09 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
3b80: 77 61 74 63 68 4d 61 73 6b 2c 20 54 6c 73 43 68 watchMask, TlsCh
3b90: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 2c 0a 09 09 annelHandler,...
3ba0: 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 (ClientData)
3bb0: 20 73 74 61 74 65 50 74 72 29 3b 0a 09 7d 0a 20 statePtr);..}.
3bc0: 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d }.}.../*. *--
3bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c10: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 48 61 -. *. * TlsGetHa
3c20: 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 ndleProc --. *.
3c30: 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 *.Called from Tc
3c40: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 46 69 6c 65 l_GetChannelFile
3c50: 20 74 6f 20 72 65 74 72 69 65 76 65 20 6f 2f 73 to retrieve o/s
3c60: 20 66 69 6c 65 20 68 61 6e 64 6c 65 72 0a 20 2a file handler. *
3c70: 09 66 72 6f 6d 20 74 68 65 20 53 53 4c 20 73 6f .from the SSL so
3c80: 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e cket based chann
3c90: 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 el.. *. * Result
3ca0: 73 3a 0a 20 2a 09 54 68 65 20 61 70 70 72 6f 70 s:. *.The approp
3cb0: 72 69 61 74 65 20 54 63 6c 5f 46 69 6c 65 20 6f riate Tcl_File o
3cc0: 72 20 4e 55 4c 4c 20 69 66 20 6e 6f 74 20 70 72 r NULL if not pr
3cd0: 65 73 65 6e 74 2e 20 0a 20 2a 0a 20 2a 20 53 69 esent. . *. * Si
3ce0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
3cf0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
3d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3d40: 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c 73 /.static int.Tls
3d50: 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c GetHandleProc(Cl
3d60: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
3d70: 65 44 61 74 61 2c 09 2f 2a 20 54 68 65 20 73 6f eData,./* The so
3d80: 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 cket state. */.
3d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3da0: 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c 09 09 int direction,..
3db0: 2f 2a 20 57 68 69 63 68 20 54 63 6c 5f 46 69 6c /* Which Tcl_Fil
3dc0: 65 20 74 6f 20 72 65 74 72 69 65 76 65 3f 20 2a e to retrieve? *
3dd0: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /.
3de0: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 ClientData *h
3df0: 61 6e 64 6c 65 50 74 72 29 09 2f 2a 20 57 68 65 andlePtr)./* Whe
3e00: 72 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 re to store the
3e10: 68 61 6e 64 6c 65 2e 20 20 2a 2f 0a 7b 0a 20 20 handle. */.{.
3e20: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
3e30: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
3e40: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 stanceData;..
3e50: 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 43 return Tcl_GetC
3e60: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 6c 73 hannelHandle(Tls
3e70: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
3e80: 50 74 72 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c Ptr), direction,
3e90: 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a 0c handlePtr);.}..
3ea0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
3eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
3ef0: 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d TlsNotifyProc --
3f00: 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 20 63 . *. *.Handler c
3f10: 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 74 6f 20 alled by Tcl to
3f20: 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 inform us of act
3f30: 69 76 69 74 79 0a 20 2a 09 6f 6e 20 74 68 65 20 ivity. *.on the
3f40: 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e underlying chann
3f50: 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 el.. *. * Result
3f60: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 s:. *.None.. *.
3f70: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
3f80: 20 2a 09 4d 61 79 20 70 72 6f 63 65 73 73 20 74 *.May process t
3f90: 68 65 20 69 6e 63 6f 6d 69 6e 67 20 65 76 65 6e he incoming even
3fa0: 74 20 62 79 20 69 74 73 65 6c 66 2e 0a 20 2a 0a t by itself.. *.
3fb0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ff0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
4000: 63 20 69 6e 74 0a 54 6c 73 4e 6f 74 69 66 79 50 c int.TlsNotifyP
4010: 72 6f 63 28 69 6e 73 74 61 6e 63 65 44 61 74 61 roc(instanceData
4020: 2c 20 6d 61 73 6b 29 0a 20 20 20 20 43 6c 69 65 , mask). Clie
4030: 6e 74 44 61 74 61 09 20 20 20 69 6e 73 74 61 6e ntData. instan
4040: 63 65 44 61 74 61 3b 20 2f 2a 20 54 68 65 20 73 ceData; /* The s
4050: 74 61 74 65 20 6f 66 20 74 68 65 20 6e 6f 74 69 tate of the noti
4060: 66 69 65 64 20 74 72 61 6e 73 66 6f 72 6d 61 74 fied transformat
4070: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 6e 74 09 09 ion */. int..
4080: 20 20 20 6d 61 73 6b 3b 20 20 20 20 20 20 20 2f mask; /
4090: 2a 20 54 68 65 20 6d 61 73 6b 20 6f 66 20 6f 63 * The mask of oc
40a0: 63 75 72 69 6e 67 20 65 76 65 6e 74 73 20 2a 2f curing events */
40b0: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
40c0: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
40d0: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
40e0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
40f0: 41 6e 20 65 76 65 6e 74 20 6f 63 63 75 72 65 64 An event occured
4100: 20 69 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 in the underlyi
4110: 6e 67 20 63 68 61 6e 6e 65 6c 2e 20 20 54 68 69 ng channel. Thi
4120: 73 0a 20 20 20 20 20 2a 20 74 72 61 6e 73 66 6f s. * transfo
4130: 72 6d 61 74 69 6f 6e 20 64 6f 65 73 6e 27 74 20 rmation doesn't
4140: 70 72 6f 63 65 73 73 20 73 75 63 68 20 65 76 65 process such eve
4150: 6e 74 73 20 74 68 75 73 20 72 65 74 75 72 6e 73 nts thus returns
4160: 20 74 68 65 0a 20 20 20 20 20 2a 20 69 6e 63 6f the. * inco
4170: 6d 69 6e 67 20 6d 61 73 6b 20 75 6e 63 68 61 6e ming mask unchan
4180: 67 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 ged.. */..
4190: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
41a0: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 timer != (Tcl_Ti
41b0: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 merToken) NULL)
41c0: 7b 0a 09 2f 2a 0a 09 20 2a 20 44 65 6c 65 74 65 {../*.. * Delete
41d0: 20 61 6e 20 65 78 69 73 74 69 6e 67 20 74 69 6d an existing tim
41e0: 65 72 2e 20 49 74 20 77 61 73 20 6e 6f 74 20 66 er. It was not f
41f0: 69 72 65 64 2c 20 79 65 74 20 77 65 20 61 72 65 ired, yet we are
4200: 0a 09 20 2a 20 68 65 72 65 2c 20 73 6f 20 74 68 .. * here, so th
4210: 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 e channel below
4220: 67 65 6e 65 72 61 74 65 64 20 73 75 63 68 20 61 generated such a
4230: 6e 20 65 76 65 6e 74 20 61 6e 64 20 77 65 0a 09 n event and we..
4240: 20 2a 20 64 6f 6e 27 74 20 68 61 76 65 20 74 6f * don't have to
4250: 2e 20 54 68 65 20 72 65 6e 65 77 61 6c 20 6f 66 . The renewal of
4260: 20 74 68 65 20 69 6e 74 65 72 65 73 74 20 61 66 the interest af
4270: 74 65 72 20 74 68 65 0a 09 20 2a 20 65 78 65 63 ter the.. * exec
4280: 75 74 69 6f 6e 20 6f 66 20 63 68 61 6e 6e 65 6c ution of channel
4290: 20 68 61 6e 64 6c 65 72 73 20 77 69 6c 6c 20 65 handlers will e
42a0: 76 65 6e 74 75 61 6c 6c 79 20 63 61 75 73 65 20 ventually cause
42b0: 75 73 20 74 6f 0a 09 20 2a 20 72 65 63 72 65 61 us to.. * recrea
42c0: 74 65 20 74 68 65 20 74 69 6d 65 72 20 28 69 6e te the timer (in
42d0: 20 57 61 74 63 68 50 72 6f 63 29 2e 0a 09 20 2a WatchProc)... *
42e0: 2f 0a 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 /...Tcl_DeleteTi
42f0: 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 merHandler(state
4300: 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 Ptr->timer);..st
4310: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 atePtr->timer =
4320: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
4330: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 NULL;. }..
4340: 20 20 72 65 74 75 72 6e 20 6d 61 73 6b 3b 0a 7d return mask;.}
4350: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
4360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
4390: 20 2a 0a 20 2a 20 20 20 20 20 20 54 6c 73 43 68 *. * TlsCh
43a0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 2d 2d 0a annelHandler --.
43b0: 20 2a 0a 20 2a 20 20 20 20 20 20 2d 2d 2d 2d 2d *. * -----
43c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 20 -----------*. *
43f0: 20 20 20 20 20 48 61 6e 64 6c 65 72 20 63 61 6c Handler cal
4400: 6c 65 64 20 62 79 20 54 63 6c 20 61 73 20 61 20 led by Tcl as a
4410: 72 65 73 75 6c 74 20 6f 66 0a 20 2a 20 20 20 20 result of. *
4420: 20 20 54 63 6c 5f 43 72 65 61 74 65 43 68 61 6e Tcl_CreateChan
4430: 6e 65 6c 48 61 6e 64 6c 65 72 20 2d 20 74 6f 20 nelHandler - to
4440: 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 inform us of act
4450: 69 76 69 74 79 0a 20 2a 20 20 20 20 20 20 6f 6e ivity. * on
4460: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
4470: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 20 20 20 20 20 channel.. *
4480: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
4490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44b0: 2d 2a 0a 20 2a 0a 20 2a 20 20 20 20 20 20 53 69 -*. *. * Si
44c0: 64 65 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 deeffects:. *
44d0: 20 20 20 20 20 20 20 20 20 20 20 4d 61 79 20 67 May g
44e0: 65 6e 65 72 61 74 65 20 73 75 62 73 65 71 75 65 enerate subseque
44f0: 6e 74 20 63 61 6c 6c 73 20 74 6f 0a 20 2a 20 20 nt calls to. *
4500: 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
4510: 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 2e 0a 20 NotifyChannel..
4520: 2a 0a 20 2a 20 20 20 20 20 20 52 65 73 75 6c 74 *. * Result
4530: 3a 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 :. *
4540: 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d None.. *. *---
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 2a 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ---*. */..static
4590: 20 76 6f 69 64 0a 54 6c 73 43 68 61 6e 6e 65 6c void.TlsChannel
45a0: 48 61 6e 64 6c 65 72 20 28 63 6c 69 65 6e 74 44 Handler (clientD
45b0: 61 74 61 2c 20 6d 61 73 6b 29 0a 20 20 20 20 43 ata, mask). C
45c0: 6c 69 65 6e 74 44 61 74 61 20 20 20 20 20 63 6c lientData cl
45d0: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e ientData;. in
45e0: 74 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 t mas
45f0: 6b 3b 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a k;.{. State *
4600: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
4610: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
4620: 0a 0a 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 ..dprintf(stderr
4630: 2c 20 22 48 41 4e 44 4c 45 52 28 30 78 25 78 29 , "HANDLER(0x%x)
4640: 5c 6e 22 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 \n", mask);.
4650: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 Tcl_Preserve( (C
4660: 6c 69 65 6e 74 44 61 74 61 29 73 74 61 74 65 50 lientData)stateP
4670: 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 6d 61 tr);.. if (ma
4680: 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 4c sk & TCL_READABL
4690: 45 29 20 7b 0a 09 42 49 4f 5f 73 65 74 5f 66 6c E) {..BIO_set_fl
46a0: 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e 70 5f ags(statePtr->p_
46b0: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 52 bio, BIO_FLAGS_R
46c0: 45 41 44 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 EAD);. } else
46d0: 20 7b 0a 09 42 49 4f 5f 63 6c 65 61 72 5f 66 6c {..BIO_clear_fl
46e0: 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e 70 5f ags(statePtr->p_
46f0: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 52 bio, BIO_FLAGS_R
4700: 45 41 44 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 EAD);. }..
4710: 20 69 66 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f if (mask & TCL_
4720: 57 52 49 54 41 42 4c 45 29 20 7b 0a 09 42 49 4f WRITABLE) {..BIO
4730: 5f 73 65 74 5f 66 6c 61 67 73 28 73 74 61 74 65 _set_flags(state
4740: 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f Ptr->p_bio, BIO_
4750: 46 4c 41 47 53 5f 57 52 49 54 45 29 3b 0a 20 20 FLAGS_WRITE);.
4760: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 42 49 4f 5f } else {..BIO_
4770: 63 6c 65 61 72 5f 66 6c 61 67 73 28 73 74 61 74 clear_flags(stat
4780: 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f ePtr->p_bio, BIO
4790: 5f 46 4c 41 47 53 5f 57 52 49 54 45 29 3b 0a 20 _FLAGS_WRITE);.
47a0: 20 20 20 7d 0a 0a 20 20 20 20 6d 61 73 6b 20 3d }.. mask =
47b0: 20 30 3b 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 0;. if (BIO_
47c0: 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 wpending(statePt
47d0: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b r->bio)) {..mask
47e0: 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 |= TCL_WRITABLE
47f0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
4800: 42 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 BIO_pending(stat
4810: 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d ePtr->bio)) {..m
4820: 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 ask |= TCL_READA
4830: 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 BLE;. }..
4840: 2f 2a 0a 20 20 20 20 20 2a 20 54 68 65 20 66 6f /*. * The fo
4850: 6c 6c 6f 77 69 6e 67 20 4e 6f 74 69 66 79 43 68 llowing NotifyCh
4860: 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 73 65 65 6d annel calls seem
4870: 73 20 74 6f 20 62 65 20 69 6d 70 6f 72 74 61 6e s to be importan
4880: 74 2c 20 62 75 74 0a 20 20 20 20 20 2a 20 77 65 t, but. * we
4890: 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 77 68 79 2e don't know why.
48a0: 20 20 49 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 It looks like
48b0: 69 66 20 74 68 65 20 6d 61 73 6b 20 69 73 20 65 if the mask is e
48c0: 76 65 72 20 6e 6f 6e 2d 7a 65 72 6f 0a 20 20 20 ver non-zero.
48d0: 20 20 2a 20 74 68 61 74 20 69 74 20 77 69 6c 6c * that it will
48e0: 20 65 6e 74 65 72 20 61 6e 20 69 6e 66 69 6e 69 enter an infini
48f0: 74 65 20 6c 6f 6f 70 2e 0a 20 20 20 20 20 2a 0a te loop.. *.
4900: 20 20 20 20 20 2a 20 4e 6f 74 69 66 79 20 74 68 * Notify th
4910: 65 20 75 70 70 65 72 20 63 68 61 6e 6e 65 6c 20 e upper channel
4920: 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 42 of the current B
4930: 49 4f 20 73 74 61 74 65 20 73 6f 20 74 68 65 20 IO state so the
4940: 65 76 65 6e 74 0a 20 20 20 20 20 2a 20 63 6f 6e event. * con
4950: 74 69 6e 75 65 73 20 74 6f 20 70 72 6f 70 61 67 tinues to propag
4960: 61 74 65 20 75 70 20 74 68 65 20 63 68 61 69 6e ate up the chain
4970: 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 .. *. *
4980: 73 74 61 6e 74 6f 6e 3a 20 49 74 20 6c 6f 6f 6b stanton: It look
4990: 73 20 6c 69 6b 65 20 74 68 69 73 20 63 6f 75 6c s like this coul
49a0: 64 20 72 65 73 75 6c 74 20 69 6e 20 61 6e 20 69 d result in an i
49b0: 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 20 69 66 0a nfinite loop if.
49c0: 20 20 20 20 20 2a 20 74 68 65 20 75 70 70 65 72 * the upper
49d0: 20 63 68 61 6e 6e 65 6c 20 64 6f 65 73 6e 27 74 channel doesn't
49e0: 20 63 61 75 73 65 20 43 68 61 6e 6e 65 6c 48 61 cause ChannelHa
49f0: 6e 64 6c 65 72 20 74 6f 20 62 65 20 72 65 6d 6f ndler to be remo
4a00: 76 65 64 0a 20 20 20 20 20 2a 20 62 65 66 6f 72 ved. * befor
4a10: 65 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e e Tcl_NotifyChan
4a20: 6e 65 6c 20 63 61 6c 6c 73 20 63 68 61 6e 6e 65 nel calls channe
4a30: 6c 20 68 61 6e 64 6c 65 72 73 20 6f 6e 20 74 68 l handlers on th
4a40: 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e 65 6c 2e e lower channel.
4a50: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 0a 20 20 . */. .
4a60: 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e Tcl_NotifyChan
4a70: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 nel(statePtr->se
4a80: 6c 66 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 0a lf, mask);. .
4a90: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
4aa0: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
4ab0: 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 29 TimerToken)NULL)
4ac0: 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 {..Tcl_DeleteTi
4ad0: 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 merHandler(state
4ae0: 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 Ptr->timer);..st
4af0: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 atePtr->timer =
4b00: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
4b10: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
4b20: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
4b30: 52 45 41 44 41 42 4c 45 29 20 26 26 20 54 63 6c READABLE) && Tcl
4b40: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 _InputBuffered(s
4b50: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e tatePtr->self) >
4b60: 20 30 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 61 0) {../*.. * Da
4b70: 74 61 20 69 73 20 77 61 69 74 69 6e 67 2c 20 66 ta is waiting, f
4b80: 6c 75 73 68 20 69 74 20 6f 75 74 20 69 6e 20 73 lush it out in s
4b90: 68 6f 72 74 20 74 69 6d 65 0a 09 20 2a 2f 0a 09 hort time.. */..
4ba0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
4bb0: 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d 65 = Tcl_CreateTime
4bc0: 72 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 43 4c rHandler(TLS_TCL
4bd0: 5f 44 45 4c 41 59 2c 0a 09 09 54 6c 73 43 68 61 _DELAY,...TlsCha
4be0: 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 nnelHandlerTimer
4bf0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 , (ClientData) s
4c00: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a tatePtr);. }.
4c10: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
4c20: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 (ClientData)sta
4c30: 74 65 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 tePtr);.}.../*.
4c40: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c70: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 -------*. *. *.T
4c80: 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 lsChannelHandler
4c90: 54 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 2d Timer --. *. *.-
4ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
4cd0: 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 . *.Called by th
4ce0: 65 20 6e 6f 74 69 66 69 65 72 20 28 2d 3e 20 74 e notifier (-> t
4cf0: 69 6d 65 72 29 20 74 6f 20 66 6c 75 73 68 20 6f imer) to flush o
4d00: 75 74 0a 20 2a 09 69 6e 66 6f 72 6d 61 74 69 6f ut. *.informatio
4d10: 6e 20 77 61 69 74 69 6e 67 20 69 6e 20 63 68 61 n waiting in cha
4d20: 6e 6e 65 6c 20 62 75 66 66 65 72 73 2e 0a 20 2a nnel buffers.. *
4d30: 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .---------------
4d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d60: 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 65 66 66 -*. *. *.Sideeff
4d70: 65 63 74 73 3a 0a 20 2a 09 09 41 73 20 6f 66 20 ects:. *..As of
4d80: 27 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 'TlsChannelHandl
4d90: 65 72 27 2e 0a 20 2a 0a 20 2a 09 52 65 73 75 6c er'.. *. *.Resul
4da0: 74 3a 0a 20 2a 09 09 4e 6f 6e 65 2e 0a 20 2a 0a t:. *..None.. *.
4db0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4de0: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 73 --------*. */..s
4df0: 74 61 74 69 63 20 76 6f 69 64 0a 54 6c 73 43 68 tatic void.TlsCh
4e00: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 annelHandlerTime
4e10: 72 20 28 63 6c 69 65 6e 74 44 61 74 61 29 0a 43 r (clientData).C
4e20: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
4e30: 44 61 74 61 3b 20 2f 2a 20 54 72 61 6e 73 66 6f Data; /* Transfo
4e40: 72 6d 61 74 69 6f 6e 20 74 6f 20 71 75 65 72 79 rmation to query
4e50: 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 */.{. State
4e60: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
4e70: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
4e80: 3b 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 20 3d ;. int mask =
4e90: 20 30 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 0;.. statePt
4ea0: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f r->timer = (Tcl_
4eb0: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
4ec0: 3b 0a 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 77 ;.. if (BIO_w
4ed0: 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 pending(statePtr
4ee0: 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 ->bio)) {..mask
4ef0: 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b |= TCL_WRITABLE;
4f00: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 42 . }. if (B
4f10: 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 IO_pending(state
4f20: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 Ptr->bio)) {..ma
4f30: 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 sk |= TCL_READAB
4f40: 4c 45 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 LE;. }. Tc
4f50: 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 l_NotifyChannel(
4f60: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 statePtr->self,
4f70: 6d 61 73 6b 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a mask);.}.../*. *
4f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fb0: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c ------*. *. *.Tl
4fc0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
4fd0: 20 2d 2d 0a 20 2a 0a 20 2a 09 53 69 64 65 65 66 --. *. *.Sideef
4fe0: 66 65 63 74 73 3a 0a 20 2a 09 09 49 73 73 75 65 fects:. *..Issue
4ff0: 73 20 53 53 4c 5f 61 63 63 65 70 74 20 6f 72 20 s SSL_accept or
5000: 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 2a 0a 20 SSL_connect. *.
5010: 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 4e 6f *.Result:. *..No
5020: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
5030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
5060: 0a 20 2a 2f 0a 69 6e 74 0a 54 6c 73 5f 57 61 69 . */.int.Tls_Wai
5070: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 20 73 74 61 tForConnect( sta
5080: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 tePtr, errorCode
5090: 50 74 72 29 0a 20 20 20 20 53 74 61 74 65 20 2a Ptr). State *
50a0: 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 69 6e statePtr;. in
50b0: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 3b t *errorCodePtr;
50c0: 09 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73 74 ../* Where to st
50d0: 6f 72 65 20 65 72 72 6f 72 20 63 6f 64 65 2e 20 ore error code.
50e0: 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 20 65 72 72 */.{. int err
50f0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73 ;.. dprintf(s
5100: 74 64 65 72 72 2c 22 5c 6e 57 61 69 74 46 6f 72 tderr,"\nWaitFor
5110: 43 6f 6e 6e 65 63 74 28 30 78 25 78 29 22 2c 20 Connect(0x%x)",
5120: 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 statePtr);..
5130: 66 6f 72 20 28 3b 3b 29 20 7b 0a 09 2f 2a 20 4e for (;;) {../* N
5140: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 79 ot initialized y
5150: 65 74 21 20 2a 2f 0a 09 69 66 20 28 73 74 61 74 et! */..if (stat
5160: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
5170: 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a S_TCL_SERVER) {.
5180: 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 61 . err = SSL_a
5190: 63 63 65 70 74 28 73 74 61 74 65 50 74 72 2d 3e ccept(statePtr->
51a0: 73 73 6c 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a ssl);..} else {.
51b0: 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 63 . err = SSL_c
51c0: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d onnect(statePtr-
51d0: 3e 73 73 6c 29 3b 0a 09 7d 0a 09 2f 2a 53 53 4c >ssl);..}../*SSL
51e0: 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d _write(statePtr-
51f0: 3e 73 73 6c 2c 20 28 63 68 61 72 2a 29 26 65 72 >ssl, (char*)&er
5200: 72 2c 20 30 29 3b 09 48 41 43 4b 21 21 21 20 2a r, 0);.HACK!!! *
5210: 2f 0a 09 69 66 20 28 65 72 72 20 3e 20 30 29 20 /..if (err > 0)
5220: 7b 0a 09 20 20 20 20 42 49 4f 5f 66 6c 75 73 68 {.. BIO_flush
5230: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
5240: 0a 09 7d 0a 0a 09 69 66 20 28 65 72 72 20 3c 3d ..}...if (err <=
5250: 20 30 29 20 7b 0a 09 20 20 20 20 69 6e 74 20 72 0) {.. int r
5260: 63 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f c = SSL_get_erro
5270: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c r(statePtr->ssl,
5280: 20 65 72 72 29 3b 0a 0a 09 20 20 20 20 69 66 20 err);... if
5290: 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 (rc == SSL_ERROR
52a0: 5f 53 53 4c 29 20 7b 0a 09 09 54 6c 73 5f 45 72 _SSL) {...Tls_Er
52b0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 0a 09 09 ror(statePtr,...
52c0: 09 28 63 68 61 72 20 2a 29 45 52 52 5f 72 65 61 .(char *)ERR_rea
52d0: 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 son_error_string
52e0: 28 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 (ERR_get_error()
52f0: 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 ));...*errorCode
5300: 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 Ptr = ECONNABORT
5310: 45 44 3b 0a 09 09 72 65 74 75 72 6e 20 2d 31 3b ED;...return -1;
5320: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
5330: 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 (BIO_should_retr
5340: 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 y(statePtr->bio)
5350: 29 20 7b 0a 09 09 69 66 20 28 73 74 61 74 65 50 ) {...if (stateP
5360: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
5370: 54 43 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 09 20 TCL_ASYNC) {...
5380: 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 dprintf(stder
5390: 72 2c 22 45 21 20 22 29 3b 0a 09 09 20 20 20 20 r,"E! ");...
53a0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
53b0: 45 41 47 41 49 4e 3b 0a 09 09 20 20 20 20 72 65 EAGAIN;... re
53c0: 74 75 72 6e 20 2d 31 3b 0a 09 09 7d 20 65 6c 73 turn -1;...} els
53d0: 65 20 7b 0a 09 09 20 20 20 20 63 6f 6e 74 69 6e e {... contin
53e0: 75 65 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 20 65 ue;...}.. } e
53f0: 6c 73 65 20 69 66 20 28 65 72 72 20 3d 3d 20 30 lse if (err == 0
5400: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 73 74 ) {...dprintf(st
5410: 64 65 72 72 2c 22 43 52 21 20 22 29 3b 0a 09 09 derr,"CR! ");...
5420: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
5430: 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 09 72 65 ECONNRESET;...re
5440: 74 75 72 6e 20 2d 31 3b 0a 09 20 20 20 20 7d 0a turn -1;.. }.
5450: 09 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
5460: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
5470: 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a 09 09 65 CL_SERVER) {...e
5480: 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 76 65 72 rr = SSL_get_ver
5490: 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 ify_result(state
54a0: 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 09 69 66 20 Ptr->ssl);...if
54b0: 28 65 72 72 20 21 3d 20 58 35 30 39 5f 56 5f 4f (err != X509_V_O
54c0: 4b 29 20 7b 0a 09 09 20 20 20 20 54 6c 73 5f 45 K) {... Tls_E
54d0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 0a 09 rror(statePtr,..
54e0: 09 09 20 20 20 20 28 63 68 61 72 20 2a 29 58 35 .. (char *)X5
54f0: 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 09_verify_cert_e
5500: 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 rror_string(err)
5510: 29 3b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 );... *errorC
5520: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 odePtr = ECONNAB
5530: 4f 52 54 45 44 3b 0a 09 09 20 20 20 20 72 65 74 ORTED;... ret
5540: 75 72 6e 20 2d 31 3b 0a 09 09 7d 0a 09 20 20 20 urn -1;...}..
5550: 20 7d 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f }.. *errorCo
5560: 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 dePtr = Tcl_GetE
5570: 72 72 6e 6f 28 29 3b 0a 09 20 20 20 20 64 70 72 rrno();.. dpr
5580: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 45 52 52 intf(stderr,"ERR
5590: 28 25 64 2c 20 25 64 29 20 22 2c 20 72 63 2c 20 (%d, %d) ", rc,
55a0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a *errorCodePtr);.
55b0: 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a . return -1;.
55c0: 09 7d 0a 09 64 70 72 69 6e 74 66 28 73 74 64 65 .}..dprintf(stde
55d0: 72 72 2c 22 52 30 21 20 22 29 3b 0a 09 72 65 74 rr,"R0! ");..ret
55e0: 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 7d 0a 0a urn 1;. }.}..
55f0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 0a 54 6c 73 5f Tcl_Channel.Tls_
5600: 47 65 74 50 61 72 65 6e 74 28 20 73 74 61 74 65 GetParent( state
5610: 50 74 72 20 29 0a 20 20 20 20 53 74 61 74 65 20 Ptr ). State
5620: 2a 73 74 61 74 65 50 74 72 3b 0a 7b 0a 20 20 20 *statePtr;.{.
5630: 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 if (channelType
5640: 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 Version == TLS_C
5650: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 HANNEL_VERSION_2
5660: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 63 6c 5f ) {..return Tcl_
5670: 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 GetStackedChanne
5680: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 l(statePtr->self
5690: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
56a0: 09 2f 2a 20 54 68 65 20 72 65 61 73 6f 6e 20 66 ./* The reason f
56b0: 6f 72 20 74 68 65 20 65 78 69 73 74 65 6e 63 65 or the existence
56c0: 20 6f 66 20 74 68 69 73 20 70 72 6f 63 65 64 75 of this procedu
56d0: 72 65 20 69 73 0a 09 20 2a 20 74 68 65 20 66 61 re is.. * the fa
56e0: 63 74 20 74 68 61 74 20 73 74 61 63 6b 69 6e 67 ct that stacking
56f0: 20 61 20 74 72 61 6e 73 66 6f 72 6d 20 6f 76 65 a transform ove
5700: 72 20 61 6e 6f 74 68 65 72 0a 09 20 2a 20 74 72 r another.. * tr
5710: 61 6e 73 66 6f 72 6d 20 77 69 6c 6c 20 6c 65 61 ansform will lea
5720: 76 65 20 6f 75 72 20 69 6e 74 65 72 6e 61 6c 20 ve our internal
5730: 70 6f 69 6e 74 65 72 20 75 6e 63 68 61 6e 67 65 pointer unchange
5740: 64 2c 0a 09 20 2a 20 61 6e 64 20 74 68 75 73 20 d,.. * and thus
5750: 70 6f 69 6e 74 69 6e 67 20 74 6f 20 74 68 65 20 pointing to the
5760: 6e 65 77 20 74 72 61 6e 73 66 6f 72 6d 2c 20 61 new transform, a
5770: 6e 64 20 6e 6f 74 20 74 68 65 0a 09 20 2a 20 43 nd not the.. * C
5780: 68 61 6e 6e 65 6c 20 73 74 72 75 63 74 75 72 65 hannel structure
5790: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 containing the
57a0: 73 61 76 65 64 20 73 74 61 74 65 20 6f 66 20 74 saved state of t
57b0: 68 69 73 0a 09 20 2a 20 74 72 61 6e 73 66 6f 72 his.. * transfor
57c0: 6d 2e 20 54 68 69 73 20 69 73 20 74 68 65 20 70 m. This is the p
57d0: 72 69 63 65 20 74 6f 20 70 61 79 20 66 6f 72 20 rice to pay for
57e0: 6c 65 61 76 69 6e 67 0a 09 20 2a 20 54 63 6c 5f leaving.. * Tcl_
57f0: 43 68 61 6e 6e 65 6c 20 72 65 66 65 72 65 6e 63 Channel referenc
5800: 65 73 20 69 6e 74 61 63 74 2e 20 54 68 65 20 6f es intact. The o
5810: 6e 6c 79 20 6f 74 68 65 72 20 73 6f 6c 75 74 69 nly other soluti
5820: 6f 6e 0a 09 20 2a 20 69 73 20 61 6e 20 65 78 74 on.. * is an ext
5830: 65 6e 73 69 6f 6e 20 6f 66 20 54 63 6c 5f 43 68 ension of Tcl_Ch
5840: 61 6e 6e 65 6c 54 79 70 65 20 77 69 74 68 20 61 annelType with a
5850: 6e 6f 74 68 65 72 20 64 72 69 76 65 72 0a 09 20 nother driver..
5860: 2a 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 6e * procedure to n
5870: 6f 74 69 66 79 20 61 20 43 68 61 6e 6e 65 6c 20 otify a Channel
5880: 61 62 6f 75 74 20 74 68 65 20 28 75 6e 29 73 74 about the (un)st
5890: 61 63 6b 69 6e 67 2e 0a 09 20 2a 0a 09 20 2a 20 acking... *.. *
58a0: 49 74 20 77 61 6c 6b 73 20 74 68 65 20 63 68 61 It walks the cha
58b0: 69 6e 20 6f 66 20 43 68 61 6e 6e 65 6c 20 73 74 in of Channel st
58c0: 72 75 63 74 75 72 65 73 20 75 6e 74 69 6c 20 69 ructures until i
58d0: 74 0a 09 20 2a 20 66 69 6e 64 73 20 74 68 65 20 t.. * finds the
58e0: 6f 6e 65 20 70 6f 69 6e 74 69 6e 67 20 68 61 76 one pointing hav
58f0: 69 6e 67 20 27 63 74 72 6c 27 20 61 73 20 69 6e ing 'ctrl' as in
5900: 73 74 61 6e 63 65 44 61 74 61 0a 09 20 2a 20 61 stanceData.. * a
5910: 6e 64 20 74 68 65 6e 20 72 65 74 75 72 6e 73 20 nd then returns
5920: 74 68 65 20 73 75 70 65 72 63 65 64 69 6e 67 20 the superceding
5930: 63 68 61 6e 6e 65 6c 20 74 6f 20 74 68 61 74 2e channel to that.
5940: 20 28 41 4b 29 0a 09 20 2a 2f 0a 0a 09 54 63 6c (AK).. */...Tcl
5950: 5f 43 68 61 6e 6e 65 6c 20 73 65 6c 66 20 3d 20 _Channel self =
5960: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 3b 0a statePtr->self;.
5970: 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 6e 65 78 .Tcl_Channel nex
5980: 74 3b 0a 0a 09 77 68 69 6c 65 20 28 28 43 6c 69 t;...while ((Cli
5990: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
59a0: 72 20 21 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e r != Tcl_GetChan
59b0: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 20 nelInstanceData
59c0: 28 73 65 6c 66 29 29 20 7b 0a 09 20 20 20 20 6e (self)) {.. n
59d0: 65 78 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 ext = Tcl_GetSta
59e0: 63 6b 65 64 43 68 61 6e 6e 65 6c 20 28 73 65 6c ckedChannel (sel
59f0: 66 29 3b 0a 09 20 20 20 20 69 66 20 28 6e 65 78 f);.. if (nex
5a00: 74 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 t == (Tcl_Channe
5a10: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 09 2f 2a 20 l) NULL) {.../*
5a20: 30 39 2f 32 34 2f 31 39 39 39 20 55 6e 73 74 61 09/24/1999 Unsta
5a30: 63 6b 69 6e 67 20 62 75 67 2c 0a 09 09 20 2a 20 cking bug,... *
5a40: 66 6f 75 6e 64 20 62 79 20 4d 61 74 74 20 4e 65 found by Matt Ne
5a50: 77 6d 61 6e 20 3c 6d 61 74 74 40 73 65 6e 73 75 wman <matt@sensu
5a60: 73 2e 6f 72 67 3e 2e 0a 09 09 20 2a 0a 09 09 20 s.org>.... *...
5a70: 2a 20 57 65 20 77 65 72 65 20 75 6e 61 62 6c 65 * We were unable
5a80: 20 74 6f 20 66 69 6e 64 20 74 68 65 20 63 68 61 to find the cha
5a90: 6e 6e 65 6c 20 73 74 72 75 63 74 75 72 65 20 66 nnel structure f
5aa0: 6f 72 20 74 68 69 73 0a 09 09 20 2a 20 74 72 61 or this... * tra
5ab0: 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 69 6e 20 74 nsformation in t
5ac0: 68 65 20 63 68 61 69 6e 20 6f 66 20 73 74 61 63 he chain of stac
5ad0: 6b 65 64 20 63 68 61 6e 6e 65 6c 2e 20 54 68 69 ked channel. Thi
5ae0: 73 0a 09 09 20 2a 20 6d 65 61 6e 73 20 74 68 61 s... * means tha
5af0: 74 20 77 65 20 61 72 65 20 63 75 72 72 65 6e 74 t we are current
5b00: 6c 79 20 69 6e 20 74 68 65 20 70 72 6f 63 65 73 ly in the proces
5b10: 73 20 6f 66 20 75 6e 73 74 61 63 6b 69 6e 67 0a s of unstacking.
5b20: 09 09 20 2a 20 69 74 20 2a 61 6e 64 2a 20 74 68 .. * it *and* th
5b30: 65 72 65 20 77 65 72 65 20 73 6f 6d 65 20 62 79 ere were some by
5b40: 74 65 73 20 77 61 69 74 69 6e 67 20 77 68 69 63 tes waiting whic
5b50: 68 20 61 72 65 20 6e 6f 77 0a 09 09 20 2a 20 66 h are now... * f
5b60: 6c 75 73 68 65 64 2e 20 49 6e 20 74 68 69 73 20 lushed. In this
5b70: 73 69 74 75 61 74 69 6f 6e 20 74 68 65 20 70 6f situation the po
5b80: 69 6e 74 65 72 20 74 6f 20 74 68 65 20 63 68 61 inter to the cha
5b90: 6e 6e 65 6c 0a 09 09 20 2a 20 69 74 73 65 6c 66 nnel... * itself
5ba0: 20 61 6c 72 65 61 64 79 20 72 65 66 65 72 73 20 already refers
5bb0: 74 6f 20 74 68 65 20 70 61 72 65 6e 74 20 63 68 to the parent ch
5bc0: 61 6e 6e 65 6c 20 77 65 20 68 61 76 65 20 74 6f annel we have to
5bd0: 0a 09 09 20 2a 20 77 72 69 74 65 20 74 68 65 20 ... * write the
5be0: 62 79 74 65 73 20 69 6e 74 6f 2c 20 73 6f 20 77 bytes into, so w
5bf0: 65 20 72 65 74 75 72 6e 20 74 68 61 74 2e 0a 09 e return that...
5c00: 09 20 2a 2f 0a 09 09 72 65 74 75 72 6e 20 73 74 . */...return st
5c10: 61 74 65 50 74 72 2d 3e 73 65 6c 66 3b 0a 09 20 atePtr->self;..
5c20: 20 20 20 7d 0a 09 20 20 20 20 73 65 6c 66 20 3d }.. self =
5c30: 20 6e 65 78 74 3b 0a 09 7d 0a 0a 09 72 65 74 75 next;..}...retu
5c40: 72 6e 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 rn Tcl_GetStacke
5c50: 64 43 68 61 6e 6e 65 6c 20 28 73 65 6c 66 29 3b dChannel (self);
5c60: 0a 20 20 20 20 7d 0a 7d 0a . }.}.