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 36 20 32 30 30 30 2f 30 36 .c,v 1.6 2000/06
0090: 2f 30 32 20 30 35 3a 31 34 3a 34 36 20 77 65 6c /02 05:14:46 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 63 6c 5f 45 }.. Tcl_E
10f0: 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 28 20 28 ventuallyFree( (
1100: 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 74 65 ClientData)state
1110: 50 74 72 2c 20 54 6c 73 5f 46 72 65 65 29 3b 0a Ptr, Tls_Free);.
1120: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
1130: 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d K;.}.../*. *----
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 49 6e 70 75 74 50 72 6f 63 20 *. * InputProc
1190: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
11a0: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b ocedure is invok
11b0: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
11c0: 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 c IO level. *
11d0: 20 20 20 20 74 6f 20 72 65 61 64 20 69 6e 70 75 to read inpu
11e0: 74 20 66 72 6f 6d 20 61 20 53 53 4c 20 73 6f 63 t from a SSL soc
11f0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
1200: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 l.. *. * Results
1210: 3a 0a 20 2a 09 54 68 65 20 6e 75 6d 62 65 72 20 :. *.The number
1220: 6f 66 20 62 79 74 65 73 20 72 65 61 64 20 69 73 of bytes read is
1230: 20 72 65 74 75 72 6e 65 64 20 6f 72 20 2d 31 20 returned or -1
1240: 6f 6e 20 65 72 72 6f 72 2e 20 41 6e 20 6f 75 74 on error. An out
1250: 70 75 74 0a 20 2a 09 61 72 67 75 6d 65 6e 74 20 put. *.argument
1260: 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 50 4f 53 contains the POS
1270: 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 6f 6e IX error code on
1280: 20 65 72 72 6f 72 2c 20 6f 72 20 7a 65 72 6f 20 error, or zero
1290: 69 66 20 6e 6f 0a 20 2a 09 65 72 72 6f 72 20 6f if no. *.error o
12a0: 63 63 75 72 72 65 64 2e 0a 20 2a 0a 20 2a 20 53 ccurred.. *. * S
12b0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
12c0: 52 65 61 64 73 20 69 6e 70 75 74 20 66 72 6f 6d Reads input from
12d0: 20 74 68 65 20 69 6e 70 75 74 20 64 65 76 69 63 the input devic
12e0: 65 20 6f 66 20 74 68 65 20 63 68 61 6e 6e 65 6c e of the channel
12f0: 2e 0a 20 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
1340: 73 74 61 74 69 63 20 69 6e 74 0a 49 6e 70 75 74 static int.Input
1350: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
1360: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a instanceData,./*
1370: 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a Socket state. *
1380: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 /. c
1390: 68 61 72 20 2a 62 75 66 2c 09 09 09 2f 2a 20 57 har *buf,.../* W
13a0: 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 64 61 here to store da
13b0: 74 61 20 72 65 61 64 2e 20 2a 2f 0a 20 20 20 20 ta read. */.
13c0: 20 20 20 20 20 20 20 20 20 69 6e 74 20 62 75 66 int buf
13d0: 53 69 7a 65 2c 09 09 2f 2a 20 48 6f 77 20 6d 75 Size,../* How mu
13e0: 63 68 20 73 70 61 63 65 20 69 73 20 61 76 61 69 ch space is avai
13f0: 6c 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 lable.
1400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a *
1420: 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 3f 20 in the buffer?
1430: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 */.
1440: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
1450: 72 29 09 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 r)../* Where to
1460: 73 74 6f 72 65 20 65 72 72 6f 72 20 63 6f 64 65 store error code
1470: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 . */.{. State
1480: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
1490: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
14a0: 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 62 79 74 ata;. int byt
14b0: 65 73 52 65 61 64 3b 09 09 09 2f 2a 20 48 6f 77 esRead;.../* How
14c0: 20 6d 61 6e 79 20 62 79 74 65 73 20 77 65 72 65 many bytes were
14d0: 20 72 65 61 64 3f 20 2a 2f 0a 0a 20 20 20 20 2a read? */.. *
14e0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
14f0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73 ;.. dprintf(s
1500: 74 64 65 72 72 2c 22 5c 6e 42 49 4f 5f 72 65 61 tderr,"\nBIO_rea
1510: 64 28 25 64 29 22 2c 20 62 75 66 53 69 7a 65 29 d(%d)", bufSize)
1520: 3b 0a 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f ;.. if (!SSL_
1530: 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 is_init_finished
1540: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 (statePtr->ssl))
1550: 20 7b 0a 09 62 79 74 65 73 52 65 61 64 20 3d 20 {..bytesRead =
1560: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
1570: 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 72 72 ct(statePtr, err
1580: 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 69 66 20 orCodePtr);..if
1590: 28 62 79 74 65 73 52 65 61 64 20 3c 3d 20 30 29 (bytesRead <= 0)
15a0: 20 7b 0a 09 20 20 20 20 67 6f 74 6f 20 69 6e 70 {.. goto inp
15b0: 75 74 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 ut;..}. }.
15c0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
15d0: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 lags & TLS_TCL_I
15e0: 4e 49 54 29 20 7b 0a 09 73 74 61 74 65 50 74 72 NIT) {..statePtr
15f0: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 ->flags &= ~(TLS
1600: 5f 54 43 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20 _TCL_INIT);.
1610: 7d 0a 20 20 20 20 62 79 74 65 73 52 65 61 64 20 }. bytesRead
1620: 3d 20 42 49 4f 5f 72 65 61 64 28 73 74 61 74 65 = BIO_read(state
1630: 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 62 Ptr->bio, buf, b
1640: 75 66 53 69 7a 65 29 3b 0a 20 20 20 20 64 70 72 ufSize);. dpr
1650: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 5c 6e 42 intf(stderr,"\nB
1660: 49 4f 5f 72 65 61 64 20 2d 3e 20 25 64 22 2c 20 IO_read -> %d",
1670: 62 79 74 65 73 52 65 61 64 29 3b 0a 0a 20 20 20 bytesRead);..
1680: 20 69 66 20 28 62 79 74 65 73 52 65 61 64 20 3c if (bytesRead <
1690: 20 30 29 20 7b 0a 09 69 6e 74 20 65 72 72 20 3d 0) {..int err =
16a0: 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 SSL_get_error(s
16b0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 62 79 tatePtr->ssl, by
16c0: 74 65 73 52 65 61 64 29 3b 0a 0a 09 69 66 20 28 tesRead);...if (
16d0: 65 72 72 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 err == SSL_ERROR
16e0: 5f 53 53 4c 29 20 7b 0a 09 20 20 20 20 54 6c 73 _SSL) {.. Tls
16f0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c _Error(statePtr,
1700: 20 53 53 4c 5f 45 52 52 4f 52 28 73 74 61 74 65 SSL_ERROR(state
1710: 50 74 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 Ptr->ssl, bytesR
1720: 65 61 64 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 ead));.. *err
1730: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e orCodePtr = ECON
1740: 4e 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 67 NABORTED;.. g
1750: 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 7d 20 65 6c oto input;..} el
1760: 73 65 20 69 66 20 28 42 49 4f 5f 73 68 6f 75 6c se if (BIO_shoul
1770: 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 72 d_retry(statePtr
1780: 2d 3e 62 69 6f 29 29 20 7b 0a 09 20 20 20 20 64 ->bio)) {.. d
1790: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 52 printf(stderr,"R
17a0: 45 21 20 22 29 3b 0a 09 20 20 20 20 2a 65 72 72 E! ");.. *err
17b0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
17c0: 49 4e 3b 0a 09 20 20 20 20 67 6f 74 6f 20 69 6e IN;.. goto in
17d0: 70 75 74 3b 0a 09 7d 0a 09 69 66 20 28 54 63 6c put;..}..if (Tcl
17e0: 5f 47 65 74 45 72 72 6e 6f 28 29 20 3d 3d 20 45 _GetErrno() == E
17f0: 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 20 20 CONNRESET) {..
1800: 20 20 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f /* Soft EOF */
1810: 0a 09 20 20 20 20 62 79 74 65 73 52 65 61 64 20 .. bytesRead
1820: 3d 20 30 3b 0a 09 20 20 20 20 67 6f 74 6f 20 69 = 0;.. goto i
1830: 6e 70 75 74 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a nput;..} else {.
1840: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
1850: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
1860: 6f 28 29 3b 0a 09 20 20 20 20 67 6f 74 6f 20 69 o();.. goto i
1870: 6e 70 75 74 3b 0a 09 7d 0a 20 20 20 20 7d 0a 69 nput;..}. }.i
1880: 6e 70 75 74 3a 0a 20 20 20 20 64 70 72 69 6e 74 nput:. dprint
1890: 66 28 73 74 64 65 72 72 2c 20 22 5c 6e 49 6e 70 f(stderr, "\nInp
18a0: 75 74 28 25 64 29 20 2d 3e 20 25 64 20 5b 25 64 ut(%d) -> %d [%d
18b0: 5d 22 2c 20 62 75 66 53 69 7a 65 2c 20 62 79 74 ]", bufSize, byt
18c0: 65 73 52 65 61 64 2c 20 2a 65 72 72 6f 72 43 6f esRead, *errorCo
18d0: 64 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 dePtr);. retu
18e0: 72 6e 20 62 79 74 65 73 52 65 61 64 3b 0a 7d 0a rn bytesRead;.}.
18f0: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a ----------. *. *
1940: 20 4f 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 OutputProc --.
1950: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
1960: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 ure is invoked b
1970: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f y the generic IO
1980: 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 level. *
1990: 74 6f 20 77 72 69 74 65 20 6f 75 74 70 75 74 20 to write output
19a0: 74 6f 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 to a SSL socket
19b0: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 based channel..
19c0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
19d0: 09 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 .The number of b
19e0: 79 74 65 73 20 77 72 69 74 74 65 6e 20 69 73 20 ytes written is
19f0: 72 65 74 75 72 6e 65 64 2e 20 41 6e 20 6f 75 74 returned. An out
1a00: 70 75 74 20 61 72 67 75 6d 65 6e 74 20 69 73 0a put argument is.
1a10: 20 2a 09 73 65 74 20 74 6f 20 61 20 50 4f 53 49 *.set to a POSI
1a20: 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 20 X error code if
1a30: 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 an error occurre
1a40: 64 2c 20 6f 72 20 7a 65 72 6f 2e 0a 20 2a 0a 20 d, or zero.. *.
1a50: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
1a60: 20 2a 09 57 72 69 74 65 73 20 6f 75 74 70 75 74 *.Writes output
1a70: 20 6f 6e 20 74 68 65 20 6f 75 74 70 75 74 20 64 on the output d
1a80: 65 76 69 63 65 20 6f 66 20 74 68 65 20 63 68 61 evice of the cha
1a90: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ab0: 2d 2d 2d 2d 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 0a 20 --------------.
1ae0: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 4f */..static int.O
1af0: 75 74 70 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 utputProc(Client
1b00: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
1b10: 61 2c 09 2f 2a 20 53 6f 63 6b 65 74 20 73 74 61 a,./* Socket sta
1b20: 74 65 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 te. */.
1b30: 20 20 20 20 20 63 68 61 72 20 2a 62 75 66 2c 09 char *buf,.
1b40: 09 09 2f 2a 20 54 68 65 20 64 61 74 61 20 62 75 ../* The data bu
1b50: 66 66 65 72 2e 20 2a 2f 0a 20 20 20 20 20 20 20 ffer. */.
1b60: 20 20 20 20 20 20 20 69 6e 74 20 74 6f 57 72 69 int toWri
1b70: 74 65 2c 09 09 2f 2a 20 48 6f 77 20 6d 61 6e 79 te,../* How many
1b80: 20 62 79 74 65 73 20 74 6f 20 77 72 69 74 65 3f bytes to write?
1b90: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 */.
1ba0: 20 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 int *errorCode
1bb0: 50 74 72 29 09 2f 2a 20 57 68 65 72 65 20 74 6f Ptr)./* Where to
1bc0: 20 73 74 6f 72 65 20 65 72 72 6f 72 20 63 6f 64 store error cod
1bd0: 65 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 e. */.{. Stat
1be0: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
1bf0: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
1c00: 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 77 72 Data;. int wr
1c10: 69 74 74 65 6e 2c 20 65 72 72 3b 0a 0a 20 20 20 itten, err;..
1c20: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
1c30: 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 0;.. dprintf
1c40: 28 73 74 64 65 72 72 2c 22 5c 6e 42 49 4f 5f 77 (stderr,"\nBIO_w
1c50: 72 69 74 65 28 25 64 29 22 2c 20 74 6f 57 72 69 rite(%d)", toWri
1c60: 74 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 53 te);.. if (!S
1c70: 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 SL_is_init_finis
1c80: 68 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73 hed(statePtr->ss
1c90: 6c 29 29 20 7b 0a 09 77 72 69 74 74 65 6e 20 3d l)) {..written =
1ca0: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
1cb0: 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 65 72 ect(statePtr, er
1cc0: 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 69 66 rorCodePtr);..if
1cd0: 20 28 77 72 69 74 74 65 6e 20 3c 3d 20 30 29 20 (written <= 0)
1ce0: 7b 0a 09 20 20 20 20 67 6f 74 6f 20 6f 75 74 70 {.. goto outp
1cf0: 75 74 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 ut;..}. }.
1d00: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
1d10: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 lags & TLS_TCL_I
1d20: 4e 49 54 29 20 7b 0a 09 73 74 61 74 65 50 74 72 NIT) {..statePtr
1d30: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 ->flags &= ~(TLS
1d40: 5f 54 43 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20 _TCL_INIT);.
1d50: 7d 0a 20 20 20 20 69 66 20 28 74 6f 57 72 69 74 }. if (toWrit
1d60: 65 20 3d 3d 20 30 29 20 7b 0a 09 64 70 72 69 6e e == 0) {..dprin
1d70: 74 66 28 73 74 64 65 72 72 2c 20 22 7a 65 72 6f tf(stderr, "zero
1d80: 2d 77 72 69 74 65 5c 6e 22 29 3b 0a 09 42 49 4f -write\n");..BIO
1d90: 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 2d _flush(statePtr-
1da0: 3e 62 69 6f 29 3b 0a 09 77 72 69 74 74 65 6e 20 >bio);..written
1db0: 3d 20 30 3b 0a 09 67 6f 74 6f 20 6f 75 74 70 75 = 0;..goto outpu
1dc0: 74 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a t;. } else {.
1dd0: 09 77 72 69 74 74 65 6e 20 3d 20 42 49 4f 5f 77 .written = BIO_w
1de0: 72 69 74 65 28 73 74 61 74 65 50 74 72 2d 3e 62 rite(statePtr->b
1df0: 69 6f 2c 20 62 75 66 2c 20 74 6f 57 72 69 74 65 io, buf, toWrite
1e00: 29 3b 0a 09 64 70 72 69 6e 74 66 28 73 74 64 65 );..dprintf(stde
1e10: 72 72 2c 22 5c 6e 42 49 4f 5f 77 72 69 74 65 28 rr,"\nBIO_write(
1e20: 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 20 74 6f %d) -> [%d]", to
1e30: 57 72 69 74 65 2c 20 77 72 69 74 74 65 6e 29 3b Write, written);
1e40: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 77 . }. if (w
1e50: 72 69 74 74 65 6e 20 3c 20 30 20 7c 7c 20 77 72 ritten < 0 || wr
1e60: 69 74 74 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 73 itten == 0) {..s
1e70: 77 69 74 63 68 20 28 28 65 72 72 20 3d 20 53 53 witch ((err = SS
1e80: 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74 L_get_error(stat
1e90: 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 ePtr->ssl, writt
1ea0: 65 6e 29 29 29 20 7b 0a 09 63 61 73 65 20 53 53 en))) {..case SS
1eb0: 4c 5f 45 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 20 L_ERROR_NONE:..
1ec0: 20 20 20 69 66 20 28 77 72 69 74 74 65 6e 20 3c if (written <
1ed0: 3d 20 30 29 20 7b 0a 09 09 77 72 69 74 74 65 6e = 0) {...written
1ee0: 20 3d 20 30 3b 0a 09 09 67 6f 74 6f 20 6f 75 74 = 0;...goto out
1ef0: 70 75 74 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 put;.. }..
1f00: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 53 53 break;..case SS
1f10: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 L_ERROR_WANT_WRI
1f20: 54 45 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 TE:.. dprintf
1f30: 28 73 74 64 65 72 72 2c 22 77 72 69 74 65 20 57 (stderr,"write W
1f40: 20 42 4c 4f 43 4b 5c 6e 22 29 3b 0a 09 20 20 20 BLOCK\n");..
1f50: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 53 53 break;..case SS
1f60: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 41 L_ERROR_WANT_REA
1f70: 44 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 D:.. dprintf(
1f80: 73 74 64 65 72 72 2c 22 77 72 69 74 65 20 52 20 stderr,"write R
1f90: 42 4c 4f 43 4b 5c 6e 22 29 3b 0a 09 20 20 20 20 BLOCK\n");..
1fa0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 53 53 4c break;..case SSL
1fb0: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 _ERROR_WANT_X509
1fc0: 5f 4c 4f 4f 4b 55 50 3a 0a 09 20 20 20 20 64 70 _LOOKUP:.. dp
1fd0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 77 72 rintf(stderr,"wr
1fe0: 69 74 65 20 58 20 42 4c 4f 43 4b 5c 6e 22 29 3b ite X BLOCK\n");
1ff0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
2000: 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 se SSL_ERROR_ZER
2010: 4f 5f 52 45 54 55 52 4e 3a 0a 09 20 20 20 20 64 O_RETURN:.. d
2020: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 63 printf(stderr,"c
2030: 6c 6f 73 65 64 5c 6e 22 29 3b 0a 09 20 20 20 20 losed\n");..
2040: 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 20 20 written = 0;..
2050: 20 20 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 09 goto output;..
2060: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 case SSL_ERROR_S
2070: 59 53 43 41 4c 4c 3a 0a 09 20 20 20 20 2a 65 72 YSCALL:.. *er
2080: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
2090: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 20 20 _GetErrno();..
20a0: 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 dprintf(stderr
20b0: 2c 22 5b 25 64 5d 20 73 79 73 63 61 6c 6c 20 65 ,"[%d] syscall e
20c0: 72 72 72 3a 20 25 64 5c 6e 22 2c 20 77 72 69 74 rrr: %d\n", writ
20d0: 74 65 6e 2c 20 54 63 6c 5f 47 65 74 45 72 72 6e ten, Tcl_GetErrn
20e0: 6f 28 29 29 3b 0a 09 20 20 20 20 77 72 69 74 74 o());.. writt
20f0: 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 20 67 6f en = -1;.. go
2100: 74 6f 20 6f 75 74 70 75 74 3b 0a 09 63 61 73 65 to output;..case
2110: 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 3a 0a SSL_ERROR_SSL:.
2120: 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 . Tls_Error(s
2130: 74 61 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 52 tatePtr, SSL_ERR
2140: 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c OR(statePtr->ssl
2150: 2c 20 77 72 69 74 74 65 6e 29 29 3b 0a 09 20 20 , written));..
2160: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
2170: 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a = ECONNABORTED;.
2180: 09 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d . written = -
2190: 31 3b 0a 09 20 20 20 20 67 6f 74 6f 20 6f 75 74 1;.. goto out
21a0: 70 75 74 3b 0a 09 64 65 66 61 75 6c 74 3a 0a 09 put;..default:..
21b0: 20 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 dprintf(stde
21c0: 72 72 2c 22 75 6e 6b 6e 6f 77 6e 20 65 72 72 3a rr,"unknown err:
21d0: 20 25 64 5c 6e 22 2c 20 65 72 72 29 3b 0a 09 7d %d\n", err);..}
21e0: 0a 20 20 20 20 7d 0a 6f 75 74 70 75 74 3a 0a 20 . }.output:.
21f0: 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 dprintf(stder
2200: 72 2c 20 22 5c 6e 4f 75 74 70 75 74 28 25 64 29 r, "\nOutput(%d)
2210: 20 2d 3e 20 25 64 22 2c 20 74 6f 57 72 69 74 65 -> %d", toWrite
2220: 2c 20 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 , written);.
2230: 72 65 74 75 72 6e 20 77 72 69 74 74 65 6e 3b 0a return written;.
2240: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
2250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
2290: 20 2a 20 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 * GetOptionProc
22a0: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 6f 6d 70 75 74 --. *. *.Comput
22b0: 65 73 20 61 6e 20 6f 70 74 69 6f 6e 20 76 61 6c es an option val
22c0: 75 65 20 66 6f 72 20 61 20 53 53 4c 20 73 6f 63 ue for a SSL soc
22d0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
22e0: 6c 2c 20 6f 72 20 61 0a 20 2a 09 6c 69 73 74 20 l, or a. *.list
22f0: 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 of all options a
2300: 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e nd their values.
2310: 0a 20 2a 0a 20 2a 09 4e 6f 74 65 3a 20 54 68 69 . *. *.Note: Thi
2320: 73 20 63 6f 64 65 20 69 73 20 62 61 73 65 64 20 s code is based
2330: 6f 6e 20 63 6f 64 65 20 63 6f 6e 74 72 69 62 75 on code contribu
2340: 74 65 64 20 62 79 20 4a 6f 68 6e 20 48 61 78 62 ted by John Haxb
2350: 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 y.. *. * Results
2360: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
2370: 54 63 6c 20 72 65 73 75 6c 74 2e 20 54 68 65 20 Tcl result. The
2380: 76 61 6c 75 65 20 6f 66 20 74 68 65 20 73 70 65 value of the spe
2390: 63 69 66 69 65 64 20 6f 70 74 69 6f 6e 20 6f 72 cified option or
23a0: 20 61 0a 20 2a 09 6c 69 73 74 20 6f 66 20 61 6c a. *.list of al
23b0: 6c 20 6f 70 74 69 6f 6e 73 20 61 6e 64 09 74 68 l options and.th
23c0: 65 69 72 20 76 61 6c 75 65 73 20 69 73 20 72 65 eir values is re
23d0: 74 75 72 6e 65 64 20 69 6e 20 74 68 65 0a 20 2a turned in the. *
23e0: 09 73 75 70 70 6c 69 65 64 20 44 53 74 72 69 6e .supplied DStrin
23f0: 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 g.. *. * Side ef
2400: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
2410: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
2420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2450: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
2460: 74 69 63 20 69 6e 74 0a 47 65 74 4f 70 74 69 6f tic int.GetOptio
2470: 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 nProc(ClientData
2480: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f instanceData,./
2490: 2a 20 53 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 * Socket state.
24a0: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 */.
24b0: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a Tcl_Interp *
24c0: 69 6e 74 65 72 70 2c 09 09 2f 2a 20 46 6f 72 20 interp,../* For
24d0: 65 72 72 6f 72 73 20 2d 20 63 61 6e 20 62 65 20 errors - can be
24e0: 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 20 20 20 NULL. */.
24f0: 20 20 20 20 20 20 20 20 20 20 63 68 61 72 20 2a char *
2500: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 09 09 2f 2a 20 optionName,../*
2510: 4e 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 Name of the opti
2520: 6f 6e 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 on to.
2530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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 2a 20 72 65 74 72 69 65 76 * retriev
2560: 65 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 2c e the value for,
2570: 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 or.
2580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25a0: 20 20 20 20 20 2a 20 4e 55 4c 4c 20 74 6f 20 67 * NULL to g
25b0: 65 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 et all options a
25c0: 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 nd.
25d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25f0: 20 20 20 20 2a 20 74 68 65 69 72 20 76 61 6c 75 * their valu
2600: 65 73 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 es. */.
2610: 20 20 20 20 20 20 20 20 54 63 6c 5f 44 53 74 72 Tcl_DStr
2620: 69 6e 67 20 2a 64 73 50 74 72 29 09 20 20 20 20 ing *dsPtr).
2630: 20 20 20 20 20 2f 2a 20 57 68 65 72 65 20 74 6f /* Where to
2640: 20 73 74 6f 72 65 20 74 68 65 20 63 6f 6d 70 75 store the compu
2650: 74 65 64 20 76 61 6c 75 65 0a 20 20 20 20 20 20 ted value.
2660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2680: 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 69 6e * in
2690: 69 74 69 61 6c 69 7a 65 64 20 62 79 20 63 61 6c itialized by cal
26a0: 6c 65 72 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 ler. */.{. St
26b0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
26c0: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
26d0: 63 65 44 61 74 61 3b 0a 20 20 20 20 73 69 7a 65 ceData;. size
26e0: 5f 74 20 6c 65 6e 20 3d 20 30 3b 0a 0a 20 20 20 _t len = 0;..
26f0: 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 if (optionName
2700: 21 3d 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c != (char *) NULL
2710: 29 20 7b 0a 20 20 20 20 20 20 20 20 6c 65 6e 20 ) {. len
2720: 3d 20 73 74 72 6c 65 6e 28 6f 70 74 69 6f 6e 4e = strlen(optionN
2730: 61 6d 65 29 3b 0a 20 20 20 20 7d 0a 23 69 66 20 ame);. }.#if
2740: 30 0a 20 20 20 20 69 66 20 28 28 6c 65 6e 20 3d 0. if ((len =
2750: 3d 20 30 29 20 7c 7c 0a 20 20 20 20 20 20 20 20 = 0) ||.
2760: 28 28 6c 65 6e 20 3e 20 31 29 20 26 26 20 28 6f ((len > 1) && (o
2770: 70 74 69 6f 6e 4e 61 6d 65 5b 31 5d 20 3d 3d 20 ptionName[1] ==
2780: 27 63 27 29 20 26 26 0a 20 20 20 20 20 20 20 20 'c') &&.
2790: 20 28 73 74 72 6e 63 6d 70 28 6f 70 74 69 6f 6e (strncmp(option
27a0: 4e 61 6d 65 2c 20 22 2d 63 69 70 68 65 72 22 2c Name, "-cipher",
27b0: 20 6c 65 6e 29 20 3d 3d 20 30 29 29 29 20 7b 0a len) == 0))) {.
27c0: 20 20 20 20 20 20 20 20 69 66 20 28 6c 65 6e 20 if (len
27d0: 3d 3d 20 30 29 20 7b 0a 20 20 20 20 20 20 20 20 == 0) {.
27e0: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 Tcl_DStringA
27f0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 64 73 50 ppendElement(dsP
2800: 74 72 2c 20 22 2d 63 69 70 68 65 72 22 29 3b 0a tr, "-cipher");.
2810: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
2820: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 41 70 70 Tcl_DStringApp
2830: 65 6e 64 45 6c 65 6d 65 6e 74 28 64 73 50 74 72 endElement(dsPtr
2840: 2c 20 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 , SSL_get_cipher
2850: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 (statePtr->ssl))
2860: 3b 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 65 ;. if (le
2870: 6e 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 n) {.
2880: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
2890: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a }. }.
28a0: 23 65 6e 64 69 66 0a 20 20 20 20 72 65 74 75 72 #endif. retur
28b0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a n TCL_OK;.}.../*
28c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
28d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28e0: 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 57 61 74 ------. *. * Wat
2910: 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 chProc --. *. *.
2920: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6e Initialize the n
2930: 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 otifier to watch
2940: 20 54 63 6c 5f 46 69 6c 65 73 20 66 72 6f 6d 20 Tcl_Files from
2950: 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a this channel.. *
2960: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
2970: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 None.. *. * Side
2980: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
2990: 73 20 75 70 20 74 68 65 20 6e 6f 74 69 66 69 65 s up the notifie
29a0: 72 20 73 6f 20 74 68 61 74 20 61 20 66 75 74 75 r so that a futu
29b0: 72 65 20 65 76 65 6e 74 20 6f 6e 20 74 68 65 20 re event on the
29c0: 63 68 61 6e 6e 65 6c 0a 20 2a 09 77 69 6c 6c 20 channel. *.will
29d0: 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e 0a be seen by Tcl..
29e0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
29f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 0a 73 74 --------. */..st
2a30: 61 74 69 63 20 76 6f 69 64 0a 57 61 74 63 68 50 atic void.WatchP
2a40: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 roc(ClientData i
2a50: 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 nstanceData,./*
2a60: 54 68 65 20 73 6f 63 6b 65 74 20 73 74 61 74 65 The socket state
2a70: 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 . */.
2a80: 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 09 2f 2a int mask).../*
2a90: 20 45 76 65 6e 74 73 20 6f 66 20 69 6e 74 65 72 Events of inter
2aa0: 65 73 74 3b 20 61 6e 20 4f 52 2d 65 64 0a 20 20 est; an OR-ed.
2ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ad0: 20 20 20 20 20 20 20 2a 20 63 6f 6d 62 69 6e 61 * combina
2ae0: 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 tion of TCL_READ
2af0: 41 42 4c 45 2c 0a 20 20 20 20 20 20 20 20 20 20 ABLE,.
2b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a *
2b20: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e TCL_WRITABLE an
2b30: 64 20 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 2e d TCL_EXCEPTION.
2b40: 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 */.{. State
2b50: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
2b60: 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 te *) instanceDa
2b70: 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d 61 73 ta;.. if (mas
2b80: 6b 20 3d 3d 20 73 74 61 74 65 50 74 72 2d 3e 77 k == statePtr->w
2b90: 61 74 63 68 4d 61 73 6b 29 0a 09 72 65 74 75 72 atchMask)..retur
2ba0: 6e 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 n;.. if (stat
2bb0: 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 29 ePtr->watchMask)
2bc0: 20 7b 0a 09 2f 2a 0a 09 20 2a 20 52 65 6d 6f 76 {../*.. * Remov
2bd0: 65 20 65 76 65 6e 74 20 68 61 6e 64 6c 65 72 20 e event handler
2be0: 74 6f 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 to underlying ch
2bf0: 61 6e 6e 65 6c 2c 20 74 68 69 73 20 63 6f 75 6c annel, this coul
2c00: 64 0a 09 20 2a 20 62 65 20 62 65 63 61 75 73 65 d.. * be because
2c10: 20 77 65 20 61 72 65 20 63 6c 6f 73 69 6e 67 20 we are closing
2c20: 66 6f 72 20 72 65 61 6c 2c 20 6f 72 20 62 65 69 for real, or bei
2c30: 6e 67 20 22 75 6e 73 74 61 63 6b 65 64 22 2e 0a ng "unstacked"..
2c40: 09 20 2a 2f 0a 0a 09 54 63 6c 5f 44 65 6c 65 74 . */...Tcl_Delet
2c50: 65 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 eChannelHandler(
2c60: 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 73 74 Tls_GetParent(st
2c70: 61 74 65 50 74 72 29 2c 0a 09 09 43 68 61 6e 6e atePtr),...Chann
2c80: 65 6c 48 61 6e 64 6c 65 72 2c 20 28 43 6c 69 65 elHandler, (Clie
2c90: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
2ca0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 );. }. sta
2cb0: 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b tePtr->watchMask
2cc0: 20 3d 20 6d 61 73 6b 3b 0a 20 20 20 20 69 66 20 = mask;. if
2cd0: 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 (statePtr->watch
2ce0: 4d 61 73 6b 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 Mask) {../*.. *
2cf0: 53 65 74 75 70 20 61 63 74 69 76 65 20 6d 6f 6e Setup active mon
2d00: 69 74 6f 72 20 66 6f 72 20 65 76 65 6e 74 73 20 itor for events
2d10: 6f 6e 20 75 6e 64 65 72 6c 79 69 6e 67 20 43 68 on underlying Ch
2d20: 61 6e 6e 65 6c 2e 0a 09 20 2a 2f 0a 0a 09 54 63 annel... */...Tc
2d30: 6c 5f 43 72 65 61 74 65 43 68 61 6e 6e 65 6c 48 l_CreateChannelH
2d40: 61 6e 64 6c 65 72 28 54 6c 73 5f 47 65 74 50 61 andler(Tls_GetPa
2d50: 72 65 6e 74 28 73 74 61 74 65 50 74 72 29 2c 0a rent(statePtr),.
2d60: 09 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 ..statePtr->watc
2d70: 68 4d 61 73 6b 2c 20 43 68 61 6e 6e 65 6c 48 61 hMask, ChannelHa
2d80: 6e 64 6c 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 ndler, (ClientDa
2d90: 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 ta) statePtr);.
2da0: 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d }.}.../*. *--
2db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2dc0: 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 47 65 74 48 61 6e 64 6c -. *. * GetHandl
2e00: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 eProc --. *. *.C
2e10: 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47 alled from Tcl_G
2e20: 65 74 43 68 61 6e 6e 65 6c 46 69 6c 65 20 74 6f etChannelFile to
2e30: 20 72 65 74 72 69 65 76 65 20 6f 2f 73 20 66 69 retrieve o/s fi
2e40: 6c 65 20 68 61 6e 64 6c 65 72 0a 20 2a 09 66 72 le handler. *.fr
2e50: 6f 6d 20 74 68 65 20 53 53 4c 20 73 6f 63 6b 65 om the SSL socke
2e60: 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e t based channel.
2e70: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
2e80: 20 2a 09 54 68 65 20 61 70 70 72 6f 70 72 69 61 *.The appropria
2e90: 74 65 20 54 63 6c 5f 46 69 6c 65 20 6f 72 20 4e te Tcl_File or N
2ea0: 55 4c 4c 20 69 66 20 6e 6f 74 20 70 72 65 73 65 ULL if not prese
2eb0: 6e 74 2e 20 0a 20 2a 0a 20 2a 20 53 69 64 65 20 nt. . *. * Side
2ec0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
2ed0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
2ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 73 ----------. */.s
2f20: 74 61 74 69 63 20 69 6e 74 0a 47 65 74 48 61 6e tatic int.GetHan
2f30: 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 dleProc(ClientDa
2f40: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
2f50: 09 2f 2a 20 54 68 65 20 73 6f 63 6b 65 74 20 73 ./* The socket s
2f60: 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 20 20 20 tate. */.
2f70: 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 64 69 int di
2f80: 72 65 63 74 69 6f 6e 2c 09 09 2f 2a 20 57 68 69 rection,../* Whi
2f90: 63 68 20 54 63 6c 5f 46 69 6c 65 20 74 6f 20 72 ch Tcl_File to r
2fa0: 65 74 72 69 65 76 65 3f 20 2a 2f 0a 20 20 20 20 etrieve? */.
2fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6c 69 Cli
2fc0: 65 6e 74 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 entData *handleP
2fd0: 74 72 29 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 tr)./* Where to
2fe0: 73 74 6f 72 65 20 74 68 65 20 68 61 6e 64 6c 65 store the handle
2ff0: 2e 20 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 . */.{. Stat
3000: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
3010: 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 tate *) instance
3020: 44 61 74 61 3b 0a 0a 20 20 20 20 72 65 74 75 72 Data;.. retur
3030: 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c n Tcl_GetChannel
3040: 48 61 6e 64 6c 65 20 28 54 6c 73 5f 47 65 74 50 Handle (Tls_GetP
3050: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 29 2c arent(statePtr),
3060: 20 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 direction, hand
3070: 6c 65 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 lePtr);.}.../*.
3080: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
3090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 2a 0a 20 2a 0a 20 2a 20 20 -------*. *. *
30c0: 20 20 20 20 43 68 61 6e 6e 65 6c 48 61 6e 64 6c ChannelHandl
30d0: 65 72 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 20 20 er --. *. *
30e0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
30f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 2a 0a 20 2a 20 20 20 20 20 20 48 61 6e 64 6c -*. * Handl
3120: 65 72 20 63 61 6c 6c 65 64 20 62 79 20 54 63 6c er called by Tcl
3130: 20 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 0a as a result of.
3140: 20 2a 20 20 20 20 20 20 54 63 6c 5f 43 72 65 61 * Tcl_Crea
3150: 74 65 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 teChannelHandler
3160: 20 2d 20 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 - to inform us
3170: 6f 66 20 61 63 74 69 76 69 74 79 0a 20 2a 20 20 of activity. *
3180: 20 20 20 20 6f 6e 20 74 68 65 20 75 6e 64 65 72 on the under
3190: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 lying channel..
31a0: 2a 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d * ---------
31b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31d0: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 20 20 -------*. *. *
31e0: 20 20 20 20 53 69 64 65 65 66 66 65 63 74 73 3a Sideeffects:
31f0: 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 . *
3200: 20 4d 61 79 20 67 65 6e 65 72 61 74 65 20 73 75 May generate su
3210: 62 73 65 71 75 65 6e 74 20 63 61 6c 6c 73 20 74 bsequent calls t
3220: 6f 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 o. *
3230: 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e Tcl_NotifyChan
3240: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 20 20 20 20 20 nel.. *. *
3250: 52 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 20 20 Result:. *
3260: 20 20 20 20 20 20 20 20 4e 6f 6e 65 2e 0a 20 2a None.. *
3270: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 2a 0a 20 2a 2f 0a 0a ---------*. */..
32b0: 73 74 61 74 69 63 20 76 6f 69 64 0a 43 68 61 6e static void.Chan
32c0: 6e 65 6c 48 61 6e 64 6c 65 72 20 28 63 6c 69 65 nelHandler (clie
32d0: 6e 74 44 61 74 61 2c 20 6d 61 73 6b 29 0a 43 6c ntData, mask).Cl
32e0: 69 65 6e 74 44 61 74 61 20 20 20 20 20 63 6c 69 ientData cli
32f0: 65 6e 74 44 61 74 61 3b 0a 69 6e 74 20 20 20 20 entData;.int
3300: 20 20 20 20 20 20 20 20 6d 61 73 6b 3b 0a 7b 0a mask;.{.
3310: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
3320: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
3330: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 64 70 72 clientData;..dpr
3340: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 48 41 intf(stderr, "HA
3350: 4e 44 4c 45 52 28 30 78 25 78 29 5c 6e 22 2c 20 NDLER(0x%x)\n",
3360: 6d 61 73 6b 29 3b 0a 20 20 20 20 54 63 6c 5f 50 mask);. Tcl_P
3370: 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 reserve( (Client
3380: 44 61 74 61 29 73 74 61 74 65 50 74 72 29 3b 0a Data)statePtr);.
3390: 0a 20 20 20 20 69 66 20 28 6d 61 73 6b 20 26 20 . if (mask &
33a0: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 7b 0a TCL_READABLE) {.
33b0: 09 42 49 4f 5f 73 65 74 5f 66 6c 61 67 73 28 73 .BIO_set_flags(s
33c0: 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 tatePtr->p_bio,
33d0: 42 49 4f 5f 46 4c 41 47 53 5f 52 45 41 44 29 3b BIO_FLAGS_READ);
33e0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 42 . } else {..B
33f0: 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 28 73 IO_clear_flags(s
3400: 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 tatePtr->p_bio,
3410: 42 49 4f 5f 46 4c 41 47 53 5f 52 45 41 44 29 3b BIO_FLAGS_READ);
3420: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 . }.. if (
3430: 6d 61 73 6b 20 26 20 54 43 4c 5f 57 52 49 54 41 mask & TCL_WRITA
3440: 42 4c 45 29 20 7b 0a 09 42 49 4f 5f 73 65 74 5f BLE) {..BIO_set_
3450: 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e flags(statePtr->
3460: 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 p_bio, BIO_FLAGS
3470: 5f 57 52 49 54 45 29 3b 0a 20 20 20 20 7d 20 65 _WRITE);. } e
3480: 6c 73 65 20 7b 0a 09 42 49 4f 5f 63 6c 65 61 72 lse {..BIO_clear
3490: 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 2d _flags(statePtr-
34a0: 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 >p_bio, BIO_FLAG
34b0: 53 5f 57 52 49 54 45 29 3b 0a 20 20 20 20 7d 0a S_WRITE);. }.
34c0: 0a 20 20 20 20 6d 61 73 6b 20 3d 20 30 3b 0a 20 . mask = 0;.
34d0: 20 20 20 69 66 20 28 42 49 4f 5f 77 70 65 6e 64 if (BIO_wpend
34e0: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ing(statePtr->bi
34f0: 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54 o)) {..mask |= T
3500: 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 20 20 20 CL_WRITABLE;.
3510: 20 7d 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 70 }. if (BIO_p
3520: 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d ending(statePtr-
3530: 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 7c >bio)) {..mask |
3540: 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a = TCL_READABLE;.
3550: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 }.. /*.
3560: 20 20 20 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 * The followi
3570: 6e 67 20 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c ng NotifyChannel
3580: 20 63 61 6c 6c 73 20 73 65 65 6d 73 20 74 6f 20 calls seems to
3590: 62 65 20 69 6d 70 6f 72 74 61 6e 74 2c 20 62 75 be important, bu
35a0: 74 0a 20 20 20 20 20 2a 20 77 65 20 64 6f 6e 27 t. * we don'
35b0: 74 20 6b 6e 6f 77 20 77 68 79 2e 20 20 49 74 20 t know why. It
35c0: 6c 6f 6f 6b 73 20 6c 69 6b 65 20 69 66 20 74 68 looks like if th
35d0: 65 20 6d 61 73 6b 20 69 73 20 65 76 65 72 20 6e e mask is ever n
35e0: 6f 6e 2d 7a 65 72 6f 0a 20 20 20 20 20 2a 20 74 on-zero. * t
35f0: 68 61 74 20 69 74 20 77 69 6c 6c 20 65 6e 74 65 hat it will ente
3600: 72 20 61 6e 20 69 6e 66 69 6e 69 74 65 20 6c 6f r an infinite lo
3610: 6f 70 2e 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 op.. *.
3620: 2a 20 4e 6f 74 69 66 79 20 74 68 65 20 75 70 70 * Notify the upp
3630: 65 72 20 63 68 61 6e 6e 65 6c 20 6f 66 20 74 68 er channel of th
3640: 65 20 63 75 72 72 65 6e 74 20 42 49 4f 20 73 74 e current BIO st
3650: 61 74 65 20 73 6f 20 74 68 65 20 65 76 65 6e 74 ate so the event
3660: 0a 20 20 20 20 20 2a 20 63 6f 6e 74 69 6e 75 65 . * continue
3670: 73 20 74 6f 20 70 72 6f 70 61 67 61 74 65 20 75 s to propagate u
3680: 70 20 74 68 65 20 63 68 61 69 6e 2e 0a 20 20 20 p the chain..
3690: 20 20 2a 0a 20 20 20 20 20 2a 20 73 74 61 6e 74 *. * stant
36a0: 6f 6e 3a 20 49 74 20 6c 6f 6f 6b 73 20 6c 69 6b on: It looks lik
36b0: 65 20 74 68 69 73 20 63 6f 75 6c 64 20 72 65 73 e this could res
36c0: 75 6c 74 20 69 6e 20 61 6e 20 69 6e 66 69 6e 69 ult in an infini
36d0: 74 65 20 6c 6f 6f 70 20 69 66 0a 20 20 20 20 20 te loop if.
36e0: 2a 20 74 68 65 20 75 70 70 65 72 20 63 68 61 6e * the upper chan
36f0: 6e 65 6c 20 64 6f 65 73 6e 27 74 20 63 61 75 73 nel doesn't caus
3700: 65 20 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 e ChannelHandler
3710: 20 74 6f 20 62 65 20 72 65 6d 6f 76 65 64 0a 20 to be removed.
3720: 20 20 20 20 2a 20 62 65 66 6f 72 65 20 54 63 6c * before Tcl
3730: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 20 63 _NotifyChannel c
3740: 61 6c 6c 73 20 63 68 61 6e 6e 65 6c 20 68 61 6e alls channel han
3750: 64 6c 65 72 73 20 6f 6e 20 74 68 65 20 6c 6f 77 dlers on the low
3760: 65 72 20 63 68 61 6e 6e 65 6c 2e 0a 20 20 20 20 er channel..
3770: 20 2a 2f 0a 20 20 20 20 0a 20 20 20 20 54 63 6c */. . Tcl
3780: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 _NotifyChannel(s
3790: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d tatePtr->self, m
37a0: 61 73 6b 29 3b 0a 20 20 20 20 0a 20 20 20 20 69 ask);. . i
37b0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d f (statePtr->tim
37c0: 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 er != (Tcl_Timer
37d0: 54 6f 6b 65 6e 29 4e 55 4c 4c 29 20 7b 0a 09 54 Token)NULL) {..T
37e0: 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 cl_DeleteTimerHa
37f0: 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e ndler(statePtr->
3800: 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 timer);..statePt
3810: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f r->timer = (Tcl_
3820: 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 3b TimerToken)NULL;
3830: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 28 . }. if ((
3840: 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 mask & TCL_READA
3850: 42 4c 45 29 20 26 26 20 54 63 6c 5f 49 6e 70 75 BLE) && Tcl_Inpu
3860: 74 42 75 66 66 65 72 65 64 20 28 73 74 61 74 65 tBuffered (state
3870: 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 20 Ptr->self) > 0)
3880: 7b 0a 09 2f 2a 0a 09 20 2a 20 44 61 74 61 20 69 {../*.. * Data i
3890: 73 20 77 61 69 74 69 6e 67 2c 20 66 6c 75 73 68 s waiting, flush
38a0: 20 69 74 20 6f 75 74 20 69 6e 20 73 68 6f 72 74 it out in short
38b0: 20 74 69 6d 65 0a 09 20 2a 2f 0a 09 73 74 61 74 time.. */..stat
38c0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 ePtr->timer = Tc
38d0: 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e l_CreateTimerHan
38e0: 64 6c 65 72 28 54 4c 53 5f 54 43 4c 5f 44 45 4c dler(TLS_TCL_DEL
38f0: 41 59 2c 0a 09 09 43 68 61 6e 6e 65 6c 48 61 6e AY,...ChannelHan
3900: 64 6c 65 72 54 69 6d 65 72 2c 20 28 43 6c 69 65 dlerTimer, (Clie
3910: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
3920: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c );. }. Tcl
3930: 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e _Release( (Clien
3940: 74 44 61 74 61 29 73 74 61 74 65 50 74 72 29 3b tData)statePtr);
3950: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
3960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3970: 2d 2d 2d 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: 2a 0a 20 2a 0a 20 2a 09 43 68 61 6e 6e 65 6c 48 *. *. *.ChannelH
39a0: 61 6e 64 6c 65 72 54 69 6d 65 72 20 2d 2d 0a 20 andlerTimer --.
39b0: 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *.-----------
39c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39e0: 2d 2d 2d 2d 2d 2a 0a 20 2a 09 43 61 6c 6c 65 64 -----*. *.Called
39f0: 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72 by the notifier
3a00: 20 28 2d 3e 20 74 69 6d 65 72 29 20 74 6f 20 66 (-> timer) to f
3a10: 6c 75 73 68 20 6f 75 74 0a 20 2a 09 69 6e 66 6f lush out. *.info
3a20: 72 6d 61 74 69 6f 6e 20 77 61 69 74 69 6e 67 20 rmation waiting
3a30: 69 6e 20 63 68 61 6e 6e 65 6c 20 62 75 66 66 65 in channel buffe
3a40: 72 73 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d rs.. *.---------
3a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 2a 0a 20 2a 0a 20 2a 09 53 -------*. *. *.S
3a80: 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 ideeffects:. *..
3a90: 41 73 20 6f 66 20 27 43 68 61 6e 6e 65 6c 48 61 As of 'ChannelHa
3aa0: 6e 64 6c 65 72 27 2e 0a 20 2a 0a 20 2a 09 52 65 ndler'.. *. *.Re
3ab0: 73 75 6c 74 3a 0a 20 2a 09 09 4e 6f 6e 65 2e 0a sult:. *..None..
3ac0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 2a 0a 20 2a 2f -----------*. */
3b00: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 43 68 ..static void.Ch
3b10: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 annelHandlerTime
3b20: 72 20 28 63 6c 69 65 6e 74 44 61 74 61 29 0a 43 r (clientData).C
3b30: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
3b40: 44 61 74 61 3b 20 2f 2a 20 54 72 61 6e 73 66 6f Data; /* Transfo
3b50: 72 6d 61 74 69 6f 6e 20 74 6f 20 71 75 65 72 79 rmation to query
3b60: 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 */.{. State
3b70: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
3b80: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
3b90: 3b 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b 20 3d ;. int mask =
3ba0: 20 30 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 0;.. statePt
3bb0: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f r->timer = (Tcl_
3bc0: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
3bd0: 3b 0a 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 77 ;.. if (BIO_w
3be0: 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 pending(statePtr
3bf0: 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 ->bio)) {..mask
3c00: 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b |= TCL_WRITABLE;
3c10: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 42 . }. if (B
3c20: 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 IO_pending(state
3c30: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 Ptr->bio)) {..ma
3c40: 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 sk |= TCL_READAB
3c50: 4c 45 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 LE;. }. Tc
3c60: 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 l_NotifyChannel(
3c70: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 statePtr->self,
3c80: 6d 61 73 6b 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a mask);.}.../*. *
3c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 2a 0a 20 2a 0a 20 2a 09 54 6c ------*. *. *.Tl
3cd0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
3ce0: 20 2d 2d 0a 20 2a 0a 20 2a 09 53 69 64 65 65 66 --. *. *.Sideef
3cf0: 66 65 63 74 73 3a 0a 20 2a 09 09 49 73 73 75 65 fects:. *..Issue
3d00: 73 20 53 53 4c 5f 61 63 63 65 70 74 20 6f 72 20 s SSL_accept or
3d10: 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 2a 0a 20 SSL_connect. *.
3d20: 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 4e 6f *.Result:. *..No
3d30: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
3d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d50: 2d 2d 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 2a ---------------*
3d70: 0a 20 2a 2f 0a 69 6e 74 0a 54 6c 73 5f 57 61 69 . */.int.Tls_Wai
3d80: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 20 73 74 61 tForConnect( sta
3d90: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 tePtr, errorCode
3da0: 50 74 72 29 0a 20 20 20 20 53 74 61 74 65 20 2a Ptr). State *
3db0: 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 69 6e statePtr;. in
3dc0: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 3b t *errorCodePtr;
3dd0: 09 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73 74 ../* Where to st
3de0: 6f 72 65 20 65 72 72 6f 72 20 63 6f 64 65 2e 20 ore error code.
3df0: 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 20 65 72 72 */.{. int err
3e00: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73 ;.. dprintf(s
3e10: 74 64 65 72 72 2c 22 5c 6e 57 61 69 74 46 6f 72 tderr,"\nWaitFor
3e20: 43 6f 6e 6e 65 63 74 28 30 78 25 78 29 22 2c 20 Connect(0x%x)",
3e30: 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 statePtr);..
3e40: 66 6f 72 20 28 3b 3b 29 20 7b 0a 09 2f 2a 20 4e for (;;) {../* N
3e50: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 79 ot initialized y
3e60: 65 74 21 20 2a 2f 0a 09 69 66 20 28 73 74 61 74 et! */..if (stat
3e70: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
3e80: 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a S_TCL_SERVER) {.
3e90: 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 61 . err = SSL_a
3ea0: 63 63 65 70 74 28 73 74 61 74 65 50 74 72 2d 3e ccept(statePtr->
3eb0: 73 73 6c 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a ssl);..} else {.
3ec0: 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c 5f 63 . err = SSL_c
3ed0: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d onnect(statePtr-
3ee0: 3e 73 73 6c 29 3b 0a 09 7d 0a 09 2f 2a 53 53 4c >ssl);..}../*SSL
3ef0: 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 72 2d _write(statePtr-
3f00: 3e 73 73 6c 2c 20 28 63 68 61 72 2a 29 26 65 72 >ssl, (char*)&er
3f10: 72 2c 20 30 29 3b 09 48 41 43 4b 21 21 21 20 2a r, 0);.HACK!!! *
3f20: 2f 0a 09 69 66 20 28 65 72 72 20 3e 20 30 29 0a /..if (err > 0).
3f30: 09 20 20 20 20 42 49 4f 5f 66 6c 75 73 68 28 73 . BIO_flush(s
3f40: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 0a tatePtr->bio);..
3f50: 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 7b .if (err <= 0) {
3f60: 0a 09 20 20 20 20 69 6e 74 20 72 63 20 3d 20 53 .. int rc = S
3f70: 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 SL_get_error(sta
3f80: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 65 72 72 29 tePtr->ssl, err)
3f90: 3b 0a 0a 09 20 20 20 20 69 66 20 28 72 63 20 3d ;... if (rc =
3fa0: 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 29 = SSL_ERROR_SSL)
3fb0: 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 {...Tls_Error(s
3fc0: 74 61 74 65 50 74 72 2c 20 28 63 68 61 72 2a 29 tatePtr, (char*)
3fd0: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
3fe0: 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 74 5f _string(ERR_get_
3ff0: 65 72 72 6f 72 28 29 29 29 3b 0a 09 09 2a 65 72 error()));...*er
4000: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
4010: 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 72 65 74 NNABORTED;...ret
4020: 75 72 6e 20 2d 31 3b 0a 09 20 20 20 20 7d 20 65 urn -1;.. } e
4030: 6c 73 65 20 69 66 20 28 42 49 4f 5f 73 68 6f 75 lse if (BIO_shou
4040: 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 50 74 ld_retry(statePt
4050: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 69 66 20 r->bio)) {...if
4060: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
4070: 20 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 & TLS_TCL_ASYNC
4080: 29 20 7b 0a 09 09 20 20 20 20 64 70 72 69 6e 74 ) {... dprint
4090: 66 28 73 74 64 65 72 72 2c 22 45 21 20 22 29 3b f(stderr,"E! ");
40a0: 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 ... *errorCod
40b0: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
40c0: 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a . return -1;.
40d0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 ..} else {...
40e0: 20 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 7d 0a 09 continue;...}..
40f0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 65 } else if (e
4100: 72 72 20 3d 3d 20 30 29 20 7b 0a 09 09 64 70 72 rr == 0) {...dpr
4110: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 43 52 21 intf(stderr,"CR!
4120: 20 22 29 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 ");...*errorCod
4130: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 ePtr = ECONNRESE
4140: 54 3b 0a 09 09 72 65 74 75 72 6e 20 2d 31 3b 0a T;...return -1;.
4150: 09 20 20 20 20 7d 0a 09 20 20 20 20 69 66 20 28 . }.. if (
4160: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
4170: 26 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 & TLS_TCL_SERVER
4180: 29 20 7b 0a 09 09 65 72 72 20 3d 20 53 53 4c 5f ) {...err = SSL_
4190: 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c get_verify_resul
41a0: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
41b0: 3b 0a 09 09 69 66 20 28 65 72 72 20 21 3d 20 58 ;...if (err != X
41c0: 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 20 20 509_V_OK) {...
41d0: 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 Tls_Error(stat
41e0: 65 50 74 72 2c 20 28 63 68 61 72 2a 29 58 35 30 ePtr, (char*)X50
41f0: 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 9_verify_cert_er
4200: 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 29 ror_string(err))
4210: 3b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 6f ;... *errorCo
4220: 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f dePtr = ECONNABO
4230: 52 54 45 44 3b 0a 09 09 20 20 20 20 72 65 74 75 RTED;... retu
4240: 72 6e 20 2d 31 3b 0a 09 09 7d 0a 09 20 20 20 20 rn -1;...}..
4250: 7d 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 }.. *errorCod
4260: 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 ePtr = Tcl_GetEr
4270: 72 6e 6f 28 29 3b 0a 09 20 20 20 20 64 70 72 69 rno();.. dpri
4280: 6e 74 66 28 73 74 64 65 72 72 2c 22 45 52 52 28 ntf(stderr,"ERR(
4290: 25 64 2c 20 25 64 29 20 22 2c 20 72 63 2c 20 2a %d, %d) ", rc, *
42a0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 errorCodePtr);..
42b0: 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 09 return -1;..
42c0: 7d 0a 09 64 70 72 69 6e 74 66 28 73 74 64 65 72 }..dprintf(stder
42d0: 72 2c 22 52 30 21 20 22 29 3b 0a 09 72 65 74 75 r,"R0! ");..retu
42e0: 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 54 rn 1;. }.}..T
42f0: 63 6c 5f 43 68 61 6e 6e 65 6c 0a 54 6c 73 5f 47 cl_Channel.Tls_G
4300: 65 74 50 61 72 65 6e 74 28 20 73 74 61 74 65 50 etParent( stateP
4310: 74 72 20 29 0a 20 20 20 20 53 74 61 74 65 20 2a tr ). State *
4320: 73 74 61 74 65 50 74 72 3b 0a 7b 0a 23 69 66 20 statePtr;.{.#if
4330: 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f TCL_MAJOR_VERSIO
4340: 4e 20 3d 3d 20 38 20 26 26 20 54 43 4c 5f 4d 49 N == 8 && TCL_MI
4350: 4e 4f 52 5f 56 45 52 53 49 4f 4e 20 3c 20 32 0a NOR_VERSION < 2.
4360: 20 20 20 20 72 65 74 75 72 6e 20 73 74 61 74 65 return state
4370: 50 74 72 2d 3e 70 61 72 65 6e 74 3b 0a 23 65 6c Ptr->parent;.#el
4380: 73 65 0a 20 20 20 20 2f 2a 20 54 68 65 20 72 65 se. /* The re
4390: 61 73 6f 6e 20 66 6f 72 20 74 68 65 20 65 78 69 ason for the exi
43a0: 73 74 65 6e 63 65 20 6f 66 20 74 68 69 73 20 70 stence of this p
43b0: 72 6f 63 65 64 75 72 65 20 69 73 0a 20 20 20 20 rocedure is.
43c0: 20 2a 20 74 68 65 20 66 61 63 74 20 74 68 61 74 * the fact that
43d0: 20 73 74 61 63 6b 69 6e 67 20 61 20 74 72 61 6e stacking a tran
43e0: 73 66 6f 72 6d 20 6f 76 65 72 20 61 6e 6f 74 68 sform over anoth
43f0: 65 72 0a 20 20 20 20 20 2a 20 74 72 61 6e 73 66 er. * transf
4400: 6f 72 6d 20 77 69 6c 6c 20 6c 65 61 76 65 20 6f orm will leave o
4410: 75 72 20 69 6e 74 65 72 6e 61 6c 20 70 6f 69 6e ur internal poin
4420: 74 65 72 20 75 6e 63 68 61 6e 67 65 64 2c 0a 20 ter unchanged,.
4430: 20 20 20 20 2a 20 61 6e 64 20 74 68 75 73 20 70 * and thus p
4440: 6f 69 6e 74 69 6e 67 20 74 6f 20 74 68 65 20 6e ointing to the n
4450: 65 77 20 74 72 61 6e 73 66 6f 72 6d 2c 20 61 6e ew transform, an
4460: 64 20 6e 6f 74 20 74 68 65 0a 20 20 20 20 20 2a d not the. *
4470: 20 43 68 61 6e 6e 65 6c 20 73 74 72 75 63 74 75 Channel structu
4480: 72 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 re containing th
4490: 65 20 73 61 76 65 64 20 73 74 61 74 65 20 6f 66 e saved state of
44a0: 20 74 68 69 73 0a 20 20 20 20 20 2a 20 74 72 61 this. * tra
44b0: 6e 73 66 6f 72 6d 2e 20 54 68 69 73 20 69 73 20 nsform. This is
44c0: 74 68 65 20 70 72 69 63 65 20 74 6f 20 70 61 79 the price to pay
44d0: 20 66 6f 72 20 6c 65 61 76 69 6e 67 0a 20 20 20 for leaving.
44e0: 20 20 2a 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 * Tcl_Channel
44f0: 72 65 66 65 72 65 6e 63 65 73 20 69 6e 74 61 63 references intac
4500: 74 2e 20 54 68 65 20 6f 6e 6c 79 20 6f 74 68 65 t. The only othe
4510: 72 20 73 6f 6c 75 74 69 6f 6e 0a 20 20 20 20 20 r solution.
4520: 2a 20 69 73 20 61 6e 20 65 78 74 65 6e 73 69 6f * is an extensio
4530: 6e 20 6f 66 20 54 63 6c 5f 43 68 61 6e 6e 65 6c n of Tcl_Channel
4540: 54 79 70 65 20 77 69 74 68 20 61 6e 6f 74 68 65 Type with anothe
4550: 72 20 64 72 69 76 65 72 0a 20 20 20 20 20 2a 20 r driver. *
4560: 70 72 6f 63 65 64 75 72 65 20 74 6f 20 6e 6f 74 procedure to not
4570: 69 66 79 20 61 20 43 68 61 6e 6e 65 6c 20 61 62 ify a Channel ab
4580: 6f 75 74 20 74 68 65 20 28 75 6e 29 73 74 61 63 out the (un)stac
4590: 6b 69 6e 67 2e 0a 20 20 20 20 20 2a 0a 20 20 20 king.. *.
45a0: 20 20 2a 20 49 74 20 77 61 6c 6b 73 20 74 68 65 * It walks the
45b0: 20 63 68 61 69 6e 20 6f 66 20 43 68 61 6e 6e 65 chain of Channe
45c0: 6c 20 73 74 72 75 63 74 75 72 65 73 20 75 6e 74 l structures unt
45d0: 69 6c 20 69 74 0a 20 20 20 20 20 2a 20 66 69 6e il it. * fin
45e0: 64 73 20 74 68 65 20 6f 6e 65 20 70 6f 69 6e 74 ds the one point
45f0: 69 6e 67 20 68 61 76 69 6e 67 20 27 63 74 72 6c ing having 'ctrl
4600: 27 20 61 73 20 69 6e 73 74 61 6e 63 65 44 61 74 ' as instanceDat
4610: 61 0a 20 20 20 20 20 2a 20 61 6e 64 20 74 68 65 a. * and the
4620: 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 75 n returns the su
4630: 70 65 72 63 65 64 69 6e 67 20 63 68 61 6e 6e 65 perceding channe
4640: 6c 20 74 6f 20 74 68 61 74 2e 20 28 41 4b 29 0a l to that. (AK).
4650: 20 20 20 20 20 2a 2f 0a 20 0a 20 20 54 63 6c 5f */. . Tcl_
4660: 43 68 61 6e 6e 65 6c 20 73 65 6c 66 20 3d 20 73 Channel self = s
4670: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 3b 0a 20 tatePtr->self;.
4680: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 6e 65 78 Tcl_Channel nex
4690: 74 3b 0a 0a 20 20 77 68 69 6c 65 20 28 28 43 6c t;.. while ((Cl
46a0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
46b0: 74 72 20 21 3d 20 54 63 6c 5f 47 65 74 43 68 61 tr != Tcl_GetCha
46c0: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
46d0: 20 28 73 65 6c 66 29 29 20 7b 0a 20 20 20 20 6e (self)) {. n
46e0: 65 78 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 ext = Tcl_GetSta
46f0: 63 6b 65 64 43 68 61 6e 6e 65 6c 20 28 73 65 6c ckedChannel (sel
4700: 66 29 3b 0a 20 20 20 20 69 66 20 28 6e 65 78 74 f);. if (next
4710: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
4720: 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 ) NULL) {.
4730: 2f 2a 20 30 39 2f 32 34 2f 31 39 39 39 20 55 6e /* 09/24/1999 Un
4740: 73 74 61 63 6b 69 6e 67 20 62 75 67 2c 20 66 6f stacking bug, fo
4750: 75 6e 64 20 62 79 20 4d 61 74 74 20 4e 65 77 6d und by Matt Newm
4760: 61 6e 20 3c 6d 61 74 74 40 73 65 6e 73 75 73 2e an <matt@sensus.
4770: 6f 72 67 3e 2e 0a 20 20 20 20 20 20 20 2a 0a 20 org>.. *.
4780: 20 20 20 20 20 20 2a 20 57 65 20 77 65 72 65 20 * We were
4790: 75 6e 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 74 unable to find t
47a0: 68 65 20 63 68 61 6e 6e 65 6c 20 73 74 72 75 63 he channel struc
47b0: 74 75 72 65 20 66 6f 72 20 74 68 69 73 0a 20 20 ture for this.
47c0: 20 20 20 20 20 2a 20 74 72 61 6e 73 66 6f 72 6d * transform
47d0: 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 68 61 ation in the cha
47e0: 69 6e 20 6f 66 20 73 74 61 63 6b 65 64 20 63 68 in of stacked ch
47f0: 61 6e 6e 65 6c 2e 20 54 68 69 73 0a 20 20 20 20 annel. This.
4800: 20 20 20 2a 20 6d 65 61 6e 73 20 74 68 61 74 20 * means that
4810: 77 65 20 61 72 65 20 63 75 72 72 65 6e 74 6c 79 we are currently
4820: 20 69 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 in the process
4830: 6f 66 20 75 6e 73 74 61 63 6b 69 6e 67 0a 20 20 of unstacking.
4840: 20 20 20 20 20 2a 20 69 74 20 2a 61 6e 64 2a 20 * it *and*
4850: 74 68 65 72 65 20 77 65 72 65 20 73 6f 6d 65 20 there were some
4860: 62 79 74 65 73 20 77 61 69 74 69 6e 67 20 77 68 bytes waiting wh
4870: 69 63 68 20 61 72 65 20 6e 6f 77 0a 20 20 20 20 ich are now.
4880: 20 20 20 2a 20 66 6c 75 73 68 65 64 2e 20 49 6e * flushed. In
4890: 20 74 68 69 73 20 73 69 74 75 61 74 69 6f 6e 20 this situation
48a0: 74 68 65 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 the pointer to t
48b0: 68 65 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 he channel.
48c0: 20 20 2a 20 69 74 73 65 6c 66 20 61 6c 72 65 61 * itself alrea
48d0: 64 79 20 72 65 66 65 72 73 20 74 6f 20 74 68 65 dy refers to the
48e0: 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 parent channel
48f0: 77 65 20 68 61 76 65 20 74 6f 0a 20 20 20 20 20 we have to.
4900: 20 20 2a 20 77 72 69 74 65 20 74 68 65 20 62 79 * write the by
4910: 74 65 73 20 69 6e 74 6f 2c 20 73 6f 20 77 65 20 tes into, so we
4920: 72 65 74 75 72 6e 20 74 68 61 74 2e 0a 20 20 20 return that..
4930: 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 72 65 74 */. ret
4940: 75 72 6e 20 73 74 61 74 65 50 74 72 2d 3e 73 65 urn statePtr->se
4950: 6c 66 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 lf;. }. se
4960: 6c 66 20 3d 20 6e 65 78 74 3b 0a 20 20 7d 0a 0a lf = next;. }..
4970: 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 return Tcl_Get
4980: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 20 28 StackedChannel (
4990: 73 65 6c 66 29 3b 0a 23 65 6e 64 69 66 0a 7d 0a self);.#endif.}.