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 31 39 39 39 20 4d 61 (C) 1997-1999 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 31 2e 31 2e 31 20 32 30 30 .c,v 1.1.1.1 200
0090: 30 2f 30 31 2f 31 39 20 32 32 3a 31 30 3a 35 38 0/01/19 22:10:58
00a0: 20 61 62 6f 72 72 20 45 78 70 20 24 0a 20 2a 0a aborr Exp $. *.
00b0: 20 2a 20 54 4c 53 20 28 61 6b 61 20 53 53 4c 29 * TLS (aka SSL)
00c0: 20 43 68 61 6e 6e 65 6c 20 2d 20 63 61 6e 20 62 Channel - can b
00d0: 65 20 6c 61 79 65 72 65 64 20 6f 6e 20 61 6e 79 e layered on any
00e0: 20 62 69 2d 64 69 72 65 63 74 69 6f 6e 61 6c 0a bi-directional.
00f0: 20 2a 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 * Tcl_Channel (
0100: 4e 6f 74 65 3a 20 52 65 71 75 69 72 65 73 20 54 Note: Requires T
0110: 72 66 20 43 6f 72 65 20 50 61 74 63 68 29 0a 20 rf Core Patch).
0120: 2a 0a 20 2a 20 54 68 69 73 20 77 61 73 20 62 75 *. * This was bu
0130: 69 6c 74 20 66 72 6f 6d 20 73 63 72 61 74 63 68 ilt from scratch
0140: 20 62 61 73 65 64 20 75 70 6f 6e 20 6f 62 73 65 based upon obse
0150: 72 76 61 74 69 6f 6e 20 6f 66 20 4f 70 65 6e 53 rvation of OpenS
0160: 53 4c 20 30 2e 39 2e 32 42 0a 20 2a 0a 20 2a 20 SL 0.9.2B. *. *
0170: 41 64 64 69 74 69 6f 6e 20 63 72 65 64 69 74 20 Addition credit
0180: 69 73 20 64 75 65 20 66 6f 72 20 41 6e 64 72 65 is due for Andre
0190: 61 73 20 4b 75 70 72 69 65 73 20 28 61 2e 6b 75 as Kupries (a.ku
01a0: 70 72 69 65 73 40 77 65 73 74 65 6e 64 2e 63 6f pries@westend.co
01b0: 6d 29 2c 20 66 6f 72 0a 20 2a 20 70 72 6f 76 69 m), for. * provi
01c0: 64 69 6e 67 20 74 68 65 20 54 63 6c 5f 52 65 70 ding the Tcl_Rep
01d0: 6c 61 63 65 43 68 61 6e 6e 65 6c 20 6d 65 63 68 laceChannel mech
01e0: 61 6e 69 73 6d 20 61 6e 64 20 77 6f 72 6b 69 6e anism and workin
01f0: 67 20 63 6c 6f 73 65 6c 79 20 77 69 74 68 20 6d g closely with m
0200: 65 0a 20 2a 20 74 6f 20 65 6e 68 61 6e 63 65 20 e. * to enhance
0210: 69 74 20 74 6f 20 73 75 70 70 6f 72 74 20 66 75 it to support fu
0220: 6c 6c 20 66 69 6c 65 65 76 65 6e 74 20 73 65 6d ll fileevent sem
0230: 61 6e 74 69 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c antics.. *. * Al
0240: 73 6f 20 77 6f 72 6b 20 64 6f 6e 65 20 62 79 20 so work done by
0250: 74 68 65 20 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c the follow peopl
0260: 65 20 70 72 6f 76 69 64 65 64 20 74 68 65 20 69 e provided the i
0270: 6d 70 65 74 75 73 20 74 6f 20 64 6f 20 74 68 69 mpetus to do thi
0280: 73 20 22 72 69 67 68 74 22 3a 0a 20 2a 09 74 63 s "right":. *.tc
0290: 6c 53 53 4c 20 28 43 6f 6c 69 6e 20 4d 63 43 6f lSSL (Colin McCo
02a0: 72 6d 61 63 6b 2c 20 53 68 61 72 65 64 20 54 65 rmack, Shared Te
02b0: 63 68 6e 6f 6c 6f 67 79 29 0a 20 2a 09 53 53 4c chnology). *.SSL
02c0: 74 63 6c 20 28 50 65 74 65 72 20 41 6e 74 6d 61 tcl (Peter Antma
02d0: 6e 29 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c n). *. */..#incl
02e0: 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 0a ude "tlsInt.h"..
02f0: 2f 2a 0a 20 2a 20 45 78 74 65 72 6e 61 6c 20 66 /*. * External f
0300: 75 6e 63 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 2f 2a unctions. */../*
0310: 0a 20 2a 20 4c 6f 63 61 6c 20 44 65 66 69 6e 65 . * Local Define
0320: 73 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 s. */../*. * For
0330: 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e ward declaration
0340: 73 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e s. */..static in
0350: 74 09 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 t.BlockModeProc
0360: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 _ANSI_ARGS_((Cli
0370: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
0380: 44 61 74 61 2c 20 69 6e 74 20 6d 6f 64 65 29 29 Data, int mode))
0390: 3b 0a 73 74 61 74 69 63 20 69 6e 74 09 43 6c 6f ;.static int.Clo
03a0: 73 65 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 seProc _ANSI_ARG
03b0: 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 S_ ((ClientData
03c0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 instanceData, Tc
03d0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
03e0: 29 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 09 49 ));.static int.I
03f0: 6e 70 75 74 50 72 6f 63 20 5f 41 4e 53 49 5f 41 nputProc _ANSI_A
0400: 52 47 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 RGS_((ClientData
0410: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 09 instanceData,..
0420: 09 09 20 20 20 20 63 68 61 72 20 2a 62 75 66 2c .. char *buf,
0430: 20 69 6e 74 20 62 75 66 53 69 7a 65 2c 20 69 6e int bufSize, in
0440: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 t *errorCodePtr)
0450: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 09 4f 75 );.static int.Ou
0460: 74 70 75 74 50 72 6f 63 20 5f 41 4e 53 49 5f 41 tputProc _ANSI_A
0470: 52 47 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 RGS_((ClientData
0480: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 09 instanceData,..
0490: 09 09 20 20 20 20 63 68 61 72 20 2a 62 75 66 2c .. char *buf,
04a0: 20 69 6e 74 20 74 6f 57 72 69 74 65 2c 20 69 6e int toWrite, in
04b0: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 t *errorCodePtr)
04c0: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 09 47 65 );.static int.Ge
04d0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 5f 41 4e 53 tOptionProc _ANS
04e0: 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 I_ARGS_ ((Client
04f0: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
0500: 61 2c 0a 09 09 09 20 20 20 20 54 63 6c 5f 49 6e a,.... Tcl_In
0510: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 68 terp *interp, ch
0520: 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 ar *optionName,
0530: 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 64 73 50 Tcl_DString *dsP
0540: 74 72 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 tr));.static voi
0550: 64 09 57 61 74 63 68 50 72 6f 63 20 5f 41 4e 53 d.WatchProc _ANS
0560: 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74 44 I_ARGS_((ClientD
0570: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
0580: 2c 20 69 6e 74 20 6d 61 73 6b 29 29 3b 0a 73 74 , int mask));.st
0590: 61 74 69 63 20 69 6e 74 09 47 65 74 48 61 6e 64 atic int.GetHand
05a0: 6c 65 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 leProc _ANSI_ARG
05b0: 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 S_ ((ClientData
05c0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 09 09 instanceData,...
05d0: 09 20 20 20 20 69 6e 74 20 64 69 72 65 63 74 69 . int directi
05e0: 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 2a on, ClientData *
05f0: 68 61 6e 64 6c 65 50 74 72 29 29 3b 0a 73 74 61 handlePtr));.sta
0600: 74 69 63 20 76 6f 69 64 09 43 68 61 6e 6e 65 6c tic void.Channel
0610: 48 61 6e 64 6c 65 72 20 5f 41 4e 53 49 5f 41 52 Handler _ANSI_AR
0620: 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 GS_ ((ClientData
0630: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 clientData, int
0640: 20 6d 61 73 6b 29 29 3b 0a 73 74 61 74 69 63 20 mask));.static
0650: 76 6f 69 64 09 43 68 61 6e 6e 65 6c 48 61 6e 64 void.ChannelHand
0660: 6c 65 72 54 69 6d 65 72 20 5f 41 4e 53 49 5f 41 lerTimer _ANSI_A
0670: 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 RGS_ ((ClientDat
0680: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 29 3b 0a a clientData));.
0690: 0a 2f 2a 0a 20 2a 20 54 68 69 73 20 73 74 72 75 ./*. * This stru
06a0: 63 74 75 72 65 20 64 65 73 63 72 69 62 65 73 20 cture describes
06b0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 74 79 70 65 the channel type
06c0: 20 73 74 72 75 63 74 75 72 65 20 66 6f 72 20 54 structure for T
06d0: 43 50 20 73 6f 63 6b 65 74 0a 20 2a 20 62 61 73 CP socket. * bas
06e0: 65 64 20 49 4f 3a 0a 20 2a 2f 0a 0a 73 74 61 74 ed IO:. */..stat
06f0: 69 63 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 ic Tcl_ChannelTy
0700: 70 65 20 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 pe tlsChannelTyp
0710: 65 20 3d 20 7b 0a 20 20 20 20 22 74 6c 73 22 2c e = {. "tls",
0720: 09 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 2e 20 ../* Type name.
0730: 2a 2f 0a 20 20 20 20 42 6c 6f 63 6b 4d 6f 64 65 */. BlockMode
0740: 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 62 6c 6f Proc,./* Set blo
0750: 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e cking/nonblockin
0760: 67 20 6d 6f 64 65 2e 2a 2f 0a 20 20 20 20 43 6c g mode.*/. Cl
0770: 6f 73 65 50 72 6f 63 2c 09 09 2f 2a 20 43 6c 6f oseProc,../* Clo
0780: 73 65 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 se proc. */.
0790: 49 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 InputProc,../* I
07a0: 6e 70 75 74 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 nput proc. */.
07b0: 20 20 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f OutputProc,../
07c0: 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 2e 20 2a * Output proc. *
07d0: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 2f 2a 20 /. NULL,../*
07e0: 53 65 65 6b 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 Seek proc. */.
07f0: 20 20 4e 55 4c 4c 2c 09 09 2f 2a 20 53 65 74 20 NULL,../* Set
0800: 6f 70 74 69 6f 6e 20 70 72 6f 63 2e 20 2a 2f 0a option proc. */.
0810: 20 20 20 20 47 65 74 4f 70 74 69 6f 6e 50 72 6f GetOptionPro
0820: 63 2c 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e c,./* Get option
0830: 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 57 61 proc. */. Wa
0840: 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 tchProc,../* Ini
0850: 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 tialize notifier
0860: 2e 20 2a 2f 0a 20 20 20 20 47 65 74 48 61 6e 64 . */. GetHand
0870: 6c 65 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 66 leProc,./* Get f
0880: 69 6c 65 20 68 61 6e 64 6c 65 20 6f 75 74 20 6f ile handle out o
0890: 66 20 63 68 61 6e 6e 65 6c 2e 20 2a 2f 0a 7d 3b f channel. */.};
08a0: 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 ..Tcl_ChannelTyp
08b0: 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 e *Tls_ChannelTy
08c0: 70 65 28 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 pe().{. retur
08d0: 6e 20 26 74 6c 73 43 68 61 6e 6e 65 6c 54 79 70 n &tlsChannelTyp
08e0: 65 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d e;.}.../*. *----
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 2d 2d 2d 2d 0a ---------------.
0930: 20 2a 0a 20 2a 20 42 6c 6f 63 6b 4d 6f 64 65 50 *. * BlockModeP
0940: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 roc --. *. *.Thi
0950: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 s procedure is i
0960: 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 nvoked by the ge
0970: 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 neric IO level.
0980: 2a 20 20 20 20 20 20 20 74 6f 20 73 65 74 20 62 * to set b
0990: 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e 6f 6e 62 locking and nonb
09a0: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 0a 20 2a locking modes. *
09b0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 Results:. *.0 i
09c0: 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 65 72 f successful, er
09d0: 72 6e 6f 20 77 68 65 6e 20 66 61 69 6c 65 64 2e rno when failed.
09e0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
09f0: 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 74 68 65 cts:. *.Sets the
0a00: 20 64 65 76 69 63 65 20 69 6e 74 6f 20 62 6c 6f device into blo
0a10: 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 cking or nonbloc
0a20: 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a king 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 2d ----------------
0a70: 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 ---. */..static
0a80: 69 6e 74 0a 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f int.BlockModePro
0a90: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
0aa0: 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f tanceData,./* So
0ab0: 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 cket state. */.
0ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ad0: 69 6e 74 20 6d 6f 64 65 29 09 09 09 2f 2a 20 54 int mode).../* T
0ae0: 68 65 20 6d 6f 64 65 20 74 6f 20 73 65 74 2e 20 he mode to set.
0af0: 43 61 6e 20 62 65 20 6f 6e 65 20 6f 66 0a 09 09 Can be one of...
0b00: 09 09 09 09 2a 20 54 43 4c 5f 4d 4f 44 45 5f 42 ....* TCL_MODE_B
0b10: 4c 4f 43 4b 49 4e 47 20 6f 72 0a 09 09 09 09 09 LOCKING or......
0b20: 09 2a 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 .* TCL_MODE_NONB
0b30: 4c 4f 43 4b 49 4e 47 2e 20 2a 2f 0a 7b 0a 20 20 LOCKING. */.{.
0b40: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
0b50: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e r = (State *) in
0b60: 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 20 stanceData;..
0b70: 20 69 66 20 28 6d 6f 64 65 20 3d 3d 20 54 43 4c if (mode == TCL
0b80: 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e _MODE_NONBLOCKIN
0b90: 47 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e G) {..statePtr->
0ba0: 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c flags |= TLS_TCL
0bb0: 5f 41 53 59 4e 43 3b 0a 20 20 20 20 7d 20 65 6c _ASYNC;. } el
0bc0: 73 65 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e se {..statePtr->
0bd0: 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 5f 54 flags &= ~(TLS_T
0be0: 43 4c 5f 41 53 59 4e 43 29 3b 0a 20 20 20 20 7d CL_ASYNC);. }
0bf0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f . return Tcl_
0c00: 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e SetChannelOption
0c10: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 (statePtr->inter
0c20: 70 2c 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 p, Tls_GetParent
0c30: 28 73 74 61 74 65 50 74 72 29 2c 0a 09 09 22 2d (statePtr),..."-
0c40: 62 6c 6f 63 6b 69 6e 67 22 2c 20 28 6d 6f 64 65 blocking", (mode
0c50: 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e == TCL_MODE_NON
0c60: 42 4c 4f 43 4b 49 4e 47 29 20 3f 20 22 30 22 20 BLOCKING) ? "0"
0c70: 3a 20 22 31 22 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 : "1");.}.../*.
0c80: 2a 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: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 6c 6f 73 65 ----. *. * Close
0cd0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Proc --. *. *.Th
0ce0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 is procedure is
0cf0: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 invoked by the g
0d00: 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 eneric IO level
0d10: 74 6f 20 70 65 72 66 6f 72 6d 0a 20 2a 09 63 68 to perform. *.ch
0d20: 61 6e 6e 65 6c 2d 74 79 70 65 2d 73 70 65 63 69 annel-type-speci
0d30: 66 69 63 20 63 6c 65 61 6e 75 70 20 77 68 65 6e fic cleanup when
0d40: 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 a SSL socket ba
0d50: 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 sed channel. *.i
0d60: 73 20 63 6c 6f 73 65 64 2e 0a 20 2a 0a 20 2a 09 s closed.. *. *.
0d70: 4e 6f 74 65 3a 20 77 65 20 6c 65 61 76 65 20 74 Note: we leave t
0d80: 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 73 6f he underlying so
0d90: 63 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 73 20 74 cket alone, is t
0da0: 68 69 73 20 72 69 67 68 74 3f 0a 20 2a 0a 20 2a his right?. *. *
0db0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 Results:. *.0 i
0dc0: 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20 74 68 f successful, th
0dd0: 65 20 76 61 6c 75 65 20 6f 66 20 54 63 6c 5f 47 e value of Tcl_G
0de0: 65 74 45 72 72 6e 6f 28 29 20 69 66 20 66 61 69 etErrno() if fai
0df0: 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 led.. *. * Side
0e00: 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 6c 6f 73 effects:. *.Clos
0e10: 65 73 20 74 68 65 20 73 6f 63 6b 65 74 20 6f 66 es the socket of
0e20: 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a the channel.. *
0e30: 0a 20 2a 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 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
0e80: 63 20 69 6e 74 0a 43 6c 6f 73 65 50 72 6f 63 28 c int.CloseProc(
0e90: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
0ea0: 6e 63 65 44 61 74 61 2c 09 2f 2a 20 54 68 65 20 nceData,./* The
0eb0: 73 6f 63 6b 65 74 20 74 6f 20 63 6c 6f 73 65 2e socket to close.
0ec0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 */.
0ed0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
0ee0: 65 72 70 29 09 2f 2a 20 46 6f 72 20 65 72 72 6f erp)./* For erro
0ef0: 72 20 72 65 70 6f 72 74 69 6e 67 20 2d 20 75 6e r reporting - un
0f00: 75 73 65 64 2e 20 2a 2f 0a 7b 0a 20 20 20 20 53 used. */.{. S
0f10: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
0f20: 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 (State *) insta
0f30: 6e 63 65 44 61 74 61 3b 0a 23 69 66 20 54 43 4c nceData;.#if TCL
0f40: 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 3d _MAJOR_VERSION =
0f50: 3d 20 38 20 26 26 20 54 43 4c 5f 4d 49 4e 4f 52 = 8 && TCL_MINOR
0f60: 5f 56 45 52 53 49 4f 4e 20 3c 20 32 0a 20 20 20 _VERSION < 2.
0f70: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 Tcl_Channel par
0f80: 65 6e 74 20 3d 20 54 6c 73 5f 47 65 74 50 61 72 ent = Tls_GetPar
0f90: 65 6e 74 28 73 74 61 74 65 50 74 72 29 3b 0a 23 ent(statePtr);.#
0fa0: 65 6c 73 65 0a 20 20 20 20 54 63 6c 5f 43 68 61 else. Tcl_Cha
0fb0: 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d 20 73 74 nnel parent = st
0fc0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 3b 20 2f 2a atePtr->self; /*
0fd0: 20 27 73 65 6c 66 27 20 61 6c 72 65 61 64 79 20 'self' already
0fe0: 72 65 66 65 72 73 20 74 6f 20 6f 75 72 20 70 61 refers to our pa
0ff0: 72 65 6e 74 20 2a 2f 0a 23 65 6e 64 69 66 0a 0a rent */.#endif..
1000: 20 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 dprintf(stde
1010: 72 72 2c 22 5c 6e 43 6c 6f 73 65 50 72 6f 63 28 rr,"\nCloseProc(
1020: 30 78 25 78 29 22 2c 20 73 74 61 74 65 50 74 72 0x%x)", statePtr
1030: 29 3b 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a );. /*. *
1040: 20 52 65 6d 6f 76 65 20 65 76 65 6e 74 20 68 61 Remove event ha
1050: 6e 64 6c 65 72 20 74 6f 20 75 6e 64 65 72 6c 79 ndler to underly
1060: 69 6e 67 20 63 68 61 6e 6e 65 6c 2c 20 74 68 69 ing channel, thi
1070: 73 20 63 6f 75 6c 64 0a 20 20 20 20 20 2a 20 62 s could. * b
1080: 65 20 62 65 63 61 75 73 65 20 77 65 20 61 72 65 e because we are
1090: 20 63 6c 6f 73 69 6e 67 20 66 6f 72 20 72 65 61 closing for rea
10a0: 6c 2c 20 6f 72 20 62 65 69 6e 67 20 22 75 6e 73 l, or being "uns
10b0: 74 61 63 6b 65 64 22 2e 0a 20 20 20 20 20 2a 2f tacked".. */
10c0: 0a 0a 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 .. Tcl_Delete
10d0: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 20 ChannelHandler(
10e0: 70 61 72 65 6e 74 2c 0a 09 43 68 61 6e 6e 65 6c parent,..Channel
10f0: 48 61 6e 64 6c 65 72 2c 20 28 43 6c 69 65 6e 74 Handler, (Client
1100: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
1110: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
1120: 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 tr->timer != (Tc
1130: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c l_TimerToken)NUL
1140: 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 L) {..Tcl_Delete
1150: 54 69 6d 65 72 48 61 6e 64 6c 65 72 20 28 73 74 TimerHandler (st
1160: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a atePtr->timer);.
1170: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 .statePtr->timer
1180: 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b = (Tcl_TimerTok
1190: 65 6e 29 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a en)NULL;. }..
11a0: 20 20 20 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c Tcl_Eventual
11b0: 6c 79 46 72 65 65 28 20 28 43 6c 69 65 6e 74 44 lyFree( (ClientD
11c0: 61 74 61 29 73 74 61 74 65 50 74 72 2c 20 54 6c ata)statePtr, Tl
11d0: 73 5f 46 72 65 65 29 3b 0a 20 20 20 20 72 65 74 s_Free);. ret
11e0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a urn TCL_OK;.}...
11f0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
1200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1230: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 --------. *. * I
1240: 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 nputProc --. *.
1250: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
1260: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 is invoked by t
1270: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 he generic IO le
1280: 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 vel. * to
1290: 72 65 61 64 20 69 6e 70 75 74 20 66 72 6f 6d 20 read input from
12a0: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
12b0: 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 ed channel.. *.
12c0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 * Results:. *.Th
12d0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 e number of byte
12e0: 73 20 72 65 61 64 20 69 73 20 72 65 74 75 72 6e s read is return
12f0: 65 64 20 6f 72 20 2d 31 20 6f 6e 20 65 72 72 6f ed or -1 on erro
1300: 72 2e 20 41 6e 20 6f 75 74 70 75 74 0a 20 2a 09 r. An output. *.
1310: 61 72 67 75 6d 65 6e 74 20 63 6f 6e 74 61 69 6e argument contain
1320: 73 20 74 68 65 20 50 4f 53 49 58 20 65 72 72 6f s the POSIX erro
1330: 72 20 63 6f 64 65 20 6f 6e 20 65 72 72 6f 72 2c r code on error,
1340: 20 6f 72 20 7a 65 72 6f 20 69 66 20 6e 6f 0a 20 or zero if no.
1350: 2a 09 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 *.error occurred
1360: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
1370: 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 73 20 69 ects:. *.Reads i
1380: 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 20 69 6e nput from the in
1390: 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 74 68 put device of th
13a0: 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a e channel.. *. *
13b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13f0: 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 ---. */..static
1400: 69 6e 74 0a 49 6e 70 75 74 50 72 6f 63 28 43 6c int.InputProc(Cl
1410: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
1420: 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 74 eData,./* Socket
1430: 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 20 state. */.
1440: 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 62 75 char *bu
1450: 66 2c 09 09 09 2f 2a 20 57 68 65 72 65 20 74 6f f,.../* Where to
1460: 20 73 74 6f 72 65 20 64 61 74 61 20 72 65 61 64 store data read
1470: 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 . */.
1480: 20 20 69 6e 74 20 62 75 66 53 69 7a 65 2c 09 09 int bufSize,..
1490: 2f 2a 20 48 6f 77 20 6d 75 63 68 20 73 70 61 63 /* How much spac
14a0: 65 20 69 73 20 61 76 61 69 6c 61 62 6c 65 0a 20 e is available.
14b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
14c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
14d0: 20 20 20 20 20 20 20 20 2a 20 69 6e 20 74 68 65 * in the
14e0: 20 62 75 66 66 65 72 3f 20 2a 2f 0a 20 20 20 20 buffer? */.
14f0: 20 20 20 20 20 20 20 20 20 69 6e 74 20 2a 65 72 int *er
1500: 72 6f 72 43 6f 64 65 50 74 72 29 09 09 2f 2a 20 rorCodePtr)../*
1510: 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 65 Where to store e
1520: 72 72 6f 72 20 63 6f 64 65 2e 20 2a 2f 0a 7b 0a rror code. */.{.
1530: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
1540: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
1550: 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 20 instanceData;.
1560: 20 20 69 6e 74 20 62 79 74 65 73 52 65 61 64 3b int bytesRead;
1570: 09 09 09 2f 2a 20 48 6f 77 20 6d 61 6e 79 20 62 .../* How many b
1580: 79 74 65 73 20 77 65 72 65 20 72 65 61 64 3f 20 ytes were read?
1590: 2a 2f 0a 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f */.. *errorCo
15a0: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 dePtr = 0;..
15b0: 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 dprintf(stderr,"
15c0: 5c 6e 42 49 4f 5f 72 65 61 64 28 25 64 29 22 2c \nBIO_read(%d)",
15d0: 20 62 75 66 53 69 7a 65 29 3b 0a 0a 20 20 20 20 bufSize);..
15e0: 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e 69 74 if (!SSL_is_init
15f0: 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74 65 50 _finished(stateP
1600: 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 62 79 74 tr->ssl)) {..byt
1610: 65 73 52 65 61 64 20 3d 20 54 6c 73 5f 57 61 69 esRead = Tls_Wai
1620: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 tForConnect(stat
1630: 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 50 ePtr, errorCodeP
1640: 74 72 29 3b 0a 09 69 66 20 28 62 79 74 65 73 52 tr);..if (bytesR
1650: 65 61 64 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 ead <= 0) {..
1660: 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 7d 0a goto input;..}.
1670: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 }. if (st
1680: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
1690: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b 0a TLS_TCL_INIT) {.
16a0: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
16b0: 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 49 4e &= ~(TLS_TCL_IN
16c0: 49 54 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 62 IT);. }. b
16d0: 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f 5f 72 ytesRead = BIO_r
16e0: 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ead(statePtr->bi
16f0: 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a 65 29 o, buf, bufSize)
1700: 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73 74 ;. dprintf(st
1710: 64 65 72 72 2c 22 5c 6e 42 49 4f 5f 72 65 61 64 derr,"\nBIO_read
1720: 20 2d 3e 20 25 64 22 2c 20 62 79 74 65 73 52 65 -> %d", bytesRe
1730: 61 64 29 3b 0a 0a 20 20 20 20 69 66 20 28 62 79 ad);.. if (by
1740: 74 65 73 52 65 61 64 20 3c 20 30 29 20 7b 0a 09 tesRead < 0) {..
1750: 69 6e 74 20 65 72 72 20 3d 20 53 53 4c 5f 67 65 int err = SSL_ge
1760: 74 5f 65 72 72 6f 72 28 73 74 61 74 65 50 74 72 t_error(statePtr
1770: 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 61 64 ->ssl, bytesRead
1780: 29 3b 0a 0a 09 69 66 20 28 65 72 72 20 3d 3d 20 );...if (err ==
1790: 53 53 4c 5f 45 52 52 4f 52 5f 53 53 4c 29 20 7b SSL_ERROR_SSL) {
17a0: 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 .. Tls_Error(
17b0: 73 74 61 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 statePtr, SSL_ER
17c0: 52 4f 52 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ROR(statePtr->ss
17d0: 6c 2c 20 62 79 74 65 73 52 65 61 64 29 29 3b 0a l, bytesRead));.
17e0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
17f0: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
1800: 44 3b 0a 09 20 20 20 20 67 6f 74 6f 20 69 6e 70 D;.. goto inp
1810: 75 74 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 ut;..} else if (
1820: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 BIO_should_retry
1830: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
1840: 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 {.. dprintf(
1850: 73 74 64 65 72 72 2c 22 52 45 21 20 22 29 3b 0a stderr,"RE! ");.
1860: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
1870: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 tr = EAGAIN;..
1880: 20 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 7d goto input;..}
1890: 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 45 72 72 ..if (Tcl_GetErr
18a0: 6e 6f 28 29 20 3d 3d 20 45 43 4f 4e 4e 52 45 53 no() == ECONNRES
18b0: 45 54 29 20 7b 0a 09 20 20 20 20 2f 2a 20 53 6f ET) {.. /* So
18c0: 66 74 20 45 4f 46 20 2a 2f 0a 09 20 20 20 20 62 ft EOF */.. b
18d0: 79 74 65 73 52 65 61 64 20 3d 20 30 3b 0a 09 20 ytesRead = 0;..
18e0: 20 20 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 goto input;..
18f0: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2a 65 } else {.. *e
1900: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 rrorCodePtr = Tc
1910: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 20 l_GetErrno();..
1920: 20 20 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 09 goto input;..
1930: 7d 0a 20 20 20 20 7d 0a 69 6e 70 75 74 3a 0a 20 }. }.input:.
1940: 20 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 dprintf(stder
1950: 72 2c 20 22 5c 6e 49 6e 70 75 74 28 25 64 29 20 r, "\nInput(%d)
1960: 2d 3e 20 25 64 20 5b 25 64 5d 22 2c 20 62 75 66 -> %d [%d]", buf
1970: 53 69 7a 65 2c 20 62 79 74 65 73 52 65 61 64 2c Size, bytesRead,
1980: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b *errorCodePtr);
1990: 0a 20 20 20 20 72 65 74 75 72 6e 20 62 79 74 65 . return byte
19a0: 73 52 65 61 64 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a sRead;.}.../*. *
19b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19f0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 4f 75 74 70 75 74 ---. *. * Output
1a00: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Proc --. *. *.Th
1a10: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 is procedure is
1a20: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 invoked by the g
1a30: 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a eneric IO level.
1a40: 20 2a 20 20 20 20 20 20 20 74 6f 20 77 72 69 74 * to writ
1a50: 65 20 6f 75 74 70 75 74 20 74 6f 20 61 20 53 53 e output to a SS
1a60: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
1a70: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
1a80: 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 6e 75 sults:. *.The nu
1a90: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 mber of bytes wr
1aa0: 69 74 74 65 6e 20 69 73 20 72 65 74 75 72 6e 65 itten is returne
1ab0: 64 2e 20 41 6e 20 6f 75 74 70 75 74 20 61 72 67 d. An output arg
1ac0: 75 6d 65 6e 74 20 69 73 0a 20 2a 09 73 65 74 20 ument is. *.set
1ad0: 74 6f 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 to a POSIX error
1ae0: 20 63 6f 64 65 20 69 66 20 61 6e 20 65 72 72 6f code if an erro
1af0: 72 20 6f 63 63 75 72 72 65 64 2c 20 6f 72 20 7a r occurred, or z
1b00: 65 72 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ero.. *. * Side
1b10: 65 66 66 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 effects:. *.Writ
1b20: 65 73 20 6f 75 74 70 75 74 20 6f 6e 20 74 68 65 es output on the
1b30: 20 6f 75 74 70 75 74 20 64 65 76 69 63 65 20 6f output device o
1b40: 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 f the channel..
1b50: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
1b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b90: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
1ba0: 74 69 63 20 69 6e 74 0a 4f 75 74 70 75 74 50 72 tic int.OutputPr
1bb0: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
1bc0: 73 74 61 6e 63 65 44 61 74 61 2c 09 2f 2a 20 53 stanceData,./* S
1bd0: 6f 63 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a ocket state. */.
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 ch
1bf0: 61 72 20 2a 62 75 66 2c 09 09 09 2f 2a 20 54 68 ar *buf,.../* Th
1c00: 65 20 64 61 74 61 20 62 75 66 66 65 72 2e 20 2a e data buffer. *
1c10: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /.
1c20: 69 6e 74 20 74 6f 57 72 69 74 65 2c 09 09 2f 2a int toWrite,../*
1c30: 20 48 6f 77 20 6d 61 6e 79 20 62 79 74 65 73 20 How many bytes
1c40: 74 6f 20 77 72 69 74 65 3f 20 2a 2f 0a 20 20 20 to write? */.
1c50: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 2a int *
1c60: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 09 2f 2a errorCodePtr)./*
1c70: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 Where to store
1c80: 65 72 72 6f 72 20 63 6f 64 65 2e 20 2a 2f 0a 7b error code. */.{
1c90: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
1ca0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
1cb0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 20 instanceData;.
1cc0: 20 20 20 69 6e 74 20 77 72 69 74 74 65 6e 2c 20 int written,
1cd0: 65 72 72 3b 0a 0a 20 20 20 20 2a 65 72 72 6f 72 err;.. *error
1ce0: 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 CodePtr = 0;..
1cf0: 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 dprintf(stderr
1d00: 2c 22 5c 6e 42 49 4f 5f 77 72 69 74 65 28 25 64 ,"\nBIO_write(%d
1d10: 29 22 2c 20 74 6f 57 72 69 74 65 29 3b 0a 0a 20 )", toWrite);..
1d20: 20 20 20 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 if (!SSL_is_i
1d30: 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 61 nit_finished(sta
1d40: 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 tePtr->ssl)) {..
1d50: 77 72 69 74 74 65 6e 20 3d 20 54 6c 73 5f 57 61 written = Tls_Wa
1d60: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 itForConnect(sta
1d70: 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f 64 65 tePtr, errorCode
1d80: 50 74 72 29 3b 0a 09 69 66 20 28 77 72 69 74 74 Ptr);..if (writt
1d90: 65 6e 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 en <= 0) {..
1da0: 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 09 7d 0a goto output;..}.
1db0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 }. if (st
1dc0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
1dd0: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 29 20 7b 0a TLS_TCL_INIT) {.
1de0: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
1df0: 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 49 4e &= ~(TLS_TCL_IN
1e00: 49 54 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 IT);. }. i
1e10: 66 20 28 74 6f 57 72 69 74 65 20 3d 3d 20 30 29 f (toWrite == 0)
1e20: 20 7b 0a 09 64 70 72 69 6e 74 66 28 73 74 64 65 {..dprintf(stde
1e30: 72 72 2c 20 22 7a 65 72 6f 2d 77 72 69 74 65 5c rr, "zero-write\
1e40: 6e 22 29 3b 0a 09 42 49 4f 5f 66 6c 75 73 68 28 n");..BIO_flush(
1e50: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
1e60: 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 67 .written = 0;..g
1e70: 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 20 20 20 20 oto output;.
1e80: 7d 20 65 6c 73 65 20 7b 0a 09 77 72 69 74 74 65 } else {..writte
1e90: 6e 20 3d 20 42 49 4f 5f 77 72 69 74 65 28 73 74 n = BIO_write(st
1ea0: 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 atePtr->bio, buf
1eb0: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 09 64 70 72 , toWrite);..dpr
1ec0: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 5c 6e 42 intf(stderr,"\nB
1ed0: 49 4f 5f 77 72 69 74 65 28 25 64 29 20 2d 3e 20 IO_write(%d) ->
1ee0: 5b 25 64 5d 22 2c 20 74 6f 57 72 69 74 65 2c 20 [%d]", toWrite,
1ef0: 77 72 69 74 74 65 6e 29 3b 0a 20 20 20 20 7d 0a written);. }.
1f00: 20 20 20 20 69 66 20 28 77 72 69 74 74 65 6e 20 if (written
1f10: 3c 20 30 20 7c 7c 20 77 72 69 74 74 65 6e 20 3d < 0 || written =
1f20: 3d 20 30 29 20 7b 0a 09 73 77 69 74 63 68 20 28 = 0) {..switch (
1f30: 28 65 72 72 20 3d 20 53 53 4c 5f 67 65 74 5f 65 (err = SSL_get_e
1f40: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 rror(statePtr->s
1f50: 73 6c 2c 20 77 72 69 74 74 65 6e 29 29 29 20 7b sl, written))) {
1f60: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
1f70: 5f 4e 4f 4e 45 3a 0a 09 20 20 20 20 69 66 20 28 _NONE:.. if (
1f80: 77 72 69 74 74 65 6e 20 3c 3d 20 30 29 20 7b 0a written <= 0) {.
1f90: 09 09 77 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 ..written = 0;..
1fa0: 09 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 09 20 .goto output;..
1fb0: 20 20 20 7d 0a 09 20 20 20 20 62 72 65 61 6b 3b }.. break;
1fc0: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
1fd0: 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 20 20 _WANT_WRITE:..
1fe0: 20 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 dprintf(stderr
1ff0: 2c 22 77 72 69 74 65 20 57 20 42 4c 4f 43 4b 5c ,"write W BLOCK\
2000: 6e 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b n");.. break;
2010: 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
2020: 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 20 20 20 _WANT_READ:..
2030: 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c dprintf(stderr,
2040: 22 77 72 69 74 65 20 52 20 42 4c 4f 43 4b 5c 6e "write R BLOCK\n
2050: 22 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ");.. break;.
2060: 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f .case SSL_ERROR_
2070: 57 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 WANT_X509_LOOKUP
2080: 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 73 :.. dprintf(s
2090: 74 64 65 72 72 2c 22 77 72 69 74 65 20 58 20 42 tderr,"write X B
20a0: 4c 4f 43 4b 5c 6e 22 29 3b 0a 09 20 20 20 20 62 LOCK\n");.. b
20b0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 53 53 4c 5f reak;..case SSL_
20c0: 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 ERROR_ZERO_RETUR
20d0: 4e 3a 0a 09 20 20 20 20 64 70 72 69 6e 74 66 28 N:.. dprintf(
20e0: 73 74 64 65 72 72 2c 22 63 6c 6f 73 65 64 5c 6e stderr,"closed\n
20f0: 22 29 3b 0a 09 20 20 20 20 77 72 69 74 74 65 6e ");.. written
2100: 20 3d 20 30 3b 0a 09 20 20 20 20 67 6f 74 6f 20 = 0;.. goto
2110: 6f 75 74 70 75 74 3b 0a 09 63 61 73 65 20 53 53 output;..case SS
2120: 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a L_ERROR_SYSCALL:
2130: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
2140: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 Ptr = Tcl_GetErr
2150: 6e 6f 28 29 3b 0a 09 20 20 20 20 64 70 72 69 6e no();.. dprin
2160: 74 66 28 73 74 64 65 72 72 2c 22 5b 25 64 5d 20 tf(stderr,"[%d]
2170: 73 79 73 63 61 6c 6c 20 65 72 72 72 3a 20 25 64 syscall errr: %d
2180: 5c 6e 22 2c 20 77 72 69 74 74 65 6e 2c 20 54 63 \n", written, Tc
2190: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 l_GetErrno());..
21a0: 20 20 20 20 77 72 69 74 74 65 6e 20 3d 20 2d 31 written = -1
21b0: 3b 0a 09 20 20 20 20 67 6f 74 6f 20 6f 75 74 70 ;.. goto outp
21c0: 75 74 3b 0a 09 63 61 73 65 20 53 53 4c 5f 45 52 ut;..case SSL_ER
21d0: 52 4f 52 5f 53 53 4c 3a 0a 09 20 20 20 20 54 6c ROR_SSL:.. Tl
21e0: 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 s_Error(statePtr
21f0: 2c 20 53 53 4c 5f 45 52 52 4f 52 28 73 74 61 74 , SSL_ERROR(stat
2200: 65 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 ePtr->ssl, writt
2210: 65 6e 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f en));.. *erro
2220: 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e rCodePtr = ECONN
2230: 41 42 4f 52 54 45 44 3b 0a 09 20 20 20 20 77 72 ABORTED;.. wr
2240: 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 20 20 20 itten = -1;..
2250: 20 67 6f 74 6f 20 6f 75 74 70 75 74 3b 0a 09 64 goto output;..d
2260: 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 64 70 72 efault:.. dpr
2270: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 75 6e 6b intf(stderr,"unk
2280: 6e 6f 77 6e 20 65 72 72 3a 20 25 64 5c 6e 22 2c nown err: %d\n",
2290: 20 65 72 72 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a err);..}. }.
22a0: 6f 75 74 70 75 74 3a 0a 20 20 20 20 64 70 72 69 output:. dpri
22b0: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5c 6e 4f ntf(stderr, "\nO
22c0: 75 74 70 75 74 28 25 64 29 20 2d 3e 20 25 64 22 utput(%d) -> %d"
22d0: 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 , toWrite, writt
22e0: 65 6e 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 en);. return
22f0: 77 72 69 74 74 65 6e 3b 0a 7d 0a 0c 0a 2f 2a 0a written;.}.../*.
2300: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2340: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 47 65 74 4f -----. *. * GetO
2350: 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a ptionProc --. *.
2360: 20 2a 09 43 6f 6d 70 75 74 65 73 20 61 6e 20 6f *.Computes an o
2370: 70 74 69 6f 6e 20 76 61 6c 75 65 20 66 6f 72 20 ption value for
2380: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
2390: 65 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 ed channel, or a
23a0: 0a 20 2a 09 6c 69 73 74 20 6f 66 20 61 6c 6c 20 . *.list of all
23b0: 6f 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 options and thei
23c0: 72 20 76 61 6c 75 65 73 2e 0a 20 2a 0a 20 2a 09 r values.. *. *.
23d0: 4e 6f 74 65 3a 20 54 68 69 73 20 63 6f 64 65 20 Note: This code
23e0: 69 73 20 62 61 73 65 64 20 6f 6e 20 63 6f 64 65 is based on code
23f0: 20 63 6f 6e 74 72 69 62 75 74 65 64 20 62 79 20 contributed by
2400: 4a 6f 68 6e 20 48 61 78 62 79 2e 0a 20 2a 0a 20 John Haxby.. *.
2410: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
2420: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
2430: 75 6c 74 2e 20 54 68 65 20 76 61 6c 75 65 20 6f ult. The value o
2440: 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 f the specified
2450: 6f 70 74 69 6f 6e 20 6f 72 20 61 0a 20 2a 09 6c option or a. *.l
2460: 69 73 74 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f ist of all optio
2470: 6e 73 20 61 6e 64 09 74 68 65 69 72 20 76 61 6c ns and.their val
2480: 75 65 73 20 69 73 20 72 65 74 75 72 6e 65 64 20 ues is returned
2490: 69 6e 20 74 68 65 0a 20 2a 09 73 75 70 70 6c 69 in the. *.suppli
24a0: 65 64 20 44 53 74 72 69 6e 67 2e 0a 20 2a 0a 20 ed DString.. *.
24b0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
24c0: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
24d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2510: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
2520: 0a 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 .GetOptionProc(C
2530: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
2540: 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 ceData,./* Socke
2550: 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 t state. */.
2560: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c Tcl
2570: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
2580: 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 ../* For errors
2590: 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a - can be NULL. *
25a0: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /.
25b0: 20 20 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e char *optionN
25c0: 61 6d 65 2c 09 09 2f 2a 20 4e 61 6d 65 20 6f 66 ame,../* Name of
25d0: 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 0a 20 the option to.
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 20 20 20
2610: 2a 20 72 65 74 72 69 65 76 65 20 74 68 65 20 76 * retrieve the v
2620: 61 6c 75 65 20 66 6f 72 2c 20 6f 72 0a 20 20 20 alue for, or.
2630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 *
2660: 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 NULL to get all
2670: 6f 70 74 69 6f 6e 73 20 61 6e 64 0a 20 20 20 20 options and.
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 20 20 20 20 20 20 20 20 2a 20 74 * t
26b0: 68 65 69 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a heir values. */.
26c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
26d0: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 64 73 Tcl_DString *ds
26e0: 50 74 72 29 09 20 20 20 20 20 20 20 20 20 2f 2a Ptr). /*
26f0: 20 57 68 65 72 65 20 74 6f 20 73 74 6f 72 65 20 Where to store
2700: 74 68 65 20 63 6f 6d 70 75 74 65 64 20 76 61 6c the computed val
2710: 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ue.
2720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2740: 20 20 20 20 20 2a 20 69 6e 69 74 69 61 6c 69 7a * initializ
2750: 65 64 20 62 79 20 63 61 6c 6c 65 72 2e 20 2a 2f ed by caller. */
2760: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
2770: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
2780: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
2790: 0a 20 20 20 20 73 69 7a 65 5f 74 20 6c 65 6e 20 . size_t len
27a0: 3d 20 30 3b 0a 0a 20 20 20 20 69 66 20 28 6f 70 = 0;.. if (op
27b0: 74 69 6f 6e 4e 61 6d 65 20 21 3d 20 28 63 68 61 tionName != (cha
27c0: 72 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 r *) NULL) {.
27d0: 20 20 20 20 20 6c 65 6e 20 3d 20 73 74 72 6c 65 len = strle
27e0: 6e 28 6f 70 74 69 6f 6e 4e 61 6d 65 29 3b 0a 20 n(optionName);.
27f0: 20 20 20 7d 0a 23 69 66 20 30 0a 20 20 20 20 69 }.#if 0. i
2800: 66 20 28 28 6c 65 6e 20 3d 3d 20 30 29 20 7c 7c f ((len == 0) ||
2810: 0a 20 20 20 20 20 20 20 20 28 28 6c 65 6e 20 3e . ((len >
2820: 20 31 29 20 26 26 20 28 6f 70 74 69 6f 6e 4e 61 1) && (optionNa
2830: 6d 65 5b 31 5d 20 3d 3d 20 27 63 27 29 20 26 26 me[1] == 'c') &&
2840: 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 6e 63 . (strnc
2850: 6d 70 28 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 mp(optionName, "
2860: 2d 63 69 70 68 65 72 22 2c 20 6c 65 6e 29 20 3d -cipher", len) =
2870: 3d 20 30 29 29 29 20 7b 0a 20 20 20 20 20 20 20 = 0))) {.
2880: 20 69 66 20 28 6c 65 6e 20 3d 3d 20 30 29 20 7b if (len == 0) {
2890: 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c . Tcl
28a0: 5f 44 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c _DStringAppendEl
28b0: 65 6d 65 6e 74 28 64 73 50 74 72 2c 20 22 2d 63 ement(dsPtr, "-c
28c0: 69 70 68 65 72 22 29 3b 0a 20 20 20 20 20 20 20 ipher");.
28d0: 20 7d 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 44 }. Tcl_D
28e0: 53 74 72 69 6e 67 41 70 70 65 6e 64 45 6c 65 6d StringAppendElem
28f0: 65 6e 74 28 64 73 50 74 72 2c 20 53 53 4c 5f 67 ent(dsPtr, SSL_g
2900: 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 et_cipher(stateP
2910: 74 72 2d 3e 73 73 6c 29 29 3b 0a 20 20 20 20 20 tr->ssl));.
2920: 20 20 20 69 66 20 28 6c 65 6e 29 20 7b 0a 20 20 if (len) {.
2930: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e return
2940: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 20 20 TCL_OK;.
2950: 20 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a }. }.#endif.
2960: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
2970: 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d K;.}.../*. *----
2980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
29a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
29b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
29c0: 20 2a 0a 20 2a 20 57 61 74 63 68 50 72 6f 63 20 *. * WatchProc
29d0: 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c --. *. *.Initial
29e0: 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 65 72 ize the notifier
29f0: 20 74 6f 20 77 61 74 63 68 20 54 63 6c 5f 46 69 to watch Tcl_Fi
2a00: 6c 65 73 20 66 72 6f 6d 20 74 68 69 73 20 63 68 les from this ch
2a10: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 annel.. *. * Res
2a20: 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ults:. *.None..
2a30: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
2a40: 73 3a 0a 20 2a 09 53 65 74 73 20 75 70 20 74 68 s:. *.Sets up th
2a50: 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 74 68 e notifier so th
2a60: 61 74 20 61 20 66 75 74 75 72 65 20 65 76 65 6e at a future even
2a70: 74 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c t on the channel
2a80: 0a 20 2a 09 77 69 6c 6c 20 62 65 20 73 65 65 6e . *.will be seen
2a90: 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d by Tcl.. *. *--
2aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ae0: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f -. */..static vo
2af0: 69 64 0a 57 61 74 63 68 50 72 6f 63 28 43 6c 69 id.WatchProc(Cli
2b00: 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 entData instance
2b10: 44 61 74 61 2c 09 2f 2a 20 54 68 65 20 73 6f 63 Data,./* The soc
2b20: 6b 65 74 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 ket state. */.
2b30: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 6d int m
2b40: 61 73 6b 29 09 09 09 2f 2a 20 45 76 65 6e 74 73 ask).../* Events
2b50: 20 6f 66 20 69 6e 74 65 72 65 73 74 3b 20 61 6e of interest; an
2b60: 20 4f 52 2d 65 64 0a 20 20 20 20 20 20 20 20 20 OR-ed.
2b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2b90: 2a 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 * combination of
2ba0: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 0a 20 TCL_READABLE,.
2bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2bd0: 20 20 20 20 20 20 20 20 2a 20 54 43 4c 5f 57 52 * TCL_WR
2be0: 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 ITABLE and TCL_E
2bf0: 58 43 45 50 54 49 4f 4e 2e 20 2a 2f 0a 7b 0a 20 XCEPTION. */.{.
2c00: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
2c10: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 69 tr = (State *) i
2c20: 6e 73 74 61 6e 63 65 44 61 74 61 3b 0a 0a 20 20 nstanceData;..
2c30: 20 20 69 66 20 28 6d 61 73 6b 20 3d 3d 20 73 74 if (mask == st
2c40: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
2c50: 6b 29 0a 09 72 65 74 75 72 6e 3b 0a 0a 20 20 20 k)..return;..
2c60: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 77 if (statePtr->w
2c70: 61 74 63 68 4d 61 73 6b 29 20 7b 0a 09 2f 2a 0a atchMask) {../*.
2c80: 09 20 2a 20 52 65 6d 6f 76 65 20 65 76 65 6e 74 . * Remove event
2c90: 20 68 61 6e 64 6c 65 72 20 74 6f 20 75 6e 64 65 handler to unde
2ca0: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2c 20 rlying channel,
2cb0: 74 68 69 73 20 63 6f 75 6c 64 0a 09 20 2a 20 62 this could.. * b
2cc0: 65 20 62 65 63 61 75 73 65 20 77 65 20 61 72 65 e because we are
2cd0: 20 63 6c 6f 73 69 6e 67 20 66 6f 72 20 72 65 61 closing for rea
2ce0: 6c 2c 20 6f 72 20 62 65 69 6e 67 20 22 75 6e 73 l, or being "uns
2cf0: 74 61 63 6b 65 64 22 2e 0a 09 20 2a 2f 0a 09 54 tacked"... */..T
2d00: 63 6c 5f 44 65 6c 65 74 65 43 68 61 6e 6e 65 6c cl_DeleteChannel
2d10: 48 61 6e 64 6c 65 72 28 20 54 6c 73 5f 47 65 74 Handler( Tls_Get
2d20: 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 29 Parent(statePtr)
2d30: 2c 20 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 , ChannelHandler
2d40: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 , (ClientData) s
2d50: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a tatePtr);. }.
2d60: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 statePtr->wa
2d70: 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a tchMask = mask;.
2d80: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
2d90: 2d 3e 77 61 74 63 68 4d 61 73 6b 29 20 7b 0a 09 ->watchMask) {..
2da0: 2f 2a 20 53 65 74 75 70 20 61 63 74 69 76 65 20 /* Setup active
2db0: 6d 6f 6e 69 74 6f 72 20 66 6f 72 20 65 76 65 6e monitor for even
2dc0: 74 73 20 6f 6e 20 75 6e 64 65 72 6c 79 69 6e 67 ts on underlying
2dd0: 20 43 68 61 6e 6e 65 6c 20 2a 2f 0a 09 54 63 6c Channel */..Tcl
2de0: 5f 43 72 65 61 74 65 43 68 61 6e 6e 65 6c 48 61 _CreateChannelHa
2df0: 6e 64 6c 65 72 28 20 54 6c 73 5f 47 65 74 50 61 ndler( Tls_GetPa
2e00: 72 65 6e 74 28 73 74 61 74 65 50 74 72 29 2c 20 rent(statePtr),
2e10: 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d statePtr->watchM
2e20: 61 73 6b 2c 0a 09 09 09 09 43 68 61 6e 6e 65 6c ask,.....Channel
2e30: 48 61 6e 64 6c 65 72 2c 20 28 43 6c 69 65 6e 74 Handler, (Client
2e40: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
2e50: 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a . }.}.../*. *
2e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ea0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 47 65 74 48 61 6e ---. *. * GetHan
2eb0: 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a dleProc --. *. *
2ec0: 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 6c .Called from Tcl
2ed0: 5f 47 65 74 43 68 61 6e 6e 65 6c 46 69 6c 65 20 _GetChannelFile
2ee0: 74 6f 20 72 65 74 72 69 65 76 65 20 6f 2f 73 20 to retrieve o/s
2ef0: 66 69 6c 65 20 68 61 6e 64 6c 65 72 0a 20 2a 09 file handler. *.
2f00: 66 72 6f 6d 20 74 68 65 20 53 53 4c 20 73 6f 63 from the SSL soc
2f10: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
2f20: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 l.. *. * Results
2f30: 3a 0a 20 2a 09 54 68 65 20 61 70 70 72 6f 70 72 :. *.The appropr
2f40: 69 61 74 65 20 54 63 6c 5f 46 69 6c 65 20 6f 72 iate Tcl_File or
2f50: 20 4e 55 4c 4c 20 69 66 20 6e 6f 74 20 70 72 65 NULL if not pre
2f60: 73 65 6e 74 2e 20 0a 20 2a 0a 20 2a 20 53 69 64 sent. . *. * Sid
2f70: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
2f80: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
2f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
2fd0: 0a 73 74 61 74 69 63 20 69 6e 74 0a 47 65 74 48 .static int.GetH
2fe0: 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e 74 andleProc(Client
2ff0: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
3000: 61 2c 09 2f 2a 20 54 68 65 20 73 6f 63 6b 65 74 a,./* The socket
3010: 20 73 74 61 74 65 2e 20 2a 2f 0a 20 20 20 20 20 state. */.
3020: 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 int
3030: 64 69 72 65 63 74 69 6f 6e 2c 09 09 2f 2a 20 57 direction,../* W
3040: 68 69 63 68 20 54 63 6c 5f 46 69 6c 65 20 74 6f hich Tcl_File to
3050: 20 72 65 74 72 69 65 76 65 3f 20 2a 2f 0a 20 20 retrieve? */.
3060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 C
3070: 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e 64 6c lientData *handl
3080: 65 50 74 72 29 09 2f 2a 20 57 68 65 72 65 20 74 ePtr)./* Where t
3090: 6f 20 73 74 6f 72 65 20 74 68 65 20 68 61 6e 64 o store the hand
30a0: 6c 65 2e 20 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 le. */.{. St
30b0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
30c0: 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e (State *) instan
30d0: 63 65 44 61 74 61 3b 0a 0a 20 20 20 20 72 65 74 ceData;.. ret
30e0: 75 72 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e urn Tcl_GetChann
30f0: 65 6c 48 61 6e 64 6c 65 20 28 54 6c 73 5f 47 65 elHandle (Tls_Ge
3100: 74 50 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 tParent(statePtr
3110: 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 ), direction, ha
3120: 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a ndlePtr);.}.../*
3130: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
3170: 20 20 20 20 20 20 43 68 61 6e 6e 65 6c 48 61 6e ChannelHan
3180: 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 20 20 20 dler --. *. *
3190: 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d -------------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31c0: 2d 2d 2d 2a 0a 20 2a 20 20 20 20 20 20 48 61 6e ---*. * Han
31d0: 64 6c 65 72 20 63 61 6c 6c 65 64 20 62 79 20 54 dler called by T
31e0: 63 6c 20 61 73 20 61 20 72 65 73 75 6c 74 20 6f cl as a result o
31f0: 66 0a 20 2a 20 20 20 20 20 20 54 63 6c 5f 43 72 f. * Tcl_Cr
3200: 65 61 74 65 43 68 61 6e 6e 65 6c 48 61 6e 64 6c eateChannelHandl
3210: 65 72 20 2d 20 74 6f 20 69 6e 66 6f 72 6d 20 75 er - to inform u
3220: 73 20 6f 66 20 61 63 74 69 76 69 74 79 0a 20 2a s of activity. *
3230: 20 20 20 20 20 20 6f 6e 20 74 68 65 20 75 6e 64 on the und
3240: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
3250: 0a 20 2a 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d . * -------
3260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
3290: 20 20 20 20 20 20 53 69 64 65 65 66 66 65 63 74 Sideeffect
32a0: 73 3a 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 s:. *
32b0: 20 20 20 4d 61 79 20 67 65 6e 65 72 61 74 65 20 May generate
32c0: 73 75 62 73 65 71 75 65 6e 74 20 63 61 6c 6c 73 subsequent calls
32d0: 20 74 6f 0a 20 2a 20 20 20 20 20 20 20 20 20 20 to. *
32e0: 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 Tcl_NotifyCh
32f0: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 20 20 20 annel.. *. *
3300: 20 20 52 65 73 75 6c 74 3a 0a 20 2a 20 20 20 20 Result:. *
3310: 20 20 20 20 20 20 20 20 20 20 4e 6f 6e 65 2e 0a None..
3320: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f -----------*. */
3360: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 43 68 ..static void.Ch
3370: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 28 63 6c annelHandler (cl
3380: 69 65 6e 74 44 61 74 61 2c 20 6d 61 73 6b 29 0a ientData, mask).
3390: 43 6c 69 65 6e 74 44 61 74 61 20 20 20 20 20 63 ClientData c
33a0: 6c 69 65 6e 74 44 61 74 61 3b 0a 69 6e 74 20 20 lientData;.int
33b0: 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 3b 0a mask;.
33c0: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
33d0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
33e0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 64 ) clientData;..d
33f0: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 printf(stderr, "
3400: 48 41 4e 44 4c 45 52 28 30 78 25 78 29 5c 6e 22 HANDLER(0x%x)\n"
3410: 2c 20 6d 61 73 6b 29 3b 0a 20 20 20 20 54 63 6c , mask);. Tcl
3420: 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 _Preserve( (Clie
3430: 6e 74 44 61 74 61 29 73 74 61 74 65 50 74 72 29 ntData)statePtr)
3440: 3b 0a 0a 20 20 20 20 69 66 20 28 6d 61 73 6b 20 ;.. if (mask
3450: 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 & TCL_READABLE)
3460: 7b 0a 09 42 49 4f 5f 73 65 74 5f 66 6c 61 67 73 {..BIO_set_flags
3470: 28 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f (statePtr->p_bio
3480: 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 52 45 41 44 , BIO_FLAGS_READ
3490: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
34a0: 09 42 49 4f 5f 63 6c 65 61 72 5f 66 6c 61 67 73 .BIO_clear_flags
34b0: 28 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f (statePtr->p_bio
34c0: 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 52 45 41 44 , BIO_FLAGS_READ
34d0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 );. }.. if
34e0: 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f 57 52 49 (mask & TCL_WRI
34f0: 54 41 42 4c 45 29 20 7b 0a 09 42 49 4f 5f 73 65 TABLE) {..BIO_se
3500: 74 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 72 t_flags(statePtr
3510: 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 ->p_bio, BIO_FLA
3520: 47 53 5f 57 52 49 54 45 29 3b 0a 20 20 20 20 7d GS_WRITE);. }
3530: 20 65 6c 73 65 20 7b 0a 09 42 49 4f 5f 63 6c 65 else {..BIO_cle
3540: 61 72 5f 66 6c 61 67 73 28 73 74 61 74 65 50 74 ar_flags(statePt
3550: 72 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f 5f 46 4c r->p_bio, BIO_FL
3560: 41 47 53 5f 57 52 49 54 45 29 3b 0a 20 20 20 20 AGS_WRITE);.
3570: 7d 0a 0a 20 20 20 20 6d 61 73 6b 20 3d 20 30 3b }.. mask = 0;
3580: 0a 20 20 20 20 69 66 20 28 42 49 4f 5f 77 70 65 . if (BIO_wpe
3590: 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e nding(statePtr->
35a0: 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 7c 3d bio)) {..mask |=
35b0: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 20 TCL_WRITABLE;.
35c0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 42 49 4f }. if (BIO
35d0: 5f 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 74 _pending(statePt
35e0: 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 6b r->bio)) {..mask
35f0: 20 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 |= TCL_READABLE
3600: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f ;. }. Tcl_
3610: 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 74 NotifyChannel(st
3620: 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 6d 61 atePtr->self, ma
3630: 73 6b 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 sk);.. if (st
3640: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d atePtr->timer !=
3650: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
3660: 29 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 )NULL) {..Tcl_De
3670: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 leteTimerHandler
3680: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
3690: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 );..statePtr->ti
36a0: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 mer = (Tcl_Timer
36b0: 54 6f 6b 65 6e 29 4e 55 4c 4c 3b 0a 20 20 20 20 Token)NULL;.
36c0: 7d 0a 20 20 20 20 69 66 20 28 28 6d 61 73 6b 20 }. if ((mask
36d0: 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 & TCL_READABLE)
36e0: 26 26 20 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 && Tcl_InputBuff
36f0: 65 72 65 64 20 28 73 74 61 74 65 50 74 72 2d 3e ered (statePtr->
3700: 73 65 6c 66 29 20 3e 20 30 29 20 7b 0a 09 2f 2a self) > 0) {../*
3710: 0a 09 20 2a 20 44 61 74 61 20 69 73 20 77 61 69 .. * Data is wai
3720: 74 69 6e 67 2c 20 66 6c 75 73 68 20 69 74 20 6f ting, flush it o
3730: 75 74 20 69 6e 20 73 68 6f 72 74 20 74 69 6d 65 ut in short time
3740: 0a 09 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d .. */..statePtr-
3750: 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 >timer = Tcl_Cre
3760: 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 20 ateTimerHandler
3770: 28 54 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 20 (TLS_TCL_DELAY,
3780: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 ChannelHandlerTi
3790: 6d 65 72 2c 0a 09 09 09 09 09 20 20 20 28 43 6c mer,...... (Cl
37a0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
37b0: 74 72 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 tr);. }. T
37c0: 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 cl_Release( (Cli
37d0: 65 6e 74 44 61 74 61 29 73 74 61 74 65 50 74 72 entData)statePtr
37e0: 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d );.}.../*. *----
37f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3820: 2d 2d 2a 0a 20 2a 0a 20 2a 09 43 68 61 6e 6e 65 --*. *. *.Channe
3830: 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 20 2d 2d lHandlerTimer --
3840: 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *.---------
3850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3870: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 43 61 6c 6c -------*. *.Call
3880: 65 64 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 ed by the notifi
3890: 65 72 20 28 2d 3e 20 74 69 6d 65 72 29 20 74 6f er (-> timer) to
38a0: 20 66 6c 75 73 68 20 6f 75 74 0a 20 2a 09 69 6e flush out. *.in
38b0: 66 6f 72 6d 61 74 69 6f 6e 20 77 61 69 74 69 6e formation waitin
38c0: 67 20 69 6e 20 63 68 61 6e 6e 65 6c 20 62 75 66 g in channel buf
38d0: 66 65 72 73 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d fers.. *.-------
38e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
3910: 09 53 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a .Sideeffects:. *
3920: 09 09 41 73 20 6f 66 20 27 43 68 61 6e 6e 65 6c ..As of 'Channel
3930: 48 61 6e 64 6c 65 72 27 2e 0a 20 2a 0a 20 2a 09 Handler'.. *. *.
3940: 52 65 73 75 6c 74 3a 0a 20 2a 09 09 4e 6f 6e 65 Result:. *..None
3950: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 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 2a 0a 20 -------------*.
3990: 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a */..static void.
39a0: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 ChannelHandlerTi
39b0: 6d 65 72 20 28 63 6c 69 65 6e 74 44 61 74 61 29 mer (clientData)
39c0: 0a 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 .ClientData clie
39d0: 6e 74 44 61 74 61 3b 20 2f 2a 20 54 72 61 6e 73 ntData; /* Trans
39e0: 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 71 75 65 formation to que
39f0: 72 79 20 2a 2f 0a 7b 0a 20 20 20 20 53 74 61 74 ry */.{. Stat
3a00: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
3a10: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
3a20: 74 61 3b 0a 20 20 20 20 69 6e 74 20 6d 61 73 6b ta;. int mask
3a30: 20 3d 20 30 3b 0a 0a 20 20 20 20 73 74 61 74 65 = 0;.. state
3a40: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
3a50: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
3a60: 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 28 42 49 4f LL;.. if (BIO
3a70: 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 65 50 _wpending(stateP
3a80: 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 6d 61 73 tr->bio)) {..mas
3a90: 6b 20 7c 3d 20 54 43 4c 5f 57 52 49 54 41 42 4c k |= TCL_WRITABL
3aa0: 45 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 E;. }. if
3ab0: 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 73 74 61 (BIO_pending(sta
3ac0: 74 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 tePtr->bio)) {..
3ad0: 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f 52 45 41 44 mask |= TCL_READ
3ae0: 41 42 4c 45 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ABLE;. }.
3af0: 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 Tcl_NotifyChanne
3b00: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 l(statePtr->self
3b10: 2c 20 6d 61 73 6b 29 3b 0a 7d 0a 0c 0a 2f 2a 0a , mask);.}.../*.
3b20: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b50: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 --------*. *. *.
3b60: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
3b70: 63 74 20 2d 2d 0a 20 2a 0a 20 2a 09 53 69 64 65 ct --. *. *.Side
3b80: 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 49 73 73 effects:. *..Iss
3b90: 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74 20 6f ues SSL_accept o
3ba0: 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a 20 2a r SSL_connect. *
3bb0: 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 . *.Result:. *..
3bc0: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
3bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c00: 2d 2a 0a 20 2a 2f 0a 69 6e 74 0a 54 6c 73 5f 57 -*. */.int.Tls_W
3c10: 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 20 73 aitForConnect( s
3c20: 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 43 6f tatePtr, errorCo
3c30: 64 65 50 74 72 29 0a 20 20 20 20 53 74 61 74 65 dePtr). State
3c40: 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 *statePtr;.
3c50: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
3c60: 72 3b 09 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 r;../* Where to
3c70: 73 74 6f 72 65 20 65 72 72 6f 72 20 63 6f 64 65 store error code
3c80: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 20 65 . */.{. int e
3c90: 72 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 rr;.. dprintf
3ca0: 28 73 74 64 65 72 72 2c 22 5c 6e 57 61 69 74 46 (stderr,"\nWaitF
3cb0: 6f 72 43 6f 6e 6e 65 63 74 28 30 78 25 78 29 22 orConnect(0x%x)"
3cc0: 2c 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 , statePtr);..
3cd0: 20 20 66 6f 72 20 28 3b 3b 29 20 7b 0a 09 2f 2a for (;;) {../*
3ce0: 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 Not initialized
3cf0: 20 79 65 74 21 20 2a 2f 0a 09 69 66 20 28 73 74 yet! */..if (st
3d00: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
3d10: 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 TLS_TCL_SERVER)
3d20: 7b 0a 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c {.. err = SSL
3d30: 5f 61 63 63 65 70 74 28 73 74 61 74 65 50 74 72 _accept(statePtr
3d40: 2d 3e 73 73 6c 29 3b 0a 09 7d 20 65 6c 73 65 20 ->ssl);..} else
3d50: 7b 0a 09 20 20 20 20 65 72 72 20 3d 20 53 53 4c {.. err = SSL
3d60: 5f 63 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 _connect(statePt
3d70: 72 2d 3e 73 73 6c 29 3b 0a 09 7d 0a 09 2f 2a 53 r->ssl);..}../*S
3d80: 53 4c 5f 77 72 69 74 65 28 73 74 61 74 65 50 74 SL_write(statePt
3d90: 72 2d 3e 73 73 6c 2c 20 28 63 68 61 72 2a 29 26 r->ssl, (char*)&
3da0: 65 72 72 2c 20 30 29 3b 09 48 41 43 4b 21 21 21 err, 0);.HACK!!!
3db0: 20 2a 2f 0a 09 69 66 20 28 65 72 72 20 3e 20 30 */..if (err > 0
3dc0: 29 0a 09 20 20 20 20 42 49 4f 5f 66 6c 75 73 68 ).. BIO_flush
3dd0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b (statePtr->bio);
3de0: 0a 0a 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 ...if (err <= 0)
3df0: 20 7b 0a 09 20 20 20 20 69 6e 74 20 72 63 20 3d {.. int rc =
3e00: 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 SSL_get_error(s
3e10: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 65 72 tatePtr->ssl, er
3e20: 72 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 72 63 r);... if (rc
3e30: 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 53 53 == SSL_ERROR_SS
3e40: 4c 29 20 7b 0a 09 09 54 6c 73 5f 45 72 72 6f 72 L) {...Tls_Error
3e50: 28 73 74 61 74 65 50 74 72 2c 20 28 63 68 61 72 (statePtr, (char
3e60: 2a 29 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 *)ERR_reason_err
3e70: 6f 72 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 or_string(ERR_ge
3e80: 74 5f 65 72 72 6f 72 28 29 29 29 3b 0a 09 09 2a t_error()));...*
3e90: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
3ea0: 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 72 CONNABORTED;...r
3eb0: 65 74 75 72 6e 20 2d 31 3b 0a 09 20 20 20 20 7d eturn -1;.. }
3ec0: 20 65 6c 73 65 20 69 66 20 28 42 49 4f 5f 73 68 else if (BIO_sh
3ed0: 6f 75 6c 64 5f 72 65 74 72 79 28 73 74 61 74 65 ould_retry(state
3ee0: 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 69 Ptr->bio)) {...i
3ef0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 f (statePtr->fla
3f00: 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 gs & TLS_TCL_ASY
3f10: 4e 43 29 20 7b 0a 09 09 20 20 20 20 64 70 72 69 NC) {... dpri
3f20: 6e 74 66 28 73 74 64 65 72 72 2c 22 45 21 20 22 ntf(stderr,"E! "
3f30: 29 3b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 43 );... *errorC
3f40: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
3f50: 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 ... return -1
3f60: 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 ;...} else {...
3f70: 20 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 7d continue;...}
3f80: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
3f90: 28 65 72 72 20 3d 3d 20 30 29 20 7b 0a 09 09 64 (err == 0) {...d
3fa0: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 43 printf(stderr,"C
3fb0: 52 21 20 22 29 3b 0a 09 09 2a 65 72 72 6f 72 43 R! ");...*errorC
3fc0: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 52 45 odePtr = ECONNRE
3fd0: 53 45 54 3b 0a 09 09 72 65 74 75 72 6e 20 2d 31 SET;...return -1
3fe0: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 66 ;.. }.. if
3ff0: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 (statePtr->flag
4000: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 s & TLS_TCL_SERV
4010: 45 52 29 20 7b 0a 09 09 65 72 72 20 3d 20 53 53 ER) {...err = SS
4020: 4c 5f 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 L_get_verify_res
4030: 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ult(statePtr->ss
4040: 6c 29 3b 0a 09 09 69 66 20 28 65 72 72 20 21 3d l);...if (err !=
4050: 20 58 35 30 39 5f 56 5f 4f 4b 29 20 7b 0a 09 09 X509_V_OK) {...
4060: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
4070: 61 74 65 50 74 72 2c 20 28 63 68 61 72 2a 29 58 atePtr, (char*)X
4080: 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 509_verify_cert_
4090: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 error_string(err
40a0: 29 29 3b 0a 09 09 20 20 20 20 2a 65 72 72 6f 72 ));... *error
40b0: 43 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 CodePtr = ECONNA
40c0: 42 4f 52 54 45 44 3b 0a 09 09 20 20 20 20 72 65 BORTED;... re
40d0: 74 75 72 6e 20 2d 31 3b 0a 09 09 7d 0a 09 20 20 turn -1;...}..
40e0: 20 20 7d 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 }.. *errorC
40f0: 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 odePtr = Tcl_Get
4100: 45 72 72 6e 6f 28 29 3b 0a 09 20 20 20 20 64 70 Errno();.. dp
4110: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 45 52 rintf(stderr,"ER
4120: 52 28 25 64 2c 20 25 64 29 20 22 2c 20 72 63 2c R(%d, %d) ", rc,
4130: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b *errorCodePtr);
4140: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b .. return -1;
4150: 0a 09 7d 0a 09 64 70 72 69 6e 74 66 28 73 74 64 ..}..dprintf(std
4160: 65 72 72 2c 22 52 30 21 20 22 29 3b 0a 09 72 65 err,"R0! ");..re
4170: 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 7d 0a turn 1;. }.}.
4180: 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c 0a 54 6c 73 .Tcl_Channel.Tls
4190: 5f 47 65 74 50 61 72 65 6e 74 28 20 73 74 61 74 _GetParent( stat
41a0: 65 50 74 72 20 29 0a 20 20 20 20 53 74 61 74 65 ePtr ). State
41b0: 20 2a 73 74 61 74 65 50 74 72 3b 0a 7b 0a 23 69 *statePtr;.{.#i
41c0: 66 20 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 f TCL_MAJOR_VERS
41d0: 49 4f 4e 20 3d 3d 20 38 20 26 26 20 54 43 4c 5f ION == 8 && TCL_
41e0: 4d 49 4e 4f 52 5f 56 45 52 53 49 4f 4e 20 3c 20 MINOR_VERSION <
41f0: 32 0a 20 20 20 20 72 65 74 75 72 6e 20 73 74 61 2. return sta
4200: 74 65 50 74 72 2d 3e 70 61 72 65 6e 74 3b 0a 23 tePtr->parent;.#
4210: 65 6c 73 65 0a 20 20 20 20 2f 2a 20 54 68 65 20 else. /* The
4220: 72 65 61 73 6f 6e 20 66 6f 72 20 74 68 65 20 65 reason for the e
4230: 78 69 73 74 65 6e 63 65 20 6f 66 20 74 68 69 73 xistence of this
4240: 20 70 72 6f 63 65 64 75 72 65 20 69 73 0a 20 20 procedure is.
4250: 20 20 20 2a 20 74 68 65 20 66 61 63 74 20 74 68 * the fact th
4260: 61 74 20 73 74 61 63 6b 69 6e 67 20 61 20 74 72 at stacking a tr
4270: 61 6e 73 66 6f 72 6d 20 6f 76 65 72 20 61 6e 6f ansform over ano
4280: 74 68 65 72 0a 20 20 20 20 20 2a 20 74 72 61 6e ther. * tran
4290: 73 66 6f 72 6d 20 77 69 6c 6c 20 6c 65 61 76 65 sform will leave
42a0: 20 6f 75 72 20 69 6e 74 65 72 6e 61 6c 20 70 6f our internal po
42b0: 69 6e 74 65 72 20 75 6e 63 68 61 6e 67 65 64 2c inter unchanged,
42c0: 0a 20 20 20 20 20 2a 20 61 6e 64 20 74 68 75 73 . * and thus
42d0: 20 70 6f 69 6e 74 69 6e 67 20 74 6f 20 74 68 65 pointing to the
42e0: 20 6e 65 77 20 74 72 61 6e 73 66 6f 72 6d 2c 20 new transform,
42f0: 61 6e 64 20 6e 6f 74 20 74 68 65 0a 20 20 20 20 and not the.
4300: 20 2a 20 43 68 61 6e 6e 65 6c 20 73 74 72 75 63 * Channel struc
4310: 74 75 72 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 ture containing
4320: 74 68 65 20 73 61 76 65 64 20 73 74 61 74 65 20 the saved state
4330: 6f 66 20 74 68 69 73 0a 20 20 20 20 20 2a 20 74 of this. * t
4340: 72 61 6e 73 66 6f 72 6d 2e 20 54 68 69 73 20 69 ransform. This i
4350: 73 20 74 68 65 20 70 72 69 63 65 20 74 6f 20 70 s the price to p
4360: 61 79 20 66 6f 72 20 6c 65 61 76 69 6e 67 0a 20 ay for leaving.
4370: 20 20 20 20 2a 20 54 63 6c 5f 43 68 61 6e 6e 65 * Tcl_Channe
4380: 6c 20 72 65 66 65 72 65 6e 63 65 73 20 69 6e 74 l references int
4390: 61 63 74 2e 20 54 68 65 20 6f 6e 6c 79 20 6f 74 act. The only ot
43a0: 68 65 72 20 73 6f 6c 75 74 69 6f 6e 0a 20 20 20 her solution.
43b0: 20 20 2a 20 69 73 20 61 6e 20 65 78 74 65 6e 73 * is an extens
43c0: 69 6f 6e 20 6f 66 20 54 63 6c 5f 43 68 61 6e 6e ion of Tcl_Chann
43d0: 65 6c 54 79 70 65 20 77 69 74 68 20 61 6e 6f 74 elType with anot
43e0: 68 65 72 20 64 72 69 76 65 72 0a 20 20 20 20 20 her driver.
43f0: 2a 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 6e * procedure to n
4400: 6f 74 69 66 79 20 61 20 43 68 61 6e 6e 65 6c 20 otify a Channel
4410: 61 62 6f 75 74 20 74 68 65 20 28 75 6e 29 73 74 about the (un)st
4420: 61 63 6b 69 6e 67 2e 0a 20 20 20 20 20 2a 0a 20 acking.. *.
4430: 20 20 20 20 2a 20 49 74 20 77 61 6c 6b 73 20 74 * It walks t
4440: 68 65 20 63 68 61 69 6e 20 6f 66 20 43 68 61 6e he chain of Chan
4450: 6e 65 6c 20 73 74 72 75 63 74 75 72 65 73 20 75 nel structures u
4460: 6e 74 69 6c 20 69 74 0a 20 20 20 20 20 2a 20 66 ntil it. * f
4470: 69 6e 64 73 20 74 68 65 20 6f 6e 65 20 70 6f 69 inds the one poi
4480: 6e 74 69 6e 67 20 68 61 76 69 6e 67 20 27 63 74 nting having 'ct
4490: 72 6c 27 20 61 73 20 69 6e 73 74 61 6e 63 65 44 rl' as instanceD
44a0: 61 74 61 0a 20 20 20 20 20 2a 20 61 6e 64 20 74 ata. * and t
44b0: 68 65 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20 hen returns the
44c0: 73 75 70 65 72 63 65 64 69 6e 67 20 63 68 61 6e superceding chan
44d0: 6e 65 6c 20 74 6f 20 74 68 61 74 2e 20 28 41 4b nel to that. (AK
44e0: 29 0a 20 20 20 20 20 2a 2f 0a 20 0a 20 20 54 63 ). */. . Tc
44f0: 6c 5f 43 68 61 6e 6e 65 6c 20 73 65 6c 66 20 3d l_Channel self =
4500: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 3b statePtr->self;
4510: 0a 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 6e . Tcl_Channel n
4520: 65 78 74 3b 0a 0a 20 20 77 68 69 6c 65 20 28 28 ext;.. while ((
4530: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
4540: 65 50 74 72 20 21 3d 20 54 63 6c 5f 47 65 74 43 ePtr != Tcl_GetC
4550: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
4560: 74 61 20 28 73 65 6c 66 29 29 20 7b 0a 20 20 20 ta (self)) {.
4570: 20 6e 65 78 74 20 3d 20 54 63 6c 5f 47 65 74 53 next = Tcl_GetS
4580: 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 20 28 73 tackedChannel (s
4590: 65 6c 66 29 3b 0a 20 20 20 20 69 66 20 28 6e 65 elf);. if (ne
45a0: 78 74 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e xt == (Tcl_Chann
45b0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 el) NULL) {.
45c0: 20 20 2f 2a 20 30 39 2f 32 34 2f 31 39 39 39 20 /* 09/24/1999
45d0: 55 6e 73 74 61 63 6b 69 6e 67 20 62 75 67 2c 20 Unstacking bug,
45e0: 66 6f 75 6e 64 20 62 79 20 4d 61 74 74 20 4e 65 found by Matt Ne
45f0: 77 6d 61 6e 20 3c 6d 61 74 74 40 73 65 6e 73 75 wman <matt@sensu
4600: 73 2e 6f 72 67 3e 2e 0a 20 20 20 20 20 20 20 2a s.org>.. *
4610: 0a 20 20 20 20 20 20 20 2a 20 57 65 20 77 65 72 . * We wer
4620: 65 20 75 6e 61 62 6c 65 20 74 6f 20 66 69 6e 64 e unable to find
4630: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 73 74 72 the channel str
4640: 75 63 74 75 72 65 20 66 6f 72 20 74 68 69 73 0a ucture for this.
4650: 20 20 20 20 20 20 20 2a 20 74 72 61 6e 73 66 6f * transfo
4660: 72 6d 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 rmation in the c
4670: 68 61 69 6e 20 6f 66 20 73 74 61 63 6b 65 64 20 hain of stacked
4680: 63 68 61 6e 6e 65 6c 2e 20 54 68 69 73 0a 20 20 channel. This.
4690: 20 20 20 20 20 2a 20 6d 65 61 6e 73 20 74 68 61 * means tha
46a0: 74 20 77 65 20 61 72 65 20 63 75 72 72 65 6e 74 t we are current
46b0: 6c 79 20 69 6e 20 74 68 65 20 70 72 6f 63 65 73 ly in the proces
46c0: 73 20 6f 66 20 75 6e 73 74 61 63 6b 69 6e 67 0a s of unstacking.
46d0: 20 20 20 20 20 20 20 2a 20 69 74 20 2a 61 6e 64 * it *and
46e0: 2a 20 74 68 65 72 65 20 77 65 72 65 20 73 6f 6d * there were som
46f0: 65 20 62 79 74 65 73 20 77 61 69 74 69 6e 67 20 e bytes waiting
4700: 77 68 69 63 68 20 61 72 65 20 6e 6f 77 0a 20 20 which are now.
4710: 20 20 20 20 20 2a 20 66 6c 75 73 68 65 64 2e 20 * flushed.
4720: 49 6e 20 74 68 69 73 20 73 69 74 75 61 74 69 6f In this situatio
4730: 6e 20 74 68 65 20 70 6f 69 6e 74 65 72 20 74 6f n the pointer to
4740: 20 74 68 65 20 63 68 61 6e 6e 65 6c 0a 20 20 20 the channel.
4750: 20 20 20 20 2a 20 69 74 73 65 6c 66 20 61 6c 72 * itself alr
4760: 65 61 64 79 20 72 65 66 65 72 73 20 74 6f 20 74 eady refers to t
4770: 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 he parent channe
4780: 6c 20 77 65 20 68 61 76 65 20 74 6f 0a 20 20 20 l we have to.
4790: 20 20 20 20 2a 20 77 72 69 74 65 20 74 68 65 20 * write the
47a0: 62 79 74 65 73 20 69 6e 74 6f 2c 20 73 6f 20 77 bytes into, so w
47b0: 65 20 72 65 74 75 72 6e 20 74 68 61 74 2e 0a 20 e return that..
47c0: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 72 */. r
47d0: 65 74 75 72 6e 20 73 74 61 74 65 50 74 72 2d 3e eturn statePtr->
47e0: 73 65 6c 66 3b 0a 20 20 20 20 7d 0a 20 20 20 20 self;. }.
47f0: 73 65 6c 66 20 3d 20 6e 65 78 74 3b 0a 20 20 7d self = next;. }
4800: 0a 0a 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 .. return Tcl_G
4810: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
4820: 20 28 73 65 6c 66 29 3b 0a 23 65 6e 64 69 66 0a (self);.#endif.
4830: 7d 0a }.