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 37 20 32 30 30 30 2f 30 36 .c,v 1.7 2000/06
0090: 2f 30 35 20 31 38 3a 30 39 3a 35 34 20 77 65 6c /05 18:09:54 wel
00a0: 63 68 20 45 78 70 20 24 0a 20 2a 0a 20 2a 20 54 ch 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 42 6c /..static int.Bl
0350: 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 5f 41 4e 53 ockModeProc _ANS
0360: 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74 44 I_ARGS_((ClientD
0370: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
0380: 2c 20 69 6e 74 20 6d 6f 64 65 29 29 3b 0a 73 74 , int mode));.st
0390: 61 74 69 63 20 69 6e 74 09 43 6c 6f 73 65 50 72 atic int.ClosePr
03a0: 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 oc _ANSI_ARGS_ (
03b0: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
03c0: 61 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e anceData, Tcl_In
03d0: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 29 3b 0a terp *interp));.
03e0: 73 74 61 74 69 63 20 69 6e 74 09 49 6e 70 75 74 static int.Input
03f0: 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f Proc _ANSI_ARGS_
0400: 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 ((ClientData ins
0410: 74 61 6e 63 65 44 61 74 61 2c 0a 09 09 09 20 20 tanceData,....
0420: 20 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 char *buf, int
0430: 20 62 75 66 53 69 7a 65 2c 20 69 6e 74 20 2a 65 bufSize, int *e
0440: 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 73 rrorCodePtr));.s
0450: 74 61 74 69 63 20 69 6e 74 09 4f 75 74 70 75 74 tatic int.Output
0460: 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f Proc _ANSI_ARGS_
0470: 28 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 ((ClientData ins
0480: 74 61 6e 63 65 44 61 74 61 2c 0a 09 09 09 20 20 tanceData,....
0490: 20 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 char *buf, int
04a0: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 toWrite, int *e
04b0: 72 72 6f 72 43 6f 64 65 50 74 72 29 29 3b 0a 73 rrorCodePtr));.s
04c0: 74 61 74 69 63 20 69 6e 74 09 47 65 74 4f 70 74 tatic int.GetOpt
04d0: 69 6f 6e 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 ionProc _ANSI_AR
04e0: 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 GS_ ((ClientData
04f0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 09 instanceData,..
0500: 09 09 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 .. Tcl_Interp
0510: 20 2a 69 6e 74 65 72 70 2c 20 63 68 61 72 20 2a *interp, char *
0520: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 54 63 6c 5f optionName, Tcl_
0530: 44 53 74 72 69 6e 67 20 2a 64 73 50 74 72 29 29 DString *dsPtr))
0540: 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 09 57 61 ;.static void.Wa
0550: 74 63 68 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 tchProc _ANSI_AR
0560: 47 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 GS_((ClientData
0570: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e instanceData, in
0580: 74 20 6d 61 73 6b 29 29 3b 0a 73 74 61 74 69 63 t mask));.static
0590: 20 69 6e 74 09 47 65 74 48 61 6e 64 6c 65 50 72 int.GetHandlePr
05a0: 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 oc _ANSI_ARGS_ (
05b0: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
05c0: 61 6e 63 65 44 61 74 61 2c 0a 09 09 09 20 20 20 anceData,....
05d0: 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c 20 int direction,
05e0: 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e 64 ClientData *hand
05f0: 6c 65 50 74 72 29 29 3b 0a 73 74 61 74 69 63 20 lePtr));.static
0600: 76 6f 69 64 09 43 68 61 6e 6e 65 6c 48 61 6e 64 void.ChannelHand
0610: 6c 65 72 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 ler _ANSI_ARGS_
0620: 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ((ClientData cli
0630: 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d 61 73 entData, int mas
0640: 6b 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 k));.static void
0650: 09 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 .ChannelHandlerT
0660: 69 6d 65 72 20 5f 41 4e 53 49 5f 41 52 47 53 5f imer _ANSI_ARGS_
0670: 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ((ClientData cl
0680: 69 65 6e 74 44 61 74 61 29 29 3b 0a 0a 2f 2a 0a ientData));../*.
0690: 20 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 72 * This structur
06a0: 65 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 e describes the
06b0: 63 68 61 6e 6e 65 6c 20 74 79 70 65 20 73 74 72 channel type str
06c0: 75 63 74 75 72 65 20 66 6f 72 20 54 43 50 20 73 ucture for TCP s
06d0: 6f 63 6b 65 74 0a 20 2a 20 62 61 73 65 64 20 49 ocket. * based I
06e0: 4f 3a 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 54 O:. */..static T
06f0: 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 74 cl_ChannelType t
0700: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 lsChannelType =
0710: 7b 0a 20 20 20 20 22 74 6c 73 22 2c 09 09 2f 2a {. "tls",../*
0720: 20 54 79 70 65 20 6e 61 6d 65 2e 20 2a 2f 0a 20 Type name. */.
0730: 20 20 20 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 BlockModeProc
0740: 2c 09 2f 2a 20 53 65 74 20 62 6c 6f 63 6b 69 6e ,./* Set blockin
0750: 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f g/nonblocking mo
0760: 64 65 2e 2a 2f 0a 20 20 20 20 43 6c 6f 73 65 50 de.*/. CloseP
0770: 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 roc,../* Close p
0780: 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 49 6e 70 75 roc. */. Inpu
0790: 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 74 tProc,../* Input
07a0: 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 4f 75 proc. */. Ou
07b0: 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 4f 75 tputProc,../* Ou
07c0: 74 70 75 74 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 tput proc. */.
07d0: 20 20 4e 55 4c 4c 2c 09 09 2f 2a 20 53 65 65 6b NULL,../* Seek
07e0: 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 4e 55 proc. */. NU
07f0: 4c 4c 2c 09 09 2f 2a 20 53 65 74 20 6f 70 74 69 LL,../* Set opti
0800: 6f 6e 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 on proc. */.
0810: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f GetOptionProc,./
0820: 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f * Get option pro
0830: 63 2e 20 2a 2f 0a 20 20 20 20 57 61 74 63 68 50 c. */. WatchP
0840: 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c roc,../* Initial
0850: 69 7a 65 20 6e 6f 74 69 66 69 65 72 2e 20 2a 2f ize notifier. */
0860: 0a 20 20 20 20 47 65 74 48 61 6e 64 6c 65 50 72 . GetHandlePr
0870: 6f 63 2c 09 2f 2a 20 47 65 74 20 66 69 6c 65 20 oc,./* Get file
0880: 68 61 6e 64 6c 65 20 6f 75 74 20 6f 66 20 63 68 handle out of ch
0890: 61 6e 6e 65 6c 2e 20 2a 2f 0a 7d 3b 0a 0a 54 63 annel. */.};..Tc
08a0: 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 54 l_ChannelType *T
08b0: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
08c0: 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 26 74 .{. return &t
08d0: 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 3b 0a 7d lsChannelType;.}
08e0: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
08f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
0930: 2a 20 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 * BlockModeProc
0940: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
0950: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b ocedure is invok
0960: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
0970: 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 c IO level. *
0980: 20 20 20 20 74 6f 20 73 65 74 20 62 6c 6f 63 6b to set block
0990: 69 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b ing and nonblock
09a0: 69 6e 67 20 6d 6f 64 65 73 0a 20 2a 20 52 65 73 ing modes. * Res
09b0: 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 20 73 75 ults:. *.0 if su
09c0: 63 63 65 73 73 66 75 6c 2c 20 65 72 72 6e 6f 20 ccessful, errno
09d0: 77 68 65 6e 20 66 61 69 6c 65 64 2e 0a 20 2a 0a when failed.. *.
09e0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
09f0: 0a 20 2a 09 53 65 74 73 20 74 68 65 20 64 65 76 . *.Sets the dev
0a00: 69 63 65 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e ice into blockin
0a10: 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 g or nonblocking
0a20: 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d mode.. *. *----
0a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0a70: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a */..static int.
0a80: 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c BlockModeProc(Cl
0a90: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
0aa0: 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 74 eData,./* Socket
0ab0: 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 20 state. */.
0ac0: 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 int
0ad0: 6d 6f 64 65 29 09 09 09 2f 2a 20 54 68 65 20 6d mode).../* The m
0ae0: 6f 64 65 20 74 6f 20 73 65 74 2e 20 43 61 6e 20 ode to set. Can
0af0: 62 65 20 6f 6e 65 20 6f 66 0a 09 09 09 09 09 09 be one of.......
0b00: 2a 20 54 43 4c 5f 4d 4f 44 45 5f 42 4c 4f 43 4b * TCL_MODE_BLOCK
0b10: 49 4e 47 20 6f 72 0a 09 09 09 09 09 09 2a 20 54 ING or.......* T
0b20: 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b CL_MODE_NONBLOCK
0b30: 49 4e 47 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 ING. */.{. St
0b40: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
0b50: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
0b60: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 ceData;.. if
0b70: 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 (mode == TCL_MOD
0b80: 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b E_NONBLOCKING) {
0b90: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
0ba0: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 s |= TLS_TCL_ASY
0bb0: 4e 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b NC;. } else {
0bc0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
0bd0: 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 s &= ~(TLS_TCL_A
0be0: 53 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 SYNC);. }.
0bf0: 20 72 65 74 75 72 6e 20 54 63 6c 5f 53 65 74 43 return Tcl_SetC
0c00: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 73 74 61 hannelOption(sta
0c10: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 54 tePtr->interp, T
0c20: 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 ls_GetParent(sta
0c30: 74 65 50 74 72 29 2c 0a 09 09 22 2d 62 6c 6f 63 tePtr),..."-bloc
0c40: 6b 69 6e 67 22 2c 20 28 6d 6f 64 65 20 3d 3d 20 king", (mode ==
0c50: 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 TCL_MODE_NONBLOC
0c60: 4b 49 4e 47 29 20 3f 20 22 30 22 20 3a 20 22 31 KING) ? "0" : "1
0c70: 22 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d ");.}.../*. *---
0c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cc0: 0a 20 2a 0a 20 2a 20 43 6c 6f 73 65 50 72 6f 63 . *. * CloseProc
0cd0: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 --. *. *.This p
0ce0: 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f rocedure is invo
0cf0: 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 ked by the gener
0d00: 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 70 ic IO level to p
0d10: 65 72 66 6f 72 6d 0a 20 2a 09 63 68 61 6e 6e 65 erform. *.channe
0d20: 6c 2d 74 79 70 65 2d 73 70 65 63 69 66 69 63 20 l-type-specific
0d30: 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 61 20 53 cleanup when a S
0d40: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
0d50: 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c channel. *.is cl
0d60: 6f 73 65 64 2e 0a 20 2a 0a 20 2a 09 4e 6f 74 65 osed.. *. *.Note
0d70: 3a 20 77 65 20 6c 65 61 76 65 20 74 68 65 20 75 : we leave the u
0d80: 6e 64 65 72 6c 79 69 6e 67 20 73 6f 63 6b 65 74 nderlying socket
0d90: 20 61 6c 6f 6e 65 2c 20 69 73 20 74 68 69 73 20 alone, is this
0da0: 72 69 67 68 74 3f 0a 20 2a 0a 20 2a 20 52 65 73 right?. *. * Res
0db0: 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 20 73 75 ults:. *.0 if su
0dc0: 63 63 65 73 73 66 75 6c 2c 20 74 68 65 20 76 61 ccessful, the va
0dd0: 6c 75 65 20 6f 66 20 54 63 6c 5f 47 65 74 45 72 lue of Tcl_GetEr
0de0: 72 6e 6f 28 29 20 69 66 20 66 61 69 6c 65 64 2e rno() if failed.
0df0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
0e00: 63 74 73 3a 0a 20 2a 09 43 6c 6f 73 65 73 20 74 cts:. *.Closes t
0e10: 68 65 20 73 6f 63 6b 65 74 20 6f 66 20 74 68 65 he socket of the
0e20: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d channel.. *. *-
0e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e70: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
0e80: 74 0a 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 65 t.CloseProc(Clie
0e90: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 ntData instanceD
0ea0: 61 74 61 2c 09 2f 2a 20 54 68 65 20 73 6f 63 6b ata,./* The sock
0eb0: 65 74 20 74 6f 20 63 6c 6f 73 65 2e 20 2a 2f 0a et to close. */.
0ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c Tcl
0ed0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
0ee0: 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 20 72 65 ./* For error re
0ef0: 70 6f 72 74 69 6e 67 20 2d 20 75 6e 75 73 65 64 porting - unused
0f00: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 . */.{. State
0f10: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
0f20: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
0f30: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ata;.. dprint
0f40: 66 28 73 74 64 65 72 72 2c 22 5c 6e 43 6c 6f 73 f(stderr,"\nClos
0f50: 65 50 72 6f 63 28 30 78 25 78 29 22 2c 20 73 74 eProc(0x%x)", st
0f60: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 2f 2a atePtr);.. /*
0f70: 0a 20 20 20 20 20 2a 20 52 65 6d 6f 76 65 20 65 . * Remove e
0f80: 76 65 6e 74 20 68 61 6e 64 6c 65 72 20 74 6f 20 vent handler to
0f90: 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e underlying chann
0fa0: 65 6c 2c 20 74 68 69 73 20 63 6f 75 6c 64 0a 20 el, this could.
0fb0: 20 20 20 20 2a 20 62 65 20 62 65 63 61 75 73 65 * be because
0fc0: 20 77 65 20 61 72 65 20 63 6c 6f 73 69 6e 67 20 we are closing
0fd0: 66 6f 72 20 72 65 61 6c 2c 20 6f 72 20 62 65 69 for real, or bei
0fe0: 6e 67 20 22 75 6e 73 74 61 63 6b 65 64 22 2e 0a ng "unstacked"..
0ff0: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 54 63 6c */.. Tcl
1000: 5f 44 65 6c 65 74 65 43 68 61 6e 6e 65 6c 48 61 _DeleteChannelHa
1010: 6e 64 6c 65 72 28 54 6c 73 5f 47 65 74 50 61 72 ndler(Tls_GetPar
1020: 65 6e 74 28 73 74 61 74 65 50 74 72 29 2c 0a 09 ent(statePtr),..
1030: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 2c 20 ChannelHandler,
1040: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
1050: 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 20 tePtr);.. if
1060: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
1070: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
1080: 6b 65 6e 29 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c ken)NULL) {..Tcl
1090: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
10a0: 6c 65 72 20 28 73 74 61 74 65 50 74 72 2d 3e 74 ler (statePtr->t
10b0: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
10c0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
10d0: 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 3b 0a imerToken)NULL;.
10e0: 20 20 20 20 7d 0a 0a 20 20 20 20 54 6c 73 5f 43 }.. Tls_C
10f0: 6c 65 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a lean(statePtr);.
1100: 20 20 20 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c Tcl_Eventual
1110: 6c 79 46 72 65 65 28 20 28 43 6c 69 65 6e 74 44 lyFree( (ClientD
1120: 61 74 61 29 73 74 61 74 65 50 74 72 2c 20 54 6c ata)statePtr, Tl
1130: 73 5f 46 72 65 65 29 3b 0a 20 20 20 20 72 65 74 s_Free);. ret
1140: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a urn TCL_OK;.}...
1150: 2f 2a 0a 20 2a 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 2d ----------------
1180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1190: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 --------. *. * I
11a0: 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 nputProc --. *.
11b0: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
11c0: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 is invoked by t
11d0: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 he generic IO le
11e0: 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 vel. * to
11f0: 72 65 61 64 20 69 6e 70 75 74 20 66 72 6f 6d 20 read input from
1200: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
1210: 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 ed channel.. *.
1220: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 * Results:. *.Th
1230: 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 e number of byte
1240: 73 20 72 65 61 64 20 69 73 20 72 65 74 75 72 6e s read is return
1250: 65 64 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f ed or -1 on erro
1260: 72 2e 20 41 6e 20 6f 75 74 70 75 74 0a 20 2a 09 r. An output. *.
1270: 61 72 67 75 6d 65 6e 74 20 63 6f 6e 74 61 69 6e argument contain
1280: 73 20 74 68 65 20 50 4f 53 49 58 20 65 72 72 6f s the POSIX erro
1290: 72 20 63 6f 64 65 20 6f 6e 20 65 72 72 6f 72 2c r code on error,
12a0: 20 6f 72 20 7a 65 72 6f 20 69 66 20 6e 6f 0a 20 or zero if no.
12b0: 2a 09 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 *.error occurred
12c0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
12d0: 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 69 ects:. *.Reads i
12e0: 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 20 69 6e nput from the in
12f0: 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 74 68 put device of th
1300: 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a e channel.. *. *
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1350: 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 ---. */..static
1360: 69 6e 74 0a 49 6e 70 75 74 50 72 6f 63 28 43 6c int.InputProc(Cl
1370: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
1380: 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 74 eData,./* Socket
1390: 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 20 state. */.
13a0: 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 62 75 char *bu
13b0: 66 2c 09 09 09 2f 2a 20 57 68 65 72 65 20 74 6f f,.../* Where to
13c0: 20 73 74 6f 72 65 20 64 61 74 61 20 72 65 61 64 store data read
13d0: 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 . */.
13e0: 20 20 69 6e 74 20 62 75 66 53 69 7a 65 2c 09 09 int bufSize,..
13f0: 2f 2a 20 48 6f 77 20 6d 75 63 68 20 73 70 61 63 /* How much spac
1400: 65 20 69 73 20 61 76 61 69 6c 61 62 6c 65 0a 20 e is available.
1410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1430: 20 20 20 20 20 20 20 20 2a 20 69 6e 20 74 68 65 * in the
1440: 20 62 75 66 66 65 72 3f 20 2a 2f 0a 20 20 20 20 buffer? */.
1450: 20 20 20 20 20 20 20 20 20 69 6e 74 20 2a 65 72 int *er
1460: 72 6f 72 43 6f 64 65 50 74 72 29 09 09 2f 2a 20 rorCodePtr)../*
1470: 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 65 Where to store e
1480: 72 72 6f 72 20 63 6f 64 65 2e 20 2a 2f 0a 7b 0a rror code. */.{.
1490: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
14a0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
14b0: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 instanceData;.
14c0: 20 20 69 6e 74 20 62 79 74 65 73 52 65 61 64 3b int bytesRead;
14d0: 09 09 09 2f 2a 20 48 6f 77 20 6d 61 6e 79 20 62 .../* How many b
14e0: 79 74 65 73 20 77 65 72 65 20 72 65 61 64 3f 20 ytes were read?
14f0: 2a 2f 0a 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f */.. *errorCo
1500: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 dePtr = 0;..
1510: 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 dprintf(stderr,"
1520: 5c 6e 42 49 4f 5f 72 65 61 64 28 25 64 29 22 2c \nBIO_read(%d)",
1530: 20 62 75 66 53 69 7a 65 29 3b 0a 0a 20 20 20 20 bufSize);..
1540: 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e 69 74 if (!SSL_is_init
1550: 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74 65 50 _finished(stateP
1560: 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 62 79 74 tr->ssl)) {..byt
1570: 65 73 52 65 61 64 20 3d 20 54 6c 73 5f 57 61 69 esRead = Tls_Wai
1580: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 tForConnect(stat
1590: 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 ePtr, errorCodeP
15a0: 74 72 29 3b 0a 09 69 66 20 28 62 79 74 65 73 52 tr);..if (bytesR
15b0: 65 61 64 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 ead <= 0) {..
15c0: 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 7d 0a goto input;..}.
15d0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 }. if (st
15e0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
15f0: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b 0a TLS_TCL_INIT) {.
1600: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
1610: 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 49 4e &= ~(TLS_TCL_IN
1620: 49 54 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 62 IT);. }. b
1630: 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f 5f 72 ytesRead = BIO_r
1640: 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ead(statePtr->bi
1650: 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a 65 29 o, buf, bufSize)
1660: 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73 74 ;. dprintf(st
1670: 64 65 72 72 2c 22 5c 6e 42 49 4f 5f 72 65 61 64 derr,"\nBIO_read
1680: 20 2d 3e 20 25 64 22 2c 20 62 79 74 65 73 52 65 -> %d", bytesRe
1690: 61 64 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 79 ad);.. if (by
16a0: 74 65 73 52 65 61 64 20 3c 20 30 29 20 7b 0a 09 tesRead < 0) {..
16b0: 69 6e 74 20 65 72 72 20 3d 20 53 53 4c 5f 67 65 int err = SSL_ge
16c0: 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 t_error(statePtr
16d0: 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61 64 ->ssl, bytesRead
16e0: 29 3b 0a 0a 09 69 66 20 28 65 72 72 20 3d 3d 20 );...if (err ==
16f0: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 29 20 7b SSL_ERROR_SSL) {
1700: 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 .. Tls_Error(
1710: 73 74 61 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 statePtr, SSL_ER
1720: 52 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ROR(statePtr->ss
1730: 6c 2c 20 62 79 74 65 73 52 65 61 64 29 29 3b 0a l, bytesRead));.
1740: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
1750: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
1760: 44 3b 0a 09 20 20 20 20 67 6f 74 6f 20 69 6e 70 D;.. goto inp
1770: 75 74 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 ut;..} else if (
1780: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 BIO_should_retry
1790: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
17a0: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
17b0: 73 74 64 65 72 72 2c 22 52 45 21 20 22 29 3b 0a stderr,"RE! ");.
17c0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
17d0: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 tr = EAGAIN;..
17e0: 20 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 7d goto input;..}
17f0: 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 45 72 72 ..if (Tcl_GetErr
1800: 6e 6f 28 29 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 no() == ECONNRES
1810: 45 54 29 20 7b 0a 09 20 20 20 20 2f 2a 20 53 6f ET) {.. /* So
1820: 66 74 20 45 4f 46 20 2a 2f 0a 09 20 20 20 20 62 ft EOF */.. b
1830: 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 ytesRead = 0;..
1840: 20 20 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 goto input;..
1850: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2a 65 } else {.. *e
1860: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 rrorCodePtr = Tc
1870: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 20 l_GetErrno();..
1880: 20 20 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 goto input;..
1890: 7d 0a 20 20 20 20 7d 0a 69 6e 70 75 74 3a 0a 20 }. }.input:.
18a0: 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 dprintf(stder
18b0: 72 2c 20 22 5c 6e 49 6e 70 75 74 28 25 64 29 20 r, "\nInput(%d)
18c0: 2d 3e 20 25 64 20 5b 25 64 5d 22 2c 20 62 75 66 -> %d [%d]", buf
18d0: 53 69 7a 65 2c 20 62 79 74 65 73 52 65 61 64 2c Size, bytesRead,
18e0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b *errorCodePtr);
18f0: 0a 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 65 . return byte
1900: 73 52 65 61 64 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a sRead;.}.../*. *
1910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1950: 2d 2d 2d 0a 20 2a 0a 20 2a 20 4f 75 74 70 75 74 ---. *. * Output
1960: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Proc --. *. *.Th
1970: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 is procedure is
1980: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 invoked by the g
1990: 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a eneric IO level.
19a0: 20 2a 20 20 20 20 20 20 20 74 6f 20 77 72 69 74 * to writ
19b0: 65 20 6f 75 74 70 75 74 20 74 6f 20 61 20 53 53 e output to a SS
19c0: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
19d0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
19e0: 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 6e 75 sults:. *.The nu
19f0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 mber of bytes wr
1a00: 69 74 74 65 6e 20 69 73 20 72 65 74 75 72 6e 65 itten is returne
1a10: 64 2e 20 41 6e 20 6f 75 74 70 75 74 20 61 72 67 d. An output arg
1a20: 75 6d 65 6e 74 20 69 73 0a 20 2a 09 73 65 74 20 ument is. *.set
1a30: 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 to a POSIX error
1a40: 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f code if an erro
1a50: 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 7a r occurred, or z
1a60: 65 72 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ero.. *. * Side
1a70: 65 66 66 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 effects:. *.Writ
1a80: 65 73 20 6f 75 74 70 75 74 20 6f 6e 20 74 68 65 es output on the
1a90: 20 6f 75 74 70 75 74 20 64 65 76 69 63 65 20 6f output device o
1aa0: 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 f the channel..
1ab0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1af0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
1b00: 74 69 63 20 69 6e 74 0a 4f 75 74 70 75 74 50 72 tic int.OutputPr
1b10: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
1b20: 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 stanceData,./* S
1b30: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
1b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 ch
1b50: 61 72 20 2a 62 75 66 2c 09 09 09 2f 2a 20 54 68 ar *buf,.../* Th
1b60: 65 20 64 61 74 61 20 62 75 66 66 65 72 2e 20 2a e data buffer. *
1b70: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /.
1b80: 69 6e 74 20 74 6f 57 72 69 74 65 2c 09 09 2f 2a int toWrite,../*
1b90: 20 48 6f 77 20 6d 61 6e 79 20 62 79 74 65 73 20 How many bytes
1ba0: 74 6f 20 77 72 69 74 65 3f 20 2a 2f 0a 20 20 20 to write? */.
1bb0: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 2a int *
1bc0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 09 2f 2a errorCodePtr)./*
1bd0: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 Where to store
1be0: 65 72 72 6f 72 20 63 6f 64 65 2e 20 2a 2f 0a 7b error code. */.{
1bf0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
1c00: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
1c10: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 instanceData;.
1c20: 20 20 20 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 int written,
1c30: 65 72 72 3b 0a 0a 20 20 20 20 2a 65 72 72 6f 72 err;.. *error
1c40: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 CodePtr = 0;..
1c50: 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 dprintf(stderr
1c60: 2c 22 5c 6e 42 49 4f 5f 77 72 69 74 65 28 25 64 ,"\nBIO_write(%d
1c70: 29 22 2c 20 74 6f 57 72 69 74 65 29 3b 0a 0a 20 )", toWrite);..
1c80: 20 20 20 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 if (!SSL_is_i
1c90: 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 61 nit_finished(sta
1ca0: 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 tePtr->ssl)) {..
1cb0: 77 72 69 74 74 65 6e 20 3d 20 54 6c 73 5f 57 61 written = Tls_Wa
1cc0: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 itForConnect(sta
1cd0: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 tePtr, errorCode
1ce0: 50 74 72 29 3b 0a 09 69 66 20 28 77 72 69 74 74 Ptr);..if (writt
1cf0: 65 6e 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 en <= 0) {..
1d00: 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 09 7d 0a goto output;..}.
1d10: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 }. if (st
1d20: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
1d30: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b 0a TLS_TCL_INIT) {.
1d40: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
1d50: 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 49 4e &= ~(TLS_TCL_IN
1d60: 49 54 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 IT);. }. i
1d70: 66 20 28 74 6f 57 72 69 74 65 20 3d 3d 20 30 29 f (toWrite == 0)
1d80: 20 7b 0a 09 64 70 72 69 6e 74 66 28 73 74 64 65 {..dprintf(stde
1d90: 72 72 2c 20 22 7a 65 72 6f 2d 77 72 69 74 65 5c rr, "zero-write\
1da0: 6e 22 29 3b 0a 09 42 49 4f 5f 66 6c 75 73 68 28 n");..BIO_flush(
1db0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
1dc0: 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 67 .written = 0;..g
1dd0: 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 20 20 20 20 oto output;.
1de0: 7d 20 65 6c 73 65 20 7b 0a 09 77 72 69 74 74 65 } else {..writte
1df0: 6e 20 3d 20 42 49 4f 5f 77 72 69 74 65 28 73 74 n = BIO_write(st
1e00: 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 atePtr->bio, buf
1e10: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 09 64 70 72 , toWrite);..dpr
1e20: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 5c 6e 42 intf(stderr,"\nB
1e30: 49 4f 5f 77 72 69 74 65 28 25 64 29 20 2d 3e 20 IO_write(%d) ->
1e40: 5b 25 64 5d 22 2c 20 74 6f 57 72 69 74 65 2c 20 [%d]", toWrite,
1e50: 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 7d 0a written);. }.
1e60: 20 20 20 20 69 66 20 28 77 72 69 74 74 65 6e 20 if (written
1e70: 3c 20 30 20 7c 7c 20 77 72 69 74 74 65 6e 20 3d < 0 || written =
1e80: 3d 20 30 29 20 7b 0a 09 73 77 69 74 63 68 20 28 = 0) {..switch (
1e90: 28 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 (err = SSL_get_e
1ea0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 rror(statePtr->s
1eb0: 73 6c 2c 20 77 72 69 74 74 65 6e 29 29 29 20 7b sl, written))) {
1ec0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
1ed0: 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 69 66 20 28 _NONE:.. if (
1ee0: 77 72 69 74 74 65 6e 20 3c 3d 20 30 29 20 7b 0a written <= 0) {.
1ef0: 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 ..written = 0;..
1f00: 09 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 09 20 .goto output;..
1f10: 20 20 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b }.. break;
1f20: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
1f30: 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 _WANT_WRITE:..
1f40: 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 dprintf(stderr
1f50: 2c 22 77 72 69 74 65 20 57 20 42 4c 4f 43 4b 5c ,"write W BLOCK\
1f60: 6e 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b n");.. break;
1f70: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
1f80: 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 20 _WANT_READ:..
1f90: 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c dprintf(stderr,
1fa0: 22 77 72 69 74 65 20 52 20 42 4c 4f 43 4b 5c 6e "write R BLOCK\n
1fb0: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ");.. break;.
1fc0: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
1fd0: 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 WANT_X509_LOOKUP
1fe0: 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 73 :.. dprintf(s
1ff0: 74 64 65 72 72 2c 22 77 72 69 74 65 20 58 20 42 tderr,"write X B
2000: 4c 4f 43 4b 5c 6e 22 29 3b 0a 09 20 20 20 20 62 LOCK\n");.. b
2010: 72 65 61 6b 3b 0a 09 63 61 73 65 20 53 53 4c 5f reak;..case SSL_
2020: 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 ERROR_ZERO_RETUR
2030: 4e 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 N:.. dprintf(
2040: 73 74 64 65 72 72 2c 22 63 6c 6f 73 65 64 5c 6e stderr,"closed\n
2050: 22 29 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e ");.. written
2060: 20 3d 20 30 3b 0a 09 20 20 20 20 67 6f 74 6f 20 = 0;.. goto
2070: 6f 75 74 70 75 74 3b 0a 09 63 61 73 65 20 53 53 output;..case SS
2080: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a L_ERROR_SYSCALL:
2090: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
20a0: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 Ptr = Tcl_GetErr
20b0: 6e 6f 28 29 3b 0a 09 20 20 20 20 64 70 72 69 6e no();.. dprin
20c0: 74 66 28 73 74 64 65 72 72 2c 22 5b 25 64 5d 20 tf(stderr,"[%d]
20d0: 73 79 73 63 61 6c 6c 20 65 72 72 72 3a 20 25 64 syscall errr: %d
20e0: 5c 6e 22 2c 20 77 72 69 74 74 65 6e 2c 20 54 63 \n", written, Tc
20f0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 l_GetErrno());..
2100: 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 written = -1
2110: 3b 0a 09 20 20 20 20 67 6f 74 6f 20 6f 75 74 70 ;.. goto outp
2120: 75 74 3b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 ut;..case SSL_ER
2130: 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 54 6c ROR_SSL:.. Tl
2140: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
2150: 2c 20 53 53 4c 5f 45 52 52 4f 52 28 73 74 61 74 , SSL_ERROR(stat
2160: 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 ePtr->ssl, writt
2170: 65 6e 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f en));.. *erro
2180: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
2190: 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 77 72 ABORTED;.. wr
21a0: 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 itten = -1;..
21b0: 20 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 09 64 goto output;..d
21c0: 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 efault:.. dpr
21d0: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 75 6e 6b intf(stderr,"unk
21e0: 6e 6f 77 6e 20 65 72 72 3a 20 25 64 5c 6e 22 2c nown err: %d\n",
21f0: 20 65 72 72 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a err);..}. }.
2200: 6f 75 74 70 75 74 3a 0a 20 20 20 20 64 70 72 69 output:. dpri
2210: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5c 6e 4f ntf(stderr, "\nO
2220: 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25 64 22 utput(%d) -> %d"
2230: 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 , toWrite, writt
2240: 65 6e 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 en);. return
2250: 77 72 69 74 74 65 6e 3b 0a 7d 0a 0c 0a 2f 2a 0a written;.}.../*.
2260: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22a0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 47 65 74 4f -----. *. * GetO
22b0: 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a ptionProc --. *.
22c0: 20 2a 09 43 6f 6d 70 75 74 65 73 20 61 6e 20 6f *.Computes an o
22d0: 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 6f 72 20 ption value for
22e0: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
22f0: 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 ed channel, or a
2300: 0a 20 2a 09 6c 69 73 74 20 6f 66 20 61 6c 6c 20 . *.list of all
2310: 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 options and thei
2320: 72 20 76 61 6c 75 65 73 2e 0a 20 2a 0a 20 2a 09 r values.. *. *.
2330: 4e 6f 74 65 3a 20 54 68 69 73 20 63 6f 64 65 20 Note: This code
2340: 69 73 20 62 61 73 65 64 20 6f 6e 20 63 6f 64 65 is based on code
2350: 20 63 6f 6e 74 72 69 62 75 74 65 64 20 62 79 20 contributed by
2360: 4a 6f 68 6e 20 48 61 78 62 79 2e 0a 20 2a 0a 20 John Haxby.. *.
2370: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
2380: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
2390: 75 6c 74 2e 20 54 68 65 20 76 61 6c 75 65 20 6f ult. The value o
23a0: 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 f the specified
23b0: 6f 70 74 69 6f 6e 20 6f 72 20 61 0a 20 2a 09 6c option or a. *.l
23c0: 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f ist of all optio
23d0: 6e 73 20 61 6e 64 09 74 68 65 69 72 20 76 61 6c ns and.their val
23e0: 75 65 73 20 69 73 20 72 65 74 75 72 6e 65 64 20 ues is returned
23f0: 69 6e 20 74 68 65 0a 20 2a 09 73 75 70 70 6c 69 in the. *.suppli
2400: 65 64 20 44 53 74 72 69 6e 67 2e 0a 20 2a 0a 20 ed DString.. *.
2410: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
2420: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
2430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2470: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
2480: 0a 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 .GetOptionProc(C
2490: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
24a0: 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 ceData,./* Socke
24b0: 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 t state. */.
24c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c Tcl
24d0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
24e0: 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 ../* For errors
24f0: 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a - can be NULL. *
2500: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /.
2510: 20 20 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e char *optionN
2520: 61 6d 65 2c 09 09 2f 2a 20 4e 61 6d 65 20 6f 66 ame,../* Name of
2530: 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 0a 20 the option to.
2540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2570: 2a 20 72 65 74 72 69 65 76 65 20 74 68 65 20 76 * retrieve the v
2580: 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 20 20 20 alue for, or.
2590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 *
25c0: 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 NULL to get all
25d0: 6f 70 74 69 6f 6e 73 20 61 6e 64 0a 20 20 20 20 options and.
25e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2600: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 74 * t
2610: 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a heir values. */.
2620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2630: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 64 73 Tcl_DString *ds
2640: 50 74 72 29 09 20 20 20 20 20 20 20 20 20 2f 2a Ptr). /*
2650: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 Where to store
2660: 74 68 65 20 63 6f 6d 70 75 74 65 64 20 76 61 6c the computed val
2670: 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ue.
2680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
26a0: 20 20 20 20 20 2a 20 69 6e 69 74 69 61 6c 69 7a * initializ
26b0: 65 64 20 62 79 20 63 61 6c 6c 65 72 2e 20 2a 2f ed by caller. */
26c0: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
26d0: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
26e0: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
26f0: 0a 20 20 20 20 73 69 7a 65 5f 74 20 6c 65 6e 20 . size_t len
2700: 3d 20 30 3b 0a 0a 20 20 20 20 69 66 20 28 6f 70 = 0;.. if (op
2710: 74 69 6f 6e 4e 61 6d 65 20 21 3d 20 28 63 68 61 tionName != (cha
2720: 72 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 r *) NULL) {.
2730: 20 20 20 20 20 6c 65 6e 20 3d 20 73 74 72 6c 65 len = strle
2740: 6e 28 6f 70 74 69 6f 6e 4e 61 6d 65 29 3b 0a 20 n(optionName);.
2750: 20 20 20 7d 0a 23 69 66 20 30 0a 20 20 20 20 69 }.#if 0. i
2760: 66 20 28 28 6c 65 6e 20 3d 3d 20 30 29 20 7c 7c f ((len == 0) ||
2770: 0a 20 20 20 20 20 20 20 20 28 28 6c 65 6e 20 3e . ((len >
2780: 20 31 29 20 26 26 20 28 6f 70 74 69 6f 6e 4e 61 1) && (optionNa
2790: 6d 65 5b 31 5d 20 3d 3d 20 27 63 27 29 20 26 26 me[1] == 'c') &&
27a0: 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 6e 63 . (strnc
27b0: 6d 70 28 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 mp(optionName, "
27c0: 2d 63 69 70 68 65 72 22 2c 20 6c 65 6e 29 20 3d -cipher", len) =
27d0: 3d 20 30 29 29 29 20 7b 0a 20 20 20 20 20 20 20 = 0))) {.
27e0: 20 69 66 20 28 6c 65 6e 20 3d 3d 20 30 29 20 7b if (len == 0) {
27f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c . Tcl
2800: 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c _DStringAppendEl
2810: 65 6d 65 6e 74 28 64 73 50 74 72 2c 20 22 2d 63 ement(dsPtr, "-c
2820: 69 70 68 65 72 22 29 3b 0a 20 20 20 20 20 20 20 ipher");.
2830: 20 7d 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 44 }. Tcl_D
2840: 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d StringAppendElem
2850: 65 6e 74 28 64 73 50 74 72 2c 20 53 53 4c 5f 67 ent(dsPtr, SSL_g
2860: 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 et_cipher(stateP
2870: 74 72 2d 3e 73 73 6c 29 29 3b 0a 20 20 20 20 20 tr->ssl));.
2880: 20 20 20 69 66 20 28 6c 65 6e 29 20 7b 0a 20 20 if (len) {.
2890: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e return
28a0: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 20 20 TCL_OK;.
28b0: 20 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a }. }.#endif.
28c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
28d0: 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d K;.}.../*. *----
28e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2920: 20 2a 0a 20 2a 20 57 61 74 63 68 50 72 6f 63 20 *. * WatchProc
2930: 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c --. *. *.Initial
2940: 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 65 72 ize the notifier
2950: 20 74 6f 20 77 61 74 63 68 20 54 63 6c 5f 46 69 to watch Tcl_Fi
2960: 6c 65 73 20 66 72 6f 6d 20 74 68 69 73 20 63 68 les from this ch
2970: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 annel.. *. * Res
2980: 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ults:. *.None..
2990: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
29a0: 73 3a 0a 20 2a 09 53 65 74 73 20 75 70 20 74 68 s:. *.Sets up th
29b0: 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 74 68 e notifier so th
29c0: 61 74 20 61 20 66 75 74 75 72 65 20 65 76 65 6e at a future even
29d0: 74 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c t on the channel
29e0: 0a 20 2a 09 77 69 6c 6c 20 62 65 20 73 65 65 6e . *.will be seen
29f0: 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d by Tcl.. *. *--
2a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a40: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f -. */..static vo
2a50: 69 64 0a 57 61 74 63 68 50 72 6f 63 28 43 6c 69 id.WatchProc(Cli
2a60: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
2a70: 44 61 74 61 2c 09 2f 2a 20 54 68 65 20 73 6f 63 Data,./* The soc
2a80: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 ket state. */.
2a90: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 6d int m
2aa0: 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 6e 74 73 ask).../* Events
2ab0: 20 6f 66 20 69 6e 74 65 72 65 73 74 3b 20 61 6e of interest; an
2ac0: 20 4f 52 2d 65 64 0a 20 20 20 20 20 20 20 20 20 OR-ed.
2ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2af0: 2a 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 * combination of
2b00: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 0a 20 TCL_READABLE,.
2b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2b30: 20 20 20 20 20 20 20 20 2a 20 54 43 4c 5f 57 52 * TCL_WR
2b40: 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 ITABLE and TCL_E
2b50: 58 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 XCEPTION. */.{.
2b60: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
2b70: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
2b80: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 nstanceData;..
2b90: 20 20 69 66 20 28 6d 61 73 6b 20 3d 3d 20 73 74 if (mask == st
2ba0: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
2bb0: 6b 29 0a 09 72 65 74 75 72 6e 3b 0a 0a 20 20 20 k)..return;..
2bc0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 77 if (statePtr->w
2bd0: 61 74 63 68 4d 61 73 6b 29 20 7b 0a 09 2f 2a 0a atchMask) {../*.
2be0: 09 20 2a 20 52 65 6d 6f 76 65 20 65 76 65 6e 74 . * Remove event
2bf0: 20 68 61 6e 64 6c 65 72 20 74 6f 20 75 6e 64 65 handler to unde
2c00: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2c 20 rlying channel,
2c10: 74 68 69 73 20 63 6f 75 6c 64 0a 09 20 2a 20 62 this could.. * b
2c20: 65 20 62 65 63 61 75 73 65 20 77 65 20 61 72 65 e because we are
2c30: 20 63 6c 6f 73 69 6e 67 20 66 6f 72 20 72 65 61 closing for rea
2c40: 6c 2c 20 6f 72 20 62 65 69 6e 67 20 22 75 6e 73 l, or being "uns
2c50: 74 61 63 6b 65 64 22 2e 0a 09 20 2a 2f 0a 0a 09 tacked"... */...
2c60: 54 63 6c 5f 44 65 6c 65 74 65 43 68 61 6e 6e 65 Tcl_DeleteChanne
2c70: 6c 48 61 6e 64 6c 65 72 28 54 6c 73 5f 47 65 74 lHandler(Tls_Get
2c80: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 29 Parent(statePtr)
2c90: 2c 0a 09 09 43 68 61 6e 6e 65 6c 48 61 6e 64 6c ,...ChannelHandl
2ca0: 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 er, (ClientData)
2cb0: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
2cc0: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e }. statePtr->
2cd0: 77 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b watchMask = mask
2ce0: 3b 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 ;. if (stateP
2cf0: 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 29 20 7b tr->watchMask) {
2d00: 0a 09 2f 2a 0a 09 20 2a 20 53 65 74 75 70 20 61 ../*.. * Setup a
2d10: 63 74 69 76 65 20 6d 6f 6e 69 74 6f 72 20 66 6f ctive monitor fo
2d20: 72 20 65 76 65 6e 74 73 20 6f 6e 20 75 6e 64 65 r events on unde
2d30: 72 6c 79 69 6e 67 20 43 68 61 6e 6e 65 6c 2e 0a rlying Channel..
2d40: 09 20 2a 2f 0a 0a 09 54 63 6c 5f 43 72 65 61 74 . */...Tcl_Creat
2d50: 65 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 eChannelHandler(
2d60: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
2d70: 61 74 65 50 74 72 29 2c 0a 09 09 73 74 61 74 65 atePtr),...state
2d80: 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 2c 20 Ptr->watchMask,
2d90: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 2c 20 ChannelHandler,
2da0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
2db0: 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a tePtr);. }.}.
2dc0: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
2dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
2e10: 20 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d GetHandleProc -
2e20: 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 66 -. *. *.Called f
2e30: 72 6f 6d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e rom Tcl_GetChann
2e40: 65 6c 46 69 6c 65 20 74 6f 20 72 65 74 72 69 65 elFile to retrie
2e50: 76 65 20 6f 2f 73 20 66 69 6c 65 20 68 61 6e 64 ve o/s file hand
2e60: 6c 65 72 0a 20 2a 09 66 72 6f 6d 20 74 68 65 20 ler. *.from the
2e70: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
2e80: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
2e90: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 Results:. *.The
2ea0: 61 70 70 72 6f 70 72 69 61 74 65 20 54 63 6c 5f appropriate Tcl_
2eb0: 46 69 6c 65 20 6f 72 20 4e 55 4c 4c 20 69 66 20 File or NULL if
2ec0: 6e 6f 74 20 70 72 65 73 65 6e 74 2e 20 0a 20 2a not present. . *
2ed0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
2ee0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
2ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f30: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
2f40: 6e 74 0a 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 nt.GetHandleProc
2f50: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
2f60: 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 54 68 65 anceData,./* The
2f70: 20 73 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a socket state. *
2f80: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /.
2f90: 20 20 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e int direction
2fa0: 2c 09 09 2f 2a 20 57 68 69 63 68 20 54 63 6c 5f ,../* Which Tcl_
2fb0: 46 69 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 File to retrieve
2fc0: 3f 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 ? */.
2fd0: 20 20 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 ClientData
2fe0: 20 2a 68 61 6e 64 6c 65 50 74 72 29 09 2f 2a 20 *handlePtr)./*
2ff0: 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 74 Where to store t
3000: 68 65 20 68 61 6e 64 6c 65 2e 20 20 2a 2f 0a 7b he handle. */.{
3010: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
3020: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
3030: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a instanceData;..
3040: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 return Tcl_G
3050: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 20 etChannelHandle
3060: 28 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 (Tls_GetParent(s
3070: 74 61 74 65 50 74 72 29 2c 20 64 69 72 65 63 74 tatePtr), direct
3080: 69 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 3b ion, handlePtr);
3090: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
30a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30d0: 2a 0a 20 2a 0a 20 2a 20 20 20 20 20 20 43 68 61 *. *. * Cha
30e0: 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 nnelHandler --.
30f0: 2a 0a 20 2a 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d *. * ------
3100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 20 20 ----------*. *
3130: 20 20 20 20 48 61 6e 64 6c 65 72 20 63 61 6c 6c Handler call
3140: 65 64 20 62 79 20 54 63 6c 20 61 73 20 61 20 72 ed by Tcl as a r
3150: 65 73 75 6c 74 20 6f 66 0a 20 2a 20 20 20 20 20 esult of. *
3160: 20 54 63 6c 5f 43 72 65 61 74 65 43 68 61 6e 6e Tcl_CreateChann
3170: 65 6c 48 61 6e 64 6c 65 72 20 2d 20 74 6f 20 69 elHandler - to i
3180: 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 69 nform us of acti
3190: 76 69 74 79 0a 20 2a 20 20 20 20 20 20 6f 6e 20 vity. * on
31a0: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 the underlying c
31b0: 68 61 6e 6e 65 6c 2e 0a 20 2a 20 20 20 20 20 20 hannel.. *
31c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31f0: 2a 0a 20 2a 0a 20 2a 20 20 20 20 20 20 53 69 64 *. *. * Sid
3200: 65 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 eeffects:. *
3210: 20 20 20 20 20 20 20 20 20 20 4d 61 79 20 67 65 May ge
3220: 6e 65 72 61 74 65 20 73 75 62 73 65 71 75 65 6e nerate subsequen
3230: 74 20 63 61 6c 6c 73 20 74 6f 0a 20 2a 20 20 20 t calls to. *
3240: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e Tcl_N
3250: 6f 74 69 66 79 43 68 61 6e 6e 65 6c 2e 0a 20 2a otifyChannel.. *
3260: 0a 20 2a 20 20 20 20 20 20 52 65 73 75 6c 74 3a . * Result:
3270: 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 . *
3280: 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d None.. *. *----
3290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32c0: 2d 2d 2a 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 --*. */..static
32d0: 76 6f 69 64 0a 43 68 61 6e 6e 65 6c 48 61 6e 64 void.ChannelHand
32e0: 6c 65 72 20 28 63 6c 69 65 6e 74 44 61 74 61 2c ler (clientData,
32f0: 20 6d 61 73 6b 29 0a 43 6c 69 65 6e 74 44 61 74 mask).ClientDat
3300: 61 20 20 20 20 20 63 6c 69 65 6e 74 44 61 74 61 a clientData
3310: 3b 0a 69 6e 74 20 20 20 20 20 20 20 20 20 20 20 ;.int
3320: 20 6d 61 73 6b 3b 0a 7b 0a 20 20 20 20 53 74 61 mask;.{. Sta
3330: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
3340: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
3350: 61 74 61 3b 0a 0a 64 70 72 69 6e 74 66 28 73 74 ata;..dprintf(st
3360: 64 65 72 72 2c 20 22 48 41 4e 44 4c 45 52 28 30 derr, "HANDLER(0
3370: 78 25 78 29 5c 6e 22 2c 20 6d 61 73 6b 29 3b 0a x%x)\n", mask);.
3380: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
3390: 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 ( (ClientData)st
33a0: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 atePtr);.. if
33b0: 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 (mask & TCL_REA
33c0: 44 41 42 4c 45 29 20 7b 0a 09 42 49 4f 5f 73 65 DABLE) {..BIO_se
33d0: 74 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 t_flags(statePtr
33e0: 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 ->p_bio, BIO_FLA
33f0: 47 53 5f 52 45 41 44 29 3b 0a 20 20 20 20 7d 20 GS_READ);. }
3400: 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 63 6c 65 61 else {..BIO_clea
3410: 72 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 r_flags(statePtr
3420: 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 ->p_bio, BIO_FLA
3430: 47 53 5f 52 45 41 44 29 3b 0a 20 20 20 20 7d 0a GS_READ);. }.
3440: 0a 20 20 20 20 69 66 20 28 6d 61 73 6b 20 26 20 . if (mask &
3450: 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 20 7b 0a TCL_WRITABLE) {.
3460: 09 42 49 4f 5f 73 65 74 5f 66 6c 61 67 73 28 73 .BIO_set_flags(s
3470: 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 tatePtr->p_bio,
3480: 42 49 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 29 BIO_FLAGS_WRITE)
3490: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
34a0: 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 BIO_clear_flags(
34b0: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c statePtr->p_bio,
34c0: 20 42 49 4f 5f 46 4c 41 47 53 5f 57 52 49 54 45 BIO_FLAGS_WRITE
34d0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 61 );. }.. ma
34e0: 73 6b 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 sk = 0;. if (
34f0: 42 49 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 BIO_wpending(sta
3500: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
3510: 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 mask |= TCL_WRIT
3520: 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ABLE;. }.
3530: 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 if (BIO_pending(
3540: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 statePtr->bio))
3550: 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 {..mask |= TCL_R
3560: 45 41 44 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 0a EADABLE;. }..
3570: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 54 68 /*. * Th
3580: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 4e 6f 74 69 e following Noti
3590: 66 79 43 68 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 fyChannel calls
35a0: 73 65 65 6d 73 20 74 6f 20 62 65 20 69 6d 70 6f seems to be impo
35b0: 72 74 61 6e 74 2c 20 62 75 74 0a 20 20 20 20 20 rtant, but.
35c0: 2a 20 77 65 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 * we don't know
35d0: 77 68 79 2e 20 20 49 74 20 6c 6f 6f 6b 73 20 6c why. It looks l
35e0: 69 6b 65 20 69 66 20 74 68 65 20 6d 61 73 6b 20 ike if the mask
35f0: 69 73 20 65 76 65 72 20 6e 6f 6e 2d 7a 65 72 6f is ever non-zero
3600: 0a 20 20 20 20 20 2a 20 74 68 61 74 20 69 74 20 . * that it
3610: 77 69 6c 6c 20 65 6e 74 65 72 20 61 6e 20 69 6e will enter an in
3620: 66 69 6e 69 74 65 20 6c 6f 6f 70 2e 0a 20 20 20 finite loop..
3630: 20 20 2a 0a 20 20 20 20 20 2a 20 4e 6f 74 69 66 *. * Notif
3640: 79 20 74 68 65 20 75 70 70 65 72 20 63 68 61 6e y the upper chan
3650: 6e 65 6c 20 6f 66 20 74 68 65 20 63 75 72 72 65 nel of the curre
3660: 6e 74 20 42 49 4f 20 73 74 61 74 65 20 73 6f 20 nt BIO state so
3670: 74 68 65 20 65 76 65 6e 74 0a 20 20 20 20 20 2a the event. *
3680: 20 63 6f 6e 74 69 6e 75 65 73 20 74 6f 20 70 72 continues to pr
3690: 6f 70 61 67 61 74 65 20 75 70 20 74 68 65 20 63 opagate up the c
36a0: 68 61 69 6e 2e 0a 20 20 20 20 20 2a 0a 20 20 20 hain.. *.
36b0: 20 20 2a 20 73 74 61 6e 74 6f 6e 3a 20 49 74 20 * stanton: It
36c0: 6c 6f 6f 6b 73 20 6c 69 6b 65 20 74 68 69 73 20 looks like this
36d0: 63 6f 75 6c 64 20 72 65 73 75 6c 74 20 69 6e 20 could result in
36e0: 61 6e 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 an infinite loop
36f0: 20 69 66 0a 20 20 20 20 20 2a 20 74 68 65 20 75 if. * the u
3700: 70 70 65 72 20 63 68 61 6e 6e 65 6c 20 64 6f 65 pper channel doe
3710: 73 6e 27 74 20 63 61 75 73 65 20 43 68 61 6e 6e sn't cause Chann
3720: 65 6c 48 61 6e 64 6c 65 72 20 74 6f 20 62 65 20 elHandler to be
3730: 72 65 6d 6f 76 65 64 0a 20 20 20 20 20 2a 20 62 removed. * b
3740: 65 66 6f 72 65 20 54 63 6c 5f 4e 6f 74 69 66 79 efore Tcl_Notify
3750: 43 68 61 6e 6e 65 6c 20 63 61 6c 6c 73 20 63 68 Channel calls ch
3760: 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 72 73 20 6f annel handlers o
3770: 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e n the lower chan
3780: 6e 65 6c 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 nel.. */.
3790: 20 0a 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 . Tcl_Notify
37a0: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
37b0: 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a 20 ->self, mask);.
37c0: 20 20 20 0a 20 20 20 20 69 66 20 28 73 74 61 74 . if (stat
37d0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 ePtr->timer != (
37e0: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e Tcl_TimerToken)N
37f0: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 ULL) {..Tcl_Dele
3800: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
3810: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
3820: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
3830: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
3840: 6b 65 6e 29 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a ken)NULL;. }.
3850: 20 20 20 20 69 66 20 28 28 6d 61 73 6b 20 26 20 if ((mask &
3860: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 TCL_READABLE) &&
3870: 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 Tcl_InputBuffer
3880: 65 64 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ed (statePtr->se
3890: 6c 66 29 20 3e 20 30 29 20 7b 0a 09 2f 2a 0a 09 lf) > 0) {../*..
38a0: 20 2a 20 44 61 74 61 20 69 73 20 77 61 69 74 69 * Data is waiti
38b0: 6e 67 2c 20 66 6c 75 73 68 20 69 74 20 6f 75 74 ng, flush it out
38c0: 20 69 6e 20 73 68 6f 72 74 20 74 69 6d 65 0a 09 in short time..
38d0: 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 */..statePtr->t
38e0: 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 imer = Tcl_Creat
38f0: 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 54 4c eTimerHandler(TL
3900: 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 0a 09 09 43 S_TCL_DELAY,...C
3910: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d hannelHandlerTim
3920: 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 er, (ClientData)
3930: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
3940: 7d 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 }. Tcl_Releas
3950: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 73 e( (ClientData)s
3960: 74 61 74 65 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a tatePtr);.}.../*
3970: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
39b0: 09 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 .ChannelHandlerT
39c0: 69 6d 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d imer --. *. *.--
39d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
3a00: 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 *.Called by the
3a10: 20 6e 6f 74 69 66 69 65 72 20 28 2d 3e 20 74 69 notifier (-> ti
3a20: 6d 65 72 29 20 74 6f 20 66 6c 75 73 68 20 6f 75 mer) to flush ou
3a30: 74 0a 20 2a 09 69 6e 66 6f 72 6d 61 74 69 6f 6e t. *.information
3a40: 20 77 61 69 74 69 6e 67 20 69 6e 20 63 68 61 6e waiting in chan
3a50: 6e 65 6c 20 62 75 66 66 65 72 73 2e 0a 20 2a 09 nel buffers.. *.
3a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a90: 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 65 66 66 65 *. *. *.Sideeffe
3aa0: 63 74 73 3a 0a 20 2a 09 09 41 73 20 6f 66 20 27 cts:. *..As of '
3ab0: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 27 2e ChannelHandler'.
3ac0: 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 . *. *.Result:.
3ad0: 2a 09 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *..None.. *. *--
3ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b10: 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 73 74 61 74 69 ----*. */..stati
3b20: 63 20 76 6f 69 64 0a 43 68 61 6e 6e 65 6c 48 61 c void.ChannelHa
3b30: 6e 64 6c 65 72 54 69 6d 65 72 20 28 63 6c 69 65 ndlerTimer (clie
3b40: 6e 74 44 61 74 61 29 0a 43 6c 69 65 6e 74 44 61 ntData).ClientDa
3b50: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 20 2f ta clientData; /
3b60: 2a 20 54 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e * Transformation
3b70: 20 74 6f 20 71 75 65 72 79 20 2a 2f 0a 7b 0a 20 to query */.{.
3b80: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
3b90: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 63 tr = (State *) c
3ba0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 lientData;. i
3bb0: 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a 0a 20 20 nt mask = 0;..
3bc0: 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 statePtr->time
3bd0: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
3be0: 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 ken) NULL;..
3bf0: 69 66 20 28 42 49 4f 5f 77 70 65 6e 64 69 6e 67 if (BIO_wpending
3c00: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
3c10: 20 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f {..mask |= TCL_
3c20: 57 52 49 54 41 42 4c 45 3b 0a 20 20 20 20 7d 0a WRITABLE;. }.
3c30: 20 20 20 20 69 66 20 28 42 49 4f 5f 70 65 6e 64 if (BIO_pend
3c40: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ing(statePtr->bi
3c50: 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54 o)) {..mask |= T
3c60: 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 20 20 20 CL_READABLE;.
3c70: 20 7d 0a 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 }. Tcl_Notif
3c80: 79 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 yChannel(statePt
3c90: 72 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a r->self, mask);.
3ca0: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
3cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
3ce0: 0a 20 2a 0a 20 2a 09 54 6c 73 5f 57 61 69 74 46 . *. *.Tls_WaitF
3cf0: 6f 72 43 6f 6e 6e 65 63 74 20 2d 2d 0a 20 2a 0a orConnect --. *.
3d00: 20 2a 09 53 69 64 65 65 66 66 65 63 74 73 3a 0a *.Sideeffects:.
3d10: 20 2a 09 09 49 73 73 75 65 73 20 53 53 4c 5f 61 *..Issues SSL_a
3d20: 63 63 65 70 74 20 6f 72 20 53 53 4c 5f 63 6f 6e ccept or SSL_con
3d30: 6e 65 63 74 0a 20 2a 0a 20 2a 09 52 65 73 75 6c nect. *. *.Resul
3d40: 74 3a 0a 20 2a 09 09 4e 6f 6e 65 2e 0a 20 2a 0a t:. *..None.. *.
3d50: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d80: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 69 6e --------*. */.in
3d90: 74 0a 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e t.Tls_WaitForCon
3da0: 6e 65 63 74 28 20 73 74 61 74 65 50 74 72 2c 20 nect( statePtr,
3db0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 0a 20 20 errorCodePtr).
3dc0: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
3dd0: 72 3b 0a 20 20 20 20 69 6e 74 20 2a 65 72 72 6f r;. int *erro
3de0: 72 43 6f 64 65 50 74 72 3b 09 09 2f 2a 20 57 68 rCodePtr;../* Wh
3df0: 65 72 65 20 74 6f 20 73 74 6f 72 65 20 65 72 72 ere to store err
3e00: 6f 72 20 63 6f 64 65 2e 20 2a 2f 0a 7b 0a 20 20 or code. */.{.
3e10: 20 20 69 6e 74 20 65 72 72 3b 0a 0a 20 20 20 20 int err;..
3e20: 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 dprintf(stderr,"
3e30: 5c 6e 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 \nWaitForConnect
3e40: 28 30 78 25 78 29 22 2c 20 73 74 61 74 65 50 74 (0x%x)", statePt
3e50: 72 29 3b 0a 0a 20 20 20 20 66 6f 72 20 28 3b 3b r);.. for (;;
3e60: 29 20 7b 0a 09 2f 2a 20 4e 6f 74 20 69 6e 69 74 ) {../* Not init
3e70: 69 61 6c 69 7a 65 64 20 79 65 74 21 20 2a 2f 0a ialized yet! */.
3e80: 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 .if (statePtr->f
3e90: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 lags & TLS_TCL_S
3ea0: 45 52 56 45 52 29 20 7b 0a 09 20 20 20 20 65 72 ERVER) {.. er
3eb0: 72 20 3d 20 53 53 4c 5f 61 63 63 65 70 74 28 73 r = SSL_accept(s
3ec0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 tatePtr->ssl);..
3ed0: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 65 72 } else {.. er
3ee0: 72 20 3d 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 28 r = SSL_connect(
3ef0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
3f00: 09 7d 0a 09 2f 2a 53 53 4c 5f 77 72 69 74 65 28 .}../*SSL_write(
3f10: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 28 statePtr->ssl, (
3f20: 63 68 61 72 2a 29 26 65 72 72 2c 20 30 29 3b 09 char*)&err, 0);.
3f30: 48 41 43 4b 21 21 21 20 2a 2f 0a 09 69 66 20 28 HACK!!! */..if (
3f40: 65 72 72 20 3e 20 30 29 0a 09 20 20 20 20 42 49 err > 0).. BI
3f50: 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 O_flush(statePtr
3f60: 2d 3e 62 69 6f 29 3b 0a 0a 09 69 66 20 28 65 72 ->bio);...if (er
3f70: 72 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 69 r <= 0) {.. i
3f80: 6e 74 20 72 63 20 3d 20 53 53 4c 5f 67 65 74 5f nt rc = SSL_get_
3f90: 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e error(statePtr->
3fa0: 73 73 6c 2c 20 65 72 72 29 3b 0a 0a 09 20 20 20 ssl, err);...
3fb0: 20 69 66 20 28 72 63 20 3d 3d 20 53 53 4c 5f 45 if (rc == SSL_E
3fc0: 52 52 4f 52 5f 53 53 4c 29 20 7b 0a 09 09 54 6c RROR_SSL) {...Tl
3fd0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
3fe0: 2c 20 28 63 68 61 72 2a 29 45 52 52 5f 72 65 61 , (char*)ERR_rea
3ff0: 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 son_error_string
4000: 28 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 (ERR_get_error()
4010: 29 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 ));...*errorCode
4020: 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 Ptr = ECONNABORT
4030: 45 44 3b 0a 09 09 72 65 74 75 72 6e 20 2d 31 3b ED;...return -1;
4040: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
4050: 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 (BIO_should_retr
4060: 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 y(statePtr->bio)
4070: 29 20 7b 0a 09 09 69 66 20 28 73 74 61 74 65 50 ) {...if (stateP
4080: 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f tr->flags & TLS_
4090: 54 43 4c 5f 41 53 59 4e 43 29 20 7b 0a 09 09 20 TCL_ASYNC) {...
40a0: 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 dprintf(stder
40b0: 72 2c 22 45 21 20 22 29 3b 0a 09 09 20 20 20 20 r,"E! ");...
40c0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
40d0: 45 41 47 41 49 4e 3b 0a 09 09 20 20 20 20 72 65 EAGAIN;... re
40e0: 74 75 72 6e 20 2d 31 3b 0a 09 09 7d 20 65 6c 73 turn -1;...} els
40f0: 65 20 7b 0a 09 09 20 20 20 20 63 6f 6e 74 69 6e e {... contin
4100: 75 65 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 20 65 ue;...}.. } e
4110: 6c 73 65 20 69 66 20 28 65 72 72 20 3d 3d 20 30 lse if (err == 0
4120: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 73 74 ) {...dprintf(st
4130: 64 65 72 72 2c 22 43 52 21 20 22 29 3b 0a 09 09 derr,"CR! ");...
4140: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
4150: 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 09 72 65 ECONNRESET;...re
4160: 74 75 72 6e 20 2d 31 3b 0a 09 20 20 20 20 7d 0a turn -1;.. }.
4170: 09 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
4180: 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 r->flags & TLS_T
4190: 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a 09 09 65 CL_SERVER) {...e
41a0: 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 76 65 72 rr = SSL_get_ver
41b0: 69 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 ify_result(state
41c0: 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 09 69 66 20 Ptr->ssl);...if
41d0: 28 65 72 72 20 21 3d 20 58 35 30 39 5f 56 5f 4f (err != X509_V_O
41e0: 4b 29 20 7b 0a 09 09 20 20 20 20 54 6c 73 5f 45 K) {... Tls_E
41f0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 rror(statePtr, (
4200: 63 68 61 72 2a 29 58 35 30 39 5f 76 65 72 69 66 char*)X509_verif
4210: 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 y_cert_error_str
4220: 69 6e 67 28 65 72 72 29 29 3b 0a 09 09 20 20 20 ing(err));...
4230: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
4240: 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 ECONNABORTED;..
4250: 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a . return -1;.
4260: 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ..}.. }..
4270: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
4280: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a Tcl_GetErrno();.
4290: 09 20 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 . dprintf(std
42a0: 65 72 72 2c 22 45 52 52 28 25 64 2c 20 25 64 29 err,"ERR(%d, %d)
42b0: 20 22 2c 20 72 63 2c 20 2a 65 72 72 6f 72 43 6f ", rc, *errorCo
42c0: 64 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74 dePtr);.. ret
42d0: 75 72 6e 20 2d 31 3b 0a 09 7d 0a 09 64 70 72 69 urn -1;..}..dpri
42e0: 6e 74 66 28 73 74 64 65 72 72 2c 22 52 30 21 20 ntf(stderr,"R0!
42f0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 31 3b 0a 20 ");..return 1;.
4300: 20 20 20 7d 0a 7d 0a 0a 54 63 6c 5f 43 68 61 6e }.}..Tcl_Chan
4310: 6e 65 6c 0a 54 6c 73 5f 47 65 74 50 61 72 65 6e nel.Tls_GetParen
4320: 74 28 20 73 74 61 74 65 50 74 72 20 29 0a 20 20 t( statePtr ).
4330: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
4340: 72 3b 0a 7b 0a 23 69 66 20 54 43 4c 5f 4d 41 4a r;.{.#if TCL_MAJ
4350: 4f 52 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 20 OR_VERSION == 8
4360: 26 26 20 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 && TCL_MINOR_VER
4370: 53 49 4f 4e 20 3c 20 32 0a 20 20 20 20 72 65 74 SION < 2. ret
4380: 75 72 6e 20 73 74 61 74 65 50 74 72 2d 3e 70 61 urn statePtr->pa
4390: 72 65 6e 74 3b 0a 23 65 6c 73 65 0a 20 20 20 20 rent;.#else.
43a0: 2f 2a 20 54 68 65 20 72 65 61 73 6f 6e 20 66 6f /* The reason fo
43b0: 72 20 74 68 65 20 65 78 69 73 74 65 6e 63 65 20 r the existence
43c0: 6f 66 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 of this procedur
43d0: 65 20 69 73 0a 20 20 20 20 20 2a 20 74 68 65 20 e is. * the
43e0: 66 61 63 74 20 74 68 61 74 20 73 74 61 63 6b 69 fact that stacki
43f0: 6e 67 20 61 20 74 72 61 6e 73 66 6f 72 6d 20 6f ng a transform o
4400: 76 65 72 20 61 6e 6f 74 68 65 72 0a 20 20 20 20 ver another.
4410: 20 2a 20 74 72 61 6e 73 66 6f 72 6d 20 77 69 6c * transform wil
4420: 6c 20 6c 65 61 76 65 20 6f 75 72 20 69 6e 74 65 l leave our inte
4430: 72 6e 61 6c 20 70 6f 69 6e 74 65 72 20 75 6e 63 rnal pointer unc
4440: 68 61 6e 67 65 64 2c 0a 20 20 20 20 20 2a 20 61 hanged,. * a
4450: 6e 64 20 74 68 75 73 20 70 6f 69 6e 74 69 6e 67 nd thus pointing
4460: 20 74 6f 20 74 68 65 20 6e 65 77 20 74 72 61 6e to the new tran
4470: 73 66 6f 72 6d 2c 20 61 6e 64 20 6e 6f 74 20 74 sform, and not t
4480: 68 65 0a 20 20 20 20 20 2a 20 43 68 61 6e 6e 65 he. * Channe
4490: 6c 20 73 74 72 75 63 74 75 72 65 20 63 6f 6e 74 l structure cont
44a0: 61 69 6e 69 6e 67 20 74 68 65 20 73 61 76 65 64 aining the saved
44b0: 20 73 74 61 74 65 20 6f 66 20 74 68 69 73 0a 20 state of this.
44c0: 20 20 20 20 2a 20 74 72 61 6e 73 66 6f 72 6d 2e * transform.
44d0: 20 54 68 69 73 20 69 73 20 74 68 65 20 70 72 69 This is the pri
44e0: 63 65 20 74 6f 20 70 61 79 20 66 6f 72 20 6c 65 ce to pay for le
44f0: 61 76 69 6e 67 0a 20 20 20 20 20 2a 20 54 63 6c aving. * Tcl
4500: 5f 43 68 61 6e 6e 65 6c 20 72 65 66 65 72 65 6e _Channel referen
4510: 63 65 73 20 69 6e 74 61 63 74 2e 20 54 68 65 20 ces intact. The
4520: 6f 6e 6c 79 20 6f 74 68 65 72 20 73 6f 6c 75 74 only other solut
4530: 69 6f 6e 0a 20 20 20 20 20 2a 20 69 73 20 61 6e ion. * is an
4540: 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 20 54 63 extension of Tc
4550: 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 77 69 l_ChannelType wi
4560: 74 68 20 61 6e 6f 74 68 65 72 20 64 72 69 76 65 th another drive
4570: 72 0a 20 20 20 20 20 2a 20 70 72 6f 63 65 64 75 r. * procedu
4580: 72 65 20 74 6f 20 6e 6f 74 69 66 79 20 61 20 43 re to notify a C
4590: 68 61 6e 6e 65 6c 20 61 62 6f 75 74 20 74 68 65 hannel about the
45a0: 20 28 75 6e 29 73 74 61 63 6b 69 6e 67 2e 0a 20 (un)stacking..
45b0: 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 49 74 20 *. * It
45c0: 77 61 6c 6b 73 20 74 68 65 20 63 68 61 69 6e 20 walks the chain
45d0: 6f 66 20 43 68 61 6e 6e 65 6c 20 73 74 72 75 63 of Channel struc
45e0: 74 75 72 65 73 20 75 6e 74 69 6c 20 69 74 0a 20 tures until it.
45f0: 20 20 20 20 2a 20 66 69 6e 64 73 20 74 68 65 20 * finds the
4600: 6f 6e 65 20 70 6f 69 6e 74 69 6e 67 20 68 61 76 one pointing hav
4610: 69 6e 67 20 27 63 74 72 6c 27 20 61 73 20 69 6e ing 'ctrl' as in
4620: 73 74 61 6e 63 65 44 61 74 61 0a 20 20 20 20 20 stanceData.
4630: 2a 20 61 6e 64 20 74 68 65 6e 20 72 65 74 75 72 * and then retur
4640: 6e 73 20 74 68 65 20 73 75 70 65 72 63 65 64 69 ns the supercedi
4650: 6e 67 20 63 68 61 6e 6e 65 6c 20 74 6f 20 74 68 ng channel to th
4660: 61 74 2e 20 28 41 4b 29 0a 20 20 20 20 20 2a 2f at. (AK). */
4670: 0a 20 0a 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . . Tcl_Channel
4680: 20 73 65 6c 66 20 3d 20 73 74 61 74 65 50 74 72 self = statePtr
4690: 2d 3e 73 65 6c 66 3b 0a 20 20 54 63 6c 5f 43 68 ->self;. Tcl_Ch
46a0: 61 6e 6e 65 6c 20 6e 65 78 74 3b 0a 0a 20 20 77 annel next;.. w
46b0: 68 69 6c 65 20 28 28 43 6c 69 65 6e 74 44 61 74 hile ((ClientDat
46c0: 61 29 20 73 74 61 74 65 50 74 72 20 21 3d 20 54 a) statePtr != T
46d0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
46e0: 74 61 6e 63 65 44 61 74 61 20 28 73 65 6c 66 29 tanceData (self)
46f0: 29 20 7b 0a 20 20 20 20 6e 65 78 74 20 3d 20 54 ) {. next = T
4700: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
4710: 6e 6e 65 6c 20 28 73 65 6c 66 29 3b 0a 20 20 20 nnel (self);.
4720: 20 69 66 20 28 6e 65 78 74 20 3d 3d 20 28 54 63 if (next == (Tc
4730: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
4740: 20 7b 0a 20 20 20 20 20 20 2f 2a 20 30 39 2f 32 {. /* 09/2
4750: 34 2f 31 39 39 39 20 55 6e 73 74 61 63 6b 69 6e 4/1999 Unstackin
4760: 67 20 62 75 67 2c 20 66 6f 75 6e 64 20 62 79 20 g bug, found by
4770: 4d 61 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 Matt Newman <mat
4780: 74 40 73 65 6e 73 75 73 2e 6f 72 67 3e 2e 0a 20 t@sensus.org>..
4790: 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 2a *. *
47a0: 20 57 65 20 77 65 72 65 20 75 6e 61 62 6c 65 20 We were unable
47b0: 74 6f 20 66 69 6e 64 20 74 68 65 20 63 68 61 6e to find the chan
47c0: 6e 65 6c 20 73 74 72 75 63 74 75 72 65 20 66 6f nel structure fo
47d0: 72 20 74 68 69 73 0a 20 20 20 20 20 20 20 2a 20 r this. *
47e0: 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 69 transformation i
47f0: 6e 20 74 68 65 20 63 68 61 69 6e 20 6f 66 20 73 n the chain of s
4800: 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2e 20 tacked channel.
4810: 54 68 69 73 0a 20 20 20 20 20 20 20 2a 20 6d 65 This. * me
4820: 61 6e 73 20 74 68 61 74 20 77 65 20 61 72 65 20 ans that we are
4830: 63 75 72 72 65 6e 74 6c 79 20 69 6e 20 74 68 65 currently in the
4840: 20 70 72 6f 63 65 73 73 20 6f 66 20 75 6e 73 74 process of unst
4850: 61 63 6b 69 6e 67 0a 20 20 20 20 20 20 20 2a 20 acking. *
4860: 69 74 20 2a 61 6e 64 2a 20 74 68 65 72 65 20 77 it *and* there w
4870: 65 72 65 20 73 6f 6d 65 20 62 79 74 65 73 20 77 ere some bytes w
4880: 61 69 74 69 6e 67 20 77 68 69 63 68 20 61 72 65 aiting which are
4890: 20 6e 6f 77 0a 20 20 20 20 20 20 20 2a 20 66 6c now. * fl
48a0: 75 73 68 65 64 2e 20 49 6e 20 74 68 69 73 20 73 ushed. In this s
48b0: 69 74 75 61 74 69 6f 6e 20 74 68 65 20 70 6f 69 ituation the poi
48c0: 6e 74 65 72 20 74 6f 20 74 68 65 20 63 68 61 6e nter to the chan
48d0: 6e 65 6c 0a 20 20 20 20 20 20 20 2a 20 69 74 73 nel. * its
48e0: 65 6c 66 20 61 6c 72 65 61 64 79 20 72 65 66 65 elf already refe
48f0: 72 73 20 74 6f 20 74 68 65 20 70 61 72 65 6e 74 rs to the parent
4900: 20 63 68 61 6e 6e 65 6c 20 77 65 20 68 61 76 65 channel we have
4910: 20 74 6f 0a 20 20 20 20 20 20 20 2a 20 77 72 69 to. * wri
4920: 74 65 20 74 68 65 20 62 79 74 65 73 20 69 6e 74 te the bytes int
4930: 6f 2c 20 73 6f 20 77 65 20 72 65 74 75 72 6e 20 o, so we return
4940: 74 68 61 74 2e 0a 20 20 20 20 20 20 20 2a 2f 0a that.. */.
4950: 20 20 20 20 20 20 72 65 74 75 72 6e 20 73 74 61 return sta
4960: 74 65 50 74 72 2d 3e 73 65 6c 66 3b 0a 20 20 20 tePtr->self;.
4970: 20 7d 0a 20 20 20 20 73 65 6c 66 20 3d 20 6e 65 }. self = ne
4980: 78 74 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 xt;. }.. retur
4990: 6e 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 n Tcl_GetStacked
49a0: 43 68 61 6e 6e 65 6c 20 28 73 65 6c 66 29 3b 0a Channel (self);.
49b0: 23 65 6e 64 69 66 0a 7d 0a #endif.}.